Schrott in Feldern

[Fuerchau]

Da solltest du die Inhalte mit einem separaten Programm mal korrigieren und alle Zeichen kleiner Blank durch Blank ersetzen. Eine Standardfunktion gibts dafür nicht.
Du kannst aber einen Service ILE-Funktion schreiben, der dir die Zeichen halt austauscht.
Dann kannst du halt per

eval ZielFeld = Service_ReplaceUnprintable(Quellfeld);

den Inhalt korrigieren.

dcl-proc Service_ReplaceUnprintable;
dcl-pi *n varchar(256);
input varchar(256) const;
end-pi;

dcl-s output varchar(256) inz;
dcl-s pos int(5);

for pos=1 to %len(input);
if %subst(input : pos:1) < *blank;
output += ' ';
else;
output += %subst(input : pos:1);
endif;
endfor;
return output;

end-proc;

[alex61]

ganz lieben Dank für Deine schnelle Hilfe. Ich probiere das aus.
Grüße A.