That works well. thanks Mark
I don't think you need the alltrim, the @T does that
This is still 4 lines of code (Store decimals, set decimals, then reset decimals) when it can be done in 1, but I do like the idea!
Cheers
Will
>This works better. Run this code in a test PRG.
>lnMask = 99999999
>FOR lnI = 1 to LEN(TRANSFORM(lnMask))
> SET Decimals TO lnI - 1
> ? RIGHT(ALLTRIM(TRANSFORM(lnMask/INT(10**(lnI-1)), '@T')), 8)
>ENDFOR
>RETURN
Will Jones