*        %GOTO PLSXCTD;                                              /* 00100010
         MACRO                                                          00200010
         TXCTDD                                                         00300010
.*A000000-999999                                               @Y17XAXG 00400010
*                       ... CONTACTED ...                               00500010
IEDXCTDD DSECT                                                          00600010
XCTDCMD  DS    0XL6                     CONTACTED COMMAND               00700010
XCTDCODE DS    0XL3                     COMMAND CODE                    00800010
XCTDNETS DS    XL1                      NETWORK SERVICES                00900010
XCTDCONF DS    XL1                      CONFIGURATION SERVICES          01000010
XCTDREQ  DS    XL1                      ACTIVATE LINK REQUEST           01100010
XCTDADDR DS    XL2                      NETWORK ADDRESS OF PU           01200010
XCTDSTAT DS    XL1                      STATUS                          01300010
         MEND                                                        */ 01400010
*%PLSXCTD : ;                                                           01500010
*DECLARE                                                                01600010
*  1 IEDXCTDD BASED(XCTDPTR),                                           01700010
*    2 XCTDCMD CHAR(6),                  /* CONTACTED COMMAND        */ 01800010
      3 XCTDCODE CHAR(3),                /* COMMAND CODE             */ 01900010
       4 XCTDNETS CHAR(1),               /* NETWORK SERVICES         */ 02000010
       4 XCTDCONF CHAR(1),               /* CONFIGURATION SERVICES   */ 02100010
       4 XCTDREQ CHAR(1),                /* ACTIVATE LINK REQUEST    */ 02200010
      3 XCTDADDR CHAR(2),                /* NETWORK ADDRESS OF PU    */ 02300010
      3 XCTDSTAT FIXED(8);               /* STATUS                   */ 02400010
*/*                                                                  */ 02500010