如何使用VARRAY参数调试存储过程？

Question

我在TOAD中使用两个VARRAY参数调试过程时遇到了一些麻烦。 我在数据库中定义了此VARRAY：

CREATE OR REPLACE TYPE BDD_ACTIVOSEPAREP.TORDEN_CAMPO as VARRAY(7) of VARCHAR2(13);

现在，我想调试一个需要将此varray作为参数的过程，但是当我执行调试时，出现了以下错误：

ORA-06550: line 46, column 21: PLS-00316: PL/SQL TABLEs must use a single index
ORA-06550: line 46, column 3: PL/SQL: Statement ignored

ORA-06550: line 47, column 20: PLS-00316: PL/SQL TABLEs must use a single index
ORA-06550: line 47, column 3: PL/SQL: Statement ignored

这是我要执行的代码：

DECLARE 
  PIVTABLA VARCHAR2(32767);
  PIVIFGD VARCHAR2(32767);
  PIVPERIODO_INICIAL NUMBER;
  PIVPERIODO_FINAL NUMBER;
  PIVPERIODO_EVENTO_INICIAL NUMBER;
  PIVPERIODO_EVENTO_FINAL NUMBER;
  PIVCUENTA VARCHAR2(32767);
  PIVENTIDAD VARCHAR2(32767);
  PIVMACRO VARCHAR2(32767);
  PIVDEPENDENCIA VARCHAR2(32767);
  PIVIDPARTIC VARCHAR2(32767);
  PIVNIFCLIENTE VARCHAR2(32767);
  PIVNOMBCLIENTE VARCHAR2(32767);
  PIVNIFGRUPO VARCHAR2(32767);
  PIVNOMBGRUPO VARCHAR2(32767);
  PIVCODA VARCHAR2(32767);
  PIVDIFERIDA VARCHAR2(32767);
  PIVTI VARCHAR2(32767);
  PIVFILTROANULACION VARCHAR2(32767);
  PIVORDEN_CAMPO BDD_ACTIVOSEPAREP.TORDEN_CAMPO;
  PIVORDEN_TIPO BDD_ACTIVOSEPAREP.TORDEN_CAMPO;
  PINREG_INICIAL NUMBER;
  PINREG_FINAL NUMBER;
  XMLFINAL XMLTYPE;
BEGIN 
  PIVTABLA := 'F01';
  PIVIFGD := NULL;
  PIVPERIODO_INICIAL := 201411;
  PIVPERIODO_FINAL := NULL;
  PIVPERIODO_EVENTO_INICIAL := NULL;
  PIVPERIODO_EVENTO_FINAL := NULL;
  PIVCUENTA := NULL;
  PIVENTIDAD := NULL;
  PIVMACRO := NULL;
  PIVDEPENDENCIA := NULL;
  PIVIDPARTIC := NULL;
  PIVNIFCLIENTE := 'F03191871';
  PIVNOMBCLIENTE := NULL;
  PIVNIFGRUPO := NULL;
  PIVNOMBGRUPO := NULL;
  PIVCODA := NULL;
  PIVDIFERIDA := '0';
  PIVTI := '0';
  PIVFILTROANULACION := 'T';
  PIVORDEN_CAMPO := PIVORDEN_CAMPO('F_REPOR','PREF','MREF','IFGD','ID_MOVIMIENTO','ID_GRUPO','CASO');
  PIVORDEN_TIPO := PIVORDEN_CAMPO('D','D','D','A','D','D','A');
  PINREG_INICIAL := 1001;
  PINREG_FINAL := 2000;
  XMLFINAL := NULL;

  BDD_ACTIVOSEPAREP.PKG_CONSULTA_TRAZABILIDAD.BUSQUEDA ( PIVTABLA, PIVIFGD, PIVPERIODO_INICIAL, PIVPERIODO_FINAL, PIVPERIODO_EVENTO_INICIAL, PIVPERIODO_EVENTO_FINAL, PIVCUENTA, PIVENTIDAD, PIVMACRO, PIVDEPENDENCIA, PIVIDPARTIC, PIVNIFCLIENTE, PIVNOMBCLIENTE, PIVNIFGRUPO, PIVNOMBGRUPO, PIVCODA, PIVDIFERIDA, PIVTI, PIVFILTROANULACION, PIVORDEN_CAMPO, PIVORDEN_TIPO, PINREG_INICIAL, PINREG_FINAL, XMLFINAL );
  COMMIT; 
END;

多谢您的回覆！

PD：ORA错误中的第46和47行是

  PIVORDEN_CAMPO := PIVORDEN_CAMPO('F_REPOR','PREF','MREF','IFGD','ID_MOVIMIENTO','ID_GRUPO','CASO');
  PIVORDEN_TIPO := PIVORDEN_CAMPO('D','D','D','A','D','D','A');

Answer 1

您必须对集合使用隐式构造函数，即

PIVORDEN_CAMPO := PIVORDEN_CAMPO('F_REPOR','PREF','MREF','IFGD','ID_MOVIMIENTO','ID_GRUPO','CASO');
PIVORDEN_TIPO := PIVORDEN_CAMPO('D','D','D','A','D','D','A');

你应该写

PIVORDEN_CAMPO := BDD_ACTIVOSEPAREP.TORDEN_CAMPO('F_REPOR','PREF','MREF','IFGD','ID_MOVIMIENTO','ID_GRUPO','CASO');
PIVORDEN_TIPO := BDD_ACTIVOSEPAREP.TORDEN_CAMPO('D','D','D','A','D','D','A');

因为BDD_ACTIVOSEPAREP.TORDEN_CAMPO()是BDD_ACTIVOSEPAREP.TORDEN_CAMPO -type集合的隐式构造函数。