Removing Duplicates by classes

[RandyStan]

Dear All

  My Data is as follows

  ID          VarA      Cat

  A             5           1

  A             6           1

  A             4          1

 B             3           1

 B             7           1

D             6            2

D             1           2

E             7           2

G            4           3

I want to keep just one ID from each CAT

So my data should look like

ID          VarA      Cat

  A             5           1

 B             3           1

 D             6           2

 E             7           2

 G            4           3

Can someone please help

Thanks in advance

   Randy

[russt_sas]

You can use first. logic, for example:

data one;
input ID $ VarA Cat;
cards;
A 5 1
A 6 1
A 4 1
B 3 1
B 7 1
D 6 2
D 1 2
E 7 2
G 4 3
;

data new;
set one;
by id;
if first.id then output;
run;

proc print;
run;

[Kurt_Bremser]

data want;
set have;
by cat id;
if first.id; /* Subsetting IF */
run;