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