La PROCEDURE DIVISION ⚙️
La partie où le programme fait vraiment quelque chose !

C’est ici qu’on écrit les instructions : afficher, calculer, déplacer des données, boucler, décider (IF), appeler des paragraphes, etc.

À quoi sert la PROCEDURE DIVISION ? 🎯

C’est la seule division qui exécute des actions. Toutes les autres divisions (IDENTIFICATION, ENVIRONMENT, DATA) ne font que décrire. Ici, on passe à l’action ! 🚀

IDENTIFICATION DIVISION
(nom du programme)
→
ENVIRONMENT DIVISION
(fichiers, etc.)
→
DATA DIVISION
(variables)
→
PROCEDURE DIVISION
← C’EST ICI QU’ON TRAVAILLE !

Exemple commenté simple 💻

Un petit programme qui salue quelqu’un et augmente son âge.

IDENTIFICATION DIVISION.
PROGRAM-ID. SALUT-AGE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NOM         PIC X(20)      VALUE 'Sophie'.
01 AGE         PIC 99         VALUE 28.
01 AGE-FUTUR   PIC 99.
01 MESSAGE     PIC X(60).

PROCEDURE DIVISION.
    * ----- Début des instructions -----

    ADD 5 TO AGE GIVING AGE-FUTUR          * Calcul

    STRING 'Salut ' NOM
           ' ! Dans 5 ans tu auras ' AGE-FUTUR ' ans.'
        DELIMITED BY SIZE
        INTO MESSAGE

    DISPLAY MESSAGE                        * Affichage

    DISPLAY 'Programme terminé. Au revoir !'  * Petit message final

    STOP RUN.                              * Fin du programme
Télécharger le code source complet

Fichier .cbl – prêt à tester avec GnuCOBOL / OpenCOBOL

Verbes COBOL les plus courants 🔑

  • MOVE → copie des données
  • ADD / SUBTRACT / MULTIPLY / DIVIDE → calculs
  • DISPLAY → afficher à l’écran
  • ACCEPT → lire une saisie
  • IF … ELSE … END-IF → conditions
  • PERFORM … UNTIL → boucles
  • PERFORM paragraphe → appelle une section
  • STOP RUN → termine le programme

Prochaines étapes ?

Essaie de modifier l’exemple : change le nom, l’âge, ajoute un IF pour vérifier si la personne est majeure…

Voir le plan du cours