導入: なぜ今、ENTRY文を知る必要があるのか？
COBOL開発の現場では、一つのプログラムが何千行にも及ぶことがあります。そんな時、「プログラムの先頭からではなく、特定の場所から処理を始めたい」という場面に遭遇することがあります。これを実現するのが「ENTRY文」です。例えば、共通の初期化処理だけを呼び出したり、プログラムの途中から特定の機能だけを再利用したりする際に役立ちますが、使い方を誤るとプログラムの構造が複雑になってしまいます。今回は、このENTRY文の仕組みと、現場で安全に使うための知恵を解説します。
基礎知識: ENTRY文とは何か？
通常、COBOLプログラムは「PROCEDURE DIVISION」の先頭から実行が始まります。しかし、ENTRY文を使うと、プログラム内に「入り口（エントリポイント）」を複数作ることができます。
外部のプログラム（CALL元）から、プログラム名だけでなく「ENTRYで指定した名前」を指定することで、その位置から処理を開始させることができます。これは、一つのプログラムファイルの中に、複数の機能（サブルーチン）を同居させるようなイメージです。
実装/解決策: ENTRY文の書き方
ENTRY文は、PROCEDURE DIVISION内の実行したい場所に記述します。CALL側は、通常のCALL文で「ENTRYで指定した名前」を呼び出すだけです。
1. 呼び出される側のプログラムで、ENTRY “名前” USING 引数 を記述する。
2. 呼び出す側のプログラムで、CALL “名前” USING 引数 を記述する。
サンプルプログラム: 初期化処理の切り出し例
以下のプログラムは、メインの処理とは別に「初期化処理」だけを外部から呼び出せるようにした例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-ENTRY.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-COUNT PIC 9(03) VALUE 0.
PROCEDURE DIVISION.
> 通常の呼び出し（メイン処理）
DISPLAY “メイン処理が開始されました。”
STOP RUN.
> ここが外部からの入り口となる
ENTRY “SUB-RESET” USING WS-COUNT.
MOVE 0 TO WS-COUNT.
DISPLAY “カウンタを初期化しました。”
GOBACK.
- 呼び出し側のイメージ
- CALL “SUB-RESET” USING WS-VAL.
応用・注意点: 現場での賢い付き合い方
ENTRY文は非常に強力ですが、乱用は禁物です。以下の点に注意してください。
1. スパゲッティコードの防止
ENTRY文を多用すると、プログラムの処理の流れがどこから始まっているのか追いにくくなります。可能な限り、機能ごとにプログラムを分割（サブルーチン化）することを優先してください。
2. データ領域の共有
ENTRY文で途中から入っても、WORKING-STORAGE SECTIONのデータはプログラム全体で共有されます。そのため、不用意に値を書き換えると、別のエントリポイントから呼び出した際に予期せぬ値が入っている、といったバグが発生しやすくなります。
3. 現代の設計思想
冒頭でも触れた通り、現代の構造化プログラミングの観点からは、ENTRY文の使用は「非推奨」とされることが多いです。新しいシステムを設計する際は、クラスや別プログラムへの分割を検討し、ENTRY文はあくまで「既存の古いプログラムを改修する場合の緊急手段」として捉えておくのが、ベテラン技術者の賢い立ち回りと言えるでしょう。
コメント