so sollte es gehen (aus einem Artikel von Scott Klement,
iSeriesnetwork.com)


D Test2 s 50A
D Test3 s 50C CCSID(1200)

/free

// Assign UCS2 text to a field
Test = %ucs2('Bob the squirrel loves nuts.');

// Convert text from EBCDIC (in Test2) to UTF-16
// (in Test3)
Test2 = 'Alexander is a salamander.';
Test3 = %ucs2(Test2);

/end-free


MfG
WL