COBOL - 基本語法

---

---

字元集

“字元”在層次結構中處於最低層，並且不能再進一步細分。COBOL 字元集包含 78 個字元，如下所示：

編碼表

COBOL 的源程式必須以編譯器可以接受的格式編寫。COBOL 程式寫在 COBOL 編碼表上。編碼表每一行的字元位置有 80 個。

字元位置被分為以下五個欄位：

示例

以下示例顯示了一個 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 執行上述 COBOL 程式：

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

編譯並執行上述程式後，將產生以下結果：

Coding Sheet

字元字串

字元字串是由組合單個字元形成的。字元字串可以是

• 註釋，
• 文字，或
• COBOL 字。

所有字元字串都必須以分隔符結尾。分隔符用於分隔字元字串。

常用分隔符：空格、逗號、句點、撇號、左/右括號和引號。

註釋

註釋是不會影響程式執行的字元字串。它可以是任何字元組合。

註釋有兩種型別：

註釋行

註釋行可以寫在任何列。編譯器不會檢查註釋行的語法，並將它視為文件。

註釋條目

註釋條目是包含在 Identification Division 的可選段落中的條目。它們寫在 B 區，程式設計師用它作參考。

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

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 執行上述 COBOL 程式：

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

編譯並執行上述程式後，將產生以下結果：

Comment Line

文字

文字是在程式中直接硬編碼的常量。在以下示例中，“Hello World”是一個文字。

PROCEDURE DIVISION.
DISPLAY 'Hello World'.

文字有兩種型別，如下所述：

字母數字文字

字母數字文字用引號或撇號括起來。長度最多可達 160 個字元。撇號或引號只能作為文字的一部分，前提是它們是配對的。文字的開始和結束必須相同，要麼是撇號，要麼是引號。

示例

以下示例顯示了有效的和無效的字母數字文字：

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

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

數字文字

數字文字是 0 到 9 的數字、+、- 或小數點的組合。長度最多可達 18 個字元。符號不能是右邊的最一個字元。小數點不能出現在末尾。

示例

以下示例顯示了有效的和無效的數字文字：

Valid:
   100
   +10.9
   -1.9

Invalid:
   1,00
   10.
   10.9-

COBOL 字

COBOL 字是可以是保留字或使用者定義字的字元字串。長度最多可達 30 個字元。

使用者定義

使用者定義字用於命名檔案、資料、記錄、段落名稱和節。在形成使用者定義字時，允許使用字母、數字和連字元。不能使用 COBOL 保留字。

保留字

保留字是 COBOL 中預定義的字。我們經常使用的各種型別的保留字如下：

• 關鍵字，如 ADD、ACCEPT、MOVE 等。

• 特殊字元字，如 +、-、*、<、<= 等

• 虛擬常量是像 ZERO、SPACES 等常量值。虛擬常量的所有常量值都在下表中列出。

虛擬常量