Zitat Zitat von Fuerchau
Hierfür ist am besten die Funktion %EDTIC(Feld_N:'x'), x = gewünschter Editcode !
Vorsicht EditCode 'X', konvertiert numerische Felder so, dass die führende Nullen angegeben werden und ist damit im Free Format der Ersatz für MOVE.

Ab Release V5R3M0 wird auch die %Trim-Funktion erweitert, so daß beliebige führende und folgende Zeichen entfernt werden können.

Wusstet ihr übrigens, dass SQL diese Funktion schon lange beherrst und damit auch in RPG eingebunden werden kann.

Beispiel:
Code:
D MyText          S            100       inz('*******Abc')

C/Exec SQL   set :MyText = Trim(Leading '*' from :MyText)
C/End-Exec
Statt leading kann auch nur L angegeben werden.
Folgende Zeichen werden mit Trailing oder T entfernt.
Both oder B entfernt führende und folgende Zeichen.

Birgitta