Code: |
000100104Thank you for your interest in ********* @@PRODUCT 0002005 4**********d wants to be the only bank y r need and we are committed to providing 0003000 4convenient quali ts and services to our customers. Some of the benefits of banking |
Code: |
000100104Thank you for your interest in **********@@PRODUCT 0002005 4******* wants to be the only bank you'll ever need and we 0003000 4convenient quality products and services to our customers. So |
Code: |
//STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //INFILE DD DISP=SHR,DSN=Your Input FB80 byte file //* //DDOUT DD DSN=Your output FB103 byte file, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(1,1),RLSE), // LRECL=103 //SYSIN DD * $$FILEM SET PAD=ON $$FILEM DSC INPUT=INFILE OUTPUT=DDOUT //* |
Code: |
//STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //INFILE DD DISP=SHR,DSN=Your Input FB80 byte file //* //DDOUT DD DSN=Your output FB103 byte file, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(1,1),RLSE), // LRECL=103 //SYSIN DD * $$FILEM SET PAD=ON $$FILEM DSC INPUT=INFILE, $$FILEM PROC=* *FASTPROC OUTFIL FNAMES=DDOUT *REXXPROC OUTREC = CHANGE(OUTREC,'chng string','new string ') //* |
Code: |
//SYSIN DD * $$FILEM SET PAD=ON $$FILEM DSC INPUT=INFILE OUTPUT=DDOUT |
Code: |
000001 000100104Thank you for your interest in ******** @@PRODUCT 000002 0002005 4********* wants to be the only bank you'll eve 000003 r need and we are committed to providing 0003000 4convenient quality produc 000004 ts and services to our customers. Some of the benefits of banking 0004000 4wi 000005 h Fifth Third, one of the most successful banks in the country, includethe con 000006 enience of 0005000 4banking seven-days-a-week at full-service Banking Ce |
Code: |
000001 000100104Thank you for your interest in *********@@PRODUCT 000002 0002005 4******** wants to be the only bank you'll ever need and we are committed to providing 000003 0003000 4convenient quality products and services to our customers. Some of the benefits of banking 000004 0004000 4with *********, one of the most successful banks in the country, include the convenience of 000005 0005000 4banking seven-days-a-week at full-service Banking Centers located inside select grocery |
Code: |
//STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DISP=SHR,DSN=Your 80 byte input file //OUT DD SYSOUT=* //TOOLIN DD * RESIZE FROM(IN) TO(OUT) TOLEN(103) //* |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours