//DTSCHGXM JOB (UI,4300,3400,T),QTRLY-CWC-FED-CHGRS,CLASS=P,MSGCLASS=X, 00010017
//**       TYPRUN=SCAN,                                                 00011017
//*        USER=#DOADTS,
//         NOTIFY=ECNTSUP,REGION=0M                                     00014021
//****                                                                  00042026
//  SET PRGNODE='PROD'                                                  00050017
//  SET LVLNODE='PROD'                                                  00060017
//  SET UINODE='PROD'                                                   00060124
//  SET MSTNODE='PROD'           /* QRTLY RUN FOR CWC & FED EMPLOYERS   00061032
//  SET CHGNODE='PROD'                                                  00070017
//  SET CHGMNBR='CHGM002'  /* AND DC GOVT VIEW DIRECT REPORTS           00071004
//  SET CHGMSSN='CHGM030'                                               00072014
//  SET   QTRLY='CFOXM151'                                              00080038
//  SET   LDEST='LOCAL'                                                 00090000
//  SET LVDHOLD='YES'                                                   00100027
//  SET   LHOLD='YES'                                                   00101027
//*****                                                                 00110000
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB                       00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00140009
//****                                                                  00150000
//*  QUARTERLYCHARGE REPORTING PROCESS FOR CWC AND FED AND DC GOVT      00160032
//*  VIEW DIRECT REPORTS                                                00160032
//****                                                                  00480000
//STEP0200 EXEC DTSUXCWC                                                00490000
//****                                                                  00480000
//*>>>>>>>>PARM MUST BE CHANGED BEFORE RUNNING JOB (START/END DATES)    00160032
//****                                                                  00480000
//STEP0100.SYSIN DD *                                                   00491032
RPT,      ,      ,NNYYYY,000000
//****                                                                  00504000
//STEP0300 EXEC DTSCHGXM                                                00510031
//                                                                      00520000
//*********************************************************************
//STEP0400 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//CHGFEDCW DD DSN=DOESTAX.PROD.CHG.BD220.CWC.TEMCWC,
//            DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*OUTPUT REPT DEST=LOCAL,FORMS=REPT
//***********************************************************
//EMAIL    EXEC PGM=IEBGENER,
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:RAGINI.JUJJAVARAPU@DC.GOV',
//            'CC:ZARATH.LALPUTAN@DC.GOV',
//            'CC:NANCY.HUDAK@DC.GOV',
//         'SUBJECT: EOP FILE READY                 )',
//         'FILEDESC: CHARGES FOR EOP OFFICE            ',
//*        'FILENAME:DOESTAX.DEVL.IRSFUTA.QTRLY')
//         'FILENAME:EOP_QTR_CHARGES.TXT')
//SYSUT1   DD DSN=DOESTAX.DEVL.EOPQTR.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//****************************************************************
//DTSFTCQ4 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT)
//*
//SYSPRINT  DD SYSOUT=(*)
//SYSMDUMP  DD SYSOUT=(*)
//OUTPUT    DD SYSOUT=(*)
//INPUT     DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFTCQ4),DISP=SHR
//*
**************************** BOTTOM OF DATA **********************
//*********************************************************************