select/exclude observations based on criteria

[samnan]

Hello;

I need to extract all records for every unique (ID) if that unique (ID) has (Type=1) .

data have;
infile cards dlm=" ";
input ID Type Mode Rank;
cards;
1 2 3 2
1 1 1 5
1 1 2 3
1 3 4 4
1 4 6 8
2 5 9 2
2 4 5 5
2 3 2 6
2 2 1 3
3 1 9 7
3 4 6 8
;run;

data want;
infile cards dlm=" ";
input ID Type Mode Rank;
cards;
1 2 3 2
1 1 1 5
1 1 2 3
1 3 4 4
1 4 6 8
3 1 9 7
3 4 6 8
;run;

here is my try

data try ;
set have ;
by id ;
run ;
proc sql;
create table ped as
select *
from try
where Type eq 1
;
quit;  

but it is not what i want

any help would appreciated

[stat_sas · Accepted solution]

proc sql;
create table want as
select * from have
group by id
having sum(Type=1)>0;
quit;