//****                                                                  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