【COBOL 書き1-2-3】初めてのコンパイル。初めての実行。そしてエラーからの絶望。

2026年4月8日

🧩今日の学び
・COBOLは必ずPROGRAM-IDなどの基本構造を書かないとコンパイルできない
・係長の言う通り、コンパイルエラーは壊れているのではなくコンパイラとの会話である
・コンパイルが成功しても、DISPLAYなどの命令を書かなければプログラムは何も表示しない

初コンパイル、いきなりエラーの洗礼

なるお）だったら、これで行けるってわけっすね！フン！（カタカタ…ターン！）

📝 COBOL test.cob

DATA DIVISION.
WORKING-STORAGE SECTION.

01 A PIC 9(3).
01 B PIC 9(3).

PROCEDURE DIVISION.
    ADD A TO B.

んで、コンパイルっと ……なにこれ…？

💻 ターミナル出力実行結果

test.cob:1: note: free format detected
    1 > DATA DIVISION.
    2 | WORKING-STORAGE SECTION.
    3 | 
test.cob:1: error: PROGRAM-ID header missing
    1 > DATA DIVISION.
    2 | WORKING-STORAGE SECTION.
    3 | 
test.cob:8: error: syntax error, unexpected Identifier, expecting SECTION or .
    6 | 
    7 | PROCEDURE DIVISION.
    8 > 　　ADD A TO B.
    9 | 
test.cob:8: note: unknown statement '　　ADD'

係長）ほら見ろ。

まず上の PROGRAM-ID header missing は、「PROGRAM-IDが無いぞ」って怒られてるんだよ。

な）え…

係）COBOLは必ず一番上に IDENTIFICATION DIVISION. （身分証明）が必要だ。それがないって話だよ。

な）え…？

係）つまり、コンパイラから「このプログラムの名前はなんだ。名乗りもせずに処理させようとしてんのか」って詰められてるんだよ。

な）で…？

係）今回はTESTって名前にするとして、一番上にこれを書かないとならんな。

📝 COBOL test.cob

IDENTIFICATION DIVISION.
PROGRAM-ID. TEST.

な）これは必須すか？

係）必須だ。

な）裏口入学は？

係）ねーよ！そもそもお前にそんな金ねーだろ！

な）いやいや、あるかも知んないっすよ！昨日買った宝くじ当たってて、明日会社に退職代行がくるかもしれないっすよ！

係）そうか。だったら、もう会うこともないな。じゃあな。

な）引き止めてー！！

係）いいから、四の五の言わずにそう書けって話だよ！

な）あい…

で、もう一つのエラーのほうは？

全角スペースでプログラムは壊れる

係）unknown statement '　　ADD' これ、お前が単純にやらかしただけだ。

ADDの前に「全角スペース」が入ってる。

コンパイラから「全角の空白＋ADDなんていう知らない命令は無い。出直してこい」って言われてるわけだな。

な）もっと優しく教えてよ…って、ほんとだ、めっちゃ全角スペースだった。

以前「半角と全角の」って話しただろ？お前が未亡人を出現させてたときだ

※参考
【COBOL 読み2-11-1】PERFORM THRUの全角に隠された罠〜愛と恋の違いと未亡人

な）あー係長が下心満々で未亡人に近づいて優しく接したときですね。

係）俺じゃなくて全角がだろ！違う！紛らわしい言い方すんな！そこはどうでもいいんだよ！

いいから、直してみろ！

な）あい…

📝 COBOL test.cob

IDENTIFICATION DIVISION.
PROGRAM-ID. TEST.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(3).
01 B PIC 9(3).

PROCEDURE DIVISION.
    ADD A TO B.

ってことっすね…。で、コンパイルして…と。

💻 ターミナル出力実行結果

test.cob:1: note: free format detected
    1 > IDENTIFICATION DIVISION.
    2 | PROGRAM-ID. TEST.
    3 |

なんじゃこりゃ… なにが間違いなのかまったくわからんちん…

コンパイル成功。でも何も起きない

係）間違ってないから、なんも言われてないだけだ。コンパイル成功だ。

な）へ？だって note: free format detected とか言ってるから…

係）それは「フリーフォーマット（自由な書き方）で書かれてるのを検知した」ってコンパイラが独り言を言ってるだけだ。

COBOLは間違ってたら、人格否定されるぐらいまで非難（エラー）されるから安心しろ。

な）コボハラ！？

係）で、実行してみろ。

な）あい…

…あれ、画面になんも表示されないんすけど…？COBOLに呆れられたとか…？

係）お前がぴっちり七三分けとか馬鹿にするからだろ。

な）デジタルにも感情が生まれた！？

プログラムは「見せろ」と言わないと何も見せない

係）いいか、お前は A と B という箱を用意して、「計算しろ（ADD）」としか命令してない。箱には何も初期値を入れてないだろ？

な）あー

係）だから、Bの中身は0（やゴミ）が入って「000」になって足し算されただけだ。

そしてお前は「画面に表示しろ」っていう命令も書いてないだろ？

だから裏で計算（0 + 0）して、誰にも見せずにプラグラムが終わってるってわけだ。

な）あー

係）画面に表示する命令あっただろ。 DISPLAY だ。

な）あい…

えーとDISPLAYでA？B？どっちを表示すれば合計みえるだったかしらん。

AをBに入れるだから、Bかな。

📝 COBOL test.cob

IDENTIFICATION DIVISION.
PROGRAM-ID. TEST.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(3).
01 B PIC 9(3).

PROCEDURE DIVISION.
    ADD A TO B.
    DISPLAY B.

💻 ターミナル出力実行結果

あ、「000」って出た！！

係）というわけだ。

な）うー、たかが足し算ひとつ画面に出すだけで、長い道のりすぎ…

係）あと、最後は STOP RUN. を書いて、プログラムをちゃんと止めろ。

な）あい…

📝 COBOL test.cob　完成

IDENTIFICATION DIVISION.
PROGRAM-ID. TEST.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PIC 9(3).
01 B PIC 9(3).

PROCEDURE DIVISION.
    ADD A TO B.
    DISPLAY B.
    STOP RUN.