//********************************************************************  00020100
//* THIS JOB WILL EXTRACT THE REPORT TYPES TO BE ARCHIVED FROM THE   *  00020200
//* WEEKLY  RUN DTSPDAY7.   (RPT433R1 SI 2ND LETTER)                 *  00020301
//*                                                                  *  00020400
//********************************************************************  00020500
//STEP0100 EXEC PGM=SORT,                          SORT REPORT RECORDS   00031000
//             COND=(0,LT)                                              00032000
//SYSOUT DD SYSOUT=(*)                                                  00040000
//SYSPRINT DD SYSOUT=(*)                                                00041000
//SORTIN  DD  DSN=DOESTAX.PROD.SRTDAY07.RPT(+1),DISP=SHR                00060001
//****                                                                  00060100
//SORTOUT DD  DSN=DOESTAX.PROD.ARCHIVE.&ACHYEAR,DISP=MOD                00060500
//****                                                                  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(DTSACHW1),DISP=SHR          00150001
//****                                                                  00180000