FWD » Core Development » Database

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

                                       COLUMN-CODEPAGE "UTF-8"

                                 field field-two as clob.                           

def temp-table table-two no-undo like table-one.

def temp-table table-three no-undo like table-two

                           field field-three as clob COLUMN-CODEPAGE "UTF-8".

def temp-table table-four no-undo field field-four like table-one.field-one.                           

create table-one. 

create table-two.

create table-three.

create table-four.

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

message "table-three" get-codepage(table-three.field-one) get-codepage(table-three.field-three).

message "table-four" get-codepage(table-four.field-four).

def temp-table table-five no-undo like some-table.       

create table-five.            

message "table-five" get-codepage(table-five.perm-clob).

def temp-table table-six no-undo field like-clob like some-table.perm-clob.       

create table-six.            

message "table-six" get-codepage(table-six.like-clob)