//**** 00000010 //* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700 //* TO MAINFRAME 00001700 //* 00001700 //* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 //DTSBX426 PROC //* //STEP0200 EXEC PGM=DTSBX426, // 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') //*** //*FTFACH DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1),DISP=SHR //EFTFACH DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR //DTSFVRO1 DD SYSOUT=* //* 00001700 //X426RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X426ACHR(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // UNIT=SYSDA, // SPACE=(25600,(100,100),RLSE), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //X426RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X426PEND(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // UNIT=SYSDA, // SPACE=(25600,(100,100),RLSE), // DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) //* //PENDFACH DD DSN=DOESTAX.&LVLNODE..ESSP.X426PEND.ACHDRTN(+1), // DISP=(,CATLG,DELETE), //* DISP=SHR, // UNIT=SYSDA, // SPACE=(25600,(100,100),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //* //DTSFBTCO DD DSN=DOESTAX.&MSTNODE..ESSP.X426.BTC(+1), // DISP=(NEW,CATLG,DELETE), //* DISP=SHR, // SPACE=(8192,(100,200),RLSE), // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) //* //*********************************************************************