data bbb;
do until (last.name);
set aaa;
by site name notsorted;
length _value $20;
_value=catx("",_value,value);
end;
drop value;
rename _value=value;
run;