FWD » Core Development » User Interface

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

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

create tt1. tt1.f1 = 1.

create tt1. tt1.f1 = 2.

create tt1. tt1.f1 = 3.

create tt2. tt2.f2 = 1.

create tt2. tt2.f2 = 2.

create tt2. tt2.f2 = 3.

def query q for tt1, tt2 scrolling.

open query q for each tt1, each tt2.

def var cnt as integer.

repeat:

   cnt = cnt + 1.

   query q:get-next().

   if cnt = 5 then do:

      create tt1. tt1.f1 = 5.

      create tt2. tt2.f2 = 7. 

      leave. 

   end.  

end.

def frame fr 

  tt1.f1 tt2.f2

  with 20 down.

query q:get-first().

repeat:

   if not avail(tt1) then leave.

   display tt1.f1 tt2.f2 with frame fr.

   query q:get-next().

end.