18%macro mf_getkeyvalue(key,libds=work.mp_setkeyvalue
20%local ds dsid key valc valn type rc;
21%let dsid=%sysfunc(open(&libds(where=(key=
"&key"))));
23%let rc = %sysfunc(fetch(&dsid));
24%let rc = %sysfunc(close(&dsid));
29%
else %
if &type=C %then %
do;
32%
else %put %str(ERR)OR: Unable to find key &key in ds &libds;