配列
- 同じ種類のデータをまとめて管理する
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