Nicht druckbare Zeichen

[Fuerchau]

Das ist ein Problem bei der Überführung von Unicode in ANSI bzw. anschließend in EBCDIC.
In Unicode bzw. UTF8 können Zeichen vorkommen, die in ANSI 1252 bzw. EBCDIC 273/1141 unbekannt sind.
Bei einer Standardkonvertierung von UTF8 in 1252 werden unbekannte Zeichen in normales "?" übersetzt.
Kommen Zeichen z.B. aus HTML (Mails) gibts dort das Zeichen " " (Numeric backspace, x'A0'), und das entspricht nun EBCDIC x'36'.

Da es nun keinen Translate in dieser Form gibt, kannst du per Schleife alle Zeichen kleiner x'40' (Blank) ersetzen oder per SQL TRANSLATE mit einer manuellen Ersetzungstabelle x'000102....3E3F' gegen Blank austauschen.
Im RPGLE gibts %XLATE/XLATE, dem du auch entsprechenden Ersetzungsztabellen mitgeben kannst.

[Frankk]

Hallo,
wollte mich nochmals kurz zu dem Problem melden. der entscheidende Punkt war: Alles was kleiner ist als x'40' ist! Das hat wunderbar geklappt.

Variable einlesen, jede Stelle auf < x'40' prüfen und ggf. gegen ein Blank austauschen. Habe jetzt schon verschiedene Test's gefahren. Bis jetzt funktioniert es einwandfrei!

Herzlichen Dank für Deine Hilfe!

[Robi]

Filetranslation kann das ohne Schleife
Früher war das ein F in Stelle 53 in der Headerkarte.
Und eine '**' Tabelle mit alter Wert / neuer Wert oder umgekehrt, je nachdem ob die Tabelle sich auf eine Input oder Output Datei bezieht.
Kennt heute kaum noch einer

[camouflage]

Filetranslation kann das ohne Schleife
Früher war das ein F in Stelle 53 in der Headerkarte.
Kennt heute kaum noch einer

Verständlich, wenn du noch einen Steinzeitcode mit RPG erstellen möchtest. RPGLE kennt das nicht mehr. Ein Vorteil hat es natürlich, PDM funktioniert dann noch voll umfänglich. Die Schleifenlösung finde ich die Beste.

[B.Hauser]

Bekommt man natürlich auch mit einem SQL Update hin:

Update Table
            set Text = Translate(Text, 
     x'404040404040404040404040404040404040404040404040404040404040404040',
     x'202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F41') 

Die Hex-Zeichen von x'00' bis x'1F' gehören natürlich auch noch konvertiert! Kann man ja noch in die Strings einfügen.

[Frankk]

Bekommt man natürlich auch mit einem SQL Update hin:

Update Table
            set Text = Translate(Text, 
     x'404040404040404040404040404040404040404040404040404040404040404040',
     x'202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F41') 

Die Hex-Zeichen von x'00' bis x'1F' gehören natürlich auch noch konvertiert! Kann man ja noch in die Strings einfügen.

Gute Idee!! Ich danke Dir!

[Fuerchau]

Das hatte ich hier auch schon empfohlen:
http://newsolutions.de/forum-systemi...778#post124778

[Robi]

.... RPGLE kennt das nicht mehr....

Das ist falsch.
Ftrans gibt es noch

Ob in free weis ich nicht, die Pgmme die das benutzen sind alle noch nicht free.

Wer regelmässig (Schrott)-Daten von anderen Systemen bekommt oder Steuerdateien für andere Systeme mit exotischn werten erstellen muß, sollte sich damit beschäftigen.

Wer nur in der DB rum eiert braucht das vermutlich nicht

[Fuerchau]

Und zur Not gibts den [%]XLATE ja auch noch.