feat(*): recreate library as scoped package

base/mf_getvarnum.sas

@@ -0,0 +1,54 @@
+/**
+  @file
+  @brief Returns the position of a variable in dataset (varnum attribute).
+  @details Uses varnum function to determine position.
+
+Usage:
+
+    data work.test;
+       format str $1.  num datetime19.;
+       stop;
+    run;
+    %put %mf_getVarNum(work.test,str);
+    %put %mf_getVarNum(work.test,num);
+    %put %mf_getVarNum(work.test,renegade);
+
+returns:
+
+  > 1
+
+  > 2
+
+  > NOTE: Variable renegade does not exist in test
+
+  @param libds Two part dataset (or view) reference.
+  @param var Variable name for which a position should be returned
+
+  @author Allan Bowe
+  @version 9.2
+
+**/
+
+%macro mf_getVarNum(libds /* two level ds name */
+      , var /* variable name from which to return the format */
+)/*/STORE SOURCE*/;
+  %local dsid vnum rc;
+  /* Open dataset */
+  %let dsid = %sysfunc(open(&libds));
+  %if &dsid > 0 %then %do;
+    /* Get variable number */
+    %let vnum = %sysfunc(varnum(&dsid, &var));
+    %if(&vnum <= 0) %then %do;
+       %put NOTE: Variable &var does not exist in &libds;
+       %let vnum = %str( );
+    %end;
+  %end;
+  %else %put dataset &ds not opened! (rc=&dsid);
+
+  /* Close dataset */
+  %let rc = %sysfunc(close(&dsid));
+
+  /* Return variable number */
+    &vnum.
+
+%mend;