写得真好                                                                        
                                       
                                                     
                                                     
                                             
                                                                 
                                                                                 

data a;
infile 'F:\a.txt' delimiter='09'x;
input id $ seg;
if _n_=1 then delete;
run;

proc sql;
create table b as
select id,max(seg) as seg
from a
group by id
;
quit;

proc sql;
create table c as
select a.*,
case when a.id=b.id and a.seg=b.seg then '1' end as qujian
from a ,b
where a.id=b.id
;
quit;

data d(drop=qujian);
        set c;
        if seg=1 then do;
           num1=1;
           end;

           else do ;
                        if qujian=1 then do;
                  num1=1;
                 end;
                         else do;
                  num1+1;
                         end;
           end;
run;

a 为数据集，obj换成seg