1
0
mirror of https://github.com/sasjs/core.git synced 2026-01-03 23:50:06 +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 %if "&SYSVLONG" < "9.04.01M3" %then 0;
%else 1; %else 1;
%end; %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; %else %do;
-1 -1
%put &sysmacroname: &feature not found; %put &sysmacroname: &feature not found;
@@ -20795,6 +20801,7 @@ proc http method='POST' headerin=&authref in=&mainref out=&outref
%end; %end;
run; run;
%if (&SYS_PROCHTTP_STATUS_CODE ne 200 and &SYS_PROCHTTP_STATUS_CODE ne 201) %if (&SYS_PROCHTTP_STATUS_CODE ne 200 and &SYS_PROCHTTP_STATUS_CODE ne 201)
or &mdebug=1
%then %do; %then %do;
data _null_;infile &outref;input;putlog _infile_;run; data _null_;infile &outref;input;putlog _infile_;run;
%end; %end;
@@ -20810,7 +20817,7 @@ options &optval;
%if &outlogds ne _null_ or &mdebug=1 %then %do; %if &outlogds ne _null_ or &mdebug=1 %then %do;
%local dumplib; %local dumplib;
%let dumplib=%mf_getuniquelibref(); %let dumplib=%mf_getuniquelibref();
libname &dumplib json (&outref); libname &dumplib json fileref=&outref;
data &outlogds; data &outlogds;
set &dumplib..log; set &dumplib..log;
%if &mdebug=1 %then %do; %if &mdebug=1 %then %do;
@@ -20828,7 +20835,8 @@ options &optval;
filename &authref; filename &authref;
filename &mainref; filename &mainref;
%end; %end;
%mend ms_runstp;/** %mend ms_runstp;
/**
@file @file
@brief Will execute a SASjs web service on SASjs Server @brief Will execute a SASjs web service on SASjs Server
@details Prepares the input files and retrieves the resulting datasets from @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 %if "&SYSVLONG" < "9.04.01M3" %then 0;
%else 1; %else 1;
%end; %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; %else %do;
-1 -1
%put &sysmacroname: &feature not found; %put &sysmacroname: &feature not found;

View File

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