Discussion :

[Labienus]

Bonjour,

Je souhaite extraire le source de procédures.

Code :

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

1
2
3
4
5
6
7
CREATE OR REPLACE  PROCEDURE "NSI"."P_ALIM_CRET"  (ficgen 
    VARCHAR2, fLog UTL_FILE.FILE_TYPE, G_Chemin VARCHAR2) AS
 g_n_val NUMBER;
 nIgnore INTEGER;
 nCursor INTEGER;
 nUpdate INTEGER;
 strSelectQuery VARCH...

Dans quelle table système puis je trouver?

De plus, où puis je trouver les valeur du champ 'status' de la table sys.obj$?
1=valid, 3=invalide... quid des autres valeurs.


merci d'avance

[Wurlitzer]

Tu trouveras le source des procedures, fonction et package dans DBA_SOURCE et le statut de tes programmes dans DBA_OBJECTS. Je ne connais pas d'autre valeur pour le statut.

[Labienus]

merci de ta réponse,

Voila ce que j'ai fait:
DETECTION DE TOUT LES PROCEDURES : tri sur owner/nom procedure

Code :

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

1
2
3
4
5
6
7
8
 select   substr(c.name,1,8)  as "Owner",
            b.name    as "Procedure",
            DECODE(b.status,1,'Valid',2,'?',3,'Invalide','????????') as "Status"
            from sys.user$  c ,
            sys.obj$  b ,
            sys.procedure$  a
            where (a.obj# = b.obj#) and (b.owner# = c.user#)
order by c.name,b.name;

DETECTION DES PROCEDURES INVALIDES: tri sur owner/nom procedure

Code :

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

1
2
3
4
5
6
7
8
 select   substr(c.name,1,8)                                 as "Owner",
            b.name                                                  as "Procedure",
            DECODE(b.status,3,'Invalide','????????') as "Status"
            from sys.user$  c ,
            sys.obj$           b ,
            sys.procedure$  a
            where (a.obj# = b.obj#) and (b.owner# = c.user#) and b.status !=1
            order by c.name,b.name;

EDITION DANS UN SPOOL D’UNE PROCEDURE STOCKEE NOMMEE

Code :

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

1
2
3
4
5
6
7
8
9
10
Set heading off
Set page size 9999
Set linesize 300
 
Spool c:\jeremy.log 
 
select text from dba_source 
         where type='PROCEDURE' and 
         name='<nom de ta procedure en majuscule>' 
         order by line ;

Qu'en penses tu? est ca améliorable?

Merci des info

Labienus


spool off

[Wurlitzer]

Évites de taper dans les tables internes à Oracle quand tu peux. Utilises plutôt les vues qu'Oracle te propose. En l'occurrence, tu peux à voir le même résultat que tes 2 premières requêtes avec

Code :

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

1
2
3
4
 
SELECT * FROM DBA_OBJECTS 
WHERE OBJECT_TYPE= 'PROCEDURE'
ORDER BY OWNER , OBJECT_NAME

Code :

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

1
2
3
4
5
 
SELECT * FROM DBA_OBJECTS 
WHERE OBJECT_TYPE= 'PROCEDURE'
AND STATUS ='INVALID'
ORDER BY OWNER , OBJECT_NAME

PS Tu peux améliorer la présentation en mettant des balises code

[Lung]

Pratique !

Ca mériterait d'être dans le FAQ.

[orafrance]

http://oracle.developpez.com/faq/?pa...#objectinvalid

Et DBA_ERRORS me parait nettement plus utile