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

65
Procs/DTSRWVD Normal file
View File

@ -0,0 +1,65 @@
//***** 00010034
//** 00020034
//** WEEKLY RPT FOR PRINTING AND VIEW DIRECT 00030049
//** SPECIAL FOR VIEW-DIRECT 00040045
//***** 08-05-04 ADDED DTSR122R4 AND R5 TO REPORTS ZL1 00050049
//** 00060049
//********************************************************************* 00070034
//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 00171051
//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=(V,DTS122W1),HOLD=&LVDHOLD., 00240049
// DEST=&LDEST. 00250046
//** INACTIVATION ENTRY & REVERSAL 00260034
//RPT122R2 DD SYSOUT=(V,DTS122W2),HOLD=&LVDHOLD., 00270049
// DEST=&LDEST. 00271046
//** SUMMARY STATS RPT 00290034
//RPT122R3 DD SYSOUT=(V,DTS122W3),HOLD=&LVDHOLD., 00300049
// DEST=&LDEST. 00301046
//** MISSING FR500 RECEIVED DATE 00301149
//RPT122R4 DD SYSOUT=(V,DTS122W4),HOLD=&LVDHOLD., 00302150
// DEST=&LDEST. 00303050
//** LIABILITY DETERMINATION ACTIVITY DATE 00305049
//RPT122R5 DD SYSOUT=(V,DTS122W5),HOLD=&LVDHOLD., 00306150
// DEST=&LDEST. 00307050
//** SI 2ND LETTER SELF MAILERS 00308052
//RPT433R1 DD SYSOUT=W,HOLD=NO, 00309052
// DEST=U@PRT155 00310052
//** SI 2ND LETTER MANG MEPORTS 00310152
//RPT433R2 DD SYSOUT=(V,DTS433W1),HOLD=&LVDHOLD., 00310252
// DEST=&LDEST. 00310352
//** PAYMENTS APPLIED TO EST. QTRS 00311039
//RPT614R1 DD SYSOUT=(V,DTS614W1),HOLD=&LVDHOLD., 00312049
// DEST=&LDEST. 00312146
//** PAYMENTS APPLIED TO EST. QTRS SUMMARY 00314039
//RPT614R2 DD SYSOUT=(V,DTS614W2),HOLD=&LVDHOLD., 00315049
// DEST=&LDEST. 00315147
//** ONLINE RECOVERY/RESTART RPT 00315249
//RPT905R1 DD SYSOUT=Z, 00315349
// DEST=&LDEST., 00315449
// HOLD=&LHOLD. 00315549
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00350034
//RPT907R1 DD SYSOUT=(V,DTS907W1),HOLD=&LVDHOLD., 00360049
// DEST=&LDEST. 00361046
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00362049
//RPT907R2 DD SYSOUT=Z,HOLD=&LHOLD., 00363049
// DEST=&LDEST. 00364049
//** CONTROL REPORT SUMMARY 00401036
//RPT980R1 DD SYSOUT=(V,DTS980W1),HOLD=&LVDHOLD., 00402049
// DEST=&LDEST. 00403046
//** 00410034