def temp-table tt
   field f1 as integer.

def buffer xtt for tt.

create tt.
def var rid as rowid.

create tt.
tt.f1 = 1.
rid = rowid(tt).
release tt.

find first xtt where rowid(xtt) = rid.
message xtt.f1.