1 
 2 /* BEGIN INCLUDE FILE ...   cobol_linage_rec.incl.pl1 */
 3 /*     <<< LAST MODIFIED ON 7-29-74 by FCH   >>>     */
 4 
 5 /*        ***STRUCTURE SIZE INFORMATION***        */
 6 /*     THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE
 7        LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS:
 8 
 9           HARDWARE  |         SIZE (BYTES)
10           ---------------------------------
11           645/6180  |         64
12           ---------------------------------
13 */
14 
15 /*
16 A linage record is entered into variable common for each linage clause
17 specified in the data division.
18 */
19 
20 /*   THE LINAGE RECORD STRUCTURE   */
21 
22 dcl       1 linage_rec based (linage_ptr),
23                     2 body fixed bin (15),
24                     2 footing fixed bin (15),
25                     2 top fixed bin (15),
26                     2 bottom fixed bin (15),
27                     2 body_int fixed bin (31),
28                     2 footing_int fixed bin (31),
29                     2 top_int fixed bin (31),
30                     2 bottom_int fixed bin (31),
31                     2 body_name char (5),
32                     2 footing_name char (5),
33                     2 top_name char (5),
34                     2 bottom_name char (5),
35                     2 name_count fixed bin (15),
36                     2 gen_seg fixed bin (15),
37                     2 gen_offset fixed bin (31),
38                     2 name_desc(0 refer(linage_rec.name_count)) char(40);
39 
40 
41 
42 /* END INCLUDE FILE ...   cobol_linage_rec.incl.pl1 */
43