Discussion :

[dahmane2007]

Bonjour,

Je voudrais savoir comment mettre une instruction SQL PLUS dans un block PL/SQL ?.

Je m'explique:
En mode SQL PLUS, pour afficher le code source d'une proc, j'utilise la syntaxe suivante:

Code :

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

1
2
3
SELECT OBJECT_NAME 
          FROM USER_OBJECTS 
          WHERE OBJECT_TYPE='PROCEDURE'

Avec cette instruction, je pourrai afficher le code source d'une procédure; mais je veux utiliser ce code dans une procédure paramétrée que je donne comme paramètre un objet (soit une procédure ou fonction).

J'ai essayé ceci, la compilation déroule bien, mais il y a des erreurs quand je lance la procédure:

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
19
20
21
22
CREATE OR REPLACE PROCEDURE AFF_CODE_SOURCE(NOM_OBJET IN VARCHAR2)
IS
 
TXTOBJET VARCHAR2(30);
AUCUNE EXCEPTION;
 
BEGIN
 
   SELECT TEXT INTO TXTOBJET FROM USER_SOURCE
   WHERE  NAME=NOM_OBJET;
 
EXCEPTION
WHEN AUCUNE THEN 
   DBMS_OUTPUT.PUT_LINE(' ERREUR ... AUCUNE FONCTION OU PROCÉDURE N''A ÉTÉ CRÉE ');
 
END AFF_CODE_SOURCE;
 
-- BLOCK PL/SQL
BEGIN
-- APPEL DE LA PROCÉDURE
   AFF_CODE_SOURCE('REVENU_DEPT');
END;

Merci d'avance.

[NGasparotto]

mais il y a des erreurs quand je lance la procédure

Ah oui ? Lesquelles ?
Pas de message d'erreur, pas d'aide


Nicolas.

[fatsora]

Code sql :

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
CREATE OR REPLACE PROCEDURE AFF_CODE_SOURCE(NOM_OBJET IN VARCHAR2)
IS
 
TXTOBJET VARCHAR2(30);
AUCUNE EXCEPTION;
 
BEGIN
 
   SELECT TEXT INTO TXTOBJET FROM USER_SOURCE
   WHERE  NAME=NOM_OBJET;
 
EXCEPTION
WHEN AUCUNE THEN 
   DBMS_OUTPUT.PUT_LINE(' ERREUR ... AUCUNE FONCTION OU PROCÉDURE N''A ÉTÉ CRÉE ');
 
END AFF_CODE_SOURCE;

Code :

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

TXTOBJET VARCHAR2(30);]

trop petit !!

et

Code :

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

AUCUNE EXCEPTION; ]

autant mettre tout de suite NO_DATA_FOUND !!

de plus

Quelle version Oracle tu as ?

Il y a des erreurs en effet, mais tu devrais les donner ...

si tu as une version > = 9I tu as dbms_metadata
sinon avec user_source il y a aussi plein d'exemple

http://asktom.oracle.com/pls/asktom/...D:454220160386

[dahmane2007]

Voici les erreurs durant le lancement de la procédure avec:

Code :

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

EXECUTE NOMPROC('NOM PROCEDURE');

Code :

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

1
2
3
4
ERREUR à la ligne 1 :
ORA-01422: exact fetch returns more than requested number of rows
ORA-06512: at "user.AFF_CODE_SOURCE", line 9
ORA-06512: at line 1

En fait, j'utilise la version 10g d'Oracle.
Merci d'avance.

[NGasparotto]

Puisque ta requete retourne plus d'une ligne, tu dois gerer un curseur.

Nicolas.

[fatsora]

Bonjour,

Code sql :

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

1
2
3
4
 
   SELECT TEXT INTO TXTOBJET FROM USER_SOURCE
   WHERE  NAME= 'XXX'
   AND TYPE='PROCEDURE'

ca eviterait deja les name egaux mais de type differents

Sinon en 10G il y a DBMS_METADATA , deja disponible depuis 9I

[NGasparotto]

Bonjour,

Code sql :

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

1
2
3
4
 
   SELECT TEXT INTO TXTOBJET FROM USER_SOURCE
   WHERE  NAME= 'XXX'
   AND TYPE='PROCEDURE'

ca eviterait deja les name egaux mais de type differents

De plus USER_SOURCE contient une ligne par ligne de code pour la procedure/fonction/package retournee par la requete, d'ou la necessite du curseur.

Sinon en 10G il y a DBMS_METADATA , deja disponible depuis 9I

Je me trompe peut-etre, il me semble que le but ici n'est pas tant de retrouver le code source mais plutot de manipuler PL/SQL.

Nicolas.