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 cree avec succes !".
    STOP RUN.