data first_last;
   input @1  name  $20.
         @21 phone $13.;
   ***extract the last name from name;
   last_name = scan(name,-1,' ');
datalines;
Jeff W. Snoker       (908)782-4382
Raymond Albert       (732)235-4444
Alfred Edward Newman (800)123-4321
Steven J. Foster     (201)567-9876
Jose Romerez         (516)593-2377
;
title "Names and Phone Numbers in Alphabetical Order (by Last Name)";
proc report data=first_last nowd;
   columns name phone last_name;
   define last_name / order noprint width=20;
   define name      / display 'Name' left width=20;
   define phone     / display 'Phone Number' width=13 format=$13.;
run;