MACRO 02000000 IEDUEND 04000000 GBLB &IEDTBIN,&IEDPSIN,&IEDVBIN 06000000 GBLC &IEDREQ(64),&IEDVERB(64),&IEDDVAL 08000000 LCLA &CTR COUNTER 10000000 .*A000000-999999 @Y17XAFF 12000000 .*C180000 @OZ31901 12000182 &CTR SETA 1 14000000 .A0010 ANOP 16000000 AIF (&CTR GT 64).A0030 @OZ31901 18000082 AIF ('&IEDREQ(&CTR)' EQ '').A0030 20000000 AIF ('&IEDREQ(&CTR)' EQ '0').A0020 22000000 MNOTE 12,'*** IEDU22 &IEDREQ(&CTR) WAS NOT CODED FOR PREVIOUS *24000000 VERB.' 26000000 .A0020 ANOP 28000000 &IEDREQ(&CTR) SETC '' 30000000 &CTR SETA &CTR+1 32000000 AGO .A0010 34000000 .A0030 ANOP 36000000 AIF ('&IEDDVAL' EQ '').A0040 IS DEFAULT VALUE ENTRY REQD 38000000 IEDUVAL ,&IEDDVAL 40000000 .A0040 ANOP 42000000 DC X'00' . END OF TABLE 43000000 EJECT 44000000 TXINSD 46000000 SPACE 48000000 TXXTMSD 50000000 EJECT 52000000 TUSSVD 54000000 SPACE 56000000 TUSSKD 58000000 EJECT 60000000 TUSSPD 62000000 SPACE 64000000 TUSSDD 66000000 EJECT 68000000 TUSSFD 70000000 AIF (&IEDTBIN).A0050 72000000 MNOTE 12,'*** IEDU80 IEDUTAB MUST BE CODED.' 74000000 .A0050 AIF (&IEDPSIN).A0060 76000000 MNOTE 12,'*** IEDU81 A IEDUPARM MACRO MUST BE CODED.' 78000000 .A0060 AIF (&IEDVBIN).A0070 80000000 MNOTE 12,'*** IEDU82 A IEDUVERB MACRO MUST BE CODED.' 82000000 .A0070 ANOP 84000000 END 86000000 MEND 88000000