Alphafeld in Dezimalfeld RPG

[B.Hauser]

Hallo Zusammen,
ich möchte mit RPG ein 8-stelliges Alphafeld in ein Dezimalfeld (9,2) übertragen. In dem Alphafeld kann linksbündig eine Zahl stehen. Allerdings mit bis zu 2 Nachkommastellen (also z.B. 12,34) oder auch ohne Nachkommastelle (z.B. 1234). Außerdem kann es auch vorkommen, dass nur eine Nachkommastelle (z.B. 1,2) eingegeben wurde. Wie schaffe ich es am sinnvollsten, den eingegebenen Wert in ein Dezimalfeld zu transferieren.

Vielleicht hat jemand eine Idee!?!?

Auf welchem Release arbeitest Du?
Ab Release V5R2 kann diese Konvertierung direkt mit der Built-In-Funktion %DEC() bewerkstelligt werden. Mit dieser Built-In-Funktion können alphanumerische Strings (incl. Punkt oder Komma als Trennzeichen) korrekt in numerische Felder konvertiert werden.

 /Free
   Monitor;
       MyNum = %Dec(MyAlpha: 9: 2);
   On-Error;
       // Ungültige numerische Werte
   EndMon;
 /End-Free 

Birgitta

[Fuerchau]

Ab Release V5R2 kann diese Konvertierung direkt mit der Built-In-Funktion %DEC() bewerkstelligt werden. Mit dieser Built-In-Funktion können alphanumerische Strings (incl. Punkt oder Komma als Trennzeichen) korrekt in numerische Felder konvertiert werden.
Birgitta

Und damit ist ein Dezimalpunkt/-Komma gemeint.

Werte wie 123,123 oder 123.12 werden korrekt umgesetzt, es ist egal ob Komma oder Punkt, er gilt immer als Dezimaltrenner.

Werte wie 123.123,12 bzw. 123,123.12 (also Tausender Trennung) werden nicht korrekt umgesetzt.

[B.Hauser]

Werte wie 123.123,12 bzw. 123,123.12 (also Tausender Trennung) werden nicht korrekt umgesetzt.

In diesen Fällen kann man aber immer noch das Tausender-Trennzeichen durch *Blanks ersetzen und schon klappt auch das.

 /Free
    MyNum = %Dec(%Xlate('.': ' ': MyAlpha): 9: 2); 

Birgitta