proc print data=AllYears;
  title1 "Annual Data in Separate Variables";
run;
data details(drop=Sales1995-Sales1998);
  set AllYears;
  array SalesArray {1995:1998} Sales1995-Sales1998 ;
  do Year=lbound(SalesArray) to hbound(SalesArray);
    Value=SalesArray{Year};
    format Value dollar12.2;
    output;
  end;
run;
proc print data=details;
  title1 "Results of Array Processing";
run;