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 20260721

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files
SPF/Macros/generatepackage.sas
+10 -9
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
@@ -67,7 +67,7 @@ Contributors:
Macro to generate SAS packages.
Version 20260710
Version 20260721
A SAS package is a zip file containing a group
of SAS codes (macros, functions, data steps generating
@@ -117,7 +117,7 @@ Contributors:
when empty takes buildLocation */
)/ secure minoperator
/*** HELP END ***/
des = 'Macro to generate SAS packages, version 20260710. Run %generatePackage(HELP) for help info.'
des = 'Macro to generate SAS packages, version 20260721. Run %generatePackage(HELP) for help info.'
;
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
%do;
@@ -132,7 +132,7 @@ des = 'Macro to generate SAS packages, version 20260710. Run %generatePackage(HE
%put ### This is short help information for the `generatePackage` macro #;
%put #------------------------------------------------------------------------------------#;
%put # #;
%put # Macro to generate SAS packages, version `20260710` #;
%put # Macro to generate SAS packages, version `20260721` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -1015,7 +1015,7 @@ title6 "MD5 hashed fileref of package lowcase name: &_PackageFileref_.";
title&_titleNumber_. "Package ZIP file location is: &buildLocation.";
%end;
footnote1 "SAS Packages Framework, version 20260710";
footnote1 "SAS Packages Framework, version 20260721";
proc print
data = &filesWithCodes.(drop=base build folderRef fileRef rc folderid _abort_ fileId additionalContent)
@@ -1202,7 +1202,7 @@ data _null_;
/ ' %if %superq(rVsign)= %then %let rVsign=<=; '
/ ' %else %if NOT (%superq(rVsign) IN (%str(=) %str(<=) %str(=<) %str(=>) %str(>=) %str(<) %str(>))) %then '
/ ' %do; '
/ ' %put WARNING: Illegal operatopr "%superq(rVsign)"! Default(<=) will be used.; '
/ ' %put WARNING: Illegal operator "%superq(rVsign)"! Default(<=) will be used.; '
/ ' %put WARNING- Supported operators are: %str(= <= =< => >= < >); '
/ ' %let rVsign=<=; '
/ ' %end; '
@@ -1839,7 +1839,7 @@ data _null_;
%end;
put +(-1) '`.;'''
/ ' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"'
/ ' !! '' %put with the SAS Packages Framework version 20260710.;'''
/ ' !! '' %put with the SAS Packages Framework version 20260721.;'''
/ ' !! '' %put ****************************************************************************;'''
/ ' !! '' %GOTO theEndOfTheMacro;'''
/ ' !! '' %end;''' ;
@@ -2003,7 +2003,7 @@ data _null_;
%end;
put +(-1) '`.; '' !!' /
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !! ' /
''' %put with the SAS Packages Framework version 20260710.; '' !! ' /
''' %put with the SAS Packages Framework version 20260721.; '' !! ' /
''' %put ****************************************************************************; '' !! ' /
''' %GOTO theEndOfTheMacro; '' !! ' /
''' %end; '' !! ' /
@@ -2875,7 +2875,7 @@ data _null_;
%end;
put 'put " " / @3 "---------------------------------------------------------------------" / " ";'
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20260710`*";'
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20260721`*";'
/ "put @3 '*under `&sysscp.`(`&sysscpl.`) operating system,*';"
/ "put @3 '*using SAS release: `&sysvlong4.`.*';"
/ 'put " " / @3 "---------------------------------------------------------------------";';
@@ -3039,6 +3039,7 @@ data _null_;
call execute(' rc = fcopy("_SPFIN_", "_SPFOUT_");');
call execute(' ex = fexist("_SPFOUT_"); Try + 1;');
call execute(' put Try= " File existence in ZIP verified as: " ex;');
call execute(' rc = sleep(^ex, 0.25);'); /* wait 0.25 sec if not copied successfully */
call execute(' end ;');
call execute(' if ex then put "File " pathname "copied into the package with return code: " rc "(0 = success)";');