*        %GOTO PLSXCON;                                              /* 00100010
         MACRO                                                          00200010
         TXCOND                                                         00300010
.*A000000-999999                                               @Y17XAXG 00400010
*                       ... CONTACT ...                                 00500010
IEDXCOND DSECT                                                          00600010
XCONCMD  DS    0XL5                     CONTACT COMMAND                 00700010
XCONCODE DS    0XL3                     COMMAND CODE                    00800010
XCONNETS DS    XL1                      NETWORK SERVICES                00900010
XCONCONF DS    XL1                      CONFIGURATION SERVICES          01000010
XCONREQ  DS    XL1                      CONTACT REQUEST                 01100010
XCONADDR DS    XL2                      NETWORK ADDRESS OF PU           01200010
         MEND                                                        */ 01300010
*%PLSXCON : ;                                                           01400010
*DECLARE                                                                01500010
*  1 IEDXCOND BASED(XCONPTR),                                           01600010
*    2 XCONCMD CHAR(5),                  /* CONTACT COMMAND          */ 01700010
*     3 XCONCODE CHAR(3),                /* COMMAND CODE             */ 01800010
*      4 XCONNETS CHAR(1),               /* NETWORK SERVICES         */ 01900010
*      4 XCONCONF CHAR(1),               /* CONFIGURATION SERVICES   */ 02000010
*      4 XCONREQ CHAR(1),                /* CONTACT REQUEST          */ 02100010
*     3 XCONADDR CHAR(2);                /* NETWORK ADDRESS OF PU    */ 02200010
*/*                                                                  */ 02300010