Hi!

Use the function ISEXCLUSIVE() it returns true (.T.) if a table or database is opened for exclusive use; otherwise, returns false (.F.).

ISEXCLUSIVE([cTableAlias | nWorkArea | cDatabaseName [, nType]])
Return Value Logical

nType
Specifies whether the exclusive status is returned for a table or a database. The following table lists the values for nType and the corresponding status returned. nType Exclusive Status Returned
1 Table
2 Database

To determine the exclusive status for a database, you must include nType with a value of 2.

Remarks
ISEXCLUSIVE( ) returns a value for the table open in the currently selected work area if you omit the optional cTableAlias, nWorkArea, or cDatabaseName arguments.

A table is opened for exclusive use by including the EXCLUSIVE keyword in USE, or by setting SET EXCLUSIVE to ON before the table is opened.

A database is opened for exclusive use by including the EXCLUSIVE keyword in OPEN DATABASE.

Hope that helps.

Sarosh


>>>I'm writing a routine to open a file exclusively. If I find the file is already open, how can I tell whether it is opened exclusively other than by closing it and trying to opening it exclusively, trapping for error?
>>>
>>You may use SYS(2011) function to retrieve lock status:
>>
>Yes it helps. Thank you.
>
>Alex