JCL FOR SPLITTING DATA USING OUTFIL

JCL FOR SPLITTING DATA USING OUTFIL

The following JCL can be used for splitting files using SORT OUTFIL.

//SORTJCL JOB (XXXXXXXX,,,,,XXXX),' ',

// CLASS=M,MSGCLASS=T,

// REGION=0M,NOTIFY=&SYSUID

//*

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

//DEL EXEC PGM=IEFBR14

//DD01 DD DSN=USERID.ABC.OUTFIL1,

// DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1))

//DD02 DD DSN=USERID.ABC.OUTFIL1,

// DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1))

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

//SETP001 EXEC PGM=SORT

//SYSPRINT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

//SYSUDUMP DD SYSOUT=*

//REPORT1 DD SYSOUT=*

//SORTIN DD DISP=SHR,DSN=USERID.ABC.INPFILE

//SORTOF01 DD DSN=USERID.ABC.OUTFIL1,

// DISP=(,CATLG),

// SPACE=(TRK,(30,10),RLSE),

// UNIT=SYSDA,

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)

//SORTOF02 DD DSN=USERID.ABC.OUTFIL2,

// DISP=(,CATLG),

// SPACE=(TRK,(30,10),RLSE),

// UNIT=SYSDA,

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)

//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(20,5),RLSE)

//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(20,5),RLSE)

//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(20,5),RLSE)

//SYSIN DD *

YOUR SORT CARD WILL COME HERE

//*

; ; ; ;