Image description: converting to GB 18030
This image shows code for converting Chinese GB 18030 characters from EBCDIC code page 1388 to Unicode, and then from Unicode back to EBCDIC code page 1388. 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-EBCDIC pic X(16) value 'Chinese text'.
01 Chinese-GB18030-String pic X(16).
01 UnicodeString pic N(14).
. . .
Move function National-of(Chinese-EBCDIC, 1388) to UnicodeString
* Process data in Unicode
Move function Display-of(UnicodeString, 1388) to Chinese-GB18030-String
End of image description.