如何消除"无效数值数据"警告并保留被丢弃的诊断记录？

看起来你遇到的问题是SAS自动尝试把带字母前缀的字符型诊断码（比如V146）转换成数值时失败，触发警告，后续又因为缺失值过滤把这些记录丢掉了。先拆解一下问题根源，再给你具体的解决办法：

问题根源 #

那个「无效数值数据」的警告，肯定不是drop j; run;本身导致的——它应该来自你代码里之前的步骤：比如你把字符型的diag1/diagN列赋值给了数值变量、做了数值运算，或者和数值变量做了比较。SAS遇到这种场景会自动尝试字符转数值，遇到带V的字符串转失败时，就会把对应值设为缺失；如果后续代码里有where 变量 is not missing;这类过滤条件，这些带V诊断码的记录就会被丢弃。

具体解决步骤 #

1. 定位并修正不必要的数值转换 #

先找到触发转换的代码段，比如如果之前有类似这样的代码：

data temp;
    set raw_data;
    j = diag1; /* diag1是字符型，j默认是数值型，触发自动转换 */
    drop j;
run;

如果j变量是多余的，直接删掉j = diag1;这一行就行；如果需要用diag1做判断，改成字符操作，比如：

if diag1 = 'V146' then do;
    /* 你的业务逻辑 */
end;

2. 安全转换字符诊断码（如果需要数值版本） #

如果你确实需要把诊断码转换成数值，但不想丢记录，可以用input()函数加上??修饰符——这个修饰符会让转换失败时不产生警告，只把数值设为缺失，同时保留整条记录：

data cleaned_data;
    set raw_data;
    /* 给每个diag列生成对应的数值版本，转换失败时设为缺失 */
    num_diag1 = input(diag1, ?? best32.);
    num_diag2 = input(diag2, ?? best32.);
    /* ... 其他diag列同理 */
    /* 不要过滤掉原diag列非空的记录 */
run;

3. 调整过滤逻辑，保留原记录 #

检查后续代码里的过滤条件，比如如果有where num_diag1 is not missing;，改成基于原字符列的判断：

/* 保留所有有诊断码的记录，不管数值转换是否成功 */
where diag1 is not missing or diag2 is not missing ...;

4. 用批量处理简化多列操作 #

如果有大量diag列，可以用数组批量处理，避免重复代码：

data final_data;
    set original_data;
    /* 用数组批量处理所有diag列 */
    array diag_cols[*] diag1-diagN; 
    array num_diag_cols[*] num_diag1-num_diagN;
    
    do i = 1 to dim(diag_cols);
        num_diag_cols[i] = input(diag_cols[i], ?? best32.);
    end;
    drop i;
    /* 保留所有记录，即使num_diag有缺失 */
run;

这样处理后，带V的诊断码记录会被完整保留，同时你也能得到数值版本的诊断码（转换失败的为缺失），不会再触发那个烦人的警告啦。

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