*        %GOTO PLSXALK;                                              /* 00004010
         MACRO                                                          00008010
         TXALKD                                                         00012010
.*A000000-999999                                               @Y17XAXG 00016010
*                       ... ACTIVATE LINK ...                           00020010
IEDXALKD DSECT                                                          00024010
XALKCMD  DS    0XL5                     ACTIVATE LINK COMMAND           00028010
XALKCODE DS    0XL3                     COMMAND CODE                    00032010
XALKNETS DS    XL1                      NETWORK SERVICES                00036010
XALKCONF DS    XL1                      CONFIGURATION SERVICES          00040010
XALKREQ  DS    XL1                      ACTIVATE LINK REQUEST           00044010
XALKADDR DS    XL2                      NETWORK ADDRESS OF LINK         00048010
         MEND                                                        */ 00052010
*%PLSXALK : ;                                                           00056010
*DECLARE                                                                00060010
*  1 IEDXALKD BASED(XALKPTR),                                           00064010
*    2 XALKCMD CHAR(5),                  /* ACTIVATE LINK COMMAND    */ 00068010
*     3 XALKCODE CHAR(3),                /* COMMAND CODE             */ 00072010
*      4 XALKNETS BIT(8),                /* NETWORK SERVICES         */ 00076010
*      4 XALKCONF BIT(8),                /* CONFIGURATION SERVICES   */ 00080010
*      4 XALKREQ BIT(8),                 /* ACTIVATE LINK REQUEST    */ 00084010
*     3 XALKADDR BIT(16);                /* NETWORK ADDRESS OF LINK  */ 00088010
*/*                                                                  */ 00092010