Apprenez les bases du COBOL et développez vos compétences en programmation legacy avec une approche moderne.
Dans cette leçon, vous allez apprendre à afficher des informations à l’écran et à récupérer une saisie utilisateur.
C’est le premier pas vers des programmes interactifs, et c’est aussi une base utile pour déboguer, car un
DISPLAY bien placé permet de comprendre ce qui se passe réellement dans le programme.
En Cobol, les entrées/sorties “console” reposent sur deux instructions simples :
DISPLAY pour afficher, et ACCEPT pour lire.
DISPLAY ACCEPT WORKING-STORAGE SECTION .
WITH NO ADVANCING
Ce programme demande une saisie, puis réaffiche la valeur. Les crochets [...] rendent visibles les espaces.
>>SOURCE FORMAT FREE
IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO-IO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TEXTE PIC X(30) VALUE SPACES.
PROCEDURE DIVISION.
DISPLAY "Entrez une valeur : " WITH NO ADVANCING
ACCEPT WS-TEXTE
DISPLAY "Vous avez saisi : [" WS-TEXTE "]"
STOP RUN.
cobc -x -free demo-io.cbl
-free, gardez le
>>SOURCE FORMAT FREE dans le code.
ACCEPT DISPLAY [...] WITH NO ADVANCING X(30) , la fin peut être perdue.
Augmentez la taille si nécessaire (ex. X(60) ).
[ et ] autour de la valeur.
"..." pour voir les espaces.