Custom Search
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
/*
//*
;
;
;
;
Click the +1 button below to share it with your friends and colleagues
Share this if you liked it!
Comments
Post new comment