//ECNTCHGR JOB (UI,4300,3400,T),CHGRPT.RPT,CLASS=P,MSGCLASS=X,          00010056
//**       TYPRUN=SCAN,                                                 00011050
//***      USER=#DOADTS,                                                00012051
//         NOTIFY=ECNTSUP,REGION=0M                                     00014051
/*ROUTE PRINT U@PRT65               -  REURN CHARGES FOR A QTR
//****                                                                  00040000
//  SET  UINODE='PROD'                                                  00050055
//  SET PRGNODE='PROD'                                                  00051055
//  SET LVLNODE='PROD'                                                  00060050
//  SET MSTNODE='PROD'                                                  00061050
//  SET CHGNODE='PROD'                                                  00070050
//  SET CHGMNBR='CHGM002'                                               00071004
//  SET CHGMSSN='CHGM030'                                               00072028
//  SET   QTRLY='QTR104'                                                00080055
//  SET   LDEST=U@PRT65                                                 00090000
//  SET LVDHOLD='YES'                                                   00100055
//  SET   LHOLD='YES'                                                   00101055
//*****                                                                 00110000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB                       00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00140008
//****                                                                  00150000
//* QUARTERLY CHARGE REPORTING PROCESS REPORTS                          00160058
//*                                                                     00170058
//*  EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS,      00180000
//****                                                                  00210000
//****                                                                  00480000
//*TEP0200 EXEC DTSUXCGP                                                00490000
//*TEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGR1),       00491058
//*        DISP=SHR                    /* USE THESE FOR A RERUN <==     00500058
//STEP0300 EXEC DTSCHGRR                                                00510000
//*TEP0100.RPC110R2  DD  SYSOUT=(V,DTSCG1Q1),HOLD=&LVDHOLD              00511057
//STEP0100.RPC100R2  DD  DUMMY            /* FISC.AGNT.                 00511156
//STEP0100.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00500138
//*TEP0100.DTSFVRO1 DD  DISP=SHR       /* CHG.BD205.RPT                 00500238
//*TEP0500.BD220CHG DD  DISP=SHR       /* CHG.BD220.RPT                 00500339
//****                                                                  00501000
//STEP0100.TPSCHRG   DD  DUMMY            /* TPS FILE                   00512000
//STEP0100.DTSFBTCO  DD  DUMMY            /* BTC FILE                   00513000
//*OESLBLP.DOESLBL1  DD  DUMMY            /* LABELS                     00514000
//****                                                                  00514156
//****                                                                  00530056