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