//RUNCHGZC JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X,           00010014
//**       TYPRUN=SCAN,                                                 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='SPECDC'                                                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 ONLY *******************          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.RPC110R1  DD  DUMMY            /* S-I     (I)                00511217
//STEP0100.RPC110R3  DD  DUMMY            /* S-I     (I)                00511217
//STEP0100.RPC160R1  DD  DSN=DOESTAX.DEVL.AUGCHG.R0818,DISP=SHR         00511319
//STEP0100.TPSCHRG   DD  DUMMY            /* TPS FILE                   00512000
//STEP0100.DTSFBTCO  DD  DUMMY            /* BTC FILE                   00513000
//DOESLBLP.DOESLBL1  DD  DUMMY            /* LABELS                     00514000
//*                                                                     00520000
/*JOBPARM LINES=99999
/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***************************************************************
//*   U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
//*           INCLUDE JOB SEPARATORS
//*   U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
//*           OMITS ALL JOB SEPARATORS INFORMATION
//*   U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
//*           OMITS ALL JOB SEPARATORS INFORMATION
//*   U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
//*           OMITS ALL JOB SEPARATORS INFORMATION
//***************************************************************
//EMAIL    EXEC PGM=IEBGENER,
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//*        'CC: CAMILLE.GERALD@DC.GOV',
//*        'CC: RYAN.LEE-MOORE@DC.GOV',
//*        'CC: SIA.KIAWU@DC.GOV',
//*        'CC: LOUANN.CUDJOE@DC.GOV',
//*        'CC: MOHAMED.HMAEY@DC.GOV',
//         'FILEDESC: DC GOVT MONTHLY CHARGES             ',
//         'FILENAME:CONVCHGS.TXT')
//SYSUT1   DD DISP=SHR,
//         DSN=DOESTAX.DEVL.AUGCHG.R0818
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*