如何从oracle过程返回关联数组类型输出参数

CREATE OR REPLACE PACKAGE my_package IS
  TYPE my_array_type IS TABLE OF VARCHAR2(100) INDEX BY PLS_INTEGER;
  PROCEDURE my_procedure(p_input_param IN VARCHAR2, p_output_param OUT my_array_type);
END my_package;

CREATE OR REPLACE PACKAGE BODY my_package IS
  PROCEDURE my_procedure(p_input_param IN VARCHAR2, p_output_param OUT my_array_type) IS
  BEGIN
    -- 在这里编写过程的逻辑
    -- 可以使用关联数组类型进行数据操作
    -- 将结果存储到输出参数中
    p_output_param(1) := 'Value 1';
    p_output_param(2) := 'Value 2';
  END my_procedure;
END my_package;

DECLARE
  v_input_param VARCHAR2(100) := 'Input Value';
  v_output_param my_package.my_array_type;
BEGIN
  my_package.my_procedure(v_input_param, v_output_param);
  
  -- 在这里可以使用输出参数的值进行后续操作
  -- 例如，打印输出参数的值
  FOR i IN 1..v_output_param.COUNT LOOP
    DBMS_OUTPUT.PUT_LINE(v_output_param(i));
  END LOOP;
END;