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

UER library handling added

Browse Source
This commit is contained in:
yabwon
2019-10-17 17:52:44 +02:00
parent 340f8f1a13
commit 78b6af1f81
5 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SQLinDS/000_libname/dssql.sas
View File

@@ -33,7 +33,7 @@ data _null_;
call execute ("options " || strip(option) || ";"); call execute ("options " || strip(option) || ";");
run; run;
proc delete data = _last_; proc delete data = WORK._last_;
run; run;
libname dsSQL LIST; libname dsSQL LIST;

2
SQLinDS/002_function/dssql.sas
View File

@@ -15,7 +15,7 @@
/*** HELP END ***/ /*** HELP END ***/
proc fcmp proc fcmp
inlib = work.&packageName.fcmp /*inlib = work.&packageName.fcmp*/
outlib = work.&packageName.fcmp.package outlib = work.&packageName.fcmp.package
; ;
function dsSQL(unique_index_2, query $) $ 41; function dsSQL(unique_index_2, query $) $ 41;

4
SQLinDS/generate_package_sqlinds.sas
View File

@@ -1,8 +1,8 @@
%include "C:\SAS_PACKAGES\generatePackage.sas"; %include "C:\SAS_PACKAGES\generatePackage.sas";
ods html; ods html;
%generatePackge(filesLocation=C:\SAS_PACKAGES\SQLinDS) %generatePackge(filesLocation=C:\SAS_PACKAGES_DEV\SQLinDS)
/* /*

12
generatePackage.sas
View File

@@ -580,7 +580,7 @@ data _null_;
/* delete macros and formats */ /* delete macros and formats */
put 'proc sql;'; put 'proc sql;';
put ' create table _%sysfunc(datetime(), hex16.)_ as'; put ' create table WORK._%sysfunc(datetime(), hex16.)_ as';
put ' select memname, objname, objtype'; put ' select memname, objname, objtype';
put ' from dictionary.catalogs'; put ' from dictionary.catalogs';
put ' where '; put ' where ';
@@ -626,14 +626,14 @@ data _null_;
put 'data _null_;'; put 'data _null_;';
put ' do until(last.memname);'; put ' do until(last.memname);';
put ' set _last_;'; put ' set WORK._last_;';
put ' by objtype memname;'; put ' by objtype memname;';
put ' if first.memname then call execute("proc catalog cat = work." !! strip(memname) !! " force;");'; put ' if first.memname then call execute("proc catalog cat = work." !! strip(memname) !! " force;");';
put ' call execute("delete " !! strip(objname) !! " / et =" !! objtype !! "; run;");'; put ' call execute("delete " !! strip(objname) !! " / et =" !! objtype !! "; run;");';
put ' end;'; put ' end;';
put ' call execute("quit;");'; put ' call execute("quit;");';
put 'run;'; put 'run;';
put 'proc delete data = _last_;'; put 'proc delete data = WORK._last_;';
put 'run;'; put 'run;';
/* delete the link to the formats catalog */ /* delete the link to the formats catalog */
@@ -757,7 +757,7 @@ data _null_;
put ' else stop; '; put ' else stop; ';
put 'run; ' /; put 'run; ' /;
put 'data _%sysfunc(datetime(), hex16.)_; '; put 'data WORK._%sysfunc(datetime(), hex16.)_; ';
put 'infile cards4 dlm = "/"; '; put 'infile cards4 dlm = "/"; ';
put 'input @; '; put 'input @; ';
put 'if 0 then output; '; put 'if 0 then output; ';
@@ -800,7 +800,7 @@ data _null_;
'put; put '' *> No help info found. Try %helpPackage(packageName,*) to display all.''; put; stop; ' / 'put; put '' *> No help info found. Try %helpPackage(packageName,*) to display all.''; put; stop; ' /
'end; '; 'end; ';
put ' do until(EOFDS); '; put ' do until(EOFDS); ';
put ' set _last_ end = EOFDS nobs = NOBS; '; put ' set WORK._last_ end = EOFDS nobs = NOBS; ';
put ' length memberX $ 1024; '; put ' length memberX $ 1024; ';
put ' memberX = cats("_",folder,".",file); '; put ' memberX = cats("_",folder,".",file); ';
/* inner datastep in call execute to read each embedaded file */ /* inner datastep in call execute to read each embedaded file */
@@ -827,7 +827,7 @@ data _null_;
put "run; "; put "run; ";
/* cleanup */ /* cleanup */
put "proc delete data = _last_; "; put "proc delete data = WORK._last_; ";
put "run; "; put "run; ";
put 'options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.; ' /; put 'options ls = &ls_tmp. ps = &ps_tmp. &notes_tmp. &source_tmp.; ' /;

BIN
sqlinds.zip
View File

Binary file not shown.