Array subscript out of range at line 33 column 3.

[yp2609]

Above is the original dataset: actpri.CMP_Final_ATA

I want to create a loop: for each row, I want the product of all values from this row towards the last value of variable Age_To_Age.

Below is my code, which works fine for a small/made-up dataset, but not for my code: 

data myData2;
    set actpri.CMP_Final_ATA;
    array data_array[*] Age_To_Age; /* Assuming "data" is the variable you want to multiply */ 
	retain data_array;

	product = 1;
  
	do i = 1 to _n_;
		data_array[_N_] = Age_To_Age;
		product = product * data_array[i];
	end;

	output;
	drop i;

run;

It gives me error:

[PaigeMiller]

array data_array[*] Age_To_Age;

There is absolutely no need to create an array for one variable. However, later _N_ has a value of 2, and so your code refers to data_array[2] and this will fail as there is no second element in the array.

Perhaps if you explained in words what you are trying to do, we might be able to help (as I said, arrays are not needed here).

[yp2609 · Accepted solution]

Lol, I think I figured it out now.

This following code worked!

data actpri.CMP_Final_ATA_ATU;
    set actpri.CMP_Final_ATA;
	by descending Period;
    array data_array[66] _temporary_; /* Assuming "data" is the variable you want to multiply */ 
	retain data_array;

	Age_To_Ultimate = 1;
  
	do i = 1 to _n_;
		data_array[_N_] = Age_To_Age;
		Age_To_Ultimate = Age_To_Ultimate * data_array[i];
	end;

	output;
	drop i;

run;

[Reeza]

data have;
    do period=1 to 20;
        age_to_age=rand('normal', 1, 0.05);
        output;
    end;
run;

proc sort data=have;
    by descending period;
run;

data calcs;
    set have nobs=_nobs;
    retain running_mult 1;
    running_mult=running_mult*age_to_age;
run;

proc sort data=calcs;
    by period;
run;