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

dsSQL library updated and simplified

Browse Source 
dsSQL library updated and simplified
This commit is contained in:
yabwon
2019-11-26 10:59:52 +01:00
parent b571a3619e
commit 02d5cc98f8
2 changed files with 5 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SQLinDS/000_libname/dssql.sas
View File

@@ -1,12 +1,11 @@
/*** HELP START ***/
/* >>> dsSQL library: <<<
/* >>> dsSQL library: <<<
*
* The dsSQL library stores temporary views
* generated during %SQL() macro's execution.
* If possible, created as a subdirectory of WORK:
options dlCreateDir;
LIBNAME dsSQL BASE "%sysfunc(pathname(WORK))/dsSQLtmp";
* if not then redirected to WORK
@@ -17,23 +16,13 @@
/*** HELP END ***/
data WORK._%sysfunc(datetime(), hex16.)_;
length option $ 64;
option = getoption("dlCreateDir");
run;
options dlCreateDir;
data _null_;
set _LAST_;
rc1 = LIBNAME("dsSQL", "%sysfunc(pathname(work))/dsSQLtmp", "BASE");
rc2 = LIBREF("dsSQL");
length rc0 $ 32767 rc1 rc2 8;
rc0 = DCREATE("dsSQLtmp", "%sysfunc(pathname(work))/" );
rc1 = LIBNAME("dsSQL", "%sysfunc(pathname(work))/dsSQLtmp", "BASE");
rc2 = LIBREF ("dsSQL" );
if rc2 NE 0 then
rc1 = LIBNAME("dsSQL", "%sysfunc(pathname(work))", "BASE");
call execute ("options " || strip(option) || ";");
run;
proc delete data = WORK._last_;
run;
libname dsSQL LIST;

BIN
sqlinds.zip
View File

Binary file not shown.