*        %GOTO PLSXALU;                                              /* 00100010
         MACRO                                                          00200010
         TXALUD                                                         00300010
.*A000000-999999                                               @Y17XAXG 00400010
*                       ... ACTIVATE LU ...                             00500010
IEDXALUD DSECT                                                          00600010
XALUCMD  DS    0XL3                     ACTLU COMMAND                   00700010
XALUCODE DS    XL1                      COMMAND                         00800010
XALUTYPE DS    XL1                      TYPE ACTIVATION                 00900010
XALUPROF DS    XL1                      FM AND TS PROFILES              01000010
         MEND                                                        */ 01100010
*%PLSXALU : ;                                                           01200010
*DECLARE                                                                01300010
*  1 IEDXALUD BASED(XALUPTR),                                           01400010
*    2 XALUCMD,                          /* ACTLU COMMAND            */ 01500010
*     3 XALUCODE CHAR(1),                /* COMMAND CODE             */ 01600010
*     3 XALUTYPE CHAR(1),                /* TYPE ACTIVATION          */ 01700010
*     3 XALUPROF CHAR(1),                /* FM AND TS PROFILES       */ 01800010
*      4 XALUFM BIT(4),                  /* FM PROFILE               */ 01900010
*      4 XALUTS BIT(4);                  /* TS PROFILE               */ 02000010
*/*                                                                  */ 02100010