data bbs1;
set bbs nobs=nobs;
retain grp;
if _n_=1 then grp=1;
do i=1 to nobs;
if ((_n_-1)/16)=i then grp+1;
end;
drop i;
run;
proc transpose data=bbs1 out=bbs2(drop=_label_);
by notsorted grp;
var bid1-bid3;
run;
data bbs3;
set bbs2;
call sortn (of col16-col1);
array var[16] col1-col16;
do i=1 to 15;
if var[i] ne var[i+1] then do;
max2=var[i+1];
leave;
end;
end;
keep grp _name_ max2;
run;
proc transpose data =bbs3 out=bbs4(drop=_name_) prefix=post_;
by notsorted grp;
var max2;
id _name_;
run;
proc sql;
create table wanted(drop=grp) as
select a.*, post_bid1,post_bid2,post_bid3
from bbs1 a join bbs4 b
on a.grp=b.grp;
quit;


雷达卡





京公网安备 11010802022788号







