data t1;

 

input NameID    Name $;

cards;

1 Bob

2 Joe

3 Tom

;

run;

 

data t2;

input OrderID   NameID     Bought $ 20.;

cards;

1  1 Hat

2  1 Shoes

3 50 Shirt

4 75 Belt

;

run;

 

 

proc sort data=t1;

by nameid;

run;

 

proc sort data=t2;

by nameid;

run;

 

data final;

merge t1(in=a) t2(in=b);

by nameid;

if a;

if first.nameid;

run;