1 
 2 /* BEGIN INCLUDE FILE ... cobol_type9.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 A type 9 data name token is entered into the name table by the data
 7 division syntax phase for each data name described in the data division.
 8 The replacement phase subsequently replaces type 8 user word references
 9 to data names in the procedure division minpral file with the corresponding
10 type 9 tokens from the name table.
11 */
12 
13 /* dcl dn_ptr ptr; */
14 
15 /* BEGIN DECLARATION OF TYPE9 (DATA NAME) TOKEN */
16 dcl 1 data_name based (dn_ptr),
17 %include cobol_TYPE9;
18 /* END DECLARATION OF TYPE9 (DATA NAME) TOKEN */
19 
20 /* END INCLUDE FILE ... cobol_type9.incl.pl1 */
21