1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 dcl 1 fixed_common based ( cobol_com_ptr),
27 2 prog_name char (30),
28 2 compiler_rev_no char (25),
29 2 phase_name char (6),
30 2 currency char (1),
31 2 fatal_no fixed bin,
32 2 warn_no fixed bin,
33 2 proc_counter fixed bin,
34 2 spec_tag_counter fixed bin,
35 2 file_count fixed bin,
36 2 filedescr_offsets (20) char (5),
37 2 perf_alter_info char (5),
38 2 another_perform_info char (5),
39 2 sort_in_info char (5),
40 2 odo_info char (5),
41 2 size_seg fixed bin,
42 2 size_offset fixed bin(24),
43 2 size_perform_info char (5),
44 2 rename_info char (5),
45 2 report_names char (5),
46 2 rw_buf_seg fixed bin,
47 2 rw_buf_offset fixed bin(24),
48 2 rw_buf_length fixed bin(24),
49 2 file_keys char (5),
50 2 search_keys char (5),
51 2 dd_seg_size fixed bin(24),
52 2 pd_seg_size fixed bin(24),
53 2 seg_limit fixed bin ,
54 2 number_of_dd_segs fixed bin,
55 2 seg_info char (5),
56 2 number_of_ls_pointers fixed bin,
57 2 link_sec_seg fixed bin,
58 2 link_sec_offset fixed bin(24),
59 2 sra_clauses fixed bin,
60 2 fix_up_info char (5),
61 2 linage_info char (5),
62 2 first_dd_item char (5),
63 2 sort_out_info char (5),
64 2 db_info char (5),
65 2 realm_info char (5),
66 2 rc_realm_info char (5),
67 2 last_file_key char (5),
68 2 prog_coll_seq fixed bin,
69 2 init_cd_seg fixed bin,
70 2 init_cd_offset fixed bin(24),
71 2 input_error_exit fixed bin,
72 2 output_error_exit fixed bin,
73 2 i_o_error_exit fixed bin,
74 2 extend_error_exit fixed bin,
75 2 dummy15 fixed bin,
76 2 options,
77 3 cu bit (1),
78 3 st bit (1),
79 3 wn bit (1),
80 3 obs bit (1),
81 3 dm bit (1),
82 3 xrl bit (1),
83 3 xrn bit (1),
84 3 src bit (1),
85 3 obj bit (1),
86 3 exs bit (1),
87 3 sck bit (1),
88 3 rno bit (1),
89 3 u_l bit (1),
90 3 cnv bit (1),
91 3 cos bit (1),
92 3 fmt bit (1),
93 3 profile bit(1),
94 3 nw bit (1),
95 3 exp bit (1),
96 3 card bit (1),
97 3 fil2 bit (5),
98 3 m_map bit (1),
99 3 m_bf bit (1),
100 3 m_fat bit (1),
101 3 m_wn bit (1),
102 3 m_obs bit(1),
103 3 pd bit(1),
104 3 oc bit(1),
105 2 supervisor bit (1),
106 2 dec_comma bit (1),
107 2 init_cd bit (1),
108 2 corr bit (1),
109 2 initl bit (1),
110 2 debug bit (1),
111 2 report bit (1),
112 2 sync_in_prog bit (1),
113 2 pd_section bit (1),
114 2 list_switch bit (1),
115 2 alpha_cond bit (1),
116 2 num_cond bit (1),
117 2 spec_sysin bit (1),
118 2 spec_sysout bit (1),
119 2 cpl_files bit (1),
120 2 obj_dec_comma bit (1),
121 2 default_sign_type bit (3),
122 2 use_debug bit(1),
123 2 syntax_trace bit(1),
124 2 comp_defaults,
125 3 comp bit(1),
126 3 comp_1 bit(1),
127 3 comp_2 bit(1),
128 3 comp_3 bit(1),
129 3 comp_4 bit(1),
130 3 comp_5 bit(1),
131 3 comp_6 bit(1),
132 3 comp_7 bit(1),
133 3 comp_8 bit(1),
134 2 disp_defaults,
135 3 disp bit(1),
136 3 disp_1 bit(1),
137 3 disp_2 bit(1),
138 3 disp_3 bit(1),
139 3 disp_4 bit(1),
140 3 disp_5 bit(1),
141 3 disp_6 bit(1),
142 3 disp_7 bit(1),
143 2 descriptor bit(2),
144 2 levsv bit(3),
145 2 use_reporting bit(1),
146 2 cd bit(1),
147 2 dummy17 bit(3),
148 2 lvl_rstr bit(32),
149 2 inst_rstr bit(32),
150 2 comp_level char(1),
151 2 dummy18 char(30),
152 2 object_sign char (1),
153 2 last_print_rec char (5),
154 2 coll_seq_info char (5),
155 2 sys_status_seg fixed bin,
156 2 sys_status_offset fixed bin(24),
157 2 compiler_id fixed bin,
158 2 date_comp_ln fixed bin,
159 2 compile_mode bit(36),
160 2 default_temp fixed bin,
161 2 accept_device fixed bin,
162 2 display_device fixed bin,
163 2 cobol_cln fixed bin,
164 2 alphabet_offset fixed bin;
165
166
167
168
169