Hi Goerge,

>lcInput= '###,###,###.####'
>lnlbs = OCCURS("#", SUBSTR(lcInput, RAT('.', lcInput)))
>lcOutput = FORCEEXT(lcInput, REPLICATE('0', lnlbs))

That works

Actually I was thinking:

?forceext(lcIn, replicate('0', len(justext(lcIn))))

or

?forceext(lcIn, replicate('0', len(lcIn)-rat('.',lcIn)-1))