根据已有数据集更新另一个数据集

1. data aaa;
   
2. input id line x1$;
   
3. cards;
   
4. 1 1 b
   
5. 1 2 a
   
6. 1 3 c
   
7. 1 4 d
   
8. 2 5 b
   
9. 2 6 a
   
10. 2 7 c
    
11. ;
    
12. run;
    
13. 
    
14. data bbb;
    
15. input line x1$;
    
16. cards;
    
17. 1 b
    
18. 2 a
    
19. 3 c
    
20. 4 d
    
21. run;

复制代码

得到的数据集为
1 1 b
1 2 a
1 3 c
1 4 d
2 1 b
2 2 a
2 3 c

如何实现，x1 的取值比较多，希望程序能通用，谢谢！

proc sort data=aaa;
by x1;
run;

proc sort data=bbb;
by x1;
run;

data wanted;
merge aaa bbb(rename=(line=line1));
  by x1;
  line=line1;
  drop line1;
run;

proc sort data=wanted;
by id line x1;
run;

data fmt;
set bbb;
retain fmtname '$x1fmt';
type='c';
rename x1=start line=label;
run;

proc format cntlin=fmt;
run;

data wanted;
set aaa;
line=put(x1,$x1fmt.)+0;
run;

wwang111 发表于 2016-8-28 20:06
data fmt;
set bbb;
retain fmtname '$x1fmt';

不希望用format