outfil in sort jcl - SORT JCL examples

What is OUTFIL ?

OUTFIL is the SORT option which is used to split the sorted data into multiple files. This tutorial contains couple of examples which will explain how you can use OUTFIL option with SORT utility.

How to use OUTFIL with SORT utility

Assume we have an input file with 100 records and our requirement is to copy these 100 records into 3 out files. Below is the syntax of how we can do this using OUTFIL parameter of SORT Utility.


Example JCL code to show the use of OUTFIL

//JOB1234   YOUR JOB CARD HERE
//SETP1   EXEC PGM=SORT                                                
//SYSPRINT DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSUDUMP DD SYSOUT=*                                                  
//REPORT1  DD SYSOUT=*                                                  
//SORTIN   DD DISP=SHR,DSN=YOUR.INPUT.FILE.HERE
//SORTOF01 DD DSN=YOUR.OUTPUT.FILE1.HERE,
//            DISP=(MOD,CATLG,DELETE),                                                  
//            SPACE=(TRK,(30,10),RLSE),                                       
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTOF02 DD DSN=YOUR.OUTPUT.FILE2.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTOF03 DD DSN=YOUR.OUTPUT.FILE3.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SYSIN    DD *                                                  
   SORT FIELDS=COPY                
        OUTFIL FILES=01,STOPAFT=30     
        OUTFIL FILES=02,SKIPREC=30,STOPAFT=30
        OUTFIL FILES=03,SKIPREC=60,STOPAFT=40
