从COL74倒序选取首个非负数的SAS/WPS实现需求

刚好我对SAS在WPS环境下的用法很熟悉，针对你需要新增NEWCOL字段（从COL74开始倒序找第一个非缺失、非-998的数值）的需求，我提供两种实用的实现方式：

方式一：DATA步（推荐，灵活易维护） #

这种方法用数组处理，适合列数较多的场景，后续如果新增检查列也容易修改：

/* 替换original_data为你的原始数据集名，new_data是输出的新数据集名 */
data new_data;
    set original_data;
    /* 按倒序定义数组：从COL74到COL70，确保循环时先检查最右侧的列 */
    array check_cols[5] COL74 COL73 COL72 COL71 COL70;
    length NEWCOL 8; /* 定义新增字段的数值类型和长度 */
    
    /* 遍历数组，找第一个有效数值 */
    do i = 1 to dim(check_cols);
        /* 跳过缺失值（.）和无效值（-998） */
        if not missing(check_cols[i]) and check_cols[i] ne -998 then do;
            NEWCOL = check_cols[i];
            leave; /* 找到目标值后立即退出循环，保证只取第一个符合条件的值 */
        end;
    end;
    
    drop i; /* 删除循环用的临时变量，避免出现在结果数据集里 */
run;

代码逻辑说明： #

• 数组check_cols把需要检查的列按**从右到左（COL74→COL70）**的顺序排列，完美匹配“从COL74开始倒序查找”的需求；
• 循环遍历数组元素，一旦找到既不是缺失值也不是-998的数值，就赋值给NEWCOL并跳出循环，确保只保留第一个符合条件的结果；
• 最后删掉临时变量i，保持数据集的整洁性。

方式二：PROC SQL写法（适合列数较少的场景） #

如果你的检查列数量不多，也可以用CASE WHEN嵌套来实现，逻辑更直观：

proc sql;
    create table new_data_sql as
    select *,
        case
            /* 按从右到左的顺序依次判断，找到第一个有效数值就返回 */
            when not missing(COL74) and COL74 ne -998 then COL74
            when not missing(COL73) and COL73 ne -998 then COL73
            when not missing(COL72) and COL72 ne -998 then COL72
            when not missing(COL71) and COL71 ne -998 then COL71
            when not missing(COL70) and COL70 ne -998 then COL70
        end as NEWCOL
    from original_data;
quit;

结果验证 #

两种方法都能精准输出你需要的结果：

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