重名对象id赋予

有一数据，是不同年份检查，比如1981年、1998年、2004年分别在同一地区检查一群人，每一年份ID号分别赋予，比如1981年的ID为X1+4为数字，1998年ID为X2+4为数字，2004年ID为X3+4为数字，其中部分对象某两年或3年份均参加，导致数据库中某些对象是重复的，现想知道某年份对象哪些年份尚参加检查，并且其对应ID是多少？数据如下：
ID            姓名  
X10001   张三
X21001   张三
X10001   李四
X20012   李四
X30052   李四

变为
ID          ID1981    ID1998      ID2004     姓名
X10001                 X21001                      张三
X21001 X10001                                      张三
X10001                 X10001    X30052     李四
X20012  X10001                    X30052    李四
X30052  X10001  X20012                      李四
如何编程？

1. data a;
   
2. input id $ name $;
   
3. cards;
   
4. X10001   张三
   
5. X21001   张三
   
6. X10001   李四
   
7. X20012   李四
   
8. X30052   李四
   
9. ;
   
10. run;
    
11. 
    
12. data b;
    
13. set a;
    
14. code=substr(id,2,1);
    
15. if code=1 then id1981=id;
    
16. else if code=2 then id1998=id;
    
17. else if code=3 then id2004=id;
    
18. run;
    
19. proc sort data=b ;
    
20. by name;
    
21. ;
    
22. data c;
    
23. set b;
    
24. informat a1-a3 $8.;
    
25. retain a1-a3;
    
26. if first.name then do;
    
27. a1="";
    
28. a2="";
    
29. a3="";
    
30. end;
    
31. if id1981^="" then a1=id1981;
    
32. if id1998^="" then a2=id1998;
    
33. if id2004^="" then a3=id2004;
    
34. keep name a1-a3;
    
35. if last.name;
    
36. by name;
    
37. run;
    
38. proc sort data=a;
    
39. by name;
    
40. ;
    
41. data d;
    
42. merge a c;
    
43. by name;
    
44. run;
    
45. data e;
    
46. set d;
    
47. if a1=id then a1="";
    
48. if a2=id then a2="";
    
49. if a3=id then a3="";
    
50. run;

复制代码

不明白你的最终目的，但还是按照你的要求写了一下，有点长，自己优化一下

data a;
input id $6. name $8.;
cards;
X10001 张三
X21001 张三
X10001 李四
X20012 李四
X30052 李四
;
run;
proc sort data=a;by name;run;
data b;
set a;
if substr(id,1,2)="X1" then  id1981=id;
else if substr(id,1,2)="X2" then  id1998=id;
  else if substr(id,1,2)="X3" then  id2004=id;
run;

chaosxiao 发表于 2012-11-2 19:48
data a;
input id $6. name $8.;
cards;

这个没有达到要求，谢谢。

data a;
input id $6. name $10.;
cards;
X10001 张三
X21001 张三
X10001 李四
X20012 李四
X30052 李四
;
run;
proc sort data=a;by name;run;
data aa;
set a;
if substr(id,1,2)="X1" then do;id1981=id;output;end;
run;
data bb;
set a;

if substr(id,1,2)="X2" then do;id1998=id;output;end;
run;
data cc;
set a;
if substr(id,1,2)="X3" then do;id2004=id;output;end;
run;
/*proc sort data=aa;by name;run;*/
/*proc sort data=bb;by name;run;*/
/*proc sort data=cc;by name;run;*/
data x;
merge aa bb cc;
by name;
run;

优化的程序如下，谢谢。

data a;
input id $ name $;
cards;
X10001   张三
X21001   张三
X10001   李四
X20012   李四
X30052   李四
X10112   王五
X30998   王五
;
run;

data b;
set a;
code=substr(id,2,1);
if code=1 then id1981=id;
else if code=2 then id1998=id;
else if code=3 then id2004=id;
run;
proc sort data=b ;
by name;
;
data c;
set b;
informat a1-a3 $8.;
retain a1-a3;
if first.name then do;
a1="";
a2="";
a3="";
end;
if id1981^="" then a1=id1981;
if id1998^="" then a2=id1998;
if id2004^="" then a3=id2004;
keep name a1-a3;
if last.name;
by name;
run;

proc sort data=a;
by name;
;
data d;
merge a c;
by name;
run;
data e;
set d;
if a1=id then a1="";
if a2=id then a2="";
if a3=id then a3="";
run;

data e; set e;
rename a1=id1981
       a2=id1998
      a3=id2004;
run;

chaosxiao 发表于 2012-11-2 22:13
data a;
input id $6. name $10.;
cards;

程序没有编完整，我补齐。

data a;
input id $6. name $10.;
cards;
X10001   张三
X21001   张三
X10001   李四
X20012   李四
X30052   李四
X10112   王五
X30998   王五
;
run;
proc sort data=a;by name;run;
data aa;
set a;
if substr(id,1,2)="X1" then do;id1981=id;output;end;
run;
data bb;
set a;

if substr(id,1,2)="X2" then do;id1998=id;output;end;
run;
data cc;
set a;
if substr(id,1,2)="X3" then do;id2004=id;output;end;
run;
/*proc sort data=aa;by name;run;*/
/*proc sort data=bb;by name;run;*/
/*proc sort data=cc;by name;run;*/
data x;
merge aa bb cc;
by name;
run;

data x; set x; drop id; run;/*必需去掉id，不如其它id号的记录会不出现*/

data z;
merge a x; by name;
run;

data z; set z;
if substr(id,2,1)=1 then id1981=" ";
else if substr(id,2,1)=2 then id1998=" ";
else if substr(id,2,1)=3 then id2004=" ";
run;

/*方法3，这方法更简单了*/

data a;
input id $6. name $10.;
cards;
X10001   张三
X21001   张三
X10001   李四
X20012   李四
X30052   李四
X31052   李四
X10112   王五
X10998   王五
;
run;

data b1; set a;
length id1981 $8.;
if substr(id,2,1)=1 then id1981=id;
keep name id1981;
if id1981=" " then delete;
run;

data b2; set a;
length id1998 $8.;
if substr(id,2,1)=2 then id1998=id;
keep name id1998;
if id1998=" " then delete;
run;

data b3; set a;
length id2004 $8.;
if substr(id,2,1)=3 then id2004=id;
keep name id2004;
if id2004=" " then delete;
run;

proc sort data=b1; by name; run;
proc sort data=b2; by name; run;
proc sort data=b3; by name; run;

data b; merge b1 b2 b3; by name; run;

proc sort data=a; by name; run;
/*关键是把所有重复姓名的ID变成是一个姓名的记录*/
data c; merge a b; by name;
run;
data c; set c;
if substr(id,2,1)=1 then id1981="";
if substr(id,2,1)=2 then id1998="";
if substr(id,2,1)=3 then id2004="";
run;

proc print data=c; run;