This works data have;
input names:$50.;
cards;
DineshReddy
RajeshRaoReddy
PraveenKumarRaoKumar
;
run;
data temp(drop=i);
set have;
do i=1 to length(names)+1;
if (rank(substr(names,i,1)) gt 64 and rank(substr(names,i,1)) lt 91 and i ne 1) or i=length(names)+1 then do;
output;
name=substr(names,i,1);
end;
else name=cats(name,substr(names,i,1));
end;
run;
proc sort data=temp;
by names;
run;
proc transpose data=temp out=want(drop=_name_);
by names;
var name;
run; Please let us know if it worked for you.
... View more