📦 Programme avec variables en COBOL

En COBOL, les variables sont des éléments fondamentaux qui permettent de stocker des données à utiliser ou à manipuler durant l’exécution du programme. Comme COBOL est un langage très structuré, toute variable doit être déclarée explicitement dans une section bien précise.

🧱 Où déclare-t-on les variables ?

Toutes les variables sont déclarées dans la DATA DIVISION, généralement dans la WORKING-STORAGE SECTION, qui conserve leur valeur pendant toute l’exécution du programme.

🔤 Syntaxe de base d’une variable

01 NOM-VARIABLE PIC X(n) VALUE "valeur".
  

• 01 : niveau hiérarchique
• PIC : mot-clé indiquant le format de la variable (X pour du texte, 9 pour des chiffres)
• VALUE : valeur initiale facultative

📘 Exemple 1 – Chaîne de caractères

IDENTIFICATION DIVISION.
PROGRAM-ID. BonjourNom.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NOM PIC X(20) VALUE "Alice".

PROCEDURE DIVISION.
    DISPLAY "Bonjour, " WITH NO ADVANCING.
    DISPLAY NOM.
    STOP RUN.
  

✅ Ce programme affiche : Bonjour, Alice

📘 Exemple 2 – Nombre entier et addition

IDENTIFICATION DIVISION.
PROGRAM-ID. Addition.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A        PIC 9(3) VALUE 10.
01 B        PIC 9(3) VALUE 20.
01 TOTAL    PIC 9(3).

PROCEDURE DIVISION.
    ADD A TO B GIVING TOTAL.
    DISPLAY "Résultat : ", TOTAL.
    STOP RUN.
  

✅ Ce programme affiche : Résultat : 30

📘 Exemple 3 – Affectation avec MOVE

IDENTIFICATION DIVISION.
PROGRAM-ID. Affectation.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 VILLE    PIC X(20).
01 MESSAGE  PIC X(50).

PROCEDURE DIVISION.
    MOVE "Paris" TO VILLE.
    MOVE "Bienvenue à " TO MESSAGE.
    DISPLAY MESSAGE WITH NO ADVANCING.
    DISPLAY VILLE.
    STOP RUN.
  

📘 Exemple 4 – Nombre avec virgule virtuelle (V)

IDENTIFICATION DIVISION.
PROGRAM-ID. CalculTVA.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 PRIX-HT    PIC 9(4)V99 VALUE 1200.00.
01 TAUX-TVA   PIC 9V99 VALUE 0.20.
01 PRIX-TTC   PIC 9(5)V99.

PROCEDURE DIVISION.
    COMPUTE PRIX-TTC = PRIX-HT + (PRIX-HT * TAUX-TVA).
    DISPLAY "Montant TTC : ", PRIX-TTC.
    STOP RUN.
  

🧠 À retenir

• 📌 Les variables sont toujours déclarées dans la DATA DIVISION.
• 🔠 Le mot-clé PIC (picture) permet de définir le format : X pour texte, 9 pour chiffres.
• 📥 MOVE sert à affecter une valeur à une variable.
• ➕ Les opérations arithmétiques utilisent ADD, SUBTRACT, MULTIPLY, COMPUTE.
• 🧮 La virgule virtuelle (V) est utilisée pour représenter les décimales sans caractère réel.