fetch et delete

bonjour,

j'ai pour tache de créer un prg de reprise pour supprimer les occurrences en double d'une table, cad avec la même référence.

cette référence est en quelque sorte une clé primaire qui n'en est pas une sur le plan de la définition et du coup certains doublons sont apparus.

je suis parti pour fetcher toute la table en ordonnant par cette référence.
mise en mémoire de la référence et suppresion si la référence du fetch en cours = référence en mémoire.

seulement voilà, quand je fait le delete, je n'ai pas de "where" exclusif à disposition :aie:

y a t'il un moyen de dire "je veux supprimer l'occurence pointé par le fetch" ?

ou pas ?

merci.

Code:

---

1 2 3 4

EXEC SQL DELETE FROM TSIIMPR WHERE CURRENT OF CURSEUR END-EXEC

---

:aie:

désolé

Si j'ai bien compris ce que tu veux faire, c'est à dire supprimer les doublons sur colonne "REF" dans une table, il y a peut-être plus simple pour y arriver.

Pas besoin de curseur ni de fetch. Une seule instruction SQL avec une sous-select devrait suffire et, sur le plan des perf, ya pas photo.

Code:

---

1 2 3

DELETE FROM MaTable A WHERE RRN( A ) NOT IN ( SELECT MAX( RRN( B ) ) FROM MaTable B WHERE A.REF = B.REF) )

---

Est-ce que ça te parle ?

merci mais ça ne marche pas RRN(A) chez moi

Tu es sous quel SGBD DB2 ?
DB2 for z/os, DB2/400, autre chose ?

DB2 for z/os

j'ai fait ça sous spufi pour voir si ça marche :

Code:

---

1 2 3 4

select * FROM tst.tsistkim A WHERE RRN( A ) NOT IN ( SELECT MAX( RRN( B ) ) FROM tst.tsistkim B WHERE A.REF_IMPRIME = B.REF_IMPRIME );

---

résultat :
DSNT408I SQLCODE = -206, ERROR: A IS NOT A COLUMN OF AN INSERTED TABLE,
UPDATED TABLE, OR ANY TABLE IDENTIFIED IN A FROM CLAUSE, OR IS NOT A
COLUMN OF THE TRIGGERING TABLE OF A TRIGGER

et quand je mets le nom complet de la table, j'ai la même chose

j'ai trouvé, j'ai utilisé à la place du RRN (qui ne marche qu'avec des fichiers d'après mes recherches) la colonne DATE_MODIF de ma table qui reprend le timestamp du moment de la création, c'est donc une valeur unique.

Code:

---

1 2 3 4 5 6 7

DELETE FROM TST.TSISTKIM A WHERE A.DATE_MODIF < ANY (SELECT DATE_MODIF FROM TST.TSISTKIM B WHERE A.DATE_MODIF <> B.DATE_MODIF AND A.REF_IMPRIME = B.REF_IMPRIME)

---

ça fonctionne au poil.
merci quand même, tu m'as mis sur la voie :mrgreen:

J'allais te proposer d'utiliser la fonction OLAP "ROW_NUMBER" à la place du RRN mais je vois que tu as trouvé une autre solution entretemps.
Enfin, comme tu dis, je vois que ce que je t'ai indiqué t'a mis sur la voie et surtout t'a évité d'utiliser la méthode de comparaison que tu avais envisagée au départ.