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

BIN
sqlinds.zip
View File

Binary file not shown.