Apprendre COBOL : Les Sous-Programmes

Les Sous-Programmes

Utilisation des Sous-Programmes en COBOL

Les sous-programmes en COBOL sont des blocs de code séparés qui peuvent être appelés depuis d'autres parties du programme principal. Ils permettent de structurer et de réutiliser le code, facilitant ainsi la maintenance et l'organisation des programmes. Voyons comment créer et utiliser des sous-programmes en COBOL.

Création d'un Sous-Programme

Un sous-programme COBOL est défini dans une division séparée et peut recevoir des paramètres. Voici un exemple simple :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SousProgrammeExemple.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-NOM PIC X(20).

       PROCEDURE DIVISION.
       MAIN-PARA.
           MOVE 'Alice' TO WS-NOM
           CALL 'AfficherNom' USING WS-NOM
           STOP RUN.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. AfficherNom.

       DATA DIVISION.
       LINKAGE SECTION.
       01 LS-NOM PIC X(20).

       PROCEDURE DIVISION USING LS-NOM.
       AFFICHAGE.
           DISPLAY 'Nom : ' LS-NOM
           EXIT PROGRAM.
       

Dans cet exemple, le programme principal appelle le sous-programme AfficherNom en lui passant une variable. Le sous-programme affiche ensuite le contenu de cette variable.

Appel d'un Sous-Programme

Pour appeler un sous-programme en COBOL, utilisez l'instruction CALL suivie du nom du sous-programme et des paramètres à passer. Voici un exemple :

       CALL 'AfficherNom' USING WS-NOM.
       

Le sous-programme AfficherNom reçoit la variable WS-NOM et l'affiche.

Passage de Paramètres

Les paramètres peuvent être passés par valeur ou par référence. Dans l'exemple ci-dessus, le passage se fait par référence. Vous pouvez également définir plusieurs paramètres en les séparant par des virgules :

       CALL 'CalculerSomme' USING WS-NOMBRE1, WS-NOMBRE2, WS-SOMME.
       

Le sous-programme CalculerSomme pourrait alors recevoir ces trois variables et effectuer une opération sur elles.

Exemple Complet

Voici un exemple complet intégrant un sous-programme qui calcule la somme de deux nombres :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CalculSomme.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-NOMBRE1    PIC 9(4) VALUE 10.
       01 WS-NOMBRE2    PIC 9(4) VALUE 20.
       01 WS-SOMME      PIC 9(4).

       PROCEDURE DIVISION.
       MAIN-PARA.
           CALL 'Additionner' USING WS-NOMBRE1, WS-NOMBRE2, WS-SOMME
           DISPLAY 'La somme est : ' WS-SOMME
           STOP RUN.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Additionner.

       DATA DIVISION.
       LINKAGE SECTION.
       01 LS-NOMBRE1    PIC 9(4).
       01 LS-NOMBRE2    PIC 9(4).
       01 LS-SOMME      PIC 9(4).

       PROCEDURE DIVISION USING LS-NOMBRE1, LS-NOMBRE2, LS-SOMME.
       CALCUL.
           ADD LS-NOMBRE1, LS-NOMBRE2 GIVING LS-SOMME
           EXIT PROGRAM.
       

Dans cet exemple, le programme principal appelle le sous-programme Additionner, lui passe deux nombres, et récupère la somme calculée pour l'afficher.

En maîtrisant les sous-programmes en COBOL, vous pouvez écrire des programmes plus modulaires, réutilisables et faciles à maintenir.

© 2024 Codez avec moi