简化SAS代码：将多组DO循环与IF语句合并为单组循环

原代码中用于生成连续月份标记的多组重复DO循环可合并为单组循环，精简结构的同时完全保留原有逻辑：

优化后的代码片段（替换原注释区间内容） #

* Code for creating a flag for Looping consecutive months;
if end_indx - strt_indx >= 15 then do _i = strt_indx to end_indx - 14 until(flag[_i] = 1);
    * 固定校验：起始3个月和12个月后的3个月均为0;
    if pays[_i] = 0 and pays[_i+1] = 0 and pays[_i+2] = 0 
       and pays[_i+12] = 0 and pays[_i+13] = 0 and pays[_i+14] = 0 then do;
        * 遍历需要标记的位置（第3到第11个月）;
        do _k = 3 to 11;
            * 校验从_i+3到_i+_k的所有月份均非0;
            if not(0 in (of pays[_i+3]--pays[_i+_k])) then flag[_i+_k] = 1;
        end;
    end;
end;

* 统一赋值flag为0或1;
do _i = 1 to 96;
    flag[_i] = coalesce(flag[_i], 0);
end;
* End of Code for creating a flag for Looping consecutive months;

优化说明 #

1. 合并外层循环：将9组重复的_i循环合并为一组，避免多次遍历相同索引范围，提升代码效率
2. 提取固定条件：把所有组共有的「前3个月为0」「12个月后的3个月为0」条件提取出来，减少重复判断
3. 内层循环处理变量条件：用_k循环处理从第3到第11个月的非0校验逻辑，对应设置不同位置的flag变量
4. 简化赋值逻辑：用coalesce函数替代原有的IF-ELSE语句，更简洁地将空值flag设为0

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