using letter case changes to delimit a string into new strings

[scaldera]

How can I break up a string into new string variables using the uppercase letters in the string as the delimiters?  For example, I have a name variable that looks like:  JohnSmith. I want to transform it into two variables -- first = John, last = Smith.  I tried scan (varname, _n_, ' ', ku) but it only returns the upper case letters not the lower case letters following. Thanks!

[Reeza]

What about JohnMcDonald ?

[Peter_C]

although there are sas functions like anylower() and notlower() picking out the case changes sounds more suitable for the prx functions.

good luck

[art297]

If your names are always like those shown in your example you might be able to use something as simple as:

data have;

  input name $30.;

  cards;

JonathanSmith

MaryMcDougal

;

data want;

  set have;

  first=substr(name,1,anyupper(substr(name,2)));

  last=substr(name,anyupper(substr(name,2))+1);

run;