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