MACRO                                                          04000020
&NAME    CHECKPT                                                        08000020
         GBLA  &IEDQZE(64)                                              12000020
         GBLB  &IEDQZA(64)                                              16000020
*  CHANGE ACTIVITY AS FOLLOWS                                           20000010
********************MICROFICHE FLAGS ************************ SUPT CODE 20000110
.*C760000                                                       SA64688 20000210
.*             VERSION DATED JUNE 1, 1973                       SA64688 20000310
         SPACE                                                          24000020
         AIF   (NOT &IEDQZA(9)).SCHK                                    25000020
         MNOTE 12,'***  IHB312  MUST FOLLOW STARTMH MACRO WITH TSOMH=NO*26000020
               '                                                        27000020
         AGO   .MEND                                                    28000020
.SCHK    AIF   (&IEDQZA(1) OR &IEDQZA(2)).OK                            29000020
         MNOTE 12,'***  IHB070  SEQUENCE ERROR - MUST FOLLOW INHDR, INB*32000020
               UF, INMSG, OUTHDR, OUTBUF OR OUTMSG MACRO'               36000020
         AGO   .MEND                                                    40000020
.OK      IEDQVCON 41,IEDQBB                                             44000020
         AIF   (&IEDQZA(5)).MSG                                         48000020
&NAME    BAL   1,*+6                                                    52000020
         DC    AL1(&IEDQZE(41)),AL1(2)                                  56000020
         L     15,IEDUI                                                 60000020
         BALR  14,15                                                    64000020
         AGO   .MEND                                                    68000020
.MSG     ANOP                                                           72000020
&NAME    DC    AL1(&IEDQZE(41)+1),AL1(4),AL2(0) .               SA64688 76000010
         AIF   (NOT &IEDQZA(1)).MEND                                    80000020
&IEDQZA(18)  SETB  1                                                    84000020
.MEND    SPACE 2                                                        88000020
         MEND                                                           92000020