Example 2

RESIZE FROM(OLD) TO(NEW) TOLEN(15) USING(CTL1)

This example illustrates how you can create larger records from a subset of smaller sorted records.

The CTL1CNTL data set contains:

    OMIT COND=(2,4,ZD,EQ,0)   
    SORT FIELDS=(1,1,CH,A)

The OLD data set has RECFM=FB and LRECL=5 with these 5-byte records:

The NEW data set will have RECFM=FB and LRECL=15 with these 15-byte records:

A0008C0005D0123
E0022F0053H0001
I1234

Note that before the records were resized, the two records with 0 in positions 2-5 were omitted, and the remaining records were sorted as directed by the DFSORT control statements in CTL1CNTL. The last output record was padded with blanks on the right to 15 bytes.