# COBOL言語解説書

## ドキュメント情報

- **タイトル**: Enterprise COBOL for z/OS 6.5 Language Reference
- **出版番号**: SC27-8713-04
- **ページ数**: 916
- **日本語訳題**: COBOL言語解説書
- **ベース**: IBM Enterprise COBOL for z/OS V6.5 (プログラム番号 5655-EC6)

---

# 第1部: COBOL言語構造

## 1.1 文字セットとコードページ

### 基本COBOL文字セット

COBOLの基本文字セットは、ラテンアルファベットの大文字・小文字、数字、および特殊文字で構成される。

| 文字 | 意味 | 使用例 |
|------|------|--------|
| スペース | 区切り文字 | `01 WS-A PIC X(10).` |
| `+` | 算術演算子、編集文字 | `COMPUTE WS-A = B + C.` |
| `-`（ハイフン） | 算術演算子、編集文字、継続文字、COBOL語要素 | `COMPUTE WS-A = B - C.` |
| `*`（アスタリスク） | 算術演算子、編集文字、注釈文字 | `* THIS IS COMMENT` |
| `/`（スラッシュ） | 算術演算子、編集文字、継続文字 | `PIC 99/99/99.` |
| `=` | 代入文字、関係文字 | `COMPUTE A = B.` |
| `$` | 通貨記号（編集文字） | `PIC $$99.` |
| `,`（カンマ） | 編集文字、区切り文字 | `PIC 99,999.` |
| `;`（セミコロン） | 区切り文字 | `MOVE 10 TO A; B.` |
| `:`（コロン） | 関係文字、修飾演算子 | `MOVE VAR(1:10) TO V.` |
| `.`（ピリオド） | 小数点、区切り文字 | `MOVE 10 TO A, B.` |
| `"`（引用符） | 英数字リテラルの区切り | `VALUE "HELLO".` |
| `'`（アポストロフィ） | 英数字リテラルの区切り | `VALUE 'HELLO'.` |
| `(`  `)` | 括弧（区切り文字） | `IF (A = 10) AND (B = 5)` |
| `>` `<` | 関係文字 | `IF A > 10` |
| `_`（アンダースコア） | ユーザ定義語要素 | `01 WS_VAR PIC X(10).` |
| `A-Z` / `a-z` | アルファベット（英字） | |
| `0-9` | 数字 | |

### コードページ

コードページ（コード化文字セット）とは、各文字に数値位置（コードポイント）を割り当てた符号化表現のこと。IBMの各コードページはコードページ名（例：IBM-1252）とCCSID（例：1252）で識別される。

**Enterprise COBOLのコードページ関連機能**:

- `CODEPAGE`コンパイラオプションで使用するコードページを指定
- デフォルトのコードページは IBM-1140（CCSID 1140）
- ナショナルリテラルおよびUSAGE NATIONALのデータは UTF-16BE（CCSID 1200）で符号化
- UTF-8リテラルおよびUSAGE UTF-8のデータは UTF-8（CCSID 1208）で符号化

**文字符号化単位（エンコーディングユニット）**:

| USAGE / カテゴリ | エンコーディング単位 |
|-----------------|---------------------|
| DISPLAY（英数字） | 1バイト |
| DISPLAY-1（DBCS） | 2バイト |
| NATIONAL | 2バイト |
| UTF-8 | 1バイト |

**ランタイムコードページの種類**:
- シングルバイトEBCDIC
- EBCDIC DBCS（Shift-Out/Shift-Inで区切られた2バイト文字）
- Unicode UTF-16
- Unicode UTF-8

---

## 1.2 文字列（COBOL語とリテラル）

文字列（character-string）とは、COBOL語、リテラル、PICTURE文字列、または注釈項目を形成する連続した文字のこと。文字列は区切り文字（separator）によって区切られる。

### COBOL予約語

予約語はCOBOLソースユニット内で事前定義された意味を持つ文字列。6つのタイプがある：

1. **キーワード** — 特定の句、項目、文で必須の語
2. **オプション語** — 可読性向上のための省略可能な語
3. **FIGURATIVE CONSTANT（ figurative constants）** — ZERO, SPACE等
4. **特殊文字語** — 算術演算子（+ - / * **）、関係演算子（< > = <= >=）、浮動注釈指示子（\*>）、疑似テキスト区切り（==）、コンパイラ指示子指示記号（>>）
5. **特殊オブジェクト識別子** — SELF, SUPER
6. **特殊レジスタ** — ADDRESS OF, RETURN-CODE等

### ユーザ定義語

ユーザが指定するCOBOL語。最大30バイト。以下の文字を使用可能：
- ラテン大文字 A～Z
- ラテン小文字 a～z
- 数字 0～9
- ハイフン（-）：先頭・末尾不可
- アンダースコア（_）：先頭不可

**ユーザ定義語の種類とDBCS許容**:

| 種類 | DBCS許容 |
|------|----------|
| Alphabet-name（アルファベット名） | 可 |
| Class-name（クラス名） | 可 |
| Condition-name（条件名） | 可 |
| Data-name（データ名） | 可 |
| File-name（ファイル名） | 可 |
| Function-name（関数名） | 不可 |
| Index-name（インデックス名） | 可 |
| Level-number（レベル番号01-49, 66, 77, 88） | 不可 |
| Library-name（ライブラリ名） | 不可 |
| Mnemonic-name（ニモニック名） | 可 |
| Paragraph-name（段落名） | 可 |
| Program-name（プログラム名） | 不可 |
| Record-name（レコード名） | 可 |
| Section-name（節名） | 可 |
| Symbolic-character（記号文字） | 可 |
| Text-name（テキスト名） | 不可 |
| Type-name（型名） | 可 |
| XML-schema-name（XMLスキーマ名） | 可 |

### システム名

システムに対して特定の意味を持つ文字列。3タイプ：
- Computer-name（計算機名）
- Language-name（言語名）
- Implementor-name（実装者名）：Environment-name, External-class-name, External-fileid, Assignment-name

### FIGURATIVE CONSTANTS（ figurative定数）

