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

📊 8-2 – Introduction aux tableaux COBOL avec  OCCURS 

Les tableaux (ou tables) en  COBOL  permettent de regrouper plusieurs éléments de même nature sous une même structure. Ils sont définis à l’aide de la clause  OCCURS , qui indique combien de fois un champ est répété dans la mémoire.

📘 Syntaxe de base

 01 TABLEAU-MENSUEL.
    05 MONTANT-MOIS          PIC 9(5)V99 OCCURS 12 TIMES.
  

Ici,  MONTANT-MOIS  est un tableau de 12 montants (ex. : pour les 12 mois de l’année).

🔁 Accès aux éléments

Les éléments sont référencés avec un indice (appelé "subscript") :

 MOVE 100.00 TO MONTANT-MOIS(1).
 DISPLAY "Janvier : " MONTANT-MOIS(1).
  

Les indices commencent à 1 (et non à 0 comme dans d’autres langages).

🔄 Parcours avec  PERFORM VARYING 

 01 I PIC 99.

 PERFORM VARYING I FROM 1 BY 1 UNTIL I > 12
    DISPLAY "Mois " I ":" MONTANT-MOIS(I)
 END-PERFORM.
  

Vous pouvez ainsi traiter tous les éléments du tableau dans une boucle.

📚 Exemple : remplir et afficher un tableau

 PERFORM VARYING I FROM 1 BY 1 UNTIL I > 12
    MOVE 500.00 TO MONTANT-MOIS(I)
 END-PERFORM.

 PERFORM VARYING I FROM 1 BY 1 UNTIL I > 12
    DISPLAY "Mois " I " : " MONTANT-MOIS(I)
 END-PERFORM.
  

⚠️ Limites de  OCCURS 

• ⚠️ Vous ne pouvez pas utiliser  OCCURS  au niveau  01 
• ⚠️ Ne dépassez jamais la taille définie (ex. : ici, max 12)
• ⚠️ Les tableaux ne peuvent pas être redimensionnés dynamiquement

📌 Résumé

Grâce à  OCCURS , vous pouvez :

• 🔢 Gérer des séries de données homogènes
• 🔁 Répéter une structure sans la recopier 12 fois
• 🧠 Parcourir les données facilement avec  PERFORM VARYING