//DTSPMON1 JOB (UI,4300,3400,T),PROD.MONTHLY,CLASS=P,MSGCLASS=X,        00000010
//             USER=#DOADTS,
//             NOTIFY=ECNTSUP,
//****         TYPRUN=SCAN,
//             REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*
//    SET ACHYEAR='FY2009'
//    SET LVLNODE='PROD'
//****
//* NOTE      :  RUN ON LAST WORKING DAY OF MONTH.                 |
//*              AFTER DAILY HAS RUN (AND WEEKLY IF NECESSARY)     |
//****
//****   6/29/09 ADDED PROC (DTSACHM1) TO ARCHIVE REPORTS 405/414 ZL1
//****
//****                     TWATINF RC  ZL1
//****  11/09/12 CHANGED REPORT PROC FROM DTSRMEND TO DTSRMTR     ZL1
//****           FOR TRMS REPORTS
//****
//****
//****  03/07/25 REMOVED RPT405 FROM PROC - PRINTED IN TAXWEB     ZL1
//****           FOR TRMS REPORTS
//****
/*JOBPARM  LINECT=104         /* NEEDED FOR THE OLD XEROX AT DOES ONLY
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*                                  SPEC BACKUP BEFORE MONTHLY BATCH
//*STEP0100 EXEC DTSUTVMO,
//*         BKUPGEN='(+1)'
//*
//STEP0200 EXEC DTSUEXT,                      MONTHLY PERIODIC EXTRACT
//             RUNTYPE='ME',
//             PREBACK='Y'
//*
//*     LIST OF REC TYPES TO BE EXTRACTED BY BD400
//****                      RPT414 TAKEN OUT 11/28/2014(ESSP)  <===
//****                      RPT414 TAKEN OUT 2/27/2012         <===
//****                      RPT414 TAKEN OUT 6/30/2011         <===
//****                      RPT414 TAKEN OUT 1/28/2011         <===
//****                      RPT414 INCLUDED 07/27/2009         <===
//****                      RPT414 TAKEN OUT 5/09 ZL1-NO PAPER <===
//****                      RPT414 INCLUDED 01/30/2009         <===
//****                      RPT414 TAKEN OUT 8/05 ZL1 FIX BILLS<===
//****                      RPT414 TAKEN OUT 5/28 ZL1-NO PAPER <===
//****                      RPT414 TAKEN OUT 2/28 ZL1          <===
//****                      RPT414 EXCLUDED FOR 08/28/06 RUN   <===
//****                      RPT414 EXCLUDED FOR 04/28/06 RUN   <===
//****                      RPT414 EXCLUDED FOR 03/31/06 RUN   <===
//****                      RPT414 EXCLUDED FOR 08/31/05 RUN   <===
//****                      RPT414 EXCLUDED FOR 02/28/05 RUN   <===
//****                      RPT414 EXCLUDED FOR 06/30/01 RUN   <===
//****                      RPT414 EXCLUDED FOR 08/31/01 RUN   <===
//****                      RPT414 EXCLUDED FOR 08/31/01 RUN   <===
//****                      RPT414 EXCLUDED FOR 11/01/16 ZL1   <===
//****   REMOVED LEIN REL   RPT405 PRINTED FROM TAXWEB   ZL1   <===
//****
//**** RPT414 WILL RUN AS A SEPERATE JOB FROM 11/1/16    ZL1   <===
//****
//***                       RPT609 RESTORED TO LIST WITH FULL  <===
//***                          PARMS (609,Y,080102,083102)
//***      RPT609 RESTORED TO LIST WITH 'ME' (NO PARMS NEEDED) <===
//***                                       FOR 10/31/03 RUN   <===
//STEP0100.EXTPARM DD *
123
305
308
311
312
313
408
410
426
429,1500
440
606
607
609,Y,
727
792
/*
//*
//STEP0300 EXEC DTSUX306,                    ACCOUNTING SUMMARY EXTRACT
//             RUNTYPE='ME',                       (FEEDS BR306)
//             RPTGEN='+2'
//STEP0100.SYSIN  DD  DUMMY
/*
//*              PRODUCE REPORT ONLY ON LAST MONTH OF QUARTER
//STEP0350 EXEC DTSUX332,                    RCVBLS OVER 120 DAYS
//             RUNTYPE='ME'
//STEP0100.EXTPARM DD *
332,      ,Y
/*
//*********************************************************************
//STEP0400 EXEC PGM=SORT,                          SORT REPORT RECORDS
//             COND=(0,LT)
//SYSOUT   DD  SYSOUT=*
//SORTIN   DD  DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR
//         DD  DSN=DOESTAX.PROD.PER.RPT(+2),DISP=SHR
//SORTOUT  DD  DSN=DOESTAX.PROD.SRTMONTH.RPT(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(5900,5900),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(75,25),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(75,25),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(75,25),RLSE)
//SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(75,25),RLSE)
//*********************************************************************
//*
//*                              STD BACKUP AFTER MONTHLY BATCH
//*STEP0500 EXEC DTSUTVSM,
//*         BKUPGEN='(+1)'
//**//*                        THIS RESTORE IS DONE AT MONTH-END TO
//**//*         REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
//**//*                        (OLA IS ALREADY RESET BY THE DAILY)
//**//*                     (ATC, REF & WRK WILL BE DONE IN THE QRTLY)
//**//*                        (NAIC & SIC NEED ONLY BE DONE AFTER
//**//*                              A SUCCESSFUL (ANNUAL?) LOAD)
//**//STEP0600 EXEC DTSRORG1,    /*THIS RESTORE HAS BEEN MOVED TO THE
//**//         BKUPGEN='(+1)'    /* WEEKLY {SMALLER FREE SPACE IN MSTB})
//**//*
//*                                         MONTH END REPORTING
//STEP0700 EXEC DTSRMTR,
//         LVLNODE='PROD',
//          RPTGEN='+1',
//           LDEST='LOCAL',
//           LHOLD='NO',
//         LVDHOLD='YES',
//          LR414H='YES'
//*
//STEP0800 EXEC DTSACHM1           /ARCHIVE MONTHLY REPORTS (405/414)
//*
//
//
//******************************************************************
//*                                                                |
//* JOB       : FTP R414 FILES TO SERVER   NO NEED TO FTP BILLS
//*                                                                |
//******************************************************************
//STEP0800 EXEC PGM=FTP
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT414),DISP=SHR
//*