Gnu-COBOL 集合項目

集合項目

• 違う種類のデータをまとめて扱う

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
  WORKING-STORAGE SECTION.
    01 PARENT.                    *> レベル番号「01」は「03」の親要素になる
      03 CHILD1 PIC X(5).         *> レベル番号「03」は「01」の子要素になる
      03 CHILD2.                  *> レベル番号「05」は「03」の子要素になる
        05 GRAND-CHILD PIC X(15).  *> 親要素になる変数は「PIC」を定義することはできない
                                  *> 基本的には「01」「03」「05」など2飛ばしや5飛ばしで付けられる

PROCEDURE DIVISION.
  MAIN SECTION.
    MOVE "PARENT" TO PARENT.
    MOVE 12345 TO CHILD1.
    MOVE "GRAND-CHILD" TO GRAND-CHILD.
    DISPLAY PARENT.
    DISPLAY CHILD1.
    DISPLAY CHILD2.
    DISPLAY GRAND-CHILD.
    STOP RUN.

コンパイル/実行

コンパイル

USER-no-MacBook-Air:COBOL user$ cobc -x --free hello.cob

実行

USER-no-MacBook-Air:COBOL user$ ./hello
12345GRAND-CHILD    
12345
GRAND-CHILD    
GRAND-CHILD