1. 導入：なぜインライン記述が重要なのか
長年COBOLを触っていると、どうしてもプログラムが長大になりがちです。特に、単純な条件分岐のために何行ものコードを割いてしまうと、ロジック全体の見通しが悪くなります。COBOL 2002以降のモダンな環境では、手続き部（PROCEDURE DIVISION）において「インライン記述」を活用することで、コードの密度を高め、修正時の可読性を劇的に向上させることが可能です。本稿では、この効率的な記述スタイルについて解説します。
2. 基礎知識：インライン記述とは何か
従来のCOBOL（固定形式時代）では、ステートメントは物理的な行の制約に縛られがちでした。しかし、自由形式（Free-form）が標準となった現在では、文の区切りを明確にするための「範囲終了符号（END-IFやEND-PERFORMなど）」が重要になります。インライン記述とは、これらの終了符号を活用し、一連の論理処理を1行、あるいは最小限の行数で完結させる手法を指します。
3. 実装と解決策
インライン記述の鍵は、「END-XXX」による明示的なスコープの終了です。これにより、コンパイラはどこで処理が終わるかを即座に認識できるため、複数の処理を1行に詰め込んでも正しく解釈されます。複雑な入れ子（ネスト）構造では多用を避けるべきですが、単純な代入やフラグ操作には非常に有効です。
4. サンプルプログラム
以下のコードは、数値の比較と代入を1行で行う例です。コピーして環境に合わせてコンパイルしてみてください。
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-INLINE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VAL-A PIC 9(03) VALUE 100.
01 VAL-B PIC 9(03) VALUE 200.
01 MAX-V PIC 9(03).
01 STATUS-FLG PIC X(01).
PROCEDURE DIVISION.
> — 従来の書き方 —
IF VAL-A > VAL-B
MOVE VAL-A TO MAX-V
ELSE
MOVE VAL-B TO MAX-V
END-IF.
> — モダンなインライン記述 —
> 条件が真ならMAX-VにVAL-Aを、偽ならVAL-Bをセット
IF VAL-A > VAL-B MOVE VAL-A TO MAX-V ELSE MOVE VAL-B TO MAX-V END-IF.
> 複数のステートメントを1行で実行する例
IF MAX-V > 150 MOVE ‘Y’ TO STATUS-FLG ELSE MOVE ‘N’ TO STATUS-FLG END-IF.
DISPLAY “MAX-V: ” MAX-V.
DISPLAY “STATUS: ” STATUS-FLG.
GOBACK.
5. 応用・注意点
インライン記述は便利ですが、現場での運用にはいくつか注意が必要です。
・ネストの深さに注意：IF文の中にIF文を入れるようなインライン記述は、コードが横に伸びすぎてしまい、かえってバグの温床になります。ネストが深くなる場合は、迷わず改行を入れて記述してください。
・保守性を優先：「コードが短い＝良いコード」とは限りません。他の開発者が読んだときに一瞬でロジックが理解できるかどうかが重要です。
・デバッグ時の影響：行単位でステップ実行するデバッガを使用する場合、1行に複数の処理を詰め込むと、どこで値が更新されたか追いづらくなることがあります。
適切なバランスでインライン記述を取り入れ、スマートでメンテナンス性の高いプログラムを目指しましょう！
コメント