阅读量:2
在COBOL中,可以使用以下两种方法来初始化数组:
- 使用INITIALIZE语句:这个语句用于为数组的所有元素赋予一个初始值。语法如下:
INITIALIZE array-name [FROM data-item] [GIVING data-item]
其中,array-name是要初始化的数组名称,data-item是一个数据项,表示初始值。如果使用FROM子句,则将data-item的值复制给数组的每个元素;如果使用GIVING子句,则将初始值存储在data-item中。
例如,下面的代码将一个包含10个元素的数组初始化为0:
01 ARRAY-NAME OCCURS 10 TIMES. 05 ARRAY-ELEMENT PIC 9(3). ... INITIALIZE ARRAY-NAME
- 使用VALUE子句:这个子句用于为数组的每个元素指定一个初始值。语法如下:
VALUE OF data-item
其中,data-item是一个数据项,表示初始值。
例如,下面的代码将一个包含5个元素的数组初始化为1、2、3、4和5:
01 ARRAY-NAME OCCURS 5 TIMES. 05 ARRAY-ELEMENT PIC 9(3). ... VALUE OF ARRAY-ELEMENT IS 1, 2, 3, 4, 5
无论使用哪种方法,都可以为COBOL数组提供初始值。