Eu tenho uma ótima solução para você, mas há duas coisas que você precisará fazer:
-
Coloque o SQL dentro de uma unidade de programa PL/SQL. Então, sim, para o procedimento armazenado que você mencionou.
-
Compile essa unidade de programa e todas as tabelas dependentes (ou seja, instale o código do aplicativo) em uma instância 12.2 (você pode baixar 12.2 em http://www.oracle.com/technetwork/database/enterprise-edition/downloads/index.html ou você pode adquirir um Exadata Express Cloud Service em cloud.oracle.com ou obter um crédito de US$ 300 para usar um gratuitamente por um mês em cloud.oracle.com/tryit).
12.2 é fundamental porque o recurso que você REALMENTE deseja usar é chamado PL/Scope e é uma ferramenta de compilador que coleta informações sobre identificadores PL/SQL (a partir de 11.1) e uso de SQL dentro de PL/'SQL (a partir de 12.2).
CREATE TABLE my_data (n NUMBER)
/
ALTER SESSION SET plscope_settings='identifiers:all, statements:all'
/
CREATE OR REPLACE PROCEDURE my_procedure (n_in IN NUMBER)
AUTHID DEFINER
IS
l_n my_data.n%TYPE;
CURSOR all_data_cur
IS
SELECT *
FROM my_data
FOR UPDATE OF n;
BEGIN
INSERT INTO my_data (n)
VALUES (n_in);
END;
/
SELECT idt.line,
idt.owner || '.' || idt.object_name code_unit,
idt.name column_name,
RTRIM (src.text, CHR (10)) text
FROM all_identifiers idt, all_source src
WHERE idt.usage = 'REFERENCE'
AND idt.TYPE = 'COLUMN'
AND idt.line = src.line
AND idt.object_name = src.name
AND idt.owner = src.owner
AND idt.object_name = 'MY_PROCEDURE'
ORDER BY code_unit, line
/
LINE CODE_UNIT COLUMN_NAME TEXT
4 STEVEN.MY_PROCEDURE N l_n my_data.n%TYPE;
10 STEVEN.MY_PROCEDURE N FOR UPDATE OF n;
12 STEVEN.MY_PROCEDURE N INSERT INTO my_data (n)
Espero que ajude!
Muitos mais exemplos de PL/Scope em livesql.oracle.com. Basta procurar por "pl/scope" (duh).