Hallo zusammen,
leider gehts scheinbar tatsächlich nur zu Fuß.
Code:
D Alpha           S              9A   inz('13.456,78')        
D Num             S             10S 2 inz(0)                  
C                   eval      Alpha = %xlate(Alpha:'.;':' ')  
C                   evalr     num = %dec(Alpha:09:00)         
C                   eval      *inlr = *on
Code:
 *RNF0327 30      6 000400  Der erste Parameter für %DEC oder %DECH ist ungültig.     
 *RNF7565 30      6 000400  Das Ergebnis einer Operation EVALR ist kein Zeichen- oder 
                            Grafikfeld fester Länge.
Gruß und schönes Wochenende