>I hope someone can help me.
>I need to initially open a file exclusive, to issue a pack.
>I want the first user in each day to do this. I have a routine which handles the first user in stuff...but my problem is that some users forget to get out.
>
>How can I test to see if a file can be had exclusive....without producing an error if I can't get the file exclusive?
>
>Rick
Often that handles by trapping for the error.
ON ERROR DO pExclusiveError
USE < file > EXCLUSIVE
IF .. flag set
..abort
ELSE
..PACK file
ENDIF
PROCEDURE pExclusiveError
... Routine closes all tables
... If fail set flag