Something like this
ln=422603445
ln2c=TRANSFORM(ln)
DIMENSION ArrayNAme[LEN(ln2c)]
FOR ia=1 TO ALEN(ArrayNAme)
ArrayNAme[ia]=SUBSTR(ln2c,ia,1)
?ArrayNAme[ia]
ENDFOR
>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