MACRO 01000017 &NAME TRSLSCTW &X2A=F10,&X3F=F24,&X4A=F24,&X4B=F13,&X4C=F24,&X4D=F11,-02000017 &X4E=F26,&X4F=F24,&X50=F24,&X5A=F24,&X5B=F24,&X5C=F24, -03000017 &X5D=F12,&X5E=F24,&X5F=F24,&X60=F1,&X61=F24,&X6A=F24, -04000017 &X6B=F14,&X6C=F24,&X6D=F24,&X6E=F24,&X6F=F2,&X7A=F3, -05000017 &X7B=F24,&X7C=F24,&X7D=F19,&X7E=F22,&X7F=F24 06000017 LCLA &CT,&N,&IND,&X 07000017 LCLC &B(29) 08000017 LCLC &LCTEMP 09000017 LCLC &LCNAME 10000017 ACTR 1000 11000017 &LCNAME SETC 'IECTSCTW' 12000017 AIF (T'&NAME EQ 'O').NONAM 13000017 &LCNAME SETC '&NAME' 14000017 .NONAM ANOP 15000017 SPACE 1 16000017 &LCNAME CSECT 17000017 * * TRANSLATION TABLE - EBCDIC TO ITA2 * 18000017 SPACE 1 19000017 .* 20000017 .* MACRO VARIABLE DECLARATIONS. 21000017 .* 22000017 .NONAME ANOP 23000017 &CT SETA &CT+1 24000017 .VIRG ANOP 25000017 &N SETA &N+1 26000017 AIF (&X EQ 0).LC2 27000017 &LCTEMP SETC '&X60.,&X61.,&X6A.,&X6B.,&X6C.,&X6D.,&X6E.,&X6F.,&X7A.,&-28000017 X7B.,&X7C.,&X7D.,&X7E.,&X7F.,'(&N,1) 29000017 AGO .NEXT 30000017 .LC2 ANOP 31000017 &LCTEMP SETC '&X2A.,&X3F.,&X4A.,&X4B.,&X4C.,&X4D.,&X4E.,&X4F.,&X50.,&-32000017 X5A.,&X5B.,&X5C.,&X5D.,&X5E.,&X5F.,'(&N,1) 33000017 .NEXT AIF ('&LCTEMP' EQ ',').TST 34000017 &B(&CT) SETC '&B(&CT)&LCTEMP' 35000017 AGO .VIRG 36000017 .TST ANOP 37000017 &B(&CT) SETC '&B(&CT).,,,' 38000017 AIF ('&B(&CT)'(1,1) EQ 'F').OKF 39000017 .ERR ANOP 40000017 &B(&CT) SETC '37' 41000017 &LCTEMP SETC '**X2AX3FX4AX4BX4CX4DX4EX4FX50X5AX5BX5CX5DX5EX5FX60X61X6-42000017 AX6BX6CX6DX6EX6FX7AX7BX7CX7DX7EX7F'(3*&CT,3) 43000017 .* 44000017 MNOTE 4,'*** IHB086 &LCTEMP INVALID KEYWORD, F24 ASSUMED' 45000017 AGO .END 46000017 .OKF AIF ('&B(&CT)'(4,1) NE ',').ERR 47000017 &IND SETA 2 48000017 AIF ('&B(&CT)'(3,1) NE ',').TSTC 49000017 AIF ('&B(&CT)'(2,1) EQ ',').ERR 50000017 &IND SETA 1 51000017 .TSTC ANOP 52000017 &LCTEMP SETC '&B(&CT)'(2,&IND) 53000017 &IND SETA &LCTEMP 54000017 AIF (&IND LE 0 OR &IND GT 32).ERR 55000017 &B(&CT) SETC '*38332E3230362B252C3A3E292726232D3D2A34213C2F3937353122-56000017 283F3B2420'(2*&IND,2) 57000017 .END AIF (&X NE 0).END1 58000017 AIF (&CT LT 15).NONAME 59000017 &X SETA 1 60000017 &N SETA 0 61000017 .END1 AIF (&CT LT 29).NONAME 62000017 * * 0 1 2 3 4 5 6 7 8 9 A B C D E F * * 63000017 DC X'1F37370237371F1F3737373737023737' 0 64000017 DC X'373737373702371F3737373737373737' 1 65000017 DC X'37373737370808373737&B(1).3737373737' 2 66000017 DC X'37371F3737373B0837373737373737&B(2)' 3 67000017 DC X'04373737373737373737&B(3)&B(4)&B(5)&B(6)&B(7)&B(8)' 4 68000017 DC X'&B(9)373737373737373737&B(10)&B(11)&B(12)&B(13)&B(14)&-69000017 B(15)' 5 70000017 DC X'&B(16)&B(17).3737373737373737&B(18)&B(19)&B(20)&B(21)&-71000017 B(22)&B(23)' 6 72000017 DC X'37373737373737373737&B(24)&B(25)&B(26)&B(27)&B(28)&B(2-73000017 9)' 7 74000017 DC X'3718130E1210160B050C373737373737' 8 75000017 DC X'371A1E090706030D1D0A373737373737' 9 76000017 DC X'373714011C0F19171511373737373737' A 77000017 DC X'37373737373737373737373737373737' B 78000017 DC X'3718130E1210160B050C373737373737' C 79000017 DC X'371A1E090706030D1D0A373737373737' D 80000017 DC X'373714011C0F19171511373737373737' E 81000017 DC X'2D3D39302A21353C2C23373737373737' F 82000017 SPACE 1 83000017 &SYSECT CSECT 84000017 MEXIT 85000017 MEND 86000017