SAS Array

Defining an Array

data charity(drop=qtr);
set prog2.donate;
array Contrib{4} Qtr1 Qtr2 Qtr3 Qtr4;
do qtr =1 to 4
Contrib{qtr} = Contrib{qtr} + 1.25;
end;
Run;


Proc Print data=percent noobs;
var ID percent1-percent4;
format percent1-percent4 percent6.;
run;

data change(drop=i);
set prog2.donate;
array Contrib{4} Qtr1-Qtr4;
array Diff{3};
do i =1 to 3;
Diff{i} = Contrib{i+1} - Contrib{i};
end;
run;

data compare(drop qtr goal1-goal4);
set prog2.donate;
array contrib{4} qtr1-qtr4;
array diff{4};
array goal{4} goal1-goal4 (10,15,5,10);
do qtr = 1 to 4;
diff{qtr} = contrib{qtr} - goal{qtr};
end;
run;

data rotate(drop=qtr1-qtr4);
set prog2.donate;
array contrib{4} qtr1-qtr4;
do qtr 1 to 4;
amount = contrib{qtr};
output;
end;
run;