Code: |
//STEP0100 EXEC PGM=FILEAID //* //SYSLIST DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DD01 DD DSN=INPUT.FILE, // DISP=SHR //DD01O DD DSN=OUTPUT.FILE, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(X,Y),RLSE), // DCB=(RECFM=FB,LRECL=ZZZ,BLKSIZE=0) //SYSIN DD * $$DD01 COPY REPLALL=(01,00,X'81',C'A'), REPLALL=(01,00,X'82',C'B'), REPLALL=(01,00,X'83',C'C'), REPLALL=(01,00,X'84',C'D'), REPLALL=(01,00,X'85',C'E'), REPLALL=(01,00,X'86',C'F'), REPLALL=(01,00,X'87',C'G'), REPLALL=(01,00,X'88',C'H'), REPLALL=(01,00,X'89',C'I'), REPLALL=(01,00,X'91',C'J'), REPLALL=(01,00,X'92',C'K'), REPLALL=(01,00,X'93',C'L'), REPLALL=(01,00,X'94',C'M'), REPLALL=(01,00,X'95',C'N'), REPLALL=(01,00,X'96',C'O'), REPLALL=(01,00,X'97',C'P'), REPLALL=(01,00,X'98',C'Q'), REPLALL=(01,00,X'99',C'R'), REPLALL=(01,00,X'A2',C'S'), REPLALL=(01,00,X'A3',C'T'), REPLALL=(01,00,X'A4',C'U'), REPLALL=(01,00,X'A5',C'V'), REPLALL=(01,00,X'A6',C'W'), REPLALL=(01,00,X'A7',C'X'), REPLALL=(01,00,X'A8',C'Y'), REPLALL=(01,00,X'A9',C'Z'),OUT=0 /* |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours