//**** 00000010 //* IMPORT EMPLOYER PAYMNT DATA FROM ESSP - X145 00001700 //* IMPORT EMPLOYER PAYMNT DATA FROM TDEC - X145 00001700 //* CREATE T025 TRANSACTIONS FOR DUTAS 00001700 //* 00001700 //* RUNS DAILY TAX UPDATE PRIOR TO (DTSPDAY1) 00001700 //** 00001700 //DTSBX530 PROC //** 00001700 //STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS // COND=(0,LT) //SYSOUT DD SYSOUT=* //* //*ORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145.DD082018,DISP=SHR 00005000 //SORTIN DD DSN=DOESTAX.CONV.DOESESSP.X145DACH(+0),DISP=SHR // DD DSN=DOESTAX.DEVL.FIX.PAYMENT,DISP=SHR // DD DSN=DOESTAX.CONV.DOESESSP.X145SCHK(+0),DISP=SHR // DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+0),DISP=SHR // DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+0),DISP=SHR //* DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+0),DISP=SHR //* //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTOUT DD DSN=DOESTAX.PROD.TDECESSP.PAYX530(+1), // DISP=(NEW,CATLG,DELETE), //* DISP=SHR, // UNIT=SYSDA, //* SPACE=(30720,(2000,2000),RLSE), 00008000 // SPACE=(CYL,(50,25),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 //SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX417, // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //* 00001700 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*** //WEBREG DD DSN=DOESTAX.&MSTNODE..TDECESSP.PAYX530(+1), // DISP=(OLD,KEEP,KEEP) 00006000 //* 00001700 //X421BTC DD DUMMY 00005000 //* 00001700 //P530X140 DD DUMMY 00005000 //* 00001700 //P530X144 DD DUMMY 00005000 //PENDX145 DD DUMMY 00005000 //* 00001700 //P530X145 DD DSN=&&PENDX145, 00005000 // DISP=(NEW,PASS,DELETE), 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* 00001700 //PENDX140 DD DUMMY 00005000 //*PENDX140 DD DSN=&&PENDX140, 00005000 //* DISP=(NEW,PASS,DELETE), 00006000 //* UNIT=SYSDA, 00007000 //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* 00001700 //PENDX144 DD DUMMY 00005000 //*PENDX144 DD DSN=&&PENDX144, 00005000 //* DISP=(NEW,PASS,DELETE), 00006000 //* UNIT=SYSDA, 00007000 //* SPACE=(8192,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* 00001700 //X422BTC DD DUMMY 00005000 //X423BTC DD DUMMY 00005000 //X424BTC DD DUMMY 00005000 //* 00001700 //X530BTC DD DSN=DOESTAX.PROD.ESSP.X530.BTC, 00005000 //* DISP=(NEW,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* 00001700 //X430BTC DD DUMMY 00005000 //* 00001700 //P530WAGE DD DUMMY //* //P530WOUT DD DUMMY //WAGETEMP DD DUMMY //DTSFW4GE DD DUMMY //BX214422 DD DUMMY //* //P530XREF DD DUMMY //* //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+0), 00409000 //* DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), 00410000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //X530RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X530PAID.TXT(+1), // DISP=(,CATLG,DELETE), //* DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //X530RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X530PEND.TXT(+1), // DISP=(,CATLG,DELETE), //* DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(200,200),RLSE), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //X430RPT1 DD DUMMY //* //X430RPT2 DD DUMMY //* //*********************************************************** //* COPY TEMP PENDING FILES TO NEXT GDG //*********************************************************** //********************************************************************* //STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&PENDX145, // DISP=(OLD,DELETE,DELETE), 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //OUTDD01 DD DSN=DOESTAX.PROD.ESSP.PENDING.X145(+1), // DISP=(,CATLG,DELETE), // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //********************************************************************* //* //* SEND EMAIL WHEN INPUT FILES EMPTY //*********************************************************** //STEP0300 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:MARGARET.HERNANDEZ@DC.GOV', // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:YINKA.OLAREWAJU-ALO@DC.GOV', // 'CC:SHILONDA.WIGGINS@DC.GOV', // 'CC:SIA.KIAWU@DC.GOV', // 'CC:BRANDON.SOLOMON@DC.GOV', // 'CC:CHINYEE.CHONG@DC.GOV', // 'CC:ABDINASIR.MOHAMUD@DC.GOV', // 'SUBJECT: ESSP-TDEC DAILY DUTAS PAYMENTS.........ZL1', // 'FILEDESC: DOES TDEC PROCESSING FOR ESSP ', // 'FILENAME:DAILY-ESSP-TDEC-PAYMENTS.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X530PEND.TXT(+1),DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY // //*********************************************************** //STEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', //* 'CC:GERALD.SMART@DC.GOV', //* 'CC:NANCY.HUDAK@DC.GOV', //* 'CC:ZARATH.LALPUTAN@DC.GOV', // 'SUBJECT: ESSP FILES ON MAINFRAME IN ERROR..ZL1', // 'FILEDESC: ESSP DUTAS ERROR REPORT ', // 'FILENAME:ERROR_ESSP_DUTAS.TXT') //SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* //*********************************************************** //STEP0320 EXEC PGM=IEBGENER,REGION=4M, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', //* 'CC:GERALD.SMART@DC.GOV', //* 'CC:NANCY.HUDAK@DC.GOV', //* 'CC:ZARATH.LALPUTAN@DC.GOV', // 'SUBJECT: ESSP REPORTS AND PAYMENTS ERROR..ZL1', // 'FILEDESC: ESSP DUTAS ERROR REPORT ', // 'FILENAME:ESSP_DUTAS_RPTERRORS.TXT') //SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X530PEND.TXT(+1),DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* //******** END OF REPORT PROC DTSBX530 AS OF 07/05/16 ZL1 ******