FWD » Core Development » Database

function func1 returns char:

  message "func 1".

  return "UTF-8".

end.

function func2 returns char:

  message "func 2".

  return "UTF-8".

end.

function func3 returns char:

  message "func 3".

  return "UTF-8".

end.

function func4 returns char:

  message "func 4".

  return "UTF-8".

end.

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

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

def temp-table tt22 like tt2.

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

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

def temp-table tt44 like tt4.

create tt22.

create tt44.

run "codepage-shared.p".