data PhoneNumbers;   
   set prog2.Phones; 
   Phone='(' !! Code !! ') ' !! Telephone;   
run;     
   
proc print data=PhoneNumbers noobs;    
   title 'Results from automatic conversion';
run;     
   
data PhoneNumbers(drop=NumCode Code);  
   set prog2.Phones(rename=(Code=NumCode));  
   Code=put(NumCode,3.);   
   Phone='(' !! Code !! ') ' !! Telephone;   
run;     
   
proc contents data=PhoneNumbers; 
   title 'Descriptor portion of PHONENUMBERS';     
run;     
   
proc print data=PhoneNumbers noobs;    
   title 'Results from conversion using the PUT function';     
run;