SORT JCL with OMIT

 

SORT JCL with OMIT
 
 
If you wish to exclude certain records which match a specific criteria.(Using OMIT)
 
 
SORT FIELDS=COPY                                        
OMIT COND=((34,2,CH,EQ,C'AB'),AND,(74,1,CH,EQ,C' ')) 
 
 
The above SORT card will exclude records which have 'AB' at 34th position and have spaces at 74th position.
 
 
Example JCL is provided below.
; ; ; ;
 
//SETP001  EXEC PGM=SORT                                         
//SYSPRINT DD SYSOUT=*                                           
//SYSOUT   DD SYSOUT=*                                           
//SYSUDUMP DD SYSOUT=*                                           
//REPORT1  DD SYSOUT=*                                           
//SORTIN   DD DISP=SHR,DSN=USERID.ABC.INPFILE,
//SORTOUT  DD DSN=USERID.ABC.OUTFILE,
//      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 *                                      
SORT FIELDS=COPY                                        
OMIT COND=((34,2,CH,EQ,C'AB'),AND,(74,1,CH,EQ,C' ')) 
/*                                                   
//*