mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 14:04:36 +00:00
chore: updating all.sas
This commit is contained in:
16
all.sas
16
all.sas
@@ -23154,6 +23154,7 @@ run;
|
||||
|
||||
<h4> SAS Macros </h4>
|
||||
@li mf_getuniquefileref.sas
|
||||
@li mf_getuniquelibref.sas
|
||||
@li mf_getuniquename.sas
|
||||
@li mp_abort.sas
|
||||
@li mp_dropmembers.sas
|
||||
@@ -23169,7 +23170,7 @@ run;
|
||||
,outds=work.ms_triggerstp
|
||||
,mdebug=0
|
||||
);
|
||||
%local dbg mainref authref boundary triggered_sid;
|
||||
%local dbg mainref authref boundary libref triggered_sid;
|
||||
%let mainref=%mf_getuniquefileref();
|
||||
%let authref=%mf_getuniquefileref();
|
||||
%let boundary=%mf_getuniquename();
|
||||
@@ -23196,16 +23197,11 @@ run;
|
||||
%let optval=%sysfunc(getoption(bomfile));
|
||||
options nobomfile;
|
||||
|
||||
/* Add header to the content of the http request */
|
||||
data _null_;
|
||||
file &mainref termstr=crlf lrecl=32767;
|
||||
put "--&boundary";
|
||||
run;
|
||||
|
||||
/* Add params to the content */
|
||||
data _null_;
|
||||
file &mainref termstr=crlf lrecl=32767 mod;
|
||||
length line $1000 name $32 value $32767;
|
||||
put "--&boundary";
|
||||
if _n_=1 then call missing(of _all_);
|
||||
set &inputparams;
|
||||
line=cats('Content-Disposition: form-data; name="',name,'"');
|
||||
@@ -23316,11 +23312,12 @@ run;
|
||||
/* reset options */
|
||||
options &optval;
|
||||
|
||||
libname response JSON fileref=&outref;
|
||||
%let libref=%mf_getuniquelibref();
|
||||
libname &libref JSON fileref=&outref;
|
||||
%let triggered_sid=%mf_getuniquename(prefix=triggered_sid_);
|
||||
|
||||
data work.&triggered_sid (keep=sessionid);
|
||||
set response.root;
|
||||
set &libref..root;
|
||||
|
||||
%if &mdebug=1 %then %do;
|
||||
putlog (_all_)(=);
|
||||
@@ -23341,6 +23338,7 @@ run;
|
||||
filename &authref;
|
||||
filename &mainref;
|
||||
filename &outref;
|
||||
libname &libref clear;
|
||||
/* and remove temp dataset */
|
||||
%mp_dropmembers(&triggered_sid,libref=work);
|
||||
%end;
|
||||
|
||||
Reference in New Issue
Block a user