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

54
Procs/DTSRP330 Normal file
View File

@ -0,0 +1,54 @@
//**** 00000100
//** 00000200
//** DAILY CREDITS AND DEBITS - REPORT PROC. 00000339
//** 00000605
//DTSRP330 PROC 00000739
//** DEFNS NEEDED FOR THIS PROC: 00001105
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//* 00410039
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00420039
// COND=(0,LT), 00421039
// REGION=0K 00422039
//SYSOUT DD SYSOUT=* 00423039
//SORTIN DD DSN=&&BE330RPT, 00424039
// DISP=(OLD,DELETE,DELETE) 00424139
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00425039
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00426039
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00427039
//SORTOUT DD DSN=&&SRTRPT, 00428039
// DISP=(,PASS,DELETE), 00429039
// UNIT=SYSDA, 00429139
// SPACE=(8192,(1000,1000),RLSE), 00429239
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00429339
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00429441
//**** 00429539
//* REPORT GENERATION 00430037
//STEP0200 EXEC PGM=DTSBD800, 00440039
// COND=(0,LT) 00450037
//SYSOUT DD SYSOUT=* 00460037
//SYSABOUT DD SYSOUT=* 00470037
//SYSUDUMP DD SYSOUT=* 00480037
//** 00490037
//PARMIN DD DUMMY 00500037
//** 00510037
//ATLSTIN DD DUMMY 00520037
//** 00530037
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00530143
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00531037
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 00532037
// AMP=('BUFNI=5,BUFND=10') 00533037
//* 00534037
//** DEBITS AND CREDITS REPORT 00535039
//RPT330R1 DD SYSOUT=Z, 00536042
// HOLD=&LHOLD., 00537037
// DEST=U@PRT65 00538037
//* 00539037
//RPT330R2 DD SYSOUT=Z, 00539142
// HOLD=&LHOLD., 00539237
// DEST=U@PRT65 00539337
//* 00539437
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00539537
// HOLD=&LHOLD., 00539637
// DEST=U@PRT65 00539737
//* 00540037