data ia.subset;
   do PickIt = 100 to TotObs by 100;
      set ia.compare point = PickIt nobs = TotObs;
      output;
   end;
   stop;
run;


proc print data = ia.subset heading = h label;
   title 'A Systematic Sample of Fares';
run;