[oracle 8i] [PL/SQL] Pb sur exception

Bonjour, j'ai un petit problème que je ne comprends pas. Pourriez vous m'aider svp?
J'ai ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

PROCEDURE (P1, P2, P3,...) IS . . EXCEPT1 EXCEPTION; BEGIN (PRINCIPAL)   BEGIN (1) SELECT EXCEPTION WHEN OTHERS THEN .... END;   IF CONDITION1 THEN ... RAISE EXCEPT1; END IF;   BEGIN(2) SELECT EXCEPTION WHEN OTHERS THEN .... END;   EXCEPTION WHEN EXCEPT1 THEN .... WHEN OTHERS THEN .... END;

---

Lorsque l'exception EXCEPT1 est levée, il part vers le WHEN OTHERS du BEGIN(2).
Est ce normal?
Si c'est normal, quelle est la solution?

Je vous remercie par avance pour votre aide.

Non ce n'est pas normal. Il doit aller dans when except1.

Assures-toi que tes blocs begin end sont correctement définis (=qu'il ne manque pas un end à un moment donné).

ok je vérifie, merci

En fait j'ai l'impression que c'est le debugger de TOAD, qui délire !!

En fait non, ce cas se produit bien. J'ai bien vérifié les begin et les end.
Mais en grattant, je me suis rendu compte de quelque chose.
je suis dans la configuration suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

PROCEDURE (P1, P2, P3,...) IS . . EXCEPT1 EXCEPTION; BEGIN (PRINCIPAL) A := NULL; B := NULL; PKG_X.C := NULL; RAISE EXCEPT1; BEGIN (1) SELECT EXCEPTION WHEN OTHERS THEN .... END; EXCEPTION WHEN EXCEPT1 THEN .... WHEN OTHERS THEN .... END;

---

Je pars dans le WHEN OTHERS de BEGIN(1).
Si j'enlève le WHEN OTHERS de BEGIN(1), je vais dans EXCEPT1

Je change et je suis dans cette config:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

PROCEDURE (P1, P2, P3,...) IS . . EXCEPT1 EXCEPTION; BEGIN (PRINCIPAL) A := NULL; B := NULL; RAISE EXCEPT1; PKG_X.C := NULL; BEGIN (1) SELECT EXCEPTION WHEN OTHERS THEN .... END; EXCEPTION WHEN EXCEPT1 THEN .... WHEN OTHERS THEN .... END;

---

Je vais dans EXCEPT1 de l'exception générale.
Là j'en peux plus, j'abandonne...
Sauf si quelqu'un comprend mon pb, et me donne une solution.

Bonjour,

ce comportement semble tout à fait normal.
Tu place Ton when other avant ton when except1.
Tu ne peux donc jamais le raiser (le except1).
La bonne syntaxe devrait être:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

PROCEDURE (P1, P2, P3,...) IS . . EXCEPT1 EXCEPTION; BEGIN (PRINCIPAL) A := NULL; B := NULL; RAISE EXCEPT1; PKG_X.C := NULL;   BEGIN (1) SELECT EXCEPTION WHEN EXCEPT1 THEN .... WHEN OTHERS THEN END;     .... END;

---

Pour moi il ne devrait pas rentrer dans le BEGIN(1) car c'est un autre bloc, donc moi ça ne me parait pas tout à fait normal.

Ton coding est un peu différent du mien, l'exception qui est levée dans mon cas n'est pas sur le BEGIN(1), alors que dans le tien, ce serait le cas, et ce n'est pas exactement ce que je veux faire.

Citation:

---

Envoyé par Titouf

Pour moi il ne devrait pas rentrer dans le BEGIN(1) car c'est un autre bloc, donc moi ça ne me parait pas tout à fait normal.

---

SI!!
Dans l'exemple que tu donne, tu t'arretes ici.
Si tu ne veux pas que l'eereur when other que tu catch dans ta boucle begin1 soit bloquante, il faut que tu packages cette boucle. tu pourras prendre alors un choix qui ne sera pas forcément de sortir quand ta première exception apparaitra.

Tu m'as compris? :fem:

bonjour aline,
Je ne suis pas d'accord avec toi (ou alors je t'ai mal compris) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

SQL> declare err exception; 2 begin 3 raise err; 4 begin 5 null; 6 exception 7 when others then 8 dbms_output.put_line ('others 1'); 9 end; 10 exception 11 when err then 12 dbms_output.put_line ('err principal'); 13 when others then 14 dbms_output.put_line ('others principal'); 15 end; 16 / err principal

---

=> il rentre bien dans le when err du bloc principal et non dans le when others du second bloc.


Titouf : essaie d'attribuer la valeur de ta variable de package via une procédure :

Code:

---

pkg_x.set_valeur_to_c (null);

---

où set_valeur_to_c est codé de la manière suivante :

Code:

---

1 2 3 4

procedure set_valeur_to_c (p_val) is begin c:= p_val; end;

---

J'ai mis en commentaire les variables de package, et je l'ai remplacé par une variable normale, ça fait pareil...
En fait c'est dès que je me rapproche du BEGIN(1) ... C'est dingue il en a peur, ou quoi? !!;)
En tout cas c'est sympa de m'aider.
Merci Aline et PlaineR

Citation:

---

Envoyé par plaineR

bonjour aline,
Je ne suis pas d'accord avec toi (ou alors je t'ai mal compris) :

err principal[/CODE]
=> il rentre bien dans le when err du bloc principal et non dans le when others du second bloc.

---

Nous sommes donc bien d'accord. Je m'étais surement mal exprimée.
Ce que je disais, c'est que en mettant un when other dans ton bloc1, tu ne pouvais pas catcher les errreurs qui sont à la fin du bloc1 (et je pense que c'est cela que titouf cherche à faire).
Je proposait donc pour pouvoir rentrer dans cette exception de remplacer le bloc 1 par une procédure.
Ce qui donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

PROCEDURE (P1, P2, P3,...) IS . . EXCEPT1 EXCEPTION; BEGIN (PRINCIPAL) A := NULL; B := NULL; RAISE EXCEPT1; PKG_X.C := NULL;   BEGIN PROCEDURE1; EXCEPTION WHEN EXCEPT1 THEN .... WHEN OTHERS THEN END;     .... END;

---

tu as l'air sure de toi, Aline. Donc je vais surement utiliser ta méthode. Pourtant il me semblait que dans toutes les formations, et docs, que j'avais eues ou vues, l'exception descendait de bloc en bloc, et ne remontait pas vers des niveaux supérieurs.

Dès que j'aurais un peu plus de temps, je reviendrais sur le problème en faisant du tri dans ma procédure qui est très chargée aujourd'hui, afin d'affiner l'étude. :cfou:
A la suite de cette étude, je vous tiendrais au courant de mes investigations.

Dans tous les cas ta solution fonctionne, mais il y a un petit truc qui me chagrine, car je ne comprends pas complètement cette situation. Et j'aime pas ne pas comprendre...:cry:

:merci: à vous deux