Syntax: dbtables(f)

Parameters:

• f: ODBC file previously opened with open()

• "qualifier": table qualifier
• "owner": table owner
• "name": table name
• "type": table type
• "remarks": table remarks

procedure main()
  f:=open("mysql","O","test","fbalbi","xxxxxxxx") # open test table

  tablelist:=dbtables(f) # get current database tables information

  write("size list = ", *tablelist) # write number of tables

  every i:=(1 to *tablelist) do { # for each table
    r:=tablelist[i]

    every j:=(1 to *r) do writes("[",r[j],"]") # print table info fields
    write()
  }

  close(f) # close table
end