精通cobol－－9.5.3 对表初始化的一些灵活技巧

来源：互联网发布：阿里巴巴淘宝城规划编辑：程序博客网时间：2024/05/19 12:40

　　掌握对表初始化的一些灵活技巧，对于实际编码将带来一定的方便之处。下面分别介绍两种常用的灵活技巧。

（1）直接在01级数据项后对整张表进行初始化，方式如下。

01 SAMPLE-TABLE-ONE VALUE ‘ABCDE’.

05 SAMPLE-ITEMS-ONE PIC X

OCCURS 5 TIMES.

该方式和使用下面初始化代码实现的效果是一样的。

01 SAMPLE-DATA-ONE.

05 FILLER PIC X VALUE ‘A’.

05 PIC X VALUE ‘B’.

05 PIC X VALUE ‘C’.

05 PIC X VALUE ‘D’.

05 PIC X VALUE ‘E’.

01 SAMPLE-TABLE-ONE REDEFINES SAMPLE-DATA-ONE.

05 SAMPLE-ITEMS-ONE PIC X OCCURS 5 TIMES.

（2）直接在数据项后对其进行初始化，方式如下。

01 SAMPLE-TABLE-TWO.

05 SAMPLE-ENTRY-TWO OCCURS 2 TIMES.

10 SAMPLE-ITEM-NUM PIC 99 VALUE 00.

10 SAMPLE-ITEM-DATA PIC XX VALUE ‘AA’.

该方式和使用下面初始化代码实现的效果是一样的。

01 SAMPLE-DATA-TWO.

05 FILLER PIC 99 VALUE 00.

05 PIC XX VALUE ‘AA’.

05 PIC 99 VALUE 00.

05 PIC XX VALUE ‘AA’.

01 SAMPLE-TABLE-TWO REDEFINES SAMPLE-DATA-TWO.

05 SAMPLE-ENTRY-TWO OCCURS 2 TIMES.

10 SAMPLE-ITEM-NUM PIC 99.

10 SAMPLE-ITEM-DATA PIC XX.