OPEN DATABASE "DATA1.DBC"
LNTABLES=ADBOBJECTS(ATABLE,"TABLE")
FOR LNI=1 TO LNTABLES
    ?ATABLE(LNI)
ENDFOR