Image description: converting to UTF-8
This image shows sample code that converts Greek EBCDIC data to UTF-8. The following code is the same except that the VALUE clause in the image has 10 Greek characters where this code has 'Greek text'.
01 Greek-EBCDIC pic X(10) value 'Greek text'.
01 UnicodeString pic N(10).
01 UTF-8-String pic X(20).
Move function National-of(Greek-EBCDIC, 00875) to UnicodeString
Move function Display-of(UnicodeString, 01208) to UTF-8-String
End of image description.