//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X, 00000010 // USER=#DOADTS, //* TYPRUN=SCAN, // NOTIFY=ECNTZL1 //* 00001700 // SET LVLNODE='PROD' // SET MSTNODE='PROD' // SET FTPNODE='PROD' // SET EXTNODE='CONV' // SET IMPNODE='PROD' // SET LHOLD='YES' // SET LDEST=U@PRT65 //*** //PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 //******************************************************************** 00001700 //* ADDED AUDIT JOBS BX440 AND BX442 JOBS 8/8/12 ZL1. 00001700 //* 00001700 //* ADDED STEP0025/26 TO INITILIZE DUTAS WAGE FILE BEFORE THE DAILY 00001700 //* PRODUCTION CYCLE STARTS. WHEN FILE IS NOT INITILIZE AND DUTAS 00001700 //* HAS A PROBLEM DOCS GET THE OLD FILE FROM LAST RUN AND CAUSES 00001700 //* DUPLICATE ERROR CONDITION. 8/4/14 ZL1 00001700 //* 00001700 //* TESTING RC 09/13/25 ZL1 00001700 //* ADDED STEP0200 DTSBESSP TO BACKUP INPUT FILES FROM ESSP X102 THRU 00001700 //* X145 AND X420,X422 BTC FILES CREATED BY JOB DTSBX420. 00001700 //* 10/8/14 ZL1 00001700 //* 00001700 //* REMOVED STEP200 DTSBESSP AND PLACED IN DTSBXREG PROCESS 00001700 //* 12/11/14 NH1 00001700 //* 00001700 //* STARTED ACCEPTING ADUITS FORM WEB PACKAGE 00001700 //* 03/21/17 ZL1 00001700 //******************************************************************** 00001700 //********** DELETE W4 WAGE FILE ************************** //******************************************************************** 00001700 //STEP0025 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DELW4FIL DD DSN=DOESTAX.PROD.W4FILE, // DISP=(OLD,DELETE,DELETE) //******************************************************************** //********** CREATE W4 WAGE FILE *********************** //******************************************************************** 00001700 //STEP0026 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //WAGEFILE DD DSN=DOESTAX.&LVLNODE..W4FILE, // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=32000) //********************************************************************* //* REGULAR PROD VSAM FILES BACKUP BEFORE ANY UPDATES RAINCODE VERSION 00001700 //******************************************************************** //********************************************************************* //STEP0400 EXEC DTSUTVSM, 00002102 // BKUPGEN='(+1)',freq='DAILY' //***** //******************************************************************** //* BACKUP ALL UI TAX CONV EXTERNAL FILES 00001700 //******************************************************************** //* //*TEP0100 EXEC DTSBLCNV /BACKUP WEB AND TDEC DAILY FILES //* 00001700 //*TEP0200 EXEC DTSBESSP /BACKUP ESSP DAILY INPUT FILES //* 00001700 //STEP0075 EXEC PGM=IDCAMS, COPY AUDIT LAPTOP INPUT FILE // COND=(0,LT) TO PRODUCTION //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.AUDIT.X144,DISP=SHR //OUTDD01 DD DSN=ECNTSUP.DOESTAX.PROD.AUDIT.X144,DISP=SHR //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //** /* PROCESS AUDIT EMPLOYER DATA WEB //STEP0100 EXEC DTSBX440 //* //** /* PROCESS AUDIT WAGES INTERNAL WEB //STEP0120 EXEC DTSBX442 //* //* //STEP4403 EXEC PGM=IDCAMS, COPY T040 TRANSACTIONS TO BTC // COND=(0,LT) WHEN BX440 AND BX442 RETURNS 00 //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&X440BTC,DISP=(OLD,DELETE,DELETE) //OUTDD01 DD DSN=DOESTAX.&MSTNODE..BX440.BTC, // DISP=SHR, // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR // //STEP0100 EXEC PGM=DTSBX668, CHARGE OFF 75% FOR UIPL18-20 // COND=(0,LT), // REGION=0M //DSTAUDIT DD DUMMY //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //*XPBZ016 DD DSN=DOESTAX.CONV.UIFRAUD.E180909.Q222Q223,DISP=SHR //*XPBZ016 DD DSN=DOESTAX.CONV.UIPL1820.Q234SI.CHGOFREV,DISP=SHR //*XPBZ016 DD DSN=DOESTAX.CONV.UIFRAUD.E155489.Q231,DISP=SHR //EXPBZ016 DD DSN=DOESTAX.CONV.UIFRAUD.E820884.Q251,DISP=SHR //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //* //X282BTC DD DSN=DOESTAX.&MSTNODE..BTC(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+2), // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(8192,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //* STOP HERE FOR NOW ZL1 //* //********************************************************************* //* //* //*TEP0100 EXEC PGM=DTSBX481, /* UPDATE PHONE AND EMAIL ADDRESS //* //******************************************************************* //*TEP1000 EXEC PGM=DTSBZ601, //* SET 1 OF 3 PAYMENTS DUPLICATED ON 2/11/15 830 PAYTS OF 1024 //* SET 1 OF 2 PAYMENTS DUPLICATED ON 2/02/15 - 46 OF 46 //* SET 2 OF 2 PAYMENTS DUPLICATED ON 2/03/15 - 46 OF 46 //*TSIZ058 DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS.DD021915,DISP=SHR //* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS0211.SET1,DISP=SHR //* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS4602.SET1,DISP=SHR //* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS4603.SET2,DISP=SHR //* DD DSN=DOESTAX.CONV.TDEC.ESSP.PAYMT.DUPS.DD021815,DISP=SHR //* //* BACKUP ALL EXTERNAL FILES PROD AND PROD.CONV USED BY DTSPDAY1 00001700 //******************************************************************* //*TEP0100 EXEC DTSBKPRD //************************************************************** //*STEP0100 EXEC PGM=DTSBZ053, SET SELF INSURED TAX DUE DATE //*STEP0100 EXEC PGM=DTSBZ057, RESET REPORT RECEIVED DATE //*STEP0100 EXEC PGM=DTSBZ478, RESET EMPLOYR REPORT STATUS //*STEP0100 EXEC PGM=DTSBZ073, CREATE MEVL FOR ESTIMATED RPTS Q133 //*STEP0100 EXEC PGM=DTSBZ017, FIX NAICS CODES FOR LMI //*TEP0100 EXEC PGM=DTSBZ059, CORRECT DUPLICATE PAYMENTS //*TEP0100 EXEC PGM=DTSBZ063, CORRECT ANNUAL 4TH QTR RPT //*TEP0100 EXEC PGM=DTSBZ018, RESET EMP ORG TYPE //*TEP0100 EXEC PGM=DTSBX666, CHARGE OFF INT CHARGES - ONLY //*