SAS日志檢測

以前跑數(shù)據(jù)集市時，通常是每天自己批量跑，如果每天查看日志非常麻煩。今天給大家分享一段數(shù)據(jù)日志的檢測代碼，可以判斷是是哪天出錯了。如下圖所示：
[xmy_1487668820/2017-05-05-16-06-49-9355.png]
 程序如下：
%macro check_main_log(dizhi);

data rizhi_shujuji3;

  infile "&dizhi." end=eof length=length;

  input jilu $400. length;

run;

/*將錯誤的記錄找出來，進行排列*/

data xiugai3;

  set rizhi_shujuji3 end=w;

  retain errcount 0;

jilu=left(trim(jilu));

  if jilu=:"ERROR:" or jilu=:"WARNING:" or jilu=:"ERROR" or jilu=:"WARNING" then do;

errcount=errcount+1;

  call symput("errcount",errcount);

  end;

  if w then do;

panduan=errcount;

  end;

run;


data c3;

  set xiugai3;

  if panduan~=.;

  %let panduan=panduan;

  call symput("panduan",panduan);

run;

/*找出錯誤記錄所在的行數(shù)*/

data xiugai3;

  set xiugai3;

  retain errfound 0;

  if errcount~='' then errfound=errfound+1;

run;

/*排序記錄排列，將錯誤數(shù)據(jù)記錄保留下來*/

proc sort

  data=xiugai3;

  by errcount;

run;

%if &panduan.=0 %then %do;

data xggg;

  length txtname $400. biaoshi $10. jilu $400.;

  format errcount best12. errfound best12. up_data best12.;

  errcount=0;

  errfound=0;

  up_data=&t.;

  txtname="&dizhi.";

  biaoshi="right";

  jilu="運行無錯";

  label jilu='錯誤記錄' errcount='序列' errfound='錯誤所在行數(shù)' txtname="檢測文件名稱" biaoshi="標(biāo)識";

  %end;

run;

/*建立一個基礎(chǔ)數(shù)據(jù)集放到邏輯庫main*/

data main.warning;

length txtname $400. biaoshi $10. jilu $400.;

format errcount best12. errfound best12. up_data best12.;

  txtname="";

  up_data="";

  biaoshi="";

  jilu="";

  errcount="";

  errfound="";

  run;

/*將錯誤的記錄放到main邏輯庫*/

proc append

  base=main.warning data=xggg force;

quit;

%if &panduan.>1 %then %do;

data xggg;

  set xiugai3;

  length txtname $400. biaoshi $10. jilu $400.;

  format errcount best12. errfound best12. up_data best12.;

  by errcount;

  txtname="&dizhi";

  up_data=&t.;

  biaoshi="warning";

  if first.errcount;

  if errcount~=0;

  drop panduan;

  label jilu='錯誤記錄' errcount='序列' errfound='錯誤所在行數(shù)' txtname="檢測文件名稱" biaoshi="標(biāo)識";

%end;

run;

/*建立一個基礎(chǔ)數(shù)據(jù)集放到邏輯庫main*/

data main.warning;

length txtname $400. biaoshi $10. jilu $400.;

format errcount best12. errfound best12. up_data best12.;

  txtname="";

  up_data="";

  biaoshi="";

  jilu="";

  errcount="";

  errfound="";

  run;

/*講錯誤的記錄放到main邏輯庫*/

proc append

  base=main.warning data=xggg force;

quit;

%mend;

********************以下是調(diào)用******************

data time;

  format t $8.;

  t=compress(year(today())*10000+month(today())*100+day(today()));

  call symput('t',t);

run;

/*創(chuàng)建文件夾*/

data _null_;

new = dcreate("&t.","&input.");

new1 = dcreate("結(jié)果數(shù)據(jù)","&input.\&t.");

new2 = dcreate("錯誤數(shù)據(jù)集","&input.\&t.");

new3 = dcreate("log","&input.\&t.");

new4 = dcreate("main","&input.\&t.");

run;

%let canshu = &input.\&t.\錯誤數(shù)據(jù)集;

%let log = &input.\&t.\log;

%let main = &input.\&t.\main;

/*導(dǎo)出日志*/

DM 'LOG;log; FILE "&log.\main.txt" replace;';

run;

/*清除日志*/

DM 'log; "clear";';

/*創(chuàng)建邏輯庫*/

libname canshu "&canshu.";

libname main "&main.";

/*調(diào)用檢測日志的宏程序*/

%check_main_log(&log.\main.txt);
此程序在批量運行中特別方便，只要查看邏輯庫main 里的warning數(shù)據(jù)集就可知道哪里出錯。