Lecture clefs en double

RPG (3 et 4, free), CL, SQL, etc...
Répondre
Ldr62
Messages : 21
Enregistré le : sam. 21 avr. 2018, 19:57:42

(sans sujet)

Message par 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
Messages : 135
Enregistré le : lun. 23 déc. 2013, 17:03:12

(sans sujet)

Message par 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
Site Admin
Messages : 813
Enregistré le : mer. 14 févr. 2007, 18:00:03
Localisation : Nantes
Contact :

les deux mon capitaine.

Message par cmasse »

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

ATTENTION, CHAIN ne déclenche pas %EOF, mais %FOUND ou NOT %FOUND
Christian Massé (Volubis.fr)

Ldr62
Messages : 21
Enregistré le : sam. 21 avr. 2018, 19:57:42

Lecture clefs en double

Message par 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.

Répondre