*        %GOTO PLSXDLK;                                              /* 00100010
         MACRO                                                          00200010
         TXDLKD                                                         00300010
.*A000000-999999                                               @Y17XAXG 00400010
*                       ... DEACTIVATE LINK ...                         00500010
IEDXDLKD DSECT                                                          00600010
XDLKCMD  DS    0XL5                     DEACTIVATE LINK COMMAND         00700010
XDLKCODE DS    0XL3                     COMMAND CODE                    00800010
XDLKNETS DS    XL1                      NETWORK SERVICES                00900010
XDLKCONF DS    XL1                      CONFIGURATION SERVICES          01000010
XDLKREQ  DS    XL1                      DEACTIVATE LINK REQUEST         01100010
XDLKADDR DS    XL2                      NETWORK ADDRESS OF LINK         01200010
         MEND                                                        */ 01300010
*%PLSXDLK : ;                                                           01400010
*DECLARE                                                                01500010
*  1 IEDXDLKD BASED(XDLKPTR),                                           01600010
*    2 XDLKCMD CHAR(5),                  /* DEACTIVATE LINK COMMAND  */ 01700010
*     3 XDLKCODE CHAR(3),                /* COMMAND CODE             */ 01800010
*      4 XDLKNETS CHAR(1),               /* NETWORK SERVICES         */ 01900010
*      4 XDLKCONF CHAR(1),               /* CONFIGURATION SERVICES   */ 02000010
*      4 XDLKREQ CHAR(1),                /* DEACTIVATE LINK REQUEST  */ 02100010
*     3 XDLKADDR CHAR(2);                /* NETWORK ADDRESS OF LINK  */ 02200010
*/*                                                                  */ 02300010