1 
 2 /* BEGIN INCLUDE FILE ...   cobol_fixed_static.incl.pl1 */
 3 /* Last Modified May 5, 1977 by BC */
 4 
 5 /* This structure exists in the static data portion of the
 6 linkage section of each cobol object segment.  This
 7 include file provides a "based" template for it. */
 8 
 9 /*  This include file also contains internal static initialized
10 variables that define the offset of each field in this static
11 data portion of the linkage section from the
12 pointer upon which it is based.  */
13 
14 
15 /*  WARNING:  The fields in this structure,data_ptr
16 up to, but not including reserved,
17 must retain their positions in this structure forever.
18 No new fields not having space already allocated may be
19 defined as the position of the first link which follows
20 this fixed static area (to cobol_rts_) is in a fixed location
21 known to cobol_operators_. */
22 dcl stat_ptr ptr;
23 dcl 1 stat based(stat_ptr) aligned,
24      2 data_ptr ptr aligned,
25      2 control_ptr ptr aligned,
26      2 file_info_ptr ptr aligned,
27      2 call_cnt fixed bin aligned,
28      2 data_len fixed bin aligned,
29      2 entry_pt_ptr ptr aligned,
30      2 prog_id_len fixed bin aligned,
31      2 prog_id char(65) aligned,
32      2 line_no (2) fixed bin aligned,
33      2 fo_flag fixed bin aligned,
34      2 fo_disp fixed bin aligned,
35      2 main_prog_sw fixed bin aligned,
36      2 sort_merge_sw fixed bin aligned,
37      2 ind_mask bit(36),      /* overflow masking indicator bits.     */
38      2 pr3_save ptr,
39      2 pr5_save ptr,
40      2 user_output_ptr ptr,
41      2 error_output_ptr ptr,
42      2 user_input_ptr ptr,
43      2 error_con char(30) varying,
44     2 trace_control_word fixed bin aligned;
45 
46 
47 /*  INTERNAL STATIC INITIALIZED VARIABLES THAT DEFINE THE
48 OFFSET OF EACH FIELD IN THE STATIC PORTION OF THE LINKAGE
49 SEGMENT.  */
50 
51 dcl fixed_static_length                 fixed bin static options(constant) init(56);
52 dcl first_link_offset                   fixed bin static options(constant) init(64);
53 /*dcl stat_data_ptr_off                 fixed bin static options(constant) init(0);
54 /*dcl stat_control_ptr_off              fixed bin static options(constant) init(2);
55 /*dcl stat_file_info_ptr_off            fixed bin static options(constant) init(4);
56 /*dcl stat_call_cnt_off                 fixed bin static options(constant) init(6);
57 /*dcl stat_data_len_off                 fixed bin static options(constant) init(7);
58 /*dcl stat_entry_pt_ptr_off             fixed bin static options(constant) init(8);
59 /*dcl stat_prog_id_len_off              fixed bin static options(constant) init(10);
60 /*dcl stat_prog_id_off                  fixed bin static options(constant) init(11);
61 /*dcl stat_line_no_off                  fixed bin static options(constant) init(28);
62 /*dcl stat_fo_flag_off                  fixed bin static options(constant) init(30);
63 /*dcl stat_fo_disp_off                  fixed bin static options(constant) init(31);
64 /*dcl stat_main_prog_sw_off             fixed bin static options(constant) init(32);
65 /*dcl stat_pr3_ptr_off                  fixed bin static options(constant) init(34);
66 /*dcl stat_pr5_ptr_off                  fixed bin static options(constant) init(36);
67 /*dcl stat_user_output_ptr_off                    fixed bin static options(constant) init(38);
68 /*dcl stat_error_output_ptr_off                   fixed bin static options(constant) init(40);
69 /*dcl stat_user_input_ptr_off           fixed bin static options(constant) init(42);
70 /*dcl stat_error_con_off                fixed bin static options(constant) init(44);
71 /*dcl stat_trace_control_word_off       fixed bin static options(constant) init(53);
72 /**/
73 
74 /* END INCLUDE FILE ...   cobol_fixed_static.incl.pl1 */
75