Wie wird in Cobol ein Array abgebildet

Posted May 22, 2025

By Andreas Peters

1 min read

In COBOL kann man mit der OCCURS-Klausel eine Tabelle (Array) definieren. Im Beispiel wird eine Tabelle WS-NUM-TABLE mit 10 Elementen erstellt. Jedes Element (NUM-ITEM) ist vom Typ PIC 9(4) und kann eine Zahl bis zu 9999 speichern. Mit der PERFORM VARYING-Schleife wird das Array von WS-INDEX aus gefüllt. Die Schleife weist jedem Element in der Tabelle einen Wert zu (hier von 1 bis 10).

       IDENTIFICATION DIVISION.
       PROGRAM-ID. array.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       01  WS-INDEX        PIC 9(02) VALUE 1.

      * Array with 10 numbers
       01  WS-NUM-TABLE.
           05 NUM-ITEM     PIC 9(4) OCCURS 10 TIMES.

       PROCEDURE DIVISION.
       MAIN-PROGRAM.
           DISPLAY "Fill array with values 1 to 10".

           PERFORM VARYING WS-INDEX FROM 1 BY 1 UNTIL WS-INDEX > 10
               MOVE WS-INDEX TO NUM-ITEM(WS-INDEX)
           END-PERFORM

           DISPLAY "Content off Array:".

           PERFORM VARYING WS-INDEX FROM 1 BY 1 UNTIL WS-INDEX > 10
               DISPLAY "Array Value " WS-INDEX ": " NUM-ITEM(WS-INDEX)
           END-PERFORM

           STOP RUN.

cobol, mainframe