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

46
Procs/DTSUX503 Normal file
View File

@ -0,0 +1,46 @@
//**** 00000100
//** 00000200
//** EXTRACT STEP FOR THE ANNUAL RATINGS RUN 2A 00000305
//** (*NO* MSTR UPDATE) 00000405
//** 00000505
//DTSUX503 PROC 00000605
//** DEFNS NEEDED FOR THIS PROC: 00000705
//** LVLNODE = DEVL/TEST/PROD 00000805
//** BD750 = RTE-YR-START-YRQ,UPDATE-MASTER-IND 00000908
//** BD790 = RTE-YR-START-YRQ 00001008
//** CHGNODE = PROD/TEST/DEVL 00001117
//** CHGMNBR = CHGM002 00001217
//**** 00001308
//STEP0100 EXEC PGM=DTSBD750, ASSIGN RATES 00002016
// PARM='&BD750.' RTE-YR-START-YRQ,UPDATE-MASTER-IND 00003006
//SYSOUT DD SYSOUT=* 00004001
//SYSABOUT DD SYSOUT=* 00005001
//SYSUDUMP DD SYSOUT=* 00006001
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007014
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00008001
// AMP=('BUFNI=5,BUFND=10') 00009001
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1), 00010001
// DISP=(,CATLG,DELETE), 00020001
// SPACE=(8192,(1000,1000),RLSE), 00030001
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00040001
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00050001
// DISP=(,CATLG,DELETE), 00060001
// SPACE=(8192,(1000,1000),RLSE), 00070001
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00080001
//**** 00090001
//STEP0200 EXEC PGM=DTSBD790, ETA 204 DATA EXTRACT AND ASSEMBLY. 00260017
// COND=(0,LT), 00280017
// PARM='&BD790.' RTE-YR-START-YRQ 00290017
//SYSOUT DD SYSOUT=* 00300017
//SYSABOUT DD SYSOUT=* 00310017
//SYSUDUMP DD SYSOUT=* 00320017
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00330017
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00340017
// AMP=('BUFNI=5,BUFND=10') 00350017
//BENCHRGI DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR, 00361017
// AMP=('BUFNI=5,BUFND=30') 00362017
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2), 00370017
// DISP=(,CATLG,DELETE), 00380017
// SPACE=(8192,(1000,1000),RLSE), 00390017
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00400017
//**** 00410003