expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
The code below copies a VB file of LRECL 197 to a FB file of 600
Code: |
//DFSORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Input dataset (VB)
//SORTOUT DD DSN=Output dataset, (FB)
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL VTOF,
BUILD=(5,193,600:X)
/* |
To increase the length of a FB file
Code: |
//DFSORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=Input file <<< LRECL=100
//SORTOUT DD DSN=Output file, <<< LRECL=330
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,(75,75),RLSE)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(330:X) |
|
|