| 定数 | 意味 |
|------|------|
| ZERO, ZEROS, ZEROES | 数値0、または文字'0'の1回以上の出現 |
| SPACE, SPACES | 1つ以上のブランク（空白） |
| HIGH-VALUE, HIGH-VALUES | 使用中の照合順序で最上位の文字 |
| LOW-VALUE, LOW-VALUES | 使用中の照合順序で最下位の文字 |
| QUOTE, QUOTES | 引用符文字またはアポストロフィ文字 |
| ALL literal | リテラルの文字列を1回以上繰り返したもの |
| NULL, NULLS | POINTER/PROCEDURE-POINTER等の無効アドレスを示す値 |
| symbolic-character | SYMBOLIC CHARACTERS句で定義された文字 |

### 特殊レジスタ一覧

特殊レジスタは、コンパイラが生成するストレージ領域を名前で参照するための予約語。

| 特殊レジスタ | 暗黙定義 | 用途 |
|-------------|----------|------|
| ADDRESS OF | USAGE POINTER | LINKAGE/LOCAL/WORKING-STORAGE項目のアドレス参照 |
| DEBUG-ITEM | 01グループ（6サブフィールド） | デバッグ宣言手続きへの情報提供 |
| IGY-JAVAIOP-CALL-EXCEPTION | PIC 9(9)/9(18) COMP-5 | Java静的メソッド呼出時の例外オブジェクト参照 |
| JNIENVPTR | USAGE POINTER | JNI環境ポインタ参照 |
| JSON-CODE | PIC S9(9) BINARY | JSON GENERATE/PARSEの成功/例外コード |
| JSON-STATUS | PIC S9(9) BINARY | JSON PARSEの非例外状態コード |
| LENGTH OF | PIC 9(9)/9(18) BINARY | データ項目の現在バイト長 |
| LINAGE-COUNTER | 可変（LINAGE句依存） | 現在ページ内の行番号 |
| RETURN-CODE | PIC S9(4) BINARY GLOBAL | 呼出元へのリターンコード |
| SHIFT-OUT / SHIFT-IN | PIC X(1) DISPLAY | EBCDICシフトアウト/シフトイン制御文字 |
| SORT-CONTROL | PIC X(8) DISPLAY | ソート制御文のDD名 |
| SORT-CORE-SIZE | PIC S9(8) BINARY | ソートユーティリティが使用可能なストレージ量 |
| SORT-FILE-SIZE | PIC S9(8) BINARY | ソート入力ファイルの推定レコード数 |
| SORT-MESSAGE | PIC X(8) DISPLAY | ソートメッセージ出力先DD名 |
| SORT-MODE-SIZE | PIC S9(5) BINARY | 可変長レコードの最頻長 |
| SORT-RETURN | PIC S9(4) BINARY | ソート/マージ完了コード（0=成功, 16=失敗） |
| TALLY | PIC 9(5) BINARY GLOBAL | 計数用（参照・変更可能） |
| WHEN-COMPILED | PIC X(16) DISPLAY | コンパイル開始日時（MM/DD/YYhh.mm.ss） |
| XML-CODE | PIC S9(9) BINARY | XML GENERATE/PARSEのステータスコード |
| XML-EVENT | PIC X(30) DISPLAY | XMLパースイベント名 |
| XML-INFORMATION | PIC S9(9) BINARY | XMLイベントの追加情報 |
| XML-NAMESPACE / XML-NNAMESPACE | 英数字/ナショナル | XML名前空間識別子 |
| XML-NAMESPACE-PREFIX / XML-NNAMESPACE-PREFIX | 英数字/ナショナル | XML名前空間プレフィックス |
| XML-NTEXT | ナショナル | XML文書断片（NATIONAL） |
| XML-TEXT | 英数字（可変長） | XML文書断片（DISPLAY） |

### リテラル

リテラルは、その構成文字またはFIGURATIVE CONSTANTの使用によって値が指定される文字列。

**英数字リテラル（Alphanumeric Literals）**:
- 基本形式: `"文字列"` または `'文字列'`
- 最大長: 160バイト、最小長: 1バイト
- 16進表記: `X"hex"` または `X'hex'`
- NULL終端: `Z"文字列"` または `Z'文字列'`
- DBCS文字を含む英数字リテラルは継続不可

**DBCSリテラル**:
- 形式: `G"<DBCS文字>"` または `G'<DBCS文字>'`
- 最大長: 28文字
- 継続不可

**UTF-8リテラル**:
- 基本形式: `U"文字データ"` または `U'文字データ'`
- Unicodeエスケープシーケンス対応: `\uhhhh` (BMP), `\U00hhhhh` (追加面)
- 16進表記: `UX"hex"` または `UX'hex'`

**数値リテラル**:
- 数字0-9、符号（+/-）、小数点で構成
- 整数: 1～18桁（ARITH(COMPAT)時）または1～31桁（ARITH(EXTEND)時）
- 浮動小数点: 仮数部に小数点必須、指数部はE+/-nn

**ナショナルリテラル**:
- NSYMBOL(NATIONAL)時: `N"文字データ"` または `N'文字データ'`
- 最大長: 80文字位置
- 16進表記: `NX"hex"` または `NX'hex'`
- UTF-16（ビッグエンディアン）に自動変換

---

## 1.3 区切り文字（Separators）

| 区切り文字 | 意味 |
|-----------|------|
| スペース（b） | 語の区切り |
| `,b`（カンマ+スペース） | 区切りカンマ |
| `.b`（ピリオド+スペース） | 区切りピリオド（文の終端） |
| `;b`（セミコロン+スペース） | 区切りセミコロン |
| `:` | コロン |
| `::` | 修飾演算子 |
| `(` `)` | 括弧 |
| `"..."` | 引用符（英数字リテラル区切り） |
| `'...'` | アポストロフィ（英数字リテラル区切り） |
| `==...==` | 疑似テキスト区切り |
| `U"` / `U'` | UTF-8リテラル開始区切り |
| `UX"` / `UX'` | UTF-8 16進リテラル開始区切り |
| `X"` / `X'` | 英数字16進リテラル開始区切り |
| `Z"` / `Z'` | NULL終端英数字リテラル開始区切り |
| `N"` / `N'` | ナショナル/DBCSリテラル開始区切り |
| `NX"` / `NX'` | ナショナル16進リテラル開始区切り |
| `G"` / `G'` | DBCSリテラル開始区切り |

---

## 1.4 参照形式（Reference Format）

COBOLソーステキストは72桁の行内で以下の領域に分けられる：

