DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSZACHD.jcl

@@ -0,0 +1,40 @@
+//DTSZACHD JOB (UI,4300,03410,P),'recv-ACH-DEBIT-WF',REGION=4000K,
+//         CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
+/*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
+//**
+//STEP0100 EXEC DTSZX426
+//*
+//********************************************************************
+//***  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',
+//* USERDATA=('TO:theresa.roy@DC.GOV',
+//*           'TO:NANCY.HUDAK@DC.GOV',
+//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
+//*           'TO:nicholas.lam@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')
+//SYSUT1   DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//****
+//********************************************************************