Visualiser le code d'un package/procédure stockée

Version imprimable

08/10/2007, 12h39
falcon

Visualiser le code d'un package/procédure stockée

Bonjour,

J'aimerai visualiser le code d'un package que je n'ai pas créé, mais je ne sais pas comment faire. Existe-t-il un moyen de rappeler le code sous SQL+ ?

Merci par avance
08/10/2007, 13h18
plaineR

cf. vues DBA_SOURCE ou ALL_SOURCE

La question a déjà été posée dans ce forum :mrgreen:, voici comme même
la réponse :

Code:

1
2
3
4
5
6
7
8
9
 
PROMPT '----------------------------------------------------';
PROMPT '-  Source d un package : exemple  %TRAI%TACH%  -'; 
PROMPT '----------------------------------------------------'; 
DEFINE package = &le_Nom_du_Package;
Spool source_du_package_'&package'.sql;
select text from dba_source where name like upper ('&package')  ;
 
spool off;

Le source du package sera le spool spécifié.

LBO72.

08/10/2007, 14h02
falcon

Bonjour,

Merci pour vos réponses. A priori je n'ai pas accès ni à la table dba_source ni à la table all_source. Pourtant j'arrive bien à compiler le package :roll:
08/10/2007, 14h39
LBO72

Essaye alors la table User_Source

LBO72.
08/10/2007, 15h18
DAB.cz

Citation:

Envoyé par falcon

Bonjour,

Merci pour vos réponses. A priori je n'ai pas accès ni à la table dba_source ni à la table all_source. Pourtant j'arrive bien à compiler le package :roll:

Chaque USER a accès à all_source (c'est la vue, pas table), je pense.

Citation:

Envoyé par LB072

SELECT text FROM dba_source WHERE name LIKE upper ('&package') ;

Utilisant cette vue, ORDER BY est nécessaire et j'aurai aussi appliqué la condition sur OWNER et TYPE.

DAB
08/10/2007, 16h10
LBO72

Citation:

DBA.cz
Utilisant cette vue, ORDER BY est nécessaire et j'aurai aussi appliqué la condition sur OWNER et TYPE.

En quoi l'ordre by est-il nécessaire ? on fait la sélection d'un seul objet(Package, function, package body , Procedure, ...)

LBO72.
08/10/2007, 16h14
plaineR

Citation:

Envoyé par LBO72

En quoi l'ordre by est-il nécessaire ? on fait la sélection d'un seul objet(Package, function, package body , Procedure, ...)

LBO72.

En général, il y a plusieurs lignes de code ;)

Citation:

Envoyé par LBO72

En quoi l'ordre by est-il nécessaire ? on fait la sélection d'un seul objet(Package, function, package body , Procedure, ...)

LBO72.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
create or replace procedure abc as
begin
  null;
end;
/
 
select line, cast (text as varchar2 (40)) text
  from all_source
  where owner = 'SFORUM' and type = 'PROCEDURE' and name = 'ABC'
  order by line desc;
 
     LINE TEXT
--------- ----------------------------------------
        4 end;
        3   null;
        2 begin
        1 procedure abc as

09/10/2007, 08h48
falcon

Ok merci, vos différentes réponses m'ont permis de résoudre mon problème.

A bientôt,