ICETOOL - RESIZE Operator
Creates a larger record from multiple shorter records if the input length is smaller than the specified length.
Creates multiple shorter records from a larger record if the input length is greater than the specified length.
Produces fixed length output records of a specified length from fixed length input records.
Syntax: -

Required Operands: -
FROM -
Specifies the ddname of the input data set.
DD statement must supply for the ddname specified.
TO -
Specifies the ddname of the output data set.
DD statement must supply for the ddname specified.
TOLEN -
Specifies the record length to use for the resized output records.
n can be 1 to 32760.
Optional Operands: -
USING -
Specifies the first 4 characters of the ddname (xxxxCNTL) for the DFSORT control statement data set.
DD statement must supply for xxxxCNTL if USING(xxxx) is specified.
Example: -
Below example to resize the employees record length from 80 to 49.
Input: -
MTHUSR.INPUT.DATASET -

JCL: -
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- ***************************** Top of Data ****************************** //MTHUSRR JOB (123),'MTHUSR',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1), // NOTIFY=&SYSUID //* //STEP01 EXEC PGM=ICETOOL //INDD DD DSN=MTHUSR.INPUT.DATASET,DISP=SHR //OUTDD1 DD DSN=MTHUSR.OUTPUT.DATASET1, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA, // DCB=(DSORG=PS,RECFM=FB,LRECL=49,BLKSIZE=490) //TOOLIN DD * RESIZE FROM(INDD) TO(OUTDD1) TOLEN(49) /* //TOOLMSG DD DSN=MTHUSR.OUTPUT.TOOLMSG1,DISP=SHR //DFSMSG DD SYSOUT=* // **************************** Bottom of Data ****************************

OUTPUT: -
TOOLMSG: -

MTHUSR.OUTPUT.DATASET1: -

Explaining Solution: -
- INDD - Specifies the ddname for input dataset.
- OUTDD1 - Specifies the ddname for output dataset.
- TOOLIN DD * - Specifies the ICETOOL statements for DFSORT.
- TOOLMSG - Specifies ICETOOL message data set.
- DFSMSG - Specifies DFSORT message data set.
- RESIZE FROM(INDD) TO(OUTDD1) TOLEN(49) - Resizes the input records from the length 80 to the new length 49 and writes the records to the OUTDD1.