如何自动生成SAS代码说明？能否用SAS代码输出程序信息至日志或文件？

一、自动为SAS代码生成说明 #

有几种实用方法可以自动生成SAS代码的说明文档：

1. 自定义宏解析代码生成注释 #

编写SAS宏扫描代码中的核心语句（DATA步、PROC步），提取关键信息后自动插入说明注释。示例如下：

%macro gen_code_docs(code_path=);
  /* 读取目标SAS代码文件 */
  filename code "&code_path";
  data code_lines;
    infile code length=len;
    input line $varying2000. len;
    line_num + 1;
    /* 识别DATA步并生成注释 */
    if upcase(substr(line,1,4))='DATA' then do;
      data_table = scan(line,2);
      comment = "/* 数据步：创建/更新表 " || trim(data_table) || "，执行逻辑：" || trim(line) || " */";
      output;
    end;
    /* 识别PROC步并生成注释 */
    else if upcase(substr(line,1,4))='PROC ' then do;
      proc_name = scan(line,2);
      proc_input = scan(line,3);
      comment = "/* 过程步：使用" || trim(proc_name) || "过程，处理输入表 " || trim(proc_input) || " */";
      output;
    end;
    /* 保留原代码行 */
    output;
  run;
  /* 将带注释的代码写入新文件 */
  filename newcode "annotated_&code_path";
  data _null_;
    set code_lines;
    file newcode;
    if comment ne '' then put comment;
    put line;
  run;
%mend;

/* 调用宏，传入目标SAS代码路径 */
%gen_code_docs(code_path=/sas/programs/sample.sas);

该宏会自动在DATA步和PROC步前插入包含表名、过程名的说明注释，同时保留原代码结构。

2. 利用SAS元数据提取信息生成文档 #

若SAS环境配置了元数据服务器，可通过PROC METADATA提取程序的依赖关系、输入输出表、参数等信息，生成结构化说明：

proc metadata in=
'<GetMetadataObjects>
  <Reposid>$METAREPOSITORY</Reposid>
  <Type>SASProgram</Type>
  <Objects>
    <Name>sample_program</Name>
  </Objects>
  <NS>SAS</NS>
  <Flags>268435456</Flags>
  <Options>
    <Templates>
      <Template>SASProgram.Template</Template>
    </Templates>
  </Options>
</GetMetadataObjects>'
out=program_info;
run;

/* 将提取的信息导出为PDF文档 */
ods pdf file='program_documentation.pdf';
proc print data=program_info;
run;
ods pdf close;

3. SAS Studio/Enterprise Guide内置功能 #

SAS Studio的程序文档生成器插件（部分版本自带）可一键生成包含代码注释、输入输出表、过程说明的HTML/PDF文档；SAS Enterprise Guide中可通过「文件→导出→程序文档」功能直接生成带说明的文档。

二、输出程序执行条件、输入输出表到日志或TXT文件 #

完全可以通过SAS代码实现，以下是几种常用方案：

1. 输出执行条件到日志/文件 #

/* 输出系统执行条件到SAS日志 */
%put === 程序执行条件 ===;
%put 执行日期：&SYSDATE;
%put 执行时间：&SYSTIME;
%put 当前SAS版本：&SYSVLONG;
%put 核心系统选项设置：;
proc options option=(obs mprint errors);
run;

/* 将执行条件输出到TXT文件 */
filename cond_log "/sas/logs/execution_conditions.txt";
data _null_;
  file cond_log;
  put "=== 程序执行条件 ===";
  put "执行日期：" "&SYSDATE";
  put "执行时间：" "&SYSTIME";
  put "SAS版本：" "&SYSVLONG";
run;
proc options option=(obs mprint errors) out=options_list;
run;
data _null_;
  set options_list;
  file cond_log mod;
  put option_name "=" option_value;
run;
filename cond_log clear;

2. 输出输入输出表信息到日志/文件 #

利用SAS字典表DICTIONARY.TABLES查询会话中的表信息，输出到日志或文件：

/* 输出指定库下的表信息到SAS日志 */
%put === 输入输出表信息 ===;
proc sql;
  select libname, memname, memtype, crdate, nobs
  from dictionary.tables
  where libname in ('WORK', 'SASUSER');
quit;

/* 将表信息输出到TXT文件 */
filename table_log "/sas/logs/table_info.txt";
proc sql;
  create table table_info as
  select libname, memname, memtype, crdate, nobs
  from dictionary.tables
  where libname in ('WORK', 'SASUSER');
quit;
data _null_;
  set table_info;
  file table_log;
  put "库名：" libname " 表名：" memname " 类型：" memtype " 创建日期：" crdate " 记录数：" nobs;
run;
filename table_log clear;

3. 精准捕获过程步的输入输出 #

如果需要记录特定PROC步的输入输出，可在过程前后用宏实现：

%macro log_proc_io(proc_name=, input_table=, output_table=);
  %put === &proc_name 过程输入输出 ===;
  %put 输入表：&input_table;
  %put 输出表：&output_table;
  %put 执行时间：&SYSTIME;
  /* 追加写入到TXT文件 */
  filename proc_log "/sas/logs/proc_io.txt" mod;
  data _null_;
    file proc_log;
    put "&proc_name 过程 - 输入：&input_table 输出：&output_table 执行时间：&SYSTIME";
  run;
  filename proc_log clear;
%mend;

/* 使用示例：调用PROC SORT时记录输入输出 */
%log_proc_io(proc_name=SORT, input_table=WORK.raw_data, output_table=WORK.sorted_data);
proc sort data=WORK.raw_data out=WORK.sorted_data;
  by id;
run;

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