FWD » Core Development » User Interface

define variable i as integer no-undo.

define temp-table tt_browse_helper
   field n as integer
   field s as character.

do i = 1 to 2:
   create tt_browse_helper.
   assign
      tt_browse_helper.n = i
      tt_browse_helper.s = "row" + string(i).
end.

define query q_browse_helper for tt_browse_helper.

define browse br_helper
   query q_browse_helper no-lock
   display tt_browse_helper.n tt_browse_helper.s
   with
      4 down
      size 40 by 10.

open query q_browse_helper for each tt_browse_helper.

form br_helper with frame f_browse_helper size 60 by 14.

block-level on error undo, throw.

define variable i as integer no-undo.

do i = 1 to 20:
   run tests/11394/suite/browse_helper.p.
end.

message "Browse churn loop completed without exception.".

quit.