data a;
input x xdat xdatx y@@;
cards;
1 2 3 4
;run;
proc sql noprint;
select distinct name
into :class separated by ' '
from dictionary.columns
where kindex(name,"dat"); quit; */ 所有dat
*/where substr(name,length(name)-2,3)="dat"; 只结尾
data final;
set a;
keep &class;
run;