mynumber = 422603445
m.newvar = LEN(TRANSFORM(mynumber))
DECLARE myarr[m.newvar-1]
FOR m.iii = 1 TO m.newvar - 1
myarr[m.iii] = SUBSTR(TRANSFORM(m.mynumber),iii,1)
NEXT
DISPLAY MEMORY LIKE m.myarr
Dear friend
>
>Thank you
>Besides the verify digit I also need to obtain every number as separated to
>store them in a variable
>
>422603445
>
>4
>2
>2
>6
>0
>3
>4
>4
>
>Moses
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst