精通cobol－－9.5.1 使用硬性编码方式初始化表

　　使用硬性编码方式初始化表，主要是通过VALUE语句实现的。VALUE跟在每个具体数据项之后（非数据条目）。VALUE语句指定的值也就是该数据的初始化值。对表中每个数据项初始化后，也就实现了对整个表的初始化。

例如，对于保存一周７天的数据的表，通过硬性编码方式初始化代码如下。

01   WEEK-VALUES.

      05   FILLER   PIC X(10)     VALUE  ‘MONDAY’.

05            PIC X(10)     VALUE  ‘TUESDAY’.

05            PIC X(10)     VALUE  ‘WEDNESDAY’.

05            PIC X(10)     VALUE  ‘THURSDAY’.

05            PIC X(10)     VALUE  ‘FRIDAY’.

05            PIC X(10)     VALUE  ‘SATURDAY’.

05            PIC X(10)     VALUE  ‘SUNDAY’.

01   WEEK-TABLE-ONE   REDEFINES   WEEK-VALUES.

      05   DAYS     PIC X(10)     OCCURS 7 TIMES.

可以看到，使用硬性编码方式初试化表，实际上可依此通过以下三步组成。

（1）使用VALUE语句给表中需要用到的各数据赋初值，并写入存储空间。

（2）使用REDEFINES语句为以上数据存储空间指定另一个名称，即表名。

（3）使用OCCURS语句建立表。

这里需要特别注意的是，REDEFINES语句仅仅是为以上存储空间另指定一个名称而已。该语句并没有再另外单独开辟一块存储空间。该语句作用于存储空间的方式如图所示。