| 領域 | 桁 | 内容 |
|------|-----|------|
| Sequence number area | 1～6 | 行番号（任意） |
| Indicator area | 7 | 指示子 |
| Area A | 8～11 | 特定の要素の開始位置 |
| Area B | 12～72 | エントリ、文、句など |

**Area Aに記述するもの**:
- 区分ヘッダ（IDENTIFICATION/ENVIRONMENT/DATA/PROCEDURE DIVISION.）
- 節ヘッダ
- 段落ヘッダ、段落名
- レベル指示子（FD, SD）、レベル番号01、77
- DECLARATIVES / END DECLARATIVES
- プログラム/クラス/メソッド終了マーカ

**Area Bに記述するもの**:
- エントリ、文、句
- 継続行

**指示子領域（Column 7）の用途**:
- `-`（ハイフン）: 継続行
- `*`（アスタリスク）: 注釈行
- `/`（スラッシュ）: 改ページ＋注釈行
- `D` / `d`: デバッグ行

---

# 第2部: COBOLプログラム構造

## 2.1 4つのDIVISION

COBOLソースプログラムは以下の4つの区分（division）から構成される：

### IDENTIFICATION DIVISION（識別区分）

プログラムの識別情報を定義する必須区分。

**主要な段落**:
- `PROGRAM-ID. program-name.` — プログラム名（必須）
- `CLASS-ID. class-name INHERITS class-name.` — クラス定義
- `FUNCTION-ID. function-name.` — ユーザ定義関数
- `METHOD-ID. "method-name".` — メソッド定義

### ENVIRONMENT DIVISION（環境区分）

プログラムの実行環境に依存する側面を記述する。

**CONFIGURATION SECTION**:
- SOURCE-COMPUTET. source-computer-name
- OBJECT-COMPUTER. object-computer-name
- SPECIAL-NAMES.（特殊名）
- REPOSITORY.（リポジトリ）

**INPUT-OUTPUT SECTION**:
- FILE-CONTROL.（ファイル制御）
- I-O-CONTROL.（入出力制御）

### DATA DIVISION（データ区分）

プログラムで処理されるすべてのデータを構造化して記述する。

**FILE SECTION**（ファイル節） — データファイルの構造を定義
**WORKING-STORAGE SECTION**（作業格納節） — 内部データ
**LOCAL-STORAGE SECTION**（局所格納節） — 呼出毎に再割当てされるデータ
**LINKAGE SECTION**（連絡節） — 他プログラムから受け渡されるデータ

### PROCEDURE DIVISION（手続き区分）

実行可能な処理を記述する。

---

## 2.2 ネストプログラム

COBOLプログラムは他のCOBOLプログラムを内部に含むことができる。これらを含まれるプログラムをネストプログラムと呼ぶ。

- 直接含まれる（directly contained）: プログラムBがプログラムA内に直接ある場合
- 間接的に含まれる（indirectly contained）: プログラムBがプログラムA内の別のプログラムCに含まれる場合
- 兄弟プログラム（sibling）: 同じプログラムに直接含まれるプログラム同士
- COMMON属性: ネストプログラムで指定でき、それを含むプログラムとその兄弟から参照可能

---

## 2.3 クラス定義／メソッド定義／ユーザ定義関数

### クラス定義

オブジェクト指向COBOLのための構造。Javaとの相互運用を目的とする。

```
IDENTIFICATION DIVISION.
CLASS-ID. class-name INHERITS superclass.
ENVIRONMENT DIVISION.
...（CONFIGURATION SECTIONのみ）
FACTORY.（ファクトリ定義：静的メソッド＋静的データ）
OBJECT.（オブジェクト定義：インスタンスメソッド＋インスタンスデータ）
END CLASS class-name.
```

### メソッド定義

クラス内のメソッドは独立した`METHOD-ID`で識別される。`GOBACK`で終了。

### ユーザ定義関数

`FUNCTION-ID`で定義。`RETURNING`句で戻り値を指定。

---

# 第3部: ENVIRONMENT DIVISION詳細

## 3.1 CONFIGURATION SECTION（構成節）

### SOURCE-COMPUTER段落
```
SOURCE-COMPUTER. computer-name WITH DEBUGGING MODE.
```

### OBJECT-COMPUTER段落
```
OBJECT-COMPUTER. computer-name
    MEMORY SIZE integer WORDS/CHARACTERS/MODULES
    PROGRAM COLLATING SEQUENCE IS alphabet-name
    SEGMENT-LIMIT IS priority-number.
```

### SPECIAL-NAMES段落

```
SPECIAL-NAMES.
    implementor-name IS mnemonic-name
    alphabet-name IS ...
    CLASS class-name IS ...
    CURRENCY SIGN IS literal
    DECIMAL-POINT IS COMMA
    SYMBOLIC CHARACTERS ...
    XML-SCHEMA ...
```

**主な句**:

| 句 | 機能 |
|----|------|
| ALPHABET句 | 文字セット/照合順序の定義（EBCDIC, ASCII, STANDARD-1/2, ユーザ定義） |
| CLASS句 | 文字の分類定義（例：CLASS VALID-CHAR IS 'A' THRU 'Z'） |
| CURRENCY SIGN句 | 通貨記号の変更 |
| DECIMAL-POINT IS COMMA | ピリオドとカンマの機能交換 |
| SYMBOLIC CHARACTERS句 | ユーザ定義FIGURATIVE CONSTANTの作成 |
| XML-SCHEMA句 | XMLスキーマファイルの指定 |

### REPOSITORY段落

クラス名とその外部クラス名の対応付け、ユーザ定義関数のプロトタイプ参照を行う。

```
REPOSITORY.
    CLASS class-name IS external-class-name
    FUNCTION function-name
    FUNCTION ALL INTRINSIC.
```

---

## 3.2 INPUT-OUTPUT SECTION（入出力節）

### FILE-CONTROL段落

```
FILE-CONTROL.
    SELECT file-name ASSIGN TO assignment-name
        ORGANIZATION IS SEQUENTIAL/INDEXED/RELATIVE
        ACCESS MODE IS SEQUENTIAL/RANDOM/DYNAMIC
        RECORD KEY IS data-name
        ALTERNATE RECORD KEY IS data-name
        RELATIVE KEY IS data-name
        FILE STATUS IS data-name
        RESERVE integer AREAS
        PADDING CHARACTER IS data-name
        RECORD DELIMITER IS STANDARD-1.
```

