Accueil Cours

Animation : Écriture dans un Fichier en COBOL

Découvrez comment un programme COBOL interagit avec les fichiers externes pour écrire des données. Suivez le flux pour voir les données être ajoutées au fichier virtuel. 


IDENTIFICATION DIVISION.
PROGRAM-ID. Enregistreur.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT FichierProduits ASSIGN TO "produits.txt"
        ORGANIZATION IS SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD FichierProduits.
01 EnregistrementProduit.
   05 NomProduit   PIC X(20).
   05 Quantite     PIC 9(4).

PROCEDURE DIVISION.
Debut.
    PERFORM RemplirFichier
    STOP RUN.

RemplirFichier.
    OPEN OUTPUT FichierProduits

    MOVE "Pommes"      TO NomProduit
    MOVE 150           TO Quantite
    WRITE EnregistrementProduit

    MOVE "Bananes"     TO NomProduit
    MOVE 200           TO Quantite
    WRITE EnregistrementProduit

    MOVE "Cerises"     TO NomProduit
    MOVE 90            TO Quantite
    WRITE EnregistrementProduit

    CLOSE FichierProduits.

Animation pas à pas :

Cliquez sur "Démarrer l'animation" pour commencer l'explication du flux du programme.