IDENTIFICATION DIVISION.
*> Déclare l'identité du programme
PROGRAM-ID. PactaColonnes.

ENVIRONMENT DIVISION.
*> Division réservée aux informations sur l'environnement d'exécution

DATA DIVISION.
*> Division utilisée pour déclarer les données et variables

WORKING-STORAGE SECTION.
*> Section où sont définies les variables permanentes du programme

01 NB-PACTA-COBOL PIC 9(4) COMP.
*> Déclaration d'une variable numérique binaire (optimisée pour les calculs) sur 4 chiffres

PROCEDURE DIVISION.
*> Début de la logique du programme

    *> On affecte la valeur 475 à la variable NB-PACTA-COBOL
    MOVE 475 TO NB-PACTA-COBOL.

    *> On affiche le contenu de la variable à l'écran
    DISPLAY NB-PACTA-COBOL.

    *> Fin du programme
    STOP RUN.