Table system, recherche code source avec nom de procedure/fonction d'un package body

Version imprimable

Bonjour,

J'ai le query suivant qui me permet de rechercher le code source d'un package et de me retourner les lignes qui utilisent des commandes comme upper, lower and like.
Code:

1 2 3 4 5 6 7 8 9 10 11 SELECT line "line n°", REPLACE (RTRIM (LTRIM (text)), CHR (10), '') "code sourse" FROM user_source WHERE NAME = :mon_package AND ( UPPER (text) LIKE '%UPPER%' OR UPPER (text) LIKE '%LOWER%' OR UPPER (text) LIKE '%LIKE%' ) AND TYPE LIKE 'PACKAGE BODY' ORDER BY line;
En sortie, j'affiche le n° de ligne du package ainsi que le code source de cette ligne.

Je recherche le moyen d'afficher en plus le nom de la procédure/fonction du packaqe ou se trouve la ligne de code.

Comment faire ?

merci

24/02/2011, 15h52
mnitu

Je ne pense pas que c'est possible avec une requête.

Ce code peut donner un début de réponse, mais il suppose que les lignes contenant le mot clé procedure ou le mot clé function contiennent aussi le nom de la fonction (ou de la procédure).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
SELECT *
FROM
 ( SELECT line
     , last_value( proc IGNORE NULLS ) 
            OVER ( PARTITION BY name 
                   ORDER BY line 
                   RANGE BETWEEN 10000 PRECEDING 
                             AND 0 FOLLOWING ) proc
     , text
   FROM
  ( SELECT line
      , name
      , DECODE( proc, 0, null, UPPER(text) ) proc
      , DECODE( proc, 0, TEXT, null )  text
    FROM
   ( SELECT line 
       , name
       , INSTR( UPPER(text), 'PROCEDURE' ) 
       + INSTR( UPPER(text), 'FUNCTION' ) proc
       , TRIM(text) text
       FROM user_source
      WHERE NAME = :mon_package
        AND (   UPPER (text) LIKE '%UPPER%'
             OR UPPER (text) LIKE '%LOWER%'
             OR UPPER (text) LIKE '%LIKE%'
             OR UPPER (text) LIKE '%PROCEDURE%'
             OR UPPER (text) LIKE '%FUNCTION%'
            )
        AND TYPE LIKE 'PACKAGE BODY'
   ORDER BY line ) ) )
WHERE text IS NOT NULL ;