Here is a solution.

data one;
retain a1-a5
abcd_id dg_id tged_id yu433rf_id uhewgtg45_id
z1-z6 0;
run;

proc print;run;

proc sql noprint;
  select name into: keepit separated by ' '
  from dictionary.columns
  where libname in ('WORK') and memname in ('ONE')
  and upcase(name) like '%_ID';
  quit;

data two;
set one(keep=&keepit);
run;

proc print;run;

great

我知道冒号可以用在保留某些特定字符字符字符开头的所有变量,有什么方法类似冒号保留以某个字符结尾?
谢谢  

我知道冒号可以用在保留某些特定字符开头的所有变量,有什么方法类似冒号,但是可以保留以某个字符结尾?

你看这个帖子，可能会有帮助

https://bbs.pinggu.org/thread-1391054-1-1.html