求个sas日志出现error后自动报错的宏程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

经常会遇到这样一些事情，做了一个很大的宏程序，中间有很多data步，很多循环，跑了很长时间，导致日志几十页长。
跑完了之后，首先要看日志有没有错误，拉了几十页慢慢找红色的error，找到错误再慢慢调试代码。

有没有什么方法，可以实现以下功能.
1:　程序跑完后，日志如果有红色的error，自动出来ods界面（或其它弹出界面），提示错误，甚至显示出错误日志位置上下一定区域的日志。
2：有的时候，还想看到warning情况，可否也类似上述error情况给出提示。
3:  因为跑一个程序要好久，可否控制日志出现error后，终止sas执行过程，随后的程序都不再执行。

扫码加我 拉你入群

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

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

分享0 收藏5 回帖

关键词：Error 宏程序 err warning data步 程序 error

1.可以将log文件printto到txt文件中，然后在文件中用SCAN，或者index寻找“ERROR”，这样可以找到所有的error message

2.不必将warning专门列出来，有时候warning只是一些类似格式上的错误，不影响下步sas的运行

3.在marco中，我只是用了一步语句“%if &SYSERR > 6 %then %goto STOPLOG;”。至于为什么&syserr是大于6，这只是我自己工作经验总结，然后把STOPLOG放在最后一步，这样就可以跳出macro了。

一点愚见，大家可以讨论。

这是之前一些做法，你看看是否有帮助。。。

1. /*输出错误状态和错误信息*/
   
2. %macro error_handle(information);
   
3. %global status scripts_info;
   
4. 
   
5. /*自动宏变量syserr为0表示运行成功，无error和warning，为4表示成功运行但是有warning，自动宏变量syserrortext为日志中错误信息
   
6. status表示运行状态，scripts_info表示程序中那一步出错*/
   
7. %if &syserr^=0 and &syserr^=4 %then %do;
   
8.         %put 'error'::&syserrortext.;
   
9.         %let status=ERROR;
   
10.         %let scripts_info=&information;
    
11. %end;
    
12. %else %do;
    
13.         %let status=OK;
    
14.         %let scripts_info=程序执行成功;       
    
15. %end;
    
16. 
    
17. %mend;
    
18. 
    
19. /*生成文件并写入简要日志*/
    
20. %macro create_file();
    
21. data _null_;
    
22. file "d:\&name..jk";
    
23. put "&name." @;        /*name为程序的名称*/
    
24. put "|" @;
    
25. put "&date." @;        /*date为当天运行日期*/
    
26. put "|" @;
    
27. put "&begin_time." @; /*begin_time为程序开始运行时间*/
    
28. put "|" @;
    
29. put "&end_time." @;        /*end_time为程序运行结束时间*/
    
30. put "|" @;
    
31. put "&status." @; /*status为程序运行状态，OK或者ERROR*/
    
32. put "|" @;
    
33. put "&scripts_info." @;        /*scripts_info为详细信息*/
    
34. put "|" ;
    
35. run;
    
36. 
    
37. /*若成功运行，则把文件修改为.ok文件*/
    
38. %if %quote(&status.)=%quote(OK) %then %do;
    
39.         data _null_;
    
40.                 _rc=rename("d:\&name..jk","d:\&name..ok",'file');
    
41.         run;
    
42. %end;
    
43. 
    
44. /*若失败，则把文件修改为.error文件*/
    
45. %else %do;
    
46.         data _null_;
    
47.                 _rc=rename("d:\&name..jk","d:\&name..error",'file');
    
48.         run;
    
49. 
    
50. %end;
    
51. 
    
52. %mend;
    
53. 
    
54. /*以下是一个例子，当生成test数据集时出错，然后就跳到mend_end后面的位置，所以就不执行建立数据集test1的步骤，
    
55. 然后生成error文件*/
    
56. %macro test;
    
57. 
    
58. %let name=test;
    
59. 
    
60. %let date=%sysfunc(putn(%sysfunc(date()),yymmdd10.));
    
61. 
    
