//****
//DTSRS459 PROC
//****
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT BE459 CLEAN FILE
//             COND=(0,LT),
//             REGION=0K
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=&&BE459,DISP=(OLD,DELETE,DELETE)
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00005199
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00005299
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)                      00005399
//SORTOUT  DD  DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,
//             DISP=(OLD,KEEP,KEEP),
//*            DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSR459),DISP=SHR
//****