//DTSCHGYX JOB (UI,4300,3400,T),RATED-CHARGES,CLASS=S,MSGCLASS=X,       00010011
//****     TYPRUN=SCAN,                                                 00020000
//         NOTIFY=ECNTSUP,REGION=0M                                     00030000
//****                                                                  00040000
//*  REPRINT CHARGE REPORTING PROCESS FOR RATED EMPLOYERS ONLY          00041001
//****                                                                  00041100
//**** JOB CAN RUN ANYTIME - NO MASTER FILES UPDATED                    00041200
//****                                                                  00042000
//  SET PRGNODE='PROD'                                                  00043000
//  SET LVLNODE='PROD'                                                  00044000
//  SET MSTNODE='PROD'                                                  00045100
//  SET CHGNODE='PROD'                                                  00046000
//  SET  UINODE='PROD'                                                  00047000
//  SET CHGMNBR='CHGM002'                                               00048000
//  SET CHGMSSN='CHGM030'                                               00049000
//  SET   QTRLY='QTR193'                                                00050012
//  SET   LDEST='LOCAL'                                                 00070009
//  SET   LHOLD='YES'                                                   00080000
//  SET   LVDHOLD='YES'                                                 00081000
//*****                                                                 00090000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB                       00100000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00110012
//****                                                                  00120000
//****                                                                  00130000
//*TEP0100 EXEC DTSUXCGR                                                00140001
//*TEP0300.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00150000
//*TEP1400.BD220CHG DD  DISP=SHR       /* CHARGE REPORT FILE            00160000
//*TEP0300.EXTPARM DD *                                                 00170001
//*QTR,      ,      ,YYYYYY,000000                                      00200001
//*                                                                     00210001
//*ANN,      ,      ,YYYYYY,000000                                      00220000
//*QTR,      ,      ,YYYYNY,000000                                      00230000
//*EMP,070106,063007,YNNNNN,154162                                      00240000
//********************************************************************* 00940000
//STEP0200 EXEC PGM=CHGBD301,                                           00951000
//             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,             01080000
//             DISP=SHR,                                                01080100
//*            DISP=(NEW,CATLG,DELETE),                                 01081000
//             UNIT=SYSDA,                                              01082000
//             SPACE=(80,(2,10),RLSE),                                  01083000
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)                      01084000
//**                                                                    01120000
//BD220CHG DD  DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY,        01130005
//*D220CHG DD  DSN=DOESTAX.DEVL.CHG.BD220.REPRINT,                      01130105
//             DISP=SHR,                                                01131000
//*            DISP=(NEW,CATLG,DELETE),                                 01131100
//             UNIT=SYSDA,                                              01132000
//             SPACE=(31040,(1000,1000),RLSE),                          01133000
//             DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040)                   01134000
//*D220CHG DD  DSN=&&BD220RPT,                                          01140000
//*            DISP=(OLD,PASS,DELETE)                                   01150000
//**                                                                    01160000
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,                 01170000
//             AMP=('BUFNI=5,BUFND=10')                                 01180000
//**                                                                    01190000
//RPC100R2 DD  DSN=DOESTAX.&LVLNODE..CHG.FISCAL.AGENT.&QTRLY.,          01210000
//**           DISP=(NEW,CATLG,DELETE),                                 01230001
//             DISP=(OLD,KEEP,KEEP),                                    01231001
//             UNIT=SYSDA,                                              01240000
//             SPACE=(8000,(1000,1000),RLSE),                           01250000
//             DCB=(RECFM=FB,LRECL=136,BLKSIZE=13600)                   01260000
//**                                                                    01270000
//TPSCHRG  DD  DSN=DOESTAX.&LVLNODE..CHG.TPS.&QTRLY.,                   01301000
//**           DISP=(NEW,CATLG,DELETE),                                 01310001
//             DISP=(OLD,KEEP,KEEP),                                    01320001
//             UNIT=SYSDA,                                              01330000
//             SPACE=(11800,(1000,1000),RLSE),                          01340000
//             DCB=(RECFM=FB,LRECL=118,BLKSIZE=11800)                   01350000
//**                                                                    01360000
//**                        TO BE PROCESSED IN THE NEXT DAILY RUN       01370000
//*TSFBTCO DD  DSN=DOESTAX.&LVLNODE..BTC(+1),                           01380000
//*            DISP=(,CATLG,DELETE),                                    01390000
//*            UNIT=SYSDA,                                              01400000
//*            SPACE=(8192,(1000,1000),RLSE),                           01410000
//*            DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        01420000
//**                                                                    01430000
//**                                 SM - TOTAL CHARGES (RATED)         01440000
//RPC100R1 DD  SYSOUT=*,                                                01451009
//             DEST=&LDEST.,                                            01460000
//             HOLD=&LHOLD.                                             01470000
//**                                 CHRG SUMMARY-RATED                 01480000
//RPC100R3 DD  SYSOUT=*                                                 01491010
//**                                                                    01520000
//****                                  SORT REPORT RECORDS (901/907)   01800000
//****                                                                  01990000