复制代码

6# funwin

参考sushe的，增加对company的标识

data a;
input company $ date type;
cards;
1001 200101 .
1001 200102 .
1001 200103 3
1001 200104 .
1001 200105 .
1001 200106 3
1001 200107 .
1002 200101 .
1002 200102 .
1002 200103 .
1002 200104 .
1002 200105 .
1002 200106 .
1002 200107 .
1003 200101 .
1003 200102 .
1003 200103 2
1003 200104 .
1003 200105 .
1003 200106 3
1003 200107 .
;run;

** delete company with no nonmissing type;
proc sql;
     create table a1 as
          select * from a
          group by company
          having max(type) ne .
          order by company, date;
quit;
     
data a2;
    set a1;
        by company date;
        retain pretype;
        retain chgflag;
        if first.company then do;
            pretype=.;
                        chgflag=0;
        end;
        if ^missing(type) then do;
            if missing(pretype) then pretype=type;
                else if type ne pretype then do;
                                       chgflag+1;
                                                   pretype=type;
                                        end;
        end;
        if missing(type) and ^missing(pretype) then type=pretype;
        if chgflag ne 0 then company=catx('_',company,chgflag);
        drop pretype chgflag;
run;

proc sort data=a2;
     by company descending date;
run;

data a3;
     set a2;
         by company descending date;
         retain nextype;
         if ^missing(type) then nextype=type;
         if missing(type) then type=nextype;
         drop nextype;
run;

proc sort data=a3;
     by company date;
run;

多谢7,8楼 让小弟学了不少。

thanks for good codes. learning.