... hier eine andere Variante:

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