diff --git a/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf b/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf index 67ce26c..540b63d 100644 Binary files a/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf and b/SPF/Documentation/SAS(r) packages - the way to share (a how to)- Paper 4725-2020 - extended.pdf differ diff --git a/SPF/SPFinit.sas b/SPF/SPFinit.sas index 910d78d..490582f 100644 --- a/SPF/SPFinit.sas +++ b/SPF/SPFinit.sas @@ -42,7 +42,7 @@ - to unload, or - to generate SAS packages. - Version 20200807. + Version 20200810. See examples below. A SAS package is a zip file containing a group of files @@ -81,7 +81,7 @@ */ )/secure /*** HELP END ***/ -des = 'Macro to load SAS package, version 20200807. Run %loadPackage() for help info.' +des = 'Macro to load SAS package, version 20200810. Run %loadPackage() for help info.' ; %if %superq(packageName) = %then %do; @@ -90,7 +90,7 @@ des = 'Macro to load SAS package, version 20200807. Run %loadPackage() for help %put # This is short help information for the loadPackage macro #; %put ###############################################################################; %put # #; - %put # Macro to load SAS packages, version 20200807 #; + %put # Macro to load SAS packages, version 20200810 #; %put # #; %put # A SAS package is a zip file containing a group #; %put # of SAS codes (macros, functions, data steps generating #; @@ -235,7 +235,7 @@ des = 'Macro to load SAS package, version 20200807. Run %loadPackage() for help */ )/secure /*** HELP END ***/ -des = 'Macro to unload SAS package, version 20200807. Run %unloadPackage() for help info.' +des = 'Macro to unload SAS package, version 20200810. Run %unloadPackage() for help info.' ; %if %superq(packageName) = %then %do; @@ -244,7 +244,7 @@ des = 'Macro to unload SAS package, version 20200807. Run %unloadPackage() for h %put # This is short help information for the unloadPackage macro #; %put ###############################################################################; %put # #; - %put # Macro to unload SAS packages, version 20200807 #; + %put # Macro to unload SAS packages, version 20200810 #; %put # #; %put # A SAS package is a zip file containing a group #; %put # of SAS codes (macros, functions, data steps generating #; @@ -362,7 +362,7 @@ des = 'Macro to unload SAS package, version 20200807. Run %unloadPackage() for h */ )/secure /*** HELP END ***/ -des = 'Macro to get help about SAS package, version 20200807. Run %helpPackage() for help info.' +des = 'Macro to get help about SAS package, version 20200810. Run %helpPackage() for help info.' ; %if %superq(packageName) = %then %do; @@ -371,7 +371,7 @@ des = 'Macro to get help about SAS package, version 20200807. Run %helpPackage() %put # This is short help information for the helpPackage macro #; %put ###############################################################################; %put # #; - %put # Macro to get help about SAS packages, version 20200807 #; + %put # Macro to get help about SAS packages, version 20200810 #; %put # #; %put # A SAS package is a zip file containing a group #; %put # of SAS codes (macros, functions, data steps generating #; @@ -475,7 +475,7 @@ TODO: - add MD5(&packageName.) value hash instead "package" word in filenames [DONE] */ -/* Macros to install SAS packages, version 20200807 */ +/* Macros to install SAS packages, version 20200810 */ /* A SAS package is a zip file containing a group of files with SAS code (macros, functions, data steps generating data, etc.) wrapped up together and %INCLUDEed by @@ -490,7 +490,7 @@ TODO: ) /secure /*** HELP END ***/ -des = 'Macro to install SAS package, version 20200807. Run %%installPackage() for help info.' +des = 'Macro to install SAS package, version 20200810. Run %%installPackage() for help info.' ; %if %superq(packageName) = %then %do; @@ -499,7 +499,7 @@ des = 'Macro to install SAS package, version 20200807. Run %%installPackage() fo %put # This is short help information for the installPackage macro #; %put ########################################################################################; %put # #; - %put # Macro to install SAS packages, version 20200807 #; + %put # Macro to install SAS packages, version 20200810 #; %put # #; %put # A SAS package is a zip file containing a group #; %put # of SAS codes (macros, functions, data steps generating #; @@ -762,7 +762,7 @@ des = 'Macro to install SAS package, version 20200807. Run %%installPackage() fo /* Macro to list SAS packages in packages folder. - Version 20200807 + Version 20200810 A SAS package is a zip file containing a group of SAS codes (macros, functions, data steps generating @@ -782,7 +782,7 @@ des = 'Macro to install SAS package, version 20200807. Run %%installPackage() fo %macro listPackages()/PARMBUFF -des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20200807.' +des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HELP) for help, version 20200810.' ; %if %QUPCASE(&SYSPBUFF.) = %str(%(HELP%)) %then %do; @@ -791,7 +791,7 @@ des = 'Macro to list SAS packages from `packages` fileref, type %listPackages(HE %put # This is short help information for the listPackages macro #; %put ########################################################################################; %put # #; - %put # Macro to list available SAS packages, version 20200807 #; + %put # Macro to list available SAS packages, version 20200810 #; %put # #; %put # A SAS package is a zip file containing a group #; %put # of SAS codes (macros, functions, data steps generating #; @@ -884,7 +884,7 @@ data _null_; _INFILE_ = scan(_INFILE_,1,":") !! ":" !! scan(_INFILE_,2,":"); putlog " * " _INFILE_; end; - if strip(_INFILE_) = "DESCRIPTION START:" then leave; + if upcase(strip(_INFILE_)) =: "DESCRIPTION START:" then leave; end; end; @@ -907,7 +907,7 @@ options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.; /* Macro to generate SAS packages. - Version 20200807 + Version 20200810 A SAS package is a zip file containing a group of SAS codes (macros, functions, data steps generating @@ -930,7 +930,7 @@ options ls = &ls_tmp. ps = &ps_tmp. ¬es_tmp. &source_tmp.; dependencies in loading */ )/secure /*** HELP END ***/ -des = 'Macro to generate SAS packages, version 20200807. Run %generatePackage() for help info.' +des = 'Macro to generate SAS packages, version 20200810. Run %generatePackage() for help info.' ; %if %superq(filesLocation) = %then %do; @@ -939,7 +939,7 @@ des = 'Macro to generate SAS packages, version 20200807. Run %generatePackage() %put # This is short help information for the generatePackage macro #; %put ###############################################################################; %put # #; - %put # Macro to generate SAS packages, version 20200807 #; + %put # Macro to generate SAS packages, version 20200810 #; %put # #; %put # A SAS package is a zip file containing a group #; %put # of SAS codes (macros, functions, data steps generating #; @@ -1014,7 +1014,7 @@ filename &_LIC_. "&filesLocation./license.sas" lrecl = 256; when(upcase(scan(_INFILE_, 1, ":")) = "REQPACKAGES") call symputX("packageReqPackages", scan(_INFILE_, 2, ":"),"L"); /* stop at the beginning of description */ - when(upcase(scan(_INFILE_, 1, ":")) = "DESCRIPTION START") stop; + when ( upcase(scan(_INFILE_, 1, ":")) = "DESCRIPTION START" ) stop; otherwise; end; run; @@ -2030,16 +2030,16 @@ data _null_; put 'options ls = MAX ps = MAX nonotes nosource; '; put '%include' " &_PackageFileref_.(packagemetadata.sas) / nosource2; " /; - put 'data _null_; '; - put ' if strip(symget("helpKeyword")) = " " then '; - put ' do until (EOF); '; - put " infile &_PackageFileref_.(description.sas) end = EOF; "; - put ' input; '; - put ' if upcase(strip(_infile_)) = "DESCRIPTION END:" then printer = 0; '; - put ' if printer then put "*> " _infile_; '; - put ' if upcase(strip(_infile_)) = "DESCRIPTION START:" then printer = 1; '; - put ' end; '; - put ' else stop; '; + put 'data _null_; '; + put ' if strip(symget("helpKeyword")) = " " then '; + put ' do until (EOF); '; + put " infile &_PackageFileref_.(description.sas) end = EOF; "; + put ' input; '; + put ' if upcase(strip(_infile_)) =: "DESCRIPTION END:" then printer = 0; '; + put ' if printer then put "*> " _infile_; '; + put ' if upcase(strip(_infile_)) =: "DESCRIPTION START:" then printer = 1; '; + put ' end; '; + put ' else stop; '; put ' put ; put " Package contains: "; '; @@ -2074,7 +2074,7 @@ data _null_; put ' end ; '; %end; - put 'put "***"; put "* SAS package generated by generatePackage, version 20200807 *"; put "***";'; + put 'put "***"; put "* SAS package generated by generatePackage, version 20200810 *"; put "***";'; put 'run; ' /;