>I have an application that's not coded correctly
>to handle error 1705, which happened when you try
>to open a DBF that has been exclusively opened by
>another application.
>
>use dbfname shared
>* the codes assumed 100% successful open
>replace field1 with value1
>
>They should have trapped the error and then check
>USED("dbfname") before doing anything (like the
>followings).
>
>on error do errhand with errproc()
>use dbfname shared
>if !used('dbfname')
> return .f.
>endif
>replace field1 with value1
>
>procedure errproc
>parameter m.error
> if m.error=1705
> return
>
>Is there a simple way to work round this problem without
>the need to insert extra codes after _every_ USE sections
>in the system? There could be a hundred of this sections
>littering everywhere in the system.

PROCEDURE mainprogram
ON ERROR DO errhandler WITH ERROR()
USE dbfname IN 0 shared


PROCEDURE errhandler (nerror)
DO CASE
CASE nerror = 1705
    WAIT WINDOW 'File is being in used by another user.  Retrying access...'         NOWAIT
    RETRY
CASE nerror = etc.


ENDCASE