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