Absätze und PERFORM

In COBOL erfolgen Modularität und logische Strukturierung des Codes innerhalb der PROCEDURE DIVISION nicht über Funktionen oder Methoden, sondern über Absätze (Paragraphs) und die Anweisung PERFORM.

Definition der Absätze

Ein Absatz ist ein gekennzeichneter Codeabschnitt, der mit einem Namen in Spalte 8 (Area A) beginnt, der mit einem Punkt . endet, gefolgt von einer Folge von Anweisungen in Spalte 12 (Area B).

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

Absätze ermöglichen es, potenziell sehr lange Programme in wiederverwendbare und selbstdokumentierende Blöcke zu unterteilen.

Ausführung von Absätzen über PERFORM

Die Anweisung PERFORM ruft einen Absatz auf und führt ihn aus, woraufhin sie die Flusssteuerung an die Zeile unmittelbar nach dem PERFORM-Aufruf zurückgibt.

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

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

Im obigen Code:

1. Das DISPLAY in der MAIN-PROCEDURE wird ausgeführt.
2. PERFORM ELABORA-DATI leitet die Ausführung an den Absatz ELABORA-DATI weiter.
3. Nach Abschluss des Absatzes ELABORA-DATI kehrt die Ausführung zur MAIN-PROCEDURE zurück, um "Fine programma." auszugeben und mit STOP RUN. anzuhalten.

Probier es selbst aus