MACRO 02000010 &NAME QACTION &EXIT=,&TYPE=V 04000010 GBLB &IEDQZA(64) 06000010 GBLA &IEDQZE(64) 08000010 LCLB &NOGO 10000010 LCLC &C,&T 12000010 .* VERSION DATED AUGUST 19, 1971 14000010 SPACE 16000010 AIF (NOT &IEDQZA(9)).CONCHK 18000010 MNOTE 12,'*** IHB312 MUST FOLLOW STARTMH MACRO WITH TSOMH=NO' 20000010 &NOGO SETB 1 22000010 .CONCHK ANOP 24000010 AIF (&IEDQZA(13)).CSPEC 26000010 MNOTE 8,'*** IHB233 INCONSISTENT WITH FEATURE OPERAND OF THE IX28000010 NTRO MACRO' . 30000010 &NOGO SETB 1 32000010 .CSPEC ANOP 34000010 AIF (&IEDQZA(3)).QA1 36000010 MNOTE 12,'*** IHB070 SEQUENCE ERROR- MUST FOLLOW INHDR MACRO' 38000010 &NOGO SETB 1 40000010 .QA1 AIF ('&EXIT' NE '').QA2 42000010 MNOTE 12,'*** IHB001 EXIT OPERAND REQ''D- NOT SPECIFIED' 44000010 &NOGO SETB 1 46000010 .QA2 ANOP 48000010 &T SETC '&TYPE' 50000010 AIF ('&TYPE' EQ 'V' OR '&TYPE' EQ 'A').QA3 52000010 &T SETC 'V' 54000010 MNOTE 4,'*** IHB086 TYPE INVALID KEYWORD, V ASSUMED' 56000010 .QA3 AIF (&NOGO).MEND 58000010 &C SETC 'IEDQBQ' 60000010 IEDQVCON 49,&C 62000010 CNOP 0,4 64000010 &NAME BAL 1,*+12 . SKIP PARAMETER LIST 66000010 DC AL1(&IEDQZE(49)),AL1(8),AL2(0) 68000010 DC &T.(&EXIT) 70000010 L 15,IEDUI . EXIT TO QACTION MODULE 72000010 BALR 14,15 74000010 .MEND SPACE 2 76000010 MEND 78000010