我已经解决了，方法比较笨

data a;
input x y z;
datalines;
1 5 0
2 8 9
3 6 8
;
run;

proc sql;
       create table aa as select name into:vname from dictionary.columns
                where libname='WORK' and memname='A' and varnum in (1,3);/*varnum=n n为第几个变量，即第几列*/
        run;
quit;
/*以上参考这篇帖子里的回答：https://bbs.pinggu.org/thread-717620-1-1.html*/
/*上面的程序主要是将对应列数的变量的变量名提取出来*/
proc transpose data=aa out=aa1 ;
id name;
run;
data aa1;
set aa1;
drop _name_;
run;
/*以上是把提取出来的变量名数据集转置，生成一个仅有对应变量名空数据集*/

proc append base=aa1 data=a force;
run;
/*使用append过程对数据进行更新，由于选取出的变量个数与原始库中的变量个数不同，所以要用force*/