diff --git a/SQLinDS/000_libname/dssql.sas b/SQLinDS/000_libname/dssql.sas index 690c625..7d5b339 100644 --- a/SQLinDS/000_libname/dssql.sas +++ b/SQLinDS/000_libname/dssql.sas @@ -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; diff --git a/sqlinds.zip b/sqlinds.zip index ed02103..ff3d582 100644 Binary files a/sqlinds.zip and b/sqlinds.zip differ