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                                   
/*                                                               
//* 
; ; ; ;