*        %GOTO PLSXUNB;                                              /* 03000010
         MACRO                                                          06000010
         TXUNBD                                                         09000010
.*A000000-999999                                               @Y17XAXG 12000010
*                       ... UNBIND ...                                  15000010
IEDXUNBD DSECT                                                          18000010
XUNBCMD  DS    0XL2                     UNBIND COMMAND                  21000010
XUNBCODE DS    XL1                      COMMAND CODE                    24000010
XBNDTYPE DS    XL1                      TYPE ACTIVATION                 27000010
         MEND                                                        */ 30000010
*%PLSXUNB : ;                                                           33000010
*DECLARE                                                                36000010
*  1 IEDXUNBD BASED(XUNBPTR),                                           39000010
*    2 XUNBCMD CHAR(2),                  /* UNBIND COMMAND           */ 42000010
*     3 XUNBCODE CHAR(1),                /* COMMAND CODE             */ 45000010
*     3 XBNDTYPE CHAR(1);                /* TYPE ACTIVATION          */ 48000010
*/*                                                                  */ 51000010