data SAMPLE (drop=i);
      do i = 1 to 100;
         select = ceil(ranuni(0)*total);
         obs = select;
         set POP point=select nobs=total;
         output;
      end;
      stop;
   proc sort data=SAMPLE out=SAMPLE(drop=obs) nodupkey;
      by obs;
   run;