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! :) :cool:

[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 ;););)