data ia.subset(drop = ObsLeft SampSize);
   SampSize = 10;
   ObsLeft = TotObs;
   do while(SampSize > 0);
      PickIt + 1;
      if ranuni(0) < SampSize/ObsLeft then 
         do;
            set ia.sale2000 point = PickIt
                            nobs = TotObs;
            output;
            SampSize = SampSize - 1;
         end;
      ObsLeft = ObsLeft - 1;
   end;
   stop;
run;

proc print data = ia.subset heading = h label;
   title 'A Random Sample without Replacement';
run;