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 個空格或任何其他字元。 (這些將作為初始預設固定格式模式序列號區域的一部分被忽略。)