diff --git a/all.sas b/all.sas index b79fe91..2e7e3f1 100644 --- a/all.sas +++ b/all.sas @@ -23154,6 +23154,7 @@ run;

SAS Macros

@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;