如何用SAS宏变量自动批量移除table1所有字符列的冒号？

原宏代码的问题分析 #

1. 误用%sysfunc调用数据步函数：COMPRESS、VVALUE是数据步执行阶段的函数，不能用%sysfunc()包裹，宏处理器会在编译阶段尝试执行这些函数，而非生成正确的数据步代码。
2. 错误使用rename方式：%sysfunc(rename)是无效写法，RENAME不属于宏函数，无法通过这种方式执行批量重命名。
3. 字典表查询的大小写问题：SAS字典表dictionary.columns中存储的库名、表名均为大写，若原查询未统一大小写，可能无法匹配到目标列。

修正后的完整代码 #

第一步：获取所有字符列名称

proc sql noprint;
  select name into :alpha_cols separated by ' ' 
  from dictionary.columns
  where libname = 'WORK' 
    and upcase(memname) = 'TABLE1'  /* 统一表名大小写，避免匹配失败 */
    and type = 'CHAR'; 
quit;

第二步：批量处理字符列

data work.P (
  rename=(
    %do i = 1 %to %sysfunc(countw(&alpha_cols));
      %let col = %scan(&alpha_cols, &i);
      &col._new = &col  /* 批量定义重命名规则 */
      %if &i ne %sysfunc(countw(&alpha_cols)) %then %str( );  /* 列间添加空格分隔 */
    %end;
  )
);
  set table1;
  /* 循环生成新变量，移除冒号 */
  %do i = 1 %to %sysfunc(countw(&alpha_cols));
    %let col = %scan(&alpha_cols, &i);
    &col._new = compress(vvalue(&col), ':');
  %end;
  /* 删除原字符列 */
  drop &alpha_cols;
run;

代码说明 #

• 利用数据集选项rename=批量完成新变量到原变量名的映射，避免在数据步内重复处理。
• 数据步内直接使用compress(vvalue(&col), ':')生成新变量，符合SAS数据步语法规则。
• 最后统一drop原字符列，确保输出数据集只保留处理后的变量。

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