Apprendre COBOL : Gestion des Erreurs

Apprendre COBOL : Gestion des Erreurs

Gestion des Erreurs en COBOL

La gestion des erreurs est essentielle pour garantir la fiabilité et la robustesse des programmes COBOL. Dans cette leçon, nous allons explorer les techniques de gestion des erreurs en COBOL, y compris l'utilisation des codes de statut et des procédures d'exception.

Codes de Statut

En COBOL, chaque opération d'entrée/sortie (I/O) génère un code de statut qui peut être utilisé pour détecter et gérer les erreurs. Voici un exemple :

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Statut-I-O PIC XX.

PROCEDURE DIVISION.
OUVRIR-FICHIER.
    OPEN INPUT FichierEntree
    IF Statut-I-O NOT = "00"
        DISPLAY "Erreur d'ouverture du fichier, code : " Statut-I-O
        STOP RUN
    END-IF.
        

Dans cet exemple, après l'ouverture d'un fichier, le code de statut est vérifié. Si une erreur est détectée (code différent de "00"), un message d'erreur est affiché et le programme s'arrête.

Procédures d'Exception

Les procédures d'exception en COBOL permettent de gérer les erreurs de manière centralisée. Voici un exemple de définition et d'utilisation d'une procédure d'exception :

PROCEDURE DIVISION.
    DECLARE FichierEntree-FD EXCEPTION AT EIO-ERREUR.

OUVRIR-FICHIER.
    OPEN INPUT FichierEntree.

LIRE-FICHIER.
    READ FichierEntree INTO EnregistrementEntree
    AT EIO-ERREUR
        DISPLAY "Erreur de lecture du fichier."
        PERFORM GESTION-ERREUR.

GESTION-ERREUR.
    DISPLAY "Gestion centralisée des erreurs."
    STOP RUN.
        

Dans cet exemple, une exception EIO-ERREUR est déclarée pour le fichier FichierEntree. Lorsqu'une erreur de lecture se produit, le contrôle passe à la procédure GESTION-ERREUR, où un message d'erreur est affiché et le programme s'arrête.

Exemple Complet

Voici un programme complet en COBOL qui démontre la gestion des erreurs avec des codes de statut et des procédures d'exception :

IDENTIFICATION DIVISION.
PROGRAM-ID. GestionErreurs.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Statut-I-O PIC XX.
01 EnregistrementEntree.
   05 Nom PIC X(20).
   05 Age PIC 99.

PROCEDURE DIVISION.
    DECLARE FichierEntree-FD EXCEPTION AT EIO-ERREUR.

OUVRIR-FICHIER.
    OPEN INPUT FichierEntree
    IF Statut-I-O NOT = "00"
        DISPLAY "Erreur d'ouverture du fichier, code : " Statut-I-O
        STOP RUN
    END-IF.

LIRE-FICHIER.
    READ FichierEntree INTO EnregistrementEntree
    AT EIO-ERREUR
        DISPLAY "Erreur de lecture du fichier."
        PERFORM GESTION-ERREUR.

AFFICHER-DONNEES.
    DISPLAY "Nom: " Nom
    DISPLAY "Age: " Age.

GESTION-ERREUR.
    DISPLAY "Gestion centralisée des erreurs."
    STOP RUN.
        

Ce programme tente d'ouvrir un fichier et de lire un enregistrement. Si une erreur se produit à n'importe quel stade, un message d'erreur est affiché et le programme exécute une gestion centralisée des erreurs.

En comprenant et en utilisant efficacement les techniques de gestion des erreurs en COBOL, vous pouvez créer des programmes plus robustes et fiables.

© 2024 Codez avec moi