*        %GOTO PLSXDSC;                                              /* 03000010
         MACRO                                                          06000010
         TXDSCD                                                         09000010
.*A000000-999999                                               @Y17XAXG 12000010
*                       ... DISCONTACT ...                              15000010
IEDXDSCD DSECT                                                          18000010
XDSCCMD  DS    0XL5                     DISCONTACT COMMAND              21000010
XDSCCODE DS    0XL3                     COMMAND CODE                    24000010
XDSCNETS DS    XL1                      NETWORK SERVICES                27000010
XDSCCONF DS    XL1                      CONFIGURATION SERVICES          30000010
XDSCREQ  DS    XL1                      DISCONTACT REQUEST              33000010
XDSCADDR DS    XL2                      NETWORK ADDRESS OF PU           36000010
         MEND                                                        */ 39000010
*%PLSXDSC : ;                                                           42000010
*DECLARE                                                                45000010
*  1 IEDXDSCD BASED(XDSCPTR),                                           48000010
*    2 XDSCCMD CHAR(5),                  /* DISCONTACT COMMAND       */ 51000010
*     3 XDSCCODE CHAR(3),                /* COMMAND CODE             */ 54000010
*      4 XDSCNETS CHAR(1),               /* NETWORK SERVICES         */ 57000010
*      4 XDSCCONF CHAR(1),               /* CONFIGURATION SERVICES   */ 60000010
*      4 XDSCREQ CHAR(1),                /* DISCONTACT REQUEST       */ 63000010
*     3 XDSCADDR CHAR(2);                /* NETWORK ADDRESS OF PU    */ 66000010
*/*                                                                  */ 69000010