sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2026-01-15 20:40:05 +00:00
Code Issues Projects Releases Wiki Activity

fix: headers in ms_createfile.sas

Browse Source
This commit is contained in:
munja
2022-03-19 00:20:05 +00:00
parent bb89184212
commit 21ecc1b675
2 changed files with 26 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
all.sas
View File

@@ -18869,9 +18869,10 @@ run;
,mdebug=0 ,mdebug=0
); );
%local fname0 fname1 boundary fname statcd msg; %local fname0 fname1 fname2 boundary fname statcd msg;
%let fname0=%mf_getuniquefileref(); %let fname0=%mf_getuniquefileref();
%let fname1=%mf_getuniquefileref(); %let fname1=%mf_getuniquefileref();
%let fname2=%mf_getuniquefileref();
%let boundary=%mf_getuniquename(); %let boundary=%mf_getuniquename();
data _null_; data _null_;
@@ -18895,17 +18896,25 @@ data _null_;
end; end;
run; run;
data _null_;
file &fname1;
put "Content-Type: multipart/form-data; boundary=&boundary";
run;
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
data _null_; data _null_;
infile &fname0; infile &fname0;
input; input;
put _infile_; put _infile_;
data _null_;
infile &fname1;
input;
put _infile_;
run; run;
%end; %end;
proc http method='POST' in=&fname0 out=&fname1 proc http method='POST' in=&fname0 headerin=&fname1 out=&fname2
url="&_sasjs_apiserverurl/SASjsApi/drive/file"; url="&_sasjs_apiserverurl/SASjsApi/drive/file";
headers "Content-Type"="multipart/form-data; boundary=&boundary";
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
debug level=1; debug level=1;
%end; %end;
@@ -18913,7 +18922,7 @@ run;
%let statcd=0; %let statcd=0;
data _null_; data _null_;
infile &fname1; infile &fname2;
input; input;
putlog _infile_; putlog _infile_;
if _infile_='{"status":"success"}' then call symputx('statcd',1,'l'); if _infile_='{"status":"success"}' then call symputx('statcd',1,'l');

17
server/ms_createfile.sas
View File

@@ -29,9 +29,10 @@
,mdebug=0 ,mdebug=0
); );
%local fname0 fname1 boundary fname statcd msg; %local fname0 fname1 fname2 boundary fname statcd msg;
%let fname0=%mf_getuniquefileref(); %let fname0=%mf_getuniquefileref();
%let fname1=%mf_getuniquefileref(); %let fname1=%mf_getuniquefileref();
%let fname2=%mf_getuniquefileref();
%let boundary=%mf_getuniquename(); %let boundary=%mf_getuniquename();
data _null_; data _null_;
@@ -55,17 +56,25 @@ data _null_;
end; end;
run; run;
data _null_;
file &fname1;
put "Content-Type: multipart/form-data; boundary=&boundary";
run;
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
data _null_; data _null_;
infile &fname0; infile &fname0;
input; input;
put _infile_; put _infile_;
data _null_;
infile &fname1;
input;
put _infile_;
run; run;
%end; %end;
proc http method='POST' in=&fname0 out=&fname1 proc http method='POST' in=&fname0 headerin=&fname1 out=&fname2
url="&_sasjs_apiserverurl/SASjsApi/drive/file"; url="&_sasjs_apiserverurl/SASjsApi/drive/file";
headers "Content-Type"="multipart/form-data; boundary=&boundary";
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
debug level=1; debug level=1;
%end; %end;
@@ -73,7 +82,7 @@ run;
%let statcd=0; %let statcd=0;
data _null_; data _null_;
infile &fname1; infile &fname2;
input; input;
putlog _infile_; putlog _infile_;
if _infile_='{"status":"success"}' then call symputx('statcd',1,'l'); if _infile_='{"status":"success"}' then call symputx('statcd',1,'l');