//*********************************************************************
//DTSRSORT PROC
//*
//*********************************************************************
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.PROD.BE321.RPT(+1),DISP=SHR
//SORTOUT  DD  DSN=&&SRTRPT,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(16384,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*********************************************************************