| 句 | 機能 |
|----|------|
| SELECT / ASSIGN | ファイルと外部名の関連付け |
| ORGANIZATION | ファイル編成（SEQUENTIAL/INDEXED/RELATIVE） |
| ACCESS MODE | アクセスモード（SEQUENTIAL/RANDOM/DYNAMIC） |
| RECORD KEY | 索引ファイルの主レコードキー |
| ALTERNATE RECORD KEY | 代替レコードキー |
| RELATIVE KEY | 相対ファイルのキー |
| FILE STATUS | ファイルステータスを受け取るデータ項目 |
| RESERVE | バッファ領域数 |

### I-O-CONTROL段落

```
I-O-CONTROL.
    RERUN ON assignment-name EVERY integer RECORDS
    SAME AREA FOR file-name
    SAME RECORD AREA FOR file-name
    SAME SORT AREA FOR file-name
    MULTIPLE FILE TAPE CONTAINS file-name
    APPLY WRITE-ONLY ON file-name.
```

---

# 第4部: DATA DIVISION詳細

## 4.1 ファイル記述（FD）

```
FD file-name
    BLOCK CONTAINS integer-1 TO integer-2 RECORDS/CHARACTERS
    RECORD CONTAINS integer-1 TO integer-2 CHARACTERS
    LABEL RECORDS ARE STANDARD/OMITTED
    VALUE OF data-name IS literal
    DATA RECORDS ARE record-name
    LINAGE IS data-name/integer LINES
        WITH FOOTING AT data-name/integer
        LINES AT TOP data-name/integer
        LINES AT BOTTOM data-name/integer
    RECORDING MODE IS F/V/U/S
    CODE-SET IS alphabet-name
    EXTERNAL / GLOBAL.
```

| 句 | 機能 |
|----|------|
| BLOCK CONTAINS | 物理ブロックサイズ |
| RECORD CONTAINS | 論理レコードサイズ |
| LABEL RECORDS | ラベル処理（STANDARD/OMITTED） |
| VALUE OF | ラベル内の識別情報 |
| LINAGE | ページ行数制御（帳票出力用） |
| CODE-SET | コードページ変換の指定 |

**LINAGE句**:
- LINAGE-COUNTER特殊レジスタが自動生成される
- `WRITE`文実行時に自動更新
- 初期値は1

---

## 4.2 データ記述項目

### レベルの概念

| レベル番号 | 用途 |
|-----------|------|
| 01 | レコード自体（Area Aに記述） |
| 02～49 | グループ項目、基本項目 |
| 66 | RENAMES句用 |
| 77 | 独立項目（WORKING-STORAGE等、Area Aに記述） |
| 88 | 条件名（VALUE句と共に使用） |

### PICTURE句

PICTURE文字列でデータ項目の特性と編集要件を指定する。

**PICTURE記号一覧**:

| 記号 | 意味 | サイズ算定 |
|------|------|-----------|
| A | 英字またはスペースのみ | 1文字位置 |
| B | スペース挿入 | 1文字位置 |
| E | 外部浮動小数点の指数開始 | 1文字位置 |
| G | DBCS文字位置 | 1文字位置 |
| N | DBCS/ナショナル文字位置 | 1文字位置 |
| P | 仮定小数点スケーリング位置 | カウントされない |
| S | 符号の存在 | カウントされない（SEPARATE時は1） |
| U | UTF-8文字位置 | 1文字位置 |
| V | 仮定小数点の位置 | カウントされない |
| X | 任意の英数字文字 | 1文字位置 |
| Z | 先頭ゼロ置換（スペース） | 1文字位置 |
| 9 | 数字 | 1桁 |
| 0 | ゼロ挿入 | 1文字位置 |
| / | スラッシュ挿入 | 1文字位置 |
| , | カンマ挿入 | 1文字位置 |
| . | 実小数点（編集） | 1文字位置 |
| + / - | 編集符号制御 | 1文字位置 |
| CR / DB | 編集符号制御 | 2文字位置 |
| * | チェックプロテクト | 1文字位置 |
| cs | 通貨記号 | 1+文字位置 |

**データカテゴリ**:

| カテゴリ | PICTURE記号 |
|---------|-------------|
| Alphabetic | Aのみ |
| Alphanumeric | X、またはA/X/9の組合せ |
| Alphanumeric-edited | A X 9 B 0 /（少なくとも1つのA/Xと1つのB/0//） |
| DBCS | G、G B、N（NSYMBOL(DBCS)時） |
| External floating-point | +9.9E+99形式 |
| National | N（NSYMBOL(NATIONAL)時） |
| National-edited | N B 0 / |
| Numeric | 9 S V P |
| Numeric-edited | 数値編集記号 |
| UTF-8 | U |

**編集の種類**:
- 単純挿入編集: B, 0, /
- 特殊挿入編集: .（実小数点）
- 固定挿入編集: +, -, CR, DB, cs（通貨記号）
- 浮動挿入編集: +, -, cs（複数回指定）
- ゼロ抑制/置換編集: Z, *

---

### OCCURS句（表定義）

固定長表:
```
05 item OCCURS integer TIMES
    ASCENDING/DESCENDING KEY IS data-name
    INDEXED BY index-name
    PIC X(10).
```

可変長表（ODO: OCCURS DEPENDING ON）:
```
05 item OCCURS integer-1 TO integer-2 TIMES
    DEPENDING ON data-name
    PIC X(10).
```

無制限表（UNBOUNDED）:
```
05 item OCCURS 1 TO UNBOUNDED TIMES
    DEPENDING ON data-name
    PIC X(10).
```

### REDEFINES句

同一ストレージ領域の再定義。レベル番号が同じでなければならない。

```
01 WS-EMPLOYEE.
    05 WS-EMP-NAME    PIC X(30).
    05 WS-EMP-SALARY  PIC 9(5)V99.
01 WS-EMP-ALT REDEFINES WS-EMPLOYEE.
    05 WS-EMP-CODE    PIC X(10).
    05 WS-EMP-DEPT    PIC X(25).
```

### RENAMES句（レベル66）

