mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 22:14:35 +00:00
39 lines
979 B
SAS
39 lines
979 B
SAS
/**
|
|
@file
|
|
@brief Reset an option to original value
|
|
@details Inspired by the SAS Jedi -
|
|
https://blogs.sas.com/content/sastraining/2012/08/14/jedi-sas-tricks-reset-sas-system-options
|
|
|
|
Called as follows:
|
|
|
|
options obs=30 ps=max;
|
|
%mp_resetoption(OBS)
|
|
%mp_resetoption(PS)
|
|
|
|
|
|
@param [in] option the option to reset
|
|
|
|
@version 9.2
|
|
@author Allan Bowe
|
|
|
|
**/
|
|
|
|
%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');
|
|
current=getoption("&option");
|
|
if startup ne current then do;
|
|
code =cat('OPTIONS ',getoption("&option",'keyword','startupvalue'),';');
|
|
putlog "NOTE: Resetting system option: " code ;
|
|
call execute(code );
|
|
end;
|
|
run;
|
|
%end;
|
|
%else %do;
|
|
%put &sysmacroname: reset option feature unavailable on &sysvlong;
|
|
%end;
|
|
%mend mp_resetoption; |