COBOL 基本語(yǔ)法

字符集

字符是層次結(jié)構(gòu)中的最底層，它們不能被進(jìn)一步劃分。在 COBOL 字符集包括 78 個(gè)字符，如下所示：

編碼表

COBOL 的源程序必須以編譯器可接受的格式編寫。COBOL 程序?qū)懺?COBOL 編碼表上。編碼表的每一行有80 個(gè)字符位置。

字符位置分為以下五個(gè)字段：

例

下面的例子顯示了 COBOL 編碼表：

000100 IDENTIFICATION DIVISION.                                         000100
000200 PROGRAM-ID. HELLO.                                               000101
000250* THIS IS A COMMENT LINE                                          000102
000300 PROCEDURE DIVISION.                                              000103
000350 A000-FIRST-PARA.                                                 000104
000400     DISPLAY “Coding Sheet”.                                      000105
000500 STOP RUN.                                                        000106

JCL 執(zhí)行上述 COBOL 程序：

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

當(dāng)你編譯和執(zhí)行上面的程序，會(huì)產(chǎn)生以下結(jié)果：

Coding Sheet

字符串

字符 string 是通過(guò)組合單個(gè)字符形成的。字符 string 可以是

• 注釋
• 文字
• COBOL

所有字符 string 必須以分隔符結(jié)尾。分隔符用于分隔字符 string。

常用分隔符：空格，逗號(hào)，期間，撇號(hào)，左/右括號(hào)和引號(hào)。

注釋

注釋是不影響程序執(zhí)行的字符串。它可以是字符的任意組合。

有兩種類型的注釋：

注釋行

注釋行可以寫入任何列。編譯器不檢查注釋行的語(yǔ)法，并將其視為文檔。

注釋條目

注釋條目包含在識(shí)別部的可選段落中。它們寫在B區(qū)，程序員使用它作為參考。

以下示例中以粗體突出顯示的文本是注釋條目：

000100 IDENTIFICATION DIVISION.                                         000100
000150 PROGRAM-ID. HELLO.                                               000101 
000200 AUTHOR. TUTORIALSPOINT.                                          000102
000250* THIS IS A COMMENT LINE                                          000103
000300 PROCEDURE DIVISION.                                              000104
000350 A000-FIRST-PARA.                                                 000105  
000360/ First Para Begins - Documentation Purpose                       000106
000400     DISPLAY “Comment line”.                                      000107
000500 STOP RUN.                                                        000108

JCL 執(zhí)行上述 COBOL 程序：

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

當(dāng)你編譯和執(zhí)行上面的程序，會(huì)產(chǎn)生以下結(jié)果：

Comment Line

文字

文字是在程序中直接硬編碼的常數(shù)。在下面的例子中，“Hello World”的是文字。

PROCEDURE DIVISION.
DISPLAY 'Hello World'.

如下述，有兩種文字類型：

字母數(shù)字文字

字母數(shù)字文字用雙引號(hào)或撇號(hào)括起來(lái)。長(zhǎng)度最多可達(dá) 160 個(gè)字符。撇號(hào)或雙引號(hào)只有在成對(duì)時(shí)才可以是文字的一部分。無(wú)論是撇號(hào)或雙引號(hào)，在文字的開始和結(jié)尾應(yīng)該是一樣的。

例

下面的示例顯示有效和無(wú)效的字母數(shù)文字：

Valid:
‘This is valid’
"This is valid"
‘This isn’’t invalid’

Invalid:
‘This is invalid”
‘This isn’t valid’

數(shù)字文字

數(shù)字文字是從 0 到 9，+，-，或小數(shù)點(diǎn)的數(shù)字組合。長(zhǎng)度最多可達(dá) 18 個(gè)字符。符號(hào)不能是最右邊的字符。小數(shù)點(diǎn)不能出現(xiàn)在最后。

例

下面的示例顯示有效和無(wú)效的數(shù)字文字：

Valid:
100
+10.9
-1.9

Invalid:
1,00
10.
10.9-

COBOL 詞

COBOL詞是一個(gè)字符串，可以是保留詞，或者用戶自定義的詞。長(zhǎng)度最多可達(dá) 30 個(gè)字符。

用戶自定義

用戶自定義詞用于命名文件，數(shù)據(jù)，記錄，段名和節(jié)。允許字母，數(shù)字和連字符用于用戶自定義詞。不能使用 COBOL 保留詞。

保留詞

保留詞是 COBOL 中預(yù)定義的詞。我們經(jīng)常使用的保留詞的不同類型如下：

• 關(guān)鍵詞：如 ADD，ACCEPT，MOVE 等。

• 特殊字符：如+，-，*，<，<=等。

• 象征常數(shù)：是常數(shù)值，如 ZERO，SPACES 等。象征常數(shù)的所有常數(shù)值參照下表。

象征常數(shù)