この図には、Chinese GB 18030 文字を EBCDIC コード・ページ 1388 から Unicode に 変換し、Unicode から EBCDIC コード・ページ 1388 へ再び変換するためのコードが示されています。 次のコードは、図の VALUE 文節に 7 文字の中国語の文字があることを除き、同じです。 ここでは、このコード内に '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
図の説明の終わり。