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

41
JCL/DTSCHGR1.jcl Normal file
View File

@ -0,0 +1,41 @@
//ECNTCHGR JOB (UI,4300,3400,T),CHGRPT.RPT,CLASS=P,MSGCLASS=X, 00010056
//** TYPRUN=SCAN, 00011050
//*** USER=#DOADTS, 00012051
// NOTIFY=ECNTSUP,REGION=0M 00014051
/*ROUTE PRINT U@PRT65 - REURN CHARGES FOR A QTR
//**** 00040000
// SET UINODE='PROD' 00050055
// SET PRGNODE='PROD' 00051055
// SET LVLNODE='PROD' 00060050
// SET MSTNODE='PROD' 00061050
// SET CHGNODE='PROD' 00070050
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072028
// SET QTRLY='QTR104' 00080055
// SET LDEST=U@PRT65 00090000
// SET LVDHOLD='YES' 00100055
// SET LHOLD='YES' 00101055
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008
//**** 00150000
//* QUARTERLY CHARGE REPORTING PROCESS REPORTS 00160058
//* 00170058
//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000
//**** 00210000
//**** 00480000
//*TEP0200 EXEC DTSUXCGP 00490000
//*TEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGR1), 00491058
//* DISP=SHR /* USE THESE FOR A RERUN <== 00500058
//STEP0300 EXEC DTSCHGRR 00510000
//*TEP0100.RPC110R2 DD SYSOUT=(V,DTSCG1Q1),HOLD=&LVDHOLD 00511057
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511156
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500138
//*TEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500238
//*TEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500339
//**** 00501000
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
//*OESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
//**** 00514156
//**** 00530056