LOCAL i,lcInAlias >lcInAlias = ALIAS() >FOR i = 1 TO 1000 && could be up to 32K open areas > IF ! EMPTY(ALIAS()) > TABLEUPDATE(1,.t., ALIAS()) > ENDIF >ENDFOR >IF ! EMPTY(lcInAlias) > SELECT (lcInAlias) >ELSE > SELECT 0 >ENDIF