* Alphabetical Order of Last Name in First, Middle, and Last Name Order: Scan Function;



data first_last;

   input @1  name  $20.

         @21 phone $13.;

   last_name = scan(name,-1,' ');

datalines;

jeff w. snoker      (908)782-4382

raymond albert      (732)235-4444

steven j. foster    (201)567-9876

jose romerez        (516)593-2377

;

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;