FWD » Core Development » Database

function func1 returns char:

  message "func 11".

  return "UTF-32".

end.

function func2 returns char:

  message "func 22".

  return "UTF-32".

end.

function func3 returns char:

  message "func 33".

  return "UTF-32".

end.

function func4 returns char:

  message "func 44".

  return "UTF-32".

end.

def shared temp-table tt1 no-undo field f1 as clob COLUMN-CODEPAGE func1().

def shared temp-table tt2 no-undo field f2 as clob COLUMN-CODEPAGE func2().

def temp-table tt22 like tt2.

def shared temp-table tt3 no-undo field f3 as clob COLUMN-CODEPAGE func3().

def shared temp-table tt4 no-undo field f4 as clob COLUMN-CODEPAGE func4().

def temp-table tt33 no-undo field f33 like tt3.f3.

def var tt44 as handle.

def var h as handle.

def var f as handle.

create temp-table tt44.

tt44:add-fields-from("tt4").

tt44:temp-table-prepare("tt44").

h = tt44:default-buffer-handle.

h:buffer-create().

f = h:buffer-field("f4").

create tt1. 

create tt2. 

create tt3. 

create tt4.

create tt22.

create tt33.

message get-codepage(tt1.f1) get-codepage(tt2.f2) get-codepage(tt3.f3) get-codepage(tt4.f4).

message get-codepage(tt22.f2) get-codepage(tt33.f3) get-codepage(f:buffer-value).