FWD » Core Development » User Interface

define temp-table tt1 field f1 as integer index idx1 is primary f1.

define temp-table tt2 field f2 as integer index idx2 is primary f2.

define temp-table tt3 field f3 as integer index idx3 is primary f3.

create tt1. tt1.f1 = 1.

create tt1. tt1.f1 = 2.

create tt1. tt1.f1 = 3.

create tt1. tt1.f1 = 4.

create tt2. tt2.f2 = 1.

create tt2. tt2.f2 = 2.

create tt2. tt2.f2 = 3.

create tt2. tt2.f2 = 4.

create tt3. tt3.f3 = 1.

create tt3. tt3.f3 = 2.

create tt3. tt3.f3 = 3.

create tt3. tt3.f3 = 4.

def query q for tt1, tt2, tt3 scrolling.

open query q for each tt1, each tt2, each tt3 where tt3.f3 <> tt2.f2 or tt3.f3 <> tt1.f1.

def var cnt as integer.

repeat:

   cnt = cnt + 1.

   query q:get-next().

   if cnt = 5 then do:

      find tt1 where tt1.f1 = 3.

      find tt2 where tt2.f2 = 3.

      find tt3 where tt3.f3 = 4.

      query q:create-result-list-entry().

      leave. 

   end.  

end.

output to crle-compound3-find-where.txt.

query q:get-first().

repeat:

   if not avail(tt1) then leave.

   message tt1.f1 tt2.f2 tt3.f3.

   query q:get-next().

end.

output close.