col-screen-val-ed.p
1 |
DEF TEMP-TABLE tt FIELD f1 AS CHARACTER FORMAT "x(32)" init ? |
---|---|
2 |
FIELD f2 AS integer FORMAT ">>>" init ?. |
3 |
CREATE tt. |
4 |
CREATE tt. |
5 |
|
6 |
OPEN QUERY q FOR EACH tt. |
7 |
|
8 |
DEFINE BROWSE brws |
9 |
QUERY q DISPLAY tt.f1 tt.f2 |
10 |
enable all |
11 |
WITH TITLE "Browse" |
12 |
SIZE 70 BY 7. |
13 |
|
14 |
DEF FRAME fr brws WITH TITLE "Frame" SIZE 70 BY 15 NO-LABELS. |
15 |
ENABLE ALL WITH FRAME fr. |
16 |
|
17 |
message "press X or Y". |
18 |
|
19 |
on "x" anywhere do: |
20 |
f1:SCREEN-VALUE IN BROWSE brws = ?. |
21 |
f2:SCREEN-VALUE IN BROWSE brws = ?. |
22 |
|
23 |
def var val1 as char. |
24 |
def var val2 as char. |
25 |
val1 = f1:SCREEN-VALUE IN BROWSE brws. |
26 |
val2 = f2:SCREEN-VALUE IN BROWSE brws. |
27 |
|
28 |
if val1 = ? then val1 = "UNKNOWN". |
29 |
if val2 = ? then val2 = "UNKNOWN". |
30 |
|
31 |
message "new values:" val1 val2. |
32 |
end. |
33 |
|
34 |
on "y" anywhere do: |
35 |
def var val1 as char. |
36 |
def var val2 as char. |
37 |
val1 = f1:SCREEN-VALUE IN BROWSE brws. |
38 |
val2 = f2:SCREEN-VALUE IN BROWSE brws. |
39 |
|
40 |
if val1 = ? then val1 = "UNKNOWN". |
41 |
if val2 = ? then val2 = "UNKNOWN". |
42 |
|
43 |
message "values:" val1 val2. |
44 |
end. |
45 |
|
46 |
WAIT-FOR CLOSE OF THIS-PROCEDURE. |