Code: Alles auswählen.
data: num like konp-kbetr value '34197',
char(20).
char = num.
write char. "34197.00
write num to char decimals 0.
translate char using '. '.
condense char no-gaps.
write char. "34197
clear num.
num = char.
write num. "34.197.00