realgod5417 发表于 2009-7-11 15:01
* Change all variables  to 0 values;
DATA  seconddata;
set fisrtdata;(假设有一百个variables,且无规律,但知道第一个变量的变量名为afdajfd,最后一个变量名为nzj)
ARRAY var (100) afdajfd--nzj;
DO i = 1 TO 100;
var(i) =0;
END;
RUN;

sushe1527 发表于 2009-7-11 15:49
data a;
input m n k;
cards;
1 2 7
3 4 8
;
run;
data b;
set a(obs=1);
ARRAY y(*) _all_;
DO i = 1 TO dim(y);
y(i) =0;
END;drop i;
RUN;