DBCODEPAGE function

DBCODEPAGE function

Returns, as a character string, the name of a connected database’s code page.

Syntax
DBCODEPAGE ( { integer-expression | logical-name | alias } ) 
integer-expression

The sequence number of a database the ABL session is connected to. For example, DBCODEPAGE(1) returns information on the first database the ABL session is connected to, DCODEPAGE(2) returns information on the second database the ABL session is connected to, etc. If you specify a sequence number that does not correspond to a database the ABL session is connected to, the DBCODEPAGE function returns the Unknown value (?).

logical-name

A character expression that specifies the database by its logical name or alias.

A code page maps each character in a character set to a numeric value. For an OpenEdge database, DBCODEPAGE returns the code page of the database represented by the integer expression, logical name, or alias. For a non-OpenEdge database, DBCODEPAGE returns the value originally inserted when the schema was created.

There are three possible types of non-OpenEdge code pages:

Physical data source for the database

Code page of a non-OpenEdge vendor library linked in with an OpenEdge dataserver executable (either dynamically or at compile time)

Code page that is in the schema holder that is part of the create activity

If any parameter is invalid, it returns the Unknown value (?).

Example

This procedure displays the logical name and code page of all connected databases:
r-dbcp.p
DEFINE VARIABLE ix AS INTEGER NO-UNDO. 
REPEAT ix = 1 TO NUM-DBS: 
  DISPLAY LDBNAME(ix) DBCODEPAGE(ix) FORMAT "x(19)". 
END. 
Note

A database must be connected in order for the DBCODEPAGE function to work as described.

See also

ALIAS function, CONNECT statement, CONNECTED function, CREATE ALIAS statement, CREATE CALL statement, DATASERVERS function, DBCOLLATION function, DBRESTRICTIONS function, DBTYPE function, DBVERSION function, DELETE ALIAS statement, DISCONNECT statement, FRAME-DB function, LDBNAME function, PDBNAME function, SDBNAME function

DBCODEPAGE ( { `integer-expression` \| `logical-name` \| `alias` } )

r-dbcp.p
DEFINE VARIABLE ix AS INTEGER NO-UNDO. REPEAT ix = 1 TO NUM-DBS: DISPLAY LDBNAME(ix) DBCODEPAGE(ix) FORMAT "x(19)". END.

OpenEdge Release 10.2B