//DTSCHGDW JOB (UI,4300,3400,T),CHGDC.WKE,CLASS=P,MSGCLASS=X,           00010017
//**       TYPRUN=SCAN,                                                 00011017
//         USER=#DOADTS,                                                00012024
//         NOTIFY=ECNTSUP,REGION=0M                                     00013020
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00040000
//  SET  UINODE='PROD'                /* WEEKLY RUN FOR DC GOVT.        00050019
//  SET PRGNODE='PROD'                                                  00051022
//  SET LVLNODE='PROD'                                                  00060017
//  SET CHGNODE='PROD'                                                  00070017
//  SET CHGMNBR='CHGM002'                                               00071002
//  SET CHGMSSN='CHGM030'                                               00072009
//  SET   QTRLY='SPECXX'                                                00080000
//  SET   LDEST=U@PRT65                                                 00090000
//  SET   LHOLD='YES'                                                   00100000
//  SET LVDHOLD='YES'                                                   00101020
//*****                                                                 00110000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB                       00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB     /* PROD PROGS                    00140017
//****                                                                  00150000
//*  WEEKLY   CHARGE REPORTING PROCESS FOR DC GOVERNMENT                00160022
//****                                                                  00480000
//STEP0200 EXEC DTSUXCGP                                                00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGDW),       00491022
//         DISP=SHR                                                     00500022
//STEP0100.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00500105
//STEP0100.DTSFVRO1 DD  DISP=SHR       /* CHG.BD205.RPT                 00500323
//STEP0500.BD220CHG DD  DISP=SHR       /* CHG.BD220.RPT                 00500513
//****                                                                  00504000
//STEP0300 EXEC DTSCHGQ1                                                00510021
//STEP0100.RPC100R1  DD  DUMMY            /* RATED (W)                  00511001
//STEP0100.RPC100R2  DD  DUMMY            /* FISC.AGNT.                 00511101
//STEP0100.RPC100R3  DD  DUMMY            /* FISC.AGNT.                 00511220
//STEP0100.RPC110R1  DD  DUMMY            /* S-I   (I)                  00511320
//STEP0100.RPC110R2  DD  DUMMY            /* S-I   (I)                  00511420
//STEP0100.RPC120R1  DD  DUMMY            /* S-I   (I)                  00511520
//STEP0100.RPC130R1  DD  DUMMY            /* S-I   (I)                  00511620
//STEP0100.RPC160R1  DD  SYSOUT=0                                       00511820
//STEP0100.DTSFBTCO  DD  DUMMY            /* BTC FILE                   00513000
//STEP0100.TPSCHRG   DD  DUMMY            /* TPS FILE                   00513125
//DOESLBLP.DOESLBL1  DD  DUMMY            /* LABELS                     00514000
//****                                                                  00515020
//*                                                                     00516020