Syntax: dbupdate(f, rec)
Parameters:
procedure main()
f:=open("mydb","O","mytable","fbalbi","xxxxxxxx") # open mytable
# select columns id, amt
# select row where id<6
r:=dbselect(f, "id, amt", "id<6")
write(*f, " row(s) selected")
write("\nrow values")
while (row:=fetch(f)) do { # for each row in the rowset
row["amt"]+:=1000.0 # change amt field value
dbupdate(f, row) # update row
}
close(f) # close table
end