giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

152
JCL/DTSRQ325.jcl Normal file
View File

@ -0,0 +1,152 @@
//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..PROCLIB 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
//* 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 00001700
//******************************************************************** 00001700
//* 00001700
//STEP0050 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*
//********************************************************************
//* 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
//*