Discussion :

[MaRTy59]

Bonjour à tous, je dois mettre à jour le code interne d'une personne, ce code renvoie à un service travaillé.
Par exemple une personne X a comme code interne 1199
1199 renvoie au service Secrétariat par exemple.

Dans mon Pl/Sql j'utilise cette requête pour identifier toutes les personnes que je dois mettre à jour :

Code SQL :

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

1
2
3
4
5
6
7
8
SELECT civ.codcol, civ.entorg, p_ctc.ctcexcde, p_ctc.dpmtincde, r_dpmt.dpmtexcde, r_dpmt.dpmtincde
FROM p_ctc, p_cpyaddr, jpb_pers civ, r_dpmt
WHERE p_ctc.cpyaddrincde = p_cpyaddr.cpyaddrincde
AND p_cpyaddr.cpyincde = '1000'
AND civ.CODCOL = SUBSTR(p_ctc.CtcExCde,1,5)
AND To_Char(civ.CODAGT) = SUBSTR(p_ctc.CtcExCde,7,5)
AND p_ctc.CtcExCde NOT LIKE '99999%'
AND p_ctc.dpmtincde = r_dpmt.dpmtincde;

Cette requête me renvoie bien plus de 5000 enregistrements dont voici une poignée :

Code :

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

1
2
3
4
5
6
7
8
9
10
CODCOL ENTORG         CTCEXCDE    DPMTINCDE DPMTEXCDE      DPMTINCDE
59350  02070205       59350-27811      1619 097                 1619
59350  02080015       59350-27818      1167 01060102            1167
59350  02080103       59350-27782      1007 0104030206          1007
59350  02070501       59350-27747      1069 0105000210          1069
59350  02061100       59350-27796       987 0104020203           987
59350  02080303       59350-27799      1020 010404              1020
59350  02070000       59350-27750      1460 0700                1460
59350  02070404       59350-27756      1187 010700030104        1187
59350  02050105       59350-9           940 0104000106           940

Ici on se rend bien compte que la colone dpmtincde (code du service) n'est pas à jour car la colonne DPMTEXCDE doit ressembler à la colonne ENTORG à peu de chose car la colonne DPMTEXCDE mixe CODCOL + ENTORG ce qui doit donner pour la première ligne par exemple :

Code :

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

1
2
CODCOL ENTORG         CTCEXCDE    DPMTINCDE DPMTEXCDE      DPMTINCDE
59350  02070205       59350-27811      2746   350-02070205      2746

Voici mon Pl/Sql au complet :

Code sql :

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
DECLARE
/* pour mémoriser occurrence lue */ 
    lu_codcol VARCHAR2(5);
    lu_entorg VARCHAR2(18);
    lu_ctcexcde VARCHAR2(17);
    lu_ctcdpmtincde NUMBER(10);
    lu_dpmtexcde VARCHAR2(17);
    lu_dpmtincde NUMBER(10);
/* pour mémoriser la recherche du code interne organigramme */
    search NUMBER(10);
/* definition du curseur */     
    CURSOR c1 IS 
      SELECT civ.codcol, civ.entorg, p_ctc.ctcexcde, p_ctc.dpmtincde, r_dpmt.dpmtexcde, r_dpmt.dpmtincde
      FROM p_ctc, p_cpyaddr, jpb_pers civ, r_dpmt
      WHERE p_ctc.cpyaddrincde = p_cpyaddr.cpyaddrincde
      AND p_cpyaddr.cpyincde = '1000'
      AND civ.CODCOL = SUBSTR(p_ctc.CtcExCde,1,5)
      AND To_Char(civ.CODAGT) = SUBSTR(p_ctc.CtcExCde,7,5)
      AND p_ctc.CtcExCde NOT LIKE '99999%'
      AND p_ctc.dpmtincde = r_dpmt.dpmtincde; 
