persistent-table-test.p
1 |
DEFINE VARIABLE cVar AS CHARACTER CASE-SENSITIVE. |
---|---|
2 |
|
3 |
// Cleanup in case the program is executed |
4 |
// multiple times |
5 |
FOR EACH cics. |
6 |
DELETE cics. |
7 |
END. |
8 |
|
9 |
OUTPUT TO VALUE("results.txt") APPEND. |
10 |
|
11 |
MESSAGE "===========CASE-SENSITIVITY===========". |
12 |
CREATE cics. |
13 |
cics.key = "A". |
14 |
RELEASE cics. |
15 |
|
16 |
MESSAGE "Compare database field 'A' with variable 'A'". |
17 |
cVar = "A". |
18 |
FIND FIRST cics WHERE cics.key = cVar. |
19 |
MESSAGE "4GL: yes FWD: " AVAILABLE(cics). |
20 |
RELEASE cics. |
21 |
|
22 |
MESSAGE "Compare database field 'A' with variable 'a'". |
23 |
cVar = "a". |
24 |
FIND FIRST cics WHERE cics.key = cVar NO-ERROR. |
25 |
MESSAGE "4GL: no FWD: " AVAILABLE(cics). |
26 |
RELEASE cics. |
27 |
|
28 |
FIND FIRST cics. |
29 |
DELETE cics. |
30 |
|
31 |
CREATE cics. |
32 |
cics.key = "a". |
33 |
RELEASE cics. |
34 |
|
35 |
MESSAGE "Compare database field 'a' with variable 'A'". |
36 |
cVar = "A". |
37 |
FIND FIRST cics WHERE cics.key = cVar. |
38 |
MESSAGE "4GL: yes FWD: " AVAILABLE(cics). |
39 |
RELEASE cics. |
40 |
|
41 |
MESSAGE "Compare database field 'a' with variable 'a'". |
42 |
cVar = "a". |
43 |
FIND FIRST cics WHERE cics.key = cVar NO-ERROR. |
44 |
MESSAGE "4GL: no FWD: " AVAILABLE(cics). |
45 |
RELEASE cics. |
46 |
|
47 |
FIND FIRST cics. |
48 |
DELETE cics. |
49 |
|
50 |
OUTPUT CLOSE. |