Umsetzung von Umlauten

[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