EMZETT.In COBOL heißt fast alles PERFORM. PERFORM 5 TIMES wiederholt einen Block fünfmal, PERFORM UNTIL bedingung läuft bis die Bedingung gilt, und PERFORM VARYING i FROM 1 BY 1 UNTIL i > 10 ist die Zählschleife. Ein Block endet mit END-PERFORM.
Mit PERFORM absatzname rufst du einen Absatz (Paragraph) auf, so entstehen Unterprogramme: Ein Absatz hat einen Namen, einen Punkt und darunter seine Anweisungen.
IDENTIFICATION DIVISION.
PROGRAM-ID. SCHLEIFE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-I PIC 99.
01 WS-SUMME PIC 9(4) VALUE 0.
PROCEDURE DIVISION.
HAUPT.
PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 10
ADD WS-I TO WS-SUMME
END-PERFORM.
PERFORM ZEIGE-SUMME.
STOP RUN.
ZEIGE-SUMME.
DISPLAY "Summe: " WS-SUMME.Merke
PERFORM VARYINGist die ZählschleifePERFORM UNTILläuft bis zu einer BedingungPERFORM absatzruft einen Absatz auf
Aufgabe
Gib die Zahlen von 1 bis 10 aus und berechne ihre Summe.