Apprendre COBOL : Appels de Programmes

Apprendre COBOL : Appels de Programmes

Utilisation des Appels de Programmes en COBOL

Dans cette leçon, nous allons explorer comment utiliser les appels de programmes en COBOL pour diviser votre code en modules réutilisables et améliorer la structure de vos applications.

Programme Principal et Sous-Programmes

En COBOL, vous pouvez appeler d'autres programmes (sous-programmes) à partir de votre programme principal. Cela permet de structurer votre code de manière modulaire. Voici un exemple simple :

IDENTIFICATION DIVISION.
PROGRAM-ID. ProgrammePrincipal.

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

PROCEDURE DIVISION.
    MOVE 'Jean Dupont' TO WS-Nom
    CALL 'SousProgramme' USING WS-Nom
    STOP RUN.
        

Sous-Programme

Le sous-programme est appelé par le programme principal et reçoit les variables passées en utilisant l'instruction CALL. Voici comment définir un sous-programme :

IDENTIFICATION DIVISION.
PROGRAM-ID. SousProgramme.

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

PROCEDURE DIVISION USING LS-Nom.
    DISPLAY 'Nom reçu: ' LS-Nom
    EXIT PROGRAM.
        

Passage de Paramètres

Les variables sont passées du programme principal au sous-programme via la LINKAGE SECTION et l'instruction USING. Cela permet au sous-programme d'accéder et de manipuler les données du programme principal.

Exécution d'un Programme COBOL avec un Sous-Programme

Voici comment les deux programmes interagissent :

PROGRAMME PRINCIPAL:
IDENTIFICATION DIVISION.
PROGRAM-ID. ProgrammePrincipal.

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

PROCEDURE DIVISION.
    MOVE 'Jean Dupont' TO WS-Nom
    CALL 'SousProgramme' USING WS-Nom
    STOP RUN.

SOUS-PROGRAMME:
IDENTIFICATION DIVISION.
PROGRAM-ID. SousProgramme.

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

PROCEDURE DIVISION USING LS-Nom.
    DISPLAY 'Nom reçu: ' LS-Nom
    EXIT PROGRAM.
        

Lorsque vous exécutez le programme principal, il appelle le sous-programme en lui passant la variable WS-Nom. Le sous-programme reçoit cette variable en tant que LS-Nom et l'affiche.

L'utilisation des sous-programmes en COBOL permet de rendre vos applications plus modulaires, réutilisables et faciles à maintenir.

© 2024 Codez avec moi