Alphafeld rechtsbündig stellen, mit führenden 0en

[malzusrex]

Wenn dein Feld Alpha ist
folgendes 5 x aufrufen

update myfile
set kunde = '0' concat Substr(kunde, 1, 5)
where Substr(kunde, 6, 1)= ' '

[B.Hauser]

... oder

Update MyTable
   Set MyCol = Right('000000' concat Trim(MyCol), 6)
...

... und das nur 1x aufrufen

Birgitta

[malzusrex]

Okay,
das sieht natürlich eleganter aus

[programmer400]

hab die Varianten von malzusrex verwendet da "right" unter V5R2M0 anscheinend noch nicht unterstützt wird.

[Fuerchau]

Meine Variante wäre auch nur ein Aufruf, sogar ab V4 .

[B.Hauser]

Meine Variante wäre auch nur ein Aufruf, sogar ab V4 .

Vorausgesetzt natürlich, dass das Feld nur numerische Zeichen enthält!

Ansonsten sollte das folgende Statement auch unter V5R2 funktionieren:

Update MyTable
    Set MyCol = Translate(Space(6 - Length(Trim(MyCol))), '0', ' ') concat Trim(MyCol)
...

Birgitta