*** If you know the name of the 30th and 60th variable, then:;
data b;
   set a;
   keep var30name -- var60name;
run;

*** If not, then ;
proc sql noprint;
    select name into : namelst separated by " "
          from dictionary.columns
          where libname="lib-name" and memname="A" and 30<=varnum<=60;
quit;


data b;
   set a;
   keep &namelst;
run;

另外问一下，如果想选择a中的第30列到第60列变量给b，如何用data步或者proc sql实现？
谢谢

data b;set a;
keep var30-var60; 如果变量名前缀相同，
keep var30--var60;如果变量名前缀不同，
run;

上述语句应该可以。似乎很简单，不知道是否误解了楼主的意思