The single chrtran() call is tons faster than looping through each character and making two function calls.
>How about :
>*--- make sure we have digits onlyfor the Phone Number
>IF !EMPTY(nCharPhone)
>FOR i = 1TO nCharPhone
> IF !ISDIGIT(SUBSTR(cPhone,i,1))
> MESSAGEBOX ("Phone number should contain the numbers 0-9 only!")
> RETURN
> ENDIF
>NEXT
>ENDIF