導入：なぜ今、JSON PARSEが必要なのか
これまでCOBOLでWeb APIから送られてくるJSONデータを扱う際、文字列解析（PARSE）を自前で実装していた開発者は多いはずです。しかし、固定長データが主役のCOBOLにとって、可変長かつ階層構造を持つJSONの解析は、バグの温床であり、メンテナンス性を著しく低下させる要因でした。COBOL 2002以降で導入された「JSON PARSE」文は、この課題を根本から解決します。JSONとCOBOLのデータ構造を直接マッピングすることで、変換処理を言語側に任せ、ビジネスロジックに集中できる環境を実現します。
基礎知識：デシリアライズの仕組み
JSON PARSE文は、JSON形式の文字列（デリミタ付きのキー・値の対）を、COBOLの集団項目（グループ項目）へ自動的に展開します。重要なのは、COBOL側のデータ定義（WORKING-STORAGE）とJSONの構造を一致させることです。この際、数値や日付型の変換もランタイムが自動的に判断するため、複雑な変換ルーチンを記述する必要がありません。
実装・解決策：マッピングの設計指針
実装の肝は、COBOL側のデータ構造設計です。JSONのオブジェクト構造を、COBOLのグループ項目と「OCCURS」句を用いて定義します。特に注意すべきは、JSONのキー名とCOBOLの項目名を合わせることです。また、パースに失敗した際のハンドリングを行うため、「ON EXCEPTION」句を必ず記述し、データ異常時のエラー検知を確実に行うことが現場では求められます。
サンプルプログラム
以下のコードは、顧客情報をJSON形式から読み込み、COBOLの構造体へ展開する実用例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. JSON-PROC-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- JSONから受信する文字列
01 WS-JSON-IN PIC X(500) VALUE ‘{“ID”: 101, “NAME”: “株式会社サンプル”, “ACTIVE”: true}’.
- 受信データを格納する構造体（JSONのキー名と対応させる）
01 WS-CUSTOMER-REC.
05 ID PIC 9(5).
05 NAME PIC X(20).
05 ACTIVE PIC X(4).
PROCEDURE DIVISION.
> JSON文字列をWS-CUSTOMER-RECへパース（デシリアライズ）
JSON PARSE WS-JSON-IN INTO WS-CUSTOMER-REC
ON EXCEPTION
DISPLAY “JSON解析エラーが発生しました。”
STOP RUN
NOT ON EXCEPTION
DISPLAY “解析成功: ” WS-CUSTOMER-REC
END-JSON.
STOP RUN.
応用・注意点：現場での落とし穴
実務でJSON PARSEを使用する際、最も注意すべきは「データ型の一致」です。JSON側の数値型がCOBOLのPIC 9項目に収まらない場合や、NULL値が含まれている場合の挙動は、使用しているコンパイラ（Micro Focus COBOLやIBM Enterprise COBOLなど）の仕様に依存します。
また、JSONの階層が深い場合、COBOL側の構造定義も多重のグループ項目にする必要がありますが、可読性が落ちる場合は、必要な項目のみを抽出した中間構造体を定義する「DTO（Data Transfer Object）パターン」を採用することをお勧めします。最後に、文字コード（UTF-8とシフトJISの変換）が適切に行われているか、実行環境のエンコーディング設定を必ず再確認してください。
コメント