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

42
JCL/DTSCHGVT.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTSCHGVT JOB (UI,4300,3400,T),JHP.CHGDLY.REAPPLY, 00000139
// CLASS=P,MSGCLASS=X, 00000239
//*** TYPRUN=SCAN, 00000339
//*** USER=#DOADTS, 00000439
// NOTIFY=ECNTSUP,REGION=0M 00000639
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00000739
// SET PRGNODE='PROD' /* REAPPLY DAILY CHRG TRXS AFTER 00000839
// SET LVLNODE='PROD' /* RESTORE OF CHGM002 VSAM FILE 00000939
// SET CHGNODE='PROD' /* (DTSCHGVR) FROM LAST WEEKLY 00001039
// SET CHGMNBR='CHGM002' /* (DTSCHGD7) 00001139
// SET BKPGEN='(+0)' /* ONCE FOR EACH DAY NEEDED 00001239
// SET LDEST=U@PRT65 00001339
// SET LHOLD='YES' 00001439
//**** 00001539
//* DAILY BENEFIT CHARGE PROCESS 00002003
//**** 00002425
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00003026
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00003227
//**** 00003325
//STEP0100 EXEC PGM=CHGBD200, 00004039
// COND=(0,LT) 00004139
//SYSOUT DD SYSOUT=* 00004239
//SYSABOUT DD SYSOUT=* 00004339
//SYSUDUMP DD SYSOUT=* 00004439
//BD100CHG DD DSN=DOESTAX.&LVLNODE..BKP.CHGBD200.TRX.DAILY&BKPGEN., 00004539
// DISP=SHR 00004639
//** 00004739
//BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR 00004839
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00004939
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00005039
// AMP=('BUFNI=5,BUFND=10') 00005139
//** 00005239
//* 00005318
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005428
// LDEST=U@PRT65, 00005505
// LHOLD='YES' 00005605
//** 00005726
//STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006038
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006138
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007026
//**** 00020025