FWD » Core Development » User Interface

def temp-table tt1 field f1 as integer

                   field f2 as integer.

def temp-table tt2 field f3 as integer.                   

def var i as integer.

repeat i = 1 to 10:

  create tt1. tt1.f1 = i.

end.                  

repeat i = 20 to 30:

  create tt1. tt1.f1 = i.

end.              

create tt2. tt2.f3 = 1.

def query q for tt1, tt2 scrolling.

open query q for each tt1, each tt2.    

def var h as handle.

h = query q:handle.

h:get-first().

h:get-next().

h:get-next().

h:get-next().

create tt1. tt1.f1 = 15. 

create tt2. tt2.f3 = 2.

h:create-result-list-entry().

find first tt1 where tt1.f1 = 25. 

release tt2.

h:create-result-list-entry().

release tt1.

h:create-result-list-entry().

h:get-next().

def var ch as char.

ch = if not avail(tt1) then "N/A" else string(tt1.f1).

ch = ch + " " + (if not avail(tt2) then "N/A" else string(tt2.f3)).

message "after: " ch.

def var res as logical.

res = h:get-first().

repeat while res:

   ch = if not avail(tt1) then "N/A" else string(tt1.f1).

   ch = ch + " " + (if not avail(tt2) then "N/A" else string(tt2.f3)).

   message ch.

   res = h:get-next().

end.