1
|
// See #5989
|
2
|
|
3
|
/**
|
4
|
* Test MESSAGE SET
|
5
|
*/
|
6
|
PROCEDURE messageSet:
|
7
|
DEFINE VARIABLE charVariable AS CHARACTER FORMAT "x(128)" NO-UNDO.
|
8
|
MESSAGE "Set text: " SET charVariable.
|
9
|
// Prints "" no
|
10
|
|
11
|
DEFINE VARIABLE intVariable AS INTEGER NO-UNDO.
|
12
|
MESSAGE "Set int: " SET intVariable.
|
13
|
// Prints 0 no
|
14
|
|
15
|
DEFINE VARIABLE decimalVariable AS DECIMAL NO-UNDO.
|
16
|
MESSAGE "Set decimal: " SET decimalVariable.
|
17
|
// Prints 0 no
|
18
|
|
19
|
DEFINE VARIABLE dateVariable AS DATE NO-UNDO.
|
20
|
MESSAGE "Set date: " SET dateVariable.
|
21
|
// Prints ? yes
|
22
|
|
23
|
DEFINE VARIABLE datetimeVariable AS DATETIME NO-UNDO.
|
24
|
MESSAGE "Set datetime: " SET datetimeVariable.
|
25
|
// Prints ? yes
|
26
|
|
27
|
DEFINE VARIABLE logicalVariable AS LOGICAL NO-UNDO.
|
28
|
MESSAGE "Set logical: " SET logicalVariable.
|
29
|
|
30
|
// Prints no NO
|
31
|
MESSAGE "SET: Text: " charVariable " undefined? " (charVariable = ?) SKIP
|
32
|
"Int: " intVariable " undefined? " (intVariable = ?) SKIP
|
33
|
"Decimal: " decimalVariable " undefined? " (decimalVariable = ?) SKIP
|
34
|
"Date: " dateVariable " undefined? " (dateVariable = ?) SKIP
|
35
|
"Datetime: " datetimeVariable " undefined? " (datetimeVariable = ?) SKIP
|
36
|
"Logical: " logicalVariable " undefined? " (logicalVariable = ?) VIEW-AS ALERT-BOX.
|
37
|
END PROCEDURE.
|
38
|
|
39
|
/**
|
40
|
* Test MESSAGE UPDATE
|
41
|
*/
|
42
|
PROCEDURE messageUpdate:
|
43
|
DEFINE VARIABLE charVariable AS CHARACTER FORMAT "x(128)" NO-UNDO.
|
44
|
MESSAGE "Update text: " UPDATE charVariable.
|
45
|
// Prints "" no
|
46
|
|
47
|
DEFINE VARIABLE intVariable AS INTEGER NO-UNDO.
|
48
|
MESSAGE "Update int: " UPDATE intVariable.
|
49
|
// Prints 0 no
|
50
|
|
51
|
DEFINE VARIABLE decimalVariable AS DECIMAL NO-UNDO.
|
52
|
MESSAGE "Update decimal: " UPDATE decimalVariable.
|
53
|
// Prints 0 no
|
54
|
|
55
|
DEFINE VARIABLE dateVariable AS DATE NO-UNDO.
|
56
|
MESSAGE "Update date: " UPDATE dateVariable.
|
57
|
// Prints ? yes
|
58
|
|
59
|
DEFINE VARIABLE datetimeVariable AS DATETIME NO-UNDO.
|
60
|
MESSAGE "Update datetime: " UPDATE datetimeVariable.
|
61
|
// Prints ? yes
|
62
|
|
63
|
DEFINE VARIABLE logicalVariable AS LOGICAL NO-UNDO.
|
64
|
MESSAGE "Update logical: " UPDATE logicalVariable.
|
65
|
// Prints no NO
|
66
|
|
67
|
MESSAGE "SET: Text: " charVariable " undefined? " (charVariable = ?) SKIP
|
68
|
"Int: " intVariable " undefined? " (intVariable = ?) SKIP
|
69
|
"Decimal: " decimalVariable " undefined? " (decimalVariable = ?) SKIP
|
70
|
"Date: " dateVariable " undefined? " (dateVariable = ?) SKIP
|
71
|
"Datetime: " datetimeVariable " undefined? " (datetimeVariable = ?) SKIP
|
72
|
"Logical: " logicalVariable " undefined? " (logicalVariable = ?) VIEW-AS ALERT-BOX.
|
73
|
END PROCEDURE.
|
74
|
|
75
|
RUN messageSet.
|
76
|
RUN messageUpdate.
|