Fixed-length tables are specified using the OCCURS clause. Because seven subscripts or indexes are allowed, six nested levels and one outermost level of the Format 1 OCCURS clause are allowed. The Format 1 OCCURS clause may be specified as subordinate to the OCCURS DEPENDING ON clause. In this way, a table of up to seven dimensions may be specified.
OCCURS Clause - Format 1 - Fixed-Length Tables
>>-OCCURS--integer-2--+-------+--------------------------------->
'-TIMES-'
.------------------------------------------------------.
V |
>----+--------------------------------------------------+-+----->
| .-------------. |
| V | |
'-+-ASCENDING--+--+-----+--+----+----data-name-2-+-'
'-DESCENDING-' '-KEY-' '-IS-'
>--+-----------------------------------+-----------------------><
| .--------------. |
| V | |
'-INDEXED--+----+----index-name-1-+-'
'-BY-'
In the ILE COBOL language, integer-2 must be between 1 and 16 711 568 bytes.
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.