//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=DTSIELIB
//**
//********************************************************************
//****   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
//****   MAINFRAME. THIS JOB WILL RUN DAILY AT 6:00 PM    1/09/16 zl1
//****
//********************************************************************
//*********************************************************************
//* THIS JOB WILL READ THE FTP OUTPUT LOG FILE TO DETERMINE IF THE FTP
//* TRANSMITION WAS SUCESSFULL IN TRANSFERING THE ACH DEPOSIT FILE TO
//* WELLS FARGO.
//*
//*     THIS JOB WILL ABEND WHEN THE FOLLOWING CONDITIONS OCCUR
//*
//*  1. NO LOG FILE PRESENT FTP JOB FAILED OR DID NOT RUN
//*
//*  2. 226 Closing data connection (network bytes 2257/file NOT PRESENT
//*
//*  3. EZA1617I 2257 bytes transferred  NOT PRESENT
//*
//*  4. network bytes and bytes transferred not equal
//*                                                        12/13/16 zl1
//*********************************************************************
//********************************************************************
//* job split in two jobs this job will run a 6:00pm
//* report job will run a 5:00pm to verify deposit before transmitting
//********************************************************************
//***  COPY essp ach payments to backup ach file.
//** see job dtsrachd                                  09/01/16 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.
//****
//****!!!!!!---- THIS CERT EXPIRES EACH YEAR IN DECEMBER ----!!!!!!
//****
//***    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=SFTP,
//  PARM='-sftp=TRUE safetransvalidate.wellsfargo.com'
//ENVVAR   DD *
  CLIENT=sftp
*  SFTP_STRICTHOSTKEY=accept-new
  SFTP_AUTH=5
/*
//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//NETRC    DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24)
//SFTPPPK  DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(RCWFKEY)
//SYSPRINT DD SYSOUT=*,HOLD=YES
//*INPUT    DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),DISP=SHR
//SYSIN   DD *
ascii
cd /inbound/GOVTO945_ACH_70/
PUT E:\DUTASJOBS\DefaultVolume\ECNTSUP\DOESTAX\CONV\FROMESSP\ACHDPAYT.seq +
ESSP_DOESTAX_ACHDEBIT_DEPOSITS.TXT
quit
//* 
//* 
//*STEPWF   EXEC PGM=FTP,
//*  PARM='-r TLS safetrans.wellsfargo.com'
//*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=*
//*INPUT    DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSZWFAD),DISP=SHR
//*
//********************************************************************
//***  send email ach transimmited to wells fargo.
//**
//********************************************************************
//*STEP0100 EXEC PGM=DTSBX706,     READ ACH FTP LOG FILE FOR ERROR
//*             COND=(0,LT),
//*             REGION=0M
//*SYSOUT   DD  SYSOUT=*
//*SYSABOUT DD  SYSOUT=*
//*SYSABEND DD  SYSOUT=*
//*
//*DTSPACHF DD  DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
//*
//COPYPACH EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.PACHLOG.TXT,DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.ESSP.ACHLOG.ARCHIVE(+1),
//      DISP=(NEW,CATLG,DELETE),
//      UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//      DCB=(SYS3.MODEL,RECFM=VB,LRECL=1028,BLKSIZE=6144)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//FAIL01   IF STEP0100.ABEND THEN
//X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,STEP0100),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//            'CC:RAGINI.JUJJAVARAPU@DC.GOV',
//            'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//            'CC:PANKAJ.SHARMA@SAGITEC.COM',
//            'CC:joy.diggs@dc.gov',
//            'CC:Margaret.Hernandez@DC.GOV',
//            'CC:Prabhu.tegur@sagitec.com',
//            'CC:ARAVIND.VITTA@sagitec.com',
//            'CC:Esayas.Lemma@dc.gov',
//         'SUBJECT:ACH DAILY DEPOSIT FTP --FAILED -- TO WELL FARGO',
//         'FILENAME:ESSP_X760_FAILED.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.X706FAIL.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//         ELSE
/*
//X706PASS EXEC PGM=IEBGENER,COND=(0,NE,STEP0100),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//            'CC:RAGINI.JUJJAVARAPU@DC.GOV',
//            'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//            'CC:margaret.hernandez@dc.gov',
//            'CC:PANKAJ.SHARMA@SAGITEC.COM',
//            'CC:joy.diggs@dc.gov',
//            'CC:Prabhu.tegur@sagitec.com',
//            'CC:yinka.olarewaju-alo@dc.gov',
//         'SUBJECT:ACH DAILY DEPOSIT ---TRANSFERRED--- TO WELL FARGO',
//         'FILENAME:PACH_X760_PASSED.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.X706PASS.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//         ENDIF
//**STOP HER FOR NOW  ZL1
//
//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:joy.diggs@dc.gov',
//            'TO:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: ESSP ach payments transmitted to wells fargo',
//*        'FILEDESC: DAILY ESSP-DUTAS UPLOAD    ',
//         'FILENAME:essp_ach.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.ACHDD.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//
//********************************************************************