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