用proc rank过程可以实现百分位排序。然后利用这个过程可以筛选

来个笨方法，保证实用：
/*先把data set排序*/
Proc sort data =table1 ;
By descending 市盈率;
Run;
/*前40%的记录个数*/
proc sql outobs=1 number ;
select count(*)*0.4 into :num from table1 ;
quit;
%put &num.;
/*打印*/
proc sql inobs=#
select * from table1;
quit;

可以更简单点：

proc sort data=table1;
        By descending 市盈率;
Run;
data table1;
        set table1 nobs=tot;
        if _N_ <= 0.4 * tot;
run;