From UAT Z's file modified

JCL/DTSGZCHD.jcl

@@ -0,0 +1,93 @@
+//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'
+//**    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)
+//****
+//********************************************************************