proc sort data=sashelp.pricedata out=pricedata nodupkey;
  by Date;
run;
data Prices2002;
  set pricedata;
  where Date between "01jan2002"d and "30jun2002"d;
  rename Price1-Price17 = UnitPriceProduct01-UnitPriceProduct17;
run;
proc print data=Prices2002 heading=h;
  id Date;
  format Date date9.;
  var UnitPrice:;
  title1 "Product Prices throughout First Half of 2002";
run;