Files
DUTAS/Procs/DTSARRPT
2025-07-21 11:20:11 -04:00

104 lines
8.1 KiB
Plaintext

//**** 00000125
//* REPORTING FOR THE YEARLY RATINGS RUNS 1 & 2 00061036
//**** 00080025
//* 10.26.04 MOD TPS FILE 723 TO INCLUDE YEAR AT END -ZL1 00080155
//**** 00080255
//DTSARRPT PROC 00081038
//* DEFNS NEEDED FOR THIS PROC: 00082025
//* LVLNODE=DEVL/TEST/PROD 00083025
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085028
//* LHOLD=NO/YES 00085136
//* RATEYR=CALENDAR YEAR FOR WHICH RATES ARE BEING CALCULATED 00085245
//**** 00086027
//STEP0100 EXEC PGM=DTSBD800, REPORT GENERATION 00650036
// COND=(0,LT) 00660020
//SYSOUT DD SYSOUT=* 00670020
//SYSABOUT DD SYSOUT=* 00680020
//SYSUDUMP DD SYSOUT=* 00690020
//** 00700020
//DTSFVRI1 DD DSN=&&SRPTREC, 00710036
// DISP=(OLD,DELETE,DELETE) 00711034
//** 00720020
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00721056
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730029
// AMP=('BUFNI=5,BUFND=10') 00740020
//** 00750020
//PARMIN DD DUMMY 00760020
//** 00770020
//ATLSTIN DD DUMMY 00780020
//** RATE NOTICES (632) MASS MAILING 00800037
//RPT503R1 DD SYSOUT=W, 00810037
// DEST=U@PRT155, 00820036
// HOLD=&LHOLD. 00821036
//** RATE NOTICES (632A) PENALTY RATES 00821137
//RPT503R2 DD SYSOUT=W, 00821237
// DEST=U@PRT155, 00821337
// HOLD=&LHOLD. 00821437
//** TRANSFERS OF EXPERIENCE RPT 00821537
//RPT506R1 DD SYSOUT=Z, 00821637
// DEST=&LDEST., 00821737
// HOLD=&LHOLD. 00821837
//** RATE CUTOFF ERROR LST 00822036
//RPT507R1 DD SYSOUT=Z, 00823036
// DEST=&LDEST., 00824036
// HOLD=&LHOLD. 00825036
//** RATE ASSIGNMENT DETAIL LST (REG) 00825153
//RPT515R1 DD SYSOUT=Z, 00825237
// DEST=&LDEST., 00825337
// HOLD=&LHOLD. 00825437
//** RATE ASSIGNMENT DETAIL LST (EST) 00825553
//RPT515R2 DD SYSOUT=Z, 00825653
// DEST=&LDEST., 00825753
// HOLD=&LHOLD. 00825853
//** RATE ASSIGNMENT DETAIL LST (FIN) 00825953
//RPT515R3 DD SYSOUT=Z, 00826053
// DEST=&LDEST., 00826153
// HOLD=&LHOLD. 00826253
//** RATE ASSIGNMENT ERROR LST 00826337
//RPT515R4 DD DSN=DOESTAX.PROD.ANNRATE.RPT515R4.TXT,DISP=SHR 00826457
//** RATE ASSIGNMENT ERROR LST 00826557
//RPT516R1 DD SYSOUT=Z, 00826637
// DEST=&LDEST., 00826737
// HOLD=&LHOLD. 00826837
//** ETA204 REPORT 00826937
//RPT517R1 DD SYSOUT=I, 00827037
// DEST=&LDEST., 00827137
// HOLD=&LHOLD. 00827237
//** TEXT VERSION OF ETA204 FOR DOWNLOAD 00827341
//RPT517R2 DD DUMMY 00827446
//** TRUST FUND INTEREST DISTRIBUTN RPT 00827546
//RPT520R1 DD SYSOUT=Z, 00827646
// DEST=&LDEST., 00828036
// HOLD=&LHOLD. 00829036
//** RATE ASSIGNMENT SUMMARY RPT 00829137
//RPT521R1 DD SYSOUT=Z, 00829237
// DEST=&LDEST., 00829337
// HOLD=&LHOLD. 00829437
//** DETERIME NEW EMPLYR RATE 00829536
//RPT522R1 DD SYSOUT=Z, 00829636
// DEST=&LDEST., 00829736
// HOLD=&LHOLD. 00829836
//** TPS EXPERIENCE RATING RECORDS (EXPORT) 00829937
//RPT723R1 DD DSN=DOESTAX.&LVLNODE..RPT723.&TPSYRQ, 00830055
// DISP=(,CATLG,DELETE), 00830255
// SPACE=(8192,(100,200),RLSE), 00830355
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=161,BLKSIZE=16100) 00830455
//** 00831037
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831137
//RPT907R1 DD SYSOUT=Z, 00832036
// DEST=&LDEST., 00833036
// HOLD=&LHOLD. 00834036
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00835036
//RPT907R2 DD SYSOUT=Z, 00836036
// DEST=&LDEST., 00837036
// HOLD=&LHOLD. 00838036
//** CONTROL REPORT SUMMARY 00838139
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00838239
// HOLD=&LHOLD., 00838339
// DEST=&LDEST. 00838439
//** EXPORT CONTROL REPORT 00838537
//RPT991R1 DD SYSOUT=Q,COPIES=2, 00838647
// DEST=&LDEST., 00838737
// HOLD=&LHOLD. 00838837
//* 00839036