Codepoint UCS2 -> 1141

[rischer]

Schau dir die Inhalte im Debugger mi...

Hi!

Hatte ich auch schon gedacht, sieht nun bei mir so aus:

CTL-OPT DftActGrp(*No) ActGrp(*NEW)
BndDir('YBNDDIR')
CCSID(*CHAR: 1141)
CCSID(*UCS2: 1200)
DecEdit('0.');

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

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

Inhalt von UCSConverter mit :x ist x'22' - scheint zu funktionieren .
Der inhalt von UCSCHAR ist aber undefiniert und daher kommt auch in $charChar undefiniertes.
Funkt auch nicht, wenn ich $charchar mit CCSID(1208) definiere.