如何把一个数据的若干列名字存入一个宏变量里面？

比如说我有一个数据如下：data survey;
  input id diet exer hours xwk educ;
  datalines;
1 1 . 1 3 1
1 . 2 1 4 2
1 . 4 . . .
1 1 5 2 3 .
2 . 9 2 3 .
2 5 9 2 4 .
2 . 3 . 5 3
3 2 . . . .
;


因为我的实际数据有三百多个变量，我不想手动输入三百个变量名。我想把除了id之外的某几列变量的名字存在一个宏变量里面，比如上面那个例子va_list, 每次调用var_list其实就是调用diet exer hours xwk educ.

data survey;
  input id diet exer hours xwk educ;
  datalines;
1 1 . 1 3 1
1 . 2 1 4 2
1 . 4 . . .
1 1 5 2 3 .
2 . 9 2 3 .
2 5 9 2 4 .
2 . 3 . 5 3
3 2 . . . .
;
proc sql noprint;
    select distinct name into : var_list separated by " "
      from dictionary.columns
      where  libname="WORK" and memname="SURVEY" and upcase(name) ne "ID";
quit;
%put &var_list;

牛人啊,受教了