DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSXACHD.jcl

@@ -0,0 +1,82 @@
+//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..PROCLIB
+//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)
+//
+//********************************************************************