data work.subset(drop = i SampSize);
   SampSize = 10;
   do i = 1 to SampSize;
      PickIt = ceil(ranuni(0)*TotObs);
      set ia.sale2000 point = PickIt nobs = TotObs;
      output;
    end;
    stop;
run;

proc print data = work.subset label;
   format date date9.;	
   title 'A Random Sample with Replacement';
run;