Gnu-COBOL 配列

配列

• 同じ種類のデータをまとめて管理する

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
  WORKING-STORAGE SECTION.
    01 COLORS.
     03 ONE-COLOR OCCURS 3 PIC X(10). *> 「OCCURS」 -> 要素数を指定する
PROCEDURE DIVISION.
  MAIN SECTION.
    MOVE "RED" TO ONE-COLOR(1).
    MOVE "BLUE" TO ONE-COLOR(2).
    MOVE "YELLOW" TO ONE-COLOR(3).
    DISPLAY COLORS.
    DISPLAY ONE-COLOR(2).
    STOP RUN.

コンパイル/実行

コンパイル

cobc -x --free hello.cob

実行

USER-no-MacBook-Air:COBOL user$ ./hello
RED       BLUE      YELLOW    
BLUE