From 1cefc0e7ee8c437344fd528322b06514abc85b98 Mon Sep 17 00:00:00 2001 From: Allan Bowe Date: Wed, 18 May 2022 15:33:41 +0000 Subject: [PATCH] feat: adding check in mf_existfeature() for ability to proc export xlsx --- all.sas | 6 ++++++ base/mf_existfeature.sas | 6 ++++++ 2 files changed, 12 insertions(+) diff --git a/all.sas b/all.sas index fe7b9ce..47688b4 100644 --- a/all.sas +++ b/all.sas @@ -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; diff --git a/base/mf_existfeature.sas b/base/mf_existfeature.sas index 0d7afab..4611952 100644 --- a/base/mf_existfeature.sas +++ b/base/mf_existfeature.sas @@ -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;