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

version 20200803

Browse Source 
version 20200803, some code simplifications
This commit is contained in:
yabwon
2020-08-03 13:56:18 +02:00
parent 387898e01a
commit 3ede4541fd
1 changed files with 22 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
SPF/SPFinit.sas
View File

@@ -42,7 +42,7 @@
- to unload, or - to unload, or
- to generate SAS packages. - to generate SAS packages.
Version 20200730. Version 20200803.
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
@@ -81,7 +81,7 @@
*/ */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to load SAS package, version 20200730. Run %loadPackage() for help info.' des = 'Macro to load SAS package, version 20200803. Run %loadPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -90,7 +90,7 @@ des = 'Macro to load SAS package, version 20200730. Run %loadPackage() for help
%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 20200730 #; %put # Macro to load SAS packages, version 20200803 #;
%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 #;
@@ -158,7 +158,7 @@ des = 'Macro to load SAS package, version 20200730. Run %loadPackage() for help
%put ; %put ;
%put ###############################################################################; %put ###############################################################################;
%put ; %put ;
%GOTO ENDloadPackage; %RETURN;
%end; %end;
%local ls_tmp ps_tmp notes_tmp source_tmp fullstimer_tmp stimer_tmp msglevel_tmp; %local ls_tmp ps_tmp notes_tmp source_tmp fullstimer_tmp stimer_tmp msglevel_tmp;
%let ls_tmp = %sysfunc(getoption(ls)); %let ls_tmp = %sysfunc(getoption(ls));
@@ -212,9 +212,6 @@ des = 'Macro to load SAS package, version 20200730. Run %loadPackage() for help
&notes_tmp. &source_tmp. &notes_tmp. &source_tmp.
&stimer_tmp. &fullstimer_tmp. &stimer_tmp. &fullstimer_tmp.
msglevel=&msglevel_tmp.; msglevel=&msglevel_tmp.;
/* jump here after running %loadPackage() - only help is displayed */
%ENDloadPackage:
%mend loadPackage; %mend loadPackage;
/*** HELP START ***/ /*** HELP START ***/
@@ -238,7 +235,7 @@ des = 'Macro to load SAS package, version 20200730. Run %loadPackage() for help
*/ */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to unload SAS package, version 20200730. Run %unloadPackage() for help info.' des = 'Macro to unload SAS package, version 20200803. Run %unloadPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -247,7 +244,7 @@ des = 'Macro to unload SAS package, version 20200730. 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 20200730 #; %put # Macro to unload SAS packages, version 20200803 #;
%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 #;
@@ -306,7 +303,7 @@ des = 'Macro to unload SAS package, version 20200730. Run %unloadPackage() for h
%put ; %put ;
%put ###############################################################################; %put ###############################################################################;
%put ; %put ;
%GOTO ENDunloadPackage; %RETURN;
%end; %end;
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp; %local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
%let ls_tmp = %sysfunc(getoption(ls)); %let ls_tmp = %sysfunc(getoption(ls));
@@ -338,8 +335,6 @@ des = 'Macro to unload SAS package, version 20200730. 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. &notes_tmp. &source_tmp. msglevel = &msglevel_tmp.; options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp. msglevel = &msglevel_tmp.;
/* jump here after running %unloadPackage() - only help is displayed */
%ENDunloadPackage:
%mend unloadPackage; %mend unloadPackage;
/*** HELP START ***/ /*** HELP START ***/
@@ -367,7 +362,7 @@ des = 'Macro to unload SAS package, version 20200730. Run %unloadPackage() for h
*/ */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to get help about SAS package, version 20200730. Run %helpPackage() for help info.' des = 'Macro to get help about SAS package, version 20200803. Run %helpPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -376,7 +371,7 @@ des = 'Macro to get help about SAS package, version 20200730. 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 20200730 #; %put # Macro to get help about SAS packages, version 20200803 #;
%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 #;
@@ -440,7 +435,7 @@ des = 'Macro to get help about SAS package, version 20200730. Run %helpPackage()
%put ; %put ;
%put ###############################################################################; %put ###############################################################################;
%put ; %put ;
%GOTO ENDhelpPackage; %RETURN;
%end; %end;
%local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp; %local ls_tmp ps_tmp notes_tmp source_tmp msglevel_tmp;
%let ls_tmp = %sysfunc(getoption(ls)); %let ls_tmp = %sysfunc(getoption(ls));
@@ -472,8 +467,6 @@ des = 'Macro to get help about SAS package, version 20200730. 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. &notes_tmp. &source_tmp. msglevel = &msglevel_tmp.; options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp. msglevel = &msglevel_tmp.;
/* jump here after running %helpPackage() - only help is displayed */
%ENDhelpPackage:
%mend helpPackage; %mend helpPackage;
/* /*
@@ -482,7 +475,7 @@ TODO:
- add MD5(&packageName.) value hash instead "package" word in filenames [DONE] - add MD5(&packageName.) value hash instead "package" word in filenames [DONE]
*/ */
/* Macros to install SAS packages, version 20200730 */ /* Macros to install SAS packages, version 20200803 */
/* 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
@@ -497,7 +490,7 @@ TODO:
) )
/secure /secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to install SAS package, version 20200730. Run %%installPackage() for help info.' des = 'Macro to install SAS package, version 20200803. Run %%installPackage() for help info.'
; ;
%if %superq(packageName) = %then %if %superq(packageName) = %then
%do; %do;
@@ -506,7 +499,7 @@ des = 'Macro to install SAS package, version 20200730. 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 20200730 #; %put # Macro to install SAS packages, version 20200803 #;
%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 #;
@@ -558,7 +551,7 @@ des = 'Macro to install SAS package, version 20200730. Run %%installPackage() fo
%put ; %put ;
%put ########################################################################################; %put ########################################################################################;
%put ; %put ;
%GOTO ENDinstallPackage; %RETURN;
%end; %end;
%local ls_tmp ps_tmp notes_tmp source_tmp fullstimer_tmp stimer_tmp msglevel_tmp; %local ls_tmp ps_tmp notes_tmp source_tmp fullstimer_tmp stimer_tmp msglevel_tmp;
%let ls_tmp = %sysfunc(getoption(ls)); %let ls_tmp = %sysfunc(getoption(ls));
@@ -652,8 +645,6 @@ des = 'Macro to install SAS package, version 20200730. Run %%installPackage() fo
&notes_tmp. &source_tmp. &notes_tmp. &source_tmp.
&stimer_tmp. &fullstimer_tmp. &stimer_tmp. &fullstimer_tmp.
msglevel=&msglevel_tmp.; msglevel=&msglevel_tmp.;
/* jump here after running %installPackage() - only help is displayed */
%ENDinstallPackage:
%mend installPackage; %mend installPackage;
/*** HELP START ***/ /*** HELP START ***/
@@ -771,7 +762,7 @@ des = 'Macro to install SAS package, version 20200730. Run %%installPackage() fo
/* Macro to list SAS packages in packages folder. /* Macro to list SAS packages in packages folder.
Version 20200730 Version 20200803
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
@@ -791,13 +782,12 @@ des = 'Macro to install SAS package, version 20200730. Run %%installPackage() fo
%macro listPackages()/ %macro listPackages()/
des = 'Macro to list SAS packages from `packages` fileref, type %listPackages() to run it, version 20200730.' des = 'Macro to list SAS packages from `packages` fileref, type %listPackages() to run it, version 20200803.'
; ;
%local ls_tmp ps_tmp notes_tmp source_tmp; %local ls_tmp ps_tmp notes_tmp source_tmp filesWithCodes;
%let filesWithCodes = WORK._%sysfunc(datetime(), hex16.)_; %let filesWithCodes = WORK._%sysfunc(datetime(), hex16.)_;
%local ls_tmp ps_tmp notes_tmp source_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));
@@ -871,7 +861,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
/* Macro to generate SAS packages. /* Macro to generate SAS packages.
Version 20200730 Version 20200803
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
@@ -894,7 +884,7 @@ options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.;
dependencies in loading */ dependencies in loading */
)/secure )/secure
/*** HELP END ***/ /*** HELP END ***/
des = 'Macro to generate SAS packages, version 20200730. Run %generatePackage() for help info.' des = 'Macro to generate SAS packages, version 20200803. Run %generatePackage() for help info.'
; ;
%if %superq(filesLocation) = %then %if %superq(filesLocation) = %then
%do; %do;
@@ -903,7 +893,7 @@ des = 'Macro to generate SAS packages, version 20200730. 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 20200730 #; %put # Macro to generate SAS packages, version 20200803 #;
%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 #;
@@ -934,7 +924,7 @@ des = 'Macro to generate SAS packages, version 20200730. Run %generatePackage()
%put # #; %put # #;
%put ###############################################################################; %put ###############################################################################;
%put ; %put ;
%GOTO ENDgeneratePackage; %RETURN;
%end; %end;
%local zipReferrence filesWithCodes _DESCR_ _LIC_ _RC_ _PackageFileref_; %local zipReferrence filesWithCodes _DESCR_ _LIC_ _RC_ _PackageFileref_;
@@ -2038,7 +2028,7 @@ data _null_;
put ' end ; '; put ' end ; ';
%end; %end;
put 'put "***"; put "* SAS package generated by generatePackage, version 20200730 *"; put "***";'; put 'put "***"; put "* SAS package generated by generatePackage, version 20200803 *"; put "***";';
put 'run; ' /; put 'run; ' /;
@@ -2419,9 +2409,6 @@ proc sql;
drop table &filesWithCodes.; drop table &filesWithCodes.;
quit; quit;
/* jump here after running %generatePackage() - only help is displayed */
%ENDgeneratePackage:
%mend generatePackage; %mend generatePackage;