//*******************************************************************   00020105
//* THIS JOB WILL EXTRACT THE REPORT TYPES TO BE ARCHIVED FROM THE  *   00020205
//* DAILY RUN.                                                    * *   00020305
//*                                                                 *   00020405
//*******************************************************************   00020805
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0',         SORT REPORT RECORDS   00031000
//             COND=(4,LT)                                              00032011
//SYSOUT DD SYSOUT=(*)                                                  00040000
//SYSPRINT DD SYSOUT=(*)                                                00041000
//SORTIN  DD  DSN=DOESTAX.PROD.SRTDAILY.RPT(+1),DISP=SHR                00060005
//****                                                                  00060100
//SORTOUT DD  DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR.,DISP=MOD               00060513
//****                                                                  00060900
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00110000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00120000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00130000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00140000
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSACHD1),DISP=SHR             00150008
//*******************************************************************   00260007