資料部門的部分
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 定義了一個關於變數的兩件事:變數的大小(值在記憶體中使用的位元組數)以及可以儲存在變數中的資料型別。