//**** 00000010 //* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700 //* FROM TAX MASTER FILES FOR USE IN BENEFITS APPLICATIONS 00001700 //* 00001700 //* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700 //** 00001700 //DTSBX476 PROC //** 00001700 //STEP0100 EXEC PGM=DTSBX479, // COND=(0,LT), // REGION=4096K //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //CAIMRPTS DD SYSOUT=* //* 00001700 //TAXFILE DD DSN=DOESTAX.DEVL.TAXMAST.UIBSEMPS, 00005000 //* DISP=(,CATLG,DELETE), 00006000 // DISP=SHR 00006000 //* UNIT=SYSDA, 00007000 //* SPACE=(31400,(1000,1000),RLSE), 00008000 //* DCB=(RECFM=FB,LRECL=328,BLKSIZE=3280) 00009000 //* 00001700 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, // AMP=('BUFNI=5,BUFND=10') //*** //* 00014000 // 00047000 //**************************************************************** 00001700 //STEP0200 EXEC PGM=IDCAMS, DELETE AND DEFINE 00740053 // COND=(0,LT) //SYSPRINT DD SYSOUT=* 00750053 //*SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSDD477), 00760053 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDD476), 00760053 // DISP=SHR 00770053 //* 00780053 //STEP0400 EXEC PGM=IDCAMS, LOAD VSAM FILE 00740053 // COND=(0,LT) //SYSPRINT DD SYSOUT=* 00750053 //INDD01 DD DSN=&&TAXFILE, // DISP=(OLD,PASS,DELETE), // UNIT=SYSDA, // SPACE=(31400,(8000,5000),RLSE), // DCB=(RECFM=FB,LRECL=314,BLKSIZE=31400) //*OUTDD01 DD DSN=UI.PROD.TEMP.TAXCOPY,DISP=SHR, 00850055 //OUTDD01 DD DSN=DOESTAX.DEVL.TEMP.TAXCOPY,DISP=SHR, 00850055 // AMP=('BUFNI=5,BUFND=30') 00860055 //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE), 00760053 // DISP=SHR 00770053 //********************************************************************* //*********************************************************************