MACRO                                                          02000020
&NAME    LOCK  &TYPE,&CHARS,&BLANK=YES                                  04000020
         GBLA  &IEDQZD,&IEDQZE(64)                                      06000020
         GBLB  &IEDQZA(64)                                              08000020
         GBLC  &IEDQZB                                                  10000020
         LCLB  &LEN,&NOGO                                               12000020
.*             VERSION DATED OCTOBER 16, 1970                           14000020
         SPACE                                                          16000020
         AIF   (NOT &IEDQZA(9)).TSOCHK                              TSO 20000020
         MNOTE 12,'***  IHB312  MUST FOLLOW STARTMH MACRO WITH TSOMH=NO*22000020
               '                                                        24000020
&NOGO    SETB  1                                                        26000020
.TSOCHK  AIF   (&IEDQZA(3)).CHECK                                       28000020
         MNOTE 12,'***  IHB070  SEQUENCE ERROR-MUST FOLLOW INHDR MACRO' 32000020
&NOGO    SETB  1                                                        34000020
.CHECK   AIF   ('&TYPE' EQ '').CHAR                                     36000020
         AIF ('&TYPE' EQ 'MESSAGE' OR '&TYPE' EQ 'EXTEND').CHAR         38000020
         MNOTE 12,'***  IHB300  TYPE OPERAND INVALID AS SPECIFIED'      40000020
&NOGO    SETB  1                                                        42000020
.CHAR    AIF   (&NOGO).MEND                                             44000020
         AIF   ('&TYPE' EQ 'EXTEND').SKP                                46000020
&LEN     SETB  1                                                        48000020
.SKP     AIF   ('&NAME' EQ '').NON                                      50000020
&NAME    DS    0H                                                       52000020
.NON     AIF   ('&CHARS' EQ '').DOIT                                    54000020
         IEDQCHAR 8,&CHARS                                              56000020
         AIF   (&IEDQZA(24)).CHARERR                                    58000020
         AIF    (&IEDQZD LE 8).ORG                                      60000020
.CHARERR MNOTE 12,'***  IHB300  CHARACTER OPERAND INVALID AS SPECIFIED' 62000020
         AGO   .MEND                                                    64000020
.ORG     IEDQSCAN &IEDQZD,&CHARS,&BLANK                                 66000020
         AIF   (&IEDQZA(24)).MEND                                       68000020
         LTR   15,15                                                    70000020
         BNP   *+24                                                     72000020
         L     1,IEDADBUF .             GET BUFFER ADDRESS              74000020
         STH   15,24(,1) .              STORE SCAN POINTER IN BFR PFX   75000020
.DOIT    IEDQVCON 23,IEDQBE                                             76000020
         BAL   1,*+6                                                    78000020
         DC    AL1(&IEDQZE(23)),AL1(&LEN)                               80000020
         L     15,IEDUI                                                 82000020
         BALR  14,15                                                    84000020
.MEND    SPACE 2                                                        86000020
         MEND                                                           88000020