1 
 2 /* BEGIN INCLUDE FILE ... cobol_type20.incl.pl1 */
 3 /* Last modified on 01/24/77 by ORN */
 4 
 5 /* The report token */
 6 
 7 dcl report_ptr ptr;
 8 dcl 1 report_token based(report_ptr),
 9           2 header,
10             3 size fixed bin,
11             3 line fixed bin,
12             3 column fixed bin,
13             3 type fixed bin,    /* = 20 */
14           2 body,
15             3 string_ptr ptr,
16             3 prev_rec ptr,
17             3 info bit(7),
18             3 rep_defined bit(1),
19             3 def_line fixed bin,
20             3 level fixed bin,   /* = 0 */
21             3 report_no fixed bin,
22             3 group_no fixed bin,
23             3 file_no fixed bin,
24             3 page_seg fixed bin,
25             3 page_add fixed bin(24),
26             3 line_seg fixed bin,
27             3 line_add fixed bin(24),
28             3 seg_no fixed bin,
29             3 rwct_add fixed bin(24),
30             3 rwct_size fixed bin,
31             3 code char(2),
32             3 controls fixed bin,
33             3 page_limit fixed bin,
34             3 heading fixed bin,
35             3 first_detail fixed bin,
36             3 last_detail fixed bin,
37             3 footing fixed bin,
38             3 da_no fixed bin,
39             3 name_size fixed bin,
40             3 name char(0 refer(report_token.name_size));
41 
42 /* END INCLUDE FILE ... cobol_type20.incl.pl1 */
43