導入：なぜCOUNT IN句が重要なのか
COBOLでXMLを扱う際、頭を悩ませるのが「生成されたXMLの正確なサイズ」の把握です。従来の方法では、生成後のデータ領域をスキャンしたり、最大長を固定で確保してメモリを浪費したりする必要がありました。XML GENERATE文の「COUNT IN」句を使えば、生成されたXMLのバイト数を即座に取得できます。これにより、通信バッファの動的な割り当てや、ファイル出力時のレコード長指定が非常にスマートに行えるようになります。
基礎知識：XML GENERATEとは
XML GENERATEは、COBOLのデータ構造（グループ項目など）を、自動的にXML形式のテキストに変換する強力な命令です。COBOL 2002規格から強化されたこの機能により、煩雑な文字列連結処理なしで、JavaやWeb APIと親和性の高いXMLを生成できます。「COUNT IN」句は、その生成プロセスと同時に、結果として出力されたバイト数を数値項目に格納するオプション機能です。
実装：効率的なバッファ管理
実装の肝は、XML格納用の領域を十分に確保しつつ、COUNT INで得られた結果を後続の処理（送信やファイル書き込み）で「有効な長さ」として利用することです。これにより、バッファ内に残るゴミデータ（古いデータ）を誤って送信するリスクを回避できます。
サンプルプログラム
以下のコードは、顧客情報をXMLに変換し、そのサイズを特定して表示する一例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. XML-GEN-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- XML生成対象のデータ構造
01 CUST-DATA.
05 CUST-ID PIC X(05) VALUE ‘A001’.
05 CUST-NAME PIC X(10) VALUE ‘COBOL-USER’.
- XML格納用バッファ（十分な大きさを確保）
01 XML-BUFFER PIC X(200).
- 生成されたバイト数を格納する項目
01 XML-BYTE-LEN PIC 9(04).
PROCEDURE DIVISION.
- XMLの生成と同時にバイト数をXML-BYTE-LENに代入
XML GENERATE XML-BUFFER FROM CUST-DATA
COUNT IN XML-BYTE-LEN
END-XML.
- 結果の確認
DISPLAY ‘生成されたXMLサイズ: ‘ XML-BYTE-LEN ‘バイト’
DISPLAY ‘XML内容: ‘ XML-BUFFER(1:XML-BYTE-LEN).
STOP RUN.
応用・注意点：現場での運用アドバイス
現場でこの機能を活用する際、注意すべき点が2つあります。一つ目は、XML-BYTE-LENに指定する項目の桁数です。格納先のデータ項目が小さすぎると、結果が切り捨てられる恐れがあります。通常はPIC 9(04)以上を推奨します。
二つ目は、バッファの初期化です。XML GENERATEは、XMLデータ部分のみを上書きするため、残りの領域には前回のデータが残ります。必ず「COUNT IN」で取得した長さ分だけを処理対象とするか、MOVE SPACE TO XML-BUFFERなどで事前に初期化する癖をつけておきましょう。この「長さ」を意識したコーディングが、モダンCOBOLにおけるバグ知らずの秘訣です。
コメント