codepage-run.p
| 1 |
def var cnt2 as integer. |
|---|---|
| 2 |
def var str as char init "TF". |
| 3 |
|
| 4 |
def new shared var str-shared as char init "shared1". |
| 5 |
|
| 6 |
str-shared = "UTF-8". |
| 7 |
|
| 8 |
function func2 returns char: |
| 9 |
cnt2 = cnt2 + 1. |
| 10 |
message "counter func2-1" cnt2. |
| 11 |
return "U". |
| 12 |
end. |
| 13 |
|
| 14 |
message "dummy". |
| 15 |
|
| 16 |
|
| 17 |
def new shared temp-table table-two no-undo field field-three as clob |
| 18 |
COLUMN-CODEPAGE func2() + str + "-8" |
| 19 |
field field-four as clob. |
| 20 |
|
| 21 |
run "codepage.p" ("TTT").
|