%macro score(num,file1,file2);
%do m=1 %to #
proc sql;
select w&m  into:mw&m from &file2;
run;
data s&file1;
set &file1;
array z(&num);
z(&m)=sx&m*%sysevalf(&mw&m);
%end;
run;
%mend score(num,file1,file2);
%score(14,u,wu);
求大神指导