data flname(keep=NewName CityState);
   length FMNames FName LName $ 30;
   set prog2.people;

   /* Last name is everything before the comma.
      Everything after the comma is first and
      middle name. First name is followed by a blank
      Middle name is preceded by a blank */

   FMNames=left(scan(Name,2,','));
   FName=scan(FMNames,1,' ');
   LName=scan(Name,1,',');
   NewName=trim(FName) !! ' ' !! Lname;
run;

proc print data=flname;
   var NewName CityState;
run;