*        %GOTO STMHPLS;                 /* BILINGUAL HEADER             01000010
         MACRO                                                          02000010
         TSTMHD &DSECT=YES                                              03000010
.*A000000-999999                                               @Y17XAXF 04000010
         AIF   ('&DSECT' EQ 'YES').STMH001   IS DSECT STATEMENT REQ?    05000010
IEDSTMH  DS    0F                                                       06000010
         AGO   .STMH002                                                 07000010
.STMH001 ANOP                                                           08000010
IEDSTMH  DSECT                                                          09000010
         DS    0F                                                       10000010
.STMH002 ANOP                                                           11000010
*                                                                       12000010
*        DSECT FOR STARTMH GENERATION                                   13000010
*                                                                       14000010
STMHALT  DS    AL4 .               ALTERNATE MH ADDR                    15000010
STMHFLG2 DS    XL1 .               MH FLAGS                             16000010
STMHLCIN EQU   X'80' .                  LINE CONTROL IN                 17000010
STMHCONT EQU   X'40' .                  CONT= SPECIFIED                 18000010
STMHSTC  EQU   X'20' .                  CONT= OR STOP= SPECIFIED OPTION 19000010
STMHCONV EQU   X'10' .                  CONV= SPECIFIED                 20000010
STMHCOP  EQU   X'08' .                  CONV= SPECIFIED OPTION FIELD    21000010
STMHLOG  EQU   X'04' .                  LOGICAL= SPECIFIED              22000010
STMHLOP  EQU   X'02' .                  LOGICAL= SPECIFIED 2ND OPTION   23000010
STMHTSFG EQU   X'01' .                  TSO FLAG                        24000010
STMHTSO  DS    AL3 .               TSO REENTRY ADDR                     25000010
STMHLENG DS    AL1 .               PARAMETER LIST LENGTH                26000010
STMHSTCB DS    AL3 .               STCB ADDRESS                         27000010
STMHAEIX DS    XL1 .               OFFSET TO LOCOPT IF REQ              28000010
STMHLMDO EQU   X'02' .              LMD SPECIFIED IN OPTION             29000010
STMHLMD  EQU   X'01' .              LMD SPECIFIED                       30000010
STMHROUT DS    AL3 .               ADDRESS OF STARTMH STCB              31000010
STMHLOPO DS    AL1 .               POINTER TO LOGICAL= OPTION           32000010
STMHLMOP DS    0AL1 .              OPTION FIELD INDEX                   33000010
STMHCOPO DS    AL1 .               POINTER TO CONV= OPTION              34000010
STMHOPT  EQU   * .                 START OF OPTION POINTERS             35000010
STMHLEN  EQU   *-IEDSTMH .         LENGTH OF DSECT                      36000010
         MEND                                                           37000010
*                                                                    */ 38000010
*%STMHPLS:;                                                             39000010
*        %IF STMHLEN^=''                /* IS DCL STATEMENT REQUIRED */ 40000010
*          %THEN %GOTO STMHPLS1;                                        41000010
*DECLARE                                                                42000010
*  1 IEDSTMH  BASED BDY(WORD),                                          43000010
*        %GOTO STMHPLS2;                                                44000010
*%STMHPLS1:;                                                            45000010
*    2 IEDSTMH  CHAR(9) BDY(WORD),                                      46000010
*%STMHPLS2:;                                                            47000010
*/*                                                                  */ 48000010
*/*      DSECT FOR STARTMH GENERATION                                */ 49000010
*/*                                                                  */ 50000010
*      3 STMHALT  PTR(31),              /* ALTENTAE MH ADDR          */ 51000010
*      3 STMHFLG2 CHAR(1),              /* MH FLAGS                  */ 52000010
*        4 STMHLCIN BIT(1),             /*   LINE CONTROL IN         */ 53000010
*        4 STMHCONT BIT(1),             /*   CONT= SPECIFIED         */ 54000010
*        4 STMHSTC  BIT(1),             /*   CONT= OR STOP= SPEC OPT */ 55000010
*        4 STMHCONV BIT(1),             /*   CONV= SPECIFIED         */ 56000010
*        4 STMHCOP  BIT(1),             /*   CONV= SPECIFIED OPT FLD */ 57000010
*        4 STMHLOG  BIT(1),             /*   LOGICAL= SPECIFIED      */ 58000010
*        4 STMHLOP  BIT(1),             /*   LOGICAL= SPEC 2ND OPTION*/ 59000010
*        4 STMHTSFG BIT(1),             /*   TSO FLAG                */ 60000010
*      3 STMHTSO PTR(24),               /* TSO REENTRY ADDR          */ 61000010
*      3 STMHLENG CHAR(1),              /* PARAMETER LIST LENGTH     */ 62000010
*      3 STMHSTCB PTR(24),              /* STCB ADDRESS              */ 63000010
*      3 STMHAEIX BIT(8),               /* OFFSET TO LOCOPT IF REQ   */ 64000010
*        4 *        BIT(6),             /*  RESERVED                 */ 65000010
*        4 STMHLMDO BIT(1),             /*  LMD SPEC IF OPTION       */ 66000010
*        4 STMHLMD  BIT(1),             /*  LMD SPECIFIED            */ 67000010
*      3 STMHROUT PTR(24),              /* ADDR OF STARTMH STCB      */ 68000010
*      3 STMHLOPO PTR(8),               /* PTR TO LOGICAL OPTION     */ 69000010
*      3 STMHLMOP PTR(8),               /* OPTION FIELD INDEX        */ 70000010
*        4 STMHCOPO PTR(8),             /*  PTR TO CONV= OPT         */ 71000010
*      3 STMHOPT CHAR(0);               /* START OF OPTION FLD PTRS  */ 72000010
* %STMHLEN='LENGTH(IEDSTMH)';           /* LEN OF DSECT              */ 73000010