//DTSACH01 JOB (UI,4300,3400,T),'ACHREPORT',CLASS=A,MSGCLASS=X,         00000199
//         NOTIFY=ECNTSUP                                               00000299
//**                                                                    00000499
//   SET LVLNODE='PROD'                                                 00000599
//   SET MSTNODE='PROD'                                                 00000699
//   SET FYYEAR='FY2009'                                                00000699
//   SET LVDHOLD='YES'
//   SET LDEST='LOCAL'
//**                                                                    00000499
//********************************************************************  00000499
//** THIS JOB WILL REPRINT ANY REPORT TYPES THAT HAVE BEEN ARCHIVED  *  00000499
//** SEE PROGRAM DTSACH01 FOR A LIST OF REPORTS THAT HAVE BEEN       *  00000499
//** ARCHIVED.                                                       *  00000499
//** DUTAS ARCHIVE MASTER FILE: DOESTAX.PROD.ARCHIVE.FY2009.FY????   *  00000499
//**                                                                 *  00000499
//** TO REPRINT REPORTS PERFORM THE FOLLOWING BEFORE SUBMITTING JOB: *  00000499
//** 1. INPUT EMPLOYER NUMBERS INTO DOESTAX.PROD.ARCHIVE.EMPL        *  00000499
//** 2. CHANGE PARM CARD IN STEP0300                                 *  00000499
//**    PARM CARD FORMAT: 417002009061020090610                      *  00019199
//**     A. 1-3   = REPORT TYPE TO REPRINT                           *  00000499
//**     B. 4-5   = REPORT SUB TYPE(ALWAYS 00)                       *  00000499
//**     C. 6-13  = MAIL START DATE (YYYYMMDD)                       *  00000499
//**     D. 14-21 = MAIL END DATE  (YYYYMMDD)                        *  00000499
//**                                                                 *  00000499
//********************************************************************  00004549
//**                                                                 *  00000499
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB                            00001399
//*                                                                     00001400
//LOADLIBS INCLUDE MEMBER=DTSIXLIB                                      00001599
//*                                                                     00001600
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,                          SORT REPORT RECORDS   00004600
//             COND=(0,LT)                                              00004700
//SYSOUT   DD  SYSOUT=*                                                 00004800
//*ORTIN   DD  DSN=DOESTAX.PROD.ARCHIVE.FY2009.&FYYEAR.,DISP=SHR        00005099
//SORTIN   DD  DSN=DOESTAX.PROD.ARCHIVE.&FYYEAR.,DISP=SHR               00005099
//*ORTIN   DD  DSN=DOESTAX.PROD.RATE517.RPT.AN2010,DISP=SHR             00005099
//*SORTIN   DD  DSN=DOESTAX.PROD.PER.RPT.G2621V00,DISP=SHR              00005099
//*SORTOUT  DD  DSN=&&SRTOUT,
//*             DISP=(NEW,PASS,DELETE),
//SORTOUT  DD  DSN=DOESTAX.DEVL.ARCHIVE.R417,
//             DISP=SHR,
//             UNIT=SYSDA,
//             SPACE=(8192,(9000,9000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR417),DISP=SHR         00007399
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00007499
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00008099
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00009099
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00010099
//SORTWK05 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00011099
//SORTWK06 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00011099
//SORTWK07 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00011099
//SORTWK08 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00011099
//SORTWK09 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00011099
//SORTWK10 DD  UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE)                     00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=SORT,                          SORT EMPLOYER RECORDS 00004600
//             COND=(0,LT)                                              00004700
//SYSOUT   DD  SYSOUT=*                                                 00004800
//SORTIN   DD  DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR                   00005099
//SORTOUT  DD  DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR                   00005099
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSEMPL),DISP=SHR         00007399
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE)                        00007499
//********************************************************************* 00018000
//STEP0300 EXEC PGM=DTSACH01,                     ARCHIVE REPRINT PGM   00018100
//             COND=(0,LT)                                              00018300
//SYSOUT   DD  SYSOUT=*                                                 00018400
//SYSABOUT DD  SYSOUT=*                                                 00018500
//SYSUDUMP DD  SYSOUT=*                                                 00018600
//DTSACHPM DD  *                                                        00018899
417002013082020130930                                                   00019199
/*                                                                      00019599
//**                                                                    00019699
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00070099
//*                                                                     00090099
//DTSACHEM DD  DSN=DOESTAX.&LVLNODE..ARCHIVE.EMPL,DISP=SHR              00071099
//*DTSACHIN DD  DSN=&&SRTOUT,
//*            DISP=(OLD,PASS,DELETE),
//DTSACHIN  DD  DSN=DOESTAX.DEVL.ARCHIVE.R417,
//             DISP=SHR,
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFVRO1 DD  DSN=&&RPTOUT,
//             DISP=(NEW,PASS,DELETE),
//             UNIT=SYSDA,
//             SPACE=(8192,(1000,1000),RLSE),
//             DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*                                                                     00100199
//SYSABEND DD  SYSOUT=*                                                 00153099
//CAIMRPTS DD  SYSOUT=*                                                 00154099
//*                                                                     00157099
//STEP0400 EXEC DTSACH01                                                00018100
//                                                                      00157099