Bienvenue dans la formation COBOL

Apprenez les bases du COBOL et développez vos compétences en programmation legacy avec une approche moderne.

Info : Ce module vous permet d’accéder rapidement aux contenus essentiels de la formation COBOL.
Retour au plan général

Cas pratiques : demander le nom d’un utilisateur, afficher un message personnalisé

Ce cas pratique combine deux réflexes fondamentaux : lire une information au clavier avec  ACCEPT , puis produire une sortie claire avec  DISPLAY . L’objectif n’est pas seulement de “faire fonctionner” le programme, mais de produire un affichage propre, compréhensible, et robuste face aux espaces de fin des champs texte.

Cas pratique Console Débutant
🧭

Méthode

Étapes

Le programme suit un déroulé très simple, mais il contient déjà des bonnes pratiques qui vous serviront dans toutes les leçons suivantes.

1️⃣
Déclarer une variable texte
Un champ en  PIC  X(n)  sert à recevoir la saisie. Sa taille fixe est un contrat.
2️⃣
Afficher un prompt lisible
Avec  WITH  NO  ADVANCING , le curseur reste sur la même ligne.
3️⃣
Lire la saisie
 ACCEPT  copie la valeur dans la variable.
4️⃣
Afficher un message personnalisé
On concatène “logiquement” en mettant plusieurs éléments dans un  DISPLAY . Pour gérer les espaces, on peut utiliser  FUNCTION  TRIM .
⚠️
Pourquoi le trim est utile ?
Si le champ fait 20 caractères et que l’utilisateur tape “Paul”, le champ contient “Paul” + des espaces. Sans nettoyage, l’affichage peut paraître étrange dans des phrases plus longues.
🧪

Exemple exécutable

ACCEPT + DISPLAY

Le code ci-dessous demande le nom, puis affiche un message personnalisé. Il montre une manière simple et propre d’éviter l’effet “espaces invisibles” grâce à  FUNCTION  TRIM .

🧾 Fichier : demo-bienvenue.cbl
Cobol (format libre) 

 >>SOURCE FORMAT FREE
 IDENTIFICATION DIVISION.
 PROGRAM-ID. DEMO-BIENVENUE.

 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 WS-NOM PIC X(20) VALUE SPACES.

 PROCEDURE DIVISION.
    DISPLAY "Entrez votre nom : " WITH NO ADVANCING
    ACCEPT WS-NOM

    DISPLAY "Bonjour " FUNCTION TRIM(WS-NOM) " ! Ravi de vous voir."
    STOP RUN.
Exemple de sortie
Entrez votre nom : Martin
Bonjour Martin ! Ravi de vous voir.
Variante utile
Pour vérifier la valeur brute (avec espaces), affichez : [" + champ + "], par exemple :  DISPLAY "Nom = [" WS-NOM "]" .

Nom trop long
Si le nom dépasse  X(20) , la fin peut être perdue. Agrandissez le champ si nécessaire, ou informez l’utilisateur.
Trim non disponible ?
Certains environnements anciens peuvent limiter les fonctions. Dans ce cas, affichez simplement le nom, ou utilisez une autre technique de nettoyage selon votre compilateur.
🧩
Explorer : exercices
1) Demandez le prénom et affichez “Bonjour <prenom>”.
2) Demandez le nom et la ville, puis affichez “Bonjour <nom>, vous êtes à <ville>.”
3) Ajoutez un second  DISPLAY  qui montre la valeur brute encadrée par [...].

↑ Haut