Konvertierung DEC nach CHAR

[cbe]

Hallo allerseits,

ich steh gerade auf dem Schlauch.
Wie konvertiere ich eine Zahl in eine Zeichenkette mit führenden "0" so wie DIGITS bei SQL?
Und das nicht per MOVE sondern als Funktion in RPGLE.

Bsp
wenn x dec(5,0) den Wert 42 hat, soll
eval s = funktio(x) "00042" geben.

MOVE oder DS möchte ich nicht nehmen, da das Programm dadurch unhandlich wird.

Hat jemand eine Idee?

Gruß
Christian

[malzusrex]

Moin

d Alpha           s              5                           
d NumFeld         s              5  0                        
                                                             
c                   Eval      Alpha = %EditC( NumFeld : 'X' ) 

Das 'X' ist nirgendwo dokumentiert. (ich habs bis jetzt jedenfalls net gefunden)


Gruß Ronald

[Fuerchau]

Herzlichen Gückwunsch zu meinem 5000. Beitrag.
Falls du Interesse an der Stunde hast, ruf einfach an. Ich rufe auch gerne zurück.

Die Lösung, die ich auch benötigte, war leider nicht ganz trivial, dann allerdings ganz einfach.

%editw ist hier die Lösung !

evalr s = %editw(x:'0_____');
(_ = Leerzeichen)

Wo ist der Trick ?
Um führende Nullen zu bekommen, kann man mit der "0" die Signifikanz einschalten, allerdings gilt dies erst für das nachfolgende Zeichen, so dass diese Stelle trotzdem leer bleibt.
Die nachfolgenden Leerzeichen (pro Digit eins) bereiten den Wert nun auf, der allerdings genau 1 Stelle zu groß ist !
Das wird nun durch den "evalr" (rechtsbündig) wieder ausgeglichen.
Sollte das Zielfeld aus irgendwelchen Gründen doch größer sein, muss man sich mit %subst behelfen:

eval s = %subst(%editw(x:'0_____'):2:5);

@Ronald
Ich benötigte eine Aufbereitung in der Form "+0000000.00", die in COBOL ja standard ist, in RPG aber Schwierigkeiten bereitet. Dazu funktioniert dann mein obiger Weg.

[mdhl]

Hallo cbe,

hast du es schon mal mit der Buildin-Funktion %editc versucht?
Beispiel:
Ergebnis = %editc(NumFLD:'X')
Im Ergebnis sollte jetzt linksbündig das gewünschte Ergebnis stehen.

Viel Erfolg
mdhl

[malzusrex]

@furchau

okay, wenns mit vorzeichen sein soll, dann mit %EDITW.
ohne vorzeichen finde ich %EDITC halt schöner!

Gruß Ronald

[cbe]

Klasse, den Parameter "X" bei editc hatte ich nicht gefunden, jetzt gehts, vielen Dank!

@fuerchau: das kommt gleich in meine Tip-Sammlung, brauche ich bestimmt mal.

[cbe]

Herzlichen Gückwunsch zu meinem 5000. Beitrag.

wirklich beeindruckend!
Du lässt uns aber auch keine Chance, Dich einzuholen, weil Du immer so flott eine Antwort hast ;-)

[Souljumper]

wie wäre es mit xlate und eine umsetzung von blanks nach '0' ?

Mach ich zumindest so, imo die einfachste lösung.