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