//**** 00000100 //* REPORTING FOR VIEWDIRECT FOR THE QUARTERLY CHARGE RUN 00061000 //**** 00080000 //DTSCHGQ3 PROC 00081002 //* 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 // PARM='1', 00092000 // COND=(0,LT) 00100000 //SYSOUT DD SYSOUT=* 00110000 //SYSABOUT DD SYSOUT=* 00120000 //SYSUDUMP DD SYSOUT=* 00130000 //** 00210000 //DCAGNCY DD DSN=DOESTAX.&LVLNODE..DCAGNCY, 00212000 // DISP=SHR 00213000 //** 00214000 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00220000 // DISP=(OLD,PASS,DELETE) 00230003 //** 00240000 //BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.CWC.&QTRLY, 00243006 // DISP=SHR 00243106 //** 00247100 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248000 // AMP=('BUFNI=5,BUFND=10') 00249000 //** 00250000 //RPC100R2 DD DUMMY 00260002 //** 00291000 //TPSCHRG DD DUMMY 00360002 //** TO BE PROCESSED IN THE NEXT DAILY RUN 00401000 //DTSFBTCO DD DUMMY 00411002 //** 00451000 //** SM - TOTAL CHARGES (RATED) 00540200 //RPC100R1 DD DUMMY 00550001 //** CHRG SUMMARY-RATED 00550300 //RPC100R3 DD DUMMY 00550401 //** 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 SYSOUT=O,COPIES=2, 00580007 // DEST=&LDEST. 00580100 //** CHRG SUMMARY-FEDERAL 00581000 //RPC130R1 DD SYSOUT=O,COPIES=2, 00590007 // DEST=&LDEST. 00600000 //** NO CHARGES FOUND REPORT 00602000 //CSV130R1 DD DSN=DOESTAX.PROD.FSDES.&QTRLY., 00603008 // DISP=(NEW,CATLG,DELETE), 00603208 // UNIT=SYSDA, 00603308 // SPACE=(6780,(1000,1000),RLSE), 00603408 // DCB=(RECFM=FB,LRECL=678,BLKSIZE=6780) 00603508 //RPC130R2 DD DUMMY /* COPIES=1, 00604008 //RPC140R1 DD DUMMY /* COPIES=1, 00605008 //** CHRG SUMMARY-TEUC 00606000 //RPC150R1 DD DUMMY /* COPIES=1, 00607000 //** CHRG SUMMARY-DC GOVT 00608000 //RPC160R1 DD DUMMY 00609001 //**** SORT REPORT RECORDS (901/907) 00640100 //STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00641000 // COND=(0,LT), 00642000 // REGION=0M 00643000 //SYSOUT DD SYSOUT=* 00644000 //SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00646000 // DISP=(OLD,PASS,DELETE) 00646103 //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 00849405 //** 00849600