data SAMPLE;
      set POP;
      if ranuni(0) <= 0.25 then output;
   run;