1. 導入：なぜ今、JSON GENERATEなのか
現代のシステム開発において、Web APIを通じたデータ連携は避けて通れません。かつてのCOBOLは、外部システムとの通信に固定長データやCSVを多用していましたが、現在は「JSON」形式がデファクトスタンダードです。これまでのCOBOLでは、JSONの形式に合わせて一文字ずつ文字列を連結するような煩雑なコーディングが必要でしたが、モダンCOBOL（2002以降）で導入されたJSON GENERATE文を使えば、わずか一行でCOBOLのデータ構造をJSON文字列に変換できます。これにより、保守性が劇的に向上し、開発工数を大幅に削減することが可能です。
2. 基礎知識：JSON GENERATEの仕組み
JSON GENERATE文は、COBOLのデータ項目（グループ項目や基本項目）を読み取り、対応するJSON形式のテキストデータへ自動的に変換する機能です。
- COBOLのグループ項目は、JSONの「オブジェクト（{}）」になります。
- COBOLのテーブル（OCCURS）は、JSONの「配列（[]）」になります。
- 基本項目は、データ型に応じて適切な値（数値や文字列）として出力されます。
この機能の最大の利点は、データ定義（WORKING-STORAGE SECTION）さえしっかり作っておけば、複雑な文字列編集を行わずに済むという点です。
3. 実装と解決策
JSON GENERATE文を利用する際は、変換後のデータを格納する十分な長さの「受信フィールド」を用意することが重要です。また、変換エラーが発生した場合に備えて、例外処理（ON EXCEPTION）を記述するのが現場の鉄則です。
4. サンプルプログラム
以下のコードは、社員情報をJSON形式に変換する簡単な例です。お手元のコンパイラで動作を確認してみてください。
IDENTIFICATION DIVISION.
PROGRAM-ID. JSON-SAMPLE.
WORKING-STORAGE SECTION.
- JSON変換元のデータ構造
01 WS-EMPLOYEE-REC.
05 EMP-ID PIC 9(5) VALUE 12345.
05 EMP-NAME PIC X(10) VALUE 'TANAKA'.
05 EMP-SKILLS OCCURS 2 TIMES PIC X(10).
- JSON変換後の格納先（十分な長さを確保）
01 WS-JSON-OUT PIC X(200).
01 WS-JSON-LEN PIC 9(4).
PROCEDURE DIVISION.
- 配列データの設定
MOVE 'COBOL' TO EMP-SKILLS(1)
MOVE 'JAVA' TO EMP-SKILLS(2)
- JSON GENERATEの実行
- FROMで指定したデータをJSON形式に変換し、WS-JSON-OUTに格納
JSON GENERATE WS-JSON-OUT FROM WS-EMPLOYEE-REC
COUNT IN WS-JSON-LEN
ON EXCEPTION
DISPLAY '変換エラーが発生しました'
NOT ON EXCEPTION
DISPLAY '変換成功: ' WS-JSON-OUT(1:WS-JSON-LEN)
END-JSON.
GOBACK.
5. 応用・注意点：現場でハマらないために
現場で活用する際には、以下の点に注意してください。
1. データ長不足に注意：
変換後のJSON文字列が格納先のフィールド長を超えるとエラーになります。余裕を持ったサイズを確保するか、動的長フィールド（DYNAMIC LENGTH）をサポートしているコンパイラであればそちらを活用してください。
2. 日本語（マルチバイト文字）の扱い：
Shift-JISやUTF-8といった文字コードの設定が、コンパイラのオプションやシステム環境と一致しているか確認してください。環境によっては、日本語文字が正しくエンコードされない場合があります。
3. 項目名の反映：
JSONのキー名は、基本的にCOBOLのデータ項目名がそのまま使用されます。JSON側で決められたキー名と一致させる必要がある場合は、COBOL側のデータ項目名を工夫するか、変換後に文字列操作で置換するなどの設計が必要です。
JSON GENERATEを使いこなして、レガシーな資産をモダンなWeb環境へスムーズに繋げていきましょう。
コメント