//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='(+2)',freq='DAILY'        
//**
//*********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*
//**
//STEP1000 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc!                                                           
cd //Dutasrc/intranet/Outbound_intranet                                      
ascii                                                                 
put 'DOESTAX.PROD.DEPOSIT.X202EXP' DOESTAX.PROD.DEPOSIT.X202EXP
put 'ECNTSUP.DOESTAX.PROD.FTP.BX217' ECNTSUP.DOESTAX.PROD.FTP.BX217
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X148' ECNTSUP.DOESTAX.PROD.FTP.X148
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X153' ECNTSUP.DOESTAX.PROD.FTP.X153
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//                                             
//*