Codepoint UCS2 -> 1141

[rischer]

Dies geht simplerweise mit UCS2 und Overlay:

.....

Interessanter Ansatz, musste Dein Snippet etwas abwandeln, funkt aber leider nicht wirklich. Mein Beispiel ist mit Codepoint 34, das ist das Zeichen ", d.h. es müsste auch mit 1141 darstellbar sein - via Debugg ist in der Variable $charchar nix lesbares.

dcl-ds UCSConverter;
UCSChar ucs2(1) pos(1);
UCSDec bindec(5) pos(1);
end-ds;
dcl-s $CharChar char(1) ccsid(1141);
dcl-s $Codepoint char(5);

$CodePoint = '34';
UCSDec = %dec($Codepoint:5:0);
$charChar = UCSChar;