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