既存データ項目の再グループ化。レベル66で指定。

```
66 WS-RENAME-EMP RENAMES WS-FIRST-NAME THRU WS-LAST-NAME.
```

### USAGE句

データ項目の内部表現を指定。

| USAEGE句 | 説明 |
|---------|------|
| DISPLAY | ディスプレイ形式（標準） |
| DISPLAY-1 | DBCSデータ |
| COMP / COMP-4 / BINARY | 2進形式 |
| COMP-1 | 内部浮動小数点（短精度） |
| COMP-2 | 内部浮動小数点（長精度） |
| COMP-3 | 内部10進形式（パック10進） |
| INDEX | インデックスデータ項目 |
| POINTER | アドレスポインタ |
| POINTER-32 | 32ビットアドレスポインタ |
| PROCEDURE-POINTER | 手続きポインタ |
| FUNCTION-POINTER | 関数ポインタ |
| OBJECT REFERENCE | オブジェクト参照 |
| NATIONAL | ナショナル文字（UTF-16） |
| UTF-8 | UTF-8文字 |
| NATIVE | ネイティブ2進表現 |

### VALUE句

データ項目の初期値を指定。

```
01 WS-COUNT PIC 9(4) VALUE 0.
88 WS-ZERO VALUE 0.
88 WS-POSITIVE VALUE 1 THRU 9999.
```

### その他の句

| 句 | 機能 |
|----|------|
| BLANK WHEN ZERO | 値がゼロのとき項目を空白にする |
| JUSTIFIED RIGHT | 右詰め指定 |
| SYNCHRONIZED | 自然境界への位置合わせ（SYNC） |
| EXTERNAL | 実行単位全体で共有される外部データ |
| GLOBAL | ネストプログラムから参照可能な大域データ |
| SIGN IS LEADING/TRALLING SEPARATE | 符号の表現方法 |
| GROUP-USAGE NATIONAL/UTF-8 | グループ全体の使用法 |
| TYPEDEF / TYPE | ユーザ定義型 |
| DYNAMIC LENGTH | 動的長さ基本項目 |
| VOLATILE | 揮発性データの指定 |

---

# 第5部: PROCEDURE DIVISION詳細

## 5.1 手続き部構造

### PROCEDURE DIVISIONヘッダ

```
PROCEDURE DIVISION USING data-name-1 ...
    RETURNING data-name.
```

- USING句: LINKAGE SECTIONの項目を引数として受け取る
- RETURNING句: 戻り値を指定

### 宣言部（DECLARATIVES）

例外処理やデバッグ処理を記述する特殊な手続き領域。

```
DECLARATIVES.
section-name SECTION. USE AFTER EXCEPTION/ERROR ON file-name.
...
END DECLARATIVES.
```

### 算術式

算術演算子: `+`（加算）, `-`（減算）, `*`（乗算）, `/`（除算）, `**`（べき乗）

演算優先順位: `**` → `*` / `/` → `+` / `-`

### 条件式

**関係条件**:
```
operand-1 IS [NOT] GREATER THAN / LESS THAN / EQUAL TO operand-2
operand-1 > / < / = / >= / <= operand-2
```

**クラス条件**:
```
identifier IS [NOT] NUMERIC / ALPHABETIC / ALPHABETIC-LOWER /
    ALPHABETIC-UPPER / DBCS / KANJI / class-name
```

**条件名条件**:
```
condition-name  （88レベルで定義された条件名）
```

**符号条件**:
```
operand IS [NOT] POSITIVE / NEGATIVE / ZERO
```

**スイッチ状態条件**:
```
condition-name  （SPECIAL-NAMESで定義されたUPSIスイッチ）
```

**省略引数条件**:
```
data-name IS [NOT] OMITTED
```

**複合条件**:
```
condition-1 AND/OR condition-2
NOT condition
```

---

## 5.2 手続き文一覧

### ACCEPT文

システム日付・時刻・ユーザ入力の受取り。

```
ACCEPT identifier FROM DATE/DAY/TIME/DAY-OF-WEEK/
    DATE YYYYMMDD/DAY YYYYDDD
ACCEPT identifier  （SYSINからの入力）
```

- DATE: PIC 9(6) — YYMMDD
- DATE YYYYMMDD: PIC 9(8) — YYYYMMDD
- DAY: PIC 9(5) — YYDDD
- DAY YYYYDDD: PIC 9(7) — YYYYDDD
- DAY-OF-WEEK: PIC 9(1) — 1=月曜～7=日曜
- TIME: PIC 9(8) — HHMMSShh（時分秒ミリ秒）

### ADD文

加算。ROUNDED、SIZE ERROR、CORRESPONDING句をサポート。

```
ADD identifier/literal TO identifier [ROUNDED]
    [ON SIZE ERROR imperative] [NOT ON SIZE ERROR imperative]
ADD identifier/literal GIVING identifier [ROUNDED]
ADD CORRESPONDING identifier-1 TO identifier-2
```

### CALL文

サブプログラム呼出。

```
CALL literal/identifier USING [BY REFERENCE/CONTENT/VALUE] data-name
    RETURNING identifier
    ON EXCEPTION imperative
    NOT ON EXCEPTION imperative
```

- BY REFERENCE: アドレス渡し（デフォルト）
- BY CONTENT: 内容のコピーを渡す
- BY VALUE: 値を渡す

### CANCEL文

プログラムの解放。次回CALL時に初期状態で再ロードされる。

```
CANCEL program-name
```

### CLOSE文

ファイルのクローズ。

```
CLOSE file-name [WITH LOCK/NO REWIND/REEL/FOR REMOVAL]
```

### COMPUTE文

計算代入。複数の算術演算を組合せ可能。

```
COMPUTE identifier [ROUNDED] = arithmetic-expression
    [ON SIZE ERROR imperative] [NOT ON SIZE ERROR imperative]
```

### CONTINUE文

無操作（no operation）文。

```
CONTINUE
```

### DELETE文

索引ファイルまたは相対ファイルからのレコード削除。

```
DELETE file-name RECORD
    [INVALID KEY imperative] [NOT INVALID KEY imperative]
```

### DISPLAY文

オペランドの内容を出力装置へ転送。

```
DISPLAY identifier/literal
    UPON mnemonic-name/environment-name
    WITH NO ADVANCING
```

