How to use scan

[PurushReddy]

Cards;
Rama chandra Vikas murthy
V v s lakshman
Siva sanker Prasad Kumar
Guru' Prasad
Guru' raaj gopal govind dasu
;

I want output like this
First_name: first'word
Last_name: last word
Middle name:all the words apart from first name and last name

[Kurt_Bremser]

SCAN Function 

Scan() with 1 gets you the first, scan() with -1 the last word.

All others can be extracted in a do loop from 2 to countw() - 1.

[Ksharp · Accepted solution]

data have;
input x $40.;
call scan(x,1,p1,l1,' ');
call scan(x,-1,p2,l2,' ');
first=substr(x,1,l1);
last=substr(x,p2);
middle=substr(x,l1+1,p2-l1-1);
Cards;
Rama chandra Vikas murthy
V v s lakshman
Siva sanker Prasad Kumar
Guru' Prasad
Guru' raaj gopal govind dasu
;

proc print;run;