如何在SAS中查找ERROR:字符串并提取对应完整语句？

你可以通过以下两种实用方法提取日志里包含ERROR:的完整语句，整合到你的错误通知流程中：

方法1：字符串定位函数组合（INDEX + SUBSTR + 行逻辑判断） #

先定位ERROR:的位置，再根据日志行的格式提取完整错误内容，支持单行和多行错误提示：

/* 提取单行错误语句 */
data error_single_lines;
  infile "&your_log_path" lrecl=32767;
  input line $char32767.;
  if index(line, "ERROR:") > 0 then do;
    error_statement = line;
    output;
  end;
run;

/* 提取多行错误块（比如ERROR后带换行的详细报错信息） */
data error_multi_blocks;
  infile "&your_log_path" lrecl=32767 end=eof;
  length error_block $32767.;
  retain error_block;
  input line $char32767.;
  
  if index(line, "ERROR:") > 0 then do;
    if error_block ne "" then output;
    error_block = line;
  end;
  else if error_block ne "" then do;
    /* 判断是否为错误续行：通常续行以空格/问号开头 */
    if substr(line, 1, 1) in (" ", "?") then error_block = catx(" ", error_block, line);
    else do;
      output;
      error_block = "";
    end;
  end;
  
  if eof and error_block ne "" then output;
run;

方法2：正则表达式（PRXMATCH + PRXPOSN） #

用正则匹配更灵活，适合复杂格式的日志错误提取：

/* 匹配单行ERROR语句 */
data error_regex_single;
  infile "&your_log_path" lrecl=32767;
  input line $char32767.;
  if prxmatch("/ERROR:.*/", line) then do;
    error_statement = prxposn(prxparse("/ERROR:.*/"), 0, line);
    output;
  end;
run;

/* 匹配多行ERROR块 */
data error_regex_multi;
  infile "&your_log_path" lrecl=32767 end=eof;
  length error_block $32767.;
  retain error_block regex_id;
  
  if _n_ = 1 then regex_id = prxparse("/^ERROR:/");
  input line $char32767.;
  
  if prxmatch(regex_id, line) then do;
    if error_block ne "" then output;
    error_block = line;
  end;
  else if error_block ne "" then do;
    if prxmatch("/^\s+/", line) then error_block = catx(" ", error_block, line);
    else do;
      output;
      error_block = "";
    end;
  end;
  
  if eof and error_block ne "" then output;
run;

整合到邮件通知逻辑 #

把提取到的错误内容存入宏变量，直接在邮件中输出：

/* 将错误语句拼接为宏变量 */
data _null_;
  set error_multi_blocks end=eof;
  length all_errors $32767.;
  retain all_errors;
  all_errors = catx("\n", all_errors, error_block);
  if eof then call symputx('error_msg', all_errors);
run;

/* 触发邮件通知 */
%macro send_error_alert;
  %if &error_msg ne %then %do;
    filename mail email 
      to="your_notify_email@domain.com"
      subject="SAS任务错误通知"
      type="text/plain";
    data _null_;
      file mail;
      put "SAS任务执行出现以下错误：";
      put "&error_msg";
    run;
    filename mail clear;
  %end;
%mend;
%send_error_alert;

内容的提问来源于stack exchange，提问作者Eyal Marom