//****
//EFTXSORT PROC
//****                                /*  PRODUCING THE SORTIN FILE
//****
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS
//             COND=(0,LT),
//             REGION=0K
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.&MSTNODE..DOESERR,
//             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=&&SRTRPT,
//             DISP=(,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
//****