retornar varias filas en un package

[jc3000]

A ver, así a bote pronto ( tendría que probarlo en el curro ), veo dos fallos, uno el el PACKAGE y otro en el PACKAGE BODY.

En el package prueba esto :

Código SQL:

CREATE OR REPLACE PACKAGE pk_filas
 
IS
 
   TYPE numero IS record
   (
        CUENTA VARCHAR2(12)
   );
   
   TYPE t_numero_cuentas IS TABLE OF numero;
 
var_t_numero t_numero_cuentas;
 
   FUNCTION fu_retorna_id(cedula VARCHAR2, prueba varchar2) RETURN numero;
 
END;
/
 

Y en el body, prueba esto otro :

Código SQL:

CREATE OR REPLACE PACKAGE BODY pk_filas IS
 
FUNCTION fu_retorna_id(cedula VARCHAR2, prueba varchar2) RETURN numero IS
   
indice_tabla_pl NUMBER := 0;
       
   CURSOR c_prueba(p_cedula VARCHAR2, p_prueba varchar2) IS      
        
        SELECT  cuenta
        FROM tabla1 t1, tabla2 t2
        WHERE t1.cc= p_cedula 
        AND t2_kk=t1.kk
        AND t1.es='1'
        AND t2.clase=p_prueba;
  
      BEGIN
       FOR r_c_t2 IN c_prueba(p_cedula,p_prueba) LOOP
 
indice_tabla_pl := indice_tabla_pl +1 ;
 
var_t_numero(indice_tabla_pl) := r_c_t2.cuenta;
 
END LOOP;
 
RETURN (var_t_numero);
   END;
 
END;
/
 

SI no te rula, dimelo y lo pruebo en el curro, pero creo que así te va a rular.