144 lines
5.4 KiB
Plaintext
144 lines
5.4 KiB
Plaintext
//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..PROCS.BATCH.LIB
|
|
//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
|
|
//*
|
|
//****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 RAINCODE BACKUP
|
|
//* /* STD DAILY BEFORE DAILY BATCH
|
|
//*STEP0175 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//STEP0100 EXEC DTSUTVSM, 00002102
|
|
// BKUPGEN='(+1)',freq='DAILY'
|
|
//**
|
|
//* /* 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)'
|
|
//*STEP0100 EXEC DTSUTVSM, 00002102
|
|
//* BKUPGEN='(+1)',freq='DAILY'
|
|
//**
|
|
//*
|