proc sql noprint;
select catx("=",a.name,quote(strip(b.label))) into :setlabel separated by " "
from (select distinct name from dictionary.columns where libname="WORK" and memname="AAA") as a
inner join bbb as b
on a.name eqt b.name;
quit;
proc datasets lib=work;
modify aaa;
label &setlabel;
run;quit;