DEF TEMP-TABLE tt FIELD f1 AS INTEGER format ">>9"
                  FIELD f2 AS CHARACTER FORMAT "x(20)"
                  FIELD f3 AS LOGICAL.
                  
def var v as character.                  

def var i as integer.
repeat i = 1 to 100:
   CREATE tt. tt.f1 = i. tt.f2 = "second " + string(i). tt.f3 = YES.
end.

DEFINE QUERY q FOR tt SCROLLING.
OPEN QUERY q FOR EACH tt.

DEF BROWSE br QUERY q 
DISPLAY 
     tt.f1
     tt.f2 
     tt.f3 FORMAT "Yes/No":U WIDTH 15.2
     enable tt.f1 auto-return tt.f2 tt.f3 auto-return 
   WITH size-chars 65 by 10 TITLE "Static browse".
   
DEF FRAME fr br SKIP(1) v
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS.

ENABLE ALL WITH FRAME fr.


WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.