Início / dba / Perguntas / 343194
Accepted
Pro West
Asked: 2024-10-24 17:53:23 +0800 CST

Identificando quais procedimentos sobrecarregados do PLSQL são chamados

  • 772

Considere o seguinte código:

CREATE OR REPLACE PACKAGE the_package AS
   PROCEDURE procA ( pval1 IN VARCHAR2 );
   PROCEDURE procA ( pval1 IN NUMBER );
END;
/

Eles criaram um pacote PLSQL que possui os procedimentos sobrecarregados procA.

Agora criamos procedimentos que chamam estes:

CREATE OR REPLACE testProc1 AS
  l_val VARCHAR2 := 'Boncho';
BEGIN
   the_package.procA( l_val );
END;
/

CREATE OR REPLACE testProc21 AS
  l_val NUMBER := 88;
BEGIN
   the_package.procA( l_val );
END;
/

O que eu quero fazer é conseguir identificar quais variantes testProc1e testProc2chamar.

Não posso usar DBA_DEPENDENCIESporque ele apenas me diz que testProc1e testProc2dependem do pacote the_package.

Não posso usar DBA_PROCEDURESporque ele só me diz quais procedimentos podem ser chamados.

Parece que a única opção é usar de alguma forma uma combinação de DBA_PROCEDURES, DBA_ARGUMENTSe DBA_SOURCEe fazer alguma análise semelhante à de um compilador para obter a saída desejada de:

testProc1Chamadas de procedimento procAdo pacote the_packagena linha 2. testProc2Chamadas de procedimento procAdo pacote the_packagena linha 3.

Mas quem quer escrever um compilador PLSQL?

No entanto, acho que o Oracle faz a validação em tempo de compilação, ou seja, quando compila os procedimentos, ele verifica se os procedimentos que estão sendo chamados existem. Então, estou pensando que talvez haja informações de qual procedimento precisamente é chamado armazenado em algum lugar nos metadados.

Alguém sabe de algum lugar nas visualizações de metadados onde essas informações são mantidas?

oracle

1 respostas

  1. Best Answer
    ALTER SESSION SET PLSCOPE_SETTINGS='IDENTIFIERS:ALL, STATEMENTS:ALL';

CREATE OR REPLACE PACKAGE the_package AS
   PROCEDURE procA ( pval1 IN VARCHAR2 );
   PROCEDURE procA ( pval1 IN NUMBER );
END;
/

CREATE OR REPLACE procedure testProc1 AS
  l_val VARCHAR2(100) := 'Boncho';
BEGIN
   the_package.procA( l_val );
END;
/

CREATE OR REPLACE procedure testProc21 AS
  l_val NUMBER := 88;
BEGIN
   the_package.procA( l_val );
END;
/

select a.object_name, a.usage, b.object_name as called_object_name, b.name, b.line from
(select * From user_identifiers where name = 'PROCA' and usage in ('CALL')) a
join
(select * From user_identifiers where name = 'PROCA' and usage in ('DECLARATION')) b
on a.signature = b.signature
order by 1;

OBJECT_NAME          USAGE       CALLED_OBJECT_NAME   NAME             LINE
-------------------- ----------- -------------------- ---------- ----------
TESTPROC1            CALL        THE_PACKAGE          PROCA               2
TESTPROC21           CALL        THE_PACKAGE          PROCA               3
    • 1

relate perguntas