Início / user-16315136

Florin's questions

Martin Hope
Florin
Asked: 2023-10-15 22:47:03 +0800 CST
  • 5

Antes de postar a pergunta, tentei encontrar algo parecido com o que tenho, mas sem sucesso.

Aqui tenho tudo, a criação dos tipos, a criação da tabela, a inserção dos valores, a criação da procedure, tudo funciona menos a parte quando tento chamar a procedure.

CREATE OR REPLACE TYPE array_serial AS TABLE OF VARCHAR(20)

CREATE OR REPLACE TYPE ITEM_DATA AS OBJECT
(
    ITEM_CODE VARCHAR2 (50),
    serial array_serial,
    notes VARCHAR2 (1000)
);

CREATE OR REPLACE TYPE obj_good_array AS VARRAY(500) OF ITEM_DATA;

CREATE  TABLE item_data_table 
(
    item_id NUMBER GENERATED ALWAYS AS IDENTITY PRIMARY KEY,
    item_data obj_good_array
);

Inserindo os dados

DECLARE
    item_data_obj obj_good_array;
BEGIN
    item_data_obj := obj_good_array();
    item_data_obj.extend;
    item_data_obj(1) := ITEM_DATA(
        'ABC123',
        array_serial('Serial1', 'Serial2', 'Serial3'),
        'Sample notes for item ABC123'
    );

    INSERT INTO item_data_table (item_data) VALUES (item_data_obj);
    COMMIT;
END;
/

DECLARE
    item_data_obj obj_good_array;
BEGIN
    item_data_obj := obj_good_array();
    item_data_obj.extend;
    item_data_obj(1) := ITEM_DATA(
        'XYZ789',
        array_serial('Serial4', 'Serial5', 'Serial6'),
        'Sample notes for item XYZ789'
    );
 
    INSERT INTO item_data_table (item_data) VALUES (item_data_obj);
    COMMIT;
END;
/

select * from item_data_table;

CREATE OR REPLACE PROCEDURE process_items (
    p_item_list IN obj_good_array
) AS
BEGIN
  
    FOR i IN 1..p_item_list.COUNT LOOP
        DBMS_OUTPUT.PUT_LINE('Item Code: ' || p_item_list(i).ITEM_CODE);
        DBMS_OUTPUT.PUT_LINE('Notes: ' || p_item_list(i).notes);
        
        FOR j IN 1..p_item_list(i).serial.COUNT LOOP
            DBMS_OUTPUT.PUT_LINE('Serial ' || j || ': ' || p_item_list(i).serial(j));
        END LOOP;
        
    END LOOP;
END process_items;
/

Chamar o procedimento dessa forma não está funcionando. Este é o erro:

ORA-02315: número incorreto de argumentos para o construtor padrão

Código:

set serveroutput on
DECLARE
    item_data_variable obj_good_array; -- Declare the obj_good_array variable
BEGIN
 
    SELECT CAST(MULTISET(
        SELECT item_data
        FROM item_data_table
    ) AS obj_good_array) INTO item_data_variable FROM dual;

    process_items(item_data_variable);
END;
/

Esta deve ser a saída:

Item Code: ABC123
Notes: Sample notes for item ABC123
Serial 1: Serial1
Serial 2: Serial2
Serial 3: Serial3

Item Code: XYZ789
Notes: Sample notes for item XYZ789
Serial 1: Serial4
Serial 2: Serial5
Serial 3: Serial6

Você pode ajudar como chamar esse procedimento armazenado?

Agradeço antecipadamente

sql