//****                                                                  00000100
//*    REPORTING AND OTHER FINAL FILE OUPUT FOR THE CHARGE RUN          00061000
//****                                                                  00080000
//DTSCGRPT PROC                                                         00081000
//*              DEFNS NEEDED FOR THIS PROC:                            00082000
//*   LVLNODE=DEVL/TEST/PROD                                            00083000
//*   MSTNODE=DEVL/TEST/PROD                                            00083100
//*   QTRLY=QTRYYQ   YYQ IS THE YEAR & QRTR ON QTRLY RUN                00084000
//*        =FYNNNN   NNNN IS THE FISCAL YR ON YRLY RUN                  00084100
//*        =SPECXX   FOR ALL SPECIAL RUNS                               00084200
//*   LDEST=LOCAL   (OR SOME PARTICULAR QUE DESTINATION)                00085000
//*   LHOLD=NO/YES                                                      00085100
//*   >> THIS PROC RUNS STEP 1 OF THE CHARGE REPORTING PROCESS,         00085200
//*   >> WHICH EXECUTES PRIOR TO DTSPDAY1.                              00085300
//*   >> PROC DTSCGRPS CONTROLS REPORTING FOR STEP 2, WHICH             00085400
//*   >> PRINTS THE SELF-INSURED BILLS.                                 00085500
//****                                                                  00085600
//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,                           00220000
//             DISP=SHR                                                 00230000
//**                                                                    00231000
//CHGPARM  DD  DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY,                   00232000
//             DISP=SHR                                                 00233000
//**                                                                    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=(8000,(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,                /* COPIES=2,                    00550400
//             DEST=&LDEST.,                                            00550500
//             HOLD=&LHOLD.                                             00550600
//**                                 LTR - CHARGES  (SELF-INS)          00551000
//RPC110R1 DD  SYSOUT=I,COPIES=2,                                       00560000
//             DEST=&LDEST.,                                            00560100
//             HOLD=&LHOLD.                                             00560200
//**                                 CHRG SUMMARY-REIMBURSABLES (S-I)   00561000
//RPC110R2 DD  SYSOUT=O,                  /* COPIES=2,                  00570000
//             DEST=&LDEST.,                                            00570100
//             HOLD=&LHOLD.                                             00570200
//**                                 CHRG SUMMARY-CWC (OTHER STS)       00571000
//RPC120R1 DD  SYSOUT=O,                   /* COPIES=3,                 00580000
//             DEST=&LDEST.,                                            00580100
//             HOLD=&LHOLD.                                             00580200
//**                                 CHRG SUMMARY-FEDERAL               00581000
//RPC130R1 DD  SYSOUT=O,                   /* COPIES=3,                 00590000
//             DEST=&LDEST.,                                            00600000
//             HOLD=&LHOLD.                                             00601000
//**                                 NO CHARGES FOUND REPORT            00602000
//RPC140R1 DD  SYSOUT=O,                   /* COPIES=1,                 00603000
//             DEST=&LDEST.,                                            00604000
//             HOLD=&LHOLD.                                             00605000
//**                                 CHRG SUMMARY-TEUC                  00606000
//RPC150R1 DD  SYSOUT=O,                   /* COPIES=1,                 00607000
//             DEST=&LDEST.,                                            00608000
//             HOLD=&LHOLD.                                             00609000
//**                                 CHRG SUMMARY-DC GOVERNMENT         00640200
//RPC160R1 DD  SYSOUT=O,                  /* COPIES=1,                  00640300
//             DEST=&LDEST.,                                            00640400
//             HOLD=&LHOLD.                                             00640500
//****                                  SORT REPORT RECORDS (901/907)   00640600
//**                                                                    00849600