Procedimentos e Funcoes em Packages

[Zida]

Boa tarde pessoal,
Gostaria de saber se existe alguma maneira de eu encontrar atravez de selects, quais procedimentos e funcoes uma package contem.
alguém saberia me dizer se é possivel ?


Muito obrigado

Rafael Mascarello

[Zida]

Achei algo que funciona ...

Selecionar tudo

SELECT *
FROM (
SELECT NAME NAME_PACKAGE,
       SUBSTR(LTRIM(TEXT),
              INSTR(LTRIM(TEXT),' ')+1,
              NVL(INSTR(SUBSTR(LTRIM(TEXT),INSTR(LTRIM(TEXT),' ')+1,LENGTH(LTRIM(TEXT))),'('), LENGTH(LTRIM(TEXT)))-1
              ) NM_PROCEDURE,
        SUBSTR(LTRIM(TEXT),1,INSTR(LTRIM(TEXT),' ')-1) TYPE
    FROM SYS.ALL_SOURCE
   WHERE OWNER = 'MAXICON' 
     AND TYPE = 'PACKAGE BODY'
     AND SUBSTR(LTRIM(TEXT),1,INSTR(LTRIM(TEXT),' ')-1) IN ('PROCEDURE','FUNCTION')
)
WHERE NAME_PACKAGE = 'NOME_DA_PACK'

[dr_gori]

Eu achei o seguinte, que apenas LISTA quais procedures e functions que a package tem:

Selecionar tudo

SQL> select PROCEDURE_NAME
  2  from USER_PROCEDURES
  3  WHERE OBJECT_NAME = 'PK_IMPORTA_EMBARQUES'
  4  /

PROCEDURE_NAME
------------------------------
PC_APAGA_EMBARQUES
PC_EXCLUI_ARQUIVO
PC_GERA_EMBARQUES
PC_GERA_INDIVIDUAL
PC_GERA_TODOS_DINF
PC_IMPORTA_ARQUIVOS
PC_IMPORTA_INDIVIDUAL
PC_LOG_IMPORTACAO

8 rows selected.

SQL> 

[DriwLL]

nesse caso teria como saber se os objetos retornados são function ou package?

[Zida]

Opa, joia, muito obrigado pela colaboracao de vocês
fico muito agradecido mesmo ...

e respondendo a ultima pergunta, sim, precisaria saber qual o tipo, se é procedure ou funcao..



mais uma vez, muito obrigado pela ajuda moçada

[DriwLL]

Acho que isso já dá uma boa ajuda.

Selecionar tudo

CREATE OR REPLACE VIEW VIEW_PACKAGE_CONTENTS AS
SELECT * 
FROM (
       SELECT ALL_OBJECTS.OBJECT_NAME NAME_PACKAGE,
              ALL_ARGUMENTS.OBJECT_NAME NAME_CONTENTS,
              'FUNCTION' OBJECT_TYPE
          FROM ALL_ARGUMENTS , ALL_OBJECTS
         WHERE ALL_ARGUMENTS.OBJECT_ID = ALL_OBJECTS.OBJECT_ID
           AND ALL_OBJECTS.OBJECT_TYPE = 'PACKAGE'
           AND ALL_ARGUMENTS.ARGUMENT_NAME IS NULL
      UNION 
       SELECT DISTINCT ALL_OBJECTS.OBJECT_NAME NAME_PACKAGE,
              ALL_ARGUMENTS.OBJECT_NAME NAME_CONTENTS,
              'PROCEDURE' OBJECT_TYPE
          FROM ALL_ARGUMENTS , ALL_OBJECTS
         WHERE ALL_ARGUMENTS.OBJECT_ID = ALL_OBJECTS.OBJECT_ID
           AND ALL_OBJECTS.OBJECT_TYPE = 'PACKAGE'
           AND ALL_ARGUMENTS.ARGUMENT_NAME IS NOT NULL
           AND ALL_ARGUMENTS.OBJECT_NAME NOT IN ( SELECT DISTINCT A.OBJECT_NAME
                                                  FROM ALL_ARGUMENTS A
                                                 WHERE A.OBJECT_ID = ALL_OBJECTS.OBJECT_ID
                                                   AND A.ARGUMENT_NAME IS NULL ) )
ORDER BY NAME_PACKAGE ,NAME_CONTENTS,OBJECT_TYPE

[dr_gori]

nada mal...