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

SAS Packages Framework, ver. 20221107

Browse Source 
**SAS Packages Framework**, ver. 20221107

- Minor update on the `%generatePackage()` macro log look.
This commit is contained in:
Bartosz Jablonski
2022-11-07 10:42:30 +01:00
parent e3a813b257
commit d35ac328cc
12 changed files with 60 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SPF/Macros/generatepackage.sas
View File

@@ -23,7 +23,7 @@
default value 1 means "delete tests work" */
)/secure minoperator
/*** HELP END ***/
des = 'Macro to generate SAS packages, version 20221022. Run %generatePackage() for help info.'
des = 'Macro to generate SAS packages, version 20221107. Run %generatePackage() for help info.'
;
%if (%superq(filesLocation) = ) OR (%qupcase(&filesLocation.) = HELP) %then
%do;
@@ -38,7 +38,7 @@ des = 'Macro to generate SAS packages, version 20221022. Run %generatePackage()
%put ### This is short help information for the `generatePackage` macro #;
%put #-------------------------------------------------------------------------------#;
%put # #;
%put # Macro to generate SAS packages, version `20221022` #;
%put # Macro to generate SAS packages, version `20221107` #;
%put # #;
%put # A SAS package is a zip file containing a group #;
%put # of SAS codes (macros, functions, data steps generating #;
@@ -95,6 +95,7 @@ des = 'Macro to generate SAS packages, version 20221022. Run %generatePackage()
%GOTO ENDofgeneratePackage;
%end;
%put --- generatePackage START ---;
%local zipReferrence filesWithCodes _DESCR_ _LIC_ _DUMMY_ _RC_ _PackageFileref_;
%let zipReferrence = _%sysfunc(datetime(), hex6.)_;
%let filesWithCodes = WORK._%sysfunc(datetime(), hex16.)_;
@@ -250,7 +251,7 @@ filename &_LIC_. "&filesLocation./license.sas" lrecl = 1024;
put 'ERROR- ' R;
end;
else
rc = dosubl('title; options nonotes nosource ps=max ls=99 nodate nonumber nostimer;
rc = dosubl('title; options nonotes nosource ps=min ls=99 nodate nonumber nostimer;
data _null_;
length rq $ 64; put "Required:";
do rq = &packageRequired.;
@@ -300,7 +301,7 @@ filename &_LIC_. "&filesLocation./license.sas" lrecl = 1024;
put 'ERROR- ' R;
end;
else
rc = dosubl('title; options nonotes nosource ps=max ls=66 nodate nonumber nostimer;
rc = dosubl('title; options nonotes nosource ps=min ls=66 nodate nonumber nostimer;
data _null_;
length rq $ 64; put "ReqPackages:";
do rq = &packageReqPackages.;
@@ -1675,7 +1676,7 @@ data _null_;
put ' end ; ';
%end;
put 'put "***"; put "* SAS package generated by generatePackage, version 20221022 *"; put "***";';
put 'put "***"; put "* SAS package generated by generatePackage, version 20221107 *"; put "***";';
put 'run; ' /;
@@ -2434,7 +2435,7 @@ title;
/*%put _local_;*/
%put NOTE: changing current folder to:;
%put NOTE: Changing current folder to:;
%put NOTE- *%sysfunc(DLGCDIR(%sysfunc(pathname(currdir))))*;
filename CURRDIR clear;
@@ -2454,6 +2455,7 @@ options &qlenmax_fstimer_tmp.;
%ENDofgeneratePackage:
%put --- generatePackage END ---;
%mend generatePackage;