mirror of
https://github.com/yabwon/SAS_PACKAGES.git
synced 2026-01-07 07:00:05 +00:00
42 lines
849 B
SAS
42 lines
849 B
SAS
/*** HELP START ***/
|
|
|
|
/* >>> 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
|
|
|
|
LIBNAME dsSQL BASE "%sysfunc(pathname(WORK))";
|
|
|
|
**/
|
|
|
|
/*** 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");
|
|
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;
|
|
;
|
|
|