error en codigo

[maurimono]

Hola, estoy tratando de meter unos registros en un arreglo para despues hacer un insert en una tabla. Lamentablemente no me funciona la linea t_cadena(i):= buscarut_c.RUT_RECEPTOR;.
el error que me envia es:

Código:

ora-06531 reference to uninitialized collection

Código HTML:

declare
  cursor distintos is
         select distinct email FROM ppl_origen_2 where rownum <=10
  ;
  cursor buscarut (v_email ppl_origen_2.email%type) is
         select distinct RUT_RECEPTOR FROM ppl_origen_2 where email = v_email
  ;     
  buscarut_c buscarut%ROWTYPE;  
  TYPE cadena IS VARRAY(15) OF buscarut_c.RUT_RECEPTOR%TYPE;
  t_cadena cadena;
  i number :=0;
begin
  FOR distintos_c IN distintos LOOP
    open buscarut(distintos_c.email);
    i:=1;
    loop
        fetch buscarut into buscarut_c;
        --dbms_output.put_line(buscarut_c.RUT_RECEPTOR);
        --t_cadena.extend();
        t_cadena(i):= buscarut_c.RUT_RECEPTOR;
        EXIT WHEN buscarut%NOTFOUND;
        i:=i+1;
    end loop;
   close buscarut;
  end loop;
end;     
     

muchas gracias por su ayuda.

[huesos52]

Si no estoy mal, los array en oracle empieza en la posición 1.

Cambia esto
i number :=0;

por esto
i number :=1;

Nos cuentas

[jc3000]

Creo que el error no es ese, Huesos.

Las colecciones de objetos hay que inicializarlas antes de usarlas, que el compi pruebe esto y nos cuente.

t_cadena := t_cadena ();

Saludos

[gnzsoloyo]

Probemos:

Código SQL:

DECLARE
  
  CURSOR buscarut (v_email ppl_origen_2.email%TYPE) IS
         SELECT DISTINCT RUT_RECEPTOR FROM ppl_origen_2 WHERE email = v_email;     
  buscarut_c buscarut%ROWTYPE;  
  TYPE t_mail IS VARRAY(200) OF ppl_origen_2.email%TYPE;
  TYPE cadena IS VARRAY(15) OF buscarut_c.RUT_RECEPTOR%TYPE;
  v_email t_email;
  t_cadena cadena;
  i NUMBER :=0;
BEGIN
  SELECT DISTINCT email 
  BULK COLLECT INTO 
  v_email
  FROM ppl_origen_2 
  WHERE ROWNUM <= 10;
  
  FOR distintos_c IN distintos LOOP
    OPEN buscarut(distintos_c.email);
    i:=1;
    LOOP
        FETCH buscarut INTO buscarut_c;
        --dbms_output.put_line(buscarut_c.RUT_RECEPTOR);
        --t_cadena.extend();
        t_cadena(i):= buscarut_c.RUT_RECEPTOR;
        EXIT WHEN buscarut%NOTFOUND;
        i:=i+1;
    END LOOP;
   CLOSE buscarut;
  END LOOP;
END;