GnuCOBOL  2.0
A free COBOL compiler
cobxref.c
Go to the documentation of this file.
1 /* Generated by cobc 2.0.0 */
2 /* Generated from cobxref.cbl */
3 /* Generated at Apr 17 2016 03:18:59 */
4 /* GnuCOBOL build date Apr 16 2016 12:25:23 */
5 /* GnuCOBOL package date Oct 25 2015 21:40:28 UTC */
6 /* Compile command cobc -x -g cobxref.cbl get-reserved-lists.cbl */
7 
8 #include <stdio.h>
9 #include <stdlib.h>
10 #include <stddef.h>
11 #include <string.h>
12 #include <math.h>
13 #define COB_KEYWORD_INLINE __inline
14 #include <libcob.h>
15 
16 #define COB_SOURCE_FILE "cobxref.cbl"
17 #define COB_PACKAGE_VERSION "2.0"
18 #define COB_PATCH_LEVEL 0
19 #define COB_MODULE_FORMATTED_DATE "Apr 17 2016 03:18:59"
20 #define COB_MODULE_DATE 20160417
21 #define COB_MODULE_TIME 31859
22 
23 /* Global variables */
24 #include "cobxref.c.h"
25 
26 /* Function prototypes */
27 
28 static int cobxref ();
29 static int cobxref_ (const int);
30 
31 /* Main function */
32 int
33 main (int argc, char **argv)
34 {
35  cob_init (argc, argv);
36  cob_stop_run (cobxref ());
37 }
38 
39 /* Functions */
40 
41 /* PROGRAM-ID 'cobxref' */
42 
43 /* ENTRY 'cobxref' */
44 
45 static int
46 cobxref ()
47 {
48  return cobxref_ (0);
49 }
50 
51 static int
52 cobxref_ (const int entry)
53 {
54  /* Program local variables */
55  #include "cobxref.c.l.h"
56 
57  /* Start of function code */
58 
59  /* CANCEL callback */
60  if (unlikely(entry < 0)) {
61  goto P_cancel;
62  }
63 
64  /* Check initialized, check module allocated, */
65  /* set global pointer, */
66  /* push module stack, save call parameter count */
67  cob_module_enter (&module, &cob_glob_ptr, 0);
68 
69  /* Set address of module parameter list */
70  module->cob_procedure_params = cob_procedure_params;
71 
72  /* Set frame stack pointer */
73  frame_ptr = frame_stack;
74  frame_ptr->perform_through = 0;
75  frame_overflow = frame_ptr + 255 - 1;
76 
77  /* Initialize rest of program */
78  if (unlikely(initialized == 0)) {
79  goto P_initialize;
80  }
81  P_ret_initialize:
82 
83  /* Allocate decimal numbers */
84  cob_decimal_alloc (2, &d0, &d1);
85 
86  /* Increment module active */
87  module->module_active++;
88 
89  /* Save number of call params */
90  module->module_num_params = cob_glob_ptr->cob_call_params;
91 
92  /* Entry dispatch */
93  goto l_2;
94 
95  /* PROCEDURE DIVISION */
96 
97  /* Line: 1172 : Entry cobxref : cobxref.cbl */
98  l_2:;
99 
100  /* Line: 1172 : Section aa000-xref-Data : cobxref.cbl */
101 
102  /* Line: 1197 : PERFORM : cobxref.cbl */
103  cob_set_location (st_1, 1197, st_2, NULL, st_3);
104  /* PERFORM zz190-Init-Program THRU zz190-Exit */
105  frame_ptr++;
106  if (unlikely(frame_ptr == frame_overflow))
107  cob_fatal_error (COB_FERROR_STACK);
108  frame_ptr->perform_through = 155;
109  frame_ptr->return_address_ptr = &&l_161;
110  goto l_154;
111  l_161:
112  frame_ptr--;
113 
114  /* Line: 1198 : MOVE : cobxref.cbl */
115  cob_set_location (st_1, 1198, st_2, NULL, st_4);
116  memset (b_963, 255, 76 * (*(int *)(b_973)));
117 
118  /* Line: 1200 : MOVE : cobxref.cbl */
119  cob_set_location (st_1, 1200, st_2, NULL, st_4);
120  (*(cob_s8_ptr) (b_47)) = 0;
121 
122  /* Line: 1201 : CALL : cobxref.cbl */
123  cob_set_location (st_1, 1201, st_2, NULL, st_5);
124  cob_procedure_params[0] = &f_47;
125  cob_procedure_params[1] = &f_363;
126  cob_procedure_params[2] = &f_368;
127  cob_procedure_params[3] = &f_949;
128  cob_procedure_params[4] = &f_954;
129  cob_glob_ptr->cob_call_params = 5;
130  if (unlikely(call_get__reserved__lists.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel)) {
131  call_get__reserved__lists.funcvoid = cob_resolve_cobol ("get-reserved-lists", 0, 1);
132  }
133  b_1 = call_get__reserved__lists.funcint (b_47, b_269, b_368, b_369, b_954);
134 
135  /* Line: 1207 : IF : cobxref.cbl */
136  cob_set_location (st_1, 1207, st_2, NULL, st_6);
137  if (((int)cob_cmp_s8 (b_47, 0) != 0))
138  {
139 
140  /* Line: 1208 : DISPLAY : cobxref.cbl */
141  cob_set_location (st_1, 1208, st_2, NULL, st_7);
142  cob_display (0, 1, 1, &f_235);
143  }
144 
145  /* Line: 1213 : SORT : cobxref.cbl */
146  cob_set_location (st_1, 1213, st_2, NULL, st_8);
147  cob_table_sort_init (1, 0);
148  cob_table_sort_init_key (&f_953, 0, 1);
149  cob_table_sort (COB_SET_FLD(f0, 31, b_369 + 31 * 0, &a_2), 1024);
150 
151  /* Line: 1214 : SORT : cobxref.cbl */
152  cob_set_location (st_1, 1214, st_2, NULL, st_8);
153  cob_table_sort_init (1, 0);
154  cob_table_sort_init_key (&f_367, 0, 1);
155  cob_table_sort (COB_SET_FLD(f0, 31, b_269 + 31 * 0, &a_2), 256);
156 
157  /* Line: 1216 : PERFORM : cobxref.cbl */
158  cob_set_location (st_1, 1216, st_2, NULL, st_3);
159  /* PERFORM zz180-Open-Source-File THRU zz180-Exit */
160  frame_ptr++;
161  if (unlikely(frame_ptr == frame_overflow))
162  cob_fatal_error (COB_FERROR_STACK);
163  frame_ptr->perform_through = 153;
164  frame_ptr->return_address_ptr = &&l_162;
165  goto l_148;
166  l_162:
167  frame_ptr--;
168 
169  /* Line: 1220 : IF : cobxref.cbl */
170  cob_set_location (st_1, 1220, st_2, NULL, st_6);
171  if (((int)cob_cmp_numdisp (b_75, 1, 1LL, 0) == 0))
172  {
173 
174  /* Line: 1221 : PERFORM : cobxref.cbl */
175  cob_set_location (st_1, 1221, st_2, NULL, st_3);
176  (*(int *)(b_55)) = 1;
177  for (;;)
178  {
179  if (((int)cob_cmp_s32 (b_55, ((int)COB_BSWAP_32(*(int *)(b_954)))) > 0))
180  break;
181 
182  /* Line: 1222 : DISPLAY : cobxref.cbl */
183  cob_set_location (st_1, 1222, st_2, NULL, st_7);
184  cob_display (0, 1, 1, COB_SET_FLD(f0, 30, b_369 + 1 + 31 * ((*(int *)(b_55)) - 1), &a_4));
185  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
186  }
187 
188  /* Line: 1225 : PERFORM : cobxref.cbl */
189  cob_set_location (st_1, 1225, st_2, NULL, st_3);
190  (*(int *)(b_55)) = 1;
191  for (;;)
192  {
193  if (((int)cob_cmp_s32 (b_55, ((int)COB_BSWAP_32(*(int *)(b_368)))) > 0))
194  break;
195 
196  /* Line: 1226 : DISPLAY : cobxref.cbl */
197  cob_set_location (st_1, 1226, st_2, NULL, st_7);
198  cob_display (0, 1, 1, COB_SET_FLD(f0, 30, b_269 + 1 + 31 * ((*(int *)(b_55)) - 1), &a_4));
199  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
200  }
201 
202  /* Line: 1229 : MOVE : cobxref.cbl */
203  cob_set_location (st_1, 1229, st_2, NULL, st_4);
204  b_1 = 0;
205 
206  /* Line: 1231 : GOBACK : cobxref.cbl */
207  cob_set_location (st_1, 1231, st_2, NULL, st_9);
208  goto exit_program;
209  }
210 
211  /* Line: 1233 : OPEN : cobxref.cbl */
212  cob_set_location (st_1, 1233, st_2, NULL, st_10);
213  cob_open (h_SOURCE_LISTING, 2, 0, NULL);
214  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
215  {
216  /* PERFORM Default Error Handler */
217  frame_ptr++;
218  if (unlikely(frame_ptr == frame_overflow))
219  cob_fatal_error (COB_FERROR_STACK);
220  frame_ptr->perform_through = 1;
221  frame_ptr->return_address_ptr = &&l_163;
222  goto l_1;
223  l_163:
224  frame_ptr--;
225  }
226 
227  /* Line: 1234 : IF : cobxref.cbl */
228  cob_set_location (st_1, 1234, st_2, NULL, st_6);
229  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
230  {
231 
232  /* Line: 1235 : MOVE : cobxref.cbl */
233  cob_set_location (st_1, 1235, st_2, NULL, st_4);
234  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 31, b_116 + 0, &a_4)), &f_125);
235  }
236  else
237  {
238  /* ELSE */
239 
240  /* Line: 1237 : MOVE : cobxref.cbl */
241  cob_set_location (st_1, 1237, st_2, NULL, st_4);
242  cob_move (cob_intr_upper_case (0, 0, COB_SET_FLD(f0, 31, b_116 + 0, &a_4)), &f_125);
243  }
244 
245  /* Line: 1239 : MOVE : cobxref.cbl */
246  cob_set_location (st_1, 1239, st_2, NULL, st_4);
247  memcpy (b_126, b_125, 32);
248 
249  /* Line: 1240 : MOVE : cobxref.cbl */
250  cob_set_location (st_1, 1240, st_2, NULL, st_4);
251  memset (b_242, 32, 768);
252 
253  /* Line: 1244 : Paragraph aa020-Bypass-Open : cobxref.cbl */
254  l_5:;
255 
256  /* Line: 1245 : OPEN : cobxref.cbl */
257  cob_set_location (st_1, 1245, st_2, st_11, st_10);
258  cob_open (h_SUPPLEMENTAL_PART1_OUT, 2, 0, NULL);
259  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
260  {
261  /* PERFORM Default Error Handler */
262  frame_ptr++;
263  if (unlikely(frame_ptr == frame_overflow))
264  cob_fatal_error (COB_FERROR_STACK);
265  frame_ptr->perform_through = 1;
266  frame_ptr->return_address_ptr = &&l_164;
267  goto l_1;
268  l_164:
269  frame_ptr--;
270  }
271 
272  /* Line: 1250 : IF : cobxref.cbl */
273  cob_set_location (st_1, 1250, st_2, st_11, st_6);
274  if (((int)cob_cmp_s32 (b_974, 0) != 0))
275  {
276 
277  /* Line: 1251 : INITIALIZE : cobxref.cbl */
278  cob_set_location (st_1, 1251, st_2, st_11, st_12);
279  memset (b_35, 32, 32);
280  memset (b_35 + 32, 48, 8);
281 
282  /* Line: 1252 : PERFORM : cobxref.cbl */
283  cob_set_location (st_1, 1252, st_2, st_11, st_3);
284  (*(int *)(b_55)) = 1;
285  for (;;)
286  {
287  if (((int)cob_cmp_s32 (b_55, (*(int *)(b_974))) > 0))
288  break;
289 
290  /* Line: 1253 : MOVE : cobxref.cbl */
291  cob_set_location (st_1, 1253, st_2, st_11, st_4);
292  *(b_35 + 32) = *(b_963 + 70 + 76 * ((*(int *)(b_55)) - 1));
293 
294  /* Line: 1254 : MOVE : cobxref.cbl */
295  cob_set_location (st_1, 1254, st_2, st_11, st_4);
296  *(b_35 + 33) = *(b_963 + 71 + 76 * ((*(int *)(b_55)) - 1));
297 
298  /* Line: 1255 : IF : cobxref.cbl */
299  cob_set_location (st_1, 1255, st_2, st_11, st_6);
300  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
301  {
302 
303  /* Line: 1256 : MOVE : cobxref.cbl */
304  cob_set_location (st_1, 1256, st_2, st_11, st_4);
305  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 32, b_963 + 76 * ((*(int *)(b_55)) - 1), &a_4)), &f_31);
306  }
307  else
308  {
309  /* ELSE */
310 
311  /* Line: 1258 : MOVE : cobxref.cbl */
312  cob_set_location (st_1, 1258, st_2, st_11, st_4);
313  memcpy (b_35, b_963 + 76 * ((*(int *)(b_55)) - 1), 32);
314  }
315 
316  /* Line: 1260 : MOVE : cobxref.cbl */
317  cob_set_location (st_1, 1260, st_2, st_11, st_4);
318  memcpy (b_35 + 34, b_963 + 64 + 76 * ((*(int *)(b_55)) - 1), 6);
319 
320  /* Line: 1261 : MOVE : cobxref.cbl */
321  cob_set_location (st_1, 1261, st_2, st_11, st_4);
322  *(b_240 + (cob_get_numdisp (b_963 + 70 + 76 * ((*(int *)(b_55)) - 1), 1) - 1)) = 49;
323 
324  /* Line: 1262 : WRITE : cobxref.cbl */
325  cob_set_location (st_1, 1262, st_2, st_11, st_13);
326  cob_write (h_SUPPLEMENTAL_PART1_OUT, &f_30, 0x210001, NULL, 0);
327  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
328  {
329  /* PERFORM Default Error Handler */
330  frame_ptr++;
331  if (unlikely(frame_ptr == frame_overflow))
332  cob_fatal_error (COB_FERROR_STACK);
333  frame_ptr->perform_through = 1;
334  frame_ptr->return_address_ptr = &&l_165;
335  goto l_1;
336  l_165:
337  frame_ptr--;
338  }
339  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
340  }
341  }
342 
343  /* Line: 1270 : MOVE : cobxref.cbl */
344  cob_set_location (st_1, 1270, st_2, st_11, st_4);
345  cob_move (&f_40, &f_150);
346 
347  /* Line: 1271 : IF : cobxref.cbl */
348  cob_set_location (st_1, 1271, st_2, st_11, st_6);
349  if (((int)(int)(*(b_73) - 89) == 0))
350  {
351 
352  /* Line: 1272 : PERFORM : cobxref.cbl */
353  cob_set_location (st_1, 1272, st_2, st_11, st_3);
354  /* PERFORM zz150-WriteHdb */
355  frame_ptr++;
356  if (unlikely(frame_ptr == frame_overflow))
357  cob_fatal_error (COB_FERROR_STACK);
358  frame_ptr->perform_through = 132;
359  frame_ptr->return_address_ptr = &&l_166;
360  goto l_132;
361  l_166:
362  frame_ptr--;
363  }
364 
365  /* Line: 1274 : PERFORM : cobxref.cbl */
366  cob_set_location (st_1, 1274, st_2, st_11, st_3);
367  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
368  frame_ptr++;
369  if (unlikely(frame_ptr == frame_overflow))
370  cob_fatal_error (COB_FERROR_STACK);
371  frame_ptr->perform_through = 116;
372  frame_ptr->return_address_ptr = &&l_167;
373  goto l_114;
374  l_167:
375  frame_ptr--;
376 
377  /* Line: 1275 : MOVE : cobxref.cbl */
378  cob_set_location (st_1, 1275, st_2, st_11, st_4);
379  (*(int *)(b_69)) = 1;
380  (*(int *)(b_43)) = 1;
381  (*(int *)(b_52)) = 1;
382 
383  /* Line: 1277 : Paragraph aa030-ReadLoop1 : cobxref.cbl */
384  l_6:;
385 
386  /* Line: 1278 : IF : cobxref.cbl */
387  cob_set_location (st_1, 1278, st_2, st_14, st_6);
388  if ((((int)cob_cmp_numdisp (b_83, 1, 1LL, 0) == 0) ||
389  ((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0)))
390  {
391 
392  /* Line: 1280 : DISPLAY : cobxref.cbl */
393  cob_set_location (st_1, 1280, st_2, st_14, st_7);
394  cob_display (0, 1, 1, &f_226);
395 
396  /* Line: 1281 : CLOSE : cobxref.cbl */
397  cob_set_location (st_1, 1281, st_2, st_14, st_15);
398  cob_close (h_SUPPLEMENTAL_PART1_OUT, NULL, 0, 0);
399  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
400  {
401  /* PERFORM Default Error Handler */
402  frame_ptr++;
403  if (unlikely(frame_ptr == frame_overflow))
404  cob_fatal_error (COB_FERROR_STACK);
405  frame_ptr->perform_through = 1;
406  frame_ptr->return_address_ptr = &&l_168;
407  goto l_1;
408  l_168:
409  frame_ptr--;
410  }
411  cob_close (h_SOURCE_LISTING, NULL, 0, 0);
412  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
413  {
414  /* PERFORM Default Error Handler */
415  frame_ptr++;
416  if (unlikely(frame_ptr == frame_overflow))
417  cob_fatal_error (COB_FERROR_STACK);
418  frame_ptr->perform_through = 1;
419  frame_ptr->return_address_ptr = &&l_169;
420  goto l_1;
421  l_169:
422  frame_ptr--;
423  }
424 
425  /* Line: 1282 : CLOSE : cobxref.cbl */
426  cob_set_location (st_1, 1282, st_2, st_14, st_15);
427  cob_close (h_SOURCEINPUT, &f_113, 0, 0);
428  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
429  {
430  /* PERFORM Default Error Handler */
431  frame_ptr++;
432  if (unlikely(frame_ptr == frame_overflow))
433  cob_fatal_error (COB_FERROR_STACK);
434  frame_ptr->perform_through = 1;
435  frame_ptr->return_address_ptr = &&l_170;
436  goto l_1;
437  l_170:
438  frame_ptr--;
439  }
440 
441  /* Line: 1283 : MOVE : cobxref.cbl */
442  cob_set_location (st_1, 1283, st_2, st_14, st_4);
443  b_1 = 16;
444 
445  /* Line: 1284 : GOBACK : cobxref.cbl */
446  cob_set_location (st_1, 1284, st_2, st_14, st_9);
447  goto exit_program;
448  }
449 
450  /* Line: 1285 : PERFORM : cobxref.cbl */
451  cob_set_location (st_1, 1285, st_2, st_14, st_3);
452  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
453  frame_ptr++;
454  if (unlikely(frame_ptr == frame_overflow))
455  cob_fatal_error (COB_FERROR_STACK);
456  frame_ptr->perform_through = 123;
457  frame_ptr->return_address_ptr = &&l_171;
458  goto l_117;
459  l_171:
460  frame_ptr--;
461 
462  /* Line: 1286 : IF : cobxref.cbl */
463  cob_set_location (st_1, 1286, st_2, st_14, st_6);
464  if ((((((int)cob_cmp (&f_127, (cob_field *)&c_1) == 0) ||
465  ((int)cob_cmp (&f_127, (cob_field *)&c_2) == 0)) ||
466  ((int)cob_cmp (&f_127, (cob_field *)&c_3) == 0)) ||
467  ((int)cob_cmp (&f_127, (cob_field *)&c_4) == 0)))
468  {
469 
470  /* Line: 1290 : GO TO : cobxref.cbl */
471  cob_set_location (st_1, 1290, st_2, st_14, st_16);
472  goto l_23;
473  }
474 
475  /* Line: 1295 : IF : cobxref.cbl */
476  cob_set_location (st_1, 1295, st_2, st_14, st_6);
477  if (((int)cob_cmp (&f_138, (cob_field *)&c_5) != 0))
478  {
479 
480  /* Line: 1296 : GO TO : cobxref.cbl */
481  cob_set_location (st_1, 1296, st_2, st_14, st_16);
482  goto l_6;
483  }
484 
485  /* Line: 1297 : PERFORM : cobxref.cbl */
486  cob_set_location (st_1, 1297, st_2, st_14, st_3);
487  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
488  frame_ptr++;
489  if (unlikely(frame_ptr == frame_overflow))
490  cob_fatal_error (COB_FERROR_STACK);
491  frame_ptr->perform_through = 123;
492  frame_ptr->return_address_ptr = &&l_172;
493  goto l_117;
494  l_172:
495  frame_ptr--;
496 
497  /* Line: 1303 : IF : cobxref.cbl */
498  cob_set_location (st_1, 1303, st_2, st_14, st_6);
499  if ((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
500  ((int)(int)(*(b_130) - 39) == 0)))
501  {
502 
503  /* Line: 1304 : UNSTRING : cobxref.cbl */
504  cob_set_location (st_1, 1304, st_2, st_14, st_17);
505  cob_unstring_init (COB_SET_FLD(f0, 32, b_130 + 1, &a_4), NULL, 2);
506  cob_unstring_delimited (&cob_all_quote, 0);
507  cob_unstring_delimited ((cob_field *)&c_6, 0);
508  cob_unstring_into (&f_143, 0, 0);
509  cob_unstring_finish ();
510 
511  /* Line: 1306 : MOVE : cobxref.cbl */
512  cob_set_location (st_1, 1306, st_2, st_14, st_4);
513  cob_move (COB_SET_FLD(f0, 31, b_143 + 0, &a_4), &f_138);
514  }
515 
516  /* Line: 1308 : IF : cobxref.cbl */
517  cob_set_location (st_1, 1308, st_2, st_14, st_6);
518  if (!((int)cob_cmp_numdisp (b_91, 1, 1LL, 0) == 0))
519  {
520 
521  /* Line: 1309 : IF : cobxref.cbl */
522  cob_set_location (st_1, 1309, st_2, st_14, st_6);
523  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
524  {
525 
526  /* Line: 1310 : MOVE : cobxref.cbl */
527  cob_set_location (st_1, 1310, st_2, st_14, st_4);
528  cob_move (cob_intr_lower_case (0, 0, &f_138), &f_125);
529  }
530  else
531  {
532  /* ELSE */
533 
534  /* Line: 1312 : MOVE : cobxref.cbl */
535  cob_set_location (st_1, 1312, st_2, st_14, st_4);
536  cob_move (cob_intr_upper_case (0, 0, &f_138), &f_125);
537  }
538  }
539 
540  /* Line: 1313 : IF : cobxref.cbl */
541  cob_set_location (st_1, 1313, st_2, st_14, st_6);
542  if (((int)cob_cmp_numdisp (b_91, 1, 1LL, 0) == 0))
543  {
544 
545  /* Line: 1314 : IF : cobxref.cbl */
546  cob_set_location (st_1, 1314, st_2, st_14, st_6);
547  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
548  {
549 
550  /* Line: 1315 : MOVE : cobxref.cbl */
551  cob_set_location (st_1, 1315, st_2, st_14, st_4);
552  cob_move (cob_intr_lower_case (0, 0, &f_138), &f_126);
553  }
554  else
555  {
556  /* ELSE */
557 
558  /* Line: 1317 : MOVE : cobxref.cbl */
559  cob_set_location (st_1, 1317, st_2, st_14, st_4);
560  cob_move (cob_intr_upper_case (0, 0, &f_138), &f_126);
561  }
562  }
563 
564  /* Line: 1322 : Paragraph aa040-ReadLoop2 : cobxref.cbl */
565  l_7:;
566 
567  /* Line: 1323 : PERFORM : cobxref.cbl */
568  cob_set_location (st_1, 1323, st_2, st_18, st_3);
569  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
570  frame_ptr++;
571  if (unlikely(frame_ptr == frame_overflow))
572  cob_fatal_error (COB_FERROR_STACK);
573  frame_ptr->perform_through = 116;
574  frame_ptr->return_address_ptr = &&l_173;
575  goto l_114;
576  l_173:
577  frame_ptr--;
578 
579  /* Line: 1324 : IF : cobxref.cbl */
580  cob_set_location (st_1, 1324, st_2, st_18, st_6);
581  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"SPECIAL-NAMES.", 14) == 0))
582  {
583 
584  /* Line: 1325 : IF : cobxref.cbl */
585  cob_set_location (st_1, 1325, st_2, st_18, st_6);
586  if (((int)(int)(*(b_77) - 89) == 0))
587  {
588 
589  /* Line: 1325 : DISPLAY : cobxref.cbl */
590  cob_set_location (st_1, 1325, st_2, st_18, st_7);
591  cob_display (0, 1, 1, &c_7);
592  }
593 
594  /* Line: 1326 : GO TO : cobxref.cbl */
595  cob_set_location (st_1, 1326, st_2, st_18, st_16);
596  goto l_8;
597  }
598 
599  /* Line: 1327 : IF : cobxref.cbl */
600  cob_set_location (st_1, 1327, st_2, st_18, st_6);
601  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"FILE-CONTROL.", 13) == 0))
602  {
603 
604  /* Line: 1328 : IF : cobxref.cbl */
605  cob_set_location (st_1, 1328, st_2, st_18, st_6);
606  if (((int)(int)(*(b_77) - 89) == 0))
607  {
608 
609  /* Line: 1328 : DISPLAY : cobxref.cbl */
610  cob_set_location (st_1, 1328, st_2, st_18, st_7);
611  cob_display (0, 1, 1, &c_8);
612  }
613 
614  /* Line: 1329 : GO TO : cobxref.cbl */
615  cob_set_location (st_1, 1329, st_2, st_18, st_16);
616  goto l_15;
617  }
618 
619  /* Line: 1330 : IF : cobxref.cbl */
620  cob_set_location (st_1, 1330, st_2, st_18, st_6);
621  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"I-O-CONTROL.", 12) == 0))
622  {
623 
624  /* Line: 1331 : IF : cobxref.cbl */
625  cob_set_location (st_1, 1331, st_2, st_18, st_6);
626  if (((int)(int)(*(b_77) - 89) == 0))
627  {
628 
629  /* Line: 1331 : DISPLAY : cobxref.cbl */
630  cob_set_location (st_1, 1331, st_2, st_18, st_7);
631  cob_display (0, 1, 1, &c_9);
632  }
633 
634  /* Line: 1332 : GO TO : cobxref.cbl */
635  cob_set_location (st_1, 1332, st_2, st_18, st_16);
636  goto l_19;
637  }
638 
639  /* Line: 1333 : IF : cobxref.cbl */
640  cob_set_location (st_1, 1333, st_2, st_18, st_6);
641  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"DATA DIVISIO", 12) == 0))
642  {
643 
644  /* Line: 1334 : IF : cobxref.cbl */
645  cob_set_location (st_1, 1334, st_2, st_18, st_6);
646  if (((int)(int)(*(b_77) - 89) == 0))
647  {
648 
649  /* Line: 1334 : DISPLAY : cobxref.cbl */
650  cob_set_location (st_1, 1334, st_2, st_18, st_7);
651  cob_display (0, 1, 1, &c_10);
652  }
653 
654  /* Line: 1335 : GO TO : cobxref.cbl */
655  cob_set_location (st_1, 1335, st_2, st_18, st_16);
656  goto l_8;
657  }
658 
659  /* Line: 1336 : PERFORM : cobxref.cbl */
660  cob_set_location (st_1, 1336, st_2, st_18, st_3);
661  /* PERFORM aa045-Test-Section THRU aa045-Exit */
662  frame_ptr++;
663  if (unlikely(frame_ptr == frame_overflow))
664  cob_fatal_error (COB_FERROR_STACK);
665  frame_ptr->perform_through = 13;
666  frame_ptr->return_address_ptr = &&l_174;
667  goto l_11;
668  l_174:
669  frame_ptr--;
670 
671  /* Line: 1340 : IF : cobxref.cbl */
672  cob_set_location (st_1, 1340, st_2, st_18, st_6);
673  if (((int)cob_cmp_s32 (b_55, 0) != 0))
674  {
675 
676  /* Line: 1341 : GO TO : cobxref.cbl */
677  cob_set_location (st_1, 1341, st_2, st_18, st_16);
678  goto l_23;
679  }
680 
681  /* Line: 1342 : GO TO : cobxref.cbl */
682  cob_set_location (st_1, 1342, st_2, st_18, st_16);
683  goto l_7;
684 
685  /* Line: 1344 : Paragraph aa041-Get-SN : cobxref.cbl */
686  l_8:;
687 
688  /* Line: 1348 : PERFORM : cobxref.cbl */
689  cob_set_location (st_1, 1348, st_2, st_19, st_3);
690  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
691  frame_ptr++;
692  if (unlikely(frame_ptr == frame_overflow))
693  cob_fatal_error (COB_FERROR_STACK);
694  frame_ptr->perform_through = 116;
695  frame_ptr->return_address_ptr = &&l_175;
696  goto l_114;
697  l_175:
698  frame_ptr--;
699 
700  /* Line: 1349 : PERFORM : cobxref.cbl */
701  cob_set_location (st_1, 1349, st_2, st_19, st_3);
702  /* PERFORM aa045-Test-Section THRU aa045-Exit */
703  frame_ptr++;
704  if (unlikely(frame_ptr == frame_overflow))
705  cob_fatal_error (COB_FERROR_STACK);
706  frame_ptr->perform_through = 13;
707  frame_ptr->return_address_ptr = &&l_176;
708  goto l_11;
709  l_176:
710  frame_ptr--;
711 
712  /* Line: 1350 : IF : cobxref.cbl */
713  cob_set_location (st_1, 1350, st_2, st_19, st_6);
714  if (((int)cob_cmp_s32 (b_55, 0) != 0))
715  {
716 
717  /* Line: 1351 : GO TO : cobxref.cbl */
718  cob_set_location (st_1, 1351, st_2, st_19, st_16);
719  goto l_23;
720  }
721 
722  /* Line: 1352 : IF : cobxref.cbl */
723  cob_set_location (st_1, 1352, st_2, st_19, st_6);
724  if ((((int)memcmp (b_127 + 0, (cob_u8_ptr)"INPUT-OUTPUT ", 13) == 0) ||
725  ((int)memcmp (b_127 + 0, (cob_u8_ptr)"DATA DIVISION", 13) == 0)))
726  {
727 
728  /* Line: 1353 : IF : cobxref.cbl */
729  cob_set_location (st_1, 1353, st_2, st_19, st_6);
730  if (((int)(int)(*(b_77) - 89) == 0))
731  {
732 
733  /* Line: 1353 : DISPLAY : cobxref.cbl */
734  cob_set_location (st_1, 1353, st_2, st_19, st_7);
735  cob_display (0, 1, 1, &c_11);
736  }
737 
738  /* Line: 1354 : GO TO : cobxref.cbl */
739  cob_set_location (st_1, 1354, st_2, st_19, st_16);
740  goto l_8;
741  }
742 
743  /* Line: 1355 : IF : cobxref.cbl */
744  cob_set_location (st_1, 1355, st_2, st_19, st_6);
745  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"FILE-CONTROL.", 13) == 0))
746  {
747 
748  /* Line: 1356 : IF : cobxref.cbl */
749  cob_set_location (st_1, 1356, st_2, st_19, st_6);
750  if (((int)(int)(*(b_77) - 89) == 0))
751  {
752 
753  /* Line: 1356 : DISPLAY : cobxref.cbl */
754  cob_set_location (st_1, 1356, st_2, st_19, st_7);
755  cob_display (0, 1, 1, &c_12);
756  }
757 
758  /* Line: 1357 : GO TO : cobxref.cbl */
759  cob_set_location (st_1, 1357, st_2, st_19, st_16);
760  goto l_15;
761  }
762 
763  /* Line: 1358 : IF : cobxref.cbl */
764  cob_set_location (st_1, 1358, st_2, st_19, st_6);
765  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"I-O-CONTROL.", 12) == 0))
766  {
767 
768  /* Line: 1359 : IF : cobxref.cbl */
769  cob_set_location (st_1, 1359, st_2, st_19, st_6);
770  if (((int)(int)(*(b_77) - 89) == 0))
771  {
772 
773  /* Line: 1359 : DISPLAY : cobxref.cbl */
774  cob_set_location (st_1, 1359, st_2, st_19, st_7);
775  cob_display (0, 1, 1, &c_13);
776  }
777 
778  /* Line: 1360 : GO TO : cobxref.cbl */
779  cob_set_location (st_1, 1360, st_2, st_19, st_16);
780  goto l_19;
781  }
782 
783  /* Line: 1362 : Paragraph aa042-Getword : cobxref.cbl */
784  l_9:;
785 
786  /* Line: 1363 : PERFORM : cobxref.cbl */
787  cob_set_location (st_1, 1363, st_2, st_20, st_3);
788  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
789  frame_ptr++;
790  if (unlikely(frame_ptr == frame_overflow))
791  cob_fatal_error (COB_FERROR_STACK);
792  frame_ptr->perform_through = 123;
793  frame_ptr->return_address_ptr = &&l_177;
794  goto l_117;
795  l_177:
796  frame_ptr--;
797 
798  /* Line: 1364 : IF : cobxref.cbl */
799  cob_set_location (st_1, 1364, st_2, st_20, st_6);
800  if (((int)(int)(*(b_102) - 46) == 0))
801  {
802 
803  /* Line: 1365 : GO TO : cobxref.cbl */
804  cob_set_location (st_1, 1365, st_2, st_20, st_16);
805  goto l_8;
806  }
807 
808  /* Line: 1366 : IF : cobxref.cbl */
809  cob_set_location (st_1, 1366, st_2, st_20, st_6);
810  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"CURRENCY ", 9) == 0))
811  {
812 
813  /* Line: 1367 : PERFORM : cobxref.cbl */
814  cob_set_location (st_1, 1367, st_2, st_20, st_3);
815  /* PERFORM aa046-Get-Currency */
816  frame_ptr++;
817  if (unlikely(frame_ptr == frame_overflow))
818  cob_fatal_error (COB_FERROR_STACK);
819  frame_ptr->perform_through = 14;
820  frame_ptr->return_address_ptr = &&l_178;
821  goto l_14;
822  l_178:
823  frame_ptr--;
824 
825  /* Line: 1368 : GO TO : cobxref.cbl */
826  cob_set_location (st_1, 1368, st_2, st_20, st_16);
827  goto l_9;
828  }
829 
830  /* Line: 1369 : IF : cobxref.cbl */
831  cob_set_location (st_1, 1369, st_2, st_20, st_6);
832  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"IS ", 3) != 0))
833  {
834 
835  /* Line: 1370 : GO TO : cobxref.cbl */
836  cob_set_location (st_1, 1370, st_2, st_20, st_16);
837  goto l_9;
838  }
839 
840  /* Line: 1372 : PERFORM : cobxref.cbl */
841  cob_set_location (st_1, 1372, st_2, st_20, st_3);
842  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
843  frame_ptr++;
844  if (unlikely(frame_ptr == frame_overflow))
845  cob_fatal_error (COB_FERROR_STACK);
846  frame_ptr->perform_through = 123;
847  frame_ptr->return_address_ptr = &&l_179;
848  goto l_117;
849  l_179:
850  frame_ptr--;
851 
852  /* Line: 1373 : IF : cobxref.cbl */
853  cob_set_location (st_1, 1373, st_2, st_20, st_6);
854  if (((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
855  ((int)(int)(*(b_130) - 39) == 0)) ||
856  (((((((((((int)(int)(*(b_130) - 48) == 0) ||
857  ((int)(int)(*(b_130) - 49) == 0)) ||
858  ((int)(int)(*(b_130) - 50) == 0)) ||
859  ((int)(int)(*(b_130) - 51) == 0)) ||
860  ((int)(int)(*(b_130) - 52) == 0)) ||
861  ((int)(int)(*(b_130) - 53) == 0)) ||
862  ((int)(int)(*(b_130) - 54) == 0)) ||
863  ((int)(int)(*(b_130) - 55) == 0)) ||
864  ((int)(int)(*(b_130) - 56) == 0)) ||
865  ((int)(int)(*(b_130) - 57) == 0))))
866  {
867 
868  /* Line: 1374 : GO TO : cobxref.cbl */
869  cob_set_location (st_1, 1374, st_2, st_20, st_16);
870  goto l_9;
871  }
872 
873  /* Line: 1375 : PERFORM : cobxref.cbl */
874  cob_set_location (st_1, 1375, st_2, st_20, st_3);
875  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
876  frame_ptr++;
877  if (unlikely(frame_ptr == frame_overflow))
878  cob_fatal_error (COB_FERROR_STACK);
879  frame_ptr->perform_through = 129;
880  frame_ptr->return_address_ptr = &&l_180;
881  goto l_128;
882  l_180:
883  frame_ptr--;
884 
885  /* Line: 1376 : IF : cobxref.cbl */
886  cob_set_location (st_1, 1376, st_2, st_20, st_6);
887  if (((int)cob_cmp_s32 (b_55, 0) != 0))
888  {
889 
890  /* Line: 1377 : GO TO : cobxref.cbl */
891  cob_set_location (st_1, 1377, st_2, st_20, st_16);
892  goto l_9;
893  }
894 
895  /* Line: 1378 : MOVE : cobxref.cbl */
896  cob_set_location (st_1, 1378, st_2, st_20, st_4);
897  cob_move (COB_SET_FLD(f0, 31, b_130 + 0, &a_4), &f_109);
898 
899  /* Line: 1380 : Paragraph aa044-Getword3 : cobxref.cbl */
900  l_10:;
901 
902  /* Line: 1381 : PERFORM : cobxref.cbl */
903  cob_set_location (st_1, 1381, st_2, st_21, st_3);
904  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
905  frame_ptr++;
906  if (unlikely(frame_ptr == frame_overflow))
907  cob_fatal_error (COB_FERROR_STACK);
908  frame_ptr->perform_through = 123;
909  frame_ptr->return_address_ptr = &&l_181;
910  goto l_117;
911  l_181:
912  frame_ptr--;
913 
914  /* Line: 1382 : IF : cobxref.cbl */
915  cob_set_location (st_1, 1382, st_2, st_21, st_6);
916  if (((int)(int)(*(b_102) - 46) == 0))
917  {
918 
919  /* Line: 1383 : GO TO : cobxref.cbl */
920  cob_set_location (st_1, 1383, st_2, st_21, st_16);
921  goto l_8;
922  }
923 
924  /* Line: 1384 : IF : cobxref.cbl */
925  cob_set_location (st_1, 1384, st_2, st_21, st_6);
926  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"CURRENCY ", 9) == 0))
927  {
928 
929  /* Line: 1385 : PERFORM : cobxref.cbl */
930  cob_set_location (st_1, 1385, st_2, st_21, st_3);
931  /* PERFORM aa046-Get-Currency */
932  frame_ptr++;
933  if (unlikely(frame_ptr == frame_overflow))
934  cob_fatal_error (COB_FERROR_STACK);
935  frame_ptr->perform_through = 14;
936  frame_ptr->return_address_ptr = &&l_182;
937  goto l_14;
938  l_182:
939  frame_ptr--;
940 
941  /* Line: 1386 : GO TO : cobxref.cbl */
942  cob_set_location (st_1, 1386, st_2, st_21, st_16);
943  goto l_10;
944  }
945 
946  /* Line: 1387 : IF : cobxref.cbl */
947  cob_set_location (st_1, 1387, st_2, st_21, st_6);
948  if ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"ON", 2) != 0) &&
949  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"OFF", 3) != 0)))
950  {
951 
952  /* Line: 1389 : GO TO : cobxref.cbl */
953  cob_set_location (st_1, 1389, st_2, st_21, st_16);
954  goto l_10;
955  }
956 
957  /* Line: 1390 : PERFORM : cobxref.cbl */
958  cob_set_location (st_1, 1390, st_2, st_21, st_3);
959  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
960  frame_ptr++;
961  if (unlikely(frame_ptr == frame_overflow))
962  cob_fatal_error (COB_FERROR_STACK);
963  frame_ptr->perform_through = 123;
964  frame_ptr->return_address_ptr = &&l_183;
965  goto l_117;
966  l_183:
967  frame_ptr--;
968 
969  /* Line: 1391 : IF : cobxref.cbl */
970  cob_set_location (st_1, 1391, st_2, st_21, st_6);
971  if (((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
972  ((int)(int)(*(b_130) - 39) == 0)) ||
973  (((((((((((int)(int)(*(b_130) - 48) == 0) ||
974  ((int)(int)(*(b_130) - 49) == 0)) ||
975  ((int)(int)(*(b_130) - 50) == 0)) ||
976  ((int)(int)(*(b_130) - 51) == 0)) ||
977  ((int)(int)(*(b_130) - 52) == 0)) ||
978  ((int)(int)(*(b_130) - 53) == 0)) ||
979  ((int)(int)(*(b_130) - 54) == 0)) ||
980  ((int)(int)(*(b_130) - 55) == 0)) ||
981  ((int)(int)(*(b_130) - 56) == 0)) ||
982  ((int)(int)(*(b_130) - 57) == 0))))
983  {
984 
985  /* Line: 1392 : GO TO : cobxref.cbl */
986  cob_set_location (st_1, 1392, st_2, st_21, st_16);
987  goto l_10;
988  }
989 
990  /* Line: 1393 : PERFORM : cobxref.cbl */
991  cob_set_location (st_1, 1393, st_2, st_21, st_3);
992  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
993  frame_ptr++;
994  if (unlikely(frame_ptr == frame_overflow))
995  cob_fatal_error (COB_FERROR_STACK);
996  frame_ptr->perform_through = 129;
997  frame_ptr->return_address_ptr = &&l_184;
998  goto l_128;
999  l_184:
1000  frame_ptr--;
1001 
1002  /* Line: 1394 : IF : cobxref.cbl */
1003  cob_set_location (st_1, 1394, st_2, st_21, st_6);
1004  if (((int)cob_cmp_s32 (b_55, 0) != 0))
1005  {
1006 
1007  /* Line: 1395 : GO TO : cobxref.cbl */
1008  cob_set_location (st_1, 1395, st_2, st_21, st_16);
1009  goto l_10;
1010  }
1011 
1012  /* Line: 1397 : IF : cobxref.cbl */
1013  cob_set_location (st_1, 1397, st_2, st_21, st_6);
1014  if (((int)cob_cmp_s32 (b_961, (*(int *)(b_962))) >= 0))
1015  {
1016 
1017  /* Line: 1398 : ADD : cobxref.cbl */
1018  cob_set_location (st_1, 1398, st_2, st_21, st_22);
1019  (*(int *)(b_961)) = ((*(int *)(b_961)) + 10);
1020  }
1021 
1022  /* Line: 1399 : ADD : cobxref.cbl */
1023  cob_set_location (st_1, 1399, st_2, st_21, st_22);
1024  (*(int *)(b_962)) = ((*(int *)(b_962)) + 1);
1025 
1026  /* Line: 1401 : IF : cobxref.cbl */
1027  cob_set_location (st_1, 1401, st_2, st_21, st_6);
1028  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
1029  {
1030 
1031  /* Line: 1402 : MOVE : cobxref.cbl */
1032  cob_set_location (st_1, 1402, st_2, st_21, st_4);
1033  cob_move (cob_intr_lower_case (0, 0, &f_109), COB_SET_FLD(f0, 32, b_955 + 32 + 66 * ((*(int *)(b_962)) - 1), &a_4));
1034 
1035  /* Line: 1403 : MOVE : cobxref.cbl */
1036  cob_set_location (st_1, 1403, st_2, st_21, st_4);
1037  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 31, b_130 + 0, &a_4)), COB_SET_FLD(f1, 32, b_955 + 66 * ((*(int *)(b_962)) - 1), &a_4));
1038  }
1039  else
1040  {
1041  /* ELSE */
1042 
1043  /* Line: 1405 : MOVE : cobxref.cbl */
1044  cob_set_location (st_1, 1405, st_2, st_21, st_4);
1045  memcpy (b_955 + 32 + 66 * ((*(int *)(b_962)) - 1), b_109, 32);
1046 
1047  /* Line: 1406 : MOVE : cobxref.cbl */
1048  cob_set_location (st_1, 1406, st_2, st_21, st_4);
1049  cob_move (COB_SET_FLD(f0, 31, b_130 + 0, &a_4), COB_SET_FLD(f1, 32, b_955 + 66 * ((*(int *)(b_962)) - 1), &a_4));
1050  }
1051 
1052  /* Line: 1408 : MOVE : cobxref.cbl */
1053  cob_set_location (st_1, 1408, st_2, st_21, st_4);
1054  *(b_955 + 64 + 66 * ((*(int *)(b_962)) - 1)) = 32;
1055 
1056  /* Line: 1409 : IF : cobxref.cbl */
1057  cob_set_location (st_1, 1409, st_2, st_21, st_6);
1058  if (((int)(int)(*(b_102) - 46) == 0))
1059  {
1060 
1061  /* Line: 1410 : GO TO : cobxref.cbl */
1062  cob_set_location (st_1, 1410, st_2, st_21, st_16);
1063  goto l_8;
1064  }
1065 
1066  /* Line: 1411 : GO TO : cobxref.cbl */
1067  cob_set_location (st_1, 1411, st_2, st_21, st_16);
1068  goto l_10;
1069 
1070  /* Line: 1413 : Paragraph aa045-Test-Section : cobxref.cbl */
1071  l_11:;
1072 
1073  /* Line: 1414 : PERFORM : cobxref.cbl */
1074  cob_set_location (st_1, 1414, st_2, st_23, st_3);
1075  (*(int *)(b_55)) = 1;
1076  for (;;)
1077  {
1078  if (((int)cob_cmp_s32 (b_55, 8LL) > 0))
1079  break;
1080 
1081  /* Line: 1415 : IF : cobxref.cbl */
1082  cob_set_location (st_1, 1415, st_2, st_23, st_6);
1083  if (((int)memcmp (b_127 + 0, b_244 + 24 * ((*(int *)(b_55)) - 1), 24) == 0))
1084  {
1085 
1086  /* Line: 1416 : EXIT PERFORM : cobxref.cbl */
1087  cob_set_location (st_1, 1416, st_2, st_23, st_24);
1088  goto l_12;
1089  }
1090  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
1091  }
1092 
1093  /* Implicit EXIT label */
1094  l_12:;
1095 
1096  /* Line: 1419 : IF : cobxref.cbl */
1097  cob_set_location (st_1, 1419, st_2, st_23, st_6);
1098  if (((int)cob_cmp_s32 (b_55, 8LL) > 0))
1099  {
1100 
1101  /* Line: 1420 : MOVE : cobxref.cbl */
1102  cob_set_location (st_1, 1420, st_2, st_23, st_4);
1103  (*(int *)(b_55)) = 0;
1104  }
1105 
1106  /* Line: 1422 : Paragraph aa045-Exit : cobxref.cbl */
1107  l_13:;
1108 
1109  /* Line: 1423 : EXIT : cobxref.cbl */
1110  cob_set_location (st_1, 1423, st_2, st_25, st_26);
1111 
1112  /* Implicit PERFORM return */
1113  if (frame_ptr->perform_through == 13)
1114  goto *frame_ptr->return_address_ptr;
1115 
1116  /* Line: 1425 : Paragraph aa046-Get-Currency : cobxref.cbl */
1117  l_14:;
1118 
1119  /* Line: 1429 : PERFORM : cobxref.cbl */
1120  cob_set_location (st_1, 1429, st_2, st_27, st_3);
1121  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
1122  frame_ptr++;
1123  if (unlikely(frame_ptr == frame_overflow))
1124  cob_fatal_error (COB_FERROR_STACK);
1125  frame_ptr->perform_through = 123;
1126  frame_ptr->return_address_ptr = &&l_185;
1127  goto l_117;
1128  l_185:
1129  frame_ptr--;
1130 
1131  /* Line: 1430 : IF : cobxref.cbl */
1132  cob_set_location (st_1, 1430, st_2, st_27, st_6);
1133  if ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"SIGN ", 5) == 0) ||
1134  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"IS ", 3) == 0)))
1135  {
1136 
1137  /* Line: 1432 : GO TO : cobxref.cbl */
1138  cob_set_location (st_1, 1432, st_2, st_27, st_16);
1139  goto l_14;
1140  }
1141 
1142  /* Line: 1436 : MOVE : cobxref.cbl */
1143  cob_set_location (st_1, 1436, st_2, st_27, st_4);
1144  *(b_99) = *(b_130 + 1);
1145 
1146  /* Line: 1437 : IF : cobxref.cbl */
1147  cob_set_location (st_1, 1437, st_2, st_27, st_6);
1148  if (((int)(int)(*(b_77) - 89) == 0))
1149  {
1150 
1151  /* Line: 1438 : DISPLAY : cobxref.cbl */
1152  cob_set_location (st_1, 1438, st_2, st_27, st_7);
1153  cob_display (0, 1, 2, &c_14, &f_99);
1154  }
1155 
1156  /* Implicit PERFORM return */
1157  if (frame_ptr->perform_through == 14)
1158  goto *frame_ptr->return_address_ptr;
1159 
1160  /* Line: 1441 : Paragraph aa047-GetIO : cobxref.cbl */
1161  l_15:;
1162 
1163  /* Line: 1445 : PERFORM : cobxref.cbl */
1164  cob_set_location (st_1, 1445, st_2, st_28, st_3);
1165  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
1166  frame_ptr++;
1167  if (unlikely(frame_ptr == frame_overflow))
1168  cob_fatal_error (COB_FERROR_STACK);
1169  frame_ptr->perform_through = 116;
1170  frame_ptr->return_address_ptr = &&l_186;
1171  goto l_114;
1172  l_186:
1173  frame_ptr--;
1174 
1175  /* Line: 1446 : PERFORM : cobxref.cbl */
1176  cob_set_location (st_1, 1446, st_2, st_28, st_3);
1177  /* PERFORM aa045-Test-Section THRU aa045-Exit */
1178  frame_ptr++;
1179  if (unlikely(frame_ptr == frame_overflow))
1180  cob_fatal_error (COB_FERROR_STACK);
1181  frame_ptr->perform_through = 13;
1182  frame_ptr->return_address_ptr = &&l_187;
1183  goto l_11;
1184  l_187:
1185  frame_ptr--;
1186 
1187  /* Line: 1447 : IF : cobxref.cbl */
1188  cob_set_location (st_1, 1447, st_2, st_28, st_6);
1189  if (((int)cob_cmp_s32 (b_55, 0) != 0))
1190  {
1191 
1192  /* Line: 1448 : GO TO : cobxref.cbl */
1193  cob_set_location (st_1, 1448, st_2, st_28, st_16);
1194  goto l_23;
1195  }
1196 
1197  /* Line: 1449 : IF : cobxref.cbl */
1198  cob_set_location (st_1, 1449, st_2, st_28, st_6);
1199  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"I-O-CONTROL.", 12) == 0))
1200  {
1201 
1202  /* Line: 1450 : IF : cobxref.cbl */
1203  cob_set_location (st_1, 1450, st_2, st_28, st_6);
1204  if (((int)(int)(*(b_77) - 89) == 0))
1205  {
1206 
1207  /* Line: 1450 : DISPLAY : cobxref.cbl */
1208  cob_set_location (st_1, 1450, st_2, st_28, st_7);
1209  cob_display (0, 1, 1, &c_15);
1210  }
1211 
1212  /* Line: 1451 : GO TO : cobxref.cbl */
1213  cob_set_location (st_1, 1451, st_2, st_28, st_16);
1214  goto l_19;
1215  }
1216 
1217  /* Line: 1452 : IF : cobxref.cbl */
1218  cob_set_location (st_1, 1452, st_2, st_28, st_6);
1219  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"DATA DIVISIO", 12) == 0))
1220  {
1221 
1222  /* Line: 1453 : IF : cobxref.cbl */
1223  cob_set_location (st_1, 1453, st_2, st_28, st_6);
1224  if (((int)(int)(*(b_77) - 89) == 0))
1225  {
1226 
1227  /* Line: 1453 : DISPLAY : cobxref.cbl */
1228  cob_set_location (st_1, 1453, st_2, st_28, st_7);
1229  cob_display (0, 1, 1, &c_16);
1230  }
1231 
1232  /* Line: 1454 : GO TO : cobxref.cbl */
1233  cob_set_location (st_1, 1454, st_2, st_28, st_16);
1234  goto l_22;
1235  }
1236 
1237  /* Line: 1455 : IF : cobxref.cbl */
1238  cob_set_location (st_1, 1455, st_2, st_28, st_6);
1239  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"FILE SECTION", 12) == 0))
1240  {
1241 
1242  /* Line: 1456 : IF : cobxref.cbl */
1243  cob_set_location (st_1, 1456, st_2, st_28, st_6);
1244  if (((int)(int)(*(b_77) - 89) == 0))
1245  {
1246 
1247  /* Line: 1456 : DISPLAY : cobxref.cbl */
1248  cob_set_location (st_1, 1456, st_2, st_28, st_7);
1249  cob_display (0, 1, 1, &c_17);
1250  }
1251 
1252  /* Line: 1457 : GO TO : cobxref.cbl */
1253  cob_set_location (st_1, 1457, st_2, st_28, st_16);
1254  goto l_23;
1255  }
1256 
1257  /* Line: 1460 : Paragraph aa047-Getword : cobxref.cbl */
1258  l_16:;
1259 
1260  /* Line: 1461 : PERFORM : cobxref.cbl */
1261  cob_set_location (st_1, 1461, st_2, st_29, st_3);
1262  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
1263  frame_ptr++;
1264  if (unlikely(frame_ptr == frame_overflow))
1265  cob_fatal_error (COB_FERROR_STACK);
1266  frame_ptr->perform_through = 123;
1267  frame_ptr->return_address_ptr = &&l_188;
1268  goto l_117;
1269  l_188:
1270  frame_ptr--;
1271 
1272  /* Line: 1462 : IF : cobxref.cbl */
1273  cob_set_location (st_1, 1462, st_2, st_29, st_6);
1274  if (((int)(int)(*(b_102) - 46) == 0))
1275  {
1276 
1277  /* Line: 1463 : GO TO : cobxref.cbl */
1278  cob_set_location (st_1, 1463, st_2, st_29, st_16);
1279  goto l_15;
1280  }
1281 
1282  /* Line: 1467 : PERFORM : cobxref.cbl */
1283  cob_set_location (st_1, 1467, st_2, st_29, st_3);
1284  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
1285  frame_ptr++;
1286  if (unlikely(frame_ptr == frame_overflow))
1287  cob_fatal_error (COB_FERROR_STACK);
1288  frame_ptr->perform_through = 129;
1289  frame_ptr->return_address_ptr = &&l_189;
1290  goto l_128;
1291  l_189:
1292  frame_ptr--;
1293 
1294  /* Line: 1468 : IF : cobxref.cbl */
1295  cob_set_location (st_1, 1468, st_2, st_29, st_6);
1296  if (((int)cob_cmp_s32 (b_55, 0) != 0))
1297  {
1298 
1299  /* Line: 1469 : GO TO : cobxref.cbl */
1300  cob_set_location (st_1, 1469, st_2, st_29, st_16);
1301  goto l_16;
1302  }
1303 
1304  /* Line: 1470 : IF : cobxref.cbl */
1305  cob_set_location (st_1, 1470, st_2, st_29, st_6);
1306  if (((int)(int)(*(b_102) - 46) == 0))
1307  {
1308 
1309  /* Line: 1471 : GO TO : cobxref.cbl */
1310  cob_set_location (st_1, 1471, st_2, st_29, st_16);
1311  goto l_15;
1312  }
1313 
1314  /* Line: 1473 : MOVE : cobxref.cbl */
1315  cob_set_location (st_1, 1473, st_2, st_29, st_4);
1316  *(b_100) = 49;
1317 
1318  /* Line: 1474 : MOVE : cobxref.cbl */
1319  cob_set_location (st_1, 1474, st_2, st_29, st_4);
1320  *(b_101) = 48;
1321 
1322  /* Line: 1475 : PERFORM : cobxref.cbl */
1323  cob_set_location (st_1, 1475, st_2, st_29, st_3);
1324  /* PERFORM zz030-Write-Sort */
1325  frame_ptr++;
1326  if (unlikely(frame_ptr == frame_overflow))
1327  cob_fatal_error (COB_FERROR_STACK);
1328  frame_ptr->perform_through = 113;
1329  frame_ptr->return_address_ptr = &&l_190;
1330  goto l_113;
1331  l_190:
1332  frame_ptr--;
1333 
1334  /* Line: 1477 : Paragraph aa047-Getword2 : cobxref.cbl */
1335  l_17:;
1336 
1337  /* Line: 1478 : PERFORM : cobxref.cbl */
1338  cob_set_location (st_1, 1478, st_2, st_30, st_3);
1339  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
1340  frame_ptr++;
1341  if (unlikely(frame_ptr == frame_overflow))
1342  cob_fatal_error (COB_FERROR_STACK);
1343  frame_ptr->perform_through = 123;
1344  frame_ptr->return_address_ptr = &&l_191;
1345  goto l_117;
1346  l_191:
1347  frame_ptr--;
1348 
1349  /* Line: 1479 : IF : cobxref.cbl */
1350  cob_set_location (st_1, 1479, st_2, st_30, st_6);
1351  if (((int)cob_cmp_numdisp (b_83, 1, 1LL, 0) == 0))
1352  {
1353 
1354  /* Line: 1480 : DISPLAY : cobxref.cbl */
1355  cob_set_location (st_1, 1480, st_2, st_30, st_7);
1356  cob_display (0, 1, 1, &f_234);
1357 
1358  /* Line: 1481 : CLOSE : cobxref.cbl */
1359  cob_set_location (st_1, 1481, st_2, st_30, st_15);
1360  cob_close (h_SUPPLEMENTAL_PART1_OUT, NULL, 0, 0);
1361  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1362  {
1363  /* PERFORM Default Error Handler */
1364  frame_ptr++;
1365  if (unlikely(frame_ptr == frame_overflow))
1366  cob_fatal_error (COB_FERROR_STACK);
1367  frame_ptr->perform_through = 1;
1368  frame_ptr->return_address_ptr = &&l_192;
1369  goto l_1;
1370  l_192:
1371  frame_ptr--;
1372  }
1373  cob_close (h_SOURCE_LISTING, NULL, 0, 0);
1374  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1375  {
1376  /* PERFORM Default Error Handler */
1377  frame_ptr++;
1378  if (unlikely(frame_ptr == frame_overflow))
1379  cob_fatal_error (COB_FERROR_STACK);
1380  frame_ptr->perform_through = 1;
1381  frame_ptr->return_address_ptr = &&l_193;
1382  goto l_1;
1383  l_193:
1384  frame_ptr--;
1385  }
1386 
1387  /* Line: 1482 : CLOSE : cobxref.cbl */
1388  cob_set_location (st_1, 1482, st_2, st_30, st_15);
1389  cob_close (h_SOURCEINPUT, &f_113, 0, 0);
1390  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1391  {
1392  /* PERFORM Default Error Handler */
1393  frame_ptr++;
1394  if (unlikely(frame_ptr == frame_overflow))
1395  cob_fatal_error (COB_FERROR_STACK);
1396  frame_ptr->perform_through = 1;
1397  frame_ptr->return_address_ptr = &&l_194;
1398  goto l_1;
1399  l_194:
1400  frame_ptr--;
1401  }
1402 
1403  /* Line: 1483 : MOVE : cobxref.cbl */
1404  cob_set_location (st_1, 1483, st_2, st_30, st_4);
1405  b_1 = 16;
1406 
1407  /* Line: 1484 : GOBACK : cobxref.cbl */
1408  cob_set_location (st_1, 1484, st_2, st_30, st_9);
1409  goto exit_program;
1410  }
1411 
1412  /* Line: 1488 : IF : cobxref.cbl */
1413  cob_set_location (st_1, 1488, st_2, st_30, st_6);
1414  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"ASSIGN ", 7) != 0))
1415  {
1416 
1417  /* Line: 1489 : GO TO : cobxref.cbl */
1418  cob_set_location (st_1, 1489, st_2, st_30, st_16);
1419  goto l_17;
1420  }
1421 
1422  /* Line: 1491 : Paragraph aa047-Getword3 : cobxref.cbl */
1423  l_18:;
1424 
1425  /* Line: 1492 : PERFORM : cobxref.cbl */
1426  cob_set_location (st_1, 1492, st_2, st_31, st_3);
1427  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
1428  frame_ptr++;
1429  if (unlikely(frame_ptr == frame_overflow))
1430  cob_fatal_error (COB_FERROR_STACK);
1431  frame_ptr->perform_through = 123;
1432  frame_ptr->return_address_ptr = &&l_195;
1433  goto l_117;
1434  l_195:
1435  frame_ptr--;
1436 
1437  /* Line: 1493 : IF : cobxref.cbl */
1438  cob_set_location (st_1, 1493, st_2, st_31, st_6);
1439  if (((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
1440  ((int)(int)(*(b_130) - 39) == 0)) &&
1441  ((int)(int)(*(b_102) - 46) == 0)))
1442  {
1443 
1444  /* Line: 1494 : GO TO : cobxref.cbl */
1445  cob_set_location (st_1, 1494, st_2, st_31, st_16);
1446  goto l_15;
1447  }
1448 
1449  /* Line: 1495 : IF : cobxref.cbl */
1450  cob_set_location (st_1, 1495, st_2, st_31, st_6);
1451  if (((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
1452  ((int)(int)(*(b_130) - 39) == 0)) ||
1453  (((((((((((int)(int)(*(b_130) - 48) == 0) ||
1454  ((int)(int)(*(b_130) - 49) == 0)) ||
1455  ((int)(int)(*(b_130) - 50) == 0)) ||
1456  ((int)(int)(*(b_130) - 51) == 0)) ||
1457  ((int)(int)(*(b_130) - 52) == 0)) ||
1458  ((int)(int)(*(b_130) - 53) == 0)) ||
1459  ((int)(int)(*(b_130) - 54) == 0)) ||
1460  ((int)(int)(*(b_130) - 55) == 0)) ||
1461  ((int)(int)(*(b_130) - 56) == 0)) ||
1462  ((int)(int)(*(b_130) - 57) == 0))))
1463  {
1464 
1465  /* Line: 1496 : GO TO : cobxref.cbl */
1466  cob_set_location (st_1, 1496, st_2, st_31, st_16);
1467  goto l_18;
1468  }
1469 
1470  /* Line: 1497 : PERFORM : cobxref.cbl */
1471  cob_set_location (st_1, 1497, st_2, st_31, st_3);
1472  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
1473  frame_ptr++;
1474  if (unlikely(frame_ptr == frame_overflow))
1475  cob_fatal_error (COB_FERROR_STACK);
1476  frame_ptr->perform_through = 129;
1477  frame_ptr->return_address_ptr = &&l_196;
1478  goto l_128;
1479  l_196:
1480  frame_ptr--;
1481 
1482  /* Line: 1498 : IF : cobxref.cbl */
1483  cob_set_location (st_1, 1498, st_2, st_31, st_6);
1484  if ((((int)cob_cmp_s32 (b_55, 0) != 0) &&
1485  ((int)(int)(*(b_102) - 46) == 0)))
1486  {
1487 
1488  /* Line: 1499 : GO TO : cobxref.cbl */
1489  cob_set_location (st_1, 1499, st_2, st_31, st_16);
1490  goto l_15;
1491  }
1492 
1493  /* Line: 1500 : IF : cobxref.cbl */
1494  cob_set_location (st_1, 1500, st_2, st_31, st_6);
1495  if (((int)cob_cmp_s32 (b_55, 0) != 0))
1496  {
1497 
1498  /* Line: 1501 : GO TO : cobxref.cbl */
1499  cob_set_location (st_1, 1501, st_2, st_31, st_16);
1500  goto l_18;
1501  }
1502 
1503  /* Line: 1502 : IF : cobxref.cbl */
1504  cob_set_location (st_1, 1502, st_2, st_31, st_6);
1505  if (((int)cob_cmp_s32 (b_48, 0) == 0))
1506  {
1507 
1508  /* Line: 1503 : GO TO : cobxref.cbl */
1509  cob_set_location (st_1, 1503, st_2, st_31, st_16);
1510  goto l_15;
1511  }
1512 
1513  /* Line: 1508 : MOVE : cobxref.cbl */
1514  cob_set_location (st_1, 1508, st_2, st_31, st_4);
1515  *(b_100) = 49;
1516 
1517  /* Line: 1509 : MOVE : cobxref.cbl */
1518  cob_set_location (st_1, 1509, st_2, st_31, st_4);
1519  *(b_101) = 48;
1520 
1521  /* Line: 1510 : PERFORM : cobxref.cbl */
1522  cob_set_location (st_1, 1510, st_2, st_31, st_3);
1523  /* PERFORM zz030-Write-Sort */
1524  frame_ptr++;
1525  if (unlikely(frame_ptr == frame_overflow))
1526  cob_fatal_error (COB_FERROR_STACK);
1527  frame_ptr->perform_through = 113;
1528  frame_ptr->return_address_ptr = &&l_197;
1529  goto l_113;
1530  l_197:
1531  frame_ptr--;
1532 
1533  /* Line: 1511 : IF : cobxref.cbl */
1534  cob_set_location (st_1, 1511, st_2, st_31, st_6);
1535  if (((int)(int)(*(b_102) - 46) == 0))
1536  {
1537 
1538  /* Line: 1512 : GO TO : cobxref.cbl */
1539  cob_set_location (st_1, 1512, st_2, st_31, st_16);
1540  goto l_15;
1541  }
1542 
1543  /* Line: 1513 : GO TO : cobxref.cbl */
1544  cob_set_location (st_1, 1513, st_2, st_31, st_16);
1545  goto l_18;
1546 
1547  /* Line: 1515 : Paragraph aa048-GetIOC : cobxref.cbl */
1548  l_19:;
1549 
1550  /* Line: 1516 : PERFORM : cobxref.cbl */
1551  cob_set_location (st_1, 1516, st_2, st_32, st_3);
1552  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
1553  frame_ptr++;
1554  if (unlikely(frame_ptr == frame_overflow))
1555  cob_fatal_error (COB_FERROR_STACK);
1556  frame_ptr->perform_through = 123;
1557  frame_ptr->return_address_ptr = &&l_198;
1558  goto l_117;
1559  l_198:
1560  frame_ptr--;
1561 
1562  /* Line: 1517 : IF : cobxref.cbl */
1563  cob_set_location (st_1, 1517, st_2, st_32, st_6);
1564  if (((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
1565  ((int)(int)(*(b_130) - 39) == 0)) ||
1566  (((((((((((int)(int)(*(b_130) - 48) == 0) ||
1567  ((int)(int)(*(b_130) - 49) == 0)) ||
1568  ((int)(int)(*(b_130) - 50) == 0)) ||
1569  ((int)(int)(*(b_130) - 51) == 0)) ||
1570  ((int)(int)(*(b_130) - 52) == 0)) ||
1571  ((int)(int)(*(b_130) - 53) == 0)) ||
1572  ((int)(int)(*(b_130) - 54) == 0)) ||
1573  ((int)(int)(*(b_130) - 55) == 0)) ||
1574  ((int)(int)(*(b_130) - 56) == 0)) ||
1575  ((int)(int)(*(b_130) - 57) == 0))))
1576  {
1577 
1578  /* Line: 1518 : GO TO : cobxref.cbl */
1579  cob_set_location (st_1, 1518, st_2, st_32, st_16);
1580  goto l_19;
1581  }
1582 
1583  /* Line: 1519 : Paragraph aa048-Get-Next : cobxref.cbl */
1584  l_20:;
1585 
1586  /* Line: 1520 : IF : cobxref.cbl */
1587  cob_set_location (st_1, 1520, st_2, st_33, st_6);
1588  if (((int)(int)(*(b_102) - 46) == 0))
1589  {
1590 
1591  /* Line: 1521 : PERFORM : cobxref.cbl */
1592  cob_set_location (st_1, 1521, st_2, st_33, st_3);
1593  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
1594  frame_ptr++;
1595  if (unlikely(frame_ptr == frame_overflow))
1596  cob_fatal_error (COB_FERROR_STACK);
1597  frame_ptr->perform_through = 116;
1598  frame_ptr->return_address_ptr = &&l_199;
1599  goto l_114;
1600  l_199:
1601  frame_ptr--;
1602 
1603  /* Line: 1522 : PERFORM : cobxref.cbl */
1604  cob_set_location (st_1, 1522, st_2, st_33, st_3);
1605  /* PERFORM aa045-Test-Section THRU aa045-Exit */
1606  frame_ptr++;
1607  if (unlikely(frame_ptr == frame_overflow))
1608  cob_fatal_error (COB_FERROR_STACK);
1609  frame_ptr->perform_through = 13;
1610  frame_ptr->return_address_ptr = &&l_200;
1611  goto l_11;
1612  l_200:
1613  frame_ptr--;
1614 
1615  /* Line: 1523 : IF : cobxref.cbl */
1616  cob_set_location (st_1, 1523, st_2, st_33, st_6);
1617  if (((int)cob_cmp_s32 (b_55, 0) != 0))
1618  {
1619 
1620  /* Line: 1524 : GO TO : cobxref.cbl */
1621  cob_set_location (st_1, 1524, st_2, st_33, st_16);
1622  goto l_23;
1623  }
1624  else
1625  {
1626  /* ELSE */
1627 
1628  /* Line: 1526 : PERFORM : cobxref.cbl */
1629  cob_set_location (st_1, 1526, st_2, st_33, st_3);
1630  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
1631  frame_ptr++;
1632  if (unlikely(frame_ptr == frame_overflow))
1633  cob_fatal_error (COB_FERROR_STACK);
1634  frame_ptr->perform_through = 123;
1635  frame_ptr->return_address_ptr = &&l_201;
1636  goto l_117;
1637  l_201:
1638  frame_ptr--;
1639  }
1640  }
1641 
1642  /* Line: 1529 : IF : cobxref.cbl */
1643  cob_set_location (st_1, 1529, st_2, st_33, st_6);
1644  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"SAME ", 5) != 0))
1645  {
1646 
1647  /* Line: 1530 : GO TO : cobxref.cbl */
1648  cob_set_location (st_1, 1530, st_2, st_33, st_16);
1649  goto l_19;
1650  }
1651 
1652  /* Line: 1532 : Paragraph aa049-Getword : cobxref.cbl */
1653  l_21:;
1654 
1655  /* Line: 1533 : PERFORM : cobxref.cbl */
1656  cob_set_location (st_1, 1533, st_2, st_34, st_3);
1657  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
1658  frame_ptr++;
1659  if (unlikely(frame_ptr == frame_overflow))
1660  cob_fatal_error (COB_FERROR_STACK);
1661  frame_ptr->perform_through = 123;
1662  frame_ptr->return_address_ptr = &&l_202;
1663  goto l_117;
1664  l_202:
1665  frame_ptr--;
1666 
1667  /* Line: 1534 : PERFORM : cobxref.cbl */
1668  cob_set_location (st_1, 1534, st_2, st_34, st_3);
1669  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
1670  frame_ptr++;
1671  if (unlikely(frame_ptr == frame_overflow))
1672  cob_fatal_error (COB_FERROR_STACK);
1673  frame_ptr->perform_through = 129;
1674  frame_ptr->return_address_ptr = &&l_203;
1675  goto l_128;
1676  l_203:
1677  frame_ptr--;
1678 
1679  /* Line: 1535 : IF : cobxref.cbl */
1680  cob_set_location (st_1, 1535, st_2, st_34, st_6);
1681  if (((int)cob_cmp_s32 (b_55, 0) != 0))
1682  {
1683 
1684  /* Line: 1536 : GO TO : cobxref.cbl */
1685  cob_set_location (st_1, 1536, st_2, st_34, st_16);
1686  goto l_21;
1687  }
1688 
1689  /* Line: 1538 : MOVE : cobxref.cbl */
1690  cob_set_location (st_1, 1538, st_2, st_34, st_4);
1691  *(b_100) = 49;
1692 
1693  /* Line: 1539 : MOVE : cobxref.cbl */
1694  cob_set_location (st_1, 1539, st_2, st_34, st_4);
1695  *(b_101) = 48;
1696 
1697  /* Line: 1540 : PERFORM : cobxref.cbl */
1698  cob_set_location (st_1, 1540, st_2, st_34, st_3);
1699  /* PERFORM zz030-Write-Sort */
1700  frame_ptr++;
1701  if (unlikely(frame_ptr == frame_overflow))
1702  cob_fatal_error (COB_FERROR_STACK);
1703  frame_ptr->perform_through = 113;
1704  frame_ptr->return_address_ptr = &&l_204;
1705  goto l_113;
1706  l_204:
1707  frame_ptr--;
1708 
1709  /* Line: 1541 : IF : cobxref.cbl */
1710  cob_set_location (st_1, 1541, st_2, st_34, st_6);
1711  if (((int)(int)(*(b_102) - 46) == 0))
1712  {
1713 
1714  /* Line: 1542 : GO TO : cobxref.cbl */
1715  cob_set_location (st_1, 1542, st_2, st_34, st_16);
1716  goto l_20;
1717  }
1718 
1719  /* Line: 1543 : GO TO : cobxref.cbl */
1720  cob_set_location (st_1, 1543, st_2, st_34, st_16);
1721  goto l_21;
1722 
1723  /* Line: 1545 : Paragraph aa050-ReadLoop3 : cobxref.cbl */
1724  l_22:;
1725 
1726  /* Line: 1549 : PERFORM : cobxref.cbl */
1727  cob_set_location (st_1, 1549, st_2, st_35, st_3);
1728  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
1729  frame_ptr++;
1730  if (unlikely(frame_ptr == frame_overflow))
1731  cob_fatal_error (COB_FERROR_STACK);
1732  frame_ptr->perform_through = 116;
1733  frame_ptr->return_address_ptr = &&l_205;
1734  goto l_114;
1735  l_205:
1736  frame_ptr--;
1737 
1738  /* Line: 1551 : Paragraph aa060-ReadLoop3a : cobxref.cbl */
1739  l_23:;
1740 
1741  /* Line: 1552 : PERFORM : cobxref.cbl */
1742  cob_set_location (st_1, 1552, st_2, st_36, st_3);
1743  /* PERFORM zz170-Check-4-Section THRU zz170-Exit */
1744  frame_ptr++;
1745  if (unlikely(frame_ptr == frame_overflow))
1746  cob_fatal_error (COB_FERROR_STACK);
1747  frame_ptr->perform_through = 147;
1748  frame_ptr->return_address_ptr = &&l_206;
1749  goto l_145;
1750  l_206:
1751  frame_ptr--;
1752 
1753  /* Line: 1553 : IF : cobxref.cbl */
1754  cob_set_location (st_1, 1553, st_2, st_36, st_6);
1755  if (((int)(int)(*(b_105) - 89) == 0))
1756  {
1757 
1758  /* Line: 1554 : GO TO : cobxref.cbl */
1759  cob_set_location (st_1, 1554, st_2, st_36, st_16);
1760  goto l_22;
1761  }
1762 
1763  /* Line: 1555 : IF : cobxref.cbl */
1764  cob_set_location (st_1, 1555, st_2, st_36, st_6);
1765  if ((((int)cob_cmp_numdisp (b_100, 1, 0, 0) > 0) &&
1766  ((int)cob_cmp_numdisp (b_100, 1, 8LL, 0) < 0)))
1767  {
1768 
1769  /* Line: 1556 : MOVE : cobxref.cbl */
1770  cob_set_location (st_1, 1556, st_2, st_36, st_4);
1771  (*(int *)(b_44)) = 1;
1772 
1773  /* Line: 1557 : PERFORM : cobxref.cbl */
1774  cob_set_location (st_1, 1557, st_2, st_36, st_3);
1775  /* PERFORM ba000-Process-WS */
1776  frame_ptr++;
1777  if (unlikely(frame_ptr == frame_overflow))
1778  cob_fatal_error (COB_FERROR_STACK);
1779  frame_ptr->perform_through = 24;
1780  frame_ptr->return_address_ptr = &&l_207;
1781  goto l_24;
1782  l_207:
1783  frame_ptr--;
1784  }
1785 
1786  /* Line: 1559 : IF : cobxref.cbl */
1787  cob_set_location (st_1, 1559, st_2, st_36, st_6);
1788  if (((int)cob_cmp_numdisp (b_100, 1, 0, 0) == 0))
1789  {
1790 
1791  /* Line: 1560 : GO TO : cobxref.cbl */
1792  cob_set_location (st_1, 1560, st_2, st_36, st_16);
1793  goto l_22;
1794  }
1795 
1796  /* Line: 1562 : PERFORM : cobxref.cbl */
1797  cob_set_location (st_1, 1562, st_2, st_36, st_3);
1798  /* PERFORM bb000-Process-Procedure */
1799  frame_ptr++;
1800  if (unlikely(frame_ptr == frame_overflow))
1801  cob_fatal_error (COB_FERROR_STACK);
1802  frame_ptr->perform_through = 35;
1803  frame_ptr->return_address_ptr = &&l_208;
1804  goto l_35;
1805  l_208:
1806  frame_ptr--;
1807 
1808  /* Line: 1563 : IF : cobxref.cbl */
1809  cob_set_location (st_1, 1563, st_2, st_36, st_6);
1810  if (((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0))
1811  {
1812 
1813  /* Line: 1564 : CLOSE : cobxref.cbl */
1814  cob_set_location (st_1, 1564, st_2, st_36, st_15);
1815  cob_close (h_SUPPLEMENTAL_PART1_OUT, NULL, 0, 0);
1816  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1817  {
1818  /* PERFORM Default Error Handler */
1819  frame_ptr++;
1820  if (unlikely(frame_ptr == frame_overflow))
1821  cob_fatal_error (COB_FERROR_STACK);
1822  frame_ptr->perform_through = 1;
1823  frame_ptr->return_address_ptr = &&l_209;
1824  goto l_1;
1825  l_209:
1826  frame_ptr--;
1827  }
1828  }
1829  else
1830  {
1831  /* ELSE */
1832 
1833  /* Line: 1566 : CLOSE : cobxref.cbl */
1834  cob_set_location (st_1, 1566, st_2, st_36, st_15);
1835  cob_close (h_SOURCEINPUT, &f_113, 0, 0);
1836  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1837  {
1838  /* PERFORM Default Error Handler */
1839  frame_ptr++;
1840  if (unlikely(frame_ptr == frame_overflow))
1841  cob_fatal_error (COB_FERROR_STACK);
1842  frame_ptr->perform_through = 1;
1843  frame_ptr->return_address_ptr = &&l_210;
1844  goto l_1;
1845  l_210:
1846  frame_ptr--;
1847  }
1848  cob_close (h_SUPPLEMENTAL_PART1_OUT, NULL, 0, 0);
1849  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1850  {
1851  /* PERFORM Default Error Handler */
1852  frame_ptr++;
1853  if (unlikely(frame_ptr == frame_overflow))
1854  cob_fatal_error (COB_FERROR_STACK);
1855  frame_ptr->perform_through = 1;
1856  frame_ptr->return_address_ptr = &&l_211;
1857  goto l_1;
1858  l_211:
1859  frame_ptr--;
1860  }
1861  }
1862 
1863  /* Line: 1567 : PERFORM : cobxref.cbl */
1864  cob_set_location (st_1, 1567, st_2, st_36, st_3);
1865  /* PERFORM bc000-Last-Act */
1866  frame_ptr++;
1867  if (unlikely(frame_ptr == frame_overflow))
1868  cob_fatal_error (COB_FERROR_STACK);
1869  frame_ptr->perform_through = 51;
1870  frame_ptr->return_address_ptr = &&l_212;
1871  goto l_51;
1872  l_212:
1873  frame_ptr--;
1874 
1875  /* Line: 1568 : IF : cobxref.cbl */
1876  cob_set_location (st_1, 1568, st_2, st_36, st_6);
1877  if (!((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0))
1878  {
1879 
1880  /* Line: 1569 : PERFORM : cobxref.cbl */
1881  cob_set_location (st_1, 1569, st_2, st_36, st_3);
1882  /* PERFORM bc620-Do-Global-Conditions THRU bc629-Exit */
1883  frame_ptr++;
1884  if (unlikely(frame_ptr == frame_overflow))
1885  cob_fatal_error (COB_FERROR_STACK);
1886  frame_ptr->perform_through = 108;
1887  frame_ptr->return_address_ptr = &&l_213;
1888  goto l_107;
1889  l_213:
1890  frame_ptr--;
1891 
1892  /* Line: 1570 : CLOSE : cobxref.cbl */
1893  cob_set_location (st_1, 1570, st_2, st_36, st_15);
1894  cob_close (h_SOURCE_LISTING, NULL, 0, 0);
1895  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1896  {
1897  /* PERFORM Default Error Handler */
1898  frame_ptr++;
1899  if (unlikely(frame_ptr == frame_overflow))
1900  cob_fatal_error (COB_FERROR_STACK);
1901  frame_ptr->perform_through = 1;
1902  frame_ptr->return_address_ptr = &&l_214;
1903  goto l_1;
1904  l_214:
1905  frame_ptr--;
1906  }
1907  }
1908 
1909  /* Line: 1572 : IF : cobxref.cbl */
1910  cob_set_location (st_1, 1572, st_2, st_36, st_6);
1911  if ((!((int)(int)(*(b_77) - 89) == 0) &&
1912  !((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0)))
1913  {
1914 
1915  /* Line: 1576 : CALL : cobxref.cbl */
1916  cob_set_location (st_1, 1576, st_2, st_36, st_5);
1917  cob_procedure_params[0] = &f_119;
1918  cob_glob_ptr->cob_call_params = 1;
1919  b_1 = cob_sys_delete_file (b_119);
1920 
1921  /* Line: 1577 : CALL : cobxref.cbl */
1922  cob_set_location (st_1, 1577, st_2, st_36, st_5);
1923  cob_procedure_params[0] = &f_118;
1924  cob_glob_ptr->cob_call_params = 1;
1925  b_1 = cob_sys_delete_file (b_118);
1926  }
1927 
1928  /* Line: 1579 : IF : cobxref.cbl */
1929  cob_set_location (st_1, 1579, st_2, st_36, st_6);
1930  if (((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0))
1931  {
1932 
1933  /* Line: 1580 : PERFORM : cobxref.cbl */
1934  cob_set_location (st_1, 1580, st_2, st_36, st_3);
1935  /* PERFORM zz190-Init-Program THRU zz190-Exit */
1936  frame_ptr++;
1937  if (unlikely(frame_ptr == frame_overflow))
1938  cob_fatal_error (COB_FERROR_STACK);
1939  frame_ptr->perform_through = 155;
1940  frame_ptr->return_address_ptr = &&l_215;
1941  goto l_154;
1942  l_215:
1943  frame_ptr--;
1944 
1945  /* Line: 1581 : MOVE : cobxref.cbl */
1946  cob_set_location (st_1, 1581, st_2, st_36, st_4);
1947  memset (b_27, 32, 159);
1948 
1949  /* Line: 1582 : WRITE : cobxref.cbl */
1950  cob_set_location (st_1, 1582, st_2, st_36, st_13);
1951  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
1952  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1953  {
1954  /* PERFORM Default Error Handler */
1955  frame_ptr++;
1956  if (unlikely(frame_ptr == frame_overflow))
1957  cob_fatal_error (COB_FERROR_STACK);
1958  frame_ptr->perform_through = 1;
1959  frame_ptr->return_address_ptr = &&l_216;
1960  goto l_1;
1961  l_216:
1962  frame_ptr--;
1963  }
1964 
1965  /* Line: 1583 : WRITE : cobxref.cbl */
1966  cob_set_location (st_1, 1583, st_2, st_36, st_13);
1967  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
1968  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1969  {
1970  /* PERFORM Default Error Handler */
1971  frame_ptr++;
1972  if (unlikely(frame_ptr == frame_overflow))
1973  cob_fatal_error (COB_FERROR_STACK);
1974  frame_ptr->perform_through = 1;
1975  frame_ptr->return_address_ptr = &&l_217;
1976  goto l_1;
1977  l_217:
1978  frame_ptr--;
1979  }
1980 
1981  /* Line: 1584 : WRITE : cobxref.cbl */
1982  cob_set_location (st_1, 1584, st_2, st_36, st_13);
1983  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
1984  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1985  {
1986  /* PERFORM Default Error Handler */
1987  frame_ptr++;
1988  if (unlikely(frame_ptr == frame_overflow))
1989  cob_fatal_error (COB_FERROR_STACK);
1990  frame_ptr->perform_through = 1;
1991  frame_ptr->return_address_ptr = &&l_218;
1992  goto l_1;
1993  l_218:
1994  frame_ptr--;
1995  }
1996 
1997  /* Line: 1585 : ADD : cobxref.cbl */
1998  cob_set_location (st_1, 1585, st_2, st_36, st_22);
1999  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 3);
2000 
2001  /* Line: 1586 : MOVE : cobxref.cbl */
2002  cob_set_location (st_1, 1586, st_2, st_36, st_4);
2003  *(b_85) = 48;
2004 
2005  /* Line: 1587 : GO TO : cobxref.cbl */
2006  cob_set_location (st_1, 1587, st_2, st_36, st_16);
2007  goto l_5;
2008  }
2009 
2010  /* Line: 1589 : MOVE : cobxref.cbl */
2011  cob_set_location (st_1, 1589, st_2, st_36, st_4);
2012  b_1 = 0;
2013 
2014  /* Line: 1590 : GOBACK : cobxref.cbl */
2015  cob_set_location (st_1, 1590, st_2, st_36, st_9);
2016  goto exit_program;
2017 
2018  /* Line: 1592 : Section ba000-Process-WS : cobxref.cbl */
2019  l_24:;
2020 
2021  /* Line: 1593 : Paragraph ba020-GetAWord : cobxref.cbl */
2022  l_25:;
2023 
2024  /* Line: 1597 : PERFORM : cobxref.cbl */
2025  cob_set_location (st_1, 1597, st_37, st_38, st_3);
2026  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2027  frame_ptr++;
2028  if (unlikely(frame_ptr == frame_overflow))
2029  cob_fatal_error (COB_FERROR_STACK);
2030  frame_ptr->perform_through = 123;
2031  frame_ptr->return_address_ptr = &&l_219;
2032  goto l_117;
2033  l_219:
2034  frame_ptr--;
2035 
2036  /* Line: 1598 : IF : cobxref.cbl */
2037  cob_set_location (st_1, 1598, st_37, st_38, st_6);
2038  if (((int)cob_cmp_s32 (b_48, 0) == 0))
2039  {
2040 
2041  /* Line: 1599 : GO TO : cobxref.cbl */
2042  cob_set_location (st_1, 1599, st_37, st_38, st_16);
2043  goto l_25;
2044  }
2045 
2046  /* Line: 1600 : IF : cobxref.cbl */
2047  cob_set_location (st_1, 1600, st_37, st_38, st_6);
2048  if ((((int)(int)(*(b_105) - 89) == 0) &&
2049  ((int)cob_cmp_numdisp (b_100, 1, 8LL, 0) == 0)))
2050  {
2051 
2052  /* Line: 1602 : GO TO : cobxref.cbl */
2053  cob_set_location (st_1, 1602, st_37, st_38, st_16);
2054  goto l_34;
2055  }
2056 
2057  /* Line: 1603 : IF : cobxref.cbl */
2058  cob_set_location (st_1, 1603, st_37, st_38, st_6);
2059  if (((int)(int)(*(b_105) - 89) == 0))
2060  {
2061 
2062  /* Line: 1604 : MOVE : cobxref.cbl */
2063  cob_set_location (st_1, 1604, st_37, st_38, st_4);
2064  *(b_105) = 32;
2065 
2066  /* Line: 1605 : PERFORM : cobxref.cbl */
2067  cob_set_location (st_1, 1605, st_37, st_38, st_3);
2068  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
2069  frame_ptr++;
2070  if (unlikely(frame_ptr == frame_overflow))
2071  cob_fatal_error (COB_FERROR_STACK);
2072  frame_ptr->perform_through = 116;
2073  frame_ptr->return_address_ptr = &&l_220;
2074  goto l_114;
2075  l_220:
2076  frame_ptr--;
2077 
2078  /* Line: 1606 : GO TO : cobxref.cbl */
2079  cob_set_location (st_1, 1606, st_37, st_38, st_16);
2080  goto l_25;
2081  }
2082 
2083  /* Line: 1610 : IF : cobxref.cbl */
2084  cob_set_location (st_1, 1610, st_37, st_38, st_6);
2085  if ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"FD ", 3) == 0) ||
2086  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"RD ", 3) == 0)))
2087  {
2088 
2089  /* Line: 1611 : MOVE : cobxref.cbl */
2090  cob_set_location (st_1, 1611, st_37, st_38, st_4);
2091  memset (b_123, 48, 2);
2092  }
2093  else
2094  {
2095  /* ELSE */
2096 
2097  /* Line: 1613 : IF : cobxref.cbl */
2098  cob_set_location (st_1, 1613, st_37, st_38, st_6);
2099  if ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"CD ", 3) == 0) ||
2100  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"SD ", 3) == 0)))
2101  {
2102 
2103  /* Line: 1614 : MOVE : cobxref.cbl */
2104  cob_set_location (st_1, 1614, st_37, st_38, st_4);
2105  memset (b_123, 57, 2);
2106  }
2107  }
2108 
2109  /* Line: 1619 : IF : cobxref.cbl */
2110  cob_set_location (st_1, 1619, st_37, st_38, st_6);
2111  if ((((((int)memcmp (b_130 + 0, (cob_u8_ptr)"FD ", 3) == 0) ||
2112  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"SD ", 3) == 0)) ||
2113  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"RD ", 3) == 0)) ||
2114  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"CD ", 3) == 0)))
2115  {
2116 
2117  /* Line: 1620 : PERFORM : cobxref.cbl */
2118  cob_set_location (st_1, 1620, st_37, st_38, st_3);
2119  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2120  frame_ptr++;
2121  if (unlikely(frame_ptr == frame_overflow))
2122  cob_fatal_error (COB_FERROR_STACK);
2123  frame_ptr->perform_through = 123;
2124  frame_ptr->return_address_ptr = &&l_221;
2125  goto l_117;
2126  l_221:
2127  frame_ptr--;
2128 
2129  /* Line: 1621 : MOVE : cobxref.cbl */
2130  cob_set_location (st_1, 1621, st_37, st_38, st_4);
2131  *(b_101) = 48;
2132 
2133  /* Line: 1622 : MOVE : cobxref.cbl */
2134  cob_set_location (st_1, 1622, st_37, st_38, st_4);
2135  *(b_89) = 48;
2136 
2137  /* Line: 1623 : MOVE : cobxref.cbl */
2138  cob_set_location (st_1, 1623, st_37, st_38, st_4);
2139  memcpy (b_121, b_130 + 0, 32);
2140 
2141  /* Line: 1624 : MOVE : cobxref.cbl */
2142  cob_set_location (st_1, 1624, st_37, st_38, st_4);
2143  memcpy (b_122, b_94, 6);
2144 
2145  /* Line: 1625 : PERFORM : cobxref.cbl */
2146  cob_set_location (st_1, 1625, st_37, st_38, st_3);
2147  /* PERFORM zz030-Write-Sort */
2148  frame_ptr++;
2149  if (unlikely(frame_ptr == frame_overflow))
2150  cob_fatal_error (COB_FERROR_STACK);
2151  frame_ptr->perform_through = 113;
2152  frame_ptr->return_address_ptr = &&l_222;
2153  goto l_113;
2154  l_222:
2155  frame_ptr--;
2156 
2157  /* Line: 1626 : PERFORM : cobxref.cbl */
2158  cob_set_location (st_1, 1626, st_37, st_38, st_3);
2159  /* PERFORM ba040-Clear-To-Next-Period THRU ba049-Exit */
2160  frame_ptr++;
2161  if (unlikely(frame_ptr == frame_overflow))
2162  cob_fatal_error (COB_FERROR_STACK);
2163  frame_ptr->perform_through = 27;
2164  frame_ptr->return_address_ptr = &&l_223;
2165  goto l_26;
2166  l_223:
2167  frame_ptr--;
2168 
2169  /* Line: 1627 : GO TO : cobxref.cbl */
2170  cob_set_location (st_1, 1627, st_37, st_38, st_16);
2171  goto l_25;
2172  }
2173 
2174  /* Line: 1631 : IF : cobxref.cbl */
2175  cob_set_location (st_1, 1631, st_37, st_38, st_6);
2176  if (!cob_is_numeric (COB_SET_FLD(f0, (*(int *)(b_48)), b_130 + 0, &a_4)))
2177  {
2178 
2179  /* Line: 1632 : DISPLAY : cobxref.cbl */
2180  cob_set_location (st_1, 1632, st_37, st_38, st_7);
2181  cob_display (0, 1, 7, &c_18, &f_227, COB_SET_FLD(f0, (*(int *)(b_48)), b_130 + 0, &a_4), &c_19, &f_125, &c_20, &f_94);
2182 
2183  /* Line: 1633 : CLOSE : cobxref.cbl */
2184  cob_set_location (st_1, 1633, st_37, st_38, st_15);
2185  cob_close (h_SOURCE_LISTING, NULL, 0, 0);
2186  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2187  {
2188  /* PERFORM Default Error Handler */
2189  frame_ptr++;
2190  if (unlikely(frame_ptr == frame_overflow))
2191  cob_fatal_error (COB_FERROR_STACK);
2192  frame_ptr->perform_through = 1;
2193  frame_ptr->return_address_ptr = &&l_224;
2194  goto l_1;
2195  l_224:
2196  frame_ptr--;
2197  }
2198  cob_close (h_SOURCEINPUT, &f_113, 0, 0);
2199  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2200  {
2201  /* PERFORM Default Error Handler */
2202  frame_ptr++;
2203  if (unlikely(frame_ptr == frame_overflow))
2204  cob_fatal_error (COB_FERROR_STACK);
2205  frame_ptr->perform_through = 1;
2206  frame_ptr->return_address_ptr = &&l_225;
2207  goto l_1;
2208  l_225:
2209  frame_ptr--;
2210  }
2211  cob_close (h_SUPPLEMENTAL_PART1_OUT, NULL, 0, 0);
2212  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2213  {
2214  /* PERFORM Default Error Handler */
2215  frame_ptr++;
2216  if (unlikely(frame_ptr == frame_overflow))
2217  cob_fatal_error (COB_FERROR_STACK);
2218  frame_ptr->perform_through = 1;
2219  frame_ptr->return_address_ptr = &&l_226;
2220  goto l_1;
2221  l_226:
2222  frame_ptr--;
2223  }
2224 
2225  /* Line: 1635 : MOVE : cobxref.cbl */
2226  cob_set_location (st_1, 1635, st_37, st_38, st_4);
2227  b_1 = 16;
2228 
2229  /* Line: 1636 : GOBACK : cobxref.cbl */
2230  cob_set_location (st_1, 1636, st_37, st_38, st_9);
2231  goto exit_program;
2232  }
2233 
2234  /* Line: 1640 : PERFORM : cobxref.cbl */
2235  cob_set_location (st_1, 1640, st_37, st_38, st_3);
2236  /* PERFORM zz160-Clean-Number THRU zz160-Exit */
2237  frame_ptr++;
2238  if (unlikely(frame_ptr == frame_overflow))
2239  cob_fatal_error (COB_FERROR_STACK);
2240  frame_ptr->perform_through = 144;
2241  frame_ptr->return_address_ptr = &&l_227;
2242  goto l_143;
2243  l_227:
2244  frame_ptr--;
2245 
2246  /* Line: 1641 : IF : cobxref.cbl */
2247  cob_set_location (st_1, 1641, st_37, st_38, st_6);
2248  if ((((int)cob_cmp_numdisp (b_95, 2, 0LL, 0) > 0) &&
2249  ((int)cob_cmp_numdisp (b_95, 2, 50LL, 0) < 0)))
2250  {
2251 
2252  /* Line: 1642 : MOVE : cobxref.cbl */
2253  cob_set_location (st_1, 1642, st_37, st_38, st_4);
2254  memset (b_109, 32, 32);
2255  }
2256 
2257  /* Line: 1644 : IF : cobxref.cbl */
2258  cob_set_location (st_1, 1644, st_37, st_38, st_6);
2259  if ((((int)cob_cmp_numdisp (b_95, 2, 1LL, 0) == 0) &&
2260  (((int)cob_cmp_numdisp (b_123, 2, 99LL, 0) == 0) ||
2261  ((int)cob_cmp_numdisp (b_100, 1, 1LL, 0) > 0))))
2262  {
2263 
2264  /* Line: 1647 : MOVE : cobxref.cbl */
2265  cob_set_location (st_1, 1647, st_37, st_38, st_4);
2266  *(b_89) = 48;
2267 
2268  /* Line: 1648 : MOVE : cobxref.cbl */
2269  cob_set_location (st_1, 1648, st_37, st_38, st_4);
2270  memcpy (b_123, "01", 2);
2271  }
2272 
2273  /* Line: 1650 : IF : cobxref.cbl */
2274  cob_set_location (st_1, 1650, st_37, st_38, st_6);
2275  if (((((((int)cob_cmp_numdisp (b_95, 2, 88LL, 0) == 0) ||
2276  ((int)cob_cmp_numdisp (b_95, 2, 78LL, 0) == 0)) ||
2277  ((int)cob_cmp_numdisp (b_95, 2, 77LL, 0) == 0)) ||
2278  ((int)cob_cmp_numdisp (b_95, 2, 66LL, 0) == 0)) ||
2279  (((int)cob_cmp_numdisp (b_95, 2, 0LL, 0) > 0) &&
2280  ((int)cob_cmp_numdisp (b_95, 2, 50LL, 0) < 0))))
2281  {
2282 
2283  /* Line: 1652 : GO TO : cobxref.cbl */
2284  cob_set_location (st_1, 1652, st_37, st_38, st_16);
2285  goto l_28;
2286  }
2287 
2288  /* Line: 1656 : DISPLAY : cobxref.cbl */
2289  cob_set_location (st_1, 1656, st_37, st_38, st_7);
2290  cob_display (0, 1, 10, &c_18, &f_228, &c_21, &f_95, &c_22, COB_SET_FLD(f0, 31, b_130 + 0, &a_4), &c_19, &f_125, &c_20, &f_94);
2291 
2292  /* Line: 1657 : CLOSE : cobxref.cbl */
2293  cob_set_location (st_1, 1657, st_37, st_38, st_15);
2294  cob_close (h_SOURCE_LISTING, NULL, 0, 0);
2295  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2296  {
2297  /* PERFORM Default Error Handler */
2298  frame_ptr++;
2299  if (unlikely(frame_ptr == frame_overflow))
2300  cob_fatal_error (COB_FERROR_STACK);
2301  frame_ptr->perform_through = 1;
2302  frame_ptr->return_address_ptr = &&l_228;
2303  goto l_1;
2304  l_228:
2305  frame_ptr--;
2306  }
2307  cob_close (h_SOURCEINPUT, &f_113, 0, 0);
2308  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2309  {
2310  /* PERFORM Default Error Handler */
2311  frame_ptr++;
2312  if (unlikely(frame_ptr == frame_overflow))
2313  cob_fatal_error (COB_FERROR_STACK);
2314  frame_ptr->perform_through = 1;
2315  frame_ptr->return_address_ptr = &&l_229;
2316  goto l_1;
2317  l_229:
2318  frame_ptr--;
2319  }
2320  cob_close (h_SUPPLEMENTAL_PART1_OUT, NULL, 0, 0);
2321  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2322  {
2323  /* PERFORM Default Error Handler */
2324  frame_ptr++;
2325  if (unlikely(frame_ptr == frame_overflow))
2326  cob_fatal_error (COB_FERROR_STACK);
2327  frame_ptr->perform_through = 1;
2328  frame_ptr->return_address_ptr = &&l_230;
2329  goto l_1;
2330  l_230:
2331  frame_ptr--;
2332  }
2333 
2334  /* Line: 1658 : MOVE : cobxref.cbl */
2335  cob_set_location (st_1, 1658, st_37, st_38, st_4);
2336  b_1 = 20;
2337 
2338  /* Line: 1659 : GOBACK : cobxref.cbl */
2339  cob_set_location (st_1, 1659, st_37, st_38, st_9);
2340  goto exit_program;
2341 
2342  /* Line: 1661 : Paragraph ba040-Clear-To-Next-Period: cobxref.cbl */
2343  l_26:;
2344 
2345  /* Line: 1662 : IF : cobxref.cbl */
2346  cob_set_location (st_1, 1662, st_37, st_39, st_6);
2347  if ((((int)(int)(*(b_102) - 46) == 0) &&
2348  ((int)cob_cmp_s32 (b_44, (*(int *)(b_50))) >= 0)))
2349  {
2350 
2351  /* Line: 1664 : ADD : cobxref.cbl */
2352  cob_set_location (st_1, 1664, st_37, st_39, st_22);
2353  (*(int *)(b_44)) = ((*(int *)(b_44)) + 1);
2354 
2355  /* Line: 1665 : MOVE : cobxref.cbl */
2356  cob_set_location (st_1, 1665, st_37, st_39, st_4);
2357  *(b_102) = 32;
2358 
2359  /* Line: 1666 : GO TO : cobxref.cbl */
2360  cob_set_location (st_1, 1666, st_37, st_39, st_16);
2361  goto l_27;
2362  }
2363 
2364  /* Line: 1667 : IF : cobxref.cbl */
2365  cob_set_location (st_1, 1667, st_37, st_39, st_6);
2366  if (((int)(int)(*(b_102) - 46) == 0))
2367  {
2368 
2369  /* Line: 1668 : GO TO : cobxref.cbl */
2370  cob_set_location (st_1, 1668, st_37, st_39, st_16);
2371  goto l_27;
2372  }
2373 
2374  /* Line: 1669 : PERFORM : cobxref.cbl */
2375  cob_set_location (st_1, 1669, st_37, st_39, st_3);
2376  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2377  frame_ptr++;
2378  if (unlikely(frame_ptr == frame_overflow))
2379  cob_fatal_error (COB_FERROR_STACK);
2380  frame_ptr->perform_through = 123;
2381  frame_ptr->return_address_ptr = &&l_231;
2382  goto l_117;
2383  l_231:
2384  frame_ptr--;
2385 
2386  /* Line: 1670 : IF : cobxref.cbl */
2387  cob_set_location (st_1, 1670, st_37, st_39, st_6);
2388  if (((int)cob_cmp_numdisp (b_98, 1, 1LL, 0) == 0))
2389  {
2390 
2391  /* Line: 1671 : MOVE : cobxref.cbl */
2392  cob_set_location (st_1, 1671, st_37, st_39, st_4);
2393  *(b_98) = 48;
2394 
2395  /* Line: 1672 : GO TO : cobxref.cbl */
2396  cob_set_location (st_1, 1672, st_37, st_39, st_16);
2397  goto l_26;
2398  }
2399 
2400  /* Line: 1673 : IF : cobxref.cbl */
2401  cob_set_location (st_1, 1673, st_37, st_39, st_6);
2402  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"GLOBAL ", 7) == 0))
2403  {
2404 
2405  /* Line: 1674 : MOVE : cobxref.cbl */
2406  cob_set_location (st_1, 1674, st_37, st_39, st_4);
2407  *(b_89) = 49;
2408 
2409  /* Line: 1675 : PERFORM : cobxref.cbl */
2410  cob_set_location (st_1, 1675, st_37, st_39, st_3);
2411  /* PERFORM zz200-Load-Git THRU zz200-Exit */
2412  frame_ptr++;
2413  if (unlikely(frame_ptr == frame_overflow))
2414  cob_fatal_error (COB_FERROR_STACK);
2415  frame_ptr->perform_through = 157;
2416  frame_ptr->return_address_ptr = &&l_232;
2417  goto l_156;
2418  l_232:
2419  frame_ptr--;
2420 
2421  /* Line: 1676 : GO TO : cobxref.cbl */
2422  cob_set_location (st_1, 1676, st_37, st_39, st_16);
2423  goto l_26;
2424  }
2425 
2426  /* Line: 1677 : IF : cobxref.cbl */
2427  cob_set_location (st_1, 1677, st_37, st_39, st_6);
2428  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"INDEXED ", 8) == 0))
2429  {
2430 
2431  /* Line: 1678 : PERFORM : cobxref.cbl */
2432  cob_set_location (st_1, 1678, st_37, st_39, st_3);
2433  /* PERFORM ba052-After-Index */
2434  frame_ptr++;
2435  if (unlikely(frame_ptr == frame_overflow))
2436  cob_fatal_error (COB_FERROR_STACK);
2437  frame_ptr->perform_through = 32;
2438  frame_ptr->return_address_ptr = &&l_233;
2439  goto l_32;
2440  l_233:
2441  frame_ptr--;
2442 
2443  /* Line: 1679 : GO TO : cobxref.cbl */
2444  cob_set_location (st_1, 1679, st_37, st_39, st_16);
2445  goto l_26;
2446  }
2447 
2448  /* Line: 1680 : IF : cobxref.cbl */
2449  cob_set_location (st_1, 1680, st_37, st_39, st_6);
2450  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"DEPENDING ", 10) == 0))
2451  {
2452 
2453  /* Line: 1681 : PERFORM : cobxref.cbl */
2454  cob_set_location (st_1, 1681, st_37, st_39, st_3);
2455  /* PERFORM ba053-After-Depending */
2456  frame_ptr++;
2457  if (unlikely(frame_ptr == frame_overflow))
2458  cob_fatal_error (COB_FERROR_STACK);
2459  frame_ptr->perform_through = 33;
2460  frame_ptr->return_address_ptr = &&l_234;
2461  goto l_33;
2462  l_234:
2463  frame_ptr--;
2464 
2465  /* Line: 1682 : GO TO : cobxref.cbl */
2466  cob_set_location (st_1, 1682, st_37, st_39, st_16);
2467  goto l_26;
2468  }
2469 
2470  /* Line: 1683 : IF : cobxref.cbl */
2471  cob_set_location (st_1, 1683, st_37, st_39, st_6);
2472  if ((((int)cob_cmp_numdisp (b_100, 1, 7LL, 0) == 0) &&
2473  ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"TO ", 6) == 0) ||
2474  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"FROM ", 6) == 0)) ||
2475  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"USING ", 6) == 0))))
2476  {
2477 
2478  /* Line: 1685 : PERFORM : cobxref.cbl */
2479  cob_set_location (st_1, 1685, st_37, st_39, st_3);
2480  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2481  frame_ptr++;
2482  if (unlikely(frame_ptr == frame_overflow))
2483  cob_fatal_error (COB_FERROR_STACK);
2484  frame_ptr->perform_through = 123;
2485  frame_ptr->return_address_ptr = &&l_235;
2486  goto l_117;
2487  l_235:
2488  frame_ptr--;
2489 
2490  /* Line: 1686 : INSPECT : cobxref.cbl */
2491  cob_set_location (st_1, 1686, st_37, st_39, st_40);
2492  cob_inspect_init (&f_138, 0);
2493  cob_inspect_start ();
2494  cob_inspect_all (&f_55, (cob_field *)&c_23);
2495  cob_inspect_finish ();
2496 
2497  /* Line: 1687 : IF : cobxref.cbl */
2498  cob_set_location (st_1, 1687, st_37, st_39, st_6);
2499  if (((int)cob_cmp_s32 (b_55, 0) != 0))
2500  {
2501 
2502  /* Line: 1688 : MOVE : cobxref.cbl */
2503  cob_set_location (st_1, 1688, st_37, st_39, st_4);
2504  memcpy (b_147, b_130, 1024);
2505 
2506  /* Line: 1689 : UNSTRING : cobxref.cbl */
2507  cob_set_location (st_1, 1689, st_37, st_39, st_17);
2508  cob_unstring_init (&f_147, NULL, 1);
2509  cob_unstring_delimited ((cob_field *)&c_23, 0);
2510  cob_unstring_into (&f_138, 0, 0);
2511  cob_unstring_finish ();
2512  }
2513 
2514  /* Line: 1691 : PERFORM : cobxref.cbl */
2515  cob_set_location (st_1, 1691, st_37, st_39, st_3);
2516  /* PERFORM zz030-Write-Sort */
2517  frame_ptr++;
2518  if (unlikely(frame_ptr == frame_overflow))
2519  cob_fatal_error (COB_FERROR_STACK);
2520  frame_ptr->perform_through = 113;
2521  frame_ptr->return_address_ptr = &&l_236;
2522  goto l_113;
2523  l_236:
2524  frame_ptr--;
2525 
2526  /* Line: 1692 : GO TO : cobxref.cbl */
2527  cob_set_location (st_1, 1692, st_37, st_39, st_16);
2528  goto l_26;
2529  }
2530 
2531  /* Line: 1696 : IF : cobxref.cbl */
2532  cob_set_location (st_1, 1696, st_37, st_39, st_6);
2533  if ((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
2534  ((int)(int)(*(b_130) - 39) == 0)))
2535  {
2536 
2537  /* Line: 1697 : GO TO : cobxref.cbl */
2538  cob_set_location (st_1, 1697, st_37, st_39, st_16);
2539  goto l_26;
2540  }
2541 
2542  /* Line: 1698 : IF : cobxref.cbl */
2543  cob_set_location (st_1, 1698, st_37, st_39, st_6);
2544  if ((((int)(int)(*(b_130) - 45) == 0) ||
2545  ((int)(int)(*(b_130) - 43) == 0)))
2546  {
2547 
2548  /* Line: 1699 : GO TO : cobxref.cbl */
2549  cob_set_location (st_1, 1699, st_37, st_39, st_16);
2550  goto l_26;
2551  }
2552 
2553  /* Line: 1700 : IF : cobxref.cbl */
2554  cob_set_location (st_1, 1700, st_37, st_39, st_6);
2555  if (cob_is_numeric (COB_SET_FLD(f0, (*(int *)(b_66)), b_130 + 0, &a_4)))
2556  {
2557 
2558  /* Line: 1701 : GO TO : cobxref.cbl */
2559  cob_set_location (st_1, 1701, st_37, st_39, st_16);
2560  goto l_26;
2561  }
2562 
2563  /* Line: 1702 : IF : cobxref.cbl */
2564  cob_set_location (st_1, 1702, st_37, st_39, st_6);
2565  if ((((((((((((int)(int)(*(b_130) - 48) == 0) ||
2566  ((int)(int)(*(b_130) - 49) == 0)) ||
2567  ((int)(int)(*(b_130) - 50) == 0)) ||
2568  ((int)(int)(*(b_130) - 51) == 0)) ||
2569  ((int)(int)(*(b_130) - 52) == 0)) ||
2570  ((int)(int)(*(b_130) - 53) == 0)) ||
2571  ((int)(int)(*(b_130) - 54) == 0)) ||
2572  ((int)(int)(*(b_130) - 55) == 0)) ||
2573  ((int)(int)(*(b_130) - 56) == 0)) ||
2574  ((int)(int)(*(b_130) - 57) == 0)))
2575  {
2576 
2577  /* Line: 1703 : GO TO : cobxref.cbl */
2578  cob_set_location (st_1, 1703, st_37, st_39, st_16);
2579  goto l_26;
2580  }
2581 
2582  /* Line: 1704 : IF : cobxref.cbl */
2583  cob_set_location (st_1, 1704, st_37, st_39, st_6);
2584  if (((int)(int)(*(b_130) - 40) == 0))
2585  {
2586 
2587  /* Line: 1705 : GO TO : cobxref.cbl */
2588  cob_set_location (st_1, 1705, st_37, st_39, st_16);
2589  goto l_26;
2590  }
2591 
2592  /* Line: 1707 : PERFORM : cobxref.cbl */
2593  cob_set_location (st_1, 1707, st_37, st_39, st_3);
2594  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
2595  frame_ptr++;
2596  if (unlikely(frame_ptr == frame_overflow))
2597  cob_fatal_error (COB_FERROR_STACK);
2598  frame_ptr->perform_through = 129;
2599  frame_ptr->return_address_ptr = &&l_237;
2600  goto l_128;
2601  l_237:
2602  frame_ptr--;
2603 
2604  /* Line: 1708 : IF : cobxref.cbl */
2605  cob_set_location (st_1, 1708, st_37, st_39, st_6);
2606  if (((int)cob_cmp_s32 (b_55, 0) > 0))
2607  {
2608 
2609  /* Line: 1709 : GO TO : cobxref.cbl */
2610  cob_set_location (st_1, 1709, st_37, st_39, st_16);
2611  goto l_26;
2612  }
2613 
2614  /* Line: 1714 : PERFORM : cobxref.cbl */
2615  cob_set_location (st_1, 1714, st_37, st_39, st_3);
2616  /* PERFORM zz030-Write-Sort */
2617  frame_ptr++;
2618  if (unlikely(frame_ptr == frame_overflow))
2619  cob_fatal_error (COB_FERROR_STACK);
2620  frame_ptr->perform_through = 113;
2621  frame_ptr->return_address_ptr = &&l_238;
2622  goto l_113;
2623  l_238:
2624  frame_ptr--;
2625 
2626  /* Line: 1715 : GO TO : cobxref.cbl */
2627  cob_set_location (st_1, 1715, st_37, st_39, st_16);
2628  goto l_26;
2629 
2630  /* Line: 1717 : Paragraph ba049-Exit : cobxref.cbl */
2631  l_27:;
2632 
2633  /* Line: 1718 : EXIT : cobxref.cbl */
2634  cob_set_location (st_1, 1718, st_37, st_41, st_26);
2635 
2636  /* Implicit PERFORM return */
2637  if (frame_ptr->perform_through == 27)
2638  goto *frame_ptr->return_address_ptr;
2639 
2640  /* Line: 1720 : Paragraph ba050-Get-User-Word : cobxref.cbl */
2641  l_28:;
2642 
2643  /* Line: 1724 : PERFORM : cobxref.cbl */
2644  cob_set_location (st_1, 1724, st_37, st_42, st_3);
2645  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2646  frame_ptr++;
2647  if (unlikely(frame_ptr == frame_overflow))
2648  cob_fatal_error (COB_FERROR_STACK);
2649  frame_ptr->perform_through = 123;
2650  frame_ptr->return_address_ptr = &&l_239;
2651  goto l_117;
2652  l_239:
2653  frame_ptr--;
2654 
2655  /* Line: 1725 : IF : cobxref.cbl */
2656  cob_set_location (st_1, 1725, st_37, st_42, st_6);
2657  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"FILLER ", 7) == 0))
2658  {
2659 
2660  /* Line: 1726 : MOVE : cobxref.cbl */
2661  cob_set_location (st_1, 1726, st_37, st_42, st_4);
2662  cob_move ((cob_field *)&c_24, &f_109);
2663 
2664  /* Line: 1727 : GO TO : cobxref.cbl */
2665  cob_set_location (st_1, 1727, st_37, st_42, st_16);
2666  goto l_30;
2667  }
2668 
2669  /* Line: 1728 : PERFORM : cobxref.cbl */
2670  cob_set_location (st_1, 1728, st_37, st_42, st_3);
2671  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
2672  frame_ptr++;
2673  if (unlikely(frame_ptr == frame_overflow))
2674  cob_fatal_error (COB_FERROR_STACK);
2675  frame_ptr->perform_through = 129;
2676  frame_ptr->return_address_ptr = &&l_240;
2677  goto l_128;
2678  l_240:
2679  frame_ptr--;
2680 
2681  /* Line: 1733 : IF : cobxref.cbl */
2682  cob_set_location (st_1, 1733, st_37, st_42, st_6);
2683  if (((int)cob_cmp_s32 (b_55, 0) != 0))
2684  {
2685 
2686  /* Line: 1734 : MOVE : cobxref.cbl */
2687  cob_set_location (st_1, 1734, st_37, st_42, st_4);
2688  cob_move ((cob_field *)&c_24, &f_109);
2689 
2690  /* Line: 1735 : GO TO : cobxref.cbl */
2691  cob_set_location (st_1, 1735, st_37, st_42, st_16);
2692  goto l_31;
2693  }
2694 
2695  /* Line: 1739 : IF : cobxref.cbl */
2696  cob_set_location (st_1, 1739, st_37, st_42, st_6);
2697  if (((((int)cob_cmp_numdisp (b_95, 2, 0LL, 0) > 0) &&
2698  ((int)cob_cmp_numdisp (b_95, 2, 50LL, 0) < 0)) ||
2699  ((int)cob_cmp_numdisp (b_95, 2, 77LL, 0) == 0)))
2700  {
2701 
2702  /* Line: 1740 : MOVE : cobxref.cbl */
2703  cob_set_location (st_1, 1740, st_37, st_42, st_4);
2704  cob_move (COB_SET_FLD(f0, 31, b_130 + 0, &a_4), &f_109);
2705  }
2706 
2707  /* Line: 1742 : IF : cobxref.cbl */
2708  cob_set_location (st_1, 1742, st_37, st_42, st_6);
2709  if ((((int)cob_cmp_numdisp (b_95, 2, 88LL, 0) == 0) &&
2710  ((int)cob_cmp_s32 (b_962, (*(int *)(b_961))) >= 0)))
2711  {
2712 
2713  /* Line: 1744 : ADD : cobxref.cbl */
2714  cob_set_location (st_1, 1744, st_37, st_42, st_22);
2715  (*(int *)(b_961)) = ((*(int *)(b_961)) + 10);
2716  }
2717 
2718  /* Line: 1745 : IF : cobxref.cbl */
2719  cob_set_location (st_1, 1745, st_37, st_42, st_6);
2720  if (((int)cob_cmp_s32 (b_961, 5000LL) > 0))
2721  {
2722 
2723  /* Line: 1746 : MOVE : cobxref.cbl */
2724  cob_set_location (st_1, 1746, st_37, st_42, st_4);
2725  (*(int *)(b_961)) = 5001;
2726 
2727  /* Line: 1747 : DISPLAY : cobxref.cbl */
2728  cob_set_location (st_1, 1747, st_37, st_42, st_7);
2729  cob_display (0, 1, 1, &f_229);
2730 
2731  /* Line: 1748 : GO TO : cobxref.cbl */
2732  cob_set_location (st_1, 1748, st_37, st_42, st_16);
2733  goto l_29;
2734  }
2735 
2736  /* Line: 1752 : IF : cobxref.cbl */
2737  cob_set_location (st_1, 1752, st_37, st_42, st_6);
2738  if ((((int)cob_cmp_numdisp (b_95, 2, 88LL, 0) == 0) &&
2739  ((int)cob_cmp_s32 (b_962, (*(int *)(b_961))) < 0)))
2740  {
2741 
2742  /* Line: 1754 : ADD : cobxref.cbl */
2743  cob_set_location (st_1, 1754, st_37, st_42, st_22);
2744  (*(int *)(b_962)) = ((*(int *)(b_962)) + 1);
2745 
2746  /* Line: 1755 : IF : cobxref.cbl */
2747  cob_set_location (st_1, 1755, st_37, st_42, st_6);
2748  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
2749  {
2750 
2751  /* Line: 1756 : MOVE : cobxref.cbl */
2752  cob_set_location (st_1, 1756, st_37, st_42, st_4);
2753  cob_move (cob_intr_lower_case (0, 0, &f_109), COB_SET_FLD(f0, 32, b_955 + 32 + 66 * ((*(int *)(b_962)) - 1), &a_4));
2754 
2755  /* Line: 1757 : MOVE : cobxref.cbl */
2756  cob_set_location (st_1, 1757, st_37, st_42, st_4);
2757  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 31, b_130 + 0, &a_4)), COB_SET_FLD(f1, 32, b_955 + 66 * ((*(int *)(b_962)) - 1), &a_4));
2758  }
2759  else
2760  {
2761  /* ELSE */
2762 
2763  /* Line: 1759 : MOVE : cobxref.cbl */
2764  cob_set_location (st_1, 1759, st_37, st_42, st_4);
2765  memcpy (b_955 + 32 + 66 * ((*(int *)(b_962)) - 1), b_109, 32);
2766 
2767  /* Line: 1760 : MOVE : cobxref.cbl */
2768  cob_set_location (st_1, 1760, st_37, st_42, st_4);
2769  cob_move (COB_SET_FLD(f0, 31, b_130 + 0, &a_4), COB_SET_FLD(f1, 32, b_955 + 66 * ((*(int *)(b_962)) - 1), &a_4));
2770  }
2771  }
2772 
2773  /* Line: 1765 : Paragraph ba050-Bypass-Add-2-Con-Table: cobxref.cbl */
2774  l_29:;
2775 
2776  /* Line: 1769 : IF : cobxref.cbl */
2777  cob_set_location (st_1, 1769, st_37, st_43, st_6);
2778  if (((int)cob_cmp_numdisp (b_123, 2, 99LL, 0) != 0))
2779  {
2780 
2781  /* Line: 1770 : MOVE : cobxref.cbl */
2782  cob_set_location (st_1, 1770, st_37, st_43, st_4);
2783  memcpy (b_122, b_94, 6);
2784 
2785  /* Line: 1771 : MOVE : cobxref.cbl */
2786  cob_set_location (st_1, 1771, st_37, st_43, st_4);
2787  memcpy (b_121, b_130 + 0, 32);
2788  }
2789 
2790  /* Line: 1773 : PERFORM : cobxref.cbl */
2791  cob_set_location (st_1, 1773, st_37, st_43, st_3);
2792  /* PERFORM zz030-Write-Sort */
2793  frame_ptr++;
2794  if (unlikely(frame_ptr == frame_overflow))
2795  cob_fatal_error (COB_FERROR_STACK);
2796  frame_ptr->perform_through = 113;
2797  frame_ptr->return_address_ptr = &&l_241;
2798  goto l_113;
2799  l_241:
2800  frame_ptr--;
2801 
2802  /* Line: 1775 : Paragraph ba051-After-DataName : cobxref.cbl */
2803  l_30:;
2804 
2805  /* Line: 1776 : IF : cobxref.cbl */
2806  cob_set_location (st_1, 1776, st_37, st_44, st_6);
2807  if ((((((((int)(int)(*(b_102) - 46) == 0) &&
2808  ((int)cob_cmp_numdisp (b_95, 2, 66LL, 0) != 0)) &&
2809  ((int)cob_cmp_numdisp (b_95, 2, 77LL, 0) != 0)) &&
2810  ((int)cob_cmp_numdisp (b_95, 2, 78LL, 0) != 0)) &&
2811  ((int)cob_cmp (&f_109, (cob_field *)&c_24) != 0)) &&
2812  ((int)cob_cmp_numdisp (b_89, 1, 1LL, 0) == 0)))
2813  {
2814 
2815  /* Line: 1780 : PERFORM : cobxref.cbl */
2816  cob_set_location (st_1, 1780, st_37, st_44, st_3);
2817  /* PERFORM zz200-Load-Git THRU zz200-Exit */
2818  frame_ptr++;
2819  if (unlikely(frame_ptr == frame_overflow))
2820  cob_fatal_error (COB_FERROR_STACK);
2821  frame_ptr->perform_through = 157;
2822  frame_ptr->return_address_ptr = &&l_242;
2823  goto l_156;
2824  l_242:
2825  frame_ptr--;
2826  }
2827 
2828  /* Line: 1781 : IF : cobxref.cbl */
2829  cob_set_location (st_1, 1781, st_37, st_44, st_6);
2830  if (((int)(int)(*(b_102) - 46) == 0))
2831  {
2832 
2833  /* Line: 1782 : GO TO : cobxref.cbl */
2834  cob_set_location (st_1, 1782, st_37, st_44, st_16);
2835  goto l_25;
2836  }
2837 
2838  /* Line: 1783 : IF : cobxref.cbl */
2839  cob_set_location (st_1, 1783, st_37, st_44, st_6);
2840  if ((((int)cob_cmp_numdisp (b_89, 1, 1LL, 0) == 0) &&
2841  ((int)cob_cmp_numdisp (b_95, 2, 88LL, 0) == 0)))
2842  {
2843 
2844  /* Line: 1785 : PERFORM : cobxref.cbl */
2845  cob_set_location (st_1, 1785, st_37, st_44, st_3);
2846  /* PERFORM zz200-Load-Git THRU zz200-Exit */
2847  frame_ptr++;
2848  if (unlikely(frame_ptr == frame_overflow))
2849  cob_fatal_error (COB_FERROR_STACK);
2850  frame_ptr->perform_through = 157;
2851  frame_ptr->return_address_ptr = &&l_243;
2852  goto l_156;
2853  l_243:
2854  frame_ptr--;
2855 
2856  /* Line: 1786 : PERFORM : cobxref.cbl */
2857  cob_set_location (st_1, 1786, st_37, st_44, st_3);
2858  /* PERFORM ba040-Clear-To-Next-Period THRU ba049-Exit */
2859  frame_ptr++;
2860  if (unlikely(frame_ptr == frame_overflow))
2861  cob_fatal_error (COB_FERROR_STACK);
2862  frame_ptr->perform_through = 27;
2863  frame_ptr->return_address_ptr = &&l_244;
2864  goto l_26;
2865  l_244:
2866  frame_ptr--;
2867 
2868  /* Line: 1787 : GO TO : cobxref.cbl */
2869  cob_set_location (st_1, 1787, st_37, st_44, st_16);
2870  goto l_25;
2871  }
2872 
2873  /* Line: 1788 : PERFORM : cobxref.cbl */
2874  cob_set_location (st_1, 1788, st_37, st_44, st_3);
2875  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2876  frame_ptr++;
2877  if (unlikely(frame_ptr == frame_overflow))
2878  cob_fatal_error (COB_FERROR_STACK);
2879  frame_ptr->perform_through = 123;
2880  frame_ptr->return_address_ptr = &&l_245;
2881  goto l_117;
2882  l_245:
2883  frame_ptr--;
2884 
2885  /* Line: 1790 : Paragraph ba051-After-New-Word : cobxref.cbl */
2886  l_31:;
2887 
2888  /* Line: 1791 : IF : cobxref.cbl */
2889  cob_set_location (st_1, 1791, st_37, st_45, st_6);
2890  if ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"REDEFINES ", 10) == 0) ||
2891  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"RENAMES ", 8) == 0)))
2892  {
2893 
2894  /* Line: 1793 : PERFORM : cobxref.cbl */
2895  cob_set_location (st_1, 1793, st_37, st_45, st_3);
2896  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2897  frame_ptr++;
2898  if (unlikely(frame_ptr == frame_overflow))
2899  cob_fatal_error (COB_FERROR_STACK);
2900  frame_ptr->perform_through = 123;
2901  frame_ptr->return_address_ptr = &&l_246;
2902  goto l_117;
2903  l_246:
2904  frame_ptr--;
2905 
2906  /* Line: 1794 : PERFORM : cobxref.cbl */
2907  cob_set_location (st_1, 1794, st_37, st_45, st_3);
2908  /* PERFORM zz030-Write-Sort */
2909  frame_ptr++;
2910  if (unlikely(frame_ptr == frame_overflow))
2911  cob_fatal_error (COB_FERROR_STACK);
2912  frame_ptr->perform_through = 113;
2913  frame_ptr->return_address_ptr = &&l_247;
2914  goto l_113;
2915  l_247:
2916  frame_ptr--;
2917  }
2918  else
2919  {
2920  /* ELSE */
2921 
2922  /* Line: 1796 : IF : cobxref.cbl */
2923  cob_set_location (st_1, 1796, st_37, st_45, st_6);
2924  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"GLOBAL ", 7) == 0))
2925  {
2926 
2927  /* Line: 1797 : MOVE : cobxref.cbl */
2928  cob_set_location (st_1, 1797, st_37, st_45, st_4);
2929  *(b_89) = 49;
2930 
2931  /* Line: 1798 : PERFORM : cobxref.cbl */
2932  cob_set_location (st_1, 1798, st_37, st_45, st_3);
2933  /* PERFORM zz200-Load-Git THRU zz200-Exit */
2934  frame_ptr++;
2935  if (unlikely(frame_ptr == frame_overflow))
2936  cob_fatal_error (COB_FERROR_STACK);
2937  frame_ptr->perform_through = 157;
2938  frame_ptr->return_address_ptr = &&l_248;
2939  goto l_156;
2940  l_248:
2941  frame_ptr--;
2942  }
2943  else
2944  {
2945  /* ELSE */
2946 
2947  /* Line: 1800 : IF : cobxref.cbl */
2948  cob_set_location (st_1, 1800, st_37, st_45, st_6);
2949  if (((((((int)cob_cmp_numdisp (b_89, 1, 1LL, 0) == 0) &&
2950  ((int)cob_cmp_numdisp (b_95, 2, 66LL, 0) != 0)) &&
2951  ((int)cob_cmp_numdisp (b_95, 2, 77LL, 0) != 0)) &&
2952  ((int)cob_cmp_numdisp (b_95, 2, 78LL, 0) != 0)) &&
2953  ((int)cob_cmp (&f_109, (cob_field *)&c_24) != 0)))
2954  {
2955 
2956  /* Line: 1803 : PERFORM : cobxref.cbl */
2957  cob_set_location (st_1, 1803, st_37, st_45, st_3);
2958  /* PERFORM zz200-Load-Git THRU zz200-Exit */
2959  frame_ptr++;
2960  if (unlikely(frame_ptr == frame_overflow))
2961  cob_fatal_error (COB_FERROR_STACK);
2962  frame_ptr->perform_through = 157;
2963  frame_ptr->return_address_ptr = &&l_249;
2964  goto l_156;
2965  l_249:
2966  frame_ptr--;
2967  }
2968  }
2969  }
2970 
2971  /* Line: 1805 : IF : cobxref.cbl */
2972  cob_set_location (st_1, 1805, st_37, st_45, st_6);
2973  if ((((int)cob_cmp_numdisp (b_100, 1, 7LL, 0) == 0) &&
2974  ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"TO ", 6) == 0) ||
2975  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"FROM ", 6) == 0)) ||
2976  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"USING ", 6) == 0))))
2977  {
2978 
2979  /* Line: 1807 : PERFORM : cobxref.cbl */
2980  cob_set_location (st_1, 1807, st_37, st_45, st_3);
2981  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
2982  frame_ptr++;
2983  if (unlikely(frame_ptr == frame_overflow))
2984  cob_fatal_error (COB_FERROR_STACK);
2985  frame_ptr->perform_through = 123;
2986  frame_ptr->return_address_ptr = &&l_250;
2987  goto l_117;
2988  l_250:
2989  frame_ptr--;
2990 
2991  /* Line: 1808 : INSPECT : cobxref.cbl */
2992  cob_set_location (st_1, 1808, st_37, st_45, st_40);
2993  cob_inspect_init (&f_138, 0);
2994  cob_inspect_start ();
2995  cob_inspect_all (&f_55, (cob_field *)&c_23);
2996  cob_inspect_finish ();
2997 
2998  /* Line: 1809 : IF : cobxref.cbl */
2999  cob_set_location (st_1, 1809, st_37, st_45, st_6);
3000  if (((int)cob_cmp_s32 (b_55, 0) != 0))
3001  {
3002 
3003  /* Line: 1810 : MOVE : cobxref.cbl */
3004  cob_set_location (st_1, 1810, st_37, st_45, st_4);
3005  memcpy (b_147, b_130, 1024);
3006 
3007  /* Line: 1811 : UNSTRING : cobxref.cbl */
3008  cob_set_location (st_1, 1811, st_37, st_45, st_17);
3009  cob_unstring_init (&f_147, NULL, 1);
3010  cob_unstring_delimited ((cob_field *)&c_23, 0);
3011  cob_unstring_into (&f_138, 0, 0);
3012  cob_unstring_finish ();
3013  }
3014 
3015  /* Line: 1813 : PERFORM : cobxref.cbl */
3016  cob_set_location (st_1, 1813, st_37, st_45, st_3);
3017  /* PERFORM zz030-Write-Sort */
3018  frame_ptr++;
3019  if (unlikely(frame_ptr == frame_overflow))
3020  cob_fatal_error (COB_FERROR_STACK);
3021  frame_ptr->perform_through = 113;
3022  frame_ptr->return_address_ptr = &&l_251;
3023  goto l_113;
3024  l_251:
3025  frame_ptr--;
3026  }
3027 
3028  /* Line: 1816 : PERFORM : cobxref.cbl */
3029  cob_set_location (st_1, 1816, st_37, st_45, st_3);
3030  /* PERFORM ba040-Clear-To-Next-Period THRU ba049-Exit */
3031  frame_ptr++;
3032  if (unlikely(frame_ptr == frame_overflow))
3033  cob_fatal_error (COB_FERROR_STACK);
3034  frame_ptr->perform_through = 27;
3035  frame_ptr->return_address_ptr = &&l_252;
3036  goto l_26;
3037  l_252:
3038  frame_ptr--;
3039 
3040  /* Line: 1817 : GO TO : cobxref.cbl */
3041  cob_set_location (st_1, 1817, st_37, st_45, st_16);
3042  goto l_25;
3043 
3044  /* Line: 1819 : Paragraph ba052-After-Index : cobxref.cbl */
3045  l_32:;
3046 
3047  /* Line: 1823 : PERFORM : cobxref.cbl */
3048  cob_set_location (st_1, 1823, st_37, st_46, st_3);
3049  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
3050  frame_ptr++;
3051  if (unlikely(frame_ptr == frame_overflow))
3052  cob_fatal_error (COB_FERROR_STACK);
3053  frame_ptr->perform_through = 123;
3054  frame_ptr->return_address_ptr = &&l_253;
3055  goto l_117;
3056  l_253:
3057  frame_ptr--;
3058 
3059  /* Line: 1824 : IF : cobxref.cbl */
3060  cob_set_location (st_1, 1824, st_37, st_46, st_6);
3061  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"BY ", 3) == 0))
3062  {
3063 
3064  /* Line: 1825 : GO TO : cobxref.cbl */
3065  cob_set_location (st_1, 1825, st_37, st_46, st_16);
3066  goto l_32;
3067  }
3068 
3069  /* Line: 1829 : PERFORM : cobxref.cbl */
3070  cob_set_location (st_1, 1829, st_37, st_46, st_3);
3071  /* PERFORM zz030-Write-Sort */
3072  frame_ptr++;
3073  if (unlikely(frame_ptr == frame_overflow))
3074  cob_fatal_error (COB_FERROR_STACK);
3075  frame_ptr->perform_through = 113;
3076  frame_ptr->return_address_ptr = &&l_254;
3077  goto l_113;
3078  l_254:
3079  frame_ptr--;
3080 
3081  /* Line: 1830 : IF : cobxref.cbl */
3082  cob_set_location (st_1, 1830, st_37, st_46, st_6);
3083  if (((int)cob_cmp_numdisp (b_89, 1, 1LL, 0) == 0))
3084  {
3085 
3086  /* Line: 1831 : MOVE : cobxref.cbl */
3087  cob_set_location (st_1, 1831, st_37, st_46, st_4);
3088  memcpy (b_121, b_130 + 0, 32);
3089 
3090  /* Line: 1832 : PERFORM : cobxref.cbl */
3091  cob_set_location (st_1, 1832, st_37, st_46, st_3);
3092  /* PERFORM zz200-Load-Git THRU zz200-Exit */
3093  frame_ptr++;
3094  if (unlikely(frame_ptr == frame_overflow))
3095  cob_fatal_error (COB_FERROR_STACK);
3096  frame_ptr->perform_through = 157;
3097  frame_ptr->return_address_ptr = &&l_255;
3098  goto l_156;
3099  l_255:
3100  frame_ptr--;
3101  }
3102 
3103  /* Implicit PERFORM return */
3104  if (frame_ptr->perform_through == 32)
3105  goto *frame_ptr->return_address_ptr;
3106 
3107  /* Line: 1834 : Paragraph ba053-After-Depending : cobxref.cbl */
3108  l_33:;
3109 
3110  /* Line: 1838 : PERFORM : cobxref.cbl */
3111  cob_set_location (st_1, 1838, st_37, st_47, st_3);
3112  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
3113  frame_ptr++;
3114  if (unlikely(frame_ptr == frame_overflow))
3115  cob_fatal_error (COB_FERROR_STACK);
3116  frame_ptr->perform_through = 123;
3117  frame_ptr->return_address_ptr = &&l_256;
3118  goto l_117;
3119  l_256:
3120  frame_ptr--;
3121 
3122  /* Line: 1839 : IF : cobxref.cbl */
3123  cob_set_location (st_1, 1839, st_37, st_47, st_6);
3124  if (((int)memcmp (b_130 + 0, (cob_u8_ptr)"ON ", 3) == 0))
3125  {
3126 
3127  /* Line: 1840 : GO TO : cobxref.cbl */
3128  cob_set_location (st_1, 1840, st_37, st_47, st_16);
3129  goto l_33;
3130  }
3131 
3132  /* Line: 1844 : PERFORM : cobxref.cbl */
3133  cob_set_location (st_1, 1844, st_37, st_47, st_3);
3134  /* PERFORM zz030-Write-Sort */
3135  frame_ptr++;
3136  if (unlikely(frame_ptr == frame_overflow))
3137  cob_fatal_error (COB_FERROR_STACK);
3138  frame_ptr->perform_through = 113;
3139  frame_ptr->return_address_ptr = &&l_257;
3140  goto l_113;
3141  l_257:
3142  frame_ptr--;
3143 
3144  /* Implicit PERFORM return */
3145  if (frame_ptr->perform_through == 33)
3146  goto *frame_ptr->return_address_ptr;
3147 
3148  /* Line: 1846 : Paragraph ba000-Exit : cobxref.cbl */
3149  l_34:;
3150 
3151  /* Line: 1847 : EXIT : cobxref.cbl */
3152  cob_set_location (st_1, 1847, st_37, st_48, st_26);
3153 
3154  /* Implicit PERFORM return */
3155  if (frame_ptr->perform_through == 24)
3156  goto *frame_ptr->return_address_ptr;
3157 
3158  /* Line: 1849 : Section bb000-Process-Procedure : cobxref.cbl */
3159  l_35:;
3160 
3161  /* Line: 1850 : Paragraph bb010-New-Record : cobxref.cbl */
3162 
3163  /* Line: 1855 : IF : cobxref.cbl */
3164  cob_set_location (st_1, 1855, st_49, st_50, st_6);
3165  if (((int)cob_cmp_s32 (b_974, 1LL) > 0))
3166  {
3167 
3168  /* Line: 1856 : SORT : cobxref.cbl */
3169  cob_set_location (st_1, 1856, st_49, st_50, st_8);
3170  cob_table_sort_init (1, 0);
3171  cob_table_sort_init_key (&f_965, 0, 0);
3172  cob_table_sort (COB_SET_FLD(f0, 76, b_963 + 76 * 0, &a_2), (*(int *)(b_973)));
3173  }
3174 
3175  /* Line: 1858 : Paragraph bb020-GetAWord : cobxref.cbl */
3176  l_37:;
3177 
3178  /* Line: 1859 : PERFORM : cobxref.cbl */
3179  cob_set_location (st_1, 1859, st_49, st_51, st_3);
3180  /* PERFORM zz110-Get-A-Word THRU zz110-Exit */
3181  frame_ptr++;
3182  if (unlikely(frame_ptr == frame_overflow))
3183  cob_fatal_error (COB_FERROR_STACK);
3184  frame_ptr->perform_through = 123;
3185  frame_ptr->return_address_ptr = &&l_258;
3186  goto l_117;
3187  l_258:
3188  frame_ptr--;
3189 
3190  /* Line: 1860 : IF : cobxref.cbl */
3191  cob_set_location (st_1, 1860, st_49, st_51, st_6);
3192  if (((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0))
3193  {
3194 
3195  /* Line: 1861 : GO TO : cobxref.cbl */
3196  cob_set_location (st_1, 1861, st_49, st_51, st_16);
3197  goto l_50;
3198  }
3199 
3200  /* Line: 1862 : IF : cobxref.cbl */
3201  cob_set_location (st_1, 1862, st_49, st_51, st_6);
3202  if (((int)cob_cmp_numdisp (b_83, 1, 1LL, 0) == 0))
3203  {
3204 
3205  /* Line: 1863 : GO TO : cobxref.cbl */
3206  cob_set_location (st_1, 1863, st_49, st_51, st_16);
3207  goto l_50;
3208  }
3209 
3210  /* Line: 1864 : IF : cobxref.cbl */
3211  cob_set_location (st_1, 1864, st_49, st_51, st_6);
3212  if ((((int)(int)(*(b_102) - 46) == 0) &&
3213  ((int)(int)(*(b_130) - ' ') == 0)))
3214  {
3215 
3216  /* Line: 1866 : GO TO : cobxref.cbl */
3217  cob_set_location (st_1, 1866, st_49, st_51, st_16);
3218  goto l_37;
3219  }
3220 
3221  /* Line: 1868 : Paragraph bb030-Chk1 : cobxref.cbl */
3222  l_38:;
3223 
3224  /* Line: 1869 : IF : cobxref.cbl */
3225  cob_set_location (st_1, 1869, st_49, st_52, st_6);
3226  if (cob_is_alpha (COB_SET_FLD(f0, 1, b_130 + 0, &a_4)))
3227  {
3228 
3229  /* Line: 1870 : PERFORM : cobxref.cbl */
3230  cob_set_location (st_1, 1870, st_49, st_52, st_3);
3231  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
3232  frame_ptr++;
3233  if (unlikely(frame_ptr == frame_overflow))
3234  cob_fatal_error (COB_FERROR_STACK);
3235  frame_ptr->perform_through = 129;
3236  frame_ptr->return_address_ptr = &&l_259;
3237  goto l_128;
3238  l_259:
3239  frame_ptr--;
3240  }
3241  else
3242  {
3243  /* ELSE */
3244 
3245  /* Line: 1872 : MOVE : cobxref.cbl */
3246  cob_set_location (st_1, 1872, st_49, st_52, st_4);
3247  (*(int *)(b_55)) = 0;
3248  }
3249 
3250  /* Line: 1876 : IF : cobxref.cbl */
3251  cob_set_location (st_1, 1876, st_49, st_52, st_6);
3252  if (((int)cob_cmp_s32 (b_55, 0) > 0))
3253  {
3254 
3255  /* Line: 1877 : GO TO : cobxref.cbl */
3256  cob_set_location (st_1, 1877, st_49, st_52, st_16);
3257  goto l_37;
3258  }
3259 
3260  /* Line: 1878 : IF : cobxref.cbl */
3261  cob_set_location (st_1, 1878, st_49, st_52, st_6);
3262  if ((((((((((((int)(int)(*(b_130) - 48) == 0) ||
3263  ((int)(int)(*(b_130) - 49) == 0)) ||
3264  ((int)(int)(*(b_130) - 50) == 0)) ||
3265  ((int)(int)(*(b_130) - 51) == 0)) ||
3266  ((int)(int)(*(b_130) - 52) == 0)) ||
3267  ((int)(int)(*(b_130) - 53) == 0)) ||
3268  ((int)(int)(*(b_130) - 54) == 0)) ||
3269  ((int)(int)(*(b_130) - 55) == 0)) ||
3270  ((int)(int)(*(b_130) - 56) == 0)) ||
3271  ((int)(int)(*(b_130) - 57) == 0)))
3272  {
3273 
3274  /* Line: 1879 : GO TO : cobxref.cbl */
3275  cob_set_location (st_1, 1879, st_49, st_52, st_16);
3276  goto l_37;
3277  }
3278 
3279  /* Line: 1880 : IF : cobxref.cbl */
3280  cob_set_location (st_1, 1880, st_49, st_52, st_6);
3281  if (((((int)(int)(*(b_130) - 45) == 0) ||
3282  ((int)(int)(*(b_130) - 43) == 0)) &&
3283  cob_is_numeric (COB_SET_FLD(f0, 1, b_130 + 1, &a_4))))
3284  {
3285 
3286  /* Line: 1882 : GO TO : cobxref.cbl */
3287  cob_set_location (st_1, 1882, st_49, st_52, st_16);
3288  goto l_37;
3289  }
3290 
3291  /* Line: 1883 : IF : cobxref.cbl */
3292  cob_set_location (st_1, 1883, st_49, st_52, st_6);
3293  if ((((int)cob_cmp (&f_133, &cob_all_quote) == 0) ||
3294  ((int)(int)(*(b_130) - 39) == 0)))
3295  {
3296 
3297  /* Line: 1884 : GO TO : cobxref.cbl */
3298  cob_set_location (st_1, 1884, st_49, st_52, st_16);
3299  goto l_37;
3300  }
3301 
3302  /* Line: 1885 : IF : cobxref.cbl */
3303  cob_set_location (st_1, 1885, st_49, st_52, st_6);
3304  if (((((int)(int)(*(b_130) - 88) == 0) ||
3305  ((int)(int)(*(b_130) - 72) == 0)) &&
3306  (((int)cob_cmp (COB_SET_FLD(f0, 1, b_130 + 1, &a_4), &cob_all_quote) == 0) ||
3307  ((int)(int)(*(b_130 + 1) - 39) == 0))))
3308  {
3309 
3310  /* Line: 1887 : GO TO : cobxref.cbl */
3311  cob_set_location (st_1, 1887, st_49, st_52, st_16);
3312  goto l_37;
3313  }
3314 
3315  /* Line: 1888 : IF : cobxref.cbl */
3316  cob_set_location (st_1, 1888, st_49, st_52, st_6);
3317  if ((((int)(int)(*(b_130) - 58) == 0) &&
3318  ((int)cob_cmp_s32 (b_48, 1LL) == 0)))
3319  {
3320 
3321  /* Line: 1890 : GO TO : cobxref.cbl */
3322  cob_set_location (st_1, 1890, st_49, st_52, st_16);
3323  goto l_37;
3324  }
3325 
3326  /* Line: 1891 : IF : cobxref.cbl */
3327  cob_set_location (st_1, 1891, st_49, st_52, st_6);
3328  if (((int)(int)(*(b_130) - 40) == 0))
3329  {
3330 
3331  /* Line: 1892 : GO TO : cobxref.cbl */
3332  cob_set_location (st_1, 1892, st_49, st_52, st_16);
3333  goto l_40;
3334  }
3335 
3336  /* Line: 1894 : Paragraph bb040-chk2 : cobxref.cbl */
3337 
3338  /* Line: 1898 : IF : cobxref.cbl */
3339  cob_set_location (st_1, 1898, st_49, st_53, st_6);
3340  if (((((((int)memcmp (b_130, (cob_u8_ptr)"- ", 3) == 0) ||
3341  ((int)memcmp (b_130, (cob_u8_ptr)"+ ", 3) == 0)) ||
3342  ((int)memcmp (b_130, (cob_u8_ptr)"* ", 3) == 0)) ||
3343  ((int)memcmp (b_130, (cob_u8_ptr)"/ ", 3) == 0)) ||
3344  ((int)memcmp (b_130, (cob_u8_ptr)"** ", 3) == 0)))
3345  {
3346 
3347  /* Line: 1899 : GO TO : cobxref.cbl */
3348  cob_set_location (st_1, 1899, st_49, st_53, st_16);
3349  goto l_37;
3350  }
3351 
3352  /* Line: 1903 : IF : cobxref.cbl */
3353  cob_set_location (st_1, 1903, st_49, st_53, st_6);
3354  if (((((int)memcmp (b_130, (cob_u8_ptr)"> ", 2) == 0) ||
3355  ((int)memcmp (b_130, (cob_u8_ptr)"< ", 2) == 0)) ||
3356  ((int)memcmp (b_130, (cob_u8_ptr)"= ", 2) == 0)))
3357  {
3358 
3359  /* Line: 1904 : GO TO : cobxref.cbl */
3360  cob_set_location (st_1, 1904, st_49, st_53, st_16);
3361  goto l_37;
3362  }
3363 
3364  /* Line: 1905 : IF : cobxref.cbl */
3365  cob_set_location (st_1, 1905, st_49, st_53, st_6);
3366  if (((((int)memcmp (b_130, (cob_u8_ptr)">= ", 3) == 0) ||
3367  ((int)memcmp (b_130, (cob_u8_ptr)"<= ", 3) == 0)) ||
3368  ((int)memcmp (b_130, (cob_u8_ptr)"<> ", 3) == 0)))
3369  {
3370 
3371  /* Line: 1906 : GO TO : cobxref.cbl */
3372  cob_set_location (st_1, 1906, st_49, st_53, st_16);
3373  goto l_37;
3374  }
3375 
3376  /* Line: 1911 : MOVE : cobxref.cbl */
3377  cob_set_location (st_1, 1911, st_49, st_53, st_4);
3378  *(b_101) = 50;
3379 
3380  /* Line: 1912 : IF : cobxref.cbl */
3381  cob_set_location (st_1, 1912, st_49, st_53, st_6);
3382  if ((((int)(int)(*(b_102) - 46) == 0) &&
3383  ((int)cob_cmp_s32 (b_51, 1LL) == 0)))
3384  {
3385 
3386  /* Line: 1914 : MOVE : cobxref.cbl */
3387  cob_set_location (st_1, 1914, st_49, st_53, st_4);
3388  *(b_101) = 48;
3389  }
3390 
3391  /* Line: 1918 : STRING : cobxref.cbl */
3392  cob_set_location (st_1, 1918, st_49, st_53, st_54);
3393  cob_string_init (&f_106, NULL);
3394  cob_string_delimited (NULL);
3395  cob_string_append (COB_SET_FLD(f0, (*(int *)(b_48)), b_130 + 0, &a_4));
3396  cob_string_delimited (NULL);
3397  cob_string_append ((cob_field *)&c_25);
3398  cob_string_finish ();
3399 
3400  /* Line: 1919 : ADD : cobxref.cbl */
3401  cob_set_location (st_1, 1919, st_49, st_53, st_22);
3402  cob_decimal_set_llint (d0, (*(int *)(b_48)));
3403  cob_decimal_set_llint (d1, 8LL);
3404  cob_decimal_add (d0, d1);
3405  cob_decimal_get_field (d0, &f_55, 0);
3406 
3407  /* Line: 1920 : IF : cobxref.cbl */
3408  cob_set_location (st_1, 1920, st_49, st_53, st_6);
3409  if ((((int)cob_cmp_numdisp (b_101, 1, 0, 0) != 0) &&
3410  ((int)cob_cmp (COB_SET_FLD(f0, (*(int *)(b_55)), b_127 + 0, &a_4), COB_SET_FLD(f1, (*(int *)(b_55)), b_106 + 0, &a_4)) == 0)))
3411  {
3412 
3413  /* Line: 1922 : MOVE : cobxref.cbl */
3414  cob_set_location (st_1, 1922, st_49, st_53, st_4);
3415  *(b_101) = 49;
3416  }
3417 
3418  /* Line: 1923 : IF : cobxref.cbl */
3419  cob_set_location (st_1, 1923, st_49, st_53, st_6);
3420  if (((int)(int)(*(b_130 + ((*(int *)(b_48)) - 1)) - 41) == 0))
3421  {
3422 
3423  /* Line: 1924 : MOVE : cobxref.cbl */
3424  cob_set_location (st_1, 1924, st_49, st_53, st_4);
3425  *(b_130 + ((*(int *)(b_48)) - 1)) = 32;
3426 
3427  /* Line: 1925 : IF : cobxref.cbl */
3428  cob_set_location (st_1, 1925, st_49, st_53, st_6);
3429  if (((int)cob_cmp_s32 (b_48, 1LL) > 0))
3430  {
3431 
3432  /* Line: 1926 : SUBTRACT : cobxref.cbl */
3433  cob_set_location (st_1, 1926, st_49, st_53, st_55);
3434  (*(int *)(b_48)) = ((*(int *)(b_48)) - 1);
3435  }
3436 
3437  /* Line: 1928 : GO TO : cobxref.cbl */
3438  cob_set_location (st_1, 1928, st_49, st_53, st_16);
3439  goto l_38;
3440  }
3441 
3442  /* Line: 1930 : PERFORM : cobxref.cbl */
3443  cob_set_location (st_1, 1930, st_49, st_53, st_3);
3444  /* PERFORM zz030-Write-Sort */
3445  frame_ptr++;
3446  if (unlikely(frame_ptr == frame_overflow))
3447  cob_fatal_error (COB_FERROR_STACK);
3448  frame_ptr->perform_through = 113;
3449  frame_ptr->return_address_ptr = &&l_260;
3450  goto l_113;
3451  l_260:
3452  frame_ptr--;
3453 
3454  /* Line: 1931 : GO TO : cobxref.cbl */
3455  cob_set_location (st_1, 1931, st_49, st_53, st_16);
3456  goto l_37;
3457 
3458  /* Line: 1933 : Paragraph bb050-Check-SubScripts : cobxref.cbl */
3459  l_40:;
3460 
3461  /* Line: 1938 : MOVE : cobxref.cbl */
3462  cob_set_location (st_1, 1938, st_49, st_56, st_4);
3463  memset (b_145, 32, 1024);
3464 
3465  /* Line: 1939 : MOVE : cobxref.cbl */
3466  cob_set_location (st_1, 1939, st_49, st_56, st_4);
3467  (*(int *)(b_55)) = 0;
3468  (*(int *)(b_59)) = 0;
3469  (*(int *)(b_60)) = 0;
3470  (*(int *)(b_69)) = 0;
3471  (*(int *)(b_65)) = 0;
3472  (*(int *)(b_62)) = 0;
3473  (*(int *)(b_63)) = 0;
3474  (*(int *)(b_67)) = 0;
3475  (*(int *)(b_68)) = 0;
3476 
3477  /* Line: 1940 : MOVE : cobxref.cbl */
3478  cob_set_location (st_1, 1940, st_49, st_56, st_4);
3479  (*(int *)(b_62)) = 1;
3480 
3481  /* Line: 1941 : MOVE : cobxref.cbl */
3482  cob_set_location (st_1, 1941, st_49, st_56, st_4);
3483  memcpy (b_66, b_48, 4);
3484  memcpy (b_67, b_48, 4);
3485 
3486  /* Line: 1942 : Paragraph bb051-Clear-Left-Brace : cobxref.cbl */
3487  l_41:;
3488 
3489  /* Line: 1943 : IF : cobxref.cbl */
3490  cob_set_location (st_1, 1943, st_49, st_57, st_6);
3491  if (((int)cob_cmp_s32 (b_67, 1LL) < 0))
3492  {
3493 
3494  /* Line: 1944 : GO TO : cobxref.cbl */
3495  cob_set_location (st_1, 1944, st_49, st_57, st_16);
3496  goto l_37;
3497  }
3498 
3499  /* Line: 1945 : IF : cobxref.cbl */
3500  cob_set_location (st_1, 1945, st_49, st_57, st_6);
3501  if (((int)(int)(*(b_130 + ((*(int *)(b_62)) - 1)) - 40) == 0))
3502  {
3503 
3504  /* Line: 1946 : ADD : cobxref.cbl */
3505  cob_set_location (st_1, 1946, st_49, st_57, st_22);
3506  (*(int *)(b_62)) = ((*(int *)(b_62)) + 1);
3507 
3508  /* Line: 1947 : SUBTRACT : cobxref.cbl */
3509  cob_set_location (st_1, 1947, st_49, st_57, st_55);
3510  (*(int *)(b_67)) = ((*(int *)(b_67)) - 1);
3511 
3512  /* Line: 1948 : GO TO : cobxref.cbl */
3513  cob_set_location (st_1, 1948, st_49, st_57, st_16);
3514  goto l_41;
3515  }
3516 
3517  /* Line: 1952 : Paragraph bb052-Clear-Right-Brace : cobxref.cbl */
3518  l_42:;
3519 
3520  /* Line: 1953 : IF : cobxref.cbl */
3521  cob_set_location (st_1, 1953, st_49, st_58, st_6);
3522  if (((int)cob_cmp_s32 (b_67, 1LL) < 0))
3523  {
3524 
3525  /* Line: 1954 : GO TO : cobxref.cbl */
3526  cob_set_location (st_1, 1954, st_49, st_58, st_16);
3527  goto l_37;
3528  }
3529 
3530  /* Line: 1955 : IF : cobxref.cbl */
3531  cob_set_location (st_1, 1955, st_49, st_58, st_6);
3532  if (((int)(int)(*(b_130 + ((*(int *)(b_66)) - 1)) - 41) == 0))
3533  {
3534 
3535  /* Line: 1956 : MOVE : cobxref.cbl */
3536  cob_set_location (st_1, 1956, st_49, st_58, st_4);
3537  *(b_130 + ((*(int *)(b_66)) - 1)) = 32;
3538 
3539  /* Line: 1957 : SUBTRACT : cobxref.cbl */
3540  cob_set_location (st_1, 1957, st_49, st_58, st_55);
3541  (*(int *)(b_66)) = ((*(int *)(b_66)) - 1);
3542 
3543  /* Line: 1958 : SUBTRACT : cobxref.cbl */
3544  cob_set_location (st_1, 1958, st_49, st_58, st_55);
3545  (*(int *)(b_67)) = ((*(int *)(b_67)) - 1);
3546 
3547  /* Line: 1959 : SUBTRACT : cobxref.cbl */
3548  cob_set_location (st_1, 1959, st_49, st_58, st_55);
3549  (*(int *)(b_48)) = ((*(int *)(b_48)) - 1);
3550 
3551  /* Line: 1960 : GO TO : cobxref.cbl */
3552  cob_set_location (st_1, 1960, st_49, st_58, st_16);
3553  goto l_42;
3554  }
3555 
3556  /* Line: 1967 : Paragraph bb053-numerics : cobxref.cbl */
3557 
3558  /* Line: 1968 : IF : cobxref.cbl */
3559  cob_set_location (st_1, 1968, st_49, st_59, st_6);
3560  if (cob_is_numeric (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4)))
3561  {
3562 
3563  /* Line: 1969 : GO TO : cobxref.cbl */
3564  cob_set_location (st_1, 1969, st_49, st_59, st_16);
3565  goto l_37;
3566  }
3567 
3568  /* Line: 1970 : IF : cobxref.cbl */
3569  cob_set_location (st_1, 1970, st_49, st_59, st_6);
3570  if (((int)cob_cmp_s32 (b_62, (*(int *)(b_66))) < 0))
3571  {
3572 
3573  /* Line: 1971 : SUBTRACT : cobxref.cbl */
3574  cob_set_location (st_1, 1971, st_49, st_59, st_55);
3575  cob_decimal_set_llint (d0, (*(int *)(b_67)));
3576  cob_decimal_set_llint (d1, 1LL);
3577  cob_decimal_sub (d0, d1);
3578  cob_decimal_get_field (d0, &f_68, 0);
3579 
3580  /* Line: 1972 : ADD : cobxref.cbl */
3581  cob_set_location (st_1, 1972, st_49, st_59, st_22);
3582  cob_decimal_set_llint (d0, 1LL);
3583  cob_decimal_set_llint (d1, (*(int *)(b_62)));
3584  cob_decimal_add (d0, d1);
3585  cob_decimal_get_field (d0, &f_63, 0);
3586 
3587  /* Line: 1973 : IF : cobxref.cbl */
3588  cob_set_location (st_1, 1973, st_49, st_59, st_6);
3589  if (((((int)(int)(*(b_130 + ((*(int *)(b_62)) - 1)) - 43) == 0) ||
3590  ((int)(int)(*(b_130 + ((*(int *)(b_62)) - 1)) - 45) == 0)) &&
3591  cob_is_numeric (COB_SET_FLD(f0, (*(int *)(b_68)), b_130 + ((*(int *)(b_63)) - 1), &a_4))))
3592  {
3593 
3594  /* Line: 1975 : GO TO : cobxref.cbl */
3595  cob_set_location (st_1, 1975, st_49, st_59, st_16);
3596  goto l_37;
3597  }
3598  }
3599 
3600  /* Line: 1981 : INSPECT : cobxref.cbl */
3601  cob_set_location (st_1, 1981, st_49, st_59, st_40);
3602  cob_inspect_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), 1);
3603  cob_inspect_start ();
3604  cob_inspect_all (&cob_all_space, (cob_field *)&c_26);
3605  cob_inspect_finish ();
3606 
3607  /* Line: 1983 : INSPECT : cobxref.cbl */
3608  cob_set_location (st_1, 1983, st_49, st_59, st_40);
3609  cob_inspect_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), 0);
3610  cob_inspect_start ();
3611  cob_inspect_all (&f_55, (cob_field *)&c_23);
3612  cob_inspect_finish ();
3613 
3614  /* Line: 1984 : INSPECT : cobxref.cbl */
3615  cob_set_location (st_1, 1984, st_49, st_59, st_40);
3616  cob_inspect_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), 0);
3617  cob_inspect_start ();
3618  cob_inspect_all (&f_55, (cob_field *)&c_26);
3619  cob_inspect_finish ();
3620 
3621  /* Line: 1985 : IF : cobxref.cbl */
3622  cob_set_location (st_1, 1985, st_49, st_59, st_6);
3623  if (((int)cob_cmp_s32 (b_55, 0) > 0))
3624  {
3625 
3626  /* Line: 1986 : DISPLAY : cobxref.cbl */
3627  cob_set_location (st_1, 1986, st_49, st_59, st_7);
3628  cob_display (0, 1, 8, &c_27, &f_55, &c_28, &f_58, &c_29, &f_67, &c_30, COB_SET_FLD(f0, 80, b_130 + 0, &a_4));
3629 
3630  /* Line: 1987 : GO TO : cobxref.cbl */
3631  cob_set_location (st_1, 1987, st_49, st_59, st_16);
3632  goto l_37;
3633  }
3634 
3635  /* Line: 1990 : INSPECT : cobxref.cbl */
3636  cob_set_location (st_1, 1990, st_49, st_59, st_40);
3637  cob_inspect_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), 0);
3638  cob_inspect_start ();
3639  cob_inspect_all (&f_65, &cob_all_quote);
3640  cob_inspect_finish ();
3641 
3642  /* Line: 1991 : INSPECT : cobxref.cbl */
3643  cob_set_location (st_1, 1991, st_49, st_59, st_40);
3644  cob_inspect_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), 0);
3645  cob_inspect_start ();
3646  cob_inspect_all (&f_65, (cob_field *)&c_6);
3647  cob_inspect_finish ();
3648 
3649  /* Line: 1993 : IF : cobxref.cbl */
3650  cob_set_location (st_1, 1993, st_49, st_59, st_6);
3651  if (((int)cob_cmp_s32 (b_65, 0) > 0))
3652  {
3653 
3654  /* Line: 1994 : MOVE : cobxref.cbl */
3655  cob_set_location (st_1, 1994, st_49, st_59, st_4);
3656  (*(int *)(b_58)) = 0;
3657  (*(int *)(b_69)) = 0;
3658  (*(int *)(b_64)) = 0;
3659 
3660  /* Line: 1995 : SUBTRACT : cobxref.cbl */
3661  cob_set_location (st_1, 1995, st_49, st_59, st_55);
3662  cob_decimal_set_llint (d0, (*(int *)(b_62)));
3663  cob_decimal_set_llint (d1, 1LL);
3664  cob_decimal_sub (d0, d1);
3665  cob_decimal_get_field (d0, &f_55, 0);
3666 
3667  /* Line: 1996 : GO TO : cobxref.cbl */
3668  cob_set_location (st_1, 1996, st_49, st_59, st_16);
3669  goto l_45;
3670  }
3671 
3672  /* Line: 1998 : INSPECT : cobxref.cbl */
3673  cob_set_location (st_1, 1998, st_49, st_59, st_40);
3674  cob_inspect_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), 0);
3675  cob_inspect_start ();
3676  cob_inspect_all (&f_59, (cob_field *)&c_31);
3677  cob_inspect_finish ();
3678 
3679  /* Line: 1999 : IF : cobxref.cbl */
3680  cob_set_location (st_1, 1999, st_49, st_59, st_6);
3681  if (((int)cob_cmp_s32 (b_59, 0) > 0))
3682  {
3683 
3684  /* Line: 2000 : MOVE : cobxref.cbl */
3685  cob_set_location (st_1, 2000, st_49, st_59, st_4);
3686  (*(int *)(b_58)) = 0;
3687  (*(int *)(b_69)) = 0;
3688  (*(int *)(b_64)) = 0;
3689 
3690  /* Line: 2001 : GO TO : cobxref.cbl */
3691  cob_set_location (st_1, 2001, st_49, st_59, st_16);
3692  goto l_49;
3693  }
3694 
3695  /* Line: 2002 : Paragraph bb054-spaces : cobxref.cbl */
3696 
3697  /* Line: 2004 : INSPECT : cobxref.cbl */
3698  cob_set_location (st_1, 2004, st_49, st_60, st_40);
3699  cob_inspect_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), 0);
3700  cob_inspect_start ();
3701  cob_inspect_all (&f_60, &cob_all_space);
3702  cob_inspect_finish ();
3703 
3704  /* Line: 2005 : IF : cobxref.cbl */
3705  cob_set_location (st_1, 2005, st_49, st_60, st_6);
3706  if (((int)cob_cmp_s32 (b_60, 0) == 0))
3707  {
3708 
3709  /* Line: 2006 : MOVE : cobxref.cbl */
3710  cob_set_location (st_1, 2006, st_49, st_60, st_4);
3711  memset (b_143, 32, 32);
3712 
3713  /* Line: 2007 : IF : cobxref.cbl */
3714  cob_set_location (st_1, 2007, st_49, st_60, st_6);
3715  if (((int)cob_cmp_s32 (b_67, 33LL) < 0))
3716  {
3717 
3718  /* Line: 2008 : MOVE : cobxref.cbl */
3719  cob_set_location (st_1, 2008, st_49, st_60, st_4);
3720  cob_move (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), &f_143);
3721  }
3722  else
3723  {
3724  /* ELSE */
3725 
3726  /* Line: 2010 : MOVE : cobxref.cbl */
3727  cob_set_location (st_1, 2010, st_49, st_60, st_4);
3728  memcpy (b_143, b_130 + ((*(int *)(b_62)) - 1), 32);
3729 
3730  /* Line: 2011 : IF : cobxref.cbl */
3731  cob_set_location (st_1, 2011, st_49, st_60, st_6);
3732  if (((int)(int)(*(b_77) - 89) == 0))
3733  {
3734 
3735  /* Line: 2012 : DISPLAY : cobxref.cbl */
3736  cob_set_location (st_1, 2012, st_49, st_60, st_7);
3737  cob_display (0, 1, 2, &c_32, COB_SET_FLD(f0, 32, b_130 + ((*(int *)(b_62)) - 1), &a_4));
3738  }
3739  }
3740 
3741  /* Line: 2015 : MOVE : cobxref.cbl */
3742  cob_set_location (st_1, 2015, st_49, st_60, st_4);
3743  cob_move (&f_143, &f_138);
3744 
3745  /* Line: 2016 : PERFORM : cobxref.cbl */
3746  cob_set_location (st_1, 2016, st_49, st_60, st_3);
3747  /* PERFORM zz130-Extra-Reserved-Word-Check THRU zz130-Exit */
3748  frame_ptr++;
3749  if (unlikely(frame_ptr == frame_overflow))
3750  cob_fatal_error (COB_FERROR_STACK);
3751  frame_ptr->perform_through = 129;
3752  frame_ptr->return_address_ptr = &&l_261;
3753  goto l_128;
3754  l_261:
3755  frame_ptr--;
3756 
3757  /* Line: 2017 : IF : cobxref.cbl */
3758  cob_set_location (st_1, 2017, st_49, st_60, st_6);
3759  if (((int)cob_cmp_s32 (b_55, 0) > 0))
3760  {
3761 
3762  /* Line: 2018 : GO TO : cobxref.cbl */
3763  cob_set_location (st_1, 2018, st_49, st_60, st_16);
3764  goto l_37;
3765  }
3766 
3767  /* Line: 2020 : PERFORM : cobxref.cbl */
3768  cob_set_location (st_1, 2020, st_49, st_60, st_3);
3769  /* PERFORM zz030-Write-Sort */
3770  frame_ptr++;
3771  if (unlikely(frame_ptr == frame_overflow))
3772  cob_fatal_error (COB_FERROR_STACK);
3773  frame_ptr->perform_through = 113;
3774  frame_ptr->return_address_ptr = &&l_262;
3775  goto l_113;
3776  l_262:
3777  frame_ptr--;
3778 
3779  /* Line: 2021 : GO TO : cobxref.cbl */
3780  cob_set_location (st_1, 2021, st_49, st_60, st_16);
3781  goto l_37;
3782  }
3783 
3784  /* Line: 2024 : DISPLAY : cobxref.cbl */
3785  cob_set_location (st_1, 2024, st_49, st_60, st_7);
3786  cob_display (0, 1, 1, &f_230);
3787 
3788  /* Line: 2025 : DISPLAY : cobxref.cbl */
3789  cob_set_location (st_1, 2025, st_49, st_60, st_7);
3790  cob_display (0, 1, 2, &c_33, COB_SET_FLD(f0, 64, b_130 + 0, &a_4));
3791 
3792  /* Line: 2026 : GO TO : cobxref.cbl */
3793  cob_set_location (st_1, 2026, st_49, st_60, st_16);
3794  goto l_37;
3795 
3796  /* Line: 2028 : Paragraph bb060-Scan4-Quotes : cobxref.cbl */
3797  l_45:;
3798 
3799  /* Line: 2032 : ADD : cobxref.cbl */
3800  cob_set_location (st_1, 2032, st_49, st_61, st_22);
3801  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
3802 
3803  /* Line: 2033 : IF : cobxref.cbl */
3804  cob_set_location (st_1, 2033, st_49, st_61, st_6);
3805  if (((((int)cob_cmp_s32 (b_55, (*(int *)(b_66))) <= 0) &&
3806  ((int)cob_cmp (COB_SET_FLD(f0, 1, b_130 + ((*(int *)(b_55)) - 1), &a_4), &cob_all_quote) != 0)) &&
3807  ((int)(int)(*(b_130 + ((*(int *)(b_55)) - 1)) - 39) != 0)))
3808  {
3809 
3810  /* Line: 2035 : ADD : cobxref.cbl */
3811  cob_set_location (st_1, 2035, st_49, st_61, st_22);
3812  (*(int *)(b_58)) = ((*(int *)(b_58)) + 1);
3813 
3814  /* Line: 2036 : MOVE : cobxref.cbl */
3815  cob_set_location (st_1, 2036, st_49, st_61, st_4);
3816  *(b_145 + ((*(int *)(b_58)) - 1)) = *(b_130 + ((*(int *)(b_55)) - 1));
3817 
3818  /* Line: 2037 : GO TO : cobxref.cbl */
3819  cob_set_location (st_1, 2037, st_49, st_61, st_16);
3820  goto l_45;
3821  }
3822 
3823  /* Line: 2041 : Paragraph bb070-Got-Quote : cobxref.cbl */
3824  l_46:;
3825 
3826  /* Line: 2042 : ADD : cobxref.cbl */
3827  cob_set_location (st_1, 2042, st_49, st_62, st_22);
3828  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
3829 
3830  /* Line: 2043 : ADD : cobxref.cbl */
3831  cob_set_location (st_1, 2043, st_49, st_62, st_22);
3832  (*(int *)(b_64)) = ((*(int *)(b_64)) + 1);
3833 
3834  /* Line: 2044 : IF : cobxref.cbl */
3835  cob_set_location (st_1, 2044, st_49, st_62, st_6);
3836  if (((int)cob_cmp_s32 (b_55, (*(int *)(b_66))) > 0))
3837  {
3838 
3839  /* Line: 2045 : GO TO : cobxref.cbl */
3840  cob_set_location (st_1, 2045, st_49, st_62, st_16);
3841  goto l_48;
3842  }
3843 
3844  /* Line: 2046 : IF : cobxref.cbl */
3845  cob_set_location (st_1, 2046, st_49, st_62, st_6);
3846  if ((((int)cob_cmp (COB_SET_FLD(f0, 1, b_130 + ((*(int *)(b_55)) - 1), &a_4), &cob_all_quote) != 0) &&
3847  ((int)(int)(*(b_130 + ((*(int *)(b_55)) - 1)) - 39) != 0)))
3848  {
3849 
3850  /* Line: 2047 : GO TO : cobxref.cbl */
3851  cob_set_location (st_1, 2047, st_49, st_62, st_16);
3852  goto l_46;
3853  }
3854 
3855  /* Line: 2048 : ADD : cobxref.cbl */
3856  cob_set_location (st_1, 2048, st_49, st_62, st_22);
3857  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
3858 
3859  /* Line: 2049 : ADD : cobxref.cbl */
3860  cob_set_location (st_1, 2049, st_49, st_62, st_22);
3861  (*(int *)(b_64)) = ((*(int *)(b_64)) + 1);
3862 
3863  /* Line: 2053 : Paragraph bb080-Quote-Clean : cobxref.cbl */
3864  l_47:;
3865 
3866  /* Line: 2054 : IF : cobxref.cbl */
3867  cob_set_location (st_1, 2054, st_49, st_63, st_6);
3868  if (((int)cob_cmp_s32 (b_55, (*(int *)(b_66))) > 0))
3869  {
3870 
3871  /* Line: 2055 : GO TO : cobxref.cbl */
3872  cob_set_location (st_1, 2055, st_49, st_63, st_16);
3873  goto l_48;
3874  }
3875 
3876  /* Line: 2056 : IF : cobxref.cbl */
3877  cob_set_location (st_1, 2056, st_49, st_63, st_6);
3878  if (((int)(int)(*(b_77) - 89) == 0))
3879  {
3880 
3881  /* Line: 2057 : DISPLAY : cobxref.cbl */
3882  cob_set_location (st_1, 2057, st_49, st_63, st_7);
3883  cob_display (0, 1, 2, &c_34, &f_138);
3884  }
3885 
3886  /* Line: 2059 : ADD : cobxref.cbl */
3887  cob_set_location (st_1, 2059, st_49, st_63, st_22);
3888  (*(int *)(b_58)) = ((*(int *)(b_58)) + 1);
3889 
3890  /* Line: 2060 : MOVE : cobxref.cbl */
3891  cob_set_location (st_1, 2060, st_49, st_63, st_4);
3892  *(b_145 + ((*(int *)(b_58)) - 1)) = *(b_130 + ((*(int *)(b_55)) - 1));
3893 
3894  /* Line: 2061 : ADD : cobxref.cbl */
3895  cob_set_location (st_1, 2061, st_49, st_63, st_22);
3896  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
3897 
3898  /* Line: 2062 : GO TO : cobxref.cbl */
3899  cob_set_location (st_1, 2062, st_49, st_63, st_16);
3900  goto l_47;
3901 
3902  /* Line: 2064 : Paragraph bb090-Recover-Word : cobxref.cbl */
3903  l_48:;
3904 
3905  /* Line: 2068 : SUBTRACT : cobxref.cbl */
3906  cob_set_location (st_1, 2068, st_49, st_64, st_55);
3907  (*(int *)(b_48)) = ((*(int *)(b_48)) - (*(int *)(b_64)));
3908 
3909  /* Line: 2069 : IF : cobxref.cbl */
3910  cob_set_location (st_1, 2069, st_49, st_64, st_6);
3911  if (((int)cob_cmp_s32 (b_48, 1LL) < 0))
3912  {
3913 
3914  /* Line: 2070 : GO TO : cobxref.cbl */
3915  cob_set_location (st_1, 2070, st_49, st_64, st_16);
3916  goto l_37;
3917  }
3918 
3919  /* Line: 2071 : MOVE : cobxref.cbl */
3920  cob_set_location (st_1, 2071, st_49, st_64, st_4);
3921  memcpy (b_130 + 0, b_145 + 0, 31);
3922 
3923  /* Line: 2072 : GO TO : cobxref.cbl */
3924  cob_set_location (st_1, 2072, st_49, st_64, st_16);
3925  goto l_40;
3926 
3927  /* Line: 2074 : Paragraph bb100-scan4-colon : cobxref.cbl */
3928  l_49:;
3929 
3930  /* Line: 2079 : MOVE : cobxref.cbl */
3931  cob_set_location (st_1, 2079, st_49, st_65, st_4);
3932  memset (b_143, 32, 32);
3933  memset (b_144, 32, 32);
3934 
3935  /* Line: 2080 : MOVE : cobxref.cbl */
3936  cob_set_location (st_1, 2080, st_49, st_65, st_4);
3937  (*(int *)(b_64)) = 1;
3938 
3939  /* Line: 2081 : UNSTRING : cobxref.cbl */
3940  cob_set_location (st_1, 2081, st_49, st_65, st_17);
3941  cob_unstring_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), &f_64, 1);
3942  cob_unstring_delimited ((cob_field *)&c_31, 0);
3943  cob_unstring_into (&f_143, 0, &f_69);
3944  cob_unstring_finish ();
3945 
3946  /* Line: 2083 : UNSTRING : cobxref.cbl */
3947  cob_set_location (st_1, 2083, st_49, st_65, st_17);
3948  cob_unstring_init (COB_SET_FLD(f0, (*(int *)(b_67)), b_130 + ((*(int *)(b_62)) - 1), &a_4), &f_64, 1);
3949  cob_unstring_delimited ((cob_field *)&c_35, 0);
3950  cob_unstring_into (&f_144, 0, &f_58);
3951  cob_unstring_finish ();
3952 
3953  /* Line: 2084 : IF : cobxref.cbl */
3954  cob_set_location (st_1, 2084, st_49, st_65, st_6);
3955  if ((((int)cob_cmp_s32 (b_64, (*(int *)(b_67))) <= 0) ||
3956  ((int)cob_cmp_s32 (b_64, (*(int *)(b_48))) != 0)))
3957  {
3958 
3959  /* Line: 2085 : DISPLAY : cobxref.cbl */
3960  cob_set_location (st_1, 2085, st_49, st_65, st_7);
3961  cob_display (0, 1, 6, &c_36, &f_64, &c_37, &f_48, &c_38, &f_67);
3962  }
3963 
3964  /* Line: 2088 : IF : cobxref.cbl */
3965  cob_set_location (st_1, 2088, st_49, st_65, st_6);
3966  if (((!cob_is_numeric (COB_SET_FLD(f0, (*(int *)(b_69)), b_143 + 0, &a_4)) &&
3967  ((int)(int)(*(b_143 + 0) - 45) != 0)) &&
3968  ((int)(int)(*(b_143 + 0) - 43) != 0)))
3969  {
3970 
3971  /* Line: 2090 : MOVE : cobxref.cbl */
3972  cob_set_location (st_1, 2090, st_49, st_65, st_4);
3973  memset (b_130, 32, 1024);
3974 
3975  /* Line: 2091 : MOVE : cobxref.cbl */
3976  cob_set_location (st_1, 2091, st_49, st_65, st_4);
3977  cob_move (COB_SET_FLD(f0, (*(int *)(b_69)), b_143 + 0, &a_4), &f_138);
3978 
3979  /* Line: 2092 : PERFORM : cobxref.cbl */
3980  cob_set_location (st_1, 2092, st_49, st_65, st_3);
3981  /* PERFORM zz030-Write-Sort */
3982  frame_ptr++;
3983  if (unlikely(frame_ptr == frame_overflow))
3984  cob_fatal_error (COB_FERROR_STACK);
3985  frame_ptr->perform_through = 113;
3986  frame_ptr->return_address_ptr = &&l_263;
3987  goto l_113;
3988  l_263:
3989  frame_ptr--;
3990  }
3991 
3992  /* Line: 2094 : IF : cobxref.cbl */
3993  cob_set_location (st_1, 2094, st_49, st_65, st_6);
3994  if ((((((int)cob_cmp_s32 (b_58, 0) > 0) &&
3995  !cob_is_numeric (COB_SET_FLD(f0, (*(int *)(b_58)), b_144 + 0, &a_4))) &&
3996  ((int)(int)(*(b_144 + 0) - 45) != 0)) &&
3997  ((int)(int)(*(b_144 + 0) - 43) != 0)))
3998  {
3999 
4000  /* Line: 2097 : MOVE : cobxref.cbl */
4001  cob_set_location (st_1, 2097, st_49, st_65, st_4);
4002  memset (b_130, 32, 1024);
4003 
4004  /* Line: 2098 : MOVE : cobxref.cbl */
4005  cob_set_location (st_1, 2098, st_49, st_65, st_4);
4006  cob_move (COB_SET_FLD(f0, (*(int *)(b_58)), b_144 + 0, &a_4), &f_138);
4007 
4008  /* Line: 2099 : PERFORM : cobxref.cbl */
4009  cob_set_location (st_1, 2099, st_49, st_65, st_3);
4010  /* PERFORM zz030-Write-Sort */
4011  frame_ptr++;
4012  if (unlikely(frame_ptr == frame_overflow))
4013  cob_fatal_error (COB_FERROR_STACK);
4014  frame_ptr->perform_through = 113;
4015  frame_ptr->return_address_ptr = &&l_264;
4016  goto l_113;
4017  l_264:
4018  frame_ptr--;
4019  }
4020 
4021  /* Line: 2100 : GO TO : cobxref.cbl */
4022  cob_set_location (st_1, 2100, st_49, st_65, st_16);
4023  goto l_37;
4024 
4025  /* Line: 2101 : Paragraph bb000-Exit : cobxref.cbl */
4026  l_50:;
4027 
4028  /* Line: 2102 : EXIT : cobxref.cbl */
4029  cob_set_location (st_1, 2102, st_49, st_66, st_26);
4030 
4031  /* Implicit PERFORM return */
4032  if (frame_ptr->perform_through == 35)
4033  goto *frame_ptr->return_address_ptr;
4034 
4035  /* Line: 2104 : Section bc000-Last-Act : cobxref.cbl */
4036  l_51:;
4037 
4038  /* Line: 2108 : SORT : cobxref.cbl */
4039  cob_set_location (st_1, 2108, st_67, NULL, st_8);
4040  cob_file_sort_init (h_SORTFILE, 1, 0, b_2, NULL);
4041  cob_file_sort_init_key (h_SORTFILE, &f_38, 0, 0);
4042  cob_file_sort_using (h_SORTFILE, h_SUPPLEMENTAL_PART1_OUT);
4043  cob_file_sort_giving (h_SORTFILE, 1, h_SUPPLEMENTAL_PART2_IN);
4044  cob_file_sort_close (h_SORTFILE);
4045 
4046  /* Line: 2112 : IF : cobxref.cbl */
4047  cob_set_location (st_1, 2112, st_67, NULL, st_6);
4048  if (((int)cob_cmp_s32 (b_974, 1LL) > 0))
4049  {
4050 
4051  /* Line: 2113 : SORT : cobxref.cbl */
4052  cob_set_location (st_1, 2113, st_67, NULL, st_8);
4053  cob_table_sort_init (1, 0);
4054  cob_table_sort_init_key (&f_965, 0, 0);
4055  cob_table_sort (COB_SET_FLD(f0, 76, b_963 + 76 * 0, &a_2), (*(int *)(b_973)));
4056  }
4057 
4058  /* Line: 2128 : IF : cobxref.cbl */
4059  cob_set_location (st_1, 2128, st_67, NULL, st_6);
4060  if (!((int)(int)(*(b_71) - 65) == 0))
4061  {
4062 
4063  /* Line: 2129 : GO TO : cobxref.cbl */
4064  cob_set_location (st_1, 2129, st_67, NULL, st_16);
4065  goto l_61;
4066  }
4067 
4068  /* Line: 2135 : Paragraph bc010-group-report : cobxref.cbl */
4069 
4070  /* Line: 2136 : MOVE : cobxref.cbl */
4071  cob_set_location (st_1, 2136, st_67, st_68, st_4);
4072  memset (b_108, 32, 32);
4073 
4074  /* Line: 2137 : OPEN : cobxref.cbl */
4075  cob_set_location (st_1, 2137, st_67, st_68, st_10);
4076  cob_open (h_SUPPLEMENTAL_PART2_IN, 1, 0, NULL);
4077  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4078  {
4079  /* PERFORM Default Error Handler */
4080  frame_ptr++;
4081  if (unlikely(frame_ptr == frame_overflow))
4082  cob_fatal_error (COB_FERROR_STACK);
4083  frame_ptr->perform_through = 1;
4084  frame_ptr->return_address_ptr = &&l_265;
4085  goto l_1;
4086  l_265:
4087  frame_ptr--;
4088  }
4089 
4090  /* Line: 2138 : READ : cobxref.cbl */
4091  cob_set_location (st_1, 2138, st_67, st_68, st_69);
4092  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
4093  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4094  {
4095  if (cob_glob_ptr->cob_exception_code == 0x0501)
4096  {
4097 
4098  /* Line: 2139 : DISPLAY : cobxref.cbl */
4099  cob_set_location (st_1, 2139, st_67, st_68, st_7);
4100  cob_display (0, 1, 1, &f_225);
4101 
4102  /* Line: 2140 : GO TO : cobxref.cbl */
4103  cob_set_location (st_1, 2140, st_67, st_68, st_16);
4104  goto l_109;
4105  }
4106  else
4107  {
4108  /* PERFORM Default Error Handler */
4109  frame_ptr++;
4110  if (unlikely(frame_ptr == frame_overflow))
4111  cob_fatal_error (COB_FERROR_STACK);
4112  frame_ptr->perform_through = 1;
4113  frame_ptr->return_address_ptr = &&l_266;
4114  goto l_1;
4115  l_266:
4116  frame_ptr--;
4117  }
4118  }
4119 
4120  /* Line: 2141 : PERFORM : cobxref.cbl */
4121  cob_set_location (st_1, 2141, st_67, st_68, st_3);
4122  /* PERFORM zz150-WriteHdb THRU zz150-Exit */
4123  frame_ptr++;
4124  if (unlikely(frame_ptr == frame_overflow))
4125  cob_fatal_error (COB_FERROR_STACK);
4126  frame_ptr->perform_through = 142;
4127  frame_ptr->return_address_ptr = &&l_267;
4128  goto l_132;
4129  l_267:
4130  frame_ptr--;
4131 
4132  /* Line: 2142 : PERFORM : cobxref.cbl */
4133  cob_set_location (st_1, 2142, st_67, st_68, st_3);
4134  /* PERFORM zz150-WriteHdb8 THRU zz150-Exit */
4135  frame_ptr++;
4136  if (unlikely(frame_ptr == frame_overflow))
4137  cob_fatal_error (COB_FERROR_STACK);
4138  frame_ptr->perform_through = 142;
4139  frame_ptr->return_address_ptr = &&l_268;
4140  goto l_141;
4141  l_268:
4142  frame_ptr--;
4143 
4144  /* Line: 2143 : MOVE : cobxref.cbl */
4145  cob_set_location (st_1, 2143, st_67, st_68, st_4);
4146  (*(int *)(b_69)) = 0;
4147 
4148  /* Line: 2144 : GO TO : cobxref.cbl */
4149  cob_set_location (st_1, 2144, st_67, st_68, st_16);
4150  goto l_55;
4151 
4152  /* Line: 2146 : Paragraph bc020-Read-Sorter : cobxref.cbl */
4153  l_54:;
4154 
4155  /* Line: 2147 : READ : cobxref.cbl */
4156  cob_set_location (st_1, 2147, st_67, st_70, st_69);
4157  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
4158  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4159  {
4160  if (cob_glob_ptr->cob_exception_code == 0x0501)
4161  {
4162 
4163  /* Line: 2148 : PERFORM : cobxref.cbl */
4164  cob_set_location (st_1, 2148, st_67, st_70, st_3);
4165  /* PERFORM bc050-Check-Q */
4166  frame_ptr++;
4167  if (unlikely(frame_ptr == frame_overflow))
4168  cob_fatal_error (COB_FERROR_STACK);
4169  frame_ptr->perform_through = 57;
4170  frame_ptr->return_address_ptr = &&l_269;
4171  goto l_57;
4172  l_269:
4173  frame_ptr--;
4174 
4175  /* Line: 2149 : CLOSE : cobxref.cbl */
4176  cob_set_location (st_1, 2149, st_67, st_70, st_15);
4177  cob_close (h_SUPPLEMENTAL_PART2_IN, NULL, 0, 0);
4178  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4179  {
4180  /* PERFORM Default Error Handler */
4181  frame_ptr++;
4182  if (unlikely(frame_ptr == frame_overflow))
4183  cob_fatal_error (COB_FERROR_STACK);
4184  frame_ptr->perform_through = 1;
4185  frame_ptr->return_address_ptr = &&l_270;
4186  goto l_1;
4187  l_270:
4188  frame_ptr--;
4189  }
4190 
4191  /* Line: 2150 : GO TO : cobxref.cbl */
4192  cob_set_location (st_1, 2150, st_67, st_70, st_16);
4193  goto l_109;
4194  }
4195  else
4196  {
4197  /* PERFORM Default Error Handler */
4198  frame_ptr++;
4199  if (unlikely(frame_ptr == frame_overflow))
4200  cob_fatal_error (COB_FERROR_STACK);
4201  frame_ptr->perform_through = 1;
4202  frame_ptr->return_address_ptr = &&l_271;
4203  goto l_1;
4204  l_271:
4205  frame_ptr--;
4206  }
4207  }
4208 
4209  /* Line: 2153 : Paragraph bc030-IsX : cobxref.cbl */
4210  l_55:;
4211 
4212  /* Line: 2154 : IF : cobxref.cbl */
4213  cob_set_location (st_1, 2154, st_67, st_71, st_6);
4214  if (((int)cob_cmp (&f_31, &cob_all_space) == 0))
4215  {
4216 
4217  /* Line: 2155 : GO TO : cobxref.cbl */
4218  cob_set_location (st_1, 2155, st_67, st_71, st_16);
4219  goto l_54;
4220  }
4221 
4222  /* Line: 2156 : PERFORM : cobxref.cbl */
4223  cob_set_location (st_1, 2156, st_67, st_71, st_3);
4224  /* PERFORM bc040-PrintXRef THRU bc080-Exit */
4225  frame_ptr++;
4226  if (unlikely(frame_ptr == frame_overflow))
4227  cob_fatal_error (COB_FERROR_STACK);
4228  frame_ptr->perform_through = 60;
4229  frame_ptr->return_address_ptr = &&l_272;
4230  goto l_56;
4231  l_272:
4232  frame_ptr--;
4233 
4234  /* Line: 2157 : GO TO : cobxref.cbl */
4235  cob_set_location (st_1, 2157, st_67, st_71, st_16);
4236  goto l_54;
4237 
4238  /* Line: 2159 : Paragraph bc040-PrintXRef : cobxref.cbl */
4239  l_56:;
4240 
4241  /* Line: 2160 : IF : cobxref.cbl */
4242  cob_set_location (st_1, 2160, st_67, st_72, st_6);
4243  if (((int)memcmp (b_35, b_108, 32) == 0))
4244  {
4245 
4246  /* Line: 2161 : GO TO : cobxref.cbl */
4247  cob_set_location (st_1, 2161, st_67, st_72, st_16);
4248  goto l_59;
4249  }
4250 
4251  /* Line: 2162 : MOVE : cobxref.cbl */
4252  cob_set_location (st_1, 2162, st_67, st_72, st_4);
4253  memcpy (b_108, b_35, 32);
4254 
4255  /* Line: 2164 : Paragraph bc050-Check-Q : cobxref.cbl */
4256  l_57:;
4257 
4258  /* Line: 2165 : IF : cobxref.cbl */
4259  cob_set_location (st_1, 2165, st_67, st_73, st_6);
4260  if ((((int)cob_cmp (&f_12, &cob_all_space) != 0) &&
4261  ((int)cob_cmp_s32 (b_69, 0) == 0)))
4262  {
4263 
4264  /* Line: 2167 : MOVE : cobxref.cbl */
4265  cob_set_location (st_1, 2167, st_67, st_73, st_4);
4266  (*(int *)(b_69)) = 1;
4267  }
4268 
4269  /* Line: 2168 : IF : cobxref.cbl */
4270  cob_set_location (st_1, 2168, st_67, st_73, st_6);
4271  if (((int)cob_cmp_s32 (b_69, 0) > 0))
4272  {
4273 
4274  /* Line: 2169 : WRITE : cobxref.cbl */
4275  cob_set_location (st_1, 2169, st_67, st_73, st_13);
4276  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
4277  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4278  {
4279  /* PERFORM Default Error Handler */
4280  frame_ptr++;
4281  if (unlikely(frame_ptr == frame_overflow))
4282  cob_fatal_error (COB_FERROR_STACK);
4283  frame_ptr->perform_through = 1;
4284  frame_ptr->return_address_ptr = &&l_273;
4285  goto l_1;
4286  l_273:
4287  frame_ptr--;
4288  }
4289 
4290  /* Line: 2170 : ADD : cobxref.cbl */
4291  cob_set_location (st_1, 2170, st_67, st_73, st_22);
4292  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
4293 
4294  /* Line: 2171 : IF : cobxref.cbl */
4295  cob_set_location (st_1, 2171, st_67, st_73, st_6);
4296  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
4297  {
4298 
4299  /* Line: 2172 : PERFORM : cobxref.cbl */
4300  cob_set_location (st_1, 2172, st_67, st_73, st_3);
4301  /* PERFORM zz150-WriteHdb THRU zz150-Exit */
4302  frame_ptr++;
4303  if (unlikely(frame_ptr == frame_overflow))
4304  cob_fatal_error (COB_FERROR_STACK);
4305  frame_ptr->perform_through = 142;
4306  frame_ptr->return_address_ptr = &&l_274;
4307  goto l_132;
4308  l_274:
4309  frame_ptr--;
4310 
4311  /* Line: 2173 : PERFORM : cobxref.cbl */
4312  cob_set_location (st_1, 2173, st_67, st_73, st_3);
4313  /* PERFORM zz150-WriteHdb8 THRU zz150-Exit */
4314  frame_ptr++;
4315  if (unlikely(frame_ptr == frame_overflow))
4316  cob_fatal_error (COB_FERROR_STACK);
4317  frame_ptr->perform_through = 142;
4318  frame_ptr->return_address_ptr = &&l_275;
4319  goto l_141;
4320  l_275:
4321  frame_ptr--;
4322  }
4323 
4324  /* Line: 2175 : MOVE : cobxref.cbl */
4325  cob_set_location (st_1, 2175, st_67, st_73, st_4);
4326  (*(int *)(b_69)) = 0;
4327 
4328  /* Line: 2176 : MOVE : cobxref.cbl */
4329  cob_set_location (st_1, 2176, st_67, st_73, st_4);
4330  memset (b_27, 32, 159);
4331  }
4332 
4333  /* Implicit PERFORM return */
4334  if (frame_ptr->perform_through == 57)
4335  goto *frame_ptr->return_address_ptr;
4336 
4337  /* Line: 2178 : Paragraph bc060-ConnectC : cobxref.cbl */
4338 
4339  /* Line: 2179 : MOVE : cobxref.cbl */
4340  cob_set_location (st_1, 2179, st_67, st_74, st_4);
4341  memset (b_27, 32, 159);
4342 
4343  /* Line: 2180 : MOVE : cobxref.cbl */
4344  cob_set_location (st_1, 2180, st_67, st_74, st_4);
4345  memcpy (b_27, b_35, 32);
4346 
4347  /* Line: 2181 : MOVE : cobxref.cbl */
4348  cob_set_location (st_1, 2181, st_67, st_74, st_4);
4349  memcpy (b_27 + 32, b_35 + 34, 6);
4350 
4351  /* Line: 2182 : MOVE : cobxref.cbl */
4352  cob_set_location (st_1, 2182, st_67, st_74, st_4);
4353  *(b_27 + 38) = *(b_236 + (cob_get_numdisp (b_35 + 32, 1) - 1));
4354 
4355  /* Line: 2183 : GO TO : cobxref.cbl */
4356  cob_set_location (st_1, 2183, st_67, st_74, st_16);
4357  goto l_60;
4358 
4359  /* Line: 2185 : Paragraph bc070-ConnectD : cobxref.cbl */
4360  l_59:;
4361 
4362  /* Line: 2186 : IF : cobxref.cbl */
4363  cob_set_location (st_1, 2186, st_67, st_75, st_6);
4364  if (((int)cob_cmp_s32 (b_69, 7LL) > 0))
4365  {
4366 
4367  /* Line: 2187 : PERFORM : cobxref.cbl */
4368  cob_set_location (st_1, 2187, st_67, st_75, st_3);
4369  /* PERFORM bc050-Check-Q */
4370  frame_ptr++;
4371  if (unlikely(frame_ptr == frame_overflow))
4372  cob_fatal_error (COB_FERROR_STACK);
4373  frame_ptr->perform_through = 57;
4374  frame_ptr->return_address_ptr = &&l_276;
4375  goto l_57;
4376  l_276:
4377  frame_ptr--;
4378  }
4379 
4380  /* Line: 2188 : ADD : cobxref.cbl */
4381  cob_set_location (st_1, 2188, st_67, st_75, st_22);
4382  (*(int *)(b_69)) = ((*(int *)(b_69)) + 1);
4383 
4384  /* Line: 2189 : MOVE : cobxref.cbl */
4385  cob_set_location (st_1, 2189, st_67, st_75, st_4);
4386  memcpy (b_27 + 41 + 7 * ((*(int *)(b_69)) - 1), b_35 + 34, 6);
4387 
4388  /* Line: 2191 : Paragraph bc080-Exit : cobxref.cbl */
4389  l_60:;
4390 
4391  /* Line: 2192 : EXIT : cobxref.cbl */
4392  cob_set_location (st_1, 2192, st_67, st_76, st_26);
4393 
4394  /* Implicit PERFORM return */
4395  if (frame_ptr->perform_through == 60)
4396  goto *frame_ptr->return_address_ptr;
4397 
4398  /* Line: 2194 : Paragraph bc090-Last-Pass2 : cobxref.cbl */
4399  l_61:;
4400 
4401  /* Line: 2199 : MOVE : cobxref.cbl */
4402  cob_set_location (st_1, 2199, st_67, st_77, st_4);
4403  (*(cob_s8_ptr) (b_45)) = 70;
4404 
4405  /* Line: 2200 : IF : cobxref.cbl */
4406  cob_set_location (st_1, 2200, st_67, st_77, st_6);
4407  if (((int)cob_cmp (&f_240, &cob_all_zero) != 0))
4408  {
4409 
4410  /* Line: 2201 : MOVE : cobxref.cbl */
4411  cob_set_location (st_1, 2201, st_67, st_77, st_4);
4412  *(b_112) = 49;
4413 
4414  /* Line: 2202 : PERFORM : cobxref.cbl */
4415  cob_set_location (st_1, 2202, st_67, st_77, st_3);
4416  for (n0 = 7LL; n0 > 0; n0--)
4417  {
4418  /* PERFORM bc100-Working-Storage-Report THRU bc180-Exit */
4419  frame_ptr++;
4420  if (unlikely(frame_ptr == frame_overflow))
4421  cob_fatal_error (COB_FERROR_STACK);
4422  frame_ptr->perform_through = 70;
4423  frame_ptr->return_address_ptr = &&l_277;
4424  goto l_62;
4425  l_277:
4426  frame_ptr--;
4427  }
4428  }
4429 
4430  /* Line: 2204 : IF : cobxref.cbl */
4431  cob_set_location (st_1, 2204, st_67, st_77, st_6);
4432  if (((int)cob_cmp_s32 (b_974, 0) > 0))
4433  {
4434 
4435  /* Line: 2205 : PERFORM : cobxref.cbl */
4436  cob_set_location (st_1, 2205, st_67, st_77, st_3);
4437  /* PERFORM bc600-Print-Globals THRU bc600-Exit */
4438  frame_ptr++;
4439  if (unlikely(frame_ptr == frame_overflow))
4440  cob_fatal_error (COB_FERROR_STACK);
4441  frame_ptr->perform_through = 106;
4442  frame_ptr->return_address_ptr = &&l_278;
4443  goto l_105;
4444  l_278:
4445  frame_ptr--;
4446  }
4447 
4448  /* Line: 2206 : GO TO : cobxref.cbl */
4449  cob_set_location (st_1, 2206, st_67, st_77, st_16);
4450  goto l_71;
4451 
4452  /* Line: 2208 : Paragraph bc100-Working-Storage-Report: cobxref.cbl */
4453  l_62:;
4454 
4455  /* Line: 2212 : IF : cobxref.cbl */
4456  cob_set_location (st_1, 2212, st_67, st_78, st_6);
4457  if (((int)cob_cmp_numdisp (b_240 + (cob_get_numdisp (b_112, 1) - 1), 1, 0, 0) == 0))
4458  {
4459 
4460  /* Line: 2213 : ADD : cobxref.cbl */
4461  cob_set_location (st_1, 2213, st_67, st_78, st_22);
4462  cob_add_int (&f_112, 1, 0);
4463 
4464  /* Line: 2214 : GO TO : cobxref.cbl */
4465  cob_set_location (st_1, 2214, st_67, st_78, st_16);
4466  goto l_70;
4467  }
4468 
4469  /* Line: 2216 : MOVE : cobxref.cbl */
4470  cob_set_location (st_1, 2216, st_67, st_78, st_4);
4471  memset (b_108, 32, 32);
4472 
4473  /* Line: 2217 : OPEN : cobxref.cbl */
4474  cob_set_location (st_1, 2217, st_67, st_78, st_10);
4475  cob_open (h_SUPPLEMENTAL_PART2_IN, 1, 0, NULL);
4476  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4477  {
4478  /* PERFORM Default Error Handler */
4479  frame_ptr++;
4480  if (unlikely(frame_ptr == frame_overflow))
4481  cob_fatal_error (COB_FERROR_STACK);
4482  frame_ptr->perform_through = 1;
4483  frame_ptr->return_address_ptr = &&l_279;
4484  goto l_1;
4485  l_279:
4486  frame_ptr--;
4487  }
4488 
4489  /* Line: 2218 : READ : cobxref.cbl */
4490  cob_set_location (st_1, 2218, st_67, st_78, st_69);
4491  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
4492  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4493  {
4494  if (cob_glob_ptr->cob_exception_code == 0x0501)
4495  {
4496 
4497  /* Line: 2219 : DISPLAY : cobxref.cbl */
4498  cob_set_location (st_1, 2219, st_67, st_78, st_7);
4499  cob_display (0, 1, 1, &f_225);
4500 
4501  /* Line: 2220 : GO TO : cobxref.cbl */
4502  cob_set_location (st_1, 2220, st_67, st_78, st_16);
4503  goto l_109;
4504  }
4505  else
4506  {
4507  /* PERFORM Default Error Handler */
4508  frame_ptr++;
4509  if (unlikely(frame_ptr == frame_overflow))
4510  cob_fatal_error (COB_FERROR_STACK);
4511  frame_ptr->perform_through = 1;
4512  frame_ptr->return_address_ptr = &&l_280;
4513  goto l_1;
4514  l_280:
4515  frame_ptr--;
4516  }
4517  }
4518 
4519  /* Line: 2221 : PERFORM : cobxref.cbl */
4520  cob_set_location (st_1, 2221, st_67, st_78, st_3);
4521  /* PERFORM zz150-WriteHdb THRU zz150-Exit */
4522  frame_ptr++;
4523  if (unlikely(frame_ptr == frame_overflow))
4524  cob_fatal_error (COB_FERROR_STACK);
4525  frame_ptr->perform_through = 142;
4526  frame_ptr->return_address_ptr = &&l_281;
4527  goto l_132;
4528  l_281:
4529  frame_ptr--;
4530 
4531  /* Line: 2222 : PERFORM : cobxref.cbl */
4532  cob_set_location (st_1, 2222, st_67, st_78, st_3);
4533  /* PERFORM zz150-WriteHdb2 THRU zz150-Exit */
4534  frame_ptr++;
4535  if (unlikely(frame_ptr == frame_overflow))
4536  cob_fatal_error (COB_FERROR_STACK);
4537  frame_ptr->perform_through = 142;
4538  frame_ptr->return_address_ptr = &&l_282;
4539  goto l_134;
4540  l_282:
4541  frame_ptr--;
4542 
4543  /* Line: 2223 : MOVE : cobxref.cbl */
4544  cob_set_location (st_1, 2223, st_67, st_78, st_4);
4545  (*(int *)(b_69)) = 0;
4546 
4547  /* Line: 2227 : GO TO : cobxref.cbl */
4548  cob_set_location (st_1, 2227, st_67, st_78, st_16);
4549  goto l_64;
4550 
4551  /* Line: 2229 : Paragraph bc110-Read-Sorter : cobxref.cbl */
4552  l_63:;
4553 
4554  /* Line: 2230 : READ : cobxref.cbl */
4555  cob_set_location (st_1, 2230, st_67, st_79, st_69);
4556  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
4557  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4558  {
4559  if (cob_glob_ptr->cob_exception_code == 0x0501)
4560  {
4561 
4562  /* Line: 2231 : ADD : cobxref.cbl */
4563  cob_set_location (st_1, 2231, st_67, st_79, st_22);
4564  cob_add_int (&f_112, 1, 0);
4565 
4566  /* Line: 2232 : PERFORM : cobxref.cbl */
4567  cob_set_location (st_1, 2232, st_67, st_79, st_3);
4568  /* PERFORM bc140-Check-Q */
4569  frame_ptr++;
4570  if (unlikely(frame_ptr == frame_overflow))
4571  cob_fatal_error (COB_FERROR_STACK);
4572  frame_ptr->perform_through = 66;
4573  frame_ptr->return_address_ptr = &&l_283;
4574  goto l_66;
4575  l_283:
4576  frame_ptr--;
4577 
4578  /* Line: 2233 : CLOSE : cobxref.cbl */
4579  cob_set_location (st_1, 2233, st_67, st_79, st_15);
4580  cob_close (h_SUPPLEMENTAL_PART2_IN, NULL, 0, 0);
4581  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4582  {
4583  /* PERFORM Default Error Handler */
4584  frame_ptr++;
4585  if (unlikely(frame_ptr == frame_overflow))
4586  cob_fatal_error (COB_FERROR_STACK);
4587  frame_ptr->perform_through = 1;
4588  frame_ptr->return_address_ptr = &&l_284;
4589  goto l_1;
4590  l_284:
4591  frame_ptr--;
4592  }
4593 
4594  /* Line: 2234 : GO TO : cobxref.cbl */
4595  cob_set_location (st_1, 2234, st_67, st_79, st_16);
4596  goto l_70;
4597  }
4598  else
4599  {
4600  /* PERFORM Default Error Handler */
4601  frame_ptr++;
4602  if (unlikely(frame_ptr == frame_overflow))
4603  cob_fatal_error (COB_FERROR_STACK);
4604  frame_ptr->perform_through = 1;
4605  frame_ptr->return_address_ptr = &&l_285;
4606  goto l_1;
4607  l_285:
4608  frame_ptr--;
4609  }
4610  }
4611 
4612  /* Line: 2236 : Paragraph bc120-IsX2 : cobxref.cbl */
4613  l_64:;
4614 
4615  /* Line: 2237 : IF : cobxref.cbl */
4616  cob_set_location (st_1, 2237, st_67, st_80, st_6);
4617  if (((int)cob_cmp (&f_31, &cob_all_space) == 0))
4618  {
4619 
4620  /* Line: 2238 : GO TO : cobxref.cbl */
4621  cob_set_location (st_1, 2238, st_67, st_80, st_16);
4622  goto l_63;
4623  }
4624 
4625  /* Line: 2239 : PERFORM : cobxref.cbl */
4626  cob_set_location (st_1, 2239, st_67, st_80, st_3);
4627  /* PERFORM bc130-PrintXRef2 THRU bc170-Exit */
4628  frame_ptr++;
4629  if (unlikely(frame_ptr == frame_overflow))
4630  cob_fatal_error (COB_FERROR_STACK);
4631  frame_ptr->perform_through = 69;
4632  frame_ptr->return_address_ptr = &&l_286;
4633  goto l_65;
4634  l_286:
4635  frame_ptr--;
4636 
4637  /* Line: 2240 : GO TO : cobxref.cbl */
4638  cob_set_location (st_1, 2240, st_67, st_80, st_16);
4639  goto l_63;
4640 
4641  /* Line: 2242 : Paragraph bc130-PrintXRef2 : cobxref.cbl */
4642  l_65:;
4643 
4644  /* Line: 2244 : IF : cobxref.cbl */
4645  cob_set_location (st_1, 2244, st_67, st_81, st_6);
4646  if (((int)memcmp (b_35, b_108, 32) == 0))
4647  {
4648 
4649  /* Line: 2245 : GO TO : cobxref.cbl */
4650  cob_set_location (st_1, 2245, st_67, st_81, st_16);
4651  goto l_68;
4652  }
4653 
4654  /* Line: 2247 : IF : cobxref.cbl */
4655  cob_set_location (st_1, 2247, st_67, st_81, st_6);
4656  if (((int)memcmp (b_35 + 32, b_112, 1) > 0))
4657  {
4658 
4659  /* Line: 2248 : GO TO : cobxref.cbl */
4660  cob_set_location (st_1, 2248, st_67, st_81, st_16);
4661  goto l_69;
4662  }
4663 
4664  /* Line: 2249 : IF : cobxref.cbl */
4665  cob_set_location (st_1, 2249, st_67, st_81, st_6);
4666  if (((int)memcmp (b_35 + 32, b_112, 1) != 0))
4667  {
4668 
4669  /* Line: 2250 : GO TO : cobxref.cbl */
4670  cob_set_location (st_1, 2250, st_67, st_81, st_16);
4671  goto l_69;
4672  }
4673 
4674  /* Line: 2254 : MOVE : cobxref.cbl */
4675  cob_set_location (st_1, 2254, st_67, st_81, st_4);
4676  memcpy (b_108, b_35, 32);
4677 
4678  /* Line: 2255 : MOVE : cobxref.cbl */
4679  cob_set_location (st_1, 2255, st_67, st_81, st_4);
4680  *(b_110) = *(b_35 + 32);
4681 
4682  /* Line: 2256 : MOVE : cobxref.cbl */
4683  cob_set_location (st_1, 2256, st_67, st_81, st_4);
4684  *(b_111) = *(b_35 + 33);
4685 
4686  /* Line: 2258 : Paragraph bc140-Check-Q : cobxref.cbl */
4687  l_66:;
4688 
4689  /* Line: 2259 : IF : cobxref.cbl */
4690  cob_set_location (st_1, 2259, st_67, st_82, st_6);
4691  if ((((int)cob_cmp (&f_12, &cob_all_space) != 0) &&
4692  ((int)cob_cmp_s32 (b_69, 0) == 0)))
4693  {
4694 
4695  /* Line: 2261 : MOVE : cobxref.cbl */
4696  cob_set_location (st_1, 2261, st_67, st_82, st_4);
4697  (*(int *)(b_69)) = 1;
4698  }
4699 
4700  /* Line: 2262 : IF : cobxref.cbl */
4701  cob_set_location (st_1, 2262, st_67, st_82, st_6);
4702  if (((int)cob_cmp_s32 (b_69, 0) > 0))
4703  {
4704 
4705  /* Line: 2263 : WRITE : cobxref.cbl */
4706  cob_set_location (st_1, 2263, st_67, st_82, st_13);
4707  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
4708  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4709  {
4710  /* PERFORM Default Error Handler */
4711  frame_ptr++;
4712  if (unlikely(frame_ptr == frame_overflow))
4713  cob_fatal_error (COB_FERROR_STACK);
4714  frame_ptr->perform_through = 1;
4715  frame_ptr->return_address_ptr = &&l_287;
4716  goto l_1;
4717  l_287:
4718  frame_ptr--;
4719  }
4720 
4721  /* Line: 2264 : ADD : cobxref.cbl */
4722  cob_set_location (st_1, 2264, st_67, st_82, st_22);
4723  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
4724 
4725  /* Line: 2265 : IF : cobxref.cbl */
4726  cob_set_location (st_1, 2265, st_67, st_82, st_6);
4727  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
4728  {
4729 
4730  /* Line: 2266 : PERFORM : cobxref.cbl */
4731  cob_set_location (st_1, 2266, st_67, st_82, st_3);
4732  /* PERFORM zz150-WriteHdb THRU zz150-Exit */
4733  frame_ptr++;
4734  if (unlikely(frame_ptr == frame_overflow))
4735  cob_fatal_error (COB_FERROR_STACK);
4736  frame_ptr->perform_through = 142;
4737  frame_ptr->return_address_ptr = &&l_288;
4738  goto l_132;
4739  l_288:
4740  frame_ptr--;
4741 
4742  /* Line: 2267 : PERFORM : cobxref.cbl */
4743  cob_set_location (st_1, 2267, st_67, st_82, st_3);
4744  /* PERFORM zz150-WriteHdb2 THRU zz150-Exit */
4745  frame_ptr++;
4746  if (unlikely(frame_ptr == frame_overflow))
4747  cob_fatal_error (COB_FERROR_STACK);
4748  frame_ptr->perform_through = 142;
4749  frame_ptr->return_address_ptr = &&l_289;
4750  goto l_134;
4751  l_289:
4752  frame_ptr--;
4753  }
4754 
4755  /* Line: 2269 : MOVE : cobxref.cbl */
4756  cob_set_location (st_1, 2269, st_67, st_82, st_4);
4757  (*(int *)(b_69)) = 0;
4758 
4759  /* Line: 2270 : MOVE : cobxref.cbl */
4760  cob_set_location (st_1, 2270, st_67, st_82, st_4);
4761  (*(int *)(b_70)) = 1;
4762 
4763  /* Line: 2271 : MOVE : cobxref.cbl */
4764  cob_set_location (st_1, 2271, st_67, st_82, st_4);
4765  memset (b_27, 32, 159);
4766  }
4767 
4768  /* Implicit PERFORM return */
4769  if (frame_ptr->perform_through == 66)
4770  goto *frame_ptr->return_address_ptr;
4771 
4772  /* Line: 2273 : Paragraph bc150-ConnectC2 : cobxref.cbl */
4773 
4774  /* Line: 2274 : MOVE : cobxref.cbl */
4775  cob_set_location (st_1, 2274, st_67, st_83, st_4);
4776  memset (b_27, 32, 159);
4777 
4778  /* Line: 2275 : MOVE : cobxref.cbl */
4779  cob_set_location (st_1, 2275, st_67, st_83, st_4);
4780  memcpy (b_27, b_35, 32);
4781 
4782  /* Line: 2276 : MOVE : cobxref.cbl */
4783  cob_set_location (st_1, 2276, st_67, st_83, st_4);
4784  memcpy (b_27 + 32, b_35 + 34, 6);
4785 
4786  /* Line: 2277 : MOVE : cobxref.cbl */
4787  cob_set_location (st_1, 2277, st_67, st_83, st_4);
4788  *(b_27 + 38) = *(b_236 + (cob_get_numdisp (b_35 + 32, 1) - 1));
4789 
4790  /* Line: 2278 : GO TO : cobxref.cbl */
4791  cob_set_location (st_1, 2278, st_67, st_83, st_16);
4792  goto l_69;
4793 
4794  /* Line: 2280 : Paragraph bc160-ConnectD2 : cobxref.cbl */
4795  l_68:;
4796 
4797  /* Line: 2281 : IF : cobxref.cbl */
4798  cob_set_location (st_1, 2281, st_67, st_84, st_6);
4799  if (((int)cob_cmp_s32 (b_69, 7LL) > 0))
4800  {
4801 
4802  /* Line: 2282 : PERFORM : cobxref.cbl */
4803  cob_set_location (st_1, 2282, st_67, st_84, st_3);
4804  /* PERFORM bc140-Check-Q */
4805  frame_ptr++;
4806  if (unlikely(frame_ptr == frame_overflow))
4807  cob_fatal_error (COB_FERROR_STACK);
4808  frame_ptr->perform_through = 66;
4809  frame_ptr->return_address_ptr = &&l_290;
4810  goto l_66;
4811  l_290:
4812  frame_ptr--;
4813  }
4814 
4815  /* Line: 2283 : ADD : cobxref.cbl */
4816  cob_set_location (st_1, 2283, st_67, st_84, st_22);
4817  (*(int *)(b_69)) = ((*(int *)(b_69)) + 1);
4818 
4819  /* Line: 2284 : MOVE : cobxref.cbl */
4820  cob_set_location (st_1, 2284, st_67, st_84, st_4);
4821  memcpy (b_27 + 41 + 7 * ((*(int *)(b_69)) - 1), b_35 + 34, 6);
4822 
4823  /* Line: 2285 : Paragraph bc170-Exit : cobxref.cbl */
4824  l_69:;
4825 
4826  /* Line: 2286 : EXIT : cobxref.cbl */
4827  cob_set_location (st_1, 2286, st_67, st_85, st_26);
4828 
4829  /* Implicit PERFORM return */
4830  if (frame_ptr->perform_through == 69)
4831  goto *frame_ptr->return_address_ptr;
4832 
4833  /* Line: 2288 : Paragraph bc180-Exit : cobxref.cbl */
4834  l_70:;
4835 
4836  /* Line: 2289 : EXIT : cobxref.cbl */
4837  cob_set_location (st_1, 2289, st_67, st_86, st_26);
4838 
4839  /* Implicit PERFORM return */
4840  if (frame_ptr->perform_through == 70)
4841  goto *frame_ptr->return_address_ptr;
4842 
4843  /* Line: 2291 : Paragraph bc190-Do-Conditions : cobxref.cbl */
4844  l_71:;
4845 
4846  /* Line: 2295 : IF : cobxref.cbl */
4847  cob_set_location (st_1, 2295, st_67, st_87, st_6);
4848  if (((int)cob_cmp_s32 (b_962, 0) == 0))
4849  {
4850 
4851  /* Line: 2296 : GO TO : cobxref.cbl */
4852  cob_set_location (st_1, 2296, st_67, st_87, st_16);
4853  goto l_74;
4854  }
4855 
4856  /* Line: 2297 : IF : cobxref.cbl */
4857  cob_set_location (st_1, 2297, st_67, st_87, st_6);
4858  if (((int)cob_cmp_s32 (b_962, 1LL) > 0))
4859  {
4860 
4861  /* Line: 2298 : SORT : cobxref.cbl */
4862  cob_set_location (st_1, 2298, st_67, st_87, st_8);
4863  cob_table_sort_init (1, 0);
4864  cob_table_sort_init_key (&f_958, 0, 32);
4865  cob_table_sort (COB_SET_FLD(f0, 66, b_955 + 66 * 0, &a_2), (*(int *)(b_961)));
4866  }
4867 
4868  /* Line: 2299 : MOVE : cobxref.cbl */
4869  cob_set_location (st_1, 2299, st_67, st_87, st_4);
4870  memcpy (b_184 + 16, "[S]", 3);
4871 
4872  /* Line: 2300 : MOVE : cobxref.cbl */
4873  cob_set_location (st_1, 2300, st_67, st_87, st_4);
4874  memset (b_184 + 54, 32, 3);
4875 
4876  /* Line: 2301 : PERFORM : cobxref.cbl */
4877  cob_set_location (st_1, 2301, st_67, st_87, st_3);
4878  /* PERFORM zz150-WriteHdb */
4879  frame_ptr++;
4880  if (unlikely(frame_ptr == frame_overflow))
4881  cob_fatal_error (COB_FERROR_STACK);
4882  frame_ptr->perform_through = 132;
4883  frame_ptr->return_address_ptr = &&l_291;
4884  goto l_132;
4885  l_291:
4886  frame_ptr--;
4887 
4888  /* Line: 2302 : PERFORM : cobxref.cbl */
4889  cob_set_location (st_1, 2302, st_67, st_87, st_3);
4890  /* PERFORM zz150-WriteHdb7 THRU zz150-Exit */
4891  frame_ptr++;
4892  if (unlikely(frame_ptr == frame_overflow))
4893  cob_fatal_error (COB_FERROR_STACK);
4894  frame_ptr->perform_through = 142;
4895  frame_ptr->return_address_ptr = &&l_292;
4896  goto l_140;
4897  l_292:
4898  frame_ptr--;
4899 
4900  /* Line: 2303 : MOVE : cobxref.cbl */
4901  cob_set_location (st_1, 2303, st_67, st_87, st_4);
4902  (*(int *)(b_55)) = 0;
4903 
4904  /* Line: 2304 : PERFORM : cobxref.cbl */
4905  cob_set_location (st_1, 2304, st_67, st_87, st_3);
4906  /* PERFORM bc192-Print-Conditions */
4907  frame_ptr++;
4908  if (unlikely(frame_ptr == frame_overflow))
4909  cob_fatal_error (COB_FERROR_STACK);
4910  frame_ptr->perform_through = 72;
4911  frame_ptr->return_address_ptr = &&l_293;
4912  goto l_72;
4913  l_293:
4914  frame_ptr--;
4915 
4916  /* Line: 2305 : GO TO : cobxref.cbl */
4917  cob_set_location (st_1, 2305, st_67, st_87, st_16);
4918  goto l_73;
4919 
4920  /* Line: 2306 : Paragraph bc192-Print-Conditions : cobxref.cbl */
4921  l_72:;
4922 
4923  /* Line: 2307 : IF : cobxref.cbl */
4924  cob_set_location (st_1, 2307, st_67, st_88, st_6);
4925  if (((int)cob_cmp_s32 (b_55, (*(int *)(b_962))) < 0))
4926  {
4927 
4928  /* Line: 2308 : ADD : cobxref.cbl */
4929  cob_set_location (st_1, 2308, st_67, st_88, st_22);
4930  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
4931 
4932  /* Line: 2309 : MOVE : cobxref.cbl */
4933  cob_set_location (st_1, 2309, st_67, st_88, st_4);
4934  memset (b_27, 32, 64);
4935 
4936  /* Line: 2310 : MOVE : cobxref.cbl */
4937  cob_set_location (st_1, 2310, st_67, st_88, st_4);
4938  memcpy (b_27 + 32, b_955 + 66 * ((*(int *)(b_55)) - 1), 32);
4939 
4940  /* Line: 2311 : MOVE : cobxref.cbl */
4941  cob_set_location (st_1, 2311, st_67, st_88, st_4);
4942  memcpy (b_27, b_955 + 32 + 66 * ((*(int *)(b_55)) - 1), 32);
4943 
4944  /* Line: 2312 : WRITE : cobxref.cbl */
4945  cob_set_location (st_1, 2312, st_67, st_88, st_13);
4946  cob_write (h_SOURCE_LISTING, &f_24, 0x110001, NULL, 0);
4947  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4948  {
4949  /* PERFORM Default Error Handler */
4950  frame_ptr++;
4951  if (unlikely(frame_ptr == frame_overflow))
4952  cob_fatal_error (COB_FERROR_STACK);
4953  frame_ptr->perform_through = 1;
4954  frame_ptr->return_address_ptr = &&l_294;
4955  goto l_1;
4956  l_294:
4957  frame_ptr--;
4958  }
4959 
4960  /* Line: 2313 : ADD : cobxref.cbl */
4961  cob_set_location (st_1, 2313, st_67, st_88, st_22);
4962  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
4963 
4964  /* Line: 2314 : IF : cobxref.cbl */
4965  cob_set_location (st_1, 2314, st_67, st_88, st_6);
4966  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
4967  {
4968 
4969  /* Line: 2315 : PERFORM : cobxref.cbl */
4970  cob_set_location (st_1, 2315, st_67, st_88, st_3);
4971  /* PERFORM zz150-WriteHdb */
4972  frame_ptr++;
4973  if (unlikely(frame_ptr == frame_overflow))
4974  cob_fatal_error (COB_FERROR_STACK);
4975  frame_ptr->perform_through = 132;
4976  frame_ptr->return_address_ptr = &&l_295;
4977  goto l_132;
4978  l_295:
4979  frame_ptr--;
4980 
4981  /* Line: 2316 : PERFORM : cobxref.cbl */
4982  cob_set_location (st_1, 2316, st_67, st_88, st_3);
4983  /* PERFORM zz150-WriteHdb7 THRU zz150-Exit */
4984  frame_ptr++;
4985  if (unlikely(frame_ptr == frame_overflow))
4986  cob_fatal_error (COB_FERROR_STACK);
4987  frame_ptr->perform_through = 142;
4988  frame_ptr->return_address_ptr = &&l_296;
4989  goto l_140;
4990  l_296:
4991  frame_ptr--;
4992  }
4993 
4994  /* Line: 2318 : GO TO : cobxref.cbl */
4995  cob_set_location (st_1, 2318, st_67, st_88, st_16);
4996  goto l_72;
4997  }
4998 
4999  /* Implicit PERFORM return */
5000  if (frame_ptr->perform_through == 72)
5001  goto *frame_ptr->return_address_ptr;
5002 
5003  /* Line: 2320 : Paragraph bc194-Now-Reverse : cobxref.cbl */
5004  l_73:;
5005 
5006  /* Line: 2325 : IF : cobxref.cbl */
5007  cob_set_location (st_1, 2325, st_67, st_89, st_6);
5008  if (((int)cob_cmp_s32 (b_962, 1LL) > 0))
5009  {
5010 
5011  /* Line: 2326 : SORT : cobxref.cbl */
5012  cob_set_location (st_1, 2326, st_67, st_89, st_8);
5013  cob_table_sort_init (1, 0);
5014  cob_table_sort_init_key (&f_957, 0, 0);
5015  cob_table_sort (COB_SET_FLD(f0, 66, b_955 + 66 * 0, &a_2), (*(int *)(b_961)));
5016 
5017  /* Line: 2327 : MOVE : cobxref.cbl */
5018  cob_set_location (st_1, 2327, st_67, st_89, st_4);
5019  memcpy (b_184 + 54, "[S]", 3);
5020 
5021  /* Line: 2328 : MOVE : cobxref.cbl */
5022  cob_set_location (st_1, 2328, st_67, st_89, st_4);
5023  memset (b_184 + 16, 32, 3);
5024 
5025  /* Line: 2329 : PERFORM : cobxref.cbl */
5026  cob_set_location (st_1, 2329, st_67, st_89, st_3);
5027  /* PERFORM zz150-WriteHdb */
5028  frame_ptr++;
5029  if (unlikely(frame_ptr == frame_overflow))
5030  cob_fatal_error (COB_FERROR_STACK);
5031  frame_ptr->perform_through = 132;
5032  frame_ptr->return_address_ptr = &&l_297;
5033  goto l_132;
5034  l_297:
5035  frame_ptr--;
5036 
5037  /* Line: 2330 : PERFORM : cobxref.cbl */
5038  cob_set_location (st_1, 2330, st_67, st_89, st_3);
5039  /* PERFORM zz150-WriteHdb7 THRU zz150-Exit */
5040  frame_ptr++;
5041  if (unlikely(frame_ptr == frame_overflow))
5042  cob_fatal_error (COB_FERROR_STACK);
5043  frame_ptr->perform_through = 142;
5044  frame_ptr->return_address_ptr = &&l_298;
5045  goto l_140;
5046  l_298:
5047  frame_ptr--;
5048 
5049  /* Line: 2331 : MOVE : cobxref.cbl */
5050  cob_set_location (st_1, 2331, st_67, st_89, st_4);
5051  (*(int *)(b_55)) = 0;
5052 
5053  /* Line: 2332 : PERFORM : cobxref.cbl */
5054  cob_set_location (st_1, 2332, st_67, st_89, st_3);
5055  /* PERFORM bc192-Print-Conditions */
5056  frame_ptr++;
5057  if (unlikely(frame_ptr == frame_overflow))
5058  cob_fatal_error (COB_FERROR_STACK);
5059  frame_ptr->perform_through = 72;
5060  frame_ptr->return_address_ptr = &&l_299;
5061  goto l_72;
5062  l_299:
5063  frame_ptr--;
5064  }
5065 
5066  /* Line: 2333 : MOVE : cobxref.cbl */
5067  cob_set_location (st_1, 2333, st_67, st_89, st_4);
5068  memset (b_27, 32, 64);
5069 
5070  /* Line: 2334 : Paragraph bc195-Done : cobxref.cbl */
5071  l_74:;
5072 
5073  /* Line: 2335 : PERFORM : cobxref.cbl */
5074  cob_set_location (st_1, 2335, st_67, st_90, st_3);
5075  /* PERFORM bc300-Last-Pass4 THRU bc399-Exit */
5076  frame_ptr++;
5077  if (unlikely(frame_ptr == frame_overflow))
5078  cob_fatal_error (COB_FERROR_STACK);
5079  frame_ptr->perform_through = 91;
5080  frame_ptr->return_address_ptr = &&l_300;
5081  goto l_83;
5082  l_300:
5083  frame_ptr--;
5084 
5085  /* Line: 2339 : Paragraph bc200-Last-Pass3 : cobxref.cbl */
5086 
5087  /* Line: 2343 : MOVE : cobxref.cbl */
5088  cob_set_location (st_1, 2343, st_67, st_91, st_4);
5089  memset (b_108, 32, 32);
5090 
5091  /* Line: 2344 : MOVE : cobxref.cbl */
5092  cob_set_location (st_1, 2344, st_67, st_91, st_4);
5093  *(b_110) = 48;
5094  *(b_111) = 48;
5095  (*(int *)(b_70)) = 0;
5096 
5097  /* Line: 2345 : OPEN : cobxref.cbl */
5098  cob_set_location (st_1, 2345, st_67, st_91, st_10);
5099  cob_open (h_SUPPLEMENTAL_PART2_IN, 1, 0, NULL);
5100  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5101  {
5102  /* PERFORM Default Error Handler */
5103  frame_ptr++;
5104  if (unlikely(frame_ptr == frame_overflow))
5105  cob_fatal_error (COB_FERROR_STACK);
5106  frame_ptr->perform_through = 1;
5107  frame_ptr->return_address_ptr = &&l_301;
5108  goto l_1;
5109  l_301:
5110  frame_ptr--;
5111  }
5112 
5113  /* Line: 2346 : READ : cobxref.cbl */
5114  cob_set_location (st_1, 2346, st_67, st_91, st_69);
5115  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
5116  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5117  {
5118  if (cob_glob_ptr->cob_exception_code == 0x0501)
5119  {
5120 
5121  /* Line: 2347 : DISPLAY : cobxref.cbl */
5122  cob_set_location (st_1, 2347, st_67, st_91, st_7);
5123  cob_display (0, 1, 1, &f_225);
5124 
5125  /* Line: 2348 : GO TO : cobxref.cbl */
5126  cob_set_location (st_1, 2348, st_67, st_91, st_16);
5127  goto l_109;
5128  }
5129  else
5130  {
5131  /* PERFORM Default Error Handler */
5132  frame_ptr++;
5133  if (unlikely(frame_ptr == frame_overflow))
5134  cob_fatal_error (COB_FERROR_STACK);
5135  frame_ptr->perform_through = 1;
5136  frame_ptr->return_address_ptr = &&l_302;
5137  goto l_1;
5138  l_302:
5139  frame_ptr--;
5140  }
5141  }
5142 
5143  /* Line: 2349 : PERFORM : cobxref.cbl */
5144  cob_set_location (st_1, 2349, st_67, st_91, st_3);
5145  /* PERFORM zz150-WriteHdb */
5146  frame_ptr++;
5147  if (unlikely(frame_ptr == frame_overflow))
5148  cob_fatal_error (COB_FERROR_STACK);
5149  frame_ptr->perform_through = 132;
5150  frame_ptr->return_address_ptr = &&l_303;
5151  goto l_132;
5152  l_303:
5153  frame_ptr--;
5154 
5155  /* Line: 2350 : MOVE : cobxref.cbl */
5156  cob_set_location (st_1, 2350, st_67, st_91, st_4);
5157  memcpy (b_173, "Procedure", 9);
5158 
5159  /* Line: 2351 : PERFORM : cobxref.cbl */
5160  cob_set_location (st_1, 2351, st_67, st_91, st_3);
5161  /* PERFORM zz150-WriteHdb3 THRU zz150-Exit */
5162  frame_ptr++;
5163  if (unlikely(frame_ptr == frame_overflow))
5164  cob_fatal_error (COB_FERROR_STACK);
5165  frame_ptr->perform_through = 142;
5166  frame_ptr->return_address_ptr = &&l_304;
5167  goto l_136;
5168  l_304:
5169  frame_ptr--;
5170 
5171  /* Line: 2352 : MOVE : cobxref.cbl */
5172  cob_set_location (st_1, 2352, st_67, st_91, st_4);
5173  (*(int *)(b_69)) = 0;
5174 
5175  /* Line: 2353 : GO TO : cobxref.cbl */
5176  cob_set_location (st_1, 2353, st_67, st_91, st_16);
5177  goto l_77;
5178 
5179  /* Line: 2354 : Paragraph bc210-Read-Sorter3 : cobxref.cbl */
5180  l_76:;
5181 
5182  /* Line: 2355 : READ : cobxref.cbl */
5183  cob_set_location (st_1, 2355, st_67, st_92, st_69);
5184  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
5185  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5186  {
5187  if (cob_glob_ptr->cob_exception_code == 0x0501)
5188  {
5189 
5190  /* Line: 2356 : PERFORM : cobxref.cbl */
5191  cob_set_location (st_1, 2356, st_67, st_92, st_3);
5192  /* PERFORM bc280-Check-Q */
5193  frame_ptr++;
5194  if (unlikely(frame_ptr == frame_overflow))
5195  cob_fatal_error (COB_FERROR_STACK);
5196  frame_ptr->perform_through = 82;
5197  frame_ptr->return_address_ptr = &&l_305;
5198  goto l_82;
5199  l_305:
5200  frame_ptr--;
5201 
5202  /* Line: 2357 : CLOSE : cobxref.cbl */
5203  cob_set_location (st_1, 2357, st_67, st_92, st_15);
5204  cob_close (h_SUPPLEMENTAL_PART2_IN, NULL, 0, 0);
5205  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5206  {
5207  /* PERFORM Default Error Handler */
5208  frame_ptr++;
5209  if (unlikely(frame_ptr == frame_overflow))
5210  cob_fatal_error (COB_FERROR_STACK);
5211  frame_ptr->perform_through = 1;
5212  frame_ptr->return_address_ptr = &&l_306;
5213  goto l_1;
5214  l_306:
5215  frame_ptr--;
5216  }
5217 
5218  /* Line: 2358 : IF : cobxref.cbl */
5219  cob_set_location (st_1, 2358, st_67, st_92, st_6);
5220  if (((int)cob_cmp_s32 (b_70, 0) == 0))
5221  {
5222 
5223  /* Line: 2359 : MOVE : cobxref.cbl */
5224  cob_set_location (st_1, 2359, st_67, st_92, st_4);
5225  memset (b_27, 32, 159);
5226 
5227  /* Line: 2360 : MOVE : cobxref.cbl */
5228  cob_set_location (st_1, 2360, st_67, st_92, st_4);
5229  cob_move ((cob_field *)&c_39, &f_12);
5230 
5231  /* Line: 2361 : WRITE : cobxref.cbl */
5232  cob_set_location (st_1, 2361, st_67, st_92, st_13);
5233  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
5234  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5235  {
5236  /* PERFORM Default Error Handler */
5237  frame_ptr++;
5238  if (unlikely(frame_ptr == frame_overflow))
5239  cob_fatal_error (COB_FERROR_STACK);
5240  frame_ptr->perform_through = 1;
5241  frame_ptr->return_address_ptr = &&l_307;
5242  goto l_1;
5243  l_307:
5244  frame_ptr--;
5245  }
5246 
5247  /* Line: 2362 : ADD : cobxref.cbl */
5248  cob_set_location (st_1, 2362, st_67, st_92, st_22);
5249  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
5250  }
5251 
5252  /* Line: 2364 : GO TO : cobxref.cbl */
5253  cob_set_location (st_1, 2364, st_67, st_92, st_16);
5254  goto l_92;
5255  }
5256  else
5257  {
5258  /* PERFORM Default Error Handler */
5259  frame_ptr++;
5260  if (unlikely(frame_ptr == frame_overflow))
5261  cob_fatal_error (COB_FERROR_STACK);
5262  frame_ptr->perform_through = 1;
5263  frame_ptr->return_address_ptr = &&l_308;
5264  goto l_1;
5265  l_308:
5266  frame_ptr--;
5267  }
5268  }
5269 
5270  /* Line: 2366 : Paragraph bc220-IsX3 : cobxref.cbl */
5271  l_77:;
5272 
5273  /* Line: 2367 : IF : cobxref.cbl */
5274  cob_set_location (st_1, 2367, st_67, st_93, st_6);
5275  if (((int)cob_cmp (&f_31, &cob_all_space) == 0))
5276  {
5277 
5278  /* Line: 2368 : GO TO : cobxref.cbl */
5279  cob_set_location (st_1, 2368, st_67, st_93, st_16);
5280  goto l_76;
5281  }
5282 
5283  /* Line: 2369 : PERFORM : cobxref.cbl */
5284  cob_set_location (st_1, 2369, st_67, st_93, st_3);
5285  /* PERFORM bc230-PrintXRef3 THRU bc270-Exit */
5286  frame_ptr++;
5287  if (unlikely(frame_ptr == frame_overflow))
5288  cob_fatal_error (COB_FERROR_STACK);
5289  frame_ptr->perform_through = 81;
5290  frame_ptr->return_address_ptr = &&l_309;
5291  goto l_78;
5292  l_309:
5293  frame_ptr--;
5294 
5295  /* Line: 2370 : GO TO : cobxref.cbl */
5296  cob_set_location (st_1, 2370, st_67, st_93, st_16);
5297  goto l_76;
5298 
5299  /* Line: 2372 : Paragraph bc230-PrintXRef3 : cobxref.cbl */
5300  l_78:;
5301 
5302  /* Line: 2376 : IF : cobxref.cbl */
5303  cob_set_location (st_1, 2376, st_67, st_94, st_6);
5304  if ((((int)memcmp (b_35, b_108, 32) != 0) &&
5305  ((int)cob_cmp_numdisp (b_35 + 32, 1, 8LL, 0) != 0)))
5306  {
5307 
5308  /* Line: 2378 : MOVE : cobxref.cbl */
5309  cob_set_location (st_1, 2378, st_67, st_94, st_4);
5310  memcpy (b_108, b_35, 32);
5311 
5312  /* Line: 2379 : MOVE : cobxref.cbl */
5313  cob_set_location (st_1, 2379, st_67, st_94, st_4);
5314  *(b_110) = *(b_35 + 32);
5315 
5316  /* Line: 2380 : MOVE : cobxref.cbl */
5317  cob_set_location (st_1, 2380, st_67, st_94, st_4);
5318  *(b_111) = *(b_35 + 33);
5319 
5320  /* Line: 2381 : GO TO : cobxref.cbl */
5321  cob_set_location (st_1, 2381, st_67, st_94, st_16);
5322  goto l_81;
5323  }
5324 
5325  /* Line: 2385 : IF : cobxref.cbl */
5326  cob_set_location (st_1, 2385, st_67, st_94, st_6);
5327  if ((((int)memcmp (b_35, b_108, 32) == 0) &&
5328  ((int)cob_cmp_numdisp (b_110, 1, 8LL, 0) != 0)))
5329  {
5330 
5331  /* Line: 2387 : GO TO : cobxref.cbl */
5332  cob_set_location (st_1, 2387, st_67, st_94, st_16);
5333  goto l_81;
5334  }
5335 
5336  /* Line: 2392 : IF : cobxref.cbl */
5337  cob_set_location (st_1, 2392, st_67, st_94, st_6);
5338  if (((((int)memcmp (b_35, b_108, 32) == 0) &&
5339  ((int)cob_cmp_numdisp (b_110, 1, 8LL, 0) == 0)) &&
5340  ((int)cob_cmp_numdisp (b_35 + 32, 1, 8LL, 0) > 0)))
5341  {
5342 
5343  /* Line: 2395 : GO TO : cobxref.cbl */
5344  cob_set_location (st_1, 2395, st_67, st_94, st_16);
5345  goto l_81;
5346  }
5347 
5348  /* Line: 2397 : IF : cobxref.cbl */
5349  cob_set_location (st_1, 2397, st_67, st_94, st_6);
5350  if (((int)memcmp (b_35, b_108, 32) == 0))
5351  {
5352 
5353  /* Line: 2398 : GO TO : cobxref.cbl */
5354  cob_set_location (st_1, 2398, st_67, st_94, st_16);
5355  goto l_80;
5356  }
5357 
5358  /* Line: 2399 : MOVE : cobxref.cbl */
5359  cob_set_location (st_1, 2399, st_67, st_94, st_4);
5360  memcpy (b_108, b_35, 32);
5361 
5362  /* Line: 2400 : MOVE : cobxref.cbl */
5363  cob_set_location (st_1, 2400, st_67, st_94, st_4);
5364  *(b_110) = *(b_35 + 32);
5365 
5366  /* Line: 2401 : MOVE : cobxref.cbl */
5367  cob_set_location (st_1, 2401, st_67, st_94, st_4);
5368  *(b_111) = *(b_35 + 33);
5369 
5370  /* Line: 2402 : PERFORM : cobxref.cbl */
5371  cob_set_location (st_1, 2402, st_67, st_94, st_3);
5372  /* PERFORM bc280-Check-Q */
5373  frame_ptr++;
5374  if (unlikely(frame_ptr == frame_overflow))
5375  cob_fatal_error (COB_FERROR_STACK);
5376  frame_ptr->perform_through = 82;
5377  frame_ptr->return_address_ptr = &&l_310;
5378  goto l_82;
5379  l_310:
5380  frame_ptr--;
5381 
5382  /* Line: 2403 : Paragraph bc250-ConnectC3 : cobxref.cbl */
5383 
5384  /* Line: 2404 : MOVE : cobxref.cbl */
5385  cob_set_location (st_1, 2404, st_67, st_95, st_4);
5386  memset (b_27, 32, 159);
5387 
5388  /* Line: 2405 : MOVE : cobxref.cbl */
5389  cob_set_location (st_1, 2405, st_67, st_95, st_4);
5390  memcpy (b_27, b_35, 32);
5391 
5392  /* Line: 2406 : MOVE : cobxref.cbl */
5393  cob_set_location (st_1, 2406, st_67, st_95, st_4);
5394  memcpy (b_27 + 32, b_35 + 34, 6);
5395 
5396  /* Line: 2410 : IF : cobxref.cbl */
5397  cob_set_location (st_1, 2410, st_67, st_95, st_6);
5398  if (((int)cob_cmp_numdisp (b_35 + 33, 1, 1LL, 0) != 0))
5399  {
5400 
5401  /* Line: 2411 : MOVE : cobxref.cbl */
5402  cob_set_location (st_1, 2411, st_67, st_95, st_4);
5403  *(b_27 + 38) = *(b_236 + (cob_get_numdisp (b_35 + 32, 1) - 1));
5404  }
5405  else
5406  {
5407  /* ELSE */
5408 
5409  /* Line: 2413 : MOVE : cobxref.cbl */
5410  cob_set_location (st_1, 2413, st_67, st_95, st_4);
5411  *(b_27 + 38) = 83;
5412  }
5413 
5414  /* Line: 2414 : GO TO : cobxref.cbl */
5415  cob_set_location (st_1, 2414, st_67, st_95, st_16);
5416  goto l_81;
5417 
5418  /* Line: 2415 : Paragraph bc260-ConnectD3 : cobxref.cbl */
5419  l_80:;
5420 
5421  /* Line: 2416 : IF : cobxref.cbl */
5422  cob_set_location (st_1, 2416, st_67, st_96, st_6);
5423  if (((int)cob_cmp_s32 (b_69, 7LL) > 0))
5424  {
5425 
5426  /* Line: 2417 : PERFORM : cobxref.cbl */
5427  cob_set_location (st_1, 2417, st_67, st_96, st_3);
5428  /* PERFORM bc280-Check-Q */
5429  frame_ptr++;
5430  if (unlikely(frame_ptr == frame_overflow))
5431  cob_fatal_error (COB_FERROR_STACK);
5432  frame_ptr->perform_through = 82;
5433  frame_ptr->return_address_ptr = &&l_311;
5434  goto l_82;
5435  l_311:
5436  frame_ptr--;
5437  }
5438 
5439  /* Line: 2418 : ADD : cobxref.cbl */
5440  cob_set_location (st_1, 2418, st_67, st_96, st_22);
5441  (*(int *)(b_69)) = ((*(int *)(b_69)) + 1);
5442 
5443  /* Line: 2419 : MOVE : cobxref.cbl */
5444  cob_set_location (st_1, 2419, st_67, st_96, st_4);
5445  memcpy (b_27 + 41 + 7 * ((*(int *)(b_69)) - 1), b_35 + 34, 6);
5446 
5447  /* Line: 2420 : Paragraph bc270-Exit : cobxref.cbl */
5448  l_81:;
5449 
5450  /* Line: 2421 : EXIT : cobxref.cbl */
5451  cob_set_location (st_1, 2421, st_67, st_97, st_26);
5452 
5453  /* Implicit PERFORM return */
5454  if (frame_ptr->perform_through == 81)
5455  goto *frame_ptr->return_address_ptr;
5456 
5457  /* Line: 2423 : Paragraph bc280-Check-Q : cobxref.cbl */
5458  l_82:;
5459 
5460  /* Line: 2424 : IF : cobxref.cbl */
5461  cob_set_location (st_1, 2424, st_67, st_98, st_6);
5462  if ((((int)cob_cmp (&f_12, &cob_all_space) != 0) &&
5463  ((int)cob_cmp_s32 (b_69, 0) == 0)))
5464  {
5465 
5466  /* Line: 2426 : MOVE : cobxref.cbl */
5467  cob_set_location (st_1, 2426, st_67, st_98, st_4);
5468  (*(int *)(b_69)) = 1;
5469  }
5470 
5471  /* Line: 2427 : IF : cobxref.cbl */
5472  cob_set_location (st_1, 2427, st_67, st_98, st_6);
5473  if (((int)cob_cmp_s32 (b_69, 0) > 0))
5474  {
5475 
5476  /* Line: 2428 : WRITE : cobxref.cbl */
5477  cob_set_location (st_1, 2428, st_67, st_98, st_13);
5478  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
5479  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5480  {
5481  /* PERFORM Default Error Handler */
5482  frame_ptr++;
5483  if (unlikely(frame_ptr == frame_overflow))
5484  cob_fatal_error (COB_FERROR_STACK);
5485  frame_ptr->perform_through = 1;
5486  frame_ptr->return_address_ptr = &&l_312;
5487  goto l_1;
5488  l_312:
5489  frame_ptr--;
5490  }
5491 
5492  /* Line: 2429 : ADD : cobxref.cbl */
5493  cob_set_location (st_1, 2429, st_67, st_98, st_22);
5494  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
5495 
5496  /* Line: 2430 : IF : cobxref.cbl */
5497  cob_set_location (st_1, 2430, st_67, st_98, st_6);
5498  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
5499  {
5500 
5501  /* Line: 2431 : PERFORM : cobxref.cbl */
5502  cob_set_location (st_1, 2431, st_67, st_98, st_3);
5503  /* PERFORM zz150-WriteHdb */
5504  frame_ptr++;
5505  if (unlikely(frame_ptr == frame_overflow))
5506  cob_fatal_error (COB_FERROR_STACK);
5507  frame_ptr->perform_through = 132;
5508  frame_ptr->return_address_ptr = &&l_313;
5509  goto l_132;
5510  l_313:
5511  frame_ptr--;
5512 
5513  /* Line: 2432 : MOVE : cobxref.cbl */
5514  cob_set_location (st_1, 2432, st_67, st_98, st_4);
5515  memcpy (b_173, "Procedure", 9);
5516 
5517  /* Line: 2433 : PERFORM : cobxref.cbl */
5518  cob_set_location (st_1, 2433, st_67, st_98, st_3);
5519  /* PERFORM zz150-WriteHdb3 THRU zz150-Exit */
5520  frame_ptr++;
5521  if (unlikely(frame_ptr == frame_overflow))
5522  cob_fatal_error (COB_FERROR_STACK);
5523  frame_ptr->perform_through = 142;
5524  frame_ptr->return_address_ptr = &&l_314;
5525  goto l_136;
5526  l_314:
5527  frame_ptr--;
5528  }
5529 
5530  /* Line: 2435 : MOVE : cobxref.cbl */
5531  cob_set_location (st_1, 2435, st_67, st_98, st_4);
5532  (*(int *)(b_69)) = 0;
5533 
5534  /* Line: 2436 : MOVE : cobxref.cbl */
5535  cob_set_location (st_1, 2436, st_67, st_98, st_4);
5536  (*(int *)(b_70)) = 1;
5537 
5538  /* Line: 2437 : MOVE : cobxref.cbl */
5539  cob_set_location (st_1, 2437, st_67, st_98, st_4);
5540  memset (b_27, 32, 159);
5541  }
5542 
5543  /* Implicit PERFORM return */
5544  if (frame_ptr->perform_through == 82)
5545  goto *frame_ptr->return_address_ptr;
5546 
5547  /* Line: 2439 : Paragraph bc300-Last-Pass4 : cobxref.cbl */
5548  l_83:;
5549 
5550  /* Line: 2443 : IF : cobxref.cbl */
5551  cob_set_location (st_1, 2443, st_67, st_99, st_6);
5552  if (((int)cob_cmp_numdisp (b_240 + 8, 1, 0, 0) == 0))
5553  {
5554 
5555  /* Line: 2444 : GO TO : cobxref.cbl */
5556  cob_set_location (st_1, 2444, st_67, st_99, st_16);
5557  goto l_91;
5558  }
5559 
5560  /* Line: 2445 : MOVE : cobxref.cbl */
5561  cob_set_location (st_1, 2445, st_67, st_99, st_4);
5562  memset (b_108, 32, 32);
5563 
5564  /* Line: 2446 : MOVE : cobxref.cbl */
5565  cob_set_location (st_1, 2446, st_67, st_99, st_4);
5566  *(b_110) = 48;
5567  *(b_111) = 48;
5568  (*(int *)(b_70)) = 0;
5569 
5570  /* Line: 2447 : MOVE : cobxref.cbl */
5571  cob_set_location (st_1, 2447, st_67, st_99, st_4);
5572  (*(cob_s8_ptr) (b_45)) = 70;
5573 
5574  /* Line: 2448 : OPEN : cobxref.cbl */
5575  cob_set_location (st_1, 2448, st_67, st_99, st_10);
5576  cob_open (h_SUPPLEMENTAL_PART2_IN, 1, 0, NULL);
5577  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5578  {
5579  /* PERFORM Default Error Handler */
5580  frame_ptr++;
5581  if (unlikely(frame_ptr == frame_overflow))
5582  cob_fatal_error (COB_FERROR_STACK);
5583  frame_ptr->perform_through = 1;
5584  frame_ptr->return_address_ptr = &&l_315;
5585  goto l_1;
5586  l_315:
5587  frame_ptr--;
5588  }
5589 
5590  /* Line: 2449 : READ : cobxref.cbl */
5591  cob_set_location (st_1, 2449, st_67, st_99, st_69);
5592  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
5593  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5594  {
5595  if (cob_glob_ptr->cob_exception_code == 0x0501)
5596  {
5597 
5598  /* Line: 2450 : DISPLAY : cobxref.cbl */
5599  cob_set_location (st_1, 2450, st_67, st_99, st_7);
5600  cob_display (0, 1, 1, &f_225);
5601 
5602  /* Line: 2451 : GO TO : cobxref.cbl */
5603  cob_set_location (st_1, 2451, st_67, st_99, st_16);
5604  goto l_109;
5605  }
5606  else
5607  {
5608  /* PERFORM Default Error Handler */
5609  frame_ptr++;
5610  if (unlikely(frame_ptr == frame_overflow))
5611  cob_fatal_error (COB_FERROR_STACK);
5612  frame_ptr->perform_through = 1;
5613  frame_ptr->return_address_ptr = &&l_316;
5614  goto l_1;
5615  l_316:
5616  frame_ptr--;
5617  }
5618  }
5619 
5620  /* Line: 2452 : MOVE : cobxref.cbl */
5621  cob_set_location (st_1, 2452, st_67, st_99, st_4);
5622  (*(int *)(b_69)) = 0;
5623 
5624  /* Line: 2453 : GO TO : cobxref.cbl */
5625  cob_set_location (st_1, 2453, st_67, st_99, st_16);
5626  goto l_85;
5627 
5628  /* Line: 2455 : Paragraph bc310-Read-Sorter4 : cobxref.cbl */
5629  l_84:;
5630 
5631  /* Line: 2456 : READ : cobxref.cbl */
5632  cob_set_location (st_1, 2456, st_67, st_100, st_69);
5633  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
5634  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5635  {
5636  if (cob_glob_ptr->cob_exception_code == 0x0501)
5637  {
5638 
5639  /* Line: 2457 : PERFORM : cobxref.cbl */
5640  cob_set_location (st_1, 2457, st_67, st_100, st_3);
5641  /* PERFORM bc335-Check-Q */
5642  frame_ptr++;
5643  if (unlikely(frame_ptr == frame_overflow))
5644  cob_fatal_error (COB_FERROR_STACK);
5645  frame_ptr->perform_through = 87;
5646  frame_ptr->return_address_ptr = &&l_317;
5647  goto l_87;
5648  l_317:
5649  frame_ptr--;
5650 
5651  /* Line: 2458 : CLOSE : cobxref.cbl */
5652  cob_set_location (st_1, 2458, st_67, st_100, st_15);
5653  cob_close (h_SUPPLEMENTAL_PART2_IN, NULL, 0, 0);
5654  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5655  {
5656  /* PERFORM Default Error Handler */
5657  frame_ptr++;
5658  if (unlikely(frame_ptr == frame_overflow))
5659  cob_fatal_error (COB_FERROR_STACK);
5660  frame_ptr->perform_through = 1;
5661  frame_ptr->return_address_ptr = &&l_318;
5662  goto l_1;
5663  l_318:
5664  frame_ptr--;
5665  }
5666 
5667  /* Line: 2459 : GO TO : cobxref.cbl */
5668  cob_set_location (st_1, 2459, st_67, st_100, st_16);
5669  goto l_91;
5670  }
5671  else
5672  {
5673  /* PERFORM Default Error Handler */
5674  frame_ptr++;
5675  if (unlikely(frame_ptr == frame_overflow))
5676  cob_fatal_error (COB_FERROR_STACK);
5677  frame_ptr->perform_through = 1;
5678  frame_ptr->return_address_ptr = &&l_319;
5679  goto l_1;
5680  l_319:
5681  frame_ptr--;
5682  }
5683  }
5684 
5685  /* Line: 2460 : Paragraph bc320-IsX4 : cobxref.cbl */
5686  l_85:;
5687 
5688  /* Line: 2461 : IF : cobxref.cbl */
5689  cob_set_location (st_1, 2461, st_67, st_101, st_6);
5690  if (((int)cob_cmp (&f_31, &cob_all_space) == 0))
5691  {
5692 
5693  /* Line: 2462 : GO TO : cobxref.cbl */
5694  cob_set_location (st_1, 2462, st_67, st_101, st_16);
5695  goto l_84;
5696  }
5697 
5698  /* Line: 2463 : PERFORM : cobxref.cbl */
5699  cob_set_location (st_1, 2463, st_67, st_101, st_3);
5700  /* PERFORM bc330-PrintXRef4 THRU bc360-Exit */
5701  frame_ptr++;
5702  if (unlikely(frame_ptr == frame_overflow))
5703  cob_fatal_error (COB_FERROR_STACK);
5704  frame_ptr->perform_through = 90;
5705  frame_ptr->return_address_ptr = &&l_320;
5706  goto l_86;
5707  l_320:
5708  frame_ptr--;
5709 
5710  /* Line: 2464 : GO TO : cobxref.cbl */
5711  cob_set_location (st_1, 2464, st_67, st_101, st_16);
5712  goto l_84;
5713 
5714  /* Line: 2465 : Paragraph bc330-PrintXRef4 : cobxref.cbl */
5715  l_86:;
5716 
5717  /* Line: 2469 : IF : cobxref.cbl */
5718  cob_set_location (st_1, 2469, st_67, st_102, st_6);
5719  if (((int)cob_cmp_numdisp (b_35 + 32, 1, 9LL, 0) != 0))
5720  {
5721 
5722  /* Line: 2470 : GO TO : cobxref.cbl */
5723  cob_set_location (st_1, 2470, st_67, st_102, st_16);
5724  goto l_90;
5725  }
5726 
5727  /* Line: 2472 : IF : cobxref.cbl */
5728  cob_set_location (st_1, 2472, st_67, st_102, st_6);
5729  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
5730  {
5731 
5732  /* Line: 2473 : MOVE : cobxref.cbl */
5733  cob_set_location (st_1, 2473, st_67, st_102, st_4);
5734  memcpy (b_173, "Functions", 9);
5735 
5736  /* Line: 2474 : MOVE : cobxref.cbl */
5737  cob_set_location (st_1, 2474, st_67, st_102, st_4);
5738  (*(cob_s8_ptr) (b_45)) = 0;
5739 
5740  /* Line: 2475 : PERFORM : cobxref.cbl */
5741  cob_set_location (st_1, 2475, st_67, st_102, st_3);
5742  /* PERFORM zz150-WriteHdb */
5743  frame_ptr++;
5744  if (unlikely(frame_ptr == frame_overflow))
5745  cob_fatal_error (COB_FERROR_STACK);
5746  frame_ptr->perform_through = 132;
5747  frame_ptr->return_address_ptr = &&l_321;
5748  goto l_132;
5749  l_321:
5750  frame_ptr--;
5751 
5752  /* Line: 2476 : PERFORM : cobxref.cbl */
5753  cob_set_location (st_1, 2476, st_67, st_102, st_3);
5754  /* PERFORM zz150-WriteHdb3 THRU zz150-Exit */
5755  frame_ptr++;
5756  if (unlikely(frame_ptr == frame_overflow))
5757  cob_fatal_error (COB_FERROR_STACK);
5758  frame_ptr->perform_through = 142;
5759  frame_ptr->return_address_ptr = &&l_322;
5760  goto l_136;
5761  l_322:
5762  frame_ptr--;
5763  }
5764 
5765  /* Line: 2478 : IF : cobxref.cbl */
5766  cob_set_location (st_1, 2478, st_67, st_102, st_6);
5767  if (((int)memcmp (b_35, b_108, 32) == 0))
5768  {
5769 
5770  /* Line: 2479 : GO TO : cobxref.cbl */
5771  cob_set_location (st_1, 2479, st_67, st_102, st_16);
5772  goto l_89;
5773  }
5774 
5775  /* Line: 2480 : MOVE : cobxref.cbl */
5776  cob_set_location (st_1, 2480, st_67, st_102, st_4);
5777  memcpy (b_108, b_35, 32);
5778 
5779  /* Line: 2481 : Paragraph bc335-Check-Q : cobxref.cbl */
5780  l_87:;
5781 
5782  /* Line: 2482 : IF : cobxref.cbl */
5783  cob_set_location (st_1, 2482, st_67, st_103, st_6);
5784  if ((((int)cob_cmp (&f_12, &cob_all_space) != 0) &&
5785  ((int)cob_cmp_s32 (b_69, 0) == 0)))
5786  {
5787 
5788  /* Line: 2484 : MOVE : cobxref.cbl */
5789  cob_set_location (st_1, 2484, st_67, st_103, st_4);
5790  (*(int *)(b_69)) = 1;
5791  }
5792 
5793  /* Line: 2485 : IF : cobxref.cbl */
5794  cob_set_location (st_1, 2485, st_67, st_103, st_6);
5795  if (((int)cob_cmp_s32 (b_69, 0) > 0))
5796  {
5797 
5798  /* Line: 2486 : WRITE : cobxref.cbl */
5799  cob_set_location (st_1, 2486, st_67, st_103, st_13);
5800  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
5801  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5802  {
5803  /* PERFORM Default Error Handler */
5804  frame_ptr++;
5805  if (unlikely(frame_ptr == frame_overflow))
5806  cob_fatal_error (COB_FERROR_STACK);
5807  frame_ptr->perform_through = 1;
5808  frame_ptr->return_address_ptr = &&l_323;
5809  goto l_1;
5810  l_323:
5811  frame_ptr--;
5812  }
5813 
5814  /* Line: 2487 : ADD : cobxref.cbl */
5815  cob_set_location (st_1, 2487, st_67, st_103, st_22);
5816  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
5817 
5818  /* Line: 2488 : MOVE : cobxref.cbl */
5819  cob_set_location (st_1, 2488, st_67, st_103, st_4);
5820  (*(int *)(b_69)) = 0;
5821 
5822  /* Line: 2489 : MOVE : cobxref.cbl */
5823  cob_set_location (st_1, 2489, st_67, st_103, st_4);
5824  (*(int *)(b_70)) = 1;
5825 
5826  /* Line: 2490 : MOVE : cobxref.cbl */
5827  cob_set_location (st_1, 2490, st_67, st_103, st_4);
5828  memset (b_27, 32, 159);
5829  }
5830 
5831  /* Implicit PERFORM return */
5832  if (frame_ptr->perform_through == 87)
5833  goto *frame_ptr->return_address_ptr;
5834 
5835  /* Line: 2491 : Paragraph bc340-ConnectC4 : cobxref.cbl */
5836 
5837  /* Line: 2492 : MOVE : cobxref.cbl */
5838  cob_set_location (st_1, 2492, st_67, st_104, st_4);
5839  memset (b_27, 32, 159);
5840 
5841  /* Line: 2493 : MOVE : cobxref.cbl */
5842  cob_set_location (st_1, 2493, st_67, st_104, st_4);
5843  memcpy (b_27, b_35, 32);
5844 
5845  /* Line: 2494 : MOVE : cobxref.cbl */
5846  cob_set_location (st_1, 2494, st_67, st_104, st_4);
5847  memcpy (b_27 + 32, b_35 + 34, 6);
5848 
5849  /* Line: 2495 : MOVE : cobxref.cbl */
5850  cob_set_location (st_1, 2495, st_67, st_104, st_4);
5851  *(b_27 + 38) = *(b_236 + (cob_get_numdisp (b_35 + 32, 1) - 1));
5852 
5853  /* Line: 2496 : GO TO : cobxref.cbl */
5854  cob_set_location (st_1, 2496, st_67, st_104, st_16);
5855  goto l_90;
5856 
5857  /* Line: 2497 : Paragraph bc350-ConnectD4 : cobxref.cbl */
5858  l_89:;
5859 
5860  /* Line: 2498 : IF : cobxref.cbl */
5861  cob_set_location (st_1, 2498, st_67, st_105, st_6);
5862  if (((int)cob_cmp_s32 (b_69, 7LL) > 0))
5863  {
5864 
5865  /* Line: 2499 : PERFORM : cobxref.cbl */
5866  cob_set_location (st_1, 2499, st_67, st_105, st_3);
5867  /* PERFORM bc335-Check-Q */
5868  frame_ptr++;
5869  if (unlikely(frame_ptr == frame_overflow))
5870  cob_fatal_error (COB_FERROR_STACK);
5871  frame_ptr->perform_through = 87;
5872  frame_ptr->return_address_ptr = &&l_324;
5873  goto l_87;
5874  l_324:
5875  frame_ptr--;
5876  }
5877 
5878  /* Line: 2500 : ADD : cobxref.cbl */
5879  cob_set_location (st_1, 2500, st_67, st_105, st_22);
5880  (*(int *)(b_69)) = ((*(int *)(b_69)) + 1);
5881 
5882  /* Line: 2501 : MOVE : cobxref.cbl */
5883  cob_set_location (st_1, 2501, st_67, st_105, st_4);
5884  memcpy (b_27 + 41 + 7 * ((*(int *)(b_69)) - 1), b_35 + 34, 6);
5885 
5886  /* Line: 2502 : Paragraph bc360-Exit : cobxref.cbl */
5887  l_90:;
5888 
5889  /* Line: 2503 : EXIT : cobxref.cbl */
5890  cob_set_location (st_1, 2503, st_67, st_106, st_26);
5891 
5892  /* Implicit PERFORM return */
5893  if (frame_ptr->perform_through == 90)
5894  goto *frame_ptr->return_address_ptr;
5895 
5896  /* Line: 2505 : Paragraph bc399-Exit : cobxref.cbl */
5897  l_91:;
5898 
5899  /* Line: 2506 : EXIT : cobxref.cbl */
5900  cob_set_location (st_1, 2506, st_67, st_107, st_26);
5901 
5902  /* Implicit PERFORM return */
5903  if (frame_ptr->perform_through == 91)
5904  goto *frame_ptr->return_address_ptr;
5905 
5906  /* Line: 2508 : Paragraph bc400-Last-Pass5 : cobxref.cbl */
5907  l_92:;
5908 
5909  /* Line: 2512 : MOVE : cobxref.cbl */
5910  cob_set_location (st_1, 2512, st_67, st_108, st_4);
5911  memset (b_108, 32, 32);
5912 
5913  /* Line: 2513 : MOVE : cobxref.cbl */
5914  cob_set_location (st_1, 2513, st_67, st_108, st_4);
5915  *(b_110) = 48;
5916  *(b_111) = 48;
5917  (*(int *)(b_43)) = 0;
5918 
5919  /* Line: 2514 : OPEN : cobxref.cbl */
5920  cob_set_location (st_1, 2514, st_67, st_108, st_10);
5921  cob_open (h_SUPPLEMENTAL_PART2_IN, 1, 0, NULL);
5922  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5923  {
5924  /* PERFORM Default Error Handler */
5925  frame_ptr++;
5926  if (unlikely(frame_ptr == frame_overflow))
5927  cob_fatal_error (COB_FERROR_STACK);
5928  frame_ptr->perform_through = 1;
5929  frame_ptr->return_address_ptr = &&l_325;
5930  goto l_1;
5931  l_325:
5932  frame_ptr--;
5933  }
5934 
5935  /* Line: 2515 : READ : cobxref.cbl */
5936  cob_set_location (st_1, 2515, st_67, st_108, st_69);
5937  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
5938  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
5939  {
5940  if (cob_glob_ptr->cob_exception_code == 0x0501)
5941  {
5942 
5943  /* Line: 2516 : DISPLAY : cobxref.cbl */
5944  cob_set_location (st_1, 2516, st_67, st_108, st_7);
5945  cob_display (0, 1, 1, &f_225);
5946 
5947  /* Line: 2517 : GO TO : cobxref.cbl */
5948  cob_set_location (st_1, 2517, st_67, st_108, st_16);
5949  goto l_109;
5950  }
5951  else
5952  {
5953  /* PERFORM Default Error Handler */
5954  frame_ptr++;
5955  if (unlikely(frame_ptr == frame_overflow))
5956  cob_fatal_error (COB_FERROR_STACK);
5957  frame_ptr->perform_through = 1;
5958  frame_ptr->return_address_ptr = &&l_326;
5959  goto l_1;
5960  l_326:
5961  frame_ptr--;
5962  }
5963  }
5964 
5965  /* Line: 2518 : PERFORM : cobxref.cbl */
5966  cob_set_location (st_1, 2518, st_67, st_108, st_3);
5967  /* PERFORM zz150-WriteHdb */
5968  frame_ptr++;
5969  if (unlikely(frame_ptr == frame_overflow))
5970  cob_fatal_error (COB_FERROR_STACK);
5971  frame_ptr->perform_through = 132;
5972  frame_ptr->return_address_ptr = &&l_327;
5973  goto l_132;
5974  l_327:
5975  frame_ptr--;
5976 
5977  /* Line: 2519 : PERFORM : cobxref.cbl */
5978  cob_set_location (st_1, 2519, st_67, st_108, st_3);
5979  /* PERFORM zz150-WriteHdb4 THRU zz150-Exit */
5980  frame_ptr++;
5981  if (unlikely(frame_ptr == frame_overflow))
5982  cob_fatal_error (COB_FERROR_STACK);
5983  frame_ptr->perform_through = 142;
5984  frame_ptr->return_address_ptr = &&l_328;
5985  goto l_137;
5986  l_328:
5987  frame_ptr--;
5988 
5989  /* Line: 2520 : MOVE : cobxref.cbl */
5990  cob_set_location (st_1, 2520, st_67, st_108, st_4);
5991  (*(int *)(b_69)) = 0;
5992 
5993  /* Line: 2521 : GO TO : cobxref.cbl */
5994  cob_set_location (st_1, 2521, st_67, st_108, st_16);
5995  goto l_94;
5996 
5997  /* Line: 2523 : Paragraph bc410-Read-Sorter5 : cobxref.cbl */
5998  l_93:;
5999 
6000  /* Line: 2524 : READ : cobxref.cbl */
6001  cob_set_location (st_1, 2524, st_67, st_109, st_69);
6002  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
6003  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6004  {
6005  if (cob_glob_ptr->cob_exception_code == 0x0501)
6006  {
6007 
6008  /* Line: 2525 : PERFORM : cobxref.cbl */
6009  cob_set_location (st_1, 2525, st_67, st_109, st_3);
6010  /* PERFORM bc440-Check-4Old */
6011  frame_ptr++;
6012  if (unlikely(frame_ptr == frame_overflow))
6013  cob_fatal_error (COB_FERROR_STACK);
6014  frame_ptr->perform_through = 96;
6015  frame_ptr->return_address_ptr = &&l_329;
6016  goto l_96;
6017  l_329:
6018  frame_ptr--;
6019 
6020  /* Line: 2526 : CLOSE : cobxref.cbl */
6021  cob_set_location (st_1, 2526, st_67, st_109, st_15);
6022  cob_close (h_SUPPLEMENTAL_PART2_IN, NULL, 0, 0);
6023  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6024  {
6025  /* PERFORM Default Error Handler */
6026  frame_ptr++;
6027  if (unlikely(frame_ptr == frame_overflow))
6028  cob_fatal_error (COB_FERROR_STACK);
6029  frame_ptr->perform_through = 1;
6030  frame_ptr->return_address_ptr = &&l_330;
6031  goto l_1;
6032  l_330:
6033  frame_ptr--;
6034  }
6035 
6036  /* Line: 2527 : IF : cobxref.cbl */
6037  cob_set_location (st_1, 2527, st_67, st_109, st_6);
6038  if (((int)cob_cmp_s32 (b_43, 0) == 0))
6039  {
6040 
6041  /* Line: 2528 : MOVE : cobxref.cbl */
6042  cob_set_location (st_1, 2528, st_67, st_109, st_4);
6043  memset (b_27, 32, 159);
6044 
6045  /* Line: 2529 : MOVE : cobxref.cbl */
6046  cob_set_location (st_1, 2529, st_67, st_109, st_4);
6047  cob_move ((cob_field *)&c_39, &f_12);
6048 
6049  /* Line: 2530 : ADD : cobxref.cbl */
6050  cob_set_location (st_1, 2530, st_67, st_109, st_22);
6051  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6052 
6053  /* Line: 2531 : WRITE : cobxref.cbl */
6054  cob_set_location (st_1, 2531, st_67, st_109, st_13);
6055  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6056  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6057  {
6058  /* PERFORM Default Error Handler */
6059  frame_ptr++;
6060  if (unlikely(frame_ptr == frame_overflow))
6061  cob_fatal_error (COB_FERROR_STACK);
6062  frame_ptr->perform_through = 1;
6063  frame_ptr->return_address_ptr = &&l_331;
6064  goto l_1;
6065  l_331:
6066  frame_ptr--;
6067  }
6068  }
6069 
6070  /* Line: 2533 : GO TO : cobxref.cbl */
6071  cob_set_location (st_1, 2533, st_67, st_109, st_16);
6072  goto l_98;
6073  }
6074  else
6075  {
6076  /* PERFORM Default Error Handler */
6077  frame_ptr++;
6078  if (unlikely(frame_ptr == frame_overflow))
6079  cob_fatal_error (COB_FERROR_STACK);
6080  frame_ptr->perform_through = 1;
6081  frame_ptr->return_address_ptr = &&l_332;
6082  goto l_1;
6083  l_332:
6084  frame_ptr--;
6085  }
6086  }
6087 
6088  /* Line: 2534 : Paragraph bc420-IsX5 : cobxref.cbl */
6089  l_94:;
6090 
6091  /* Line: 2538 : IF : cobxref.cbl */
6092  cob_set_location (st_1, 2538, st_67, st_110, st_6);
6093  if ((((int)cob_cmp (&f_31, &cob_all_space) == 0) ||
6094  ((int)cob_cmp_numdisp (b_35 + 34, 6, 0, 0) == 0)))
6095  {
6096 
6097  /* Line: 2540 : GO TO : cobxref.cbl */
6098  cob_set_location (st_1, 2540, st_67, st_110, st_16);
6099  goto l_93;
6100  }
6101 
6102  /* Line: 2541 : PERFORM : cobxref.cbl */
6103  cob_set_location (st_1, 2541, st_67, st_110, st_3);
6104  /* PERFORM bc430-PrintXRef5 THRU bc450-Exit */
6105  frame_ptr++;
6106  if (unlikely(frame_ptr == frame_overflow))
6107  cob_fatal_error (COB_FERROR_STACK);
6108  frame_ptr->perform_through = 97;
6109  frame_ptr->return_address_ptr = &&l_333;
6110  goto l_95;
6111  l_333:
6112  frame_ptr--;
6113 
6114  /* Line: 2542 : GO TO : cobxref.cbl */
6115  cob_set_location (st_1, 2542, st_67, st_110, st_16);
6116  goto l_93;
6117 
6118  /* Line: 2543 : Paragraph bc430-PrintXRef5 : cobxref.cbl */
6119  l_95:;
6120 
6121  /* Line: 2550 : IF : cobxref.cbl */
6122  cob_set_location (st_1, 2550, st_67, st_111, st_6);
6123  if (((int)memcmp (b_35, b_108, 32) == 0))
6124  {
6125 
6126  /* Line: 2551 : MOVE : cobxref.cbl */
6127  cob_set_location (st_1, 2551, st_67, st_111, st_4);
6128  (*(int *)(b_69)) = 2;
6129 
6130  /* Line: 2552 : GO TO : cobxref.cbl */
6131  cob_set_location (st_1, 2552, st_67, st_111, st_16);
6132  goto l_97;
6133  }
6134 
6135  /* Line: 2554 : IF : cobxref.cbl */
6136  cob_set_location (st_1, 2554, st_67, st_111, st_6);
6137  if (((int)cob_cmp_numdisp (b_35 + 32, 1, 7LL, 0) > 0))
6138  {
6139 
6140  /* Line: 2555 : GO TO : cobxref.cbl */
6141  cob_set_location (st_1, 2555, st_67, st_111, st_16);
6142  goto l_97;
6143  }
6144 
6145  /* Line: 2557 : PERFORM : cobxref.cbl */
6146  cob_set_location (st_1, 2557, st_67, st_111, st_3);
6147  /* PERFORM bc440-Check-4Old */
6148  frame_ptr++;
6149  if (unlikely(frame_ptr == frame_overflow))
6150  cob_fatal_error (COB_FERROR_STACK);
6151  frame_ptr->perform_through = 96;
6152  frame_ptr->return_address_ptr = &&l_334;
6153  goto l_96;
6154  l_334:
6155  frame_ptr--;
6156 
6157  /* Line: 2559 : MOVE : cobxref.cbl */
6158  cob_set_location (st_1, 2559, st_67, st_111, st_4);
6159  memcpy (b_108, b_35, 32);
6160 
6161  /* Line: 2563 : MOVE : cobxref.cbl */
6162  cob_set_location (st_1, 2563, st_67, st_111, st_4);
6163  memset (b_27, 32, 159);
6164 
6165  /* Line: 2564 : MOVE : cobxref.cbl */
6166  cob_set_location (st_1, 2564, st_67, st_111, st_4);
6167  memcpy (b_27, b_35, 32);
6168 
6169  /* Line: 2565 : MOVE : cobxref.cbl */
6170  cob_set_location (st_1, 2565, st_67, st_111, st_4);
6171  memcpy (b_27 + 32, b_35 + 34, 6);
6172 
6173  /* Line: 2566 : MOVE : cobxref.cbl */
6174  cob_set_location (st_1, 2566, st_67, st_111, st_4);
6175  *(b_27 + 38) = *(b_236 + (cob_get_numdisp (b_35 + 32, 1) - 1));
6176 
6177  /* Line: 2567 : MOVE : cobxref.cbl */
6178  cob_set_location (st_1, 2567, st_67, st_111, st_4);
6179  (*(int *)(b_69)) = 1;
6180 
6181  /* Line: 2568 : GO TO : cobxref.cbl */
6182  cob_set_location (st_1, 2568, st_67, st_111, st_16);
6183  goto l_97;
6184 
6185  /* Line: 2569 : Paragraph bc440-Check-4Old : cobxref.cbl */
6186  l_96:;
6187 
6188  /* Line: 2570 : IF : cobxref.cbl */
6189  cob_set_location (st_1, 2570, st_67, st_112, st_6);
6190  if (((int)cob_cmp_s32 (b_69, 1LL) == 0))
6191  {
6192 
6193  /* Line: 2571 : MOVE : cobxref.cbl */
6194  cob_set_location (st_1, 2571, st_67, st_112, st_4);
6195  (*(int *)(b_43)) = 1;
6196 
6197  /* Line: 2572 : ADD : cobxref.cbl */
6198  cob_set_location (st_1, 2572, st_67, st_112, st_22);
6199  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6200 
6201  /* Line: 2573 : WRITE : cobxref.cbl */
6202  cob_set_location (st_1, 2573, st_67, st_112, st_13);
6203  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6204  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6205  {
6206  /* PERFORM Default Error Handler */
6207  frame_ptr++;
6208  if (unlikely(frame_ptr == frame_overflow))
6209  cob_fatal_error (COB_FERROR_STACK);
6210  frame_ptr->perform_through = 1;
6211  frame_ptr->return_address_ptr = &&l_335;
6212  goto l_1;
6213  l_335:
6214  frame_ptr--;
6215  }
6216 
6217  /* Line: 2574 : IF : cobxref.cbl */
6218  cob_set_location (st_1, 2574, st_67, st_112, st_6);
6219  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
6220  {
6221 
6222  /* Line: 2575 : PERFORM : cobxref.cbl */
6223  cob_set_location (st_1, 2575, st_67, st_112, st_3);
6224  /* PERFORM zz150-WriteHdb */
6225  frame_ptr++;
6226  if (unlikely(frame_ptr == frame_overflow))
6227  cob_fatal_error (COB_FERROR_STACK);
6228  frame_ptr->perform_through = 132;
6229  frame_ptr->return_address_ptr = &&l_336;
6230  goto l_132;
6231  l_336:
6232  frame_ptr--;
6233 
6234  /* Line: 2576 : PERFORM : cobxref.cbl */
6235  cob_set_location (st_1, 2576, st_67, st_112, st_3);
6236  /* PERFORM zz150-WriteHdb4 THRU zz150-Exit */
6237  frame_ptr++;
6238  if (unlikely(frame_ptr == frame_overflow))
6239  cob_fatal_error (COB_FERROR_STACK);
6240  frame_ptr->perform_through = 142;
6241  frame_ptr->return_address_ptr = &&l_337;
6242  goto l_137;
6243  l_337:
6244  frame_ptr--;
6245  }
6246  }
6247 
6248  /* Implicit PERFORM return */
6249  if (frame_ptr->perform_through == 96)
6250  goto *frame_ptr->return_address_ptr;
6251 
6252  /* Line: 2578 : Paragraph bc450-Exit : cobxref.cbl */
6253  l_97:;
6254 
6255  /* Line: 2579 : EXIT : cobxref.cbl */
6256  cob_set_location (st_1, 2579, st_67, st_113, st_26);
6257 
6258  /* Implicit PERFORM return */
6259  if (frame_ptr->perform_through == 97)
6260  goto *frame_ptr->return_address_ptr;
6261 
6262  /* Line: 2581 : Paragraph bc500-Last-Pass6 : cobxref.cbl */
6263  l_98:;
6264 
6265  /* Line: 2585 : MOVE : cobxref.cbl */
6266  cob_set_location (st_1, 2585, st_67, st_114, st_4);
6267  memset (b_108, 32, 32);
6268 
6269  /* Line: 2586 : MOVE : cobxref.cbl */
6270  cob_set_location (st_1, 2586, st_67, st_114, st_4);
6271  *(b_110) = 48;
6272  (*(int *)(b_43)) = 0;
6273 
6274  /* Line: 2587 : OPEN : cobxref.cbl */
6275  cob_set_location (st_1, 2587, st_67, st_114, st_10);
6276  cob_open (h_SUPPLEMENTAL_PART2_IN, 1, 0, NULL);
6277  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6278  {
6279  /* PERFORM Default Error Handler */
6280  frame_ptr++;
6281  if (unlikely(frame_ptr == frame_overflow))
6282  cob_fatal_error (COB_FERROR_STACK);
6283  frame_ptr->perform_through = 1;
6284  frame_ptr->return_address_ptr = &&l_338;
6285  goto l_1;
6286  l_338:
6287  frame_ptr--;
6288  }
6289 
6290  /* Line: 2588 : READ : cobxref.cbl */
6291  cob_set_location (st_1, 2588, st_67, st_114, st_69);
6292  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
6293  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6294  {
6295  if (cob_glob_ptr->cob_exception_code == 0x0501)
6296  {
6297 
6298  /* Line: 2589 : DISPLAY : cobxref.cbl */
6299  cob_set_location (st_1, 2589, st_67, st_114, st_7);
6300  cob_display (0, 1, 1, &f_225);
6301 
6302  /* Line: 2590 : GO TO : cobxref.cbl */
6303  cob_set_location (st_1, 2590, st_67, st_114, st_16);
6304  goto l_109;
6305  }
6306  else
6307  {
6308  /* PERFORM Default Error Handler */
6309  frame_ptr++;
6310  if (unlikely(frame_ptr == frame_overflow))
6311  cob_fatal_error (COB_FERROR_STACK);
6312  frame_ptr->perform_through = 1;
6313  frame_ptr->return_address_ptr = &&l_339;
6314  goto l_1;
6315  l_339:
6316  frame_ptr--;
6317  }
6318  }
6319 
6320  /* Line: 2591 : PERFORM : cobxref.cbl */
6321  cob_set_location (st_1, 2591, st_67, st_114, st_3);
6322  /* PERFORM zz150-WriteHdb */
6323  frame_ptr++;
6324  if (unlikely(frame_ptr == frame_overflow))
6325  cob_fatal_error (COB_FERROR_STACK);
6326  frame_ptr->perform_through = 132;
6327  frame_ptr->return_address_ptr = &&l_340;
6328  goto l_132;
6329  l_340:
6330  frame_ptr--;
6331 
6332  /* Line: 2592 : PERFORM : cobxref.cbl */
6333  cob_set_location (st_1, 2592, st_67, st_114, st_3);
6334  /* PERFORM zz150-WriteHdb5 THRU zz150-Exit */
6335  frame_ptr++;
6336  if (unlikely(frame_ptr == frame_overflow))
6337  cob_fatal_error (COB_FERROR_STACK);
6338  frame_ptr->perform_through = 142;
6339  frame_ptr->return_address_ptr = &&l_341;
6340  goto l_138;
6341  l_341:
6342  frame_ptr--;
6343 
6344  /* Line: 2593 : MOVE : cobxref.cbl */
6345  cob_set_location (st_1, 2593, st_67, st_114, st_4);
6346  (*(int *)(b_69)) = 0;
6347 
6348  /* Line: 2594 : GO TO : cobxref.cbl */
6349  cob_set_location (st_1, 2594, st_67, st_114, st_16);
6350  goto l_100;
6351 
6352  /* Line: 2595 : Paragraph bc510-Read-Sorter6 : cobxref.cbl */
6353  l_99:;
6354 
6355  /* Line: 2596 : READ : cobxref.cbl */
6356  cob_set_location (st_1, 2596, st_67, st_115, st_69);
6357  cob_read_next (h_SUPPLEMENTAL_PART2_IN, NULL, 1);
6358  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6359  {
6360  if (cob_glob_ptr->cob_exception_code == 0x0501)
6361  {
6362 
6363  /* Line: 2597 : PERFORM : cobxref.cbl */
6364  cob_set_location (st_1, 2597, st_67, st_115, st_3);
6365  /* PERFORM bc540-Check-4Old */
6366  frame_ptr++;
6367  if (unlikely(frame_ptr == frame_overflow))
6368  cob_fatal_error (COB_FERROR_STACK);
6369  frame_ptr->perform_through = 102;
6370  frame_ptr->return_address_ptr = &&l_342;
6371  goto l_102;
6372  l_342:
6373  frame_ptr--;
6374 
6375  /* Line: 2598 : PERFORM : cobxref.cbl */
6376  cob_set_location (st_1, 2598, st_67, st_115, st_3);
6377  /* PERFORM bc540-Check-4Old6 */
6378  frame_ptr++;
6379  if (unlikely(frame_ptr == frame_overflow))
6380  cob_fatal_error (COB_FERROR_STACK);
6381  frame_ptr->perform_through = 103;
6382  frame_ptr->return_address_ptr = &&l_343;
6383  goto l_103;
6384  l_343:
6385  frame_ptr--;
6386 
6387  /* Line: 2599 : CLOSE : cobxref.cbl */
6388  cob_set_location (st_1, 2599, st_67, st_115, st_15);
6389  cob_close (h_SUPPLEMENTAL_PART2_IN, NULL, 0, 0);
6390  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6391  {
6392  /* PERFORM Default Error Handler */
6393  frame_ptr++;
6394  if (unlikely(frame_ptr == frame_overflow))
6395  cob_fatal_error (COB_FERROR_STACK);
6396  frame_ptr->perform_through = 1;
6397  frame_ptr->return_address_ptr = &&l_344;
6398  goto l_1;
6399  l_344:
6400  frame_ptr--;
6401  }
6402 
6403  /* Line: 2600 : GO TO : cobxref.cbl */
6404  cob_set_location (st_1, 2600, st_67, st_115, st_16);
6405  goto l_109;
6406  }
6407  else
6408  {
6409  /* PERFORM Default Error Handler */
6410  frame_ptr++;
6411  if (unlikely(frame_ptr == frame_overflow))
6412  cob_fatal_error (COB_FERROR_STACK);
6413  frame_ptr->perform_through = 1;
6414  frame_ptr->return_address_ptr = &&l_345;
6415  goto l_1;
6416  l_345:
6417  frame_ptr--;
6418  }
6419  }
6420 
6421  /* Line: 2601 : Paragraph bc520-IsX6 : cobxref.cbl */
6422  l_100:;
6423 
6424  /* Line: 2602 : IF : cobxref.cbl */
6425  cob_set_location (st_1, 2602, st_67, st_116, st_6);
6426  if (((int)cob_cmp (&f_31, &cob_all_space) == 0))
6427  {
6428 
6429  /* Line: 2603 : GO TO : cobxref.cbl */
6430  cob_set_location (st_1, 2603, st_67, st_116, st_16);
6431  goto l_99;
6432  }
6433 
6434  /* Line: 2604 : PERFORM : cobxref.cbl */
6435  cob_set_location (st_1, 2604, st_67, st_116, st_3);
6436  /* PERFORM bc530-PrintXRef6 THRU bc550-Exit */
6437  frame_ptr++;
6438  if (unlikely(frame_ptr == frame_overflow))
6439  cob_fatal_error (COB_FERROR_STACK);
6440  frame_ptr->perform_through = 104;
6441  frame_ptr->return_address_ptr = &&l_346;
6442  goto l_101;
6443  l_346:
6444  frame_ptr--;
6445 
6446  /* Line: 2605 : GO TO : cobxref.cbl */
6447  cob_set_location (st_1, 2605, st_67, st_116, st_16);
6448  goto l_99;
6449 
6450  /* Line: 2606 : Paragraph bc530-PrintXRef6 : cobxref.cbl */
6451  l_101:;
6452 
6453  /* Line: 2610 : IF : cobxref.cbl */
6454  cob_set_location (st_1, 2610, st_67, st_117, st_6);
6455  if (((int)memcmp (b_35, b_108, 32) == 0))
6456  {
6457 
6458  /* Line: 2611 : MOVE : cobxref.cbl */
6459  cob_set_location (st_1, 2611, st_67, st_117, st_4);
6460  (*(int *)(b_69)) = 0;
6461 
6462  /* Line: 2612 : GO TO : cobxref.cbl */
6463  cob_set_location (st_1, 2612, st_67, st_117, st_16);
6464  goto l_104;
6465  }
6466 
6467  /* Line: 2614 : IF : cobxref.cbl */
6468  cob_set_location (st_1, 2614, st_67, st_117, st_6);
6469  if ((((int)cob_cmp_s32 (b_69, 1LL) == 0) &&
6470  ((int)cob_cmp_numdisp (b_110, 1, 8LL, 0) == 0)))
6471  {
6472 
6473  /* Line: 2616 : MOVE : cobxref.cbl */
6474  cob_set_location (st_1, 2616, st_67, st_117, st_4);
6475  (*(int *)(b_43)) = 1;
6476 
6477  /* Line: 2617 : ADD : cobxref.cbl */
6478  cob_set_location (st_1, 2617, st_67, st_117, st_22);
6479  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6480 
6481  /* Line: 2618 : WRITE : cobxref.cbl */
6482  cob_set_location (st_1, 2618, st_67, st_117, st_13);
6483  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6484  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6485  {
6486  /* PERFORM Default Error Handler */
6487  frame_ptr++;
6488  if (unlikely(frame_ptr == frame_overflow))
6489  cob_fatal_error (COB_FERROR_STACK);
6490  frame_ptr->perform_through = 1;
6491  frame_ptr->return_address_ptr = &&l_347;
6492  goto l_1;
6493  l_347:
6494  frame_ptr--;
6495  }
6496 
6497  /* Line: 2619 : IF : cobxref.cbl */
6498  cob_set_location (st_1, 2619, st_67, st_117, st_6);
6499  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
6500  {
6501 
6502  /* Line: 2620 : PERFORM : cobxref.cbl */
6503  cob_set_location (st_1, 2620, st_67, st_117, st_3);
6504  /* PERFORM zz150-WriteHdb */
6505  frame_ptr++;
6506  if (unlikely(frame_ptr == frame_overflow))
6507  cob_fatal_error (COB_FERROR_STACK);
6508  frame_ptr->perform_through = 132;
6509  frame_ptr->return_address_ptr = &&l_348;
6510  goto l_132;
6511  l_348:
6512  frame_ptr--;
6513 
6514  /* Line: 2621 : PERFORM : cobxref.cbl */
6515  cob_set_location (st_1, 2621, st_67, st_117, st_3);
6516  /* PERFORM zz150-WriteHdb5 THRU zz150-Exit */
6517  frame_ptr++;
6518  if (unlikely(frame_ptr == frame_overflow))
6519  cob_fatal_error (COB_FERROR_STACK);
6520  frame_ptr->perform_through = 142;
6521  frame_ptr->return_address_ptr = &&l_349;
6522  goto l_138;
6523  l_349:
6524  frame_ptr--;
6525  }
6526  }
6527 
6528  /* Line: 2623 : MOVE : cobxref.cbl */
6529  cob_set_location (st_1, 2623, st_67, st_117, st_4);
6530  memcpy (b_108, b_35, 32);
6531 
6532  /* Line: 2624 : MOVE : cobxref.cbl */
6533  cob_set_location (st_1, 2624, st_67, st_117, st_4);
6534  *(b_110) = *(b_35 + 32);
6535 
6536  /* Line: 2628 : MOVE : cobxref.cbl */
6537  cob_set_location (st_1, 2628, st_67, st_117, st_4);
6538  memset (b_27, 32, 159);
6539 
6540  /* Line: 2629 : MOVE : cobxref.cbl */
6541  cob_set_location (st_1, 2629, st_67, st_117, st_4);
6542  memcpy (b_27, b_35, 32);
6543 
6544  /* Line: 2630 : MOVE : cobxref.cbl */
6545  cob_set_location (st_1, 2630, st_67, st_117, st_4);
6546  memcpy (b_27 + 32, b_35 + 34, 6);
6547 
6548  /* Line: 2631 : IF : cobxref.cbl */
6549  cob_set_location (st_1, 2631, st_67, st_117, st_6);
6550  if (((int)cob_cmp_numdisp (b_35 + 33, 1, 1LL, 0) != 0))
6551  {
6552 
6553  /* Line: 2632 : MOVE : cobxref.cbl */
6554  cob_set_location (st_1, 2632, st_67, st_117, st_4);
6555  *(b_27 + 38) = *(b_236 + (cob_get_numdisp (b_35 + 32, 1) - 1));
6556  }
6557  else
6558  {
6559  /* ELSE */
6560 
6561  /* Line: 2634 : MOVE : cobxref.cbl */
6562  cob_set_location (st_1, 2634, st_67, st_117, st_4);
6563  *(b_27 + 38) = 83;
6564  }
6565 
6566  /* Line: 2635 : MOVE : cobxref.cbl */
6567  cob_set_location (st_1, 2635, st_67, st_117, st_4);
6568  (*(int *)(b_69)) = 1;
6569 
6570  /* Line: 2636 : GO TO : cobxref.cbl */
6571  cob_set_location (st_1, 2636, st_67, st_117, st_16);
6572  goto l_104;
6573 
6574  /* Line: 2637 : Paragraph bc540-Check-4Old : cobxref.cbl */
6575  l_102:;
6576 
6577  /* Line: 2638 : IF : cobxref.cbl */
6578  cob_set_location (st_1, 2638, st_67, st_118, st_6);
6579  if ((((int)cob_cmp_s32 (b_69, 1LL) == 0) &&
6580  ((int)cob_cmp_numdisp (b_110, 1, 8LL, 0) == 0)))
6581  {
6582 
6583  /* Line: 2639 : MOVE : cobxref.cbl */
6584  cob_set_location (st_1, 2639, st_67, st_118, st_4);
6585  (*(int *)(b_43)) = 1;
6586 
6587  /* Line: 2640 : ADD : cobxref.cbl */
6588  cob_set_location (st_1, 2640, st_67, st_118, st_22);
6589  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6590 
6591  /* Line: 2641 : WRITE : cobxref.cbl */
6592  cob_set_location (st_1, 2641, st_67, st_118, st_13);
6593  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6594  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6595  {
6596  /* PERFORM Default Error Handler */
6597  frame_ptr++;
6598  if (unlikely(frame_ptr == frame_overflow))
6599  cob_fatal_error (COB_FERROR_STACK);
6600  frame_ptr->perform_through = 1;
6601  frame_ptr->return_address_ptr = &&l_350;
6602  goto l_1;
6603  l_350:
6604  frame_ptr--;
6605  }
6606 
6607  /* Line: 2642 : IF : cobxref.cbl */
6608  cob_set_location (st_1, 2642, st_67, st_118, st_6);
6609  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
6610  {
6611 
6612  /* Line: 2643 : PERFORM : cobxref.cbl */
6613  cob_set_location (st_1, 2643, st_67, st_118, st_3);
6614  /* PERFORM zz150-WriteHdb */
6615  frame_ptr++;
6616  if (unlikely(frame_ptr == frame_overflow))
6617  cob_fatal_error (COB_FERROR_STACK);
6618  frame_ptr->perform_through = 132;
6619  frame_ptr->return_address_ptr = &&l_351;
6620  goto l_132;
6621  l_351:
6622  frame_ptr--;
6623 
6624  /* Line: 2644 : PERFORM : cobxref.cbl */
6625  cob_set_location (st_1, 2644, st_67, st_118, st_3);
6626  /* PERFORM zz150-WriteHdb5 THRU zz150-Exit */
6627  frame_ptr++;
6628  if (unlikely(frame_ptr == frame_overflow))
6629  cob_fatal_error (COB_FERROR_STACK);
6630  frame_ptr->perform_through = 142;
6631  frame_ptr->return_address_ptr = &&l_352;
6632  goto l_138;
6633  l_352:
6634  frame_ptr--;
6635  }
6636  }
6637 
6638  /* Implicit PERFORM return */
6639  if (frame_ptr->perform_through == 102)
6640  goto *frame_ptr->return_address_ptr;
6641 
6642  /* Line: 2646 : Paragraph bc540-Check-4Old6 : cobxref.cbl */
6643  l_103:;
6644 
6645  /* Line: 2647 : IF : cobxref.cbl */
6646  cob_set_location (st_1, 2647, st_67, st_119, st_6);
6647  if (((int)cob_cmp_s32 (b_43, 0) == 0))
6648  {
6649 
6650  /* Line: 2648 : MOVE : cobxref.cbl */
6651  cob_set_location (st_1, 2648, st_67, st_119, st_4);
6652  memset (b_27, 32, 159);
6653 
6654  /* Line: 2649 : MOVE : cobxref.cbl */
6655  cob_set_location (st_1, 2649, st_67, st_119, st_4);
6656  cob_move ((cob_field *)&c_39, &f_12);
6657 
6658  /* Line: 2650 : ADD : cobxref.cbl */
6659  cob_set_location (st_1, 2650, st_67, st_119, st_22);
6660  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6661 
6662  /* Line: 2651 : WRITE : cobxref.cbl */
6663  cob_set_location (st_1, 2651, st_67, st_119, st_13);
6664  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6665  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6666  {
6667  /* PERFORM Default Error Handler */
6668  frame_ptr++;
6669  if (unlikely(frame_ptr == frame_overflow))
6670  cob_fatal_error (COB_FERROR_STACK);
6671  frame_ptr->perform_through = 1;
6672  frame_ptr->return_address_ptr = &&l_353;
6673  goto l_1;
6674  l_353:
6675  frame_ptr--;
6676  }
6677  }
6678 
6679  /* Implicit PERFORM return */
6680  if (frame_ptr->perform_through == 103)
6681  goto *frame_ptr->return_address_ptr;
6682 
6683  /* Line: 2652 : Paragraph bc550-Exit : cobxref.cbl */
6684  l_104:;
6685 
6686  /* Line: 2653 : EXIT : cobxref.cbl */
6687  cob_set_location (st_1, 2653, st_67, st_120, st_26);
6688 
6689  /* Implicit PERFORM return */
6690  if (frame_ptr->perform_through == 104)
6691  goto *frame_ptr->return_address_ptr;
6692 
6693  /* Line: 2655 : Paragraph bc600-Print-Globals : cobxref.cbl */
6694  l_105:;
6695 
6696  /* Line: 2659 : PERFORM : cobxref.cbl */
6697  cob_set_location (st_1, 2659, st_67, st_121, st_3);
6698  /* PERFORM zz150-WriteHdb THRU zz150-Exit */
6699  frame_ptr++;
6700  if (unlikely(frame_ptr == frame_overflow))
6701  cob_fatal_error (COB_FERROR_STACK);
6702  frame_ptr->perform_through = 142;
6703  frame_ptr->return_address_ptr = &&l_354;
6704  goto l_132;
6705  l_354:
6706  frame_ptr--;
6707 
6708  /* Line: 2660 : PERFORM : cobxref.cbl */
6709  cob_set_location (st_1, 2660, st_67, st_121, st_3);
6710  /* PERFORM zz150-WriteHdb2b THRU zz150-Exit */
6711  frame_ptr++;
6712  if (unlikely(frame_ptr == frame_overflow))
6713  cob_fatal_error (COB_FERROR_STACK);
6714  frame_ptr->perform_through = 142;
6715  frame_ptr->return_address_ptr = &&l_355;
6716  goto l_135;
6717  l_355:
6718  frame_ptr--;
6719 
6720  /* Line: 2661 : MOVE : cobxref.cbl */
6721  cob_set_location (st_1, 2661, st_67, st_121, st_4);
6722  memset (b_27, 32, 159);
6723 
6724  /* Line: 2662 : PERFORM : cobxref.cbl */
6725  cob_set_location (st_1, 2662, st_67, st_121, st_3);
6726  (*(int *)(b_55)) = 1;
6727  for (;;)
6728  {
6729  if (((int)cob_cmp_s32 (b_55, (*(int *)(b_974))) > 0))
6730  break;
6731 
6732  /* Line: 2663 : MOVE : cobxref.cbl */
6733  cob_set_location (st_1, 2663, st_67, st_121, st_4);
6734  memcpy (b_27 + 32, b_963 + 64 + 76 * ((*(int *)(b_55)) - 1), 6);
6735 
6736  /* Line: 2664 : MOVE : cobxref.cbl */
6737  cob_set_location (st_1, 2664, st_67, st_121, st_4);
6738  cob_move (COB_SET_FLD(f0, 1, b_963 + 70 + 76 * ((*(int *)(b_55)) - 1), &a_8), &f_58);
6739 
6740  /* Line: 2665 : IF : cobxref.cbl */
6741  cob_set_location (st_1, 2665, st_67, st_121, st_6);
6742  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
6743  {
6744 
6745  /* Line: 2666 : MOVE : cobxref.cbl */
6746  cob_set_location (st_1, 2666, st_67, st_121, st_4);
6747  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 32, b_963 + 76 * ((*(int *)(b_55)) - 1), &a_4)), &f_12);
6748 
6749  /* Line: 2667 : MOVE : cobxref.cbl */
6750  cob_set_location (st_1, 2667, st_67, st_121, st_4);
6751  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 32, b_963 + 32 + 76 * ((*(int *)(b_55)) - 1), &a_4)), &f_23);
6752  }
6753  else
6754  {
6755  /* ELSE */
6756 
6757  /* Line: 2669 : MOVE : cobxref.cbl */
6758  cob_set_location (st_1, 2669, st_67, st_121, st_4);
6759  memcpy (b_27, b_963 + 76 * ((*(int *)(b_55)) - 1), 32);
6760 
6761  /* Line: 2670 : MOVE : cobxref.cbl */
6762  cob_set_location (st_1, 2670, st_67, st_121, st_4);
6763  memcpy (b_27 + 42, b_963 + 32 + 76 * ((*(int *)(b_55)) - 1), 32);
6764  }
6765 
6766  /* Line: 2672 : MOVE : cobxref.cbl */
6767  cob_set_location (st_1, 2672, st_67, st_121, st_4);
6768  *(b_27 + 38) = *(b_236 + ((*(int *)(b_58)) - 1));
6769 
6770  /* Line: 2673 : ADD : cobxref.cbl */
6771  cob_set_location (st_1, 2673, st_67, st_121, st_22);
6772  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6773 
6774  /* Line: 2674 : WRITE : cobxref.cbl */
6775  cob_set_location (st_1, 2674, st_67, st_121, st_13);
6776  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6777  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6778  {
6779  /* PERFORM Default Error Handler */
6780  frame_ptr++;
6781  if (unlikely(frame_ptr == frame_overflow))
6782  cob_fatal_error (COB_FERROR_STACK);
6783  frame_ptr->perform_through = 1;
6784  frame_ptr->return_address_ptr = &&l_356;
6785  goto l_1;
6786  l_356:
6787  frame_ptr--;
6788  }
6789 
6790  /* Line: 2675 : IF : cobxref.cbl */
6791  cob_set_location (st_1, 2675, st_67, st_121, st_6);
6792  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
6793  {
6794 
6795  /* Line: 2676 : PERFORM : cobxref.cbl */
6796  cob_set_location (st_1, 2676, st_67, st_121, st_3);
6797  /* PERFORM zz150-WriteHdb THRU zz150-Exit */
6798  frame_ptr++;
6799  if (unlikely(frame_ptr == frame_overflow))
6800  cob_fatal_error (COB_FERROR_STACK);
6801  frame_ptr->perform_through = 142;
6802  frame_ptr->return_address_ptr = &&l_357;
6803  goto l_132;
6804  l_357:
6805  frame_ptr--;
6806 
6807  /* Line: 2677 : PERFORM : cobxref.cbl */
6808  cob_set_location (st_1, 2677, st_67, st_121, st_3);
6809  /* PERFORM zz150-WriteHdb2b THRU zz150-Exit */
6810  frame_ptr++;
6811  if (unlikely(frame_ptr == frame_overflow))
6812  cob_fatal_error (COB_FERROR_STACK);
6813  frame_ptr->perform_through = 142;
6814  frame_ptr->return_address_ptr = &&l_358;
6815  goto l_135;
6816  l_358:
6817  frame_ptr--;
6818  }
6819  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
6820  }
6821 
6822  /* Line: 2681 : Paragraph bc600-Exit : cobxref.cbl */
6823  l_106:;
6824 
6825  /* Line: 2682 : EXIT : cobxref.cbl */
6826  cob_set_location (st_1, 2682, st_67, st_122, st_26);
6827 
6828  /* Implicit PERFORM return */
6829  if (frame_ptr->perform_through == 106)
6830  goto *frame_ptr->return_address_ptr;
6831 
6832  /* Line: 2684 : Paragraph bc620-Do-Global-Conditions: cobxref.cbl */
6833  l_107:;
6834 
6835  /* Line: 2688 : IF : cobxref.cbl */
6836  cob_set_location (st_1, 2688, st_67, st_123, st_6);
6837  if (((int)cob_cmp_s32 (b_974, 0) == 0))
6838  {
6839 
6840  /* Line: 2689 : GO TO : cobxref.cbl */
6841  cob_set_location (st_1, 2689, st_67, st_123, st_16);
6842  goto l_108;
6843  }
6844 
6845  /* Line: 2691 : PERFORM : cobxref.cbl */
6846  cob_set_location (st_1, 2691, st_67, st_123, st_3);
6847  /* PERFORM zz150-WriteHdb */
6848  frame_ptr++;
6849  if (unlikely(frame_ptr == frame_overflow))
6850  cob_fatal_error (COB_FERROR_STACK);
6851  frame_ptr->perform_through = 132;
6852  frame_ptr->return_address_ptr = &&l_359;
6853  goto l_132;
6854  l_359:
6855  frame_ptr--;
6856 
6857  /* Line: 2692 : PERFORM : cobxref.cbl */
6858  cob_set_location (st_1, 2692, st_67, st_123, st_3);
6859  /* PERFORM zz150-WriteHdb6 THRU zz150-Exit */
6860  frame_ptr++;
6861  if (unlikely(frame_ptr == frame_overflow))
6862  cob_fatal_error (COB_FERROR_STACK);
6863  frame_ptr->perform_through = 142;
6864  frame_ptr->return_address_ptr = &&l_360;
6865  goto l_139;
6866  l_360:
6867  frame_ptr--;
6868 
6869  /* Line: 2693 : MOVE : cobxref.cbl */
6870  cob_set_location (st_1, 2693, st_67, st_123, st_4);
6871  (*(int *)(b_55)) = 0;
6872  (*(int *)(b_58)) = 0;
6873 
6874  /* Line: 2694 : PERFORM : cobxref.cbl */
6875  cob_set_location (st_1, 2694, st_67, st_123, st_3);
6876  (*(int *)(b_55)) = 1;
6877  for (;;)
6878  {
6879  if (((int)cob_cmp_s32 (b_55, (*(int *)(b_974))) > 0))
6880  break;
6881 
6882  /* Line: 2695 : IF : cobxref.cbl */
6883  cob_set_location (st_1, 2695, st_67, st_123, st_6);
6884  if (((int)(int)(*(b_963 + 74 + 76 * ((*(int *)(b_55)) - 1)) - ' ') == 0))
6885  {
6886 
6887  /* Line: 2696 : MOVE : cobxref.cbl */
6888  cob_set_location (st_1, 2696, st_67, st_123, st_4);
6889  memset (b_27, 32, 159);
6890 
6891  /* Line: 2697 : MOVE : cobxref.cbl */
6892  cob_set_location (st_1, 2697, st_67, st_123, st_4);
6893  memcpy (b_27, b_963 + 76 * ((*(int *)(b_55)) - 1), 32);
6894 
6895  /* Line: 2698 : MOVE : cobxref.cbl */
6896  cob_set_location (st_1, 2698, st_67, st_123, st_4);
6897  memcpy (b_27 + 32, b_963 + 64 + 76 * ((*(int *)(b_55)) - 1), 6);
6898 
6899  /* Line: 2699 : MOVE : cobxref.cbl */
6900  cob_set_location (st_1, 2699, st_67, st_123, st_4);
6901  *(b_27 + 38) = *(b_236 + (cob_get_numdisp (b_963 + 70 + 76 * ((*(int *)(b_55)) - 1), 1) - 1));
6902 
6903  /* Line: 2700 : IF : cobxref.cbl */
6904  cob_set_location (st_1, 2700, st_67, st_123, st_6);
6905  if (((int)cob_cmp_numdisp (b_963 + 72 + 76 * ((*(int *)(b_55)) - 1), 2, 88LL, 0) == 0))
6906  {
6907 
6908  /* Line: 2701 : MOVE : cobxref.cbl */
6909  cob_set_location (st_1, 2701, st_67, st_123, st_4);
6910  *(b_27 + 39) = 67;
6911  }
6912  else
6913  {
6914  /* ELSE */
6915 
6916  /* Line: 2703 : MOVE : cobxref.cbl */
6917  cob_set_location (st_1, 2703, st_67, st_123, st_4);
6918  *(b_27 + 39) = 32;
6919  }
6920 
6921  /* Line: 2705 : MOVE : cobxref.cbl */
6922  cob_set_location (st_1, 2705, st_67, st_123, st_4);
6923  (*(int *)(b_58)) = 1;
6924 
6925  /* Line: 2706 : ADD : cobxref.cbl */
6926  cob_set_location (st_1, 2706, st_67, st_123, st_22);
6927  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6928 
6929  /* Line: 2707 : WRITE : cobxref.cbl */
6930  cob_set_location (st_1, 2707, st_67, st_123, st_13);
6931  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6932  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6933  {
6934  /* PERFORM Default Error Handler */
6935  frame_ptr++;
6936  if (unlikely(frame_ptr == frame_overflow))
6937  cob_fatal_error (COB_FERROR_STACK);
6938  frame_ptr->perform_through = 1;
6939  frame_ptr->return_address_ptr = &&l_361;
6940  goto l_1;
6941  l_361:
6942  frame_ptr--;
6943  }
6944 
6945  /* Line: 2708 : IF : cobxref.cbl */
6946  cob_set_location (st_1, 2708, st_67, st_123, st_6);
6947  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
6948  {
6949 
6950  /* Line: 2709 : PERFORM : cobxref.cbl */
6951  cob_set_location (st_1, 2709, st_67, st_123, st_3);
6952  /* PERFORM zz150-WriteHdb */
6953  frame_ptr++;
6954  if (unlikely(frame_ptr == frame_overflow))
6955  cob_fatal_error (COB_FERROR_STACK);
6956  frame_ptr->perform_through = 132;
6957  frame_ptr->return_address_ptr = &&l_362;
6958  goto l_132;
6959  l_362:
6960  frame_ptr--;
6961 
6962  /* Line: 2710 : PERFORM : cobxref.cbl */
6963  cob_set_location (st_1, 2710, st_67, st_123, st_3);
6964  /* PERFORM zz150-WriteHdb6 THRU zz150-Exit */
6965  frame_ptr++;
6966  if (unlikely(frame_ptr == frame_overflow))
6967  cob_fatal_error (COB_FERROR_STACK);
6968  frame_ptr->perform_through = 142;
6969  frame_ptr->return_address_ptr = &&l_363;
6970  goto l_139;
6971  l_363:
6972  frame_ptr--;
6973  }
6974  }
6975  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
6976  }
6977 
6978  /* Line: 2714 : IF : cobxref.cbl */
6979  cob_set_location (st_1, 2714, st_67, st_123, st_6);
6980  if (((int)cob_cmp_s32 (b_58, 0) == 0))
6981  {
6982 
6983  /* Line: 2715 : MOVE : cobxref.cbl */
6984  cob_set_location (st_1, 2715, st_67, st_123, st_4);
6985  memset (b_27, 32, 159);
6986 
6987  /* Line: 2716 : MOVE : cobxref.cbl */
6988  cob_set_location (st_1, 2716, st_67, st_123, st_4);
6989  cob_move ((cob_field *)&c_39, &f_12);
6990 
6991  /* Line: 2717 : ADD : cobxref.cbl */
6992  cob_set_location (st_1, 2717, st_67, st_123, st_22);
6993  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
6994 
6995  /* Line: 2718 : WRITE : cobxref.cbl */
6996  cob_set_location (st_1, 2718, st_67, st_123, st_13);
6997  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
6998  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6999  {
7000  /* PERFORM Default Error Handler */
7001  frame_ptr++;
7002  if (unlikely(frame_ptr == frame_overflow))
7003  cob_fatal_error (COB_FERROR_STACK);
7004  frame_ptr->perform_through = 1;
7005  frame_ptr->return_address_ptr = &&l_364;
7006  goto l_1;
7007  l_364:
7008  frame_ptr--;
7009  }
7010  }
7011 
7012  /* Line: 2719 : Paragraph bc629-Exit : cobxref.cbl */
7013  l_108:;
7014 
7015  /* Line: 2720 : EXIT : cobxref.cbl */
7016  cob_set_location (st_1, 2720, st_67, st_124, st_26);
7017 
7018  /* Implicit PERFORM return */
7019  if (frame_ptr->perform_through == 108)
7020  goto *frame_ptr->return_address_ptr;
7021 
7022  /* Line: 2721 : Paragraph bc000-Exit : cobxref.cbl */
7023  l_109:;
7024 
7025  /* Line: 2722 : EXIT : cobxref.cbl */
7026  cob_set_location (st_1, 2722, st_67, st_125, st_26);
7027 
7028  /* Implicit PERFORM return */
7029  if (frame_ptr->perform_through == 51)
7030  goto *frame_ptr->return_address_ptr;
7031 
7032  /* Line: 2724 : Section zz000-Routines : cobxref.cbl */
7033 
7034  /* Line: 2725 : Paragraph zz000-Inc-CobolRefNo : cobxref.cbl */
7035  l_111:;
7036 
7037  /* Line: 2726 : ADD : cobxref.cbl */
7038  cob_set_location (st_1, 2726, st_126, st_127, st_22);
7039  cob_add_int (&f_94, 1, 0);
7040 
7041  /* Implicit PERFORM return */
7042  if (frame_ptr->perform_through == 111)
7043  goto *frame_ptr->return_address_ptr;
7044 
7045  /* Line: 2728 : Paragraph zz000-OutputSource : cobxref.cbl */
7046  l_112:;
7047 
7048  /* Line: 2729 : IF : cobxref.cbl */
7049  cob_set_location (st_1, 2729, st_126, st_128, st_6);
7050  if (((int)(int)(*(b_73) - 89) == 0))
7051  {
7052 
7053  /* Line: 2730 : MOVE : cobxref.cbl */
7054  cob_set_location (st_1, 2730, st_126, st_128, st_4);
7055  memset (b_27, 32, 1032);
7056 
7057  /* Line: 2731 : MOVE : cobxref.cbl */
7058  cob_set_location (st_1, 2731, st_126, st_128, st_4);
7059  memcpy (b_27 + 8, b_29, 1024);
7060 
7061  /* Line: 2732 : MOVE : cobxref.cbl */
7062  cob_set_location (st_1, 2732, st_126, st_128, st_4);
7063  cob_move (&f_94, &f_9);
7064 
7065  /* Line: 2733 : ADD : cobxref.cbl */
7066  cob_set_location (st_1, 2733, st_126, st_128, st_22);
7067  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 1);
7068 
7069  /* Line: 2734 : WRITE : cobxref.cbl */
7070  cob_set_location (st_1, 2734, st_126, st_128, st_13);
7071  cob_write (h_SOURCE_LISTING, &f_8, 0x110001, NULL, 0);
7072  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7073  {
7074  /* PERFORM Default Error Handler */
7075  frame_ptr++;
7076  if (unlikely(frame_ptr == frame_overflow))
7077  cob_fatal_error (COB_FERROR_STACK);
7078  frame_ptr->perform_through = 1;
7079  frame_ptr->return_address_ptr = &&l_365;
7080  goto l_1;
7081  l_365:
7082  frame_ptr--;
7083  }
7084 
7085  /* Line: 2735 : IF : cobxref.cbl */
7086  cob_set_location (st_1, 2735, st_126, st_128, st_6);
7087  if (((int)cob_cmp_s8 (b_45, 59LL) > 0))
7088  {
7089 
7090  /* Line: 2736 : PERFORM : cobxref.cbl */
7091  cob_set_location (st_1, 2736, st_126, st_128, st_3);
7092  /* PERFORM zz150-WriteHdb */
7093  frame_ptr++;
7094  if (unlikely(frame_ptr == frame_overflow))
7095  cob_fatal_error (COB_FERROR_STACK);
7096  frame_ptr->perform_through = 132;
7097  frame_ptr->return_address_ptr = &&l_366;
7098  goto l_132;
7099  l_366:
7100  frame_ptr--;
7101  }
7102  }
7103 
7104  /* Implicit PERFORM return */
7105  if (frame_ptr->perform_through == 112)
7106  goto *frame_ptr->return_address_ptr;
7107 
7108  /* Line: 2738 : Paragraph zz030-Write-Sort : cobxref.cbl */
7109  l_113:;
7110 
7111  /* Line: 2739 : MOVE : cobxref.cbl */
7112  cob_set_location (st_1, 2739, st_126, st_129, st_4);
7113  *(b_35 + 32) = *(b_100);
7114 
7115  /* Line: 2740 : MOVE : cobxref.cbl */
7116  cob_set_location (st_1, 2740, st_126, st_129, st_4);
7117  *(b_35 + 33) = *(b_101);
7118 
7119  /* Line: 2741 : MOVE : cobxref.cbl */
7120  cob_set_location (st_1, 2741, st_126, st_129, st_4);
7121  cob_move (COB_SET_FLD(f0, 31, b_130 + 0, &a_4), &f_146);
7122 
7123  /* Line: 2742 : IF : cobxref.cbl */
7124  cob_set_location (st_1, 2742, st_126, st_129, st_6);
7125  if (((int)cob_cmp_numdisp (b_79, 1, 1LL, 0) == 0))
7126  {
7127 
7128  /* Line: 2743 : MOVE : cobxref.cbl */
7129  cob_set_location (st_1, 2743, st_126, st_129, st_4);
7130  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 31, b_130 + 0, &a_4)), &f_146);
7131  }
7132 
7133  /* Line: 2744 : IF : cobxref.cbl */
7134  cob_set_location (st_1, 2744, st_126, st_129, st_6);
7135  if (((int)cob_cmp_numdisp (b_100, 1, 7LL, 0) > 0))
7136  {
7137 
7138  /* Line: 2745 : PERFORM : cobxref.cbl */
7139  cob_set_location (st_1, 2745, st_126, st_129, st_3);
7140  /* PERFORM zz140-Function-Check THRU zz140-Exit */
7141  frame_ptr++;
7142  if (unlikely(frame_ptr == frame_overflow))
7143  cob_fatal_error (COB_FERROR_STACK);
7144  frame_ptr->perform_through = 131;
7145  frame_ptr->return_address_ptr = &&l_367;
7146  goto l_130;
7147  l_367:
7148  frame_ptr--;
7149  }
7150 
7151  /* Line: 2749 : IF : cobxref.cbl */
7152  cob_set_location (st_1, 2749, st_126, st_129, st_6);
7153  if ((((int)memcmp (b_146, b_35, 32) != 0) ||
7154  ((int)memcmp (b_94, b_35 + 34, 6) != 0)))
7155  {
7156 
7157  /* Line: 2751 : MOVE : cobxref.cbl */
7158  cob_set_location (st_1, 2751, st_126, st_129, st_4);
7159  memcpy (b_35, b_146, 32);
7160 
7161  /* Line: 2752 : MOVE : cobxref.cbl */
7162  cob_set_location (st_1, 2752, st_126, st_129, st_4);
7163  memcpy (b_35 + 34, b_94, 6);
7164 
7165  /* Line: 2753 : MOVE : cobxref.cbl */
7166  cob_set_location (st_1, 2753, st_126, st_129, st_4);
7167  *(b_240 + (cob_get_numdisp (b_35 + 32, 1) - 1)) = 49;
7168 
7169  /* Line: 2754 : WRITE : cobxref.cbl */
7170  cob_set_location (st_1, 2754, st_126, st_129, st_13);
7171  cob_write (h_SUPPLEMENTAL_PART1_OUT, &f_30, 0x210001, NULL, 0);
7172  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7173  {
7174  /* PERFORM Default Error Handler */
7175  frame_ptr++;
7176  if (unlikely(frame_ptr == frame_overflow))
7177  cob_fatal_error (COB_FERROR_STACK);
7178  frame_ptr->perform_through = 1;
7179  frame_ptr->return_address_ptr = &&l_368;
7180  goto l_1;
7181  l_368:
7182  frame_ptr--;
7183  }
7184 
7185  /* Line: 2755 : IF : cobxref.cbl */
7186  cob_set_location (st_1, 2755, st_126, st_129, st_6);
7187  if (((int)cob_cmp_numdisp (b_100, 1, 7LL, 0) > 0))
7188  {
7189 
7190  /* Line: 2756 : PERFORM : cobxref.cbl */
7191  cob_set_location (st_1, 2756, st_126, st_129, st_3);
7192  /* PERFORM zz310-Check-For-Globals THRU zz319-Exit */
7193  frame_ptr++;
7194  if (unlikely(frame_ptr == frame_overflow))
7195  cob_fatal_error (COB_FERROR_STACK);
7196  frame_ptr->perform_through = 160;
7197  frame_ptr->return_address_ptr = &&l_369;
7198  goto l_158;
7199  l_369:
7200  frame_ptr--;
7201  }
7202  }
7203 
7204  /* Implicit PERFORM return */
7205  if (frame_ptr->perform_through == 113)
7206  goto *frame_ptr->return_address_ptr;
7207 
7208  /* Line: 2760 : Paragraph zz100-Get-A-Source-Record: cobxref.cbl */
7209  l_114:;
7210 
7211  /* Line: 2765 : IF : cobxref.cbl */
7212  cob_set_location (st_1, 2765, st_126, st_130, st_6);
7213  if (((int)cob_cmp_numdisp (b_87, 1, 1LL, 0) == 0))
7214  {
7215 
7216  /* Line: 2766 : MOVE : cobxref.cbl */
7217  cob_set_location (st_1, 2766, st_126, st_130, st_4);
7218  *(b_87) = 48;
7219 
7220  /* Line: 2767 : GO TO : cobxref.cbl */
7221  cob_set_location (st_1, 2767, st_126, st_130, st_16);
7222  goto l_115;
7223  }
7224 
7225  /* Line: 2768 : IF : cobxref.cbl */
7226  cob_set_location (st_1, 2768, st_126, st_130, st_6);
7227  if (((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0))
7228  {
7229 
7230  /* Line: 2769 : GO TO : cobxref.cbl */
7231  cob_set_location (st_1, 2769, st_126, st_130, st_16);
7232  goto l_116;
7233  }
7234 
7235  /* Line: 2770 : IF : cobxref.cbl */
7236  cob_set_location (st_1, 2770, st_126, st_130, st_6);
7237  if (((int)cob_cmp_numdisp (b_83, 1, 1LL, 0) == 0))
7238  {
7239 
7240  /* Line: 2771 : DISPLAY : cobxref.cbl */
7241  cob_set_location (st_1, 2771, st_126, st_130, st_7);
7242  cob_display (0, 1, 1, &f_231);
7243 
7244  /* Line: 2772 : GO TO : cobxref.cbl */
7245  cob_set_location (st_1, 2772, st_126, st_130, st_16);
7246  goto l_116;
7247  }
7248 
7249  /* Line: 2774 : MOVE : cobxref.cbl */
7250  cob_set_location (st_1, 2774, st_126, st_130, st_4);
7251  memset (b_29, 32, 1024);
7252  memset (b_127, 32, 1024);
7253 
7254  /* Line: 2775 : READ : cobxref.cbl */
7255  cob_set_location (st_1, 2775, st_126, st_130, st_69);
7256  cob_read_next (h_SOURCEINPUT, &f_113, 1);
7257  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7258  {
7259  if (cob_glob_ptr->cob_exception_code == 0x0501)
7260  {
7261 
7262  /* Line: 2776 : MOVE : cobxref.cbl */
7263  cob_set_location (st_1, 2776, st_126, st_130, st_4);
7264  *(b_83) = 49;
7265 
7266  /* Line: 2777 : GO TO : cobxref.cbl */
7267  cob_set_location (st_1, 2777, st_126, st_130, st_16);
7268  goto l_116;
7269  }
7270  else
7271  {
7272  /* PERFORM Default Error Handler */
7273  frame_ptr++;
7274  if (unlikely(frame_ptr == frame_overflow))
7275  cob_fatal_error (COB_FERROR_STACK);
7276  frame_ptr->perform_through = 1;
7277  frame_ptr->return_address_ptr = &&l_370;
7278  goto l_1;
7279  l_370:
7280  frame_ptr--;
7281  }
7282  }
7283 
7284  /* Line: 2778 : MOVE : cobxref.cbl */
7285  cob_set_location (st_1, 2778, st_126, st_130, st_4);
7286  cob_move (cob_intr_upper_case (0, 0, &f_28), &f_127);
7287 
7288  /* Line: 2782 : IF : cobxref.cbl */
7289  cob_set_location (st_1, 2782, st_126, st_130, st_6);
7290  if ((((int)(int)(*(b_127 + 0) - 35) == 0) ||
7291  ((int)(int)(*(b_127 + 0) - 36) == 0)))
7292  {
7293 
7294  /* Line: 2783 : GO TO : cobxref.cbl */
7295  cob_set_location (st_1, 2783, st_126, st_130, st_16);
7296  goto l_114;
7297  }
7298 
7299  /* Line: 2785 : IF : cobxref.cbl */
7300  cob_set_location (st_1, 2785, st_126, st_130, st_6);
7301  if ((((int)(int)(*(b_127 + 0) - 42) == 0) ||
7302  ((int)(int)(*(b_127 + 0) - 47) == 0)))
7303  {
7304 
7305  /* Line: 2786 : PERFORM : cobxref.cbl */
7306  cob_set_location (st_1, 2786, st_126, st_130, st_3);
7307  /* PERFORM zz000-Inc-CobolRefNo */
7308  frame_ptr++;
7309  if (unlikely(frame_ptr == frame_overflow))
7310  cob_fatal_error (COB_FERROR_STACK);
7311  frame_ptr->perform_through = 111;
7312  frame_ptr->return_address_ptr = &&l_371;
7313  goto l_111;
7314  l_371:
7315  frame_ptr--;
7316 
7317  /* Line: 2787 : PERFORM : cobxref.cbl */
7318  cob_set_location (st_1, 2787, st_126, st_130, st_3);
7319  /* PERFORM zz000-OutputSource */
7320  frame_ptr++;
7321  if (unlikely(frame_ptr == frame_overflow))
7322  cob_fatal_error (COB_FERROR_STACK);
7323  frame_ptr->perform_through = 112;
7324  frame_ptr->return_address_ptr = &&l_372;
7325  goto l_112;
7326  l_372:
7327  frame_ptr--;
7328 
7329  /* Line: 2788 : GO TO : cobxref.cbl */
7330  cob_set_location (st_1, 2788, st_126, st_130, st_16);
7331  goto l_114;
7332  }
7333 
7334  /* Line: 2794 : INSPECT : cobxref.cbl */
7335  cob_set_location (st_1, 2794, st_126, st_130, st_40);
7336  cob_inspect_init (&f_127, 1);
7337  cob_inspect_start ();
7338  cob_inspect_all (&cob_all_space, (cob_field *)&c_40);
7339  cob_inspect_finish ();
7340 
7341  /* Line: 2795 : INSPECT : cobxref.cbl */
7342  cob_set_location (st_1, 2795, st_126, st_130, st_40);
7343  cob_inspect_init (&f_127, 1);
7344  cob_inspect_start ();
7345  cob_inspect_all (&cob_all_space, (cob_field *)&c_41);
7346  cob_inspect_finish ();
7347 
7348  /* Line: 2799 : IF : cobxref.cbl */
7349  cob_set_location (st_1, 2799, st_126, st_130, st_6);
7350  if (((int)cob_cmp_numdisp (b_100, 1, 8LL, 0) == 0))
7351  {
7352 
7353  /* Line: 2800 : INSPECT : cobxref.cbl */
7354  cob_set_location (st_1, 2800, st_126, st_130, st_40);
7355  cob_inspect_init (&f_127, 1);
7356  cob_inspect_start ();
7357  cob_inspect_all (&cob_all_space, (cob_field *)&c_42);
7358  cob_inspect_finish ();
7359  }
7360 
7361  /* Line: 2802 : INSPECT : cobxref.cbl */
7362  cob_set_location (st_1, 2802, st_126, st_130, st_40);
7363  cob_inspect_init (&f_127, 1);
7364  cob_inspect_start ();
7365  cob_inspect_all (&cob_all_space, (cob_field *)&c_43);
7366  cob_inspect_finish ();
7367 
7368  /* Line: 2803 : PERFORM : cobxref.cbl */
7369  cob_set_location (st_1, 2803, st_126, st_130, st_3);
7370  /* PERFORM zz120-Replace-Multi-Spaces THRU zz120-Exit */
7371  frame_ptr++;
7372  if (unlikely(frame_ptr == frame_overflow))
7373  cob_fatal_error (COB_FERROR_STACK);
7374  frame_ptr->perform_through = 127;
7375  frame_ptr->return_address_ptr = &&l_373;
7376  goto l_124;
7377  l_373:
7378  frame_ptr--;
7379 
7380  /* Line: 2804 : MOVE : cobxref.cbl */
7381  cob_set_location (st_1, 2804, st_126, st_130, st_4);
7382  memcpy (b_50, b_49, 4);
7383 
7384  /* Line: 2808 : IF : cobxref.cbl */
7385  cob_set_location (st_1, 2808, st_126, st_130, st_6);
7386  if (((int)cob_cmp_s32 (b_60, 1LL) < 0))
7387  {
7388 
7389  /* Line: 2809 : PERFORM : cobxref.cbl */
7390  cob_set_location (st_1, 2809, st_126, st_130, st_3);
7391  /* PERFORM zz000-Inc-CobolRefNo */
7392  frame_ptr++;
7393  if (unlikely(frame_ptr == frame_overflow))
7394  cob_fatal_error (COB_FERROR_STACK);
7395  frame_ptr->perform_through = 111;
7396  frame_ptr->return_address_ptr = &&l_374;
7397  goto l_111;
7398  l_374:
7399  frame_ptr--;
7400 
7401  /* Line: 2810 : PERFORM : cobxref.cbl */
7402  cob_set_location (st_1, 2810, st_126, st_130, st_3);
7403  /* PERFORM zz000-OutputSource */
7404  frame_ptr++;
7405  if (unlikely(frame_ptr == frame_overflow))
7406  cob_fatal_error (COB_FERROR_STACK);
7407  frame_ptr->perform_through = 112;
7408  frame_ptr->return_address_ptr = &&l_375;
7409  goto l_112;
7410  l_375:
7411  frame_ptr--;
7412 
7413  /* Line: 2811 : GO TO : cobxref.cbl */
7414  cob_set_location (st_1, 2811, st_126, st_130, st_16);
7415  goto l_114;
7416  }
7417 
7418  /* Line: 2813 : IF : cobxref.cbl */
7419  cob_set_location (st_1, 2813, st_126, st_130, st_6);
7420  if (((int)memcmp (b_127 + 0, (cob_u8_ptr)"END PROGRAM ", 12) == 0))
7421  {
7422 
7423  /* Line: 2814 : PERFORM : cobxref.cbl */
7424  cob_set_location (st_1, 2814, st_126, st_130, st_3);
7425  /* PERFORM zz000-Inc-CobolRefNo */
7426  frame_ptr++;
7427  if (unlikely(frame_ptr == frame_overflow))
7428  cob_fatal_error (COB_FERROR_STACK);
7429  frame_ptr->perform_through = 111;
7430  frame_ptr->return_address_ptr = &&l_376;
7431  goto l_111;
7432  l_376:
7433  frame_ptr--;
7434 
7435  /* Line: 2815 : PERFORM : cobxref.cbl */
7436  cob_set_location (st_1, 2815, st_126, st_130, st_3);
7437  /* PERFORM zz000-OutputSource */
7438  frame_ptr++;
7439  if (unlikely(frame_ptr == frame_overflow))
7440  cob_fatal_error (COB_FERROR_STACK);
7441  frame_ptr->perform_through = 112;
7442  frame_ptr->return_address_ptr = &&l_377;
7443  goto l_112;
7444  l_377:
7445  frame_ptr--;
7446 
7447  /* Line: 2816 : GO TO : cobxref.cbl */
7448  cob_set_location (st_1, 2816, st_126, st_130, st_16);
7449  goto l_114;
7450  }
7451 
7452  /* Line: 2818 : IF : cobxref.cbl */
7453  cob_set_location (st_1, 2818, st_126, st_130, st_6);
7454  if ((((int)cob_cmp_numdisp (b_100, 1, 7LL, 0) > 0) &&
7455  (((int)memcmp (b_127 + 0, (cob_u8_ptr)"ID DIVISION.", 12) == 0) ||
7456  ((int)memcmp (b_127 + 0, (cob_u8_ptr)"IDENTIFICATION DIVIS", 20) == 0))))
7457  {
7458 
7459  /* Line: 2821 : MOVE : cobxref.cbl */
7460  cob_set_location (st_1, 2821, st_126, st_130, st_4);
7461  *(b_85) = 49;
7462  *(b_87) = 49;
7463  *(b_91) = 49;
7464 
7465  /* Line: 2822 : MOVE : cobxref.cbl */
7466  cob_set_location (st_1, 2822, st_126, st_130, st_4);
7467  (*(int *)(b_44)) = 1;
7468 
7469  /* Line: 2823 : GO TO : cobxref.cbl */
7470  cob_set_location (st_1, 2823, st_126, st_130, st_16);
7471  goto l_116;
7472  }
7473 
7474  /* Line: 2825 : Paragraph zz100-New-Program-point : cobxref.cbl */
7475  l_115:;
7476 
7477  /* Line: 2826 : PERFORM : cobxref.cbl */
7478  cob_set_location (st_1, 2826, st_126, st_131, st_3);
7479  /* PERFORM zz000-Inc-CobolRefNo */
7480  frame_ptr++;
7481  if (unlikely(frame_ptr == frame_overflow))
7482  cob_fatal_error (COB_FERROR_STACK);
7483  frame_ptr->perform_through = 111;
7484  frame_ptr->return_address_ptr = &&l_378;
7485  goto l_111;
7486  l_378:
7487  frame_ptr--;
7488 
7489  /* Line: 2827 : PERFORM : cobxref.cbl */
7490  cob_set_location (st_1, 2827, st_126, st_131, st_3);
7491  /* PERFORM zz000-OutputSource */
7492  frame_ptr++;
7493  if (unlikely(frame_ptr == frame_overflow))
7494  cob_fatal_error (COB_FERROR_STACK);
7495  frame_ptr->perform_through = 112;
7496  frame_ptr->return_address_ptr = &&l_379;
7497  goto l_112;
7498  l_379:
7499  frame_ptr--;
7500 
7501  /* Line: 2828 : MOVE : cobxref.cbl */
7502  cob_set_location (st_1, 2828, st_126, st_131, st_4);
7503  (*(int *)(b_44)) = 1;
7504 
7505  /* Line: 2829 : MOVE : cobxref.cbl */
7506  cob_set_location (st_1, 2829, st_126, st_131, st_4);
7507  (*(int *)(b_51)) = 0;
7508 
7509  /* Line: 2835 : IF : cobxref.cbl */
7510  cob_set_location (st_1, 2835, st_126, st_131, st_6);
7511  if (((int)cob_cmp_s32 (b_50, 15LL) > 0))
7512  {
7513 
7514  /* Line: 2836 : MOVE : cobxref.cbl */
7515  cob_set_location (st_1, 2836, st_126, st_131, st_4);
7516  (*(int *)(b_53)) = 0;
7517  (*(int *)(b_54)) = 0;
7518 
7519  /* Line: 2838 : PERFORM : cobxref.cbl */
7520  cob_set_location (st_1, 2838, st_126, st_131, st_3);
7521  /* PERFORM zz170-Check-4-Section THRU zz170-Exit */
7522  frame_ptr++;
7523  if (unlikely(frame_ptr == frame_overflow))
7524  cob_fatal_error (COB_FERROR_STACK);
7525  frame_ptr->perform_through = 147;
7526  frame_ptr->return_address_ptr = &&l_380;
7527  goto l_145;
7528  l_380:
7529  frame_ptr--;
7530 
7531  /* Line: 2839 : GO TO : cobxref.cbl */
7532  cob_set_location (st_1, 2839, st_126, st_131, st_16);
7533  goto l_116;
7534  }
7535 
7536  /* Line: 2844 : IF : cobxref.cbl */
7537  cob_set_location (st_1, 2844, st_126, st_131, st_6);
7538  if (((int)cob_cmp_s32 (b_53, 0) == 0))
7539  {
7540 
7541  /* Line: 2845 : PERFORM : cobxref.cbl */
7542  cob_set_location (st_1, 2845, st_126, st_131, st_3);
7543  (*(int *)(b_60)) = 1;
7544  for (;;)
7545  {
7546  if (((int)cob_cmp_s32 (b_60, 8LL) > 0))
7547  break;
7548 
7549  /* Line: 2846 : IF : cobxref.cbl */
7550  cob_set_location (st_1, 2846, st_126, st_131, st_6);
7551  if (((int)cob_cmp (COB_SET_FLD(f0, 16, b_257 + 16 * ((*(int *)(b_60)) - 1), &a_4), COB_SET_FLD(f1, (*(int *)(b_50)), b_127 + 0, &a_4)) == 0))
7552  {
7553 
7554  /* Line: 2847 : MOVE : cobxref.cbl */
7555  cob_set_location (st_1, 2847, st_126, st_131, st_4);
7556  memset (b_107, 32, 40);
7557 
7558  /* Line: 2848 : MOVE : cobxref.cbl */
7559  cob_set_location (st_1, 2848, st_126, st_131, st_4);
7560  cob_move (COB_SET_FLD(f0, 16, b_257 + 16 * ((*(int *)(b_60)) - 1), &a_4), &f_107);
7561 
7562  /* Line: 2849 : ADD : cobxref.cbl */
7563  cob_set_location (st_1, 2849, st_126, st_131, st_22);
7564  cob_decimal_set_llint (d0, 1LL);
7565  cob_decimal_set_llint (d1, (*(int *)(b_50)));
7566  cob_decimal_add (d0, d1);
7567  cob_decimal_get_field (d0, &f_53, 0);
7568 
7569  /* Line: 2850 : GO TO : cobxref.cbl */
7570  cob_set_location (st_1, 2850, st_126, st_131, st_16);
7571  goto l_114;
7572  }
7573  (*(int *)(b_60)) = ((*(int *)(b_60)) + 1);
7574  }
7575  }
7576  else
7577  {
7578  /* ELSE */
7579 
7580  /* Line: 2854 : IF : cobxref.cbl */
7581  cob_set_location (st_1, 2854, st_126, st_131, st_6);
7582  if ((((int)cob_cmp_s32 (b_54, 0) > 0) &&
7583  (((int)memcmp (b_127 + 0, (cob_u8_ptr)"SECTION", 7) == 0) ||
7584  ((int)memcmp (b_127 + 0, (cob_u8_ptr)"DIVISIO", 7) == 0))))
7585  {
7586 
7587  /* Line: 2856 : ADD : cobxref.cbl */
7588  cob_set_location (st_1, 2856, st_126, st_131, st_22);
7589  cob_decimal_set_llint (d0, 1LL);
7590  cob_decimal_set_llint (d1, (*(int *)(b_53)));
7591  cob_decimal_add (d0, d1);
7592  cob_decimal_get_field (d0, &f_60, 0);
7593 
7594  /* Line: 2857 : STRING : cobxref.cbl */
7595  cob_set_location (st_1, 2857, st_126, st_131, st_54);
7596  cob_string_init (&f_107, &f_60);
7597  cob_string_delimited (NULL);
7598  cob_string_append (COB_SET_FLD(f0, (*(int *)(b_49)), b_127 + 0, &a_4));
7599  cob_string_finish ();
7600 
7601  /* Line: 2858 : MOVE : cobxref.cbl */
7602  cob_set_location (st_1, 2858, st_126, st_131, st_4);
7603  cob_move (&f_107, &f_127);
7604 
7605  /* Line: 2859 : MOVE : cobxref.cbl */
7606  cob_set_location (st_1, 2859, st_126, st_131, st_4);
7607  (*(int *)(b_53)) = 0;
7608  }
7609  }
7610 
7611  /* Line: 2867 : PERFORM : cobxref.cbl */
7612  cob_set_location (st_1, 2867, st_126, st_131, st_3);
7613  /* PERFORM zz170-Check-4-Section THRU zz170-Exit */
7614  frame_ptr++;
7615  if (unlikely(frame_ptr == frame_overflow))
7616  cob_fatal_error (COB_FERROR_STACK);
7617  frame_ptr->perform_through = 147;
7618  frame_ptr->return_address_ptr = &&l_381;
7619  goto l_145;
7620  l_381:
7621  frame_ptr--;
7622 
7623  /* Line: 2868 : Paragraph zz100-Exit : cobxref.cbl */
7624  l_116:;
7625 
7626  /* Line: 2869 : EXIT : cobxref.cbl */
7627  cob_set_location (st_1, 2869, st_126, st_132, st_26);
7628 
7629  /* Implicit PERFORM return */
7630  if (frame_ptr->perform_through == 116)
7631  goto *frame_ptr->return_address_ptr;
7632 
7633  /* Line: 2871 : Paragraph zz110-Get-A-Word : cobxref.cbl */
7634  l_117:;
7635 
7636  /* Line: 2876 : IF : cobxref.cbl */
7637  cob_set_location (st_1, 2876, st_126, st_133, st_6);
7638  if ((((int)cob_cmp_numdisp (b_83, 1, 1LL, 0) == 0) ||
7639  ((int)cob_cmp_numdisp (b_85, 1, 1LL, 0) == 0)))
7640  {
7641 
7642  /* Line: 2878 : GO TO : cobxref.cbl */
7643  cob_set_location (st_1, 2878, st_126, st_133, st_16);
7644  goto l_123;
7645  }
7646 
7647  /* Line: 2879 : IF : cobxref.cbl */
7648  cob_set_location (st_1, 2879, st_126, st_133, st_6);
7649  if ((((int)cob_cmp_s32 (b_44, (*(int *)(b_50))) >= 0) &&
7650  ((int)(int)(*(b_127 + ((*(int *)(b_44)) - 1)) - 46) == 0)))
7651  {
7652 
7653  /* Line: 2881 : MOVE : cobxref.cbl */
7654  cob_set_location (st_1, 2881, st_126, st_133, st_4);
7655  *(b_102) = 46;
7656 
7657  /* Line: 2882 : MOVE : cobxref.cbl */
7658  cob_set_location (st_1, 2882, st_126, st_133, st_4);
7659  (*(int *)(b_48)) = 0;
7660 
7661  /* Line: 2883 : MOVE : cobxref.cbl */
7662  cob_set_location (st_1, 2883, st_126, st_133, st_4);
7663  *(b_127 + ((*(int *)(b_44)) - 1)) = 32;
7664 
7665  /* Line: 2884 : MOVE : cobxref.cbl */
7666  cob_set_location (st_1, 2884, st_126, st_133, st_4);
7667  memset (b_130, 32, 1024);
7668 
7669  /* Line: 2885 : GO TO : cobxref.cbl */
7670  cob_set_location (st_1, 2885, st_126, st_133, st_16);
7671  goto l_123;
7672  }
7673 
7674  /* Line: 2889 : IF : cobxref.cbl */
7675  cob_set_location (st_1, 2889, st_126, st_133, st_6);
7676  if ((((int)cob_cmp_s32 (b_44, (*(int *)(b_50))) > 0) ||
7677  ((int)cob_cmp_s32 (b_44, 1024LL) > 0)))
7678  {
7679 
7680  /* Line: 2891 : GO TO : cobxref.cbl */
7681  cob_set_location (st_1, 2891, st_126, st_133, st_16);
7682  goto l_121;
7683  }
7684 
7685  /* Line: 2895 : Paragraph zz110-Get-A-Word-Unstring: cobxref.cbl */
7686  l_118:;
7687 
7688  /* Line: 2896 : MOVE : cobxref.cbl */
7689  cob_set_location (st_1, 2896, st_126, st_134, st_4);
7690  memset (b_130, 32, 1024);
7691 
7692  /* Line: 2897 : MOVE : cobxref.cbl */
7693  cob_set_location (st_1, 2897, st_126, st_134, st_4);
7694  memcpy (b_62, b_44, 4);
7695 
7696  /* Line: 2901 : UNSTRING : cobxref.cbl */
7697  cob_set_location (st_1, 2901, st_126, st_134, st_17);
7698  cob_unstring_init (&f_127, &f_44, 2);
7699  cob_unstring_delimited ((cob_field *)&c_35, 0);
7700  cob_unstring_delimited ((cob_field *)&c_44, 0);
7701  cob_unstring_into (&f_138, &f_102, 0);
7702  cob_unstring_finish ();
7703 
7704  /* Line: 2904 : IF : cobxref.cbl */
7705  cob_set_location (st_1, 2904, st_126, st_134, st_6);
7706  if (((int)cob_cmp_s32 (b_44, 1024LL) > 0))
7707  {
7708 
7709  /* Line: 2905 : GO TO : cobxref.cbl */
7710  cob_set_location (st_1, 2905, st_126, st_134, st_16);
7711  goto l_121;
7712  }
7713 
7714  /* Line: 2906 : IF : cobxref.cbl */
7715  cob_set_location (st_1, 2906, st_126, st_134, st_6);
7716  if ((((int)(int)(*(b_130) - ' ') == 0) &&
7717  ((int)(int)(*(b_127 + ((*(int *)(b_44)) - 1)) - 46) == 0)))
7718  {
7719 
7720  /* Line: 2908 : MOVE : cobxref.cbl */
7721  cob_set_location (st_1, 2908, st_126, st_134, st_4);
7722  *(b_102) = 46;
7723 
7724  /* Line: 2909 : MOVE : cobxref.cbl */
7725  cob_set_location (st_1, 2909, st_126, st_134, st_4);
7726  (*(int *)(b_48)) = 0;
7727 
7728  /* Line: 2910 : MOVE : cobxref.cbl */
7729  cob_set_location (st_1, 2910, st_126, st_134, st_4);
7730  memset (b_130, 32, 1024);
7731 
7732  /* Line: 2911 : GO TO : cobxref.cbl */
7733  cob_set_location (st_1, 2911, st_126, st_134, st_16);
7734  goto l_123;
7735  }
7736 
7737  /* Line: 2912 : IF : cobxref.cbl */
7738  cob_set_location (st_1, 2912, st_126, st_134, st_6);
7739  if (((int)(int)(*(b_130) - ' ') == 0))
7740  {
7741 
7742  /* Line: 2913 : GO TO : cobxref.cbl */
7743  cob_set_location (st_1, 2913, st_126, st_134, st_16);
7744  goto l_118;
7745  }
7746 
7747  /* Line: 2914 : IF : cobxref.cbl */
7748  cob_set_location (st_1, 2914, st_126, st_134, st_6);
7749  if (((int)memcmp (b_130, (cob_u8_ptr)">>D", 3) == 0))
7750  {
7751 
7752  /* Line: 2915 : GO TO : cobxref.cbl */
7753  cob_set_location (st_1, 2915, st_126, st_134, st_16);
7754  goto l_118;
7755  }
7756 
7757  /* Line: 2916 : IF : cobxref.cbl */
7758  cob_set_location (st_1, 2916, st_126, st_134, st_6);
7759  if (((int)memcmp (b_130, (cob_u8_ptr)"*>", 2) == 0))
7760  {
7761 
7762  /* Line: 2917 : GO TO : cobxref.cbl */
7763  cob_set_location (st_1, 2917, st_126, st_134, st_16);
7764  goto l_121;
7765  }
7766 
7767  /* Line: 2918 : IF : cobxref.cbl */
7768  cob_set_location (st_1, 2918, st_126, st_134, st_6);
7769  if (((((((((((((((int)(int)(*(b_130) - 48) == 0) ||
7770  ((int)(int)(*(b_130) - 49) == 0)) ||
7771  ((int)(int)(*(b_130) - 50) == 0)) ||
7772  ((int)(int)(*(b_130) - 51) == 0)) ||
7773  ((int)(int)(*(b_130) - 52) == 0)) ||
7774  ((int)(int)(*(b_130) - 53) == 0)) ||
7775  ((int)(int)(*(b_130) - 54) == 0)) ||
7776  ((int)(int)(*(b_130) - 55) == 0)) ||
7777  ((int)(int)(*(b_130) - 56) == 0)) ||
7778  ((int)(int)(*(b_130) - 57) == 0)) ||
7779  ((int)(int)(*(b_130) - 45) == 0)) ||
7780  ((int)(int)(*(b_130) - 43) == 0)) &&
7781  ((int)(int)(*(b_127 + ((*(int *)(b_44)) - 1)) - ' ') != 0)))
7782  {
7783 
7784  /* Line: 2922 : MOVE : cobxref.cbl */
7785  cob_set_location (st_1, 2922, st_126, st_134, st_4);
7786  memcpy (b_44, b_62, 4);
7787 
7788  /* Line: 2923 : UNSTRING : cobxref.cbl */
7789  cob_set_location (st_1, 2923, st_126, st_134, st_17);
7790  cob_unstring_init (&f_127, &f_44, 1);
7791  cob_unstring_delimited ((cob_field *)&c_35, 0);
7792  cob_unstring_into (&f_138, &f_102, 0);
7793  cob_unstring_finish ();
7794  }
7795 
7796  /* Line: 2926 : SUBTRACT : cobxref.cbl */
7797  cob_set_location (st_1, 2926, st_126, st_134, st_55);
7798  cob_decimal_set_llint (d0, (*(int *)(b_44)));
7799  cob_decimal_set_llint (d1, 2LL);
7800  cob_decimal_sub (d0, d1);
7801  cob_decimal_get_field (d0, &f_61, 0);
7802 
7803  /* Line: 2927 : IF : cobxref.cbl */
7804  cob_set_location (st_1, 2927, st_126, st_134, st_6);
7805  if ((((int)(int)(*(b_102) - ' ') == 0) &&
7806  ((int)(int)(*(b_127 + ((*(int *)(b_61)) - 1)) - 46) == 0)))
7807  {
7808 
7809  /* Line: 2929 : MOVE : cobxref.cbl */
7810  cob_set_location (st_1, 2929, st_126, st_134, st_4);
7811  *(b_102) = 46;
7812  }
7813 
7814  /* Line: 2931 : IF : cobxref.cbl */
7815  cob_set_location (st_1, 2931, st_126, st_134, st_6);
7816  if (((((int)cob_cmp_numdisp (b_97, 1, 1LL, 0) == 0) &&
7817  ((int)memcmp (b_127 + ((*(int *)(b_62)) - 1), (cob_u8_ptr)"IS ", 3) != 0)) &&
7818  (((((((((((((((((((((((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 36) == 0) ||
7819  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - *(b_99)) == 0)) ||
7820  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 47) == 0)) ||
7821  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 66) == 0)) ||
7822  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 48) == 0)) ||
7823  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 46) == 0)) ||
7824  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 44) == 0)) ||
7825  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 43) == 0)) ||
7826  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 45) == 0)) ||
7827  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 67) == 0)) ||
7828  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 68) == 0)) ||
7829  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 42) == 0)) ||
7830  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 90) == 0)) ||
7831  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 57) == 0)) ||
7832  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 88) == 0)) ||
7833  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 65) == 0)) ||
7834  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 83) == 0)) ||
7835  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 86) == 0)) ||
7836  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 80) == 0)) ||
7837  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 49) == 0)) ||
7838  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 78) == 0)) ||
7839  ((int)(int)(*(b_127 + ((*(int *)(b_62)) - 1)) - 69) == 0))))
7840  {
7841 
7842  /* Line: 2941 : MOVE : cobxref.cbl */
7843  cob_set_location (st_1, 2941, st_126, st_134, st_4);
7844  memcpy (b_44, b_62, 4);
7845 
7846  /* Line: 2942 : UNSTRING : cobxref.cbl */
7847  cob_set_location (st_1, 2942, st_126, st_134, st_17);
7848  cob_unstring_init (&f_127, &f_44, 1);
7849  cob_unstring_delimited ((cob_field *)&c_35, 0);
7850  cob_unstring_into (&f_138, &f_102, 0);
7851  cob_unstring_finish ();
7852 
7853  /* Line: 2944 : SUBTRACT : cobxref.cbl */
7854  cob_set_location (st_1, 2944, st_126, st_134, st_55);
7855  cob_decimal_set_llint (d0, (*(int *)(b_44)));
7856  cob_decimal_set_llint (d1, 2LL);
7857  cob_decimal_sub (d0, d1);
7858  cob_decimal_get_field (d0, &f_61, 0);
7859 
7860  /* Line: 2945 : IF : cobxref.cbl */
7861  cob_set_location (st_1, 2945, st_126, st_134, st_6);
7862  if (((int)(int)(*(b_127 + ((*(int *)(b_61)) - 1)) - 46) == 0))
7863  {
7864 
7865  /* Line: 2946 : MOVE : cobxref.cbl */
7866  cob_set_location (st_1, 2946, st_126, st_134, st_4);
7867  *(b_102) = 46;
7868  }
7869 
7870  /* Line: 2948 : MOVE : cobxref.cbl */
7871  cob_set_location (st_1, 2948, st_126, st_134, st_4);
7872  *(b_98) = 49;
7873  }
7874 
7875  /* Line: 2953 : IF : cobxref.cbl */
7876  cob_set_location (st_1, 2953, st_126, st_134, st_6);
7877  if (((int)cob_cmp_numdisp (b_97, 1, 0, 0) == 0))
7878  {
7879 
7880  /* Line: 2954 : INSPECT : cobxref.cbl */
7881  cob_set_location (st_1, 2954, st_126, st_134, st_40);
7882  cob_inspect_init (&f_138, 1);
7883  cob_inspect_start ();
7884  cob_inspect_all (&cob_all_space, (cob_field *)&c_42);
7885  cob_inspect_finish ();
7886  }
7887 
7888  /* Line: 2957 : IF : cobxref.cbl */
7889  cob_set_location (st_1, 2957, st_126, st_134, st_6);
7890  if ((((int)(int)(*(b_130) - 40) == 0) &&
7891  (((int)cob_cmp (COB_SET_FLD(f0, 1, b_130 + 1, &a_4), &cob_all_quote) == 0) ||
7892  ((int)(int)(*(b_130 + 1) - 39) == 0))))
7893  {
7894 
7895  /* Line: 2959 : ADD : cobxref.cbl */
7896  cob_set_location (st_1, 2959, st_126, st_134, st_22);
7897  cob_decimal_set_llint (d0, 2LL);
7898  cob_decimal_set_llint (d1, (*(int *)(b_62)));
7899  cob_decimal_add (d0, d1);
7900  cob_decimal_get_field (d0, &f_44, 0);
7901 
7902  /* Line: 2960 : MOVE : cobxref.cbl */
7903  cob_set_location (st_1, 2960, st_126, st_134, st_4);
7904  cob_put_indirect_field (COB_SET_FLD(f0, 1, b_130 + 1, &a_4));
7905  cob_get_indirect_field (COB_SET_FLD(f0, 1, b_130 + 0, &a_4));
7906  cob_get_indirect_field (&f_103);
7907 
7908  /* Line: 2961 : GO TO : cobxref.cbl */
7909  cob_set_location (st_1, 2961, st_126, st_134, st_16);
7910  goto l_120;
7911  }
7912 
7913  /* Line: 2963 : IF : cobxref.cbl */
7914  cob_set_location (st_1, 2963, st_126, st_134, st_6);
7915  if ((((int)(int)(*(b_130) - 40) == 0) &&
7916  ((int)(int)(*(b_130 + 1) - ' ') == 0)))
7917  {
7918 
7919  /* Line: 2965 : ADD : cobxref.cbl */
7920  cob_set_location (st_1, 2965, st_126, st_134, st_22);
7921  (*(int *)(b_44)) = ((*(int *)(b_44)) + 1);
7922 
7923  /* Line: 2966 : GO TO : cobxref.cbl */
7924  cob_set_location (st_1, 2966, st_126, st_134, st_16);
7925  goto l_117;
7926  }
7927 
7928  /* Line: 2967 : IF : cobxref.cbl */
7929  cob_set_location (st_1, 2967, st_126, st_134, st_6);
7930  if (((int)(int)(*(b_130) - 41) == 0))
7931  {
7932 
7933  /* Line: 2968 : GO TO : cobxref.cbl */
7934  cob_set_location (st_1, 2968, st_126, st_134, st_16);
7935  goto l_117;
7936  }
7937 
7938  /* Line: 2970 : IF : cobxref.cbl */
7939  cob_set_location (st_1, 2970, st_126, st_134, st_6);
7940  if ((((int)cob_cmp (&f_133, &cob_all_quote) != 0) &&
7941  ((int)(int)(*(b_130) - 39) != 0)))
7942  {
7943 
7944  /* Line: 2971 : PERFORM : cobxref.cbl */
7945  cob_set_location (st_1, 2971, st_126, st_134, st_3);
7946  (*(int *)(b_66)) = 1024;
7947  for (;;)
7948  {
7949  if (((int)(int)(*(b_130 + ((*(int *)(b_66)) - 1)) - ' ') != 0))
7950  break;
7951  ;
7952  (*(int *)(b_66)) = ((*(int *)(b_66)) + -1);
7953  }
7954 
7955  /* Line: 2973 : MOVE : cobxref.cbl */
7956  cob_set_location (st_1, 2973, st_126, st_134, st_4);
7957  memcpy (b_48, b_66, 4);
7958 
7959  /* Line: 2974 : GO TO : cobxref.cbl */
7960  cob_set_location (st_1, 2974, st_126, st_134, st_16);
7961  goto l_122;
7962  }
7963 
7964  /* Line: 2976 : Paragraph zz110-Get-A-Word-Literal: cobxref.cbl */
7965 
7966  /* Line: 2977 : MOVE : cobxref.cbl */
7967  cob_set_location (st_1, 2977, st_126, st_135, st_4);
7968  *(b_103) = *(b_130);
7969 
7970  /* Line: 2978 : ADD : cobxref.cbl */
7971  cob_set_location (st_1, 2978, st_126, st_135, st_22);
7972  cob_decimal_set_llint (d0, 1LL);
7973  cob_decimal_set_llint (d1, (*(int *)(b_62)));
7974  cob_decimal_add (d0, d1);
7975  cob_decimal_get_field (d0, &f_44, 0);
7976 
7977  /* Line: 2979 : Paragraph zz110-Get-A-Word-Literal2: cobxref.cbl */
7978  l_120:;
7979 
7980  /* Line: 2980 : MOVE : cobxref.cbl */
7981  cob_set_location (st_1, 2980, st_126, st_136, st_4);
7982  memset (b_130 + 1, 32, 1023);
7983 
7984  /* Line: 2981 : UNSTRING : cobxref.cbl */
7985  cob_set_location (st_1, 2981, st_126, st_136, st_17);
7986  cob_unstring_init (&f_127, &f_44, 1);
7987  cob_unstring_delimited (&f_103, 0);
7988  cob_unstring_into (COB_SET_FLD(f0, 1023, b_130 + 1, &a_4), &f_102, 0);
7989  cob_unstring_finish ();
7990 
7991  /* Line: 2985 : IF : cobxref.cbl */
7992  cob_set_location (st_1, 2985, st_126, st_136, st_6);
7993  if (((int)(int)(*(b_102) - *(b_103)) != 0))
7994  {
7995 
7996  /* Line: 2986 : PERFORM : cobxref.cbl */
7997  cob_set_location (st_1, 2986, st_126, st_136, st_3);
7998  (*(int *)(b_66)) = 1024;
7999  for (;;)
8000  {
8001  if (((int)(int)(*(b_130 + ((*(int *)(b_66)) - 1)) - ' ') != 0))
8002  break;
8003  ;
8004  (*(int *)(b_66)) = ((*(int *)(b_66)) + -1);
8005  }
8006 
8007  /* Line: 2988 : ADD : cobxref.cbl */
8008  cob_set_location (st_1, 2988, st_126, st_136, st_22);
8009  (*(int *)(b_66)) = ((*(int *)(b_66)) + 1);
8010  }
8011  else
8012  {
8013  /* ELSE */
8014 
8015  /* Line: 2990 : SUBTRACT : cobxref.cbl */
8016  cob_set_location (st_1, 2990, st_126, st_136, st_55);
8017  cob_decimal_set_llint (d0, (*(int *)(b_44)));
8018  cob_decimal_set_llint (d1, (*(int *)(b_62)));
8019  cob_decimal_sub (d0, d1);
8020  cob_decimal_get_field (d0, &f_66, 0);
8021  }
8022 
8023  /* Line: 2991 : MOVE : cobxref.cbl */
8024  cob_set_location (st_1, 2991, st_126, st_136, st_4);
8025  *(b_130 + ((*(int *)(b_66)) - 1)) = *(b_103);
8026 
8027  /* Line: 2992 : MOVE : cobxref.cbl */
8028  cob_set_location (st_1, 2992, st_126, st_136, st_4);
8029  memcpy (b_48, b_66, 4);
8030 
8031  /* Line: 2996 : GO TO : cobxref.cbl */
8032  cob_set_location (st_1, 2996, st_126, st_136, st_16);
8033  goto l_122;
8034 
8035  /* Line: 2997 : Paragraph zz110-Get-A-Word-OverFlow: cobxref.cbl */
8036  l_121:;
8037 
8038  /* Line: 2998 : MOVE : cobxref.cbl */
8039  cob_set_location (st_1, 2998, st_126, st_137, st_4);
8040  (*(int *)(b_44)) = 1;
8041 
8042  /* Line: 2999 : PERFORM : cobxref.cbl */
8043  cob_set_location (st_1, 2999, st_126, st_137, st_3);
8044  /* PERFORM zz100-Get-A-Source-Record THRU zz100-Exit */
8045  frame_ptr++;
8046  if (unlikely(frame_ptr == frame_overflow))
8047  cob_fatal_error (COB_FERROR_STACK);
8048  frame_ptr->perform_through = 116;
8049  frame_ptr->return_address_ptr = &&l_382;
8050  goto l_114;
8051  l_382:
8052  frame_ptr--;
8053 
8054  /* Line: 3000 : IF : cobxref.cbl */
8055  cob_set_location (st_1, 3000, st_126, st_137, st_6);
8056  if (((int)cob_cmp_numdisp (b_83, 1, 1LL, 0) == 0))
8057  {
8058 
8059  /* Line: 3001 : GO TO : cobxref.cbl */
8060  cob_set_location (st_1, 3001, st_126, st_137, st_16);
8061  goto l_123;
8062  }
8063 
8064  /* Line: 3002 : GO TO : cobxref.cbl */
8065  cob_set_location (st_1, 3002, st_126, st_137, st_16);
8066  goto l_117;
8067 
8068  /* Line: 3003 : Paragraph zz110-Get-A-Word-Copy-Check: cobxref.cbl */
8069  l_122:;
8070 
8071  /* Line: 3005 : ADD : cobxref.cbl */
8072  cob_set_location (st_1, 3005, st_126, st_138, st_22);
8073  (*(int *)(b_51)) = ((*(int *)(b_51)) + 1);
8074 
8075  /* Line: 3006 : IF : cobxref.cbl */
8076  cob_set_location (st_1, 3006, st_126, st_138, st_6);
8077  if (((int)(int)(*(b_77) - 89) == 0))
8078  {
8079 
8080  /* Line: 3007 : DISPLAY : cobxref.cbl */
8081  cob_set_location (st_1, 3007, st_126, st_138, st_7);
8082  cob_display (0, 1, 4, &c_45, &f_102, &c_46, COB_SET_FLD(f0, (*(int *)(b_48)), b_130 + 0, &a_4));
8083  }
8084 
8085  /* Line: 3009 : IF : cobxref.cbl */
8086  cob_set_location (st_1, 3009, st_126, st_138, st_6);
8087  if (((int)cob_cmp_s32 (b_48, 1LL) < 0))
8088  {
8089 
8090  /* Line: 3010 : DISPLAY : cobxref.cbl */
8091  cob_set_location (st_1, 3010, st_126, st_138, st_7);
8092  cob_display (0, 1, 1, &c_47);
8093 
8094  /* Line: 3011 : DISPLAY : cobxref.cbl */
8095  cob_set_location (st_1, 3011, st_126, st_138, st_7);
8096  cob_display (0, 1, 1, &c_48);
8097  }
8098 
8099  /* Line: 3016 : IF : cobxref.cbl */
8100  cob_set_location (st_1, 3016, st_126, st_138, st_6);
8101  if ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"IS ", 3) != 0) &&
8102  ((int)cob_cmp_numdisp (b_97, 1, 1LL, 0) == 0)))
8103  {
8104 
8105  /* Line: 3018 : MOVE : cobxref.cbl */
8106  cob_set_location (st_1, 3018, st_126, st_138, st_4);
8107  *(b_97) = 48;
8108  }
8109 
8110  /* Line: 3020 : IF : cobxref.cbl */
8111  cob_set_location (st_1, 3020, st_126, st_138, st_6);
8112  if ((((int)memcmp (b_130 + 0, (cob_u8_ptr)"PIC ", 4) == 0) ||
8113  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"PICTURE ", 8) == 0)))
8114  {
8115 
8116  /* Line: 3022 : MOVE : cobxref.cbl */
8117  cob_set_location (st_1, 3022, st_126, st_138, st_4);
8118  *(b_97) = 49;
8119  }
8120 
8121  /* Line: 3023 : Paragraph zz110-Exit : cobxref.cbl */
8122  l_123:;
8123 
8124  /* Line: 3024 : EXIT : cobxref.cbl */
8125  cob_set_location (st_1, 3024, st_126, st_139, st_26);
8126 
8127  /* Implicit PERFORM return */
8128  if (frame_ptr->perform_through == 123)
8129  goto *frame_ptr->return_address_ptr;
8130 
8131  /* Line: 3026 : Paragraph zz120-Replace-Multi-Spaces: cobxref.cbl */
8132  l_124:;
8133 
8134  /* Line: 3034 : PERFORM : cobxref.cbl */
8135  cob_set_location (st_1, 3034, st_126, st_140, st_3);
8136  (*(int *)(b_60)) = 1024;
8137  for (;;)
8138  {
8139  if (((int)(int)(*(b_127 + ((*(int *)(b_60)) - 1)) - ' ') != 0))
8140  break;
8141  ;
8142  (*(int *)(b_60)) = ((*(int *)(b_60)) + -1);
8143  }
8144 
8145  /* Line: 3036 : IF : cobxref.cbl */
8146  cob_set_location (st_1, 3036, st_126, st_140, st_6);
8147  if (((int)cob_cmp_s32 (b_60, 1LL) < 0))
8148  {
8149 
8150  /* Line: 3037 : GO TO : cobxref.cbl */
8151  cob_set_location (st_1, 3037, st_126, st_140, st_16);
8152  goto l_127;
8153  }
8154 
8155  /* Line: 3039 : MOVE : cobxref.cbl */
8156  cob_set_location (st_1, 3039, st_126, st_140, st_4);
8157  (*(int *)(b_55)) = 0;
8158  (*(int *)(b_58)) = 0;
8159  (*(int *)(b_59)) = 0;
8160 
8161  /* Line: 3040 : MOVE : cobxref.cbl */
8162  cob_set_location (st_1, 3040, st_126, st_140, st_4);
8163  memset (b_147, 32, 1024);
8164 
8165  /* Line: 3041 : PERFORM : cobxref.cbl */
8166  cob_set_location (st_1, 3041, st_126, st_140, st_3);
8167  /* PERFORM zz120-Kill-Space THRU zz120-Kill-Space-Exit */
8168  frame_ptr++;
8169  if (unlikely(frame_ptr == frame_overflow))
8170  cob_fatal_error (COB_FERROR_STACK);
8171  frame_ptr->perform_through = 126;
8172  frame_ptr->return_address_ptr = &&l_383;
8173  goto l_125;
8174  l_383:
8175  frame_ptr--;
8176 
8177  /* Line: 3042 : MOVE : cobxref.cbl */
8178  cob_set_location (st_1, 3042, st_126, st_140, st_4);
8179  memset (b_127, 32, 1024);
8180 
8181  /* Line: 3043 : MOVE : cobxref.cbl */
8182  cob_set_location (st_1, 3043, st_126, st_140, st_4);
8183  cob_move (COB_SET_FLD(f0, (*(int *)(b_58)), b_147 + 0, &a_4), &f_127);
8184 
8185  /* Line: 3044 : MOVE : cobxref.cbl */
8186  cob_set_location (st_1, 3044, st_126, st_140, st_4);
8187  memcpy (b_49, b_58, 4);
8188  memcpy (b_60, b_58, 4);
8189 
8190  /* Line: 3045 : IF : cobxref.cbl */
8191  cob_set_location (st_1, 3045, st_126, st_140, st_6);
8192  if (((int)(int)(*(b_77) - 89) == 0))
8193  {
8194 
8195  /* Line: 3046 : DISPLAY : cobxref.cbl */
8196  cob_set_location (st_1, 3046, st_126, st_140, st_7);
8197  cob_display (0, 1, 4, &c_49, &f_58, &c_50, COB_SET_FLD(f0, (*(int *)(b_58)), b_127 + 0, &a_4));
8198  }
8199 
8200  /* Line: 3047 : GO TO : cobxref.cbl */
8201  cob_set_location (st_1, 3047, st_126, st_140, st_16);
8202  goto l_127;
8203 
8204  /* Line: 3049 : Paragraph zz120-Kill-Space : cobxref.cbl */
8205  l_125:;
8206 
8207  /* Line: 3050 : ADD : cobxref.cbl */
8208  cob_set_location (st_1, 3050, st_126, st_141, st_22);
8209  (*(int *)(b_55)) = ((*(int *)(b_55)) + 1);
8210 
8211  /* Line: 3051 : IF : cobxref.cbl */
8212  cob_set_location (st_1, 3051, st_126, st_141, st_6);
8213  if (((int)cob_cmp_s32 (b_55, (*(int *)(b_60))) > 0))
8214  {
8215 
8216  /* Line: 3052 : GO TO : cobxref.cbl */
8217  cob_set_location (st_1, 3052, st_126, st_141, st_16);
8218  goto l_126;
8219  }
8220 
8221  /* Line: 3053 : IF : cobxref.cbl */
8222  cob_set_location (st_1, 3053, st_126, st_141, st_6);
8223  if ((((int)(int)(*(b_127 + ((*(int *)(b_55)) - 1)) - ' ') == 0) &&
8224  ((int)cob_cmp_s32 (b_59, 1LL) == 0)))
8225  {
8226 
8227  /* Line: 3054 : ADD : cobxref.cbl */
8228  cob_set_location (st_1, 3054, st_126, st_141, st_22);
8229  (*(int *)(b_58)) = ((*(int *)(b_58)) + 1);
8230 
8231  /* Line: 3055 : MOVE : cobxref.cbl */
8232  cob_set_location (st_1, 3055, st_126, st_141, st_4);
8233  (*(int *)(b_59)) = 0;
8234 
8235  /* Line: 3056 : GO TO : cobxref.cbl */
8236  cob_set_location (st_1, 3056, st_126, st_141, st_16);
8237  goto l_125;
8238  }
8239 
8240  /* Line: 3058 : IF : cobxref.cbl */
8241  cob_set_location (st_1, 3058, st_126, st_141, st_6);
8242  if (((int)(int)(*(b_127 + ((*(int *)(b_55)) - 1)) - ' ') == 0))
8243  {
8244 
8245  /* Line: 3059 : GO TO : cobxref.cbl */
8246  cob_set_location (st_1, 3059, st_126, st_141, st_16);
8247  goto l_125;
8248  }
8249 
8250  /* Line: 3060 : SUBTRACT : cobxref.cbl */
8251  cob_set_location (st_1, 3060, st_126, st_141, st_55);
8252  cob_decimal_set_llint (d0, (*(int *)(b_55)));
8253  cob_decimal_set_llint (d1, 1LL);
8254  cob_decimal_sub (d0, d1);
8255  cob_decimal_get_field (d0, &f_61, 0);
8256 
8257  /* Line: 3061 : IF : cobxref.cbl */
8258  cob_set_location (st_1, 3061, st_126, st_141, st_6);
8259  if (((((int)(int)(*(b_127 + ((*(int *)(b_55)) - 1)) - 40) == 0) &&
8260  ((int)(int)(*(b_127 + ((*(int *)(b_61)) - 1)) - ' ') != 0)) &&
8261  ((int)cob_cmp_numdisp (b_100, 1, 7LL, 0) > 0)))
8262  {
8263 
8264  /* Line: 3064 : ADD : cobxref.cbl */
8265  cob_set_location (st_1, 3064, st_126, st_141, st_22);
8266  (*(int *)(b_58)) = ((*(int *)(b_58)) + 2);
8267  }
8268  else
8269  {
8270  /* ELSE */
8271 
8272  /* Line: 3066 : ADD : cobxref.cbl */
8273  cob_set_location (st_1, 3066, st_126, st_141, st_22);
8274  (*(int *)(b_58)) = ((*(int *)(b_58)) + 1);
8275  }
8276 
8277  /* Line: 3067 : MOVE : cobxref.cbl */
8278  cob_set_location (st_1, 3067, st_126, st_141, st_4);
8279  *(b_147 + ((*(int *)(b_58)) - 1)) = *(b_127 + ((*(int *)(b_55)) - 1));
8280 
8281  /* Line: 3068 : MOVE : cobxref.cbl */
8282  cob_set_location (st_1, 3068, st_126, st_141, st_4);
8283  (*(int *)(b_59)) = 1;
8284 
8285  /* Line: 3069 : GO TO : cobxref.cbl */
8286  cob_set_location (st_1, 3069, st_126, st_141, st_16);
8287  goto l_125;
8288 
8289  /* Line: 3070 : Paragraph zz120-Kill-Space-Exit : cobxref.cbl */
8290  l_126:;
8291 
8292  /* Line: 3071 : EXIT : cobxref.cbl */
8293  cob_set_location (st_1, 3071, st_126, st_142, st_26);
8294 
8295  /* Implicit PERFORM return */
8296  if (frame_ptr->perform_through == 126)
8297  goto *frame_ptr->return_address_ptr;
8298 
8299  /* Line: 3073 : Paragraph zz120-Exit : cobxref.cbl */
8300  l_127:;
8301 
8302  /* Line: 3074 : EXIT : cobxref.cbl */
8303  cob_set_location (st_1, 3074, st_126, st_143, st_26);
8304 
8305  /* Implicit PERFORM return */
8306  if (frame_ptr->perform_through == 127)
8307  goto *frame_ptr->return_address_ptr;
8308 
8309  /* Line: 3076 : Paragraph zz130-Extra-Reserved-Word-Check: cobxref.cbl */
8310  l_128:;
8311 
8312  /* Line: 3081 : MOVE : cobxref.cbl */
8313  cob_set_location (st_1, 3081, st_126, st_144, st_4);
8314  (*(int *)(b_55)) = 0;
8315 
8316  /* Line: 3082 : SEARCH ALL : cobxref.cbl */
8317  cob_set_location (st_1, 3082, st_126, st_144, st_145);
8318  {
8319  int ret;
8320  int head = 1 - 1;
8321  int tail = 1024 + 1;
8322  for (;;)
8323  {
8324  if (head >= tail - 1)
8325  {
8326  /* Table end */
8327 
8328  /* Line: 3082 : GO TO : cobxref.cbl */
8329  cob_set_location (st_1, 3082, st_126, st_144, st_16);
8330  goto l_129;
8331  }
8332  b_951 = (head + tail) / 2;
8333 
8334  /* WHEN */
8335  if (((int)(ret = memcmp (b_369 + 1 + 31 * (b_951 - 1), b_130 + 0, 30)) == 0))
8336  {
8337 
8338  /* Line: 3084 : SET : cobxref.cbl */
8339  cob_set_location (st_1, 3084, st_126, st_144, st_146);
8340  cob_set_int (&f_55, b_951);
8341  break;
8342  }
8343  if (ret < 0)
8344  head = b_951;
8345  else
8346  tail = b_951;
8347  }
8348  }
8349 
8350  /* Line: 3085 : IF : cobxref.cbl */
8351  cob_set_location (st_1, 3085, st_126, st_144, st_6);
8352  if (((((int)cob_cmp_s32 (b_55, 0) != 0) &&
8353  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"FUNCTION", 8) == 0)) ||
8354  ((int)memcmp (b_130 + 0, (cob_u8_ptr)"function", 8) == 0)))
8355  {
8356 
8357  /* Line: 3087 : MOVE : cobxref.cbl */
8358  cob_set_location (st_1, 3087, st_126, st_144, st_4);
8359  *(b_124) = 49;
8360  }
8361  else
8362  {
8363  /* ELSE */
8364 
8365  /* Line: 3089 : MOVE : cobxref.cbl */
8366  cob_set_location (st_1, 3089, st_126, st_144, st_4);
8367  *(b_124) = 48;
8368  }
8369 
8370  /* Line: 3090 : Paragraph zz130-Exit : cobxref.cbl */
8371  l_129:;
8372 
8373  /* Line: 3091 : EXIT : cobxref.cbl */
8374  cob_set_location (st_1, 3091, st_126, st_147, st_26);
8375 
8376  /* Implicit PERFORM return */
8377  if (frame_ptr->perform_through == 129)
8378  goto *frame_ptr->return_address_ptr;
8379 
8380  /* Line: 3093 : Paragraph zz140-Function-Check : cobxref.cbl */
8381  l_130:;
8382 
8383  /* Line: 3102 : MOVE : cobxref.cbl */
8384  cob_set_location (st_1, 3102, st_126, st_148, st_4);
8385  (*(int *)(b_52)) = 0;
8386 
8387  /* Line: 3103 : SEARCH ALL : cobxref.cbl */
8388  cob_set_location (st_1, 3103, st_126, st_148, st_145);
8389  {
8390  int ret;
8391  int head = 1 - 1;
8392  int tail = 256 + 1;
8393  for (;;)
8394  {
8395  if (head >= tail - 1)
8396  {
8397  /* Table end */
8398 
8399  /* Line: 3103 : GO TO : cobxref.cbl */
8400  cob_set_location (st_1, 3103, st_126, st_148, st_16);
8401  goto l_131;
8402  }
8403  b_365 = (head + tail) / 2;
8404 
8405  /* WHEN */
8406  if (((int)(ret = cob_cmp (COB_SET_FLD(f0, 30, b_269 + 1 + 31 * (b_365 - 1), &a_4), cob_intr_upper_case (0, 0, &f_146))) == 0))
8407  {
8408 
8409  /* Line: 3105 : MOVE : cobxref.cbl */
8410  cob_set_location (st_1, 3105, st_126, st_148, st_4);
8411  *(b_35 + 32) = 57;
8412 
8413  /* Line: 3106 : MOVE : cobxref.cbl */
8414  cob_set_location (st_1, 3106, st_126, st_148, st_4);
8415  *(b_35 + 33) = 49;
8416 
8417  /* Line: 3107 : SET : cobxref.cbl */
8418  cob_set_location (st_1, 3107, st_126, st_148, st_146);
8419  cob_set_int (&f_52, b_365);
8420  break;
8421  }
8422  if (ret < 0)
8423  head = b_365;
8424  else
8425  tail = b_365;
8426  }
8427  }
8428 
8429  /* Line: 3108 : Paragraph zz140-Exit : cobxref.cbl */
8430  l_131:;
8431 
8432  /* Line: 3109 : EXIT : cobxref.cbl */
8433  cob_set_location (st_1, 3109, st_126, st_149, st_26);
8434 
8435  /* Implicit PERFORM return */
8436  if (frame_ptr->perform_through == 131)
8437  goto *frame_ptr->return_address_ptr;
8438 
8439  /* Line: 3111 : Paragraph zz150-WriteHdb : cobxref.cbl */
8440  l_132:;
8441 
8442  /* Line: 3113 : MOVE : cobxref.cbl */
8443  cob_set_location (st_1, 3113, st_126, st_150, st_4);
8444  memset (b_27, 32, 159);
8445 
8446  /* Line: 3114 : IF : cobxref.cbl */
8447  cob_set_location (st_1, 3114, st_126, st_150, st_6);
8448  if (((int)cob_cmp_s8 (b_46, 0) != 0))
8449  {
8450 
8451  /* Line: 3115 : WRITE : cobxref.cbl */
8452  cob_set_location (st_1, 3115, st_126, st_150, st_13);
8453  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
8454  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8455  {
8456  /* PERFORM Default Error Handler */
8457  frame_ptr++;
8458  if (unlikely(frame_ptr == frame_overflow))
8459  cob_fatal_error (COB_FERROR_STACK);
8460  frame_ptr->perform_through = 1;
8461  frame_ptr->return_address_ptr = &&l_384;
8462  goto l_1;
8463  l_384:
8464  frame_ptr--;
8465  }
8466  }
8467 
8468  /* Line: 3117 : MOVE : cobxref.cbl */
8469  cob_set_location (st_1, 3117, st_126, st_150, st_4);
8470  memset (b_148 + 53, 32, 32);
8471 
8472  /* Line: 3118 : ACCEPT : cobxref.cbl */
8473  cob_set_location (st_1, 3118, st_126, st_150, st_151);
8474  cob_accept_date (&f_199);
8475 
8476  /* Line: 3119 : IF : cobxref.cbl */
8477  cob_set_location (st_1, 3119, st_126, st_150, st_6);
8478  if (((int)memcmp (b_199, (cob_u8_ptr)"000000", 6) != 0))
8479  {
8480 
8481  /* Line: 3120 : MOVE : cobxref.cbl */
8482  cob_set_location (st_1, 3120, st_126, st_150, st_4);
8483  memcpy (b_203 + 6, b_199, 2);
8484 
8485  /* Line: 3121 : MOVE : cobxref.cbl */
8486  cob_set_location (st_1, 3121, st_126, st_150, st_4);
8487  memcpy (b_203 + 3, b_199 + 2, 2);
8488 
8489  /* Line: 3122 : MOVE : cobxref.cbl */
8490  cob_set_location (st_1, 3122, st_126, st_150, st_4);
8491  memcpy (b_203, b_199 + 4, 2);
8492  }
8493 
8494  /* Line: 3123 : ACCEPT : cobxref.cbl */
8495  cob_set_location (st_1, 3123, st_126, st_150, st_151);
8496  cob_accept_time (&f_194);
8497 
8498  /* Line: 3124 : IF : cobxref.cbl */
8499  cob_set_location (st_1, 3124, st_126, st_150, st_6);
8500  if (((int)memcmp (b_194, (cob_u8_ptr)"00000000", 8) != 0))
8501  {
8502 
8503  /* Line: 3125 : MOVE : cobxref.cbl */
8504  cob_set_location (st_1, 3125, st_126, st_150, st_4);
8505  memcpy (b_203 + 10, b_194, 2);
8506 
8507  /* Line: 3126 : MOVE : cobxref.cbl */
8508  cob_set_location (st_1, 3126, st_126, st_150, st_4);
8509  memcpy (b_203 + 13, b_194 + 2, 2);
8510 
8511  /* Line: 3127 : MOVE : cobxref.cbl */
8512  cob_set_location (st_1, 3127, st_126, st_150, st_4);
8513  memcpy (b_203 + 16, b_194 + 4, 2);
8514 
8515  /* Line: 3128 : MOVE : cobxref.cbl */
8516  cob_set_location (st_1, 3128, st_126, st_150, st_4);
8517  memcpy (b_203 + 19, b_194 + 6, 2);
8518  }
8519 
8520  /* Line: 3129 : STRING : cobxref.cbl */
8521  cob_set_location (st_1, 3129, st_126, st_150, st_54);
8522  cob_string_init (&f_152, NULL);
8523  cob_string_delimited (&cob_all_space);
8524  cob_string_append (&f_125);
8525  cob_string_delimited (NULL);
8526  cob_string_append ((cob_field *)&c_51);
8527  cob_string_delimited (NULL);
8528  cob_string_append (&f_203);
8529  cob_string_finish ();
8530 
8531  /* Line: 3138 : ADD : cobxref.cbl */
8532  cob_set_location (st_1, 3138, st_126, st_150, st_22);
8533  (*(cob_s8_ptr) (b_46)) = ((*(cob_s8_ptr) (b_46)) + 1);
8534 
8535  /* Line: 3139 : MOVE : cobxref.cbl */
8536  cob_set_location (st_1, 3139, st_126, st_150, st_4);
8537  cob_move (&f_46, &f_154);
8538 
8539  /* Line: 3140 : IF : cobxref.cbl */
8540  cob_set_location (st_1, 3140, st_126, st_150, st_6);
8541  if (((int)cob_cmp_s8 (b_46, 1LL) == 0))
8542  {
8543 
8544  /* Line: 3141 : WRITE : cobxref.cbl */
8545  cob_set_location (st_1, 3141, st_126, st_150, st_13);
8546  cob_move (&f_148, &f_11);
8547  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
8548  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8549  {
8550  /* PERFORM Default Error Handler */
8551  frame_ptr++;
8552  if (unlikely(frame_ptr == frame_overflow))
8553  cob_fatal_error (COB_FERROR_STACK);
8554  frame_ptr->perform_through = 1;
8555  frame_ptr->return_address_ptr = &&l_385;
8556  goto l_1;
8557  l_385:
8558  frame_ptr--;
8559  }
8560  }
8561  else
8562  {
8563  /* ELSE */
8564 
8565  /* Line: 3142 : WRITE : cobxref.cbl */
8566  cob_set_location (st_1, 3142, st_126, st_150, st_13);
8567  cob_move (&f_148, &f_11);
8568  cob_write (h_SOURCE_LISTING, &f_11, 0x120000, NULL, 0);
8569  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8570  {
8571  /* PERFORM Default Error Handler */
8572  frame_ptr++;
8573  if (unlikely(frame_ptr == frame_overflow))
8574  cob_fatal_error (COB_FERROR_STACK);
8575  frame_ptr->perform_through = 1;
8576  frame_ptr->return_address_ptr = &&l_386;
8577  goto l_1;
8578  l_386:
8579  frame_ptr--;
8580  }
8581  }
8582 
8583  /* Line: 3143 : MOVE : cobxref.cbl */
8584  cob_set_location (st_1, 3143, st_126, st_150, st_4);
8585  memset (b_27, 32, 159);
8586 
8587  /* Line: 3144 : WRITE : cobxref.cbl */
8588  cob_set_location (st_1, 3144, st_126, st_150, st_13);
8589  cob_write (h_SOURCE_LISTING, &f_11, 0x110001, NULL, 0);
8590  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8591  {
8592  /* PERFORM Default Error Handler */
8593  frame_ptr++;
8594  if (unlikely(frame_ptr == frame_overflow))
8595  cob_fatal_error (COB_FERROR_STACK);
8596  frame_ptr->perform_through = 1;
8597  frame_ptr->return_address_ptr = &&l_387;
8598  goto l_1;
8599  l_387:
8600  frame_ptr--;
8601  }
8602 
8603  /* Line: 3145 : MOVE : cobxref.cbl */
8604  cob_set_location (st_1, 3145, st_126, st_150, st_4);
8605  (*(cob_s8_ptr) (b_45)) = 2;
8606 
8607  /* Implicit PERFORM return */
8608  if (frame_ptr->perform_through == 132)
8609  goto *frame_ptr->return_address_ptr;
8610 
8611  /* Line: 3146 : Paragraph zz150-WriteHdb1 : cobxref.cbl */
8612 
8613  /* Line: 3147 : MOVE : cobxref.cbl */
8614  cob_set_location (st_1, 3147, st_126, st_152, st_4);
8615  memset (b_162 + 19, 32, 67);
8616 
8617  /* Line: 3148 : STRING : cobxref.cbl */
8618  cob_set_location (st_1, 3148, st_126, st_152, st_54);
8619  cob_string_init (&f_164, NULL);
8620  cob_string_delimited (&cob_all_space);
8621  cob_string_append (&f_125);
8622  cob_string_delimited (NULL);
8623  cob_string_append ((cob_field *)&c_52);
8624  cob_string_delimited (&cob_all_space);
8625  cob_string_append (&f_126);
8626  cob_string_delimited (NULL);
8627  cob_string_append ((cob_field *)&c_26);
8628  cob_string_finish ();
8629 
8630  /* Line: 3153 : MOVE : cobxref.cbl */
8631  cob_set_location (st_1, 3153, st_126, st_152, st_4);
8632  memcpy (b_165 + 19, b_162 + 19, 67);
8633 
8634  /* Line: 3154 : INSPECT : cobxref.cbl */
8635  cob_set_location (st_1, 3154, st_126, st_152, st_40);
8636  cob_inspect_init (&f_167, 1);
8637  cob_inspect_start ();
8638  cob_inspect_before ((cob_field *)&c_53);
8639  cob_inspect_characters ((cob_field *)&c_54);
8640  cob_inspect_finish ();
8641 
8642  /* Line: 3156 : WRITE : cobxref.cbl */
8643  cob_set_location (st_1, 3156, st_126, st_152, st_13);
8644  cob_move (&f_162, &f_11);
8645  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8646  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8647  {
8648  /* PERFORM Default Error Handler */
8649  frame_ptr++;
8650  if (unlikely(frame_ptr == frame_overflow))
8651  cob_fatal_error (COB_FERROR_STACK);
8652  frame_ptr->perform_through = 1;
8653  frame_ptr->return_address_ptr = &&l_388;
8654  goto l_1;
8655  l_388:
8656  frame_ptr--;
8657  }
8658 
8659  /* Line: 3157 : WRITE : cobxref.cbl */
8660  cob_set_location (st_1, 3157, st_126, st_152, st_13);
8661  cob_move (&f_165, &f_11);
8662  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8663  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8664  {
8665  /* PERFORM Default Error Handler */
8666  frame_ptr++;
8667  if (unlikely(frame_ptr == frame_overflow))
8668  cob_fatal_error (COB_FERROR_STACK);
8669  frame_ptr->perform_through = 1;
8670  frame_ptr->return_address_ptr = &&l_389;
8671  goto l_1;
8672  l_389:
8673  frame_ptr--;
8674  }
8675 
8676  /* Line: 3158 : ADD : cobxref.cbl */
8677  cob_set_location (st_1, 3158, st_126, st_152, st_22);
8678  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 2);
8679 
8680  /* Line: 3159 : GO TO : cobxref.cbl */
8681  cob_set_location (st_1, 3159, st_126, st_152, st_16);
8682  goto l_142;
8683 
8684  /* Line: 3160 : Paragraph zz150-WriteHdb2 : cobxref.cbl */
8685  l_134:;
8686 
8687  /* Line: 3161 : MOVE : cobxref.cbl */
8688  cob_set_location (st_1, 3161, st_126, st_153, st_4);
8689  memset (b_27, 32, 159);
8690 
8691  /* Line: 3162 : WRITE : cobxref.cbl */
8692  cob_set_location (st_1, 3162, st_126, st_153, st_13);
8693  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8694  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8695  {
8696  /* PERFORM Default Error Handler */
8697  frame_ptr++;
8698  if (unlikely(frame_ptr == frame_overflow))
8699  cob_fatal_error (COB_FERROR_STACK);
8700  frame_ptr->perform_through = 1;
8701  frame_ptr->return_address_ptr = &&l_390;
8702  goto l_1;
8703  l_390:
8704  frame_ptr--;
8705  }
8706 
8707  /* Line: 3163 : MOVE : cobxref.cbl */
8708  cob_set_location (st_1, 3163, st_126, st_153, st_4);
8709  memset (b_168 + 14, 32, 19);
8710 
8711  /* Line: 3164 : STRING : cobxref.cbl */
8712  cob_set_location (st_1, 3164, st_126, st_153, st_54);
8713  cob_string_init (&f_170, NULL);
8714  cob_string_delimited (&cob_all_space);
8715  cob_string_append (COB_SET_FLD(f0, 24, b_244 + 24 * (cob_get_numdisp (b_112, 1) - 1), &a_2));
8716  cob_string_delimited (NULL);
8717  cob_string_append ((cob_field *)&c_26);
8718  cob_string_finish ();
8719 
8720  /* Line: 3166 : WRITE : cobxref.cbl */
8721  cob_set_location (st_1, 3166, st_126, st_153, st_13);
8722  cob_move (&f_168, &f_11);
8723  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8724  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8725  {
8726  /* PERFORM Default Error Handler */
8727  frame_ptr++;
8728  if (unlikely(frame_ptr == frame_overflow))
8729  cob_fatal_error (COB_FERROR_STACK);
8730  frame_ptr->perform_through = 1;
8731  frame_ptr->return_address_ptr = &&l_391;
8732  goto l_1;
8733  l_391:
8734  frame_ptr--;
8735  }
8736 
8737  /* Line: 3167 : WRITE : cobxref.cbl */
8738  cob_set_location (st_1, 3167, st_126, st_153, st_13);
8739  cob_move (&f_158, &f_11);
8740  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8741  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8742  {
8743  /* PERFORM Default Error Handler */
8744  frame_ptr++;
8745  if (unlikely(frame_ptr == frame_overflow))
8746  cob_fatal_error (COB_FERROR_STACK);
8747  frame_ptr->perform_through = 1;
8748  frame_ptr->return_address_ptr = &&l_392;
8749  goto l_1;
8750  l_392:
8751  frame_ptr--;
8752  }
8753 
8754  /* Line: 3168 : MOVE : cobxref.cbl */
8755  cob_set_location (st_1, 3168, st_126, st_153, st_4);
8756  memset (b_27, 32, 159);
8757 
8758  /* Line: 3169 : WRITE : cobxref.cbl */
8759  cob_set_location (st_1, 3169, st_126, st_153, st_13);
8760  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8761  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8762  {
8763  /* PERFORM Default Error Handler */
8764  frame_ptr++;
8765  if (unlikely(frame_ptr == frame_overflow))
8766  cob_fatal_error (COB_FERROR_STACK);
8767  frame_ptr->perform_through = 1;
8768  frame_ptr->return_address_ptr = &&l_393;
8769  goto l_1;
8770  l_393:
8771  frame_ptr--;
8772  }
8773 
8774  /* Line: 3170 : ADD : cobxref.cbl */
8775  cob_set_location (st_1, 3170, st_126, st_153, st_22);
8776  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 4);
8777 
8778  /* Line: 3171 : GO TO : cobxref.cbl */
8779  cob_set_location (st_1, 3171, st_126, st_153, st_16);
8780  goto l_142;
8781 
8782  /* Line: 3172 : Paragraph zz150-WriteHdb2b : cobxref.cbl */
8783  l_135:;
8784 
8785  /* Line: 3173 : MOVE : cobxref.cbl */
8786  cob_set_location (st_1, 3173, st_126, st_154, st_4);
8787  memset (b_27, 32, 159);
8788 
8789  /* Line: 3174 : WRITE : cobxref.cbl */
8790  cob_set_location (st_1, 3174, st_126, st_154, st_13);
8791  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8792  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8793  {
8794  /* PERFORM Default Error Handler */
8795  frame_ptr++;
8796  if (unlikely(frame_ptr == frame_overflow))
8797  cob_fatal_error (COB_FERROR_STACK);
8798  frame_ptr->perform_through = 1;
8799  frame_ptr->return_address_ptr = &&l_394;
8800  goto l_1;
8801  l_394:
8802  frame_ptr--;
8803  }
8804 
8805  /* Line: 3175 : MOVE : cobxref.cbl */
8806  cob_set_location (st_1, 3175, st_126, st_154, st_4);
8807  memcpy (b_168 + 14, "ALL GLOBALS) ", 19);
8808 
8809  /* Line: 3176 : WRITE : cobxref.cbl */
8810  cob_set_location (st_1, 3176, st_126, st_154, st_13);
8811  cob_move (&f_168, &f_11);
8812  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8813  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8814  {
8815  /* PERFORM Default Error Handler */
8816  frame_ptr++;
8817  if (unlikely(frame_ptr == frame_overflow))
8818  cob_fatal_error (COB_FERROR_STACK);
8819  frame_ptr->perform_through = 1;
8820  frame_ptr->return_address_ptr = &&l_395;
8821  goto l_1;
8822  l_395:
8823  frame_ptr--;
8824  }
8825 
8826  /* Line: 3177 : WRITE : cobxref.cbl */
8827  cob_set_location (st_1, 3177, st_126, st_154, st_13);
8828  cob_move (&f_158, &f_11);
8829  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8830  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8831  {
8832  /* PERFORM Default Error Handler */
8833  frame_ptr++;
8834  if (unlikely(frame_ptr == frame_overflow))
8835  cob_fatal_error (COB_FERROR_STACK);
8836  frame_ptr->perform_through = 1;
8837  frame_ptr->return_address_ptr = &&l_396;
8838  goto l_1;
8839  l_396:
8840  frame_ptr--;
8841  }
8842 
8843  /* Line: 3178 : MOVE : cobxref.cbl */
8844  cob_set_location (st_1, 3178, st_126, st_154, st_4);
8845  memset (b_27, 32, 159);
8846 
8847  /* Line: 3179 : WRITE : cobxref.cbl */
8848  cob_set_location (st_1, 3179, st_126, st_154, st_13);
8849  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8850  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8851  {
8852  /* PERFORM Default Error Handler */
8853  frame_ptr++;
8854  if (unlikely(frame_ptr == frame_overflow))
8855  cob_fatal_error (COB_FERROR_STACK);
8856  frame_ptr->perform_through = 1;
8857  frame_ptr->return_address_ptr = &&l_397;
8858  goto l_1;
8859  l_397:
8860  frame_ptr--;
8861  }
8862 
8863  /* Line: 3180 : ADD : cobxref.cbl */
8864  cob_set_location (st_1, 3180, st_126, st_154, st_22);
8865  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 4);
8866 
8867  /* Line: 3181 : GO TO : cobxref.cbl */
8868  cob_set_location (st_1, 3181, st_126, st_154, st_16);
8869  goto l_142;
8870 
8871  /* Line: 3182 : Paragraph zz150-WriteHdb3 : cobxref.cbl */
8872  l_136:;
8873 
8874  /* Line: 3183 : WRITE : cobxref.cbl */
8875  cob_set_location (st_1, 3183, st_126, st_155, st_13);
8876  cob_move (&f_173, &f_11);
8877  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8878  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8879  {
8880  /* PERFORM Default Error Handler */
8881  frame_ptr++;
8882  if (unlikely(frame_ptr == frame_overflow))
8883  cob_fatal_error (COB_FERROR_STACK);
8884  frame_ptr->perform_through = 1;
8885  frame_ptr->return_address_ptr = &&l_398;
8886  goto l_1;
8887  l_398:
8888  frame_ptr--;
8889  }
8890 
8891  /* Line: 3184 : WRITE : cobxref.cbl */
8892  cob_set_location (st_1, 3184, st_126, st_155, st_13);
8893  cob_move (&f_158, &f_11);
8894  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8895  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8896  {
8897  /* PERFORM Default Error Handler */
8898  frame_ptr++;
8899  if (unlikely(frame_ptr == frame_overflow))
8900  cob_fatal_error (COB_FERROR_STACK);
8901  frame_ptr->perform_through = 1;
8902  frame_ptr->return_address_ptr = &&l_399;
8903  goto l_1;
8904  l_399:
8905  frame_ptr--;
8906  }
8907 
8908  /* Line: 3185 : MOVE : cobxref.cbl */
8909  cob_set_location (st_1, 3185, st_126, st_155, st_4);
8910  memset (b_27, 32, 159);
8911 
8912  /* Line: 3186 : WRITE : cobxref.cbl */
8913  cob_set_location (st_1, 3186, st_126, st_155, st_13);
8914  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8915  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8916  {
8917  /* PERFORM Default Error Handler */
8918  frame_ptr++;
8919  if (unlikely(frame_ptr == frame_overflow))
8920  cob_fatal_error (COB_FERROR_STACK);
8921  frame_ptr->perform_through = 1;
8922  frame_ptr->return_address_ptr = &&l_400;
8923  goto l_1;
8924  l_400:
8925  frame_ptr--;
8926  }
8927 
8928  /* Line: 3187 : ADD : cobxref.cbl */
8929  cob_set_location (st_1, 3187, st_126, st_155, st_22);
8930  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 3);
8931 
8932  /* Line: 3188 : GO TO : cobxref.cbl */
8933  cob_set_location (st_1, 3188, st_126, st_155, st_16);
8934  goto l_142;
8935 
8936  /* Line: 3189 : Paragraph zz150-WriteHdb4 : cobxref.cbl */
8937  l_137:;
8938 
8939  /* Line: 3190 : WRITE : cobxref.cbl */
8940  cob_set_location (st_1, 3190, st_126, st_156, st_13);
8941  cob_move (&f_178, &f_11);
8942  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8943  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8944  {
8945  /* PERFORM Default Error Handler */
8946  frame_ptr++;
8947  if (unlikely(frame_ptr == frame_overflow))
8948  cob_fatal_error (COB_FERROR_STACK);
8949  frame_ptr->perform_through = 1;
8950  frame_ptr->return_address_ptr = &&l_401;
8951  goto l_1;
8952  l_401:
8953  frame_ptr--;
8954  }
8955 
8956  /* Line: 3191 : MOVE : cobxref.cbl */
8957  cob_set_location (st_1, 3191, st_126, st_156, st_4);
8958  memset (b_27, 32, 159);
8959 
8960  /* Line: 3192 : WRITE : cobxref.cbl */
8961  cob_set_location (st_1, 3192, st_126, st_156, st_13);
8962  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8963  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8964  {
8965  /* PERFORM Default Error Handler */
8966  frame_ptr++;
8967  if (unlikely(frame_ptr == frame_overflow))
8968  cob_fatal_error (COB_FERROR_STACK);
8969  frame_ptr->perform_through = 1;
8970  frame_ptr->return_address_ptr = &&l_402;
8971  goto l_1;
8972  l_402:
8973  frame_ptr--;
8974  }
8975 
8976  /* Line: 3193 : ADD : cobxref.cbl */
8977  cob_set_location (st_1, 3193, st_126, st_156, st_22);
8978  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 2);
8979 
8980  /* Line: 3194 : GO TO : cobxref.cbl */
8981  cob_set_location (st_1, 3194, st_126, st_156, st_16);
8982  goto l_142;
8983 
8984  /* Line: 3195 : Paragraph zz150-WriteHdb5 : cobxref.cbl */
8985  l_138:;
8986 
8987  /* Line: 3196 : WRITE : cobxref.cbl */
8988  cob_set_location (st_1, 3196, st_126, st_157, st_13);
8989  cob_move (&f_182, &f_11);
8990  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
8991  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8992  {
8993  /* PERFORM Default Error Handler */
8994  frame_ptr++;
8995  if (unlikely(frame_ptr == frame_overflow))
8996  cob_fatal_error (COB_FERROR_STACK);
8997  frame_ptr->perform_through = 1;
8998  frame_ptr->return_address_ptr = &&l_403;
8999  goto l_1;
9000  l_403:
9001  frame_ptr--;
9002  }
9003 
9004  /* Line: 3197 : MOVE : cobxref.cbl */
9005  cob_set_location (st_1, 3197, st_126, st_157, st_4);
9006  memset (b_27, 32, 159);
9007 
9008  /* Line: 3198 : WRITE : cobxref.cbl */
9009  cob_set_location (st_1, 3198, st_126, st_157, st_13);
9010  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9011  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9012  {
9013  /* PERFORM Default Error Handler */
9014  frame_ptr++;
9015  if (unlikely(frame_ptr == frame_overflow))
9016  cob_fatal_error (COB_FERROR_STACK);
9017  frame_ptr->perform_through = 1;
9018  frame_ptr->return_address_ptr = &&l_404;
9019  goto l_1;
9020  l_404:
9021  frame_ptr--;
9022  }
9023 
9024  /* Line: 3199 : ADD : cobxref.cbl */
9025  cob_set_location (st_1, 3199, st_126, st_157, st_22);
9026  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 2);
9027 
9028  /* Line: 3200 : GO TO : cobxref.cbl */
9029  cob_set_location (st_1, 3200, st_126, st_157, st_16);
9030  goto l_142;
9031 
9032  /* Line: 3201 : Paragraph zz150-WriteHdb6 : cobxref.cbl */
9033  l_139:;
9034 
9035  /* Line: 3202 : WRITE : cobxref.cbl */
9036  cob_set_location (st_1, 3202, st_126, st_158, st_13);
9037  cob_move (&f_180, &f_11);
9038  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9039  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9040  {
9041  /* PERFORM Default Error Handler */
9042  frame_ptr++;
9043  if (unlikely(frame_ptr == frame_overflow))
9044  cob_fatal_error (COB_FERROR_STACK);
9045  frame_ptr->perform_through = 1;
9046  frame_ptr->return_address_ptr = &&l_405;
9047  goto l_1;
9048  l_405:
9049  frame_ptr--;
9050  }
9051 
9052  /* Line: 3203 : MOVE : cobxref.cbl */
9053  cob_set_location (st_1, 3203, st_126, st_158, st_4);
9054  memset (b_27, 32, 159);
9055 
9056  /* Line: 3204 : WRITE : cobxref.cbl */
9057  cob_set_location (st_1, 3204, st_126, st_158, st_13);
9058  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9059  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9060  {
9061  /* PERFORM Default Error Handler */
9062  frame_ptr++;
9063  if (unlikely(frame_ptr == frame_overflow))
9064  cob_fatal_error (COB_FERROR_STACK);
9065  frame_ptr->perform_through = 1;
9066  frame_ptr->return_address_ptr = &&l_406;
9067  goto l_1;
9068  l_406:
9069  frame_ptr--;
9070  }
9071 
9072  /* Line: 3205 : ADD : cobxref.cbl */
9073  cob_set_location (st_1, 3205, st_126, st_158, st_22);
9074  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 2);
9075 
9076  /* Line: 3206 : GO TO : cobxref.cbl */
9077  cob_set_location (st_1, 3206, st_126, st_158, st_16);
9078  goto l_142;
9079 
9080  /* Line: 3207 : Paragraph zz150-WriteHdb7 : cobxref.cbl */
9081  l_140:;
9082 
9083  /* Line: 3208 : WRITE : cobxref.cbl */
9084  cob_set_location (st_1, 3208, st_126, st_159, st_13);
9085  cob_move (&f_184, &f_11);
9086  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9087  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9088  {
9089  /* PERFORM Default Error Handler */
9090  frame_ptr++;
9091  if (unlikely(frame_ptr == frame_overflow))
9092  cob_fatal_error (COB_FERROR_STACK);
9093  frame_ptr->perform_through = 1;
9094  frame_ptr->return_address_ptr = &&l_407;
9095  goto l_1;
9096  l_407:
9097  frame_ptr--;
9098  }
9099 
9100  /* Line: 3209 : WRITE : cobxref.cbl */
9101  cob_set_location (st_1, 3209, st_126, st_159, st_13);
9102  cob_move (&f_192, &f_11);
9103  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9104  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9105  {
9106  /* PERFORM Default Error Handler */
9107  frame_ptr++;
9108  if (unlikely(frame_ptr == frame_overflow))
9109  cob_fatal_error (COB_FERROR_STACK);
9110  frame_ptr->perform_through = 1;
9111  frame_ptr->return_address_ptr = &&l_408;
9112  goto l_1;
9113  l_408:
9114  frame_ptr--;
9115  }
9116 
9117  /* Line: 3210 : MOVE : cobxref.cbl */
9118  cob_set_location (st_1, 3210, st_126, st_159, st_4);
9119  memset (b_27, 32, 159);
9120 
9121  /* Line: 3211 : WRITE : cobxref.cbl */
9122  cob_set_location (st_1, 3211, st_126, st_159, st_13);
9123  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9124  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9125  {
9126  /* PERFORM Default Error Handler */
9127  frame_ptr++;
9128  if (unlikely(frame_ptr == frame_overflow))
9129  cob_fatal_error (COB_FERROR_STACK);
9130  frame_ptr->perform_through = 1;
9131  frame_ptr->return_address_ptr = &&l_409;
9132  goto l_1;
9133  l_409:
9134  frame_ptr--;
9135  }
9136 
9137  /* Line: 3212 : ADD : cobxref.cbl */
9138  cob_set_location (st_1, 3212, st_126, st_159, st_22);
9139  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 3);
9140 
9141  /* Line: 3213 : GO TO : cobxref.cbl */
9142  cob_set_location (st_1, 3213, st_126, st_159, st_16);
9143  goto l_142;
9144 
9145  /* Line: 3214 : Paragraph zz150-WriteHdb8 : cobxref.cbl */
9146  l_141:;
9147 
9148  /* Line: 3215 : WRITE : cobxref.cbl */
9149  cob_set_location (st_1, 3215, st_126, st_160, st_13);
9150  cob_move (&f_155, &f_11);
9151  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9152  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9153  {
9154  /* PERFORM Default Error Handler */
9155  frame_ptr++;
9156  if (unlikely(frame_ptr == frame_overflow))
9157  cob_fatal_error (COB_FERROR_STACK);
9158  frame_ptr->perform_through = 1;
9159  frame_ptr->return_address_ptr = &&l_410;
9160  goto l_1;
9161  l_410:
9162  frame_ptr--;
9163  }
9164 
9165  /* Line: 3216 : WRITE : cobxref.cbl */
9166  cob_set_location (st_1, 3216, st_126, st_160, st_13);
9167  cob_move (&f_158, &f_11);
9168  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9169  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9170  {
9171  /* PERFORM Default Error Handler */
9172  frame_ptr++;
9173  if (unlikely(frame_ptr == frame_overflow))
9174  cob_fatal_error (COB_FERROR_STACK);
9175  frame_ptr->perform_through = 1;
9176  frame_ptr->return_address_ptr = &&l_411;
9177  goto l_1;
9178  l_411:
9179  frame_ptr--;
9180  }
9181 
9182  /* Line: 3217 : MOVE : cobxref.cbl */
9183  cob_set_location (st_1, 3217, st_126, st_160, st_4);
9184  memset (b_27, 32, 159);
9185 
9186  /* Line: 3218 : WRITE : cobxref.cbl */
9187  cob_set_location (st_1, 3218, st_126, st_160, st_13);
9188  cob_write (h_SOURCE_LISTING, &f_11, 0x210001, NULL, 0);
9189  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9190  {
9191  /* PERFORM Default Error Handler */
9192  frame_ptr++;
9193  if (unlikely(frame_ptr == frame_overflow))
9194  cob_fatal_error (COB_FERROR_STACK);
9195  frame_ptr->perform_through = 1;
9196  frame_ptr->return_address_ptr = &&l_412;
9197  goto l_1;
9198  l_412:
9199  frame_ptr--;
9200  }
9201 
9202  /* Line: 3219 : ADD : cobxref.cbl */
9203  cob_set_location (st_1, 3219, st_126, st_160, st_22);
9204  (*(cob_s8_ptr) (b_45)) = ((*(cob_s8_ptr) (b_45)) + 3);
9205 
9206  /* Line: 3220 : GO TO : cobxref.cbl */
9207  cob_set_location (st_1, 3220, st_126, st_160, st_16);
9208  goto l_142;
9209 
9210  /* Line: 3221 : Paragraph zz150-Exit : cobxref.cbl */
9211  l_142:;
9212 
9213  /* Line: 3222 : EXIT : cobxref.cbl */
9214  cob_set_location (st_1, 3222, st_126, st_161, st_26);
9215 
9216  /* Implicit PERFORM return */
9217  if (frame_ptr->perform_through == 142)
9218  goto *frame_ptr->return_address_ptr;
9219 
9220  /* Line: 3224 : Paragraph zz160-Clean-Number : cobxref.cbl */
9221  l_143:;
9222 
9223  /* Line: 3225 : MOVE : cobxref.cbl */
9224  cob_set_location (st_1, 3225, st_126, st_162, st_4);
9225  memset (b_95, 48, 2);
9226 
9227  /* Line: 3226 : IF : cobxref.cbl */
9228  cob_set_location (st_1, 3226, st_126, st_162, st_6);
9229  if (((int)cob_cmp_s32 (b_48, 1LL) == 0))
9230  {
9231 
9232  /* Line: 3227 : MOVE : cobxref.cbl */
9233  cob_set_location (st_1, 3227, st_126, st_162, st_4);
9234  cob_move (&f_139, &f_95);
9235 
9236  /* Line: 3228 : GO TO : cobxref.cbl */
9237  cob_set_location (st_1, 3228, st_126, st_162, st_16);
9238  goto l_144;
9239  }
9240 
9241  /* Line: 3229 : IF : cobxref.cbl */
9242  cob_set_location (st_1, 3229, st_126, st_162, st_6);
9243  if (((int)cob_cmp_s32 (b_48, 2LL) == 0))
9244  {
9245 
9246  /* Line: 3230 : COMPUTE : cobxref.cbl */
9247  cob_set_location (st_1, 3230, st_126, st_162, st_163);
9248  cob_decimal_set_field (d0, &f_139);
9249  cob_decimal_set_llint (d1, 10LL);
9250  cob_decimal_mul (d0, d1);
9251  cob_decimal_set_field (d1, &f_141);
9252  cob_decimal_add (d0, d1);
9253  cob_decimal_get_field (d0, &f_95, 0);
9254  }
9255 
9256  /* Line: 3231 : Paragraph zz160-Exit : cobxref.cbl */
9257  l_144:;
9258 
9259  /* Line: 3232 : EXIT : cobxref.cbl */
9260  cob_set_location (st_1, 3232, st_126, st_164, st_26);
9261 
9262  /* Implicit PERFORM return */
9263  if (frame_ptr->perform_through == 144)
9264  goto *frame_ptr->return_address_ptr;
9265 
9266  /* Line: 3234 : Paragraph zz170-Check-4-Section : cobxref.cbl */
9267  l_145:;
9268 
9269  /* Line: 3235 : MOVE : cobxref.cbl */
9270  cob_set_location (st_1, 3235, st_126, st_165, st_4);
9271  *(b_105) = 32;
9272 
9273  /* Line: 3236 : IF : cobxref.cbl */
9274  cob_set_location (st_1, 3236, st_126, st_165, st_6);
9275  if (((int)cob_cmp_numdisp (b_100, 1, 8LL, 0) == 0))
9276  {
9277 
9278  /* Line: 3237 : GO TO : cobxref.cbl */
9279  cob_set_location (st_1, 3237, st_126, st_165, st_16);
9280  goto l_147;
9281  }
9282 
9283  /* Line: 3239 : PERFORM : cobxref.cbl */
9284  cob_set_location (st_1, 3239, st_126, st_165, st_3);
9285  (*(cob_s8_ptr) (b_57)) = 1;
9286  for (;;)
9287  {
9288  if (((int)cob_cmp_s8 (b_57, 8LL) > 0))
9289  break;
9290 
9291  /* Line: 3240 : IF : cobxref.cbl */
9292  cob_set_location (st_1, 3240, st_126, st_165, st_6);
9293  if (((int)memcmp (b_127, b_244 + 24 * ((*(cob_s8_ptr) (b_57)) - 1), 16) == 0))
9294  {
9295 
9296  /* Line: 3241 : MOVE : cobxref.cbl */
9297  cob_set_location (st_1, 3241, st_126, st_165, st_4);
9298  cob_move (&f_57, &f_100);
9299 
9300  /* Line: 3242 : MOVE : cobxref.cbl */
9301  cob_set_location (st_1, 3242, st_126, st_165, st_4);
9302  *(b_105) = 89;
9303 
9304  /* Line: 3243 : IF : cobxref.cbl */
9305  cob_set_location (st_1, 3243, st_126, st_165, st_6);
9306  if (((int)(int)(*(b_77) - 89) == 0))
9307  {
9308 
9309  /* Line: 3243 : DISPLAY : cobxref.cbl */
9310  cob_set_location (st_1, 3243, st_126, st_165, st_7);
9311  cob_display (0, 1, 2, &c_55, &f_128);
9312  }
9313 
9314  /* Line: 3244 : IF : cobxref.cbl */
9315  cob_set_location (st_1, 3244, st_126, st_165, st_6);
9316  if (((int)cob_cmp_s8 (b_57, 8LL) == 0))
9317  {
9318 
9319  /* Line: 3245 : MOVE : cobxref.cbl */
9320  cob_set_location (st_1, 3245, st_126, st_165, st_4);
9321  *(b_101) = 48;
9322  }
9323 
9324  /* Line: 3247 : EXIT PERFORM : cobxref.cbl */
9325  cob_set_location (st_1, 3247, st_126, st_165, st_24);
9326  goto l_146;
9327  }
9328  (*(cob_s8_ptr) (b_57)) = ((*(cob_s8_ptr) (b_57)) + 1);
9329  }
9330 
9331  /* Implicit EXIT label */
9332  l_146:;
9333 
9334  /* Line: 3253 : IF : cobxref.cbl */
9335  cob_set_location (st_1, 3253, st_126, st_165, st_6);
9336  if (((int)(int)(*(b_105) - 89) == 0))
9337  {
9338 
9339  /* Line: 3254 : MOVE : cobxref.cbl */
9340  cob_set_location (st_1, 3254, st_126, st_165, st_4);
9341  *(b_89) = 48;
9342  }
9343 
9344  /* Line: 3255 : Paragraph zz170-Exit : cobxref.cbl */
9345  l_147:;
9346 
9347  /* Line: 3256 : EXIT : cobxref.cbl */
9348  cob_set_location (st_1, 3256, st_126, st_166, st_26);
9349 
9350  /* Implicit PERFORM return */
9351  if (frame_ptr->perform_through == 147)
9352  goto *frame_ptr->return_address_ptr;
9353 
9354  /* Line: 3258 : Paragraph zz180-Open-Source-File : cobxref.cbl */
9355  l_148:;
9356 
9357  /* Line: 3262 : ACCEPT : cobxref.cbl */
9358  cob_set_location (st_1, 3262, st_126, st_167, st_151);
9359  cob_accept_arg_number (&f_93);
9360 
9361  /* Line: 3263 : IF : cobxref.cbl */
9362  cob_set_location (st_1, 3263, st_126, st_167, st_6);
9363  if (((int)cob_cmp_numdisp (b_93, 2, 0, 0) > 0))
9364  {
9365 
9366  /* Line: 3264 : MOVE : cobxref.cbl */
9367  cob_set_location (st_1, 3264, st_126, st_167, st_4);
9368  (*(int *)(b_41)) = 0;
9369 
9370  /* Line: 3265 : PERFORM : cobxref.cbl */
9371  cob_set_location (st_1, 3265, st_126, st_167, st_3);
9372  for (n1 = cob_get_llint (&f_93); n1 > 0; n1--)
9373  {
9374  /* PERFORM zz180-Get-Program-Args */
9375  frame_ptr++;
9376  if (unlikely(frame_ptr == frame_overflow))
9377  cob_fatal_error (COB_FERROR_STACK);
9378  frame_ptr->perform_through = 150;
9379  frame_ptr->return_address_ptr = &&l_413;
9380  goto l_150;
9381  l_413:
9382  frame_ptr--;
9383  }
9384  }
9385  else
9386  {
9387  /* ELSE */
9388 
9389  /* Line: 3266 : GO TO : cobxref.cbl */
9390  cob_set_location (st_1, 3266, st_126, st_167, st_16);
9391  goto l_149;
9392  }
9393 
9394  /* Line: 3270 : MOVE : cobxref.cbl */
9395  cob_set_location (st_1, 3270, st_126, st_167, st_4);
9396  (*(int *)(b_41)) = 1;
9397 
9398  /* Line: 3271 : UNSTRING : cobxref.cbl */
9399  cob_set_location (st_1, 3271, st_126, st_167, st_17);
9400  cob_unstring_init (COB_SET_FLD(f0, 128, b_242 + 128 * 0, &a_4), &f_41, 1);
9401  cob_unstring_delimited (&cob_all_space, 0);
9402  cob_unstring_into (&f_114, 0, 0);
9403  cob_unstring_finish ();
9404 
9405  /* Line: 3275 : PERFORM : cobxref.cbl */
9406  cob_set_location (st_1, 3275, st_126, st_167, st_3);
9407  /* PERFORM zz182-Get-Env-Set-TempFiles THRU zz182-Exit */
9408  frame_ptr++;
9409  if (unlikely(frame_ptr == frame_overflow))
9410  cob_fatal_error (COB_FERROR_STACK);
9411  frame_ptr->perform_through = 152;
9412  frame_ptr->return_address_ptr = &&l_414;
9413  goto l_151;
9414  l_414:
9415  frame_ptr--;
9416 
9417  /* Line: 3277 : Paragraph zz180-Check-For-Param-Errors: cobxref.cbl */
9418  l_149:;
9419 
9420  /* Line: 3278 : IF : cobxref.cbl */
9421  cob_set_location (st_1, 3278, st_126, st_168, st_6);
9422  if ((((int)cob_cmp (&f_114, &cob_all_space) == 0) ||
9423  ((int)cob_cmp_s32 (b_41, 5LL) < 0)))
9424  {
9425 
9426  /* Line: 3280 : DISPLAY : cobxref.cbl */
9427  cob_set_location (st_1, 3280, st_126, st_168, st_7);
9428  cob_display (0, 1, 1, &f_40);
9429 
9430  /* Line: 3281 : MOVE : cobxref.cbl */
9431  cob_set_location (st_1, 3281, st_126, st_168, st_4);
9432  cob_move (cob_intr_current_date (0, 0), &f_217);
9433 
9434  /* Line: 3282 : DISPLAY : cobxref.cbl */
9435  cob_set_location (st_1, 3282, st_126, st_168, st_7);
9436  cob_display (0, 0, 1, &c_56);
9437 
9438  /* Line: 3283 : DISPLAY : cobxref.cbl */
9439  cob_set_location (st_1, 3283, st_126, st_168, st_7);
9440  cob_display (0, 0, 1, &f_218);
9441 
9442  /* Line: 3284 : DISPLAY : cobxref.cbl */
9443  cob_set_location (st_1, 3284, st_126, st_168, st_7);
9444  cob_display (0, 1, 1, &c_57);
9445 
9446  /* Line: 3285 : DISPLAY : cobxref.cbl */
9447  cob_set_location (st_1, 3285, st_126, st_168, st_7);
9448  cob_display (0, 1, 1, &c_35);
9449 
9450  /* Line: 3286 : DISPLAY : cobxref.cbl */
9451  cob_set_location (st_1, 3286, st_126, st_168, st_7);
9452  cob_display (0, 1, 1, &c_58);
9453 
9454  /* Line: 3287 : DISPLAY : cobxref.cbl */
9455  cob_set_location (st_1, 3287, st_126, st_168, st_7);
9456  cob_display (0, 1, 1, &c_35);
9457 
9458  /* Line: 3288 : DISPLAY : cobxref.cbl */
9459  cob_set_location (st_1, 3288, st_126, st_168, st_7);
9460  cob_display (0, 1, 1, &c_59);
9461 
9462  /* Line: 3289 : DISPLAY : cobxref.cbl */
9463  cob_set_location (st_1, 3289, st_126, st_168, st_7);
9464  cob_display (0, 1, 1, &c_60);
9465 
9466  /* Line: 3290 : DISPLAY : cobxref.cbl */
9467  cob_set_location (st_1, 3290, st_126, st_168, st_7);
9468  cob_display (0, 1, 1, &c_61);
9469 
9470  /* Line: 3291 : DISPLAY : cobxref.cbl */
9471  cob_set_location (st_1, 3291, st_126, st_168, st_7);
9472  cob_display (0, 1, 1, &c_62);
9473 
9474  /* Line: 3292 : DISPLAY : cobxref.cbl */
9475  cob_set_location (st_1, 3292, st_126, st_168, st_7);
9476  cob_display (0, 1, 1, &c_63);
9477 
9478  /* Line: 3293 : DISPLAY : cobxref.cbl */
9479  cob_set_location (st_1, 3293, st_126, st_168, st_7);
9480  cob_display (0, 1, 1, &c_64);
9481 
9482  /* Line: 3294 : DISPLAY : cobxref.cbl */
9483  cob_set_location (st_1, 3294, st_126, st_168, st_7);
9484  cob_display (0, 1, 1, &c_65);
9485 
9486  /* Line: 3295 : DISPLAY : cobxref.cbl */
9487  cob_set_location (st_1, 3295, st_126, st_168, st_7);
9488  cob_display (0, 1, 1, &c_66);
9489 
9490  /* Line: 3296 : MOVE : cobxref.cbl */
9491  cob_set_location (st_1, 3296, st_126, st_168, st_4);
9492  b_1 = 0;
9493 
9494  /* Line: 3297 : GOBACK : cobxref.cbl */
9495  cob_set_location (st_1, 3297, st_126, st_168, st_9);
9496  goto exit_program;
9497  }
9498 
9499  /* Line: 3299 : MOVE : cobxref.cbl */
9500  cob_set_location (st_1, 3299, st_126, st_168, st_4);
9501  (*(int *)(b_41)) = 1;
9502  (*(int *)(b_42)) = 1;
9503 
9504  /* Line: 3300 : PERFORM : cobxref.cbl */
9505  cob_set_location (st_1, 3300, st_126, st_168, st_3);
9506  (*(int *)(b_55)) = 1024;
9507  for (;;)
9508  {
9509  if (((int)(int)(*(b_114 + ((*(int *)(b_55)) - 1)) - ' ') != 0))
9510  break;
9511  ;
9512  (*(int *)(b_55)) = ((*(int *)(b_55)) + -1);
9513  }
9514 
9515  /* Line: 3302 : MOVE : cobxref.cbl */
9516  cob_set_location (st_1, 3302, st_126, st_168, st_4);
9517  memcpy (b_58, b_55, 4);
9518 
9519  /* Line: 3303 : PERFORM : cobxref.cbl */
9520  cob_set_location (st_1, 3303, st_126, st_168, st_3);
9521  memmove (b_58, b_58, 4);
9522  for (;;)
9523  {
9524  if ((((int)cob_cmp_s32 (b_58, 2LL) < 0) ||
9525  ((int)(int)(*(b_114 + ((*(int *)(b_58)) - 1)) - 46) == 0)))
9526  break;
9527  ;
9528  (*(int *)(b_58)) = ((*(int *)(b_58)) + -1);
9529  }
9530 
9531  /* Line: 3305 : IF : cobxref.cbl */
9532  cob_set_location (st_1, 3305, st_126, st_168, st_6);
9533  if (((int)cob_cmp_s32 (b_58, 2LL) >= 0))
9534  {
9535 
9536  /* Line: 3306 : SUBTRACT : cobxref.cbl */
9537  cob_set_location (st_1, 3306, st_126, st_168, st_55);
9538  (*(int *)(b_58)) = ((*(int *)(b_58)) - 1);
9539 
9540  /* Line: 3307 : MOVE : cobxref.cbl */
9541  cob_set_location (st_1, 3307, st_126, st_168, st_4);
9542  cob_move (COB_SET_FLD(f0, (*(int *)(b_58)), b_114 + 0, &a_4), &f_116);
9543 
9544  /* Line: 3308 : ADD : cobxref.cbl */
9545  cob_set_location (st_1, 3308, st_126, st_168, st_22);
9546  (*(int *)(b_58)) = ((*(int *)(b_58)) + 1);
9547  }
9548 
9549  /* Line: 3313 : IF : cobxref.cbl */
9550  cob_set_location (st_1, 3313, st_126, st_168, st_6);
9551  if (((int)memcmp (b_116, b_114, 1024) == 0))
9552  {
9553 
9554  /* Line: 3314 : STRING : cobxref.cbl */
9555  cob_set_location (st_1, 3314, st_126, st_168, st_54);
9556  cob_string_init (&f_114, NULL);
9557  cob_string_delimited (&cob_all_space);
9558  cob_string_append (&f_116);
9559  cob_string_delimited (NULL);
9560  cob_string_append ((cob_field *)&c_67);
9561  cob_string_finish ();
9562  }
9563 
9564  /* Line: 3316 : STRING : cobxref.cbl */
9565  cob_set_location (st_1, 3316, st_126, st_168, st_54);
9566  cob_string_init (&f_115, &f_42);
9567  cob_string_delimited (&cob_all_space);
9568  cob_string_append (&f_116);
9569  cob_string_delimited (NULL);
9570  cob_string_append ((cob_field *)&c_68);
9571  cob_string_finish ();
9572 
9573  /* Line: 3322 : MOVE : cobxref.cbl */
9574  cob_set_location (st_1, 3322, st_126, st_168, st_4);
9575  cob_move (cob_intr_upper_case (0, 0, &f_242), &f_242);
9576 
9577  /* Line: 3326 : IF : cobxref.cbl */
9578  cob_set_location (st_1, 3326, st_126, st_168, st_6);
9579  if (((((((int)cob_cmp ((cob_field *)&c_69, COB_SET_FLD(f0, 128, b_242 + 128 * 1, &a_4)) == 0) ||
9580  ((int)cob_cmp ((cob_field *)&c_69, COB_SET_FLD(f1, 128, b_242 + 128 * 2, &a_4)) == 0)) ||
9581  ((int)cob_cmp ((cob_field *)&c_69, COB_SET_FLD(f2, 128, b_242 + 128 * 3, &a_4)) == 0)) ||
9582  ((int)cob_cmp ((cob_field *)&c_69, COB_SET_FLD(f3, 128, b_242 + 128 * 4, &a_4)) == 0)) ||
9583  ((int)cob_cmp ((cob_field *)&c_69, COB_SET_FLD(f4, 128, b_242 + 128 * 5, &a_4)) == 0)))
9584  {
9585 
9586  /* Line: 3328 : MOVE : cobxref.cbl */
9587  cob_set_location (st_1, 3328, st_126, st_168, st_4);
9588  (*(int *)(b_41)) = 0;
9589 
9590  /* Line: 3329 : GO TO : cobxref.cbl */
9591  cob_set_location (st_1, 3329, st_126, st_168, st_16);
9592  goto l_149;
9593  }
9594 
9595  /* Line: 3330 : IF : cobxref.cbl */
9596  cob_set_location (st_1, 3330, st_126, st_168, st_6);
9597  if (((((((int)cob_cmp ((cob_field *)&c_70, COB_SET_FLD(f0, 128, b_242 + 128 * 1, &a_4)) == 0) ||
9598  ((int)cob_cmp ((cob_field *)&c_70, COB_SET_FLD(f1, 128, b_242 + 128 * 2, &a_4)) == 0)) ||
9599  ((int)cob_cmp ((cob_field *)&c_70, COB_SET_FLD(f2, 128, b_242 + 128 * 3, &a_4)) == 0)) ||
9600  ((int)cob_cmp ((cob_field *)&c_70, COB_SET_FLD(f3, 128, b_242 + 128 * 4, &a_4)) == 0)) ||
9601  ((int)cob_cmp ((cob_field *)&c_70, COB_SET_FLD(f4, 128, b_242 + 128 * 5, &a_4)) == 0)))
9602  {
9603 
9604  /* Line: 3332 : MOVE : cobxref.cbl */
9605  cob_set_location (st_1, 3332, st_126, st_168, st_4);
9606  (*(int *)(b_41)) = 0;
9607 
9608  /* Line: 3333 : GO TO : cobxref.cbl */
9609  cob_set_location (st_1, 3333, st_126, st_168, st_16);
9610  goto l_149;
9611  }
9612 
9613  /* Line: 3337 : IF : cobxref.cbl */
9614  cob_set_location (st_1, 3337, st_126, st_168, st_6);
9615  if (((((((int)cob_cmp ((cob_field *)&c_71, COB_SET_FLD(f0, 128, b_242 + 128 * 1, &a_4)) == 0) ||
9616  ((int)cob_cmp ((cob_field *)&c_71, COB_SET_FLD(f1, 128, b_242 + 128 * 2, &a_4)) == 0)) ||
9617  ((int)cob_cmp ((cob_field *)&c_71, COB_SET_FLD(f2, 128, b_242 + 128 * 3, &a_4)) == 0)) ||
9618  ((int)cob_cmp ((cob_field *)&c_71, COB_SET_FLD(f3, 128, b_242 + 128 * 4, &a_4)) == 0)) ||
9619  ((int)cob_cmp ((cob_field *)&c_71, COB_SET_FLD(f4, 128, b_242 + 128 * 5, &a_4)) == 0)))
9620  {
9621 
9622  /* Line: 3339 : MOVE : cobxref.cbl */
9623  cob_set_location (st_1, 3339, st_126, st_168, st_4);
9624  *(b_73) = 78;
9625  }
9626 
9627  /* Line: 3343 : IF : cobxref.cbl */
9628  cob_set_location (st_1, 3343, st_126, st_168, st_6);
9629  if (((((((int)cob_cmp ((cob_field *)&c_72, COB_SET_FLD(f0, 128, b_242 + 128 * 1, &a_4)) == 0) ||
9630  ((int)cob_cmp ((cob_field *)&c_72, COB_SET_FLD(f1, 128, b_242 + 128 * 2, &a_4)) == 0)) ||
9631  ((int)cob_cmp ((cob_field *)&c_72, COB_SET_FLD(f2, 128, b_242 + 128 * 3, &a_4)) == 0)) ||
9632  ((int)cob_cmp ((cob_field *)&c_72, COB_SET_FLD(f3, 128, b_242 + 128 * 4, &a_4)) == 0)) ||
9633  ((int)cob_cmp ((cob_field *)&c_72, COB_SET_FLD(f4, 128, b_242 + 128 * 5, &a_4)) == 0)))
9634  {
9635 
9636  /* Line: 3345 : MOVE : cobxref.cbl */
9637  cob_set_location (st_1, 3345, st_126, st_168, st_4);
9638  *(b_75) = 49;
9639 
9640  /* Line: 3346 : GO TO : cobxref.cbl */
9641  cob_set_location (st_1, 3346, st_126, st_168, st_16);
9642  goto l_153;
9643  }
9644 
9645  /* Line: 3350 : IF : cobxref.cbl */
9646  cob_set_location (st_1, 3350, st_126, st_168, st_6);
9647  if (((((((int)cob_cmp ((cob_field *)&c_73, COB_SET_FLD(f0, 128, b_242 + 128 * 1, &a_4)) == 0) ||
9648  ((int)cob_cmp ((cob_field *)&c_73, COB_SET_FLD(f1, 128, b_242 + 128 * 2, &a_4)) == 0)) ||
9649  ((int)cob_cmp ((cob_field *)&c_73, COB_SET_FLD(f2, 128, b_242 + 128 * 3, &a_4)) == 0)) ||
9650  ((int)cob_cmp ((cob_field *)&c_73, COB_SET_FLD(f3, 128, b_242 + 128 * 4, &a_4)) == 0)) ||
9651  ((int)cob_cmp ((cob_field *)&c_73, COB_SET_FLD(f4, 128, b_242 + 128 * 5, &a_4)) == 0)))
9652  {
9653 
9654  /* Line: 3352 : DISPLAY : cobxref.cbl */
9655  cob_set_location (st_1, 3352, st_126, st_168, st_7);
9656  cob_display (0, 1, 1, &c_74);
9657 
9658  /* Line: 3353 : MOVE : cobxref.cbl */
9659  cob_set_location (st_1, 3353, st_126, st_168, st_4);
9660  *(b_77) = 89;
9661  }
9662 
9663  /* Line: 3357 : IF : cobxref.cbl */
9664  cob_set_location (st_1, 3357, st_126, st_168, st_6);
9665  if (((((((int)cob_cmp ((cob_field *)&c_75, COB_SET_FLD(f0, 128, b_242 + 128 * 1, &a_4)) == 0) ||
9666  ((int)cob_cmp ((cob_field *)&c_75, COB_SET_FLD(f1, 128, b_242 + 128 * 2, &a_4)) == 0)) ||
9667  ((int)cob_cmp ((cob_field *)&c_75, COB_SET_FLD(f2, 128, b_242 + 128 * 3, &a_4)) == 0)) ||
9668  ((int)cob_cmp ((cob_field *)&c_75, COB_SET_FLD(f3, 128, b_242 + 128 * 4, &a_4)) == 0)) ||
9669  ((int)cob_cmp ((cob_field *)&c_75, COB_SET_FLD(f4, 128, b_242 + 128 * 5, &a_4)) == 0)))
9670  {
9671 
9672  /* Line: 3359 : MOVE : cobxref.cbl */
9673  cob_set_location (st_1, 3359, st_126, st_168, st_4);
9674  *(b_79) = 49;
9675  }
9676 
9677  /* Line: 3366 : IF : cobxref.cbl */
9678  cob_set_location (st_1, 3366, st_126, st_168, st_6);
9679  if (((((((int)cob_cmp ((cob_field *)&c_76, COB_SET_FLD(f0, 128, b_242 + 128 * 1, &a_4)) == 0) ||
9680  ((int)cob_cmp ((cob_field *)&c_76, COB_SET_FLD(f1, 128, b_242 + 128 * 2, &a_4)) == 0)) ||
9681  ((int)cob_cmp ((cob_field *)&c_76, COB_SET_FLD(f2, 128, b_242 + 128 * 3, &a_4)) == 0)) ||
9682  ((int)cob_cmp ((cob_field *)&c_76, COB_SET_FLD(f3, 128, b_242 + 128 * 4, &a_4)) == 0)) ||
9683  ((int)cob_cmp ((cob_field *)&c_76, COB_SET_FLD(f4, 128, b_242 + 128 * 5, &a_4)) == 0)))
9684  {
9685 
9686  /* Line: 3368 : MOVE : cobxref.cbl */
9687  cob_set_location (st_1, 3368, st_126, st_168, st_4);
9688  *(b_71) = 65;
9689  }
9690 
9691  /* Line: 3372 : OPEN : cobxref.cbl */
9692  cob_set_location (st_1, 3372, st_126, st_168, st_10);
9693  cob_open (h_SOURCEINPUT, 1, 0, &f_113);
9694  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9695  {
9696  /* PERFORM Default Error Handler */
9697  frame_ptr++;
9698  if (unlikely(frame_ptr == frame_overflow))
9699  cob_fatal_error (COB_FERROR_STACK);
9700  frame_ptr->perform_through = 1;
9701  frame_ptr->return_address_ptr = &&l_415;
9702  goto l_1;
9703  l_415:
9704  frame_ptr--;
9705  }
9706 
9707  /* Line: 3373 : IF : cobxref.cbl */
9708  cob_set_location (st_1, 3373, st_126, st_168, st_6);
9709  if (((int)cob_cmp_numdisp (b_113, 2, 0, 0) != 0))
9710  {
9711 
9712  /* Line: 3374 : DISPLAY : cobxref.cbl */
9713  cob_set_location (st_1, 3374, st_126, st_168, st_7);
9714  cob_display (0, 1, 1, &f_232);
9715 
9716  /* Line: 3375 : MOVE : cobxref.cbl */
9717  cob_set_location (st_1, 3375, st_126, st_168, st_4);
9718  b_1 = 16;
9719 
9720  /* Line: 3376 : GOBACK : cobxref.cbl */
9721  cob_set_location (st_1, 3376, st_126, st_168, st_9);
9722  goto exit_program;
9723  }
9724 
9725  /* Line: 3377 : GO TO : cobxref.cbl */
9726  cob_set_location (st_1, 3377, st_126, st_168, st_16);
9727  goto l_153;
9728 
9729  /* Line: 3379 : Paragraph zz180-Get-Program-Args : cobxref.cbl */
9730  l_150:;
9731 
9732  /* Line: 3380 : ADD : cobxref.cbl */
9733  cob_set_location (st_1, 3380, st_126, st_169, st_22);
9734  (*(int *)(b_41)) = ((*(int *)(b_41)) + 1);
9735 
9736  /* Line: 3381 : ACCEPT : cobxref.cbl */
9737  cob_set_location (st_1, 3381, st_126, st_169, st_151);
9738  cob_accept_arg_value (COB_SET_FLD(f0, 128, b_242 + 128 * ((*(int *)(b_41)) - 1), &a_4));
9739 
9740  /* Implicit PERFORM return */
9741  if (frame_ptr->perform_through == 150)
9742  goto *frame_ptr->return_address_ptr;
9743 
9744  /* Line: 3383 : Paragraph zz182-Get-Env-Set-TempFiles: cobxref.cbl */
9745  l_151:;
9746 
9747  /* Line: 3385 : ACCEPT : cobxref.cbl */
9748  cob_set_location (st_1, 3385, st_126, st_170, st_151);
9749  cob_get_environment ((cob_field *)&c_77, &f_117);
9750 
9751  /* Line: 3386 : IF : cobxref.cbl */
9752  cob_set_location (st_1, 3386, st_126, st_170, st_6);
9753  if (((int)cob_cmp (&f_117, &cob_all_space) == 0))
9754  {
9755 
9756  /* Line: 3387 : ACCEPT : cobxref.cbl */
9757  cob_set_location (st_1, 3387, st_126, st_170, st_151);
9758  cob_get_environment ((cob_field *)&c_78, &f_117);
9759 
9760  /* Line: 3388 : IF : cobxref.cbl */
9761  cob_set_location (st_1, 3388, st_126, st_170, st_6);
9762  if (((int)cob_cmp (&f_117, &cob_all_space) == 0))
9763  {
9764 
9765  /* Line: 3389 : ACCEPT : cobxref.cbl */
9766  cob_set_location (st_1, 3389, st_126, st_170, st_151);
9767  cob_get_environment ((cob_field *)&c_79, &f_117);
9768 
9769  /* Line: 3390 : IF : cobxref.cbl */
9770  cob_set_location (st_1, 3390, st_126, st_170, st_6);
9771  if (((int)cob_cmp (&f_117, &cob_all_space) == 0))
9772  {
9773 
9774  /* Line: 3391 : MOVE : cobxref.cbl */
9775  cob_set_location (st_1, 3391, st_126, st_170, st_4);
9776  cob_move ((cob_field *)&c_80, &f_117);
9777  }
9778  }
9779  }
9780 
9781  /* Line: 3392 : IF : cobxref.cbl */
9782  cob_set_location (st_1, 3392, st_126, st_170, st_6);
9783  if (((int)(int)(*(b_117 + 0) - 47) == 0))
9784  {
9785 
9786  /* Line: 3393 : MOVE : cobxref.cbl */
9787  cob_set_location (st_1, 3393, st_126, st_170, st_4);
9788  *(b_104) = 47;
9789  }
9790 
9791  /* Line: 3394 : IF : cobxref.cbl */
9792  cob_set_location (st_1, 3394, st_126, st_170, st_6);
9793  if (((int)(int)(*(b_117 + 0) - 92) == 0))
9794  {
9795 
9796  /* Line: 3395 : INSPECT : cobxref.cbl */
9797  cob_set_location (st_1, 3395, st_126, st_170, st_40);
9798  cob_inspect_init (&f_117, 1);
9799  cob_inspect_start ();
9800  cob_inspect_all ((cob_field *)&c_81, (cob_field *)&c_82);
9801  cob_inspect_finish ();
9802 
9803  /* Line: 3396 : MOVE : cobxref.cbl */
9804  cob_set_location (st_1, 3396, st_126, st_170, st_4);
9805  *(b_104) = 92;
9806  }
9807 
9808  /* Line: 3397 : STRING : cobxref.cbl */
9809  cob_set_location (st_1, 3397, st_126, st_170, st_54);
9810  cob_string_init (&f_118, NULL);
9811  cob_string_delimited (&cob_all_space);
9812  cob_string_append (&f_117);
9813  cob_string_delimited (NULL);
9814  cob_string_append (&f_104);
9815  cob_string_delimited (NULL);
9816  cob_string_append ((cob_field *)&c_83);
9817  cob_string_finish ();
9818 
9819  /* Line: 3400 : STRING : cobxref.cbl */
9820  cob_set_location (st_1, 3400, st_126, st_170, st_54);
9821  cob_string_init (&f_119, NULL);
9822  cob_string_delimited (&cob_all_space);
9823  cob_string_append (&f_117);
9824  cob_string_delimited (NULL);
9825  cob_string_append (&f_104);
9826  cob_string_delimited (NULL);
9827  cob_string_append ((cob_field *)&c_84);
9828  cob_string_finish ();
9829 
9830  /* Line: 3403 : STRING : cobxref.cbl */
9831  cob_set_location (st_1, 3403, st_126, st_170, st_54);
9832  cob_string_init (&f_120, NULL);
9833  cob_string_delimited (&cob_all_space);
9834  cob_string_append (&f_117);
9835  cob_string_delimited (NULL);
9836  cob_string_append (&f_104);
9837  cob_string_delimited (NULL);
9838  cob_string_append ((cob_field *)&c_85);
9839  cob_string_finish ();
9840 
9841  /* Line: 3406 : IF : cobxref.cbl */
9842  cob_set_location (st_1, 3406, st_126, st_170, st_6);
9843  if (((int)(int)(*(b_77) - 89) == 0))
9844  {
9845 
9846  /* Line: 3407 : DISPLAY : cobxref.cbl */
9847  cob_set_location (st_1, 3407, st_126, st_170, st_7);
9848  cob_display (0, 1, 2, &c_86, &f_117);
9849  }
9850 
9851  /* Line: 3408 : Paragraph zz182-Exit : cobxref.cbl */
9852  l_152:;
9853 
9854  /* Line: 3409 : EXIT : cobxref.cbl */
9855  cob_set_location (st_1, 3409, st_126, st_171, st_26);
9856 
9857  /* Implicit PERFORM return */
9858  if (frame_ptr->perform_through == 152)
9859  goto *frame_ptr->return_address_ptr;
9860 
9861  /* Line: 3411 : Paragraph zz180-Exit : cobxref.cbl */
9862  l_153:;
9863 
9864  /* Line: 3412 : EXIT : cobxref.cbl */
9865  cob_set_location (st_1, 3412, st_126, st_172, st_26);
9866 
9867  /* Implicit PERFORM return */
9868  if (frame_ptr->perform_through == 153)
9869  goto *frame_ptr->return_address_ptr;
9870 
9871  /* Line: 3414 : Paragraph zz190-Init-Program : cobxref.cbl */
9872  l_154:;
9873 
9874  /* Line: 3420 : MOVE : cobxref.cbl */
9875  cob_set_location (st_1, 3420, st_126, st_173, st_4);
9876  memset (b_27, 32, 159);
9877  memset (b_121, 32, 32);
9878  memset (b_35, 32, 40);
9879  memset (b_108, 32, 32);
9880  memset (b_114, 32, 1024);
9881  memset (b_115, 32, 1024);
9882  memset (b_146, 32, 32);
9883  memset (b_145, 32, 1024);
9884  memset (b_144, 32, 32);
9885  memset (b_143, 32, 32);
9886 
9887  /* Line: 3424 : MOVE : cobxref.cbl */
9888  cob_set_location (st_1, 3424, st_126, st_173, st_4);
9889  memset (b_955, 255, 66 * (*(int *)(b_961)));
9890 
9891  /* Line: 3425 : MOVE : cobxref.cbl */
9892  cob_set_location (st_1, 3425, st_126, st_173, st_4);
9893  (*(int *)(b_961)) = 10;
9894 
9895  /* Line: 3426 : MOVE : cobxref.cbl */
9896  cob_set_location (st_1, 3426, st_126, st_173, st_4);
9897  *(b_96) = 48;
9898  *(b_83) = 48;
9899  memset (b_240, 48, 9);
9900  *(b_100) = 48;
9901  *(b_101) = 48;
9902  (*(int *)(b_962)) = 0;
9903 
9904  /* Line: 3428 : MOVE : cobxref.cbl */
9905  cob_set_location (st_1, 3428, st_126, st_173, st_4);
9906  (*(int *)(b_43)) = 1;
9907  (*(int *)(b_52)) = 1;
9908  (*(int *)(b_44)) = 1;
9909 
9910  /* Line: 3429 : Paragraph zz190-Exit : cobxref.cbl */
9911  l_155:;
9912 
9913  /* Line: 3430 : EXIT : cobxref.cbl */
9914  cob_set_location (st_1, 3430, st_126, st_174, st_26);
9915 
9916  /* Implicit PERFORM return */
9917  if (frame_ptr->perform_through == 155)
9918  goto *frame_ptr->return_address_ptr;
9919 
9920  /* Line: 3432 : Paragraph zz200-Load-Git : cobxref.cbl */
9921  l_156:;
9922 
9923  /* Line: 3436 : IF : cobxref.cbl */
9924  cob_set_location (st_1, 3436, st_126, st_175, st_6);
9925  if (((int)cob_cmp_numdisp (b_123, 2, 99LL, 0) == 0))
9926  {
9927 
9928  /* Line: 3437 : GO TO : cobxref.cbl */
9929  cob_set_location (st_1, 3437, st_126, st_175, st_16);
9930  goto l_157;
9931  }
9932 
9933  /* Line: 3438 : ADD : cobxref.cbl */
9934  cob_set_location (st_1, 3438, st_126, st_175, st_22);
9935  (*(int *)(b_974)) = ((*(int *)(b_974)) + 1);
9936 
9937  /* Line: 3439 : IF : cobxref.cbl */
9938  cob_set_location (st_1, 3439, st_126, st_175, st_6);
9939  if ((((int)cob_cmp_s32 (b_974, (*(int *)(b_973))) > 0) &&
9940  ((int)cob_cmp_s32 (b_973, 10000LL) < 0)))
9941  {
9942 
9943  /* Line: 3441 : ADD : cobxref.cbl */
9944  cob_set_location (st_1, 3441, st_126, st_175, st_22);
9945  (*(int *)(b_973)) = ((*(int *)(b_973)) + 10);
9946  }
9947 
9948  /* Line: 3442 : IF : cobxref.cbl */
9949  cob_set_location (st_1, 3442, st_126, st_175, st_6);
9950  if (((int)cob_cmp_s32 (b_973, 10000LL) > 0))
9951  {
9952 
9953  /* Line: 3443 : MOVE : cobxref.cbl */
9954  cob_set_location (st_1, 3443, st_126, st_175, st_4);
9955  (*(int *)(b_973)) = 10001;
9956 
9957  /* Line: 3444 : DISPLAY : cobxref.cbl */
9958  cob_set_location (st_1, 3444, st_126, st_175, st_7);
9959  cob_display (0, 1, 1, &f_233);
9960 
9961  /* Line: 3445 : GO TO : cobxref.cbl */
9962  cob_set_location (st_1, 3445, st_126, st_175, st_16);
9963  goto l_157;
9964  }
9965 
9966  /* Line: 3446 : MOVE : cobxref.cbl */
9967  cob_set_location (st_1, 3446, st_126, st_175, st_4);
9968  memcpy (b_963 + 76 * ((*(int *)(b_974)) - 1), b_121, 32);
9969 
9970  /* Line: 3447 : MOVE : cobxref.cbl */
9971  cob_set_location (st_1, 3447, st_126, st_175, st_4);
9972  *(b_963 + 74 + 76 * ((*(int *)(b_974)) - 1)) = 32;
9973 
9974  /* Line: 3448 : MOVE : cobxref.cbl */
9975  cob_set_location (st_1, 3448, st_126, st_175, st_4);
9976  memcpy (b_963 + 64 + 76 * ((*(int *)(b_974)) - 1), b_122, 6);
9977 
9978  /* Line: 3449 : MOVE : cobxref.cbl */
9979  cob_set_location (st_1, 3449, st_126, st_175, st_4);
9980  memcpy (b_963 + 72 + 76 * ((*(int *)(b_974)) - 1), b_95, 2);
9981 
9982  /* Line: 3450 : MOVE : cobxref.cbl */
9983  cob_set_location (st_1, 3450, st_126, st_175, st_4);
9984  memcpy (b_963 + 32 + 76 * ((*(int *)(b_974)) - 1), b_125, 32);
9985 
9986  /* Line: 3451 : MOVE : cobxref.cbl */
9987  cob_set_location (st_1, 3451, st_126, st_175, st_4);
9988  *(b_963 + 70 + 76 * ((*(int *)(b_974)) - 1)) = *(b_100);
9989 
9990  /* Line: 3452 : MOVE : cobxref.cbl */
9991  cob_set_location (st_1, 3452, st_126, st_175, st_4);
9992  *(b_963 + 71 + 76 * ((*(int *)(b_974)) - 1)) = *(b_101);
9993 
9994  /* Line: 3453 : Paragraph zz200-Exit : cobxref.cbl */
9995  l_157:;
9996 
9997  /* Line: 3454 : EXIT : cobxref.cbl */
9998  cob_set_location (st_1, 3454, st_126, st_176, st_26);
9999 
10000  /* Implicit PERFORM return */
10001  if (frame_ptr->perform_through == 157)
10002  goto *frame_ptr->return_address_ptr;
10003 
10004  /* Line: 3456 : Paragraph zz310-Check-For-Globals : cobxref.cbl */
10005  l_158:;
10006 
10007  /* Line: 3458 : MOVE : cobxref.cbl */
10008  cob_set_location (st_1, 3458, st_126, st_177, st_4);
10009  (*(int *)(b_56)) = 0;
10010 
10011  /* Line: 3459 : PERFORM : cobxref.cbl */
10012  cob_set_location (st_1, 3459, st_126, st_177, st_3);
10013  (*(int *)(b_56)) = 1;
10014  for (;;)
10015  {
10016  if (((int)cob_cmp_s32 (b_56, (*(int *)(b_974))) > 0))
10017  break;
10018 
10019  /* Line: 3460 : IF : cobxref.cbl */
10020  cob_set_location (st_1, 3460, st_126, st_177, st_6);
10021  if (((int)memcmp (b_963 + 76 * ((*(int *)(b_56)) - 1), b_146, 32) == 0))
10022  {
10023 
10024  /* Line: 3461 : MOVE : cobxref.cbl */
10025  cob_set_location (st_1, 3461, st_126, st_177, st_4);
10026  *(b_963 + 74 + 76 * ((*(int *)(b_56)) - 1)) = 49;
10027 
10028  /* Line: 3462 : EXIT PERFORM : cobxref.cbl */
10029  cob_set_location (st_1, 3462, st_126, st_177, st_24);
10030  goto l_159;
10031  }
10032  (*(int *)(b_56)) = ((*(int *)(b_56)) + 1);
10033  }
10034 
10035  /* Implicit EXIT label */
10036  l_159:;
10037 
10038  /* Line: 3466 : Paragraph zz319-Exit : cobxref.cbl */
10039  l_160:;
10040 
10041  /* Line: 3467 : EXIT : cobxref.cbl */
10042  cob_set_location (st_1, 3467, st_126, st_178, st_26);
10043 
10044  /* Implicit PERFORM return */
10045  if (frame_ptr->perform_through == 160)
10046  goto *frame_ptr->return_address_ptr;
10047 
10048  /* Program exit */
10049 
10050  exit_program:
10051 
10052  /* Decrement module active count */
10053  if (module->module_active) {
10054  module->module_active--;
10055  }
10056 
10057  /* Pop module stack */
10058  cob_module_leave (module);
10059 
10060  /* Program return */
10061  return b_1;
10062 
10063 
10064  /* Paragraph Default Error Handler */
10065  l_1:;
10066 
10067  if (!(cob_glob_ptr->cob_error_file->flag_select_features & COB_SELECT_FILE_STATUS)) {
10068  cob_fatal_error (COB_FERROR_FILE);
10069  }
10070 
10071  /* Implicit Default Error Handler return */
10072  if (frame_ptr->perform_through == 1)
10073  goto *frame_ptr->return_address_ptr;
10074 
10075  /* Fatal error if reached */
10076  cob_fatal_error (COB_FERROR_CODEGEN);
10077 
10078 
10079  /* Program initialization */
10080  P_initialize:
10081 
10082  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);
10083 
10084  cob_module_path = cob_glob_ptr->cob_main_argv0;
10085 
10086  /* Initialize module structure */
10087  module->module_name = "cobxref";
10088  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
10089  module->module_source = COB_SOURCE_FILE;
10090  module->module_entry.funcptr = (void *(*)())cobxref;
10091  module->module_cancel.funcptr = (void *(*)())cobxref_;
10092  module->collating_sequence = NULL;
10093  module->crt_status = NULL;
10094  module->cursor_pos = NULL;
10095  module->module_ref_count = NULL;
10096  module->module_path = &cob_module_path;
10097  module->module_active = 0;
10098  module->module_date = COB_MODULE_DATE;
10099  module->module_time = COB_MODULE_TIME;
10100  module->module_type = 0;
10101  module->module_param_cnt = 0;
10102  module->module_returning = 0;
10103  module->ebcdic_sign = 0;
10104  module->decimal_point = '.';
10105  module->currency_symbol = '£';
10106  module->numeric_separator = ',';
10107  module->flag_filename_mapping = 1;
10108  module->flag_binary_truncate = 1;
10109  module->flag_pretty_display = 1;
10110  module->flag_host_sign = 0;
10111  module->flag_no_phys_canc = 1;
10112  module->flag_main = 1;
10113  module->flag_fold_call = 0;
10114  module->flag_exit_program = 0;
10115 
10116  /* Initialize cancel callback */
10117  cob_set_cancel (module);
10118 
10119  /* Initialize WORKING-STORAGE */
10120  b_1 = 0;
10121  (*(int *) (b_2)) = 0;
10122  b_365 = 1;
10123  b_951 = 1;
10124  memcpy (b_40, "Xref v1.01.15", 13);
10125  (*(int *)(b_41)) = 1;
10126  (*(int *)(b_42)) = 1;
10127  (*(int *)(b_43)) = 0;
10128  (*(int *)(b_44)) = 0;
10129  (*(cob_s8_ptr) (b_45)) = 70;
10130  (*(cob_s8_ptr) (b_46)) = 0;
10131  (*(cob_s8_ptr) (b_47)) = 0;
10132  (*(int *)(b_48)) = 0;
10133  (*(int *)(b_49)) = 0;
10134  (*(int *)(b_50)) = 0;
10135  (*(int *)(b_51)) = 0;
10136  (*(int *)(b_52)) = 0;
10137  (*(int *)(b_53)) = 0;
10138  (*(int *)(b_54)) = 0;
10139  (*(int *)(b_55)) = 0;
10140  (*(int *)(b_56)) = 0;
10141  (*(cob_s8_ptr) (b_57)) = 0;
10142  (*(int *)(b_58)) = 0;
10143  (*(int *)(b_59)) = 0;
10144  (*(int *)(b_60)) = 0;
10145  (*(int *)(b_61)) = 0;
10146  (*(int *)(b_62)) = 0;
10147  (*(int *)(b_63)) = 0;
10148  (*(int *)(b_64)) = 0;
10149  (*(int *)(b_65)) = 0;
10150  (*(int *)(b_66)) = 0;
10151  (*(int *)(b_67)) = 0;
10152  (*(int *)(b_68)) = 0;
10153  (*(int *)(b_69)) = 0;
10154  (*(int *)(b_70)) = 0;
10155  *(cob_u8_ptr)(b_71) = 78;
10156  *(cob_u8_ptr)(b_73) = 89;
10157  *(cob_u8_ptr)(b_75) = 48;
10158  *(cob_u8_ptr)(b_77) = 78;
10159  *(cob_u8_ptr)(b_79) = 48;
10160  *(b_83) = 48;
10161  *(cob_u8_ptr)(b_85) = 48;
10162  *(cob_u8_ptr)(b_87) = 48;
10163  *(cob_u8_ptr)(b_89) = 48;
10164  *(cob_u8_ptr)(b_91) = 48;
10165  memset (b_93, 48, 2);
10166  memset (b_94, 48, 6);
10167  memset (b_95, 48, 2);
10168  *(cob_u8_ptr)(b_96) = 48;
10169  *(cob_u8_ptr)(b_97) = 48;
10170  *(cob_u8_ptr)(b_98) = 48;
10171  *(cob_u8_ptr)(b_99) = 163;
10172  *(b_100) = 48;
10173  *(b_101) = 48;
10174  *(cob_u8_ptr)(b_102) = 32;
10175  *(cob_u8_ptr)(b_103) = 32;
10176  *(cob_u8_ptr)(b_104) = 32;
10177  *(cob_u8_ptr)(b_105) = 32;
10178  memset (b_106, 32, 40);
10179  memset (b_107, 32, 40);
10180  memset (b_108, 32, 32);
10181  memset (b_109, 32, 32);
10182  *(cob_u8_ptr)(b_110) = 48;
10183  *(cob_u8_ptr)(b_111) = 48;
10184  *(cob_u8_ptr)(b_112) = 48;
10185  memset (b_113, 48, 2);
10186  memset (b_114, 32, 1024);
10187  memset (b_115, 32, 1024);
10188  memset (b_116, 32, 1024);
10189  memset (b_117, 32, 1024);
10190  memset (b_118, 32, 1036);
10191  memset (b_119, 32, 1036);
10192  memset (b_120, 32, 1036);
10193  memset (b_121, 32, 32);
10194  memset (b_122, 48, 6);
10195  memset (b_123, 48, 2);
10196  *(cob_u8_ptr)(b_124) = 48;
10197  memset (b_125, 32, 32);
10198  memset (b_126, 32, 32);
10199  memset (b_127, 32, 1024);
10200  memset (b_130, 32, 1024);
10201  memset (b_143, 32, 32);
10202  memset (b_144, 32, 32);
10203  memset (b_145, 32, 1024);
10204  memset (b_146, 32, 32);
10205  memset (b_147, 32, 1024);
10206  memcpy (b_148, "ACS Cobol ", 10);
10207  memset (b_148 + 10, 32, 23);
10208  memcpy (b_148 + 33, "Dictionary File for ", 20);
10209  memset (b_148 + 53, 32, 32);
10210  memcpy (b_148 + 85, " Page ", 7);
10211  cob_move (&cob_all_zero, &f_154);
10212  memcpy (b_155, "All Data/Proc Names", 19);
10213  memset (b_155 + 19, 32, 14);
10214  memcpy (b_155 + 33, "Defn Reference ", 19);
10215  memset (b_158, 45, 32);
10216  *(cob_u8_ptr)(b_158 + 32) = 43;
10217  memset (b_158 + 33, 45, 63);
10218  memcpy (b_162, "Symbols of Module: ", 19);
10219  memset (b_162 + 19, 32, 67);
10220  memset (b_165, 45, 19);
10221  memset (b_165 + 19, 32, 67);
10222  memcpy (b_168, "Data Section (", 14);
10223  memset (b_168 + 14, 32, 19);
10224  memcpy (b_168 + 33, "Defn", 4);
10225  memset (b_168 + 33 + 4, 32, 4);
10226  memcpy (b_168 + 41, "Locations", 9);
10227  memcpy (b_173, "Procedure", 9);
10228  memset (b_173 + 9, 32, 24);
10229  memcpy (b_173 + 33, "Defn", 4);
10230  memset (b_173 + 33 + 4, 32, 4);
10231  memcpy (b_173 + 41, "Locations", 9);
10232  memcpy (b_178, "Unreferenced Working Storage Symbols", 36);
10233  memcpy (b_180, "Unreferenced Globals throughout Source", 38);
10234  memcpy (b_182, "Unreferenced Procedures", 23);
10235  memcpy (b_184, "Variable Tested ", 16);
10236  memset (b_184 + 16, 32, 3);
10237  memset (b_184 + 19, 32, 12);
10238  memcpy (b_184 + 31, "Symbol (", 8);
10239  memcpy (b_184 + 39, "88-Conditions) ", 15);
10240  memset (b_184 + 54, 32, 3);
10241  memset (b_184 + 57, 32, 5);
10242  memset (b_192, 45, 62);
10243  memset (b_194, 32, 8);
10244  memset (b_199, 32, 6);
10245  memset (b_203, 32, 2);
10246  *(cob_u8_ptr)(b_203 + 2) = 47;
10247  memset (b_203 + 3, 32, 2);
10248  *(cob_u8_ptr)(b_203 + 5) = 47;
10249  memset (b_203 + 6, 32, 2);
10250  memset (b_203 + 8, 32, 2);
10251  memset (b_203 + 10, 32, 2);
10252  *(cob_u8_ptr)(b_203 + 12) = 58;
10253  memset (b_203 + 13, 32, 2);
10254  *(cob_u8_ptr)(b_203 + 15) = 58;
10255  memset (b_203 + 16, 32, 2);
10256  *(cob_u8_ptr)(b_203 + 18) = 58;
10257  memset (b_203 + 19, 32, 2);
10258  memset (b_217, 48, 12);
10259  memset (b_217 + 12, 32, 9);
10260  memcpy (b_224, "Msg1 Aborting: No input stream", 31);
10261  memcpy (b_224 + 31, "Msg2 Aborting: Early eof on source", 35);
10262  memcpy (b_224 + 66, "Msg4 Logic Error:Lost1 wsFoundWord2 numeric\? = ", 48);
10263  memcpy (b_224 + 114, "Msg5 Logic Error:Lost2 wsFoundWord2 =", 38);
10264  memcpy (b_224 + 152, "Msg6 Error: Con table size needs > 5", 37);
10265  memset (b_224 + 152 + 37, 48, 3);
10266  memcpy (b_224 + 192, "Msg7 bb050 Error: Logic error", 30);
10267  memcpy (b_224 + 222, "Msg8 Error: Eof on source again", 32);
10268  memcpy (b_224 + 254, "Msg9 Error: File not present Try Again!", 40);
10269  memcpy (b_224 + 294, "Msg10 Error: Git Table size exceeds 10,", 39);
10270  memset (b_224 + 294 + 39, 48, 3);
10271  memcpy (b_224 + 336, "Msg16 Error: Eof on source possible logic error at aa047 ASSUMING again", 71);
10272  memcpy (b_224 + 407, "Msg17 Possible prob. with cobc and therefore with no reserved word list updates", 79);
10273  memcpy (b_236, "FWLKCRSPI", 9);
10274  memset (b_240, 48, 9);
10275  memset (b_242, 32, 768);
10276  memcpy (b_244, "FILE SECTION.", 13);
10277  memset (b_244 + 13, 32, 11);
10278  memcpy (b_244 + 24, "WORKING-STORAGE SECTION.", 24);
10279  memcpy (b_244 + 48, "LOCAL-STORAGE SECTION. ", 24);
10280  memcpy (b_244 + 72, "LINKAGE SECTION.", 16);
10281  memset (b_244 + 72 + 16, 32, 8);
10282  memcpy (b_244 + 96, "COMMUNICATION SECTION. ", 24);
10283  memcpy (b_244 + 120, "REPORT SECTION.", 15);
10284  memset (b_244 + 120 + 15, 32, 9);
10285  memcpy (b_244 + 144, "SCREEN SECTION.", 15);
10286  memset (b_244 + 144 + 15, 32, 9);
10287  memcpy (b_244 + 168, "PROCEDURE DIVISION.", 19);
10288  memset (b_244 + 168 + 19, 32, 5);
10289  memcpy (b_257, "FILE", 4);
10290  memset (b_257 + 4, 32, 12);
10291  memcpy (b_257 + 16, "WORKING-STORAGE ", 16);
10292  memcpy (b_257 + 32, "LOCAL-STORAGE", 13);
10293  memset (b_257 + 32 + 13, 32, 3);
10294  memcpy (b_257 + 48, "LINKAGE", 7);
10295  memset (b_257 + 48 + 7, 32, 9);
10296  memcpy (b_257 + 64, "COMMUNICATION", 13);
10297  memset (b_257 + 64 + 13, 32, 3);
10298  memcpy (b_257 + 80, "REPORT", 6);
10299  memset (b_257 + 80 + 6, 32, 10);
10300  memcpy (b_257 + 96, "SCREEN", 6);
10301  memset (b_257 + 96 + 6, 32, 10);
10302  memcpy (b_257 + 112, "PROCEDURE", 9);
10303  memset (b_257 + 112 + 9, 32, 7);
10304  memcpy (b_269, "1ABS", 4);
10305  memset (b_269 + 4, 32, 27);
10306  memcpy (b_269 + 31, "1ACOS", 5);
10307  memset (b_269 + 31 + 5, 32, 26);
10308  memcpy (b_269 + 62, "1ANNUITY", 8);
10309  memset (b_269 + 62 + 8, 32, 23);
10310  memcpy (b_269 + 93, "1ASIN", 5);
10311  memset (b_269 + 93 + 5, 32, 26);
10312  memcpy (b_269 + 124, "1ATAN", 5);
10313  memset (b_269 + 124 + 5, 32, 26);
10314  memcpy (b_269 + 155, "0BOOLEAN-OF-INTEGER", 19);
10315  memset (b_269 + 155 + 19, 32, 12);
10316  memcpy (b_269 + 186, "1BYTE-LENGTH", 12);
10317  memset (b_269 + 186 + 12, 32, 19);
10318  memcpy (b_269 + 217, "1CHAR", 5);
10319  memset (b_269 + 217 + 5, 32, 26);
10320  memcpy (b_269 + 248, "0CHAR-NATIONAL", 14);
10321  memset (b_269 + 248 + 14, 32, 17);
10322  memcpy (b_269 + 279, "1COMBINED-DATETIME", 18);
10323  memset (b_269 + 279 + 18, 32, 13);
10324  memcpy (b_269 + 310, "1CONCATENATE", 12);
10325  memset (b_269 + 310 + 12, 32, 19);
10326  memcpy (b_269 + 341, "1COS", 4);
10327  memset (b_269 + 341 + 4, 32, 27);
10328  memcpy (b_269 + 372, "1CURRENT-DATE", 13);
10329  memset (b_269 + 372 + 13, 32, 18);
10330  memcpy (b_269 + 403, "1DATE-OF-INTEGER", 16);
10331  memset (b_269 + 403 + 16, 32, 15);
10332  memcpy (b_269 + 434, "1DATE-TO-YYYYMMDD", 17);
10333  memset (b_269 + 434 + 17, 32, 14);
10334  memcpy (b_269 + 465, "1DAY-OF-INTEGER", 15);
10335  memset (b_269 + 465 + 15, 32, 16);
10336  memcpy (b_269 + 496, "1DAY-TO-YYYYDDD", 15);
10337  memset (b_269 + 496 + 15, 32, 16);
10338  memcpy (b_269 + 527, "0DISPLAY-OF", 11);
10339  memset (b_269 + 527 + 11, 32, 20);
10340  memcpy (b_269 + 558, "1EXCEPTION-FILE", 15);
10341  memset (b_269 + 558 + 15, 32, 16);
10342  memcpy (b_269 + 589, "0EXCEPTION-FILE-N", 17);
10343  memset (b_269 + 589 + 17, 32, 14);
10344  memcpy (b_269 + 620, "1EXCEPTION-LOCATION", 19);
10345  memset (b_269 + 620 + 19, 32, 12);
10346  memcpy (b_269 + 651, "0EXCEPTION-LOCATION-N", 21);
10347  memset (b_269 + 651 + 21, 32, 10);
10348  memcpy (b_269 + 682, "1EXCEPTION-STATEMENT", 20);
10349  memset (b_269 + 682 + 20, 32, 11);
10350  memcpy (b_269 + 713, "1EXCEPTION-STATUS", 17);
10351  memset (b_269 + 713 + 17, 32, 14);
10352  memcpy (b_269 + 744, "1EXP", 4);
10353  memset (b_269 + 744 + 4, 32, 27);
10354  memcpy (b_269 + 775, "1EXP10", 6);
10355  memset (b_269 + 775 + 6, 32, 25);
10356  memcpy (b_269 + 806, "1FACTORIAL", 10);
10357  memset (b_269 + 806 + 10, 32, 21);
10358  memcpy (b_269 + 837, "1FRACTION-PART", 14);
10359  memset (b_269 + 837 + 14, 32, 17);
10360  memcpy (b_269 + 868, "0HIGHEST-ALGEBRAIC", 18);
10361  memset (b_269 + 868 + 18, 32, 13);
10362  memcpy (b_269 + 899, "1INTEGER", 8);
10363  memset (b_269 + 899 + 8, 32, 23);
10364  memcpy (b_269 + 930, "0INTEGER-OF-BOOLEAN", 19);
10365  memset (b_269 + 930 + 19, 32, 12);
10366  memcpy (b_269 + 961, "1INTEGER-OF-DATE", 16);
10367  memset (b_269 + 961 + 16, 32, 15);
10368  memcpy (b_269 + 992, "1INTEGER-OF-DAY", 15);
10369  memset (b_269 + 992 + 15, 32, 16);
10370  memcpy (b_269 + 1023, "1INTEGER-PART", 13);
10371  memset (b_269 + 1023 + 13, 32, 18);
10372  memcpy (b_269 + 1054, "1LENGTH", 7);
10373  memset (b_269 + 1054 + 7, 32, 24);
10374  memcpy (b_269 + 1085, "0LOCALE-COMPARE", 15);
10375  memset (b_269 + 1085 + 15, 32, 16);
10376  memcpy (b_269 + 1116, "1LOCALE-DATE", 12);
10377  memset (b_269 + 1116 + 12, 32, 19);
10378  memcpy (b_269 + 1147, "1LOCALE-TIME", 12);
10379  memset (b_269 + 1147 + 12, 32, 19);
10380  memcpy (b_269 + 1178, "1LOCALE-TIME-FROM-SECONDS", 25);
10381  memset (b_269 + 1178 + 25, 32, 6);
10382  memcpy (b_269 + 1209, "1LOG", 4);
10383  memset (b_269 + 1209 + 4, 32, 27);
10384  memcpy (b_269 + 1240, "1LOG10", 6);
10385  memset (b_269 + 1240 + 6, 32, 25);
10386  memcpy (b_269 + 1271, "1LOWER-CASE", 11);
10387  memset (b_269 + 1271 + 11, 32, 20);
10388  memcpy (b_269 + 1302, "0LOWEST-ALGEBRAIC", 17);
10389  memset (b_269 + 1302 + 17, 32, 14);
10390  memcpy (b_269 + 1333, "1MAX", 4);
10391  memset (b_269 + 1333 + 4, 32, 27);
10392  memcpy (b_269 + 1364, "1MEAN", 5);
10393  memset (b_269 + 1364 + 5, 32, 26);
10394  memcpy (b_269 + 1395, "1MEDIAN", 7);
10395  memset (b_269 + 1395 + 7, 32, 24);
10396  memcpy (b_269 + 1426, "1MIDRANGE", 9);
10397  memset (b_269 + 1426 + 9, 32, 22);
10398  memcpy (b_269 + 1457, "1MIN", 4);
10399  memset (b_269 + 1457 + 4, 32, 27);
10400  memcpy (b_269 + 1488, "1MOD", 4);
10401  memset (b_269 + 1488 + 4, 32, 27);
10402  memcpy (b_269 + 1519, "1MODULE-CALLER-ID", 17);
10403  memset (b_269 + 1519 + 17, 32, 14);
10404  memcpy (b_269 + 1550, "1MODULE-DATE", 12);
10405  memset (b_269 + 1550 + 12, 32, 19);
10406  memcpy (b_269 + 1581, "1MODULE-FORMATTED-DATE", 22);
10407  memset (b_269 + 1581 + 22, 32, 9);
10408  memcpy (b_269 + 1612, "1MODULE-ID", 10);
10409  memset (b_269 + 1612 + 10, 32, 21);
10410  memcpy (b_269 + 1643, "1MODULE-PATH", 12);
10411  memset (b_269 + 1643 + 12, 32, 19);
10412  memcpy (b_269 + 1674, "1MODULE-SOURCE", 14);
10413  memset (b_269 + 1674 + 14, 32, 17);
10414  memcpy (b_269 + 1705, "1MODULE-TIME", 12);
10415  memset (b_269 + 1705 + 12, 32, 19);
10416  memcpy (b_269 + 1736, "0NATIONAL-OF", 12);
10417  memset (b_269 + 1736 + 12, 32, 19);
10418  memcpy (b_269 + 1767, "1NUMVAL", 7);
10419  memset (b_269 + 1767 + 7, 32, 24);
10420  memcpy (b_269 + 1798, "1NUMVAL-C", 9);
10421  memset (b_269 + 1798 + 9, 32, 22);
10422  memcpy (b_269 + 1829, "0NUMVAL-F", 9);
10423  memset (b_269 + 1829 + 9, 32, 22);
10424  memcpy (b_269 + 1860, "1ORD", 4);
10425  memset (b_269 + 1860 + 4, 32, 27);
10426  memcpy (b_269 + 1891, "1ORD-MAX", 8);
10427  memset (b_269 + 1891 + 8, 32, 23);
10428  memcpy (b_269 + 1922, "1ORD-MIN", 8);
10429  memset (b_269 + 1922 + 8, 32, 23);
10430  memcpy (b_269 + 1953, "0PI", 3);
10431  memset (b_269 + 1953 + 3, 32, 28);
10432  memcpy (b_269 + 1984, "1PRESENT-VALUE", 14);
10433  memset (b_269 + 1984 + 14, 32, 17);
10434  memcpy (b_269 + 2015, "1RANDOM", 7);
10435  memset (b_269 + 2015 + 7, 32, 24);
10436  memcpy (b_269 + 2046, "1RANGE", 6);
10437  memset (b_269 + 2046 + 6, 32, 25);
10438  memcpy (b_269 + 2077, "1REM", 4);
10439  memset (b_269 + 2077 + 4, 32, 27);
10440  memcpy (b_269 + 2108, "1REVERSE", 8);
10441  memset (b_269 + 2108 + 8, 32, 23);
10442  memcpy (b_269 + 2139, "1SECONDS-FROM-FORMATTED-TIME", 28);
10443  memset (b_269 + 2139 + 28, 32, 3);
10444  memcpy (b_269 + 2170, "1SECONDS-PAST-MIDNIGHT", 22);
10445  memset (b_269 + 2170 + 22, 32, 9);
10446  memcpy (b_269 + 2201, "1SIGN", 5);
10447  memset (b_269 + 2201 + 5, 32, 26);
10448  memcpy (b_269 + 2232, "1SIN", 4);
10449  memset (b_269 + 2232 + 4, 32, 27);
10450  memcpy (b_269 + 2263, "1SQRT", 5);
10451  memset (b_269 + 2263 + 5, 32, 26);
10452  memcpy (b_269 + 2294, "0STANDARD-COMPARE", 17);
10453  memset (b_269 + 2294 + 17, 32, 14);
10454  memcpy (b_269 + 2325, "1STANDARD-DEVIATION", 19);
10455  memset (b_269 + 2325 + 19, 32, 12);
10456  memcpy (b_269 + 2356, "1STORED-CHAR-LENGTH", 19);
10457  memset (b_269 + 2356 + 19, 32, 12);
10458  memcpy (b_269 + 2387, "1SUBSTITUTE", 11);
10459  memset (b_269 + 2387 + 11, 32, 20);
10460  memcpy (b_269 + 2418, "1SUBSTITUTE-CASE", 16);
10461  memset (b_269 + 2418 + 16, 32, 15);
10462  memcpy (b_269 + 2449, "1SUM", 4);
10463  memset (b_269 + 2449 + 4, 32, 27);
10464  memcpy (b_269 + 2480, "1TAN", 4);
10465  memset (b_269 + 2480 + 4, 32, 27);
10466  memcpy (b_269 + 2511, "1TEST-DATE-YYYYMMDD", 19);
10467  memset (b_269 + 2511 + 19, 32, 12);
10468  memcpy (b_269 + 2542, "1TEST-DAY-YYYYDDD", 17);
10469  memset (b_269 + 2542 + 17, 32, 14);
10470  memcpy (b_269 + 2573, "0TEST-NUMVAL", 12);
10471  memset (b_269 + 2573 + 12, 32, 19);
10472  memcpy (b_269 + 2604, "0TEST-NUMVAL-C", 14);
10473  memset (b_269 + 2604 + 14, 32, 17);
10474  memcpy (b_269 + 2635, "0TEST-NUMVAL-F", 14);
10475  memset (b_269 + 2635 + 14, 32, 17);
10476  memcpy (b_269 + 2666, "1TRIM", 5);
10477  memset (b_269 + 2666 + 5, 32, 26);
10478  memcpy (b_269 + 2697, "1UPPER-CASE", 11);
10479  memset (b_269 + 2697 + 11, 32, 20);
10480  memcpy (b_269 + 2728, "1VARIANCE", 9);
10481  memset (b_269 + 2728 + 9, 32, 22);
10482  memcpy (b_269 + 2759, "1WHEN-COMPILED", 14);
10483  memset (b_269 + 2759 + 14, 32, 17);
10484  memcpy (b_269 + 2790, "1YEAR-TO-YYYY", 13);
10485  memset (b_269 + 2790 + 13, 32, 18);
10486  memset (b_269 + 2821, 255, 5115);
10487  cob_setswp_s32 (b_368, 91);
10488  memcpy (b_369, "1ACCEPT", 7);
10489  memset (b_369 + 7, 32, 24);
10490  memcpy (b_369 + 31, "1ACCESS", 7);
10491  memset (b_369 + 31 + 7, 32, 24);
10492  memcpy (b_369 + 62, "0ACTIVE-CLASS", 13);
10493  memset (b_369 + 62 + 13, 32, 18);
10494  memcpy (b_369 + 93, "1ADD", 4);
10495  memset (b_369 + 93 + 4, 32, 27);
10496  memcpy (b_369 + 124, "1ADDRESS", 8);
10497  memset (b_369 + 124 + 8, 32, 23);
10498  memcpy (b_369 + 155, "1ADVANCING", 10);
10499  memset (b_369 + 155 + 10, 32, 21);
10500  memcpy (b_369 + 186, "1AFTER", 6);
10501  memset (b_369 + 186 + 6, 32, 25);
10502  memcpy (b_369 + 217, "0ALIGNED", 8);
10503  memset (b_369 + 217 + 8, 32, 23);
10504  memcpy (b_369 + 248, "1ALL", 4);
10505  memset (b_369 + 248 + 4, 32, 27);
10506  memcpy (b_369 + 279, "1ALLOCATE", 9);
10507  memset (b_369 + 279 + 9, 32, 22);
10508  memcpy (b_369 + 310, "1ALPHABET", 9);
10509  memset (b_369 + 310 + 9, 32, 22);
10510  memcpy (b_369 + 341, "1ALPHABETIC", 11);
10511  memset (b_369 + 341 + 11, 32, 20);
10512  memcpy (b_369 + 372, "1ALPHABETIC-LOWER", 17);
10513  memset (b_369 + 372 + 17, 32, 14);
10514  memcpy (b_369 + 403, "1ALPHABETIC-UPPER", 17);
10515  memset (b_369 + 403 + 17, 32, 14);
10516  memcpy (b_369 + 434, "1ALPHANUMERIC", 13);
10517  memset (b_369 + 434 + 13, 32, 18);
10518  memcpy (b_369 + 465, "1ALPHANUMERIC-EDITED", 20);
10519  memset (b_369 + 465 + 20, 32, 11);
10520  memcpy (b_369 + 496, "1ALSO", 5);
10521  memset (b_369 + 496 + 5, 32, 26);
10522  memcpy (b_369 + 527, "1ALTER", 6);
10523  memset (b_369 + 527 + 6, 32, 25);
10524  memcpy (b_369 + 558, "1ALTERNATE", 10);
10525  memset (b_369 + 558 + 10, 32, 21);
10526  memcpy (b_369 + 589, "1AND", 4);
10527  memset (b_369 + 589 + 4, 32, 27);
10528  memcpy (b_369 + 620, "1ANY", 4);
10529  memset (b_369 + 620 + 4, 32, 27);
10530  memcpy (b_369 + 651, "0ANYCASE", 8);
10531  memset (b_369 + 651 + 8, 32, 23);
10532  memcpy (b_369 + 682, "1ARE", 4);
10533  memset (b_369 + 682 + 4, 32, 27);
10534  memcpy (b_369 + 713, "1AREA", 5);
10535  memset (b_369 + 713 + 5, 32, 26);
10536  memcpy (b_369 + 744, "1AREAS", 6);
10537  memset (b_369 + 744 + 6, 32, 25);
10538  memcpy (b_369 + 775, "1ARGUMENT-NUMBER", 16);
10539  memset (b_369 + 775 + 16, 32, 15);
10540  memcpy (b_369 + 806, "1ARGUMENT-VALUE", 15);
10541  memset (b_369 + 806 + 15, 32, 16);
10542  memcpy (b_369 + 837, "0ARITHMETIC", 11);
10543  memset (b_369 + 837 + 11, 32, 20);
10544  memcpy (b_369 + 868, "1AS", 3);
10545  memset (b_369 + 868 + 3, 32, 28);
10546  memcpy (b_369 + 899, "1ASCENDING", 10);
10547  memset (b_369 + 899 + 10, 32, 21);
10548  memcpy (b_369 + 930, "1ASCII", 6);
10549  memset (b_369 + 930 + 6, 32, 25);
10550  memcpy (b_369 + 961, "1ASSIGN", 7);
10551  memset (b_369 + 961 + 7, 32, 24);
10552  memcpy (b_369 + 992, "1AT", 3);
10553  memset (b_369 + 992 + 3, 32, 28);
10554  memcpy (b_369 + 1023, "0ATTRIBUTE", 10);
10555  memset (b_369 + 1023 + 10, 32, 21);
10556  memcpy (b_369 + 1054, "1AUTO", 5);
10557  memset (b_369 + 1054 + 5, 32, 26);
10558  memcpy (b_369 + 1085, "1AUTO-SKIP", 10);
10559  memset (b_369 + 1085 + 10, 32, 21);
10560  memcpy (b_369 + 1116, "1AUTOMATIC", 10);
10561  memset (b_369 + 1116 + 10, 32, 21);
10562  memcpy (b_369 + 1147, "1AUTOTERMINATE", 14);
10563  memset (b_369 + 1147 + 14, 32, 17);
10564  memcpy (b_369 + 1178, "1AWAY-FROM-ZERO", 15);
10565  memset (b_369 + 1178 + 15, 32, 16);
10566  memcpy (b_369 + 1209, "0B-AND", 6);
10567  memset (b_369 + 1209 + 6, 32, 25);
10568  memcpy (b_369 + 1240, "0B-NOT", 6);
10569  memset (b_369 + 1240 + 6, 32, 25);
10570  memcpy (b_369 + 1271, "0B-OR", 5);
10571  memset (b_369 + 1271 + 5, 32, 26);
10572  memcpy (b_369 + 1302, "0B-XOR", 6);
10573  memset (b_369 + 1302 + 6, 32, 25);
10574  memcpy (b_369 + 1333, "1BACKGROUND-COLOR", 17);
10575  memset (b_369 + 1333 + 17, 32, 14);
10576  memcpy (b_369 + 1364, "1BACKGROUND-COLOUR", 18);
10577  memset (b_369 + 1364 + 18, 32, 13);
10578  memcpy (b_369 + 1395, "1BASED", 6);
10579  memset (b_369 + 1395 + 6, 32, 25);
10580  memcpy (b_369 + 1426, "1BEEP", 5);
10581  memset (b_369 + 1426 + 5, 32, 26);
10582  memcpy (b_369 + 1457, "1BEFORE", 7);
10583  memset (b_369 + 1457 + 7, 32, 24);
10584  memcpy (b_369 + 1488, "1BELL", 5);
10585  memset (b_369 + 1488 + 5, 32, 26);
10586  memcpy (b_369 + 1519, "1BINARY", 7);
10587  memset (b_369 + 1519 + 7, 32, 24);
10588  memcpy (b_369 + 1550, "1BINARY-C-LONG", 14);
10589  memset (b_369 + 1550 + 14, 32, 17);
10590  memcpy (b_369 + 1581, "1BINARY-CHAR", 12);
10591  memset (b_369 + 1581 + 12, 32, 19);
10592  memcpy (b_369 + 1612, "1BINARY-DOUBLE", 14);
10593  memset (b_369 + 1612 + 14, 32, 17);
10594  memcpy (b_369 + 1643, "1BINARY-INT", 11);
10595  memset (b_369 + 1643 + 11, 32, 20);
10596  memcpy (b_369 + 1674, "1BINARY-LONG", 12);
10597  memset (b_369 + 1674 + 12, 32, 19);
10598  memcpy (b_369 + 1705, "1BINARY-LONG-LONG", 17);
10599  memset (b_369 + 1705 + 17, 32, 14);
10600  memcpy (b_369 + 1736, "1BINARY-SHORT", 13);
10601  memset (b_369 + 1736 + 13, 32, 18);
10602  memcpy (b_369 + 1767, "0BIT", 4);
10603  memset (b_369 + 1767 + 4, 32, 27);
10604  memcpy (b_369 + 1798, "1BLANK", 6);
10605  memset (b_369 + 1798 + 6, 32, 25);
10606  memcpy (b_369 + 1829, "1BLINK", 6);
10607  memset (b_369 + 1829 + 6, 32, 25);
10608  memcpy (b_369 + 1860, "1BLOCK", 6);
10609  memset (b_369 + 1860 + 6, 32, 25);
10610  memcpy (b_369 + 1891, "0BOOLEAN", 8);
10611  memset (b_369 + 1891 + 8, 32, 23);
10612  memcpy (b_369 + 1922, "1BOTTOM", 7);
10613  memset (b_369 + 1922 + 7, 32, 24);
10614  memcpy (b_369 + 1953, "1BY", 3);
10615  memset (b_369 + 1953 + 3, 32, 28);
10616  memcpy (b_369 + 1984, "0BYTE-LENGTH", 12);
10617  memset (b_369 + 1984 + 12, 32, 19);
10618  memcpy (b_369 + 2015, "1CALL", 5);
10619  memset (b_369 + 2015 + 5, 32, 26);
10620  memcpy (b_369 + 2046, "1CANCEL", 7);
10621  memset (b_369 + 2046 + 7, 32, 24);
10622  memcpy (b_369 + 2077, "0CAPACITY", 9);
10623  memset (b_369 + 2077 + 9, 32, 22);
10624  memcpy (b_369 + 2108, "0CD", 3);
10625  memset (b_369 + 2108 + 3, 32, 28);
10626  memcpy (b_369 + 2139, "0CENTER", 7);
10627  memset (b_369 + 2139 + 7, 32, 24);
10628  memcpy (b_369 + 2170, "1CF", 3);
10629  memset (b_369 + 2170 + 3, 32, 28);
10630  memcpy (b_369 + 2201, "1CH", 3);
10631  memset (b_369 + 2201 + 3, 32, 28);
10632  memcpy (b_369 + 2232, "0CHAIN", 6);
10633  memset (b_369 + 2232 + 6, 32, 25);
10634  memcpy (b_369 + 2263, "1CHAINING", 9);
10635  memset (b_369 + 2263 + 9, 32, 22);
10636  memcpy (b_369 + 2294, "1CHARACTER", 10);
10637  memset (b_369 + 2294 + 10, 32, 21);
10638  memcpy (b_369 + 2325, "1CHARACTERS", 11);
10639  memset (b_369 + 2325 + 11, 32, 20);
10640  memcpy (b_369 + 2356, "1CLASS", 6);
10641  memset (b_369 + 2356 + 6, 32, 25);
10642  memcpy (b_369 + 2387, "0CLASS-ID", 9);
10643  memset (b_369 + 2387 + 9, 32, 22);
10644  memcpy (b_369 + 2418, "0CLASSIFICATION", 15);
10645  memset (b_369 + 2418 + 15, 32, 16);
10646  memcpy (b_369 + 2449, "1CLOSE", 6);
10647  memset (b_369 + 2449 + 6, 32, 25);
10648  memcpy (b_369 + 2480, "1COB-CRT-STATUS", 15);
10649  memset (b_369 + 2480 + 15, 32, 16);
10650  memcpy (b_369 + 2511, "1CODE", 5);
10651  memset (b_369 + 2511 + 5, 32, 26);
10652  memcpy (b_369 + 2542, "1CODE-SET", 9);
10653  memset (b_369 + 2542 + 9, 32, 22);
10654  memcpy (b_369 + 2573, "1COL", 4);
10655  memset (b_369 + 2573 + 4, 32, 27);
10656  memcpy (b_369 + 2604, "1COLLATING", 10);
10657  memset (b_369 + 2604 + 10, 32, 21);
10658  memcpy (b_369 + 2635, "1COLS", 5);
10659  memset (b_369 + 2635 + 5, 32, 26);
10660  memcpy (b_369 + 2666, "1COLUMN", 7);
10661  memset (b_369 + 2666 + 7, 32, 24);
10662  memcpy (b_369 + 2697, "1COLUMNS", 8);
10663  memset (b_369 + 2697 + 8, 32, 23);
10664  memcpy (b_369 + 2728, "1COMMA", 6);
10665  memset (b_369 + 2728 + 6, 32, 25);
10666  memcpy (b_369 + 2759, "1COMMAND-LINE", 13);
10667  memset (b_369 + 2759 + 13, 32, 18);
10668  memcpy (b_369 + 2790, "1COMMIT", 7);
10669  memset (b_369 + 2790 + 7, 32, 24);
10670  memcpy (b_369 + 2821, "1COMMON", 7);
10671  memset (b_369 + 2821 + 7, 32, 24);
10672  memcpy (b_369 + 2852, "0COMMUNICATION", 14);
10673  memset (b_369 + 2852 + 14, 32, 17);
10674  memcpy (b_369 + 2883, "1COMP", 5);
10675  memset (b_369 + 2883 + 5, 32, 26);
10676  memcpy (b_369 + 2914, "1COMP-1", 7);
10677  memset (b_369 + 2914 + 7, 32, 24);
10678  memcpy (b_369 + 2945, "1COMP-2", 7);
10679  memset (b_369 + 2945 + 7, 32, 24);
10680  memcpy (b_369 + 2976, "1COMP-3", 7);
10681  memset (b_369 + 2976 + 7, 32, 24);
10682  memcpy (b_369 + 3007, "1COMP-4", 7);
10683  memset (b_369 + 3007 + 7, 32, 24);
10684  memcpy (b_369 + 3038, "1COMP-5", 7);
10685  memset (b_369 + 3038 + 7, 32, 24);
10686  memcpy (b_369 + 3069, "1COMP-X", 7);
10687  memset (b_369 + 3069 + 7, 32, 24);
10688  memcpy (b_369 + 3100, "1COMPUTATIONAL", 14);
10689  memset (b_369 + 3100 + 14, 32, 17);
10690  memcpy (b_369 + 3131, "1COMPUTATIONAL-1", 16);
10691  memset (b_369 + 3131 + 16, 32, 15);
10692  memcpy (b_369 + 3162, "1COMPUTATIONAL-2", 16);
10693  memset (b_369 + 3162 + 16, 32, 15);
10694  memcpy (b_369 + 3193, "1COMPUTATIONAL-3", 16);
10695  memset (b_369 + 3193 + 16, 32, 15);
10696  memcpy (b_369 + 3224, "1COMPUTATIONAL-4", 16);
10697  memset (b_369 + 3224 + 16, 32, 15);
10698  memcpy (b_369 + 3255, "1COMPUTATIONAL-5", 16);
10699  memset (b_369 + 3255 + 16, 32, 15);
10700  memcpy (b_369 + 3286, "1COMPUTATIONAL-X", 16);
10701  memset (b_369 + 3286 + 16, 32, 15);
10702  memcpy (b_369 + 3317, "1COMPUTE", 8);
10703  memset (b_369 + 3317 + 8, 32, 23);
10704  memcpy (b_369 + 3348, "0CONDITION", 10);
10705  memset (b_369 + 3348 + 10, 32, 21);
10706  memcpy (b_369 + 3379, "1CONFIGURATION", 14);
10707  memset (b_369 + 3379 + 14, 32, 17);
10708  memcpy (b_369 + 3410, "1CONSTANT", 9);
10709  memset (b_369 + 3410 + 9, 32, 22);
10710  memcpy (b_369 + 3441, "1CONTAINS", 9);
10711  memset (b_369 + 3441 + 9, 32, 22);
10712  memcpy (b_369 + 3472, "1CONTENT", 8);
10713  memset (b_369 + 3472 + 8, 32, 23);
10714  memcpy (b_369 + 3503, "1CONTINUE", 9);
10715  memset (b_369 + 3503 + 9, 32, 22);
10716  memcpy (b_369 + 3534, "1CONTROL", 8);
10717  memset (b_369 + 3534 + 8, 32, 23);
10718  memcpy (b_369 + 3565, "1CONTROLS", 9);
10719  memset (b_369 + 3565 + 9, 32, 22);
10720  memcpy (b_369 + 3596, "1CONVERTING", 11);
10721  memset (b_369 + 3596 + 11, 32, 20);
10722  memcpy (b_369 + 3627, "1COPY", 5);
10723  memset (b_369 + 3627 + 5, 32, 26);
10724  memcpy (b_369 + 3658, "1CORR", 5);
10725  memset (b_369 + 3658 + 5, 32, 26);
10726  memcpy (b_369 + 3689, "1CORRESPONDING", 14);
10727  memset (b_369 + 3689 + 14, 32, 17);
10728  memcpy (b_369 + 3720, "1COUNT", 6);
10729  memset (b_369 + 3720 + 6, 32, 25);
10730  memcpy (b_369 + 3751, "1CRT", 4);
10731  memset (b_369 + 3751 + 4, 32, 27);
10732  memcpy (b_369 + 3782, "1CRT-UNDER", 10);
10733  memset (b_369 + 3782 + 10, 32, 21);
10734  memcpy (b_369 + 3813, "1CURRENCY", 9);
10735  memset (b_369 + 3813 + 9, 32, 22);
10736  memcpy (b_369 + 3844, "1CURSOR", 7);
10737  memset (b_369 + 3844 + 7, 32, 24);
10738  memcpy (b_369 + 3875, "1CYCLE", 6);
10739  memset (b_369 + 3875 + 6, 32, 25);
10740  memcpy (b_369 + 3906, "1DATA", 5);
10741  memset (b_369 + 3906 + 5, 32, 26);
10742  memcpy (b_369 + 3937, "0DATA-POINTER", 13);
10743  memset (b_369 + 3937 + 13, 32, 18);
10744  memcpy (b_369 + 3968, "1DATE", 5);
10745  memset (b_369 + 3968 + 5, 32, 26);
10746  memcpy (b_369 + 3999, "1DAY", 4);
10747  memset (b_369 + 3999 + 4, 32, 27);
10748  memcpy (b_369 + 4030, "1DAY-OF-WEEK", 12);
10749  memset (b_369 + 4030 + 12, 32, 19);
10750  memcpy (b_369 + 4061, "1DE", 3);
10751  memset (b_369 + 4061 + 3, 32, 28);
10752  memcpy (b_369 + 4092, "1DEBUGGING", 10);
10753  memset (b_369 + 4092 + 10, 32, 21);
10754  memcpy (b_369 + 4123, "1DECIMAL-POINT", 14);
10755  memset (b_369 + 4123 + 14, 32, 17);
10756  memcpy (b_369 + 4154, "1DECLARATIVES", 13);
10757  memset (b_369 + 4154 + 13, 32, 18);
10758  memcpy (b_369 + 4185, "1DEFAULT", 8);
10759  memset (b_369 + 4185 + 8, 32, 23);
10760  memcpy (b_369 + 4216, "1DELETE", 7);
10761  memset (b_369 + 4216 + 7, 32, 24);
10762  memcpy (b_369 + 4247, "1DELIMITED", 10);
10763  memset (b_369 + 4247 + 10, 32, 21);
10764  memcpy (b_369 + 4278, "1DELIMITER", 10);
10765  memset (b_369 + 4278 + 10, 32, 21);
10766  memcpy (b_369 + 4309, "1DEPENDING", 10);
10767  memset (b_369 + 4309 + 10, 32, 21);
10768  memcpy (b_369 + 4340, "1DESCENDING", 11);
10769  memset (b_369 + 4340 + 11, 32, 20);
10770  memcpy (b_369 + 4371, "0DESTINATION", 12);
10771  memset (b_369 + 4371 + 12, 32, 19);
10772  memcpy (b_369 + 4402, "1DETAIL", 7);
10773  memset (b_369 + 4402 + 7, 32, 24);
10774  memcpy (b_369 + 4433, "0DISABLE", 8);
10775  memset (b_369 + 4433 + 8, 32, 23);
10776  memcpy (b_369 + 4464, "1DISK", 5);
10777  memset (b_369 + 4464 + 5, 32, 26);
10778  memcpy (b_369 + 4495, "1DISPLAY", 8);
10779  memset (b_369 + 4495 + 8, 32, 23);
10780  memcpy (b_369 + 4526, "1DIVIDE", 7);
10781  memset (b_369 + 4526 + 7, 32, 24);
10782  memcpy (b_369 + 4557, "1DIVISION", 9);
10783  memset (b_369 + 4557 + 9, 32, 22);
10784  memcpy (b_369 + 4588, "1DOWN", 5);
10785  memset (b_369 + 4588 + 5, 32, 26);
10786  memcpy (b_369 + 4619, "1DUPLICATES", 11);
10787  memset (b_369 + 4619 + 11, 32, 20);
10788  memcpy (b_369 + 4650, "1DYNAMIC", 8);
10789  memset (b_369 + 4650 + 8, 32, 23);
10790  memcpy (b_369 + 4681, "1EBCDIC", 7);
10791  memset (b_369 + 4681 + 7, 32, 24);
10792  memcpy (b_369 + 4712, "0EC", 3);
10793  memset (b_369 + 4712 + 3, 32, 28);
10794  memcpy (b_369 + 4743, "0EGI", 4);
10795  memset (b_369 + 4743 + 4, 32, 27);
10796  memcpy (b_369 + 4774, "1ELSE", 5);
10797  memset (b_369 + 4774 + 5, 32, 26);
10798  memcpy (b_369 + 4805, "0EMI", 4);
10799  memset (b_369 + 4805 + 4, 32, 27);
10800  memcpy (b_369 + 4836, "1EMPTY-CHECK", 12);
10801  memset (b_369 + 4836 + 12, 32, 19);
10802  memcpy (b_369 + 4867, "0ENABLE", 7);
10803  memset (b_369 + 4867 + 7, 32, 24);
10804  memcpy (b_369 + 4898, "1END", 4);
10805  memset (b_369 + 4898 + 4, 32, 27);
10806  memcpy (b_369 + 4929, "1END-ACCEPT", 11);
10807  memset (b_369 + 4929 + 11, 32, 20);
10808  memcpy (b_369 + 4960, "1END-ADD", 8);
10809  memset (b_369 + 4960 + 8, 32, 23);
10810  memcpy (b_369 + 4991, "1END-CALL", 9);
10811  memset (b_369 + 4991 + 9, 32, 22);
10812  memcpy (b_369 + 5022, "1END-COMPUTE", 12);
10813  memset (b_369 + 5022 + 12, 32, 19);
10814  memcpy (b_369 + 5053, "1END-DELETE", 11);
10815  memset (b_369 + 5053 + 11, 32, 20);
10816  memcpy (b_369 + 5084, "1END-DISPLAY", 12);
10817  memset (b_369 + 5084 + 12, 32, 19);
10818  memcpy (b_369 + 5115, "1END-DIVIDE", 11);
10819  memset (b_369 + 5115 + 11, 32, 20);
10820  memcpy (b_369 + 5146, "1END-EVALUATE", 13);
10821  memset (b_369 + 5146 + 13, 32, 18);
10822  memcpy (b_369 + 5177, "1END-IF", 7);
10823  memset (b_369 + 5177 + 7, 32, 24);
10824  memcpy (b_369 + 5208, "1END-MULTIPLY", 13);
10825  memset (b_369 + 5208 + 13, 32, 18);
10826  memcpy (b_369 + 5239, "1END-OF-PAGE", 12);
10827  memset (b_369 + 5239 + 12, 32, 19);
10828  memcpy (b_369 + 5270, "1END-PERFORM", 12);
10829  memset (b_369 + 5270 + 12, 32, 19);
10830  memcpy (b_369 + 5301, "1END-READ", 9);
10831  memset (b_369 + 5301 + 9, 32, 22);
10832  memcpy (b_369 + 5332, "0END-RECEIVE", 12);
10833  memset (b_369 + 5332 + 12, 32, 19);
10834  memcpy (b_369 + 5363, "1END-RETURN", 11);
10835  memset (b_369 + 5363 + 11, 32, 20);
10836  memcpy (b_369 + 5394, "1END-REWRITE", 12);
10837  memset (b_369 + 5394 + 12, 32, 19);
10838  memcpy (b_369 + 5425, "1END-SEARCH", 11);
10839  memset (b_369 + 5425 + 11, 32, 20);
10840  memcpy (b_369 + 5456, "1END-START", 10);
10841  memset (b_369 + 5456 + 10, 32, 21);
10842  memcpy (b_369 + 5487, "1END-STRING", 11);
10843  memset (b_369 + 5487 + 11, 32, 20);
10844  memcpy (b_369 + 5518, "1END-SUBTRACT", 13);
10845  memset (b_369 + 5518 + 13, 32, 18);
10846  memcpy (b_369 + 5549, "1END-UNSTRING", 13);
10847  memset (b_369 + 5549 + 13, 32, 18);
10848  memcpy (b_369 + 5580, "1END-WRITE", 10);
10849  memset (b_369 + 5580 + 10, 32, 21);
10850  memcpy (b_369 + 5611, "1ENTRY", 6);
10851  memset (b_369 + 5611 + 6, 32, 25);
10852  memcpy (b_369 + 5642, "0ENTRY-CONVENTION", 17);
10853  memset (b_369 + 5642 + 17, 32, 14);
10854  memcpy (b_369 + 5673, "1ENVIRONMENT", 12);
10855  memset (b_369 + 5673 + 12, 32, 19);
10856  memcpy (b_369 + 5704, "1ENVIRONMENT-NAME", 17);
10857  memset (b_369 + 5704 + 17, 32, 14);
10858  memcpy (b_369 + 5735, "1ENVIRONMENT-VALUE", 18);
10859  memset (b_369 + 5735 + 18, 32, 13);
10860  memcpy (b_369 + 5766, "0EO", 3);
10861  memset (b_369 + 5766 + 3, 32, 28);
10862  memcpy (b_369 + 5797, "1EOL", 4);
10863  memset (b_369 + 5797 + 4, 32, 27);
10864  memcpy (b_369 + 5828, "1EOP", 4);
10865  memset (b_369 + 5828 + 4, 32, 27);
10866  memcpy (b_369 + 5859, "1EOS", 4);
10867  memset (b_369 + 5859 + 4, 32, 27);
10868  memcpy (b_369 + 5890, "1EQUAL", 6);
10869  memset (b_369 + 5890 + 6, 32, 25);
10870  memcpy (b_369 + 5921, "1EQUALS", 7);
10871  memset (b_369 + 5921 + 7, 32, 24);
10872  memcpy (b_369 + 5952, "1ERASE", 6);
10873  memset (b_369 + 5952 + 6, 32, 25);
10874  memcpy (b_369 + 5983, "1ERROR", 6);
10875  memset (b_369 + 5983 + 6, 32, 25);
10876  memcpy (b_369 + 6014, "1ESCAPE", 7);
10877  memset (b_369 + 6014 + 7, 32, 24);
10878  memcpy (b_369 + 6045, "0ESI", 4);
10879  memset (b_369 + 6045 + 4, 32, 27);
10880  memcpy (b_369 + 6076, "1EVALUATE", 9);
10881  memset (b_369 + 6076 + 9, 32, 22);
10882  memcpy (b_369 + 6107, "1EXCEPTION", 10);
10883  memset (b_369 + 6107 + 10, 32, 21);
10884  memcpy (b_369 + 6138, "0EXCEPTION-OBJECT", 17);
10885  memset (b_369 + 6138 + 17, 32, 14);
10886  memcpy (b_369 + 6169, "1EXCLUSIVE", 10);
10887  memset (b_369 + 6169 + 10, 32, 21);
10888  memcpy (b_369 + 6200, "1EXIT", 5);
10889  memset (b_369 + 6200 + 5, 32, 26);
10890  memcpy (b_369 + 6231, "0EXPANDS", 8);
10891  memset (b_369 + 6231 + 8, 32, 23);
10892  memcpy (b_369 + 6262, "1EXTEND", 7);
10893  memset (b_369 + 6262 + 7, 32, 24);
10894  memcpy (b_369 + 6293, "1EXTERNAL", 9);
10895  memset (b_369 + 6293 + 9, 32, 22);
10896  memcpy (b_369 + 6324, "0FACTORY", 8);
10897  memset (b_369 + 6324 + 8, 32, 23);
10898  memcpy (b_369 + 6355, "1FALSE", 6);
10899  memset (b_369 + 6355 + 6, 32, 25);
10900  memcpy (b_369 + 6386, "1FD", 3);
10901  memset (b_369 + 6386 + 3, 32, 28);
10902  memcpy (b_369 + 6417, "1FILE", 5);
10903  memset (b_369 + 6417 + 5, 32, 26);
10904  memcpy (b_369 + 6448, "1FILE-CONTROL", 13);
10905  memset (b_369 + 6448 + 13, 32, 18);
10906  memcpy (b_369 + 6479, "1FILE-ID", 8);
10907  memset (b_369 + 6479 + 8, 32, 23);
10908  memcpy (b_369 + 6510, "1FILLER", 7);
10909  memset (b_369 + 6510 + 7, 32, 24);
10910  memcpy (b_369 + 6541, "1FINAL", 6);
10911  memset (b_369 + 6541 + 6, 32, 25);
10912  memcpy (b_369 + 6572, "1FIRST", 6);
10913  memset (b_369 + 6572 + 6, 32, 25);
10914  memcpy (b_369 + 6603, "0FLOAT-BINARY-16", 16);
10915  memset (b_369 + 6603 + 16, 32, 15);
10916  memcpy (b_369 + 6634, "0FLOAT-BINARY-34", 16);
10917  memset (b_369 + 6634 + 16, 32, 15);
10918  memcpy (b_369 + 6665, "0FLOAT-BINARY-7", 15);
10919  memset (b_369 + 6665 + 15, 32, 16);
10920  memcpy (b_369 + 6696, "0FLOAT-DECIMAL-16", 17);
10921  memset (b_369 + 6696 + 17, 32, 14);
10922  memcpy (b_369 + 6727, "0FLOAT-DECIMAL-34", 17);
10923  memset (b_369 + 6727 + 17, 32, 14);
10924  memcpy (b_369 + 6758, "0FLOAT-EXTENDED", 15);
10925  memset (b_369 + 6758 + 15, 32, 16);
10926  memcpy (b_369 + 6789, "1FLOAT-LONG", 11);
10927  memset (b_369 + 6789 + 11, 32, 20);
10928  memcpy (b_369 + 6820, "1FLOAT-SHORT", 12);
10929  memset (b_369 + 6820 + 12, 32, 19);
10930  memcpy (b_369 + 6851, "1FOOTING", 8);
10931  memset (b_369 + 6851 + 8, 32, 23);
10932  memcpy (b_369 + 6882, "1FOR", 4);
10933  memset (b_369 + 6882 + 4, 32, 27);
10934  memcpy (b_369 + 6913, "1FOREGROUND-COLOR", 17);
10935  memset (b_369 + 6913 + 17, 32, 14);
10936  memcpy (b_369 + 6944, "1FOREGROUND-COLOUR", 18);
10937  memset (b_369 + 6944 + 18, 32, 13);
10938  memcpy (b_369 + 6975, "1FOREVER", 8);
10939  memset (b_369 + 6975 + 8, 32, 23);
10940  memcpy (b_369 + 7006, "0FORMAT", 7);
10941  memset (b_369 + 7006 + 7, 32, 24);
10942  memcpy (b_369 + 7037, "1FREE", 5);
10943  memset (b_369 + 7037 + 5, 32, 26);
10944  memcpy (b_369 + 7068, "1FROM", 5);
10945  memset (b_369 + 7068 + 5, 32, 26);
10946  memcpy (b_369 + 7099, "1FULL", 5);
10947  memset (b_369 + 7099 + 5, 32, 26);
10948  memcpy (b_369 + 7130, "1FUNCTION", 9);
10949  memset (b_369 + 7130 + 9, 32, 22);
10950  memcpy (b_369 + 7161, "1FUNCTION-ID", 12);
10951  memset (b_369 + 7161 + 12, 32, 19);
10952  memcpy (b_369 + 7192, "0FUNCTION-POINTER", 17);
10953  memset (b_369 + 7192 + 17, 32, 14);
10954  memcpy (b_369 + 7223, "1GENERATE", 9);
10955  memset (b_369 + 7223 + 9, 32, 22);
10956  memcpy (b_369 + 7254, "0GET", 4);
10957  memset (b_369 + 7254 + 4, 32, 27);
10958  memcpy (b_369 + 7285, "1GIVING", 7);
10959  memset (b_369 + 7285 + 7, 32, 24);
10960  memcpy (b_369 + 7316, "1GLOBAL", 7);
10961  memset (b_369 + 7316 + 7, 32, 24);
10962  memcpy (b_369 + 7347, "1GO", 3);
10963  memset (b_369 + 7347 + 3, 32, 28);
10964  memcpy (b_369 + 7378, "1GOBACK", 7);
10965  memset (b_369 + 7378 + 7, 32, 24);
10966  memcpy (b_369 + 7409, "1GREATER", 8);
10967  memset (b_369 + 7409 + 8, 32, 23);
10968  memcpy (b_369 + 7440, "1GROUP", 6);
10969  memset (b_369 + 7440 + 6, 32, 25);
10970  memcpy (b_369 + 7471, "0GROUP-USAGE", 12);
10971  memset (b_369 + 7471 + 12, 32, 19);
10972  memcpy (b_369 + 7502, "1HEADING", 8);
10973  memset (b_369 + 7502 + 8, 32, 23);
10974  memcpy (b_369 + 7533, "1HIGH-VALUE", 11);
10975  memset (b_369 + 7533 + 11, 32, 20);
10976  memcpy (b_369 + 7564, "1HIGH-VALUES", 12);
10977  memset (b_369 + 7564 + 12, 32, 19);
10978  memcpy (b_369 + 7595, "1HIGHLIGHT", 10);
10979  memset (b_369 + 7595 + 10, 32, 21);
10980  memcpy (b_369 + 7626, "1I-O", 4);
10981  memset (b_369 + 7626 + 4, 32, 27);
10982  memcpy (b_369 + 7657, "1I-O-CONTROL", 12);
10983  memset (b_369 + 7657 + 12, 32, 19);
10984  memcpy (b_369 + 7688, "1ID", 3);
10985  memset (b_369 + 7688 + 3, 32, 28);
10986  memcpy (b_369 + 7719, "1IDENTIFICATION", 15);
10987  memset (b_369 + 7719 + 15, 32, 16);
10988  memcpy (b_369 + 7750, "1IF", 3);
10989  memset (b_369 + 7750 + 3, 32, 28);
10990  memcpy (b_369 + 7781, "1IGNORE", 7);
10991  memset (b_369 + 7781 + 7, 32, 24);
10992  memcpy (b_369 + 7812, "1IGNORING", 9);
10993  memset (b_369 + 7812 + 9, 32, 22);
10994  memcpy (b_369 + 7843, "0IMPLEMENTS", 11);
10995  memset (b_369 + 7843 + 11, 32, 20);
10996  memcpy (b_369 + 7874, "1IN", 3);
10997  memset (b_369 + 7874 + 3, 32, 28);
10998  memcpy (b_369 + 7905, "1INDEX", 6);
10999  memset (b_369 + 7905 + 6, 32, 25);
11000  memcpy (b_369 + 7936, "1INDEXED", 8);
11001  memset (b_369 + 7936 + 8, 32, 23);
11002  memcpy (b_369 + 7967, "1INDICATE", 9);
11003  memset (b_369 + 7967 + 9, 32, 22);
11004  memcpy (b_369 + 7998, "0INDIRECT", 9);
11005  memset (b_369 + 7998 + 9, 32, 22);
11006  memcpy (b_369 + 8029, "0INFINITY", 9);
11007  memset (b_369 + 8029 + 9, 32, 22);
11008  memcpy (b_369 + 8060, "0INHERITS", 9);
11009  memset (b_369 + 8060 + 9, 32, 22);
11010  memcpy (b_369 + 8091, "1INITIAL", 8);
11011  memset (b_369 + 8091 + 8, 32, 23);
11012  memcpy (b_369 + 8122, "1INITIALISE", 11);
11013  memset (b_369 + 8122 + 11, 32, 20);
11014  memcpy (b_369 + 8153, "1INITIALISED", 12);
11015  memset (b_369 + 8153 + 12, 32, 19);
11016  memcpy (b_369 + 8184, "1INITIALIZE", 11);
11017  memset (b_369 + 8184 + 11, 32, 20);
11018  memcpy (b_369 + 8215, "1INITIALIZED", 12);
11019  memset (b_369 + 8215 + 12, 32, 19);
11020  memcpy (b_369 + 8246, "0INITIATE", 9);
11021  memset (b_369 + 8246 + 9, 32, 22);
11022  memcpy (b_369 + 8277, "1INPUT", 6);
11023  memset (b_369 + 8277 + 6, 32, 25);
11024  memcpy (b_369 + 8308, "1INPUT-OUTPUT", 13);
11025  memset (b_369 + 8308 + 13, 32, 18);
11026  memcpy (b_369 + 8339, "1INSPECT", 8);
11027  memset (b_369 + 8339 + 8, 32, 23);
11028  memcpy (b_369 + 8370, "0INTERFACE", 10);
11029  memset (b_369 + 8370 + 10, 32, 21);
11030  memcpy (b_369 + 8401, "0INTERFACE-ID", 13);
11031  memset (b_369 + 8401 + 13, 32, 18);
11032  memcpy (b_369 + 8432, "1INTO", 5);
11033  memset (b_369 + 8432 + 5, 32, 26);
11034  memcpy (b_369 + 8463, "0INTRINSIC", 10);
11035  memset (b_369 + 8463 + 10, 32, 21);
11036  memcpy (b_369 + 8494, "1INVALID", 8);
11037  memset (b_369 + 8494 + 8, 32, 23);
11038  memcpy (b_369 + 8525, "0INVOKE", 7);
11039  memset (b_369 + 8525 + 7, 32, 24);
11040  memcpy (b_369 + 8556, "1IS", 3);
11041  memset (b_369 + 8556 + 3, 32, 28);
11042  memcpy (b_369 + 8587, "1JUST", 5);
11043  memset (b_369 + 8587 + 5, 32, 26);
11044  memcpy (b_369 + 8618, "1JUSTIFIED", 10);
11045  memset (b_369 + 8618 + 10, 32, 21);
11046  memcpy (b_369 + 8649, "1KEPT", 5);
11047  memset (b_369 + 8649 + 5, 32, 26);
11048  memcpy (b_369 + 8680, "1KEY", 4);
11049  memset (b_369 + 8680 + 4, 32, 27);
11050  memcpy (b_369 + 8711, "1KEYBOARD", 9);
11051  memset (b_369 + 8711 + 9, 32, 22);
11052  memcpy (b_369 + 8742, "1LABEL", 6);
11053  memset (b_369 + 8742 + 6, 32, 25);
11054  memcpy (b_369 + 8773, "1LAST", 5);
11055  memset (b_369 + 8773 + 5, 32, 26);
11056  memcpy (b_369 + 8804, "0LC_ALL", 7);
11057  memset (b_369 + 8804 + 7, 32, 24);
11058  memcpy (b_369 + 8835, "0LC_COLLATE", 11);
11059  memset (b_369 + 8835 + 11, 32, 20);
11060  memcpy (b_369 + 8866, "0LC_CTYPE", 9);
11061  memset (b_369 + 8866 + 9, 32, 22);
11062  memcpy (b_369 + 8897, "0LC_MESSAGES", 12);
11063  memset (b_369 + 8897 + 12, 32, 19);
11064  memcpy (b_369 + 8928, "0LC_MONETARY", 12);
11065  memset (b_369 + 8928 + 12, 32, 19);
11066  memcpy (b_369 + 8959, "0LC_NUMERIC", 11);
11067  memset (b_369 + 8959 + 11, 32, 20);
11068  memcpy (b_369 + 8990, "0LC_TIME", 8);
11069  memset (b_369 + 8990 + 8, 32, 23);
11070  memcpy (b_369 + 9021, "1LEADING", 8);
11071  memset (b_369 + 9021 + 8, 32, 23);
11072  memcpy (b_369 + 9052, "1LEFT", 5);
11073  memset (b_369 + 9052 + 5, 32, 26);
11074  memcpy (b_369 + 9083, "0LEFT-JUSTIFY", 13);
11075  memset (b_369 + 9083 + 13, 32, 18);
11076  memcpy (b_369 + 9114, "1LEFTLINE", 9);
11077  memset (b_369 + 9114 + 9, 32, 22);
11078  memcpy (b_369 + 9145, "1LENGTH", 7);
11079  memset (b_369 + 9145 + 7, 32, 24);
11080  memcpy (b_369 + 9176, "1LENGTH-CHECK", 13);
11081  memset (b_369 + 9176 + 13, 32, 18);
11082  memcpy (b_369 + 9207, "1LESS", 5);
11083  memset (b_369 + 9207 + 5, 32, 26);
11084  memcpy (b_369 + 9238, "1LIMIT", 6);
11085  memset (b_369 + 9238 + 6, 32, 25);
11086  memcpy (b_369 + 9269, "1LIMITS", 7);
11087  memset (b_369 + 9269 + 7, 32, 24);
11088  memcpy (b_369 + 9300, "1LINAGE", 7);
11089  memset (b_369 + 9300 + 7, 32, 24);
11090  memcpy (b_369 + 9331, "1LINAGE-COUNTER", 15);
11091  memset (b_369 + 9331 + 15, 32, 16);
11092  memcpy (b_369 + 9362, "1LINE", 5);
11093  memset (b_369 + 9362 + 5, 32, 26);
11094  memcpy (b_369 + 9393, "1LINE-COUNTER", 13);
11095  memset (b_369 + 9393 + 13, 32, 18);
11096  memcpy (b_369 + 9424, "1LINES", 6);
11097  memset (b_369 + 9424 + 6, 32, 25);
11098  memcpy (b_369 + 9455, "1LINKAGE", 8);
11099  memset (b_369 + 9455 + 8, 32, 23);
11100  memcpy (b_369 + 9486, "1LOCAL-STORAGE", 14);
11101  memset (b_369 + 9486 + 14, 32, 17);
11102  memcpy (b_369 + 9517, "1LOCALE", 7);
11103  memset (b_369 + 9517 + 7, 32, 24);
11104  memcpy (b_369 + 9548, "1LOCK", 5);
11105  memset (b_369 + 9548 + 5, 32, 26);
11106  memcpy (b_369 + 9579, "1LOW-VALUE", 10);
11107  memset (b_369 + 9579 + 10, 32, 21);
11108  memcpy (b_369 + 9610, "1LOW-VALUES", 11);
11109  memset (b_369 + 9610 + 11, 32, 20);
11110  memcpy (b_369 + 9641, "0LOWER", 6);
11111  memset (b_369 + 9641 + 6, 32, 25);
11112  memcpy (b_369 + 9672, "1LOWLIGHT", 9);
11113  memset (b_369 + 9672 + 9, 32, 22);
11114  memcpy (b_369 + 9703, "1MANUAL", 7);
11115  memset (b_369 + 9703 + 7, 32, 24);
11116  memcpy (b_369 + 9734, "1MEMORY", 7);
11117  memset (b_369 + 9734 + 7, 32, 24);
11118  memcpy (b_369 + 9765, "1MERGE", 6);
11119  memset (b_369 + 9765 + 6, 32, 25);
11120  memcpy (b_369 + 9796, "0MESSAGE", 8);
11121  memset (b_369 + 9796 + 8, 32, 23);
11122  memcpy (b_369 + 9827, "0METHOD", 7);
11123  memset (b_369 + 9827 + 7, 32, 24);
11124  memcpy (b_369 + 9858, "0METHOD-ID", 10);
11125  memset (b_369 + 9858 + 10, 32, 21);
11126  memcpy (b_369 + 9889, "1MINUS", 6);
11127  memset (b_369 + 9889 + 6, 32, 25);
11128  memcpy (b_369 + 9920, "1MODE", 5);
11129  memset (b_369 + 9920 + 5, 32, 26);
11130  memcpy (b_369 + 9951, "1MOVE", 5);
11131  memset (b_369 + 9951 + 5, 32, 26);
11132  memcpy (b_369 + 9982, "1MULTIPLE", 9);
11133  memset (b_369 + 9982 + 9, 32, 22);
11134  memcpy (b_369 + 10013, "1MULTIPLY", 9);
11135  memset (b_369 + 10013 + 9, 32, 22);
11136  memcpy (b_369 + 10044, "1NATIONAL", 9);
11137  memset (b_369 + 10044 + 9, 32, 22);
11138  memcpy (b_369 + 10075, "1NATIONAL-EDITED", 16);
11139  memset (b_369 + 10075 + 16, 32, 15);
11140  memcpy (b_369 + 10106, "1NATIVE", 7);
11141  memset (b_369 + 10106 + 7, 32, 24);
11142  memcpy (b_369 + 10137, "1NEAREST-AWAY-FROM-ZERO", 23);
11143  memset (b_369 + 10137 + 23, 32, 8);
11144  memcpy (b_369 + 10168, "1NEAREST-EVEN", 13);
11145  memset (b_369 + 10168 + 13, 32, 18);
11146  memcpy (b_369 + 10199, "1NEAREST-TOWARD-ZERO", 20);
11147  memset (b_369 + 10199 + 20, 32, 11);
11148  memcpy (b_369 + 10230, "1NEGATIVE", 9);
11149  memset (b_369 + 10230 + 9, 32, 22);
11150  memcpy (b_369 + 10261, "0NEGATIVE-INFINITY", 18);
11151  memset (b_369 + 10261 + 18, 32, 13);
11152  memcpy (b_369 + 10292, "0NESTED", 7);
11153  memset (b_369 + 10292 + 7, 32, 24);
11154  memcpy (b_369 + 10323, "1NEXT", 5);
11155  memset (b_369 + 10323 + 5, 32, 26);
11156  memcpy (b_369 + 10354, "1NO", 3);
11157  memset (b_369 + 10354 + 3, 32, 28);
11158  memcpy (b_369 + 10385, "1NO-ECHO", 8);
11159  memset (b_369 + 10385 + 8, 32, 23);
11160  memcpy (b_369 + 10416, "0NONE", 5);
11161  memset (b_369 + 10416 + 5, 32, 26);
11162  memcpy (b_369 + 10447, "1NORMAL", 7);
11163  memset (b_369 + 10447 + 7, 32, 24);
11164  memcpy (b_369 + 10478, "1NOT", 4);
11165  memset (b_369 + 10478 + 4, 32, 27);
11166  memcpy (b_369 + 10509, "0NOT-A-NUMBER", 13);
11167  memset (b_369 + 10509 + 13, 32, 18);
11168  memcpy (b_369 + 10540, "1NULL", 5);
11169  memset (b_369 + 10540 + 5, 32, 26);
11170  memcpy (b_369 + 10571, "1NULLS", 6);
11171  memset (b_369 + 10571 + 6, 32, 25);
11172  memcpy (b_369 + 10602, "1NUMBER", 7);
11173  memset (b_369 + 10602 + 7, 32, 24);
11174  memcpy (b_369 + 10633, "1NUMBER-OF-CALL-PARAMETERS", 26);
11175  memset (b_369 + 10633 + 26, 32, 5);
11176  memcpy (b_369 + 10664, "1NUMBERS", 8);
11177  memset (b_369 + 10664 + 8, 32, 23);
11178  memcpy (b_369 + 10695, "1NUMERIC", 8);
11179  memset (b_369 + 10695 + 8, 32, 23);
11180  memcpy (b_369 + 10726, "1NUMERIC-EDITED", 15);
11181  memset (b_369 + 10726 + 15, 32, 16);
11182  memcpy (b_369 + 10757, "0OBJECT", 7);
11183  memset (b_369 + 10757 + 7, 32, 24);
11184  memcpy (b_369 + 10788, "1OBJECT-COMPUTER", 16);
11185  memset (b_369 + 10788 + 16, 32, 15);
11186  memcpy (b_369 + 10819, "0OBJECT-REFERENCE", 17);
11187  memset (b_369 + 10819 + 17, 32, 14);
11188  memcpy (b_369 + 10850, "1OCCURS", 7);
11189  memset (b_369 + 10850 + 7, 32, 24);
11190  memcpy (b_369 + 10881, "1OF", 3);
11191  memset (b_369 + 10881 + 3, 32, 28);
11192  memcpy (b_369 + 10912, "1OFF", 4);
11193  memset (b_369 + 10912 + 4, 32, 27);
11194  memcpy (b_369 + 10943, "1OMITTED", 8);
11195  memset (b_369 + 10943 + 8, 32, 23);
11196  memcpy (b_369 + 10974, "1ON", 3);
11197  memset (b_369 + 10974 + 3, 32, 28);
11198  memcpy (b_369 + 11005, "1ONLY", 5);
11199  memset (b_369 + 11005 + 5, 32, 26);
11200  memcpy (b_369 + 11036, "1OPEN", 5);
11201  memset (b_369 + 11036 + 5, 32, 26);
11202  memcpy (b_369 + 11067, "1OPTIONAL", 9);
11203  memset (b_369 + 11067 + 9, 32, 22);
11204  memcpy (b_369 + 11098, "0OPTIONS", 8);
11205  memset (b_369 + 11098 + 8, 32, 23);
11206  memcpy (b_369 + 11129, "1OR", 3);
11207  memset (b_369 + 11129 + 3, 32, 28);
11208  memcpy (b_369 + 11160, "1ORDER", 6);
11209  memset (b_369 + 11160 + 6, 32, 25);
11210  memcpy (b_369 + 11191, "1ORGANISATION", 13);
11211  memset (b_369 + 11191 + 13, 32, 18);
11212  memcpy (b_369 + 11222, "1ORGANIZATION", 13);
11213  memset (b_369 + 11222 + 13, 32, 18);
11214  memcpy (b_369 + 11253, "1OTHER", 6);
11215  memset (b_369 + 11253 + 6, 32, 25);
11216  memcpy (b_369 + 11284, "1OUTPUT", 7);
11217  memset (b_369 + 11284 + 7, 32, 24);
11218  memcpy (b_369 + 11315, "1OVERFLOW", 9);
11219  memset (b_369 + 11315 + 9, 32, 22);
11220  memcpy (b_369 + 11346, "1OVERLINE", 9);
11221  memset (b_369 + 11346 + 9, 32, 22);
11222  memcpy (b_369 + 11377, "0OVERRIDE", 9);
11223  memset (b_369 + 11377 + 9, 32, 22);
11224  memcpy (b_369 + 11408, "1PACKED-DECIMAL", 15);
11225  memset (b_369 + 11408 + 15, 32, 16);
11226  memcpy (b_369 + 11439, "1PADDING", 8);
11227  memset (b_369 + 11439 + 8, 32, 23);
11228  memcpy (b_369 + 11470, "1PAGE", 5);
11229  memset (b_369 + 11470 + 5, 32, 26);
11230  memcpy (b_369 + 11501, "1PAGE-COUNTER", 13);
11231  memset (b_369 + 11501 + 13, 32, 18);
11232  memcpy (b_369 + 11532, "1PARAGRAPH", 10);
11233  memset (b_369 + 11532 + 10, 32, 21);
11234  memcpy (b_369 + 11563, "1PERFORM", 8);
11235  memset (b_369 + 11563 + 8, 32, 23);
11236  memcpy (b_369 + 11594, "0PF", 3);
11237  memset (b_369 + 11594 + 3, 32, 28);
11238  memcpy (b_369 + 11625, "0PH", 3);
11239  memset (b_369 + 11625 + 3, 32, 28);
11240  memcpy (b_369 + 11656, "1PIC", 4);
11241  memset (b_369 + 11656 + 4, 32, 27);
11242  memcpy (b_369 + 11687, "1PICTURE", 8);
11243  memset (b_369 + 11687 + 8, 32, 23);
11244  memcpy (b_369 + 11718, "1PLUS", 5);
11245  memset (b_369 + 11718 + 5, 32, 26);
11246  memcpy (b_369 + 11749, "1POINTER", 8);
11247  memset (b_369 + 11749 + 8, 32, 23);
11248  memcpy (b_369 + 11780, "1POSITION", 9);
11249  memset (b_369 + 11780 + 9, 32, 22);
11250  memcpy (b_369 + 11811, "1POSITIVE", 9);
11251  memset (b_369 + 11811 + 9, 32, 22);
11252  memcpy (b_369 + 11842, "0POSITIVE-INFINITY", 18);
11253  memset (b_369 + 11842 + 18, 32, 13);
11254  memcpy (b_369 + 11873, "0PREFIXED", 9);
11255  memset (b_369 + 11873 + 9, 32, 22);
11256  memcpy (b_369 + 11904, "0PRESENT", 8);
11257  memset (b_369 + 11904 + 8, 32, 23);
11258  memcpy (b_369 + 11935, "1PREVIOUS", 9);
11259  memset (b_369 + 11935 + 9, 32, 22);
11260  memcpy (b_369 + 11966, "1PRINTER", 8);
11261  memset (b_369 + 11966 + 8, 32, 23);
11262  memcpy (b_369 + 11997, "0PRINTING", 9);
11263  memset (b_369 + 11997 + 9, 32, 22);
11264  memcpy (b_369 + 12028, "1PROCEDURE", 10);
11265  memset (b_369 + 12028 + 10, 32, 21);
11266  memcpy (b_369 + 12059, "1PROCEDURE-POINTER", 18);
11267  memset (b_369 + 12059 + 18, 32, 13);
11268  memcpy (b_369 + 12090, "1PROCEDURES", 11);
11269  memset (b_369 + 12090 + 11, 32, 20);
11270  memcpy (b_369 + 12121, "1PROCEED", 8);
11271  memset (b_369 + 12121 + 8, 32, 23);
11272  memcpy (b_369 + 12152, "1PROGRAM", 8);
11273  memset (b_369 + 12152 + 8, 32, 23);
11274  memcpy (b_369 + 12183, "1PROGRAM-ID", 11);
11275  memset (b_369 + 12183 + 11, 32, 20);
11276  memcpy (b_369 + 12214, "1PROGRAM-POINTER", 16);
11277  memset (b_369 + 12214 + 16, 32, 15);
11278  memcpy (b_369 + 12245, "1PROHIBITED", 11);
11279  memset (b_369 + 12245 + 11, 32, 20);
11280  memcpy (b_369 + 12276, "1PROMPT", 7);
11281  memset (b_369 + 12276 + 7, 32, 24);
11282  memcpy (b_369 + 12307, "0PROPERTY", 9);
11283  memset (b_369 + 12307 + 9, 32, 22);
11284  memcpy (b_369 + 12338, "0PROTOTYPE", 10);
11285  memset (b_369 + 12338 + 10, 32, 21);
11286  memcpy (b_369 + 12369, "0PURGE", 6);
11287  memset (b_369 + 12369 + 6, 32, 25);
11288  memcpy (b_369 + 12400, "0QUEUE", 6);
11289  memset (b_369 + 12400 + 6, 32, 25);
11290  memcpy (b_369 + 12431, "1QUOTE", 6);
11291  memset (b_369 + 12431 + 6, 32, 25);
11292  memcpy (b_369 + 12462, "1QUOTES", 7);
11293  memset (b_369 + 12462 + 7, 32, 24);
11294  memcpy (b_369 + 12493, "0RAISE", 6);
11295  memset (b_369 + 12493 + 6, 32, 25);
11296  memcpy (b_369 + 12524, "0RAISING", 8);
11297  memset (b_369 + 12524 + 8, 32, 23);
11298  memcpy (b_369 + 12555, "1RANDOM", 7);
11299  memset (b_369 + 12555 + 7, 32, 24);
11300  memcpy (b_369 + 12586, "0RD", 3);
11301  memset (b_369 + 12586 + 3, 32, 28);
11302  memcpy (b_369 + 12617, "1READ", 5);
11303  memset (b_369 + 12617 + 5, 32, 26);
11304  memcpy (b_369 + 12648, "0RECEIVE", 8);
11305  memset (b_369 + 12648 + 8, 32, 23);
11306  memcpy (b_369 + 12679, "1RECORD", 7);
11307  memset (b_369 + 12679 + 7, 32, 24);
11308  memcpy (b_369 + 12710, "1RECORDING", 10);
11309  memset (b_369 + 12710 + 10, 32, 21);
11310  memcpy (b_369 + 12741, "1RECORDS", 8);
11311  memset (b_369 + 12741 + 8, 32, 23);
11312  memcpy (b_369 + 12772, "1RECURSIVE", 10);
11313  memset (b_369 + 12772 + 10, 32, 21);
11314  memcpy (b_369 + 12803, "1REDEFINES", 10);
11315  memset (b_369 + 12803 + 10, 32, 21);
11316  memcpy (b_369 + 12834, "1REEL", 5);
11317  memset (b_369 + 12834 + 5, 32, 26);
11318  memcpy (b_369 + 12865, "1REFERENCE", 10);
11319  memset (b_369 + 12865 + 10, 32, 21);
11320  memcpy (b_369 + 12896, "1REFERENCES", 11);
11321  memset (b_369 + 12896 + 11, 32, 20);
11322  memcpy (b_369 + 12927, "0RELATION", 9);
11323  memset (b_369 + 12927 + 9, 32, 22);
11324  memcpy (b_369 + 12958, "1RELATIVE", 9);
11325  memset (b_369 + 12958 + 9, 32, 22);
11326  memcpy (b_369 + 12989, "1RELEASE", 8);
11327  memset (b_369 + 12989 + 8, 32, 23);
11328  memcpy (b_369 + 13020, "1REMAINDER", 10);
11329  memset (b_369 + 13020 + 10, 32, 21);
11330  memcpy (b_369 + 13051, "1REMOVAL", 8);
11331  memset (b_369 + 13051 + 8, 32, 23);
11332  memcpy (b_369 + 13082, "1RENAMES", 8);
11333  memset (b_369 + 13082 + 8, 32, 23);
11334  memcpy (b_369 + 13113, "1REPLACE", 8);
11335  memset (b_369 + 13113 + 8, 32, 23);
11336  memcpy (b_369 + 13144, "1REPLACING", 10);
11337  memset (b_369 + 13144 + 10, 32, 21);
11338  memcpy (b_369 + 13175, "0REPORT", 7);
11339  memset (b_369 + 13175 + 7, 32, 24);
11340  memcpy (b_369 + 13206, "0REPORTING", 10);
11341  memset (b_369 + 13206 + 10, 32, 21);
11342  memcpy (b_369 + 13237, "0REPORTS", 8);
11343  memset (b_369 + 13237 + 8, 32, 23);
11344  memcpy (b_369 + 13268, "1REPOSITORY", 11);
11345  memset (b_369 + 13268 + 11, 32, 20);
11346  memcpy (b_369 + 13299, "0REPRESENTS-NOT-A-NUMBER", 24);
11347  memset (b_369 + 13299 + 24, 32, 7);
11348  memcpy (b_369 + 13330, "1REQUIRED", 9);
11349  memset (b_369 + 13330 + 9, 32, 22);
11350  memcpy (b_369 + 13361, "1RESERVE", 8);
11351  memset (b_369 + 13361 + 8, 32, 23);
11352  memcpy (b_369 + 13392, "1RESET", 6);
11353  memset (b_369 + 13392 + 6, 32, 25);
11354  memcpy (b_369 + 13423, "0RESUME", 7);
11355  memset (b_369 + 13423 + 7, 32, 24);
11356  memcpy (b_369 + 13454, "0RETRY", 6);
11357  memset (b_369 + 13454 + 6, 32, 25);
11358  memcpy (b_369 + 13485, "1RETURN", 7);
11359  memset (b_369 + 13485 + 7, 32, 24);
11360  memcpy (b_369 + 13516, "1RETURN-CODE", 12);
11361  memset (b_369 + 13516 + 12, 32, 19);
11362  memcpy (b_369 + 13547, "1RETURNING", 10);
11363  memset (b_369 + 13547 + 10, 32, 21);
11364  memcpy (b_369 + 13578, "1REVERSE-VIDEO", 14);
11365  memset (b_369 + 13578 + 14, 32, 17);
11366  memcpy (b_369 + 13609, "1REVERSED", 9);
11367  memset (b_369 + 13609 + 9, 32, 22);
11368  memcpy (b_369 + 13640, "1REWIND", 7);
11369  memset (b_369 + 13640 + 7, 32, 24);
11370  memcpy (b_369 + 13671, "1REWRITE", 8);
11371  memset (b_369 + 13671 + 8, 32, 23);
11372  memcpy (b_369 + 13702, "0RF", 3);
11373  memset (b_369 + 13702 + 3, 32, 28);
11374  memcpy (b_369 + 13733, "0RH", 3);
11375  memset (b_369 + 13733 + 3, 32, 28);
11376  memcpy (b_369 + 13764, "1RIGHT", 6);
11377  memset (b_369 + 13764 + 6, 32, 25);
11378  memcpy (b_369 + 13795, "0RIGHT-JUSTIFY", 14);
11379  memset (b_369 + 13795 + 14, 32, 17);
11380  memcpy (b_369 + 13826, "1ROLLBACK", 9);
11381  memset (b_369 + 13826 + 9, 32, 22);
11382  memcpy (b_369 + 13857, "1ROUNDED", 8);
11383  memset (b_369 + 13857 + 8, 32, 23);
11384  memcpy (b_369 + 13888, "0ROUNDING", 9);
11385  memset (b_369 + 13888 + 9, 32, 22);
11386  memcpy (b_369 + 13919, "1RUN", 4);
11387  memset (b_369 + 13919 + 4, 32, 27);
11388  memcpy (b_369 + 13950, "1SAME", 5);
11389  memset (b_369 + 13950 + 5, 32, 26);
11390  memcpy (b_369 + 13981, "1SCREEN", 7);
11391  memset (b_369 + 13981 + 7, 32, 24);
11392  memcpy (b_369 + 14012, "1SD", 3);
11393  memset (b_369 + 14012 + 3, 32, 28);
11394  memcpy (b_369 + 14043, "1SEARCH", 7);
11395  memset (b_369 + 14043 + 7, 32, 24);
11396  memcpy (b_369 + 14074, "0SECONDS", 8);
11397  memset (b_369 + 14074 + 8, 32, 23);
11398  memcpy (b_369 + 14105, "1SECTION", 8);
11399  memset (b_369 + 14105 + 8, 32, 23);
11400  memcpy (b_369 + 14136, "1SECURE", 7);
11401  memset (b_369 + 14136 + 7, 32, 24);
11402  memcpy (b_369 + 14167, "0SEGMENT", 8);
11403  memset (b_369 + 14167 + 8, 32, 23);
11404  memcpy (b_369 + 14198, "1SEGMENT-LIMIT", 14);
11405  memset (b_369 + 14198 + 14, 32, 17);
11406  memcpy (b_369 + 14229, "1SELECT", 7);
11407  memset (b_369 + 14229 + 7, 32, 24);
11408  memcpy (b_369 + 14260, "0SELF", 5);
11409  memset (b_369 + 14260 + 5, 32, 26);
11410  memcpy (b_369 + 14291, "0SEND", 5);
11411  memset (b_369 + 14291 + 5, 32, 26);
11412  memcpy (b_369 + 14322, "1SENTENCE", 9);
11413  memset (b_369 + 14322 + 9, 32, 22);
11414  memcpy (b_369 + 14353, "1SEPARATE", 9);
11415  memset (b_369 + 14353 + 9, 32, 22);
11416  memcpy (b_369 + 14384, "1SEQUENCE", 9);
11417  memset (b_369 + 14384 + 9, 32, 22);
11418  memcpy (b_369 + 14415, "1SEQUENTIAL", 11);
11419  memset (b_369 + 14415 + 11, 32, 20);
11420  memcpy (b_369 + 14446, "1SET", 4);
11421  memset (b_369 + 14446 + 4, 32, 27);
11422  memcpy (b_369 + 14477, "1SHARING", 8);
11423  memset (b_369 + 14477 + 8, 32, 23);
11424  memcpy (b_369 + 14508, "1SIGN", 5);
11425  memset (b_369 + 14508 + 5, 32, 26);
11426  memcpy (b_369 + 14539, "1SIGNED", 7);
11427  memset (b_369 + 14539 + 7, 32, 24);
11428  memcpy (b_369 + 14570, "1SIGNED-INT", 11);
11429  memset (b_369 + 14570 + 11, 32, 20);
11430  memcpy (b_369 + 14601, "1SIGNED-LONG", 12);
11431  memset (b_369 + 14601 + 12, 32, 19);
11432  memcpy (b_369 + 14632, "1SIGNED-SHORT", 13);
11433  memset (b_369 + 14632 + 13, 32, 18);
11434  memcpy (b_369 + 14663, "1SIZE", 5);
11435  memset (b_369 + 14663 + 5, 32, 26);
11436  memcpy (b_369 + 14694, "1SORT", 5);
11437  memset (b_369 + 14694 + 5, 32, 26);
11438  memcpy (b_369 + 14725, "1SORT-MERGE", 11);
11439  memset (b_369 + 14725 + 11, 32, 20);
11440  memcpy (b_369 + 14756, "1SORT-RETURN", 12);
11441  memset (b_369 + 14756 + 12, 32, 19);
11442  memcpy (b_369 + 14787, "1SOURCE", 7);
11443  memset (b_369 + 14787 + 7, 32, 24);
11444  memcpy (b_369 + 14818, "1SOURCE-COMPUTER", 16);
11445  memset (b_369 + 14818 + 16, 32, 15);
11446  memcpy (b_369 + 14849, "0SOURCES", 8);
11447  memset (b_369 + 14849 + 8, 32, 23);
11448  memcpy (b_369 + 14880, "1SPACE", 6);
11449  memset (b_369 + 14880 + 6, 32, 25);
11450  memcpy (b_369 + 14911, "0SPACE-FILL", 11);
11451  memset (b_369 + 14911 + 11, 32, 20);
11452  memcpy (b_369 + 14942, "1SPACES", 7);
11453  memset (b_369 + 14942 + 7, 32, 24);
11454  memcpy (b_369 + 14973, "1SPECIAL-NAMES", 14);
11455  memset (b_369 + 14973 + 14, 32, 17);
11456  memcpy (b_369 + 15004, "1STANDARD", 9);
11457  memset (b_369 + 15004 + 9, 32, 22);
11458  memcpy (b_369 + 15035, "1STANDARD-1", 11);
11459  memset (b_369 + 15035 + 11, 32, 20);
11460  memcpy (b_369 + 15066, "1STANDARD-2", 11);
11461  memset (b_369 + 15066 + 11, 32, 20);
11462  memcpy (b_369 + 15097, "0STANDARD-BINARY", 16);
11463  memset (b_369 + 15097 + 16, 32, 15);
11464  memcpy (b_369 + 15128, "0STANDARD-DECIMAL", 17);
11465  memset (b_369 + 15128 + 17, 32, 14);
11466  memcpy (b_369 + 15159, "1START", 6);
11467  memset (b_369 + 15159 + 6, 32, 25);
11468  memcpy (b_369 + 15190, "0STATEMENT", 10);
11469  memset (b_369 + 15190 + 10, 32, 21);
11470  memcpy (b_369 + 15221, "1STATIC", 7);
11471  memset (b_369 + 15221 + 7, 32, 24);
11472  memcpy (b_369 + 15252, "1STATUS", 7);
11473  memset (b_369 + 15252 + 7, 32, 24);
11474  memcpy (b_369 + 15283, "1STDCALL", 8);
11475  memset (b_369 + 15283 + 8, 32, 23);
11476  memcpy (b_369 + 15314, "1STEP", 5);
11477  memset (b_369 + 15314 + 5, 32, 26);
11478  memcpy (b_369 + 15345, "1STOP", 5);
11479  memset (b_369 + 15345 + 5, 32, 26);
11480  memcpy (b_369 + 15376, "1STRING", 7);
11481  memset (b_369 + 15376 + 7, 32, 24);
11482  memcpy (b_369 + 15407, "0STRONG", 7);
11483  memset (b_369 + 15407 + 7, 32, 24);
11484  memcpy (b_369 + 15438, "0SUB-QUEUE-1", 12);
11485  memset (b_369 + 15438 + 12, 32, 19);
11486  memcpy (b_369 + 15469, "0SUB-QUEUE-2", 12);
11487  memset (b_369 + 15469 + 12, 32, 19);
11488  memcpy (b_369 + 15500, "0SUB-QUEUE-3", 12);
11489  memset (b_369 + 15500 + 12, 32, 19);
11490  memcpy (b_369 + 15531, "1SUBTRACT", 9);
11491  memset (b_369 + 15531 + 9, 32, 22);
11492  memcpy (b_369 + 15562, "1SUM", 4);
11493  memset (b_369 + 15562 + 4, 32, 27);
11494  memcpy (b_369 + 15593, "0SUPER", 6);
11495  memset (b_369 + 15593 + 6, 32, 25);
11496  memcpy (b_369 + 15624, "1SUPPRESS", 9);
11497  memset (b_369 + 15624 + 9, 32, 22);
11498  memcpy (b_369 + 15655, "0SYMBOL", 7);
11499  memset (b_369 + 15655 + 7, 32, 24);
11500  memcpy (b_369 + 15686, "1SYMBOLIC", 9);
11501  memset (b_369 + 15686 + 9, 32, 22);
11502  memcpy (b_369 + 15717, "1SYNC", 5);
11503  memset (b_369 + 15717 + 5, 32, 26);
11504  memcpy (b_369 + 15748, "1SYNCHRONISED", 13);
11505  memset (b_369 + 15748 + 13, 32, 18);
11506  memcpy (b_369 + 15779, "1SYNCHRONIZED", 13);
11507  memset (b_369 + 15779 + 13, 32, 18);
11508  memcpy (b_369 + 15810, "0SYSTEM-DEFAULT", 15);
11509  memset (b_369 + 15810 + 15, 32, 16);
11510  memcpy (b_369 + 15841, "0TABLE", 6);
11511  memset (b_369 + 15841 + 6, 32, 25);
11512  memcpy (b_369 + 15872, "1TALLYING", 9);
11513  memset (b_369 + 15872 + 9, 32, 22);
11514  memcpy (b_369 + 15903, "1TAPE", 5);
11515  memset (b_369 + 15903 + 5, 32, 26);
11516  memcpy (b_369 + 15934, "0TERMINAL", 9);
11517  memset (b_369 + 15934 + 9, 32, 22);
11518  memcpy (b_369 + 15965, "1TERMINATE", 10);
11519  memset (b_369 + 15965 + 10, 32, 21);
11520  memcpy (b_369 + 15996, "1TEST", 5);
11521  memset (b_369 + 15996 + 5, 32, 26);
11522  memcpy (b_369 + 16027, "0TEXT", 5);
11523  memset (b_369 + 16027 + 5, 32, 26);
11524  memcpy (b_369 + 16058, "1THAN", 5);
11525  memset (b_369 + 16058 + 5, 32, 26);
11526  memcpy (b_369 + 16089, "1THEN", 5);
11527  memset (b_369 + 16089 + 5, 32, 26);
11528  memcpy (b_369 + 16120, "1THROUGH", 8);
11529  memset (b_369 + 16120 + 8, 32, 23);
11530  memcpy (b_369 + 16151, "1THRU", 5);
11531  memset (b_369 + 16151 + 5, 32, 26);
11532  memcpy (b_369 + 16182, "1TIME", 5);
11533  memset (b_369 + 16182 + 5, 32, 26);
11534  memcpy (b_369 + 16213, "0TIME-OUT", 9);
11535  memset (b_369 + 16213 + 9, 32, 22);
11536  memcpy (b_369 + 16244, "0TIMEOUT", 8);
11537  memset (b_369 + 16244 + 8, 32, 23);
11538  memcpy (b_369 + 16275, "1TIMES", 6);
11539  memset (b_369 + 16275 + 6, 32, 25);
11540  memcpy (b_369 + 16306, "1TO", 3);
11541  memset (b_369 + 16306 + 3, 32, 28);
11542  memcpy (b_369 + 16337, "1TOP", 4);
11543  memset (b_369 + 16337 + 4, 32, 27);
11544  memcpy (b_369 + 16368, "1TOWARD-GREATER", 15);
11545  memset (b_369 + 16368 + 15, 32, 16);
11546  memcpy (b_369 + 16399, "1TOWARD-LESSER", 14);
11547  memset (b_369 + 16399 + 14, 32, 17);
11548  memcpy (b_369 + 16430, "1TRAILING", 9);
11549  memset (b_369 + 16430 + 9, 32, 22);
11550  memcpy (b_369 + 16461, "0TRAILING-SIGN", 14);
11551  memset (b_369 + 16461 + 14, 32, 17);
11552  memcpy (b_369 + 16492, "1TRANSFORM", 10);
11553  memset (b_369 + 16492 + 10, 32, 21);
11554  memcpy (b_369 + 16523, "1TRUE", 5);
11555  memset (b_369 + 16523 + 5, 32, 26);
11556  memcpy (b_369 + 16554, "1TRUNCATION", 11);
11557  memset (b_369 + 16554 + 11, 32, 20);
11558  memcpy (b_369 + 16585, "1TYPE", 5);
11559  memset (b_369 + 16585 + 5, 32, 26);
11560  memcpy (b_369 + 16616, "0TYPEDEF", 8);
11561  memset (b_369 + 16616 + 8, 32, 23);
11562  memcpy (b_369 + 16647, "0UCS-4", 6);
11563  memset (b_369 + 16647 + 6, 32, 25);
11564  memcpy (b_369 + 16678, "1UNDERLINE", 10);
11565  memset (b_369 + 16678 + 10, 32, 21);
11566  memcpy (b_369 + 16709, "1UNIT", 5);
11567  memset (b_369 + 16709 + 5, 32, 26);
11568  memcpy (b_369 + 16740, "0UNIVERSAL", 10);
11569  memset (b_369 + 16740 + 10, 32, 21);
11570  memcpy (b_369 + 16771, "1UNLOCK", 7);
11571  memset (b_369 + 16771 + 7, 32, 24);
11572  memcpy (b_369 + 16802, "1UNSIGNED", 9);
11573  memset (b_369 + 16802 + 9, 32, 22);
11574  memcpy (b_369 + 16833, "1UNSIGNED-INT", 13);
11575  memset (b_369 + 16833 + 13, 32, 18);
11576  memcpy (b_369 + 16864, "1UNSIGNED-LONG", 14);
11577  memset (b_369 + 16864 + 14, 32, 17);
11578  memcpy (b_369 + 16895, "1UNSIGNED-SHORT", 15);
11579  memset (b_369 + 16895 + 15, 32, 16);
11580  memcpy (b_369 + 16926, "1UNSTRING", 9);
11581  memset (b_369 + 16926 + 9, 32, 22);
11582  memcpy (b_369 + 16957, "1UNTIL", 6);
11583  memset (b_369 + 16957 + 6, 32, 25);
11584  memcpy (b_369 + 16988, "1UP", 3);
11585  memset (b_369 + 16988 + 3, 32, 28);
11586  memcpy (b_369 + 17019, "1UPDATE", 7);
11587  memset (b_369 + 17019 + 7, 32, 24);
11588  memcpy (b_369 + 17050, "1UPON", 5);
11589  memset (b_369 + 17050 + 5, 32, 26);
11590  memcpy (b_369 + 17081, "0UPPER", 6);
11591  memset (b_369 + 17081 + 6, 32, 25);
11592  memcpy (b_369 + 17112, "1USAGE", 6);
11593  memset (b_369 + 17112 + 6, 32, 25);
11594  memcpy (b_369 + 17143, "1USE", 4);
11595  memset (b_369 + 17143 + 4, 32, 27);
11596  memcpy (b_369 + 17174, "0USER-DEFAULT", 13);
11597  memset (b_369 + 17174 + 13, 32, 18);
11598  memcpy (b_369 + 17205, "1USING", 6);
11599  memset (b_369 + 17205 + 6, 32, 25);
11600  memcpy (b_369 + 17236, "0UTF-16", 7);
11601  memset (b_369 + 17236 + 7, 32, 24);
11602  memcpy (b_369 + 17267, "0UTF-8", 6);
11603  memset (b_369 + 17267 + 6, 32, 25);
11604  memcpy (b_369 + 17298, "0VAL-STATUS", 11);
11605  memset (b_369 + 17298 + 11, 32, 20);
11606  memcpy (b_369 + 17329, "0VALID", 6);
11607  memset (b_369 + 17329 + 6, 32, 25);
11608  memcpy (b_369 + 17360, "0VALIDATE", 9);
11609  memset (b_369 + 17360 + 9, 32, 22);
11610  memcpy (b_369 + 17391, "0VALIDATE-STATUS", 16);
11611  memset (b_369 + 17391 + 16, 32, 15);
11612  memcpy (b_369 + 17422, "1VALUE", 6);
11613  memset (b_369 + 17422 + 6, 32, 25);
11614  memcpy (b_369 + 17453, "1VALUES", 7);
11615  memset (b_369 + 17453 + 7, 32, 24);
11616  memcpy (b_369 + 17484, "1VARYING", 8);
11617  memset (b_369 + 17484 + 8, 32, 23);
11618  memcpy (b_369 + 17515, "1WAIT", 5);
11619  memset (b_369 + 17515 + 5, 32, 26);
11620  memcpy (b_369 + 17546, "1WHEN", 5);
11621  memset (b_369 + 17546 + 5, 32, 26);
11622  memcpy (b_369 + 17577, "1WITH", 5);
11623  memset (b_369 + 17577 + 5, 32, 26);
11624  memcpy (b_369 + 17608, "1WORDS", 6);
11625  memset (b_369 + 17608 + 6, 32, 25);
11626  memcpy (b_369 + 17639, "1WORKING-STORAGE", 16);
11627  memset (b_369 + 17639 + 16, 32, 15);
11628  memcpy (b_369 + 17670, "1WRITE", 6);
11629  memset (b_369 + 17670 + 6, 32, 25);
11630  memcpy (b_369 + 17701, "1YYYYDDD", 8);
11631  memset (b_369 + 17701 + 8, 32, 23);
11632  memcpy (b_369 + 17732, "1YYYYMMDD", 9);
11633  memset (b_369 + 17732 + 9, 32, 22);
11634  memcpy (b_369 + 17763, "1ZERO", 5);
11635  memset (b_369 + 17763 + 5, 32, 26);
11636  memcpy (b_369 + 17794, "0ZERO-FILL", 10);
11637  memset (b_369 + 17794 + 10, 32, 21);
11638  memcpy (b_369 + 17825, "1ZEROES", 7);
11639  memset (b_369 + 17825 + 7, 32, 24);
11640  memcpy (b_369 + 17856, "1ZEROS", 6);
11641  memset (b_369 + 17856 + 6, 32, 25);
11642  memset (b_369 + 17887, 255, 13857);
11643  cob_setswp_s32 (b_954, 577);
11644  memset (b_955, 255, 330066);
11645  (*(int *)(b_961)) = 10;
11646  (*(int *)(b_962)) = 0;
11647  memset (b_963, 255, 760076);
11648  (*(int *)(b_973)) = 10;
11649  (*(int *)(b_974)) = 0;
11650 
11651 
11652  if (!h_SUPPLEMENTAL_PART2_IN)
11653  {
11654  h_SUPPLEMENTAL_PART2_IN = cob_cache_malloc (sizeof(cob_file));
11655  }
11656  h_SUPPLEMENTAL_PART2_IN->select_name = (const char *)"Supplemental-Part2-In";
11657  h_SUPPLEMENTAL_PART2_IN->file_status = h_SUPPLEMENTAL_PART2_IN_status;
11658  memset (h_SUPPLEMENTAL_PART2_IN_status, '0', 2);
11659  h_SUPPLEMENTAL_PART2_IN->assign = &f_119;
11660  h_SUPPLEMENTAL_PART2_IN->record = &f_35;
11661  h_SUPPLEMENTAL_PART2_IN->variable_record = NULL;
11662  h_SUPPLEMENTAL_PART2_IN->record_min = 40;
11663  h_SUPPLEMENTAL_PART2_IN->record_max = 40;
11664  h_SUPPLEMENTAL_PART2_IN->nkeys = 0;
11665  h_SUPPLEMENTAL_PART2_IN->keys = NULL;
11666  h_SUPPLEMENTAL_PART2_IN->file = NULL;
11667  h_SUPPLEMENTAL_PART2_IN->fd = -1;
11668  h_SUPPLEMENTAL_PART2_IN->organization = 1;
11669  h_SUPPLEMENTAL_PART2_IN->access_mode = 1;
11670  h_SUPPLEMENTAL_PART2_IN->lock_mode = 0;
11671  h_SUPPLEMENTAL_PART2_IN->open_mode = 0;
11672  h_SUPPLEMENTAL_PART2_IN->flag_optional = 0;
11673  h_SUPPLEMENTAL_PART2_IN->last_open_mode = 0;
11674  h_SUPPLEMENTAL_PART2_IN->flag_operation = 0;
11675  h_SUPPLEMENTAL_PART2_IN->flag_nonexistent = 0;
11676  h_SUPPLEMENTAL_PART2_IN->flag_end_of_file = 0;
11677  h_SUPPLEMENTAL_PART2_IN->flag_begin_of_file = 0;
11678  h_SUPPLEMENTAL_PART2_IN->flag_first_read = 0;
11679  h_SUPPLEMENTAL_PART2_IN->flag_read_done = 0;
11680  h_SUPPLEMENTAL_PART2_IN->flag_select_features = 0;
11681  h_SUPPLEMENTAL_PART2_IN->flag_needs_nl = 0;
11682  h_SUPPLEMENTAL_PART2_IN->flag_needs_top = 0;
11683  h_SUPPLEMENTAL_PART2_IN->file_version = 1;
11684  if (!h_SUPPLEMENTAL_PART1_OUT)
11685  {
11686  h_SUPPLEMENTAL_PART1_OUT = cob_cache_malloc (sizeof(cob_file));
11687  }
11688  h_SUPPLEMENTAL_PART1_OUT->select_name = (const char *)"Supplemental-Part1-Out";
11689  h_SUPPLEMENTAL_PART1_OUT->file_status = h_SUPPLEMENTAL_PART1_OUT_status;
11690  memset (h_SUPPLEMENTAL_PART1_OUT_status, '0', 2);
11691  h_SUPPLEMENTAL_PART1_OUT->assign = &f_118;
11692  h_SUPPLEMENTAL_PART1_OUT->record = &f_35;
11693  h_SUPPLEMENTAL_PART1_OUT->variable_record = NULL;
11694  h_SUPPLEMENTAL_PART1_OUT->record_min = 0;
11695  h_SUPPLEMENTAL_PART1_OUT->record_max = 40;
11696  h_SUPPLEMENTAL_PART1_OUT->nkeys = 0;
11697  h_SUPPLEMENTAL_PART1_OUT->keys = NULL;
11698  h_SUPPLEMENTAL_PART1_OUT->file = NULL;
11699  h_SUPPLEMENTAL_PART1_OUT->fd = -1;
11700  h_SUPPLEMENTAL_PART1_OUT->organization = 1;
11701  h_SUPPLEMENTAL_PART1_OUT->access_mode = 1;
11702  h_SUPPLEMENTAL_PART1_OUT->lock_mode = 0;
11703  h_SUPPLEMENTAL_PART1_OUT->open_mode = 0;
11704  h_SUPPLEMENTAL_PART1_OUT->flag_optional = 0;
11705  h_SUPPLEMENTAL_PART1_OUT->last_open_mode = 0;
11706  h_SUPPLEMENTAL_PART1_OUT->flag_operation = 0;
11707  h_SUPPLEMENTAL_PART1_OUT->flag_nonexistent = 0;
11708  h_SUPPLEMENTAL_PART1_OUT->flag_end_of_file = 0;
11709  h_SUPPLEMENTAL_PART1_OUT->flag_begin_of_file = 0;
11710  h_SUPPLEMENTAL_PART1_OUT->flag_first_read = 0;
11711  h_SUPPLEMENTAL_PART1_OUT->flag_read_done = 0;
11712  h_SUPPLEMENTAL_PART1_OUT->flag_select_features = 0;
11713  h_SUPPLEMENTAL_PART1_OUT->flag_needs_nl = 0;
11714  h_SUPPLEMENTAL_PART1_OUT->flag_needs_top = 0;
11715  h_SUPPLEMENTAL_PART1_OUT->file_version = 1;
11716  if (!h_SOURCE_LISTING)
11717  {
11718  h_SOURCE_LISTING = cob_cache_malloc (sizeof(cob_file));
11719  }
11720  h_SOURCE_LISTING->select_name = (const char *)"Source-Listing";
11721  h_SOURCE_LISTING->file_status = h_SOURCE_LISTING_status;
11722  memset (h_SOURCE_LISTING_status, '0', 2);
11723  h_SOURCE_LISTING->assign = &f_115;
11724  h_SOURCE_LISTING->record = &f_27;
11725  h_SOURCE_LISTING->variable_record = NULL;
11726  h_SOURCE_LISTING->record_min = 0;
11727  h_SOURCE_LISTING->record_max = 1032;
11728  h_SOURCE_LISTING->nkeys = 0;
11729  h_SOURCE_LISTING->keys = NULL;
11730  h_SOURCE_LISTING->file = NULL;
11731  h_SOURCE_LISTING->fd = -1;
11732  h_SOURCE_LISTING->organization = 1;
11733  h_SOURCE_LISTING->access_mode = 1;
11734  h_SOURCE_LISTING->lock_mode = 0;
11735  h_SOURCE_LISTING->open_mode = 0;
11736  h_SOURCE_LISTING->flag_optional = 0;
11737  h_SOURCE_LISTING->last_open_mode = 0;
11738  h_SOURCE_LISTING->flag_operation = 0;
11739  h_SOURCE_LISTING->flag_nonexistent = 0;
11740  h_SOURCE_LISTING->flag_end_of_file = 0;
11741  h_SOURCE_LISTING->flag_begin_of_file = 0;
11742  h_SOURCE_LISTING->flag_first_read = 0;
11743  h_SOURCE_LISTING->flag_read_done = 0;
11744  h_SOURCE_LISTING->flag_select_features = 0;
11745  h_SOURCE_LISTING->flag_needs_nl = 0;
11746  h_SOURCE_LISTING->flag_needs_top = 0;
11747  h_SOURCE_LISTING->file_version = 1;
11748  if (!h_SOURCEINPUT)
11749  {
11750  h_SOURCEINPUT = cob_cache_malloc (sizeof(cob_file));
11751  }
11752  h_SOURCEINPUT->select_name = (const char *)"SourceInput";
11753  h_SOURCEINPUT->file_status = h_SOURCEINPUT_status;
11754  memset (h_SOURCEINPUT_status, '0', 2);
11755  h_SOURCEINPUT->assign = &f_114;
11756  h_SOURCEINPUT->record = &f_29;
11757  h_SOURCEINPUT->variable_record = NULL;
11758  h_SOURCEINPUT->record_min = 0;
11759  h_SOURCEINPUT->record_max = 1024;
11760  h_SOURCEINPUT->nkeys = 0;
11761  h_SOURCEINPUT->keys = NULL;
11762  h_SOURCEINPUT->file = NULL;
11763  h_SOURCEINPUT->fd = -1;
11764  h_SOURCEINPUT->organization = 1;
11765  h_SOURCEINPUT->access_mode = 1;
11766  h_SOURCEINPUT->lock_mode = 0;
11767  h_SOURCEINPUT->open_mode = 0;
11768  h_SOURCEINPUT->flag_optional = 0;
11769  h_SOURCEINPUT->last_open_mode = 0;
11770  h_SOURCEINPUT->flag_operation = 0;
11771  h_SOURCEINPUT->flag_nonexistent = 0;
11772  h_SOURCEINPUT->flag_end_of_file = 0;
11773  h_SOURCEINPUT->flag_begin_of_file = 0;
11774  h_SOURCEINPUT->flag_first_read = 0;
11775  h_SOURCEINPUT->flag_read_done = 0;
11776  h_SOURCEINPUT->flag_select_features = 1;
11777  h_SOURCEINPUT->flag_needs_nl = 0;
11778  h_SOURCEINPUT->flag_needs_top = 0;
11779  h_SOURCEINPUT->file_version = 1;
11780  if (!h_SORTFILE)
11781  {
11782  h_SORTFILE = cob_cache_malloc (sizeof(cob_file));
11783  }
11784  h_SORTFILE->select_name = (const char *)"SortFile";
11785  h_SORTFILE->file_status = h_SORTFILE_status;
11786  memset (h_SORTFILE_status, '0', 2);
11787  h_SORTFILE->assign = &f_120;
11788  h_SORTFILE->record = &f_39;
11789  h_SORTFILE->variable_record = NULL;
11790  h_SORTFILE->record_min = 40;
11791  h_SORTFILE->record_max = 40;
11792  h_SORTFILE->nkeys = 0;
11793  h_SORTFILE->keys = NULL;
11794  h_SORTFILE->file = NULL;
11795  h_SORTFILE->fd = -1;
11796  h_SORTFILE->organization = 4;
11797  h_SORTFILE->access_mode = 1;
11798  h_SORTFILE->lock_mode = 0;
11799  h_SORTFILE->open_mode = 0;
11800  h_SORTFILE->flag_optional = 0;
11801  h_SORTFILE->last_open_mode = 0;
11802  h_SORTFILE->flag_operation = 0;
11803  h_SORTFILE->flag_nonexistent = 0;
11804  h_SORTFILE->flag_end_of_file = 0;
11805  h_SORTFILE->flag_begin_of_file = 0;
11806  h_SORTFILE->flag_first_read = 0;
11807  h_SORTFILE->flag_read_done = 0;
11808  h_SORTFILE->flag_select_features = 0;
11809  h_SORTFILE->flag_needs_nl = 0;
11810  h_SORTFILE->flag_needs_top = 0;
11811  h_SORTFILE->file_version = 1;
11812 
11813  initialized = 1;
11814  goto P_ret_initialize;
11815 
11816  /* CANCEL callback handling */
11817  P_cancel:
11818 
11819  if (!initialized) {
11820  return 0;
11821  }
11822  if (module->module_active) {
11823  cob_fatal_error (COB_FERROR_CANCEL);
11824  }
11825 
11826  initialized = 0;
11827  return 0;
11828 
11829 }
11830 
11831 /* End PROGRAM-ID 'cobxref' */
11832 
11833 /* End functions */
11834 
cob_file::record
cob_field * record
Definition: common.h:1115
a_2
static const cob_field_attr a_2
Definition: cobxref.c.h:15
st_83
static const char st_83[]
Definition: cobxref.c.h:205
cob_accept_time
void cob_accept_time(cob_field *field)
Definition: common.c:2842
st_109
static const char st_109[]
Definition: cobxref.c.h:231
__cob_module::flag_main
unsigned char flag_main
Definition: common.h:1079
f_117
static cob_field f_117
Definition: cobxref.c.l.h:249
c_74
static const cob_field c_74
Definition: cobxref.c.h:103
st_15
static const char st_15[]
Definition: cobxref.c.h:137
c_68
static const cob_field c_68
Definition: cobxref.c.h:97
cob_all_zero
static cob_field cob_all_zero
Definition: cobxref.c.h:119
COB_FERROR_CODEGEN
#define COB_FERROR_CODEGEN
Definition: common.h:693
st_3
static const char st_3[]
Definition: cobxref.c.h:125
st_32
static const char st_32[]
Definition: cobxref.c.h:154
f_107
static cob_field f_107
Definition: cobxref.c.l.h:242
f_954
static cob_field f_954
Definition: cobxref.c.l.h:306
st_153
static const char st_153[]
Definition: cobxref.c.h:275
c_79
static const cob_field c_79
Definition: cobxref.c.h:108
st_113
static const char st_113[]
Definition: cobxref.c.h:235
f_155
static cob_field f_155
Definition: cobxref.c.l.h:269
st_65
static const char st_65[]
Definition: cobxref.c.h:187
f_168
static cob_field f_168
Definition: cobxref.c.l.h:275
__cob_global::cob_error_file
cob_file * cob_error_file
Definition: common.h:1187
cob_decimal_mul
void cob_decimal_mul(cob_decimal *, cob_decimal *)
Definition: numeric.c:1891
st_136
static const char st_136[]
Definition: cobxref.c.h:258
st_78
static const char st_78[]
Definition: cobxref.c.h:200
cob_glob_ptr
cob_global * cob_glob_ptr
Definition: cobxref.c.l.h:17
st_60
static const char st_60[]
Definition: cobxref.c.h:182
st_27
static const char st_27[]
Definition: cobxref.c.h:149
f_957
static cob_field f_957
Definition: cobxref.c.l.h:307
f_173
static cob_field f_173
Definition: cobxref.c.l.h:277
c_42
static const cob_field c_42
Definition: cobxref.c.h:71
cob_string_delimited
void cob_string_delimited(cob_field *)
Definition: strings.c:430
st_75
static const char st_75[]
Definition: cobxref.c.h:197
f_233
static cob_field f_233
Definition: cobxref.c.l.h:296
f_119
static cob_field f_119
Definition: cobxref.c.l.h:251
cob_check_version
void cob_check_version(const char *prog, const char *packver, const int patchlev)
Definition: common.c:1894
c_67
static const cob_field c_67
Definition: cobxref.c.h:96
COB_MODULE_TIME
#define COB_MODULE_TIME
Definition: cobxref.c:21
st_172
static const char st_172[]
Definition: cobxref.c.h:294
st_127
static const char st_127[]
Definition: cobxref.c.h:249
cob_add_int
int cob_add_int(cob_field *, const int, const int)
Definition: numeric.c:2195
cob_file::organization
unsigned char organization
Definition: common.h:1127
f_39
static cob_field f_39
Definition: cobxref.c.l.h:210
__cob_module::flag_exit_program
unsigned char flag_exit_program
Definition: common.h:1081
f_31
static cob_field f_31
Definition: cobxref.c.l.h:207
__cob_module::module_active
unsigned int module_active
Definition: common.h:1060
st_139
static const char st_139[]
Definition: cobxref.c.h:261
f_47
static cob_field f_47
Definition: cobxref.c.l.h:216
st_133
static const char st_133[]
Definition: cobxref.c.h:255
st_64
static const char st_64[]
Definition: cobxref.c.h:186
st_36
static const char st_36[]
Definition: cobxref.c.h:158
st_61
static const char st_61[]
Definition: cobxref.c.h:183
f_95
static cob_field f_95
Definition: cobxref.c.l.h:235
st_91
static const char st_91[]
Definition: cobxref.c.h:213
st_55
static const char st_55[]
Definition: cobxref.c.h:177
c_54
static const cob_field c_54
Definition: cobxref.c.h:83
cob_move
void cob_move(cob_field *, cob_field *)
Definition: move.c:1170
n0
cob_s64_t n0
Definition: cobxref.c.l.h:48
cob_file_sort_close
void cob_file_sort_close(cob_file *)
Definition: fileio.c:6201
c_14
static const cob_field c_14
Definition: cobxref.c.h:43
cob_file::assign
cob_field * assign
Definition: common.h:1114
f_99
static cob_field f_99
Definition: cobxref.c.l.h:236
c_85
static const cob_field c_85
Definition: cobxref.c.h:114
module
static cob_module * module
Definition: cobxref.c.l.h:14
st_134
static const char st_134[]
Definition: cobxref.c.h:256
st_143
static const char st_143[]
Definition: cobxref.c.h:265
c_62
static const cob_field c_62
Definition: cobxref.c.h:91
st_58
static const char st_58[]
Definition: cobxref.c.h:180
st_156
static const char st_156[]
Definition: cobxref.c.h:278
c_33
static const cob_field c_33
Definition: cobxref.c.h:62
st_80
static const char st_80[]
Definition: cobxref.c.h:202
__cob_module::flag_fold_call
unsigned char flag_fold_call
Definition: common.h:1080
f_53
static cob_field f_53
Definition: cobxref.c.l.h:219
f_128
static cob_field f_128
Definition: cobxref.c.l.h:256
c_20
static const cob_field c_20
Definition: cobxref.c.h:49
f_60
static cob_field f_60
Definition: cobxref.c.l.h:224
st_53
static const char st_53[]
Definition: cobxref.c.h:175
st_8
static const char st_8[]
Definition: cobxref.c.h:130
st_176
static const char st_176[]
Definition: cobxref.c.h:298
cob_resolve_cobol
void * cob_resolve_cobol(const char *name, const int fold_case, const int errind)
Definition: call.c:923
st_4
static const char st_4[]
Definition: cobxref.c.h:126
st_69
static const char st_69[]
Definition: cobxref.c.h:191
st_70
static const char st_70[]
Definition: cobxref.c.h:192
cob_inspect_init
void cob_inspect_init(cob_field *, const unsigned int)
st_171
static const char st_171[]
Definition: cobxref.c.h:293
h_SOURCEINPUT_status
static unsigned char h_SOURCEINPUT_status[4]
Definition: cobxref.c.l.h:38
st_135
static const char st_135[]
Definition: cobxref.c.h:257
c_51
static const cob_field c_51
Definition: cobxref.c.h:80
st_160
static const char st_160[]
Definition: cobxref.c.h:282
c_80
static const cob_field c_80
Definition: cobxref.c.h:109
COB_FERROR_CANCEL
#define COB_FERROR_CANCEL
Definition: common.h:691
c_46
static const cob_field c_46
Definition: cobxref.c.h:75
f_152
static cob_field f_152
Definition: cobxref.c.l.h:267
st_50
static const char st_50[]
Definition: cobxref.c.h:172
c_5
static const cob_field c_5
Definition: cobxref.c.h:34
f_102
static cob_field f_102
Definition: cobxref.c.l.h:238
st_110
static const char st_110[]
Definition: cobxref.c.h:232
st_120
static const char st_120[]
Definition: cobxref.c.h:242
cob_call_union::funcptr
void *(* funcptr)()
Definition: common.h:1006
st_63
static const char st_63[]
Definition: cobxref.c.h:185
cob_read_next
void cob_read_next(cob_file *, cob_field *, const int)
Definition: fileio.c:4696
__cob_module::numeric_separator
unsigned char numeric_separator
Definition: common.h:1071
__cob_module::module_formatted_date
const char * module_formatted_date
Definition: common.h:1050
f2
cob_field f2
Definition: cobxref.c.l.h:55
st_5
static const char st_5[]
Definition: cobxref.c.h:127
cob_cmp_s8
static COB_INLINE COB_A_INLINE int cob_cmp_s8(const void *p, const cob_s64_t n)
Definition: cobxref.c.h:318
c_21
static const cob_field c_21
Definition: cobxref.c.h:50
cob_field
Definition: common.h:950
f_148
static cob_field f_148
Definition: cobxref.c.l.h:265
f_230
static cob_field f_230
Definition: cobxref.c.l.h:293
frame_ptr
struct cob_frame * frame_ptr
Definition: cobxref.c.l.h:65
c_28
static const cob_field c_28
Definition: cobxref.c.h:57
c_17
static const cob_field c_17
Definition: cobxref.c.h:46
st_43
static const char st_43[]
Definition: cobxref.c.h:165
COB_PACKAGE_VERSION
#define COB_PACKAGE_VERSION
Definition: cobxref.c:17
h_SOURCE_LISTING
static cob_file * h_SOURCE_LISTING
Definition: cobxref.c.l.h:33
c_57
static const cob_field c_57
Definition: cobxref.c.h:86
a_4
static const cob_field_attr a_4
Definition: cobxref.c.h:17
f_154
static cob_field f_154
Definition: cobxref.c.l.h:268
st_145
static const char st_145[]
Definition: cobxref.c.h:267
cob_frame::perform_through
unsigned int perform_through
Definition: common.h:992
f_11
static cob_field f_11
Definition: cobxref.c.l.h:199
cob_close
void cob_close(cob_file *, cob_field *, const int, const int)
Definition: fileio.c:4498
__cob_module::module_entry
cob_call_union module_entry
Definition: common.h:1052
st_150
static const char st_150[]
Definition: cobxref.c.h:272
f_104
static cob_field f_104
Definition: cobxref.c.l.h:240
cob_sys_delete_file
int cob_sys_delete_file(unsigned char *)
Definition: fileio.c:5165
st_86
static const char st_86[]
Definition: cobxref.c.h:208
c_16
static const cob_field c_16
Definition: cobxref.c.h:45
frame_overflow
struct cob_frame * frame_overflow
Definition: cobxref.c.l.h:64
st_111
static const char st_111[]
Definition: cobxref.c.h:233
st_26
static const char st_26[]
Definition: cobxref.c.h:148
cob_decimal_set_field
void cob_decimal_set_field(cob_decimal *, cob_field *)
Definition: numeric.c:1612
c_64
static const cob_field c_64
Definition: cobxref.c.h:93
c_36
static const cob_field c_36
Definition: cobxref.c.h:65
d1
cob_decimal * d1
Definition: cobxref.c.l.h:21
f_94
static cob_field f_94
Definition: cobxref.c.l.h:234
f_242
static cob_field f_242
Definition: cobxref.c.l.h:300
cob_get_environment
void cob_get_environment(const cob_field *envname, cob_field *envval)
Definition: common.c:3025
f_231
static cob_field f_231
Definition: cobxref.c.l.h:294
st_72
static const char st_72[]
Definition: cobxref.c.h:194
f_23
static cob_field f_23
Definition: cobxref.c.l.h:201
f_48
static cob_field f_48
Definition: cobxref.c.l.h:217
c_58
static const cob_field c_58
Definition: cobxref.c.h:87
st_20
static const char st_20[]
Definition: cobxref.c.h:142
cob_file_sort_giving
void cob_file_sort_giving(cob_file *, const size_t,...)
Definition: fileio.c:6095
st_103
static const char st_103[]
Definition: cobxref.c.h:225
st_42
static const char st_42[]
Definition: cobxref.c.h:164
st_28
static const char st_28[]
Definition: cobxref.c.h:150
st_98
static const char st_98[]
Definition: cobxref.c.h:220
h_SUPPLEMENTAL_PART2_IN
static cob_file * h_SUPPLEMENTAL_PART2_IN
Definition: cobxref.c.l.h:25
st_38
static const char st_38[]
Definition: cobxref.c.h:160
c_30
static const cob_field c_30
Definition: cobxref.c.h:59
cob_accept_arg_number
void cob_accept_arg_number(cob_field *f)
Definition: common.c:2930
c_25
static const cob_field c_25
Definition: cobxref.c.h:54
st_40
static const char st_40[]
Definition: cobxref.c.h:162
f_235
static cob_field f_235
Definition: cobxref.c.l.h:298
st_16
static const char st_16[]
Definition: cobxref.c.h:138
cob_file::flag_operation
unsigned char flag_operation
Definition: common.h:1133
cob_table_sort
void cob_table_sort(cob_field *f, const int n)
Definition: common.c:2516
b_951
static int b_951
Definition: cobxref.c.l.h:184
c_61
static const cob_field c_61
Definition: cobxref.c.h:90
f_240
static cob_field f_240
Definition: cobxref.c.l.h:299
st_67
static const char st_67[]
Definition: cobxref.c.h:189
st_89
static const char st_89[]
Definition: cobxref.c.h:211
cob_intr_current_date
cob_field * cob_intr_current_date(const int, const int)
Definition: intrinsic.c:3952
c_6
static const cob_field c_6
Definition: cobxref.c.h:35
f_147
static cob_field f_147
Definition: cobxref.c.l.h:264
f_58
static cob_field f_58
Definition: cobxref.c.l.h:222
st_125
static const char st_125[]
Definition: cobxref.c.h:247
cob_intr_upper_case
cob_field * cob_intr_upper_case(const int, const int, cob_field *)
Definition: intrinsic.c:3559
st_29
static const char st_29[]
Definition: cobxref.c.h:151
st_163
static const char st_163[]
Definition: cobxref.c.h:285
st_77
static const char st_77[]
Definition: cobxref.c.h:199
st_157
static const char st_157[]
Definition: cobxref.c.h:279
COB_BSWAP_32
#define COB_BSWAP_32(val)
Definition: common.h:257
f_57
static cob_field f_57
Definition: cobxref.c.l.h:221
cob_setswp_s32
static COB_INLINE COB_A_INLINE void cob_setswp_s32(void *p, const int val)
Definition: cobxref.c.h:332
c_82
static const cob_field c_82
Definition: cobxref.c.h:111
f_138
static cob_field f_138
Definition: cobxref.c.l.h:258
f_194
static cob_field f_194
Definition: cobxref.c.l.h:283
st_11
static const char st_11[]
Definition: cobxref.c.h:133
c_48
static const cob_field c_48
Definition: cobxref.c.h:77
cob_file::flag_optional
unsigned char flag_optional
Definition: common.h:1131
c_86
static const cob_field c_86
Definition: cobxref.c.h:115
f0
cob_field f0
Definition: cobxref.c.l.h:53
cob_file::file_status
unsigned char * file_status
Definition: common.h:1113
st_178
static const char st_178[]
Definition: cobxref.c.h:300
f_69
static cob_field f_69
Definition: cobxref.c.l.h:232
st_12
static const char st_12[]
Definition: cobxref.c.h:134
f_114
static cob_field f_114
Definition: cobxref.c.l.h:246
f_953
static cob_field f_953
Definition: cobxref.c.l.h:305
st_41
static const char st_41[]
Definition: cobxref.c.h:163
c_44
static const cob_field c_44
Definition: cobxref.c.h:73
f_29
static cob_field f_29
Definition: cobxref.c.l.h:205
st_124
static const char st_124[]
Definition: cobxref.c.h:246
st_10
static const char st_10[]
Definition: cobxref.c.h:132
f_363
static cob_field f_363
Definition: cobxref.c.l.h:301
__cob_global::cob_call_params
int cob_call_params
Definition: common.h:1204
c_9
static const cob_field c_9
Definition: cobxref.c.h:38
f_52
static cob_field f_52
Definition: cobxref.c.l.h:218
__cob_module::currency_symbol
unsigned char currency_symbol
Definition: common.h:1070
cob_call_union::funcvoid
void * funcvoid
Definition: common.h:1010
cob_accept_arg_value
void cob_accept_arg_value(cob_field *f)
Definition: common.c:2945
c_29
static const cob_field c_29
Definition: cobxref.c.h:58
cob_file::record_min
size_t record_min
Definition: common.h:1122
f_28
static cob_field f_28
Definition: cobxref.c.l.h:204
__cob_module::ebcdic_sign
unsigned char ebcdic_sign
Definition: common.h:1068
st_79
static const char st_79[]
Definition: cobxref.c.h:201
st_112
static const char st_112[]
Definition: cobxref.c.h:234
c_77
static const cob_field c_77
Definition: cobxref.c.h:106
n1
cob_s64_t n1
Definition: cobxref.c.l.h:49
cob_decimal_set_llint
void cob_decimal_set_llint(cob_decimal *, const long long)
f_63
static cob_field f_63
Definition: cobxref.c.l.h:226
c_35
static const cob_field c_35
Definition: cobxref.c.h:64
cob_file::lock_mode
unsigned char lock_mode
Definition: common.h:1129
cob_file_sort_using
void cob_file_sort_using(cob_file *, cob_file *)
Definition: fileio.c:6075
f_38
static cob_field f_38
Definition: cobxref.c.l.h:209
cob_unstring_into
void cob_unstring_into(cob_field *, cob_field *, cob_field *)
Definition: strings.c:524
st_141
static const char st_141[]
Definition: cobxref.c.h:263
cob_procedure_params
cob_field * cob_procedure_params[5]
Definition: cobxref.c.l.h:61
st_105
static const char st_105[]
Definition: cobxref.c.h:227
cob_cmp_s32
static COB_INLINE COB_A_INLINE int cob_cmp_s32(const void *p, const cob_s64_t n)
Definition: cobxref.c.h:324
cob_all_space
static cob_field cob_all_space
Definition: cobxref.c.h:118
st_104
static const char st_104[]
Definition: cobxref.c.h:226
st_96
static const char st_96[]
Definition: cobxref.c.h:218
cob_file::record_max
size_t record_max
Definition: common.h:1123
st_92
static const char st_92[]
Definition: cobxref.c.h:214
h_SUPPLEMENTAL_PART2_IN_status
static unsigned char h_SUPPLEMENTAL_PART2_IN_status[4]
Definition: cobxref.c.l.h:26
st_84
static const char st_84[]
Definition: cobxref.c.h:206
f_66
static cob_field f_66
Definition: cobxref.c.l.h:229
__cob_module::module_ref_count
unsigned int * module_ref_count
Definition: common.h:1057
f_178
static cob_field f_178
Definition: cobxref.c.l.h:278
c_40
static const cob_field c_40
Definition: cobxref.c.h:69
st_154
static const char st_154[]
Definition: cobxref.c.h:276
cob_fatal_error
void cob_fatal_error(const int fatal_error)
Definition: common.c:1601
cob_module_leave
void cob_module_leave(cob_module *module)
Definition: common.c:1827
d0
cob_decimal * d0
Definition: cobxref.c.l.h:20
f_139
static cob_field f_139
Definition: cobxref.c.l.h:259
st_39
static const char st_39[]
Definition: cobxref.c.h:161
__cob_global::cob_physical_cancel
unsigned int cob_physical_cancel
Definition: common.h:1209
f_30
static cob_field f_30
Definition: cobxref.c.l.h:206
f_217
static cob_field f_217
Definition: cobxref.c.l.h:286
f_958
static cob_field f_958
Definition: cobxref.c.l.h:308
c_27
static const cob_field c_27
Definition: cobxref.c.h:56
f_199
static cob_field f_199
Definition: cobxref.c.l.h:284
__cob_module::flag_binary_truncate
unsigned char flag_binary_truncate
Definition: common.h:1074
st_66
static const char st_66[]
Definition: cobxref.c.h:188
cob_u8_ptr
#define cob_u8_ptr
Definition: common.h:66
f_103
static cob_field f_103
Definition: cobxref.c.l.h:239
st_140
static const char st_140[]
Definition: cobxref.c.h:262
__cob_module::module_time
unsigned int module_time
Definition: common.h:1062
f_125
static cob_field f_125
Definition: cobxref.c.l.h:253
f_143
static cob_field f_143
Definition: cobxref.c.l.h:261
__cob_module::collating_sequence
const unsigned char * collating_sequence
Definition: common.h:1054
cob_set_location
void cob_set_location(const char *sfile, const unsigned int sline, const char *csect, const char *cpara, const char *cstatement)
Definition: common.c:1388
st_95
static const char st_95[]
Definition: cobxref.c.h:217
f_165
static cob_field f_165
Definition: cobxref.c.l.h:273
st_162
static const char st_162[]
Definition: cobxref.c.h:284
unlikely
#define unlikely(x)
Definition: common.h:437
st_17
static const char st_17[]
Definition: cobxref.c.h:139
c_47
static const cob_field c_47
Definition: cobxref.c.h:76
cob_accept_date
void cob_accept_date(cob_field *f)
Definition: common.c:2781
frame_stack
struct cob_frame frame_stack[255]
Definition: cobxref.c.l.h:66
st_99
static const char st_99[]
Definition: cobxref.c.h:221
st_2
static const char st_2[]
Definition: cobxref.c.h:124
st_18
static const char st_18[]
Definition: cobxref.c.h:140
c_24
static const cob_field c_24
Definition: cobxref.c.h:53
f_167
static cob_field f_167
Definition: cobxref.c.l.h:274
cobxref
static int cobxref()
Definition: cobxref.c:46
st_35
static const char st_35[]
Definition: cobxref.c.h:157
st_57
static const char st_57[]
Definition: cobxref.c.h:179
cob_inspect_before
void cob_inspect_before(const cob_field *)
Definition: strings.c:270
f_234
static cob_field f_234
Definition: cobxref.c.l.h:297
st_101
static const char st_101[]
Definition: cobxref.c.h:223
c_39
static const cob_field c_39
Definition: cobxref.c.h:68
f_40
static cob_field f_40
Definition: cobxref.c.l.h:211
cob_frame::return_address_ptr
void * return_address_ptr
Definition: common.h:991
c_55
static const cob_field c_55
Definition: cobxref.c.h:84
st_147
static const char st_147[]
Definition: cobxref.c.h:269
f_61
static cob_field f_61
Definition: cobxref.c.l.h:225
c_75
static const cob_field c_75
Definition: cobxref.c.h:104
f_42
static cob_field f_42
Definition: cobxref.c.l.h:213
NULL
EC ARGUMENT EC EC BOUND EC BOUND EC BOUND EC BOUND TABLE EC DATA EC DATA EC DATA PTR NULL
Definition: exception.def:95
__cob_module::module_date
unsigned int module_date
Definition: common.h:1061
f_229
static cob_field f_229
Definition: cobxref.c.l.h:292
cobxref_
static int cobxref_(const int)
Definition: cobxref.c:52
st_33
static const char st_33[]
Definition: cobxref.c.h:155
st_24
static const char st_24[]
Definition: cobxref.c.h:146
c_65
static const cob_field c_65
Definition: cobxref.c.h:94
f_192
static cob_field f_192
Definition: cobxref.c.l.h:282
cob_init
void cob_init(const int argc, char **argv)
Definition: common.c:5390
cob_s8_ptr
#define cob_s8_ptr
Definition: common.h:67
f_106
static cob_field f_106
Definition: cobxref.c.l.h:241
c_50
static const cob_field c_50
Definition: cobxref.c.h:79
st_56
static const char st_56[]
Definition: cobxref.c.h:178
st_97
static const char st_97[]
Definition: cobxref.c.h:219
st_148
static const char st_148[]
Definition: cobxref.c.h:270
f_112
static cob_field f_112
Definition: cobxref.c.l.h:244
st_174
static const char st_174[]
Definition: cobxref.c.h:296
f_35
static cob_field f_35
Definition: cobxref.c.l.h:208
cob_decimal_add
void cob_decimal_add(cob_decimal *, cob_decimal *)
Definition: numeric.c:1875
f_949
static cob_field f_949
Definition: cobxref.c.l.h:304
st_121
static const char st_121[]
Definition: cobxref.c.h:243
c_26
static const cob_field c_26
Definition: cobxref.c.h:55
c_15
static const cob_field c_15
Definition: cobxref.c.h:44
f_158
static cob_field f_158
Definition: cobxref.c.l.h:270
b_1
static int b_1
Definition: cobxref.c.l.h:70
cob_string_init
void cob_string_init(cob_field *, cob_field *)
Definition: strings.c:408
h_SUPPLEMENTAL_PART1_OUT_status
static unsigned char h_SUPPLEMENTAL_PART1_OUT_status[4]
Definition: cobxref.c.l.h:30
f1
cob_field f1
Definition: cobxref.c.l.h:54
f_67
static cob_field f_67
Definition: cobxref.c.l.h:230
st_126
static const char st_126[]
Definition: cobxref.c.h:248
st_169
static const char st_169[]
Definition: cobxref.c.h:291
__cob_module::module_type
unsigned int module_type
Definition: common.h:1063
f_170
static cob_field f_170
Definition: cobxref.c.l.h:276
__cob_module::flag_filename_mapping
unsigned char flag_filename_mapping
Definition: common.h:1073
c_84
static const cob_field c_84
Definition: cobxref.c.h:113
f_184
static cob_field f_184
Definition: cobxref.c.l.h:281
c_2
static const cob_field c_2
Definition: cobxref.c.h:31
__cob_module::flag_host_sign
unsigned char flag_host_sign
Definition: common.h:1076
st_106
static const char st_106[]
Definition: cobxref.c.h:228
cob_is_alpha
int cob_is_alpha(const cob_field *f)
Definition: common.c:2453
st_48
static const char st_48[]
Definition: cobxref.c.h:170
st_90
static const char st_90[]
Definition: cobxref.c.h:212
__cob_module::module_param_cnt
unsigned int module_param_cnt
Definition: common.h:1064
st_45
static const char st_45[]
Definition: cobxref.c.h:167
cob_file::flag_first_read
unsigned char flag_first_read
Definition: common.h:1138
st_37
static const char st_37[]
Definition: cobxref.c.h:159
c_43
static const cob_field c_43
Definition: cobxref.c.h:72
cob_file::flag_read_done
unsigned char flag_read_done
Definition: common.h:1139
cob_file::keys
cob_file_key * keys
Definition: common.h:1117
cob_unstring_finish
void cob_unstring_finish(void)
Definition: strings.c:620
f_115
static cob_field f_115
Definition: cobxref.c.l.h:247
st_44
static const char st_44[]
Definition: cobxref.c.h:166
st_161
static const char st_161[]
Definition: cobxref.c.h:283
st_7
static const char st_7[]
Definition: cobxref.c.h:129
c_81
static const cob_field c_81
Definition: cobxref.c.h:110
cob_set_int
void cob_set_int(cob_field *, const int)
Definition: move.c:1612
c_71
static const cob_field c_71
Definition: cobxref.c.h:100
c_63
static const cob_field c_63
Definition: cobxref.c.h:92
__cob_module::module_num_params
int module_num_params
Definition: common.h:1066
cob_inspect_characters
void cob_inspect_characters(cob_field *)
Definition: strings.c:297
f_144
static cob_field f_144
Definition: cobxref.c.l.h:262
cob_inspect_finish
void cob_inspect_finish(void)
Definition: strings.c:388
st_19
static const char st_19[]
Definition: cobxref.c.h:141
cob_table_sort_init_key
void cob_table_sort_init_key(cob_field *field, const int flag, const unsigned int offset)
Definition: common.c:2506
cob_string_append
void cob_string_append(cob_field *)
Definition: strings.c:440
cob_cmp
int cob_cmp(cob_field *f1, cob_field *f2)
Definition: common.c:2318
c_76
static const cob_field c_76
Definition: cobxref.c.h:105
st_117
static const char st_117[]
Definition: cobxref.c.h:239
COB_FERROR_FILE
#define COB_FERROR_FILE
Definition: common.h:701
st_23
static const char st_23[]
Definition: cobxref.c.h:145
st_170
static const char st_170[]
Definition: cobxref.c.h:292
f_100
static cob_field f_100
Definition: cobxref.c.l.h:237
st_76
static const char st_76[]
Definition: cobxref.c.h:198
cob_call_union::funcint
int(* funcint)()
Definition: common.h:1009
cob_unstring_delimited
void cob_unstring_delimited(cob_field *, const unsigned int)
f_113
static cob_field f_113
Definition: cobxref.c.l.h:245
st_54
static const char st_54[]
Definition: cobxref.c.h:176
f_127
static cob_field f_127
Definition: cobxref.c.l.h:255
f_116
static cob_field f_116
Definition: cobxref.c.l.h:248
st_102
static const char st_102[]
Definition: cobxref.c.h:224
COB_FERROR_STACK
#define COB_FERROR_STACK
Definition: common.h:695
cob_string_finish
void cob_string_finish(void)
Definition: strings.c:477
__cob_module::module_name
const char * module_name
Definition: common.h:1049
st_51
static const char st_51[]
Definition: cobxref.c.h:173
h_SOURCE_LISTING_status
static unsigned char h_SOURCE_LISTING_status[4]
Definition: cobxref.c.l.h:34
c_31
static const cob_field c_31
Definition: cobxref.c.h:60
cob_decimal_sub
void cob_decimal_sub(cob_decimal *, cob_decimal *)
Definition: numeric.c:1883
cob_set_cancel
void cob_set_cancel(cob_module *m)
Definition: call.c:885
cob_inspect_all
void cob_inspect_all(cob_field *, cob_field *)
Definition: strings.c:329
c_70
static const cob_field c_70
Definition: cobxref.c.h:99
COB_PATCH_LEVEL
#define COB_PATCH_LEVEL
Definition: cobxref.c:18
st_167
static const char st_167[]
Definition: cobxref.c.h:289
f_126
static cob_field f_126
Definition: cobxref.c.l.h:254
st_73
static const char st_73[]
Definition: cobxref.c.h:195
c_1
static const cob_field c_1
Definition: cobxref.c.h:30
f_65
static cob_field f_65
Definition: cobxref.c.l.h:228
f_118
static cob_field f_118
Definition: cobxref.c.l.h:250
f_227
static cob_field f_227
Definition: cobxref.c.l.h:290
st_119
static const char st_119[]
Definition: cobxref.c.h:241
st_93
static const char st_93[]
Definition: cobxref.c.h:215
st_13
static const char st_13[]
Definition: cobxref.c.h:135
c_72
static const cob_field c_72
Definition: cobxref.c.h:101
st_144
static const char st_144[]
Definition: cobxref.c.h:266
cob_module_path
static const char * cob_module_path
Definition: cobxref.c.h:10
f_59
static cob_field f_59
Definition: cobxref.c.l.h:223
f_46
static cob_field f_46
Definition: cobxref.c.l.h:215
st_138
static const char st_138[]
Definition: cobxref.c.h:260
st_1
static const char st_1[]
Definition: cobxref.c.h:123
st_137
static const char st_137[]
Definition: cobxref.c.h:259
COB_SELECT_FILE_STATUS
#define COB_SELECT_FILE_STATUS
Definition: common.h:757
cob_open
void cob_open(cob_file *, const int, const int, cob_field *)
Definition: fileio.c:4438
st_155
static const char st_155[]
Definition: cobxref.c.h:277
COB_SET_FLD
#define COB_SET_FLD(v, x, y, z)
Definition: common.h:685
c_13
static const cob_field c_13
Definition: cobxref.c.h:42
st_82
static const char st_82[]
Definition: cobxref.c.h:204
c_78
static const cob_field c_78
Definition: cobxref.c.h:107
h_SOURCEINPUT
static cob_file * h_SOURCEINPUT
Definition: cobxref.c.l.h:37
cob_inspect_start
void cob_inspect_start(void)
Definition: strings.c:263
cob_write
void cob_write(cob_file *, cob_field *, const int, cob_field *, const unsigned int)
Definition: fileio.c:4754
f_120
static cob_field f_120
Definition: cobxref.c.l.h:252
cob_file::flag_needs_top
unsigned char flag_needs_top
Definition: common.h:1142
f_133
static cob_field f_133
Definition: cobxref.c.l.h:257
st_22
static const char st_22[]
Definition: cobxref.c.h:144
cob_get_numdisp
static int COB_NOINLINE cob_get_numdisp(const void *data, const size_t size)
Definition: cobxref.c.h:303
c_52
static const cob_field c_52
Definition: cobxref.c.h:81
f_8
static cob_field f_8
Definition: cobxref.c.l.h:197
cob_decimal_get_field
int cob_decimal_get_field(cob_decimal *, cob_field *, const int)
Definition: numeric.c:1801
__cob_module::decimal_point
unsigned char decimal_point
Definition: common.h:1069
st_71
static const char st_71[]
Definition: cobxref.c.h:193
c_49
static const cob_field c_49
Definition: cobxref.c.h:78
st_166
static const char st_166[]
Definition: cobxref.c.h:288
f_180
static cob_field f_180
Definition: cobxref.c.l.h:279
st_81
static const char st_81[]
Definition: cobxref.c.h:203
__cob_global::cob_main_argv0
const char * cob_main_argv0
Definition: common.h:1193
st_9
static const char st_9[]
Definition: cobxref.c.h:131
c_69
static const cob_field c_69
Definition: cobxref.c.h:98
f_164
static cob_field f_164
Definition: cobxref.c.l.h:272
cob_display
void cob_display(const int, const int, const int,...)
Definition: termio.c:238
f_55
static cob_field f_55
Definition: cobxref.c.l.h:220
st_116
static const char st_116[]
Definition: cobxref.c.h:238
cob_all_quote
static cob_field cob_all_quote
Definition: cobxref.c.h:117
cob_file::variable_record
cob_field * variable_record
Definition: common.h:1116
COB_SOURCE_FILE
#define COB_SOURCE_FILE
Definition: cobxref.c:16
st_142
static const char st_142[]
Definition: cobxref.c.h:264
f_68
static cob_field f_68
Definition: cobxref.c.l.h:231
cob_module_enter
void cob_module_enter(cob_module **module, cob_global **mglobal, const int auto_init)
Definition: common.c:1796
h_SORTFILE_status
static unsigned char h_SORTFILE_status[4]
Definition: cobxref.c.l.h:42
st_25
static const char st_25[]
Definition: cobxref.c.h:147
b_365
static int b_365
Definition: cobxref.c.l.h:181
st_122
static const char st_122[]
Definition: cobxref.c.h:244
st_52
static const char st_52[]
Definition: cobxref.c.h:174
f_41
static cob_field f_41
Definition: cobxref.c.l.h:212
c_3
static const cob_field c_3
Definition: cobxref.c.h:32
cob_file::fd
int fd
Definition: common.h:1125
cob_file::flag_select_features
unsigned char flag_select_features
Definition: common.h:1140
c_45
static const cob_field c_45
Definition: cobxref.c.h:74
c_11
static const cob_field c_11
Definition: cobxref.c.h:40
st_159
static const char st_159[]
Definition: cobxref.c.h:281
cob_unstring_init
void cob_unstring_init(cob_field *, cob_field *, const size_t)
Definition: strings.c:487
st_146
static const char st_146[]
Definition: cobxref.c.h:268
initialized
static size_t initialized
Definition: typeck.c:102
st_100
static const char st_100[]
Definition: cobxref.c.h:222
f_27
static cob_field f_27
Definition: cobxref.c.l.h:203
st_168
static const char st_168[]
Definition: cobxref.c.h:290
h_SORTFILE
static cob_file * h_SORTFILE
Definition: cobxref.c.l.h:41
h_SUPPLEMENTAL_PART1_OUT
static cob_file * h_SUPPLEMENTAL_PART1_OUT
Definition: cobxref.c.l.h:29
c_10
static const cob_field c_10
Definition: cobxref.c.h:39
st_21
static const char st_21[]
Definition: cobxref.c.h:143
c_59
static const cob_field c_59
Definition: cobxref.c.h:88
c_38
static const cob_field c_38
Definition: cobxref.c.h:67
__cob_module::cursor_pos
cob_field * cursor_pos
Definition: common.h:1056
f_146
static cob_field f_146
Definition: cobxref.c.l.h:263
__cob_module::module_returning
unsigned int module_returning
Definition: common.h:1065
f_218
static cob_field f_218
Definition: cobxref.c.l.h:287
c_23
static const cob_field c_23
Definition: cobxref.c.h:52
cob_table_sort_init
void cob_table_sort_init(const size_t nkeys, const unsigned char *collating_sequence)
Definition: common.c:2494
st_114
static const char st_114[]
Definition: cobxref.c.h:236
f_64
static cob_field f_64
Definition: cobxref.c.l.h:227
c_7
static const cob_field c_7
Definition: cobxref.c.h:36
cob_file::last_open_mode
unsigned char last_open_mode
Definition: common.h:1132
st_129
static const char st_129[]
Definition: cobxref.c.h:251
c_41
static const cob_field c_41
Definition: cobxref.c.h:70
COB_MODULE_FORMATTED_DATE
#define COB_MODULE_FORMATTED_DATE
Definition: cobxref.c:19
st_88
static const char st_88[]
Definition: cobxref.c.h:210
c_4
static const cob_field c_4
Definition: cobxref.c.h:33
st_31
static const char st_31[]
Definition: cobxref.c.h:153
st_107
static const char st_107[]
Definition: cobxref.c.h:229
st_30
static const char st_30[]
Definition: cobxref.c.h:152
f_367
static cob_field f_367
Definition: cobxref.c.l.h:302
f_226
static cob_field f_226
Definition: cobxref.c.l.h:289
__cob_module::module_path
const char ** module_path
Definition: common.h:1058
__cob_module::module_cancel
cob_call_union module_cancel
Definition: common.h:1053
st_49
static const char st_49[]
Definition: cobxref.c.h:171
a_8
static const cob_field_attr a_8
Definition: cobxref.c.h:21
st_46
static const char st_46[]
Definition: cobxref.c.h:168
f_162
static cob_field f_162
Definition: cobxref.c.l.h:271
cob_file
Definition: common.h:1111
__cob_global::cob_exception_code
int cob_exception_code
Definition: common.h:1203
c_19
static const cob_field c_19
Definition: cobxref.c.h:48
f_141
static cob_field f_141
Definition: cobxref.c.l.h:260
COB_MODULE_DATE
#define COB_MODULE_DATE
Definition: cobxref.c:20
f_109
static cob_field f_109
Definition: cobxref.c.l.h:243
f_228
static cob_field f_228
Definition: cobxref.c.l.h:291
st_177
static const char st_177[]
Definition: cobxref.c.h:299
cob_file::flag_begin_of_file
unsigned char flag_begin_of_file
Definition: common.h:1137
c_22
static const cob_field c_22
Definition: cobxref.c.h:51
st_128
static const char st_128[]
Definition: cobxref.c.h:250
c_83
static const cob_field c_83
Definition: cobxref.c.h:112
c_53
static const cob_field c_53
Definition: cobxref.c.h:82
cob_file::open_mode
unsigned char open_mode
Definition: common.h:1130
cob_file::nkeys
size_t nkeys
Definition: common.h:1124
cob_file::file
void * file
Definition: common.h:1118
st_118
static const char st_118[]
Definition: cobxref.c.h:240
cob_get_indirect_field
void cob_get_indirect_field(cob_field *)
Definition: intrinsic.c:3096
__cob_module::module_source
const char * module_source
Definition: common.h:1051
st_131
static const char st_131[]
Definition: cobxref.c.h:253
f_225
static cob_field f_225
Definition: cobxref.c.l.h:288
c_12
static const cob_field c_12
Definition: cobxref.c.h:41
__cob_module::cob_procedure_params
cob_field ** cob_procedure_params
Definition: common.h:1048
cob_file::access_mode
unsigned char access_mode
Definition: common.h:1128
st_85
static const char st_85[]
Definition: cobxref.c.h:207
c_34
static const cob_field c_34
Definition: cobxref.c.h:63
c_37
static const cob_field c_37
Definition: cobxref.c.h:66
st_165
static const char st_165[]
Definition: cobxref.c.h:287
cob_decimal_alloc
void cob_decimal_alloc(const unsigned int,...)
cob_cmp_numdisp
int cob_cmp_numdisp(const unsigned char *, const size_t, const long long, const unsigned int)
f3
cob_field f3
Definition: cobxref.c.l.h:56
cob_file::flag_nonexistent
unsigned char flag_nonexistent
Definition: common.h:1134
cob_file::flag_end_of_file
unsigned char flag_end_of_file
Definition: common.h:1136
st_164
static const char st_164[]
Definition: cobxref.c.h:286
f_232
static cob_field f_232
Definition: cobxref.c.l.h:295
st_149
static const char st_149[]
Definition: cobxref.c.h:271
f_93
static cob_field f_93
Definition: cobxref.c.l.h:233
__cob_module::flag_pretty_display
unsigned char flag_pretty_display
Definition: common.h:1075
main
int main(int argc, char **argv)
Definition: cobxref.c:33
__cob_module::crt_status
cob_field * crt_status
Definition: common.h:1055
f_182
static cob_field f_182
Definition: cobxref.c.l.h:280
c_32
static const cob_field c_32
Definition: cobxref.c.h:61
c_56
static const cob_field c_56
Definition: cobxref.c.h:85
f_150
static cob_field f_150
Definition: cobxref.c.l.h:266
c_8
static const cob_field c_8
Definition: cobxref.c.h:37
cob_file::flag_needs_nl
unsigned char flag_needs_nl
Definition: common.h:1141
f_12
static cob_field f_12
Definition: cobxref.c.l.h:200
cob_file::file_version
unsigned char file_version
Definition: common.h:1143
cob_file::select_name
const char * select_name
Definition: common.h:1112
f_44
static cob_field f_44
Definition: cobxref.c.l.h:214
st_59
static const char st_59[]
Definition: cobxref.c.h:181
st_62
static const char st_62[]
Definition: cobxref.c.h:184
cob_file_sort_init_key
void cob_file_sort_init_key(cob_file *, cob_field *, const int, const unsigned int)
Definition: fileio.c:6191
st_151
static const char st_151[]
Definition: cobxref.c.h:273
c_18
static const cob_field c_18
Definition: cobxref.c.h:47
st_14
static const char st_14[]
Definition: cobxref.c.h:136
call_get__reserved__lists
static cob_call_union call_get__reserved__lists
Definition: cobxref.c.l.h:45
f_965
static cob_field f_965
Definition: cobxref.c.l.h:309
st_87
static const char st_87[]
Definition: cobxref.c.h:209
st_34
static const char st_34[]
Definition: cobxref.c.h:156
st_123
static const char st_123[]
Definition: cobxref.c.h:245
c_66
static const cob_field c_66
Definition: cobxref.c.h:95
st_74
static const char st_74[]
Definition: cobxref.c.h:196
__cob_module::flag_no_phys_canc
unsigned char flag_no_phys_canc
Definition: common.h:1078
st_173
static const char st_173[]
Definition: cobxref.c.h:295
st_94
static const char st_94[]
Definition: cobxref.c.h:216
c_73
static const cob_field c_73
Definition: cobxref.c.h:102
st_175
static const char st_175[]
Definition: cobxref.c.h:297
f_9
static cob_field f_9
Definition: cobxref.c.l.h:198
st_158
static const char st_158[]
Definition: cobxref.c.h:280
f_368
static cob_field f_368
Definition: cobxref.c.l.h:303
cob_file_sort_init
void cob_file_sort_init(cob_file *, const unsigned int, const unsigned char *, void *, cob_field *)
Definition: fileio.c:6146
cob_cache_malloc
void * cob_cache_malloc(const size_t size)
Definition: common.c:1321
st_47
static const char st_47[]
Definition: cobxref.c.h:169
st_68
static const char st_68[]
Definition: cobxref.c.h:190
c_60
static const cob_field c_60
Definition: cobxref.c.h:89
st_130
static const char st_130[]
Definition: cobxref.c.h:252
st_108
static const char st_108[]
Definition: cobxref.c.h:230
st_152
static const char st_152[]
Definition: cobxref.c.h:274
st_132
static const char st_132[]
Definition: cobxref.c.h:254
st_115
static const char st_115[]
Definition: cobxref.c.h:237
cob_get_llint
long long cob_get_llint(cob_field *)
Definition: move.c:1656
f4
cob_field f4
Definition: cobxref.c.l.h:57
cob_intr_lower_case
cob_field * cob_intr_lower_case(const int, const int, cob_field *)
Definition: intrinsic.c:3576
cob_stop_run
void cob_stop_run(const int status)
Definition: common.c:1524
f_203
static cob_field f_203
Definition: cobxref.c.l.h:285
cob_is_numeric
int cob_is_numeric(const cob_field *f)
Definition: common.c:2375
cob_put_indirect_field
void cob_put_indirect_field(cob_field *)
Definition: intrinsic.c:3088
st_6
static const char st_6[]
Definition: cobxref.c.h:128
f_24
static cob_field f_24
Definition: cobxref.c.l.h:202