数据部门的部分

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 定义了一个关于变量的两件事：变量的大小（值在内存中使用的字节数）以及可以存储在变量中的数据类型。