//**** 00000125 //* REPORTING AND OTHER FINAL FILE OUPUT FOR THE CHARGE RUN 00061028 //**** 00080025 //DTSCGRPT PROC 00081027 //* DEFNS NEEDED FOR THIS PROC: 00082025 //* LVLNODE=DEVL/TEST/PROD 00083025 //* MSTNODE=DEVL/TEST/PROD 00083170 //* QTRLY=QTRYYQ YYQ IS THE YEAR & QRTR ON QTRLY RUN 00084036 //* =FYNNNN NNNN IS THE FISCAL YR ON YRLY RUN 00084151 //* =SPECXX FOR ALL SPECIAL RUNS 00084276 //* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00085036 //* LHOLD=NO/YES 00085136 //* >> THIS PROC RUNS STEP 1 OF THE CHARGE REPORTING PROCESS, 00085286 //* >> WHICH EXECUTES PRIOR TO DTSPDAY1. 00085386 //* >> PROC DTSCGRPS CONTROLS REPORTING FOR STEP 2, WHICH 00085486 //* >> PRINTS THE SELF-INSURED BILLS. 00085586 //**** 00085657 //STEP0100 EXEC PGM=CHGBD300, 00091044 // PARM='1', 00092085 // COND=(0,LT) 00100020 //SYSOUT DD SYSOUT=* 00110020 //SYSABOUT DD SYSOUT=* 00120020 //SYSUDUMP DD SYSOUT=* 00130020 //** 00210040 //DCAGNCY DD DSN=DOESTAX.&LVLNODE..DCAGNCY, 00220083 // DISP=SHR 00230084 //** 00231083 //CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY, 00232083 // DISP=SHR 00233083 //** 00240079 //BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.&QTRLY, 00243078 // DISP=SHR 00244078 //** 00247176 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00248076 // AMP=('BUFNI=5,BUFND=10') 00249075 //** 00250075 //RPC100R2 DD DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY., 00260067 // DISP=(NEW,CATLG,DELETE), 00261067 // UNIT=SYSDA, 00270060 // SPACE=(8000,(1000,1000),RLSE), 00280060 // DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600) 00290060 //** 00291040 //TPSCHRG DD DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY., 00360081 // DISP=(NEW,CATLG,DELETE), 00370067 // UNIT=SYSDA, 00380060 // SPACE=(11800,(1000,1000),RLSE), 00390060 // DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800) 00400060 //** 00400127 //** TO BE PROCESSED IN THE NEXT DAILY RUN 00401027 //DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1), 00411069 // DISP=(,CATLG,DELETE), 00420067 // UNIT=SYSDA, 00430060 // SPACE=(8192,(1000,1000),RLSE), 00440060 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00450067 //** 00451040 //** SM - TOTAL CHARGES (RATED) 00540246 //RPC100R1 DD SYSOUT=W, 00550036 // DEST=U@PRT155, 00550136 // HOLD=&LHOLD. 00550236 //** CHRG SUMMARY-RATED 00550348 //RPC100R3 DD SYSOUT=O, /* COPIES=2, 00550454 // DEST=&LDEST., 00550548 // HOLD=&LHOLD. 00550648 //** LTR - CHARGES (SELF-INS) 00551046 //RPC110R1 DD SYSOUT=I,COPIES=2, 00560087 // DEST=&LDEST., 00560136 // HOLD=&LHOLD. 00560236 //** CHRG SUMMARY-REIMBURSABLES (S-I) 00561046 //RPC110R2 DD SYSOUT=0 /* COPIES=2, 00570090 //* DEST=&LDEST., 00570190 //* HOLD=&LHOLD. 00570290 //** CHRG SUMMARY-CWC (OTHER STS) 00571051 //RPC120R1 DD SYSOUT=O, /* COPIES=3, 00580055 // DEST=&LDEST., 00580136 // HOLD=&LHOLD. 00580236 //** CHRG SUMMARY-FEDERAL 00581036 //RPC130R1 DD SYSOUT=O, /* COPIES=3, 00590055 // DEST=&LDEST., 00600036 // HOLD=&LHOLD. 00601036 //** NO CHARGES FOUND REPORT 00602071 //RPC140R1 DD SYSOUT=O, /* COPIES=1, 00603071 // DEST=&LDEST., 00604071 // HOLD=&LHOLD. 00605071 //** CHRG SUMMARY-TEUC 00606072 //RPC150R1 DD SYSOUT=O, /* COPIES=1, 00607072 // DEST=&LDEST., 00608072 // HOLD=&LHOLD. 00609072 //** CHRG SUMMARY-DC GOVERNMENT 00640282 //RPC160R1 DD SYSOUT=0 /* COPIES=1, 00640389 //**** SORT REPORT RECORDS (901/907) 00640687 //STEP0150 EXEC PGM=SORT, 00641046 // COND=(0,LT), 00642046 // REGION=0M 00643046 //SYSOUT DD SYSOUT=* 00644046 //SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 00646077 // DISP=SHR 00646177 //SORTOUT DD DSN=&&SRTRPT, 00647046 // DISP=(,PASS,DELETE), 00648046 // UNIT=SYSDA, 00649046 // SPACE=(16384,(1000,1000),RLSE), 00649146 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00649246 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00649347 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649446 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649546 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649646 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00649746 //* 00649857 //**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00649957 //DOESLBL1 EXEC PGM=IEBDG 00650057 //SYSPRINT DD SYSOUT=* 00650157 //LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00650257 // UNIT=SYSDA, 00650357 // SPACE=(TRK,1), 00650457 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00650557 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00650657 // DISP=SHR 00650757 //**** /* POPULATE THE LABELS WORK FILE 00650857 //DOESLBL2 EXEC PGM=IDCAMS 00650957 //SYSPRINT DD SYSOUT=* 00651057 //FILEIN DD DSN=&&TMP901, 00651157 // DISP=(OLD,DELETE,DELETE), 00651257 // UNIT=SYSDA 00651357 //DOESVRO1 DD DSN=&&LBL901, 00651457 // DISP=(NEW,PASS,DELETE), 00651557 // UNIT=SYSDA, 00651657 // SPACE=(8192,(1000,1000),RLSE), 00651757 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00651857 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00651957 // DISP=SHR 00652057 //**** 00652157 //STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 00653080 // COND=(0,LT) 00660020 //SYSOUT DD SYSOUT=* 00670020 //SYSABOUT DD SYSOUT=* 00680020 //SYSUDUMP DD SYSOUT=* 00690020 //** 00700020 //DTSFVRI1 DD DSN=&&SRTRPT, 00710146 // DISP=(OLD,DELETE,DELETE) 00711046 //** 00720020 //DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00720457 //** 00721057 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00730076 // AMP=('BUFNI=5,BUFND=10') 00740020 //** 00750020 //PARMIN DD DUMMY 00760020 //** 00770020 //ATLSTIN DD DUMMY 00780020 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00831041 //RPT907R1 DD SYSOUT=Z, 00832041 // DEST=&LDEST., 00833041 // HOLD=&LHOLD. 00834041 //** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00835041 //RPT907R2 DD SYSOUT=Z, 00836041 // DEST=&LDEST., 00837041 // HOLD=&LHOLD. 00838041 //** CONTROL REPORT SUMMARY 00839045 //RPT980R1 DD SYSOUT=Q,COPIES=2, 00839145 // HOLD=&LHOLD., 00839245 // DEST=&LDEST. 00839345 //** 00840056 //DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00842057 // COND=(0,LT), 00843057 // REGION=4096K 00844057 //DOESVRI1 DD DSN=&&LBL901, 00845057 // DISP=(OLD,DELETE,DELETE) 00846057 //SYSOUT DD SYSOUT=* 00847057 //SYSABOUT DD SYSOUT=* 00848057 //SYSABEND DD SYSOUT=* 00849057 //CAIMRPTS DD SYSOUT=* 00849157 //DOESLBL1 DD SYSOUT=(C), 00849257 // FCB=P104, 00849357 // DEST=U@PRT155, 00849457 // HOLD=&LHOLD. 00849557 //** 00849657