DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
138
JCL/DTSPDAY1.jcl
Normal file
138
JCL/DTSPDAY1.jcl
Normal file
@ -0,0 +1,138 @@
|
||||
//DTSPDAY1 JOB (UI,4300,3400,T),PROD.DAILY,CLASS=P,MSGCLASS=X,
|
||||
// NOTIFY=ECNTSUP,
|
||||
// USER=#DOADTS,
|
||||
//**** TYPRUN=SCAN,
|
||||
//**** TYPRUN=HOLD,
|
||||
// REGION=0M
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//**
|
||||
//*
|
||||
// SET ACHYEAR='FY2009'
|
||||
// SET EXTNODE='CONV'
|
||||
// SET IMPNODE='PROD'
|
||||
// SET PGMNODE='PROD'
|
||||
// SET LVLNODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET LVDHOLD='YES'
|
||||
// SET PRTHOLD='NO'
|
||||
// SET MSTDWTC='DTSDDWTC'
|
||||
// SET BYPASS1='000000' /* BYPASS EMPLOYER 1
|
||||
// SET BYPASS2='000000' /* BYPASS EMPLOYER 2
|
||||
// SET BYPASS3='000000' /* BYPASS EMPLOYER 3
|
||||
//*
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||
//****
|
||||
//* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP
|
||||
//* 05/29/01 - MODIFIED FOR TAPE TRACKING (STEPS 0150, 300 - 320) GD
|
||||
//* 05/20/02 - REMOVED TAPE TRACKING JHP
|
||||
//* 06/18/02 - ADDED REF TO WGH/WTC/WAGNAM/W4FILE JHP
|
||||
//* 04/02/04 - REMOVED STEP 60,70,80 BUILD OLD NAME FILE JHP
|
||||
//****
|
||||
//**11/12/2004 - ADDED PROC DTSBX330 (CREDIT/DEBIT) AT EOJ ZL1
|
||||
//**11/28/2005 - REMOVED DTSBX330 (CREDIT/DEBIT) AT EOJ ZL1
|
||||
//****
|
||||
//****
|
||||
//**02/10/2005 - ADDED PROC DTSDWTC (COPIES WAGE BTC TO BTC) ZL1
|
||||
//****
|
||||
//**04/27/2006 - REMOVED FIRST BACKUP (DONE IN JOB DTSRQ325) ZL1
|
||||
//****
|
||||
//**05/15/2009 - ADDED INIT TO INIT ALL EXT FILE USED (DTSBINIT) ZL1
|
||||
//****
|
||||
//**05/15/2009 - ADDED STEP TO BACK ALL EXT FILE USED (DTSBKEXT) ZL1
|
||||
//****
|
||||
//**11/15/2011 - ADDED PROC TO CHECK W4FILE FOR DUPLICATE SSN ZL1
|
||||
//****
|
||||
//**01/11/2013 - ADDED FILES CREATED BY TDEC NEW WAGE PROCESS ZL1
|
||||
//****
|
||||
//**06/17/2013 - ADDED STEP0810 TO UPDATE LAST ITEM NUMBER ZL1
|
||||
//****
|
||||
//**10/06/2014 - REMOVED STEP0100 (DTSBX420) FROM JOB ZL1
|
||||
//**06/03/2015 - ADDED ACH REVERSAL BTC FILE TO PROC ZL1
|
||||
//**09/27/2015 - ADDED REJECTS BTC FILE TO PROC ZL1
|
||||
//**11/02/2016 - MODIFIED PROC TO PRINT (+1) R309 REPORTS ZL1
|
||||
//**04/11/2017 - MODIFIED PROC TO INCLUDE NEW BATCH NUMBER FILE ZL1
|
||||
//****
|
||||
//**07/09/2021 - REMOVED PANDEMIC PRINT PROC ZL1
|
||||
//****
|
||||
//****DOESTAX.PROD.DUTAS.BATCHES.DD041117<<<< CONTAINS BATCH
|
||||
//****THAT WILL BE USED GOING FORWARD.>>>>>>>>>>>>>>>>>>>>>>>>>
|
||||
//*
|
||||
//* UI TAX DAILY BATCH UPDATE *
|
||||
//* *
|
||||
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES IN THE *
|
||||
//* CICS REGION. *
|
||||
//* *
|
||||
//* NOTE: IF THIS JOB ABENDS IN PROCEDURE DTSDUPDT, YOU *
|
||||
//* WILL PROBABLY HAVE BETTER LUCK RUNNING RUNVRSTR, *
|
||||
//* FIXING THE PROBLEM, AND RERUNNING THIS JOB FROM *
|
||||
//* THE START (THAN YOU WILL RESTARTING THIS JOB AT *
|
||||
//* THE POINT OF THE ABEND). *
|
||||
//****
|
||||
//**** IF THIS JOB FAILS PLEASE PERFORM THE FOLLOWING:
|
||||
//**** 1. RUN JOB DTSVRSTR FROM GENERATION +0
|
||||
//****
|
||||
//****
|
||||
//STEP0075 EXEC DTSBX415
|
||||
//* /* GET EMLOYER DATA FRROM WEB
|
||||
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
|
||||
//****
|
||||
//* /* MERGE WAGE.BTC TO BTC
|
||||
//*TEP0125 EXEC DTSDWTC
|
||||
//*
|
||||
//*/// REMOVE STEP EMT JOB CANCLLED /* SPC BACKUP OF OLA FOR EMT
|
||||
//******** EXEC DESOLABK
|
||||
//* /* STD DAILY PROC
|
||||
//* /* STD DAILY BEFORE DAILY BATCH
|
||||
//STEP0175 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+1)'
|
||||
//* /* GET CREDITS/DEBITS/REFUNDS FROM WEB
|
||||
//STEP0200 EXEC DTSDUPDT,
|
||||
//* LHOLD='NO',
|
||||
// LDEST=U@PRT65
|
||||
//***** STEP0600.SYSIN RESTRICTS UPDATE TO SPECIFIED
|
||||
//***** TRN TYPE, CD. IF YOU REMOVE 001, 006,
|
||||
//***** 011, 031, OR 036, THEN THE TRIGGERS FLOWING
|
||||
//***** FROM CICS TO BATCH WILL NOT PROCESS.
|
||||
//***** (ADDED 21 & 26 (16 IS NOT NEEDED) 991010 - JHP)
|
||||
//***** (ADDED 40 FOR LAPTOP AUDIT APP 080812 - ZL1)
|
||||
//STEP0600.SYSIN DD *
|
||||
001,**,
|
||||
002,**,
|
||||
003,**,
|
||||
006,**,
|
||||
011,**,
|
||||
021,**,
|
||||
026,**,
|
||||
031,**,
|
||||
036,**,
|
||||
040,**,
|
||||
051,**,
|
||||
/*
|
||||
//** THE FOLLOWING PARMS ARE OPTIONAL FOR TESTING
|
||||
//** (UP TO 15 'INC' *OR* 'EXC' REPORT PROGRAMS ON PARM CARD 1)
|
||||
//** (UP TO 15 'AT-LEAST-ONCE' RPT PROGRAMS ON PARM CARD 2)
|
||||
//** IF NO PARM CARDS ARE PRESENT BD800 LOOKS FOR ALL RPTS
|
||||
//**
|
||||
//*//STEP0990.PARMIN DD * RESTRICTS OUTPUTS TO SPECIFIED RPT TYPES
|
||||
//*//DTSBD800,INC, , , , , , , , , , , , , ,
|
||||
//*//DTSBD800,EXC, , , , , , , , , , , , , ,
|
||||
//*/*
|
||||
//*//STEP0990.ATLSTIN DD * SPECIFIES THE CALL AT LEAST ONCE OUTPUTS
|
||||
//*//DTSBD800, , , , , , , , , , , , , , ,
|
||||
//*/*
|
||||
//*
|
||||
//**//STEP0990.PARMIN DD *
|
||||
//**DTSBD800,EXC,604
|
||||
//**/*
|
||||
//****
|
||||
//* THE NORMAL DAILY RUN WILL END WITH A SECOND BACKUP
|
||||
//* DUE TO THE CHANGES IN THE DATABASE MADE BY THE RUN.
|
||||
//*
|
||||
//**
|
||||
//STEP0300 EXEC DTSACHD1 /* ARECHIVE DAILY REPORTS
|
||||
//*
|
||||
//STEP0400 EXEC DTSUTVSM,
|
||||
// BKUPGEN='(+2)'
|
||||
//**
|
||||
//*
|
||||
Reference in New Issue
Block a user