62. %let begin_time=%sysfunc(datetime());
    
63. 
    
64. proc printto log="d:\&name..txt";
    
65. run;
    
66. 
    
67. data test;
    
68.         'x+1';
    
69. run;
    
70. 
    
71. %error_handle(生成数据集&name.出错);
    
72. %if &syserr^=0 and &syserr^=4 %then %do;%goto mend_end; %end;
    
73. 
    
74. data test1;
    
75.         set sashelp.class;
    
76. run;
    
77. 
    
78. %error_handle(生成数据集test1出错);
    
79. %if &syserr^=0 and &syserr^=4 %then %do;%goto mend_end; %end;
    
80. 
    
81. %mend_end:
    
82. 
    
83. %let end_time=%sysfunc(datetime());
    
84. 
    
85. %create_file();
    
86. %mend;
    
87. 
    
88. %test;
    
89. proc printto;
    
90. run;

复制代码

tangliang0905 发表于 2013-2-22 01:55
1.可以将log文件printto到txt文件中，然后在文件中用SCAN，或者index寻找“ERROR”，这样可以找到所有的err ...

Good tips:

The errors are usually caused by wrong syntax, or specify a non-exist variable, or say compiling errors.

One alway use run cancel; statement to check the syntax first. See below.

340  data a;
341    set sashelp.class;
342    where age2=0;
ERROR: Variable age2 is not on file SASHELP.CLASS.
343  run cancel;

NOTE: The SAS System stopped processing this step because of errors.
WARNING: The data set WORK.A may be incomplete.  When this step was stopped there were 0
         observations and 5 variables.
WARNING: Data set WORK.A was not replaced because this step was stopped.
NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds


344
345  proc means data=sashelp.class;
346  var _all_;
ERROR: Variable Name in list does not match type prescribed for this list.
ERROR: Variable Sex in list does not match type prescribed for this list.
347  run cancel;

WARNING: The procedure was not executed at the user's request.
NOTE: PROCEDURE MEANS used (Total process time):
      real time           0.00 seconds
      cpu time            0.01 seconds

playmore原来贴一个PDF.

%macro RunQuit();
  ;run;quit;
  %if &syserr. ne 0 %then %do;
     %abort cancel;
         %end;
%mend;


data tmp;
   set sashelp.class;
   where age2=0;
%runquit;
data tmp2;
  x=1;
%runquit ;

webgu 发表于 2013-2-23 11:43
playmore原来贴一个PDF.

%macro RunQuit();

试了一下，这个不错，可以达到目的，不过syserr=4的时候表示waring，如果出现waring不让停止的话，还要加上ne 4。另外, 不知道怎么把这个宏变成永久的宏，以后使用的时候，直接调用，不写宏代码了。

把你的宏存一个SAS文件，假使命名为 runquit.sas 放在一个文件夹。
用时加个Header code.
filename  mymacros   'd:\myacro'; /*mymacro folder path*/

options
  mautosource sasautos=(sasautos mymacros)
;

data _null_;
     set sashelp.class;
   if age2=0;
%runquit;

其实在Log窗口直接按ctrl+F然后搜WARN或ERROR就可以了
但是另一个最严重的问题是你在Log里看到了ERROR，但有时很难定位发生错误的地方，尤其在宏套宏的时候
我现在变通的方法是，
首先，所有的宏，其中的临时表或临时宏变量全部用宏的名称首字母作前缀，方便查找
其次，在较长的宏中分步，每步put出一行标题，便于定位

Here is what I use:

%macro lastmsg;
%* Check last warning message;
%put;
%if %bquote(&syswarningtext) eq %then
%put No warnings generated so far in this SAS session;
%else %do;
%put Last warning message generated in this SAS session:;
%put &syswarningtext;
%end;
%put;
%* Check last error message;
%if %bquote(&syserrortext) eq %then
%put No error messages generated so far in this SAS session;
%else %do;
%put Last error message generated in this SAS session:;
%put &syserrortext;
%put;
%end;
%put;
%mend lastmsg;

%lastmsg