是不是可以这样做
data  a;
set  a;
if var1=. then delete;
if var2=. then delete;
...
...
  if var250=. then delete;
run;

这个凑活着用吧
data a;
input x1 x2 x3 x4 x5;
cards;
1 2 3 6 7
. 2 6 4 6
. . 9 . 5
;
run;
proc transpose data=a out=b;run;
data b;set b;id=_n_;run;
Data d;Set b(drop=_name_);
Array Numr _all_;
Do Over Numr;
If Numr in(.) Then delete;
End;Run;
proc sql noprint;
create table c as
select * from b
where  exists
(select * from d where d.id=b.id)
;quit;
proc transpose data=c(drop=id) out=final(drop=_name_);run;

如果一个变量有任一缺失值，则删除该变量。你所要即是数据集old。

谢谢楼上三位的回答。我自己再试了试。

shawfee的回答有点问题，delete是用来删除observation的。
sushe1527和jingju11的程序都是正确的。

再次谢谢！

直接
data newdata;
set olddata;
drop var ...;
(or keep var ...)
这多简单，楼上的都简单问题复杂化了