>Found it!
>
>FOR nCnt = 1 TO 10
> cCharacter = SUBSTR(cTest, nCnt, 1)
> IF ISDIGIT(cCharacter)
> cNumOnly = cNumOnly + cCharacter
> ELSE
> IF ISALPHA(cCharacter)
> cNumOnly = cNumOnly + cCharacter
> ENDIF
> ENDIF
>ENDFOR


Hi Roelaux (from a former Alabamian):

You can do better than this.

To remove embedded spaces:

chrtran(cTest," ","")


To remove all but alphanumeric (upper) characters:

chrtran(cTest,chrtran(cTest,"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",""),"")


Should be much faster (not to mention slicker :).


Peter Robinson

(My son and I will be rolling down to Birmingham to spend Thanksgiving with my bro and his family.)