### DIVIDE文

除算。商と余りを計算。

```
DIVIDE identifier INTO identifier [ROUNDED]
    [REMAINDER identifier]
DIVIDE identifier BY identifier GIVING identifier [ROUNDED]
    [REMAINDER identifier]
```

### EVALUATE文

多分岐。COBOLのswitch/case相当。

```
EVALUATE subject ALSO subject
    WHEN object ALSO object imperative
    WHEN OTHER imperative
END-EVALUATE
```

### EXIT文

手続きの共通終了点。プログラム/メソッド/PARAGRAPH/SECTIONの終了。

```
EXIT PROGRAM         （呼出元に復帰）
EXIT METHOD          （メソッド終了）
EXIT PARAGRAPH       （段落終了）
EXIT SECTION         （節終了）
EXIT PERFORM [CYCLE] （インラインPERFORMからの脱出）
```

### GOBACK文

プログラム/メソッドの論理的終了。呼出元に復帰。

```
GOBACK
```

### GO TO文

制御の移動。

```
GO TO procedure-name         （無条件）
GO TO procedure-name DEPENDING ON identifier  （条件付）
```

### IF文

条件分岐。

```
IF condition THEN statement-1 ELSE statement-2 END-IF
```

### INITIALIZE文

データ項目のカテゴリ別初期化。

```
INITIALIZE identifier [WITH FILLER] [ALL]
    [REPLACING category BY identifier/literal]
    [THEN TO DEFAULT]
```

カテゴリ: ALPHABETIC, ALPHANUMERIC, NUMERIC, ALPHANUMERIC-EDITED,
NUMERIC-EDITED, DBCS, NATIONAL, NATIONAL-EDITED, UTF-8等

### INSPECT文

文字列の検査/置換/変換。

```
INSPECT identifier TALLYING count FOR CHARACTERS/ALL/LEADING/FIRST
    identifier/literal [BEFORE/AFTER identifier/literal]
INSPECT identifier REPLACING CHARACTERS/ALL/LEADING/FIRST
    identifier/literal BY identifier/literal
INSPECT identifier CONVERTING identifier TO identifier
```

### MERGE文

2つ以上のファイルのマージ。

```
MERGE file-name ON ASCENDING/DESCENDING KEY data-name
    USING file-name-1 file-name-2
    GIVING file-name-3
```

### MOVE文

代入。基本項目移動、グループ移動、編集をサポート。

```
MOVE identifier/literal TO identifier
MOVE CORRESPONDING identifier-1 TO identifier-2
```

### MULTIPLY文

乗算。

```
MULTIPLY identifier BY identifier [ROUNDED]
MULTIPLY identifier BY identifier GIVING identifier [ROUNDED]
```

### OPEN文

ファイルのオープン。

```
OPEN INPUT/OUTPUT/I-O/EXTEND file-name
```

### PERFORM文

繰り返し処理。

```
PERFORM procedure [THRU procedure]          （基本）
PERFORM procedure integer TIMES             （回数指定）
PERFORM procedure UNTIL condition           （条件指定）
PERFORM procedure VARYING identifier FROM ... BY ... UNTIL ...
PERFORM inline-statement END-PERFORM         （インライン）
```

### READ文

ファイルからの読込。

```
READ file-name [INTO identifier] [KEY IS data-name]
    [AT END imperative] [INVALID KEY imperative]
    [NOT AT END/INVALID KEY imperative]
```

### RELEASE文

SORT文へのレコード引き渡し。

```
RELEASE record-name FROM identifier
```

### RETURN文

SORT文からのレコード受取。

```
RETURN file-name INTO identifier
    AT END imperative [NOT AT END imperative]
```

### REWRITE文

レコードの書換え。

```
REWRITE record-name [FROM identifier]
    [INVALID KEY imperative] [NOT INVALID KEY imperative]
```

### SEARCH文

内部表の探索。

- **シリアルサーチ（SEARCH）**: 逐次探索。INDEXED BY必須。
- **バイナリサーチ（SEARCH ALL）**: 二分探索。ASCENDING/DESCENDING KEY必須。

```
SEARCH table-name [VARYING index-name]
    AT END imperative
    WHEN condition imperative
SEARCH ALL table-name
    AT END imperative
    WHEN KEY condition imperative
```

### SET文

インデックス、アドレス、条件名、ポインタの設定。

```
SET index-name UP BY/DOWN BY integer   （索引値の増減）
SET index-name TO integer              （索引値設定）
SET condition-name TO TRUE             （条件名真設定）
SET address TO pointer                 （アドレス設定）
SET procedure-pointer TO entry         （手続きポインタ設定）
SET object-reference TO object         （オブジェクト参照設定）
```

### SORT文

ファイルの整列。

```
SORT file-name ON ASCENDING/DESCENDING KEY data-name
    [WITH DUPLICATES IN ORDER]
    INPUT PROCEDURE section  [THRU section]
    USING file-name
    OUTPUT PROCEDURE section [THRU section]
    GIVING file-name
```

### START文

VSAMファイルの開始位置指定。

```
START file-name KEY IS GREATER THAN/EQUAL TO/LESS THAN data-name
    [INVALID KEY imperative] [NOT INVALID KEY imperative]
```

### STOP文

実行停止。

```
STOP RUN            （プログラム終了、制御をOSに戻す）
STOP literal        （一時停止、オペレータ介入待ち）
```

### STRING文

文字列の連結。

```
STRING identifier/literal DELIMITED BY identifier/literal/SIZE
    INTO identifier
    [WITH POINTER identifier]
    [ON OVERFLOW imperative]
END-STRING
```

### SUBTRACT文

減算。

```
SUBTRACT identifier/literal FROM identifier [ROUNDED]
SUBTRACT identifier/literal FROM identifier GIVING identifier
SUBTRACT CORRESPONDING identifier-1 FROM identifier-2
```

### UNSTRING文

文字列の分解。

```
UNSTRING identifier
    DELIMITED BY [ALL] identifier/literal [OR ...]
    INTO identifier [DELIMITER IN identifier] [COUNT IN identifier]
    [WITH POINTER identifier]
    [TALLYING IN identifier]
    [ON OVERFLOW imperative] [NOT ON OVERFLOW imperative]
END-UNSTRING
```

### WRITE文

ファイルへの書出し。

