SASPAC/SAS_PACKAGES
1
0
Fork 0
mirror of https://github.com/yabwon/SAS_PACKAGES.git synced 2026-07-23 23:05:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

SAS Packages Framework, version 20260723

Browse Source 
SAS Packages Framework, version `20260723`

Changes:

- Bugfix in the %isPackagesFilerefOK() macro.
- New functionality added to the %SasPackagesFrameworkNotes() macro.
- Minor code cleaning.
This commit is contained in:
Bart Jablonski
2026-07-23 15:37:54 +02:00
parent 914ad08157
commit 923dfbc369
26 changed files with 231 additions and 169 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SPF/Macros/ispackagesfilerefok.sas
+13 -8
View File
@@ -43,7 +43,7 @@
- to unload, or
- to generate SAS packages.
SAS Packages Framework, version 20260721.
SAS Packages Framework, version 20260723.
See examples below.
A SAS package is a zip file containing a group of files
@@ -68,7 +68,7 @@ Contributors:
vERRb /* indicates if macro should be verbose and report errors */
)
/ minoperator PARMBUFF
des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFilerefOK(HELP) for help, version 20260721.'
des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFilerefOK(HELP) for help, version 20260723.'
;
/*** HELP END ***/
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
@@ -77,14 +77,15 @@ des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFile
%let options_tmp = ls=%sysfunc(getoption(ls)) ps=%sysfunc(getoption(ps))
%sysfunc(getoption(notes)) %sysfunc(getoption(source))
msglevel=%sysfunc(getoption(msglevel))
%sysfunc(getoption(mprint)) %sysfunc(getoption(mlogic)) %sysfunc(getoption(symbolgen))
;
options NOnotes NOsource ls=MAX ps=MAX msglevel=N;
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmprint NOmlogic NOsymbolgen;
%put ;
%put ###########################################################################################;
%put ### This is short help information for the `isPackagesFilerefOK` macro #;
%put #-----------------------------------------------------------------------------------------#;;
%put # #;
%put # Macro to check if the `packages` fileref is "correct", version `20260721` #;
%put # Macro to check if the `packages` fileref is "correct", version `20260723` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -101,6 +102,7 @@ des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFile
%put # #;
%put # 1. `vERRb` - *Optional* Indicates if the macro should return value AND be verbose #;
%put # (e.g., print errors and notes) or just return value. #;
%put # `1` means "verbose", `0` means "quiet". #;
%put # #;
%put # When used as: `%nrstr(%%isPackagesFilerefOK(HELP))` it displays this help information. #;
%put # #;
@@ -137,6 +139,7 @@ des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFile
%GOTO ENDofIsPackagesFilerefOK;
%end;
%if %sysevalf(%superq(vERRb)=,boolean) %then %let vERRb = 0;
%if NOT (%superq(vERRb) in (0 1)) %then %let vERRb = 0;
%local isPackagesFilerefOK;
@@ -156,10 +159,12 @@ des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFile
%let XENGINE=%sysfunc(GETVARC(&dsid., %sysfunc(VARNUM(&dsid., XENGINE))));
%let XPATH=%sysfunc(GETVARC(&dsid., %sysfunc(VARNUM(&dsid., XPATH))));
%put %superq(XENGINE) %superq(XPATH);
%if 1=&vERRb. %then
%put %superq(XENGINE) %superq(XPATH);
%if DISK ne %superq(XENGINE) %then
%do;
%let isPackagesFilerefOK=0;
%let isPackagesFilerefOK=%eval(&isPackagesFilerefOK. * 0);
%if 1=&vERRb. %then
%do;
%if %superq(XENGINE) = SASFSVAM %then %let XENGINE= FILESRVC (SASFSVAM);
@@ -168,7 +173,7 @@ des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFile
%end;
%else %if 0=%sysfunc(fileexist(%superq(XPATH))) %then
%do;
%let isPackagesFilerefOK=0;
%let isPackagesFilerefOK=%eval(&isPackagesFilerefOK. * 0);
%if 1=&vERRb. %then
%do;
%put ERROR: Path: %superq(XPATH) does NOT exist!;
@@ -178,7 +183,7 @@ des = 'Macro to check if the PACKAGES fileref is "correct", type %isPackagesFile
%do;
%let rc = %sysfunc(FILENAME(_F_, %superq(XPATH)));
%let dirid = %sysfunc(DOPEN(&_F_.));
%let isPackagesFilerefOK=%sysevalf(&dirid. AND 1, boolean);
%let isPackagesFilerefOK=%eval(&isPackagesFilerefOK. * %sysevalf(&dirid. AND 1, boolean));
%let dirid = %sysfunc(DCLOSE(&dirid.));
%let rc = %sysfunc(FILENAME(_F_));
%if 1=&vERRb. AND 0=&isPackagesFilerefOK. %then