1 
 2 /* BEGIN INCLUDE FILE ... cobol_type18.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 A type 18 procedure reference token is entered into the procedure division
 7 minpral file by the replacement phase to replace each type 8 user word
 8 reference to a procedure name.  A type 18 token is constructed by changing
 9 the type field of the appropriate type 7 procedure definition token from
10 the name table to 18.
11 */
12 
13 dcl proc_ref_ptr ptr;
14 
15 /* BEGIN DECLARATION OF TYPE18 (PROCEDURE REFERENCE) TOKEN */
16 dcl       1 proc_ref based (proc_ref_ptr),
17 %include cobol_TYPE18;
18 /* END DECLARATION OF TYPE18 (PROCEDURE REFERENCE) TOKEN */
19 
20 /* END INCLUDE FILE ... cobol_type18.incl.pl1 */
21