MACRO 03000020 &NAME OUTEND 06000020 GBLB &IEDQZA(64) 09000020 GBLC &IEDQZC 12000020 .* VERSION DATED SEPTEMBER 22, 1970 16000020 .*A545000 S22026 16500010 SPACE 21000020 &IEDQZA(6) SETB 0 24000020 AIF ('&NAME' EQ '').NON 27000020 &NAME DS 0H 30000020 .NON AIF (&IEDQZA(11)).GLOB 33000020 OUTMSG 36000020 .GLOB ANOP 39000020 &IEDQZA(1) SETB 0 42000020 &IEDQZA(2) SETB 0 45000020 &IEDQZA(3) SETB 0 48000020 &IEDQZA(4) SETB 0 51000020 &IEDQZA(5) SETB 0 54000020 &IEDQZA(25) SETB 0 . S22026 54500010 &IEDQZA(26) SETB 0 55000020 &IEDQZA(46) SETB 0 57000020 &IEDQZC DC AL1(1),X'00' 60000020 &IEDQZC SETC 'IEDS'.'&SYSNDX' 63000020 &IEDQZA(28) SETB 0 66000020 SPACE 2 69000020 MEND 72000020