Discussion :

[Jean_Peuplus]

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

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

ou pas ?

merci.

[Jean_Peuplus]

Code :

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

1
2
3
4
EXEC SQL                   
  DELETE FROM TSIIMPR           
   WHERE CURRENT OF CURSEUR
END-EXEC

désolé

[Mercure]

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 :

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

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 ?

[Jean_Peuplus]

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

[Mercure]

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

[Jean_Peuplus]

DB2 for z/os

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

Code :

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

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