Merge pull request #243 from sasjs/resetoption

fix: resetoption

all.sas

@@ -10277,6 +10277,7 @@ https://blogs.sas.com/content/sastraining/2012/08/14/jedi-sas-tricks-reset-sas-s
 %macro mp_resetoption(option /* the option to reset */
 )/*/STORE SOURCE*/;
 
+%if "%substr(&sysver,1,1)" ne "4" and "%substr(&sysver,1,1)" ne "5" %then %do;
   data _null_;
     length code  $1500;
     startup=getoption("&option",'startupvalue');
@@ -10287,7 +10288,10 @@ data _null_;
       call execute(code );
     end;
   run;
-
+%end;
+%else %do;
+  %put &sysmacroname: reset option feature unavailable on &sysvlong;
+%end;
 %mend mp_resetoption;/**
   @file
   @brief Generate and apply retained key values to a staging table

base/mp_resetoption.sas

@@ -21,6 +21,7 @@ https://blogs.sas.com/content/sastraining/2012/08/14/jedi-sas-tricks-reset-sas-s
 %macro mp_resetoption(option /* the option to reset */
 )/*/STORE SOURCE*/;
 
+%if "%substr(&sysver,1,1)" ne "4" and "%substr(&sysver,1,1)" ne "5" %then %do;
   data _null_;
     length code  $1500;
     startup=getoption("&option",'startupvalue');
@@ -31,5 +32,8 @@ data _null_;
       call execute(code );
     end;
   run;
-
+%end;
+%else %do;
+  %put &sysmacroname: reset option feature unavailable on &sysvlong;
+%end;
 %mend mp_resetoption;

tests/crossplatform/mp_resetoption.test.sas

@@ -0,0 +1,31 @@
+/**
+  @file
+  @brief Testing mp_resetoption macro
+
+  <h4> SAS Macros </h4>
+  @li mp_assert.sas
+  @li mp_assertscope.sas
+  @li mp_resetoption.sas
+
+**/
+
+
+%let orig=%sysfunc(getoption(obs));
+
+options obs=30;
+
+%mp_assertscope(SNAPSHOT)
+%mp_resetoption(OBS)
+%mp_assertscope(COMPARE)
+
+%let new=%sysfunc(ifc(
+  "%substr(&sysver,1,1)" ne "4" and "%substr(&sysver,1,1)" ne "5",
+  %sysfunc(getoption(obs)), /* test it worked */
+  &orig /* cannot test as option unavailable */
+));
+
+%mp_assert(
+  iftrue=(&new=&orig),
+  desc=Checking option was reset (if reset option available),
+  outds=work.test_results
+)