//DTSRACHD 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='PROD' // SET LVDHOLD='YES' //* //PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //** //******************************************************************** //**** reports all ach deposits from essp to wells fargo //**** THIS JOB WILL RUN DAILY AT 5:00 PM //**** 9/01/16 ZL1 //******************************************************************* //**** //*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY. //**** //******************************************************************** //*** COPY essp ach payments to backup ach file. raincode testing zl1 //** //******************************************************************** //** //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=(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', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:joy.diggs@dc.gov', // 'TO:MARGARET.Hernandez@DC.GOV', // 'TO:yinka.olarewaju-alo@dc.go', // 'TO:rajini.jujjavarapu@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) // //********************************************************************