DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
146
JCL/DTSPMON1.jcl
Normal file
146
JCL/DTSPMON1.jcl
Normal file
@ -0,0 +1,146 @@
|
||||
//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
|
||||
//****
|
||||
//****
|
||||
//**** 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.PROCLIB
|
||||
//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,PARM='VLTEST=0', 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
|
||||
//* |
|
||||
//******************************************************************
|
||||
//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
|
||||
//*
|
||||
Reference in New Issue
Block a user