Discussion :

[speedy_g]

Bonjour à tous
, j ai une ptite question concernant les acces possibles pr un tableau.

Voila l exemple qui illustre bien ma question :

J'ai le tableau rempli :

01 tab.
03 save occurs 3000.
04 el1 pic X(4).
04 el2 pic 9.
04 infos pic 9.

Mon but est de rechercher l infos dans la table connaissant el1 et el2, mais sans faire une boucle (perform,...). Est-ce possible ?.

[cyspeo]

Bonjour,
tu peux utiliser un search.
mais pour cela il faut que ton tableau soit indexé du genre
03 save occurs 3000 indexed by idx.

Exemple de search :

Code :

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

1
2
3
4
5
6
7
8
     SET IDX               TO 1
      SEARCH SAVE
       AT END
          Coder le traitement en cas de fin (non trouve)
       
       WHEN EL1(IDX) = valeur AND EL2(IDX) ) = valeur
           Coder le traitement du cas trouvé
     END-SEARCH

[speedy_g]

Merci pr la reponse, malheureusement un search effectue en realite l equivalent en calcul d une boucle perform, ce qui n est pas realisable dans mon cas.

[cyspeo]

Dans ce cas je ne vois pas.
Je en crois pas qu'il y ai de structure permettant cela en cobol. Je pense aux structures que l'on trouve en C++ ou Java (genre dictionnaire) ou une clé permet un accès direct à la valeur. Mais je ne connais pas ça en cobol

Est ce si important d'éviter une boucle ?
A+

[Peut-êtreUneRéponse]

Mon but est de rechercher l infos dans la table connaissant el1 et el2, mais sans faire une boucle (perform,...). Est-ce possible ?.

Quelle contrainte t'empêche d'utiliser une boucle?

.

[speedy_g]

Quelle contrainte t'empêche d'utiliser une boucle?

.

Des contraintes de temps d'accès; j'ai un programme qui contenait des boucle imbriquées sur la table. Et les tables sont trèeeeeees très grandes.

J ai résolu mon problème par un autre moyen finallement; mais qui impliquait de créer une table dans Oracle.

Merci pr vos réponses

Johan