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.

[Fuerchau]

bindec ist ja auch die falsche Definition!
int(5) bzw. besser noch uint(5) => 2 Bytes mit +/- 32767 oder 0-65535.
bindec(5) => 5 signifikante Ziffern, also +/- 99999

[rischer]

bindec ist...

bin(5) hatte ich von dir weiter oben vom ersten Ansatz übernommen, da dies nicht kompiliert wurde, hatte ich bindec(5) eingesetzt.

Funkt jetzt einwandfrei, die Lösung ist:

dcl-ds UCSConverter;
UCSChar ucs2(1) pos(1);
UCSDec uns(5) pos(1);
end-ds;

Besten Dank für die Hilfe!!!!

[Fuerchau]

Jo, das war mein Fehler. Mit "bin" meinte ich ja auch int;-).
Aber ansonsten: das Leben kann manchmal so einfach sein.