mirror of
https://github.com/sasjs/core.git
synced 2026-01-18 05:50:06 +00:00
fix: file based upload with sasjs_tables for testing
This commit is contained in:
@@ -338,7 +338,8 @@ data _null_;
|
||||
put '%end; ';
|
||||
put '%mend; ';
|
||||
put '%macro mv_webout(action,ds,fref=_mvwtemp,dslabel=,fmt=Y); ';
|
||||
put '%global _webin_file_count _webin_fileuri _debug _omittextlog ; ';
|
||||
put '%global _webin_file_count _webin_fileuri _debug _omittextlog _webin_name ';
|
||||
put ' sasjs_tables; ';
|
||||
put '%if %index("&_debug",log) %then %let _debug=131; ';
|
||||
put ' ';
|
||||
put '%local i tempds; ';
|
||||
@@ -352,11 +353,11 @@ data _null_;
|
||||
put ' %if not %symexist(_webin_fileuri1) %then %do; ';
|
||||
put ' %let _webin_file_count=%eval(&_webin_file_count+0); ';
|
||||
put ' %let _webin_fileuri1=&_webin_fileuri; ';
|
||||
put ' %let _webin_name1=&_webin_name; ';
|
||||
put ' %end; ';
|
||||
put ' ';
|
||||
put ' %if %symexist(sasjs_tables) %then %do; ';
|
||||
put ' /* small volumes of non-special data are sent as params for responsiveness */ ';
|
||||
put ' /* to do - deal with escaped values */ ';
|
||||
put ' /* if the sasjs_tables param is passed, we expect param based upload */ ';
|
||||
put ' %if %length(&sasjs_tables.XX)>2 %then %do; ';
|
||||
put ' filename _sasjs "%sysfunc(pathname(work))/sasjs.lua"; ';
|
||||
put ' data _null_; ';
|
||||
put ' file _sasjs; ';
|
||||
@@ -435,6 +436,7 @@ data _null_;
|
||||
put ' infile indata firstobs=2 dsd termstr=crlf ; ';
|
||||
put ' input &input_statement; ';
|
||||
put ' run; ';
|
||||
put ' %let sasjs_tables=&sasjs_tables &&_webin_name&i; ';
|
||||
put ' %end; ';
|
||||
put '%end; ';
|
||||
put '%else %if &action=OPEN %then %do; ';
|
||||
|
||||
Reference in New Issue
Block a user