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

DUTAS re-platformed to Raincode - 29Jul2025-update-from-Srujani

Browse Source
This commit is contained in:
Neeraj Kumar
2025-08-01 06:27:38 -04:00
parent ca3572c5df
commit cbd5346313
56 changed files with 3234 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
JCL/ECNTVCGQ.jcl Normal file
View File

@ -0,0 +1,73 @@
//ECNTVCGQ JOB (UI,4300,3400,T),CHGQTR.VIEWDIR, 00010016
// CLASS=P,MSGCLASS=X, 00011016
//*** TYPRUN=SCAN, 00020001
//*** USER=#DOADTS, 00021024
//**** NOTIFY=ECNTJP2,REGION=0M 00030031
// NOTIFY=ECNTSUP,REGION=0M 00031031
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PRGNODE='PROD' /* CREATE THE QUARTERLY REPORTS 00050015
// SET LVLNODE='PROD' /* AND FILES FOR THE QTR GIVEN 00060015
// SET CHGNODE='PROD' 00070015
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072020
// SET QTRLY='QTR041' /* QTRYYQ 00080031
// SET LDEST=U@PRT65 00090027
// SET LHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00100018
// SET LVDHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00101018
//***** 00110000
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY 00120000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//* (W) FOR RATED EMPLOYERS, BILLS (I) FOR SELF-INSURED (S-I) 00170000
//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000
//* ALONG WITH LABELS FOR THE S-I, CWC & FEDS. 00200000
//**** 00210000
//* PARMS FOR CHGBD205: 00220000
//* COLS. RUN TYPE: 00240000
//* 01-03 QTR = QUARTERLY 00250000
//* ANN = ANNUAL 00260000
//* MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED 00270000
//* EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER 00280000
//* RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM 00300000
//* TEU = PRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM 00320014
//* 00330000
//* 05-10 MMDDYY = START DATE OF SELECTION 00340000
//* 12-17 MMDDYY = END DATE OF SELECTION 00350000
//* 00351000
//* 19-23 YYYYY = (FOR RPT ONLY) REPORT TYPES DESIRED: 00360000
//* - Y/N RATED REPORT (W)(O) 00390000
//* - Y/N SELF-INSURED REPORT (I)(O) 00400000
//* - Y/N CWC REPORT (O) 00410000
//* - Y/N FEDERAL REPORT (O) 00420000
//* - Y/N TEUC REPORT (O) 00430012
//* 00431000
//* 25-30 NNNNNN = 6 DIGIT EMPLOYER ACCOUNT NUMBER 00440000
//* (USED WITH RUN TYPE = EMP/MNE) 00450000
//* 00460000
//****SET EXTRACT PARM IN DOESTAX.&LVLNODE.APPL.PARMLIB(CHGPARM) 00470000
//* (OR NOT... FOR NOW) 00471000
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD * 00491000
RPT,010104,033104,YYYYNY,000000 00492031
/* 00500000
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500117
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500218
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500317
//**** 00501000
//* SYSIN CARD: RPT,010102,033102,YYYYNY,000000 00502027
//**** 00504000
//STEP0300 EXEC DTSCVRPQ 00510019
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) <-- 00511017
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. <-- 00511117
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) <-- 00511217
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE <-- 00512017
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE <-- 00513017
//STEP0200.RPT907R1 DD DUMMY /* UNUS.COND. <-- 00513118
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. <-- 00513218
//STEP0200.RPT980R1 DD DUMMY /* CNTRL.RPT. <-- 00513318
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS <-- 00514017
//* 00515016