ICETOOL has an option RESIZE which is helpful when we want to create multiple records by splitting a single large record. User need to know the input LRECL and the new LRECL needed for the output file.
Suppose you have input file (LRECL = 9) with each record length of 9 bytes, if you want to split each record into 3 records and create an output file (LRECL = 3) with 3 bytes, then use below sort jcl
//STEP01 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=YOUR.INPUT.FILE
//OUTFILE DD DSN=YOUR.OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(5,1),RLSE),
// DCB=(RECFM=FB,LRECL=3,BLKSIZE=0)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
RESIZE FROM(IN1) TO(OUT1) TOLEN(3)
//*
Ex:
Input File
111222333
444555666
Output File
111
222
333
444
555
666
——————————————————————————————————–
If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog
——————————————————————————————————–
You may also like to look at:
F1 for Mainframe 