//ECNT800Z JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X,
//         NOTIFY=ECNTZL1,REGION=0M
//****
//STEP0100 EXEC PGM=SORT,         SORT REPORT RECORDS   
//             COND=(4,LT)                                              
//SYSOUT DD SYSOUT=(*)                                                  
//SYSPRINT DD SYSOUT=(*)                                                
//SORTIN  DD  DSN=DOESTAX.PROD.SRTDAILY.RPT(+0),DISP=SHR                
//****                                                                  
//SORTOUT  DD  DSN=&&SRTOUT, 
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,                                           
//             SPACE=(8192,(1000,1000),RLSE),                        
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=0)                
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 
//****                                                                  
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                    
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                    
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)