Code :
 BEGIN Open c1; FETCH c1 INTO lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep; co_nomusu := lu_nomusu; co_nompat := lu_nompat; co_prenom := lu_prenom; co_dtenai := lu_dtenai; co_depcol := lu_depcol; co_motdep := lu_motdep;    LOOP         FETCH c1 INTO lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep;         IF lu_nompat = co_nompat AND lu_prenom = co_prenom AND lu_dtenai = co_dtenai THEN           IF lu_depcol IS NULL AND co_depcol IS NULL THEN             INSERT INTO ANOMALIE VALUES               (               lu_nomusu, lu_nompat, lu_prenom, lu_dtenai, lu_depcol, lu_motdep               );             INSERT INTO ANOMALIE VALUES               (               co_nomusu, co_nompat, co_prenom, co_dtenai, co_depcol, co_motdep               );           END IF;           IF lu_depcol IS NULL THEN             ins_nomusu := lu_nomusu;             ins_nompat := lu_nompat;             ins_prenom := lu_prenom;             ins_dtenai := lu_dtenai;             ins_depcol := lu_depcol;             ins_motdep := lu_motdep;           ELSE              IF lu_depcol > co_depcol AND co_depcol IS NOT NULL THEN               ins_nomusu := lu_nomusu;               ins_nompat := lu_nompat;               ins_prenom := lu_prenom;               ins_dtenai := lu_dtenai;               ins_depcol := lu_depcol;               ins_motdep := lu_motdep;             END IF;           END IF;         ELSE           IF /* Si pas dans la table */ THEN              INSERT INTO UNEFOIS VALUES                        (             ins_nomusu, ins_nompat, ins_prenom, ins_dtenai, ins_depcol, ins_motdep             );           END IF;         END IF;         co_nomusu := lu_nomusu;         co_nompat := lu_nompat;         co_prenom := lu_prenom;         co_dtenai := lu_dtenai;         co_depcol := lu_depcol;         co_motdep := lu_motdep;         EXIT WHEN c1%NOTFOUND;     END LOOP;     CLOSE c1; END; 
 
  |