Clicky
Skip to Content
Custom Search

Reply to comment

Sort JCL to Remove duplicates

 

REMOVING DUPLICATES FROM INPUT FILE AND WRITE DUPLICATES TO A FILE    
 
 
//SREMDUPL JOB (XXXXXXXX,,,,,XXXX),'        ',      
//             CLASS=J,MSGCLASS=Y,NOTIFY=&SYSUID,   
//             REGION=0M                            
//* THIS JOB SORTS THE INPUT FILE AND REMOVES       
//* ALL DUPLICATES                                  
//* AND                                             
//* WRITES DISTINCT  RECORDS IN SORTOUT             
//* WRITES DUPLICATE RECORDS IN SORTXSUM            
//STEP001  EXEC PGM=IEFBR14                         
//SYSOUT   DD SYSOUT=*                              
//SYSUDUMP DD SYSOUT=*                              
//DD01     DD DSN=USERID.ABC.DISTINCT,              
//         DISP=(MOD,DELETE,DELETE),UNIT=DISK       
//DD02     DD DSN=USERID.ABC.DUPLICAT,              
//         DISP=(MOD,DELETE,DELETE),UNIT=DISK       
//*                                                 
//STEP001  EXEC PGM=SORT                            
//SYSOUT   DD  SYSOUT=*                             
//SYSPRINT DD  SYSOUT=*                             
//SYSUDUMP DD  SYSOUT=*                                                 
//REPORT1  DD  SYSOUT=*                                                 
//SORTIN   DD  DISP=SHR,DSN=USERID.ABC.INPFILE                          
//SORTOUT  DD DSN=USERID.ABC.DISTINCT,                                  
//            DISP=(NEW,CATLG,CATLG),UNIT=SYSDA,SPACE=(CYL,(2,2)),      
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                         
//SORTXSUM DD DSN=USERID.ABC.DUPLICAT,                                  
//            DISP=(NEW,CATLG,CATLG),UNIT=SYSDA,SPACE=(CYL,(2,2)),      
//            DCB=(RECFM=FB,LRECL=100,BLKSIZE=0)                        
//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=(1,22,CH)                                                  
 SUM FIELDS=NONE,XSUM                                                   
/*                                                                      
 

Reply

  • Allowed HTML tags:
      1. Lines and paragraphs break automatically.

    More information about formatting options

    CAPTCHA
    This question is for testing whether you are a human visitor and to prevent automated spam submissions.

Navigation

Click the +1 button  below to share it with your friends and colleagues

 

Share this if you liked it!

 

Disclaimer



Number of Registered users 1252
Theme by Dr. Radut.