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 |
|