Files
DUTAS/Procs/DTSUX506
2025-07-21 11:20:11 -04:00

85 lines
6.6 KiB
Plaintext

//**** 00000104
//** 00000204
//** EXTRACT STEP FOR THE ANNUAL RATINGS RUN 1 00000318
//** 00000404
//DTSUX506 PROC 00000518
//** DEFNS NEEDED FOR THIS PROC: 00000611
//** LVLNODE = DEVL/TEST/PROD 00000718
//** BD710=PARM FOR DTSBD710 00000828
//** BD720=PARM FOR DTSBD720 00000928
//** BD730=PARM FOR DTSBD730 00001028
//** BD740=PARM FOR DTSBD740 00001128
//** BD745=PARM FOR DTSBD745 00001249
//**** 00001328
//**** 00440020
//STEP0100 EXEC PGM=DTSBD710, INITIALIZE ANNUAL RATING 00441053
// COND=(0,LT), CUTOFF RECORD OCCURRENCES 00443053
// PARM='&BD710.' RTE-YR-START-YRQ,PURGE-MRCT-IND 00444053
//SYSOUT DD SYSOUT=* (= Y IF A RERUN) 00445053
//SYSABOUT DD SYSOUT=* 00446053
//SYSUDUMP DD SYSOUT=* 00447053
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00448055
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00449053
// AMP=('BUFNI=5,BUFND=10') 00449153
//BENCHRGI DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00449553
// DISP=(OLD,KEEP,DELETE), 00449653
// UNIT=SYSDA, 00449753
// SPACE=(8192,(1000,1000),RLSE), 00449853
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 00449953
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1), 00450053
// DISP=(,CATLG,DELETE), 00450153
// SPACE=(8192,(1000,1000),RLSE), 00450253
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00450353
//**** 00450420
//STEP0200 EXEC PGM=DTSBD720, TRANSFER EXPERIENCE AND 00450553
// COND=(0,LT), DELETE UNNEEDED MRCT OCCURRENCES 00450653
// PARM='&BD720.' RTE-YR-START-YRQ 00451053
//SYSOUT DD SYSOUT=* 00452053
//SYSABOUT DD SYSOUT=* 00453053
//SYSUDUMP DD SYSOUT=* 00454053
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00455055
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00456053
// AMP=('BUFNI=5,BUFND=10') 00457053
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2), 00458053
// DISP=(,CATLG,DELETE), 00459053
// SPACE=(8192,(1000,1000),RLSE), 00459153
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00459253
//**** 00459320
//STEP0300 EXEC PGM=DTSBD730, DISTRIBUTE TRUST FUND INTEREST 00459437
// PARM='&BD730.' RTE-YR-START-YRQ,RPT-EXISTING-AMT-IND 00459627
//SYSOUT DD SYSOUT=* 00460126
//SYSABOUT DD SYSOUT=* 00460226
//SYSUDUMP DD SYSOUT=* 00460326
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00460455
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00461047
// AMP=('BUFNI=5,BUFND=10') 00462021
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+3), 00463047
// DISP=(,CATLG,DELETE), 00464021
// SPACE=(8192,(1000,1000),RLSE), 00465021
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00466021
//**** 00467021
//STEP0400 EXEC PGM=DTSBD740, DETERMINE NONCLASSIFIED EMPLOYER RATE 00468037
// PARM='&BD740.' RTE-YR-START-YRQ 00469127
//SYSOUT DD SYSOUT=* 00469626
//SYSABOUT DD SYSOUT=* 00469726
//SYSUDUMP DD SYSOUT=* 00469826
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00469955
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00470147
// AMP=('BUFNI=5,BUFND=10') 00470226
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+4), 00470349
// DISP=(,CATLG,DELETE), 00470449
// SPACE=(8192,(1000,1000),RLSE), 00470549
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00470649
//**** 00472022
//STEP0500 EXEC PGM=DTSBD745, DETERMINE RATE TABLE 00479248
// PARM='&BD745.', RTE-YR-START-YRQ 00479351
// COND=(0,LT), 00479448
// REGION=4096K 00479548
//SYSOUT DD SYSOUT=* 00479648
//SYSABOUT DD SYSOUT=* 00479748
//SYSUDUMP DD SYSOUT=* 00479849
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00480155
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00481049
// AMP=('BUFNI=5,BUFND=10') 00482048
//********************************************************************* 00484048