MACRO 01000020 &NAME PRIORITY &LEV,&CHARS,&BLANK=YES 02000020 GBLA &IEDQZD 03000020 GBLB &IEDQZA(64) 04000020 GBLC &IEDQZB 05000020 LCLB &NOGO 07000020 LCLC &PARM 08000020 .*C280000 @OZ09935 08300010 .* VERSION DATED JULY 14,1976 @OZ09935 08600010 SPACE 10000020 AIF (NOT &IEDQZA(9)).TSOCHK TSO 12000020 MNOTE 12,'*** IHB312 MUST FOLLOW STARTMH MACRO WITH TSOMH=NO*13000020 ' 14000020 &NOGO SETB 1 15000020 .TSOCHK ANOP TSO 16000020 &PARM SETC 'IEDT'.'&SYSNDX' 17000020 AIF (&IEDQZA(3)).CHECK 18000020 MNOTE 12,'*** IHB070 SEQUENCE ERROR-MUST FOLLOW INHDR MACRO' 19000020 &NOGO SETB 1 20000020 .CHECK AIF ('&LEV' EQ '').CHARCHK 21000020 AIF ('&LEV'(K'&LEV,1) EQ '''').LENERR 22000020 IEDQMASK &LEV,1 23000020 AIF (NOT &IEDQZA(24)).CHARCHK 24000020 .LENERR MNOTE 12,'*** IHB300 LEVEL OPERAND INVALID AS SPECIFIED' 25000020 &NOGO SETB 1 26000020 .CHARCHK ANOP @OZ09935 27000010 CNOP 0,4 @OZ09935 28000010 &NAME DS 0H @OZ09935 28500010 .NON AIF ('&CHARS' EQ '').DOIT 29000020 IEDQCHAR 8,&CHARS 30000020 AIF (&IEDQZA(24)).ERR 31000020 AIF (&IEDQZD LE 8).ORG 32000020 .ERR MNOTE 12,'*** IHB300 CHARACTER OPERAND INVALID AS SPECIFIED' 33000020 &NOGO SETB 1 34000020 .ORG AIF (&NOGO).MEND 35000020 IEDQSCAN &IEDQZD,&CHARS,&BLANK 36000020 AIF (&IEDQZA(24)).MEND 37000020 LTR 15,15 38000020 BNP &PARM 39000020 L 1,IEDADBUF . GET BUFFER ADDRESS 40000020 STH 15,24(,1) . PUT SCAN IN BUFFER 41000020 .DOIT AIF (&NOGO).MEND 42000020 AIF ('&LEV' NE '').PLUSP 43000020 .GO ANOP 44000020 &IEDQZA(8) SETB 1 45000020 IEDQSCAN 1,,&BLANK 46000020 &IEDQZA(8) SETB 0 47000020 AIF (&IEDQZA(24)).MEND 48000020 LTR 15,15 49000020 BM &PARM 50000020 AGO .ICSTC 51000020 .PLUSP MVI IEDDOUBL,&LEV 52000020 .ICSTC L 15,IEDADBUF . GET BUFFER ADDRESS FROM AVT 52600020 TM 20(15),X'01' . BYPASS IF NOT FIRST HEADER BFR 53200020 BO &PARM 53800020 IC 1,IEDDOUBL . GET PRIORITY 54400020 L 15,12(15) . GET LCB FROM BUFFER 55000020 L 15,92(,15) . GET SCB FROM LCB 56000020 STC 1,8(15) . SET SCB PRIORITY 57000020 &PARM DS 0H 58000020 .MEND SPACE 2 59000020 MEND 60000020