MACRO 03000010 &NAME IEDOPCTL &BLANK=YES 06000010 .*A-000000-999999 @X31X8R0 07000010 GBLA &IEDQZE(64) 09000010 GBLB &IEDQZA(64) 12000010 .* THIS MACRO HAS BEEN ADDED FOR VS/TCAM LEVEL 8 15000010 .* VERSION DATED JANUARY 30, 1974 18000010 SPACE 21000010 AIF (&IEDQZA(3) AND &IEDQZA(1)).OPCTL 24000010 MNOTE 12,'*** IHB070 SEQUENCE ERROR - MUST FOLLOW INHDR MACR*27000010 O' 30000010 AGO .MEND 33000010 .OPCTL IEDQVCON 12,IEDQAQ 36000010 CNOP 0,4 39000010 AIF ('&NAME' EQ '').NON 42000010 &NAME DS 0H 45000010 .NON ANOP 48000010 IEDQSCAN 255,,&BLANK 51000010 AIF (&IEDQZA(24)).MEND 54000010 LTR 15,15 57000010 BM *+16 60000010 LR 1,15 . MACRO PARM LIST ADDRESS 63000010 L 15,IEDMSGS-1 . OPTIONAL VCON LIST 66000010 L 15,&IEDQZE(12)(,15) . IEDQAQ'S VCON LIST INDEX 69000010 BALR 14,15 . TEST FOR OPERATOR CONTROL 72000010 .MEND ANOP 75000010 SPACE 2 78000010 MEND 81000010