在DADA步或SQL步中匹配2张表并做标记

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

A表	B表
A	J
D	B
K	D
J
Y
W
O
B
W
L

对于A表和B表，如果B表中的值也在A表的话，就标记为1，否则为0. 期望得到的表如下：

A	0
D	1
K	0
J	1
Y	0
W	0
O	0
B	1
W	0
L	0

要求：在DATA或SQL步中，一步完成上述操作(除了创建数据集的2个DATA步)。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Dad sql data步 Data 数据集

1. data a;
   
2. input id $;
   
3. datalines;
   
4. A
   
5. D
   
6. K
   
7. J
   
8. Y
   
9. W
   
10. O
    
11. B
    
12. W
    
13. L
    
14. ;
    
15. 
    
16. data b;
    
17. input id $;
    
18. datalines;
    
19. J
    
20. B
    
21. D
    
22. ;
    
23. 
    
24. data c (drop=rc);
    
25.   if _n_=1 then do;
    
26.      set b ;
    
27.          declare hash ht(dataset:"b") ;
    
28.            ht.definekey("id") ;
    
29.            ht.definedone();
    
30.         end;
    
31. set a;
    
32. rc= ht.find(key:id);
    
33. if (rc=0) then mark=1; else mark=0;
    
34. run;

复制代码

data a;
input id $;
datalines;
A
D
K
J
Y
W
O
B
W
L
;
run;

data b;
input id $;
datalines;
J
B
D
;
run;

proc sql noprint;
        create table work.c as
                select a.id,b.id as i
                from work.a as a left join work.b as b
                on a.id = b.id;
quit;

data work.d(drop = i);
        set work.c;
        if not missing(i) then do;
                flag = 1;
        end;else do;
                flag = 0;
        end;
run;

proc sql;
alter table aa add (x numeric);
update table aa set  x=1 where a in (select b from bb) , set x=0 where a not in (select b from bb);
quit;

楼上的程序有些问题，帮忙做个更正：

1. proc sql;
   
2. alter table aa add x numeric;
   
3. update  aa set  x=1 where ID in (select ID from bb);
   
4. update  aa set x=0 where ID not in (select ID from bb);
   
5. quit;

复制代码

thanks, good to learn.

学习学习。。。

学习学习。。。