MACRO                                                          02000010
&NAME    IEDRELS                                                        04000010
.*A000000-999999                                               @X50X9MH 06000010
.*C180000                                                      @Y17XAMG 07000010
         GBLA &IEDQZE(64)                                               08000010
         GBLB &IEDQZA(64)                                               10000010
         LCLB &NOGO                                                     12000010
.*                                                                      14000010
.* START MH ISSUED?                                                     16000010
         AIF (&IEDQZA(46)).CKSUBGP                             @Y17XAMG 18000010
         MNOTE 12,'*** IHB312 MUST FOLLOW STARTMH MACRO'                20000010
&NOGO    SETB  1                                                        22000010
.CKSUBGP ANOP                                                           24000010
.*                                                                      26000010
.* ISSUED IN INPUT SIDE OF MH?                                          28000010
         AIF   (&IEDQZA(1) AND NOT &IEDQZA(5)).ERRCHK                   30000010
         MNOTE 12,'*** IHB070 SEQUENCE ERROR - MUST FOLLOW INBLOCK,INHDX32000010
               R, OR INBUF MACRO'                                       34000010
&NOGO    SETB   1                                                       36000010
.*                                                                      38000010
.ERRCHK  AIF   (&NOGO).EXIT                                             40000010
&NAME    DS    0H                                                       42000010
         AIF   (&IEDQZE(4) NE 0).VCON                          @ZM41045 44000010
         ORG   IEDAS                                           @ZM41045 46000010
         DC    V(IEDQAS01)              RELEASE                @ZM41045 48000010
         ORG   ,                                               @ZM41047 50000010
.VCON    ANOP                                                           52000010
         IEDQVCON 4,IEDQAS                                     @ZM41042 54000010
         BAL      1,*+8                 BRANCH AROUND PARM LIST         56000010
         DC       AL1(&IEDQZE(4))       INDEX TO IEDQAS                 58000010
         DC       AL1(3)                PARM LIST LENGTH                60000010
         DC       XL1'D9'               CODE FOR IEDRELS MACRO @ZM41041 62000010
         DS       0H                                                    64000010
         L        15,IEDUI              LOAD R15 WITH ADDR OF QUI       66000010
         BALR     14,15                 BRANCH TO IEDQUI                68000010
.EXIT    ANOP                                                           70000010
         MEND                                                           72000010