/**********************************************************************/


data customer;       
   length client $20;
   input client &;   


/**********************************************************************/


length first last $ 10;
first=scan(client,1);  
last=scan(client,2);   


/**********************************************************************/


newfirst=upcase(substr(first,1,1))||
         lowcase(substr(first,2));  
newlast=upcase(substr(last,1,1))||  
        lowcase(substr(last,2));    


/**********************************************************************/


client=trim(newfirst)||' '||left(newlast);


/**********************************************************************/


data customer(keep=client);            
   length client $20 first last $10;   
   input client &;                     
   first=scan(client,1);               
   last=scan(client,2);                
   newfirst=upcase(substr(first,1,1))||
            lowcase(substr(first,2));        
   newlast=upcase(substr(last,1,1))||        
           lowcase(substr(last,2));          
   client=trim(newfirst)||' '||trim(newlast);
   cards;                                    
sally painter                                
randy SMITH                                  
PAIGE JOHNSON                                
Barb Lewis                                   
;                                            

proc print data=customer;                    
run;                                         


/**********************************************************************/