*        %GOTO PLSXINS;                                              /* 00000110
         MACRO                                                          00000210
         TXINSD                                                         00000310
.*A000000-999999                                               @Y17XAXG 00000410
*                       ... INIT-SELF...                                00000510
IEDXINSD DSECT                                                          00000610
XINSFIXD EQU   *                        FIXED LENGTH DATA               00000710
XINSCODE DS    0XL3                     COMMAND CODE                    00000810
XINSNETS DS    XL1                      NETWORK SERVICES                00000910
XINSSESS DS    XL1                      SESSION SERVICES                00001010
XINSREQ  DS    XL1                      INIT-SELF COMMAND               00001110
XINSFMTP DS    XL1                      FORMAT AND TYPE                 00001210
XINSMODE DS    XL8                      MODE                            00001310
         SPACE                                                          00001410
XINSVAR  EQU   *                        VARIABLE LENGTH DATA            00001510
XINSNTNM EQU   *                        NETWORK NAME FIELD              00001610
XINSNTYP DS    XL1                      RESOURCE TYPE                   00001710
XINSNLEN DS    XL1                      LENGTH OF NAME                  00001810
XINSNAME EQU   *                        NAME                            00001910
         SPACE                                                          00002010
XINSRQID EQU   *                        REQUESTOR ID FIELD              00002110
XINSRLEN DS    XL1                      ID LENGTH                       00002210
XINSRID  EQU   *                        REQUESTOR ID                    00002310
         SPACE                                                          00002410
XINSPWRD EQU   *                        PASSWORD FIELD                  00002510
XINSPLEN DS    XL1                      PASSWORD LENGTH                 00002610
XINSPSWD EQU   *                        PASSWORD                        00002710
         SPACE                                                          00002810
XINSUFLD EQU   *                        USER DATA FIELD                 00002910
XINSULEN DS    XL1                      LENGTH OF USER DATA             00003010
XINSUSFD EQU   *                        USER DATA                       00003110
         MEND  */                                                       00003210
*%PLSXINS : ;                                                           00003310
*DECLARE                                                                00003410
*  1 IEDXINSD BASED(XINSPTR),                                           00003510
*    2 XINSFIXD,                         /* FIXED LENGTH DATA        */ 00003610
*     3 XINSCODE CHAR(3),                /* COMMAND CODE             */ 00003710
*      4 XINSNETS CHAR(1),               /* NETWORK SERVICES         */ 00003810
*      4 XINSSESS CHAR(1),               /* SESSION SERVICES         */ 00003910
*      4 XINSREQ CHAR(1),                /* INIT-SELF REQUEST        */ 00004010
*     3 XINSFMTP CHAR(1),                /* FORMAT AND TYPE          */ 00004110
*      4 XINSFMT BIT(4),                 /* FORMAT                   */ 00004210
*      4 XINSTYPE BIT(4),                /* TYPE                     */ 00004310
*     3 XINSMODE CHAR(8),                /* MODE                     */ 00004410
*    2 XINSVAR,                          /* VARIABLE LENGTH DATA     */ 00004510
*     3 XINSNTNM,                        /* NETWORK NAME FIELD       */ 00004610
*      4 XINSNTYP CHAR(1),               /* RESOURCE TYPE            */ 00004710
*      4 XINSNLEN FIXED(8),              /* LENGTH OF NAME           */ 00004810
*      4 XINSNAME CHAR(0),               /* NETWORK NAME             */ 00004910
*     3 XINSRQID,                        /* REQUESTOR ID FIELD       */ 00005010
*      4 XINSRLEN FIXED(8),              /* LENGTH OF ID             */ 00005110
*      4 XINSRID CHAR(0),                /* REQUESTOR ID             */ 00005210
*     3 XINSPWRD ,                       /* PASSWORD FIELD           */ 00005310
*      4 XINSPLEN FIXED(8),              /* LENGTH OF PASSWORD       */ 00005410
*      4 XINSPSWD CHAR(0),               /* PASSWORD                 */ 00005510
*     3 XINSUFLD,                        /* USER FIELD               */ 00005610
*      4 XINSULEN FIXED(8),              /* LENGTH OF USER DATA      */ 00005710
*      4 XINSUSFD CHAR(0);               /* USER DATA                */ 00005810
*/*                                                                  */ 00005910