1 
 2 /*  BEGIN INCLUDE FILE ...   cobol_definitions.incl.pl1                 */
 3 
 4 /*  Last modified June 27, 1974 by AEG                        */
 5 
 6 
 7 declare   1 def_header aligned based(def_base_ptr),
 8             2 def_list_relp bit(18) unaligned,
 9             2 unused bit(36) unaligned,
10             2 flags unaligned,
11               3 new_format bit(1) unaligned,
12               3 ignore bit(1) unaligned,
13               3 unused bit(16) unaligned;
14 
15 
16 /*  Non-Class-3 Definitions                                   */
17 
18 
19 declare   def_ptr ptr;
20 
21 
22 declare   1 definition aligned based(def_ptr),
23             2 forward_thread bit(18) unaligned,
24             2 backward_thread bit(18) unaligned,
25             2 value bit(18) unaligned,
26             2 flags unaligned,
27               3 new_format bit(1) unaligned,
28               3 ignore bit(1) unaligned,
29               3 entrypoint bit(1) unaligned,
30               3 retain bit(1) unaligned,
31               3 descr_sw bit(1) unaligned,
32               3 unused bit(10) unaligned,
33             2 class bit(3) unaligned,
34             2 symbol_relp bit(18) unaligned,
35             2 segname_relp bit(18) unaligned,
36             2 n_args fixed bin(17) unaligned,
37             2 descriptor (0 refer(definition.n_args)) bit(18) unaligned;
38 
39 
40 /*  Class-3 Definition                                        */
41 
42 
43 declare   1 segname aligned based(def_ptr),
44             2 forward_thread bit(18) unaligned,
45             2 backward_thread bit(18) unaligned,
46             2 segname_thread bit(18) unaligned,
47             2 flags bit(15) unaligned,
48             2 class bit(3) unaligned,
49             2 symbol_relp bit(18) unaligned,
50             2 first_relp bit(18) unaligned;
51 
52 
53 
54 /*  END INCLUDE FILE ...   cobol_definitions.incl.pl1                   */
55