array & output

%let ntime=288;
data series (drop=j);
array c(30) ;
array s(30);
  do time=1 to &ntime; 
    do j=1 to 30;
      c[j]=cos(2*3.141593*j* time/&ntime); s[j]=sin(2*3.141593*j* time/&ntime);
    end;
    output;
  end;
run;