Apprenez les bases du COBOL et développez vos compétences en programmation legacy avec une approche moderne.
En Cobol, l’affichage console peut sembler simple, mais la qualité des messages change tout : un utilisateur comprend plus vite, saisit mieux, et vous déboguez plus facilement. Une bonne présentation repose sur des détails concrets : prompts cohérents, informations encadrées, messages courts, et sorties structurées avec des séparateurs.
Les règles ci-dessous améliorent immédiatement la qualité des sorties, sans complexifier votre code. Elles sont particulièrement utiles parce que les champs texte Cobol sont souvent à longueur fixe.
WITH NO ADVANCING .
[ valeur ] ou " valeur ".
FUNCTION TRIM .
Vous comprenez immédiatement l’impact des espaces.
Cet exemple illustre un affichage soigné : prompts cohérents, valeurs encadrées, titre de section, et message d’erreur clair. Il reste simple, mais il ressemble déjà à une sortie “propre” de programme de gestion.
>>SOURCE FORMAT FREE
IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO-MESSAGES.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NOM PIC X(20) VALUE SPACES.
01 WS-AGE-TXT PIC X(3) VALUE SPACES.
01 WS-AGE PIC 9(3) VALUE 0.
PROCEDURE DIVISION.
DISPLAY "--- Saisie utilisateur ---"
DISPLAY "Nom : " WITH NO ADVANCING
ACCEPT WS-NOM
DISPLAY "Age (0 a 120) : " WITH NO ADVANCING
ACCEPT WS-AGE-TXT
IF WS-AGE-TXT IS NUMERIC
MOVE WS-AGE-TXT TO WS-AGE
ELSE
DISPLAY "Erreur : age non numerique (" WS-AGE-TXT ")"
MOVE 0 TO WS-AGE
END-IF
DISPLAY "--- Recapitulatif ---"
DISPLAY "Nom (brut) = [" WS-NOM "]"
DISPLAY "Nom (nettoye) = [" FUNCTION TRIM(WS-NOM) "]"
DISPLAY "Age = " WS-AGE
STOP RUN.