Use ABL to simulate inputting double-byte characters

To input a double-byte character using ABL, assemble the character using the CHR function. This is the syntax:

CHR ( expression[ , target-codepage[ , source-codepage]] )

The following example creates and displays the double-byte character shown below:

It is from the KSC5601 code page, which supports Korean:

DEFINE VARIABLE cDoubleByteChar AS CHARACTER NO-UNDO.
cDoubleByteChar = CHR((236 * 256) + 237).
DISPLAY cDoubleByteChar WITH 1 COLUMN.

In the preceding example, the second line shifts the first value into the lead byte and adds the second value to the trail byte.