proc import datafile='\book1.xlsx'
                dbms=xlsx
                out=test replace;
                range="Sheet1$A19:D46";
        getnames=yes;
run;

%macro test(n=,m=);
%let k=%eval(&n+1);
data test1;
        merge test %do i=2 %to &k; test(keep=tcode rename=(tcode=tcode&i) firstobs=&i) %end;;
run;

data test1(keep=fcode        date         tcode        yn _yn);
        set test1;
        retain _cnt _yn;
        if sum(tcode=tcode2>. %do j=3 %to &k; ,tcode=tcode&j>. %end;)>=&m and not missing(tcode&k) then do;
                _yn=1;
                _cnt=1;       
        end;       
        else if _cnt>&n then do;
        _cnt=1;
        _yn=0;
        end;       
        else _cnt+1;
run;
%mend;
%test(n=3, m=2);

意思是连续4个数，出现任意3个就标记1？ 那。。箭头那符合吗？

是，前提是从当期往前看三期，实际上如果这样的，第12个的200406刚开始应该不赋值或者赋值为0，但是当看200412的时候，由于条件满足，又重新被赋值为1

我知道你的意思，我是说两个红色箭头都符合条件？最终产生连续6个1的结果？任何连续3个数字加个空行，都会产生4选3的结果。妥妥的 这样的都符合条件？
。
。
。
。
2010
2010
2010
。
。
。
。

哦   我明白您的意思了   不好意思   是我疏忽了     加个限定条件吧   当期t持有的情况下，t-3期也是要持有的这个样只要t-1 t-2中任意一期持有条件都满足