Sonderzeichen umsetzen in RPG/IV

[Fuerchau]

Wie wäre es mit ein wenig SQL ?

c/exec sql
c+ set :myvar = replace(:myvar, 'Ö', 'Oe')
c/end-exec

Dies ist für jede Kombination zu wiederholen. Man kann es auch verallgemeinern:

c eval myfrom = 'Ö';
c eval myto = 'Oe';
c/exec sql
c+ set :myvar = replace(:myvar, trim(:myfrom), trim(:myto))
c/end-exec

[dinie]

Fuerchau: der Idee mit dem SQL gefällt mir hervoragend! Ich habe es bereits ausprobiert, funktioniert top.
Danke euch für die schnelle Hilfe,
Dinie.

[cbe]

klasse Idee!

Das Problem hatte ich auch erst vor kurzen und habe es "konventionell" programmiert. Hier SQL zu nehmen ist viel eleganter - genial!

Gruß
Christian

"Wer nur einen Hammer hat, für den ist jedes Problem ein Nagel"

[Fuerchau]

Nicht nur das, sondern SQL verwendet auch die aktuelle Job-CCSID, wenn die umzusetzenden Zeichen auch vorher aus einer Datei gelesen werden.

Kodierst du hart ein 'Ö' in der Quelle, funktioniert das nur mit der CCSID zum Compile-Zeitpunkt.
Änderst du später z.B. Job- oder File-CCSID wird dein 'Ö' nicht mehr gefunden !

[camouflage]

Nur zuf Info unter V7R1

/free
string =%ScanRpl('ö' : 'oe' : string); 
/end-free 

geht natürlich auch zum Sonderzeichen eliminieren.

[Fuerchau]

Bzgl. der CCSID bei Konstanten gilt weiterhin oben gesagtes.
Rufts du dein Programm nicht mit der selben CCSID deiner Programmquelle bzw. der Job-CCSID zum Erstellzeitpunkt auf, wird ein ganz anderes Zeichen ersetzt !

[camouflage]

Hallo Fürchau
Ist schon klar, es ging mir nur um die neue BIF, bzw. deren Funktionalität.