資料部門的部分

COBOL 中的部分可以是必需的,也可以是可選的,具體取決於它們所在的部門。

DATA DIVISION.
FILE SECTION.
FD SAMPLE-FILE
01 FILE-NAME PIC X(20).
WORKING-STORAGE SECTION.
01 WS-STUDENT PIC A(10).
01 WS-ID PIC 9(5).
LOCAL-STORAGE SECTION.
01 LS-CLASS PIC 9(3).
LINKAGE SECTION.
01 LS-ID PIC 9(5).

在上面的例子中,01 是級別號。

級別編號

級別號用於指定記錄中的資料級別。它們用於區分基本專案和組專案。可以將基本專案組合在一起以建立組專案。

  • 01:記錄描述條目。組級別編號始終為 01。
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME               PIC X(25).   ---> ELEMENTARY ITEM 
01 WS-SURNAME            PIC X(25).   ---> ELEMENTARY ITEM    
01 WS-ADDRESS.                        ---> GROUP ITEM   
   05 WS-HOUSE-NUMBER    PIC 9(3).    ---> ELEMENTARY ITEM
   05 WS-STREET          PIC X(15).   ---> ELEMENTARY ITEM 
  • 02 至 49:基本專案
  • 66:重新命名子句專案
  • 77:不能細分的專案。
  • 88:88 級是一個特殊的級別號,用於提高 COBOL 程式的可讀性和改進 IF 測試。88 級看起來像另一個變數下的級別,但事實並非如此。它沒有 PICTURE,但確實有值。級別 88 始終與另一個變數相關聯,並且是該變數的條件名稱。
 01 YES-NO PIC X.
 88 ANSWER-IS-YES VALUE "Y".

以下兩個條件都測試 YES-NO 是否等於 Y

 IF YES-NO = "Y"
 IF ANSWER-IS-YES

88 級條件名稱可用於字母數字或數字變數。

圖片條款

PICTURE CLAUSE 定義了一個關於變數的兩件事:變數的大小(值在記憶體中使用的位元組數)以及可以儲存在變數中的資料型別。