Paragraphes et PERFORM

En COBOL, la modularité et la structuration logique du code au sein de la PROCEDURE DIVISION ne se font pas via des fonctions ou des méthodes, mais plutôt à travers les Paragraphes et l’instruction PERFORM.

Définition des paragraphes

Un paragraphe est une section étiquetée de code qui commence par un nom à la colonne 8 (Zone A) terminé par un point ., suivi d’une séquence d’instructions à la colonne 12 (Zone B).

STAMPA-MESSAGGIO.
    DISPLAY "Questo è un paragrafo!".

Les paragraphes permettent de diviser des programmes potentiellement très longs en blocs réutilisables et auto-documentés.

Exécution de paragraphes via PERFORM

L’instruction PERFORM appelle et exécute un paragraphe, après quoi elle renvoie le contrôle du flux à la ligne immédiatement consécutive à l’appel du PERFORM.

PROCEDURE DIVISION.
MAIN-PROCEDURE.
    DISPLAY "Inizio programma...".
    PERFORM ELABORA-DATI.
    DISPLAY "Fine programma.".
    STOP RUN.

ELABORA-DATI.
    DISPLAY "Sto elaborando i dati in memoria...".

Dans l’exemple ci-dessus :

1. Le DISPLAY dans MAIN-PROCEDURE est exécuté.
2. PERFORM ELABORA-DATI dévie l’exécution vers le paragraphe ELABORA-DATI.
3. Une fois le paragraphe ELABORA-DATI terminé, l’exécution revient à MAIN-PROCEDURE pour afficher "Fine programma." et s’arrêter avec STOP RUN..

À vous de jouer