col-screen-val.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 |
|
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 |
brws:select-row(1). |
18 |
message "press X or Y". |
19 |
|
20 |
on "x" anywhere do: |
21 |
f1:SCREEN-VALUE IN BROWSE brws = ?. |
22 |
f2:SCREEN-VALUE IN BROWSE brws = ?. |
23 |
|
24 |
def var val1 as char. |
25 |
def var val2 as char. |
26 |
val1 = f1:SCREEN-VALUE IN BROWSE brws. |
27 |
val2 = f2:SCREEN-VALUE IN BROWSE brws. |
28 |
|
29 |
if val1 = ? then val1 = "UNKNOWN". |
30 |
if val2 = ? then val2 = "UNKNOWN". |
31 |
|
32 |
message "new values:" val1 val2. |
33 |
end. |
34 |
|
35 |
on "y" anywhere do: |
36 |
def var val1 as char. |
37 |
def var val2 as char. |
38 |
val1 = f1:SCREEN-VALUE IN BROWSE brws. |
39 |
val2 = f2:SCREEN-VALUE IN BROWSE brws. |
40 |
|
41 |
if val1 = ? then val1 = "UNKNOWN". |
42 |
if val2 = ? then val2 = "UNKNOWN". |
43 |
|
44 |
message "values:" val1 val2. |
45 |
end. |
46 |
|
47 |
WAIT-FOR CLOSE OF THIS-PROCEDURE. |