1. 導入：なぜこの指示文が重要なのか
長年運用されているCOBOLシステムにおいて、最も頭が痛い問題の一つが「レガシーな固定形式の資産と、モダンな自由形式のソースコードの混在」です。最新のCOBOL環境（COBOL 2002以降）では自由形式（FREE FORMAT）での開発が主流ですが、昔ながらの「固定形式（FIXED FORMAT）」で書かれた膨大なコピー句をそのまま取り込もうとすると、コンパイルエラーが発生してしまいます。この「>>SOURCE FORMAT」指示文は、ソースコードの途中でコンパイラに対する解釈ルールを切り替えることで、新旧の資産を安全に共存させるための非常に重要な解決策となります。
2. 基礎知識：固定形式と自由形式の違い
COBOLの「固定形式」は、かつてパンチカード時代に使われていた名残で、1桁目から6桁目にシーケンス番号、7桁目に注釈行、8桁目から11桁目がA領域、12桁目以降がB領域と決まっていました。一方、「自由形式」は、これらの厳格なカラム制限を撤廃し、インデントや改行を柔軟に扱える現代的な記述スタイルです。コンパイラに対し、いま読み込んでいるコードがどちらのルールに従っているかを明示的に伝えるのが「>>SOURCE FORMAT」の役割です。
3. 実装・解決策：コンパイラ指示文の活用
実装は非常にシンプルです。「>>SOURCE FORMAT IS FIXED」と記述すれば、それ以降の行は固定形式として解釈されます。必要なコピー句を取り込んだ後、「>>SOURCE FORMAT IS FREE」と記述することで、再び自由形式モードに戻せます。これにより、メインのロジックはモダンな自由形式で記述しつつ、外部の固定形式コピー句だけをピンポイントでインポートすることが可能です。
4. サンプルプログラム
以下は、自由形式で書かれたメインプログラムの中で、固定形式のコピー句を取り込む実用例です。
メイン処理は自由形式で記述
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-PROG.
PROCEDURE DIVISION.
DISPLAY “— 処理開始 —”
ここで固定形式のコピー句を読み込む準備をする
>>SOURCE FORMAT IS FIXED
COPY “OLD-RECORD.CPY”.
>>SOURCE FORMAT IS FREE
再び自由形式に戻して処理を継続
DISPLAY “— 処理完了 —”
GOBACK.
5. 応用・注意点：現場で陥りやすいバグの回避
現場でよくある失敗は、この切り替え指示を記述した後に戻し忘れることです。特に、コピー句がネスト（入れ子）されている場合、読み込み先のコピー句内で別のコピー句が呼び出されていると、形式の不一致でコンパイルエラーになることがあります。
また、必ず「>>」の直後にスペースを入れないように注意してください。コンパイラによっては、この指示文が認識されず、ソースコード全体が誤った形式として解釈され、予期せぬ構文エラーの山を築く原因となります。モダンな開発環境へ移行する過渡期において、この指示文は「古き良き資産」を守るための強力な防波堤となりますので、ぜひ積極的に活用してください。
コメント