*        %GOTO PLSXDPU;                                              /* 03000010
         MACRO                                                          06000010
         TXDPUD                                                         09000010
.*A000000-999999                                               @Y17XAXG 12000010
*               ... DEACTIVATE PU ...                                   15000010
IEDXDPUD DSECT                                                          18000010
XDPUCMD  DS    0XL2                     DACTPU COMMAND                  21000010
XDPUCODE DS    XL1                      COMMAND CODE                    24000010
XDPUTYPE DS    XL1                      TYPE DEACTIVATION               27000010
         MEND                                                        */ 30000010
*%PLSXDPU : ;                                                           33000010
*DECLARE                                                                36000010
*  1 IEDXDPUD  BASED(XDPUPTR),                                          39000010
*    2 XDPUCMD CHAR(2),                  /* DACTPU COMMAND           */ 42000010
*     3 XDPUCODE BIT(8),                 /* COMMAND CODE             */ 45000010
*     3 XDPUTYPE BIT(8);                 /* TYPE DEACTIVATION        */ 48000010
*/*                                                                  */ 51000010