1 
 2 /* BEGIN INCLUDE FILE... cobol_type102.incl.pl1 */
 3 /* Last modified on 1/19/76 by ORN */
 4 
 5 /*
 6 An immediate constant token is created during the
 7 generation of code that performs arithmetic in the hardware
 8 registers, for any numeric literal token whose value is within
 9 the range:  (-131072,131071).
10 */
11 
12 dcl immed_const_ptr ptr;
13 
14 /* BEGIN DECLARATION OF TYPE102 (IMMEDIATE CONSTANT) TOKEN */
15 dcl 1 immed_const based(immed_const_ptr),
16           /* header */
17           2 size fixed bin (15),
18           2 line fixed bin (15),
19           2 column fixed bin (15),
20           2 type fixed bin (15),
21           /* body */
22           2 const_value fixed bin (35);
23 /* END DECLARATION OF TYPE102 (IMMEDIATE CONSTANT) TOKEN */
24 
25 /*
26 FIELD               CONTENTS
27 
28 size                The total size in bytes of this immediate
29                     constant token.
30 line                not used
31 column              not used
32 type                102
33 const_value         The fixed binary value of the immediate constant.
34 */
35 
36 /* END INCLUDE FILE... cobol_type102.incl.pl1 */
37