Gnu-COBOL-変数で文字列を扱う

変数定義

• DATA DIVISION 内に変数を定義する

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
  WORKING-STORAGE SECTION. *> SECSIONを作成 -> SECTIONを作成しその中に定義していく
    01 DATA1 PIC X(20).    *> 「01」         -> 変数のレベル番号
                           *> 「MY-DATA」    -> 変数名
                           *> PICは「PICTRURE」の略で領域を描くという意味
                           *> 「X」          -> 文字列の場合はX
                           *> 「(n)」        -> (20)は桁数。「X」を20個書いてもよい
                           *> 「.」を忘れずに。
                           *> 予約後は使わないように

PROCEDURE DIVISION.
  MAIN SECTION.
    DISPLAY DATA1.
    STOP RUN.

---

変数に代入

• **PROCUDURE DIVISION**内で変数に値を代入する

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
  WORKING-STORAGE SECTION.
    01 DATA1 PIC X(20).
    01 DATA2 PIC X(20) VALUE 'INITIAL VALUE'. *> 「VALUE」 -> 初期値を設定

PROCEDURE DIVISION.
  MAIN SECTION.
    MOVE 'HELLO WORLD !' TO DATA1.  *> 「MOVE TO」 -> 代入命令
    DISPLAY DATA1.                  *> 文字列はシングルクォートでもダブルクォートでもどちらで括っても良い
    DISPLAY DATA2.
    STOP RUN.

---

コンパイル/実行

コンパイル

$ cobc -x --free hello.cob

実行

$ ./hello
HELLO WORLD !
INITIAL VALUE