*        %GOTO PLSXAPU;                                      /*         03000010
         MACRO                                                          06000010
         TXAPUD                                                         09000010
.*A000000-999999                                               @Y17XAXG 12000010
*                   ACTPU COMMAND DSECT                                 15000010
IEDXAPUD DSECT                                                          18000010
XAPUCMD  DS    0XL9                     ACTPU COMMAND                   21000010
XAPUCODE DS    XL1                      COMMAND CODE                    24000010
XAPUTYPE DS    XL1                      TYPE ACTIVATION                 27000010
XAPUPROF DS    XL1                      FM AND TS PROFILES              30000010
XAPUSSCP DS    0XL6                     SSCP ID                         33000010
         DS    XL1                      LAST FOUR BITS ARE PU TYPE      36000010
XAPUBID  DS    XL5                      BINARY ID                       39000010
         MEND                                                        */ 42000010
*%PLSXAPU : ;                                                           45000010
*DECLARE                                                                48000010
*  1 IEDXAPUD BASED(XAPUPTR),                                           51000010
*   2 XAPUCMD CHAR(9),                   /* ACTPU COMMAND            */ 54000010
*    3 XAPUCODE CHAR(1),                 /* COMMAND CODE             */ 57000010
*    3 XAPUTYPE CHAR(1),                 /* TYPE ACTIVATION          */ 60000010
*    3 XAPUPROF CHAR(1),                 /* FM AND TS PROFILES       */ 63000010
*     4 XAPUFM BIT(4),                   /* FM PROFILE               */ 66000010
*     4 XAPUTS BIT(4),                   /* TS PROFILE               */ 69000010
*    3 XAPUSSCP BIT(48),                 /* SSCP ID                  */ 72000010
*     4 *        BIT(4),                 /* RESERVED                 */ 75000010
*     4 XAPUPTYP BIT(4),                 /* PU TYPE CONTAINING SSCP  */ 78000010
*     4 XAPUBID  BIT(40);                /* BINARY ID                */ 81000010
*/*                                                                  */ 84000010