feat(*): recreate library as scoped package

base/mf_getkeyvalue.sas

@@ -0,0 +1,32 @@
+/**
+  @file
+  @brief retrieves a key value pair from a control dataset
+  @details By default, control dataset is work.mp_setkeyvalue.  Usage:
+
+    %mp_setkeyvalue(someindex,22,type=N)
+    %put %mf_getkeyvalue(someindex)
+
+
+  @param key Provide a key on which to perform the lookup
+  @param libds= define the target table which holds the parameters
+
+  @version 9.2
+  @author Allan Bowe
+**/
+
+%macro mf_getkeyvalue(key,libds=work.mp_setkeyvalue
+)/*/STORE SOURCE*/;
+ %local ds dsid key valc valn type rc;
+%let dsid=%sysfunc(open(&libds(where=(key="&key"))));
+%syscall set(dsid);
+%let rc = %sysfunc(fetch(&dsid));
+%let rc = %sysfunc(close(&dsid));
+
+%if &type=N %then %do;
+  &valn
+%end;
+%else %if &type=C %then %do;
+  &valc
+%end;
+%else %put %str(ERR)OR: Unable to find key &key in ds &libds;
+%mend;