>Maybe not BEST, but easy:
>* Replace with blanks
>aa = "(111) 111-111"
>aa = chrtran(aa,"("," ")
>aa = chrtran(aa,")"," ")
>aa = chrtran(aa,"-"," ")
>? aa
>* Eliminate
>aa = "(111) 111-111"
>aa = chrtran(aa,"(","")
>aa = chrtran(aa,")","")
>aa = chrtran(aa,"-","")
>aa = chrtran(aa," ","")
>? aa

You don't need separate CHRTRAN() commands, you can combine all the characters to be replaced into the one parameter:

aa = CHRTRAN(aa,"()-"," ")