【COBOL学習｜豆知識】意外と知らない？COBOLの「01」と「77」の正しい使い分けとメモリの深層

導入：なぜ今さらレベル番号を意識するのか

COBOLプログラミングにおいて、データ定義はプログラムの骨格です。特に「01」と「77」は頻繁に目にしますが、単に「なんとなく」使い分けている方も多いのではないでしょうか。しかし、これらを適切に使い分けることは、読みやすいコードの維持だけでなく、メモリ効率やコンパイラの最適化という観点からも非常に重要です。今回は、この二つのレベル番号が持つ本質的な違いを解説します。

基礎知識：01と77の定義と役割

まず、01レベルは「レコード」の起点です。COBOLにおいて01は、後に続く05、10といった「従属項目」を束ねるための親（ルート）として機能します。

一方で、77レベルは「独立データ項目」と呼ばれます。これは「これ以上、下位の階層を持たない」という制約をコンパイラに伝えるための特別なレベル番号です。かつての大型汎用機環境では、77レベルはメモリの境界調整（アライメント）が最適化されるという歴史的背景があり、単一のフラグやカウンタを定義する際に好んで使われてきました。

実装と解決策：使い分けの指針

基本ルールはシンプルです。
1. 構造が必要なデータ（グループ）は「01」：複数の項目をまとめて扱いたい場合は、必ず01で定義します。
2. 単独で完結する変数（カウンタ、フラグなど）は「77」または「01」：かつては77が推奨されましたが、現代のコンパイラでは01で単一項目を定義しても性能差はほぼありません。ただし、ソースコードの可読性のために「単一項目は77」「構造体は01」とチームでルールを決めておくのが、現場では最もトラブルが少ない運用です。

サンプルプログラム：定義の比較

以下のコードを参考に、宣言の仕方を整理してください。

WORKING-STORAGE SECTION.

--- 77レベル: 独立したカウンタやフラグに使用 ---

77  WS-COUNTER      PIC 9(03) VALUE 0.
77  WS-STATUS-FLG   PIC X(01) VALUE 'N'.


--- 01レベル: 関連するデータをグループ化して使用 ---

01  WS-USER-RECORD.
    05  WS-USER-ID      PIC X(05).
    05  WS-USER-NAME    PIC X(20).
    05  WS-USER-AGE     PIC 9(03).

PROCEDURE DIVISION.

77は直接参照する独立項目として定義する

    ADD 1 TO WS-COUNTER.
    

01はグループ名でまとめて転記（MOVE）などが可能

    MOVE SPACES TO WS-USER-RECORD.

応用・注意点：現場での陥りやすいミス

現場で最も注意すべきなのは、「77レベルの下にデータ項目をぶら下げようとするミス」です。コンパイルエラーになるのはもちろんですが、意図せず構造が崩れたコードは保守担当者を悩ませます。

また、最近のCOBOL環境では、メモリ管理が高度に最適化されているため、77レベルにこだわらなくても性能上の問題はほとんど発生しません。「絶対に77を使わなければならない」という強迫観念に縛られる必要はありませんが、「グループ項目なら01、独立項目なら77」という棲み分けを徹底することで、ソースコードの構造を直感的に他者へ伝えることができます。レガシーコードの保守においては、この「定義の意図」を汲み取ることが何よりのトラブル回避術となります。