//**** 00000100 //* REPORTING FOR THE YEARLY RATINGS RUNS 1 & 2 00061000 //**** 00080000 //* 10.26.04 MOD TPS FILE 723 TO INCLUDE YEAR AT END -ZL1 00080100 //**** 00080200 //DTSARRPT PROC 00081000 //* DEFNS NEEDED FOR THIS PROC: 00082000 //* LVLNODE=DEVL/TEST/PROD 00083000 //* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085000 //* LHOLD=NO/YES 00085100 //* RATEYR=CALENDAR YEAR FOR WHICH RATES ARE BEING CALCULATED 00085200 //**** 00086000 //STEP0100 EXEC PGM=DTSBD800, REPORT GENERATION 00650000 // COND=(0,LT) 00660000 //SYSOUT DD SYSOUT=* 00670000 //SYSABOUT DD SYSOUT=* 00680000 //SYSUDUMP DD SYSOUT=* 00690000 //** 00700000 //DTSFVRI1 DD DSN=DOESTAX.PROD.RATE517.ANNRPT.YR2007,DISP=SHR 00710001 // DD DSN=DOESTAX.PROD.RATE506.RPT.YR2007,DISP=SHR 00711002 //** 00720000 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00721000 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730000 // AMP=('BUFNI=5,BUFND=10') 00740000 //** 00750000 //PARMIN DD DUMMY 00760000 //** 00770000 //ATLSTIN DD DUMMY 00780000 //** RATE NOTICES (632) MASS MAILING 00800000 //** 00810001 //RPT503R1 DD DUMMY 00821603 //RPT503R2 DD DUMMY 00821703 //RPT517R1 DD DUMMY 00821803 //RPT517R2 DD DUMMY 00821903 //RPT723R1 DD DUMMY 00822003 //RPT907R1 DD DUMMY 00822103 //RPT907R2 DD DUMMY 00822203 //RPT980R1 DD DUMMY 00822303 //RPT991R1 DD DUMMY 00822403 //RPT506R1 DD SYSOUT=(V,DTS506Y1),HOLD=&LVDHOLD 00822503 //** 00822603 //** RATE CUTOFF ERROR LST 00822703 //** 00823001 //RPT507R1 DD SYSOUT=(V,DTS507Y1),HOLD=&LVDHOLD 00824002 //** 00825001 //** RATE ASSIGNMENT DETAIL LST (REG) 00825100 //RPT515R1 DD SYSOUT=(V,DTS515Y1),HOLD=&LVDHOLD 00825302 //** 00825401 //** RATE ASSIGNMENT DETAIL LST (EST) 00825600 //RPT515R2 DD SYSOUT=(V,DTS515Y2),HOLD=&LVDHOLD 00825802 //** 00825901 //** RATE ASSIGNMENT DETAIL LST (FIN) 00826100 //** 00826201 //RPT515R3 DD SYSOUT=(V,DTS515Y3),HOLD=&LVDHOLD 00826302 //** 00826401 //** RATE ASSIGNMENT ERROR LST 00826600 //RPT516R1 DD SYSOUT=(V,DTS516Y1),HOLD=&LVDHOLD 00826802 //** 00826901 //** TRUST FUND INTEREST DISTRIBUTN RPT 00827700 //RPT520R1 DD SYSOUT=(V,DTS520Y1),HOLD=&LVDHOLD 00827902 //** 00828001 //** RATE ASSIGNMENT SUMMARY RPT 00829100 //RPT521R1 DD SYSOUT=(V,DTS521Y1),HOLD=&LVDHOLD 00829302 //** 00829401 //** DETERIME NEW EMPLYR RATE 00829600 //RPT522R1 DD SYSOUT=(V,DTS522Y1),HOLD=&LVDHOLD 00829802 //** 00829901 //* 00839000