IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-DISPLAY-01.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-PRENOM PIC X(20) VALUE "ALAIN".
01 WS-MESSAGE PIC X(60) VALUE SPACES.
PROCEDURE DIVISION.
MOVE "Bonjour COBOL : " TO WS-MESSAGE.
DISPLAY WS-MESSAGE.
DISPLAY "Prénom : " WS-PRENOM.
STOP RUN.
Ce que fait le programme
1) Il place un texte dans WS-MESSAGE avec MOVE.
2) Il affiche ce texte avec DISPLAY.
3) Il affiche ensuite une étiquette et la valeur de WS-PRENOM.
4) Il s’arrête avec STOP RUN.
Votre micro-exercice
Faites ces trois modifications (courtes, mais essentielles) :
- Changez la valeur de WS-PRENOM avec votre prénom.
- Ajoutez un second DISPLAY qui affiche : "Fin de test."
- Ajoutez une variable WS-VILLE et affichez-la avec un libellé.
Erreur fréquente à éviter
Afficher une variable non déclarée : écrire DISPLAY WS-VILLE sans avoir créé WS-VILLE dans WORKING-STORAGE.
Autre piège : démarrer une instruction trop à gauche. Dans un format fixe, gardez les instructions en zone B (ici, on les place après 11 espaces).