Discussion :

[elajjouri]

Bonjour,

Nous avons une table composé des RIb , code événement et date d’événement

Nous souhaitons sélectionner et purger les comptes ayant leur dernier
code événement à 'AA' et la date d’événement > 1 année

Comme indiqué dans la table PJ

Avez-vous une idée sur le curseur à mettre en place ?

[al1_24]

Quelle requête as-tu déjà essayée ?
Quel problème rencontres-tu ?

[elajjouri]

Bonjour,

Pour Moi la curseur à mettre en place est :

Code :

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

1
2
3
SELECT *
FROM IRRPROD.TBACTIRR
ORDER BY D_EVENT DESC;

Mais ça va charger tout la table ce qui engendre une consommation mémoire important.

[GeekMokona]

Quel est Ton SGBD ?

Car un curseur n'est pas la meilleur des solutions travaille ligne a ligne et non ensembliste ....

En fonction de ton SGBD il existe des méthode autre comme les CTE ou les fonction OLAP Max(Date) Over(Partition By ....

[elajjouri]

C'est du DB2.

Nous codons du COBOL sous DB2

En d'autres terme, y a t-il des fonction prédéfinis qui me permet de récupérer les lignes dont la date d’événement est > 1 année ?

Merci d'avance.

[escartefigue]

Pour ce cas d'espèce, un test d'existence suffit :

Recherche pour le même RIB, d'un enregistrement plus récent en statut 'AC' s'il n'y en a pas, on supprime
A vous d'alimenter la host-variable HV-DATE avec la date qui va bien, que vous pouvez si besoin calculer par rapport à la current-date

Code :

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

1
2
3
4
5
6
7
DELETE FROM MA_TABLE MAIN
WHERE D-EVENT < :HV-DATE
  AND NOT EXISTS
     (SELECT 1 FROM MA_TABLE SUBQ
      WHERE SUBQ.RIB = MAIN.RIB
        AND SUBQ.D-EVENT > MAIN.D-EVENT
        AND SUBQ.C-EVENT = 'AC')

Si votre date D-EVENT de format DATE vous pouvez calculer comme ceci :

Code :

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

1
2
3
4
5
6
7
DELETE FROM MA_TABLE MAIN
WHERE D-EVENT < ADD_MONTHS(CURRENT_DATE, -12) 
  AND NOT EXISTS
     (SELECT 1 FROM MA_TABLE SUBQ
      WHERE SUBQ.RIB = MAIN.RIB
        AND SUBQ.D-EVENT > MAIN.D-EVENT
        AND SUBQ.C-EVENT = 'AC')

Si votre date est au format TIMESTAMP, il faut remplacer par

Code :

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

ADD_MONTHS(DATE(CURRENT TIMESTAMP),-12)

Edit : cela étant, notez bien qu'en général on ne code pas de requete, surtout pour du delete, en utilisant des registres comme current date ou current timestamp.
car ce type d'utilisation empêche de lancer le traitement en mode reprise et peut provoquer des incohérences s'il démarre le soir et se termine après minuit.
Le plus souvent, les responsables de prod imposent l'utilisation d'une date pilotée par le robot d'exploitation

[elajjouri]

Merci escartefigue pour cette réponse.
Je crois qu'elle est valable au cas ou nous avons que 2 code d'evenements 'AA' ou 'AC', par contre nous avons 3 événements.
Avez-vous une idée svp ?

[escartefigue]

Si vous avez plusieurs codes événement à prendre en compte, il suffit d'adapter la sous-requête imbriquée, par exemple :

Code :

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

1
2
3
4
     (SELECT 1 FROM MA_TABLE SUBQ
      WHERE SUBQ.RIB = MAIN.RIB
        AND SUBQ.D-EVENT > MAIN.D-EVENT
        AND SUBQ.C-EVENT IN  ('AC', 'XX', 'YY' etc...))