do loop for matrix 2

[econfkw]

Here is my data:

year Quarter s1 s2 .......s25

1952  1

1952  1

1952  1

1952  2

1952  2

1952  2

I want to find the product of each s(i). I wrote a clumsy code, but I'm sure a do loop can make it more efficient.

see the attached code.

[MikeZdeb · Accepted solution]

hi ... maybe ...

data s25_new;

array s(25);

array ss(25);

do until (last.q);

   set s25;

   by year q;

   if first.q then do j=1 to 25; ss(j)=1; end;

   do j=1 to 25; ss(j)=ss(j)*s(j); end;

end;

keep year q ss1-ss15;

run;