1 
 2 /* BEGIN INCLUDE FILE ... cobol_ext_nonnum.incl.pl1 */
 3 /* Last modified on 01/24/77 by ORN */
 4 
 5 /* The type 9 token extension for nonnumeric initial values */
 6 
 7 dcl       1 alphainit based (valueptr),
 8             2 initype,
 9               3 numeric bit(1),
10               3 nonnumeric bit(1),
11               3 figcon bit(1),
12               3 allit bit(1),
13               3 single bit(1),
14               3 thru1 bit(1),
15               3 thru2 bit(1),
16               3 filler11 bit(1),
17             2 info,
18               3 bitstring bit(1),
19               3 figconindex bit(7),
20             2 length fixed bin(24),
21             2 string char(0 refer(alphainit.length));
22 
23 /* END INCLUDE FILE ... cobol_ext_nonnum.incl.pl1 */
24