Discussion :

[loki8]

Bonjour,
Je travail sur un Oracle 9.2.0.4
J'ai un probleme avec un bout de code que je ne comprend (le probleme pas le code ):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure toto
IS
err varchar2(255):
BEGIN
  LOOP
    BEGIN
    procedure tata (err)
 
    EXCEPTION ....
       DBMS_OUTPUT.PUT8LINE(err)
    END;
  END LOOP;
EXCEPTION ......
END;

La procedure tata a le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
procedure tata (p_err in out varchar2)
Is
 ....
BEGIN
  .......
EXCEPTION ...
   p_err := 'mon message';
   RAISE;
END;

Et bien mon DBMS_OUTPUT n'a pas la valeur 'mon message' dans la procedure toto

Quelqu'un a une idee ????

Merci d'avance
LoKi

[Magnus]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure toto
IS
err varchar2(255):
BEGIN
  LOOP
    BEGIN
    procedure tata (err) -- cet appel n'est-il pas incorrect ????

    EXCEPTION ....
       DBMS_OUTPUT.PUT8LINE(err)
    END;
  END LOOP;
EXCEPTION ......
END;

Et bien mon DBMS_OUTPUT n'a pas la valeur 'mon message' dans la procedure toto

D'accord et quelle est sa valeur (peut être serait-il bon que vous nous donniez tout votre code) ?

[loki8]

procedure toto
IS
err varchar2(255):
BEGIN
LOOP
BEGIN
tata (err);
EXCEPTION ....
DBMS_OUTPUT.PUT8LINE(err)
END;
END LOOP;
EXCEPTION ......
END;

Voila j'ai corrige l'appel de la procedure desole.
La valeur du message devrait etre 'mon message', car il est sous entendu que la procedure genere une exception.

LoKi

[Magnus]

La valeur du message devrait etre 'mon message', car il est sous entendu que la procedure genere une exception.

D'accord mais si vous n'obtenez pas 'mon message', qu'obtenez-vous (aucun message, erreur Oracle, libellé du message d'erreur différent, etc.) ?

[loki8]

Desole je n'avais pas compris

La variable est vide.
Le DBMS_OUTPUT retourne a la ligne.

LoKi

[Magnus]

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
23
24
create or replace procedure tata(p_err in out varchar2) is
  trouve number(1);
begin
  select 1
  into   trouve
  from dual
  where 1=2; -- génère toujours une exception
exception when no_data_found then
  p_err := 'mon message';
end;
/
 
create or replace procedure toto is
 err varchar2(255);
begin
  err := 'toto';
  begin
    tata(err);
  exception when no_data_found then
    dbms_output.put_line('EXCEPTION --> err = ' || err);
  end;
  dbms_output.put_line('err = ' || err);
end;
/

produit :

Procédure créée.


Procédure créée.

8i ALEX> exec toto;
EXCEPTION --> err = toto
err = toto

Procédure PL/SQL terminée avec succès.

Et

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
23
24
25
create or replace procedure tata(p_err in out varchar2) is
  trouve number(1);
begin
  select 1
  into   trouve
  from dual
  where 1=2; -- génère toujours une exception
exception when no_data_found then
  p_err := 'mon message';
--  RAISE; -- SEULE DIFFERENCE AVEC LE CODE PRECEDENT !!!!
end;
/
 
create or replace procedure toto is
 err varchar2(255);
begin
  err := 'toto';
  begin
    tata(err);
  exception when no_data_found then
    dbms_output.put_line('EXCEPTION --> err = ' || err);
  end;
  dbms_output.put_line('err = ' || err);
end;
/

produit cette fois :

Procédure créée.


Procédure créée.

8i ALEX> exec toto;
err = mon message

Procédure PL/SQL terminée avec succès.

J'avoue que je suis un peu étonné de ce comportement mais j'utilise jamais RAISE.
La doc devrait vous permettre de comprendre la raison.