I didn't look at the code because this smells suspiciously like an anti-virus related problem that others have reported.

If you have a virus checker on any of the workstations (or server, I suppose) in question, see if it helps any to disable it.

If it does then hopefully you can configure the virus checker to ignore .DBC, .DBF, etc. files that are not executable anyway.

good luck

Jim Nelson


>I am suddenly getting calls from inhouse clients on a system that has been functioning fine for years. I believe that the server it's on is now W2K?
>
>Basically the response is terrible. Opening tables is rough and time consuming. At most I will have 5+ users at a time on this system, and they all hit at once. (get yelled at in a meeting and everyone races to input data)
>
>There is a start.exe on each workstation that calls a single .app on the server. There is no changing this system so don't tell me to move it all local!
>
>Has anyone else experienced this type of behavior?
>
>here is the code. Notice the FLOCK that I commented out as a first try in fixing this.
>
>*/ The next step is somewhat controversial /*
>CLOSE DATA
>*set step on
>IF plOpenFlag
>**--pab 10/99
>SET REPROCESS TO 10 SECONDS
>**--end 10/99
> FOR pnI = 1 TO ALEN(paView,1)
> SELECT (paView[pnI,4])
>**--pab 10/99 lock before opening table
>* USE ( ALLT(paView[pnI,1]) ) AGAIN ALIAS ( ALLT(paView[pnI,2]) )
>* IF FLOCK()
>* SET ORDER TO TAG ( ALLT(paView[pnI,3]) )
>* UNLOCK
>* ELSE
>* plOpenFlag=.F.
>* WAIT wind "Network congestion. Try again later."
>* wait wind alltrim(paView[pnI,1])
>* ENDIF
>**--end pab
>*-- SCR Lock Problem
> USE ( ALLT(paView[pnI,1]) ) AGAIN ALIAS ( ALLT(paView[pnI,2]) ) ;
> ORDER ( ALLT(paView[pnI,3]) )
>*-- End SCR lock issue
>
>
>
>__Stephen