FWD » Core Development » Database

/* use from codepage-run.p */

def input parameter p as char init "T". 

def var str-var as char init "F".

def shared var str-shared as char init "shared2".

str-var = "modified".

def var cnt as integer.

def var cnt2 as integer.

function func returns char:

  cnt = cnt + 1.

  message "counter func" cnt.

  return "U".

end.

function func2 returns char:

  cnt2 = cnt2 + 1.

  message "counter func2" cnt2.

  return "invalid".

end.

message p.

def temp-table table-one no-undo field field-one as clob 

                            COLUMN-CODEPAGE func() + p + str-var + "-8"

                            SERIALIZE-NAME "thename"

                           field field-two as clob.

def shared temp-table table-two no-undo field field-three as clob 

                                    COLUMN-CODEPAGE func2() + str-var + "-8"

                                  field field-four as clob.                 

def temp-table table-three no-undo field field-five as clob 

                                     COLUMN-CODEPAGE str-shared

                                   field field-six as clob

                                     COLUMN-CODEPAGE "UTF-8".                                       

create table-one.

/*table-one.field-one = "test".*/

copy-lob from table-one.field-one to table-one.field-two.

message get-codepage(table-one.field-one) get-codepage(table-one.field-two).

create table-two.

/*table-two.field-three = "test".*/

copy-lob from table-one.field-one to table-two.field-three.

message get-codepage(table-two.field-three) get-codepage(table-two.field-four).

create table-three.

def buffer x-table-one for table-one.

def buffer x2-table-one for x-table-one.

create x-table-one.

create x2-table-one.

message "x-table-one" get-codepage(x-table-one.field-one) get-codepage(x-table-one.field-two).

message "x2-table-one" get-codepage(x2-table-one.field-one) get-codepage(x2-table-one.field-two).