Apprendre COBOL : Manipulation des Tableaux

Manipulation des Tableaux

Introduction à la Manipulation des Tableaux en COBOL

Les tableaux, ou arrays, sont des structures de données essentielles qui vous permettent de stocker et de manipuler des collections d'éléments du même type. COBOL prend en charge les tableaux de manière très flexible. Voyons comment les définir et les utiliser.

Définition des Tableaux

Pour définir un tableau en COBOL, vous utilisez la clause OCCURS. Voici un exemple de définition d'un tableau simple :

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 Tableau-Nombres.
           05 Nombre OCCURS 10 TIMES PIC 9(2).
        

Ce tableau, Tableau-Nombres, contient 10 éléments, chacun étant un nombre à 2 chiffres.

Accès aux Éléments du Tableau

Pour accéder aux éléments d'un tableau, vous utilisez l'indice de l'élément. COBOL permet de manipuler les indices de manière très flexible. Voici un exemple :

       PROCEDURE DIVISION.
           MOVE 5 TO Nombre (1)
           MOVE 10 TO Nombre (2)
           DISPLAY 'Premier élément : ' Nombre (1)
           DISPLAY 'Deuxième élément : ' Nombre (2)
        

Dans cet exemple, nous déplaçons les valeurs 5 et 10 dans les premier et deuxième éléments du tableau, puis nous les affichons.

Utilisation des Boucles avec les Tableaux

Les boucles sont souvent utilisées pour traiter les éléments des tableaux. Voici comment vous pouvez utiliser une boucle PERFORM pour initialiser et afficher les éléments d'un tableau :

       PROCEDURE DIVISION.
           PERFORM VARYING i FROM 1 BY 1 UNTIL i > 10
               MOVE i TO Nombre (i)
           END-PERFORM

           PERFORM VARYING i FROM 1 BY 1 UNTIL i > 10
               DISPLAY 'Élément ' i ' : ' Nombre (i)
           END-PERFORM.
        

Dans cet exemple, nous utilisons une boucle PERFORM VARYING pour initialiser les éléments du tableau avec les valeurs de 1 à 10, puis nous affichons ces valeurs.

Tableaux Multidimensionnels

COBOL prend également en charge les tableaux multidimensionnels. Voici un exemple de définition et d'utilisation d'un tableau à deux dimensions :

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 Tableau-2D.
           05 Ligne OCCURS 5 TIMES.
               10 Colonne OCCURS 5 TIMES PIC 9(2).

       PROCEDURE DIVISION.
           PERFORM VARYING i FROM 1 BY 1 UNTIL i > 5
               PERFORM VARYING j FROM 1 BY 1 UNTIL j > 5
                   MOVE (i * j) TO Colonne (i, j)
               END-PERFORM
           END-PERFORM

           PERFORM VARYING i FROM 1 BY 1 UNTIL i > 5
               PERFORM VARYING j FROM 1 BY 1 UNTIL j > 5
                   DISPLAY 'Élément (' i ',' j ') : ' Colonne (i, j)
               END-PERFORM
           END-PERFORM.
        

Ce tableau, Tableau-2D, est initialisé avec les produits des indices de ligne et de colonne, puis les valeurs sont affichées.

En maîtrisant la manipulation des tableaux en COBOL, vous serez en mesure de gérer efficacement les collections d'éléments et de créer des programmes plus complexes et performants.

© 2024 Codez avec moi