1 
 2 /* BEGIN INCLUDE FILE ... cobol_type40.incl.pl1 */
 3 /* Last modified on 11/19/76 by ORN */
 4 
 5 /*
 6 A type 40 token is entered into the name table by the IDED syntax.
 7 This token contains the information for the alphabet name.
 8 */
 9 
10 dcl       alpha_name_ptr      ptr;
11 
12 /* BEGIN DECLARATION OF TYPE40 (ALPHABET NAME) TOKEN */
13 dcl 1 alphabet_name based (alpha_name_ptr),
14 %include cobol_TYPE40;
15 /* END DECLARATION OF TYPE40 (ALPHABET NAME) TOKEN */
16 
17 /* END INCLUDE FILE ... cobol_type40.incl.pl1 */
18