exceptions plsql dans les sous blocs

[r83]

voici mon 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
 
CREATE OR REPLACE procedure test(nb integer:=0)
IS
UneException Exception;
UneAutreException Exception;
UneExceptionExceptionnelle Exception;
begin
  IF nb=0 then
    raise UneException;
  end IF;
  begin 
    IF nb=10 then
    raise UneAutreException;
    elsif nb=20 then
      raise UneExceptionExceptionnelle;
    else
      dbms_output.put_line('sous bloc OK');
    end IF;
    exception
      when UneAutreException then
        raise_application_error(-20001, 'UneAutreException s''est déclenchée');
    end;
  dbms_output.put_line('bloc principal OK');  
exception
      when UneException then
        raise_application_error(-20002, 'UneException s''est déclenchée');
      when UneExceptionExceptionnelle then
        raise_application_error(-20003, 'UneExceptionExceptionnelle s''est déclenchée');
      when others then
        raise_application_error(-20999, 'Erreur inconnue');
end;

ma question :
pourquoi en passant 10 en paramètre lors de l'exécution, l'exception UneAutreExcepion ne se déclenche-t-elle pas dans le sous bloc et que c'est l'exception other du bloc principal qui se déclenche ?
Quand j'exécute ave 20, Une ExceptionExceptionnelle se déclenche bien.
Je pensais qu'on pouvait déclencher des exceptions dans un sous bloc.
Merci bonne soirée

[phili_b]

Envoyé par r83

pourquoi en passant 10 en paramètre lors de l'exécution, l'exception UneAutreExcepion ne se déclenche-t-elle pas dans le sous bloc et que c'est l'exception other du bloc principal qui se déclenche ?

Ben ça parait logique

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  begin 
    if nb=10 then
    raise UneAutreException;
    exception
     when UneAutreException then  => 1.Interception UneAutreException
        raise_application_error(-20001, 'UneAutreException s''est déclenchée');
=> 2. envoi l'erreur -20001 au bloc d'au dessus 
(et non plus UneAutreException qui n'existe plus) 
    end;
      exception when UneException then xxxx
      when UneExceptionExceptionnelle then  xxx
      when others then => 3.Tout sauf UneException  et 
 UneExceptionExceptionnelle  donc raise
    raise_application_error(-20999, 'Erreur inconnue');
end;

Envoyé par r83

Quand j'exécute ave 20, Une ExceptionExceptionnelle se déclenche bien.
Je pensais qu'on pouvait déclencher des exceptions dans un sous bloc.
Merci bonne soirée

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
begin
   begin 
    if nb=20 then
      raise UneExceptionExceptionnelle;
    else
      dbms_output.put_line('sous bloc OK');
    end if;
    exception
      when UneAutreException then
        raise_application_error(-20001, 'UneAutreException s''est déclenchée');
    1.  il n'y a pas de when others then null pour annuler l'exception. 
Donc elle existe toujours sous sa forme d'origine, 
donc elle remonte au bloc d'au dessus
    end;
exception
      when UneExceptionExceptionnelle then 
        raise_application_error(-20003, 'UneExceptionExceptionnelle s''est déclenchée'); 
=> 2. Voici UneExceptionExceptionnelle qui remonte du sous bloc
      when others then
        raise_application_error(-20999, 'Erreur inconnue');
end;

[r83]

Merci pour la réponse, c'est logique ...
Donc si je veux que le bloc continue après avoir levé l'exception, je dois tout faire sauf raise_application_error !!!
Sur la réponse, je crois deviner que l'on peut faire when others sauf -20001 ?
quelle est la syntaxe ?
Merci beaucoup !
BR

[salim11]

Salut ,

Dans la clause exception when others on peut utiliser :

sqlcode et sqlerrm

Donc il suffit de mettre

Code :

1
2
3
4
5
6
7
 
.
 
when others  then 
IF sqlcode<>-20001 then
.
end IF;