data T;
input ID L EXP;
Datalines;
1 1 10
1 2 10
1 2 20
1 3 30
2 1 10
2 1 10
2 2 60
3 2 60
3 3 60
;
data want;
do until(last.id);
set t;
by id;
if l<=1 then flag=1;
end;
do until(last.id);
set t;
by id;
if not flag then exp=0;
output;
end;
drop flag;
run;
data T;
input ID L EXP;
Datalines;
1 1 10
1 2 10
1 2 20
1 3 30
2 1 10
2 1 10
2 2 60
3 2 60
3 3 60
;
data want;
do until(last.id);
set t;
by id;
if l<=1 then flag=1;
end;
do until(last.id);
set t;
by id;
if not flag then exp=0;
output;
end;
drop flag;
run;