1 
 2 /* BEGIN INCLUDE FILE ... cobol_type2.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 A type 2 numeric literal token is entered into the minpral file by the
 7 lexical analysis phase for each numeric literal encountered in the source
 8 program.
 9 */
10 
11 dcl nlit_ptr ptr;
12 
13 /* BEGIN DECLARATION OF TYPE2 (NUMERIC LITERAL) TOKEN */
14 dcl 1 numeric_lit based (nlit_ptr),
15 %include cobol_TYPE2;
16 /* END DECLARATION OF TYPE2 (NUMERIC LITERAL) TOKEN */
17 
18 /* END INCLUDE FILE ... cobol_type2.incl.pl1 */
19