FREE RPG %CHAR

[loeweadolf]

Wie kann ich erreichen, daß beim Konvertieren eines numerischen Wertes nach alphanumerisch die führenden Nullen
erhalten bleiben.

d Nummer s 5 0 Value(00012)
D Alpha s 5a

Alpha = %char(nummer)

Das Ergebnis ist 12 .

Ich hätte gerne als Ergebnis 00012.

Was kann ich machen ?

mfg Ludger

[Martin]

Eine Möglichkeit wäre:

c Alpha = %EditC(Nummer:'X');

Man muss aber beachten, dass die Anzahl der
Nullen durch das numerische Feld bestimmt
wird. Falls das Aplha-Feld länger ist, wird es
nicht vollständig gefüllt. Ist es kürzer, so
wird rechts abgeschnitten.

Dann ist es evtl. besser mit EvalR zu arbeiten
oder folgende Lösung anzuwenden:

d VieleNullen S 256 inz(*ALL'0')
c EvalR Alpha = VieleNullen + %Char(Nummer)

Gruss,
Martin

[loeweadolf]

danke für den Tipp.

mfg. Ludger