hash - SAS proc sql 左连接到哈希对象

Question

我是散列对象的新手，但我想了解更多有关它们的信息。我试图找到用散列对象替换 proc sql 的方法。我有两个表，当我有一个带有内部连接的 proc sql 和一个与哈希对象相等的表时，它可以工作，但是当我有一个带有左连接的 proc sql 时，我不知道如何在哈希对象中创建。非常感谢你。对不起，我的英语。

表01.

data Principal;
   input idd $ name $ Apellid1 $ valor $;
   datalines;
    1977 Arthur Pendrag 0001
    1978 Minerva  Athena 0001
    2011 Noe Arca 0001
    2014 Thor Hammer 0001
    0001 Seiya Pegaso 0001
    0002 Ikki Fenix 0001
    0003 Shun Andromeda 0001
    0004 Shiryu Dragon 0001
    0005 Yoga Cisne 0001
    0006 Naruto Konoha 0001
    0007 Sasuke Kun 0001
;

表02

data Secundarea;
   input idd $ Apellid2 $ mival $;
   datalines;
    1977 Excalibu 0003
    1978 Atenea 0004
    2011 Biblia 0005
    2014 Odin 0006
    0001 Sagigario 0007
    0002 Virgo 0008
    0003 Piscis 0009
    0004 Libra 0010
    0005 Acuario 0011
    0008 Aries 0012
;

Proc sql 内连接

proc sql;
create table sqlinner as
select *
from principal as p inner join secundarea as s
on p.idd=s.idd;
quit;

哈希对象(内连接)它有效

data mihashInner;
declare hash h();
h.defineKey('IDD');
h.defineData ('IDD','APELLID2','MIVAL');
h.defineDone();
do until(fin1);
    set SECUNDAREA  end=fin1;
    h.add();
end;
do until (fin2);
    set PRINCIPAL end=fin2;
   if h.find()=0 then
    output;
end;    
run;

Proc sql(左连接)

proc sql;
create table sqlleft as
select *
from principal as p left join secundarea as s
on p.idd=s.idd;
quit;

如何制作in hash对象？我正在尝试两种方法。

data mihashLeft2;
declare hash h();
h.defineKey('IDD');
h.defineData ('IDD','APELLID2','MIVAL');
h.defineDone();
do until(fin1);
    set SECUNDAREA  end=fin1;
    h.add();
end;
do until (fin2);
    set PRINCIPAL end=fin2;
        rc=h.find();
    output;
end;

run;

或者这个。但是什么也没有。谢谢。

data mihashLeft;
if 0 then set SECUNDAREA;
if _n_ =1 then do;
    declare hash hhh(dataset: 'SECUNDAREA', multidata:'y');
    hhh.DefineKey('IDD');
    hhh.DefineData('IDD','APELLID2','MIVAL');
    hhh.DefineDone();
   
    set PRINCIPAL;
    rc = hhh.find();
        if rc ne 0 then do;
            call missing(MIVAL);
            output;
        end;
        else
        do while(rc = 0);
            output;
            rc = hhh.find_next();
        end;
        end;
        run;

Answer 1

你可以尝试这样做:

data mihashLeft(drop=rc);
/*iterate left data set*/
set PRINCIPAL;
/*declare variables from hash set*/
length APELLID2 MIVAL $8 rc 8;
/*declare hash*/
if _n_=1 then do;
    declare hash hhh(dataset: 'SECUNDAREA', multidata:'y');
    hhh.DefineKey('IDD');
    hhh.DefineData('APELLID2','MIVAL');
    hhh.DefineDone();
end;
/*look for first row from hash set and output it even if it's not found*/
rc = hhh.find();
output;
/*loop to find other rows from the hash set*/
do while(rc=0);
    rc = hhh.find_next();
    /*output only if you found something*/
    if rc=0 then output;
end;

运行；