Discussion :

[falcon]

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

[plaineR]

cf. vues DBA_SOURCE ou ALL_SOURCE

[LBO72]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[LBO72]

Essaye alors la table User_Source

LBO72.

[DAB.cz]

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

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

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

[LBO72]

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.

[plaineR]

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

[DAB.cz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[falcon]

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

A bientôt,