[Sql] Probleme de recuperation de variable

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 :D ):
Code:

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:

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 8O

Quelqu'un a une idee ????

Merci d'avance
LoKi

Citation:
Envoyé par loki8
Code:

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) ?

Citation:

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

Citation:

Envoyé par loki8

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.) ?

Desole je n'avais pas compris :oops:

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

LoKi

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
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 :

Citation:

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:

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 :

Citation:

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.

RAISE provoque la levée d'une exception (celle en cours de traitement si ele n'ext pas explcitement nommée). Les instructions qui suivent ne sont donc pas exécutées.

Je viens de faire un autre test encore plus "bizarre":
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 create or replace procedure tata(p_err in out varchar2) is BEGIN p_err := tata select 1 into trouve from dual where 1=2; END; create or replace procedure toto is BEGIN err := 'toto'; BEGIN tata(err); exception when no_data_found then dbms_output.put_line(err); END; END;
Et bien j'ai la valeur toto et non pas tata ????? alors qu'aucun bloc exception n'est implimente, AU SECOURS :arf:

LoKi

Je ne vois pas comment vous pouvez obtenir le moindre résultat alors qu'auncune de vos fonctions ne compile !

pouvez-vous joindre le code complet que vous utilisez ?

En tout cas, la levée de l'exception provoquée ou non par RAISE aborte la fonction appelée. La variable IN OUT n'est donc pas mise à jour.

Citation:

Envoyé par SheikYerbouti

En tout cas, la levée de l'exception provoquée ou non par RAISE aborte la fonction appelée. La variable IN OUT n'est donc pas mise à jour.

Si je comprend bien, du moment qu'une fonction leve une exception aucune variable OUT n'est mise a jour ?

LoKi

oui, c'est bien ce que je crains.

Merci de vos reponses
on va donc gerer nos messages autrement entre ces deux procedures.

LoKi

Citation:

Envoyé par SheikYerbouti

oui, c'est bien ce que je crains.

J'en suis arrivé à la même conclusion avec mon exemple précédent et je pense qu'en remplaçant la procedure TATA par cette FUNCTION TATA alors ça confirme ton hypothèse :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 create or replace function tata(p_err in out varchar2) return varchar2 is trouve number(1); begin 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; end; return 'fin de fonction...'; end; /
Sans RAISE alors la procédure appelant récupère 'fin de fonction' mais s'il existe un RAISE alors la valeur de retour de cette fonction TATA est ''