47 lines
3.6 KiB
Plaintext
47 lines
3.6 KiB
Plaintext
//**** 00000100
|
|
//** 00000200
|
|
//** EXTRACT STEP FOR THE ANNUAL RATINGS RUN 2A 00000305
|
|
//** (*NO* MSTR UPDATE) 00000405
|
|
//** 00000505
|
|
//DTSUX503 PROC 00000605
|
|
//** DEFNS NEEDED FOR THIS PROC: 00000705
|
|
//** LVLNODE = DEVL/TEST/PROD 00000805
|
|
//** BD750 = RTE-YR-START-YRQ,UPDATE-MASTER-IND 00000908
|
|
//** BD790 = RTE-YR-START-YRQ 00001008
|
|
//** CHGNODE = PROD/TEST/DEVL 00001117
|
|
//** CHGMNBR = CHGM002 00001217
|
|
//**** 00001308
|
|
//STEP0100 EXEC PGM=DTSBD750, ASSIGN RATES 00002016
|
|
// PARM='&BD750.' RTE-YR-START-YRQ,UPDATE-MASTER-IND 00003006
|
|
//SYSOUT DD SYSOUT=* 00004001
|
|
//SYSABOUT DD SYSOUT=* 00005001
|
|
//SYSUDUMP DD SYSOUT=* 00006001
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007014
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00008001
|
|
// AMP=('BUFNI=5,BUFND=10') 00009001
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1), 00010001
|
|
// DISP=(,CATLG,DELETE), 00020001
|
|
// SPACE=(8192,(1000,1000),RLSE), 00030001
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00040001
|
|
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00050001
|
|
// DISP=(,CATLG,DELETE), 00060001
|
|
// SPACE=(8192,(1000,1000),RLSE), 00070001
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00080001
|
|
//**** 00090001
|
|
//STEP0200 EXEC PGM=DTSBD790, ETA 204 DATA EXTRACT AND ASSEMBLY. 00260017
|
|
// COND=(0,LT), 00280017
|
|
// PARM='&BD790.' RTE-YR-START-YRQ 00290017
|
|
//SYSOUT DD SYSOUT=* 00300017
|
|
//SYSABOUT DD SYSOUT=* 00310017
|
|
//SYSUDUMP DD SYSOUT=* 00320017
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00330017
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00340017
|
|
// AMP=('BUFNI=5,BUFND=10') 00350017
|
|
//BENCHRGI DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR, 00361017
|
|
// AMP=('BUFNI=5,BUFND=30') 00362017
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2), 00370017
|
|
// DISP=(,CATLG,DELETE), 00380017
|
|
// SPACE=(8192,(1000,1000),RLSE), 00390017
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00400017
|
|
//**** 00410003
|