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

46
JCL/DTSCHGQ1.jcl Normal file
View File

@ -0,0 +1,46 @@
//DTSCHGQ1 JOB (UI,4300,3400,T),CHGQTR,CLASS=P,MSGCLASS=X, 00010017
//** TYPRUN=SCAN, 00011017
//** USER=#DOADTS, 00012018
// USER=#DOADTS, 00012018
//** NOTIFY=ECNTGD1,REGION=0M 00013026
// NOTIFY=ECNTZL1,REGION=0M 00014021
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
//**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
//**** 00480000
//**** 00042026
// SET PRGNODE='PROD' /* CHK '<--' LINES BELOW FOR A RERUN 00050017
// SET LVLNODE='PROD' 00060017
// SET UINODE='PROD' 00060124
// SET MSTNODE='PROD' /* QUARTERLY RUN FOR SI EMPLOYERS 00061032
// SET CHGNODE='PROD' 00070017
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072014
// SET QTRLY='QTR251' <<<<<<<<< CHANGE PARM <<<<<<<<<<<<<<< 00080038
// SET LDEST=U@PRT65 00090000
// SET LVDHOLD='YES' 00100027
// SET LHOLD='YES' 00101027
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140009
//**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS FOR SI EMPLOYERS ONLY 00160032
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGQ1), 00491032
// DISP=SHR 00500032
//**** 00504000
//STEP0300 EXEC DTSCHGQ1 00510031
//STEP0100.RPC110R1 DD DUMMY /* SI REPORTS PRODUCED IN Q2 00511030
//STEP0100.RPC110R2 DD DUMMY 00511130
//STEP0100.RPC110R3 DD DUMMY 00511130
//STEP0100.CSV130R1 DD DUMMY 00511130
//STEP0100.RPC130R2 DD DUMMY 00511130
//*TEP0100.TPSCHRG DD DISP=SHR 00511130
//**** 00520000
//* UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY 00579236
//**** 00579336
//STEP0200 EXEC DTSUXCGU 00579436
//* 00579536
//**** 00580025