参考了一个国外文献


data  a;
input  id  a_number b_number c_number ;
cards;
1 100 200 300
2 200 330 400
;
run;

proc contents data = a
out=var_names(keep = name) noprint;
run;

data change;
set var_names;
where substr(name,length(name)-6) = "_number";
run;

data _null_;
file 'c:\change';
set change end = eof;
if _n_ = 1 then put '%let allthev= ';
put name;
if eof then do;
call symput('num' , compress(_n_));
put ';';
put 'run;';
end;
run;

%include 'c:\change';


data result;
set a;
array x[&num] &allthev;
do i = 1 to #
x{i}=0.8*x{i};
end;
drop i;
run;

有没有人

如果你的id是character variable 用array即可实现

data two;
set a ;
array change {*} _numeric_;
do i=1 to dim(change);
change{i}=0.8*change{i};
end;drop i;
run;

额抱歉啊 没看清楚 你是100个变量 只有40个需要求 但不需要求的变量里也有数值型变量是吗
我再继续想想

是的啊呀。

很完美的解决了问题，
改进的地方有，data _null_ 这一步，可以不用，直接 proc sql ；
select name into :list separated by ' ' from change ;
select count(*) into :count from change;
quit;
allthev 对应list
num 对应 count