BEGIN
    Open c1;
      LOOP
        FETCH c1 INTO lu_codcol, lu_entorg, lu_ctcexcde, lu_ctcdpmtincde, lu_dpmtexcde, lu_dpmtincde;
          IF lu_dpmtexcde <> SubStr(lu_codcol,3,3)||'-'||lu_entorg THEN
            SELECT r_dpmt.dpmtincde INTO search FROM r_dpmt WHERE r_dpmt.dpmtexcde = SubStr(lu_codcol,3,3)||'-'||lu_entorg;
            UPDATE p_ctc SET p_ctc.dpmtincde = search WHERE p_ctc.ctcexcde = lu_ctcexcde;
          END IF;
        EXIT WHEN c1%NOTFOUND;
      END LOOP;
    CLOSE c1;
END;

A l'exécution de mon Pl/Sql j'ai une erreur :

Code :

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

1
2
3
4
5
Line Pos Text
7    1   ORA-01403: Aucune donnée trouvée
ORA-06512: à ligne 26
 
         Total execution time 0.266 sec.

Je ne vois pas d'ou l'erreur peut venir. Merci pour votre aide.

[McM]

L'erreur vient du select into

Toujours mettre des gestions d'exception sur les select into.

[MaRTy59]

Le soucis c'est que je n'ai pas d'idées de comment traiter cette exception.
J'aimerais voir le contenu des variables, mais la je n'ai rien, je travail à l'aveuglette. Que me conseils tu ?

[McM]

Pour voir les variables, il suffit de tracer avec dbms_output

Pour les exceptions, c'est dans les tutoriels http://sheikyerbouti.developpez.com/...age=Chap1#L1.3

[MaRTy59]

Ok je dois ajouter un block Exception, et je dois traiter l'erreur WHEN NO_DATA_FOUND Then ...
Mais malgrès la lecture de ce guide, je ne vois pas comment traiter cette erreur

[mnitu]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
...
          IF lu_dpmtexcde <> SubStr(lu_codcol,3,3)||'-'||lu_entorg THEN
            Begin
              SELECT r_dpmt.dpmtincde INTO search FROM r_dpmt WHERE r_dpmt.dpmtexcde = SubStr(lu_codcol,3,3)||'-'||lu_entorg;
            Exception
              When NO_DATA_FOUND Then 
                search := 1; -- ou qui sait NULL, ou encore ...
            End;
            UPDATE p_ctc SET p_ctc.dpmtincde = search WHERE p_ctc.ctcexcde = lu_ctcexcde;
          END IF;
...

[McM]

Ou si dans ce cas il ne faut pas faire l'update

Code :

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

1
2
3
4
5
6
7
8
9
10
IF lu_dpmtexcde <> SubStr(lu_codcol,3,3)||'-'||lu_entorg THEN
            Begin
              SELECT r_dpmt.dpmtincde INTO search FROM r_dpmt WHERE r_dpmt.dpmtexcde = SubStr(lu_codcol,3,3)||'-'||lu_entorg;
-- l'update suivant ne sera fait que si le select ne sort pas en erreur.
            UPDATE p_ctc SET p_ctc.dpmtincde = search WHERE p_ctc.ctcexcde = lu_ctcexcde;
            Exception
              When NO_DATA_FOUND Then 
                NULL; -- pas d'erreur
End;
          END IF;

[MaRTy59]

Si il y a une erreur, il faudra que je la traite manuellement parce que je ne pourrais pas faire autrement, c'est surement du à des erreurs de saisies.
Donc une fois que l'exception NO DATA FOUND est levée, j'aimerais trouver le moyen de continuer l'exécution c'est à dire passer à l'enregistrement suivant, car avec :

Code sql :

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

1
2
3
 
When NO_DATA_FOUND Then 
     NULL;

le traitement se termine dès qu'il rencontre une exception. Or j'aimerais qu'il passe à l'enregistrement suivant mais je ne connais pas le moyen de faire ça.

[c.langlet]

bonjour,
Si tu suis les codes exemples fournis précédemment, le fait d'encadrer par un BEGIN .. END tes select et update et de gérer l'exception a l'intérieur, permet de reprendre la suite de la boucle en cas d'erreur dans cette partie.

[MaRTy59]

Ca fonctionne parfaitement j'avais oublié d'entouré par le Begin et End.
Merci beaucoup pour votre aide.