IDENTIFICATION DIVISION.
*> * Cette partie identifie le programme
PROGRAM-ID. PactaCobol.

ENVIRONMENT DIVISION.
*> * Cette section décrit l’environnement (ici vide)

DATA DIVISION.
*> * Cette section sert à définir les variables
WORKING-STORAGE SECTION.
*> * On déclare ici une variable pour stocker un message
01  MESSAGE-AFFICHAGE      PIC X(40) VALUE "Bienvenue dans le monde du Pacta COBOL.".

PROCEDURE DIVISION.
*> *Début de la logique du programme
*> * Appel du paragraphe AFFICHER-MESSAGE
    PERFORM AFFICHER-MESSAGE

*> * Fin du programme
    STOP RUN.

*> * Déclaration du paragraphe appelé
AFFICHER-MESSAGE.
*> * Cette phrase affiche le message contenu dans la variable
    DISPLAY MESSAGE-AFFICHAGE.