Traitement commun à toutes les exceptions

**Davboc** · 22/08/2007, 11h26

Bonjour !

J'ai à la fin de ma fonction PL tout un tas de traitements propres à chaque exception (principalement ecriture d'un message différent dans chaque cas dans un fichier de log)

J'aimerais réaliser pour toute ou partie des exception un traitement commun. J'aurais donc aimé savoir s'il existait une instruction qui permette de réaliser un traitement après les 'when', peu importe lequel ait été choisi.

J'ai pensé mettre ce traitement commun dans une fonction mais il y a enormement d'arguments à passer donc je voudrais savoir si de meilleures solutions existent.

On m'a évoqué une solution visant à ne mettre qu'une seule exception WHEN OTHERS, qui contiendrait elle-même un case qui gèrerait ensuite chaque exception, dans ce style :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
EXCEPTION 
 
       WHEN OTHERS                      THEN 
            BEGIN
                -- Vidage tables d'import (il faut désactiver les foreign keys sinon on obtient une erreur)
                 EXECUTE IMMEDIATE 'ALTER TABLE IMPORT_TITRE_DIFFUSION
                                    disable CONSTRAINT FK_IMPORT_TIT_DIFF_IMPORT_DIFF';
                 EXECUTE IMMEDIATE 'TRUNCATE TABLE IMPORT_TITRE_DIFFUSION';
                 EXECUTE IMMEDIATE 'TRUNCATE TABLE IMPORT_DIFFUSION';
                 EXECUTE IMMEDIATE 'ALTER TABLE IMPORT_TITRE_DIFFUSION
                                    enable CONSTRAINT FK_IMPORT_TIT_DIFF_IMPORT_DIFF';
 
                 CASE Exception
                     WHEN UTL_FILE.INVALID_FILEHANDLE THEN 
                        --BEGIN
                             -- log
                             ps_log ( 'Erreur import Diffusion : UTL_FILE.INVALID_FILEHANDLE', l_s_repFicLogOut, l_s_logFic, 2 );
                        --END;
 
                     WHEN UTL_FILE.INVALID_OPERATION  THEN 
                          --BEGIN
                               -- log
                               ps_log ( 'Erreur import Diffusion : UTL_FILE.INVALID_OPERATION', l_s_repFicLogOut, l_s_logFic, 2 );
                          --END;
 
                     WHEN UTL_FILE.READ_ERROR         THEN 
                          --BEGIN
                               -- log
                               ps_log ( 'Erreur import Diffusion : UTL_FILE.READ_ERROR', l_s_repFicLogOut, l_s_logFic, 2 );
                          --END;
 
                     WHEN UTL_FILE.INVALID_PATH       THEN 
                          --BEGIN
                               -- log
                               ps_log ( 'Erreur import Diffusion : UTL_FILE.INVALID_PATH', l_s_repFicLogOut, l_s_logFic, 2 );
                          --END;
 
                     WHEN UTL_FILE.INVALID_MODE       THEN 
                          --BEGIN
                               -- log
                               ps_log ( 'Erreur import Diffusion : UTL_FILE.INVALID_MODE', l_s_repFicLogOut, l_s_logFic, 2 );
                          --END;
 
                     WHEN NO_DATA_FOUND               THEN 
                          BEGIN
                               -- log
                               ps_log ( 'Erreur import Diffusion : NO_DATA_FOUND', l_s_repFicLogOut, l_s_logFic, 2 );
                               -- fermeture du fichier
                               UTL_FILE.FCLOSE ( l_f_ficPrep );
                               -- destruction des directorys
                               l_n_rtnFct := PK_UTILITAIRES.fn_dropDirectory ( l_s_repFicIn );
                               l_n_rtnFct := PK_UTILITAIRES.fn_dropDirectory ( l_s_repFicLogOut );
                          END;
 
                     ELSE     
                          -- log
                          ps_log ( 'Erreur import Diffusion : Autres', l_s_repFicLogOut, l_s_logFic, 2 );    
 
                 END CASE;        
 
            END;

mais je ne sais pas comment récupérer l'intitulé de chaque exception, ou un code, 'à la mano'

Auriez vous une idée de solution ?

Merci à vous
David

**orafrance** · 22/08/2007, 11h32

pour ta fonction avec plein de paramètres, tu peux déjà créer un package avec les variables en question et la fameuse fonction sans paramètre. Cette fonction utilisera les variables du package que tu aura pris soin de valoriser dans le code.

Sinon, j'ai pas trop d'idée... si le WHEN avec les CASE fonctionne alors en effet c'est une solution sympa bien que ça me paraisse un peu lourd

**Phil_67** · 22/08/2007, 12h04

Le case when dans le traitement des exceptions semble une bonne idée.

Derrière le WHEN OTHERS tu lances ta fonction commune (packagée ou non) puis dans le CASE WHEN tu traites chaque exception.

Si ta fonction accepte des valeurs de paramètres différentes selon l'exception rencontrée tu lances d'abord le case when avec initialisation de valeurs et ensuite la fonction commune.

