//****                                                                  00000100
//**                                                                    00000200
//**         EXTRACT STEP FOR THE ANNUAL RATINGS RUN 2B                 00000302
//**                   (WITH MSTR UPDATE)                               00000401
//**                                                                    00000500
//DTSUX517 PROC                                                         00000602
//**              DEFNS NEEDED FOR THIS PROC:                           00000700
//**   LVLNODE = DEVL/TEST/TEST                                         00000800
//**   BD750   = RTE-YR-START-YRQ,UPDATE-MASTER-IND                     00000903
//**   BD790   = RTE-YR-START-YRQ                                       00001003
//****                                                                  00001103
//STEP0100 EXEC PGM=DTSBD750,     ASSIGN RATES                          00002003
//             PARM='&BD750.'     RTE-YR-START-YRQ,UPDATE-MASTER-IND    00003004
//SYSOUT   DD  SYSOUT=*                                                 00004000
//SYSABOUT DD  SYSOUT=*                                                 00005000
//SYSUDUMP DD  SYSOUT=*                                                 00006000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00007011
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00008000
//             AMP=('BUFNI=5,BUFND=10')                                 00009000
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+2),                       00010013
//             DISP=(,CATLG,DELETE),                                    00020000
//             SPACE=(8192,(3000,2000),RLSE),                           00030015
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        00040000
//DTSFBTCO DD  DSN=DOESTAX.&LVLNODE..BTC(+2),                           00050013
//             DISP=(,CATLG,DELETE),                                    00060000
//             SPACE=(8192,(3000,2000),RLSE),                           00070015
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        00080000
//****                                                                  00090000
//STEP0200 EXEC PGM=DTSBD790,     ETA 204 DATA EXTRACT AND ASSEMBLY.    00260007
//             COND=(0,LT),                                             00280000
//             PARM='&BD790.'       RTE-YR-START-YRQ                    00290004
//SYSOUT   DD  SYSOUT=*                                                 00300000
//SYSABOUT DD  SYSOUT=*                                                 00310000
//SYSUDUMP DD  SYSOUT=*                                                 00320000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00330011
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 00340000
//             AMP=('BUFNI=5,BUFND=10')                                 00350000
//BENCHRGI DD  DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR,           00361007
//             AMP=('BUFNI=5,BUFND=30')                                 00362007
//DTSFVRI1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR               00363013
//**           DISP=(OLD,KEEP,KEEP),                                    00364013
//DTSFVRO1 DD  DSN=DOESTAX.&LVLNODE..PER.RPT(+3),                       00370013
//             DISP=(,CATLG,DELETE),                                    00380000
//             SPACE=(8192,(3000,2000),RLSE),                           00390015
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        00400000
//****                                                                  00410000
//RPT517R3 DD  DSN=DOESTAX.&LVLNODE..ETA204.&RATEYR.,                   00420013
//             DISP=(,CATLG,DELETE),                                    00430014
//**           DISP=(OLD,KEEP,KEEP),                                    00440014
//             SPACE=(8000,(2000,1000),RLSE),                           00450015
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)                     00460013
//****                                                                  00470013