//**** 00000010 //* PROCESS ESSP AMENDED REPORT - RELEASED TO DUTAS 00001700 //* 00001700 //* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 //DTSBX450 PROC //** 00001700 //STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS // COND=(0,LT) //SYSOUT DD SYSOUT=* //* //*ORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX147(+0),DISP=SHR 00005000 //*ORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX144.DD100824,DISP=SHR 00005000 //*ORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX144(+0),DISP=SHR 00005000 //SORTIN DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX147.RELEASE,DISP=SHR 00005000 // DD DSN=DOESTAX.CONV.ESSPAMEN.DAYX147.FIXDELT,DISP=SHR 00005000 //* //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) //SORTOUT DD DSN=&&AMDSSN, // DISP=(NEW,PASS,DELETE), // UNIT=SYSDA, // SPACE=(30720,(2000,2000),RLSE), 00008000 // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX451),DISP=SHR //* //STEP0200 EXEC PGM=DTSZX550, // 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=&&AMDSSN,DISP=(OLD,DELETE,DELETE) //* 00001700 //PENDX140 DD DUMMY 00005000 //*ENDX140 DD DSN=DOESTAX.CONV.ESSP.AMEND.PENDX140, 00005000 //* DISP=(,CATLG,DELETE), 00006000 //* DISP=SHR, 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 //PENDX147 DD DSN=&&PENDX147, 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=DOESTAX.CONV.ESSP.AMEND.PENDX145, 00005000 //* DISP=(,CATLG,DELETE), 00006000 // DISP=SHR, 00006000 // UNIT=SYSDA, 00007000 // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* 00001700 //X451BTC DD DUMMY 00005000 //*451BTC DD DSN=DOESTAX.&IMPNODE..ESSP.X451.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) //* //*AGEOUT DD DSN=ECNTSUP.DOESTAX.&IMPNODE..ESSP.FTP.X144, //WAGEOUT DD DUMMY //* 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.CONV.DTS453.W2FILE, //* 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) //* //X451RPT1 DD DUMMY //*451RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X451PAID.TXT(+1), //* DISP=(,CATLG,DELETE), //* SPACE=(30000,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //X451RPT2 DD DUMMY //*451RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X451PEND.TXT(+1), //* DISP=(,CATLG,DELETE), //* SPACE=(30000,(100,200),RLSE), //* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //DTSFVRO1 DD DUMMY 00409000 //*TSFVRO1 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 //*********************************************************** //*********************************************************************