Using the TRANSLATE function to validate data

data test;
   infile cards;
   input phone $14.;
cards;
(916) 555-1234
9165551234
916-555-1234
916 555-1234
916 555 1234
916 5551234
916555123499
1234
5551212
555-1212
(916) 555-HELP
;;;;

data validate;
   set test;
   pattern = translate(phone, '000000000', '123456789');
   if pattern in ('(000) 000-0000', '0000000000', '000-000-0000', 
                  '000 000-0000', '000 000 0000', '000 0000000') then 
      valid = '1';
   else
      valid = '0';

   put (_all_) (=);

run;