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

🧪 7-7 – Étude de cas : lecture et écriture dans un fichier client

Dans cette étude de cas, vous allez apprendre à :

• 📁 Lire un fichier existant contenant des enregistrements clients
• 📝 Écrire de nouveaux clients dans un autre fichier
• 📌 Utiliser les instructions  OPEN ,  READ ,  WRITE  et  CLOSE 

📋 Structure des fichiers

Fichier d'entrée : CLIENTS-IN.DAT

 01 ENREGISTREMENT-ENTREE.
    05 CODE-CLIENT       PIC X(6).
    05 NOM-CLIENT         PIC X(30).
    05 SOLDE              PIC 9(5)V99.
  

Fichier de sortie : CLIENTS-OUT.DAT

 01 ENREGISTREMENT-SORTIE REDEFINES ENREGISTREMENT-ENTREE.
  

🧭 Déclarations COBOL

 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
    SELECT FIC-ENTREE ASSIGN TO "CLIENTS-IN.DAT"
        ORGANIZATION IS SEQUENTIAL.
    SELECT FIC-SORTIE ASSIGN TO "CLIENTS-OUT.DAT"
        ORGANIZATION IS SEQUENTIAL.

 DATA DIVISION.
 FILE SECTION.
 FD FIC-ENTREE.
    01 ENREGISTREMENT-ENTREE.
        05 CODE-CLIENT       PIC X(6).
        05 NOM-CLIENT         PIC X(30).
        05 SOLDE              PIC 9(5)V99.

 FD FIC-SORTIE.
    01 ENREGISTREMENT-SORTIE REDEFINES ENREGISTREMENT-ENTREE.
  

⚙️ Logique dans la PROCEDURE DIVISION

 PROCEDURE DIVISION.
    OPEN INPUT FIC-ENTREE.
    OPEN OUTPUT FIC-SORTIE.

    PERFORM LIRE-ET-COPIER UNTIL FIN-FICHIER = "OUI".

    CLOSE FIC-ENTREE.
    CLOSE FIC-SORTIE.
    STOP RUN.

 LIRE-ET-COPIER.
    READ FIC-ENTREE AT END
        MOVE "OUI" TO FIN-FICHIER
    NOT AT END
        WRITE ENREGISTREMENT-SORTIE.
  

✅ Résultat attendu

• 📥 Le programme lit chaque client du fichier d’entrée
• 📤 Il copie chaque enregistrement dans le fichier de sortie
• 🧾 Le tout sans transformation, avec gestion de la fin de fichier

📌 Résumé

Ce cas vous permet de :

• 📄 Manipuler deux fichiers dans un même programme
• 🧠 Maîtriser  READ  et  WRITE  dans une boucle
• 🛠️ Comprendre l’intérêt de  REDEFINES  pour réutiliser une même structure