OR

AUSED(laCurrAliases)

*-- Execute a Sql Select that opens one or more tables
*** select * from mytable1 join mytable2 .. join mytable3.. etc.

lnallAliases = AUSED(laArr)

FOR lnLoop = 1 TO m.lnallAliases
    IF ASCAN(laCurrAliases,m.laArr[m.lnLoop,1])# 0
       LOOP
    ENDIF
    USE IN (m.laArr(m.lnLoop,1))
NEXT

>Thank you, Vladimir.
>
>>Try this:
>>

*-- bookmark selected area
>>lcSelect = ALIAS()
>>
>>*-- Execute a Sql Select that opens one or more tables
>>*** select * from mytable1 join mytable2 .. join mytable3.. etc.
>>
>>lnOpenDbfs = AUSED(laArr)
>>
>>FOR lnLoop = 1 TO m.lnOpenDbfs
>>
>>    IF m.laArr[m.lnLoop,1] = m.lcSelect
>>       LOOP
>>    ENDIF
>>
>>    USE IN (m.laArr(m.lnLoop,1))
>>NEXT

>>
>>
>>>Good morning,
>>>
>>>I would like to find a way to close all tables that are opened in a routine.
>>>
>>>Here is an example.
>>>
>>>

>>>*-- bookmark selected area
>>>nSelect = select()
>>>
>>>*-- Execute a Sql Select that opens one or more tables
>>>select * from mytable1 join mytable2 .. join mytable3.. etc.
>>>
>>>*-- Close all tables opened in the above SQL Select.
>>>
>>>*-- I believe I need to know the highest SELECT() at this
>>>point and scan it backwards until coming to nSelect.
>>>But how to determine currently highest SELECT()?
>>>
>>>

>>>
>>>Or if you think or can suggest a better method to accomplish it, I would appreciate it.