1 
 2 /* BEGIN INCLUDE FILE ... cobol_type12.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 A type 12 file name token is entered into the name table by the data
 7 division syntax phase for each file name appearing in the data division.
 8 When the replacement phase processes the procedure division minpral file,
 9 each reference to a file name is replaced with the type 12 token created
10 for that file name.
11 */
12 
13 /* dcl name_ptr ptr; */
14 
15 /* BEGIN DECLARATION OF TYPE12 (FILE NAME) TOKEN */
16 dcl       1 fd_token based (name_ptr),
17 %include cobol_TYPE12;
18 /* END DECLARATION OF TYPE12 (FILE NAME) TOKEN */
19 
20 
21 /* END INCLUDE FILE ... cobol_type12.incl.pl1 */
22