1
2
3
4 dcl i fixed bin;
5 dcl j fixed bin;
6 dcl k fixed bin;
7 dcl l fixed bin;
8 dcl message_area char(56);
9 dcl message_ptr ptr;
10 dcl 1 record based (min_ptr),
11
12 2 size fixed bin,
13 2 line fixed bin,
14 2 column fixed,
15 2 type fixed,
16 2 filler1 fixed,
17 2 filler2 fixed bin,
18 2 info,
19 3 para bit(1),
20 3 rep bit(1),
21 3 filler3 bit(6),
22 2 body char(0 refer(record.size));
23 dcl 1 rw based (min_ptr),
24
25 2 size fixed bin,
26 2 line fixed bin,
27 2 column fixed bin,
28 2 type fixed,
29
30 2 key fixed bin,
31 2 class,
32 3 filler4 bit(2),
33 3 fig_con bit(1),
34 3 terminator bit(1),
35 3 end_dec bit(1),
36 3 filler5 bit(3),
37 3 section_header bit(1),
38 3 fs_ind bit(1),
39 3 fd_clause bit(1),
40 3 dd_clause bit(1),
41 3 cd_input bit(1),
42 3 cd_output bit(1),
43 3 cset_name bit(1),
44 3 filler6 bit(11),
45 2 jump_index fixed;
46 dcl 1 numeric_lit based(min_ptr),
47
48 2 size fixed bin,
49 2 line fixed bin,
50 2 column fixed bin,
51 2 type fixed,
52
53 2 info,
54 3 integer bit(1),
55 3 floating bit(1),
56 3 filler bit(6),
57 2 sign char(1),
58 2 exp_sign char(1),
59 2 exp_places fixed,
60 2 ltdp fixed,
61 2 rtdp fixed,
62 2 length fixed bin,
63 2 literal char(nl);
64 dcl 1 alphanum_lit based(min_ptr),
65
66 2 size fixed bin,
67 2 line fixed bin,
68 2 column fixed,
69 2 type fixed,
70
71 2 info,
72 3 bit_string bit(1),
73 3 filler8 bit(7),
74 2 length fixed bin,
75 2 string char(al);
76 dcl 1 picture based(min_ptr),
77
78 2 size fixed bin,
79 2 line fixed bin,
80 2 column fixed,
81 2 type fixed,
82
83 2 length fixed,
84 2 string char(0 refer(picture.length));
85 dcl 1 message based(message_ptr),
86
87 2 size fixed bin,
88 2 line fixed bin,
89 2 column fixed,
90 2 type fixed,
91
92 2 run3 fixed,
93 2 number fixed bin,
94 2 info,
95 3 para bit(1),
96 3 rep bit(1),
97 3 fillerx bit(34),
98 2 length fixed bin,
99 2 image char(0 refer(message.length));
100
101 dcl 1 user_word based (min_ptr),
102
103 2 size fixed bin,
104 2 line fixed bin,
105 2 column fixed bin,
106 2 type fixed,
107
108 2 info bit(8),
109 2 word_size fixed bin,
110 2 word char(0 refer(user_word.word_size));
111 dcl fdn char(1000) based(dn_ptr);
112 dcl pdn_occ_ptr ptr;
113 dcl 1 numinit based (ptr1),
114 2 initype,
115 3 numeric bit(1),
116 3 non_numeric bit(1),
117 3 fig_con bit(1),
118 3 all_lit bit(1),
119 3 single bit(1),
120 3 thru1 bit(1),
121 3 thru2 bit(1),
122 3 filler12 bit(1),
123 2 info,
124 3 integer bit(1),
125 3 floating bit(1),
126 3 filler bit(6),
127 2 sign char(1),
128 2 expsign char(1),
129 2 explaces fixed,
130 2 ltdp fixed,
131 2 rtdp fixed,
132 2 length fixed,
133 2 literal char(0 refer(numinit.length));
134 dcl 1 alphainit based(ptr1),
135 2 initype,
136 3 numeric bit(1),
137 3 non_numeric bit(1),
138 3 fig_con bit(1),
139 3 all_lit bit(1),
140 3 single bit(1),
141 3 thru1 bit(1),
142 3 thru2 bit(1),
143 3 filler14 bit(1),
144 2 info,
145 3 bit_string bit(1),
146 3 fig_con_index bit(7),
147 2 length fixed bin,
148 2 string char(0 refer(alphainit.length));
149 dcl 1 editor based (ptr1),
150 2 fixed_insert fixed,
151 2 float_insert fixed,
152 2 start_supress fixed,
153 2 max_supress fixed,
154 2 length fixed bin,
155 2 ecm char(0 refer(editor.length));
156 dcl 1 debug based (ptr1),
157 2 info bit(8),
158 2 prioity char (2),
159 2 proc_num fixed bin;
160 dcl 1 indexname based (w2_ptr),
161 2 size fixed bin,
162 2 line fixed bin,
163 2 column fixed bin,
164 2 type fixed,
165 2 string_ptr ptr,
166 2 prev_rec ptr,
167 2 info bit(8),
168 2 def_line fixed bin,
169 2 level fixed bin,
170 2 seg_num fixed bin,
171 2 offset fixed bin(24),
172 2 index_no fixed bin,
173 2 min fixed bin,
174 2 max fixed bin,
175 2 struc_length fixed bin,
176 2 csdwx fixed bin,
177 2 cswd fixed bin(24),
178 2 name_size fixed,
179 2 name char(31);
180 dcl 1 conditioname based(w2_ptr),
181 2 size fixed bin,
182 2 line fixed bin,
183 2 column fixed bin,
184 2 type fixed,
185 2 string_ptr ptr,
186 2 prev_rec ptr,
187 2 info bit(8),
188 2 def_line fixed bin,
189 2 level fixed bin,
190 2 numlits fixed bin,
191 2 name_size fixed bin,
192 2 name char(31);
193 dcl 1 source based(min_ptr),
194 2 size fixed bin,
195 2 line fixed bin,
196 2 column fixed,
197 2 type fixed,
198
199 2 info fixed,
200 2 length fixed,
201 2 image char(sn);
202
203
204
205
206
207
208
209
210 dcl ffh fixed bin;
211
212 dcl 1 fd_ind based(fd_clauses_ptr),
213 2 recording_mode bit(1),
214 2 block_contain bit(1),
215 2 record_contain bit(1),
216 2 label_record bit(1),
217 2 data_record bit(1),
218 2 report_is bit(1),
219 2 linage_is bit(1),
220 2 value_of bit(1),
221 2 linage_type,
222 3 body bit(1),
223 3 footing bit(1),
224 3 top bit(1),
225 3 bottom bit(1),
226 2 label_type,
227 3 omitted bit(1),
228 3 standard bit(1),
229 3 user_spec bit(1) ;
230
231 dcl fixbin7_1 fixed;
232 dcl fixbin15 fixed bin;
233 dcl fixbin31 fixed bin(24);
234 dcl bit3 bit(3);
235 dcl bit8 bit(8);
236 dcl bit12 bit(12);
237 dcl char1 char(1);
238 dcl char4 char(4);
239 dcl char12 char(12);
240 dcl vectora(128) bit(1) based(ptr5);
241 dcl 1 vectord based(ptr5),
242 2 descr bit(72),
243 2 minivector bit(18),
244 2 filler bit(38);
245 dcl 1 vector_map based(ptr5),
246 2 file_section bit(1),
247 2 working_storage bit(1),
248 2 constant_section bit(1),
249 2 linkage_section bit(1),
250 2 communication_section bit(1),
251 2 report_section bit(1),
252 2 level_77 bit(1),
253 2 level_01 bit(1),
254 2 non_elementary bit(1),
255 2 elementary bit(1),
256 2 filler_item bit(1),
257 2 s_of_rdf bit(1),
258 2 o_of_rdf bit(1),
259 2 bin_18 bit(1),
260 2 bin_36 bit(1),
261 2 pic_has_l bit(1),
262 2 pic_is_do bit(1),
263 2 numeric bit(1),
264 2 numeric_edited bit(1),
265 2 alphanum bit(1),
266 2 alphanum_edited bit(1),
267 2 alphabetic bit(1),
268 2 alphabetic_edited bit(1),
269 2 pic_has_p bit(1),
270 2 pic_has_ast bit(1),
271 2 item_signed bit(1),
272 2 sign_separate bit(1),
273 2 display bit(1),
274 2 comp bit(1),
275 2 ascii_packed_dec_h bit(1),
276 2 ascii_packed_dec_b bit(1),
277 2 ebcdic_packed_dec bit(1),
278 2 bin_16 bit(1),
279 2 bin_32 bit(1),
280 2 usage_index bit(1),
281 2 just_right bit(1),
282 2 just_left bit(1),
283 2 sync_right bit(1),
284 2 temporary bit(1),
285 2 bwz bit(1),
286 2 variable_length bit(1),
287 2 subscripted bit(1),
288 2 occurs_do bit(1),
289 2 key_a bit(1),
290 2 key_d bit(1),
291 2 indexed_by bit(1),
292 2 value_numeric bit(1),
293 2 value_non_numeric bit(1),
294 2 value_signed bit(1),
295 2 sign_type bit(3),
296 2 pic_integer bit(1),
297 2 ast_when_zero bit(1),
298 2 label_record bit(1),
299 2 label bit(1),
300 2 sign_clause_occurred bit(1),
301 2 subject_of_keyis bit(1),
302 2 exp_redefining bit(1),
303 2 sync_in_rec bit(1),
304 2 filler61 bit(4),
305 2 sum_counter bit(1),
306 2 occurs_clause bit(1),
307 2 linage_counter bit(1),
308 2 rnm_01 bit(1),
309 2 aligned bit(1),
310 2 not_user_writable bit(1),
311 2 reserved bit(2),
312 2 pic_unsigned bit(1),
313 2 picture_clause bit(1),
314 2 sign_clause bit(1),
315 2 code_set_class1 bit(1),
316 2 value_clause bit(1),
317 2 usage_clause bit(1),
318 2 no_picture bit(1),
319 2 elem_no_value bit(1),
320 2 fig_zero bit(1),
321 2 inherit_value bit(1),
322 2 code_set bit(1),
323 2 assoc_with_signed_num_display bit(1),
324 2 pic_has_s bit(1),
325 2 filler5 bit(5);
326
327 dcl mask_descr bit(72) internal static init(
328 "111111000001011000000000001111111110000001000100011100000000000000000100"b);
329
330 dcl mask_minivector bit(18) internal static init("100100000110000000"b);
331
332 dcl mask_minivector_reverse bit(18) internal static init("000000000001000000"b);
333 dcl any_item(1000) char(1) based;
334 dcl anystring char(1000) based;
335 dcl vectemp bit(128);
336 dcl ptr6 ptr;
337 dcl 1 vectempd based(ptr6),
338 2 descr bit(72),
339 2 minivector bit(18),
340 2 filler bit(38);
341
342
343 dcl cobol_c_list entry(ptr) ext;
344 dcl cobol_ctbin entry(ptr,ptr,ptr,fixed bin) ext;
345 dcl bit8_1 bit(8);
346 dcl cobol_pic_val_comp entry(ptr,ptr) ext returns(fixed bin);
347 dcl cobol_compare_values entry(ptr,ptr,fixed bin(24),ptr) ext returns(fixed bin);
348 dcl character_tbl(7) char(1) internal static;
349 dcl ptr7 ptr;
350 dcl ptr8 ptr;
351 dcl ptr9 ptr;
352 dcl bit72 bit(72) based;
353 dcl ptr10 ptr;
354 dcl cobol_swf_get entry(ptr,bit(32),ptr,fixed bin) ext;
355 dcl cobol_vdwf_dget entry(ptr,bit(32),ptr,fixed bin,char(5)) ext;
356 dcl cobol_vdwf_dput entry(ptr,bit(32),ptr,fixed bin,char(5)) ext;
357 dcl cobol_vdwf_sput entry(ptr,bit(32),ptr,fixed bin,char(5)) ext;
358 dcl cobol_vdwf_sget entry(ptr,bit(32),ptr,fixed bin,char(5)) ext;
359 dcl htbl_minivector_bs bit(18) based(ptr7);
360
361
362