/* 获得两端的极端值 */

proc univariate data=yourdata;
 var yourvar;
 output out=temp p1=p1 p99=p99;
run;

/* 将极端值添加到原数据集中 */
proc sql;
 create table temp2
 as
 select yourdata.*,temp.*
 from yourdata, temp
 ;
quit;

/* 截取 */
data trimmed;
 set temp2;
 if (yourvar<=p1 or yourvar>=p99) then delete;
run;