//RUNCHGRT JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X,       00010099
//****     TYPRUN=SCAN,                                                 00020099
//         NOTIFY=ECNTSUP,REGION=0M                                     00030099
//****                                                                  00040000
//*  BENEFIT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY          00041099
//****                                                                  00042000
//  SET PRGNODE='PROD'                                                  00043099
//  SET LVLNODE='PROD'                                                  00044099
//  SET MSTNODE='PROD'                                                  00045199
//  SET CHGNODE='PROD'                                                  00046099
//  SET  UINODE='PROD'                                                  00047000
//  SET CHGMNBR='CHGM002'                                               00048000
//  SET CHGMSSN='CHGM030'                                               00049000
//  SET   QTRLY='QTR081'                                                00050099
//  SET   LDEST='LOCAL'                                                 00070000
//  SET   LHOLD='YES'                                                   00080000
//  SET   LVDHOLD='YES'                                                 00081099
//*****                                                                 00090000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB                       00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00110000
//****                                                                  00120000
//****                                                                  00130000
//*TEP0100 EXEC DTSUXCGR                                                00140099
//*TEP0300.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00150099
//*TEP1400.BD220CHG DD  DISP=SHR       /* CHARGE REPORT FILE            00160099
//********************************************************************* 00940071
//STEP0200 EXEC PGM=CHGBD301,                                           00951099
//             COND=(0,LT)                                              00970000
//SYSOUT   DD  SYSOUT=*                                                 00980000
//SYSABOUT DD  SYSOUT=*                                                 00990000
//SYSUDUMP DD  SYSOUT=*                                                 01000000
//**                                                                    01010000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      01020000
//**                                                                    01030000
//CHGPARM  DD  DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY,             01080099
//             DISP=SHR,                                                01080199
//*            DISP=(NEW,CATLG,DELETE),                                 01081099
//             UNIT=SYSDA,                                              01082099
//             SPACE=(80,(2,10),RLSE),                                  01083099
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)                      01084099
//**                                                                    01120000
//BD220CHG DD  DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY,        01130099
//             DISP=SHR,                                                01131099
//*            DISP=(NEW,CATLG,DELETE),                                 01131199
//             UNIT=SYSDA,                                              01132099
//             SPACE=(31040,(1000,1000),RLSE),                          01133099
//             DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040)                   01134099
//*D220CHG DD  DSN=&&BD220RPT,                                          01140099
//*            DISP=(OLD,PASS,DELETE)                                   01150099
//**                                                                    01160000
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 01170000
//             AMP=('BUFNI=5,BUFND=10')                                 01180000
//**                                                                    01190000
//*PC100R2 DD  DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY.,          01210099
//RPC100R2 DD  DUMMY                                                    01220099
//*            DISP=(NEW,CATLG,DELETE),                                 01230099
//**           DISP=(OLD,KEEP,KEEP),                                    01231099
//*            UNIT=SYSDA,                                              01240099
//*            SPACE=(8000,(1000,1000),RLSE),                           01250099
//*            DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600)                   01260099
//**                                                                    01270000
//TPSCHRG  DD  DUMMY                                                    01301099
//*PSCHRG  DD  DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY.,                   01302099
//*            DISP=(NEW,CATLG,DELETE),                                 01310099
//**           DISP=(OLD,KEEP,KEEP),                                    01320099
//*            UNIT=SYSDA,                                              01330099
//*            SPACE=(11800,(1000,1000),RLSE),                          01340099
//*            DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800)                   01350099
//**                                                                    01360000
//**                        TO BE PROCESSED IN THE NEXT DAILY RUN       01370000
//*TSFBTCO DD  DSN=DOESTAX.&LVLNODE..BTC(+1),                           01380099
//*            DISP=(,CATLG,DELETE),                                    01390099
//*            UNIT=SYSDA,                                              01400099
//*            SPACE=(8192,(1000,1000),RLSE),                           01410099
//*            DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        01420099
//**                                                                    01430000
//**                                 SM - TOTAL CHARGES (RATED)         01440000
//RPC100R1 DD  SYSOUT=E,                                                01451099
//             DEST=&LDEST.,                                            01460000
//             HOLD=&LHOLD.                                             01470000
//**                                 CHRG SUMMARY-RATED                 01480000
//RPC100R3 DD  DUMMY                                                    01491099
//**                                                                    01520099
//****                                  SORT REPORT RECORDS (901/907)   01800000
//**                                                                    02270000