@sasjs/utils 2.49.0 → 2.49.2

package/fs/internal/helper.js

@@ -52,8 +52,7 @@ var __importDefault = (this && this.__importDefault) || function (mod) {
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.getCompiledMacrosCode = exports.getInitialCode = exports.chunkFileContent = exports.generateCodeForFileCreation = void 0;
 var path_1 = __importDefault(require("path"));
-var getNodeModulePath_1 = require("../../utils/getNodeModulePath");
-var chunk_1 = require("../../utils/chunk");
+var utils_1 = require("../../utils");
 var file_1 = require("../../file");
 var generateCodeForFileCreation = function (filePath, pathRelativeTo) { return __awaiter(void 0, void 0, void 0, function () {
     var base64EncodedFileContent, chunkedFileContent;
@@ -69,7 +68,7 @@ var generateCodeForFileCreation = function (filePath, pathRelativeTo) { return _
 }); };
 exports.generateCodeForFileCreation = generateCodeForFileCreation;
 var chunkFileContent = function (fileContent) {
-    var chunkedLines = (0, chunk_1.chunk)(fileContent);
+    var chunkedLines = (0, utils_1.chunk)(fileContent);
     if (chunkedLines.length === 1) {
         return " put '".concat(chunkedLines[0].split("'").join("''"), "';\n");
     }
@@ -84,45 +83,41 @@ exports.chunkFileContent = chunkFileContent;
 var getInitialCode = function () { return "%global fsTarget;\n%let compiled_fsTarget=%sysfunc(pathname(work));\n%let fsTarget=%sysfunc(coalescec(&fsTarget,&compiled_fsTarget));\noptions nobomfile;\n\n%mf_mkdir(&fsTarget)\n"; };
 exports.getInitialCode = getInitialCode;
 var getCompiledMacrosCode = function (macros) { return __awaiter(void 0, void 0, void 0, function () {
-    var sasjsCorePath, compiledCode, macros_1, macros_1_1, macro, macroPath, macroContent, e_1_1;
+    var compiledCode, macros_1, macros_1_1, macro, macroPath, macroContent, e_1_1;
     var e_1, _a;
     return __generator(this, function (_b) {
         switch (_b.label) {
-            case 0: return [4 /*yield*/, (0, getNodeModulePath_1.getNodeModulePath)('@sasjs/core')];
-            case 1:
-                sasjsCorePath = _b.sent();
-                if (!sasjsCorePath)
-                    throw new Error('@sasjs/core could not be found');
+            case 0:
                 compiledCode = '';
+                _b.label = 1;
+            case 1:
+                _b.trys.push([1, 6, 7, 8]);
+                macros_1 = __values(macros), macros_1_1 = macros_1.next();
                 _b.label = 2;
             case 2:
-                _b.trys.push([2, 7, 8, 9]);
-                macros_1 = __values(macros), macros_1_1 = macros_1.next();
-                _b.label = 3;
-            case 3:
-                if (!!macros_1_1.done) return [3 /*break*/, 6];
+                if (!!macros_1_1.done) return [3 /*break*/, 5];
                 macro = macros_1_1.value;
-                macroPath = path_1.default.join(sasjsCorePath, 'base', macro);
+                macroPath = path_1.default.join((0, utils_1.getMacrosPath)(), macro);
                 return [4 /*yield*/, (0, file_1.readFile)(macroPath)];
-            case 4:
+            case 3:
                 macroContent = _b.sent();
                 compiledCode += macroContent + '\n';
-                _b.label = 5;
-            case 5:
+                _b.label = 4;
+            case 4:
                 macros_1_1 = macros_1.next();
-                return [3 /*break*/, 3];
-            case 6: return [3 /*break*/, 9];
-            case 7:
+                return [3 /*break*/, 2];
+            case 5: return [3 /*break*/, 8];
+            case 6:
                 e_1_1 = _b.sent();
                 e_1 = { error: e_1_1 };
-                return [3 /*break*/, 9];
-            case 8:
+                return [3 /*break*/, 8];
+            case 7:
                 try {
                     if (macros_1_1 && !macros_1_1.done && (_a = macros_1.return)) _a.call(macros_1);
                 }
                 finally { if (e_1) throw e_1.error; }
                 return [7 /*endfinally*/];
-            case 9: return [2 /*return*/, compiledCode];
+            case 8: return [2 /*return*/, compiledCode];
         }
     });
 }); };

package/fs/internal/helper.js.map

@@ -1 +1 @@
-{"version":3,"file":"helper.js","sourceRoot":"","sources":["../../../src/fs/internal/helper.ts"],"names":[],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAAA,8CAAuB;AACvB,mEAAiE;AACjE,2CAAyC;AACzC,mCAAuD;AAEhD,IAAM,2BAA2B,GAAG,UACzC,QAAgB,EAChB,cAAsB;;;;oBAEW,qBAAM,IAAA,uBAAgB,EAAC,QAAQ,CAAC,EAAA;;gBAA3D,wBAAwB,GAAG,SAAgC;gBAC3D,kBAAkB,GAAG,IAAA,wBAAgB,EAAC,wBAAwB,CAAC,CAAA;gBACrE,sBAAO,4EAIP,kBAAkB,kDAGQ,QAAQ,CAAC,OAAO,CAAC,cAAc,EAAE,EAAE,CAAC,4dAuB/D,EAAA;;;KACA,CAAA;AArCY,QAAA,2BAA2B,+BAqCvC;AAEM,IAAM,gBAAgB,GAAG,UAAC,WAAmB;IAClD,IAAM,YAAY,GAAG,IAAA,aAAK,EAAC,WAAW,CAAC,CAAA;IAEvC,IAAI,YAAY,CAAC,MAAM,KAAK,CAAC,EAAE;QAC7B,OAAO,gBAAS,YAAY,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,SAAM,CAAA;KAC5D;IAED,IAAI,aAAa,GAAG,EAAE,CAAA;IAEtB,YAAY,CAAC,OAAO,CAAC,UAAC,WAAW,EAAE,KAAK;QACtC,IAAM,IAAI,GAAG,gBAAS,WAAW,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,cACrD,KAAK,KAAK,YAAY,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,CAClD,CAAA;QAEF,aAAa,IAAI,IAAI,CAAA;IACvB,CAAC,CAAC,CAAA;IAEF,OAAO,aAAa,CAAA;AACtB,CAAC,CAAA;AAlBY,QAAA,gBAAgB,oBAkB5B;AAEM,IAAM,cAAc,GAAG,cAAM,OAAA,qLAMnC,EANmC,CAMnC,CAAA;AANY,QAAA,cAAc,kBAM1B;AAEM,IAAM,qBAAqB,GAAG,UAAO,MAAgB;;;;;oBACpC,qBAAM,IAAA,qCAAiB,EAAC,aAAa,CAAC,EAAA;;gBAAtD,aAAa,GAAG,SAAsC;gBAC5D,IAAI,CAAC,aAAa;oBAAE,MAAM,IAAI,KAAK,CAAC,gCAAgC,CAAC,CAAA;gBAEjE,YAAY,GAAG,EAAE,CAAA;;;;gBAED,WAAA,SAAA,MAAM,CAAA;;;;gBAAf,KAAK;gBACR,SAAS,GAAG,cAAI,CAAC,IAAI,CAAC,aAAa,EAAE,MAAM,EAAE,KAAK,CAAC,CAAA;gBACpC,qBAAM,IAAA,eAAQ,EAAC,SAAS,CAAC,EAAA;;gBAAxC,YAAY,GAAG,SAAyB;gBAE9C,YAAY,IAAI,YAAY,GAAG,IAAI,CAAA;;;;;;;;;;;;;;;;oBAGrC,sBAAO,YAAY,EAAA;;;KACpB,CAAA;AAdY,QAAA,qBAAqB,yBAcjC"}
+{"version":3,"file":"helper.js","sourceRoot":"","sources":["../../../src/fs/internal/helper.ts"],"names":[],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;AAAA,8CAAuB;AACvB,qCAAkD;AAClD,mCAAuD;AAEhD,IAAM,2BAA2B,GAAG,UACzC,QAAgB,EAChB,cAAsB;;;;oBAEW,qBAAM,IAAA,uBAAgB,EAAC,QAAQ,CAAC,EAAA;;gBAA3D,wBAAwB,GAAG,SAAgC;gBAC3D,kBAAkB,GAAG,IAAA,wBAAgB,EAAC,wBAAwB,CAAC,CAAA;gBACrE,sBAAO,4EAIP,kBAAkB,kDAGQ,QAAQ,CAAC,OAAO,CAAC,cAAc,EAAE,EAAE,CAAC,4dAuB/D,EAAA;;;KACA,CAAA;AArCY,QAAA,2BAA2B,+BAqCvC;AAEM,IAAM,gBAAgB,GAAG,UAAC,WAAmB;IAClD,IAAM,YAAY,GAAG,IAAA,aAAK,EAAC,WAAW,CAAC,CAAA;IAEvC,IAAI,YAAY,CAAC,MAAM,KAAK,CAAC,EAAE;QAC7B,OAAO,gBAAS,YAAY,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,SAAM,CAAA;KAC5D;IAED,IAAI,aAAa,GAAG,EAAE,CAAA;IAEtB,YAAY,CAAC,OAAO,CAAC,UAAC,WAAW,EAAE,KAAK;QACtC,IAAM,IAAI,GAAG,gBAAS,WAAW,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,cACrD,KAAK,KAAK,YAAY,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,CAClD,CAAA;QAEF,aAAa,IAAI,IAAI,CAAA;IACvB,CAAC,CAAC,CAAA;IAEF,OAAO,aAAa,CAAA;AACtB,CAAC,CAAA;AAlBY,QAAA,gBAAgB,oBAkB5B;AAEM,IAAM,cAAc,GAAG,cAAM,OAAA,qLAMnC,EANmC,CAMnC,CAAA;AANY,QAAA,cAAc,kBAM1B;AAEM,IAAM,qBAAqB,GAAG,UAAO,MAAgB;;;;;;gBACtD,YAAY,GAAG,EAAE,CAAA;;;;gBAED,WAAA,SAAA,MAAM,CAAA;;;;gBAAf,KAAK;gBACR,SAAS,GAAG,cAAI,CAAC,IAAI,CAAC,IAAA,qBAAa,GAAE,EAAE,KAAK,CAAC,CAAA;gBAC9B,qBAAM,IAAA,eAAQ,EAAC,SAAS,CAAC,EAAA;;gBAAxC,YAAY,GAAG,SAAyB;gBAE9C,YAAY,IAAI,YAAY,GAAG,IAAI,CAAA;;;;;;;;;;;;;;;;oBAGrC,sBAAO,YAAY,EAAA;;;KACpB,CAAA;AAXY,QAAA,qBAAqB,yBAWjC"}

package/macros/mf_abort.sas

@@ -0,0 +1,27 @@
+/**
+  @file
+  @brief Abort, ungracefully
+  @details Will abort with a straightforward %abort if the condition is true.
+
+  <h4> Related Macros </h4>
+  @li mp_abort.sas
+
+  @version 9.2
+  @author Allan Bowe
+  @cond
+**/
+
+%macro mf_abort(mac=mf_abort.sas, msg=, iftrue=%str(1=1)
+)/*/STORE SOURCE*/;
+
+  %if not(%eval(%unquote(&iftrue))) %then %return;
+
+  %put NOTE: ///  mf_abort macro executing //;
+  %if %length(&mac)>0 %then %put NOTE- called by &mac;
+  %put NOTE - &msg;
+
+  %abort;
+
+%mend mf_abort;
+
+/** @endcond */

package/macros/mf_dedup.sas

@@ -0,0 +1,53 @@
+/**
+  @file
+  @brief de-duplicates a macro string
+  @details Removes all duplicates from a string of words.  A delimeter can be
+  chosen.  Is inspired heavily by this excellent [macro](
+  https://github.com/scottbass/SAS/blob/master/Macro/dedup_mstring.sas) from
+  [Scott Base](https://www.linkedin.com/in/scottbass).  Case sensitive.
+
+  Usage:
+
+      %let str=One two one two and through and through;
+      %put %mf_dedup(&str);
+      %put %mf_dedup(&str,outdlm=%str(,));
+
+  Which returns:
+
+      > One two one and through
+      > One,two,one,and,through
+
+  @param [in] str String to be deduplicated
+  @param [in] indlm= ( ) Delimeter of the input string
+  @param [out] outdlm= ( ) Delimiter of the output string
+
+  <h4> Related Macros </h4>
+  @li mf_trimstr.sas
+
+  @version 9.2
+  @author Allan Bowe
+**/
+
+%macro mf_dedup(str
+  ,indlm=%str( )
+  ,outdlm=%str( )
+)/*/STORE SOURCE*/;
+
+%local num word i pos out;
+
+%* loop over each token, searching the target for that token ;
+%let num=%sysfunc(countc(%superq(str),%str(&indlm)));
+%do i=1 %to %eval(&num+1);
+  %let word=%scan(%superq(str),&i,%str(&indlm));
+  %let pos=%sysfunc(indexw(&out,&word,%str(&outdlm)));
+  %if (&pos eq 0) %then %do;
+    %if (&i gt 1) %then %let out=&out%str(&outdlm);
+    %let out=&out&word;
+  %end;
+%end;
+
+%unquote(&out)
+
+%mend mf_dedup;
+
+

package/macros/mf_deletefile.sas

@@ -0,0 +1,31 @@
+/**
+  @file
+  @brief Deletes a physical file, if it exists
+  @details Usage:
+
+      %mf_writefile(&sasjswork/myfile.txt,l1=some content)
+
+      %mf_deletefile(&sasjswork/myfile.txt)
+
+      %mf_deletefile(&sasjswork/myfile.txt)
+
+
+  @param filepath Full path to the target file
+
+  @returns The return code from the fdelete() invocation
+
+  <h4> Related Macros </h4>
+  @li mf_deletefile.test.sas
+  @li mf_writefile.sas
+
+  @version 9.2
+  @author Allan Bowe
+**/
+
+%macro mf_deletefile(file
+)/*/STORE SOURCE*/;
+  %local rc fref;
+  %let rc= %sysfunc(filename(fref,&file));
+  %if %sysfunc(fdelete(&fref)) ne 0 %then %put %sysfunc(sysmsg());
+  %let rc= %sysfunc(filename(fref));
+%mend mf_deletefile;

package/macros/mf_existds.sas

@@ -0,0 +1,30 @@
+/**
+  @file mf_existds.sas
+  @brief Checks whether a dataset OR a view exists.
+  @details Can be used in open code, eg as follows:
+
+      %if %mf_existds(libds=work.someview) %then %put  yes it does!;
+
+  NOTE - some databases have case sensitive tables, for instance POSTGRES
+    with the preserve_tab_names=yes libname setting.  This may impact
+    expected results (depending on whether you 'expect' the result to be
+    case insensitive in this context!)
+
+  @param libds library.dataset
+  @return output returns 1 or 0
+
+  <h4> Related Macros </h4>
+  @li mf_existds.test.sas
+
+  @warning Untested on tables registered in metadata but not physically present
+  @version 9.2
+  @author Allan Bowe
+**/
+
+%macro mf_existds(libds
+)/*/STORE SOURCE*/;
+
+  %if %sysfunc(exist(&libds)) ne 1 & %sysfunc(exist(&libds,VIEW)) ne 1 %then 0;
+  %else 1;
+
+%mend mf_existds;

package/macros/mf_existfeature.sas

@@ -0,0 +1,59 @@
+/**
+  @file
+  @brief Checks whether a feature exists
+  @details Check to see if a feature is supported in your environment.
+    Run without arguments to see a list of detectable features.
+    Note - this list is based on known versions of SAS rather than
+    actual feature detection, as that is tricky / impossible to do
+    without generating errs in most cases.
+
+        %put %mf_existfeature(PROCLUA);
+
+  @param [in] feature The feature to detect.
+
+  @return output returns 1 or 0 (or -1 if not found)
+
+  <h4> SAS Macros </h4>
+  @li mf_getplatform.sas
+
+  @version 8
+  @author Allan Bowe
+**/
+/** @cond */
+%macro mf_existfeature(feature
+)/*/STORE SOURCE*/;
+  %let feature=%upcase(&feature);
+  %local platform;
+  %let platform=%mf_getplatform();
+
+  %if &feature= %then %do;
+    %put No feature was requested for detection;
+  %end;
+  %else %if &feature=COLCONSTRAINTS %then %do;
+    %if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 0;
+    %else 1;
+  %end;
+  %else %if &feature=PROCLUA %then %do;
+    /* https://blogs.sas.com/content/sasdummy/2015/08/03/using-lua-within-your-sas-programs */
+    %if &platform=SASVIYA %then 1;
+    %else %if "&sysver"="9.2" or "&sysver"="9.3" %then 0;
+    %else %if "&SYSVLONG" < "9.04.01M3" %then 0;
+    %else 1;
+  %end;
+  %else %if &feature=DBMS_MEMTYPE %then %do;
+    /* does dbms_memtype exist in dictionary.tables? */
+    %if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 0;
+    %else 1;
+  %end;
+  %else %if &feature=EXPORTXLS %then %do;
+    /* is it possible to PROC EXPORT an excel file? */
+    %if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 1;
+    %else %if %sysfunc(sysprod(SAS/ACCESS Interface to PC Files)) = 1 %then 1;
+    %else 0;
+  %end;
+  %else %do;
+    -1
+    %put &sysmacroname: &feature not found;
+  %end;
+%mend mf_existfeature;
+/** @endcond */

package/macros/mf_existfileref.sas

@@ -0,0 +1,33 @@
+/**
+  @file
+  @brief Checks whether a fileref exists
+  @details You can probably do without this macro as it is just a one liner.
+  Mainly it is here as a convenient way to remember the syntax!
+
+  @param fref the fileref to detect
+
+  @return output Returns 1 if found and 0 if not found.  Note - it is possible
+  that the fileref is found, but the file does not (yet) exist. If you need
+  to test for this, you may as well use the fileref function directly.
+
+  @version 8
+  @author [Allan Bowe](https://www.linkedin.com/in/allanbowe/)
+**/
+
+%macro mf_existfileref(fref
+)/*/STORE SOURCE*/;
+
+  %local rc;
+  %let rc=%sysfunc(fileref(&fref));
+  %if &rc=0 %then %do;
+    1
+  %end;
+  %else %if &rc<0 %then %do;
+    %put &sysmacroname: Fileref &fref exists but the underlying file does not;
+    1
+  %end;
+  %else %do;
+    0
+  %end;
+
+%mend mf_existfileref;

package/macros/mf_existfunction.sas

@@ -0,0 +1,37 @@
+/**
+  @file
+  @brief Checks if a function exists
+  @details Returns 1 if the function exists, else 0.  Note that this function
+  can be slow as it needs to open the sashelp.vfuncs table.
+
+  Usage:
+
+      %put %mf_existfunction(CAT);
+      %put %mf_existfunction(DOG);
+
+  Full credit to [Bart](https://sasensei.com/user/305) for the vfunc pointer
+  and the tidy approach for pure macro data set filtering.
+  Check out his [SAS Packages](https://github.com/yabwon/SAS_PACKAGES)
+  framework!  Where you can find the same [function](
+https://github.com/yabwon/SAS_PACKAGES/blob/main/packages/baseplus.md#functionexists-macro
+  ).
+
+  @param [in] name (positional) - function name
+
+  @author Allan Bowe
+**/
+/** @cond */
+%macro mf_existfunction(name
+)/*/STORE SOURCE*/;
+
+  %local dsid rc exist;
+  %let dsid=%sysfunc(open(sashelp.vfunc(where=(fncname="%upcase(&name)"))));
+  %let exist=1;
+  %let exist=%sysfunc(fetch(&dsid, NOSET));
+  %let rc=%sysfunc(close(&dsid));
+
+  %sysevalf(0 = &exist)
+
+%mend mf_existfunction;
+
+/** @endcond */

package/macros/mf_existvar.sas

@@ -0,0 +1,39 @@
+/**
+  @file
+  @brief Checks if a variable exists in a data set.
+  @details Returns 0 if the variable does NOT exist, and the position of the var
+  if it does.
+  Usage:
+
+      %put %mf_existvar(work.someds, somevar)
+
+  @param [in] libds 2 part dataset or view reference
+  @param [in] var variable name
+
+  <h4> Related Macros </h4>
+  @li mf_existvar.test.sas
+
+  @version 9.2
+  @author Allan Bowe
+**/
+/** @cond */
+
+%macro mf_existvar(libds /* 2 part dataset name */
+      , var /* variable name */
+)/*/STORE SOURCE*/;
+
+  %local dsid rc;
+  %let dsid=%sysfunc(open(&libds,is));
+
+  %if &dsid=0 or %length(&var)=0 %then %do;
+    %put %sysfunc(sysmsg());
+      0
+  %end;
+  %else %do;
+      %sysfunc(varnum(&dsid,&var))
+      %let rc=%sysfunc(close(&dsid));
+  %end;
+
+%mend mf_existvar;
+
+/** @endcond */

package/macros/mf_existvarlist.sas

@@ -0,0 +1,56 @@
+/**
+  @file
+  @brief Checks if a set of variables ALL exist in a data set.
+  @details Returns 0 if ANY of the variables do not exist, or 1 if they ALL do.
+  Usage:
+
+      %put %mf_existVarList(sashelp.class, age sex name dummyvar);
+
+  @param libds 2 part dataset or view reference
+  @param varlist space separated variable names
+
+  @version 9.2
+  @author Allan Bowe
+  @cond
+**/
+
+%macro mf_existvarlist(libds, varlist
+)/*/STORE SOURCE*/;
+
+  %if %str(&libds)=%str() or %str(&varlist)=%str() %then %do;
+    %mf_abort(msg=No value provided to libds(&libds) or varlist (&varlist)!
+      ,mac=mf_existvarlist.sas)
+  %end;
+
+  %local dsid rc i var found;
+  %let dsid=%sysfunc(open(&libds,is));
+
+  %if &dsid=0 %then %do;
+    %put %str(WARN)ING:  unable to open &libds in mf_existvarlist (&dsid);
+  %end;
+
+  %if %sysfunc(attrn(&dsid,NVARS))=0 %then %do;
+    %put MF_EXISTVARLIST:  No variables in &libds ;
+    0
+    %return;
+  %end;
+
+  %else %do i=1 %to %sysfunc(countw(&varlist));
+    %let var=%scan(&varlist,&i);
+
+    %if %sysfunc(varnum(&dsid,&var))=0  %then %do;
+      %let found=&found &var;
+    %end;
+  %end;
+
+  %let rc=%sysfunc(close(&dsid));
+  %if %str(&found)=%str() %then %do;
+    1
+  %end;
+  %else %do;
+    0
+    %put Vars not found: &found;
+  %end;
+%mend mf_existvarlist;
+
+/** @endcond */

package/macros/mf_fmtdttm.sas

@@ -0,0 +1,42 @@
+/**
+  @file
+  @brief Returns E8601DT26.6 if compatible else DATETIME19.3
+  @details From our experience in [Data Controller for SAS]
+  (https://datacontroller.io) deployments, the E8601DT26.6 datetime format has
+  the widest support when it comes to pass-through SQL queries.
+
+  However, it is not supported in WPS or early versions of SAS 9 (M3 and below)
+  when used as a datetime literal, eg:
+
+      data _null_;
+        demo="%sysfunc(datetime(),E8601DT26.6)"dt;
+        demo=;
+      run;
+
+  This macro will therefore return DATEITME19.3 as an alternative format
+  based on the runtime environment so that it can be used in such cases, eg:
+
+      data _null_;
+        demo="%sysfunc(datetime(),%mf_fmtdttm())"dt;
+        demo=;
+      run;
+
+  <h4> Related Macros </h4>
+  @li mf_fmtdttm.test.sas
+
+  @author Allan Bowe
+**/
+
+%macro mf_fmtdttm(
+)/*/STORE SOURCE*/;
+
+%if "&sysver"="9.2" or "&sysver"="9.3"
+  or ("&sysver"="9.4" and "%substr(&SYSVLONG,9,1)" le "3")
+  or "%substr(&sysver,1,1)"="4"
+  or "%substr(&sysver,1,1)"="5"
+%then %do;DATETIME19.3%end;
+%else %do;E8601DT26.6%end;
+
+%mend mf_fmtdttm;
+
+

package/macros/mf_getapploc.sas

@@ -0,0 +1,78 @@
+/**
+  @file
+  @brief Returns the appLoc from the _program variable
+  @details When working with SASjs apps, web services / tests / jobs are always
+  deployed to a root (app) location in the SAS logical folder tree.
+
+  When building apps for use in other environments, you do not necessarily know
+  where the backend services will be deployed.  Therefore a function like this
+  is handy in order to dynamically figure out the appLoc, and enable other
+  services to be connected by a relative reference.
+
+  SASjs apps always have the same immediate substructure (one or more of the
+  following):
+
+  @li /data
+  @li /jobs
+  @li /services
+  @li /tests
+  @li /tests/jobs
+  @li /tests/services
+  @li /tests/macros
+
+  This function works by testing for the existence of any of the above in the
+  automatic _program variable, and returning the part to the left of it.
+
+  Usage:
+
+      %put %mf_getapploc(&_program)
+
+      %put %mf_getapploc(/some/location/services/admin/myservice);
+      %put %mf_getapploc(/some/location/jobs/extract/somejob/);
+      %put %mf_getapploc(/some/location/tests/jobs/somejob/);
+
+
+  @author Allan Bowe
+**/
+
+%macro mf_getapploc(pgm);
+%if "&pgm"="" %then %do;
+  %if %symexist(_program) %then %let pgm=&_program;
+  %else %do;
+    %put &sysmacroname: No value provided and no _program variable available;
+    %return;
+  %end;
+%end;
+%local root;
+
+/**
+  * First check we are not in the tests/macros folder (which has no subfolders)
+  * or specifically in the testsetup or testteardown services
+  */
+%if %index(&pgm,/tests/macros/)
+or %index(&pgm,/tests/testsetup)
+or %index(&pgm,/tests/testteardown)
+%then %do;
+  %let root=%substr(&pgm,1,%index(&pgm,/tests)-1);
+  &root
+  %return;
+%end;
+
+/**
+  * Next, move up two levels to avoid matches on subfolder or service name
+  */
+%let root=%substr(&pgm,1,%length(&pgm)-%length(%scan(&pgm,-1,/))-1);
+%let root=%substr(&root,1,%length(&root)-%length(%scan(&root,-1,/))-1);
+
+%if %index(&root,/tests/) %then %do;
+  %let root=%substr(&root,1,%index(&root,/tests/)-1);
+%end;
+%else %if %index(&root,/services) %then %do;
+  %let root=%substr(&root,1,%index(&root,/services)-1);
+%end;
+%else %if %index(&root,/jobs) %then %do;
+  %let root=%substr(&root,1,%index(&root,/jobs)-1);
+%end;
+%else %put &sysmacroname: Could not find an app location from &pgm;
+  &root
+%mend mf_getapploc ;

package/macros/mf_getattrc.sas

@@ -0,0 +1,34 @@
+/**
+  @file
+  @brief Returns a character attribute of a dataset.
+  @details Can be used in open code, eg as follows:
+
+      %put Dataset label = %mf_getattrc(sashelp.class,LABEL);
+      %put Member Type = %mf_getattrc(sashelp.class,MTYPE);
+
+  @param libds library.dataset
+  @param attr full list in [documentation](
+    https://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a000147794.htm)
+  @return output returns result of the attrc value supplied, or -1 and log
+    message if err.
+
+  @version 9.2
+  @author Allan Bowe
+**/
+
+%macro mf_getattrc(
+    libds
+    ,attr
+)/*/STORE SOURCE*/;
+  %local dsid rc;
+  %let dsid=%sysfunc(open(&libds,is));
+  %if &dsid = 0 %then %do;
+    %put %str(WARN)ING: Cannot open %trim(&libds), system message below;
+    %put %sysfunc(sysmsg());
+    -1
+  %end;
+  %else %do;
+    %sysfunc(attrc(&dsid,&attr))
+    %let rc=%sysfunc(close(&dsid));
+  %end;
+%mend mf_getattrc;

package/macros/mf_getattrn.sas

@@ -0,0 +1,34 @@
+/**
+  @file
+  @brief Returns a numeric attribute of a dataset.
+  @details Can be used in open code, eg as follows:
+
+      %put Number of observations=%mf_getattrn(sashelp.class,NLOBS);
+      %put Number of variables = %mf_getattrn(sashelp.class,NVARS);
+
+  @param libds library.dataset
+  @param attr Common values are NLOBS and NVARS, full list in [documentation](
+  http://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a000212040.htm)
+  @return output returns result of the attrn value supplied, or -1 and log
+    message if err.
+
+  @version 9.2
+  @author Allan Bowe
+**/
+
+%macro mf_getattrn(
+    libds
+    ,attr
+)/*/STORE SOURCE*/;
+  %local dsid rc;
+  %let dsid=%sysfunc(open(&libds,is));
+  %if &dsid = 0 %then %do;
+    %put %str(WARN)ING: Cannot open %trim(&libds), system message below;
+    %put %sysfunc(sysmsg());
+    -1
+  %end;
+  %else %do;
+    %sysfunc(attrn(&dsid,&attr))
+    %let rc=%sysfunc(close(&dsid));
+  %end;
+%mend mf_getattrn;