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

55
Procs/DTSRWTR Normal file
View File

@ -0,0 +1,55 @@
//***** 00010000
//** 00020000
//** WEEKLY RPT FOR PRINTING AND TRMS 00030000
//** 00040000
//***** 08-14-12 CHANGE CLASS TO 0 FOR TRMS INPUT ZL1 00050000
//** 00060000
//********************************************************************* 00070000
//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION 00080000
// COND=(0,LT) 00090000
//SYSOUT DD SYSOUT=* 00100000
//SYSABOUT DD SYSOUT=* 00110000
//SYSUDUMP DD SYSOUT=* 00120000
//** 00130000
//PARMIN DD DUMMY 00140000
//** 00150000
//ATLSTIN DD DUMMY 00160000
//** 00170000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00171000
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAY07.RPT&RPTGEN., 00180000
// DISP=SHR 00181000
//** 00190000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00200000
// AMP=('BUFNI=5,BUFND=10') 00210000
//** 00220000
//** LIABILITY DETERMINATION LST 00230000
//RPT122R1 DD SYSOUT=0 00240001
//** INACTIVATION ENTRY & REVERSAL 00260000
//RPT122R2 DD SYSOUT=0 00270001
//** SUMMARY STATS RPT 00290000
//RPT122R3 DD SYSOUT=0 00300001
//** MISSING FR500 RECEIVED DATE 00301100
//RPT122R4 DD SYSOUT=0 00302101
//** LIABILITY DETERMINATION ACTIVITY DATE 00305000
//RPT122R5 DD SYSOUT=0 00306101
//** SI 2ND LETTER SELF MAILERS 00308000
//RPT433R1 DD SYSOUT=W,HOLD=NO, 00309000
// DEST=U@PRT155 00310000
//** SI 2ND LETTER MANG MEPORTS 00310100
//RPT433R2 DD SYSOUT=0 00310201
//** PAYMENTS APPLIED TO EST. QTRS 00311000
//RPT614R1 DD SYSOUT=0 00312001
//** PAYMENTS APPLIED TO EST. QTRS SUMMARY 00314000
//RPT614R2 DD SYSOUT=0 00315001
//** ONLINE RECOVERY/RESTART RPT 00315200
//RPT905R1 DD SYSOUT=Z, 00315300
// DEST=&LDEST., 00315400
// HOLD=&LHOLD. 00315500
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00350000
//RPT907R1 DD SYSOUT=0 00360001
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00362000
//RPT907R2 DD SYSOUT=Z,HOLD=&LHOLD., 00363000
// DEST=&LDEST. 00364000
//** CONTROL REPORT SUMMARY 00401000
//RPT980R1 DD SYSOUT=0 00402001
//** 00410000