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