data finance.quarters(drop=i j);
        set finance.monthly;
        array m(4,3) month1-month12;
        array Qtr(4);
        do i=1 to 4;
          qtr(i=0);
           do j=1 to 3;
              qtr(i)+m(i,j);
           end;
        end;
     run;