**Davboc** · 22/08/2007, 12h18

Oui c'est une solution que j'ai envisagé, mais comment peut récupérer l'intitulé ou le code de l'exception une fois passé dans le 'WHEN OTHERS' ? En d'autre termes que dois-je mettre derrière le 'case' ?

**orafrance** · 22/08/2007, 13h42

pourquoi ne pas tout simplement valoriser une variable GV$EXCEPTION_NAME (avec nodatafound, ukviolation, etc...) qui sera utiliser dans ta fonction commune ?

**Phil_67** · 22/08/2007, 13h52

Il faut savoir quel type d'exception tu veux traiter en particulier ou veux-tu simplement afficher l'erreur ORACLE RENCONTREE.

Tu as bien la variable SQLCODE qui contient le code de la dernière erreur ou mieux SQLERRM(SQLCODE) permettant de récupérer le message ORACLE complet.

Ensuite à toi de savoir ce que tu veux lancer en cas de NO_DATA_FOUND, TOO_MANY_ROWS, DUP_VAL_ON_INDEX etc.

Dans le cas de l'utilisation des UTL_FILE je sais que tu peux avoir un code retour du type 'Oracle non exception'.
Je sais aussi que ça peux se traiter mais il faut que je fasse des recherches

**Davboc** · 22/08/2007, 14h00

Envoyé par orafrance

pourquoi ne pas tout simplement valoriser une variable GV$EXCEPTION_NAME (avec nodatafound, ukviolation, etc...) qui sera utiliser dans ta fonction commune ?

Envoyé par Phil_67

Tu as bien la variable SQLCODE qui contient le code de la dernière erreur ou mieux SQLERRM(SQLCODE) permettant de récupérer le message ORACLE complet.

Ce que je cherche c'est effectivement peupler une variable que j'utiliserai dans mon case et qui contiendrait (idéalement) des chaînes comme UTL_FILE.INVALID_FILEHANDLE, UTL_FILE.INVALID_OPERATION, UTL_FILE.READ_ERROR, UTL_FILE.INVALID_PATH, UTL_FILE.INVALID_MODE ou NO_DATA_FOUND
pour se référer a l'exemple de code que je vous ai donné plus haut

Est ce que c'est bien ce que renvoie SQLERRM(SQLCODE) ?

J'aurai pu le faire au moment du RAISE mais je ne les fait pas tous manuellement, vous vous en doutez bien

**Phil_67** · 22/08/2007, 14h37

Le SQLCODE contient le code ORACLE de ton exception :
ex.: en cas de no_data_found le
SQLERRM(SQLCODE) = 'ORA-01403: aucune donnée trouvée'

quant au SQLCODE il contient un numéro d'erreur ici SQLCODE= 100

Si tu peux récupérer les différents identifiants = numéros des exceptions que tu veux traiter tu peux dans ton CASE WHEN mettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
exception when others then
  begin
   case sqlcode
   when 100  then
     -- traitement du NO_DATA_FOUND
   When x then
     -- traitement de l'erreur numéro x
   else
     -- traitement de toutes les autres exceptions 
   end case;
  end;
end;

**Davboc** · 22/08/2007, 14h42

ok... Il faut que je trouve la correspondance alors... Je finis ce que je fais et j'étudie la chose. Je crois que si je commence à mettre des codes partout ça va pas le faire niveau maintenabilité.

A voir... Merci beaucoup à vous en tout cas pour votre précieuse aide

**orafrance** · 22/08/2007, 15h22

enfin là tu réinventes les exceptions standards d'Oracle

**Davboc** · 22/08/2007, 15h53

Même pas peur :p

Non je crois que je vais éviter de tout réinventer et me contenter plutôt de faire une fonction fusse-t-elle compliquée et infligée d'une palanquée d'arguments...

**Vincent_D** · 27/08/2007, 15h25

Le Exception when est déjà un case, il n'est pas utile de le traiter avec un autre case.
il vaut mieux quelque chose du genre :

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
 
EXCEPTION
 WHEN UTL_FILE.INVALID_FILEHANDLE THEN 
    BEGIN
       l_errror := 'INVALID_FILEHANDLE';
       ps_err ( l_error, l_s_repFicLogOut, l_s_logFic, 2 );
    END;
 WHEN UTL_FILE.INVALID_OPERATION  THEN 
    BEGIN
       l_errror := 'INVALID_OPERATION';
       ps_err ( l_error, l_s_repFicLogOut, l_s_logFic, 2 );
    END;
 WHEN ...
 WHEN OTHERS THEN
    BEGIN
       l_errror := SQLERRM; -- ou SQLCODE
       ps_err ( l_error, l_s_repFicLogOut, l_s_logFic, 2 );
    END;

ps_err effectue la purge de la table et renseigne le log

**Davboc** · 28/08/2007, 09h24

Merci de lire la totalité des posts avant de les sortir du fin fond des abysses. La question était ici comment réaliser un traitement commun à toutes les erreurs.

Traitement commun à toutes les exceptions

SQL Oracle

Discussions similaires

Partager

Partager