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

/*