//DTSCHGT1 JOB (UI,4300,3400,T),CHGXXX.TEUC,CLASS=P,MSGCLASS=X,         00010015
//**       TYPRUN=SCAN,                                                 00011015
//         USER=#DOADTS,                                                00012015
//         NOTIFY=ECNTSUP,REGION=0M                                     00014016
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00040000
//  SET PRGNODE='PROD'                                                  00050015
//  SET  UINODE='PROD'                                                  00060016
//  SET LVLNODE='PROD'                                                  00060116
//  SET MSTNODE='PROD'                                                  00061015
//  SET CHGNODE='PROD'                                                  00070015
//  SET CHGMNBR='CHGM002'                                               00071006
//  SET CHGMSSN='CHGM030'                                               00072011
//  SET   QTRLY='SPECXX'                                                00080009
//  SET   LDEST=U@PRT65                                                 00090000
//  SET   LHOLD='YES'                                                   00100000
//*****                                                                 00110000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB                       00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00140010
//****                                                                  00150000
//*  PERIODIC CHARGE REPORTING PROCESS - TEUC REPORTS ONLY              00160016
//****                                                                  00170016
//STEP0200 EXEC DTSUXCGP                                                00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGT1),       00491016
//         DISP=SHR                    /* USE THESE FOR A RERUN <==     00500116
//STEP0100.CHGPARM  DD  DISP=SHR       /* CHARGE PARM                   00500210
//STEP0100.DTSFVRO1 DD  DISP=SHR       /* CHG.BD205.RPT                 00500310
//STEP0500.BD220CHG DD  DISP=SHR       /* CHG.BD220.RPT                 00500410
//****                                                                  00501000
//STEP0300 EXEC DTSCGRPT                                                00510000
//STEP0100.RPC100R2  DD  DUMMY            /* FISC.AGNT.                 00511002
//STEP0100.TPSCHRG   DD  DUMMY            /* TPS FILE                   00512002
//STEP0100.DTSFBTCO  DD  DUMMY            /* BTC FILE                   00513002
//DOESLBLP.DOESLBL1  DD  DUMMY            /* LABELS                     00514002
//****                                                                  00520000