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

version 20200424

Browse Source 
bug fix for testing packages under Linux
This commit is contained in:
yabwon
2020-04-24 17:42:46 +02:00
parent 136b0b9854
commit 0bb95145d7
1 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
generatePackage.sas
View File

@@ -36,7 +36,7 @@
*/ */
/**#############################################################################**/ /**#############################################################################**/
/* Macros to generate SAS packages, version 20200422 */ /* Macros to generate SAS packages, version 20200424 */
/* 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, datasteps generating of SAS codes (macros, functions, datasteps generating
data, etc.) wrapped up together and %INCLUDEed by data, etc.) wrapped up together and %INCLUDEed by
@@ -1105,7 +1105,7 @@ data _null_;
put ' end ; '; put ' end ; ';
%end; %end;
put 'put "***"; put "* SAS package generated by generatePackage, version 20200422 *"; put "***";'; put 'put "***"; put "* SAS package generated by generatePackage, version 20200424 *"; put "***";';
put 'run; ' /; put 'run; ' /;
@@ -1270,6 +1270,9 @@ options DLCREATEDIR; /* turns-on creation of subdirectories */
/* temporary location for tests results */ /* temporary location for tests results */
libname TEST "&SASWORK./test_%lowcase(%sysfunc(datetime(),b8601dt19.))"; libname TEST "&SASWORK./test_%lowcase(%sysfunc(datetime(),b8601dt19.))";
libname TESTWORK "%sysfunc(pathname(TEST))/work"; libname TESTWORK "%sysfunc(pathname(TEST))/work";
%local dirForTest;
%let dirForTest = %sysfunc(pathname(TEST));
/* remember location of sessions current directory */ /* remember location of sessions current directory */
filename currdir "."; filename currdir ".";
@@ -1285,7 +1288,7 @@ filename packages list;
/* replace current dir with the temporary one for tests */ /* replace current dir with the temporary one for tests */
%put *NOTE: changing current folder to:*; %put *NOTE: changing current folder to:*;
%put *%sysfunc(DLGCDIR(%sysfunc(pathname(TEST))))*; %put *%sysfunc(DLGCDIR(&dirForTest.))*;
/* the first test is for loading package, testing help and unloading */ /* the first test is for loading package, testing help and unloading */
/*-1-*/ /*-1-*/
@@ -1314,11 +1317,11 @@ systask kill sas0 wait;
%let TEST_0 = loading; %let TEST_0 = loading;
systask command systask command
"""&SASEXE."" """&SASEXE.""
-sysin ""./&TEST_0..sas"" -sysin ""&dirForTest./&TEST_0..sas""
-print ""./&TEST_0..lst"" -print ""&dirForTest./&TEST_0..lst""
-log ""./&TEST_0..log"" -log ""&dirForTest./&TEST_0..log""
-config ""&SASROOT./sasv9.cfg"" -config ""&SASROOT./sasv9.cfg""
-work ""./work"" -work ""&dirForTest./work""
-noterminal" -noterminal"
taskname=sas0 taskname=sas0
status=sasstat0 status=sasstat0
@@ -1387,11 +1390,11 @@ systask kill sas&t. wait;
%local sasstat&t. TESTRC_&t; %local sasstat&t. TESTRC_&t;
systask command systask command
"""&SASEXE."" """&SASEXE.""
-sysin ""./&&TEST_&t...sas"" -sysin ""&dirForTest./&&TEST_&t...sas""
-print ""./&&TEST_&t...lst"" -print ""&dirForTest./&&TEST_&t...lst""
-log ""./&&TEST_&t...log"" -log ""&dirForTest./&&TEST_&t...log""
-config ""&SASROOT./sasv9.cfg"" -config ""&SASROOT./sasv9.cfg""
-work ""./work"" -work ""&dirForTest./work""
-noterminal" -noterminal"
taskname=sas&t. taskname=sas&t.
status=sasstat&t. status=sasstat&t.