哈希表 where 语句

Question

我正在尝试将哈希对象用作类似 sql 查询的东西。

我想知道的是相当于 SAS 哈希对象的条件 if 语句。

我想要一个基于有效日期过滤的第二个哈希对象的条件语句。

类似

If effective_date<"27.05.1966"'d then output.

rc=h.find() 根据是否找到返回 0/1，但是如何将 if 语句或 where 语句添加到哈希对象？

我在想类似的事情

if rc=0 and effective_date<"27.05.1966"'d then do;
set want;
hoh.add();
output;
end;

但我认为哈希表不会知道 Effective_date 是以这种方式被引用的。

我要翻译的原始 proc sql 语句：

proc sql;
    create table tb2 as
        select distinct
            a.effective_date,
            a.S_FACILITY_CUSTOMER_ID as customer_id,
            a.s_facility_id as facility_id,
            a.s_facility_type as facility_type,
            a.CUSTOMER_ASSET_CLASS_ID,
            a.FACILITY_START_DATE,
            a.FACILITY_end_DATE,
            sum
            (
        case 
            when midas_type_id in ("KC", "KR", "KO","KF") then sum(a.loan_prinicpal_local,a.loan_interest_unpaid_local)
            else 0 
        end
                )
            as arrear_amount,

sum(a.LOAN_PRINICPAL_LOCAL) as amount_local
            from tbexport.tb_export_full_all a
                where a.effective_date between "&repdate_from"dt and "&repdate_to"dt

                    AND BUSINESS_SEGMENT NOT IN ("MCR", "SE", "COR")
                group by s_facility_id, effective_date;
quit;

这是我想出的：

data _NULL_;

if 0 then set tbexport.tb_export_full_all;

   dcl hash HoH(ordered : 'D');                                                    
   HoH.definekey('s_facility_id','effective_date');
   HoH.definedata('effective_date', 'S_FACILITY_CUSTOMER_ID', 's_facility_type','s_facility_id','CUSTOMER_ASSET_CLASS_ID',
'FACILITY_START_DATE','FACILITY_end_DATE','midas_type_id','BUSINESS_SEGMENT','loan_prinicpal_local','loan_interest_unpaid_local');
   HoH.definedone();
   dcl hiter HoHiter('HoH');

  do until (lr);
      set tbexport.tb_export_full_all end=lr;
        where '&repdate_from.'dt<=effective_date<='&repdate_to.'dt;
        if HoH.find() ne 0 then do;  
 
         dcl hash h(multidata : 'Y', ordered : 'D');
         h.definekey('effective_date','s_facility_id');
         h.definedata('effective_date', 'S_FACILITY_CUSTOMER_ID', 's_facility_type','s_facility_id','CUSTOMER_ASSET_CLASS_ID',
'FACILITY_START_DATE','FACILITY_end_DATE','midas_type_id','BUSINESS_SEGMENT','loan_prinicpal_local','loan_interest_unpaid_local');
         h.definedone();
         dcl hiter hi('h');
         HoH.add();

        end;    
      h.add();
   end;

   do until(HoHiter.next() = 1);  
        set tbexport.tb_export_full_all; 
        if hoh.find()=0 and midas_type_id in ("KC" , "KR" , "KO" , "KF") then do;    
        arrear_amount= sum(loan_prinicpal_local,loan_interest_unpaid_local);
        end;
      hoh.output(dataset:'tb2',ordered:'A');
   end;

run;

但它给了我这个错误：

错误：遇到异常。 请联系技术支持并向他们提供以下追溯信息：

SAS 任务名称是 [DATASTEP] 分割违规

Answer 1

这应该可以在没有哈希值的情况下实现。这大致复制了您正在做的事情 - 通过几个变量创建摘要。我认为在这一点上添加逻辑非常简单 - 它可能是where 语句。只需确保将其添加到两个数据集读取（可能最好作为where 数据集选项，也许？）。

data want;
  if 0 then set sashelp.prdsale;
  
  if _n_ eq 1 then do;
    declare hash h();
    h.defineKey('country','region');
    h.defineData('actual_sum','predict_sum');
    h.defineDone();    
      do _n_ = 1 to prdsale_recs;
        set sashelp.prdsale nobs=prdsale_recs point=_n_;
        rc = h.find();
        actual_sum = sum(actual_sum,actual);
        predict_sum = sum(predict_sum,predict);
        rc = h.replace();       
      end;
  end;  
  set sashelp.prdsale;

  rc = h.find();
run;