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.