Création d’un fichier simple (`OPEN OUTPUT` + `WRITE`)

Ce cours montre la façon la plus simple de créer un fichier texte en COBOL. On va :

Déclarer un fichier
L’ouvrir en mode écriture
Écrire 3 lignes fixes
Fermer le fichier

C’est tout ! Pas de boucle, pas de saisie, pas d’erreur compliquée.

Exemple de code : Création d’un petit fichier “amis.txt”

IDENTIFICATION DIVISION.
PROGRAM-ID. CREER-FICHIER-SIMPLE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MES-AMIS ASSIGN TO "amis.txt"
           ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD  MES-AMIS.
01  LIGNE-AMIE          PIC X(40).

PROCEDURE DIVISION.
    OPEN OUTPUT MES-AMIS.

    MOVE "Alice - Paris"          TO LIGNE-AMIE
    WRITE LIGNE-AMIE

    MOVE "Bob - Lyon"             TO LIGNE-AMIE
    WRITE LIGNE-AMIE

    MOVE "Charlie - Marseille"    TO LIGNE-AMIE
    WRITE LIGNE-AMIE

    CLOSE MES-AMIS.

    DISPLAY "Fichier amis.txt créé avec succès !".
    STOP RUN.

Télécharger le code

Résultat attendu

Après exécution, un fichier amis.txt apparaît dans le même dossier que votre programme, avec ce contenu exact :

Alice - Paris
Bob - Lyon
Charlie - Marseille

Explication ligne par ligne (très simple)

SELECT MES-AMIS ASSIGN TO "amis.txt" ORGANIZATION IS LINE SEQUENTIAL.
On dit à COBOL : « Je veux un fichier qui s’appelle amis.txt et qui est du texte ligne par ligne ».
FD MES-AMIS. 01 LIGNE-AMIE PIC X(40).
On décrit ce qu’il y a dans le fichier : des lignes de 40 caractères maximum.
OPEN OUTPUT MES-AMIS.
Ouvre le fichier en mode écriture. S’il existe déjà → il est écrasé. S’il n’existe pas → il est créé.
MOVE "Alice - Paris" TO LIGNE-AMIE WRITE LIGNE-AMIE
On met du texte dans la zone, puis on l’écrit dans le fichier. COBOL ajoute automatiquement le saut de ligne.
CLOSE MES-AMIS.
On ferme le fichier pour que tout soit bien enregistré sur disque.
DISPLAY "Fichier amis.txt créé avec succès !".
Juste un petit message pour confirmer que ça a marché.

Points ultra-simples à retenir :
• OPEN OUTPUT = créer ou écraser le fichier
• WRITE = mettre une ligne dans le fichier
• Toujours CLOSE à la fin
• Avec LINE SEQUENTIAL, c’est parfait pour les fichiers texte lisibles avec n’importe quel éditeur

Exercice facile : Change les noms et ajoute 2 amis de plus !

Prochain sujet (si tu veux continuer simplement) : Lire ce fichier qu’on vient de créer.

Création d’un fichier simple (OPEN OUTPUT + WRITE)

Exemple de code : Création d’un petit fichier “amis.txt”

Résultat attendu

Explication ligne par ligne (très simple)

Création d’un fichier simple (`OPEN OUTPUT` + `WRITE`)