Hallo,

wenn Du Release V5R3 oder höher hast, kannst Du das Feld wie folgt umsetzen:

PHP-Code:
 /Free
    EvalR MyNewFld = %TrimR(%TrimL(MyOldFld: '0'))
 /End-Free 
Eventuell kann auf den %TrimR sogar verzichtet werden, da der Feld-Inhalt durch EVALR bereits rechtsbündig ausgerichtet wird.

Solltest Du noch nicht auf Release V5R3 sein, kannst Du die führenden Nullen mit embedded SQL entfernen und das Ergebnis dann mit EVALR und %TrimR rechtsbündig ausrichten:

PHP-Code:
c/Exec SQL   Set :MyNewFld = Trim(Leading '0' from :MyOldFld)
C/End-Exec
C                 EVALR   MyNewFld = %TrimR(MyNewFld) 
Birgitta