//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..PROCS.BATCH.LIB //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) //**** //********************************************************************