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