Syntax: dbkeys(f)

Parameters:

• f: ODBC file previously opened with dbopen()

• "col": column name
• "seq": sequence number

procedure main()
 f:=dbopen("mydb","O","user","fbalbi","mypasswd") # open user table

 # select host, user and password columns

 r:=dbselect(f, "host, user, password","")

 write(*f, " row(s) selected")

 write("\ntable keys")

 krec:=dbkeys(f) # retrieve primary key(s) information

 every i:=(1 to *krec) do {
   r:=krec[i]
   write("[", r["col"], "]") # print key name
 }

 close(f) # close table
end