//DTSPACHD JOB (UI,4300,03410,P),'SEND-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 BTCNODE='DEVL'
//   SET PRGNODE='CONV'
//   SET LVDHOLD='YES'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//********************************************************************
//****   FTP ESSP ACH PAYMENTS TO WELLS FARGO  USING FTPS ON THE
//****   MAINFRAME. THIS JOB WILL RUN DAILY AT 4:00 PM
//****                                                    1/30/15  ZL1
//*******************************************************************
//***************    put production ach 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'
//NETRC    DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFIN)
//SYSFTPD  DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCDATA)
//         DD *
FWFRIENDLY TRUE
//SYSPRINT DD SYSOUT=*,HOLD=YES
//INPUT    DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
/*
//********************************************************************
//***  COPY essp ach payments to backup ach file.
//**
//********************************************************************
//**
//COPYACHP EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDD.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 DTSBX425
//
//********************************************************************
//***  send email ach transimmited to 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:karthik.sadasivam@sagitec.com',
//            'TO:MARGARET.HERNANDEZ@DC.GOV',
//            'TO:ESAYAS.LEMMA@DC.GOV',
//            'TO:NANCY.HUDAK@DC.GOV',
//            'TO:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: ESSP ach payments transmitted to wells fargo',
//*        'FILEDESC: DAILY ESSP-DUTAS UPLOAD    ',
//         'FILENAME:essp_ach.TXT')
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.ACHDD.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//
//********************************************************************