data POP;
      set POP;
      random = ranuni(0);
   proc sort data=POP;
      by random;
   data SAMPLE;
      set POP (obs=100);
   run;