codepage-dyn.p
1 |
def temp-table tt1 no-undo field field-one as clob column-codepage "UTF-32" field dummy as integer. |
---|---|
2 |
|
3 |
def var t as handle. |
4 |
create temp-table t. |
5 |
t:add-like-field("field-one", "tt1.field-one"). |
6 |
t:temp-table-prepare("dyn-tt"). |
7 |
|
8 |
create tt1. |
9 |
def var h as handle. |
10 |
def var f as handle. |
11 |
|
12 |
h = t:default-buffer-handle. |
13 |
h:buffer-create(). |
14 |
f = h:buffer-field("field-one"). |
15 |
|
16 |
message get-codepage(tt1.field-one) |
17 |
get-codepage(f:buffer-value). |
18 |
|
19 |
|
20 |
create temp-table t. |
21 |
t:add-fields-from(h). |
22 |
t:temp-table-prepare("dyn-tt2"). |
23 |
|
24 |
h = t:default-buffer-handle. |
25 |
h:buffer-create(). |
26 |
f = h:buffer-field("field-one"). |
27 |
|
28 |
message get-codepage(f:buffer-value). |
29 |
|