temp-table-test.p
1 |
DEFINE TEMP-TABLE tt1 FIELD key AS CHARACTER INDEX idx1 AS UNIQUE PRIMARY KEY. |
---|---|
2 |
DEFINE TEMP-TABLE tt2 FIELD key AS CHARACTER INDEX idx2 AS UNIQUE PRIMARY KEY. |
3 |
DEFINE VARIABLE cVar AS CHARACTER CASE-SENSITIVE. |
4 |
|
5 |
OUTPUT TO VALUE("results.txt") APPEND. |
6 |
|
7 |
MESSAGE "===========CASE-SENSITIVITY===========". |
8 |
CREATE tt1. |
9 |
tt1.key = "A". |
10 |
RELEASE tt1. |
11 |
|
12 |
MESSAGE "Compare database field 'A' with variable 'A'". |
13 |
cVar = "A". |
14 |
FIND FIRST tt1 WHERE tt1.key = cVar. |
15 |
MESSAGE "4GL: yes FWD: " AVAILABLE(tt1). |
16 |
RELEASE tt1. |
17 |
|
18 |
MESSAGE "Compare database field 'A' with variable 'a'". |
19 |
cVar = "a". |
20 |
FIND FIRST tt1 WHERE tt1.key = cVar NO-ERROR. |
21 |
MESSAGE "4GL: no FWD: " AVAILABLE(tt1). |
22 |
RELEASE tt1. |
23 |
|
24 |
CREATE tt2. |
25 |
tt2.key = "a". |
26 |
RELEASE tt2. |
27 |
|
28 |
MESSAGE "Compare database field 'a' with variable 'A'". |
29 |
cVar = "A". |
30 |
FIND FIRST tt2 WHERE tt2.key = cVar. |
31 |
MESSAGE "4GL: yes FWD: " AVAILABLE(tt2). |
32 |
RELEASE tt2. |
33 |
|
34 |
MESSAGE "Compare database field 'a' with variable 'a'". |
35 |
cVar = "a". |
36 |
FIND FIRST tt2 WHERE tt2.key = cVar NO-ERROR. |
37 |
MESSAGE "4GL: no FWD: " AVAILABLE(tt2). |
38 |
RELEASE tt2. |
39 |
|
40 |
OUTPUT CLOSE. |