1
|
DEF TEMP-TABLE tt FIELD f1 AS character format "x(10)"
|
2
|
FIELD f2 AS integer format ">>>>>>>>>9"
|
3
|
field f3 as character
|
4
|
field f4 as integer format ">>>>>>>>>9".
|
5
|
|
6
|
def var i as integer.
|
7
|
|
8
|
CREATE tt. tt.f1 = "x". tt.f2 = 1. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
9
|
CREATE tt. tt.f1 = "xx". tt.f2 = 11. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
10
|
CREATE tt. tt.f1 = "xxx". tt.f2 = 111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
11
|
CREATE tt. tt.f1 = "xxxx". tt.f2 = 1111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
12
|
CREATE tt. tt.f1 = "xxxxx". tt.f2 = 11111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
13
|
CREATE tt. tt.f1 = "xxxxxx". tt.f2 = 111111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
14
|
CREATE tt. tt.f1 = "xxxxxxx". tt.f2 = 1111111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
15
|
CREATE tt. tt.f1 = "xxxxxxxx". tt.f2 = 11111111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
16
|
CREATE tt. tt.f1 = "xxxxxxxxx". tt.f2 = 111111111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
17
|
CREATE tt. tt.f1 = "xxxxxxxxxx". tt.f2 = 111111111. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
18
|
CREATE tt. tt.f1 = "xxxxxxxxxxx". tt.f2 = 1. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
19
|
CREATE tt. tt.f1 = "xxxxxxxxxxxx". tt.f2 = 1. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
20
|
CREATE tt. tt.f1 = "xxxxxxxxxxxxx". tt.f2 = 1. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
21
|
CREATE tt. tt.f1 = "xxxxxxxxxxxxxx". tt.f2 = 1. tt.f3 = tt.f1. tt.f4 = tt.f2.
|
22
|
|
23
|
|
24
|
|
25
|
|
26
|
DEFINE QUERY q FOR tt SCROLLING.
|
27
|
OPEN QUERY q FOR EACH tt.
|
28
|
|
29
|
DEF BROWSE br QUERY q
|
30
|
DISPLAY
|
31
|
tt.f1 hyperlink "column1"
|
32
|
tt.f3
|
33
|
tt.f2 width 8 hyperlink "column2"
|
34
|
tt.f4
|
35
|
WITH size-chars 50 by 10 TITLE "Static browse" separators.
|
36
|
|
37
|
DEF FRAME fr br
|
38
|
WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS.
|
39
|
|
40
|
|
41
|
|
42
|
ENABLE ALL WITH FRAME fr.
|
43
|
|
44
|
|
45
|
PROCEDURE column1:
|
46
|
DEFINE INPUT PARAMETER val AS CHARACTER NO-UNDO.
|
47
|
|
48
|
MESSAGE "column 1: " + val.
|
49
|
END.
|
50
|
|
51
|
PROCEDURE column2:
|
52
|
DEFINE INPUT PARAMETER val AS CHARACTER NO-UNDO.
|
53
|
|
54
|
MESSAGE "column 2: " + val.
|
55
|
END.
|
56
|
|
57
|
subscribe to "column1" anywhere run-procedure "column1".
|
58
|
subscribe to "column2" anywhere run-procedure "column2".
|
59
|
|
60
|
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.
|
61
|
|
62
|
|
63
|
|