Files
DUTAS/JCL/DTSRACHD.jcl

67 lines
2.4 KiB
Plaintext

//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)
//
//********************************************************************