Apprendre COBOL : Gestion des Fichiers

Gestion des Fichiers

Lecture, Écriture et Mise à Jour des Fichiers en COBOL

La gestion des fichiers est une compétence essentielle en COBOL, car de nombreuses applications utilisent des fichiers pour stocker et récupérer des données. Cette leçon couvrira la lecture, l'écriture et la mise à jour des fichiers en COBOL.

Ouverture et Fermeture des Fichiers

Les fichiers doivent être ouverts avant de pouvoir être lus ou écrits, et ils doivent être fermés après utilisation. Voici comment ouvrir et fermer un fichier en COBOL :

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT FichierEntree ASSIGN TO 'input.txt'
       ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD FichierEntree.
01 EnregistrementEntree.
   05 Nom PIC X(20).
   05 Age PIC 99.

WORKING-STORAGE SECTION.
01 Message PIC X(50).

PROCEDURE DIVISION.
    OPEN INPUT FichierEntree
    CLOSE FichierEntree.
        

Lecture des Fichiers

Pour lire des données à partir d'un fichier, vous utilisez l'instruction READ. Voici un exemple :

PROCEDURE DIVISION.
    OPEN INPUT FichierEntree
    READ FichierEntree INTO EnregistrementEntree
    IF NOT AT END
        DISPLAY 'Nom: ', Nom
        DISPLAY 'Age: ', Age
    END-READ
    CLOSE FichierEntree.
        

Écriture dans les Fichiers

Pour écrire des données dans un fichier, vous utilisez l'instruction WRITE. Voici un exemple :

DATA DIVISION.
FILE SECTION.
FD FichierSortie.
01 EnregistrementSortie.
   05 NomSortie PIC X(20).
   05 AgeSortie PIC 99.

PROCEDURE DIVISION.
    OPEN OUTPUT FichierSortie
    MOVE 'Jean Dupont' TO NomSortie
    MOVE 30 TO AgeSortie
    WRITE EnregistrementSortie
    CLOSE FichierSortie.
        

Mise à Jour des Fichiers

La mise à jour des fichiers implique la lecture d'un enregistrement, sa modification, puis la réécriture de cet enregistrement. Voici un exemple :

PROCEDURE DIVISION.
    OPEN I-O FichierEntree
    READ FichierEntree INTO EnregistrementEntree
    IF NOT AT END
        MOVE 'Nouvel Age' TO Age
        REWRITE EnregistrementEntree
    END-READ
    CLOSE FichierEntree.
        

En comprenant ces concepts et en les appliquant, vous serez capable de gérer efficacement les fichiers dans vos programmes COBOL.

© 2024 Codez avec moi