Project

General

Profile

codepage-order.p

Stanislav Lomany, 06/26/2019 08:46 PM

Download (341 Bytes)

 
1
def temp-table tt2 no-undo field f2 as char.                 
2

    
3
function func returns char:
4
  create tt2.
5
  tt2.f2 = "UTF-8".
6
  return tt2.f2.
7
end.
8

    
9
def temp-table t-one no-undo field f-one as clob COLUMN-CODEPAGE func() + "test".
10
                           
11
create t-one.
12
message get-codepage(t-one.f-one).