data ia.subset;
   do PickIt = 100 to 500 by 100;
      set ia.Sale2000 point = PickIt;
      output;
    end;
    stop;
run;

proc print data = ia.subset heading = h label;
   title 'Creating a Systematic Sample of 5 Observations';
   format date date9.;
run;