Does it happen with any table? Will the procedure like this initiate an error?

=adir(atemp, "*.dbf")
for ia=1 to alen(atemp,1)
use (atemp[ia,1]) shared
?atemp[ia,1], " "
??ISEXCLUSIVE()
endfor


>Hi,
>
>BTW, when my table is open by my program alone, it work fine.
>However, when I manually opened the table using VFP3 in shared
>mode, the ISEXCLUSIVE function will cause the message.
>
>
>>ISEXCLUSIVE([cTableAlias | nWorkArea | cDatabaseName [, nType]])
>>is a native foxpro function. So it looks strange, that it returns the error message.
>>Because you are already sitting on the table, did you try just ISEXCLUSIVE()?
>>
>>>Hi,
>>>
>>>Recently, I was doing some enhancement for a VFP3 written old application.
>>>When my menu call one of the form.
>>>The form will check whether one of the table is open exclusive for packing,
>>>if not, will prompt a message and return.
>>>
>>>However, I keep getting this message 'No parameter statement is found' on my
>>>return statment, with my messagebox not working.
>>>
>>>My menu is calling this form using a procedure which I had added
>>>a dummy parameter list, but it does not help as shown below
>>>
>>>DoBackup procedure called by menu option
>>>========================================
>>>
>>>PARAMETERS pvAns
>>>
>>>DO FORM frmBackup
>>>
>>>
>>>
>>>------------------------------------------------
>>>Part of FORM code that causing the above message
>>>------------------------------------------------
>>>
>>>SELECT backup
>>>IF NOT ISEXCLUSIVE("backup")
>>> =Messagebox("File not in exclusive mode")
>>> RETURN
>>>ENDIF
>>>
>>>
>>>Please advise how do I solve this simple problem.
>>>Thank you