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

[patmaba]

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

[mnitu]

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

[ojo77]

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 sql :

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 ;