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

52
Procs/DTSRWEND Normal file
View File

@ -0,0 +1,52 @@
//***** 00010034
//** 00020034
//** WEEKLY RPT GENERATION 00030034
//** 00040034
//***** 00050034
//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION 00080034
// COND=(0,LT) 00090034
//SYSOUT DD SYSOUT=* 00100034
//SYSABOUT DD SYSOUT=* 00110034
//SYSUDUMP DD SYSOUT=* 00120034
//** 00130034
//PARMIN DD DUMMY 00140034
//** 00150034
//ATLSTIN DD DUMMY 00160034
//** 00170034
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00171050
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAY07.RPT&RPTGEN., 00180043
// DISP=SHR 00181042
//** 00190034
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00200041
// AMP=('BUFNI=5,BUFND=10') 00210034
//** 00220034
//** LIABILITY DETERMINATION LST 00230034
//RPT122R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 00240045
// DEST=&LDEST. 00250046
//** INACTIVATION ENTRY & REVERSAL 00260034
//RPT122R2 DD SYSOUT=Z,HOLD=&LVDHOLD., 00270049
// DEST=&LDEST. 00271049
//** SUMMARY STATS RPT 00290034
//RPT122R3 DD SYSOUT=Z,HOLD=&LVDHOLD., 00300045
// DEST=&LDEST. 00301046
//** PAYMENTS APPLIED TO EST. QTRS 00311039
//RPT614R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 00312045
// DEST=&LDEST. 00312146
//** PAYMENTS APPLIED TO EST. QTRS SUMMARY 00314039
//RPT614R2 DD SYSOUT=Z,HOLD=&LVDHOLD., 00315045
// DEST=&LDEST. 00315146
//** ONLINE RECOVERY/RESTART RPT 00320034
//RPT905R1 DD SYSOUT=Z, 00330047
// DEST=&LDEST., 00331047
// HOLD=&LHOLD. 00332047
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00350034
//RPT907R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 00360048
// DEST=&LDEST. 00361048
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00380034
//RPT907R2 DD SYSOUT=Z,HOLD=&LVDHOLD., 00390048
// DEST=&LDEST. 00391048
//** CONTROL REPORT SUMMARY 00401036
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00402036
// DEST=&LDEST., 00403041
// HOLD=&LHOLD. 00403141
//** 00410034