Anfängerfrage - Num. Feld kürzen in RPG-Free

[coolie]

Hallo Leute,

kann mir jemand folgende Frage beantworten. Lösung bitte als Non-Dirty und möglichst ohne Umweg über eine Datenstruktur mit Unterfeldern:

D NumFeld S 5 2 inz(2345,23)
D Ergebnis S 2 0

/free
// Ergebnis soll enthalten: 45
/end-free

MfG
coolie

[Fuerchau]

Ergebnis = %int(NumFeld - %int(NumFeld/100)*100)

Wenn negative Werte vorkommen, dann

Ergebnis = %int(NumFeld - %int(%abs(NumFeld)/100)*100)

[coolie]

Heißesten Dank, @Fuerchau! Klasse Lösung!

[B.Hauser]

... hier eine andere Variante:

D MyNumFld        S             11P 2 inz(2345,67)  
D MyErgFld        S              2P 0               
 /Free
   MyErgFld = %Rem(%Int(MyNumFld): 100);   
   Dsply MyErgFld;
/End-Free 

[Fuerchau]

Sicherlich eleganter