data a;
input a1-a8 b1-b8;
cards;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
;
data b;
    set a;
    array sample(*) _numeric_;
    do i=1 to dim(sample);
        sample(i)=2*sample(i);
    end;
run;

多谢ls
一直知道有array这么个东西
但是要用好还真是不容易啊