1 
 2 /* BEGIN INCLUDE FILE ... cobol_type10.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 /*
 5 A type 10 index name token is entered into the name table by the data
 6 division syntax phase for each index name appearing in the data division.
 7 An index name is declared in the indexed by phrase of an occurs clause.
 8 maintain the binary byte offset, within the array, corresponding to the
 9 current setting of the index name.  The right-most two bytes contain the
10 binary occurrence number to which the index name is set.
11 When the replacement phase processes the procedure division minpral file,
12 each reference to an index name is replaced with the type 10 token created
13 for that index name.
14 */
15 
16 dcl ind_ptr ptr;
17 
18 /* BEGIN DECLARATION OF TYPE10 (INDEX NAME) TOKEN */
19 dcl       1 index_name based (ind_ptr),
20 %include cobol_TYPE10;
21 /* END DECLARATION OF TYPE10 (INDEX NAME) TOKEN */
22 
23 /* END INCLUDE FILE ... cobol_type10.incl.pl1 */
24