Thanks for the refresher course :>
--------------------------------
>>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
>
>