1 
 2 /* BEGIN INCLUDE FILE ... cobol_ext_num.incl.pl1 */
 3 /* Last modified on 01/24/77 by ORN */
 4 
 5 /* The type 9 token extension for numeric initial values */
 6 
 7 dcl       1 numinit 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 filler9 bit(1),
17             2 info,
18               3 integer bit(1),
19               3 floating bit(1),
20               3 filler10 bit(6),
21             2 sign char(1),
22             2 expsign char(1),
23             2 explaces fixed bin(24),
24             2 ltdp fixed bin(24),
25             2 rtdp fixed bin(24),
26             2 length fixed bin(24),
27             2 literal char(0 refer(numinit.length));
28 
29 /* END INCLUDE FILE ... cobol_ext_num.incl.pl1 */
30