Tabellen

Tabellen (Arrays) legst du mit OCCURS an: 05 WS-WERT PIC 9(3) OCCURS 5 TIMES. Auf Elemente greifst du mit Index in Klammern zu: WS-WERT(1). COBOL zählt ab 1. Mit INDEXED BY bekommst du schnelle Indizes, mit SEARCH suchst du in der Tabelle.

Gruppen mit mehreren Feldern (eine Art Datensatz) bildest du über Stufennummern: 01 PERSON. mit darunter 05 NAME ... und 05 ALTER .... Auf die Gruppe greifst du als Ganzes zu, auf die Teile einzeln.

IDENTIFICATION DIVISION.
PROGRAM-ID. TABELLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TABELLE.
   05 WS-WERT   PIC 9(3) OCCURS 5 TIMES.
01 WS-I         PIC 9.
01 WS-SUMME     PIC 9(4) VALUE 0.

PROCEDURE DIVISION.
    PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5
        COMPUTE WS-WERT(WS-I) = WS-I * 10
        ADD WS-WERT(WS-I) TO WS-SUMME
    END-PERFORM.
    DISPLAY "Summe: " WS-SUMME.
    STOP RUN.