導入：なぜ今、SOURCE句での組込関数活用が必要なのか
COBOLでの帳票作成において、ヘッダーに「現在の日付」や「実行時刻」を印字することは日常茶飯事です。従来の手法では、PROCEDURE DIVISIONで一度CURRENT-DATE関数を呼び出し、ワークエリアに格納してから帳票エリアへMOVEするという、冗長なコーディングになりがちでした。
本稿で紹介する「SOURCE句に直接組込関数を埋め込む手法」は、宣言部（SCREEN SECTIONやREPORT SECTION）だけで完結するため、手続き部のロジックを極限までシンプルに保つことができます。保守性の向上と、記述ミスの削減という実務上の大きなメリットがあります。
基礎知識：SCREEN SECTIONとSOURCE句の役割
COBOLのSCREEN SECTIONは、画面や帳票のレイアウトを定義するセクションです。通常、項目にはPICTURE句で型を指定しますが、SOURCE句を使用することで、その項目に「特定のデータソース」を紐付けることができます。
ここに「組込関数（Intrinsic Functions）」を指定することで、プログラムが実行されるたび（あるいは表示されるたび）に、システムから動的に値を取得して表示させることが可能になります。
実装・解決策：宣言部での直接指定
実装は非常にシンプルです。帳票レイアウトを定義する際、固定値や変数ではなく、SOURCE句に直接関数を記述します。これにより、PROCEDURE DIVISIONでMOVE文を書く必要がなくなります。特にCURRENT-DATE関数は、日付だけでなく時刻情報も取得できるため、出力帳票のヘッダー情報として非常に有用です。
サンプルプログラム：ヘッダー出力の最適化
以下に、SCREEN SECTIONを用いた実装例を示します。この記述により、手続き部では「DISPLAY」命令を投げるだけで最新の日時が表示されます。
01 REPORT-HEADER.
05 COL 01 VALUE “— 業務日報 —“.
05 COL 100 SOURCE IS FUNCTION CURRENT-DATE.
上記のように記述することで、PROCEDURE DIVISIONでのMOVEが不要になります
PROCEDURE DIVISION.
DISPLAY REPORT-HEADER.
GOBACK.
応用・注意点：現場での運用における注意点
この手法を用いる際は、以下の点に注意してください。
1. 表示形式の制御: CURRENT-DATE関数が返す値は「YYYYMMDDhhmmssSS…」という固定形式です。帳票上で「YYYY/MM/DD」のように整形したい場合は、編集用PICTURE句と組み合わせるか、あるいはFUNCTION CURRENT-DATEの結果を一度変換するラッパー関数を挟むなどの工夫が必要です。
2. 再評価のタイミング: コンパイラの仕様により、再表示（DISPLAY）のたびに値が更新されるか、プログラム開始時の値が保持されるかが異なる場合があります。厳密な時刻管理が必要なバッチ処理では、PROCEDURE DIVISIONでの明示的な更新を検討してください。
3. コンパイラの対応状況: 非常に古いメインフレーム環境などでは、SOURCE句での関数使用が制限されている場合があります。導入前に必ず使用しているCOBOLコンパイラの仕様書（Language Reference）をご確認ください。
このテクニックを使いこなすことで、帳票定義の可読性が飛躍的に向上します。ぜひ次回の帳票開発で取り入れてみてください。
コメント