data test;
input a b;
datalines;
1 2
. 5
. 4
2 .
3 4
. 8
;
proc transpose data=test out=a;
var _all_;
run;
proc sql noprint;
select distinct _name_ into :dropvar separated by " "
from a
where nmiss(col1,col2,col3,col4,col5,col6)=3;
quit;
data result;
set test;
drop &dropvar;
run;