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 :  

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 :
 

 
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 :
 

 
Voici mon Pl/Sql au complet :

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 :  

 
J'ai cherché un peu, il faut traiter l'exception, c'est à cause du select into, mais je ne sais pas comment la traiter. Merci pour votre aide.

Salut Marty,
si tu n'as pas encore résolu ton problème.
Plusieurs remarques :

• ton curseur C1 ramène à la fois les personnes à mettre à jour et celles qui n'ont pas besoin de l'être. Il faut inclure r_dpmt.dpmtexcde <> SubStr(lu_codcol,3,3)||'-'||lu_entorg dans ta clause WHERE. Tu n'auras plus besoin de faire un test dans la partie execution et les performances seront meilleures.

• Ton exception signifie que parfois tu n'arrives pas à trouver un code service interne correspondant au code service externe donc soit ton SELECT est faux (SELECT r_dpmt.dpmtincde INTO search FROM r_dpmt WHERE r_dpmt.dpmtexcde = SubStr(lu_codcol,3,3)||'-'||lu_entorg soit tu dois gérer ce cas d'une manière différente. Tu peux utiliser une clause EXISTS ou NOT EXISTS pour restreindre aux codes services existants ou identifier ceux qui n'ont pas de correspondance code interne-code externe

Après avoir modifié ta clause where (1ère remarque). Utilise plutôt une boucle FOR de type curseur.
 

• FOR c_maj_code_dpt in c1

LOOP
    UPDATE p_ctc SET p_ctc.dpmtincde = (SELECT r_dpmt.dpmtincde FROM r_dpmt WHERE r_dpmt.dpmtexcde = SubStr(c_maj_code_dpt.codcol,3,3)||'-'||lc_maj_code_dpt.entorg) WHERE p_ctc.ctcexcde = c_maj_code_dpt.ctcexcde
-- Attention dans ton curseur à bien enlever les préfixes de tables et renommer les colonnes identiques.
END LOOP;
 

• même si a priori tu n'en auras plus besoin en utilsant une boucle for de type curseur, de manière générale évite de typer tes variables en dur. utilise des déclarations basées (lu_codcol jpb_pers.codcol%TYPE; et non lu_codcol VARCHAR2(5). Evite aussi les valeurs en dur style 1000 1,5 3,3. Utilise plutôt des variables style v_long_codeent initialisées dans ta partie déclarative.  

Voilà. Bon courage