>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