```
WRITE record-name [FROM identifier]
    [AFTER/BEFORE ADVANCING PAGE/LINE identifier/literal]
    [END-OF-PAGE imperative]
    [INVALID KEY imperative] [NOT INVALID KEY imperative]
```

---

# 第6部: 組み込み関数

## 関数の呼出し形式

```
FUNCTION function-name ( argument ... )
```

## 関数一覧

| 関数名 | 型 | 説明 |
|--------|-----|------|
| ABS | 数値 | 絶対値 |
| ACOS | 数値 | 逆余弦（アークコサイン） |
| ANNUITY | 数値 | 年金係数 |
| ASIN | 数値 | 逆正弦（アークサイン） |
| ATAN | 数値 | 逆正接（アークタンジェント） |
| BIT-OF | 整数 | 2進数文字列表現 |
| BIT-TO-CHAR | 英数字 | 2進文字列を文字に変換 |
| BYTE-LENGTH | 整数 | バイト長 |
| CHAR | 英数字 | コードポイントから文字 |
| COMBINED-DATETIME | 整数 | 日時を結合した整数値 |
| CONTENT-OF | 英数字/ナショナル | ファイル内容の読取り |
| COS | 数値 | 余弦（コサイン） |
| CURRENT-DATE | 英数字 | 現在日時（YYYYMMDDhhmmssss+hhmm） |
| DATE-OF-INTEGER | 整数 | 整数日付→YYYYMMDD変換 |
| DATE-TO-YYYYMMDD | 整数 | 2桁年→4桁年変換 |
| DAY-OF-INTEGER | 整数 | 整数日付→YYYYDDD変換 |
| DAY-TO-YYYYDDD | 整数 | 2桁年→4桁年（ユリウス日）変換 |
| DISPLAY-OF | 英数字 | ナショナル/UTF-8→指定コードページ変換 |
| E | 数値 | 自然対数の底（約2.71828） |
| EXP | 数値 | eのべき乗 |
| EXP10 | 数値 | 10のべき乗 |
| FACTORIAL | 整数 | 階乗 |
| FORMATTED-CURRENT-DATE | 英数字/ナショナル/UTF-8 | 書式指定現在日時 |
| FORMATTED-DATE | 英数字/ナショナル/UTF-8 | 書式指定日付変換 |
| FORMATTED-DATETIME | 英数字/ナショナル/UTF-8 | 書式指定日時変換 |
| FORMATTED-TIME | 英数字/ナショナル/UTF-8 | 書式指定時刻変換 |
| HEX-OF | 英数字 | 16進文字列表現 |
| HEX-TO-CHAR | 英数字 | 16進文字列→バイト変換 |
| INTEGER | 整数 | 切捨て整数化 |
| INTEGER-OF-DATE | 整数 | YYYYMMDD→整数日付変換 |
| INTEGER-OF-DAY | 整数 | YYYYDDD→整数日付変換 |
| INTEGER-OF-FORMATTED-DATE | 整数 | 書式指定日付→整数日付変換 |
| INTEGER-PART | 整数 | 整数部 |
| LENGTH | 整数 | 文字位置長（キャラクタ長） |
| LOG | 数値 | 自然対数 |
| LOG10 | 数値 | 常用対数 |
| LOWER-CASE | 英数字 | 英字小文字変換 |
| MAX | 可変 | 最大値 |
| MEAN | 数値 | 平均値 |
| MEDIAN | 数値 | 中央値 |
| MIDRANGE | 数値 | ミッドレンジ |
| MIN | 可変 | 最小値 |
| MOD | 整数 | 剰余（モジュロ） |
| NATIONAL-OF | ナショナル | 英数字→ナショナル変換 |
| NUMVAL | 数値 | 英数字→数値変換 |
| NUMVAL-C | 数値 | 通貨記号付き文字列→数値変換 |
| NUMVAL-F | 数値 | 浮動小数点文字列→数値変換 |
| ORD | 整数 | 文字の序数位置 |
| ORD-MAX | 整数 | 最大値の引数の序数 |
| ORD-MIN | 整数 | 最小値の引数の序数 |
| PI | 数値 | 円周率（約3.14159） |
| PRESENT-VALUE | 数値 | 現在価値 |
| RANDOM | 数値 | 乱数 |
| RANGE | 数値 | 範囲（最大値-最小値） |
| REM | 数値 | 剰余（REM = 被除数 - 除数 * 商） |
| REVERSE | 英数字/ナショナル | 文字列反転 |
| SECONDS-FROM-FORMATTED-TIME | 数値 | 書式指定時刻→秒数 |
| SECONDS-PAST-MIDNIGHT | 数値 | 現在時刻の正午からの経過秒数 |
| SIGN | 整数 | 符号（-1, 0, 1） |
| SIN | 数値 | 正弦（サイン） |
| SQRT | 数値 | 平方根 |
| STANDARD-DEVIATION | 数値 | 標準偏差 |
| SUM | 数値 | 合計 |
| TAN | 数値 | 正接（タンジェント） |
| TEST-DATE-YYYYMMDD | 整数 | YYYYMMDD日付の妥当性検証 |
| TEST-DAY-YYYYDDD | 整数 | YYYYDDD日付の妥当性検証 |
| TEST-FORMATTED-DATETIME | 整数 | 書式指定日時の妥当性検証 |
| TEST-NUMVAL | 整数 | 数値変換可能性の検証 |
| TEST-NUMVAL-C | 整数 | 通貨数値変換可能性の検証 |
| TEST-NUMVAL-F | 整数 | 浮動小数点変換可能性の検証 |
| TRIM | 英数字/ナショナル | 先頭/末尾スペース除去 |
| ULENGTH | 整数 | ナショナル文字の長さ（コードポイント単位） |
| UPOS | 整数 | ナショナル文字列内の部分文字位置 |
| UPPER-CASE | 英数字/ナショナル | 英字大文字変換 |
| USUBSTR | ナショナル | ナショナル部分文字列 |
| USUPPLEMENTARY | 整数 | 補助文字サロゲート有無判定 |
| UUID4 | 英数字 | UUID v4生成 |
| UVALID | 整数 | UTF-16文字列の妥当性検証 |
| UWIDTH | 整数 | UTF-16符号化単位数 |
| VARIANCE | 数値 | 分散 |
| WHEN-COMPILED | 英数字 | コンパイル日時（YYYYMMDDhhmmsshh+00） |
| YEAR-TO-YYYY | 整数 | 2桁年→4桁年変換 |

