Parcours Accueil Tour guidé Initiation 1 h Initiation 24 h Révisions Exercices

🧮 8-3 – Utilisation de  INDEXED BY  et  SUBSCRIPT  : accès aux éléments d’un tableau

En  COBOL , vous pouvez accéder aux éléments d’un tableau de deux façons :

• 📍 Par subscript (indice classique) – une variable entière
• 📌 Par index – une position optimisée utilisée avec  INDEXED BY 

🔢 Accès avec  SUBSCRIPT 

Le subscript est un indice numérique classique que vous contrôlez manuellement :

 01 MOIS-DEPENSES.
    05 DEPENSE PIC 9(5) OCCURS 12 TIMES.

 01 I PIC 99.

 MOVE 100 TO DEPENSE(1).
 DISPLAY "Dépense 1 : " DEPENSE(1).
  

Avantages : simple à comprendre, facile à manipuler avec  PERFORM VARYING .
Inconvénient : moins rapide qu’un index (accès indirect).

⚙️ Accès avec  INDEXED BY 

L’index est une variable spéciale déclarée dans la définition du tableau. Elle est manipulée uniquement avec les instructions  SET ,  PERFORM VARYING  ou les instructions de recherche.

 01 TABLEAU-NOTES.
    05 NOTE PIC 99 OCCURS 10 TIMES INDEXED BY IDX.
  

Vous ne pouvez pas écrire NOTE(IDX). Vous devez manipuler l’index avec :

 SET IDX TO 1.
 MOVE 15 TO NOTE(IDX).
  

Ou en boucle :

 PERFORM VARYING IDX FROM 1 BY 1 UNTIL IDX > 10
    DISPLAY "Note : " NOTE(IDX)
 END-PERFORM.
  

📊 Tableau comparatif

📚 Bonnes pratiques

• ✅ Utilisez des  SUBSCRIPT  pour des boucles simples avec  PERFORM VARYING 
• ✅ Utilisez des  INDEXED BY  pour les  SEARCH ,  SEARCH ALL  et les accès optimisés
• ❌ Ne mélangez jamais un  SUBSCRIPT  avec un tableau déclaré  INDEXED BY  (erreur de compilation)

📌 Résumé

En  COBOL  :

• 🔢 Le subscript est simple et direct, adapté aux boucles classiques
• 📈 L’index est puissant, nécessaire pour les recherches dans les tableaux triés