data ia.lookup1;
   array Targets{1997:1999,12} _Temporary_; 
   if _N_=1 then do I= 1 to 3;
	  set ia.ctargets;
	  array Mon{*} Jan--Dec;
	  do J=1 to dim(Mon);
	     Targets{Year,J}=Mon{J};
	  end;
   end;
   set ia.monthsum(keep=SaleMon RevCargo MonthNo);
   Year=input(substr(SaleMon,4),4.); 
   CTarget=targets{Year,MonthNo}; 
run;

proc print data = ia.lookup1 noobs;
   title 'Using a Multidimensional Array for Table Lookup';
   var SaleMon RevCargo CTarget;
   format _numeric_ dollar14.; 
run;