---

# 第7部: コンパイラ指示文とコンパイラ指令

## コンパイラ指示文（Compiler-Directing Statements）

### BASIS文

別のソーステキストを現在のソースユニットに組み込む。

```
BASIS "basis-name"
```

### CBL（PROCESS）文

コンパイラオプションをソース内で指定。

```
CBL option-name
PROCESS option-name
```

### *CBL（*CONTROL）文

ソースコード一覧の制御。

```
*CBL SOURCE/NOSOURCE MAP/NOMAP LIST/NOLIST
```

### COPY文

COPYライブラリからソーステキストを組み込む。テキスト操作（置換）可能。

```
COPY text-name [IN library-name]
    [REPLACING ==pseudo-text== BY ==pseudo-text== ...]
```

- 疑似テキストによる置換機能
- ライブラリ検索順序: 指定ライブラリ → SYSLIB

### DELETE文

ソース一覧からの行削除指示（コーディングシート用）。

```
DELETE line-number
```

### EJECT文

ソース一覧の改ページ。

```
EJECT
```

### ENTER文

他言語（COBOL以外）のプログラムの呼出し（非推奨）。

```
ENTER language-name routine-name
```

### INSERT文

ソース一覧への行挿入。

```
INSERT line-number
```

### READY/RESET TRACE文

トレースの開始・停止。

```
READY TRACE
RESET TRACE
```

### REPLACE文

ソーステキストの置換を指定。

```
REPLACE ==pseudo-text== BY ==pseudo-text== ...
REPLACE OFF
```

### SERVICE LABEL文

サービストレースのラベル設定。

```
SERVICE LABEL label-name
```

### SERVICE RELOAD文

サービスの再ロード。

```
SERVICE RELOAD
```

### SKIP文

ソース一覧での行送り。

```
SKIP1 / SKIP2 / SKIP3
```

### TITLE文

ソース一覧のタイトル指定。

```
TITLE "title-text"
```

### USE文

例外処理・デバッグ宣言。

```
USE AFTER EXCEPTION/ERROR ON file-name/INPUT/OUTPUT/I-O/EXTEND
USE FOR DEBUGGING ON procedure-name
```

---

## コンパイラ指令（Compiler Directives）

コンパイラ指令は `>>` で始まり、Area Bに記述する。

### CALLINTERFACE

Javaとの相互運用のための呼出しインターフェース指定。

```
>>CALLINTERFACE DLL
```

### DATA

WORKING-STORAGEの割当て場所指定。

```
>>DATA 24 / 31
```

### 条件付きコンパイル（Conditional Compilation）

`>>DEFINE`, `>>EVALUATE`, `>>IF` 等で条件付きコンパイルを実現。

```
>>DEFINE variable = value
>>IF condition
...source text...
>>ELSE
...source text...
>>END-IF
```

**事前定義コンパイル変数**:
- COBOL, COBOL2002, ENTERPRISE_COBOL, IBM_ARCHITECTURE,
OS_FLAVOR, LOCALE, LANGUAGE 等

### JAVA-CALLABLE

Javaから呼出し可能なCOBOLプログラムの指定。

```
>>JAVA-CALLABLE program-name
```

### JAVA-SHAREABLE

COBOLプログラムがJavaと共有可能なデータを持つことを指定。

```
>>JAVA-SHAREABLE
```

---

## IBM拡張機能（主要なもの）

Enterprise COBOL for z/OS V6.5は多くのIBM拡張機能を提供する：

- 特殊レジスタ: ADDRESS OF, LENGTH OF, RETURN-CODE, JSON-CODE, XML-CODE等
- 16進リテラル表記: X"...", NX"...", UX"..."
- NULL終端リテラル: Z"..."
- 日本語処理のためのDBCSサポート: Gリテラル、USAGE DISPLAY-1、PICTURE G/N
- 条件付きコンパイル: >>DEFINE, >>IF, >>EVALUATE
- CALL文のJava静的メソッド呼出し
- JSON GENERATE/PARSE文
- XML GENERATE/PARSE文
- ALLOCATE/FREE文による動的記憶管理
- 動的長さ基本項目（DYNAMIC LENGTH）
- 無制限表（OCCURS UNBOUNDED）
- 全関数のALL下标指定
- 64ビットアドレッシング（LP(64)）

---

## ファイルステータスキー値

| コード | 意味 |
|--------|------|
| 00 | 正常終了 |
| 02 | 正常終了（重複レコード） |
| 04 | 正常終了（レコード長不整合） |
| 05 | 正常終了（参照オプショナルファイル未存在） |
| 10 | ファイル終了 |
| 14 | 相対ファイルの範囲外レコード |
| 21 | シーケンスエラー |
| 22 | 重複キー |
| 23 | レコード未存在 |
| 24 | バッファ不足 |
| 30 | 恒久的エラー |
| 34 | ファイル編成の境界違反 |
| 35 | ファイル未存在（OPEN） |
| 37 | アクセスモード違反 |
| 38 | クローズ前のOPEN |
| 39 | 属性矛盾 |
| 41 | OPEN時のファイル未存在 |
| 42 | クローズ済ファイルのOPEN |
| 43 | 書込み禁止ファイルの書込み |
| 44 | 読込み専用ファイルの書換え/削除 |
| 46 | 読込み専用（順次） |
| 47 | OPEN時のファイル読込み不可 |
| 48 | ファイル編成とアクセスモード矛盾 |
| 49 | OPEN時のファイル属性不整合 |
| 90 | 論理エラー該当せず |
| 91 | ファイル機構のアベンド |
| 92 | ストレージ不足 |
| 93 | リソースアクセス不可 |
| 94 | ファイルの位置指定不整合 |
| 95 | ファイル宣言の不整合 |
| 96 | 入出力制御の矛盾 |
| 97 | ファイルの編成/モード矛盾 |
| 98 | ボリューム処理エラー |
| 99 | レコードロック競合 |

---

*本ドキュメントは IBM Enterprise COBOL for z/OS V6.5 Language Reference (SC27-8713-04) の内容に基づいて作成されました。*