data        dd;
        do i=0 to 10000 by 10;
                dd=ranuni(i);/*取随机数*/
                bb=abs((atan(dd)*2)/CONSTANT('PI'))+1; /*使用反正切函数标准化数据 [1,2]*/
                cc=bb*1500; /*1500-3000*/
                output;
        end;
run;

proc sort data=dd;by cc;run;

十分感谢大佬

菜单完成更简单！