COBOL 中的工作存储部分

COBOL 中的工作存储部分（Working-Storage section）是程序用来存储临时数据、变量、数组等的区域。该部分通常位于 COBOL 程序的顶部，在程序一开始时分配。

定义变量

在 Working-Storage section 中，可以定义各种类型的变量，例如：

WORKING-STORAGE SECTION.
01 MY-NUMBER PIC 9(5).
01 MY-STRING PIC X(10).
01 MY-FLAG PIC 9 VALUE ZERO.

其中，PIC 用于定义变量的数据类型和占位长度，VALUE 可以用于给变量赋初值。

定义数组

Working-Storage section 也可以定义数组，例如：

WORKING-STORAGE SECTION.
01 MY-ARRAY.
   05 MY-ELEM PIC 9(5) OCCURS 10 TIMES.

上述代码定义了一个包含 10 个元素的整型数组。

定义记录

Working-Storage section 也可以定义记录（Record），例如：

WORKING-STORAGE SECTION.
01 PERSON-RECORD.
   05 NAME PIC X(20).
   05 AGE PIC 9(3).

上述代码定义了一个包含姓名和年龄两个字段的记录类型。

引用变量、数组和记录

在程序的其他部分，可以通过以下方式引用 Working-Storage section 中定义的变量、数组和记录：

MOVE 12345 TO MY-NUMBER.
MOVE "Hello" TO MY-STRING.
ADD 1 TO MY-FLAG.

MOVE 67890 TO MY-ARRAY(3).
ADD MY-ARRAY(5) TO MY-ARRAY(6).

MOVE "John" TO NAME OF PERSON-RECORD.
MOVE 30 TO AGE OF PERSON-RECORD.

DISPLAY MY-STRING.
DISPLAY MY-ARRAY(6).
DISPLAY NAME OF PERSON-RECORD.

上述代码演示了如何引用 Working-Storage section 中定义的各种数据结构。

Working-Storage section 是 COBOL 程序中必不可少的一部分，它提供了程序所需的变量、数组和记录等数据结构。