COBOL

歴史

1960年アメリカ

4つの部

IDENTIFICATION DIVISION
プログラム全体の見出し
ENVIRONMENT DIVISION
データベースへのアクセスのための記述など (DB名とテーブル名)
DATA DIVISION
データの型、変数宣言など
PROCEDURE DIVISION
処理する内容

ファイル、レコード、項目

ファイル
レコードの集合
レコード 1件分のデータ
項目
基本項目と集団項目「20191120」→「2019」年「11」月「20」日

コーディング

1〜6桁目
一連番号

7桁目
標識領域

* アスタリスク=コメント
* スラッシュは改ページ
* ハイフンは継続行(通常使用しない)

8から11桁目 = A領域
部、節、段落、FD項、01レベルのレベル番号を記述する場合
FD項=ファイルを使用する場合の宣言など
12〜72桁目 = B領域
固定形式と可変形式によって違う
可変形式は(富士通の場合)223桁
行内コメントは *> で書く

利用できる語

文字の組 - 文字列 - 予約語
                    利用者語
                    定数 (数字定数/文字定数/表意定数)
           分離符   利用者語

予約語= MOVE, WRITE, SECTION, DIVISION, ... 利用者語=プログラマが自由に定義できる

プログラム名
ファイル名
ファイル識別名
レコード名
データ項目名
節名

MOVE ZERO TO WORK-AREA        (数値としてのゼロクリア)
MOVE SPACE TO WORK-AREA        (文字列としての空白)
INITIALIZE WORK-AREA        (型に応じたクリア)

予約語

データ部

PICTURE
01        9が数字
    999V999
    X(5) 文字列5桁
    N(8) 日本語の桁数

OCCURS
その回数くり返す(配列のようにまとめて確保) 01 WORK-YOJI-DATA OCCURS 10. 02 HYOJI-ID PIC 99. 02 HYOJI-DATE PIC 99(8). 02 HYOJI-NAIYO PIC X(20).

手続部

MOVE a TO b.
READ URIAGE-F.
MOVE URIAGE-TOKUI TO GOKEI-TOKUI.


COMPUTE var = exp.

DISPLAY value " and " 123

PERFORM
    PERFORM SUBROUTINE 10 TIMES.
    PERFORM SUBROUTINE UNTIL VAR >= 10.
    PERFORM SUBROUTINE.
    SUBROUTINE.
       処理.
       処理.
    NEXTROUTINE.

PERFORMにWHILEはない
PERFORM VARYING
    PERFORM VARYING FROM 1 BY 1 UNTIL WORK-COUNTER > 10
       処理
    END-PERFORM.

ADD 1 TO VAR
SUBTRACT 1 TO VAR

DIVIDE 除数 INTO HOGE-A GIVING HOGE-AMARI.
被除数の変数は必ず破壊される

NOT =
NOT EQUAL

IF文

IF HOGE-AMARI = 1 THEN
  DISPLAY 'KISU'
ELSE
  DISPLAY 'GUSU'
END-IF.

EVALUATE

MOVE 60 TO HOGE-A.
EVALUATE HOGE-A
WHEN 0 THRU 50
  処理
WHEN 50 THRU 100
WHEN OTHER
  処理
END-EVALUATE.

COBOL

歴史

4つの部

ファイル、レコード、項目

コーディング

利用できる語

予約語

手続部

IF文

EVALUATE

Hello, world