试试varnum（）

data test;
   a=1;      d=3;    f=10;    eo=203;
   fi=30;    ri=20;
run;

proc sql;
    select name into :AllVar separated by ' '
     from dictionary.columns
     where libname='WORK' and memname='TEST'
     order by varnum;
quit;

data a;
array col(*) &allvar;
   set test;
   do i = 1 to dim(col);
   col(i) = col(i) +100;
   end;
run;