Du musst das Feld dann als 9,0 definieren und mit EDTWRD eine Maske hinterlegen.
Im Programm ist entsprechend an Stelle von MOVE eben MULT bzw. DIV zu verwenden.