This image shows code for converting Chinese GB 18030 characters from ASCII code page 1386 to Unicode, and then from Unicode back to ASCII code page 1386. The following code is the same except that the VALUE clause in the image has seven Chinese characters where this code has 'Chinese text'.
01 Chinese-ASCII pic X(16) value 'Chinese text'.
01 Chinese-GB18030-String pic X(16).
01 UnicodeString pic N(14).
. . .
Move function National-of(Chinese-ASCII, 1386) to UnicodeString
* Process data in Unicode
Move function Display-of(UnicodeString, 1386) to Chinese-GB18030-String
End of image description.