*        %GOTO PLSXTMS;                 /*                              00080000
         MACRO                                                          00160000
         TXXTMSD                                                        00240000
.*A000000-999999                                               @Y17XAXF 00320000
*                                                                       00400000
*        TERMINATE SELF COMMAND                                         00480000
*                                                                       00560000
IEDXTMSD DSECT                                                          00640000
XTMSCODE DS    0CL3 .                   COMMAND CODE                    00720000
XTMSNETS DS    XL1 .                     NETWORK SERVICES IND           00800000
XTMSSESS DS    XL1 .                     SESSION SERVICES               00880000
XTMSREQ  DS    XL1 .                     TERMINATE SELF REQUEST         00960000
XTMSTYPE DS    BL1 .                    TYPE TERMINATION                01040000
XTMSTERM EQU   X'20' .                   ON=ORDERLY TERMINATE  @YM08991 01090010
*                                        OFF=FORCED TERMINATE  @YM08991 01140010
XTMSPTYP DS    CL1 .                     TYPE                           01200000
XTMSPLUN DS    XL1                      PRIMARY LU NAME FIELD  @YM06964 01240000
XTMSPLEN DS    XL1 .                     NAME FIELD LENGTH              01280000
XTMSPNME DS    0C .                      PRIMARY LU NAME                01360000
         MEND  */                                                       01440000
*%PLSXTMS:;                                                             01520000
*/*                                                                  */ 01600000
*/*      TERMINATE SELF COMMAND                                      */ 01680000
*/*                                                                  */ 01760000
* DECLARE                                                               01840000
* 1 IEDXTMSD BASED(XTMSPTR),                                            01920000
*  2 XTMSCODE CHAR(3),                  /* COMMAND CODE              */ 02000000
*   3 XTMSNETS CHAR(1),                 /*  NETWORK SERVICES IND     */ 02080000
*   3 XTMSSESS CHAR(1),                 /*  SESSION SERVICES         */ 02160000
*   3 XTMSREQ  CHAR(1),                 /*  TERMINATE SELF REQUEST   */ 02240000
*  2 XTMSTYPE BIT(8),                   /* TYPE TERMINATION          */ 02320000
*   3 *        BIT(2),                  /* UNUSED            @YM08991*/ 02325010
*   3 XTMSTERM BIT(1),                  /* TYPE TERMINATION  @YM08991*/ 02330010
*   3 *        BIT(5),                  /* UNUSED            @YM08991*/ 02335010
*  2 XTMSPLUN,                         /* NETWORK NAME OF LU @YM08533*/ 02400000
*   3 XTMSPTYP CHAR(1),                 /*  TYPE                     */ 02480000
*   3 XTMSPLEN FIXED(8),                /*  LENGTH OF NAME FIELD     */ 02560000
*   3 XTMSPNME CHAR(0);                 /*  PRIMARY LU NAME          */ 02640000
* DCL XTMSTRMF BIT(1) CONSTANT('0'B);   /* FORCED TERMINATE  @YM08991*/ 05640010
* DCL XTMSTRMO BIT(1) CONSTANT('1'B);   /* ORDERLY TERMINATE @YM08991*/ 08640010