148 lines
5.7 KiB
Plaintext
148 lines
5.7 KiB
Plaintext
//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
|
|
//*
|