MACRO 02000020 &NAME DATETIME &DATE=YES,&TIME=YES 04000020 GBLA &IEDQZE(64) 06000020 GBLB &IEDQZA(64) 08000020 LCLA &CNT 10000020 .* VERSION DATED AUGUST 19, 1970 12000020 SPACE 14000020 AIF (NOT &IEDQZA(9)).TSOCHK TSO 16000020 MNOTE 12,'*** IHB312 MUST FOLLOW STARTMH MACRO WITH TSOMH=NO*18000020 ' 20000020 AGO .MEND TSO 22000020 .TSOCHK AIF (&IEDQZA(3) OR &IEDQZA(4)).BOTH 25000020 MNOTE 12,'*** IHB070 SEQUENCE ERROR-MUST FOLLOW INHDR OR OUT*28000020 HDR MACRO' 30000020 AGO .MEND 32000020 .BOTH AIF ('&DATE' EQ 'NO' AND '&TIME' EQ 'NO').MNOTE 34000020 AGO .ORGDTTM 36000020 .MNOTE MNOTE 12,'*** IHB066 INCONSISTENT OPERANDS' 38000020 AGO .MEND 40000020 .ORGDTTM IEDQVCON (11,38),(IEDQAC,IEDQAF) 42000020 AIF ('&DATE' EQ 'YES' OR '&DATE' EQ 'NO').TIME 44000020 .ERR MNOTE 12,'*** IHB300 DATE OR TIME OPERAND INVALID AS SPECIFI*46000020 ED' 48000020 AGO .MEND 50000020 .TIME AIF ('&TIME' NE 'YES' AND '&TIME' NE 'NO').ERR 52000020 &CNT SETA 0 54000020 AIF ('&DATE' EQ 'NO').SET 56000020 &CNT SETA 7 58000020 .SET AIF ('&TIME' EQ 'NO').OUT 60000020 &CNT SETA &CNT+9 62000020 .OUT ANOP 64000020 &NAME BAL 1,*+6 66000020 DC AL1(&IEDQZE(38)+3),AL1(&CNT) 68000020 L 15,IEDUI . TO EXPAND 70000020 BALR 14,15 72000020 LTR 15,15 . EXPAND SUCCESSFUL 74000020 BNZ *+16 . NO - DO NOT EXECUTE 76000020 BAL 1,*+6 78000020 DC AL1(&IEDQZE(11)),AL1(&CNT) 80000020 L 15,IEDUI . TO DATETIME 82000020 BALR 14,15 84000020 .MEND SPACE 2 86000020 MEND 88000020