求助，怎么用merge实现下面sql语句的功能

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

data test;
input x y;
cards;
1 2
1 3
1 4
2 3
2 4
2 8
3 4
;
run;

proc sql; create table test_a as select
a.x as x_a,  b.x as x_b, a.y
from test as a inner join test as b
on a.y=b.y and a.x<b.x;
quit;

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：sql语句 Merge sql inner join proc sql sql语句

1. data test;
   
2. input x y;
   
3. cards;
   
4. 1 2
   
5. 1 3
   
6. 1 4
   
7. 2 3
   
8. 2 4
   
9. 2 8
   
10. 3 4
    
11. ;
    
12. run;
    
13. 
    
14. data test_a;
    
15.     set test(rename=(x=x_a y=y_a));
    
16.     id = _n_;
    
17. run;
    
18. 
    
19. data test_b;
    
20.    do Id = 1 to nobs;
    
21.      do p = 1 to nobs;
    
22.      set test(rename=(x=x_b y=y_b))  nobs=nobs point=p;
    
23.          output;
    
24.      end;
    
25.    end; stop;
    
26. run;
    
27. 
    
28. data test_wanted;
    
29.     merge test_a test_b;
    
30.         by id;
    
31.         if x_a < x_b and y_a = y_b;
    
32.         drop id y_a;
    
33.         rename y_b = y;
    
34. run;
    
35. proc print data=test_wanted; title 'test_wanted'; run; title;

复制代码

data test;
input x y;
cards;
1 2
1 3
1 4
2 3
2 4
2 8
3 4
;
run;

data a;
set test;
rename x=x_a;
run;
data b;
set test;
rename x=x_b;
run;
proc sort data =a ;
by y;
run;
proc sort data =b;
by y;
run;
data test_a ;
merge a (in =a)  b (in =b);
by y ;
if (a =1);
if   x_a < x_b;
run;

1. data test_b;
   
2.   drop x;
   
3.   if 0 then set test;
   
4.   if _n_ = 1 then do;
   
5.     dcl hash h(dataset:'test',multidata:'y');
   
6.         h.definekey('y');
   
7.         h.definedata(all:'y');
   
8.         h.definedone();
   
9.   end;
   
10. 
    
11.   set test;
    
12.     x_a = x;
    
13.   if ~h.find() then do;
    
14.     if x_a < x then do;x_b = x;output;end;
    
15. 
    
16.     do while(~h.find_next() and x_a < x);
    
17.       x_b = x;output;
    
18.         end;
    
19.   end;
    
20. run;

复制代码

Tigflanker 发表于 2014-12-5 23:01

貌似少了一条记录，改了下，哈哈
data final(drop=x);
        if 0 then set test;
        if _n_ = 1 then do;
                        dcl hash h(dataset:'test',multidata:'y');
                        h.definekey('y');
                        h.definedata(all:'y');
                        h.definedone();
        end;

        set test;

        x_a = x;

        if ~h.find() then do;
                if x_a < x then do;
                                                        x_b = x;
                                                        output;
                                                end;

                do while(~h.find_next() );
                        x_b = x;
                        if x_a < x_b then output;
                end;
        end;
run;