请参考：https://bbs.pinggu.org/forum.php? ... ;page=1#pid10007978
作适当修改

谢谢啦 谢谢啦 谢谢啦谢谢啦

data total;
  input num dic x;
  cards;
  1001 1001 1
  1002 1008 5
  1004 1005 3
  1003 1006 4
  1006 1003 2
  1005 1009 6
  ;
run;

proc sort data=total out=a(keep=num);
  by num;
run;


proc sort data=total out=b(keep=dic x rename=(dic=num));
  by dic;
run;

data c;
  merge a(in=a) b(in=b);
  by num;
  if not a and b;
run;