SASPAC/SAS_PACKAGES
1
0
Fork 0
mirror of https://github.com/yabwon/SAS_PACKAGES.git synced 2026-01-04 13:50:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

SAS Packages Framework, version 20241014

Browse Source 
#SAS Packages Framework, version `20241014`

## Changes

---

The [%generatePackage()]{https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/SPFinit.md#generatepackage} macro accepts two new code types:
- `DS2PCK` for Proc DS2 packages, and
- `DS2THR` for Proc DS2 threads.

Those two new types allow to add `PROC DS2` *threads* and *packages* to a SAS package.

---

The [%loadPackage()]{https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/SPFinit.md#loadpackage} macro has new parameter:
- `DS2force` - when set to `1` an existing data set named the same as thread or package is overwritten by DS2 file.

While loading a package that contains `PRCO DS2` code, by default, if there already exist a SAS data set with the same name (which is not a DS2 thread or package file) a warning is issued in the log and the thread/package data set is not generated. To force overwrite, set the `DS2force=` parameter of the `%loadPackage()` macro to 1.

---

Minor updates and fixes:
- Proc `sql` "drop table" replaced with `fedsqsl`'s for data sets deletion.
- Proc `iml`, `fcmp`, and `proto` code blocks end with `quit;` statement.

---

[Documentation]{https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation} and [Hands-on-Workshops materials]{https://github.com/yabwon/HoW-SASPackages} updated.

---
This commit is contained in:
Bart Jablonski
2024-10-14 21:38:08 +02:00
parent 0a01f39662
commit c667bc6b25
15 changed files with 396 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

240
SPF/SPFinit.sas
View File

@@ -42,7 +42,7 @@
- to unload, or
- to generate SAS packages.
Version 20240927.
Version 20241014.
See examples below.
A SAS package is a zip file containing a group of files
@@ -85,11 +85,13 @@
, loadAddCnt=0 /* should the additional content be loaded?
default is 0 - means No, 1 means Yes */
, suppressExec=0 /* indicates if loading of exec files
should be suppressed, 1=suppress
should be suppressed, 1=suppress */
, DS2force=0 /* indicates if PROC DS2 packages and threads
should be loaded if a data set exists, 0=do not load
*/
)/secure
/*** HELP END ***/
des = 'Macro to load SAS package, version 20240927. Run %loadPackage() for help info.'
des = 'Macro to load SAS package, version 20241014. Run %loadPackage() for help info.'
minoperator
;
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
@@ -105,7 +107,7 @@ minoperator
%put ### This is short help information for the `loadPackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to *load* SAS packages, version `20240927` #;
%put # Macro to *load* SAS packages, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -165,6 +167,10 @@ minoperator
%put # should be suppressed, default value is `0`, #;
%put # when set to `1` `exec` files are *not* loaded #;
%put # #;
%put # - `DS2force=` *Optional.* Indicates if loading of `PROC DS2` packages #;
%put # or threads should overwrite existing SAS data sets. #;
%put # Default value of `0` means "do not overwrite". #;
%put # #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
@@ -267,6 +273,11 @@ minoperator
%let suppressExec = 0;
%end;
%if %superq(DS2force) NE 1 %then
%do;
%let DS2force = 0;
%end;
filename &_PackageFileref_. &ZIP.
/* put location of package myPackageFile.zip here */
"&path./%lowcase(&packageName.).&zip." %unquote(&options.)
@@ -361,7 +372,7 @@ minoperator
*/
)/secure
/*** HELP END ***/
des = 'Macro to unload SAS package, version 20240927. Run %unloadPackage() for help info.'
des = 'Macro to unload SAS package, version 20241014. Run %unloadPackage() for help info.'
;
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
%do;
@@ -376,7 +387,7 @@ des = 'Macro to unload SAS package, version 20240927. Run %unloadPackage() for h
%put ### This is short help information for the `unloadPackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to unload SAS packages, version `20240927` #;
%put # Macro to unload SAS packages, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -527,7 +538,7 @@ des = 'Macro to unload SAS package, version 20240927. Run %unloadPackage() for h
*/
)/secure
/*** HELP END ***/
des = 'Macro to get help about SAS package, version 20240927. Run %helpPackage() for help info.'
des = 'Macro to get help about SAS package, version 20241014. Run %helpPackage() for help info.'
;
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
%do;
@@ -542,7 +553,7 @@ des = 'Macro to get help about SAS package, version 20240927. Run %helpPackage()
%put ### This is short help information for the `helpPackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to get help about SAS packages, version `20240927` #;
%put # Macro to get help about SAS packages, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -683,7 +694,7 @@ TODO:
*/
/*+installPackage+*/
/* Macros to install SAS packages, version 20240927 */
/* Macros to install SAS packages, version 20241014 */
/* A SAS package is a zip file containing a group of files
with SAS code (macros, functions, data steps generating
data, etc.) wrapped up together and %INCLUDEed by
@@ -707,7 +718,7 @@ TODO:
/secure
minoperator
/*** HELP END ***/
des = 'Macro to install SAS package, version 20240927. Run %%installPackage() for help info.'
des = 'Macro to install SAS package, version 20241014. Run %%installPackage() for help info.'
;
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
%do;
@@ -722,7 +733,7 @@ des = 'Macro to install SAS package, version 20240927. Run %%installPackage() fo
%put ### This is short help information for the `installPackage` macro #;
%put #--------------------------------------------------------------------------------------------#;;
%put # #;
%put # Macro to install SAS packages, version `20240927` #;
%put # Macro to install SAS packages, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -1255,7 +1266,7 @@ des = 'Macro to install SAS package, version 20240927. Run %%installPackage() fo
Macro to list SAS packages in packages folder.
Version 20240927
Version 20241014
A SAS package is a zip file containing a group
of SAS codes (macros, functions, data steps generating
@@ -1275,7 +1286,7 @@ des = 'Macro to install SAS package, version 20240927. Run %%installPackage() fo
%macro listPackages()
/secure PARMBUFF
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20240927.'
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20241014.'
;
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
%do;
@@ -1290,7 +1301,7 @@ des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HE
%put ### This is short help information for the `listPackages` macro #;
%put #-----------------------------------------------------------------------------------------#;;
%put # #;
%put # Macro to list available SAS packages, version `20240927` #;
%put # Macro to list available SAS packages, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -1441,7 +1452,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
Macro to generate SAS packages.
Version 20240927
Version 20241014
A SAS package is a zip file containing a group
of SAS codes (macros, functions, data steps generating
@@ -1481,7 +1492,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
file name be created */
)/ secure minoperator
/*** HELP END ***/
des = 'Macro to generate SAS packages, version 20240927. Run %generatePackage() for help info.'
des = 'Macro to generate SAS packages, version 20241014. Run %generatePackage() for help info.'
;
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
%do;
@@ -1496,7 +1507,7 @@ des = 'Macro to generate SAS packages, version 20240927. Run %generatePackage()
%put ### This is short help information for the `generatePackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to generate SAS packages, version `20240927` #;
%put # Macro to generate SAS packages, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -1965,6 +1976,18 @@ DESCRIPTION END:
| |
| +-abc.sas [a file with a KMF-abbreviation snippet ABC, _with_ proper tagging, snippets names are in low-case]
|
+-013_ds2pck [one file one PROC DS2 package]
| |
| +-abc.sas [a data set with a package ABC stored in WORK.ABC data set]
| |
| +-library.xyz.sas [a data set with a package LIBRARY.XYZ stored in LIBRARY.XYZ data set]
|
+-014_ds2thr [one file one PROC DS2 thread]
| |
| +-abc.sas [a data set with a thread ABC stored in WORK.ABC data set]
| |
| +-library.xyz.sas [a data set with a thread LIBRARY.XYZ stored in LIBRARY.XYZ data set]
|
+-<sequential number>_<type [in lower case]>
|
+-00n_clean [if you need to clean something up after exec file execution,
@@ -2047,6 +2070,7 @@ data &filesWithCodes.;
'IMLMODULE' 'PROTO' 'EXEC' 'CLEAN'
'LAZYDATA' 'TEST' 'CASLUDF'
'ADDCNT' 'KMFSNIP'
'DS2PCK' 'DS2THR'
))
then
do;
@@ -2125,6 +2149,9 @@ run;
%let notesSourceOptions = %sysfunc(getoption(notes)) %sysfunc(getoption(source));
options NOnotes NOsource;
options mprint;
options notes source;
proc sort data = &filesWithCodes.;
by order type file;
run;
@@ -2231,7 +2258,7 @@ run;
/* code inspired by Kurt Bremser's "Talking to Your Host" article */
/* https://communities.sas.com/t5/SAS-User-Groups-Library/WUSS-Presentation-Talking-to-Your-Host/ta-p/838344 */
/* WUSS 2022 */
data &filesWithCodes.addCnt;
run;
@@ -2293,9 +2320,12 @@ title6 "MD5 hashed fileref of package lowcase name: &_PackageFileref_.";
title8 "Required SAS packages: %qsysfunc(compress(%superq(packageReqPackages),%str(%'%")))" ; /* " */
%end;
footnote1 "SAS Packages Framework, version 20240927";
footnote1 "SAS Packages Framework, version 20241014";
proc print data = &filesWithCodes.(drop=base folderRef fileRef rc folderid _abort_ fileId additionalContent);
proc print
data = &filesWithCodes.(drop=base folderRef fileRef rc folderid _abort_ fileId additionalContent)
width=full
;
run;
title;
@@ -2314,7 +2344,7 @@ title;
title2 "Package additional content:";
proc print
data=&filesWithCodes.addCnt(drop=root dir level)
label
label width=full
;
run;
%end;
@@ -2549,6 +2579,8 @@ data _null_;
isProto = 0;
isIMLmodule = 0;
isCASLudf = 0;
isDS2pck = 0;
isDS2thr = 0;
%if (%superq(packageRequired) ne )
or (%superq(packageReqPackages) ne )
@@ -2788,7 +2820,7 @@ data _null_;
('LIBNAME' 'MACRO' /*'MACROS'*/ 'DATA'
'FUNCTION' /*'FUNCTIONS'*/ 'FORMAT' /*'FORMATS'*/
'IMLMODULE' 'PROTO' 'EXEC' 'CLEAN'
'LAZYDATA' 'TEST' 'ADDCNT' 'KMFSNIP'))
'LAZYDATA' 'TEST' 'ADDCNT' 'KMFSNIP' 'DS2PCK' 'DS2THR'))
then
do;
putlog 'WARNING: Type ' type 'is not yet supported.';
@@ -2799,8 +2831,11 @@ data _null_;
isFormat + (upcase(type)=:'FORMAT');
isProto + (upcase(type)=:'PROTO');
isIMLmodule + (upcase(type)=:'IMLMODULE');
isDS2pck + (upcase(type)=:'DS2PCK');
isDS2thr + (upcase(type)=:'DS2THR');
/* HEADERS for IML, FCMP, and PROTO - start */
/* HEADERS for PROC IML, FCMP, and PROTO - start */
if 1 = isFunction and upcase(type)=:'FUNCTION' then
do;
/* macro variable for test if cherry picking used FCMP */
@@ -2858,7 +2893,7 @@ data _null_;
/* header, for IML modules */
put "proc iml ; ";
end;
/* HEADERS for IML, FCMP, and PROTO - end */
/* HEADERS for PROC IML, FCMP, and PROTO - end */
put ' ' /
'%if (%str(*)=%superq(cherryPick)) or (' fileshort +(-1) ' in %superq(cherryPick)) %then %do; '; /* Cherry Pick test1 start */
@@ -2869,6 +2904,8 @@ data _null_;
put ' %put %sysfunc(ifc(%SYSMACEXIST(' fileshort +(-1) ')=1, NOTE# Macro ' fileshort
"exist. It will be overwritten by the macro from the &packageName. package, ));";
/* separate approach for EXEC */
if upcase(type)=:'EXEC' then
do;
/* User can suppress running the exec files */
@@ -2891,9 +2928,84 @@ data _null_;
/ ' )));'
;
end;
else
/* separate approach for DS2 */
else if (upcase(type) in: ('DS2PCK' 'DS2THR')) then
do;
/* include the file with the code of the element */
if 1 = isDS2pck and upcase(type)=:'DS2PCK' then
do;
/* macro variable for test if cherry picking used DS2 package */
put 'data _null_; ';
put " call symputX('cherryPick_DS2PCK', 0, 'L'); ";
put 'run; ';
end;
if 1 = isDS2thr and upcase(type)=:'DS2THR' then
do;
/* macro variable for test if cherry picking used DS2 threads */
put 'data _null_; ';
put " call symputX('cherryPick_DS2THR', 0, 'L'); ";
put 'run; ';
end;
/* since DS2 packages and threads are stored in SAS data sets */
/* we have to check (before loading) if there is no "regular" */
/* data set (or view) with the same name to avoid overwriting */
if upcase(type) in: ('DS2PCK' 'DS2THR') then
do;
length DS2lib $ 8 DS2ds $ 32;
DS2lib = coalescec(scan(fileshort,-2,"."), "WORK");
DS2ds = scan(fileshort,-1,".");
put '%put %sysfunc(ifc(%sysfunc(exist(' fileshort +(-1) '))=1,'
/ '%sysfunc(dosubl(%str(options ps=min; title; options msglevel=n nodate notes source nomprint;'
/ ' data _null_;'
/ ' id = OPEN("' fileshort +(-1) '");'
/ ' if id then do;'
/ ' x = VARNUM(id, "SAS_CHECKSUM_") AND VARNUM(id, "SAS_ROWID_") AND (VARNUM(id, "SAS_TEXTTHREAD_") OR VARNUM(id, "SAS_TEXTPACKAGE_"));'
/ ' y = ("DATA"=ATTRC(id, "MTYPE"));'
/ ' if symexist("DS2force") then z = symgetn("DS2force"); else z = 0;'
/ ' if (x AND y) OR z then do;'
/ ' call execute("proc delete data=' fileshort +(-1) '; run;");'
/ " put 'NOTE# The " fileshort "will be overwritten by the PROC DS2 package/thread from the &packageName. package.';"
/* header for each DS2 packages or threads in PROC DS2 run */
/ ' call execute("proc ds2;");'
/ ' call execute(''%include' " &_PackageFileref_.(_" folder +(-1) "." file +(-1) ') / nosource2;'');'
/* footer for each DS2 packages or threads in PROC DS2 run */
/ ' call execute("run; quit;");'
/ ' call execute("options nonotes; proc datasets lib=' DS2lib 'noprint;");'
/ " call execute('modify " DS2ds "(label=""Package: &packageName. ; Type: " type "; Name: " fileshort """);');"
/ ' call execute("run; quit;");'
/ ' end;'
/ ' else put "WARNING: Data set ' fileshort 'exist and is not a PROC DS2 package/thread!"'
/ ' / "WARNING- PROC DS2 package/thread ' fileshort 'will not be generated..."; '
/ ' id = CLOSE(id);'
/ ' end;'
/ ' run;))),'
/ '%sysfunc(dosubl(%str(options ps=min; title; options msglevel=n nodate notes source nomprint;'
/* header for each DS2 packages or threads in PROC DS2 run */
/ ' proc ds2;'
/ ' %include' " &_PackageFileref_.(_" folder +(-1) "." file +(-1) ') / nosource2;'
/* footer for each DS2 packages or threads in PROC DS2 run */
/ ' run; quit;'
/ ' options nonotes; proc datasets lib=' DS2lib 'noprint;'
/ " modify " DS2ds "(label=""Package: &packageName. ; Type: " type "; Name: " fileshort """);"
/ ' run; quit;'
/ '))),'
/ '));'
/ " "
/ ;
end;
end;
else
do;
/* include the file with the code of the element, all other cases */
put ' %include' " &_PackageFileref_.(_" folder +(-1) "." file +(-1) ') / nosource2;';
end;
@@ -2909,13 +3021,19 @@ data _null_;
if upcase(type)=:'FORMAT' then
put ' %let cherryPick_FORMAT = %eval(&cherryPick_FORMAT. + 1);';
if upcase(type)=:'DS2PCK' then
put ' %let cherryPick_DS2PCK = %eval(&cherryPick_DS2PCK. + 1);';
if upcase(type)=:'DS2THR' then
put ' %let cherryPick_DS2THR = %eval(&cherryPick_DS2THR. + 1);';
put '%end; ' /; /* Cherry Pick test1 end */
/* FOOTERS for IML, FCMP, and PROTO - start */
/* FOOTERS for PROC IML, FCMP, and PROTO - start */
if 1 = LAST.type and upcase(type) in ('FUNCTIONS' 'PROTO' 'FORMATS') then
do; /* footer, for multiple functions in one FCMP run, one PROTO run, or one FORMAT run */
put "run; " / ;
put "quit; " / ;
end;
if 1 = LAST.type and upcase(type)='IMLMODULE' then /* footer, for IML modules */
do;
@@ -2926,7 +3044,7 @@ data _null_;
'%end; ' /
"quit; " / ;
end;
/* FOOTERS for IML, FCMP, and PROTO - end */
/* FOOTERS for PROC IML, FCMP, and PROTO - end */
/* add the link to the functions dataset, only for the first occurrence */
/*if 1 = isFunction and (upcase(type)=:'FUNCTION') then
@@ -3014,7 +3132,7 @@ data _null_;
%end;
put +(-1) '`.;''' /
' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"' /
' !! '' %put with the SAS Packages Framework version 20240927.;''' /
' !! '' %put with the SAS Packages Framework version 20241014.;''' /
' !! '' %put ****************************************************************************;''' /
' !! '' %GOTO theEndOfTheMacro;''' /
' !! '' %end;''' ;
@@ -3179,7 +3297,7 @@ data _null_;
%end;
put +(-1) '`.; '' !!' /
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !!' /
''' %put with the SAS Packages Framework version 20240927.; '' !! ' /
''' %put with the SAS Packages Framework version 20241014.; '' !! ' /
''' %put ****************************************************************************; '' !! ' /
''' %GOTO theEndOfTheMacro; '' !! ' /
''' %end; '' !! ' /
@@ -3694,15 +3812,33 @@ data _null_;
/* put 'remove module = ' fileshort ';'; */
end;
/* delete datasets */
put "proc sql noprint;";
/* delete data sets */
put "proc fedsql noprint;";
EOF = 0;
do until(EOF);
set &filesWithCodes. end = EOF;
if not (upcase(type)=:'DATA') then continue;
if not (upcase(type) in: ('DATA')) then continue;
put '%put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
put '%put NOTE- ;';
put 'drop table ' fileshort ';' /;
put 'drop table ' fileshort ' FORCE;' /;
end;
put "quit;" /;
/* delete PROC DS2 packages or threads */
put 'data _null_; call symputx("_DS2_2_del_",0,"L"); run;';
put "proc fedsql noprint;";
EOF = 0;
do until(EOF);
set &filesWithCodes. end = EOF;
if not (upcase(type) in: ('DS2PCK' 'DS2THR')) then continue;
put '%put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;'
/ '%put NOTE- ;'
/ '%let _DS2_2_del_ = %sysfunc(open(' fileshort '));'
/ '%sysfunc(ifc(&_DS2_2_del_. AND %sysfunc(ATTRC(&_DS2_2_del_.,LABEL))='
/ '%str(' "Package: &packageName. ; Type: " type "; Name: " fileshort +(-1) '),drop table ' fileshort ' FORCE,)) ;'
/ '%let _DS2_2_del_ = %sysfunc(close(&_DS2_2_del_.));'
;
put ';' /;
end;
put "quit;" /;
@@ -3830,12 +3966,13 @@ data _null_;
length fileshort2 $ 256;
select;
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'" );
when (upcase(type) =: "FUNCTION" ) fileshort2 = cats("'", fileshort, "()'" );
when (upcase(type) =: "IMLMODULE" ) fileshort2 = cats("'", fileshort, "()'" );
when (upcase(type) =: "PROTO" ) fileshort2 = cats("'", fileshort, "()'" );
when (upcase(type) =: "FORMAT" ) fileshort2 = cats("'$", fileshort, ".'" );
when (upcase(type) in ('DS2PCK' 'DS2THR')) fileshort2 = cats("'DS2", fileshort, "'" );
otherwise fileshort2 = fileshort;
end;
strX = catx('/', folder, order, type, file, fileshort, fileshort2);
@@ -3967,7 +4104,7 @@ data _null_;
%end;
put 'put " " / @3 "--------------------------------------------------------------------" / " ";'
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20240927`*";'
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20241014`*";'
/ 'put " " / @3 "--------------------------------------------------------------------";';
put 'run; ' /;
@@ -4006,13 +4143,14 @@ data _null_;
length fileshort2 $ 256;
select;
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'" );
when (upcase(type) =: "FUNCTION" ) fileshort2 = cats("'", fileshort, "()'" );
when (upcase(type) =: "IMLMODULE" ) fileshort2 = cats("'", fileshort, "()'" );
when (upcase(type) =: "PROTO" ) fileshort2 = cats("'", fileshort, "()'" );
when (upcase(type) =: "FORMAT" ) fileshort2 = cats("'$", fileshort, ".'" );
when (upcase(type) =: "CASLUDF" ) fileshort2 = cats("'", fileshort, "()'" );
when (upcase(type) in ('DS2PCK' 'DS2THR')) fileshort2 = cats("'DS2", fileshort, "'" );
otherwise fileshort2 = fileshort;
end;
strX = catx('/', folder, order, type, file, fileshort, fileshort2);
@@ -5004,7 +5142,7 @@ data &filesWithCodes.markdown;
%end;
put " " / "--------------------------------------------------------------------" / " "
/ "*SAS package generated by SAS Package Framework, version `20240927`*"
/ "*SAS package generated by SAS Package Framework, version `20241014`*"
/ " " / "--------------------------------------------------------------------" / " ";
put "# The `&packageName.` package content";
@@ -5282,7 +5420,7 @@ TODO: (in Polish)
*/
)/secure
/*** HELP END ***/
des = 'Macro to load multiple SAS packages at one run, version 20240927. Run %loadPackages() for help info.'
des = 'Macro to load multiple SAS packages at one run, version 20241014. Run %loadPackages() for help info.'
parmbuff
;
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
@@ -5298,7 +5436,7 @@ parmbuff
%put ### This is short help information for the `loadPackageS` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro wrapper for the loadPackage macro, version `20240927` #;
%put # Macro wrapper for the loadPackage macro, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -5395,7 +5533,7 @@ parmbuff
hashing_file() function, SAS 9.4M6 */
)/secure
/*** HELP END ***/
des = 'Macro to verify SAS package with the hash digest, version 20240927. Run %verifyPackage() for help info.'
des = 'Macro to verify SAS package with the hash digest, version 20241014. Run %verifyPackage() for help info.'
;
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
%do;
@@ -5410,7 +5548,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20240927. Run %
%put ### This is short help information for the `verifyPackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to verify SAS package with it hash digest, version `20240927` #;
%put # Macro to verify SAS package with it hash digest, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -5590,7 +5728,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20240927. Run %
*/
)/secure
/*** HELP END ***/
des = 'Macro to preview content of a SAS package, version 20240927. Run %previewPackage() for help info.'
des = 'Macro to preview content of a SAS package, version 20241014. Run %previewPackage() for help info.'
;
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
%do;
@@ -5605,7 +5743,7 @@ des = 'Macro to preview content of a SAS package, version 20240927. Run %preview
%put ### This is short help information for the `previewPackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to get preview of a SAS packages, version `20240927` #;
%put # Macro to get preview of a SAS packages, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -5735,7 +5873,7 @@ des = 'Macro to preview content of a SAS package, version 20240927. Run %preview
when empty the "packages" value is used */
)/secure
/*** HELP END ***/
des = 'Macro to list directories pointed by "packages" fileref, version 20240927. Run %extendPackagesFileref(HELP) for help info.'
des = 'Macro to list directories pointed by "packages" fileref, version 20241014. Run %extendPackagesFileref(HELP) for help info.'
;
%if %QUPCASE(&packages.) = HELP %then
@@ -5751,7 +5889,7 @@ des = 'Macro to list directories pointed by "packages" fileref, version 20240927
%put ### This is short help information for the `extendPackagesFileref` macro #;
%put #-----------------------------------------------------------------------------------------#;;
%put # #;
%put # Macro to list directories pointed by 'packages' fileref, version `20240927` #;
%put # Macro to list directories pointed by 'packages' fileref, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -5852,7 +5990,7 @@ filename packages list;
is provided in required version */
)/secure
/*** HELP END ***/
des = 'Macro to load additional content for a SAS package, version 20240927. Run %loadPackageAddCnt() for help info.'
des = 'Macro to load additional content for a SAS package, version 20241014. Run %loadPackageAddCnt() for help info.'
minoperator
;
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
@@ -5868,7 +6006,7 @@ minoperator
%put ### This is short help information for the `loadPackageAddCnt` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to *load* additional content for a SAS package, version `20240927` #;
%put # Macro to *load* additional content for a SAS package, version `20241014` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;