📘 Un petit programme COBOL qui affiche plusieurs fois un texte

Voici un exemple simple et pédagogique d’un programme COBOL appelé PACTA-COBOL. Ce programme affiche un message trois fois grâce à une boucle. Même si vous débutez, chaque ligne sera expliquée pas à pas. Vous pouvez retourner dans les explications sur la structure des programmes.

🔹 `IDENTIFICATION DIVISION`.

C’est le point de départ obligatoire de tout programme COBOL. Il indique l’identité du programme.

🔹 `PROGRAM-ID. PACTA-COBOL`.

On donne ici un nom au programme. Ce nom est PACTA-COBOL. Il doit être unique.

🔹 `ENVIRONMENT DIVISION`.

Même si elle est vide ici, cette division est utilisée pour définir les fichiers ou les périphériques d'entrée/sortie.

🔹 `DATA DIVISION`.

Elle contient toutes les données que le programme va utiliser. C’est comme l’inventaire.

🔹 `WORKING-STORAGE SECTION`.

Ici, on déclare les variables. C’est la mémoire temporaire utilisée par le programme.

🔹 `77 I PICTURE 99`.

Cette ligne déclare une variable appelée I :

77 : niveau de déclaration simple pour une variable autonome.
PICTURE 99 : signifie que I peut contenir un nombre à 2 chiffres (de 00 à 99).

🔹 PROCEDURE DIVISION.

C’est ici que les actions se déroulent. Cette division est obligatoire.

🔹 PACTA-CODE.

C’est le nom du paragraphe dans lequel les instructions sont écrites.

🔹 PERFORM VARYING I FROM 1 BY 1 UNTIL I > 3

Cette ligne lance une boucle :

I commence à 1
On ajoute 1 à chaque tour
On s'arrête quand I devient supérieur à 3

🔹 DISPLAY "I learn Cobol"

À chaque passage dans la boucle, cette ligne affiche : I learn Cobol

🔹 Résultat

Quand vous exécutez le programme, il affiche 3 fois :

I learn Cobol
I learn Cobol
I learn Cobol

Ce type de programme est parfait pour débuter. Il montre comment exécuter plusieurs fois une instruction, comment déclarer une variable, et comment afficher un message.

Téléchargez le code source : 🔍 Voir dans un nouvel onglet | 📥 Télécharger le fichier