SAS Packages Framework, version 20260721

SAS Packages Framework, version `20260721`

Changes:

- Small errors fixed
- Code cleanup
This commit is contained in:
Bart Jablonski
2026-07-22 10:14:11 +02:00
parent 8102ab5513
commit 914ad08157
25 changed files with 166 additions and 162 deletions
+6 -6
View File
@@ -43,7 +43,7 @@
- to unload, or
- to generate SAS packages.
SAS Packages Framework, version 20260710.
SAS Packages Framework, version 20260721.
See examples below.
A SAS package is a zip file containing a group of files
@@ -77,7 +77,7 @@ Contributors:
hashing_file() function, SAS 9.4M6 */
)/secure
/*** HELP END ***/
des = 'Macro to verify SAS package with the hash digest, version 20260710. Run %verifyPackage(HELP) for help info.'
des = 'Macro to verify SAS package with the hash digest, version 20260721. Run %verifyPackage(HELP) for help info.'
;
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
%do;
@@ -92,7 +92,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20260710. Run %
%put ### This is short help information for the `verifyPackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to verify SAS package with it hash digest, version `20260710` #;
%put # Macro to verify SAS package with it hash digest, version `20260721` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -223,7 +223,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20260710. Run %
length method $ 8 digest $ 128;
/* calculate SHA256 */
method="SHA256";
LINK CalcualteHashDigest; /* go to Link 1 */
LINK CalculateHashDigest; /* go to Link 1 */
if NOT emptyHash then
do; /* step for verification */
@@ -246,12 +246,12 @@ des = 'Macro to verify SAS package with the hash digest, version 20260710. Run %
end;
else
do method = "SHA1", "MD5"; /* step for digest display, calculate also SHA1 and MD5 */
LINK CalcualteHashDigest; /* go to Link 1 */
LINK CalculateHashDigest; /* go to Link 1 */
end;
put 82*"-" /;
stop;
return;
CalcualteHashDigest: /* Link 1 */
CalculateHashDigest: /* Link 1 */
select;
when ( 'F*' = upcase(substr(providedHash,1,2)) ) /* F = file digest */