How to identify multiple results from same variable in one table

[miss2223]

I would like to know who has got Apple and Pear.

Output expecting to see John and Grant only. 

Here is my code:

data person;
input name $ products$;
datalines;
John Apple
John Pear
Mary Apple

Helen Apple
Helen Orange
Grant Apple
Grant Pear
;

Thanks 

[andreas_lds]

What have you tried?

Do you want a dataset or a report?

In both cases: use a where statement.

[tarheel13 · Accepted solution]

proc sort data=person;
    by name;
run;

proc transpose data=person out=person_t(drop=_name_);
    by name;
    var products;
run;

data person2;
    set person_t;
    all_prods=catx(',',of col:);
    if prxmatch('/Apple,Pear|Pear,Apple/i',all_prods);
run;