MACRO                                                          02000020
&NAME    OUTBUF &PATH=                                                  04000020
         GBLA  &IEDQZE(64)                                              06000020
         GBLB  &IEDQZA(64)                                              08000020
         GBLC  &IEDQZC,&IEDQZJ                                          10000020
         LCLB  &NOGO                                                    11000020
.*             VERSION DATED SEPTEMBER 28, 1970                         12000020
         SPACE                                                          14000020
&IEDQZA(6) SETB 1                                                       16000020
         AIF   (NOT &IEDQZA(46)).ERR1                                   17000020
         AIF   (NOT &IEDQZA(28)).SEQ                                    18000020
.ERR1    MNOTE 12,'***  IHB070  SEQUENCE ERROR - MUST FOLLOW STARTMH MA*19000020
               CRO'                                                     22000020
&NOGO    SETB  1                                                        24000020
.SEQ     AIF   (NOT &IEDQZA(1)).PARM                                    26000020
         MNOTE 12,'***  IHB070  SEQUENCE ERROR - MUST NOT FOLLOW INCOMIN28000020
               NG DELIMITER GROUP'                                      30000020
&NOGO    SETB  1                                                        32000020
.PARM    AIF   ('&PATH' EQ '').GLOB                                     34000020
         AIF   ('&PATH(1)' EQ '' OR '&PATH(2)' EQ '').ERR               35000020
         AIF   ('&PATH(2)' EQ '0' OR '&PATH(2)' EQ 'X''0''' OR '&PATH(2*36000020
               )' EQ 'X''00''' OR '&PATH(2)'(1,2) EQ 'XL').ERR          37000020
         IEDQMASK &PATH(2),1                                            38000020
         AIF   (NOT &IEDQZA(24)).GLOB                                   39000020
.ERR     MNOTE 12,'***  IHB300  PATH OPERAND INVALID AS SPECIFIED'      40000020
&NOGO    SETB  1                                                        41000020
.GLOB    AIF   (&NOGO).MEND                                             42000020
         AIF   ('&NAME' EQ '').NON                                      43000020
&NAME    DS    0H                                                       48000020
.NON     ANOP                                                           50000020
&IEDQZA(1) SETB 0                                                       52000020
&IEDQZA(2) SETB 1                                                       54000020
&IEDQZA(3) SETB 0                                                       56000020
&IEDQZA(4) SETB 0                                                       58000020
&IEDQZA(5) SETB 0                                                       60000020
&IEDQZC  DS    0H                                                       62000020
&IEDQZC  SETC  'IEDS'.'&SYSNDX'                                         64000020
         AIF   (NOT &IEDQZA(20) OR '&IEDQZJ' EQ '').A                   67000020
&IEDQZJ  DS    0H                                                       70000020
.A       AIF   ('&PATH' EQ '').MEND                                     73000020
         LOCOPT &PATH(1)                                                76000020
         AIF   (&IEDQZA(61)).MEND                                       78000020
         LTR   15,15 .                  OPTION FIELD FOUND              80000020
         BZ    &IEDQZC .                NO - GO TO NEXT DELIM           82000020
         TM    0(15),&PATH(2) .         PATH SWITCHES ON                84000020
         BZ    &IEDQZC .                NO - GO TO NEXT DELIM           86000020
.MEND    SPACE 2                                                        88000020
&IEDQZJ  SETC  ''                                                       90000020
&IEDQZA(20) SETB 0                                                      94000020
         MEND                                                           96000020