Tim...

I think this will better suit your needs. At least I hope so! :)
set decimals to 10

mtest= 234.123456700 (or what ever number)
mval=alltrim(str(mtest,45,10))

*test for decimal place.....
mdec=occurs('.',mval)

if mdec > 0 && there is a decimal
&& split string into right and left portions
&& include decimal in the left
mleft = substr(mval,1,at('.',mval))
mright=substr(mval,(at('.',mval)+1),10)
&& now that you have the portion to the right of the decimal...test for "0"
if occurs('0',mright) > 0 && extract portion with numbers
mright = substr(mright,1,at('0',mright)-1)
endif
&& put strings back together
mstring = mleft+mright
else && no decimal

mstring=mval

endif

?mstring

Hope this helps you with our problem!