führende Nullen

[B.Hauser]

Und wer das Ganze gerne mit SQL machen würde ...
Das folgende Beispiel richtet den Inhalt der OrigFields rechtsbündig aus und füllt bis zur Länge von 15 Zeichen linksbündig mit Nullen auf. Funktioniert im übrigen sowohl für numerische als auch alphanumerische Werte. Bei alphanumerischen Werten sollten folgende Blanks entfernt werden.

Exec SQL  Set :OutputField = LPAD(RTrim(:OrigField), 15, '0');

Birgitta

[Fuerchau]

Wem letztlich die Performance egal ist...
Wenn RPGLE das doch schon hergibt, warum dann auf SQL ausweichen;-)?
Und wenn schon dann richtig:

Exec SQL Set :OutputField = LPAD(Trim(:OrigField), 15, '0');
Denn RTrim lässt ggf. vorhandene führende Leerzeichen stehen.