Parcours Accueil Tour guidé Initiation 1 h Initiation 24 h Révisions Exercices

🧪 9-7 – Étude de cas : découper un programme en sous-programmes avec paramètres

Dans cette étude de cas, vous allez apprendre à diviser un programme  COBOL  en plusieurs sous-programmes, chacun recevant des données via des paramètres. L’objectif est de montrer comment :

• 🧱 Structurer un programme en modules
• 📨 Transmettre les données avec  USING  et la  LINKAGE SECTION 
• 🔁 Gérer un retour simple via  RETURN-CODE 

🎯 Objectif

Écrire un programme principal qui demande deux nombres, appelle un sous-programme pour les additionner, puis affiche le résultat.

📂 Programme principal

 IDENTIFICATION DIVISION.
 PROGRAM-ID. MAINPROG.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
    01 A       PIC 9(3).
    01 B       PIC 9(3).
    01 SOMME   PIC 9(4).

 PROCEDURE DIVISION.
    DISPLAY "Entrez A :" ACCEPT A.
    DISPLAY "Entrez B :" ACCEPT B.
    CALL "ADDITION" USING A B SOMME.
    IF RETURN-CODE = 0
        DISPLAY "Résultat : " SOMME
    ELSE
        DISPLAY "Erreur de calcul".
    STOP RUN.
  

📦 Sous-programme : ADDITION

 IDENTIFICATION DIVISION.
 PROGRAM-ID. ADDITION.
 DATA DIVISION.
 LINKAGE SECTION.
    01 X       PIC 9(3).
    01 Y       PIC 9(3).
    01 RES     PIC 9(4).

 PROCEDURE DIVISION USING X Y RES.
    IF X IS NUMERIC AND Y IS NUMERIC
        COMPUTE RES = X + Y
        MOVE 0 TO RETURN-CODE
    ELSE
        MOVE 1 TO RETURN-CODE.
    EXIT PROGRAM.
  

✅ Résultat attendu

• 📥 L’utilisateur saisit deux valeurs
• 📤 Le programme principal les passe au sous-programme
• 🧠 Le sous-programme effectue le calcul et renvoie le résultat dans  RES 
• 🔁 Le code retour est utilisé pour afficher un message de succès ou d’erreur

📌 Résumé pédagogique

Ce cas vous apprend à :

• ✂️ Séparer un programme en modules clairs et indépendants
• 🔗 Utiliser  CALL ,  USING ,  LINKAGE SECTION 
• 📤 Contrôler le retour de traitement avec  RETURN-CODE