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

115 lines
9.0 KiB
Plaintext

//**** 00000104
//** 00000204
//** EXTRACT STEP FOR THE ANNUAL RATINGS RUN 1 00000318
//** 00000404
//DTSUX500 PROC 00000557
//** 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 00448061
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00449053
// AMP=('BUFNI=5,BUFND=10') 00449153
//DTSFCHG5 DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM005,DISP=SHR, 00449261
// AMP=('BUFNI=5,BUFND=10') 00449361
//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) 00450356
//**** 00450420
//STEP0200 EXEC PGM=DTSBD720, TRANSFER EXPERIENCE AND 00450558
// COND=(0,LT), DELETE UNNEEDED MRCT OCCURRENCES 00450658
// PARM='&BD720.' RTE-YR-START-YRQ 00451058
//SYSOUT DD SYSOUT=* 00452058
//SYSABOUT DD SYSOUT=* 00453058
//SYSUDUMP DD SYSOUT=* 00454058
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00455062
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00456058
// AMP=('BUFNI=5,BUFND=10') 00457058
//DTSFIPES DD DSN=&&SRTPES, 00457163
// DISP=(OLD,PASS,DELETE), 00457364
// UNIT=SYSDA, 00457560
// SPACE=(32000,(1000,1000),RLSE), 00457660
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00457760
//* 00458458
//DTSFCHG5 DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM005,DISP=SHR, 00458562
// AMP=('BUFNI=5,BUFND=10') 00458662
//* 00458762
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2), 00458858
// DISP=(,CATLG,DELETE), 00459058
// SPACE=(8192,(1000,1000),RLSE), 00459158
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00459258
//***** 00459357
//* BYPASS FILE 00459566
//DTSFPASS DD DSN=DOESTAX.&LVLNODE..BD720.BYPASS, 00459666
//** DISP=(NEW,CATLG,CATLG), 00459767
// DISP=(OLD,KEEP,KEEP), 00459867
// UNIT=SYSDA, 00459966
// SPACE=(CYL,(1,1)), 00460066
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=4600) 00460166
//* 00460266
//***** 00460366
//STEP0300 EXEC PGM=DTSBD730, DISTRIBUTE TRUST FUND INTEREST 00460458
// PARM='&BD730.' RTE-YR-START-YRQ,RPT-EXISTING-AMT-IND 00460558
//SYSOUT DD SYSOUT=* 00460658
//SYSABOUT DD SYSOUT=* 00460758
//SYSUDUMP DD SYSOUT=* 00460858
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00460962
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00461058
// AMP=('BUFNI=5,BUFND=10') 00462058
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+3), 00463058
// DISP=(,CATLG,DELETE), 00464058
// SPACE=(8192,(1000,1000),RLSE), 00465058
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00466058
//***** 00467057
//STEP0400 EXEC PGM=DTSBD740, DETERMINE NONCLASSIFIED EMPLOYER RATE 00468058
// PARM='&BD740.' RTE-YR-START-YRQ 00469158
//SYSOUT DD SYSOUT=* 00469658
//SYSABOUT DD SYSOUT=* 00469758
//SYSUDUMP DD SYSOUT=* 00469858
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00469962
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00470158
// AMP=('BUFNI=5,BUFND=10') 00470258
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+4), 00470358
// DISP=(,CATLG,DELETE), 00470458
// SPACE=(8192,(1000,1000),RLSE), 00470558
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00470658
//***** 00472057
//STEP0500 EXEC PGM=DTSBD745, DETERMINE RATE TABLE 00479258
// PARM='&BD745.', RTE-YR-START-YRQ 00479358
// COND=(0,LT), 00479458
// REGION=4096K 00479558
//SYSOUT DD SYSOUT=* 00479658
//SYSABOUT DD SYSOUT=* 00479758
//SYSUDUMP DD SYSOUT=* 00479858
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00480162
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00481058
// AMP=('BUFNI=5,BUFND=10') 00482058
//* CONTRIBUTORY WAGE DETAIL 00483065
//DTSFWAGE DD DSN=DOESTAX.&LVLNODE..BX745.WAGE.&RATEYR., 00483165
// DISP=(NEW,CATLG,CATLG), 00483265
//** DISP=(OLD,KEEP,KEEP), 00483365
// UNIT=SYSDA, 00483465
// SPACE=(CYL,(50,10)), 00483565
// DCB=(RECFM=FB,LRECL=52,BLKSIZE=31200) 00483665
//* CONTRIBUTORY WAGE DETAIL 00483765
//DTSFCALC DD DSN=DOESTAX.&LVLNODE..BX745.CALC.&RATEYR., 00483865
// DISP=(NEW,CATLG,CATLG), 00483965
//** DISP=(OLD,KEEP,KEEP), 00484065
// UNIT=SYSDA, 00484165
// SPACE=(TRK,(1,1)), 00484265
// DCB=(RECFM=FB,LRECL=69,BLKSIZE=69) 00484365
//* 00484465
//********************************************************************* 00485048