|
1
|
def temp-table tt1 no-undo like some-table.
|
|
2
|
def temp-table tt2 like tt1.
|
|
3
|
|
|
4
|
def buffer xtt1 for tt1.
|
|
5
|
def buffer xtt2 for tt2.
|
|
6
|
|
|
7
|
|
|
8
|
create some-table.
|
|
9
|
create tt1.
|
|
10
|
create tt2.
|
|
11
|
create xtt1.
|
|
12
|
create xtt2.
|
|
13
|
|
|
14
|
some-table.perm-clob = "test".
|
|
15
|
tt1.perm-clob = "test".
|
|
16
|
tt2.perm-clob = "test".
|
|
17
|
xtt1.perm-clob = "test".
|
|
18
|
xtt2.perm-clob = "test".
|
|
19
|
|
|
20
|
message "some-table:" get-codepage(some-table.perm-clob)
|
|
21
|
"tt1:" get-codepage(tt1.perm-clob)
|
|
22
|
"tt2:" get-codepage(tt2.perm-clob)
|
|
23
|
"xtt1:" get-codepage(xtt1.perm-clob)
|
|
24
|
"xtt2:" get-codepage(xtt2.perm-clob).
|
|
25
|
|
|
26
|
|
|
27
|
def temp-table tt1-2 no-undo field temp-clob like some-table.perm-clob
|
|
28
|
column-codepage "UTF-32".
|
|
29
|
create tt1-2.
|
|
30
|
message "tt1-2:" get-codepage(tt1-2.temp-clob).
|
|
31
|
|
|
32
|
|
|
33
|
def temp-table tt1-3 no-undo field temp-clob as clob column-codepage "UTF-8".
|
|
34
|
def temp-table tt2-3 no-undo field temp-clob2 like tt1-3.temp-clob
|
|
35
|
column-codepage "UTF-32".
|
|
36
|
def temp-table tt3-3 like tt1-3.
|
|
37
|
def temp-table tt4-3 like tt3-3.
|
|
38
|
|
|
39
|
|
|
40
|
def buffer xtt1-3 for tt1-3.
|
|
41
|
def buffer xtt2-3 for tt2-3.
|
|
42
|
def buffer xtt3-3 for tt3-3.
|
|
43
|
def buffer xtt4-3 for tt4-3.
|
|
44
|
|
|
45
|
create tt1-3.
|
|
46
|
create tt2-3.
|
|
47
|
create tt3-3.
|
|
48
|
create tt4-3.
|
|
49
|
|
|
50
|
create xtt1-3.
|
|
51
|
create xtt2-3.
|
|
52
|
create xtt3-3.
|
|
53
|
create xtt4-3.
|
|
54
|
|
|
55
|
|
|
56
|
message "tt1-3:" get-codepage(tt1-3.temp-clob)
|
|
57
|
"tt2-3:" get-codepage(tt2-3.temp-clob2)
|
|
58
|
"tt3-3:" get-codepage(tt3-3.temp-clob)
|
|
59
|
"tt4-3:" get-codepage(tt4-3.temp-clob)
|
|
60
|
"xtt1-3:" get-codepage(xtt1-3.temp-clob)
|
|
61
|
"xtt2-3:" get-codepage(xtt2-3.temp-clob2)
|
|
62
|
"xtt3-3:" get-codepage(xtt3-3.temp-clob)
|
|
63
|
"xtt4-3:" get-codepage(xtt4-3.temp-clob).
|
|
64
|
|
|
65
|
|
|
66
|
def temp-table tt1-4 no-undo field temp-clob as clob column-codepage "UTF-8".
|
|
67
|
def temp-table tt2-4 like tt1-4.
|
|
68
|
|
|
69
|
def buffer xtt1-4 for tt1-4.
|
|
70
|
def buffer xtt2-4 for tt2-4.
|
|
71
|
|
|
72
|
create tt1-4.
|
|
73
|
create tt2-4.
|
|
74
|
create xtt1-4.
|
|
75
|
create xtt2-4.
|
|
76
|
|
|
77
|
message "tt1-4:" get-codepage(tt1-4.temp-clob)
|
|
78
|
"tt2-4:" get-codepage(tt2-4.temp-clob)
|
|
79
|
"xtt1-4:" get-codepage(xtt1-4.temp-clob)
|
|
80
|
"xtt2-4:" get-codepage(xtt2-4.temp-clob).
|
|
81
|
|