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

version 20191215

Browse Source 
updates related to testing added in generatePackage.sas, update in generating SYSloadedPackages macrovariable, update in packages= macroparameter in generatePackage.sas,

generate_package_sqlinds.sas is now in line with article,
This commit is contained in:
yabwon
2019-12-15 21:28:59 +01:00
parent f43e8a7587
commit 0385e8e5b2
7 changed files with 17 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
SAS(r) packages - the way to share (a how to)- Paper 4725-2020.pdf
View File

Binary file not shown.

4
SQLinDS/generate_package_sqlinds.sas
View File

@@ -1,5 +1,7 @@
%include "C:\SAS_PACKAGES\generatePackage.sas";
filename packages "C:\SAS_PACKAGES";
%include packages(generatePackage.sas);
ods html; ods html;
%generatePackage(filesLocation=C:\SAS_PACKAGES_DEV\SQLinDS) %generatePackage(filesLocation=C:\SAS_PACKAGES_DEV\SQLinDS)

BIN
dfa.zip
View File

Binary file not shown.

BIN
dynmacroarray.zip
View File

Binary file not shown.

16
generatePackage.sas
View File

@@ -749,7 +749,7 @@ data _null_;
/* update SYSloadedPackages global macrovariable */ /* update SYSloadedPackages global macrovariable */
put ' data _null_ ; '; put ' data _null_ ; ';
put ' length SYSloadedPackages $ 32767; '; put ' length SYSloadedPackages stringPCKG $ 32767; ';
put ' if SYMEXIST("SYSloadedPackages") = 1 and SYMGLOBL("SYSloadedPackages") = 1 then '; put ' if SYMEXIST("SYSloadedPackages") = 1 and SYMGLOBL("SYSloadedPackages") = 1 then ';
put ' do; '; put ' do; ';
put ' do until(EOF); '; put ' do until(EOF); ';
@@ -758,13 +758,23 @@ data _null_;
put ' end; '; put ' end; ';
put ' SYSloadedPackages = cats("#", translate(strip(SYSloadedPackages), "#", " "), "#"); '; put ' SYSloadedPackages = cats("#", translate(strip(SYSloadedPackages), "#", " "), "#"); ';
put " if INDEX(lowcase(SYSloadedPackages), '#%lowcase(&packageName.(&packageVersion.))#') = 0 then "; put " indexPCKG = INDEX(lowcase(SYSloadedPackages), '#%lowcase(&packageName.)('); ";
put " if indexPCKG = 0 then ";
put ' do; '; put ' do; ';
put " SYSloadedPackages = catx('#', SYSloadedPackages, '&packageName.(&packageVersion.)'); "; put " SYSloadedPackages = catx('#', SYSloadedPackages, '&packageName.(&packageVersion.)'); ";
put ' SYSloadedPackages = compbl(translate(SYSloadedPackages, " ", "#")); '; put ' SYSloadedPackages = compbl(translate(SYSloadedPackages, " ", "#")); ';
put ' call symputX("SYSloadedPackages", SYSloadedPackages, "G"); '; put ' call symputX("SYSloadedPackages", SYSloadedPackages, "G"); ';
put ' put "NOTE: " SYSloadedPackages = ; '; put ' put "NOTE: " SYSloadedPackages = ; ';
put ' end ; '; put ' end ; ';
put " else ";
put ' do; ';
put " stringPCKG = scan(substr(SYSloadedPackages, indexPCKG+1), 1, '#'); ";
put ' SYSloadedPackages = compbl(tranwrd(SYSloadedPackages, strip(stringPCKG), "#")); ';
put " SYSloadedPackages = catx('#', SYSloadedPackages, '&packageName.(&packageVersion.)'); ";
put ' SYSloadedPackages = compbl(translate(SYSloadedPackages, " ", "#")); ';
put ' call symputX("SYSloadedPackages", SYSloadedPackages, "G"); ';
put ' put "NOTE: " SYSloadedPackages = ; ';
put ' end ; ';
put ' end; '; put ' end; ';
put ' else '; put ' else ';
put ' do; '; put ' do; ';
@@ -1262,7 +1272,9 @@ filename currdir ".";
filename currdir list; filename currdir list;
/* if your package uses any other packages this points to their location */ /* if your package uses any other packages this points to their location */
/* test if packages fileref exists and if do then use it */
/* if no one is provided the filesLocation is used as a repalacement */ /* if no one is provided the filesLocation is used as a repalacement */
%if %bquote(&packages.)= %then %let packages=%sysfunc(pathname(packages));
%if %bquote(&packages.)= %then %let packages=&filesLocation.; %if %bquote(&packages.)= %then %let packages=&filesLocation.;
filename packages "&packages."; filename packages "&packages.";
filename packages list; filename packages list;

BIN
macroarray.zip
View File

Binary file not shown.

BIN
sqlinds.zip
View File

Binary file not shown.