* Quiz5 Example
  Use an array to set all 
  missing values to zero;

options ls=64 nodate pageno=1;

data quiz;
   infile 'c:/datasets/quiz1.txt' firstobs=3;
   input name $ 1-10 (q1-q5) (1.) midterm final;
   array exam (7) q1-q5 midterm final;
   do i = 1 to 7;
      if exam(i) = . then exam(i) = 0;
   end;
   drop i;

proc print;
   title;

run;
quit;