//**** 00000010 //* PROCESS ESSP REJECTED DATA FILES - RELEASE DATA TO DUTAS 00001700 //* 00001700 //* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 //DTSBXPEN PROC //** 00001700 //STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS // COND=(0,LT) //SYSOUT DD SYSOUT=* //* //SORTIN DD DSN=DOESTAX.PROD.ESSP.FAILED.X140,DISP=SHR 00005000 // DD DSN=DOESTAX.PROD.ESSP.FAILED.X145,DISP=SHR 00005000 // DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X140,DISP=SHR // DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X145,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.&MSTNODE..TDECESSP.REJECTS(+1), // DISP=(NEW,CATLG,DELETE), //* DISP=SHR, // UNIT=SYSDA, // SPACE=(30720,(1000,1000),RLSE), 00008000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR //* //STEP0200 EXEC PGM=DTSBX418, // 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.REJECTS(+1), // DISP=OLD 00006000 //* 00001700 //PENDX140 DD DSN=&&PENDX140, 00005000 // DISP=(NEW,PASS,DELETE), 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(1000,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* 00001700 //PENDX144 DD DSN=&&PENDX144, 00005000 // DISP=(NEW,PASS,DELETE), 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(1500,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* 00001700 //PENDX145 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 //X436BTC DD DSN=DOESTAX.&MSTNODE..ESSP.X418.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) //* //WAGETEMP DD DSN=DOESTAX.&LVLNODE..ESSP.WAGETMP, //* DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), // UNIT=SYSDA, // SPACE=(25600,(100,100),RLSE), // DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600) //* //WAGEOUT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144, //* DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) //* //DTSFW4GE DD DSN=DOESTAX.&LVLNODE..ESSP.X418.W4FILE, //* DISP=(,CATLG,DELETE), // DISP=(OLD,KEEP,KEEP), // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000) //* //BX214422 DD DSN=DOESTAX.&LVLNODE..ESSP.BX422.BX214, // DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000) //* //BX214423 DD DSN=DOESTAX.&LVLNODE..ESSP.BX423.BX214, // DISP=(OLD,KEEP,KEEP), // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000) //* //X436RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X418PAID.TXT(+1), // DISP=(,CATLG,DELETE), //* DISP=MOD, // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //X436RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X418PEND.TXT(+1), // DISP=(,CATLG,DELETE), //* DISP=MOD, // SPACE=(30000,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000 // DISP=(,CATLG,DELETE), //* DISP=(OLD,KEEP,KEEP), 00410000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //*********************************************************** //* SEND EMAIL WHEN INPUT FILES EMPTY //*********************************************************** //STEP0300 EXEC PGM=IEBGENER,COND=(0,LT) //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:MARGARET.HERNANDEZ@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:TIMOTHY.PERLOW@DC.GOV', // 'CC:ZARATH.LALPUTAN@DC.GOV', //* 'CC:MACARENA.CANTELAS@DC.GOV', // 'CC:ROSALIND.HOLBROOK@DC.GOV', //* 'CC:DAVON.MALLARD@DC.GOV', // 'SUBJECT: DUTAS WEEKLY REJECT REPORT......ZL1', // 'FILEDESC: DUTAS WEEKLY REJECTED DATA FROM ESSP ', // 'FILENAME:DUTAS_WEEKLY_REJS.TXT'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X418PEND.TXT(+1),DISP=SHR //SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //* //*********************************************************** //*TEP0310 EXEC PGM=IEBGENER,COND=(2,NE,STEP0200),REGION=4M //*YSPRINT DD SYSOUT=* //*UT1 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') //*YSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.ERORWEB.TXT,DISP=SHR //*YSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 //*YSIN DD DUMMY //* //*TEP0300 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE BATCH XREF FILES //* COND=(0,LT) //*YSOUT DD SYSOUT=* //*ORTIN DD DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR //* DD DSN=DOESTAX.&LVLNODE..BX423.BX214,DISP=SHR //*ORTOUT DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX420.XREF, //* DISP=(OLD,KEEP,KEEP), //* SPACE=(30000,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=30,BLKSIZE=30000) //*YSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX214),DISP=SHR //* //********************************************************************* //* //STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG // COND=(4,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&PENDX144, // DISP=(OLD,DELETE,DELETE), 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //OUTDD01 DD DSN=DOESTAX.CONV.ESSP.FAIL.DTSREJS.X144(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //********************************************************************* //********************************************************************* //** DELETE AND CREATE FILES USED BY REJECT PROC DTSBXDTS //****************************************************************** //STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DTSFX140 DD DSN=DOESTAX.PROD.ESSP.FAILED.X140, // DISP=(OLD,DELETE,DELETE) //* //********************************************************************* //** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN //****************************************************************** //STEP0601 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DTSFX145 DD DSN=DOESTAX.PROD.ESSP.FAILED.X145, // DISP=(OLD,DELETE,DELETE) //* //********************************************************************* //** DELETE AND CREATE FILES USED BY REJECT PROC DTSBXDTS //****************************************************************** //STEP0602 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DTSFX140 DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X140, // DISP=(OLD,DELETE,DELETE) //* //********************************************************************* //** DELETE AND CREATE FILES USED BY PENDING PROC DTSBXPEN //****************************************************************** //STEP0603 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT) //DTSFX145 DD DSN=DOESTAX.PROD.ESSP.FAIL.DTSREJS.X145, // DISP=(OLD,DELETE,DELETE) //* //STEP0604 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG // COND=(4,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&&PENDX140, // 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.FAIL.DTSREJS.X140(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //STEP0605 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG // COND=(4,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.FAIL.DTSREJS.X145(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // SPACE=(25600,(100,200),RLSE), // DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR //* //*********************************************************************