关于options的恢复

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请问各位大侠，在用通用语句options时设置了nodate nocenter nonumber之后，怎么样一次性恢复这些设置的默认格式？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：options Option tions ONS OPT 通用

很可惜，好像没有相关的keywords 如：options reset ;可以一下子搞定。

不过你可以调用这个宏搞定。

%optionreset()


宏定义：  http://blogs.sas.com/content/sas ... sas-system-options/

1. %macro OptionReset(opt);
   
2.   /***************************************************************************
   
3.    Created by Mark Jordan - http://go.sas.com/jedi
   
4.    August 14, 2012
   
5.    This macro is intended to reset any SAS system options which have been
   
6.    changed during the SAS session back to the values they had at startup.  
   
7.    To see syntax help in the SAS log, submit:
   
8.       %SiteCheck(!HELP)
   
9.   ***************************************************************************/
   
10. %local where;
    
11. %if %qupcase(%SUPERQ(opt))=!HELP
    
12.    %then %do;
    
13.    %PUT ;
    
14.    %PUT NOTE:  *&SYSMACRONAME MACRO Documentation *******************************;
    
15.    %PUT NOTE-  This macro resets modified SAS system option values back to;
    
16.    %PUT NOTE-  the original startup values.;  
    
17.    %PUT ;
    
18.    %PUT NOTE-  >>>>> Tested on Windows only <<<<<;
    
19.    %PUT NOTE-  ;
    
20.    %PUT NOTE-  SYNTAX: %NRSTR(%%OptionReset%(<opt>%));
    
21.    %PUT NOTE-     opt: standard name of the SAS System option you want to reset;
    
22.    %PUT NOTE-     OPTIONAL - if not specified, resets any option with a current;
    
23.    %PUT NOTE-                value different from the startup value.;
    
24.    %PUT ;
    
25.    %PUT NOTE-  Examples: ;
    
26.    %PUT NOTE-     To reset only the LINESIZE option:;
    
27.    %PUT NOTE-        %NRSTR(%%OptionReset%(LINESIZE%));
    
28.    %PUT ;
    
29.    %PUT NOTE-     To reset all options:;
    
30.    %PUT NOTE-        %NRSTR(%%OptionReset%(%));
    
31.    %PUT ;
    
32.    %PUT NOTE-  ********************************************************************;
    
33.    %RETURN;
    
34. %end;
    
35. 
    
36.    %if &opt ne %then
    
37.    %do;
    
38.       /* Normalize the input parameter value */
    
39.       %let opt=%qupcase(&opt);
    
40.       /* Look up the option name in the dictionary tables */
    
41.       proc sql noprint;
    
42.          select count(*) into :found
    
43.             from dictionary.options
    
44.             where optname="&opt"
    
45.       ;
    
46.       quit;
    
47.       %if not &found %then
    
48.       %do;
    
49.       /* Option not listed in the dictionary tables */
    
50.          %put ERROR: (OptionReset Macro) &opt is not a valid SAS option;
    
51.          %return;
    
52.       %end;
    
53.       %else
    
54.       %do;
    
55.       /* Option WAS listed - select only that option */
    
56.          %let WHERE=where optname ="&opt";
    
57.       %end;
    
58.    %end;
    
59.    %else
    
60.    %do;
    
61.       /* No option specified                                     */
    
62.       /* Exclude options you can't change while SAS is executing */
    
63.       %let WHERE=where optstart ne 'startup' and optname not in ('AWSDEF','FONT');
    
64.    %end;
    
65. 
    
66. /* Reset those options that differ from the startup values */
    
67. data _null_;
    
68.    length statement startup current $1024;
    
69.    set sashelp.voption;
    
70.    &where;
    
71.    startup=getoption(optname,'startupvalue');
    
72.    current=getoption(optname);
    
73.    if startup ne current then do;
    
74.       PUTLOG "NOTE: OptionReset Macro Resetting " optname " from " current " to " startup ".";
    
75.       statement =cat('OPTIONS ',getoption(optname,'keyword, startupvalue'),';');
    
76.       call execute(statement );   
    
77.    end;
    
78. run;
    
79. %mend;

复制代码

webgu 发表于 2012-11-30 21:24
很可惜，好像没有相关的keywords 如：options reset ;可以一下子搞定。

不过你可以调用这个宏搞定。

谢谢！我试了，可是好像没有还原哦~~~

As simple as below.

options date center number;

bobguy 发表于 2012-12-2 00:11
As simple as below.

options date center number;

如果改变的OPTION很多，且不一定记得改变了哪些，想一次性恢复到启动时的option，在不重新启动SAS的情况下，有什么更好的方法？

bobguy 发表于 2012-12-2 00:11
As simple as below.

options date center number;

如果改变的OPTION很多，且不一定记得改变了哪些，想一次性恢复到启动时的option，在不重新启动SAS的情况下，有什么更好的方法？

webgu 发表于 2012-12-2 00:39
如果改变的OPTION很多，且不一定记得改变了哪些，想一次性恢复到启动时的option，在不重新启动SAS的情况下 ...

SAS default or personalized options are effected when SAS is launched. You can use a simple macro records all important ones for later to recover them back.

Here is an example for ls and ps.


*after launch sas using a macro to store all your original options;
%macro myoption;
    PAGESIZE= %sysfunc(getoption(PAGESIZE))
        LINESIZE= %sysfunc(getoption(LINESIZE))
%mend;
%let default_option=options %myoption;
%put "&default_option";

*****change options****;
options ls=120 ps=5000;

proc options GROUP=LISTCONTROL;
run;

***put default option back;
&default_option;

proc options GROUP=LISTCONTROL;
run;
  

/*Remember the settings of options*/
proc optsave out=opt_save;
run;

/*Change some options*/
options nonumber nodate pagesize=100 nobyline;

/*reset options*/
proc optload data=opt_save;
run;

pobel 发表于 2012-12-2 12:12
/*Remember the settings of options*/
proc optsave out=opt_save;
run;

这个好。谢谢。

bobguy 发表于 2012-12-2 00:11
As simple as below.

options date center number;

if i don't remenber which option i have changed and need to reset all.....