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

90 lines
7.0 KiB
Plaintext

//**** 00000100
//* REPORTING FOR THE ANNUAL FILERS RATES NOTICES 00061002
//**** 00080000
//DTSVARPT PROC 00081001
//* 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
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00701007
//DTSFVRI1 DD DSN=&&SRPTREC, 00710000
// DISP=(OLD,DELETE,DELETE) 00711000
//** 00720000
//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
//RPT723R1 DD SYSOUT=* 00790010
//RPT503R1 DD SYSOUT=W, 00791010
// DEST=&LDEST., 00800006
// HOLD=&LHOLD. 00810006
//RPT503R2 DD SYSOUT=W, 00820008
// DEST=&LDEST., 00821006
// HOLD=&LHOLD. 00822006
//RPT503R3 DD DSN=DOESTAX.CONV.ESSP.RATE.&RATEYR., 00822113
//* DISP=SHR, 00822213
// DISP=(NEW,CATLG,DELETE), 00822313
// UNIT=SYSDA, 00822413
// SPACE=(800,(500,500),RLSE), 00822513
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=2400) 00822613
//** RATE CUTOFF ERROR LST 00823009
//RPT507R1 DD SYSOUT=Z, 00824009
// DEST=&LDEST., 00825009
// HOLD=&LHOLD. 00825109
//** RATE ASSIGNMENT DETAIL LST (REG) 00825200
//RPT515R1 DD SYSOUT=0 00825311
//* DEST=&LDEST., 00825411
//* HOLD=&LHOLD. 00825511
//RPT515R2 DD SYSOUT=X, 00825603
// DEST=&LDEST., 00825703
// HOLD=&LHOLD. 00825803
//RPT515R3 DD SYSOUT=X, 00825903
// DEST=&LDEST., 00826003
// HOLD=&LHOLD. 00826103
//RPT515R4 DD SYSOUT=X, 00826212
// DEST=&LDEST., 00826312
// HOLD=&LHOLD. 00826412
//** RATE ASSIGNMENT ERROR LST 00826500
//RPT516R1 DD SYSOUT=0 00826611
//* DEST=&LDEST., 00826711
//* HOLD=&LHOLD. 00826811
//** 00826904
//RPT517R1 DD SYSOUT=X, 00827004
// DEST=&LDEST., 00827104
// HOLD=&LHOLD. 00827204
//** 00827305
//RPT517R2 DD SYSOUT=X, 00828005
// DEST=&LDEST., 00829005
// HOLD=&LHOLD. 00829105
//** RATE ASSIGNMENT SUMMARY RPT 00829200
//RPT521R1 DD SYSOUT=0 00829311
//* DEST=&LDEST., 00829411
//* HOLD=&LHOLD. 00829511
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00829609
//RPT907R1 DD SYSOUT=0 00829711
//* DEST=&LDEST., 00829811
//* HOLD=&LHOLD. 00829911
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831100
//RPT907R2 DD SYSOUT=Z, 00836000
// DEST=&LDEST., 00837000
// HOLD=&LHOLD. 00838000
//** CONTROL REPORT SUMMARY 00838100
//RPT980R1 DD SYSOUT=0 00838211
//* HOLD=&LHOLD., 00838311
//* DEST=&LDEST. 00838411
//** EXPORT CONTROL REPORT 00838500
//RPT991R1 DD SYSOUT=0 00838611
//* DEST=&LDEST., 00838711
//* HOLD=&LHOLD. 00838811
//* 00839000