//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..PROCLIB
//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'
//*ETRC    DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPWFIN)
//NETRC    DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPFIN)
//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 DTSBX426
//**
//********************************************************************
//***  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:PANKAJ.SHARMA@SAGITEC.COM',
//            'TO:aravind.vitta@sagitec.com',
//            'TO:NANCY.HUDAK@DC.GOV',
//            'TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:margaret.hernandez@dc.gov',
//            'TO:geraldine.hester@dc.gov',
//            'TO:esayas.lemma@dc.gov',
//            'TO:ryan.moore-lee@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)
//****
//********************************************************************