data case7_6;

set case7;

run;

proc sort data = case7_6;

by descending Quantity;

run;

data case7_6;

set case7_6;

obs = _n_;

run;

%macro selected(number = );

%do i = 1 %to &number;

data _null_;

set case7_6;

if obs = &i then call symput ("selectedcustomer", customerid);

run;

data temp;

set case7_6;

if customerid = "&selectedcustomer";

largest = &i;

run;

%if &i =1 %then %do;

data sales;

set temp;

run;

%end;

%else %do;

data sales;

set sales temp;

run;

%end;

%end;

%mend selected;

%selected(number = 5);