*        %GOTO PLSMHTAB;                /* BILINGUAL HEADER             03000010
         MACRO                                                          06000010
         TMHTABD                                                        09000010
         SPACE                                                          12000010
.* CHANGE ACTIVITY AS FOLLOWS:                                          15000010
.*A000000-999999                                               @Y17XAXU 18000010
         SPACE                                                          21000010
IEDMHTD DSECT                                                           24000010
*                                                                       27000010
*        DSECT FOR MH TABLE                                             30000010
*                                                                       33000010
MHTABEND DS    0XL1 .                   FLAG FIELD                      36000010
MHFLGE   EQU   X'FF'                    END OF TABLE INDICATOR          39000010
MHNAME   DS    CL8 .                    MH NAME                         42000010
MHENTRY  DS    A .                      MH ENTRY ADDRESS                45000010
MHTABLEN EQU   *-IEDMHTD .              LENGTH OF MH TABLE ENTRY        48000010
         SPACE 2                                                        51000010
         MEND                           */                              54000010
*%PLSMHTAB : ;                                                          57000010
*DECLARE                                                                60000010
*  1 IEDMHTD BDY(WORD) BASED(IEDQMHTP),                                 63000010
*/*                                                                  */ 66000010
*/*      DSECT FOR MH TABLE                                          */ 69000010
*/*                                                                  */ 72000010
*   2 MHNAME CHAR(8),                   /* MH NAME                   */ 75000010
*    3 MHTABEND CHAR(1),                /* FLAG FIELD                */ 78000010
*   2 MHENTRY PTR(31);                  /* MH ENTRY ADDRESS          */ 81000010
* %MHTABLEN='LENGTH(IEDMHTD)';          /* LEN OF MH TABLE ENTRY     */ 82000010
*DCL MHFLGE BIT(8) CONSTANT('FF'X);     /* END OF TABLE INDICATOR    */ 84000010
*                                                                       93000010
*%MHEND: ;                              /* END OF MH TABLE           */ 96000010
*                                                                       99000010