Crear un Stored Procedure que reciba un array de entrada

[algiacomino]

Hola Gente soy nuevo.
Y me decidí en escribirles porque no puedo lograr lo que busco y me estoy enredando.

Como lo dice el título, necesito de su ayuda para lograr crear el SP (Stored Procedure) que me permita pasar un array al SP

Bueno esta es una idea general, porque luego de que funcione correctamente lo podré flexibilizar y agrandar a gusto.

Probé hacer muchas cosas y he revisado muchas páginas de internet.

Les dejo esta idea que es mi paso inicial.
Intento cargar una tabla 'A1' que está compuesta por 3 columnas 'col1', 'col2' y 'col3'; y sus tipos son 'number', 'varchar2(20)' y 'number' respectivamente. Y 'col1' es la PK, las otras puede recibir nulos.
Desde el Java asigno los datos a través de un array.

Algo que intenté hacer es esto:

Código SQL:

CREATE OR REPLACE 
PROCEDURE insA1(
  p_A1Array IN A1
) AS 
BEGIN 
  /* INSERT ARRAY OF RECORDS IN TO THE EMP TABLE*/ 
  INSERT INTO A1(cl1, cl2, cl3) 
     SELECT * FROM TABLE(p_A1Array); 
END insA1;*/
 

Y estuve viendo otras formas que definen TYPES, 2 TYPES y se cruzan y No Entendí!!!

Bueno espero me puedan ayudar.
Y agradezco mucho sus tiempos y opiniones
Saludos Yako.

[morway]

podrías hacerlo declarando rowtype de la tabla (A1%ROWTYPE) pero no te lo aconsejo porque cualquier cambio en la estructura de la tabla podrá desmontarte el código que ya tengas hecho, por mi parte te recomiendo que declares TYPE con tabla de registros y utilices ese TYPE en el paso de parámetros.

Código SQL:

/*
 * Creamos la tabla
 */
CREATE TABLE A1(
    col1    NUMBER ,
    col2    varchar2(20),
    col3    NUMBER
);
 
/*
 * Definimos un tipo de datos registro identico a la tabla
 */
TYPE T_A1 IS RECORD(
    col1    A1.col1%TYPE ,
    col2    A1.col2%TYPE ,
    col3    A1.col3%TYPE
);
 
/*
 * Definimos una tabla de registros T_A1
 */
TYPE T_TABLA_A1 IS TABLE OF T_A1 INDEX BY BINARY_INTEGER;
 
/*
 * Procedimiento de inserción en A1
 */
CREATE OR REPLACE PROCEDURE P_INSERT_A1( P_TABLA_A1 IN T_TABLA_A1 ) IS
    I BYNARY_INTEGER;
BEGIN
    IF P_TABLA_A1.COUNT() > 0 THEN
    
        I := P_TABLA_A1.FIRST();
        LOOP
        
            INSERT INTO A1(col1,col2,col3)
            VALUES(P_TABLA_A1(I).col1,P_TABLA_A1(I).col2,P_TABLA_A1(I).col3);
        
        EXIT WHEN I = P_TABLA_A1.LAST();
    
            I := P_TABLA_A1.NEXT(I);
        
        END LOOP;
        
END P_INSERT_A1;
 

Un saludo

[morway]

Espero que te haya servido de ayuda