data demo;
input name $20.;
cards;
zhang
san
li
si
wang
wu
liu
xi
xi
;
run;
data want (keep=tmp rename=(tmp=name)) ;
length tmp $ 20;
retain tmp;
set demo end=last ;
tmp=catx('',tmp,name);
if missing(name) or last then do;
output ;
call missing(tmp);
end;
run;