1
0
mirror of https://github.com/sasjs/core.git synced 2025-12-11 06:24:35 +00:00

Compare commits

...

2 Commits

Author SHA1 Message Date
Allan Bowe
1cefc0e7ee feat: adding check in mf_existfeature() for ability to proc export xlsx 2022-05-18 15:33:41 +00:00
munja
412182a022 fix: fileref option in ms_runstp 2022-05-17 22:27:39 +01:00
3 changed files with 19 additions and 4 deletions

12
all.sas
View File

@@ -198,6 +198,12 @@ options noquotelenmax;
%else %if "&SYSVLONG" < "9.04.01M3" %then 0;
%else 1;
%end;
%else %if &feature=EXPORTXLS %then %do;
/* is it possible to PROC EXPORT an excel file? */
%if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 1;
%else %if %sysfunc(sysprod(SAS/ACCESS Interface to PC Files)) = 1 %then 1;
%else 0;
%end;
%else %do;
-1
%put &sysmacroname: &feature not found;
@@ -20795,6 +20801,7 @@ proc http method='POST' headerin=&authref in=&mainref out=&outref
%end;
run;
%if (&SYS_PROCHTTP_STATUS_CODE ne 200 and &SYS_PROCHTTP_STATUS_CODE ne 201)
or &mdebug=1
%then %do;
data _null_;infile &outref;input;putlog _infile_;run;
%end;
@@ -20810,7 +20817,7 @@ options &optval;
%if &outlogds ne _null_ or &mdebug=1 %then %do;
%local dumplib;
%let dumplib=%mf_getuniquelibref();
libname &dumplib json (&outref);
libname &dumplib json fileref=&outref;
data &outlogds;
set &dumplib..log;
%if &mdebug=1 %then %do;
@@ -20828,7 +20835,8 @@ options &optval;
filename &authref;
filename &mainref;
%end;
%mend ms_runstp;/**
%mend ms_runstp;
/**
@file
@brief Will execute a SASjs web service on SASjs Server
@details Prepares the input files and retrieves the resulting datasets from

View File

@@ -40,6 +40,12 @@
%else %if "&SYSVLONG" < "9.04.01M3" %then 0;
%else 1;
%end;
%else %if &feature=EXPORTXLS %then %do;
/* is it possible to PROC EXPORT an excel file? */
%if "%substr(&sysver,1,1)"="4" or "%substr(&sysver,1,1)"="5" %then 1;
%else %if %sysfunc(sysprod(SAS/ACCESS Interface to PC Files)) = 1 %then 1;
%else 0;
%end;
%else %do;
-1
%put &sysmacroname: &feature not found;

View File

@@ -162,6 +162,7 @@ proc http method='POST' headerin=&authref in=&mainref out=&outref
%end;
run;
%if (&SYS_PROCHTTP_STATUS_CODE ne 200 and &SYS_PROCHTTP_STATUS_CODE ne 201)
or &mdebug=1
%then %do;
data _null_;infile &outref;input;putlog _infile_;run;
%end;
@@ -177,7 +178,7 @@ options &optval;
%if &outlogds ne _null_ or &mdebug=1 %then %do;
%local dumplib;
%let dumplib=%mf_getuniquelibref();
libname &dumplib json (&outref);
libname &dumplib json fileref=&outref;
data &outlogds;
set &dumplib..log;
%if &mdebug=1 %then %do;
@@ -195,4 +196,4 @@ options &optval;
filename &authref;
filename &mainref;
%end;
%mend ms_runstp;
%mend ms_runstp;