mirror of
https://github.com/yabwon/SAS_PACKAGES.git
synced 2026-01-07 07:00:05 +00:00
Compare commits
14 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
45127a057e | ||
|
|
3f950e11ce | ||
|
|
96247523ba | ||
|
|
425f7b389c | ||
|
|
56748bc44b | ||
|
|
96fa16078c | ||
|
|
dc7f8cee19 | ||
|
|
9b76f52b78 | ||
|
|
c40c0bd9dc | ||
|
|
ba2ca42015 | ||
|
|
55b7b507cf | ||
|
|
b47b1fb536 | ||
|
|
73f0ba2d4c | ||
|
|
c38cb1e70d |
2
LICENSE
2
LICENSE
@@ -1,6 +1,6 @@
|
|||||||
MIT License
|
MIT License
|
||||||
|
|
||||||
Copyright (c) 2019 - 2023 Bartosz Jablonski
|
Copyright (c) 2019 - 2024 Bartosz Jablonski
|
||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
of this software and associated documentation files (the "Software"), to deal
|
of this software and associated documentation files (the "Software"), to deal
|
||||||
|
|||||||
@@ -16,7 +16,7 @@ Don't forget to **STAR** (:star:) the repository! :-)
|
|||||||
|
|
||||||
### Current version:
|
### Current version:
|
||||||
|
|
||||||
**The latest version** of SPF is **`20231210`**.
|
**The latest version** of SPF is **`20240927`**.
|
||||||
|
|
||||||
To get started with SAS Packages try this [**`Getting Started with SAS Packages`**](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/Documentation/Getting_Started_with_SAS_Packages.pdf "Getting Started with SAS Packages") presentation (see the `./SPF/Documentation` directory).
|
To get started with SAS Packages try this [**`Getting Started with SAS Packages`**](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/Documentation/Getting_Started_with_SAS_Packages.pdf "Getting Started with SAS Packages") presentation (see the `./SPF/Documentation` directory).
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
@@ -6,7 +6,7 @@
|
|||||||
when empty the "packages" value is used */
|
when empty the "packages" value is used */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to list directories pointed by "packages" fileref, version 20231210. Run %extendPackagesFileref(HELP) for help info.'
|
des = 'Macro to list directories pointed by "packages" fileref, version 20240927. Run %extendPackagesFileref(HELP) for help info.'
|
||||||
;
|
;
|
||||||
|
|
||||||
%if %QUPCASE(&packages.) = HELP %then
|
%if %QUPCASE(&packages.) = HELP %then
|
||||||
@@ -22,7 +22,7 @@ des = 'Macro to list directories pointed by "packages" fileref, version 20231210
|
|||||||
%put ### This is short help information for the `extendPackagesFileref` macro #;
|
%put ### This is short help information for the `extendPackagesFileref` macro #;
|
||||||
%put #-----------------------------------------------------------------------------------------#;;
|
%put #-----------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to list directories pointed by 'packages' fileref, version `20231210` #;
|
%put # Macro to list directories pointed by 'packages' fileref, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@
|
|||||||
|
|
||||||
Macro to generate SAS packages.
|
Macro to generate SAS packages.
|
||||||
|
|
||||||
Version 20231210
|
Version 20240927
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -43,7 +43,7 @@
|
|||||||
file name be created */
|
file name be created */
|
||||||
)/ secure minoperator
|
)/ secure minoperator
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to generate SAS packages, version 20231210. Run %generatePackage() for help info.'
|
des = 'Macro to generate SAS packages, version 20240927. Run %generatePackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
|
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -58,7 +58,7 @@ des = 'Macro to generate SAS packages, version 20231210. Run %generatePackage()
|
|||||||
%put ### This is short help information for the `generatePackage` macro #;
|
%put ### This is short help information for the `generatePackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to generate SAS packages, version `20231210` #;
|
%put # Macro to generate SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -634,6 +634,7 @@ data &filesWithCodes.;
|
|||||||
put;
|
put;
|
||||||
_abort_ + 1;
|
_abort_ + 1;
|
||||||
end;
|
end;
|
||||||
|
length fileshort $ 256;
|
||||||
fileshort = substr(file, 1, length(file) - 4); /* filename.sas -> filename */
|
fileshort = substr(file, 1, length(file) - 4); /* filename.sas -> filename */
|
||||||
|
|
||||||
if strip(reverse(file)) in: ('sas.') then output; /* ignore not ".sas" files */
|
if strip(reverse(file)) in: ('sas.') then output; /* ignore not ".sas" files */
|
||||||
@@ -854,7 +855,7 @@ title6 "MD5 hashed fileref of package lowcase name: &_PackageFileref_.";
|
|||||||
title8 "Required SAS packages: %qsysfunc(compress(%superq(packageReqPackages),%str(%'%")))" ; /* " */
|
title8 "Required SAS packages: %qsysfunc(compress(%superq(packageReqPackages),%str(%'%")))" ; /* " */
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
footnote1 "SAS Packages Framework, version 20231210";
|
footnote1 "SAS Packages Framework, version 20240927";
|
||||||
|
|
||||||
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);
|
||||||
run;
|
run;
|
||||||
@@ -1575,7 +1576,7 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
put +(-1) '`.;''' /
|
put +(-1) '`.;''' /
|
||||||
' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"' /
|
' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"' /
|
||||||
' !! '' %put with the SAS Packages Framework version 20231210.;''' /
|
' !! '' %put with the SAS Packages Framework version 20240927.;''' /
|
||||||
' !! '' %put ****************************************************************************;''' /
|
' !! '' %put ****************************************************************************;''' /
|
||||||
' !! '' %GOTO theEndOfTheMacro;''' /
|
' !! '' %GOTO theEndOfTheMacro;''' /
|
||||||
' !! '' %end;''' ;
|
' !! '' %end;''' ;
|
||||||
@@ -1740,7 +1741,7 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
put +(-1) '`.; '' !!' /
|
put +(-1) '`.; '' !!' /
|
||||||
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !!' /
|
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !!' /
|
||||||
''' %put with the SAS Packages Framework version 20231210.; '' !! ' /
|
''' %put with the SAS Packages Framework version 20240927.; '' !! ' /
|
||||||
''' %put ****************************************************************************; '' !! ' /
|
''' %put ****************************************************************************; '' !! ' /
|
||||||
''' %GOTO theEndOfTheMacro; '' !! ' /
|
''' %GOTO theEndOfTheMacro; '' !! ' /
|
||||||
''' %end; '' !! ' /
|
''' %end; '' !! ' /
|
||||||
@@ -1894,7 +1895,7 @@ data _null_;
|
|||||||
/ ' putlog / @7 "Should you have any problem with finding the file consider moving";'
|
/ ' putlog / @7 "Should you have any problem with finding the file consider moving";'
|
||||||
/ ' putlog @7 "it to a location of your choice with the help of the following snippet:";'
|
/ ' putlog @7 "it to a location of your choice with the help of the following snippet:";'
|
||||||
/ ' putlog / @7 " filename KMFin " "''%sysfunc(pathname(WORK))/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
/ ' putlog / @7 " filename KMFin " "''%sysfunc(pathname(WORK))/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
||||||
/ ' putlog @7 " filename KMFout ""</directory/of/your/choice>/testpackageclean.kmf"" lrecl=1 recfm=n;";'
|
/ ' putlog / @7 " filename KMFout " "''</directory/of/your/choice>/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
||||||
/ ' putlog @7 '' %put *%sysfunc(fcopy(KMFin, KMFout))*(0=success)*;'';'
|
/ ' putlog @7 '' %put *%sysfunc(fcopy(KMFin, KMFout))*(0=success)*;'';'
|
||||||
/ ' putlog / "0a"x / " ";'
|
/ ' putlog / "0a"x / " ";'
|
||||||
|
|
||||||
@@ -2131,7 +2132,7 @@ data _null_;
|
|||||||
if not (upcase(type)=:'MACRO') then continue;
|
if not (upcase(type)=:'MACRO') then continue;
|
||||||
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
||||||
put ' %put NOTE- ;';
|
put ' %put NOTE- ;';
|
||||||
put ' ,"' fileshort upcase32. '"' /;
|
put ' ,"' fileshort upcase64. '"' /;
|
||||||
end;
|
end;
|
||||||
/**/
|
/**/
|
||||||
put ' )';
|
put ' )';
|
||||||
@@ -2149,7 +2150,7 @@ data _null_;
|
|||||||
if not (upcase(type)=:'FORMAT') then continue;
|
if not (upcase(type)=:'FORMAT') then continue;
|
||||||
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
||||||
put ' %put NOTE- ;';
|
put ' %put NOTE- ;';
|
||||||
put ' ,"' fileshort upcase32. '"' /;
|
put ' ,"' fileshort upcase64. '"' /;
|
||||||
isFormat + 1;
|
isFormat + 1;
|
||||||
end;
|
end;
|
||||||
put ' )';
|
put ' )';
|
||||||
@@ -2389,6 +2390,7 @@ data _null_;
|
|||||||
set &filesWithCodes. end = EOFDS nobs = NOBS;
|
set &filesWithCodes. end = EOFDS nobs = NOBS;
|
||||||
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
||||||
|
|
||||||
|
length fileshort2 $ 256;
|
||||||
select;
|
select;
|
||||||
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
||||||
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
||||||
@@ -2527,7 +2529,7 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
put 'put " " / @3 "--------------------------------------------------------------------" / " ";'
|
put 'put " " / @3 "--------------------------------------------------------------------" / " ";'
|
||||||
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20231210`*";'
|
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20240927`*";'
|
||||||
/ 'put " " / @3 "--------------------------------------------------------------------";';
|
/ 'put " " / @3 "--------------------------------------------------------------------";';
|
||||||
|
|
||||||
put 'run; ' /;
|
put 'run; ' /;
|
||||||
@@ -2564,6 +2566,7 @@ data _null_;
|
|||||||
set &filesWithCodes. end = EOFDS;
|
set &filesWithCodes. end = EOFDS;
|
||||||
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
||||||
|
|
||||||
|
length fileshort2 $ 256;
|
||||||
select;
|
select;
|
||||||
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
||||||
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
||||||
@@ -3504,10 +3507,10 @@ data &filesWithCodes.markdown;
|
|||||||
packageHashC=symget("packageHashC");
|
packageHashC=symget("packageHashC");
|
||||||
drop package:;
|
drop package:;
|
||||||
|
|
||||||
put " " / "---" / " "
|
put " " / 64*"-" / " "
|
||||||
/ "### Version information:"
|
|
||||||
/ " "
|
|
||||||
/ ' *' packageTitle +(-1)'* '
|
/ ' *' packageTitle +(-1)'* '
|
||||||
|
/ " " / 64*"-" / " "
|
||||||
|
/ "### Version information:"
|
||||||
/ " "
|
/ " "
|
||||||
/ "- Package: &packageName."
|
/ "- Package: &packageName."
|
||||||
/ "- Version: &packageVersion."
|
/ "- Version: &packageVersion."
|
||||||
@@ -3563,22 +3566,42 @@ data &filesWithCodes.markdown;
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
put " " / "--------------------------------------------------------------------" / " "
|
put " " / "--------------------------------------------------------------------" / " "
|
||||||
/ "*SAS package generated by SAS Package Framework, version `20231210`*"
|
/ "*SAS package generated by SAS Package Framework, version `20240927`*"
|
||||||
/ " " / "--------------------------------------------------------------------" / " ";
|
/ " " / "--------------------------------------------------------------------" / " ";
|
||||||
|
|
||||||
put "# The `&packageName.` package content";
|
put "# The `&packageName.` package content";
|
||||||
put "The `&packageName.` package consists of the following content:";
|
put "The `&packageName.` package consists of the following content:" / " ";
|
||||||
EOFDS = 0;
|
EOFDS = 0;
|
||||||
do until(EOFDS);
|
do until(EOFDS);
|
||||||
/* content is created during package creation */
|
/* content is created during package creation */
|
||||||
set &filesWithCodes. end = EOFDS nobs = NOBS curobs = CUROBS;
|
set &filesWithCodes. end = EOFDS nobs = NOBS curobs = CUROBS;
|
||||||
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
||||||
|
|
||||||
|
/*
|
||||||
|
To exclude file from being added to the documentation
|
||||||
|
insert the "excluding" text(see below) as a comment
|
||||||
|
in the FIRST line of the file.
|
||||||
|
Do not add spaces.
|
||||||
|
|
||||||
|
For each file the first line is read in and checked.
|
||||||
|
*/
|
||||||
|
length _FILEVARPATH_ $ 4096;
|
||||||
|
_FILEVARPATH_=catx("/",base,folder,file);
|
||||||
|
infile _dummy_ FILEVAR=_FILEVARPATH_;
|
||||||
|
input;
|
||||||
|
if strip(_infile_) IN (
|
||||||
|
'/*##DoNotUse4Documentation##*/'
|
||||||
|
'/*##ExcludeFromDocumentation##*/'
|
||||||
|
'/*##ExcludeFromMarkdownDoc##*/'
|
||||||
|
)
|
||||||
|
then continue; /* exclude file from documentation */
|
||||||
|
|
||||||
type2=type;
|
type2=type;
|
||||||
length link $ 256;
|
length link $ 256;
|
||||||
link=catx("-",compress(fileshort,,"KAD"),type,CUROBS);
|
link=catx("-",compress(fileshort,,"KAD"),type,CUROBS);
|
||||||
|
length fileshort $ 256;
|
||||||
select;
|
select;
|
||||||
when (upcase(type) =: "MACRO" ) fileshort2 = cats('`%', fileshort, "()`");
|
when (upcase(type) =: "MACRO" ) do; fileshort2 = cats('`%', fileshort, "()`"); type2='macro'; end;
|
||||||
when (upcase(type) =: "FORMAT" ) do; fileshort2 = cats("`$", fileshort, ".`"); type2='format/informat'; end;
|
when (upcase(type) =: "FORMAT" ) do; fileshort2 = cats("`$", fileshort, ".`"); type2='format/informat'; end;
|
||||||
when (upcase(type) =: "FUNCTION" ) do; fileshort2 = cats("`", fileshort, "()`"); type2='function'; end;
|
when (upcase(type) =: "FUNCTION" ) do; fileshort2 = cats("`", fileshort, "()`"); type2='function'; end;
|
||||||
when (upcase(type) =: "IMLMODULE") fileshort2 = cats("`", fileshort, "()`");
|
when (upcase(type) =: "IMLMODULE") fileshort2 = cats("`", fileshort, "()`");
|
||||||
@@ -3587,13 +3610,14 @@ data &filesWithCodes.markdown;
|
|||||||
otherwise fileshort2 = cats("`", fileshort, "`");
|
otherwise fileshort2 = cats("`", fileshort, "`");
|
||||||
end;
|
end;
|
||||||
|
|
||||||
put @1 CUROBS +(-1) '. [' fileshort2 type2'](#' link ')';
|
contentObs + 1;
|
||||||
|
put @1 contentObs +(-1) '. [' fileshort2 type2'](#' link ')';
|
||||||
output;
|
output;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
put " " / " ";
|
put " " / " ";
|
||||||
CUROBS+1;
|
contentObs+1;
|
||||||
put @1 CUROBS +(-1) '. [License note](#license)';
|
put @1 contentObs +(-1) '. [License note](#license)';
|
||||||
put " " / "---" / " ";
|
put " " / "---" / " ";
|
||||||
|
|
||||||
putlog "Doc. note with general information ready.";
|
putlog "Doc. note with general information ready.";
|
||||||
|
|||||||
@@ -28,7 +28,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage() for help info.'
|
des = 'Macro to get help about SAS package, version 20240927. Run %helpPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -43,7 +43,7 @@ des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage()
|
|||||||
%put ### This is short help information for the `helpPackage` macro #;
|
%put ### This is short help information for the `helpPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to get help about SAS packages, version `20231210` #;
|
%put # Macro to get help about SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -120,14 +120,15 @@ des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage()
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
%let source_tmp = %sysfunc(getoption(source));
|
%let source_tmp = %sysfunc(getoption(source));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -170,7 +171,8 @@ des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage()
|
|||||||
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp. msglevel = &msglevel_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.
|
||||||
|
msglevel = &msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofhelpPackage:
|
%ENDofhelpPackage:
|
||||||
%mend helpPackage;
|
%mend helpPackage;
|
||||||
|
|||||||
@@ -1,5 +1,5 @@
|
|||||||
/*+installPackage+*/
|
/*+installPackage+*/
|
||||||
/* Macros to install SAS packages, version 20231210 */
|
/* Macros to install SAS packages, version 20240927 */
|
||||||
/* A SAS package is a zip file containing a group of files
|
/* A SAS package is a zip file containing a group of files
|
||||||
with SAS code (macros, functions, data steps generating
|
with SAS code (macros, functions, data steps generating
|
||||||
data, etc.) wrapped up together and %INCLUDEed by
|
data, etc.) wrapped up together and %INCLUDEed by
|
||||||
@@ -18,11 +18,12 @@
|
|||||||
, URLoptions = /* options for the `sourcePath` URLs */
|
, URLoptions = /* options for the `sourcePath` URLs */
|
||||||
, loadAddCnt=0 /* should the additional content be loaded?
|
, loadAddCnt=0 /* should the additional content be loaded?
|
||||||
default is 0 - means No, 1 means Yes */
|
default is 0 - means No, 1 means Yes */
|
||||||
|
, SFRCVN = /* name of a macro variable to store success-failure return code value */
|
||||||
)
|
)
|
||||||
/secure
|
/secure
|
||||||
minoperator
|
minoperator
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to install SAS package, version 20231210. Run %%installPackage() for help info.'
|
des = 'Macro to install SAS package, version 20240927. Run %%installPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -37,7 +38,7 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put ### This is short help information for the `installPackage` macro #;
|
%put ### This is short help information for the `installPackage` macro #;
|
||||||
%put #--------------------------------------------------------------------------------------------#;;
|
%put #--------------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to install SAS packages, version `20231210` #;
|
%put # Macro to install SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -81,7 +82,7 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put # - `version=` Indicates which historical version of a package to install. #;
|
%put # - `version=` Indicates which historical version of a package to install. #;
|
||||||
%put # Historical version are available only if `mirror=0` is set. #;
|
%put # Historical version are available only if `mirror=0` is set. #;
|
||||||
%put # Default value is null which means "install the latest". #;
|
%put # Default value is null which means "install the latest". #;
|
||||||
%put # When there are multiple packages to install version #;
|
%put # When there are multiple packages to install version variable #;
|
||||||
%put # is scan sequentially. #;
|
%put # is scan sequentially. #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # - `replace=` With default value of `1` it causes existing package file #;
|
%put # - `replace=` With default value of `1` it causes existing package file #;
|
||||||
@@ -101,6 +102,11 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put # directory in `<packageName>_AdditionalContent` folder. #;
|
%put # directory in `<packageName>_AdditionalContent` folder. #;
|
||||||
%put # For other locations use `%nrstr(%%loadPackageAddCnt())` macro. #;
|
%put # For other locations use `%nrstr(%%loadPackageAddCnt())` macro. #;
|
||||||
%put # #;
|
%put # #;
|
||||||
|
%put # - `SFRCVN=` *Optional.* Provides a NAME for a macro variable to store value of the #;
|
||||||
|
%put # *success-failure return code* of the installation process. Return value #;
|
||||||
|
%put # has the following form: `<number of successes>.<number of failures>` #;
|
||||||
|
%put # The macro variable is created as a *global* macro variable. #;
|
||||||
|
%put # #;
|
||||||
%put #--------------------------------------------------------------------------------------------#;
|
%put #--------------------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
@@ -149,7 +155,7 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
|
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
@@ -158,8 +164,9 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
/*
|
/*
|
||||||
Reference:
|
Reference:
|
||||||
@@ -233,6 +240,10 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put ;
|
%put ;
|
||||||
%put INFO: Calling: &packagesNames.;
|
%put INFO: Calling: &packagesNames.;
|
||||||
|
|
||||||
|
%Local PackagesInstalledSussess PackagesInstalledFail;
|
||||||
|
%Let PackagesInstalledSussess=;
|
||||||
|
%let PackagesInstalledFail=;
|
||||||
|
|
||||||
%do i = 1 %to %sysfunc(countw(&packagesNames., , S));
|
%do i = 1 %to %sysfunc(countw(&packagesNames., , S));
|
||||||
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
||||||
%local packageName packageSubDir vers versA versB;
|
%local packageName packageSubDir vers versA versB;
|
||||||
@@ -266,6 +277,8 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%do;
|
%do;
|
||||||
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/&vers./SPF/SPFinit.sas;
|
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/&vers./SPF/SPFinit.sas;
|
||||||
%end;
|
%end;
|
||||||
|
%if %superq(mirror) > 1 %then
|
||||||
|
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
||||||
|
|
||||||
filename &in URL
|
filename &in URL
|
||||||
"&SPFinitMirror."
|
"&SPFinitMirror."
|
||||||
@@ -286,6 +299,12 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%let packageSubDir = %lowcase(&packageName.)/raw/&vers./;
|
%let packageSubDir = %lowcase(&packageName.)/raw/&vers./;
|
||||||
%end;
|
%end;
|
||||||
%end;
|
%end;
|
||||||
|
%else
|
||||||
|
%do;
|
||||||
|
%if %superq(mirror) > 0 %then
|
||||||
|
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
||||||
|
%end;
|
||||||
|
|
||||||
filename &in URL "&sourcePath.&packageSubDir.%lowcase(&packageName.).zip"
|
filename &in URL "&sourcePath.&packageSubDir.%lowcase(&packageName.).zip"
|
||||||
%if (%superq(URLuser) ne ) %then
|
%if (%superq(URLuser) ne ) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -360,6 +379,21 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
filename &in clear;
|
filename &in clear;
|
||||||
filename &out clear;
|
filename &out clear;
|
||||||
|
|
||||||
|
%if 0 = &installationRC. %then
|
||||||
|
%do;
|
||||||
|
%if %superq(vers)= %then
|
||||||
|
%Let PackagesInstalledSussess=&PackagesInstalledSussess. &packageName.;
|
||||||
|
%else
|
||||||
|
%Let PackagesInstalledSussess=&PackagesInstalledSussess. &packageName.(&vers.);
|
||||||
|
%end;
|
||||||
|
%else
|
||||||
|
%do;
|
||||||
|
%if %superq(vers)= %then
|
||||||
|
%Let PackagesInstalledFail=&PackagesInstalledFail. &packageName.;
|
||||||
|
%else
|
||||||
|
%let PackagesInstalledFail=&PackagesInstalledFail. &packageName.(&vers.);
|
||||||
|
%end;
|
||||||
|
|
||||||
%if 1 = &loadAddCnt.
|
%if 1 = &loadAddCnt.
|
||||||
AND 0 = &installationRC.
|
AND 0 = &installationRC.
|
||||||
AND NOT (%upcase(&packageName.) in (SPFINIT SASPACKAGEFRAMEWORK SASPACKAGESFRAMEWORK))
|
AND NOT (%upcase(&packageName.) in (SPFINIT SASPACKAGEFRAMEWORK SASPACKAGESFRAMEWORK))
|
||||||
@@ -376,13 +410,59 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
|
|
||||||
|
%local sucsCount sucsCountWords;
|
||||||
|
%let sucsCount=0;
|
||||||
|
%if NOT(%superq(PackagesInstalledSussess)=) %then
|
||||||
|
%do;
|
||||||
|
%put %str( );
|
||||||
|
%let sucsCount=%sysfunc(countw(%superq(PackagesInstalledSussess),%str( )));
|
||||||
|
%if 1=&sucsCount. %then
|
||||||
|
%put INFO: Package %superq(PackagesInstalledSussess) installed.;
|
||||||
|
%else %if 1<&sucsCount. %then
|
||||||
|
%do;
|
||||||
|
%let sucsCountWords=%sysfunc(abs(&sucsCount.),words.);
|
||||||
|
%put INFO: Successfully installed &sucsCountWords. packages:;
|
||||||
|
%put %str( )&PackagesInstalledSussess.;
|
||||||
|
%end;
|
||||||
|
%end;
|
||||||
|
|
||||||
|
%local failCount failCountWords;
|
||||||
|
%let failCount=0;
|
||||||
|
%if NOT(%superq(PackagesInstalledFail)=) %then
|
||||||
|
%do;
|
||||||
|
%put %str( );
|
||||||
|
%let failCount=%sysfunc(countw(%superq(PackagesInstalledFail),%str( )));
|
||||||
|
%if 1=&failCount. %then
|
||||||
|
%put WARNING: Failed to install %superq(PackagesInstalledFail) package.;
|
||||||
|
%else %if 1<&failCount. %then
|
||||||
|
%do;
|
||||||
|
%let failCountWords=%sysfunc(abs(&failCount.),words.);
|
||||||
|
%put WARNING: Failed to install &failCountWords. packages:;
|
||||||
|
%put WARNING- &PackagesInstalledFail.;
|
||||||
|
%end;
|
||||||
|
%end;
|
||||||
|
%put %str( );
|
||||||
|
|
||||||
|
%if NOT(%superq(SFRCVN)=) %then
|
||||||
|
%do;
|
||||||
|
data _null_;
|
||||||
|
length SFRCVN $ 32;
|
||||||
|
SFRCVN = compress(symget('SFRCVN'),"_","KAD");
|
||||||
|
value = "&sucsCount..&failCount.";
|
||||||
|
put 'INFO: Success-Failure-Return-Code macroVariable Name is: ' SFRCVN
|
||||||
|
/ ' with value: ' value
|
||||||
|
/ ;
|
||||||
|
call symputX(SFRCVN, value, "G");
|
||||||
|
run;
|
||||||
|
%end;
|
||||||
|
|
||||||
%packagesListError:
|
%packagesListError:
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofinstallPackage:
|
%ENDofinstallPackage:
|
||||||
%mend installPackage;
|
%mend installPackage;
|
||||||
|
|
||||||
|
|||||||
@@ -3,7 +3,7 @@
|
|||||||
|
|
||||||
Macro to list SAS packages in packages folder.
|
Macro to list SAS packages in packages folder.
|
||||||
|
|
||||||
Version 20231210
|
Version 20240927
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -21,8 +21,9 @@
|
|||||||
*//*** HELP END ***/
|
*//*** HELP END ***/
|
||||||
|
|
||||||
|
|
||||||
%macro listPackages()/secure PARMBUFF
|
%macro listPackages()
|
||||||
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20231210.'
|
/secure PARMBUFF
|
||||||
|
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20240927.'
|
||||||
;
|
;
|
||||||
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
|
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -37,7 +38,7 @@ des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HE
|
|||||||
%put ### This is short help information for the `listPackages` macro #;
|
%put ### This is short help information for the `listPackages` macro #;
|
||||||
%put #-----------------------------------------------------------------------------------------#;;
|
%put #-----------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to list available SAS packages, version `20231210` #;
|
%put # Macro to list available SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
|
|||||||
@@ -34,7 +34,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load SAS package, version 20231210. Run %loadPackage() for help info.'
|
des = 'Macro to load SAS package, version 20240927. Run %loadPackage() for help info.'
|
||||||
minoperator
|
minoperator
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
@@ -50,7 +50,7 @@ minoperator
|
|||||||
%put ### This is short help information for the `loadPackage` macro #;
|
%put ### This is short help information for the `loadPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to *load* SAS packages, version `20231210` #;
|
%put # Macro to *load* SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -159,7 +159,7 @@ minoperator
|
|||||||
%GOTO ENDofloadPackage;
|
%GOTO ENDofloadPackage;
|
||||||
%end;
|
%end;
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
@@ -167,8 +167,9 @@ minoperator
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -278,7 +279,7 @@ minoperator
|
|||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofloadPackage:
|
%ENDofloadPackage:
|
||||||
%mend loadPackage;
|
%mend loadPackage;
|
||||||
|
|||||||
@@ -19,7 +19,7 @@
|
|||||||
is provided in required version */
|
is provided in required version */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load additional content for a SAS package, version 20231210. Run %loadPackageAddCnt() for help info.'
|
des = 'Macro to load additional content for a SAS package, version 20240927. Run %loadPackageAddCnt() for help info.'
|
||||||
minoperator
|
minoperator
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
@@ -35,7 +35,7 @@ minoperator
|
|||||||
%put ### This is short help information for the `loadPackageAddCnt` macro #;
|
%put ### This is short help information for the `loadPackageAddCnt` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to *load* additional content for a SAS package, version `20231210` #;
|
%put # Macro to *load* additional content for a SAS package, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -100,7 +100,7 @@ minoperator
|
|||||||
%GOTO ENDofloadPackageAddCnt;
|
%GOTO ENDofloadPackageAddCnt;
|
||||||
%end;
|
%end;
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp zip;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp zip;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
@@ -108,10 +108,11 @@ minoperator
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
%let zip = zip;
|
%let zip = zip;
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -364,7 +365,7 @@ minoperator
|
|||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofloadPackageAddCnt:
|
%ENDofloadPackageAddCnt:
|
||||||
%mend loadPackageAddCnt;
|
%mend loadPackageAddCnt;
|
||||||
|
|||||||
@@ -11,7 +11,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load multiple SAS packages at one run, version 20231210. Run %loadPackages() for help info.'
|
des = 'Macro to load multiple SAS packages at one run, version 20240927. Run %loadPackages() for help info.'
|
||||||
parmbuff
|
parmbuff
|
||||||
;
|
;
|
||||||
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
||||||
@@ -27,7 +27,7 @@ parmbuff
|
|||||||
%put ### This is short help information for the `loadPackageS` macro #;
|
%put ### This is short help information for the `loadPackageS` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro wrapper for the loadPackage macro, version `20231210` #;
|
%put # Macro wrapper for the loadPackage macro, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
|
|||||||
@@ -23,7 +23,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to preview content of a SAS package, version 20231210. Run %previewPackage() for help info.'
|
des = 'Macro to preview content of a SAS package, version 20240927. Run %previewPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -38,7 +38,7 @@ des = 'Macro to preview content of a SAS package, version 20231210. Run %preview
|
|||||||
%put ### This is short help information for the `previewPackage` macro #;
|
%put ### This is short help information for the `previewPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to get previwe of a SAS packages, version `20231210` #;
|
%put # Macro to get preview of a SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -106,13 +106,15 @@ des = 'Macro to preview content of a SAS package, version 20231210. Run %preview
|
|||||||
%GOTO ENDofpreviewPackage;
|
%GOTO ENDofpreviewPackage;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
%let source_tmp = %sysfunc(getoption(source));
|
%let source_tmp = %sysfunc(getoption(source));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N;
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -152,7 +154,8 @@ des = 'Macro to preview content of a SAS package, version 20231210. Run %preview
|
|||||||
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp. msglevel = &msglevel_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.
|
||||||
|
msglevel = &msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofpreviewPackage:
|
%ENDofpreviewPackage:
|
||||||
%mend previewPackage;
|
%mend previewPackage;
|
||||||
|
|||||||
@@ -20,7 +20,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for help info.'
|
des = 'Macro to unload SAS package, version 20240927. Run %unloadPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -35,7 +35,7 @@ des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for h
|
|||||||
%put ### This is short help information for the `unloadPackage` macro #;
|
%put ### This is short help information for the `unloadPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to unload SAS packages, version `20231210` #;
|
%put # Macro to unload SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -102,14 +102,15 @@ des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for h
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
%let source_tmp = %sysfunc(getoption(source));
|
%let source_tmp = %sysfunc(getoption(source));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -149,7 +150,8 @@ des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for h
|
|||||||
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp. msglevel = &msglevel_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.
|
||||||
|
msglevel = &msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofunloadPackage:
|
%ENDofunloadPackage:
|
||||||
%mend unloadPackage;
|
%mend unloadPackage;
|
||||||
|
|||||||
@@ -13,7 +13,7 @@
|
|||||||
hashing_file() function, SAS 9.4M6 */
|
hashing_file() function, SAS 9.4M6 */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %verifyPackage() for help info.'
|
des = 'Macro to verify SAS package with the hash digest, version 20240927. Run %verifyPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -28,7 +28,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
%put ### This is short help information for the `verifyPackage` macro #;
|
%put ### This is short help information for the `verifyPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to verify SAS package with it hash digest, version `20231210` #;
|
%put # Macro to verify SAS package with it hash digest, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -83,7 +83,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
%GOTO ENDofverifyPackage;
|
%GOTO ENDofverifyPackage;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
@@ -91,8 +91,9 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -176,7 +177,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofverifyPackage:
|
%ENDofverifyPackage:
|
||||||
%mend verifyPackage;
|
%mend verifyPackage;
|
||||||
|
|||||||
@@ -22,7 +22,7 @@ A **SAS package** is an automatically generated, single, stand alone *zip* file
|
|||||||
|
|
||||||
The *purpose of a package* is to be a simple, and easy to access, code sharing medium, which will allow: on the one hand, to separate the code complex dependencies created by the developer from the user experience with the final product and, on the other hand, reduce developer's and user's unnecessary frustration related to a remote deployment process.
|
The *purpose of a package* is to be a simple, and easy to access, code sharing medium, which will allow: on the one hand, to separate the code complex dependencies created by the developer from the user experience with the final product and, on the other hand, reduce developer's and user's unnecessary frustration related to a remote deployment process.
|
||||||
|
|
||||||
In this repository we are presenting the **SAS Packages Framework** which allows to develop and use SAS packages. The latest version of SPF is **`20231210`**.
|
In this repository we are presenting the **SAS Packages Framework** which allows to develop and use SAS packages. The latest version of SPF is **`20240927`**.
|
||||||
|
|
||||||
**To get started with SAS Packages** try this [**`Getting Started with SAS Packages`**](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/Documentation/Getting_Started_with_SAS_Packages.pdf "Getting Started with SAS Packages") presentation (see the `./SPF/Documentation` directory).
|
**To get started with SAS Packages** try this [**`Getting Started with SAS Packages`**](https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/Documentation/Getting_Started_with_SAS_Packages.pdf "Getting Started with SAS Packages") presentation (see the `./SPF/Documentation` directory).
|
||||||
|
|
||||||
@@ -40,7 +40,7 @@ After assigning the directory do not change them when using the SPF since it may
|
|||||||
## This is short help information for the `installPackage` macro <a name="installpackage"></a>
|
## This is short help information for the `installPackage` macro <a name="installpackage"></a>
|
||||||
--------------------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to install SAS packages, version `20231210`
|
Macro to install SAS packages, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -103,6 +103,11 @@ After assigning the directory do not change them when using the SPF since it may
|
|||||||
directory in `<packageName>_AdditionalContent` folder.
|
directory in `<packageName>_AdditionalContent` folder.
|
||||||
For other locations use `%loadPackageAddCnt()` macro.
|
For other locations use `%loadPackageAddCnt()` macro.
|
||||||
|
|
||||||
|
- `SFRCVN=` *Optional.* Provides a NAME for a macro variable to store value of the
|
||||||
|
*success-failure return code* of the installation process. Return value
|
||||||
|
has the following form: `<number of successes>.<number of failures>`
|
||||||
|
The macro variable is created as a *global* macro variable.
|
||||||
|
|
||||||
--------------------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` to learn more.
|
Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` to learn more.
|
||||||
@@ -149,7 +154,7 @@ filename packages "C:/SAS_PACKAGES";
|
|||||||
## This is short help information for the `helpPackage` macro <a name="helppackage"></a>
|
## This is short help information for the `helpPackage` macro <a name="helppackage"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to get help about SAS packages, version `20231210`
|
Macro to get help about SAS packages, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -225,7 +230,7 @@ filename packages "C:/SAS_PACKAGES"; %* setup a directory for packages;
|
|||||||
## This is short help information for the `loadPackage` macro <a name="loadpackage"></a>
|
## This is short help information for the `loadPackage` macro <a name="loadpackage"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to *load* SAS packages, version `20231210`
|
Macro to *load* SAS packages, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -377,7 +382,7 @@ If created, those macros are automatically deleted when the `%unloadPackage()` m
|
|||||||
## This is short help information for the `loadPackageS` macro <a name="loadpackages"></a>
|
## This is short help information for the `loadPackageS` macro <a name="loadpackages"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro wrapper for the loadPackage macro, version `20231210`
|
Macro wrapper for the loadPackage macro, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -426,7 +431,7 @@ filename packages "C:/SAS_PACKAGES"; %* setup a directory for packages;
|
|||||||
## This is short help information for the `unloadPackage` macro <a name="unloadpackage"></a>
|
## This is short help information for the `unloadPackage` macro <a name="unloadpackage"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to unload SAS packages, version `20231210`
|
Macro to unload SAS packages, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -491,7 +496,7 @@ filename packages "C:/SAS_PACKAGES"; %* setup a directory for packages;
|
|||||||
## This is short help information for the `listPackages` macro <a name="listpackages"></a>
|
## This is short help information for the `listPackages` macro <a name="listpackages"></a>
|
||||||
-----------------------------------------------------------------------------------------
|
-----------------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to list available SAS packages, version `20231210`
|
Macro to list available SAS packages, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -532,7 +537,7 @@ filename packages "C:/SAS_PACKAGES"; %* setup a directory for packages;
|
|||||||
## This is short help information for the `verifyPackage` macro <a name="verifypackage"></a>
|
## This is short help information for the `verifyPackage` macro <a name="verifypackage"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to verify SAS package with it hash digest, version `20231210`
|
Macro to verify SAS package with it hash digest, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -586,7 +591,7 @@ filename packages "C:/SAS_PACKAGES"; %* set-up a directory for packages;
|
|||||||
## This is short help information for the `previewPackage` macro <a name="previewpackage"></a>
|
## This is short help information for the `previewPackage` macro <a name="previewpackage"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to get previwe of a SAS packages, version `20231210`
|
Macro to get preview of a SAS packages, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -653,7 +658,7 @@ filename packages "C:/SAS_PACKAGES"; %* setup a directory for packages;
|
|||||||
## This is short help information for the `generatePackage` macro <a name="generatepackage"></a>
|
## This is short help information for the `generatePackage` macro <a name="generatepackage"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to generate SAS packages, version `20231210`
|
Macro to generate SAS packages, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -868,7 +873,7 @@ All files have to have `.sas` extension. Other files are ignored.
|
|||||||
## This is short help information for the `extendPackagesFileref` macro <a name="extendpackagesfileref"></a>
|
## This is short help information for the `extendPackagesFileref` macro <a name="extendpackagesfileref"></a>
|
||||||
-----------------------------------------------------------------------------------------
|
-----------------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to list directories pointed by 'packages' fileref, version `20231210`
|
Macro to list directories pointed by 'packages' fileref, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -908,7 +913,7 @@ filename packages ("D:/NEW_DIR" %extendPackagesFileref()); %* add new directory;
|
|||||||
## This is short help information for the `loadPackageAddCnt` macro <a name="loadpackageaddcnt"></a>
|
## This is short help information for the `loadPackageAddCnt` macro <a name="loadpackageaddcnt"></a>
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
|
|
||||||
Macro to load *additional content* for a SAS package, version `20231210`
|
Macro to load *additional content* for a SAS package, version `20240927`
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
|
|||||||
249
SPF/SPFinit.sas
249
SPF/SPFinit.sas
@@ -12,7 +12,7 @@
|
|||||||
/* */
|
/* */
|
||||||
/* Here is the official version: */
|
/* Here is the official version: */
|
||||||
/*
|
/*
|
||||||
Copyright (c) 2019 - 2023 Bartosz Jablonski (yabwon@gmail.com)
|
Copyright (c) 2019 - 2024 Bartosz Jablonski (yabwon@gmail.com)
|
||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
of this software and associated documentation files (the "Software"), to deal
|
of this software and associated documentation files (the "Software"), to deal
|
||||||
@@ -42,7 +42,7 @@
|
|||||||
- to unload, or
|
- to unload, or
|
||||||
- to generate SAS packages.
|
- to generate SAS packages.
|
||||||
|
|
||||||
Version 20231210.
|
Version 20240927.
|
||||||
See examples below.
|
See examples below.
|
||||||
|
|
||||||
A SAS package is a zip file containing a group of files
|
A SAS package is a zip file containing a group of files
|
||||||
@@ -89,7 +89,7 @@
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load SAS package, version 20231210. Run %loadPackage() for help info.'
|
des = 'Macro to load SAS package, version 20240927. Run %loadPackage() for help info.'
|
||||||
minoperator
|
minoperator
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
@@ -105,7 +105,7 @@ minoperator
|
|||||||
%put ### This is short help information for the `loadPackage` macro #;
|
%put ### This is short help information for the `loadPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to *load* SAS packages, version `20231210` #;
|
%put # Macro to *load* SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -214,7 +214,7 @@ minoperator
|
|||||||
%GOTO ENDofloadPackage;
|
%GOTO ENDofloadPackage;
|
||||||
%end;
|
%end;
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
@@ -222,8 +222,9 @@ minoperator
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -333,7 +334,7 @@ minoperator
|
|||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofloadPackage:
|
%ENDofloadPackage:
|
||||||
%mend loadPackage;
|
%mend loadPackage;
|
||||||
@@ -360,7 +361,7 @@ minoperator
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for help info.'
|
des = 'Macro to unload SAS package, version 20240927. Run %unloadPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -375,7 +376,7 @@ des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for h
|
|||||||
%put ### This is short help information for the `unloadPackage` macro #;
|
%put ### This is short help information for the `unloadPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to unload SAS packages, version `20231210` #;
|
%put # Macro to unload SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -442,14 +443,15 @@ des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for h
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
%let source_tmp = %sysfunc(getoption(source));
|
%let source_tmp = %sysfunc(getoption(source));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -489,7 +491,8 @@ des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for h
|
|||||||
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp. msglevel = &msglevel_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.
|
||||||
|
msglevel = &msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofunloadPackage:
|
%ENDofunloadPackage:
|
||||||
%mend unloadPackage;
|
%mend unloadPackage;
|
||||||
@@ -524,7 +527,7 @@ des = 'Macro to unload SAS package, version 20231210. Run %unloadPackage() for h
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage() for help info.'
|
des = 'Macro to get help about SAS package, version 20240927. Run %helpPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -539,7 +542,7 @@ des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage()
|
|||||||
%put ### This is short help information for the `helpPackage` macro #;
|
%put ### This is short help information for the `helpPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to get help about SAS packages, version `20231210` #;
|
%put # Macro to get help about SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -616,14 +619,15 @@ des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage()
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
%let source_tmp = %sysfunc(getoption(source));
|
%let source_tmp = %sysfunc(getoption(source));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -666,7 +670,8 @@ des = 'Macro to get help about SAS package, version 20231210. Run %helpPackage()
|
|||||||
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp. msglevel = &msglevel_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.
|
||||||
|
msglevel = &msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofhelpPackage:
|
%ENDofhelpPackage:
|
||||||
%mend helpPackage;
|
%mend helpPackage;
|
||||||
@@ -678,7 +683,7 @@ TODO:
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
/*+installPackage+*/
|
/*+installPackage+*/
|
||||||
/* Macros to install SAS packages, version 20231210 */
|
/* Macros to install SAS packages, version 20240927 */
|
||||||
/* A SAS package is a zip file containing a group of files
|
/* A SAS package is a zip file containing a group of files
|
||||||
with SAS code (macros, functions, data steps generating
|
with SAS code (macros, functions, data steps generating
|
||||||
data, etc.) wrapped up together and %INCLUDEed by
|
data, etc.) wrapped up together and %INCLUDEed by
|
||||||
@@ -697,11 +702,12 @@ TODO:
|
|||||||
, URLoptions = /* options for the `sourcePath` URLs */
|
, URLoptions = /* options for the `sourcePath` URLs */
|
||||||
, loadAddCnt=0 /* should the additional content be loaded?
|
, loadAddCnt=0 /* should the additional content be loaded?
|
||||||
default is 0 - means No, 1 means Yes */
|
default is 0 - means No, 1 means Yes */
|
||||||
|
, SFRCVN = /* name of a macro variable to store success-failure return code value */
|
||||||
)
|
)
|
||||||
/secure
|
/secure
|
||||||
minoperator
|
minoperator
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to install SAS package, version 20231210. Run %%installPackage() for help info.'
|
des = 'Macro to install SAS package, version 20240927. Run %%installPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -716,7 +722,7 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put ### This is short help information for the `installPackage` macro #;
|
%put ### This is short help information for the `installPackage` macro #;
|
||||||
%put #--------------------------------------------------------------------------------------------#;;
|
%put #--------------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to install SAS packages, version `20231210` #;
|
%put # Macro to install SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -760,7 +766,7 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put # - `version=` Indicates which historical version of a package to install. #;
|
%put # - `version=` Indicates which historical version of a package to install. #;
|
||||||
%put # Historical version are available only if `mirror=0` is set. #;
|
%put # Historical version are available only if `mirror=0` is set. #;
|
||||||
%put # Default value is null which means "install the latest". #;
|
%put # Default value is null which means "install the latest". #;
|
||||||
%put # When there are multiple packages to install version #;
|
%put # When there are multiple packages to install version variable #;
|
||||||
%put # is scan sequentially. #;
|
%put # is scan sequentially. #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # - `replace=` With default value of `1` it causes existing package file #;
|
%put # - `replace=` With default value of `1` it causes existing package file #;
|
||||||
@@ -780,6 +786,11 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put # directory in `<packageName>_AdditionalContent` folder. #;
|
%put # directory in `<packageName>_AdditionalContent` folder. #;
|
||||||
%put # For other locations use `%nrstr(%%loadPackageAddCnt())` macro. #;
|
%put # For other locations use `%nrstr(%%loadPackageAddCnt())` macro. #;
|
||||||
%put # #;
|
%put # #;
|
||||||
|
%put # - `SFRCVN=` *Optional.* Provides a NAME for a macro variable to store value of the #;
|
||||||
|
%put # *success-failure return code* of the installation process. Return value #;
|
||||||
|
%put # has the following form: `<number of successes>.<number of failures>` #;
|
||||||
|
%put # The macro variable is created as a *global* macro variable. #;
|
||||||
|
%put # #;
|
||||||
%put #--------------------------------------------------------------------------------------------#;
|
%put #--------------------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
%put # Visit: `https://github.com/yabwon/SAS_PACKAGES/tree/main/SPF/Documentation` #;
|
||||||
@@ -828,7 +839,7 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
|
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
@@ -837,8 +848,9 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
/*
|
/*
|
||||||
Reference:
|
Reference:
|
||||||
@@ -912,6 +924,10 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%put ;
|
%put ;
|
||||||
%put INFO: Calling: &packagesNames.;
|
%put INFO: Calling: &packagesNames.;
|
||||||
|
|
||||||
|
%Local PackagesInstalledSussess PackagesInstalledFail;
|
||||||
|
%Let PackagesInstalledSussess=;
|
||||||
|
%let PackagesInstalledFail=;
|
||||||
|
|
||||||
%do i = 1 %to %sysfunc(countw(&packagesNames., , S));
|
%do i = 1 %to %sysfunc(countw(&packagesNames., , S));
|
||||||
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
||||||
%local packageName packageSubDir vers versA versB;
|
%local packageName packageSubDir vers versA versB;
|
||||||
@@ -945,6 +961,8 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%do;
|
%do;
|
||||||
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/&vers./SPF/SPFinit.sas;
|
%let SPFinitMirror = https://raw.githubusercontent.com/yabwon/SAS_PACKAGES/&vers./SPF/SPFinit.sas;
|
||||||
%end;
|
%end;
|
||||||
|
%if %superq(mirror) > 1 %then
|
||||||
|
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
||||||
|
|
||||||
filename &in URL
|
filename &in URL
|
||||||
"&SPFinitMirror."
|
"&SPFinitMirror."
|
||||||
@@ -965,6 +983,12 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
%let packageSubDir = %lowcase(&packageName.)/raw/&vers./;
|
%let packageSubDir = %lowcase(&packageName.)/raw/&vers./;
|
||||||
%end;
|
%end;
|
||||||
%end;
|
%end;
|
||||||
|
%else
|
||||||
|
%do;
|
||||||
|
%if %superq(mirror) > 0 %then
|
||||||
|
%put %str( )Mirror %superq(mirror) does not support versioning.;
|
||||||
|
%end;
|
||||||
|
|
||||||
filename &in URL "&sourcePath.&packageSubDir.%lowcase(&packageName.).zip"
|
filename &in URL "&sourcePath.&packageSubDir.%lowcase(&packageName.).zip"
|
||||||
%if (%superq(URLuser) ne ) %then
|
%if (%superq(URLuser) ne ) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -1039,6 +1063,21 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
filename &in clear;
|
filename &in clear;
|
||||||
filename &out clear;
|
filename &out clear;
|
||||||
|
|
||||||
|
%if 0 = &installationRC. %then
|
||||||
|
%do;
|
||||||
|
%if %superq(vers)= %then
|
||||||
|
%Let PackagesInstalledSussess=&PackagesInstalledSussess. &packageName.;
|
||||||
|
%else
|
||||||
|
%Let PackagesInstalledSussess=&PackagesInstalledSussess. &packageName.(&vers.);
|
||||||
|
%end;
|
||||||
|
%else
|
||||||
|
%do;
|
||||||
|
%if %superq(vers)= %then
|
||||||
|
%Let PackagesInstalledFail=&PackagesInstalledFail. &packageName.;
|
||||||
|
%else
|
||||||
|
%let PackagesInstalledFail=&PackagesInstalledFail. &packageName.(&vers.);
|
||||||
|
%end;
|
||||||
|
|
||||||
%if 1 = &loadAddCnt.
|
%if 1 = &loadAddCnt.
|
||||||
AND 0 = &installationRC.
|
AND 0 = &installationRC.
|
||||||
AND NOT (%upcase(&packageName.) in (SPFINIT SASPACKAGEFRAMEWORK SASPACKAGESFRAMEWORK))
|
AND NOT (%upcase(&packageName.) in (SPFINIT SASPACKAGEFRAMEWORK SASPACKAGESFRAMEWORK))
|
||||||
@@ -1055,13 +1094,59 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
/*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*/
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
|
|
||||||
|
%local sucsCount sucsCountWords;
|
||||||
|
%let sucsCount=0;
|
||||||
|
%if NOT(%superq(PackagesInstalledSussess)=) %then
|
||||||
|
%do;
|
||||||
|
%put %str( );
|
||||||
|
%let sucsCount=%sysfunc(countw(%superq(PackagesInstalledSussess),%str( )));
|
||||||
|
%if 1=&sucsCount. %then
|
||||||
|
%put INFO: Package %superq(PackagesInstalledSussess) installed.;
|
||||||
|
%else %if 1<&sucsCount. %then
|
||||||
|
%do;
|
||||||
|
%let sucsCountWords=%sysfunc(abs(&sucsCount.),words.);
|
||||||
|
%put INFO: Successfully installed &sucsCountWords. packages:;
|
||||||
|
%put %str( )&PackagesInstalledSussess.;
|
||||||
|
%end;
|
||||||
|
%end;
|
||||||
|
|
||||||
|
%local failCount failCountWords;
|
||||||
|
%let failCount=0;
|
||||||
|
%if NOT(%superq(PackagesInstalledFail)=) %then
|
||||||
|
%do;
|
||||||
|
%put %str( );
|
||||||
|
%let failCount=%sysfunc(countw(%superq(PackagesInstalledFail),%str( )));
|
||||||
|
%if 1=&failCount. %then
|
||||||
|
%put WARNING: Failed to install %superq(PackagesInstalledFail) package.;
|
||||||
|
%else %if 1<&failCount. %then
|
||||||
|
%do;
|
||||||
|
%let failCountWords=%sysfunc(abs(&failCount.),words.);
|
||||||
|
%put WARNING: Failed to install &failCountWords. packages:;
|
||||||
|
%put WARNING- &PackagesInstalledFail.;
|
||||||
|
%end;
|
||||||
|
%end;
|
||||||
|
%put %str( );
|
||||||
|
|
||||||
|
%if NOT(%superq(SFRCVN)=) %then
|
||||||
|
%do;
|
||||||
|
data _null_;
|
||||||
|
length SFRCVN $ 32;
|
||||||
|
SFRCVN = compress(symget('SFRCVN'),"_","KAD");
|
||||||
|
value = "&sucsCount..&failCount.";
|
||||||
|
put 'INFO: Success-Failure-Return-Code macroVariable Name is: ' SFRCVN
|
||||||
|
/ ' with value: ' value
|
||||||
|
/ ;
|
||||||
|
call symputX(SFRCVN, value, "G");
|
||||||
|
run;
|
||||||
|
%end;
|
||||||
|
|
||||||
%packagesListError:
|
%packagesListError:
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofinstallPackage:
|
%ENDofinstallPackage:
|
||||||
%mend installPackage;
|
%mend installPackage;
|
||||||
|
|
||||||
@@ -1170,7 +1255,7 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
|
|
||||||
Macro to list SAS packages in packages folder.
|
Macro to list SAS packages in packages folder.
|
||||||
|
|
||||||
Version 20231210
|
Version 20240927
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -1188,8 +1273,9 @@ des = 'Macro to install SAS package, version 20231210. Run %%installPackage() fo
|
|||||||
*//*** HELP END ***/
|
*//*** HELP END ***/
|
||||||
|
|
||||||
|
|
||||||
%macro listPackages()/secure PARMBUFF
|
%macro listPackages()
|
||||||
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20231210.'
|
/secure PARMBUFF
|
||||||
|
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20240927.'
|
||||||
;
|
;
|
||||||
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
|
%if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -1204,7 +1290,7 @@ des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HE
|
|||||||
%put ### This is short help information for the `listPackages` macro #;
|
%put ### This is short help information for the `listPackages` macro #;
|
||||||
%put #-----------------------------------------------------------------------------------------#;;
|
%put #-----------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to list available SAS packages, version `20231210` #;
|
%put # Macro to list available SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -1355,7 +1441,7 @@ options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
|||||||
|
|
||||||
Macro to generate SAS packages.
|
Macro to generate SAS packages.
|
||||||
|
|
||||||
Version 20231210
|
Version 20240927
|
||||||
|
|
||||||
A SAS package is a zip file containing a group
|
A SAS package is a zip file containing a group
|
||||||
of SAS codes (macros, functions, data steps generating
|
of SAS codes (macros, functions, data steps generating
|
||||||
@@ -1395,7 +1481,7 @@ options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.;
|
|||||||
file name be created */
|
file name be created */
|
||||||
)/ secure minoperator
|
)/ secure minoperator
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to generate SAS packages, version 20231210. Run %generatePackage() for help info.'
|
des = 'Macro to generate SAS packages, version 20240927. Run %generatePackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
|
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -1410,7 +1496,7 @@ des = 'Macro to generate SAS packages, version 20231210. Run %generatePackage()
|
|||||||
%put ### This is short help information for the `generatePackage` macro #;
|
%put ### This is short help information for the `generatePackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to generate SAS packages, version `20231210` #;
|
%put # Macro to generate SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -1986,6 +2072,7 @@ data &filesWithCodes.;
|
|||||||
put;
|
put;
|
||||||
_abort_ + 1;
|
_abort_ + 1;
|
||||||
end;
|
end;
|
||||||
|
length fileshort $ 256;
|
||||||
fileshort = substr(file, 1, length(file) - 4); /* filename.sas -> filename */
|
fileshort = substr(file, 1, length(file) - 4); /* filename.sas -> filename */
|
||||||
|
|
||||||
if strip(reverse(file)) in: ('sas.') then output; /* ignore not ".sas" files */
|
if strip(reverse(file)) in: ('sas.') then output; /* ignore not ".sas" files */
|
||||||
@@ -2206,7 +2293,7 @@ title6 "MD5 hashed fileref of package lowcase name: &_PackageFileref_.";
|
|||||||
title8 "Required SAS packages: %qsysfunc(compress(%superq(packageReqPackages),%str(%'%")))" ; /* " */
|
title8 "Required SAS packages: %qsysfunc(compress(%superq(packageReqPackages),%str(%'%")))" ; /* " */
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
footnote1 "SAS Packages Framework, version 20231210";
|
footnote1 "SAS Packages Framework, version 20240927";
|
||||||
|
|
||||||
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);
|
||||||
run;
|
run;
|
||||||
@@ -2927,7 +3014,7 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
put +(-1) '`.;''' /
|
put +(-1) '`.;''' /
|
||||||
' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"' /
|
' !! '' %put The macro generated: '' !! put(dtCASLudf, E8601DT19.-L) !! ";"' /
|
||||||
' !! '' %put with the SAS Packages Framework version 20231210.;''' /
|
' !! '' %put with the SAS Packages Framework version 20240927.;''' /
|
||||||
' !! '' %put ****************************************************************************;''' /
|
' !! '' %put ****************************************************************************;''' /
|
||||||
' !! '' %GOTO theEndOfTheMacro;''' /
|
' !! '' %GOTO theEndOfTheMacro;''' /
|
||||||
' !! '' %end;''' ;
|
' !! '' %end;''' ;
|
||||||
@@ -3092,7 +3179,7 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
put +(-1) '`.; '' !!' /
|
put +(-1) '`.; '' !!' /
|
||||||
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !!' /
|
''' %put The macro generated: ''' " !! put(dtIML, E8601DT19.-L) !! " '''; '' !!' /
|
||||||
''' %put with the SAS Packages Framework version 20231210.; '' !! ' /
|
''' %put with the SAS Packages Framework version 20240927.; '' !! ' /
|
||||||
''' %put ****************************************************************************; '' !! ' /
|
''' %put ****************************************************************************; '' !! ' /
|
||||||
''' %GOTO theEndOfTheMacro; '' !! ' /
|
''' %GOTO theEndOfTheMacro; '' !! ' /
|
||||||
''' %end; '' !! ' /
|
''' %end; '' !! ' /
|
||||||
@@ -3246,7 +3333,7 @@ data _null_;
|
|||||||
/ ' putlog / @7 "Should you have any problem with finding the file consider moving";'
|
/ ' putlog / @7 "Should you have any problem with finding the file consider moving";'
|
||||||
/ ' putlog @7 "it to a location of your choice with the help of the following snippet:";'
|
/ ' putlog @7 "it to a location of your choice with the help of the following snippet:";'
|
||||||
/ ' putlog / @7 " filename KMFin " "''%sysfunc(pathname(WORK))/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
/ ' putlog / @7 " filename KMFin " "''%sysfunc(pathname(WORK))/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
||||||
/ ' putlog @7 " filename KMFout ""</directory/of/your/choice>/testpackageclean.kmf"" lrecl=1 recfm=n;";'
|
/ ' putlog / @7 " filename KMFout " "''</directory/of/your/choice>/%lowcase(&packageName..kmf)''" " lrecl=1 recfm=n;";'
|
||||||
/ ' putlog @7 '' %put *%sysfunc(fcopy(KMFin, KMFout))*(0=success)*;'';'
|
/ ' putlog @7 '' %put *%sysfunc(fcopy(KMFin, KMFout))*(0=success)*;'';'
|
||||||
/ ' putlog / "0a"x / " ";'
|
/ ' putlog / "0a"x / " ";'
|
||||||
|
|
||||||
@@ -3483,7 +3570,7 @@ data _null_;
|
|||||||
if not (upcase(type)=:'MACRO') then continue;
|
if not (upcase(type)=:'MACRO') then continue;
|
||||||
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
||||||
put ' %put NOTE- ;';
|
put ' %put NOTE- ;';
|
||||||
put ' ,"' fileshort upcase32. '"' /;
|
put ' ,"' fileshort upcase64. '"' /;
|
||||||
end;
|
end;
|
||||||
/**/
|
/**/
|
||||||
put ' )';
|
put ' )';
|
||||||
@@ -3501,7 +3588,7 @@ data _null_;
|
|||||||
if not (upcase(type)=:'FORMAT') then continue;
|
if not (upcase(type)=:'FORMAT') then continue;
|
||||||
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
put ' %put NOTE- Element of type ' type 'generated from the file "' file +(-1) '" will be deleted;';
|
||||||
put ' %put NOTE- ;';
|
put ' %put NOTE- ;';
|
||||||
put ' ,"' fileshort upcase32. '"' /;
|
put ' ,"' fileshort upcase64. '"' /;
|
||||||
isFormat + 1;
|
isFormat + 1;
|
||||||
end;
|
end;
|
||||||
put ' )';
|
put ' )';
|
||||||
@@ -3741,6 +3828,7 @@ data _null_;
|
|||||||
set &filesWithCodes. end = EOFDS nobs = NOBS;
|
set &filesWithCodes. end = EOFDS nobs = NOBS;
|
||||||
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
||||||
|
|
||||||
|
length fileshort2 $ 256;
|
||||||
select;
|
select;
|
||||||
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
||||||
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
||||||
@@ -3879,7 +3967,7 @@ data _null_;
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
put 'put " " / @3 "--------------------------------------------------------------------" / " ";'
|
put 'put " " / @3 "--------------------------------------------------------------------" / " ";'
|
||||||
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20231210`*";'
|
/ 'put @3 "*SAS package generated by SAS Package Framework, version `20240927`*";'
|
||||||
/ 'put " " / @3 "--------------------------------------------------------------------";';
|
/ 'put " " / @3 "--------------------------------------------------------------------";';
|
||||||
|
|
||||||
put 'run; ' /;
|
put 'run; ' /;
|
||||||
@@ -3916,6 +4004,7 @@ data _null_;
|
|||||||
set &filesWithCodes. end = EOFDS;
|
set &filesWithCodes. end = EOFDS;
|
||||||
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
||||||
|
|
||||||
|
length fileshort2 $ 256;
|
||||||
select;
|
select;
|
||||||
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
when (upcase(type) in ("DATA" "LAZYDATA")) fileshort2 = cats("'", fileshort, "'" );
|
||||||
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
when (upcase(type) =: "MACRO" ) fileshort2 = cats('''%', fileshort, "()'");
|
||||||
@@ -4856,10 +4945,10 @@ data &filesWithCodes.markdown;
|
|||||||
packageHashC=symget("packageHashC");
|
packageHashC=symget("packageHashC");
|
||||||
drop package:;
|
drop package:;
|
||||||
|
|
||||||
put " " / "---" / " "
|
put " " / 64*"-" / " "
|
||||||
/ "### Version information:"
|
|
||||||
/ " "
|
|
||||||
/ ' *' packageTitle +(-1)'* '
|
/ ' *' packageTitle +(-1)'* '
|
||||||
|
/ " " / 64*"-" / " "
|
||||||
|
/ "### Version information:"
|
||||||
/ " "
|
/ " "
|
||||||
/ "- Package: &packageName."
|
/ "- Package: &packageName."
|
||||||
/ "- Version: &packageVersion."
|
/ "- Version: &packageVersion."
|
||||||
@@ -4915,22 +5004,42 @@ data &filesWithCodes.markdown;
|
|||||||
%end;
|
%end;
|
||||||
|
|
||||||
put " " / "--------------------------------------------------------------------" / " "
|
put " " / "--------------------------------------------------------------------" / " "
|
||||||
/ "*SAS package generated by SAS Package Framework, version `20231210`*"
|
/ "*SAS package generated by SAS Package Framework, version `20240927`*"
|
||||||
/ " " / "--------------------------------------------------------------------" / " ";
|
/ " " / "--------------------------------------------------------------------" / " ";
|
||||||
|
|
||||||
put "# The `&packageName.` package content";
|
put "# The `&packageName.` package content";
|
||||||
put "The `&packageName.` package consists of the following content:";
|
put "The `&packageName.` package consists of the following content:" / " ";
|
||||||
EOFDS = 0;
|
EOFDS = 0;
|
||||||
do until(EOFDS);
|
do until(EOFDS);
|
||||||
/* content is created during package creation */
|
/* content is created during package creation */
|
||||||
set &filesWithCodes. end = EOFDS nobs = NOBS curobs = CUROBS;
|
set &filesWithCodes. end = EOFDS nobs = NOBS curobs = CUROBS;
|
||||||
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
if upcase(type) in: ('TEST') then continue; /* exclude tests */
|
||||||
|
|
||||||
|
/*
|
||||||
|
To exclude file from being added to the documentation
|
||||||
|
insert the "excluding" text(see below) as a comment
|
||||||
|
in the FIRST line of the file.
|
||||||
|
Do not add spaces.
|
||||||
|
|
||||||
|
For each file the first line is read in and checked.
|
||||||
|
*/
|
||||||
|
length _FILEVARPATH_ $ 4096;
|
||||||
|
_FILEVARPATH_=catx("/",base,folder,file);
|
||||||
|
infile _dummy_ FILEVAR=_FILEVARPATH_;
|
||||||
|
input;
|
||||||
|
if strip(_infile_) IN (
|
||||||
|
'/*##DoNotUse4Documentation##*/'
|
||||||
|
'/*##ExcludeFromDocumentation##*/'
|
||||||
|
'/*##ExcludeFromMarkdownDoc##*/'
|
||||||
|
)
|
||||||
|
then continue; /* exclude file from documentation */
|
||||||
|
|
||||||
type2=type;
|
type2=type;
|
||||||
length link $ 256;
|
length link $ 256;
|
||||||
link=catx("-",compress(fileshort,,"KAD"),type,CUROBS);
|
link=catx("-",compress(fileshort,,"KAD"),type,CUROBS);
|
||||||
|
length fileshort $ 256;
|
||||||
select;
|
select;
|
||||||
when (upcase(type) =: "MACRO" ) fileshort2 = cats('`%', fileshort, "()`");
|
when (upcase(type) =: "MACRO" ) do; fileshort2 = cats('`%', fileshort, "()`"); type2='macro'; end;
|
||||||
when (upcase(type) =: "FORMAT" ) do; fileshort2 = cats("`$", fileshort, ".`"); type2='format/informat'; end;
|
when (upcase(type) =: "FORMAT" ) do; fileshort2 = cats("`$", fileshort, ".`"); type2='format/informat'; end;
|
||||||
when (upcase(type) =: "FUNCTION" ) do; fileshort2 = cats("`", fileshort, "()`"); type2='function'; end;
|
when (upcase(type) =: "FUNCTION" ) do; fileshort2 = cats("`", fileshort, "()`"); type2='function'; end;
|
||||||
when (upcase(type) =: "IMLMODULE") fileshort2 = cats("`", fileshort, "()`");
|
when (upcase(type) =: "IMLMODULE") fileshort2 = cats("`", fileshort, "()`");
|
||||||
@@ -4939,13 +5048,14 @@ data &filesWithCodes.markdown;
|
|||||||
otherwise fileshort2 = cats("`", fileshort, "`");
|
otherwise fileshort2 = cats("`", fileshort, "`");
|
||||||
end;
|
end;
|
||||||
|
|
||||||
put @1 CUROBS +(-1) '. [' fileshort2 type2'](#' link ')';
|
contentObs + 1;
|
||||||
|
put @1 contentObs +(-1) '. [' fileshort2 type2'](#' link ')';
|
||||||
output;
|
output;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
put " " / " ";
|
put " " / " ";
|
||||||
CUROBS+1;
|
contentObs+1;
|
||||||
put @1 CUROBS +(-1) '. [License note](#license)';
|
put @1 contentObs +(-1) '. [License note](#license)';
|
||||||
put " " / "---" / " ";
|
put " " / "---" / " ";
|
||||||
|
|
||||||
putlog "Doc. note with general information ready.";
|
putlog "Doc. note with general information ready.";
|
||||||
@@ -5172,7 +5282,7 @@ TODO: (in Polish)
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load multiple SAS packages at one run, version 20231210. Run %loadPackages() for help info.'
|
des = 'Macro to load multiple SAS packages at one run, version 20240927. Run %loadPackages() for help info.'
|
||||||
parmbuff
|
parmbuff
|
||||||
;
|
;
|
||||||
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
%if (%superq(packagesNames) = ) OR (%qupcase(&packagesNames.) = HELP) %then
|
||||||
@@ -5188,7 +5298,7 @@ parmbuff
|
|||||||
%put ### This is short help information for the `loadPackageS` macro #;
|
%put ### This is short help information for the `loadPackageS` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro wrapper for the loadPackage macro, version `20231210` #;
|
%put # Macro wrapper for the loadPackage macro, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -5285,7 +5395,7 @@ parmbuff
|
|||||||
hashing_file() function, SAS 9.4M6 */
|
hashing_file() function, SAS 9.4M6 */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %verifyPackage() for help info.'
|
des = 'Macro to verify SAS package with the hash digest, version 20240927. Run %verifyPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -5300,7 +5410,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
%put ### This is short help information for the `verifyPackage` macro #;
|
%put ### This is short help information for the `verifyPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to verify SAS package with it hash digest, version `20231210` #;
|
%put # Macro to verify SAS package with it hash digest, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -5355,7 +5465,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
%GOTO ENDofverifyPackage;
|
%GOTO ENDofverifyPackage;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
@@ -5363,8 +5473,9 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -5448,7 +5559,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofverifyPackage:
|
%ENDofverifyPackage:
|
||||||
%mend verifyPackage;
|
%mend verifyPackage;
|
||||||
@@ -5479,7 +5590,7 @@ des = 'Macro to verify SAS package with the hash digest, version 20231210. Run %
|
|||||||
*/
|
*/
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to preview content of a SAS package, version 20231210. Run %previewPackage() for help info.'
|
des = 'Macro to preview content of a SAS package, version 20240927. Run %previewPackage() for help info.'
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
%do;
|
%do;
|
||||||
@@ -5494,7 +5605,7 @@ des = 'Macro to preview content of a SAS package, version 20231210. Run %preview
|
|||||||
%put ### This is short help information for the `previewPackage` macro #;
|
%put ### This is short help information for the `previewPackage` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to get previwe of a SAS packages, version `20231210` #;
|
%put # Macro to get preview of a SAS packages, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -5562,13 +5673,15 @@ des = 'Macro to preview content of a SAS package, version 20231210. Run %preview
|
|||||||
%GOTO ENDofpreviewPackage;
|
%GOTO ENDofpreviewPackage;
|
||||||
%end;
|
%end;
|
||||||
|
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
|
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp mautocomploc_tmp;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
%let source_tmp = %sysfunc(getoption(source));
|
%let source_tmp = %sysfunc(getoption(source));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
options NOnotes NOsource ls=MAX ps=MAX msglevel=N;
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
|
options NOnotes NOsource ls=MAX ps=MAX msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -5608,7 +5721,8 @@ des = 'Macro to preview content of a SAS package, version 20231210. Run %preview
|
|||||||
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
%else %put ERROR:[&sysmacroname] File "&path./&packageName..&zip." does not exist!;
|
||||||
filename &_PackageFileref_. clear;
|
filename &_PackageFileref_. clear;
|
||||||
|
|
||||||
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp. msglevel = &msglevel_tmp.;
|
options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.
|
||||||
|
msglevel = &msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofpreviewPackage:
|
%ENDofpreviewPackage:
|
||||||
%mend previewPackage;
|
%mend previewPackage;
|
||||||
@@ -5621,7 +5735,7 @@ des = 'Macro to preview content of a SAS package, version 20231210. Run %preview
|
|||||||
when empty the "packages" value is used */
|
when empty the "packages" value is used */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to list directories pointed by "packages" fileref, version 20231210. Run %extendPackagesFileref(HELP) for help info.'
|
des = 'Macro to list directories pointed by "packages" fileref, version 20240927. Run %extendPackagesFileref(HELP) for help info.'
|
||||||
;
|
;
|
||||||
|
|
||||||
%if %QUPCASE(&packages.) = HELP %then
|
%if %QUPCASE(&packages.) = HELP %then
|
||||||
@@ -5637,7 +5751,7 @@ des = 'Macro to list directories pointed by "packages" fileref, version 20231210
|
|||||||
%put ### This is short help information for the `extendPackagesFileref` macro #;
|
%put ### This is short help information for the `extendPackagesFileref` macro #;
|
||||||
%put #-----------------------------------------------------------------------------------------#;;
|
%put #-----------------------------------------------------------------------------------------#;;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to list directories pointed by 'packages' fileref, version `20231210` #;
|
%put # Macro to list directories pointed by 'packages' fileref, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -5738,7 +5852,7 @@ filename packages list;
|
|||||||
is provided in required version */
|
is provided in required version */
|
||||||
)/secure
|
)/secure
|
||||||
/*** HELP END ***/
|
/*** HELP END ***/
|
||||||
des = 'Macro to load additional content for a SAS package, version 20231210. Run %loadPackageAddCnt() for help info.'
|
des = 'Macro to load additional content for a SAS package, version 20240927. Run %loadPackageAddCnt() for help info.'
|
||||||
minoperator
|
minoperator
|
||||||
;
|
;
|
||||||
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
%if (%superq(packageName) = ) OR (%qupcase(&packageName.) = HELP) %then
|
||||||
@@ -5754,7 +5868,7 @@ minoperator
|
|||||||
%put ### This is short help information for the `loadPackageAddCnt` macro #;
|
%put ### This is short help information for the `loadPackageAddCnt` macro #;
|
||||||
%put #-------------------------------------------------------------------------------#;
|
%put #-------------------------------------------------------------------------------#;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # Macro to *load* additional content for a SAS package, version `20231210` #;
|
%put # Macro to *load* additional content for a SAS package, version `20240927` #;
|
||||||
%put # #;
|
%put # #;
|
||||||
%put # A SAS package is a zip file containing a group #;
|
%put # A SAS package is a zip file containing a group #;
|
||||||
%put # of SAS codes (macros, functions, data steps generating #;
|
%put # of SAS codes (macros, functions, data steps generating #;
|
||||||
@@ -5819,7 +5933,7 @@ minoperator
|
|||||||
%GOTO ENDofloadPackageAddCnt;
|
%GOTO ENDofloadPackageAddCnt;
|
||||||
%end;
|
%end;
|
||||||
/* local variables for options */
|
/* local variables for options */
|
||||||
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp zip;
|
%local ls_tmp ps_tmp notes_tmp source_tmp stimer_tmp fullstimer_tmp msglevel_tmp mautocomploc_tmp zip;
|
||||||
%let ls_tmp = %sysfunc(getoption(ls));
|
%let ls_tmp = %sysfunc(getoption(ls));
|
||||||
%let ps_tmp = %sysfunc(getoption(ps));
|
%let ps_tmp = %sysfunc(getoption(ps));
|
||||||
%let notes_tmp = %sysfunc(getoption(notes));
|
%let notes_tmp = %sysfunc(getoption(notes));
|
||||||
@@ -5827,10 +5941,11 @@ minoperator
|
|||||||
%let stimer_tmp = %sysfunc(getoption(stimer));
|
%let stimer_tmp = %sysfunc(getoption(stimer));
|
||||||
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
%let fullstimer_tmp = %sysfunc(getoption(fullstimer));
|
||||||
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
%let msglevel_tmp = %sysfunc(getoption(msglevel));
|
||||||
|
%let mautocomploc_tmp = %sysfunc(getoption(mautocomploc));
|
||||||
|
|
||||||
%let zip = zip;
|
%let zip = zip;
|
||||||
|
|
||||||
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N;
|
options NOnotes NOsource ls=MAX ps=MAX NOfullstimer NOstimer msglevel=N NOmautocomploc;
|
||||||
|
|
||||||
%local _PackageFileref_;
|
%local _PackageFileref_;
|
||||||
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
/* %let _PackageFileref_ = P%sysfunc(MD5(%lowcase(&packageName.)),hex7.); */
|
||||||
@@ -6083,7 +6198,7 @@ minoperator
|
|||||||
options ls = &ls_tmp. ps = &ps_tmp.
|
options ls = &ls_tmp. ps = &ps_tmp.
|
||||||
¬es_tmp. &source_tmp.
|
¬es_tmp. &source_tmp.
|
||||||
&stimer_tmp. &fullstimer_tmp.
|
&stimer_tmp. &fullstimer_tmp.
|
||||||
msglevel=&msglevel_tmp.;
|
msglevel=&msglevel_tmp. &mautocomploc_tmp.;
|
||||||
|
|
||||||
%ENDofloadPackageAddCnt:
|
%ENDofloadPackageAddCnt:
|
||||||
%mend loadPackageAddCnt;
|
%mend loadPackageAddCnt;
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
Copyright (c) 2019 - 2023 Bartosz Jablonski
|
Copyright (c) 2019 - 2024 Bartosz Jablonski
|
||||||
|
|
||||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
of this software and associated documentation files (the "Software"), to deal
|
of this software and associated documentation files (the "Software"), to deal
|
||||||
|
|||||||
@@ -86,7 +86,7 @@ SHA256 digest for macroArray: F*3F3893F1FCD78719543703E4353F4CC19811D247C016F220
|
|||||||
|
|
||||||
---
|
---
|
||||||
|
|
||||||
- **BasePlus**\[1.38.0\] adds a bunch of functionalities I am missing in BASE SAS, such as:
|
- **BasePlus**\[2.1.0\] adds a bunch of functionalities I am missing in BASE SAS, such as:
|
||||||
```sas
|
```sas
|
||||||
call arrMissToRight(myArray);
|
call arrMissToRight(myArray);
|
||||||
call arrFillMiss(17, myArray);
|
call arrFillMiss(17, myArray);
|
||||||
@@ -115,8 +115,10 @@ format x bool.;
|
|||||||
%put %date(yymmddn10.) %time(time5.) %datetime(e8601dt.);
|
%put %date(yymmddn10.) %time(time5.) %datetime(e8601dt.);
|
||||||
|
|
||||||
%put %monthShift(2023,1,-5);
|
%put %monthShift(2023,1,-5);
|
||||||
|
|
||||||
|
%put #%expandDataSetsList(lib=sashelp,datasets=_all_)#;
|
||||||
```
|
```
|
||||||
SHA256 digest for BasePlus: F*209FB8198270DEAB6151CE31391A352A065B4EE2689F40433FA9550A7F4AAC18
|
SHA256 digest for BasePlus: F*DFA83F8E0D7424DEB63D49620392068BC68D766552E2804CB6B01DE8E5A87769
|
||||||
|
|
||||||
[Documentation for BasePlus](https://github.com/yabwon/SAS_PACKAGES/blob/main/packages/baseplus.md "Documentation for BasePlus")
|
[Documentation for BasePlus](https://github.com/yabwon/SAS_PACKAGES/blob/main/packages/baseplus.md "Documentation for BasePlus")
|
||||||
|
|
||||||
|
|||||||
@@ -1,3 +1,30 @@
|
|||||||
|
/* 20240909 */
|
||||||
|
BasePlus: F*DFA83F8E0D7424DEB63D49620392068BC68D766552E2804CB6B01DE8E5A87769
|
||||||
|
|
||||||
|
/* 20240724 */
|
||||||
|
BasePlus: F*FB102C9B12E870666C15A651017D48E0141E47D64C11437350D0EC75A7E9E609
|
||||||
|
|
||||||
|
/* 20240723 */
|
||||||
|
BasePlus: F*0730DD793516E5C193842126A7EC9D339ADADD19F0F40B071F938CABDE4E66AD
|
||||||
|
|
||||||
|
/* 20240722 */
|
||||||
|
BasePlus: F*68BB953CD732EB43119A3339656670292317FE1C3B764EC57484C7D5C9DF23EB
|
||||||
|
|
||||||
|
/* 20240719 */
|
||||||
|
BasePlus: F*2129F372D72A34A4FB1F368A581EA33D64AD4D8F3707213D5B9553F3C3122003
|
||||||
|
|
||||||
|
/* 20240710 */
|
||||||
|
BasePlus: F*6012D1475AE22A4445C032D8EAE092BE515D8CD2AE390CC087F5987ACB8BCB13
|
||||||
|
|
||||||
|
/* 20240609 */
|
||||||
|
BasePlus: F*6760DDF382E7CA9A1291F028FA7F2BACB68A3D31CEA3A85104E13EA08645AEF1
|
||||||
|
|
||||||
|
/* 20240606 */
|
||||||
|
BasePlus: F*BD0333B92D7CB639A136CD4994DE0C63F8396E449E45BC714D71D2E15318F42D
|
||||||
|
|
||||||
|
/* 20240529 */
|
||||||
|
BasePlus: F*3C3A2050E3FF46E1FC0F936634A66FC3F294A3531EFE0A7DC9CE74F2EF17C687
|
||||||
|
|
||||||
/* 20240312 */
|
/* 20240312 */
|
||||||
BasePlus: F*209FB8198270DEAB6151CE31391A352A065B4EE2689F40433FA9550A7F4AAC18
|
BasePlus: F*209FB8198270DEAB6151CE31391A352A065B4EE2689F40433FA9550A7F4AAC18
|
||||||
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Reference in New Issue
Block a user