tags, but's lets try this.
* Display all tables in a DBC.
LOCAL lnTotTables, lnCurTable, lcCurTable
LOCAL ARRAY laTables[1]
IF NOT DBUSED( "Books")
OPEN DATABASE Books
ELSE
SET DATABASE TO Books
ENDIF
lnTotTables = ADBOBJECTS( laTables, "Table")
FOR lnCurTable = 1 TO lnTotTables
lcCurTable = laTables[ lnCurTable ]
?lcCurTable
ENDFOR
<\pre>