>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

Perhaps use an array...


ln = 422603445

LOCAL ARRAY laArray(1, LEN(ALLTRIM(STR(ln))))
FOR lnCounter = 1 TO LEN(ALLTRIM(STR(ln)))
laArray(1, lnCounter) = INT(VAL(substr(trans(ln),lnCounter,1)))
ENDFOR