Tuesday, November 23, 2010

Split a file

//***********************************************************

//SPLITFLS EXEC PGM=SORT

//***********************************************************

//SYSPRINT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

//SYSUDUMP DD SYSOUT=*

//SORTIN DD DSN=FILE1......,DISP=SHR

//SORTOF01 DD DSN=OUTPUTFILE1.......,

// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,

// SPACE=(CYL,(1,1),RLSE),

// RECFM=FB,LRECL=20

//SORTOF02 DD DSN=OUTPUTFILE2..............,

// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,

// SPACE=(CYL,(1,1),RLSE),

// RECFM=FB,LRECL=20

//SORTOF03 DD DSN=OUTPUTFILE3..............,

// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,

// SPACE=(CYL,(1,1),RLSE),

// RECFM=FB,LRECL=20

//SYSIN DD *

SORT FIELDS=COPY

OUTFIL FILES=01,ENDREC=200

OUTFIL FILES=02,STARTREC=201,ENDREC=400

OUTFIL FILES=03,STARTREC=401,ENDREC=700

//*