//**** 00000010 //* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700 //* TO MAINFRAME 00001700 //* 00001700 //* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 //DTSBX626 PROC //* //STEP0450 EXEC PGM=DTSBX626, // COND=(0,LT), // REGION=4096K //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //* 00001700 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*** //DTSFX626 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR //* 00001700 //*** //DTSIX145 DD DSN=&&RPTACH,DISP=(OLD,PASS,DELETE) //DTSIXACH DD DSN=&&WEBIMPRT,DISP=(OLD,PASS,DELETE) //* 00001700 //*426RPT1 DD DSN=DOESTAX.DEVL.X426RETN(+1), //* DISP=(,CATLG,DELETE), //* DISP=SHR, //* UNIT=SYSDA, //* SPACE=(25600,(100,100),RLSE), //* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //*426RPT2 DD DSN=DOESTAX.DEVL.X426PEND(+1), //* DISP=(,CATLG,DELETE), //* DISP=SHR, //* UNIT=SYSDA, //* SPACE=(25600,(100,100),RLSE), //* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //DTSOTOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL,DISP=SHR //* //DTSOX145 DD DSN=DOESTAX.CONV.DOESESSP.X145DACH(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // UNIT=SYSDA, // SPACE=(25600,(100,100),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* //DTSFBTCO DD DSN=DOESTAX.DEVL.X426.BTC, //* DISP=(NEW,CATLG,DELETE), // DISP=SHR, // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //********************************************************************* // //STEP0500 EXEC PGM=IEBGENER,REGION=4M, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'SUBJECT: WELLS-DUTAS ACH DEPOSITS *** MATCH ***', // 'FILEDESC: WELLS-DUTAS ACH REPORT ', // 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* //*********************************************************** //STEP0600 EXEC PGM=IEBGENER,REGION=4M, // COND=(8,NE,STEP0450) //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'SUBJECT: WELLS-DUTAS ACH DEPOSITS *** FAILED ***', // 'FILEDESC: WELLS-DUTAS ACH REPORT ', // 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT') //SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* //**