//**** 00000100 //* REPORTING FOR VIEWDIRECT FOR THE YEARLY CHARGE RUN 00061001 //**** 00080000 //DTSCVRPY PROC 00081001 //* DEFNS NEEDED FOR THIS PROC: 00082000 //* LVLNODE=DEVL/TEST/PROD 00083000 //* QTRLY=QTRYYQ YYQ IS THE YEAR & QRTR ON QTRLY RUN 00084000 //* =FYNNNN NNNN IS THE FISCAL YR ON YRLY RUN 00084100 //* =SPECXX FOR ALL OTHER RUNS 00084200 //* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085000 //* LHOLD=NO/YES 00085100 //**** 00085200 //STEP0100 EXEC PGM=CHGBD300, 00091000 // COND=(0,LT) 00100000 //SYSOUT DD SYSOUT=* 00110000 //SYSABOUT DD SYSOUT=* 00120000 //SYSUDUMP DD SYSOUT=* 00130000 //** 00210000 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00220000 // DISP=SHR 00230000 //** 00240000 //BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00243000 // DISP=SHR 00244000 //** 00247100 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248000 // AMP=('BUFNI=5,BUFND=10') 00249000 //** 00250000 //RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 00260000 // DISP=(NEW,CATLG,DELETE), 00261000 // UNIT=SYSDA, 00270000 // SPACE=(13600,(1000,1000),RLSE), 00280000 // DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00290000 //** 00291000 //TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 00360000 // DISP=(NEW,CATLG,DELETE), 00370000 // UNIT=SYSDA, 00380000 // SPACE=(11800,(1000,1000),RLSE), 00390000 // DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 00400000 //** 00400100 //** TO BE PROCESSED IN THE NEXT DAILY RUN 00401000 //DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00411000 // DISP=(,CATLG,DELETE), 00420000 // UNIT=SYSDA, 00430000 // SPACE=(8192,(1000,1000),RLSE), 00440000 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00450000 //** 00451000 //** SM - TOTAL CHARGES (RATED) 00540200 //RPC100R1 DD SYSOUT=W, 00550000 // DEST=U@PRT155, 00550100 // HOLD=&LHOLD. 00550200 //** CHRG SUMMARY-RATED 00550300 //RPC100R3 DD SYSOUT=(O,DTSCG0Y1),HOLD=&LVDHOLD, 00550401 // DEST=&LDEST. 00550500 //** LTR - CHARGES (SELF-INS) 00551000 //RPC110R1 DD DUMMY 00560001 //** CHRG SUMMARY-REIMBURSABLES (S-I) 00561000 //RPC110R2 DD DUMMY 00570001 //** CHRG SUMMARY-CWC (OTHER STS) 00571000 //RPC120R1 DD DUMMY 00580001 //** CHRG SUMMARY-FEDERAL 00581000 //RPC130R1 DD DUMMY 00590001 //** NO CHARGES FOUND REPORT 00602000 //RPC140R1 DD DUMMY /* COPIES=1, 00603000 //** CHRG SUMMARY-TEUC 00606000 //RPC150R1 DD DUMMY /* COPIES=1, 00607000 //** CHRG SUMMARY-DC GOVT 00608002 //RPC160R1 DD DUMMY /* COPIES=1, 00609002 //**** SORT REPORT RECORDS (901/907) 00640100 //STEP0150 EXEC PGM=SORT, 00641000 // COND=(0,LT), 00642000 // REGION=0M 00643000 //SYSOUT DD SYSOUT=* 00644000 //SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00646000 // DISP=SHR 00646100 //SORTOUT DD DSN=&&SRTRPT, 00647000 // DISP=(,PASS,DELETE), 00648000 // UNIT=SYSDA, 00649000 // SPACE=(16384,(1000,1000),RLSE), 00649100 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00649200 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00649300 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649400 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649500 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649600 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649700 //* 00649800 //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00649900 //DOESLBL1 EXEC PGM=IEBDG 00650000 //SYSPRINT DD SYSOUT=* 00650100 //LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00650200 // UNIT=SYSDA, 00650300 // SPACE=(TRK,1), 00650400 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00650500 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00650600 // DISP=SHR 00650700 //**** /* POPULATE THE LABELS WORK FILE 00650800 //DOESLBL2 EXEC PGM=IDCAMS 00650900 //SYSPRINT DD SYSOUT=* 00651000 //FILEIN DD DSN=&&TMP901, 00651100 // DISP=(OLD,DELETE,DELETE), 00651200 // UNIT=SYSDA 00651300 //DOESVRO1 DD DSN=&&LBL901, 00651400 // DISP=(NEW,PASS,DELETE), 00651500 // UNIT=SYSDA, 00651600 // SPACE=(8192,(1000,1000),RLSE), 00651700 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00651800 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00651900 // DISP=SHR 00652000 //**** 00652100 //STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 00653000 // COND=(0,LT) 00660000 //SYSOUT DD SYSOUT=* 00670000 //SYSABOUT DD SYSOUT=* 00680000 //SYSUDUMP DD SYSOUT=* 00690000 //** 00700000 //DTSFVRI1 DD DSN=&&SRTRPT, 00710100 // DISP=(OLD,DELETE,DELETE) 00711000 //** 00720000 //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00720400 //** 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 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831000 //RPT907R1 DD SYSOUT=Z, 00832000 // DEST=&LDEST., 00833000 // HOLD=&LHOLD. 00834000 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00835000 //RPT907R2 DD SYSOUT=Z, 00836000 // DEST=&LDEST., 00837000 // HOLD=&LHOLD. 00838000 //** CONTROL REPORT SUMMARY 00839000 //RPT980R1 DD SYSOUT=Q,COPIES=2, 00839100 // HOLD=&LHOLD., 00839200 // DEST=&LDEST. 00839300 //** 00840000 //DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00842000 // COND=(0,LT), 00843000 // REGION=4096K 00844000 //DOESVRI1 DD DSN=&&LBL901, 00845000 // DISP=(OLD,DELETE,DELETE) 00846000 //SYSOUT DD SYSOUT=* 00847000 //SYSABOUT DD SYSOUT=* 00848000 //SYSABEND DD SYSOUT=* 00849000 //CAIMRPTS DD SYSOUT=* 00849100 //DOESLBL1 DD SYSOUT=(C), 00849200 // FCB=P104, 00849300 // DEST=U@PRT155, 00849400 // HOLD=&LHOLD. 00849500 //** 00849600