*Slide 12*;
*the spreadsheet data is in file='myeggdata.txt'*;

*look at the data we'll use*;
proc print data=searchfor; run;

data full ;

*Create the array*;
array Easter(2004:2007,3);
array Size(2004:2007) $; *we added this*;

*don't let it disappear*;
retain Easter1-Easter12 size1-size4;
drop Easter1-Easter12 size1-size4;

*read the raw data into the array*;
infile 'myeggdata.txt';

if _n_=1 then do;
   do year=2004 to 2007;
	   do color=1 to 3;
		   input Easter(year,color)@;
		end;
		input size(year) $; *we added this*;
	end;
end;

*read in the SAS data*;
set searchfor;

*use the array to look up the value*;
NumEggs=Easter(year,color);
TheSize=size(year); *we added this*;
run;

proc print; run;