7%macro irm_build_hash_lookup(
16 %
if %eval(%qupcase(&multidata) in YES NO) eq 0 %then
19 %let num_key_vars = %sysfunc(countw(&key_vars));
20 %let num_data_vars = %sysfunc(countw(&data_vars));
21 declare hash &hash_name(dataset:
"&hash_table", multidata:
"&multidata");
22 &hash_name..definekey(
23 %
do h = 1 %to &num_key_vars;
24 %let key = %scan(&key_vars,&h,%str( ));
25 %
if &h ne 1 %then %
do; , %end;
28 &hash_name..definedata(
29 %
if %upcase(&data_vars) eq ALL %then %
do;
32 %
else %
do h = 1 %to &num_data_vars;
33 %let data = %scan(&data_vars,&h,%str( ));
34 %
if &h ne 1 %then %
do; , %end;
37 &hash_name..definedone();
39%mend irm_build_hash_lookup;