//DTSDCGOV JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X,           00010014
//**       TYPRUN=SCAN,                                                 00011014
//         USER=#DOADTS,                                                00011014
//         NOTIFY=ECNTSUP,REGION=0M                                     00014018
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00040000
//  SET  UINODE='PROD'                /* MONTHLY RUN FOR DC GOVT ONLY   00050020
//  SET PGMNODE='PROD'                                                  00051022
//  SET LVLNODE='PROD'                                                  00060014
//  SET MSTNODE='PROD'                                                  00061014
//  SET CHGNODE='PROD'                                                  00070014
//  SET CHGMNBR='CHGM002'                                               00071002
//  SET CHGMSSN='CHGM030'                                               00072009
//  SET   QTRLY='SPECXX'                                                00080000
//  SET   LDEST=U@PRT65                                                 00090000
//  SET   LHOLD='YES'                                                   00100000
//*****                                                                 00110000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PGMNODE..PROCS.BATCH.LIB                       00130022
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00140009
//****                                                                  00150000
//*  PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS   00160000
//********************  DC GOVERNMENT VIEW DIRECT REPORT******          00170020
//****                                                                  00480000
//STEP0200 EXEC DTSUXCGP                                                00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGDC),       00491020
//         DISP=SHR                                                     00500020
//STEP0100.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00500105
//STEP0100.DTSFVRO1 DD  DISP=SHR       /* CHG.BD205.RPT                 00500221
//STEP0500.BD220CHG DD  DISP=SHR       /* CHG.BD220.RPT                 00500305
//****                                                                  00504000
//STEP0300 EXEC DTSCGRPT                                                00510000
//STEP0100.RPC100R1  DD  DUMMY            /* RATED   (W)                00511017
//STEP0100.RPC100R2  DD  DUMMY            /* FISC.AGNT.                 00511101
//STEP0100.RPC110R3  DD  DUMMY            /* NOT NEEDED HERE            00511101
//STEP0100.RPC110R1  DD  DUMMY            /* S-I     (I)                00511217
//STEP0100.CSV130R1  DD  DUMMY            /* FSDES UPLOAD FILE          00511217
//STEP0100.RPC130R2  DD  DUMMY            /* FSDES UPLOAD FILE          00511217
//STEP0100.RPC160R1  DD SYSOUT=(V,DTSCG4Q1),HOLD=NO                     00511319
//STEP0100.TPSCHRG   DD  DUMMY            /* TPS FILE                   00512000
//STEP0100.DTSFBTCO  DD  DUMMY            /* BTC FILE                   00513000
//DOESLBLP.DOESLBL1  DD  DUMMY            /* LABELS                     00514000
//                                                                      00514000