如何删除众多的时间变量

shiyiming

有个data有多个时间变量，格式均为yymmddn8.. 下面一个例子就仅列3个时间变量（dates,dd,x）作说明。
data a;
input id $ dates :yymmdd8. dd :yymmdd8. map  x :yymmdd8. 。。。;
format dates dd x yymmddn8.;
cards;
a 20090101 20100923 100 20111201 。。。
;
run;
问题：想去掉所有的时间变量，且format=yymmddn8.的变量。
请大家帮忙，谢谢！！！

shiyiming

[code:1smldcin]
data a;
input id $ dates :yymmdd8. dd :yymmdd8. map x :yymmdd8.;
format dates dd x yymmddn8.;
cards;
a 20090101 20100923 100 20111201
;
run;

proc contents data=a out=b;
run;

proc sql;
  select NAME into :mvar separated by ' '
  from b
  where FORMAT='YYMMDDN' and FORMATL=8;
quit;

data c;
set a;
drop &mvar;
run;
[/code:1smldcin]