sasjs/core
1
0
Fork 0
mirror of https://github.com/sasjs/core.git synced 2025-12-11 06:24:35 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #206 from sasjs/ms_getfile

Browse Source 
fix: ensuring ms_getfile works on specific installs
This commit is contained in:
Allan Bowe
2022-03-29 20:41:20 +03:00
committed by GitHub
parent f4982c85ca 0a536245f3
commit 7726b0e0b0
5 changed files with 26 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
all.sas
View File

@@ -3202,7 +3202,7 @@ run;
proc compare
base=&scopeds(where=(upcase(name) not in (%mf_getquotedstr(&ilist))))
compare=&ds;
compare=&ds noprint;
run;
%if &sysinfo=0 %then %do;
@@ -19017,6 +19017,9 @@ run;
@param [out] outref= (msgetfil) The fileref to contain the file.
@param [in] mdebug= (0) Set to 1 to enable DEBUG messages
<h4> SAS Macros </h4>
@li mf_getuniquefileref.sas
@li mf_getuniquename.sas
**/
@@ -19025,15 +19028,21 @@ run;
,mdebug=0
);
filename &outref temp;
/* use the recfm in a separate fileref to avoid issues with subsequent reads */
%local binaryfref floc;
%let binaryfref=%mf_getuniquefileref();
%let floc=%sysfunc(pathname(work))/%mf_getuniquename().txt;
filename &outref "&floc";
filename &binaryfref "&floc" recfm=n;
proc http method='GET' out=&outref
proc http method='GET' out=&binaryfref
url="&_sasjs_apiserverurl/SASjsApi/drive/file?_filePath=&driveloc";
%if &mdebug=1 %then %do;
debug level=2;
%end;
run;
filename &binaryfref clear;
%mend ms_getfile;
/**

2
base/mp_assertscope.sas
View File

@@ -106,7 +106,7 @@
proc compare
base=&scopeds(where=(upcase(name) not in (%mf_getquotedstr(&ilist))))
compare=&ds;
compare=&ds noprint;
run;
%if &sysinfo=0 %then %do;

2
sasjs/sasjsconfig.json
View File

@@ -71,7 +71,7 @@
},
{
"name": "server",
"serverUrl": " ",
"serverUrl": "https://sas.analytium.co.uk:5000",
"serverType": "SASJS",
"httpsAgentOptions": {
"allowInsecureRequests": false

13
server/ms_getfile.sas
View File

@@ -11,6 +11,9 @@
@param [out] outref= (msgetfil) The fileref to contain the file.
@param [in] mdebug= (0) Set to 1 to enable DEBUG messages
<h4> SAS Macros </h4>
@li mf_getuniquefileref.sas
@li mf_getuniquename.sas
**/
@@ -19,14 +22,20 @@
,mdebug=0
);
filename &outref temp;
/* use the recfm in a separate fileref to avoid issues with subsequent reads */
%local binaryfref floc;
%let binaryfref=%mf_getuniquefileref();
%let floc=%sysfunc(pathname(work))/%mf_getuniquename().txt;
filename &outref "&floc";
filename &binaryfref "&floc" recfm=n;
proc http method='GET' out=&outref
proc http method='GET' out=&binaryfref
url="&_sasjs_apiserverurl/SASjsApi/drive/file?_filePath=&driveloc";
%if &mdebug=1 %then %do;
debug level=2;
%end;
run;
filename &binaryfref clear;
%mend ms_getfile;

1
tests/crossplatform/mp_hashdataset.test.sas
View File

@@ -5,6 +5,7 @@
<h4> SAS Macros </h4>
@li mp_hashdataset.sas
@li mp_assert.sas
@li mp_assertscope.sas
**/