1 2 /* BEGIN INCLUDE FILE ... cobol_type17.incl.pl1 */ 3 /* Last modified on 11/19/76 by ORN */ 4 5 /* 6 A mnemonic name token is created for each user-defined mnemonic name 7 specified in the special-names paragraph. 8 */ 9 10 /* dcl name_ptr ptr; */ 11 12 /* BEGIN DECLARATION OF TYPE17 (MNEMONIC NAME) TOKEN */ 13 dcl 1 mnemonic_name based (name_ptr), 14 %include cobol_TYPE17; 15 /* END DECLARATION OF TYPE17 (MNEMONIC NAME) TOKEN */ 16 17 /* END INCLUDE FILE ... cobol_type17.incl.pl1 */ 18