/*                                                               
//
OUTFIL with SORT utility
OUTFIL with SORT utility

The above code will copy the input file records into 3 output files. After successful execution of above job output files should contain the below record counts.

FILE1(SORTOF01) --> 30 records
FILE2(SORTOF02) --> 30 records
FILE3(SORTOF03) --> 40 records

How to use OUTFIL with SORT INCLUDE condition

Assume that we have following 6 records in the input file.

PETER 08
PETER 08
JOHN 06
TENDULKAR 09
JOHN 06
TENDULKAR 09

Our requirement is as below:

  1. copy the records which have name as "PETER" into first output file
  2. copy the records which have name as "JOHN" into second output file
  3. copy the records which have name as "TENDULKAR" into third output file


The above can be done by using the OUTFIL & INCLUDE with SORT utility. Below is the example JCL for this.


Example JCL code

//JOB1235   YOUR JOB CARD HERE
//SETP1   EXEC PGM=SORT                                                
//SYSPRINT DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSUDUMP DD SYSOUT=*                                                  
//REPORT1  DD SYSOUT=*                                                  
//SORTIN   DD DISP=SHR,DSN=YOUR.INPUT.FILE.HERE
//SORTOF01 DD DSN=YOUR.OUTPUT.FILE1.HERE,
//            DISP=(MOD,CATLG,DELETE),                                                  
//            SPACE=(TRK,(30,10),RLSE),                                       
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTOF02 DD DSN=YOUR.OUTPUT.FILE2.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTOF03 DD DSN=YOUR.OUTPUT.FILE3.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SYSIN    DD *                                                  
   SORT FIELDS=COPY                
        OUTFIL FILES=01,INCLUDE COND =(1,5,CH,EQ,C'PETER')    
        OUTFIL FILES=02,INCLUDE COND =(1,4,CH,EQ,C'JOHN')                        
        OUTFIL FILES=03,INCLUDE COND =(1,9,CH,EQ,C'TENDULKAR')                                       

/*                                                               
//
OUTFIL with SORT INCLUDE condition
OUTFIL with SORT INCLUDE condition

Check your knowledge

Other Examples of OUTFIL

1. Copy all the records from input file into two output files. Copy a portion of records(Based on condition) into the third output file.

2. Using OUTFIL with OUTREC.

3. Using STARTREC,ENDREC options with OUTFIL

1. Copy all the records from input file into two output files. Copy a portion of records(Based on condition) into the third output file

//JOB1236   YOUR JOB CARD HERE
//SETP1   EXEC PGM=SORT                                                
//SYSPRINT DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSUDUMP DD SYSOUT=*                                                  
//REPORT1  DD SYSOUT=*                                                  
//SORTIN   DD DISP=SHR,DSN=YOUR.INPUT.FILE.HERE
//FILE1    DD DSN=YOUR.OUTPUT.FILE1.HERE,
//            DISP=(MOD,CATLG,DELETE),                                                  
//            SPACE=(TRK,(30,10),RLSE),                                       
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//FILE2    DD DSN=YOUR.OUTPUT.FILE2.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//FILE3    DD DSN=YOUR.OUTPUT.FILE3.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SYSIN    DD *                                                  
   SORT FIELDS=COPY                
        OUTFIL FNAMES=(FILE1,FILE2)
        OUTFIL FNAMES=FILE3,INCLUDE COND =(1,4,CH,EQ,C'JOHN')                        
/*                                                               
//
Example code to copy all the records from input file into two output files and to copy a portion of records(Based on condition) into the third output file.
Example code to copy all the records from input file into two output files and to copy a portion of records(Based on condition) into the third output file.

2. Using OUTFIL with OUTREC

//JOB1237   YOUR JOB CARD HERE
//SETP1   EXEC PGM=SORT                                                
//SYSPRINT DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSUDUMP DD SYSOUT=*                                                  
//REPORT1  DD SYSOUT=*                                                  
//SORTIN   DD DISP=SHR,DSN=YOUR.INPUT.FILE.HERE
//FILE1    DD DSN=YOUR.OUTPUT.FILE1.HERE,
//            DISP=(MOD,CATLG,DELETE),                                                  
//            SPACE=(TRK,(30,10),RLSE),                                       
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//FILE2    DD DSN=YOUR.OUTPUT.FILE2.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//FILE3    DD DSN=YOUR.OUTPUT.FILE3.HERE,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SYSIN    DD *                                                  
   SORT FIELDS=COPY                
        OUTFIL FNAMES=(FILE1,FILE2)
        OUTFIL FNAMES=FILE3,INCLUDE COND =(1,4,CH,EQ,C'JOHN'),
        OUTREC=(1:1,4)        
/*                                                               
//
    
Example code to show the Use of OUTFIL with  OUTREC
Example code to show the Use of OUTFIL with OUTREC

3. Using STARTREC,ENDREC options with OUTFIL

//JOB1237   YOUR JOB CARD HERE
//SETP1   EXEC PGM=SORT                                                
//SYSPRINT DD SYSOUT=*                                                  
//SYSOUT   DD SYSOUT=*                                                  
//SYSUDUMP DD SYSOUT=*                                                  
//REPORT1  DD SYSOUT=*                                                  
//SORTIN   DD DISP=SHR,DSN=YOUR.INPUT.FILE.HERE
//FILE1    DD DSN=YOUR.OUTPUT.SPLIT.FILE1,
//            DISP=(MOD,CATLG,DELETE),                                                  
//            SPACE=(TRK,(30,10),RLSE),                                       
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//FILE2    DD DSN=YOUR.OUTPUT.SPLIT.FILE2,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//FILE3    DD DSN=YOUR.OUTPUT.SPLIT.FILE3,
//            DISP=(MOD,CATLG,DELETE),                                           
//            SPACE=(TRK,(30,10),RLSE),                                
//            UNIT=SYSDA,                                              
//            DCB=(RECFM=FB,LRECL=90,BLKSIZE=0)               
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(10,2),RLSE)                 
//SYSIN    DD *                                                  
   SORT FIELDS=COPY                
        OUTFIL FNAMES=FILE1,ENDREC=100
        OUTFIL FNAMES=FILE2,STARTREC=101,ENDREC=300
        OUTFIL FNAMES=FILE3,STARTREC=301,ENDREC=500        
/*                                                               
//
Example code which shows the use of OUTREC with STARTREC and ENDREC SORT options
Example code which shows the use of OUTREC with STARTREC and ENDREC SORT options

Above code will copy the first 100 records into first file, 200 records will be copied to second file starting from 101 to 300 and last 200 records will be copied to third file starting from 301 to 500.

More by this Author


No comments yet.

    Sign in or sign up and post using a HubPages Network account.

    0 of 8192 characters used
    Post Comment

    No HTML is allowed in comments, but URLs will be hyperlinked. Comments are not for promoting your articles or other sites.


    Click to Rate This Article
    working