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);



雷达卡


京公网安备 11010802022788号







