Lecture clefs en double

[Ldr62]

Bonjour,
Pour lire un fichier avec une clé avec doublons quelle est la meilleure solution si il existe plusieurs enregistrements avec la même clé.
1er : Chain (critères) fichier;
Dow %EOF;
....
Reade (critères) fichier;
EndDo;

Ou 2ème:
Setll (critères) fichier;
Reade (critères) fichier;
Dow Not %EOF;
....
Reade (critères) fichier;
EndDo;
Cordialement.

[florian67]

Salut,

Pour moi la meilleure est :

Code : Tout sélectionner

Exec sql
          DECLARE curseur SCROLL CURSOR FOR
          SELECT zone1, zone2
          FROM   Fichier
          WHERE  zone = 'A' 
          FOR READ ONLY;

Bonne journée
Florian

[cmasse]

Pour moi, en RPG, les deux solutions se valent.

ATTENTION, CHAIN ne déclenche pas %EOF, mais %FOUND ou NOT %FOUND

[Ldr62]

Bonsoir,
Merci de vos réponses, j'avais une crainte qu'avec un CHAIN on ne se positionne pas à chaque fois sur le premier enregistrement si il y en avait plusieurs comme le fait un SETLL. Merci.
Cordialement.