Tags

, , , , , , , , , ,

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

Advertisements