Umsetzung von Umlauten

[angelone]

Aktion "Alter Thread nach oben 2005"

ich hab hier das selbe problem.
nur finde ich alles etwas merkwürdig.

und frag mich jetzt wer hier zu hohl is zeichen umzusetzen.
ibm oder ich

ich bekomme über meine socket verbindung vom windows server iso-8895-1
also codepage 819

und benutze jetzt zur umsetzung die tabelle Q819337273
ich teste hier die ganze zeit rum mit dem "è"
in iso-8895-1 ist das dezimal 233 / x'E8'

in dieser tabelle steht jetzt, dass x'E8' umgestetzt werden soll auf x'AE'
x'AE' ist aber jetzt ein "þ" (was immer das darstellen soll)

und definitiv kein "è" was ja im EBCDIC ein x'54' ist.

wo könnte jetzt das problem liegen?
kann nicht glauben, dass diese tabelle einfach falsch ist...

edit:
zieldatei hat ccsid 273
system hat ccsid 65535
job hat ccsid 65535

[Fuerchau]

ISO-8859-1 ist ANSI und entspricht der CP 1252 von Windows !
Dafür gibts leider kein TBL-Objekt.
Aber wenn du schon firm mit C-Api's bist, dann nutze doch die nachfolgenden API's:
http://publib.boulder.ibm.com/iserie...s/iconvopn.htm
http://publib.boulder.ibm.com/iserie...apis/iconv.htm
http://publib.boulder.ibm.com/iserie...s/iconvcls.htm

[angelone]

aha! da liegt der hund begraben
irgendwer meinte das iso-8859-1 sei cp819

was wäre denn dann 819? gibts da auch eine iso norm zu?
dann sag ich dem windowsprogger er soll mir 819 schicken
dann kann ich die tabelle ja benutzen

die apis hatte ich mir auch schon so angeguckt.
aber ich brauch da immer RPG beispiele.
rein aus der doku von ibm werd ich nie so schlau.

[Fuerchau]

CP819 galt früher mal als ANSI ist aber nicht ganz durchgängig.
Verwende einfach folgendes Beispiel:

d CDRCVRT pr extpgm('CDRCVRT')
d CCSID1 10I 0
d ST1 10I 0
d S1 32766 options(*varsize)
d L1 10I 0
d CCSID2 10I 0
d ST2 10I 0
d GCCASN 10I 0
d L2 10I 0
d S2 32766 options(*varsize)
d L3 10I 0
d L4 10I 0
d FB 12
d ConvParm ds
d CCSID1 10I 0 inz(1252)
d ST1 10I 0 inz(0)
d S1 100 inz
d L1 10I 0 inz(%size(S1))
d CCSID2 10I 0 inz(273)
d ST2 10I 0 inz(0)
d GCCASN 10I 0 inz(0)
d L2 10I 0 inz(%size(S2))
d S2 100 inz
d L3 10I 0 inz
d L4 10I 0 inz
d FB 12
d FBCodes 10I 0 overlay(FB) dim(3)

c/free
S1=x'E8';
CDRCVRT(
CCSID1
:ST1
:S1
:L1
:CCSID2
:ST2
:GCCASN
:L2
:S2
:L3
:L4
:FB
);

Quelle: http://publib.boulder.ibm.com/iserie...is/CDRCVRT.htm
Dies API ist einfacher zu programmieren.

[angelone]

sauber
vielen dank.

da kommen ja tatsächlich die richtigen zeichen raus.
hatte schon die hoffnung verloren

ich hab hier zwar probleme mit den varlengths aber das macht nix
wenn ich der funktion nen string übergebe der kürzer ist (mein "inputstring"), als das was da in der datenstruktur bei S1 angegeben ist, wird der rest mit "@" gefüllt.

hab dann in S2 sowas wie "hello@@@@@@@@@@"
kann man mit %len(%trim(inputstring)) machen. dann weiss man wie lang der string mit den vielen @ eigentlich sein sollte.
und dann n output=%subst(S2:1:%len(%trim(inputstring)))
aber schön is das nicht...

[Fuerchau]

In L1 wird die zu übersetzende Länge vorgegeben (Siehe Beschreibung).

[angelone]

...oder so

funzt. danke