RPG-ILE: Alpha --> Numeric

[TomWaf]

Hallo,
ich bin auf der Suche nach einer professionellen Lösung um die Eingabewerte im BS auf ein numerisches Feld zu bekommen.

Im BS sind alle Eingabefelder Alpha und werden mittels %editc ('2') aufbereitet.
Mein Problem ist nun, die Eingabewerte wieder zurück in ein numerisches Work-Feld zu bekommen.
Habe schon einiges probiert wie z.B: Eval w_Nummer5 = %Uns(%xlate('.':' ':w_Alpha)).
Dabei fehlen dann aber immer die Nachkommastellen.

Gab es da nicht eine Möglichkeit mit Pointer?
Wer kann mir da helfen?

lg
TomWaf

[Fuerchau]

Versuche es einfach mit
%dec(%xlate('.':' ':w_Alpha):11:2)

[TomWaf]

aber leider kann man beim %dec die Anzahl Vor- & Nachkommastellen nicht variabel gestalten.

Hättest du vielleicht da noch eine andere Möglichkeit, wie man das sauber lösen kann?

Kann mich nur dunkel daran erinnern, dass es eine Möglichkeit mit Pointern gab, oder bin ich da am Holzweg?

lg
TomWaf

[Fuerchau]

Da bist du auf dem Holzweg.
Entweder du nutzt per Select/when eine Auswahl für unterschiedliche Ausprägungen, oder du legst dich auf 1 Format, dass für das meiste ausreicht, fest.

[TomWaf]

für die schnelle Info.
Werde es so mit dem %dec in einer lösen.
Ich kann ja immer auf ein 15,5 Feld stellen und von dort eben weiter auf ein anderes numerischeld mit anderer grösse gehen.

lg
Tomwaf