Try this:
lcSelect = ALIAS()
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.
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
