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

77
JCL/DTSBXREG.jcl Normal file
View File

@ -0,0 +1,77 @@
//DTSBXREG JOB (UI,4300,3400,T),DTSBXREG-ESSP-REGA, 00000010
// CLASS=A,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1,
// REGION=0M
//**********************************************************************00001700
//**************** CANNOT ADD NAME TO EMAIL LIST - MAX REACHED 00001700
//**************** TO ADD NAME REMOVE SOMEONE 4/20/17 ZL1 00001700
//**********************************************************************00001700
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES' 00001700
// SET LHOLD='YES' 00001700
// SET EXTNODE='CONV' 00001700
// SET RPTNODE='ESSP.BX420.RPT' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIELIB /ESSP LOAD LIBARY 00001600
//** 00001700
//* PROCESS EMPLOYER DATA FROM ESSP WEB DATABASE,UPDATE DUTAS 00001700
//* MAINFRAME CICS SYSTEM. 00001700
//** 00001700
//** THIS JOB WILL CREATE REGISTRATION DATA FOR DUTAS TO CREATE 00001700
//** EMPLOYERS REGISTERED IN ESSP 11/21/14 ZL1 00001700
//** 00001700
//** JOB CAN RUN AND RERUN AT ANY TIME DOES NOT UPDATE MASTER FILES 00001700
//** IT WILL CREATE T002 AND T003 TRANSACTIONS FOR DUTAS. 00001700
//** 00001700
//** ESSP FILES PROCESSED BY THIS JOB 00001700
//* - X102 -EMPLOYER PROFILE 00001700
//* - X104 -DETERMINATION 00001700
//* - X106 -EMPLOYER NAME 00001700
//* - X108 -EMPLOYER RATES 00001700
//* - X110 -EMPLOYER ADDRESS 00001700
//* - X120 -EMPLOYER OPO DATA 00001700
//* 00001700
//* DAILY INPUT FILES ARE SORTED INTO: 00001700
//* - DOESTAX.CONV.FROMESSP (+1) GDG 00001700
//* 00001700
//* READ-ONLY - NO MASTER FILE UPDATES - CREATES T002,T003 00001700
//* TRANSCATIONS 00001700
//*
//* OUTPUT FILES: 00001700
//* DOESTAX.CONV.ESSP.X421.BTC /EMPLOYER PROFILE CREATE 00001700
//* DOESTAX.CONV.ESSP.X424.BTC /EMPLOYER ADDRESS/OPO INFO 00001700
//* 00001700
//* OUTPUT FILES ARE PASSED ON THE DAILY UPDATE JOB DTSPDAY1 00001700
//* FOR PROCESSING 00001700
//* 00001700
//* ALL FILES INPUT AND OUTPUT ARE REINITLIZED EACH DAY AFTER 00001700
//* DAILY CYCLE COMPLETES SUCESSUFLLY BY JOB DTSRQ202 00001700
//* 00001700
//* BACKUPS: ALL FILES INPUT AND OUTPUT ARE ARCHIVED IN JOB 00001700
//* DTSRQ325 EACH DAY BEFORE THE DAILY CYCLE STARTS 00001700
//* 00001700
//* 00001700
//* THIS JOB MAY BE RERUN. 00001700
//* IT REBUILDS THE OUTPUT BTC FILES EACH TIME IT RUNS. 00001700
//** 00001700
//*****************************************************************
//*
//STEP0200 EXEC DTSNXREG /CREATE DUTAS REGISTRATIONS DATA.
//*
//STEP0500 EXEC DTSRSESP / SORTS ERROR REPT FOR NEXT STEP
//***
//*
//*TEP0600 EXEC DTSRERPT / GENERATES ERROR REPORTS
//*TEP0600 EXEC DTSREGPT / GENERATES ERROR REPORTS
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES
//STEP0100.RPT907R2 DD HOLD=YES
//STEP0100.RPT980R1 DD HOLD=YES
//* 00001700
//************************* END PROC**************************** ZL1 00001700