not sure you still need to keep the original columns (var1-var5) or just need the new columns to record the left columns (var1-var4, say the original var3 has been taken out).
there will be some problems in the data either way.

sorry about misunderstanding in the beginning.
I just put my rough thought here.



/****example data******/

data a;
input id $ year  var1  var2  var3  var4  var5;
cards;
1  2010    10     11       .     12       .
1  2011    10     10      10    10      10
1  2012    12     11      12    10      11
2  2010    15      9      12     3       9
2  2011     8     10      15    11      10
2  2012    10      8      10    10      12
3  2010    11      11     11     11     11
3  2011    10      10     10     10     10
3  2012     12     12     12     12     12
4  2012     12     12     12     12     12
4  2011     12     .     12     12     12
5  2010     12     12     12     12     12
6  2010     .     12     12     12     12
6  2011     12     12     12     12     12
6  2012     12     12     12     12     12
7  2011     12     12     12     12     12
7  2012     12     12     12     12     12
8  2010     12     12     12     12     12
8  2011     12     .     12     12     12
8  2012     12     12     12     12     12
9  2011     12     12     .     12     12
9  2012     12     12     12     12     12
;
run;
/*******find ID with missing value****/
data b;
set a;
count=sum(missing(var1),missing(var2),
missing(var3),missing(var4),missing(var5));
run;
proc sql;
create table ref as
select distinct(id)
from b
where count>0;
quit;


/***********obtain the result without the missing value*******/
proc sql;
create table want as
select A.* from b as A
where a.ID not in (select B.id from ref as b);
quit;

It is easier to use SQL in this case.


proc sql;
  select *
  from a
  where id not in (
  select distinct id
  from a
  where  var1+var2+var3+var4+var5=.
  )
  ;
  QUIT;

多谢大侠！成功解决问题，SQL太好用了！

多谢英雄帮忙！问题已解决