1. 導入：なぜ12-72カラムの制約が重要なのか
COBOLのソースコードを書く際、かつてのパンチカード時代の名残である「カラム位置のルール」は、現代の統合開発環境（IDE）でも依然として重要です。特に領域Bと呼ばれる12-72カラム目は、プログラムのロジックやデータ定義を記述する心臓部です。ここを正しく理解していないと、コンパイルエラーが頻発したり、意図しない場所で改行が発生して可読性が落ちたりします。本稿では、安定したコードを書くための領域Bの基本と、現場で重宝される記述ルールを解説します。
2. 基礎知識：COBOLのソースフォーマット
COBOLのソース行は、固定形式（Fixed Format）において以下の領域に分かれています。
・1-6カラム： シーケンス番号（現在はあまり使用されません）
・7カラム： 標識領域（”でコメント行、’/’で改ページなど）
・8-11カラム（領域A）： 段落名、節名、レベル番号01、FDなどを記述
・12-72カラム（領域B）： 一般的な命令文（MOVE, PERFORM等）やレベル番号02以下のデータ定義
・73-80カラム： プログラム識別領域（コンパイル対象外）
多くの初心者が躓くのは、領域Aと領域Bの混同です。特にレベル番号01と02以下の記述場所を間違えると、コンパイラは構造を正しく解釈できません。
3. 実装と解決策
領域Bを活用する際の鉄則は「インデントの統一」です。物理的には12桁目から書き始められますが、現場では「16桁目」や「20桁目」から書き始めるのが一般的です。これにより、領域Aにある段落名との視覚的な区別が明確になります。
また、72カラム制限には注意が必要です。現代のワイドモニターでは余裕があるように見えますが、物理的な文字数制限を超えると、コンパイラは72桁目以降を切り捨てます。これは「ロジックが途中で切れる」という致命的なバグに繋がるため、コーディング規約で「65カラム程度で改行する」等のルールを設けるのが賢明です。
4. サンプルプログラム
以下は、領域Aと領域Bの正しい使い分けを示したサンプルです。
WORKING-STORAGE SECTION.
- 01レベルは領域A(8-11)から開始
01 WS-WORK-AREA.
- 02以下の項目は領域B(12-)に記述しインデントを揃える
05 WS-COUNT PIC 9(03) VALUE 0.
05 WS-STATUS-FLG PIC X(01) VALUE SPACE.
PROCEDURE DIVISION.
- 段落名は領域A(8-11)から開始
MAIN-PROCEDURE.
- 命令文は領域B(12-)に記述する
MOVE 10 TO WS-COUNT.
IF WS-COUNT > 0
MOVE ‘Y’ TO WS-STATUS-FLG
DISPLAY ‘処理を開始します’
END-IF.
GOBACK.
5. 応用・注意点：現場でのトラブル回避
現場で最も多いミスは「領域Bから書き始めたつもりが、誤って領域Aに食い込んでしまい、コンパイルエラーになる」というものです。特にコピペを行うとカラム位置がずれることが多々あります。
・回避策： 使用しているエディタの「ルーラー（目盛り）」機能を有効にしてください。
・保守のコツ： 「プログラム識別領域（73-80桁目）」には、修正履歴のチケット番号や日付を記載する文化がある現場も多いです。ただし、自動生成ツールを使用する場合は、ここが上書きされる可能性があるため、重要な情報はソースの先頭コメントに記載するようにしましょう。
領域Bを制する者は、COBOLの可読性を制します。インデントの美しさは、そのままバグの少なさに繋がると心得てください。
コメント