>>Hi All:
>>
>>How can I test if a table is opened exclusive or shared?
>

>TRY
>   USE YourTable SHARED 
>   MESSAGEBOX([The table is opened shared])
>CATCH
>   MESSAGEBOX([The table is opened exclusive])
>ENDTRY
>

>
>>
>>How can I change it from exclusive to shared? If I execute a USE mytable SHARED command, I will cancel a previous SET ORDER TO command, which I do not want to do.
>

>SELECT ExclTable
>lcOrder = TAG()
>lnRecno = RECNO()
>USE ExclTable SHARED 
>SET ORDER TO (m.lcOrder)
>GOTO m.lnRecno
>

>>Thanks,
>>
>>Yossi

Thanks, I'll use the code!