在COBOL中,可以使用以下兩種方法來初始化數(shù)組:
INITIALIZE array-name [FROM data-item] [GIVING data-item]
其中,array-name是要初始化的數(shù)組名稱,data-item是一個數(shù)據(jù)項,表示初始值。如果使用FROM子句,則將data-item的值復(fù)制給數(shù)組的每個元素;如果使用GIVING子句,則將初始值存儲在data-item中。
例如,下面的代碼將一個包含10個元素的數(shù)組初始化為0:
01 ARRAY-NAME OCCURS 10 TIMES.
05 ARRAY-ELEMENT PIC 9(3).
...
INITIALIZE ARRAY-NAME
VALUE OF data-item
其中,data-item是一個數(shù)據(jù)項,表示初始值。
例如,下面的代碼將一個包含5個元素的數(shù)組初始化為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數(shù)組提供初始值。