Hello World

HELLO * HISTORIC EXAMPLE OF HELLO WORLD IN COBOL
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.
       PROCEDURE DIVISION.
           DISPLAY "HELLO, WORLD".
           STOP RUN.

打卡布局和僅大寫輸入的日子遠遠落後。然而,大多數 COBOL 實現仍然處理相同的程式碼佈局。甚至當前的實現也遵循相同的(通常甚至是大寫的)編譯和生產。

格式良好的現代實現可能如下所示:

*> Hello, world
identification division.
program-id. hello.

procedure division.
display "Hello, world"
goback.
end program hello.

通過 COBOL 的一些實現,可以縮短為:

display "Hello, world".

這種格式通常需要編譯時開關才能將 COBOL 編譯器置於寬鬆的語法模式,因為缺少一些通常必需的 DIVISION 語句。

COBOL 預設採用 FIXED 格式源,即使在當前規範中也是如此。

2002 年之前的 COBOL

區域
1-6 序號區域
7 指標區
8-12 A 區
12-72 B 區
73-80 程式名稱區域

在某些情況下,仍然為此表單配置 IBM 大型機文字編輯器。

2002 年後,進入 COBOL 2014,區域 A 和 B 合併並擴充套件到第 255 列,並刪除了程式名稱區域。

區域
1-6 序號區域
7 指標區
8- 程式文字區域

第 8 列通過實現定義的列 Margin R ,通常仍然限於第 72 列,但規範允許執行到第 255 列。

COBOL 2002 引入了 FORMAT FREE 源文字。沒有序列號區域,沒有指示區域,源線可以是任何長度(最多為實現定義的邊際 R 限制,通常每行少於 2048 個字元,通常為 255)。

但預設情況下,編譯器以 FORMAT FIXED 模式啟動。在識別自由格式源之前,通常會有編譯開關或編譯器指令工具宣告。

bbbbbb >>SOURCE FORMAT IS FREE

bbbbbb 代表 6 個空格或任何其他字元。 (這些將作為初始預設固定格式模式序列號區域的一部分被忽略。)