[oracle] curseurs imbriqués

PROCEDURE P_trtModeles IS  

    -- Sélection de tous les clients 
    CURSOR c1 IS 
      SELECT DISTINCT modele 
      FROM Clients; 

    CURSOR c2(P_modele) IS 
       SELECT matricule_machine 
         FROM Interventions 
         WHERE modele = p_modele; 

    c2_ENR  VARCHAR2(50) := NULL;  -- variable pour stocker la valeur courante 
                                                          -- de c2 

  BEGIN 
    -- parcours des clients depuis c1
    -- (déclaration implicite de c1 = écriture simplifiée) 
    FOR c1_ENR IN c1 LOOP 
       EXIT WHEN c1%NOTFOUND OR c1%NOTFOUND IS NULL;  

        -- Identification du matricule machine depuis c2 
        --   ouverture explicite du curseur c2 en passant en paramètre 
        --   le modèle courant de c1 
        OPEN c2(c1_ENR.modele);  
        FETCH c2 INTO c2_ENR; 
        IF c2%NOTFOUND THEN 
          -- Traitement si non trouvé 
          ... 
          ...
        ELSE 
          -- Traitement si trouvé 
           ...
           ...
        END IF; 
        CLOSE c2; 
        c2_ENR:= NULL;
    END LOOP; 

EXCEPTION 
  WHEN OTHERS THEN 
      IF c1%ISOPEN THEN 
        CLOSE c1; 
      END IF; 
      IF c2%ISOPEN THEN 
        CLOSE c2; 
      END IF; 

      raise_application_error(-20101, 'Erreur Identification matricule machine'); 

END P_trtModeles; 

create or replace procedure cout_copie_modele(date varchar2(50))
is

cout_op number;
nb_cop number;

cursor c1 is select distinct modele from Clients;

begin

--On recupere le modele de la machine
for c1_rec in c1 loop
exit when c1%NOTFOUND or c1%NOTFOUND IS NULL;
   --On poursuit le traitement seulement pour les requetes de ce mois et de cette année
.
.
.

-- moisAnnee sera donné à l'appel de la procédure avec le même format 
--    que le paramètre de p_date de c1 (ici : MM/YYYY)
-- date_a_traiter est de type DATE et est une colonne de Clients
CREATE OR REPLACE PROCEDURE cout_copie_modele(moisAnnee IN VARCHAR2) 
IS 

  cout_op  NUMBER; 
  nb_cop   NUMBER; 

  CURSOR c1(p_date  VARCHAR2) IS 
    SELECT DISTINCT modele 
       FROM Clients 
       WHERE TO_CHAR(date_a_traiter, 'MM/YYYY')=p_date; 

BEGIN 

  -- On recupere le modele de la machine 
  FOR c1_rec IN c1(moisAnnee) LOOP 
    EXIT WHEN c1%NOTFOUND OR c1%NOTFOUND IS NULL; 

     -- Seuls les enregistrements de Clients faisant partis du mois et de l'année
     -- désignés par moisAnnee sont sélectionnés 
     . 
     . 
     . 
  END LOOP; 
END cout_copie_modele; 

  cout_copie_modele('05/2010');