//DTSGACHD JOB (UI,4300,03410,P),'recv-ACH-DEBIT-WF',REGION=4000K,
//         USER=#DOADTS,
//         CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE    PRINT U@PRT65
//*
//   SET LVLNODE='CONV'
//   SET MSTNODE='PROD'
//   SET IMPNODE='CONV'
//   SET PRGNODE='CONV'
//   SET LVDHOLD='YES'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIELIB
//**
//****   GET ESSP ACH PAYMENTS FROM WELLS FARGO  USING FTPS ON THE
//****   MAINFRAME. THIS JOB WILL RUN DAILY AT 9:00 AM
//****                                                    1/30/15  ZL1
//*******************************************************************
//******************  production files only ************
//*******************************************************************
//****
//***    FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY.
//****
//***    THIS JOB WILL USE FTPS (FTP WITH SSL CERT) TO TRANSMIT FILE.
//****
//***    ALL WELLS FARGO CERT ARE INSTALLED ON DOES LPARS 0S19 & OS16
//********************************************************************
//*-----------------------------------------------------
//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS
//*-----------------------------------------------------
//*STEPWF   EXEC PGM=FTP,
//*  PARM='-r TLS safetrans.wellsfargo.com'
//**    PARM='-Sftp=TRUE 10.57.110.160'
//*ENVVAR   DD *
//*  CLIENT=sftp
//*  SFTP_AUTH=3
/*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SFTPAUTH DD * 
//*  machine 10.57.110.160 user dutasrc pass Today728rc!
//*
//*ETRC    DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN)
//*NETRC    DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//*SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT)
//*         DD *
//*FWFRIENDLY TRUE
//*SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT    DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR
//*
//********************************************************************
//***  COPY essp ach RETURNS  to backup ach file.
//**
//********************************************************************
//**
//*COPYACHP EXEC PGM=IDCAMS,COND=(0,LT)
//*IFILE DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR
//**
//*OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1),
//*      DISP=(NEW,CATLG,DELETE),
//*      UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//*      DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*SYSPRINT DD SYSOUT=(*)
//*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//STEP0100 EXEC DTSZX426
//**
//********************************************************************
//***  send email ach returns received from wells fargo.
// 
//********************************************************************
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:rosalind.holbrook@dc.gov',
//            'TO:aravind.vitta@sagitec.com',
//            'TO:rajini.jujjavarapu@dc.gov',
//            'TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:margaret.hernandez@dc.gov',
//            'TO:yinka.olarewaju-alo@dc.gov',
//            'TO:joy.diggs@dc.gov',
//*           'TO:macarena.cantelas@dc.gov',
//            'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//        'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO',
//        'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO        ',
//        'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//****
//********************************************************************