53 lines
4.1 KiB
Plaintext
53 lines
4.1 KiB
Plaintext
//**** 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
|