PROC FORMAT creates a format for telephone numbers.
proc format;
   picture phonenum .='Not available'
                other='0000)000-0000' (prefix='(');
run;