Apprendre COBOL : Les Tables

Les Tables

Manipulation des Tables en COBOL

Les tables (ou arrays) sont des structures de données qui permettent de stocker plusieurs éléments de même type. En COBOL, les tables sont déclarées et manipulées à l'aide de structures spéciales. Dans cette leçon, nous allons explorer comment déclarer, initialiser et manipuler les tables en COBOL.

Déclaration des Tables

Les tables sont définies dans la DATA DIVISION, généralement dans la WORKING-STORAGE SECTION. Voici un exemple de déclaration d'une table :

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Table-Etudiants.
    05 Etudiant OCCURS 10 TIMES.
        10 Nom-Etudiant   PIC X(20).
        10 Age-Etudiant   PIC 99.
        10 Note-Etudiant  PIC 99.
        

Dans cet exemple, nous avons déclaré une table Table-Etudiants qui peut contenir jusqu'à 10 étudiants. Chaque étudiant a un nom, un âge et une note.

Initialisation des Tables

Vous pouvez initialiser les tables en utilisant des instructions COBOL dans la PROCEDURE DIVISION. Voici un exemple d'initialisation :

PROCEDURE DIVISION.
INITIALISER-TABLE.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
        MOVE 'Nom' & I TO Nom-Etudiant (I)
        MOVE 18 TO Age-Etudiant (I)
        MOVE 75 TO Note-Etudiant (I)
    END-PERFORM.
        

Dans cet exemple, nous utilisons une boucle PERFORM VARYING pour initialiser chaque élément de la table avec des valeurs par défaut.

Accès aux Éléments de la Table

Vous pouvez accéder et manipuler les éléments de la table en utilisant des index. Voici un exemple d'affichage des éléments de la table :

AFFICHER-TABLE.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
        DISPLAY 'Nom: ' Nom-Etudiant (I)
        DISPLAY 'Age: ' Age-Etudiant (I)
        DISPLAY 'Note: ' Note-Etudiant (I)
    END-PERFORM.
        

Exemple Complet

Voici un programme COBOL complet qui déclare, initialise et affiche une table d'étudiants :

IDENTIFICATION DIVISION.
PROGRAM-ID. GestionTables.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Table-Etudiants.
    05 Etudiant OCCURS 10 TIMES.
        10 Nom-Etudiant   PIC X(20).
        10 Age-Etudiant   PIC 99.
        10 Note-Etudiant  PIC 99.
01 I PIC 99.

PROCEDURE DIVISION.
INITIALISER-TABLE.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
        MOVE 'Nom' & I TO Nom-Etudiant (I)
        MOVE 18 TO Age-Etudiant (I)
        MOVE 75 TO Note-Etudiant (I)
    END-PERFORM.

AFFICHER-TABLE.
    PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
        DISPLAY 'Nom: ' Nom-Etudiant (I)
        DISPLAY 'Age: ' Age-Etudiant (I)
        DISPLAY 'Note: ' Note-Etudiant (I)
    END-PERFORM.

    STOP RUN.
        

Ce programme déclare une table d'étudiants, l'initialise avec des valeurs par défaut et affiche chaque enregistrement de la table.

En comprenant et en utilisant les tables en COBOL, vous pourrez manipuler efficacement des collections de données dans vos applications.

© 2024 Codez avec moi