Appel d'une procédure dynamique

[bebert13]

Voilà mon problème,

j'ai une procédure principale avec un paramètre qui doit appeler des procédures de traitement de manière dynamique. Ces procédures de traitement sont nommées sous la forme
Procedure_[monParametre]. Que dois-je faire ?

Exemple :

Code :

1
2
3
4
5
6
7
8
 
procedure maProcedurePrincipale (param IN out varchar2)
 
begin
  -- MonTraitementStandard...  
  -- Appel de la procédure spécifique en fonction de param
  Procedure_||param;
end;

J'ai essayé de passer par des execute immediate mais ça ne marche que pour des requêtes apparemment...

Help me ! Waiting for answers !

PS : Vi vi j'ai fait recherche Google et Fofo avant

[7gyY9w1ZY6ySRgPeaefZ]

Envoyé par bebert13

J'ai essayé de passer par des execute immediate mais ça ne marche que pour des requêtes apparemment...

Non, c'est la solution et ça marche aussi avec les procédures stockées.
http://sheikyerbouti.developpez.com/execute_immediate/

Montre nous ce que tu as testé.

[salim11]

Salut,

Essaie ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
BEGIN
   FOR rec_proc IN (SELECT object_name
                      FROM all_objects
                     WHERE object_type LIKE 'PROC%'
                       AND object_name = 'PROCEDURE_'||UPPER(param)       
                       AND owner = 'SCOTT') -- tu changes le  owner 
   LOOP
       BEGIN 
          execute immediate ' begin '||rec_proc.object_name ||';  end ;';
          EXCEPTION 
          WHEN OTHERS THEN 
          DBMS_OUTPUT.PUT_LINE(SQLCODE||'-'|| SQLERRM);
        END;
   END LOOP;
END;

[mnitu]

Envoyé par salim11

Salut,

Essaie ça

Code :

Salut Salim,

A quoi ça sert le When Others ici ? T'a peur que si une exception arrive elle ne s'affiche pas ?

[salim11]

Envoyé par mnitu

Salut Salim,

A quoi ça sert le When Others ici ? T'a peur que si une exception arrive elle ne s'affiche pas ?

Salut mnitu,

Il faut toujours être prudent , dans ce cas oui on n'a pas besoin de la partie exception, mais c'est utile pour le cas général (procédures avec paramètres)

[salim11]

Salut,

Pour exécute uniquement la procédure appelée

Code :

1
2
3
4
5
6
7
8
9
 
CREATE OR REPLACE PROCEDURE maProcedurePrincipale  ( PARAM IN  VARCHAR2) IS 
BEGIN
   EXECUTE IMMEDIATE ' begin  PROCEDURES_'||PARAM ||';  end ;';
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line (SQLCODE || '-' || SQLERRM);
END;

[mnitu]

Salut Salim,

Il ne faut pas trop en faire

L'exemple que tu propose contient le bug numéro 1 de la programmation PL/SQL : WHEN OTHERS THEN NULL; (c'est vrai ici dans une forme élaboré).
Il suffit de faire un set serveroutput off pour comprendre ce que je veut dire.
De plus avant la version 10g il sera plus prudent d'ajouter un SubStr avant de passer le paramètre à la procédure Put_Line.

Bref, la réglé d'or ignorée par pas mal du monde est:
en général si tu ne sait pas quoi faire avec l'exception n'ajoute pas le bloc d'exception.

[salim11]

Salut,
Oui j'utlise le dbms_output.put_line pour moi seulement, mais au travail, j' écrit toutes les erreurs dans fichier.

Code :

1
2
3
4
5
6
 
EXCEPTION
	WHEN OTHERS THEN
		utl_file.put_line(v_fichier_log,'ERREUR TRAITEMENT : ' || 
SQLERRM);
		UTL_FILE.FCLOSE(v_fichier_log);

[JerryMouse]

Et si jamais la procedure a des paramètres en IN ou OUT?