GnuCOBOL  2.0
A free COBOL compiler
GCic.c
Go to the documentation of this file.
1 /* Generated by cobc 2.0.0 */
2 /* Generated from GCic.cbl */
3 /* Generated at Apr 17 2016 04:46:54 */
4 /* GnuCOBOL build date Apr 17 2016 04:44:31 */
5 /* GnuCOBOL package date Oct 25 2015 21:40:28 UTC */
6 /* Compile command cobc -x -g -v GCic.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 "GCic.cbl"
17 #define COB_PACKAGE_VERSION "2.0"
18 #define COB_PATCH_LEVEL 0
19 #define COB_MODULE_FORMATTED_DATE "Apr 17 2016 04:46:54"
20 #define COB_MODULE_DATE 20160417
21 #define COB_MODULE_TIME 44654
22 
23 /* Global variables */
24 #include "GCic.c.h"
25 
26 /* Function prototypes */
27 
28 static int GCic ();
29 static int GCic_ (const int);
30 int CHECKSRC (cob_u8_t *, cob_u8_t *);
31 static int CHECKSRC_ (const int, cob_u8_t *, cob_u8_t *);
32 int LISTING (cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *);
33 static int LISTING_ (const int, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *);
34 
35 /* Main function */
36 int
37 main (int argc, char **argv)
38 {
39  cob_init (argc, argv);
40  cob_stop_run (GCic ());
41 }
42 
43 /* Functions */
44 
45 /* PROGRAM-ID 'GCic' */
46 
47 /* ENTRY 'GCic' */
48 
49 static int
50 GCic ()
51 {
52  return GCic_ (0);
53 }
54 
55 static int
56 GCic_ (const int entry)
57 {
58  /* Program local variables */
59  #include "GCic.c.l1.h"
60 
61  /* Start of function code */
62 
63  /* CANCEL callback */
64  if (unlikely(entry < 0)) {
65  goto P_cancel;
66  }
67 
68  /* Check initialized, check module allocated, */
69  /* set global pointer, */
70  /* push module stack, save call parameter count */
71  cob_module_enter (&module, &cob_glob_ptr, 0);
72 
73  /* Set address of module parameter list */
74  module->cob_procedure_params = cob_procedure_params;
75 
76  /* Set frame stack pointer */
77  frame_ptr = frame_stack;
78  frame_ptr->perform_through = 0;
79  frame_overflow = frame_ptr + 255 - 1;
80 
81  /* Initialize rest of program */
82  if (unlikely(initialized == 0)) {
83  goto P_initialize;
84  }
85  P_ret_initialize:
86 
87  /* Increment module active */
88  module->module_active++;
89 
90  /* Save number of call params */
91  module->module_num_params = cob_glob_ptr->cob_call_params;
92 
93  /* Entry dispatch */
94  goto l_5;
95 
96  /* PROCEDURE DIVISION */
97 
98  /* DECLARATIVES */
99 
100  /* USE AFTER ERROR */
101 
102  /* Line: 661 : Section 000-File-Error : GCic.cbl */
103  l_2:;
104 
105  /* Line: 12 : EVALUATE : FileStat-Msgs.cpy */
106  cob_set_location (st_1, 12, st_2, NULL, st_3);
107 
108  /* WHEN */
109 
110  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 0LL, 0) == 0))
111  {
112 
113  /* Line: 13 : MOVE : FileStat-Msgs.cpy */
114  cob_set_location (st_1, 13, st_2, NULL, st_4);
115  memcpy (b_159 + 26, "SUCCESS ", 25);
116  goto l_4;
117  }
118 
119  /* WHEN */
120 
121  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 2LL, 0) == 0))
122  {
123 
124  /* Line: 14 : MOVE : FileStat-Msgs.cpy */
125  cob_set_location (st_1, 14, st_2, NULL, st_4);
126  memcpy (b_159 + 26, "SUCCESS DUPLICATE ", 25);
127  goto l_4;
128  }
129 
130  /* WHEN */
131 
132  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 4LL, 0) == 0))
133  {
134 
135  /* Line: 15 : MOVE : FileStat-Msgs.cpy */
136  cob_set_location (st_1, 15, st_2, NULL, st_4);
137  memcpy (b_159 + 26, "SUCCESS INCOMPLETE ", 25);
138  goto l_4;
139  }
140 
141  /* WHEN */
142 
143  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 5LL, 0) == 0))
144  {
145 
146  /* Line: 16 : MOVE : FileStat-Msgs.cpy */
147  cob_set_location (st_1, 16, st_2, NULL, st_4);
148  memcpy (b_159 + 26, "SUCCESS OPTIONAL ", 25);
149  goto l_4;
150  }
151 
152  /* WHEN */
153 
154  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 7LL, 0) == 0))
155  {
156 
157  /* Line: 17 : MOVE : FileStat-Msgs.cpy */
158  cob_set_location (st_1, 17, st_2, NULL, st_4);
159  memcpy (b_159 + 26, "SUCCESS NO UNIT ", 25);
160  goto l_4;
161  }
162 
163  /* WHEN */
164 
165  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 10LL, 0) == 0))
166  {
167 
168  /* Line: 18 : MOVE : FileStat-Msgs.cpy */
169  cob_set_location (st_1, 18, st_2, NULL, st_4);
170  memcpy (b_159 + 26, "END OF FILE ", 25);
171  goto l_4;
172  }
173 
174  /* WHEN */
175 
176  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 14LL, 0) == 0))
177  {
178 
179  /* Line: 19 : MOVE : FileStat-Msgs.cpy */
180  cob_set_location (st_1, 19, st_2, NULL, st_4);
181  memcpy (b_159 + 26, "OUT OF KEY RANGE ", 25);
182  goto l_4;
183  }
184 
185  /* WHEN */
186 
187  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 21LL, 0) == 0))
188  {
189 
190  /* Line: 20 : MOVE : FileStat-Msgs.cpy */
191  cob_set_location (st_1, 20, st_2, NULL, st_4);
192  memcpy (b_159 + 26, "KEY INVALID ", 25);
193  goto l_4;
194  }
195 
196  /* WHEN */
197 
198  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 22LL, 0) == 0))
199  {
200 
201  /* Line: 21 : MOVE : FileStat-Msgs.cpy */
202  cob_set_location (st_1, 21, st_2, NULL, st_4);
203  memcpy (b_159 + 26, "KEY EXISTS ", 25);
204  goto l_4;
205  }
206 
207  /* WHEN */
208 
209  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 23LL, 0) == 0))
210  {
211 
212  /* Line: 22 : MOVE : FileStat-Msgs.cpy */
213  cob_set_location (st_1, 22, st_2, NULL, st_4);
214  memcpy (b_159 + 26, "KEY NOT EXISTS ", 25);
215  goto l_4;
216  }
217 
218  /* WHEN */
219 
220  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 30LL, 0) == 0))
221  {
222 
223  /* Line: 23 : MOVE : FileStat-Msgs.cpy */
224  cob_set_location (st_1, 23, st_2, NULL, st_4);
225  memcpy (b_159 + 26, "PERMANENT ERROR ", 25);
226  goto l_4;
227  }
228 
229  /* WHEN */
230 
231  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 31LL, 0) == 0))
232  {
233 
234  /* Line: 24 : MOVE : FileStat-Msgs.cpy */
235  cob_set_location (st_1, 24, st_2, NULL, st_4);
236  memcpy (b_159 + 26, "INCONSISTENT FILENAME ", 25);
237  goto l_4;
238  }
239 
240  /* WHEN */
241 
242  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 34LL, 0) == 0))
243  {
244 
245  /* Line: 25 : MOVE : FileStat-Msgs.cpy */
246  cob_set_location (st_1, 25, st_2, NULL, st_4);
247  memcpy (b_159 + 26, "BOUNDARY VIOLATION ", 25);
248  goto l_4;
249  }
250 
251  /* WHEN */
252 
253  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 35LL, 0) == 0))
254  {
255 
256  /* Line: 26 : MOVE : FileStat-Msgs.cpy */
257  cob_set_location (st_1, 26, st_2, NULL, st_4);
258  memcpy (b_159 + 26, "FILE NOT FOUND ", 25);
259  goto l_4;
260  }
261 
262  /* WHEN */
263 
264  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 37LL, 0) == 0))
265  {
266 
267  /* Line: 27 : MOVE : FileStat-Msgs.cpy */
268  cob_set_location (st_1, 27, st_2, NULL, st_4);
269  memcpy (b_159 + 26, "PERMISSION DENIED ", 25);
270  goto l_4;
271  }
272 
273  /* WHEN */
274 
275  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 38LL, 0) == 0))
276  {
277 
278  /* Line: 28 : MOVE : FileStat-Msgs.cpy */
279  cob_set_location (st_1, 28, st_2, NULL, st_4);
280  memcpy (b_159 + 26, "CLOSED WITH LOCK ", 25);
281  goto l_4;
282  }
283 
284  /* WHEN */
285 
286  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 39LL, 0) == 0))
287  {
288 
289  /* Line: 29 : MOVE : FileStat-Msgs.cpy */
290  cob_set_location (st_1, 29, st_2, NULL, st_4);
291  memcpy (b_159 + 26, "CONFLICT ATTRIBUTE ", 25);
292  goto l_4;
293  }
294 
295  /* WHEN */
296 
297  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 41LL, 0) == 0))
298  {
299 
300  /* Line: 30 : MOVE : FileStat-Msgs.cpy */
301  cob_set_location (st_1, 30, st_2, NULL, st_4);
302  memcpy (b_159 + 26, "ALREADY OPEN ", 25);
303  goto l_4;
304  }
305 
306  /* WHEN */
307 
308  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 42LL, 0) == 0))
309  {
310 
311  /* Line: 31 : MOVE : FileStat-Msgs.cpy */
312  cob_set_location (st_1, 31, st_2, NULL, st_4);
313  memcpy (b_159 + 26, "NOT OPEN ", 25);
314  goto l_4;
315  }
316 
317  /* WHEN */
318 
319  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 43LL, 0) == 0))
320  {
321 
322  /* Line: 32 : MOVE : FileStat-Msgs.cpy */
323  cob_set_location (st_1, 32, st_2, NULL, st_4);
324  memcpy (b_159 + 26, "READ NOT DONE ", 25);
325  goto l_4;
326  }
327 
328  /* WHEN */
329 
330  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 44LL, 0) == 0))
331  {
332 
333  /* Line: 33 : MOVE : FileStat-Msgs.cpy */
334  cob_set_location (st_1, 33, st_2, NULL, st_4);
335  memcpy (b_159 + 26, "RECORD OVERFLOW ", 25);
336  goto l_4;
337  }
338 
339  /* WHEN */
340 
341  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 46LL, 0) == 0))
342  {
343 
344  /* Line: 34 : MOVE : FileStat-Msgs.cpy */
345  cob_set_location (st_1, 34, st_2, NULL, st_4);
346  memcpy (b_159 + 26, "READ ERROR ", 25);
347  goto l_4;
348  }
349 
350  /* WHEN */
351 
352  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 47LL, 0) == 0))
353  {
354 
355  /* Line: 35 : MOVE : FileStat-Msgs.cpy */
356  cob_set_location (st_1, 35, st_2, NULL, st_4);
357  memcpy (b_159 + 26, "INPUT DENIED ", 25);
358  goto l_4;
359  }
360 
361  /* WHEN */
362 
363  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 48LL, 0) == 0))
364  {
365 
366  /* Line: 36 : MOVE : FileStat-Msgs.cpy */
367  cob_set_location (st_1, 36, st_2, NULL, st_4);
368  memcpy (b_159 + 26, "OUTPUT DENIED ", 25);
369  goto l_4;
370  }
371 
372  /* WHEN */
373 
374  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 49LL, 0) == 0))
375  {
376 
377  /* Line: 37 : MOVE : FileStat-Msgs.cpy */
378  cob_set_location (st_1, 37, st_2, NULL, st_4);
379  memcpy (b_159 + 26, "I/O DENIED ", 25);
380  goto l_4;
381  }
382 
383  /* WHEN */
384 
385  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 51LL, 0) == 0))
386  {
387 
388  /* Line: 38 : MOVE : FileStat-Msgs.cpy */
389  cob_set_location (st_1, 38, st_2, NULL, st_4);
390  memcpy (b_159 + 26, "RECORD LOCKED ", 25);
391  goto l_4;
392  }
393 
394  /* WHEN */
395 
396  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 52LL, 0) == 0))
397  {
398 
399  /* Line: 39 : MOVE : FileStat-Msgs.cpy */
400  cob_set_location (st_1, 39, st_2, NULL, st_4);
401  memcpy (b_159 + 26, "END-OF-PAGE ", 25);
402  goto l_4;
403  }
404 
405  /* WHEN */
406 
407  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 57LL, 0) == 0))
408  {
409 
410  /* Line: 40 : MOVE : FileStat-Msgs.cpy */
411  cob_set_location (st_1, 40, st_2, NULL, st_4);
412  memcpy (b_159 + 26, "I/O LINAGE ", 25);
413  goto l_4;
414  }
415 
416  /* WHEN */
417 
418  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 61LL, 0) == 0))
419  {
420 
421  /* Line: 41 : MOVE : FileStat-Msgs.cpy */
422  cob_set_location (st_1, 41, st_2, NULL, st_4);
423  memcpy (b_159 + 26, "FILE SHARING FAILURE ", 25);
424  goto l_4;
425  }
426 
427  /* WHEN */
428 
429  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 91LL, 0) == 0))
430  {
431 
432  /* Line: 42 : MOVE : FileStat-Msgs.cpy */
433  cob_set_location (st_1, 42, st_2, NULL, st_4);
434  memcpy (b_159 + 26, "FILE NOT AVAILABLE ", 25);
435  goto l_4;
436  }
437 
438  /* End EVALUATE */
439  l_4:;
440 
441  /* Line: 666 : MOVE : GCic.cbl */
442  cob_set_location (st_5, 666, st_2, NULL, st_4);
443  memset (b_188, 32, 80);
444 
445  /* Line: 667 : IF : GCic.cbl */
446  cob_set_location (st_5, 667, st_2, NULL, st_6);
447  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 35LL, 0) == 0))
448  {
449 
450  /* Line: 668 : DISPLAY : GCic.cbl */
451  cob_set_location (st_5, 668, st_2, NULL, st_7);
452  cob_display (0, 1, 3, &c_1, cob_intr_trim (0, 0, &f_157, 2), &c_2);
453  }
454  else
455  {
456  /* ELSE */
457 
458  /* Line: 673 : DISPLAY : GCic.cbl */
459  cob_set_location (st_5, 673, st_2, NULL, st_7);
460  cob_display (0, 1, 3, &c_3, cob_intr_trim (0, 0, &f_157, 2), &c_2);
461  }
462 
463  /* Line: 679 : GOBACK : GCic.cbl */
464  cob_set_location (st_5, 679, st_2, NULL, st_8);
465  goto exit_program;
466 
467  /* Implicit DECLARATIVE return */
468  if (frame_ptr->perform_through == 2)
469  goto *frame_ptr->return_address_ptr;
470 
471  /* Fatal error if reached */
472  cob_fatal_error (COB_FERROR_GLOBAL);
473 
474  /* END DECLARATIVES */
475 
476  /* Line: 680 : Entry GCic : GCic.cbl */
477  l_5:;
478 
479  /* Line: 682 : Section 000-Main : GCic.cbl */
480 
481  /* Line: 683 : PERFORM : GCic.cbl */
482  cob_set_location (st_5, 683, st_9, NULL, st_10);
483  /* PERFORM 100-Initialization */
484  frame_ptr++;
485  if (unlikely(frame_ptr == frame_overflow))
486  cob_fatal_error (COB_FERROR_STACK);
487  frame_ptr->perform_through = 8;
488  frame_ptr->return_address_ptr = &&l_158;
489  goto l_8;
490  l_158:
491  frame_ptr--;
492 
493  /* Line: 684 : SET : GCic.cbl */
494  cob_set_location (st_5, 684, st_9, NULL, st_11);
495  *(b_195 + 1) = 78;
496 
497  /* Line: 685 : PERFORM : GCic.cbl */
498  cob_set_location (st_5, 685, st_9, NULL, st_10);
499  for (;;)
500  {
501  if (((int)(int)(*(b_195 + 1) - 89) == 0))
502  break;
503 
504  /* Line: 686 : PERFORM : GCic.cbl */
505  cob_set_location (st_5, 686, st_9, NULL, st_10);
506  /* PERFORM 200-Let-User-Set-Switches */
507  frame_ptr++;
508  if (unlikely(frame_ptr == frame_overflow))
509  cob_fatal_error (COB_FERROR_STACK);
510  frame_ptr->perform_through = 10;
511  frame_ptr->return_address_ptr = &&l_159;
512  goto l_10;
513  l_159:
514  frame_ptr--;
515 
516  /* Line: 687 : PERFORM : GCic.cbl */
517  cob_set_location (st_5, 687, st_9, NULL, st_10);
518  /* PERFORM 210-Run-Compiler */
519  frame_ptr++;
520  if (unlikely(frame_ptr == frame_overflow))
521  cob_fatal_error (COB_FERROR_STACK);
522  frame_ptr->perform_through = 14;
523  frame_ptr->return_address_ptr = &&l_160;
524  goto l_14;
525  l_160:
526  frame_ptr--;
527 
528  /* Line: 688 : IF : GCic.cbl */
529  cob_set_location (st_5, 688, st_9, NULL, st_6);
530  if (((((int)(int)(*(b_195) - 89) == 0) ||
531  ((int)(int)(*(b_195) - 87) == 0)) &&
532  ((int)(int)(*(b_112 + 372) - ' ') > 0)))
533  {
534 
535  /* Line: 690 : DISPLAY : GCic.cbl */
536  cob_set_location (st_5, 690, st_9, NULL, st_7);
537  cob_screen_display (&s_230, NULL, NULL);
538 
539  /* Line: 691 : PERFORM : GCic.cbl */
540  cob_set_location (st_5, 691, st_9, NULL, st_10);
541  /* PERFORM 220-Make-Listing */
542  frame_ptr++;
543  if (unlikely(frame_ptr == frame_overflow))
544  cob_fatal_error (COB_FERROR_STACK);
545  frame_ptr->perform_through = 16;
546  frame_ptr->return_address_ptr = &&l_161;
547  goto l_16;
548  l_161:
549  frame_ptr--;
550  }
551 
552  /* Line: 693 : IF : GCic.cbl */
553  cob_set_location (st_5, 693, st_9, NULL, st_6);
554  if ((((int)(int)(*(b_112 + 369) - ' ') != 0) &&
555  ((int)(int)(*(b_195 + 5) - 78) == 0)))
556  {
557 
558  /* Line: 695 : PERFORM : GCic.cbl */
559  cob_set_location (st_5, 695, st_9, NULL, st_10);
560  /* PERFORM 230-Run-Program */
561  frame_ptr++;
562  if (unlikely(frame_ptr == frame_overflow))
563  cob_fatal_error (COB_FERROR_STACK);
564  frame_ptr->perform_through = 18;
565  frame_ptr->return_address_ptr = &&l_162;
566  goto l_18;
567  l_162:
568  frame_ptr--;
569  }
570 
571  /* Line: 697 : PERFORM : GCic.cbl */
572  cob_set_location (st_5, 697, st_9, NULL, st_10);
573  /* PERFORM 250-Autoload-Listing */
574  frame_ptr++;
575  if (unlikely(frame_ptr == frame_overflow))
576  cob_fatal_error (COB_FERROR_STACK);
577  frame_ptr->perform_through = 23;
578  frame_ptr->return_address_ptr = &&l_163;
579  goto l_23;
580  l_163:
581  frame_ptr--;
582  }
583 
584  /* Line: 699 : PERFORM : GCic.cbl */
585  cob_set_location (st_5, 699, st_9, NULL, st_10);
586  /* PERFORM 900-Terminate */
587  frame_ptr++;
588  if (unlikely(frame_ptr == frame_overflow))
589  cob_fatal_error (COB_FERROR_STACK);
590  frame_ptr->perform_through = 26;
591  frame_ptr->return_address_ptr = &&l_164;
592  goto l_26;
593  l_164:
594  frame_ptr--;
595 
596  /* Line: 706 : Section 100-Initialization : GCic.cbl */
597  l_8:;
598 
599  /* Line: 710 : SET : GCic.cbl */
600  cob_set_location (st_5, 710, st_12, NULL, st_11);
601  cob_set_environment ((cob_field *)&c_4, (cob_field *)&c_5);
602 
603  /* Line: 711 : SET : GCic.cbl */
604  cob_set_location (st_5, 711, st_12, NULL, st_11);
605  cob_set_environment ((cob_field *)&c_6, (cob_field *)&c_5);
606 
607  /* Line: 715 : MOVE : GCic.cbl */
608  cob_set_location (st_5, 715, st_12, NULL, st_4);
609  cob_move (cob_intr_when_compiled (1, 12, (cob_field *)&c_7), &f_170);
610 
611  /* Line: 716 : INSPECT : GCic.cbl */
612  cob_set_location (st_5, 716, st_12, NULL, st_13);
613  cob_inspect_init (&f_170, 1);
614  cob_inspect_start ();
615  cob_inspect_after (&cob_all_space);
616  cob_inspect_all ((cob_field *)&c_8, (cob_field *)&c_9);
617  cob_inspect_finish ();
618 
619  /* Line: 722 : INSPECT : GCic.cbl */
620  cob_set_location (st_5, 722, st_12, NULL, st_13);
621  cob_inspect_init (&f_140, 1);
622  cob_inspect_start ();
623  cob_inspect_all (&cob_all_space, (cob_field *)&c_10);
624  cob_inspect_start ();
625  cob_inspect_all ((cob_field *)&c_11, (cob_field *)&c_12);
626  cob_inspect_start ();
627  cob_inspect_all ((cob_field *)&c_11, (cob_field *)&c_13);
628  cob_inspect_finish ();
629 
630  /* Line: 729 : ACCEPT : GCic.cbl */
631  cob_set_location (st_5, 729, st_12, NULL, st_14);
632  cob_accept_command_line (&f_151);
633 
634  /* Line: 730 : MOVE : GCic.cbl */
635  cob_set_location (st_5, 730, st_12, NULL, st_4);
636  (*(int *)(b_153)) = 1;
637 
638  /* Line: 731 : IF : GCic.cbl */
639  cob_set_location (st_5, 731, st_12, NULL, st_6);
640  if ((((int)(int)(*(b_151 + ((*(int *)(b_153)) - 1)) - 34) == 0) ||
641  ((int)(int)(*(b_151 + ((*(int *)(b_153)) - 1)) - 39) == 0)))
642  {
643 
644  /* Line: 732 : MOVE : GCic.cbl */
645  cob_set_location (st_5, 732, st_12, NULL, st_4);
646  *(b_152) = *(b_151 + ((*(int *)(b_153)) - 1));
647 
648  /* Line: 734 : ADD : GCic.cbl */
649  cob_set_location (st_5, 734, st_12, NULL, st_15);
650  (*(int *)(b_153)) = ((*(int *)(b_153)) + 1);
651 
652  /* Line: 735 : UNSTRING : GCic.cbl */
653  cob_set_location (st_5, 735, st_12, NULL, st_16);
654  cob_unstring_init (&f_151, &f_153, 1);
655  cob_unstring_delimited (&f_152, 0);
656  cob_unstring_into (&f_157, 0, 0);
657  cob_unstring_finish ();
658  }
659  else
660  {
661  /* ELSE */
662 
663  /* Line: 740 : UNSTRING : GCic.cbl */
664  cob_set_location (st_5, 740, st_12, NULL, st_16);
665  cob_unstring_init (&f_151, &f_153, 1);
666  cob_unstring_delimited (&cob_all_space, 1);
667  cob_unstring_into (&f_157, 0, 0);
668  cob_unstring_finish ();
669  }
670 
671  /* Line: 745 : IF : GCic.cbl */
672  cob_set_location (st_5, 745, st_12, NULL, st_6);
673  if (((int)cob_cmp (&f_157, &cob_all_space) == 0))
674  {
675 
676  /* Line: 746 : DISPLAY : GCic.cbl */
677  cob_set_location (st_5, 746, st_12, NULL, st_7);
678  cob_display (0, 1, 1, &c_14);
679 
680  /* Line: 747 : PERFORM : GCic.cbl */
681  cob_set_location (st_5, 747, st_12, NULL, st_10);
682  /* PERFORM 900-Terminate */
683  frame_ptr++;
684  if (unlikely(frame_ptr == frame_overflow))
685  cob_fatal_error (COB_FERROR_STACK);
686  frame_ptr->perform_through = 26;
687  frame_ptr->return_address_ptr = &&l_165;
688  goto l_26;
689  l_165:
690  frame_ptr--;
691  }
692 
693  /* Line: 753 : PERFORM : GCic.cbl */
694  cob_set_location (st_5, 753, st_12, NULL, st_10);
695  /* PERFORM 240-Find-LINKAGE-SECTION */
696  frame_ptr++;
697  if (unlikely(frame_ptr == frame_overflow))
698  cob_fatal_error (COB_FERROR_STACK);
699  frame_ptr->perform_through = 20;
700  frame_ptr->return_address_ptr = &&l_166;
701  goto l_20;
702  l_166:
703  frame_ptr--;
704 
705  /* Line: 758 : IF : GCic.cbl */
706  cob_set_location (st_5, 758, st_12, NULL, st_6);
707  if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) &&
708  ((int)(int)(*(b_157 + 1) - 58) == 0)))
709  {
710 
711  /* Line: 759 : MOVE : GCic.cbl */
712  cob_set_location (st_5, 759, st_12, NULL, st_4);
713  *(b_171) = 92;
714  }
715 
716  /* Line: 761 : MOVE : GCic.cbl */
717  cob_set_location (st_5, 761, st_12, NULL, st_4);
718  cob_move (cob_intr_length (&f_157), &f_165);
719 
720  /* Line: 762 : PERFORM : GCic.cbl */
721  cob_set_location (st_5, 762, st_12, NULL, st_10);
722  for (;;)
723  {
724  if ((((int)cob_cmp_s32 (b_165, 0LL) == 0) ||
725  ((int)(int)(*(b_157 + ((*(int *)(b_165)) - 1)) - *(b_171)) == 0)))
726  break;
727 
728  /* Line: 764 : SUBTRACT : GCic.cbl */
729  cob_set_location (st_5, 764, st_12, NULL, st_17);
730  (*(int *)(b_165)) = ((*(int *)(b_165)) - 1);
731  }
732 
733  /* Line: 766 : IF : GCic.cbl */
734  cob_set_location (st_5, 766, st_12, NULL, st_6);
735  if (((int)cob_cmp_s32 (b_165, 0LL) == 0))
736  {
737 
738  /* Line: 767 : MOVE : GCic.cbl */
739  cob_set_location (st_5, 767, st_12, NULL, st_4);
740  memset (b_191, 32, 256);
741 
742  /* Line: 768 : MOVE : GCic.cbl */
743  cob_set_location (st_5, 768, st_12, NULL, st_4);
744  memcpy (b_192, b_157, 256);
745  }
746  else
747  {
748  /* ELSE */
749 
750  /* Line: 770 : MOVE : GCic.cbl */
751  cob_set_location (st_5, 770, st_12, NULL, st_4);
752  *(b_157 + ((*(int *)(b_165)) - 1)) = 42;
753 
754  /* Line: 771 : UNSTRING : GCic.cbl */
755  cob_set_location (st_5, 771, st_12, NULL, st_16);
756  cob_unstring_init (&f_157, NULL, 1);
757  cob_unstring_delimited ((cob_field *)&c_15, 0);
758  cob_unstring_into (&f_191, 0, 0);
759  cob_unstring_into (&f_192, 0, 0);
760  cob_unstring_finish ();
761 
762  /* Line: 774 : MOVE : GCic.cbl */
763  cob_set_location (st_5, 774, st_12, NULL, st_4);
764  *(b_157 + ((*(int *)(b_165)) - 1)) = *(b_171);
765  }
766 
767  /* Line: 776 : IF : GCic.cbl */
768  cob_set_location (st_5, 776, st_12, NULL, st_6);
769  if (((int)cob_cmp (&f_191, &cob_all_space) == 0))
770  {
771 
772  /* Line: 777 : ACCEPT : GCic.cbl */
773  cob_set_location (st_5, 777, st_12, NULL, st_14);
774  cob_get_environment ((cob_field *)&c_16, &f_191);
775  }
776  else
777  {
778  /* ELSE */
779 
780  /* Line: 779 : CALL : GCic.cbl */
781  cob_set_location (st_5, 779, st_12, NULL, st_18);
782  cob_procedure_params[0] = cob_intr_trim (0, 0, &f_191, 2);
783  cob_glob_ptr->cob_call_params = 1;
784  b_1 = cob_sys_change_dir (cob_procedure_params[0]->data);
785  }
786 
787  /* Line: 782 : IF : GCic.cbl */
788  cob_set_location (st_5, 782, st_12, NULL, st_6);
789  if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) &&
790  ((int)(int)(*(b_157 + 1) - 58) == 0)))
791  {
792 
793  /* Line: 783 : MOVE : GCic.cbl */
794  cob_set_location (st_5, 783, st_12, NULL, st_4);
795  *(b_171) = 47;
796  }
797 
798  /* Line: 789 : MOVE : GCic.cbl */
799  cob_set_location (st_5, 789, st_12, NULL, st_4);
800  cob_move (cob_intr_length (&f_192), &f_165);
801 
802  /* Line: 790 : PERFORM : GCic.cbl */
803  cob_set_location (st_5, 790, st_12, NULL, st_10);
804  for (;;)
805  {
806  if ((((int)cob_cmp_s32 (b_165, 0LL) == 0) ||
807  ((int)(int)(*(b_192 + ((*(int *)(b_165)) - 1)) - 46) == 0)))
808  break;
809 
810  /* Line: 792 : SUBTRACT : GCic.cbl */
811  cob_set_location (st_5, 792, st_12, NULL, st_17);
812  (*(int *)(b_165)) = ((*(int *)(b_165)) - 1);
813  }
814 
815  /* Line: 794 : IF : GCic.cbl */
816  cob_set_location (st_5, 794, st_12, NULL, st_6);
817  if (((int)cob_cmp_s32 (b_165, 0LL) == 0))
818  {
819 
820  /* Line: 795 : MOVE : GCic.cbl */
821  cob_set_location (st_5, 795, st_12, NULL, st_4);
822  memcpy (b_194, b_192, 31);
823 
824  /* Line: 796 : MOVE : GCic.cbl */
825  cob_set_location (st_5, 796, st_12, NULL, st_4);
826  memset (b_190, 32, 256);
827  }
828  else
829  {
830  /* ELSE */
831 
832  /* Line: 798 : MOVE : GCic.cbl */
833  cob_set_location (st_5, 798, st_12, NULL, st_4);
834  *(b_192 + ((*(int *)(b_165)) - 1)) = 42;
835 
836  /* Line: 799 : UNSTRING : GCic.cbl */
837  cob_set_location (st_5, 799, st_12, NULL, st_16);
838  cob_unstring_init (&f_192, NULL, 1);
839  cob_unstring_delimited ((cob_field *)&c_15, 0);
840  cob_unstring_into (&f_194, 0, 0);
841  cob_unstring_into (&f_190, 0, 0);
842  cob_unstring_finish ();
843 
844  /* Line: 802 : MOVE : GCic.cbl */
845  cob_set_location (st_5, 802, st_12, NULL, st_4);
846  *(b_192 + ((*(int *)(b_165)) - 1)) = 46;
847  }
848 
849  /* Line: 807 : MOVE : GCic.cbl */
850  cob_set_location (st_5, 807, st_12, NULL, st_4);
851  memset (b_164, 196, 80);
852 
853  /* Line: 808 : MOVE : GCic.cbl */
854  cob_set_location (st_5, 808, st_12, NULL, st_4);
855  cob_move (cob_intr_concatenate (0, 0, 4, (cob_field *)&c_17, cob_intr_trim (0, 0, COB_SET_FLD(f0, 14, b_180 + 14 * (cob_get_numdisp (b_175, 1) - 1), &a_1), 2), (cob_field *)&c_18, (cob_field *)&c_19), &f_188);
856 
857  /* Implicit PERFORM return */
858  if (frame_ptr->perform_through == 8)
859  goto *frame_ptr->return_address_ptr;
860 
861  /* Line: 819 : Section 200-Let-User-Set-Switches: GCic.cbl */
862  l_10:;
863 
864  /* Line: 820 : SET : GCic.cbl */
865  cob_set_location (st_5, 820, st_19, NULL, st_11);
866  *(b_195 + 4) = 78;
867 
868  /* Line: 821 : PERFORM : GCic.cbl */
869  cob_set_location (st_5, 821, st_19, NULL, st_10);
870  for (;;)
871  {
872  if (((int)(int)(*(b_195 + 4) - 89) == 0))
873  break;
874 
875  /* Line: 822 : EVALUATE : GCic.cbl */
876  cob_set_location (st_5, 822, st_19, NULL, st_3);
877 
878  /* WHEN */
879 
880  if (((int)cob_cmp_numdisp (b_167, 1, 0LL, 0) == 0))
881  {
882 
883  /* Line: 824 : MOVE : GCic.cbl */
884  cob_set_location (st_5, 824, st_19, NULL, st_4);
885  cob_move ((cob_field *)&c_20, &f_169);
886 
887  /* Line: 825 : MOVE : GCic.cbl */
888  cob_set_location (st_5, 825, st_19, NULL, st_4);
889  *(b_112 + 372) = 32;
890  goto l_12;
891  }
892 
893  /* WHEN */
894 
895  if (((int)cob_cmp_numdisp (b_167, 1, 1LL, 0) == 0))
896  {
897 
898  /* Line: 827 : MOVE : GCic.cbl */
899  cob_set_location (st_5, 827, st_19, NULL, st_4);
900  memcpy (b_169, "Listing On (Landscape) ", 27);
901 
902  /* Line: 828 : MOVE : GCic.cbl */
903  cob_set_location (st_5, 828, st_19, NULL, st_4);
904  *(b_112 + 372) = 62;
905  goto l_12;
906  }
907 
908  /* WHEN */
909 
910  if (((int)cob_cmp_numdisp (b_167, 1, 2LL, 0) == 0))
911  {
912 
913  /* Line: 830 : MOVE : GCic.cbl */
914  cob_set_location (st_5, 830, st_19, NULL, st_4);
915  memcpy (b_169, "Listing On (Portrait) ", 27);
916 
917  /* Line: 831 : MOVE : GCic.cbl */
918  cob_set_location (st_5, 831, st_19, NULL, st_4);
919  *(b_112 + 372) = 62;
920  goto l_12;
921  }
922 
923  /* End EVALUATE */
924  l_12:;
925 
926  /* Line: 833 : ACCEPT : GCic.cbl */
927  cob_set_location (st_5, 833, st_19, NULL, st_14);
928  cob_move (&f_115, &f_355);
929  cob_move (&f_114, &f_354);
930  cob_move (&f_129, &f_353);
931  cob_move (&f_128, &f_352);
932  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
933  cob_move (&f_169, &f_341);
934  cob_move (&f_147, &f_334);
935  cob_move (&f_143, &f_333);
936  cob_move (&f_149, &f_332);
937  cob_move (&f_146, &f_331);
938  cob_move (&f_145, &f_330);
939  cob_move (&f_142, &f_329);
940  cob_move (&f_144, &f_328);
941  cob_move (&f_148, &f_327);
942  cob_move (&f_141, &f_326);
943  cob_move (&f_191, &f_314);
944  cob_move (&f_192, &f_313);
945  cob_move (&f_188, &f_293);
946  cob_move (&f_170, &f_290);
947  cob_move (&f_164, &f_286);
948  cob_move (&f_164, &f_279);
949  cob_move (&f_164, &f_276);
950  cob_move (&f_164, &f_269);
951  cob_move (&f_164, &f_266);
952  cob_move (&f_164, &f_264);
953  cob_move (&f_164, &f_246);
954  cob_move (&f_164, &f_244);
955  cob_move (&f_164, &f_241);
956  cob_move (&f_164, &f_234);
957  cob_screen_accept (&s_231, NULL, NULL, NULL);
958  cob_move (&f_355, &f_115);
959  cob_move (&f_354, &f_114);
960  cob_move (&f_353, &f_129);
961  cob_move (&f_352, &f_128);
962 
963  /* Line: 834 : IF : GCic.cbl */
964  cob_set_location (st_5, 834, st_19, NULL, st_6);
965  if (((int)cob_cmp_numdisp (b_356, 4, 0LL, 0) > 0))
966  {
967 
968  /* Line: 835 : EVALUATE : GCic.cbl */
969  cob_set_location (st_5, 835, st_19, NULL, st_3);
970 
971  /* WHEN */
972 
973  if (((int)cob_cmp_numdisp (b_356, 4, 1001LL, 0) == 0))
974  {
975 
976  /* Line: 837 : IF : GCic.cbl */
977  cob_set_location (st_5, 837, st_19, NULL, st_6);
978  if (((int)(int)(*(b_112 + 368) - ' ') == 0))
979  {
980 
981  /* Line: 838 : MOVE : GCic.cbl */
982  cob_set_location (st_5, 838, st_19, NULL, st_4);
983  *(b_112 + 368) = 62;
984  }
985  else
986  {
987  /* ELSE */
988 
989  /* Line: 840 : MOVE : GCic.cbl */
990  cob_set_location (st_5, 840, st_19, NULL, st_4);
991  *(b_112 + 368) = 32;
992  }
993  goto l_13;
994  }
995 
996  /* WHEN */
997 
998  if (((int)cob_cmp_numdisp (b_356, 4, 1002LL, 0) == 0))
999  {
1000 
1001  /* Line: 843 : IF : GCic.cbl */
1002  cob_set_location (st_5, 843, st_19, NULL, st_6);
1003  if (((int)(int)(*(b_112 + 375) - ' ') == 0))
1004  {
1005 
1006  /* Line: 844 : MOVE : GCic.cbl */
1007  cob_set_location (st_5, 844, st_19, NULL, st_4);
1008  *(b_112 + 375) = 62;
1009  }
1010  else
1011  {
1012  /* ELSE */
1013 
1014  /* Line: 846 : MOVE : GCic.cbl */
1015  cob_set_location (st_5, 846, st_19, NULL, st_4);
1016  *(b_112 + 375) = 32;
1017  }
1018  goto l_13;
1019  }
1020 
1021  /* WHEN */
1022 
1023  if (((int)cob_cmp_numdisp (b_356, 4, 1003LL, 0) == 0))
1024  {
1025 
1026  /* Line: 849 : IF : GCic.cbl */
1027  cob_set_location (st_5, 849, st_19, NULL, st_6);
1028  if (((int)(int)(*(b_112 + 371) - ' ') == 0))
1029  {
1030 
1031  /* Line: 850 : MOVE : GCic.cbl */
1032  cob_set_location (st_5, 850, st_19, NULL, st_4);
1033  *(b_112 + 371) = 62;
1034  }
1035  else
1036  {
1037  /* ELSE */
1038 
1039  /* Line: 852 : MOVE : GCic.cbl */
1040  cob_set_location (st_5, 852, st_19, NULL, st_4);
1041  *(b_112 + 371) = 32;
1042  }
1043  goto l_13;
1044  }
1045 
1046  /* WHEN */
1047 
1048  if (((int)cob_cmp_numdisp (b_356, 4, 1004LL, 0) == 0))
1049  {
1050 
1051  /* Line: 855 : IF : GCic.cbl */
1052  cob_set_location (st_5, 855, st_19, NULL, st_6);
1053  if (((int)(int)(*(b_112 + 369) - ' ') == 0))
1054  {
1055 
1056  /* Line: 856 : MOVE : GCic.cbl */
1057  cob_set_location (st_5, 856, st_19, NULL, st_4);
1058  *(b_112 + 369) = 62;
1059  }
1060  else
1061  {
1062  /* ELSE */
1063 
1064  /* Line: 858 : MOVE : GCic.cbl */
1065  cob_set_location (st_5, 858, st_19, NULL, st_4);
1066  *(b_112 + 369) = 32;
1067  }
1068  goto l_13;
1069  }
1070 
1071  /* WHEN */
1072 
1073  if (((int)cob_cmp_numdisp (b_356, 4, 1005LL, 0) == 0))
1074  {
1075 
1076  /* Line: 861 : ADD : GCic.cbl */
1077  cob_set_location (st_5, 861, st_19, NULL, st_15);
1078  cob_add_int (&f_167, 1, 0);
1079 
1080  /* Line: 862 : IF : GCic.cbl */
1081  cob_set_location (st_5, 862, st_19, NULL, st_6);
1082  if (((int)cob_cmp_numdisp (b_167, 1, 2LL, 0) > 0))
1083  {
1084 
1085  /* Line: 863 : MOVE : GCic.cbl */
1086  cob_set_location (st_5, 863, st_19, NULL, st_4);
1087  *(b_167) = 48;
1088  }
1089  goto l_13;
1090  }
1091 
1092  /* WHEN */
1093 
1094  if (((int)cob_cmp_numdisp (b_356, 4, 1006LL, 0) == 0))
1095  {
1096 
1097  /* Line: 866 : IF : GCic.cbl */
1098  cob_set_location (st_5, 866, st_19, NULL, st_6);
1099  if (((int)(int)(*(b_112 + 373) - ' ') == 0))
1100  {
1101 
1102  /* Line: 867 : MOVE : GCic.cbl */
1103  cob_set_location (st_5, 867, st_19, NULL, st_4);
1104  *(b_112 + 373) = 62;
1105  }
1106  else
1107  {
1108  /* ELSE */
1109 
1110  /* Line: 869 : MOVE : GCic.cbl */
1111  cob_set_location (st_5, 869, st_19, NULL, st_4);
1112  *(b_112 + 373) = 32;
1113  }
1114  goto l_13;
1115  }
1116 
1117  /* WHEN */
1118 
1119  if (((int)cob_cmp_numdisp (b_356, 4, 1007LL, 0) == 0))
1120  {
1121 
1122  /* Line: 872 : IF : GCic.cbl */
1123  cob_set_location (st_5, 872, st_19, NULL, st_6);
1124  if (((int)(int)(*(b_112 + 376) - ' ') == 0))
1125  {
1126 
1127  /* Line: 873 : MOVE : GCic.cbl */
1128  cob_set_location (st_5, 873, st_19, NULL, st_4);
1129  *(b_112 + 376) = 62;
1130  }
1131  else
1132  {
1133  /* ELSE */
1134 
1135  /* Line: 875 : MOVE : GCic.cbl */
1136  cob_set_location (st_5, 875, st_19, NULL, st_4);
1137  *(b_112 + 376) = 32;
1138  }
1139  goto l_13;
1140  }
1141 
1142  /* WHEN */
1143 
1144  if (((int)cob_cmp_numdisp (b_356, 4, 1008LL, 0) == 0))
1145  {
1146 
1147  /* Line: 878 : IF : GCic.cbl */
1148  cob_set_location (st_5, 878, st_19, NULL, st_6);
1149  if (((int)(int)(*(b_112 + 370) - ' ') == 0))
1150  {
1151 
1152  /* Line: 879 : MOVE : GCic.cbl */
1153  cob_set_location (st_5, 879, st_19, NULL, st_4);
1154  *(b_112 + 370) = 62;
1155  }
1156  else
1157  {
1158  /* ELSE */
1159 
1160  /* Line: 881 : MOVE : GCic.cbl */
1161  cob_set_location (st_5, 881, st_19, NULL, st_4);
1162  *(b_112 + 370) = 32;
1163  }
1164  goto l_13;
1165  }
1166 
1167  /* WHEN */
1168 
1169  if (((int)cob_cmp_numdisp (b_356, 4, 1009LL, 0) == 0))
1170  {
1171 
1172  /* Line: 884 : IF : GCic.cbl */
1173  cob_set_location (st_5, 884, st_19, NULL, st_6);
1174  if (((int)(int)(*(b_112 + 374) - ' ') == 0))
1175  {
1176 
1177  /* Line: 885 : MOVE : GCic.cbl */
1178  cob_set_location (st_5, 885, st_19, NULL, st_4);
1179  *(b_112 + 374) = 62;
1180  }
1181  else
1182  {
1183  /* ELSE */
1184 
1185  /* Line: 887 : MOVE : GCic.cbl */
1186  cob_set_location (st_5, 887, st_19, NULL, st_4);
1187  *(b_112 + 374) = 32;
1188  }
1189  goto l_13;
1190  }
1191 
1192  /* WHEN */
1193 
1194  if (((int)cob_cmp_numdisp (b_356, 4, 2005LL, 0) == 0))
1195  {
1196 
1197  /* Line: 890 : PERFORM : GCic.cbl */
1198  cob_set_location (st_5, 890, st_19, NULL, st_10);
1199  /* PERFORM 900-Terminate */
1200  frame_ptr++;
1201  if (unlikely(frame_ptr == frame_overflow))
1202  cob_fatal_error (COB_FERROR_STACK);
1203  frame_ptr->perform_through = 26;
1204  frame_ptr->return_address_ptr = &&l_167;
1205  goto l_26;
1206  l_167:
1207  frame_ptr--;
1208  goto l_13;
1209  }
1210 
1211  /* WHEN */
1212 
1213  if (((int)cob_cmp_numdisp (b_356, 4, 1012LL, 0) == 0))
1214  {
1215 
1216  /* Line: 893 : ADD : GCic.cbl */
1217  cob_set_location (st_5, 893, st_19, NULL, st_15);
1218  cob_add_int (&f_126, 1, 0);
1219 
1220  /* Line: 894 : IF : GCic.cbl */
1221  cob_set_location (st_5, 894, st_19, NULL, st_6);
1222  if (((int)cob_cmp_numdisp (b_112 + 215, 1, 7LL, 0) > 0))
1223  {
1224 
1225  /* Line: 895 : MOVE : GCic.cbl */
1226  cob_set_location (st_5, 895, st_19, NULL, st_4);
1227  *(b_112 + 215) = 49;
1228  }
1229  goto l_13;
1230  }
1231 
1232  /* WHEN OTHER */
1233 
1234  /* Line: 898 : MOVE : GCic.cbl */
1235  cob_set_location (st_5, 898, st_19, NULL, st_4);
1236  cob_move ((cob_field *)&c_21, &f_188);
1237 
1238  /* End EVALUATE */
1239  l_13:;
1240  }
1241  else
1242  {
1243  /* ELSE */
1244 
1245  /* Line: 902 : SET : GCic.cbl */
1246  cob_set_location (st_5, 902, st_19, NULL, st_11);
1247  *(b_195 + 4) = 89;
1248  }
1249  }
1250 
1251  /* Implicit PERFORM return */
1252  if (frame_ptr->perform_through == 10)
1253  goto *frame_ptr->return_address_ptr;
1254 
1255  /* Line: 910 : Section 210-Run-Compiler : GCic.cbl */
1256  l_14:;
1257 
1258  /* Line: 911 : MOVE : GCic.cbl */
1259  cob_set_location (st_5, 911, st_20, NULL, st_4);
1260  memset (b_150, 32, 512);
1261  memset (b_154, 32, 256);
1262  memset (b_188, 32, 80);
1263 
1264  /* Line: 914 : DISPLAY : GCic.cbl */
1265  cob_set_location (st_5, 914, st_20, NULL, st_7);
1266  cob_move (&f_115, &f_355);
1267  cob_move (&f_114, &f_354);
1268  cob_move (&f_129, &f_353);
1269  cob_move (&f_128, &f_352);
1270  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
1271  cob_move (&f_169, &f_341);
1272  cob_move (&f_147, &f_334);
1273  cob_move (&f_143, &f_333);
1274  cob_move (&f_149, &f_332);
1275  cob_move (&f_146, &f_331);
1276  cob_move (&f_145, &f_330);
1277  cob_move (&f_142, &f_329);
1278  cob_move (&f_144, &f_328);
1279  cob_move (&f_148, &f_327);
1280  cob_move (&f_141, &f_326);
1281  cob_move (&f_191, &f_314);
1282  cob_move (&f_192, &f_313);
1283  cob_move (&f_188, &f_293);
1284  cob_move (&f_170, &f_290);
1285  cob_move (&f_164, &f_286);
1286  cob_move (&f_164, &f_279);
1287  cob_move (&f_164, &f_276);
1288  cob_move (&f_164, &f_269);
1289  cob_move (&f_164, &f_266);
1290  cob_move (&f_164, &f_264);
1291  cob_move (&f_164, &f_246);
1292  cob_move (&f_164, &f_244);
1293  cob_move (&f_164, &f_241);
1294  cob_move (&f_164, &f_234);
1295  cob_screen_display (&s_231, NULL, NULL);
1296 
1297  /* Line: 915 : MOVE : GCic.cbl */
1298  cob_set_location (st_5, 915, st_20, NULL, st_4);
1299  (*(int *)(b_165)) = 1;
1300 
1301  /* Line: 916 : MOVE : GCic.cbl */
1302  cob_set_location (st_5, 916, st_20, NULL, st_4);
1303  cob_move (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1)), &f_155);
1304 
1305  /* Line: 921 : MOVE : GCic.cbl */
1306  cob_set_location (st_5, 921, st_20, NULL, st_4);
1307  memset (b_154, 32, 256);
1308 
1309  /* Line: 922 : STRING : GCic.cbl */
1310  cob_set_location (st_5, 922, st_20, NULL, st_21);
1311  cob_string_init (&f_154, &f_165);
1312  cob_string_delimited (NULL);
1313  cob_string_append ((cob_field *)&c_22);
1314  cob_string_append (cob_intr_trim (0, 0, &f_155, 2));
1315  cob_string_append ((cob_field *)&c_23);
1316  cob_string_finish ();
1317 
1318  /* Line: 927 : IF : GCic.cbl */
1319  cob_set_location (st_5, 927, st_20, NULL, st_6);
1320  if (((int)(int)(*(b_112 + 371) - 32) != 0))
1321  {
1322 
1323  /* Line: 928 : STRING : GCic.cbl */
1324  cob_set_location (st_5, 928, st_20, NULL, st_21);
1325  cob_string_init (&f_154, &f_165);
1326  cob_string_delimited (NULL);
1327  cob_string_append ((cob_field *)&c_24);
1328  cob_string_finish ();
1329  }
1330  else
1331  {
1332  /* ELSE */
1333 
1334  /* Line: 932 : STRING : GCic.cbl */
1335  cob_set_location (st_5, 932, st_20, NULL, st_21);
1336  cob_string_init (&f_154, &f_165);
1337  cob_string_delimited (NULL);
1338  cob_string_append ((cob_field *)&c_25);
1339  cob_string_finish ();
1340  }
1341 
1342  /* Line: 936 : IF : GCic.cbl */
1343  cob_set_location (st_5, 936, st_20, NULL, st_6);
1344  if (((int)(int)(*(b_112 + 368) - 32) != 0))
1345  {
1346 
1347  /* Line: 937 : STRING : GCic.cbl */
1348  cob_set_location (st_5, 937, st_20, NULL, st_21);
1349  cob_string_init (&f_154, &f_165);
1350  cob_string_delimited (NULL);
1351  cob_string_append ((cob_field *)&c_26);
1352  cob_string_finish ();
1353  }
1354 
1355  /* Line: 941 : IF : GCic.cbl */
1356  cob_set_location (st_5, 941, st_20, NULL, st_6);
1357  if (((int)(int)(*(b_112 + 374) - 32) != 0))
1358  {
1359 
1360  /* Line: 942 : STRING : GCic.cbl */
1361  cob_set_location (st_5, 942, st_20, NULL, st_21);
1362  cob_string_init (&f_154, &f_165);
1363  cob_string_delimited (NULL);
1364  cob_string_append ((cob_field *)&c_27);
1365  cob_string_finish ();
1366  }
1367 
1368  /* Line: 946 : IF : GCic.cbl */
1369  cob_set_location (st_5, 946, st_20, NULL, st_6);
1370  if (((int)(int)(*(b_112 + 375) - 32) != 0))
1371  {
1372 
1373  /* Line: 947 : STRING : GCic.cbl */
1374  cob_set_location (st_5, 947, st_20, NULL, st_21);
1375  cob_string_init (&f_154, &f_165);
1376  cob_string_delimited (NULL);
1377  cob_string_append ((cob_field *)&c_28);
1378  cob_string_finish ();
1379  }
1380 
1381  /* Line: 951 : IF : GCic.cbl */
1382  cob_set_location (st_5, 951, st_20, NULL, st_6);
1383  if (((int)(int)(*(b_112 + 373) - 32) != 0))
1384  {
1385 
1386  /* Line: 952 : STRING : GCic.cbl */
1387  cob_set_location (st_5, 952, st_20, NULL, st_21);
1388  cob_string_init (&f_154, &f_165);
1389  cob_string_delimited (NULL);
1390  cob_string_append ((cob_field *)&c_29);
1391  cob_string_finish ();
1392  }
1393 
1394  /* Line: 956 : IF : GCic.cbl */
1395  cob_set_location (st_5, 956, st_20, NULL, st_6);
1396  if (((int)(int)(*(b_112 + 376) - 32) != 0))
1397  {
1398 
1399  /* Line: 957 : STRING : GCic.cbl */
1400  cob_set_location (st_5, 957, st_20, NULL, st_21);
1401  cob_string_init (&f_154, &f_165);
1402  cob_string_delimited (NULL);
1403  cob_string_append ((cob_field *)&c_30);
1404  cob_string_finish ();
1405  }
1406 
1407  /* Line: 961 : IF : GCic.cbl */
1408  cob_set_location (st_5, 961, st_20, NULL, st_6);
1409  if (((int)(int)(*(b_112 + 370) - 32) != 0))
1410  {
1411 
1412  /* Line: 962 : STRING : GCic.cbl */
1413  cob_set_location (st_5, 962, st_20, NULL, st_21);
1414  cob_string_init (&f_154, &f_165);
1415  cob_string_delimited (NULL);
1416  cob_string_append ((cob_field *)&c_31);
1417  cob_string_finish ();
1418  }
1419  else
1420  {
1421  /* ELSE */
1422 
1423  /* Line: 966 : STRING : GCic.cbl */
1424  cob_set_location (st_5, 966, st_20, NULL, st_21);
1425  cob_string_init (&f_154, &f_165);
1426  cob_string_delimited (NULL);
1427  cob_string_append ((cob_field *)&c_32);
1428  cob_string_finish ();
1429  }
1430 
1431  /* Line: 971 : MOVE : GCic.cbl */
1432  cob_set_location (st_5, 971, st_20, NULL, st_4);
1433  (*(int *)(b_221)) = 0;
1434 
1435  /* Line: 972 : INSPECT : GCic.cbl */
1436  cob_set_location (st_5, 972, st_20, NULL, st_13);
1437  cob_inspect_init (&f_127, 0);
1438  cob_inspect_start ();
1439  cob_inspect_all (&f_221, (cob_field *)&c_33);
1440  cob_inspect_finish ();
1441 
1442  /* Line: 974 : IF : GCic.cbl */
1443  cob_set_location (st_5, 974, st_20, NULL, st_6);
1444  if ((((int)(int)(*(b_112 + 372) - ' ') > 0) &&
1445  ((int)cob_cmp_s32 (b_221, 0LL) > 0)))
1446  {
1447 
1448  /* Line: 976 : MOVE : GCic.cbl */
1449  cob_set_location (st_5, 976, st_20, NULL, st_4);
1450  *(b_112 + 372) = 32;
1451  }
1452 
1453  /* Line: 978 : IF : GCic.cbl */
1454  cob_set_location (st_5, 978, st_20, NULL, st_6);
1455  if (((int)(int)(*(b_112 + 372) - ' ') > 0))
1456  {
1457 
1458  /* Line: 979 : STRING : GCic.cbl */
1459  cob_set_location (st_5, 979, st_20, NULL, st_21);
1460  cob_string_init (&f_154, &f_165);
1461  cob_string_delimited (NULL);
1462  cob_string_append ((cob_field *)&c_34);
1463  cob_string_finish ();
1464  }
1465 
1466  /* Line: 984 : IF : GCic.cbl */
1467  cob_set_location (st_5, 984, st_20, NULL, st_6);
1468  if (((int)cob_cmp (&f_127, &cob_all_space) > 0))
1469  {
1470 
1471  /* Line: 985 : STRING : GCic.cbl */
1472  cob_set_location (st_5, 985, st_20, NULL, st_21);
1473  cob_string_init (&f_154, &f_165);
1474  cob_string_delimited (NULL);
1475  cob_string_append ((cob_field *)&c_23);
1476  cob_string_append (cob_intr_trim (0, 0, &f_127, 2));
1477  cob_string_append ((cob_field *)&c_23);
1478  cob_string_finish ();
1479  }
1480 
1481  /* Line: 991 : STRING : GCic.cbl */
1482  cob_set_location (st_5, 991, st_20, NULL, st_21);
1483  cob_string_init (&f_154, &f_165);
1484  cob_string_delimited (NULL);
1485  cob_string_append (cob_intr_trim (0, 0, &f_192, 2));
1486  cob_string_finish ();
1487 
1488  /* Line: 997 : MOVE : GCic.cbl */
1489  cob_set_location (st_5, 997, st_20, NULL, st_4);
1490  cob_move (cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_194, 2), (cob_field *)&c_35), &f_168);
1491 
1492  /* Line: 999 : CALL : GCic.cbl */
1493  cob_set_location (st_5, 999, st_20, NULL, st_18);
1494  cob_procedure_params[0] = &f_168;
1495  cob_glob_ptr->cob_call_params = 1;
1496  b_1 = cob_sys_delete_file (b_168);
1497 
1498  /* Line: 1003 : MOVE : GCic.cbl */
1499  cob_set_location (st_5, 1003, st_20, NULL, st_4);
1500  cob_move ((cob_field *)&c_36, &f_188);
1501 
1502  /* Line: 1004 : DISPLAY : GCic.cbl */
1503  cob_set_location (st_5, 1004, st_20, NULL, st_7);
1504  cob_move (&f_115, &f_355);
1505  cob_move (&f_114, &f_354);
1506  cob_move (&f_129, &f_353);
1507  cob_move (&f_128, &f_352);
1508  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
1509  cob_move (&f_169, &f_341);
1510  cob_move (&f_147, &f_334);
1511  cob_move (&f_143, &f_333);
1512  cob_move (&f_149, &f_332);
1513  cob_move (&f_146, &f_331);
1514  cob_move (&f_145, &f_330);
1515  cob_move (&f_142, &f_329);
1516  cob_move (&f_144, &f_328);
1517  cob_move (&f_148, &f_327);
1518  cob_move (&f_141, &f_326);
1519  cob_move (&f_191, &f_314);
1520  cob_move (&f_192, &f_313);
1521  cob_move (&f_188, &f_293);
1522  cob_move (&f_170, &f_290);
1523  cob_move (&f_164, &f_286);
1524  cob_move (&f_164, &f_279);
1525  cob_move (&f_164, &f_276);
1526  cob_move (&f_164, &f_269);
1527  cob_move (&f_164, &f_266);
1528  cob_move (&f_164, &f_264);
1529  cob_move (&f_164, &f_246);
1530  cob_move (&f_164, &f_244);
1531  cob_move (&f_164, &f_241);
1532  cob_move (&f_164, &f_234);
1533  cob_screen_display (&s_231, NULL, NULL);
1534 
1535  /* Line: 1005 : SET : GCic.cbl */
1536  cob_set_location (st_5, 1005, st_20, NULL, st_11);
1537  *(b_195 + 5) = 78;
1538 
1539  /* Line: 1006 : MOVE : GCic.cbl */
1540  cob_set_location (st_5, 1006, st_20, NULL, st_4);
1541  memset (b_150, 32, 512);
1542 
1543  /* Line: 1007 : STRING : GCic.cbl */
1544  cob_set_location (st_5, 1007, st_20, NULL, st_21);
1545  cob_string_init (&f_150, NULL);
1546  cob_string_delimited (NULL);
1547  cob_string_append (cob_intr_trim (0, 0, &f_154, 2));
1548  cob_string_append ((cob_field *)&c_37);
1549  cob_string_append (&f_168);
1550  cob_string_append ((cob_field *)&c_38);
1551  cob_string_finish ();
1552 
1553  /* Line: 1013 : CALL : GCic.cbl */
1554  cob_set_location (st_5, 1013, st_20, NULL, st_18);
1555  cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
1556  cob_glob_ptr->cob_call_params = 1;
1557  b_1 = cob_sys_system (cob_procedure_params[0]->data);
1558 
1559  /* Line: 1014 : OPEN : GCic.cbl */
1560  cob_set_location (st_5, 1014, st_20, NULL, st_22);
1561  cob_open (h_F_COBC_OUTPUT_FILE, 4, 0, NULL);
1562  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1563  {
1564  /* PERFORM Default Error Handler */
1565  frame_ptr++;
1566  if (unlikely(frame_ptr == frame_overflow))
1567  cob_fatal_error (COB_FERROR_STACK);
1568  frame_ptr->perform_through = 1;
1569  frame_ptr->return_address_ptr = &&l_168;
1570  goto l_1;
1571  l_168:
1572  frame_ptr--;
1573  }
1574 
1575  /* Line: 1015 : WRITE : GCic.cbl */
1576  cob_set_location (st_5, 1015, st_20, NULL, st_23);
1577  memset (b_22, 32, 256);
1578  cob_write (h_F_COBC_OUTPUT_FILE, &f_21, 0x210001, NULL, 0);
1579  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1580  {
1581  /* PERFORM Default Error Handler */
1582  frame_ptr++;
1583  if (unlikely(frame_ptr == frame_overflow))
1584  cob_fatal_error (COB_FERROR_STACK);
1585  frame_ptr->perform_through = 1;
1586  frame_ptr->return_address_ptr = &&l_169;
1587  goto l_1;
1588  l_169:
1589  frame_ptr--;
1590  }
1591 
1592  /* Line: 1016 : IF : GCic.cbl */
1593  cob_set_location (st_5, 1016, st_20, NULL, st_6);
1594  if (((int)(b_1 - 0) == 0))
1595  {
1596 
1597  /* Line: 1017 : SET : GCic.cbl */
1598  cob_set_location (st_5, 1017, st_20, NULL, st_11);
1599  *(b_195) = 89;
1600 
1601  /* Line: 1018 : MOVE : GCic.cbl */
1602  cob_set_location (st_5, 1018, st_20, NULL, st_4);
1603  cob_move ((cob_field *)&c_39, &f_188);
1604 
1605  /* Line: 1019 : MOVE : GCic.cbl */
1606  cob_set_location (st_5, 1019, st_20, NULL, st_4);
1607  cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_40, &f_188), &f_21);
1608 
1609  /* Line: 1021 : WRITE : GCic.cbl */
1610  cob_set_location (st_5, 1021, st_20, NULL, st_23);
1611  cob_write (h_F_COBC_OUTPUT_FILE, &f_21, 0x210001, NULL, 0);
1612  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1613  {
1614  /* PERFORM Default Error Handler */
1615  frame_ptr++;
1616  if (unlikely(frame_ptr == frame_overflow))
1617  cob_fatal_error (COB_FERROR_STACK);
1618  frame_ptr->perform_through = 1;
1619  frame_ptr->return_address_ptr = &&l_170;
1620  goto l_1;
1621  l_170:
1622  frame_ptr--;
1623  }
1624 
1625  /* Line: 1022 : SET : GCic.cbl */
1626  cob_set_location (st_5, 1022, st_20, NULL, st_11);
1627  *(b_195 + 1) = 89;
1628  }
1629  else
1630  {
1631  /* ELSE */
1632 
1633  /* Line: 1024 : SET : GCic.cbl */
1634  cob_set_location (st_5, 1024, st_20, NULL, st_11);
1635  *(b_195) = 78;
1636 
1637  /* Line: 1025 : MOVE : GCic.cbl */
1638  cob_set_location (st_5, 1025, st_20, NULL, st_4);
1639  cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_41, cob_intr_trim (0, 0, &f_168, 2)), &f_188);
1640 
1641  /* Line: 1028 : MOVE : GCic.cbl */
1642  cob_set_location (st_5, 1028, st_20, NULL, st_4);
1643  cob_move ((cob_field *)&c_42, &f_21);
1644 
1645  /* Line: 1030 : WRITE : GCic.cbl */
1646  cob_set_location (st_5, 1030, st_20, NULL, st_23);
1647  cob_write (h_F_COBC_OUTPUT_FILE, &f_21, 0x210001, NULL, 0);
1648  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1649  {
1650  /* PERFORM Default Error Handler */
1651  frame_ptr++;
1652  if (unlikely(frame_ptr == frame_overflow))
1653  cob_fatal_error (COB_FERROR_STACK);
1654  frame_ptr->perform_through = 1;
1655  frame_ptr->return_address_ptr = &&l_171;
1656  goto l_1;
1657  l_171:
1658  frame_ptr--;
1659  }
1660  }
1661 
1662  /* Line: 1032 : CLOSE : GCic.cbl */
1663  cob_set_location (st_5, 1032, st_20, NULL, st_24);
1664  cob_close (h_F_COBC_OUTPUT_FILE, NULL, 0, 0);
1665  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
1666  {
1667  /* PERFORM Default Error Handler */
1668  frame_ptr++;
1669  if (unlikely(frame_ptr == frame_overflow))
1670  cob_fatal_error (COB_FERROR_STACK);
1671  frame_ptr->perform_through = 1;
1672  frame_ptr->return_address_ptr = &&l_172;
1673  goto l_1;
1674  l_172:
1675  frame_ptr--;
1676  }
1677 
1678  /* Line: 1033 : DISPLAY : GCic.cbl */
1679  cob_set_location (st_5, 1033, st_20, NULL, st_7);
1680  cob_move (&f_115, &f_355);
1681  cob_move (&f_114, &f_354);
1682  cob_move (&f_129, &f_353);
1683  cob_move (&f_128, &f_352);
1684  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
1685  cob_move (&f_169, &f_341);
1686  cob_move (&f_147, &f_334);
1687  cob_move (&f_143, &f_333);
1688  cob_move (&f_149, &f_332);
1689  cob_move (&f_146, &f_331);
1690  cob_move (&f_145, &f_330);
1691  cob_move (&f_142, &f_329);
1692  cob_move (&f_144, &f_328);
1693  cob_move (&f_148, &f_327);
1694  cob_move (&f_141, &f_326);
1695  cob_move (&f_191, &f_314);
1696  cob_move (&f_192, &f_313);
1697  cob_move (&f_188, &f_293);
1698  cob_move (&f_170, &f_290);
1699  cob_move (&f_164, &f_286);
1700  cob_move (&f_164, &f_279);
1701  cob_move (&f_164, &f_276);
1702  cob_move (&f_164, &f_269);
1703  cob_move (&f_164, &f_266);
1704  cob_move (&f_164, &f_264);
1705  cob_move (&f_164, &f_246);
1706  cob_move (&f_164, &f_244);
1707  cob_move (&f_164, &f_241);
1708  cob_move (&f_164, &f_234);
1709  cob_screen_display (&s_231, NULL, NULL);
1710 
1711  /* Line: 1034 : CALL : GCic.cbl */
1712  cob_set_location (st_5, 1034, st_20, NULL, st_18);
1713  {
1714  cob_content content_1;
1715  cob_field content_fb_1 = { 4, content_1.data, &a_4 };
1716 
1717  content_1.dataint = 2;
1718  cob_procedure_params[0] = &content_fb_1;
1719  cob_glob_ptr->cob_call_params = 1;
1720  b_1 = cob_sys_sleep (content_1.data);
1721  }
1722 
1723  /* Line: 1035 : MOVE : GCic.cbl */
1724  cob_set_location (st_5, 1035, st_20, NULL, st_4);
1725  memset (b_188, 32, 80);
1726 
1727  /* Line: 1036 : IF : GCic.cbl */
1728  cob_set_location (st_5, 1036, st_20, NULL, st_6);
1729  if (((int)(int)(*(b_195) - 78) == 0))
1730  {
1731 
1732  /* Line: 1037 : PERFORM : GCic.cbl */
1733  cob_set_location (st_5, 1037, st_20, NULL, st_10);
1734  /* PERFORM 250-Autoload-Listing */
1735  frame_ptr++;
1736  if (unlikely(frame_ptr == frame_overflow))
1737  cob_fatal_error (COB_FERROR_STACK);
1738  frame_ptr->perform_through = 23;
1739  frame_ptr->return_address_ptr = &&l_173;
1740  goto l_23;
1741  l_173:
1742  frame_ptr--;
1743 
1744  /* Line: 1038 : PERFORM : GCic.cbl */
1745  cob_set_location (st_5, 1038, st_20, NULL, st_10);
1746  /* PERFORM 900-Terminate */
1747  frame_ptr++;
1748  if (unlikely(frame_ptr == frame_overflow))
1749  cob_fatal_error (COB_FERROR_STACK);
1750  frame_ptr->perform_through = 26;
1751  frame_ptr->return_address_ptr = &&l_174;
1752  goto l_26;
1753  l_174:
1754  frame_ptr--;
1755  }
1756 
1757  /* Implicit PERFORM return */
1758  if (frame_ptr->perform_through == 14)
1759  goto *frame_ptr->return_address_ptr;
1760 
1761  /* Line: 1046 : Section 220-Make-Listing : GCic.cbl */
1762  l_16:;
1763 
1764  /* Line: 1047 : MOVE : GCic.cbl */
1765  cob_set_location (st_5, 1047, st_25, NULL, st_4);
1766  cob_move ((cob_field *)&c_43, &f_188);
1767 
1768  /* Line: 1048 : DISPLAY : GCic.cbl */
1769  cob_set_location (st_5, 1048, st_25, NULL, st_7);
1770  cob_move (&f_115, &f_355);
1771  cob_move (&f_114, &f_354);
1772  cob_move (&f_129, &f_353);
1773  cob_move (&f_128, &f_352);
1774  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
1775  cob_move (&f_169, &f_341);
1776  cob_move (&f_147, &f_334);
1777  cob_move (&f_143, &f_333);
1778  cob_move (&f_149, &f_332);
1779  cob_move (&f_146, &f_331);
1780  cob_move (&f_145, &f_330);
1781  cob_move (&f_142, &f_329);
1782  cob_move (&f_144, &f_328);
1783  cob_move (&f_148, &f_327);
1784  cob_move (&f_141, &f_326);
1785  cob_move (&f_191, &f_314);
1786  cob_move (&f_192, &f_313);
1787  cob_move (&f_188, &f_293);
1788  cob_move (&f_170, &f_290);
1789  cob_move (&f_164, &f_286);
1790  cob_move (&f_164, &f_279);
1791  cob_move (&f_164, &f_276);
1792  cob_move (&f_164, &f_269);
1793  cob_move (&f_164, &f_266);
1794  cob_move (&f_164, &f_264);
1795  cob_move (&f_164, &f_246);
1796  cob_move (&f_164, &f_244);
1797  cob_move (&f_164, &f_241);
1798  cob_move (&f_164, &f_234);
1799  cob_screen_display (&s_231, NULL, NULL);
1800 
1801  /* Line: 1049 : MOVE : GCic.cbl */
1802  cob_set_location (st_5, 1049, st_25, NULL, st_4);
1803  b_1 = 0;
1804 
1805  /* Line: 1053 : MOVE : GCic.cbl */
1806  cob_set_location (st_5, 1053, st_25, NULL, st_4);
1807  memset (b_188, 32, 80);
1808 
1809  /* Line: 1054 : CALL : GCic.cbl */
1810  cob_set_location (st_5, 1054, st_25, NULL, st_18);
1811  {
1812  cob_content content_4;
1813  cob_field content_fb_4 = { 4, content_4.data, &a_4 };
1814  cob_content content_5;
1815  cob_field content_fb_5 = { 4, content_5.data, &a_4 };
1816 
1817  content_4.dataint = 60;
1818  content_5.dataint = 54;
1819  cob_procedure_params[0] = &f_168;
1820  cob_procedure_params[1] = &f_157;
1821  cob_procedure_params[2] = &f_175;
1822  cob_procedure_params[3] = &content_fb_4;
1823  cob_procedure_params[4] = &content_fb_5;
1824  cob_procedure_params[5] = &f_167;
1825  cob_glob_ptr->cob_call_params = 6;
1826  if (unlikely(call_LISTING.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel)) {
1827  call_LISTING.funcvoid = cob_resolve_cobol ("LISTING", 0, 0);
1828  }
1829  if (unlikely(call_LISTING.funcvoid == NULL))
1830  {
1831 
1832  /* Line: 1061 : MOVE : GCic.cbl */
1833  cob_set_location (st_5, 1061, st_25, NULL, st_4);
1834  cob_move ((cob_field *)&c_44, &f_188);
1835 
1836  /* Line: 1063 : MOVE : GCic.cbl */
1837  cob_set_location (st_5, 1063, st_25, NULL, st_4);
1838  b_1 = 1;
1839  }
1840  else
1841  {
1842  b_1 = call_LISTING.funcint (b_168, b_157, b_175, content_4.data, content_5.data, b_167);
1843  }
1844  }
1845 
1846  /* Line: 1065 : IF : GCic.cbl */
1847  cob_set_location (st_5, 1065, st_25, NULL, st_6);
1848  if (((int)(b_1 - 0) == 0))
1849  {
1850 
1851  /* Line: 1066 : MOVE : GCic.cbl */
1852  cob_set_location (st_5, 1066, st_25, NULL, st_4);
1853  cob_move ((cob_field *)&c_45, &f_188);
1854  }
1855 
1856  /* Line: 1069 : DISPLAY : GCic.cbl */
1857  cob_set_location (st_5, 1069, st_25, NULL, st_7);
1858  cob_move (&f_115, &f_355);
1859  cob_move (&f_114, &f_354);
1860  cob_move (&f_129, &f_353);
1861  cob_move (&f_128, &f_352);
1862  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
1863  cob_move (&f_169, &f_341);
1864  cob_move (&f_147, &f_334);
1865  cob_move (&f_143, &f_333);
1866  cob_move (&f_149, &f_332);
1867  cob_move (&f_146, &f_331);
1868  cob_move (&f_145, &f_330);
1869  cob_move (&f_142, &f_329);
1870  cob_move (&f_144, &f_328);
1871  cob_move (&f_148, &f_327);
1872  cob_move (&f_141, &f_326);
1873  cob_move (&f_191, &f_314);
1874  cob_move (&f_192, &f_313);
1875  cob_move (&f_188, &f_293);
1876  cob_move (&f_170, &f_290);
1877  cob_move (&f_164, &f_286);
1878  cob_move (&f_164, &f_279);
1879  cob_move (&f_164, &f_276);
1880  cob_move (&f_164, &f_269);
1881  cob_move (&f_164, &f_266);
1882  cob_move (&f_164, &f_264);
1883  cob_move (&f_164, &f_246);
1884  cob_move (&f_164, &f_244);
1885  cob_move (&f_164, &f_241);
1886  cob_move (&f_164, &f_234);
1887  cob_screen_display (&s_231, NULL, NULL);
1888 
1889  /* Line: 1070 : CALL : GCic.cbl */
1890  cob_set_location (st_5, 1070, st_25, NULL, st_18);
1891  {
1892  cob_content content_1;
1893  cob_field content_fb_1 = { 4, content_1.data, &a_4 };
1894 
1895  content_1.dataint = 2;
1896  cob_procedure_params[0] = &content_fb_1;
1897  cob_glob_ptr->cob_call_params = 1;
1898  b_1 = cob_sys_sleep (content_1.data);
1899  }
1900 
1901  /* Line: 1071 : PERFORM : GCic.cbl */
1902  cob_set_location (st_5, 1071, st_25, NULL, st_10);
1903  /* PERFORM 250-Autoload-Listing */
1904  frame_ptr++;
1905  if (unlikely(frame_ptr == frame_overflow))
1906  cob_fatal_error (COB_FERROR_STACK);
1907  frame_ptr->perform_through = 23;
1908  frame_ptr->return_address_ptr = &&l_175;
1909  goto l_23;
1910  l_175:
1911  frame_ptr--;
1912 
1913  /* Implicit PERFORM return */
1914  if (frame_ptr->perform_through == 16)
1915  goto *frame_ptr->return_address_ptr;
1916 
1917  /* Line: 1077 : Section 230-Run-Program : GCic.cbl */
1918  l_18:;
1919 
1920  /* Line: 1078 : MOVE : GCic.cbl */
1921  cob_set_location (st_5, 1078, st_26, NULL, st_4);
1922  cob_move ((cob_field *)&c_46, &f_188);
1923 
1924  /* Line: 1080 : DISPLAY : GCic.cbl */
1925  cob_set_location (st_5, 1080, st_26, NULL, st_7);
1926  cob_move (&f_115, &f_355);
1927  cob_move (&f_114, &f_354);
1928  cob_move (&f_129, &f_353);
1929  cob_move (&f_128, &f_352);
1930  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
1931  cob_move (&f_169, &f_341);
1932  cob_move (&f_147, &f_334);
1933  cob_move (&f_143, &f_333);
1934  cob_move (&f_149, &f_332);
1935  cob_move (&f_146, &f_331);
1936  cob_move (&f_145, &f_330);
1937  cob_move (&f_142, &f_329);
1938  cob_move (&f_144, &f_328);
1939  cob_move (&f_148, &f_327);
1940  cob_move (&f_141, &f_326);
1941  cob_move (&f_191, &f_314);
1942  cob_move (&f_192, &f_313);
1943  cob_move (&f_188, &f_293);
1944  cob_move (&f_170, &f_290);
1945  cob_move (&f_164, &f_286);
1946  cob_move (&f_164, &f_279);
1947  cob_move (&f_164, &f_276);
1948  cob_move (&f_164, &f_269);
1949  cob_move (&f_164, &f_266);
1950  cob_move (&f_164, &f_264);
1951  cob_move (&f_164, &f_246);
1952  cob_move (&f_164, &f_244);
1953  cob_move (&f_164, &f_241);
1954  cob_move (&f_164, &f_234);
1955  cob_screen_display (&s_231, NULL, NULL);
1956 
1957  /* Line: 1081 : CALL : GCic.cbl */
1958  cob_set_location (st_5, 1081, st_26, NULL, st_18);
1959  {
1960  cob_content content_1;
1961  cob_field content_fb_1 = { 4, content_1.data, &a_4 };
1962 
1963  content_1.dataint = 3;
1964  cob_procedure_params[0] = &content_fb_1;
1965  cob_glob_ptr->cob_call_params = 1;
1966  b_1 = cob_sys_sleep (content_1.data);
1967  }
1968 
1969  /* Line: 1082 : MOVE : GCic.cbl */
1970  cob_set_location (st_5, 1082, st_26, NULL, st_4);
1971  memset (b_150, 32, 512);
1972 
1973  /* Line: 1083 : MOVE : GCic.cbl */
1974  cob_set_location (st_5, 1083, st_26, NULL, st_4);
1975  (*(int *)(b_165)) = 1;
1976 
1977  /* Line: 1087 : IF : GCic.cbl */
1978  cob_set_location (st_5, 1087, st_26, NULL, st_6);
1979  if (((int)(int)(*(b_112 + 371) - 32) != 0))
1980  {
1981 
1982  /* Line: 1088 : STRING : GCic.cbl */
1983  cob_set_location (st_5, 1088, st_26, NULL, st_21);
1984  cob_string_init (&f_150, &f_165);
1985  cob_string_delimited (NULL);
1986  cob_string_append ((cob_field *)&c_47);
1987  cob_string_finish ();
1988  }
1989 
1990  /* Line: 1095 : SET : GCic.cbl */
1991  cob_set_location (st_5, 1095, st_26, NULL, st_11);
1992  *(b_195 + 2) = 78;
1993 
1994  /* Line: 1096 : IF : GCic.cbl */
1995  cob_set_location (st_5, 1096, st_26, NULL, st_6);
1996  if (((int)cob_cmp (&f_191, &cob_all_space) != 0))
1997  {
1998 
1999  /* Line: 1097 : IF : GCic.cbl */
2000  cob_set_location (st_5, 1097, st_26, NULL, st_6);
2001  if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) &&
2002  ((int)(int)(*(b_191 + 1) - 58) == 0)))
2003  {
2004 
2005  /* Line: 1098 : STRING : GCic.cbl */
2006  cob_set_location (st_5, 1098, st_26, NULL, st_21);
2007  cob_string_init (&f_150, &f_165);
2008  cob_string_delimited (NULL);
2009  cob_string_append ((cob_field *)&c_48);
2010  cob_string_finish ();
2011 
2012  /* Line: 1101 : STRING : GCic.cbl */
2013  cob_set_location (st_5, 1101, st_26, NULL, st_21);
2014  cob_string_init (&f_150, &f_165);
2015  cob_string_delimited (NULL);
2016  cob_string_append (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 1, b_191 + 0, &a_1)));
2017  cob_string_finish ();
2018 
2019  /* Line: 1104 : PERFORM : GCic.cbl */
2020  cob_set_location (st_5, 1104, st_26, NULL, st_10);
2021  (*(int *)(b_166)) = 3;
2022  for (;;)
2023  {
2024  if (((int)cob_cmp (&f_166, cob_intr_length (cob_intr_trim (0, 0, &f_191, 0))) > 0))
2025  break;
2026 
2027  /* Line: 1107 : IF : GCic.cbl */
2028  cob_set_location (st_5, 1107, st_26, NULL, st_6);
2029  if (((int)(int)(*(b_191 + ((*(int *)(b_166)) - 1)) - 92) == 0))
2030  {
2031 
2032  /* Line: 1108 : STRING : GCic.cbl */
2033  cob_set_location (st_5, 1108, st_26, NULL, st_21);
2034  cob_string_init (&f_150, &f_165);
2035  cob_string_delimited (NULL);
2036  cob_string_append ((cob_field *)&c_9);
2037  cob_string_finish ();
2038  }
2039  else
2040  {
2041  /* ELSE */
2042 
2043  /* Line: 1112 : STRING : GCic.cbl */
2044  cob_set_location (st_5, 1112, st_26, NULL, st_21);
2045  cob_string_init (&f_150, &f_165);
2046  cob_string_delimited (NULL);
2047  cob_string_append (COB_SET_FLD(f0, 1, b_191 + ((*(int *)(b_166)) - 1), &a_1));
2048  cob_string_finish ();
2049  }
2050  (*(int *)(b_166)) = ((*(int *)(b_166)) + 1);
2051  }
2052  }
2053  else
2054  {
2055  /* ELSE */
2056 
2057  /* Line: 1118 : STRING : GCic.cbl */
2058  cob_set_location (st_5, 1118, st_26, NULL, st_21);
2059  cob_string_init (&f_150, &f_165);
2060  cob_string_delimited (NULL);
2061  cob_string_append ((cob_field *)&c_2);
2062  cob_string_append (cob_intr_trim (0, 0, &f_191, 2));
2063  cob_string_finish ();
2064 
2065  /* Line: 1121 : SET : GCic.cbl */
2066  cob_set_location (st_5, 1121, st_26, NULL, st_11);
2067  *(b_195 + 2) = 89;
2068  }
2069 
2070  /* Line: 1123 : STRING : GCic.cbl */
2071  cob_set_location (st_5, 1123, st_26, NULL, st_21);
2072  cob_string_init (&f_150, &f_165);
2073  cob_string_delimited (NULL);
2074  cob_string_append (&f_171);
2075  cob_string_finish ();
2076  }
2077  else
2078  {
2079  /* ELSE */
2080 
2081  /* Line: 1127 : IF : GCic.cbl */
2082  cob_set_location (st_5, 1127, st_26, NULL, st_6);
2083  if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) ||
2084  (((int)cob_cmp_numdisp (b_175, 1, 3LL, 0) == 0) ||
2085  ((int)cob_cmp_numdisp (b_175, 1, 4LL, 0) == 0))))
2086  {
2087 
2088  /* Line: 1128 : STRING : GCic.cbl */
2089  cob_set_location (st_5, 1128, st_26, NULL, st_21);
2090  cob_string_init (&f_150, &f_165);
2091  cob_string_delimited (NULL);
2092  cob_string_append ((cob_field *)&c_49);
2093  cob_string_finish ();
2094  }
2095  }
2096 
2097  /* Line: 1136 : STRING : GCic.cbl */
2098  cob_set_location (st_5, 1136, st_26, NULL, st_21);
2099  cob_string_init (&f_150, &f_165);
2100  cob_string_delimited (NULL);
2101  cob_string_append (cob_intr_trim (0, 0, &f_194, 2));
2102  cob_string_finish ();
2103 
2104  /* Line: 1142 : IF : GCic.cbl */
2105  cob_set_location (st_5, 1142, st_26, NULL, st_6);
2106  if (((int)(int)(*(b_112 + 371) - 32) == 0))
2107  {
2108 
2109  /* Line: 1143 : IF : GCic.cbl */
2110  cob_set_location (st_5, 1143, st_26, NULL, st_6);
2111  if (((int)(int)(*((cob_u8_ptr)" ") - 32) > 0))
2112  {
2113 
2114  /* Line: 1144 : STRING : GCic.cbl */
2115  cob_set_location (st_5, 1144, st_26, NULL, st_21);
2116  cob_string_init (&f_150, &f_165);
2117  cob_string_delimited (&cob_all_space);
2118  cob_string_append ((cob_field *)&c_23);
2119  cob_string_finish ();
2120  }
2121  }
2122  else
2123  {
2124  /* ELSE */
2125 
2126  /* Line: 1149 : IF : GCic.cbl */
2127  cob_set_location (st_5, 1149, st_26, NULL, st_6);
2128  if (((int)cob_cmp ((cob_field *)&c_50, (cob_field *)&c_23) > 0))
2129  {
2130 
2131  /* Line: 1150 : STRING : GCic.cbl */
2132  cob_set_location (st_5, 1150, st_26, NULL, st_21);
2133  cob_string_init (&f_150, &f_165);
2134  cob_string_delimited (&cob_all_space);
2135  cob_string_append ((cob_field *)&c_50);
2136  cob_string_finish ();
2137  }
2138  }
2139 
2140  /* Line: 1155 : IF : GCic.cbl */
2141  cob_set_location (st_5, 1155, st_26, NULL, st_6);
2142  if (((int)(int)(*(b_195 + 2) - 89) == 0))
2143  {
2144 
2145  /* Line: 1156 : STRING : GCic.cbl */
2146  cob_set_location (st_5, 1156, st_26, NULL, st_21);
2147  cob_string_init (&f_150, &f_165);
2148  cob_string_delimited (NULL);
2149  cob_string_append ((cob_field *)&c_2);
2150  cob_string_finish ();
2151  }
2152 
2153  /* Line: 1160 : IF : GCic.cbl */
2154  cob_set_location (st_5, 1160, st_26, NULL, st_6);
2155  if (((int)cob_cmp (&f_113, &cob_all_space) != 0))
2156  {
2157 
2158  /* Line: 1161 : STRING : GCic.cbl */
2159  cob_set_location (st_5, 1161, st_26, NULL, st_21);
2160  cob_string_init (&f_150, &f_165);
2161  cob_string_delimited (NULL);
2162  cob_string_append ((cob_field *)&c_23);
2163  cob_string_append (cob_intr_trim (0, 0, &f_113, 2));
2164  cob_string_finish ();
2165  }
2166 
2167  /* Line: 1168 : CALL : GCic.cbl */
2168  cob_set_location (st_5, 1168, st_26, NULL, st_18);
2169  cob_glob_ptr->cob_call_params = 0;
2170  b_1 = cob_sys_clear_screen ();
2171 
2172  /* Line: 1169 : CALL : GCic.cbl */
2173  cob_set_location (st_5, 1169, st_26, NULL, st_18);
2174  cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
2175  cob_glob_ptr->cob_call_params = 1;
2176  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2177 
2178  /* Line: 1170 : MOVE : GCic.cbl */
2179  cob_set_location (st_5, 1170, st_26, NULL, st_4);
2180  memset (b_188, 32, 80);
2181 
2182  /* Line: 1171 : ACCEPT : GCic.cbl */
2183  cob_set_location (st_5, 1171, st_26, NULL, st_14);
2184  cob_field_accept (COB_SET_FLD(f0, 1, b_188 + 0, &a_1), (cob_field *)&c_51, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 0);
2185 
2186  /* Line: 1172 : PERFORM : GCic.cbl */
2187  cob_set_location (st_5, 1172, st_26, NULL, st_10);
2188  /* PERFORM 900-Terminate */
2189  frame_ptr++;
2190  if (unlikely(frame_ptr == frame_overflow))
2191  cob_fatal_error (COB_FERROR_STACK);
2192  frame_ptr->perform_through = 26;
2193  frame_ptr->return_address_ptr = &&l_176;
2194  goto l_26;
2195  l_176:
2196  frame_ptr--;
2197 
2198  /* Implicit PERFORM return */
2199  if (frame_ptr->perform_through == 18)
2200  goto *frame_ptr->return_address_ptr;
2201 
2202  /* Line: 1179 : Section 240-Find-LINKAGE-SECTION: GCic.cbl */
2203  l_20:;
2204 
2205  /* Line: 1180 : OPEN : GCic.cbl */
2206  cob_set_location (st_5, 1180, st_27, NULL, st_22);
2207  cob_open (h_F_SOURCE_CODE_FILE, 1, 0, &f_161);
2208  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2209  {
2210  /* PERFORM 000-File-Error */
2211  frame_ptr++;
2212  if (unlikely(frame_ptr == frame_overflow))
2213  cob_fatal_error (COB_FERROR_STACK);
2214  frame_ptr->perform_through = 2;
2215  frame_ptr->return_address_ptr = &&l_177;
2216  goto l_2;
2217  l_177:
2218  frame_ptr--;
2219  }
2220 
2221  /* Line: 1181 : MOVE : GCic.cbl */
2222  cob_set_location (st_5, 1181, st_27, NULL, st_4);
2223  *(b_112 + 371) = 32;
2224 
2225  /* Line: 1182 : SET : GCic.cbl */
2226  cob_set_location (st_5, 1182, st_27, NULL, st_11);
2227  *(b_195 + 3) = 78;
2228 
2229  /* Line: 1183 : PERFORM : GCic.cbl */
2230  cob_set_location (st_5, 1183, st_27, NULL, st_10);
2231  for (;;)
2232  {
2233  if (((int)(int)(*(b_195 + 3) - 89) == 0))
2234  break;
2235 
2236  /* Line: 1184 : READ : GCic.cbl */
2237  cob_set_location (st_5, 1184, st_27, NULL, st_28);
2238  cob_read_next (h_F_SOURCE_CODE_FILE, &f_161, 1);
2239  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2240  {
2241  if (cob_glob_ptr->cob_exception_code == 0x0501)
2242  {
2243 
2244  /* Line: 1185 : CLOSE : GCic.cbl */
2245  cob_set_location (st_5, 1185, st_27, NULL, st_24);
2246  cob_close (h_F_SOURCE_CODE_FILE, &f_161, 0, 0);
2247  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2248  {
2249  /* PERFORM 000-File-Error */
2250  frame_ptr++;
2251  if (unlikely(frame_ptr == frame_overflow))
2252  cob_fatal_error (COB_FERROR_STACK);
2253  frame_ptr->perform_through = 2;
2254  frame_ptr->return_address_ptr = &&l_178;
2255  goto l_2;
2256  l_178:
2257  frame_ptr--;
2258  }
2259 
2260  /* Line: 1186 : EXIT SECTION : GCic.cbl */
2261  cob_set_location (st_5, 1186, st_27, NULL, st_29);
2262  goto l_22;
2263  }
2264  else
2265  {
2266  /* PERFORM 000-File-Error */
2267  frame_ptr++;
2268  if (unlikely(frame_ptr == frame_overflow))
2269  cob_fatal_error (COB_FERROR_STACK);
2270  frame_ptr->perform_through = 2;
2271  frame_ptr->return_address_ptr = &&l_179;
2272  goto l_2;
2273  l_179:
2274  frame_ptr--;
2275  }
2276  }
2277 
2278  /* Line: 1188 : CALL : GCic.cbl */
2279  cob_set_location (st_5, 1188, st_27, NULL, st_18);
2280  {
2281  union {
2282  unsigned char data[256];
2283  cob_s64_t datall;
2284  cob_u64_t dataull;
2285  int dataint;
2286  } content_1;
2287 
2288  memcpy (content_1.data, b_24, 256);
2289  cob_procedure_params[0] = &f_23;
2290  cob_procedure_params[1] = &f_214;
2291  cob_glob_ptr->cob_call_params = 2;
2292  if (unlikely(call_CHECKSRC.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel)) {
2293  call_CHECKSRC.funcvoid = cob_resolve_cobol ("CHECKSRC", 0, 1);
2294  }
2295  b_1 = call_CHECKSRC.funcint (content_1.data, b_195 + 6);
2296  }
2297 
2298  /* Line: 1191 : IF : GCic.cbl */
2299  cob_set_location (st_5, 1191, st_27, NULL, st_6);
2300  if (((int)(int)(*(b_195 + 6) - 73) == 0))
2301  {
2302 
2303  /* Line: 1192 : SET : GCic.cbl */
2304  cob_set_location (st_5, 1192, st_27, NULL, st_11);
2305  *(b_195 + 3) = 89;
2306  }
2307  }
2308 
2309  /* Line: 1195 : SET : GCic.cbl */
2310  cob_set_location (st_5, 1195, st_27, NULL, st_11);
2311  *(b_195 + 6) = 32;
2312 
2313  /* Line: 1196 : PERFORM : GCic.cbl */
2314  cob_set_location (st_5, 1196, st_27, NULL, st_10);
2315  for (;;)
2316  {
2317  if ((((int)(int)(*(b_195 + 6) - 76) == 0) ||
2318  ((int)(int)(*(b_195 + 6) - 73) == 0)))
2319  break;
2320 
2321  /* Line: 1198 : READ : GCic.cbl */
2322  cob_set_location (st_5, 1198, st_27, NULL, st_28);
2323  cob_read_next (h_F_SOURCE_CODE_FILE, &f_161, 1);
2324  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2325  {
2326  if (cob_glob_ptr->cob_exception_code == 0x0501)
2327  {
2328 
2329  /* Line: 1199 : CLOSE : GCic.cbl */
2330  cob_set_location (st_5, 1199, st_27, NULL, st_24);
2331  cob_close (h_F_SOURCE_CODE_FILE, &f_161, 0, 0);
2332  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2333  {
2334  /* PERFORM 000-File-Error */
2335  frame_ptr++;
2336  if (unlikely(frame_ptr == frame_overflow))
2337  cob_fatal_error (COB_FERROR_STACK);
2338  frame_ptr->perform_through = 2;
2339  frame_ptr->return_address_ptr = &&l_180;
2340  goto l_2;
2341  l_180:
2342  frame_ptr--;
2343  }
2344 
2345  /* Line: 1200 : EXIT SECTION : GCic.cbl */
2346  cob_set_location (st_5, 1200, st_27, NULL, st_29);
2347  goto l_22;
2348  }
2349  else
2350  {
2351  /* PERFORM 000-File-Error */
2352  frame_ptr++;
2353  if (unlikely(frame_ptr == frame_overflow))
2354  cob_fatal_error (COB_FERROR_STACK);
2355  frame_ptr->perform_through = 2;
2356  frame_ptr->return_address_ptr = &&l_181;
2357  goto l_2;
2358  l_181:
2359  frame_ptr--;
2360  }
2361  }
2362 
2363  /* Line: 1202 : CALL : GCic.cbl */
2364  cob_set_location (st_5, 1202, st_27, NULL, st_18);
2365  {
2366  union {
2367  unsigned char data[256];
2368  cob_s64_t datall;
2369  cob_u64_t dataull;
2370  int dataint;
2371  } content_1;
2372 
2373  memcpy (content_1.data, b_24, 256);
2374  cob_procedure_params[0] = &f_23;
2375  cob_procedure_params[1] = &f_214;
2376  cob_glob_ptr->cob_call_params = 2;
2377  if (unlikely(call_CHECKSRC.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel)) {
2378  call_CHECKSRC.funcvoid = cob_resolve_cobol ("CHECKSRC", 0, 1);
2379  }
2380  b_1 = call_CHECKSRC.funcint (content_1.data, b_195 + 6);
2381  }
2382  }
2383 
2384  /* Line: 1206 : CLOSE : GCic.cbl */
2385  cob_set_location (st_5, 1206, st_27, NULL, st_24);
2386  cob_close (h_F_SOURCE_CODE_FILE, &f_161, 0, 0);
2387  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
2388  {
2389  /* PERFORM 000-File-Error */
2390  frame_ptr++;
2391  if (unlikely(frame_ptr == frame_overflow))
2392  cob_fatal_error (COB_FERROR_STACK);
2393  frame_ptr->perform_through = 2;
2394  frame_ptr->return_address_ptr = &&l_182;
2395  goto l_2;
2396  l_182:
2397  frame_ptr--;
2398  }
2399 
2400  /* Line: 1207 : IF : GCic.cbl */
2401  cob_set_location (st_5, 1207, st_27, NULL, st_6);
2402  if (((int)(int)(*(b_195 + 6) - 76) == 0))
2403  {
2404 
2405  /* Line: 1208 : MOVE : GCic.cbl */
2406  cob_set_location (st_5, 1208, st_27, NULL, st_4);
2407  *(b_112 + 371) = 62;
2408  }
2409 
2410  /* Implicit EXIT label */
2411  l_22:;
2412 
2413  /* Implicit PERFORM return */
2414  if (frame_ptr->perform_through == 20)
2415  goto *frame_ptr->return_address_ptr;
2416 
2417  /* Line: 1218 : Section 250-Autoload-Listing : GCic.cbl */
2418  l_23:;
2419 
2420  /* Line: 1219 : EVALUATE : GCic.cbl */
2421  cob_set_location (st_5, 1219, st_30, NULL, st_3);
2422 
2423  /* WHEN */
2424 
2425  if (((((int)cob_cmp_numdisp (b_175, 1, 1LL, 0) == 0) ||
2426  ((int)cob_cmp_numdisp (b_175, 1, 5LL, 0) == 0)) ||
2427  ((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0)))
2428  {
2429 
2430  /* Line: 1221 : MOVE : GCic.cbl */
2431  cob_set_location (st_5, 1221, st_30, NULL, st_4);
2432  memset (b_150, 32, 512);
2433 
2434  /* Line: 1222 : STRING : GCic.cbl */
2435  cob_set_location (st_5, 1222, st_30, NULL, st_21);
2436  cob_string_init (&f_150, NULL);
2437  cob_string_delimited (NULL);
2438  cob_string_append ((cob_field *)&c_52);
2439  cob_string_append (cob_intr_trim (0, 0, &f_168, 2));
2440  cob_string_finish ();
2441 
2442  /* Line: 1226 : CALL : GCic.cbl */
2443  cob_set_location (st_5, 1226, st_30, NULL, st_18);
2444  cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
2445  cob_glob_ptr->cob_call_params = 1;
2446  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2447  goto l_25;
2448  }
2449 
2450  /* WHEN */
2451 
2452  if (((int)cob_cmp_numdisp (b_175, 1, 4LL, 0) == 0))
2453  {
2454 
2455  /* Line: 1228 : MOVE : GCic.cbl */
2456  cob_set_location (st_5, 1228, st_30, NULL, st_4);
2457  memset (b_150, 32, 512);
2458 
2459  /* Line: 1229 : STRING : GCic.cbl */
2460  cob_set_location (st_5, 1229, st_30, NULL, st_21);
2461  cob_string_init (&f_150, NULL);
2462  cob_string_delimited (NULL);
2463  cob_string_append ((cob_field *)&c_53);
2464  cob_string_append (cob_intr_trim (0, 0, &f_168, 2));
2465  cob_string_finish ();
2466 
2467  /* Line: 1233 : CALL : GCic.cbl */
2468  cob_set_location (st_5, 1233, st_30, NULL, st_18);
2469  cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
2470  cob_glob_ptr->cob_call_params = 1;
2471  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2472  goto l_25;
2473  }
2474 
2475  /* End EVALUATE */
2476  l_25:;
2477 
2478  /* Line: 1240 : DISPLAY : GCic.cbl */
2479  cob_set_location (st_5, 1240, st_30, NULL, st_7);
2480  cob_screen_display (&s_230, NULL, NULL);
2481 
2482  /* Line: 1241 : IF : GCic.cbl */
2483  cob_set_location (st_5, 1241, st_30, NULL, st_6);
2484  if ((((int)cob_cmp_numdisp (b_175, 1, 1LL, 0) == 0) ||
2485  ((int)cob_cmp_numdisp (b_175, 1, 5LL, 0) == 0)))
2486  {
2487 
2488  /* Line: 1242 : MOVE : GCic.cbl */
2489  cob_set_location (st_5, 1242, st_30, NULL, st_4);
2490  cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_54, cob_intr_trim (0, 0, &f_194, 2)), &f_150);
2491  }
2492  else
2493  {
2494  /* ELSE */
2495 
2496  /* Line: 1245 : MOVE : GCic.cbl */
2497  cob_set_location (st_5, 1245, st_30, NULL, st_4);
2498  cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_55, cob_intr_trim (0, 0, &f_194, 2)), &f_150);
2499  }
2500 
2501  /* Line: 1248 : CALL : GCic.cbl */
2502  cob_set_location (st_5, 1248, st_30, NULL, st_18);
2503  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_56);
2504  cob_glob_ptr->cob_call_params = 1;
2505  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2506 
2507  /* Line: 1250 : CALL : GCic.cbl */
2508  cob_set_location (st_5, 1250, st_30, NULL, st_18);
2509  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_57);
2510  cob_glob_ptr->cob_call_params = 1;
2511  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2512 
2513  /* Line: 1252 : CALL : GCic.cbl */
2514  cob_set_location (st_5, 1252, st_30, NULL, st_18);
2515  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_58);
2516  cob_glob_ptr->cob_call_params = 1;
2517  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2518 
2519  /* Line: 1254 : CALL : GCic.cbl */
2520  cob_set_location (st_5, 1254, st_30, NULL, st_18);
2521  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_59);
2522  cob_glob_ptr->cob_call_params = 1;
2523  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2524 
2525  /* Line: 1256 : CALL : GCic.cbl */
2526  cob_set_location (st_5, 1256, st_30, NULL, st_18);
2527  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_60);
2528  cob_glob_ptr->cob_call_params = 1;
2529  b_1 = cob_sys_system (cob_procedure_params[0]->data);
2530 
2531  /* Implicit PERFORM return */
2532  if (frame_ptr->perform_through == 23)
2533  goto *frame_ptr->return_address_ptr;
2534 
2535  /* Line: 1264 : Section 900-Terminate : GCic.cbl */
2536  l_26:;
2537 
2538  /* Line: 1265 : IF : GCic.cbl */
2539  cob_set_location (st_5, 1265, st_31, NULL, st_6);
2540  if (((int)cob_cmp (&f_188, &cob_all_space) > 0))
2541  {
2542 
2543  /* Line: 1266 : DISPLAY : GCic.cbl */
2544  cob_set_location (st_5, 1266, st_31, NULL, st_7);
2545  cob_move (&f_115, &f_355);
2546  cob_move (&f_114, &f_354);
2547  cob_move (&f_129, &f_353);
2548  cob_move (&f_128, &f_352);
2549  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
2550  cob_move (&f_169, &f_341);
2551  cob_move (&f_147, &f_334);
2552  cob_move (&f_143, &f_333);
2553  cob_move (&f_149, &f_332);
2554  cob_move (&f_146, &f_331);
2555  cob_move (&f_145, &f_330);
2556  cob_move (&f_142, &f_329);
2557  cob_move (&f_144, &f_328);
2558  cob_move (&f_148, &f_327);
2559  cob_move (&f_141, &f_326);
2560  cob_move (&f_191, &f_314);
2561  cob_move (&f_192, &f_313);
2562  cob_move (&f_188, &f_293);
2563  cob_move (&f_170, &f_290);
2564  cob_move (&f_164, &f_286);
2565  cob_move (&f_164, &f_279);
2566  cob_move (&f_164, &f_276);
2567  cob_move (&f_164, &f_269);
2568  cob_move (&f_164, &f_266);
2569  cob_move (&f_164, &f_264);
2570  cob_move (&f_164, &f_246);
2571  cob_move (&f_164, &f_244);
2572  cob_move (&f_164, &f_241);
2573  cob_move (&f_164, &f_234);
2574  cob_screen_display (&s_231, NULL, NULL);
2575 
2576  /* Line: 1267 : CALL : GCic.cbl */
2577  cob_set_location (st_5, 1267, st_31, NULL, st_18);
2578  {
2579  cob_content content_1;
2580  cob_field content_fb_1 = { 4, content_1.data, &a_4 };
2581 
2582  content_1.dataint = 2;
2583  cob_procedure_params[0] = &content_fb_1;
2584  cob_glob_ptr->cob_call_params = 1;
2585  b_1 = cob_sys_sleep (content_1.data);
2586  }
2587  }
2588 
2589  /* Line: 1269 : DISPLAY : GCic.cbl */
2590  cob_set_location (st_5, 1269, st_31, NULL, st_7);
2591  cob_screen_display (&s_230, NULL, NULL);
2592 
2593  /* Line: 1270 : STOP RUN : GCic.cbl */
2594  cob_set_location (st_5, 1270, st_31, NULL, st_32);
2595  cob_stop_run (b_1);
2596 
2597  /* Implicit PERFORM return */
2598  if (frame_ptr->perform_through == 26)
2599  goto *frame_ptr->return_address_ptr;
2600 
2601  /* Program exit */
2602 
2603  exit_program:
2604 
2605  /* Decrement module active count */
2606  if (module->module_active) {
2607  module->module_active--;
2608  }
2609 
2610  /* Pop module stack */
2611  cob_module_leave (module);
2612 
2613  /* Program return */
2614  return b_1;
2615 
2616 
2617  /* Paragraph Default Error Handler */
2618  l_1:;
2619 
2620  if (!(cob_glob_ptr->cob_error_file->flag_select_features & COB_SELECT_FILE_STATUS)) {
2621  cob_fatal_error (COB_FERROR_FILE);
2622  }
2623 
2624  /* Implicit Default Error Handler return */
2625  if (frame_ptr->perform_through == 1)
2626  goto *frame_ptr->return_address_ptr;
2627 
2628  /* Fatal error if reached */
2629  cob_fatal_error (COB_FERROR_CODEGEN);
2630 
2631 
2632  /* Program initialization */
2633  P_initialize:
2634 
2635  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);
2636 
2637  cob_module_path = cob_glob_ptr->cob_main_argv0;
2638 
2639  /* Initialize module structure */
2640  module->module_name = "GCic";
2641  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
2642  module->module_source = COB_SOURCE_FILE;
2643  module->module_entry.funcptr = (void *(*)())GCic;
2644  module->module_cancel.funcptr = (void *(*)())GCic_;
2645  module->collating_sequence = NULL;
2646  module->crt_status = &f_356;
2647  module->cursor_pos = NULL;
2648  module->module_ref_count = NULL;
2649  module->module_path = &cob_module_path;
2650  module->module_active = 0;
2651  module->module_date = COB_MODULE_DATE;
2652  module->module_time = COB_MODULE_TIME;
2653  module->module_type = 0;
2654  module->module_param_cnt = 0;
2655  module->module_returning = 0;
2656  module->ebcdic_sign = 0;
2657  module->decimal_point = '.';
2658  module->currency_symbol = '$';
2659  module->numeric_separator = ',';
2660  module->flag_filename_mapping = 1;
2661  module->flag_binary_truncate = 1;
2662  module->flag_pretty_display = 1;
2663  module->flag_host_sign = 0;
2664  module->flag_no_phys_canc = 1;
2665  module->flag_main = 1;
2666  module->flag_fold_call = 0;
2667  module->flag_exit_program = 0;
2668 
2669  /* Initialize cancel callback */
2670  cob_set_cancel (module);
2671 
2672  /* Initialize WORKING-STORAGE */
2673  b_1 = 0;
2674  memset (b_112, 32, 152);
2675  memcpy (b_112 + 152, "BS2000", 6);
2676  memset (b_112 + 152 + 6, 32, 3);
2677  memcpy (b_112 + 161, "COBOL85 ", 9);
2678  memcpy (b_112 + 170, "COBOL2002", 9);
2679  memcpy (b_112 + 179, "DEFAULT ", 9);
2680  memcpy (b_112 + 188, "IBM", 3);
2681  memset (b_112 + 188 + 3, 32, 6);
2682  memcpy (b_112 + 197, "MF", 2);
2683  memset (b_112 + 197 + 2, 32, 7);
2684  memcpy (b_112 + 206, "MVS", 3);
2685  memset (b_112 + 206 + 3, 32, 6);
2686  *(b_112 + 215) = 52;
2687  memset (b_112 + 216, 32, 152);
2688  *(b_112 + 368) = 48;
2689  *(b_112 + 369) = 48;
2690  *(b_112 + 370) = 48;
2691  *(b_112 + 371) = 48;
2692  *(b_112 + 372) = 48;
2693  *(b_112 + 373) = 49;
2694  *(b_112 + 374) = 49;
2695  *(b_112 + 375) = 48;
2696  *(b_112 + 376) = 49;
2697  memset (b_150, 32, 512);
2698  memset (b_151, 32, 256);
2699  *(cob_u8_ptr)(b_152) = 32;
2700  memset (b_153, 0, 4);
2701  memset (b_154, 32, 256);
2702  memset (b_155, 32, 12);
2703  memset (b_156, 32, 256);
2704  memset (b_157, 32, 256);
2705  memcpy (b_159, "Status Code: ", 13);
2706  memset (b_159 + 13, 48, 2);
2707  memcpy (b_159 + 15, ", Meaning: ", 11);
2708  memset (b_159 + 26, 32, 25);
2709  memset (b_164, 32, 80);
2710  memset (b_165, 0, 4);
2711  memset (b_166, 0, 4);
2712  *(b_167) = 48;
2713  memset (b_168, 32, 256);
2714  memset (b_169, 32, 27);
2715  cob_move (&cob_all_space, &f_170);
2716  *(cob_u8_ptr)(b_171) = 47;
2717  *(b_175) = 51;
2718  memcpy (b_180, "Windows", 7);
2719  memset (b_180 + 7, 32, 7);
2720  memcpy (b_180 + 14, "Windows/Cygwin", 14);
2721  memcpy (b_180 + 28, "UNIX/Linux", 10);
2722  memset (b_180 + 28 + 10, 32, 4);
2723  memcpy (b_180 + 42, "OSX", 3);
2724  memset (b_180 + 42 + 3, 32, 11);
2725  memcpy (b_180 + 56, "Windows/MinGW ", 14);
2726  memset (b_188, 32, 80);
2727  *(cob_u8_ptr)(b_189) = 32;
2728  memset (b_190, 32, 256);
2729  memset (b_191, 32, 256);
2730  memset (b_192, 32, 256);
2731  memset (b_194, 32, 31);
2732  memset (b_195, 32, 8);
2733  memset (b_221, 0, 4);
2734  memset (b_356, 48, 4);
2735 
2736 
2737  if (!h_F_COBC_OUTPUT_FILE)
2738  {
2739  h_F_COBC_OUTPUT_FILE = cob_cache_malloc (sizeof(cob_file));
2740  }
2741  h_F_COBC_OUTPUT_FILE->select_name = (const char *)"F-Cobc-Output-FILE";
2742  h_F_COBC_OUTPUT_FILE->file_status = h_F_COBC_OUTPUT_FILE_status;
2743  memset (h_F_COBC_OUTPUT_FILE_status, '0', 2);
2744  h_F_COBC_OUTPUT_FILE->assign = &f_168;
2745  h_F_COBC_OUTPUT_FILE->record = &f_22;
2746  h_F_COBC_OUTPUT_FILE->variable_record = NULL;
2747  h_F_COBC_OUTPUT_FILE->record_min = 0;
2748  h_F_COBC_OUTPUT_FILE->record_max = 256;
2749  h_F_COBC_OUTPUT_FILE->nkeys = 0;
2750  h_F_COBC_OUTPUT_FILE->keys = NULL;
2751  h_F_COBC_OUTPUT_FILE->file = NULL;
2752  h_F_COBC_OUTPUT_FILE->fd = -1;
2753  h_F_COBC_OUTPUT_FILE->organization = 1;
2754  h_F_COBC_OUTPUT_FILE->access_mode = 1;
2755  h_F_COBC_OUTPUT_FILE->lock_mode = 0;
2756  h_F_COBC_OUTPUT_FILE->open_mode = 0;
2757  h_F_COBC_OUTPUT_FILE->flag_optional = 0;
2758  h_F_COBC_OUTPUT_FILE->last_open_mode = 0;
2759  h_F_COBC_OUTPUT_FILE->flag_operation = 0;
2760  h_F_COBC_OUTPUT_FILE->flag_nonexistent = 0;
2761  h_F_COBC_OUTPUT_FILE->flag_end_of_file = 0;
2762  h_F_COBC_OUTPUT_FILE->flag_begin_of_file = 0;
2763  h_F_COBC_OUTPUT_FILE->flag_first_read = 0;
2764  h_F_COBC_OUTPUT_FILE->flag_read_done = 0;
2765  h_F_COBC_OUTPUT_FILE->flag_select_features = 0;
2766  h_F_COBC_OUTPUT_FILE->flag_needs_nl = 0;
2767  h_F_COBC_OUTPUT_FILE->flag_needs_top = 0;
2768  h_F_COBC_OUTPUT_FILE->file_version = 1;
2769  if (!h_F_SOURCE_CODE_FILE)
2770  {
2771  h_F_SOURCE_CODE_FILE = cob_cache_malloc (sizeof(cob_file));
2772  }
2773  h_F_SOURCE_CODE_FILE->select_name = (const char *)"F-Source-Code-FILE";
2774  h_F_SOURCE_CODE_FILE->file_status = h_F_SOURCE_CODE_FILE_status;
2775  memset (h_F_SOURCE_CODE_FILE_status, '0', 2);
2776  h_F_SOURCE_CODE_FILE->assign = &f_157;
2777  h_F_SOURCE_CODE_FILE->record = &f_24;
2778  h_F_SOURCE_CODE_FILE->variable_record = NULL;
2779  h_F_SOURCE_CODE_FILE->record_min = 0;
2780  h_F_SOURCE_CODE_FILE->record_max = 256;
2781  h_F_SOURCE_CODE_FILE->nkeys = 0;
2782  h_F_SOURCE_CODE_FILE->keys = NULL;
2783  h_F_SOURCE_CODE_FILE->file = NULL;
2784  h_F_SOURCE_CODE_FILE->fd = -1;
2785  h_F_SOURCE_CODE_FILE->organization = 1;
2786  h_F_SOURCE_CODE_FILE->access_mode = 1;
2787  h_F_SOURCE_CODE_FILE->lock_mode = 0;
2788  h_F_SOURCE_CODE_FILE->open_mode = 0;
2789  h_F_SOURCE_CODE_FILE->flag_optional = 0;
2790  h_F_SOURCE_CODE_FILE->last_open_mode = 0;
2791  h_F_SOURCE_CODE_FILE->flag_operation = 0;
2792  h_F_SOURCE_CODE_FILE->flag_nonexistent = 0;
2793  h_F_SOURCE_CODE_FILE->flag_end_of_file = 0;
2794  h_F_SOURCE_CODE_FILE->flag_begin_of_file = 0;
2795  h_F_SOURCE_CODE_FILE->flag_first_read = 0;
2796  h_F_SOURCE_CODE_FILE->flag_read_done = 0;
2797  h_F_SOURCE_CODE_FILE->flag_select_features = 1;
2798  h_F_SOURCE_CODE_FILE->flag_needs_nl = 0;
2799  h_F_SOURCE_CODE_FILE->flag_needs_top = 0;
2800  h_F_SOURCE_CODE_FILE->file_version = 1;
2801 
2802  /* Initialize SCREEN items */
2803  *(cob_u8_ptr)(b_230) = 32;
2804  *(cob_u8_ptr)(b_231) = 218;
2805  memset (b_231 + 1, 32, 78);
2806  *(cob_u8_ptr)(b_231 + 79) = 191;
2807  *(cob_u8_ptr)(b_231 + 80) = 179;
2808  *(cob_u8_ptr)(b_231 + 81) = 179;
2809  *(cob_u8_ptr)(b_231 + 82) = 179;
2810  *(cob_u8_ptr)(b_231 + 83) = 179;
2811  *(cob_u8_ptr)(b_231 + 84) = 192;
2812  memset (b_231 + 85, 32, 78);
2813  *(cob_u8_ptr)(b_231 + 163) = 217;
2814  *(cob_u8_ptr)(b_231 + 164) = 218;
2815  memset (b_231 + 165, 32, 65);
2816  *(cob_u8_ptr)(b_231 + 230) = 194;
2817  memset (b_231 + 231, 32, 12);
2818  *(cob_u8_ptr)(b_231 + 243) = 191;
2819  *(cob_u8_ptr)(b_231 + 244) = 179;
2820  *(cob_u8_ptr)(b_231 + 245) = 179;
2821  *(cob_u8_ptr)(b_231 + 246) = 179;
2822  *(cob_u8_ptr)(b_231 + 247) = 179;
2823  *(cob_u8_ptr)(b_231 + 248) = 179;
2824  *(cob_u8_ptr)(b_231 + 249) = 179;
2825  *(cob_u8_ptr)(b_231 + 250) = 179;
2826  *(cob_u8_ptr)(b_231 + 251) = 179;
2827  *(cob_u8_ptr)(b_231 + 252) = 179;
2828  *(cob_u8_ptr)(b_231 + 253) = 179;
2829  *(cob_u8_ptr)(b_231 + 254) = 179;
2830  *(cob_u8_ptr)(b_231 + 255) = 179;
2831  *(cob_u8_ptr)(b_231 + 256) = 179;
2832  *(cob_u8_ptr)(b_231 + 257) = 179;
2833  *(cob_u8_ptr)(b_231 + 258) = 179;
2834  *(cob_u8_ptr)(b_231 + 259) = 192;
2835  memset (b_231 + 260, 32, 65);
2836  *(cob_u8_ptr)(b_231 + 325) = 193;
2837  memset (b_231 + 326, 32, 12);
2838  *(cob_u8_ptr)(b_231 + 338) = 217;
2839  *(cob_u8_ptr)(b_231 + 339) = 218;
2840  memset (b_231 + 340, 32, 78);
2841  *(cob_u8_ptr)(b_231 + 418) = 191;
2842  *(cob_u8_ptr)(b_231 + 419) = 179;
2843  *(cob_u8_ptr)(b_231 + 420) = 179;
2844  *(cob_u8_ptr)(b_231 + 421) = 179;
2845  *(cob_u8_ptr)(b_231 + 422) = 179;
2846  *(cob_u8_ptr)(b_231 + 423) = 192;
2847  memset (b_231 + 424, 32, 78);
2848  *(cob_u8_ptr)(b_231 + 502) = 217;
2849  *(cob_u8_ptr)(b_231 + 503) = 218;
2850  memset (b_231 + 504, 32, 78);
2851  *(cob_u8_ptr)(b_231 + 582) = 191;
2852  *(cob_u8_ptr)(b_231 + 583) = 179;
2853  *(cob_u8_ptr)(b_231 + 584) = 179;
2854  *(cob_u8_ptr)(b_231 + 585) = 179;
2855  *(cob_u8_ptr)(b_231 + 586) = 179;
2856  *(cob_u8_ptr)(b_231 + 587) = 192;
2857  memset (b_231 + 588, 32, 78);
2858  *(cob_u8_ptr)(b_231 + 666) = 217;
2859  memcpy (b_231 + 667, " GCic (", 7);
2860  memset (b_231 + 674, 32, 16);
2861  memcpy (b_231 + 690, ") GNU COBOL 2.1 23NOV2013 Interactive Compilation", 49);
2862  memset (b_231 + 690 + 49, 32, 8);
2863  memset (b_231 + 747, 32, 80);
2864  memcpy (b_231 + 827, "Set/Clr Switches Via F1-F9; Set Config Via F12; Enter Key Compiles; Esc Quits", 77);
2865  memcpy (b_231 + 904, "Extra \"cobc\" Switches, If Any (\"-save-temps=xxx\" Prevents Listings):", 68);
2866  memcpy (b_231 + 972, "Program Execution Arguments, If Any:", 36);
2867  memcpy (b_231 + 1008, "F1", 2);
2868  memcpy (b_231 + 1010, "F9", 2);
2869  memcpy (b_231 + 1012, "F12", 3);
2870  memcpy (b_231 + 1015, "ENTER", 5);
2871  memcpy (b_231 + 1020, "ESC", 3);
2872  memcpy (b_231 + 1023, "Enter", 5);
2873  memcpy (b_231 + 1028, "Esc", 3);
2874  memcpy (b_231 + 1031, "Folder:", 7);
2875  memset (b_231 + 1031 + 7, 32, 3);
2876  memcpy (b_231 + 1041, "Filename: ", 10);
2877  memcpy (b_231 + 1051, ": Compile", 9);
2878  memset (b_231 + 1051 + 9, 32, 3);
2879  memcpy (b_231 + 1063, ": Quit", 8);
2880  memset (b_231 + 1063 + 8, 32, 6);
2881  memset (b_231 + 1077, 32, 132);
2882  memcpy (b_231 + 1209, "F1", 2);
2883  memcpy (b_231 + 1211, "F2", 2);
2884  memcpy (b_231 + 1213, "F3", 2);
2885  memcpy (b_231 + 1215, "F4", 2);
2886  memcpy (b_231 + 1217, "F5", 2);
2887  memcpy (b_231 + 1219, "F6", 2);
2888  memcpy (b_231 + 1221, "F7", 2);
2889  memcpy (b_231 + 1223, "F8", 2);
2890  memcpy (b_231 + 1225, "F9", 2);
2891  memset (b_231 + 1227, 32, 9);
2892  memcpy (b_231 + 1236, "Assume WITH DEBUGGING MODE", 26);
2893  memcpy (b_231 + 1262, "Procedure+Statement Trace ", 26);
2894  memcpy (b_231 + 1288, "Make a Library (", 16);
2895  memcpy (b_231 + 1304, "SO)", 3);
2896  memcpy (b_231 + 1307, "Execute If Compilation OK ", 26);
2897  memset (b_231 + 1333, 32, 27);
2898  memcpy (b_231 + 1360, "\"FUNCTION\" Is Optional", 22);
2899  memset (b_231 + 1360 + 22, 32, 4);
2900  memcpy (b_231 + 1386, "Enable All Warnings", 19);
2901  memset (b_231 + 1386 + 19, 32, 7);
2902  memcpy (b_231 + 1412, "Source Is Free-Format", 21);
2903  memset (b_231 + 1412 + 21, 32, 5);
2904  memcpy (b_231 + 1438, "No COMP/BINARY Truncation ", 26);
2905  memcpy (b_231 + 1464, "Current", 7);
2906  memcpy (b_231 + 1471, "Config:", 7);
2907  memset (b_231 + 1478, 32, 314);
2908  cob_set_screen (&s_230, NULL, NULL,
2909  NULL, NULL, &f_230,
2910  NULL, (cob_field *)&c_61, (cob_field *)&c_61,
2911  NULL, NULL, NULL,
2912  1, 0, 0x80);
2913  cob_set_screen (&s_231, NULL, NULL,
2914  &s_232, NULL, NULL,
2915  NULL, NULL, NULL,
2916  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
2917  0, 0, 0x10);
2918  cob_set_screen (&s_232, &s_288, NULL,
2919  &s_233, &s_231, NULL,
2920  NULL, NULL, NULL,
2921  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2922  0, 0, 0x1010);
2923  cob_set_screen (&s_233, &s_234, NULL,
2924  NULL, &s_232, NULL,
2925  &f_233, (cob_field *)&c_65, (cob_field *)&c_66,
2926  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2927  2, 0, 0x1010);
2928  cob_set_screen (&s_234, &s_235, &s_233,
2929  NULL, &s_232, &f_234,
2930  NULL, NULL, (cob_field *)&c_65,
2931  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2932  1, 0, 0x1010);
2933  cob_set_screen (&s_235, &s_236, &s_234,
2934  NULL, &s_232, NULL,
2935  &f_235, NULL, (cob_field *)&c_67,
2936  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2937  2, 0, 0x1010);
2938  cob_set_screen (&s_236, &s_237, &s_235,
2939  NULL, &s_232, NULL,
2940  &f_236, (cob_field *)&c_68, (cob_field *)&c_66,
2941  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2942  2, 0, 0x1010);
2943  cob_set_screen (&s_237, &s_238, &s_236,
2944  NULL, &s_232, NULL,
2945  &f_237, NULL, (cob_field *)&c_67,
2946  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2947  2, 0, 0x1010);
2948  cob_set_screen (&s_238, &s_239, &s_237,
2949  NULL, &s_232, NULL,
2950  &f_238, (cob_field *)&c_69, (cob_field *)&c_66,
2951  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2952  2, 0, 0x1010);
2953  cob_set_screen (&s_239, &s_240, &s_238,
2954  NULL, &s_232, NULL,
2955  &f_239, NULL, (cob_field *)&c_67,
2956  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2957  2, 0, 0x1010);
2958  cob_set_screen (&s_240, &s_241, &s_239,
2959  NULL, &s_232, NULL,
2960  &f_240, (cob_field *)&c_70, (cob_field *)&c_66,
2961  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2962  2, 0, 0x1010);
2963  cob_set_screen (&s_241, &s_242, &s_240,
2964  NULL, &s_232, &f_241,
2965  NULL, NULL, (cob_field *)&c_65,
2966  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2967  1, 0, 0x1010);
2968  cob_set_screen (&s_242, &s_243, &s_241,
2969  NULL, &s_232, NULL,
2970  &f_242, NULL, (cob_field *)&c_67,
2971  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2972  2, 0, 0x1010);
2973  cob_set_screen (&s_243, &s_244, &s_242,
2974  NULL, &s_232, NULL,
2975  &f_243, (cob_field *)&c_71, (cob_field *)&c_66,
2976  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2977  2, 0, 0x1010);
2978  cob_set_screen (&s_244, &s_245, &s_243,
2979  NULL, &s_232, &f_244,
2980  NULL, NULL, (cob_field *)&c_65,
2981  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2982  1, 0, 0x1010);
2983  cob_set_screen (&s_245, &s_246, &s_244,
2984  NULL, &s_232, NULL,
2985  &f_245, NULL, (cob_field *)&c_72,
2986  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2987  2, 0, 0x1010);
2988  cob_set_screen (&s_246, &s_247, &s_245,
2989  NULL, &s_232, &f_246,
2990  NULL, NULL, (cob_field *)&c_73,
2991  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2992  1, 0, 0x1010);
2993  cob_set_screen (&s_247, &s_248, &s_246,
2994  NULL, &s_232, NULL,
2995  &f_247, NULL, (cob_field *)&c_67,
2996  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
2997  2, 0, 0x1010);
2998  cob_set_screen (&s_248, &s_249, &s_247,
2999  NULL, &s_232, NULL,
3000  &f_248, (cob_field *)&c_74, (cob_field *)&c_66,
3001  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3002  2, 0, 0x1010);
3003  cob_set_screen (&s_249, &s_250, &s_248,
3004  NULL, &s_232, NULL,
3005  &f_249, NULL, (cob_field *)&c_72,
3006  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3007  2, 0, 0x1010);
3008  cob_set_screen (&s_250, &s_251, &s_249,
3009  NULL, &s_232, NULL,
3010  &f_250, NULL, (cob_field *)&c_67,
3011  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3012  2, 0, 0x1010);
3013  cob_set_screen (&s_251, &s_252, &s_250,
3014  NULL, &s_232, NULL,
3015  &f_251, (cob_field *)&c_75, (cob_field *)&c_66,
3016  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3017  2, 0, 0x1010);
3018  cob_set_screen (&s_252, &s_253, &s_251,
3019  NULL, &s_232, NULL,
3020  &f_252, NULL, (cob_field *)&c_72,
3021  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3022  2, 0, 0x1010);
3023  cob_set_screen (&s_253, &s_254, &s_252,
3024  NULL, &s_232, NULL,
3025  &f_253, NULL, (cob_field *)&c_67,
3026  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3027  2, 0, 0x1010);
3028  cob_set_screen (&s_254, &s_255, &s_253,
3029  NULL, &s_232, NULL,
3030  &f_254, (cob_field *)&c_76, (cob_field *)&c_66,
3031  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3032  2, 0, 0x1010);
3033  cob_set_screen (&s_255, &s_256, &s_254,
3034  NULL, &s_232, NULL,
3035  &f_255, NULL, (cob_field *)&c_72,
3036  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3037  2, 0, 0x1010);
3038  cob_set_screen (&s_256, &s_257, &s_255,
3039  NULL, &s_232, NULL,
3040  &f_256, NULL, (cob_field *)&c_67,
3041  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3042  2, 0, 0x1010);
3043  cob_set_screen (&s_257, &s_258, &s_256,
3044  NULL, &s_232, NULL,
3045  &f_257, (cob_field *)&c_77, (cob_field *)&c_66,
3046  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3047  2, 0, 0x1010);
3048  cob_set_screen (&s_258, &s_259, &s_257,
3049  NULL, &s_232, NULL,
3050  &f_258, NULL, (cob_field *)&c_72,
3051  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3052  2, 0, 0x1010);
3053  cob_set_screen (&s_259, &s_260, &s_258,
3054  NULL, &s_232, NULL,
3055  &f_259, NULL, (cob_field *)&c_67,
3056  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3057  2, 0, 0x1010);
3058  cob_set_screen (&s_260, &s_261, &s_259,
3059  NULL, &s_232, NULL,
3060  &f_260, (cob_field *)&c_78, (cob_field *)&c_66,
3061  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3062  2, 0, 0x1010);
3063  cob_set_screen (&s_261, &s_262, &s_260,
3064  NULL, &s_232, NULL,
3065  &f_261, NULL, (cob_field *)&c_72,
3066  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3067  2, 0, 0x1010);
3068  cob_set_screen (&s_262, &s_263, &s_261,
3069  NULL, &s_232, NULL,
3070  &f_262, NULL, (cob_field *)&c_67,
3071  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3072  2, 0, 0x1010);
3073  cob_set_screen (&s_263, &s_264, &s_262,
3074  NULL, &s_232, NULL,
3075  &f_263, (cob_field *)&c_79, (cob_field *)&c_66,
3076  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3077  2, 0, 0x1010);
3078  cob_set_screen (&s_264, &s_265, &s_263,
3079  NULL, &s_232, &f_264,
3080  NULL, NULL, (cob_field *)&c_65,
3081  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3082  1, 0, 0x1010);
3083  cob_set_screen (&s_265, &s_266, &s_264,
3084  NULL, &s_232, NULL,
3085  &f_265, NULL, (cob_field *)&c_72,
3086  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3087  2, 0, 0x1010);
3088  cob_set_screen (&s_266, &s_267, &s_265,
3089  NULL, &s_232, &f_266,
3090  NULL, NULL, (cob_field *)&c_73,
3091  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3092  1, 0, 0x1010);
3093  cob_set_screen (&s_267, &s_268, &s_266,
3094  NULL, &s_232, NULL,
3095  &f_267, NULL, (cob_field *)&c_67,
3096  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3097  2, 0, 0x1010);
3098  cob_set_screen (&s_268, &s_269, &s_267,
3099  NULL, &s_232, NULL,
3100  &f_268, (cob_field *)&c_80, (cob_field *)&c_66,
3101  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3102  2, 0, 0x1010);
3103  cob_set_screen (&s_269, &s_270, &s_268,
3104  NULL, &s_232, &f_269,
3105  NULL, NULL, (cob_field *)&c_65,
3106  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3107  1, 0, 0x1010);
3108  cob_set_screen (&s_270, &s_271, &s_269,
3109  NULL, &s_232, NULL,
3110  &f_270, NULL, (cob_field *)&c_67,
3111  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3112  2, 0, 0x1010);
3113  cob_set_screen (&s_271, &s_272, &s_270,
3114  NULL, &s_232, NULL,
3115  &f_271, (cob_field *)&c_81, (cob_field *)&c_66,
3116  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3117  2, 0, 0x1010);
3118  cob_set_screen (&s_272, &s_273, &s_271,
3119  NULL, &s_232, NULL,
3120  &f_272, NULL, (cob_field *)&c_67,
3121  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3122  2, 0, 0x1010);
3123  cob_set_screen (&s_273, &s_274, &s_272,
3124  NULL, &s_232, NULL,
3125  &f_273, (cob_field *)&c_82, (cob_field *)&c_66,
3126  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3127  2, 0, 0x1010);
3128  cob_set_screen (&s_274, &s_275, &s_273,
3129  NULL, &s_232, NULL,
3130  &f_274, NULL, (cob_field *)&c_67,
3131  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3132  2, 0, 0x1010);
3133  cob_set_screen (&s_275, &s_276, &s_274,
3134  NULL, &s_232, NULL,
3135  &f_275, (cob_field *)&c_83, (cob_field *)&c_66,
3136  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3137  2, 0, 0x1010);
3138  cob_set_screen (&s_276, &s_277, &s_275,
3139  NULL, &s_232, &f_276,
3140  NULL, NULL, (cob_field *)&c_65,
3141  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3142  1, 0, 0x1010);
3143  cob_set_screen (&s_277, &s_278, &s_276,
3144  NULL, &s_232, NULL,
3145  &f_277, NULL, (cob_field *)&c_67,
3146  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3147  2, 0, 0x1010);
3148  cob_set_screen (&s_278, &s_279, &s_277,
3149  NULL, &s_232, NULL,
3150  &f_278, (cob_field *)&c_84, (cob_field *)&c_66,
3151  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3152  2, 0, 0x1010);
3153  cob_set_screen (&s_279, &s_280, &s_278,
3154  NULL, &s_232, &f_279,
3155  NULL, NULL, (cob_field *)&c_65,
3156  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3157  1, 0, 0x1010);
3158  cob_set_screen (&s_280, &s_281, &s_279,
3159  NULL, &s_232, NULL,
3160  &f_280, NULL, (cob_field *)&c_67,
3161  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3162  2, 0, 0x1010);
3163  cob_set_screen (&s_281, &s_282, &s_280,
3164  NULL, &s_232, NULL,
3165  &f_281, (cob_field *)&c_85, (cob_field *)&c_66,
3166  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3167  2, 0, 0x1010);
3168  cob_set_screen (&s_282, &s_283, &s_281,
3169  NULL, &s_232, NULL,
3170  &f_282, NULL, (cob_field *)&c_67,
3171  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3172  2, 0, 0x1010);
3173  cob_set_screen (&s_283, &s_284, &s_282,
3174  NULL, &s_232, NULL,
3175  &f_283, (cob_field *)&c_86, (cob_field *)&c_66,
3176  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3177  2, 0, 0x1010);
3178  cob_set_screen (&s_284, &s_285, &s_283,
3179  NULL, &s_232, NULL,
3180  &f_284, NULL, (cob_field *)&c_67,
3181  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3182  2, 0, 0x1010);
3183  cob_set_screen (&s_285, &s_286, &s_284,
3184  NULL, &s_232, NULL,
3185  &f_285, (cob_field *)&c_87, (cob_field *)&c_66,
3186  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3187  2, 0, 0x1010);
3188  cob_set_screen (&s_286, &s_287, &s_285,
3189  NULL, &s_232, &f_286,
3190  NULL, NULL, (cob_field *)&c_65,
3191  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3192  1, 0, 0x1010);
3193  cob_set_screen (&s_287, NULL, &s_286,
3194  NULL, &s_232, NULL,
3195  &f_287, NULL, (cob_field *)&c_67,
3196  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3197  2, 0, 0x1010);
3198  cob_set_screen (&s_288, &s_292, &s_232,
3199  &s_289, &s_231, NULL,
3200  NULL, NULL, NULL,
3201  (cob_field *)&c_62, (cob_field *)&c_61, NULL,
3202  0, 0, 0x1010);
3203  cob_set_screen (&s_289, &s_290, NULL,
3204  NULL, &s_288, NULL,
3205  &f_289, (cob_field *)&c_66, (cob_field *)&c_66,
3206  (cob_field *)&c_62, (cob_field *)&c_61, NULL,
3207  2, 0, 0x1010);
3208  cob_set_screen (&s_290, &s_291, &s_289,
3209  NULL, &s_288, &f_290,
3210  NULL, NULL, (cob_field *)&c_74,
3211  (cob_field *)&c_62, (cob_field *)&c_61, NULL,
3212  1, 0, 0x1010);
3213  cob_set_screen (&s_291, NULL, &s_290,
3214  NULL, &s_288, NULL,
3215  &f_291, NULL, (cob_field *)&c_88,
3216  (cob_field *)&c_62, (cob_field *)&c_61, NULL,
3217  2, 0, 0x1010);
3218  cob_set_screen (&s_292, &s_294, &s_288,
3219  &s_293, &s_231, NULL,
3220  NULL, NULL, NULL,
3221  (cob_field *)&c_62, (cob_field *)&c_89, NULL,
3222  0, 0, 0x1110);
3223  cob_set_screen (&s_293, NULL, NULL,
3224  NULL, &s_292, &f_293,
3225  NULL, (cob_field *)&c_88, (cob_field *)&c_66,
3226  (cob_field *)&c_62, (cob_field *)&c_89, NULL,
3227  1, 0, 0x1110);
3228  cob_set_screen (&s_294, &s_298, &s_292,
3229  &s_295, &s_231, NULL,
3230  NULL, NULL, NULL,
3231  (cob_field *)&c_90, (cob_field *)&c_63, NULL,
3232  0, 0, 0x1010);
3233  cob_set_screen (&s_295, &s_296, NULL,
3234  NULL, &s_294, NULL,
3235  &f_295, (cob_field *)&c_91, (cob_field *)&c_65,
3236  (cob_field *)&c_90, (cob_field *)&c_63, NULL,
3237  2, 0, 0x1010);
3238  cob_set_screen (&s_296, &s_297, &s_295,
3239  NULL, &s_294, NULL,
3240  &f_296, (cob_field *)&c_92, (cob_field *)&c_65,
3241  (cob_field *)&c_90, (cob_field *)&c_63, NULL,
3242  2, 0, 0x1010);
3243  cob_set_screen (&s_297, NULL, &s_296,
3244  NULL, &s_294, NULL,
3245  &f_297, (cob_field *)&c_93, (cob_field *)&c_65,
3246  (cob_field *)&c_90, (cob_field *)&c_63, NULL,
3247  2, 0, 0x1010);
3248  cob_set_screen (&s_298, &s_304, &s_294,
3249  &s_299, &s_231, NULL,
3250  NULL, NULL, NULL,
3251  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3252  0, 0, 0x1010);
3253  cob_set_screen (&s_299, &s_300, NULL,
3254  NULL, &s_298, NULL,
3255  &f_299, (cob_field *)&c_91, (cob_field *)&c_87,
3256  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3257  2, 0, 0x1010);
3258  cob_set_screen (&s_300, &s_301, &s_299,
3259  NULL, &s_298, NULL,
3260  &f_300, NULL, (cob_field *)&c_94,
3261  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3262  2, 0, 0x1010);
3263  cob_set_screen (&s_301, &s_302, &s_300,
3264  NULL, &s_298, NULL,
3265  &f_301, NULL, (cob_field *)&c_95,
3266  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3267  2, 0, 0x1010);
3268  cob_set_screen (&s_302, &s_303, &s_301,
3269  NULL, &s_298, NULL,
3270  &f_302, NULL, (cob_field *)&c_96,
3271  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3272  2, 0, 0x1010);
3273  cob_set_screen (&s_303, NULL, &s_302,
3274  NULL, &s_298, NULL,
3275  &f_303, NULL, (cob_field *)&c_97,
3276  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3277  2, 0, 0x1010);
3278  cob_set_screen (&s_304, &s_307, &s_298,
3279  &s_305, &s_231, NULL,
3280  NULL, NULL, NULL,
3281  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3282  0, 0, 0x1010);
3283  cob_set_screen (&s_305, &s_306, NULL,
3284  NULL, &s_304, NULL,
3285  &f_305, (cob_field *)&c_68, (cob_field *)&c_98,
3286  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3287  2, 0, 0x1010);
3288  cob_set_screen (&s_306, NULL, &s_305,
3289  NULL, &s_304, NULL,
3290  &f_306, (cob_field *)&c_69, (cob_field *)&c_98,
3291  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3292  2, 0, 0x1010);
3293  cob_set_screen (&s_307, &s_312, &s_304,
3294  &s_308, &s_231, NULL,
3295  NULL, NULL, NULL,
3296  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3297  0, 0, 0x1010);
3298  cob_set_screen (&s_308, &s_309, NULL,
3299  NULL, &s_307, NULL,
3300  &f_308, (cob_field *)&c_69, (cob_field *)&c_68,
3301  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3302  2, 0, 0x1010);
3303  cob_set_screen (&s_309, &s_310, &s_308,
3304  NULL, &s_307, NULL,
3305  &f_309, (cob_field *)&c_68, (cob_field *)&c_68,
3306  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3307  2, 0, 0x1010);
3308  cob_set_screen (&s_310, &s_311, &s_309,
3309  NULL, &s_307, NULL,
3310  &f_310, (cob_field *)&c_68, (cob_field *)&c_72,
3311  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3312  2, 0, 0x1010);
3313  cob_set_screen (&s_311, NULL, &s_310,
3314  NULL, &s_307, NULL,
3315  &f_311, (cob_field *)&c_69, (cob_field *)&c_99,
3316  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3317  2, 0, 0x1010);
3318  cob_set_screen (&s_312, &s_315, &s_307,
3319  &s_313, &s_231, NULL,
3320  NULL, NULL, NULL,
3321  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3322  0, 0, 0x1010);
3323  cob_set_screen (&s_313, &s_314, NULL,
3324  NULL, &s_312, &f_313,
3325  NULL, (cob_field *)&c_68, (cob_field *)&c_79,
3326  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3327  1, 0, 0x1010);
3328  cob_set_screen (&s_314, NULL, &s_313,
3329  NULL, &s_312, &f_314,
3330  NULL, (cob_field *)&c_69, (cob_field *)&c_79,
3331  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3332  1, 0, 0x1010);
3333  cob_set_screen (&s_315, &s_325, &s_312,
3334  &s_316, &s_231, NULL,
3335  NULL, NULL, NULL,
3336  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3337  0, 0, 0x1010);
3338  cob_set_screen (&s_316, &s_317, NULL,
3339  NULL, &s_315, NULL,
3340  &f_316, (cob_field *)&c_74, (cob_field *)&c_68,
3341  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3342  2, 0, 0x1010);
3343  cob_set_screen (&s_317, &s_318, &s_316,
3344  NULL, &s_315, NULL,
3345  &f_317, (cob_field *)&c_75, (cob_field *)&c_68,
3346  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3347  2, 0, 0x1010);
3348  cob_set_screen (&s_318, &s_319, &s_317,
3349  NULL, &s_315, NULL,
3350  &f_318, (cob_field *)&c_76, (cob_field *)&c_68,
3351  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3352  2, 0, 0x1010);
3353  cob_set_screen (&s_319, &s_320, &s_318,
3354  NULL, &s_315, NULL,
3355  &f_319, (cob_field *)&c_77, (cob_field *)&c_68,
3356  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3357  2, 0, 0x1010);
3358  cob_set_screen (&s_320, &s_321, &s_319,
3359  NULL, &s_315, NULL,
3360  &f_320, (cob_field *)&c_78, (cob_field *)&c_68,
3361  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3362  2, 0, 0x1010);
3363  cob_set_screen (&s_321, &s_322, &s_320,
3364  NULL, &s_315, NULL,
3365  &f_321, (cob_field *)&c_74, (cob_field *)&c_100,
3366  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3367  2, 0, 0x1010);
3368  cob_set_screen (&s_322, &s_323, &s_321,
3369  NULL, &s_315, NULL,
3370  &f_322, (cob_field *)&c_75, (cob_field *)&c_100,
3371  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3372  2, 0, 0x1010);
3373  cob_set_screen (&s_323, &s_324, &s_322,
3374  NULL, &s_315, NULL,
3375  &f_323, (cob_field *)&c_76, (cob_field *)&c_100,
3376  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3377  2, 0, 0x1010);
3378  cob_set_screen (&s_324, NULL, &s_323,
3379  NULL, &s_315, NULL,
3380  &f_324, (cob_field *)&c_77, (cob_field *)&c_100,
3381  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3382  2, 0, 0x1010);
3383  cob_set_screen (&s_325, &s_335, &s_315,
3384  &s_326, &s_231, NULL,
3385  NULL, NULL, NULL,
3386  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3387  0, 0, 0x1010);
3388  cob_set_screen (&s_326, &s_327, NULL,
3389  NULL, &s_325, &f_326,
3390  NULL, (cob_field *)&c_74, (cob_field *)&c_91,
3391  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3392  1, 0, 0x1010);
3393  cob_set_screen (&s_327, &s_328, &s_326,
3394  NULL, &s_325, &f_327,
3395  NULL, (cob_field *)&c_75, (cob_field *)&c_91,
3396  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3397  1, 0, 0x1010);
3398  cob_set_screen (&s_328, &s_329, &s_327,
3399  NULL, &s_325, &f_328,
3400  NULL, (cob_field *)&c_76, (cob_field *)&c_91,
3401  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3402  1, 0, 0x1010);
3403  cob_set_screen (&s_329, &s_330, &s_328,
3404  NULL, &s_325, &f_329,
3405  NULL, (cob_field *)&c_77, (cob_field *)&c_91,
3406  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3407  1, 0, 0x1010);
3408  cob_set_screen (&s_330, &s_331, &s_329,
3409  NULL, &s_325, &f_330,
3410  NULL, (cob_field *)&c_78, (cob_field *)&c_91,
3411  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3412  1, 0, 0x1010);
3413  cob_set_screen (&s_331, &s_332, &s_330,
3414  NULL, &s_325, &f_331,
3415  NULL, (cob_field *)&c_74, (cob_field *)&c_101,
3416  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3417  1, 0, 0x1010);
3418  cob_set_screen (&s_332, &s_333, &s_331,
3419  NULL, &s_325, &f_332,
3420  NULL, (cob_field *)&c_75, (cob_field *)&c_101,
3421  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3422  1, 0, 0x1010);
3423  cob_set_screen (&s_333, &s_334, &s_332,
3424  NULL, &s_325, &f_333,
3425  NULL, (cob_field *)&c_76, (cob_field *)&c_101,
3426  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3427  1, 0, 0x1010);
3428  cob_set_screen (&s_334, NULL, &s_333,
3429  NULL, &s_325, &f_334,
3430  NULL, (cob_field *)&c_77, (cob_field *)&c_101,
3431  (cob_field *)&c_89, (cob_field *)&c_63, NULL,
3432  1, 0, 0x1010);
3433  cob_set_screen (&s_335, &s_346, &s_325,
3434  &s_336, &s_231, NULL,
3435  NULL, NULL, NULL,
3436  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3437  0, 0, 0x1010);
3438  cob_set_screen (&s_336, &s_337, NULL,
3439  NULL, &s_335, NULL,
3440  &f_336, (cob_field *)&c_74, (cob_field *)&c_71,
3441  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3442  2, 0, 0x1010);
3443  cob_set_screen (&s_337, &s_338, &s_336,
3444  NULL, &s_335, NULL,
3445  &f_337, (cob_field *)&c_75, (cob_field *)&c_71,
3446  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3447  2, 0, 0x1010);
3448  cob_set_screen (&s_338, &s_339, &s_337,
3449  NULL, &s_335, NULL,
3450  &f_338, (cob_field *)&c_76, (cob_field *)&c_71,
3451  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3452  2, 0, 0x1010);
3453  cob_set_screen (&s_339, &s_340, &s_338,
3454  NULL, &s_335, NULL,
3455  &f_339, NULL, (cob_field *)&c_87,
3456  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3457  2, 0, 0x1010);
3458  cob_set_screen (&s_340, &s_341, &s_339,
3459  NULL, &s_335, NULL,
3460  &f_340, (cob_field *)&c_77, (cob_field *)&c_71,
3461  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3462  2, 0, 0x1010);
3463  cob_set_screen (&s_341, &s_342, &s_340,
3464  NULL, &s_335, &f_341,
3465  NULL, (cob_field *)&c_78, (cob_field *)&c_71,
3466  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3467  1, 0, 0x1010);
3468  cob_set_screen (&s_342, &s_343, &s_341,
3469  NULL, &s_335, NULL,
3470  &f_342, (cob_field *)&c_74, (cob_field *)&c_102,
3471  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3472  2, 0, 0x1010);
3473  cob_set_screen (&s_343, &s_344, &s_342,
3474  NULL, &s_335, NULL,
3475  &f_343, (cob_field *)&c_75, (cob_field *)&c_102,
3476  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3477  2, 0, 0x1010);
3478  cob_set_screen (&s_344, &s_345, &s_343,
3479  NULL, &s_335, NULL,
3480  &f_344, (cob_field *)&c_76, (cob_field *)&c_102,
3481  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3482  2, 0, 0x1010);
3483  cob_set_screen (&s_345, NULL, &s_344,
3484  NULL, &s_335, NULL,
3485  &f_345, (cob_field *)&c_77, (cob_field *)&c_102,
3486  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3487  2, 0, 0x1010);
3488  cob_set_screen (&s_346, &s_349, &s_335,
3489  &s_347, &s_231, NULL,
3490  NULL, NULL, NULL,
3491  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3492  0, 0, 0x1010);
3493  cob_set_screen (&s_347, &s_348, NULL,
3494  NULL, &s_346, NULL,
3495  &f_347, (cob_field *)&c_74, (cob_field *)&c_103,
3496  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3497  2, 0, 0x1010);
3498  cob_set_screen (&s_348, NULL, &s_347,
3499  NULL, &s_346, NULL,
3500  &f_348, (cob_field *)&c_75, (cob_field *)&c_103,
3501  (cob_field *)&c_64, (cob_field *)&c_63, NULL,
3502  2, 0, 0x1010);
3503  cob_set_screen (&s_349, &s_351, &s_346,
3504  &s_350, &s_231, NULL,
3505  NULL, NULL, NULL,
3506  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3507  0, 0, 0x1010);
3508  cob_set_screen (&s_350, NULL, NULL,
3509  NULL, &s_349, &f_350,
3510  NULL, (cob_field *)&c_76, (cob_field *)&c_103,
3511  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3512  1, 0, 0x1010);
3513  cob_set_screen (&s_351, NULL, &s_349,
3514  &s_352, &s_231, NULL,
3515  NULL, NULL, NULL,
3516  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3517  0, 0, 0x1010);
3518  cob_set_screen (&s_352, &s_353, NULL,
3519  NULL, &s_351, &f_352,
3520  NULL, (cob_field *)&c_81, (cob_field *)&c_68,
3521  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3522  1, 0, 0x201010);
3523  cob_set_screen (&s_353, &s_354, &s_352,
3524  NULL, &s_351, &f_353,
3525  NULL, (cob_field *)&c_82, (cob_field *)&c_68,
3526  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3527  1, 0, 0x201010);
3528  cob_set_screen (&s_354, &s_355, &s_353,
3529  NULL, &s_351, &f_354,
3530  NULL, (cob_field *)&c_85, (cob_field *)&c_68,
3531  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3532  1, 0, 0x201010);
3533  cob_set_screen (&s_355, NULL, &s_354,
3534  NULL, &s_351, &f_355,
3535  NULL, (cob_field *)&c_86, (cob_field *)&c_68,
3536  (cob_field *)&c_62, (cob_field *)&c_63, NULL,
3537  1, 0, 0x201010);
3538 
3539  initialized = 1;
3540  goto P_ret_initialize;
3541 
3542  /* CANCEL callback handling */
3543  P_cancel:
3544 
3545  if (!initialized) {
3546  return 0;
3547  }
3548  if (module->module_active) {
3549  cob_fatal_error (COB_FERROR_CANCEL);
3550  }
3551 
3552  initialized = 0;
3553  return 0;
3554 
3555 }
3556 
3557 /* End PROGRAM-ID 'GCic' */
3558 
3559 /* PROGRAM-ID 'CHECKSRC' */
3560 
3561 /* ENTRY 'CHECKSRC' */
3562 
3563 int
3564 CHECKSRC (cob_u8_t *b_370, cob_u8_t *b_372)
3565 {
3566  return CHECKSRC_ (0, b_370, b_372);
3567 }
3568 
3569 static int
3570 CHECKSRC_ (const int entry, cob_u8_t *b_370, cob_u8_t *b_372)
3571 {
3572  /* Program local variables */
3573  #include "GCic.c.l2.h"
3574 
3575  /* Start of function code */
3576 
3577  /* CANCEL callback */
3578  if (unlikely(entry < 0)) {
3579  goto P_cancel;
3580  }
3581 
3582  /* Check initialized, check module allocated, */
3583  /* set global pointer, */
3584  /* push module stack, save call parameter count */
3585  cob_module_enter (&module, &cob_glob_ptr, 0);
3586 
3587  /* Set address of module parameter list */
3588  module->cob_procedure_params = cob_procedure_params;
3589 
3590  /* Set frame stack pointer */
3591  frame_ptr = frame_stack;
3592  frame_ptr->perform_through = 0;
3593  frame_overflow = frame_ptr + 255 - 1;
3594 
3595  /* Initialize rest of program */
3596  if (unlikely(initialized == 0)) {
3597  goto P_initialize;
3598  }
3599  P_ret_initialize:
3600 
3601  /* Increment module active */
3602  module->module_active++;
3603 
3604  /* Save number of call params */
3605  module->module_num_params = cob_glob_ptr->cob_call_params;
3606 
3607  /* Entry dispatch */
3608  goto l_28;
3609 
3610  /* PROCEDURE DIVISION */
3611 
3612  /* Line: 1321 : Entry CHECKSRC : GCic.cbl */
3613  l_28:;
3614 
3615  /* Line: 1321 : Section 000-Main : GCic.cbl */
3616 
3617  /* Line: 1322 : SET : GCic.cbl */
3618  cob_set_location (st_5, 1322, st_9, NULL, st_11);
3619  *(b_372) = 32;
3620 
3621  /* Line: 1323 : IF : GCic.cbl */
3622  cob_set_location (st_5, 1323, st_9, NULL, st_6);
3623  if (((int)(int)(*(b_370 + 6) - 42) == 0))
3624  {
3625 
3626  /* Line: 1325 : GOBACK : GCic.cbl */
3627  cob_set_location (st_5, 1325, st_9, NULL, st_8);
3628  goto exit_program;
3629  }
3630 
3631  /* Line: 1330 : SET : GCic.cbl */
3632  cob_set_location (st_5, 1330, st_9, NULL, st_11);
3633  *(b_364) = 78;
3634 
3635  /* Line: 1331 : MOVE : GCic.cbl */
3636  cob_set_location (st_5, 1331, st_9, NULL, st_4);
3637  (*(cob_s8_ptr) (b_369)) = 0;
3638 
3639  /* Line: 1332 : MOVE : GCic.cbl */
3640  cob_set_location (st_5, 1332, st_9, NULL, st_4);
3641  memset (b_362, 32, 80);
3642 
3643  /* Line: 1333 : PERFORM : GCic.cbl */
3644  cob_set_location (st_5, 1333, st_9, NULL, st_10);
3645  (*(cob_s8_ptr) (b_368)) = 1;
3646  for (;;)
3647  {
3648  if (((int)cob_cmp_s8 (b_368, 80LL) > 0))
3649  break;
3650 
3651  /* Line: 1335 : IF : GCic.cbl */
3652  cob_set_location (st_5, 1335, st_9, NULL, st_6);
3653  if (((int)(int)(*(b_370 + ((*(cob_s8_ptr) (b_368)) - 1)) - ' ') == 0))
3654  {
3655 
3656  /* Line: 1336 : IF : GCic.cbl */
3657  cob_set_location (st_5, 1336, st_9, NULL, st_6);
3658  if (((int)(int)(*(b_364) - 78) == 0))
3659  {
3660 
3661  /* Line: 1337 : ADD : GCic.cbl */
3662  cob_set_location (st_5, 1337, st_9, NULL, st_15);
3663  (*(cob_s8_ptr) (b_369)) = ((*(cob_s8_ptr) (b_369)) + 1);
3664 
3665  /* Line: 1338 : MOVE : GCic.cbl */
3666  cob_set_location (st_5, 1338, st_9, NULL, st_4);
3667  cob_move (cob_intr_upper_case (0, 0, COB_SET_FLD(f0, 1, b_370 + ((*(cob_s8_ptr) (b_368)) - 1), &a_1)), COB_SET_FLD(f1, 1, b_362 + ((*(cob_s8_ptr) (b_369)) - 1), &a_1));
3668 
3669  /* Line: 1340 : SET : GCic.cbl */
3670  cob_set_location (st_5, 1340, st_9, NULL, st_11);
3671  *(b_364) = 89;
3672  }
3673  }
3674  else
3675  {
3676  /* ELSE */
3677 
3678  /* Line: 1343 : SET : GCic.cbl */
3679  cob_set_location (st_5, 1343, st_9, NULL, st_11);
3680  *(b_364) = 78;
3681 
3682  /* Line: 1344 : ADD : GCic.cbl */
3683  cob_set_location (st_5, 1344, st_9, NULL, st_15);
3684  (*(cob_s8_ptr) (b_369)) = ((*(cob_s8_ptr) (b_369)) + 1);
3685 
3686  /* Line: 1345 : MOVE : GCic.cbl */
3687  cob_set_location (st_5, 1345, st_9, NULL, st_4);
3688  *(b_362 + ((*(cob_s8_ptr) (b_369)) - 1)) = *(b_370 + ((*(cob_s8_ptr) (b_368)) - 1));
3689  }
3690  (*(cob_s8_ptr) (b_368)) = ((*(cob_s8_ptr) (b_368)) + 1);
3691  }
3692 
3693  /* Line: 1351 : PERFORM : GCic.cbl */
3694  cob_set_location (st_5, 1351, st_9, NULL, st_10);
3695  (*(cob_s8_ptr) (b_368)) = 1;
3696  for (;;)
3697  {
3698  if (((int)cob_cmp_s8 (b_368, 66LL) > 0))
3699  break;
3700 
3701  /* Line: 1353 : EVALUATE : GCic.cbl */
3702  cob_set_location (st_5, 1353, st_9, NULL, st_3);
3703 
3704  /* WHEN */
3705 
3706  if (((int)(int)(*(b_362 + ((*(cob_s8_ptr) (b_368)) - 1)) - 42) == 0))
3707  {
3708 
3709  /* Line: 1355 : IF : GCic.cbl */
3710  cob_set_location (st_5, 1355, st_9, NULL, st_6);
3711  if (((int)memcmp (b_362 + ((*(cob_s8_ptr) (b_368)) - 1), (cob_u8_ptr)"*>", 2) == 0))
3712  {
3713 
3714  /* Line: 1357 : GOBACK : GCic.cbl */
3715  cob_set_location (st_5, 1357, st_9, NULL, st_8);
3716  goto exit_program;
3717  }
3718  goto l_31;
3719  }
3720 
3721  /* WHEN */
3722 
3723  if ((((int)(int)(*(b_362 + ((*(cob_s8_ptr) (b_368)) - 1)) - 76) == 0) &&
3724  ((int)cob_cmp_s8 (b_368, 66LL) < 0)))
3725  {
3726 
3727  /* Line: 1359 : IF : GCic.cbl */
3728  cob_set_location (st_5, 1359, st_9, NULL, st_6);
3729  if (((int)memcmp (b_362 + ((*(cob_s8_ptr) (b_368)) - 1), (cob_u8_ptr)"LINKAGE SECTION", 15) == 0))
3730  {
3731 
3732  /* Line: 1361 : SET : GCic.cbl */
3733  cob_set_location (st_5, 1361, st_9, NULL, st_11);
3734  *(b_372) = 76;
3735 
3736  /* Line: 1363 : GOBACK : GCic.cbl */
3737  cob_set_location (st_5, 1363, st_9, NULL, st_8);
3738  goto exit_program;
3739  }
3740  goto l_31;
3741  }
3742 
3743  /* WHEN */
3744 
3745  if ((((int)(int)(*(b_362 + ((*(cob_s8_ptr) (b_368)) - 1)) - 73) == 0) &&
3746  ((int)cob_cmp_s8 (b_368, 58LL) < 0)))
3747  {
3748 
3749  /* Line: 1365 : IF : GCic.cbl */
3750  cob_set_location (st_5, 1365, st_9, NULL, st_6);
3751  if (((int)memcmp (b_362 + ((*(cob_s8_ptr) (b_368)) - 1), (cob_u8_ptr)"IDENTIFICATION DIVISION", 23) == 0))
3752  {
3753 
3754  /* Line: 1367 : SET : GCic.cbl */
3755  cob_set_location (st_5, 1367, st_9, NULL, st_11);
3756  *(b_372) = 73;
3757 
3758  /* Line: 1369 : GOBACK : GCic.cbl */
3759  cob_set_location (st_5, 1369, st_9, NULL, st_8);
3760  goto exit_program;
3761  }
3762  goto l_31;
3763  }
3764 
3765  /* End EVALUATE */
3766  l_31:;
3767  (*(cob_s8_ptr) (b_368)) = ((*(cob_s8_ptr) (b_368)) + 1);
3768  }
3769 
3770  /* Line: 1376 : GOBACK : GCic.cbl */
3771  cob_set_location (st_5, 1376, st_9, NULL, st_8);
3772  goto exit_program;
3773 
3774  /* Program exit */
3775 
3776  exit_program:
3777 
3778  /* Decrement module active count */
3779  if (module->module_active) {
3780  module->module_active--;
3781  }
3782 
3783  /* Pop module stack */
3784  cob_module_leave (module);
3785 
3786  /* Program return */
3787  return b_357;
3788 
3789  /* Program initialization */
3790  P_initialize:
3791 
3792  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);
3793 
3794  cob_module_path = cob_glob_ptr->cob_main_argv0;
3795 
3796  /* Initialize module structure */
3797  module->module_name = "CHECKSRC";
3798  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
3799  module->module_source = COB_SOURCE_FILE;
3800  module->module_entry.funcptr = (void *(*)())CHECKSRC;
3801  module->module_cancel.funcptr = (void *(*)())CHECKSRC_;
3802  module->collating_sequence = NULL;
3803  module->crt_status = NULL;
3804  module->cursor_pos = NULL;
3805  module->module_ref_count = NULL;
3806  module->module_path = &cob_module_path;
3807  module->module_active = 0;
3808  module->module_date = COB_MODULE_DATE;
3809  module->module_time = COB_MODULE_TIME;
3810  module->module_type = 0;
3811  module->module_param_cnt = 2;
3812  module->module_returning = 0;
3813  module->ebcdic_sign = 0;
3814  module->decimal_point = '.';
3815  module->currency_symbol = '$';
3816  module->numeric_separator = ',';
3817  module->flag_filename_mapping = 1;
3818  module->flag_binary_truncate = 1;
3819  module->flag_pretty_display = 1;
3820  module->flag_host_sign = 0;
3821  module->flag_no_phys_canc = 1;
3822  module->flag_main = 1;
3823  module->flag_fold_call = 0;
3824  module->flag_exit_program = 0;
3825 
3826  /* Initialize cancel callback */
3827  cob_set_cancel (module);
3828 
3829  /* Initialize WORKING-STORAGE */
3830  b_357 = 0;
3831  memset (b_362, 32, 80);
3832  *(cob_u8_ptr)(b_364) = 32;
3833  *(cob_u8_ptr)(b_368) = 0;
3834  *(cob_u8_ptr)(b_369) = 0;
3835 
3836  initialized = 1;
3837  goto P_ret_initialize;
3838 
3839  /* CANCEL callback handling */
3840  P_cancel:
3841 
3842  if (!initialized) {
3843  return 0;
3844  }
3845  if (module->module_active) {
3846  cob_fatal_error (COB_FERROR_CANCEL);
3847  }
3848 
3849  b_357 = 0;
3850  cob_cache_free (module);
3851  module = NULL;
3852 
3853  initialized = 0;
3854  return 0;
3855 
3856 }
3857 
3858 /* End PROGRAM-ID 'CHECKSRC' */
3859 
3860 /* PROGRAM-ID 'LISTING' */
3861 
3862 /* ENTRY 'LISTING' */
3863 
3864 int
3865 LISTING (cob_u8_t *b_1285, cob_u8_t *b_1286, cob_u8_t *b_1287, cob_u8_t *b_1288, cob_u8_t *b_1289, cob_u8_t *b_1290)
3866 {
3867  return LISTING_ (0, b_1285, b_1286, b_1287, b_1288, b_1289, b_1290);
3868 }
3869 
3870 static int
3871 LISTING_ (const int entry, cob_u8_t *b_1285, cob_u8_t *b_1286,
3872  cob_u8_t *b_1287, cob_u8_t *b_1288,
3873  cob_u8_t *b_1289, cob_u8_t *b_1290)
3874 {
3875  /* Program local variables */
3876  #include "GCic.c.l3.h"
3877 
3878  /* Start of function code */
3879 
3880  /* CANCEL callback */
3881  if (unlikely(entry < 0)) {
3882  goto P_cancel;
3883  }
3884 
3885  /* Check initialized, check module allocated, */
3886  /* set global pointer, */
3887  /* push module stack, save call parameter count */
3888  cob_module_enter (&module, &cob_glob_ptr, 0);
3889 
3890  /* Set address of module parameter list */
3891  module->cob_procedure_params = cob_procedure_params;
3892 
3893  /* Set frame stack pointer */
3894  frame_ptr = frame_stack;
3895  frame_ptr->perform_through = 0;
3896  frame_overflow = frame_ptr + 255 - 1;
3897 
3898  /* Initialize rest of program */
3899  if (unlikely(initialized == 0)) {
3900  goto P_initialize;
3901  }
3902  P_ret_initialize:
3903 
3904  /* Allocate decimal numbers */
3905  cob_decimal_alloc (2, &d0, &d1);
3906 
3907  /* Increment module active */
3908  module->module_active++;
3909 
3910  /* Save number of call params */
3911  module->module_num_params = cob_glob_ptr->cob_call_params;
3912 
3913  /* Entry dispatch */
3914  goto l_32;
3915 
3916  /* PROCEDURE DIVISION */
3917 
3918  /* Line: 2412 : Entry LISTING : GCic.cbl */
3919  l_32:;
3920 
3921  /* Line: 2412 : Section 000-Main : GCic.cbl */
3922 
3923  /* Line: 2413 : PERFORM : GCic.cbl */
3924  cob_set_location (st_5, 2413, st_9, NULL, st_10);
3925  /* PERFORM 100-Initialization */
3926  frame_ptr++;
3927  if (unlikely(frame_ptr == frame_overflow))
3928  cob_fatal_error (COB_FERROR_STACK);
3929  frame_ptr->perform_through = 35;
3930  frame_ptr->return_address_ptr = &&l_183;
3931  goto l_35;
3932  l_183:
3933  frame_ptr--;
3934 
3935  /* Line: 2414 : OPEN : GCic.cbl */
3936  cob_set_location (st_5, 2414, st_9, NULL, st_22);
3937  cob_open (h_F_LISTING_FILE, 2, 0, NULL);
3938  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
3939  {
3940  /* PERFORM Default Error Handler */
3941  frame_ptr++;
3942  if (unlikely(frame_ptr == frame_overflow))
3943  cob_fatal_error (COB_FERROR_STACK);
3944  frame_ptr->perform_through = 1;
3945  frame_ptr->return_address_ptr = &&l_184;
3946  goto l_1;
3947  l_184:
3948  frame_ptr--;
3949  }
3950 
3951  /* Line: 2415 : PERFORM : GCic.cbl */
3952  cob_set_location (st_5, 2415, st_9, NULL, st_10);
3953  /* PERFORM 500-Produce-Source-Listing */
3954  frame_ptr++;
3955  if (unlikely(frame_ptr == frame_overflow))
3956  cob_fatal_error (COB_FERROR_STACK);
3957  frame_ptr->perform_through = 143;
3958  frame_ptr->return_address_ptr = &&l_185;
3959  goto l_143;
3960  l_185:
3961  frame_ptr--;
3962 
3963  /* Line: 2416 : SORT : GCic.cbl */
3964  cob_set_location (st_5, 2416, st_9, NULL, st_33);
3965  cob_file_sort_init (h_F_SORT_WORK_FILE, 3, 0, b_378, NULL);
3966  cob_file_sort_init_key (h_F_SORT_WORK_FILE, &f_402, 0, 0);
3967  cob_file_sort_init_key (h_F_SORT_WORK_FILE, &f_403, 0, 15);
3968  cob_file_sort_init_key (h_F_SORT_WORK_FILE, &f_408, 0, 100);
3969  /* PERFORM 300-Tokenize-Source */
3970  frame_ptr++;
3971  if (unlikely(frame_ptr == frame_overflow))
3972  cob_fatal_error (COB_FERROR_STACK);
3973  frame_ptr->perform_through = 37;
3974  frame_ptr->return_address_ptr = &&l_186;
3975  goto l_37;
3976  l_186:
3977  frame_ptr--;
3978  /* PERFORM 400-Produce-Xref-Listing */
3979  frame_ptr++;
3980  if (unlikely(frame_ptr == frame_overflow))
3981  cob_fatal_error (COB_FERROR_STACK);
3982  frame_ptr->perform_through = 135;
3983  frame_ptr->return_address_ptr = &&l_187;
3984  goto l_135;
3985  l_187:
3986  frame_ptr--;
3987  cob_file_sort_close (h_F_SORT_WORK_FILE);
3988 
3989  /* Line: 2422 : CLOSE : GCic.cbl */
3990  cob_set_location (st_5, 2422, st_9, NULL, st_24);
3991  cob_close (h_F_LISTING_FILE, NULL, 0, 0);
3992  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
3993  {
3994  /* PERFORM Default Error Handler */
3995  frame_ptr++;
3996  if (unlikely(frame_ptr == frame_overflow))
3997  cob_fatal_error (COB_FERROR_STACK);
3998  frame_ptr->perform_through = 1;
3999  frame_ptr->return_address_ptr = &&l_188;
4000  goto l_1;
4001  l_188:
4002  frame_ptr--;
4003  }
4004 
4005  /* Line: 2424 : GOBACK : GCic.cbl */
4006  cob_set_location (st_5, 2424, st_9, NULL, st_8);
4007  goto exit_program;
4008 
4009  /* Line: 2429 : Section 100-Initialization : GCic.cbl */
4010  l_35:;
4011 
4012  /* Line: 2430 : MOVE : GCic.cbl */
4013  cob_set_location (st_5, 2430, st_12, NULL, st_4);
4014  (*(int *)(b_461)) = 0;
4015 
4016  /* Line: 2431 : MOVE : GCic.cbl */
4017  cob_set_location (st_5, 2431, st_12, NULL, st_4);
4018  *(b_438) = 78;
4019 
4020  /* Line: 2432 : MOVE : GCic.cbl */
4021  cob_set_location (st_5, 2432, st_12, NULL, st_4);
4022  memset (b_411, 32, 86);
4023 
4024  /* Line: 2433 : STRING : GCic.cbl */
4025  cob_set_location (st_5, 2433, st_12, NULL, st_21);
4026  cob_string_init (&f_411, NULL);
4027  cob_string_delimited (NULL);
4028  cob_string_append ((cob_field *)&c_104);
4029  cob_string_delimited (&cob_all_space);
4030  cob_string_append (COB_SET_FLD(f0, 14, b_453 + 14 * (cob_get_numdisp (b_1287, 1) - 1), &a_1));
4031  cob_string_delimited (NULL);
4032  cob_string_append ((cob_field *)&c_105);
4033  cob_string_finish ();
4034 
4035  /* Line: 2438 : MOVE : GCic.cbl */
4036  cob_set_location (st_5, 2438, st_12, NULL, st_4);
4037  memcpy (b_1270, "GNU COBOL 2.1 23NOV2013", 23);
4038 
4039  /* Line: 2439 : MOVE : GCic.cbl */
4040  cob_set_location (st_5, 2439, st_12, NULL, st_4);
4041  cob_move (cob_intr_trim (0, 0, COB_SET_DATA (f_1286, b_1286), 1), COB_SET_DATA (f_1286, b_1286));
4042 
4043  /* Line: 2440 : PERFORM : GCic.cbl */
4044  cob_set_location (st_5, 2440, st_12, NULL, st_10);
4045  cob_move (cob_intr_length (COB_SET_DATA (f_1286, b_1286)), &f_445);
4046  for (;;)
4047  {
4048  if (((((int)(int)(*(b_1286 + ((*(int *)(b_445)) - 1)) - 47) == 0) ||
4049  ((int)(int)(*(b_1286 + ((*(int *)(b_445)) - 1)) - 92) == 0)) ||
4050  ((int)cob_cmp_s32 (b_445, 0LL) == 0)))
4051  break;
4052  ;
4053  (*(int *)(b_445)) = ((*(int *)(b_445)) + -1);
4054  }
4055 
4056  /* Line: 2444 : IF : GCic.cbl */
4057  cob_set_location (st_5, 2444, st_12, NULL, st_6);
4058  if (((int)cob_cmp_s32 (b_445, 0LL) == 0))
4059  {
4060 
4061  /* Line: 2445 : MOVE : GCic.cbl */
4062  cob_set_location (st_5, 2445, st_12, NULL, st_4);
4063  cob_move (cob_intr_upper_case (0, 0, COB_SET_DATA (f_1286, b_1286)), &f_450);
4064  }
4065  else
4066  {
4067  /* ELSE */
4068 
4069  /* Line: 2447 : ADD : GCic.cbl */
4070  cob_set_location (st_5, 2447, st_12, NULL, st_15);
4071  (*(int *)(b_445)) = ((*(int *)(b_445)) + 1);
4072 
4073  /* Line: 2448 : MOVE : GCic.cbl */
4074  cob_set_location (st_5, 2448, st_12, NULL, st_4);
4075  cob_move (cob_intr_upper_case (0, 0, COB_SET_FLD(f0, 256 - ((*(int *)(b_445)) - 1), b_1286 + ((*(int *)(b_445)) - 1), &a_1)), &f_450);
4076  }
4077 
4078  /* Line: 2451 : IF : GCic.cbl */
4079  cob_set_location (st_5, 2451, st_12, NULL, st_6);
4080  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
4081  {
4082 
4083  /* Line: 2452 : MOVE : GCic.cbl */
4084  cob_set_location (st_5, 2452, st_12, NULL, st_4);
4085  *(b_1284) = 56;
4086 
4087  /* Line: 2453 : ACCEPT : GCic.cbl */
4088  cob_set_location (st_5, 2453, st_12, NULL, st_14);
4089  cob_get_environment ((cob_field *)&c_106, &f_449);
4090  }
4091  else
4092  {
4093  /* ELSE */
4094 
4095  /* Line: 2456 : MOVE : GCic.cbl */
4096  cob_set_location (st_5, 2456, st_12, NULL, st_4);
4097  *(b_1284) = 51;
4098 
4099  /* Line: 2457 : ACCEPT : GCic.cbl */
4100  cob_set_location (st_5, 2457, st_12, NULL, st_14);
4101  cob_get_environment ((cob_field *)&c_107, &f_449);
4102  }
4103 
4104  /* Line: 2460 : INSPECT : GCic.cbl */
4105  cob_set_location (st_5, 2460, st_12, NULL, st_13);
4106  cob_inspect_init (COB_SET_DATA (f_1286, b_1286), 1);
4107  cob_inspect_start ();
4108  cob_inspect_all ((cob_field *)&c_9, (cob_field *)&c_108);
4109  cob_inspect_finish ();
4110 
4111  /* Line: 2461 : MOVE : GCic.cbl */
4112  cob_set_location (st_5, 2461, st_12, NULL, st_4);
4113  memmove (b_465, b_1286, 135);
4114 
4115  /* Line: 2462 : CALL : GCic.cbl */
4116  cob_set_location (st_5, 2462, st_12, NULL, st_18);
4117  cob_procedure_params[0] = &f_465;
4118  cob_procedure_params[1] = (cob_field *)&c_109;
4119  cob_glob_ptr->cob_call_params = 2;
4120  b_377 = cob_sys_justify (b_465, (cob_u8_ptr)"Right");
4121 
4122  /* Line: 2463 : MOVE : GCic.cbl */
4123  cob_set_location (st_5, 2463, st_12, NULL, st_4);
4124  cob_move (cob_intr_length (cob_intr_trim (0, 0, COB_SET_DATA (f_1286, b_1286), 2)), &f_445);
4125 
4126  /* Line: 2464 : MOVE : GCic.cbl */
4127  cob_set_location (st_5, 2464, st_12, NULL, st_4);
4128  (*(int *)(b_446)) = 0;
4129 
4130  /* Line: 2465 : PERFORM : GCic.cbl */
4131  cob_set_location (st_5, 2465, st_12, NULL, st_10);
4132  for (;;)
4133  {
4134  if ((((int)(int)(*(b_1286 + ((*(int *)(b_445)) - 1)) - 47) == 0) ||
4135  ((int)cob_cmp_s32 (b_445, 0LL) == 0)))
4136  break;
4137 
4138  /* Line: 2467 : SUBTRACT : GCic.cbl */
4139  cob_set_location (st_5, 2467, st_12, NULL, st_17);
4140  (*(int *)(b_445)) = ((*(int *)(b_445)) - 1);
4141 
4142  /* Line: 2468 : ADD : GCic.cbl */
4143  cob_set_location (st_5, 2468, st_12, NULL, st_15);
4144  (*(int *)(b_446)) = ((*(int *)(b_446)) + 1);
4145  }
4146 
4147  /* Line: 2470 : UNSTRING : GCic.cbl */
4148  cob_set_location (st_5, 2470, st_12, NULL, st_16);
4149  cob_unstring_init (COB_SET_FLD(f0, (*(int *)(b_446)), b_1286 + (((*(int *)(b_445)) + 1) - 1), &a_1), NULL, 1);
4150  cob_unstring_delimited ((cob_field *)&c_110, 0);
4151  cob_unstring_into (&f_437, 0, 0);
4152  cob_unstring_into (&f_435, 0, 0);
4153  cob_unstring_finish ();
4154 
4155  /* Line: 2474 : STRING : GCic.cbl */
4156  cob_set_location (st_5, 2474, st_12, NULL, st_21);
4157  cob_string_init (&f_436, NULL);
4158  cob_string_delimited (NULL);
4159  cob_string_append (cob_intr_trim (0, 0, &f_437, 2));
4160  cob_string_append ((cob_field *)&c_59);
4161  cob_string_finish ();
4162 
4163  /* Line: 2479 : CALL : GCic.cbl */
4164  cob_set_location (st_5, 2479, st_12, NULL, st_18);
4165  cob_procedure_params[0] = &f_436;
4166  cob_procedure_params[1] = &f_1253;
4167  cob_glob_ptr->cob_call_params = 2;
4168  b_377 = cob_sys_check_file_exist (b_436, b_1253);
4169 
4170  /* Line: 2481 : IF : GCic.cbl */
4171  cob_set_location (st_5, 2481, st_12, NULL, st_6);
4172  if (((int)(b_377 - 0) != 0))
4173  {
4174 
4175  /* Line: 2483 : GOBACK : GCic.cbl */
4176  cob_set_location (st_5, 2483, st_12, NULL, st_8);
4177  goto exit_program;
4178  }
4179 
4180  /* Line: 2484 : IF : GCic.cbl */
4181  cob_set_location (st_5, 2484, st_12, NULL, st_6);
4182  if (((int)cob_cmp (&f_449, &cob_all_space) != 0))
4183  {
4184 
4185  /* Line: 2485 : MOVE : GCic.cbl */
4186  cob_set_location (st_5, 2485, st_12, NULL, st_4);
4187  cob_move (cob_intr_numval (&f_449), &f_448);
4188  }
4189  else
4190  {
4191  /* ELSE */
4192 
4193  /* Line: 2488 : IF : GCic.cbl */
4194  cob_set_location (st_5, 2488, st_12, NULL, st_6);
4195  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
4196  {
4197 
4198  /* Line: 2489 : MOVE : GCic.cbl */
4199  cob_set_location (st_5, 2489, st_12, NULL, st_4);
4200  memmove (b_448, b_1288, 4);
4201  }
4202  else
4203  {
4204  /* ELSE */
4205 
4206  /* Line: 2491 : MOVE : GCic.cbl */
4207  cob_set_location (st_5, 2491, st_12, NULL, st_4);
4208  memmove (b_448, b_1289, 4);
4209  }
4210  }
4211 
4212  /* Line: 2494 : SUBTRACT : GCic.cbl */
4213  cob_set_location (st_5, 2494, st_12, NULL, st_17);
4214  (*(int *)(b_448)) = ((*(int *)(b_448)) - 3);
4215 
4216  /* Line: 2495 : ACCEPT : GCic.cbl */
4217  cob_set_location (st_5, 2495, st_12, NULL, st_14);
4218  cob_accept_date_yyyymmdd (&f_1254);
4219 
4220  /* Line: 2496 : MOVE : GCic.cbl */
4221  cob_set_location (st_5, 2496, st_12, NULL, st_4);
4222  cob_move (&f_1254, &f_440);
4223 
4224  /* Line: 2497 : MOVE : GCic.cbl */
4225  cob_set_location (st_5, 2497, st_12, NULL, st_4);
4226  memcpy (b_423, "\?\?\?\?\?\?\?\?\?\?\?\?... ", 16);
4227 
4228  /* Line: 2498 : MOVE : GCic.cbl */
4229  cob_set_location (st_5, 2498, st_12, NULL, st_4);
4230  memset (b_433, 32, 12);
4231  memset (b_444, 32, 100);
4232 
4233  /* Implicit PERFORM return */
4234  if (frame_ptr->perform_through == 35)
4235  goto *frame_ptr->return_address_ptr;
4236 
4237  /* Line: 2502 : Section 300-Tokenize-Source : GCic.cbl */
4238  l_37:;
4239 
4240  /* Line: 2503 : OPEN : GCic.cbl */
4241  cob_set_location (st_5, 2503, st_34, NULL, st_22);
4242  cob_open (h_F_EXPANDED_SRC_FILE, 1, 0, NULL);
4243  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4244  {
4245  /* PERFORM Default Error Handler */
4246  frame_ptr++;
4247  if (unlikely(frame_ptr == frame_overflow))
4248  cob_fatal_error (COB_FERROR_STACK);
4249  frame_ptr->perform_through = 1;
4250  frame_ptr->return_address_ptr = &&l_189;
4251  goto l_1;
4252  l_189:
4253  frame_ptr--;
4254  }
4255 
4256  /* Line: 2504 : MOVE : GCic.cbl */
4257  cob_set_location (st_5, 2504, st_34, NULL, st_4);
4258  memset (b_388, 32, 257);
4259 
4260  /* Line: 2505 : MOVE : GCic.cbl */
4261  cob_set_location (st_5, 2505, st_34, NULL, st_4);
4262  (*(int *)(b_1246)) = 256;
4263 
4264  /* Line: 2506 : MOVE : GCic.cbl */
4265  cob_set_location (st_5, 2506, st_34, NULL, st_4);
4266  (*(int *)(b_1269)) = 0;
4267  memset (b_422, 48, 6);
4268 
4269  /* Line: 2508 : MOVE : GCic.cbl */
4270  cob_set_location (st_5, 2508, st_34, NULL, st_4);
4271  *(b_417) = 63;
4272 
4273  /* Line: 2509 : MOVE : GCic.cbl */
4274  cob_set_location (st_5, 2509, st_34, NULL, st_4);
4275  *(b_1226 + 5) = 78;
4276 
4277  /* Line: 2510 : PERFORM : GCic.cbl */
4278  cob_set_location (st_5, 2510, st_34, NULL, st_10);
4279  for (;;)
4280  {
4281 
4282  /* Line: 2511 : PERFORM : GCic.cbl */
4283  cob_set_location (st_5, 2511, st_34, NULL, st_10);
4284  /* PERFORM 310-Get-Token */
4285  frame_ptr++;
4286  if (unlikely(frame_ptr == frame_overflow))
4287  cob_fatal_error (COB_FERROR_STACK);
4288  frame_ptr->perform_through = 41;
4289  frame_ptr->return_address_ptr = &&l_190;
4290  goto l_41;
4291  l_190:
4292  frame_ptr--;
4293 
4294  /* Line: 2512 : IF : GCic.cbl */
4295  cob_set_location (st_5, 2512, st_34, NULL, st_6);
4296  if (((int)(int)(*(b_1259) - 255) == 0))
4297  {
4298 
4299  /* Line: 2513 : EXIT PERFORM : GCic.cbl */
4300  cob_set_location (st_5, 2513, st_34, NULL, st_35);
4301  goto l_39;
4302  }
4303 
4304  /* Line: 2515 : MOVE : GCic.cbl */
4305  cob_set_location (st_5, 2515, st_34, NULL, st_4);
4306  cob_move (cob_intr_upper_case (0, 0, &f_1255), &f_1256);
4307 
4308  /* Line: 2517 : IF : GCic.cbl */
4309  cob_set_location (st_5, 2517, st_34, NULL, st_6);
4310  if ((((((int)(int)(*(b_1259) - 75) == 0) ||
4311  ((int)(int)(*(b_1259) - 86) == 0)) ||
4312  ((int)(int)(*(b_1259) - 65) == 0)) ||
4313  (((int)(int)(*(b_1259) - 32) == 0) ||
4314  ((int)(int)(*(b_1259) - 70) == 0))))
4315  {
4316 
4317  /* Line: 2519 : MOVE : GCic.cbl */
4318  cob_set_location (st_5, 2519, st_34, NULL, st_4);
4319  memcpy (b_1255, b_1256, 32);
4320  }
4321 
4322  /* Line: 2521 : IF : GCic.cbl */
4323  cob_set_location (st_5, 2521, st_34, NULL, st_6);
4324  if (((int)(int)(*(b_1259) - 86) == 0))
4325  {
4326 
4327  /* Line: 2522 : MOVE : GCic.cbl */
4328  cob_set_location (st_5, 2522, st_34, NULL, st_4);
4329  memcpy (b_433, b_1256, 12);
4330  memcpy (b_1257, b_1256, 32);
4331 
4332  /* Line: 2524 : IF : GCic.cbl */
4333  cob_set_location (st_5, 2524, st_34, NULL, st_6);
4334  if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
4335  {
4336 
4337  /* Line: 2525 : MOVE : GCic.cbl */
4338  cob_set_location (st_5, 2525, st_34, NULL, st_4);
4339  cob_move (&f_444, &f_401);
4340 
4341  /* Line: 2526 : MOVE : GCic.cbl */
4342  cob_set_location (st_5, 2526, st_34, NULL, st_4);
4343  memset (b_444, 32, 100);
4344 
4345  /* Line: 2527 : RELEASE : GCic.cbl */
4346  cob_set_location (st_5, 2527, st_34, NULL, st_36);
4347  cob_file_release (h_F_SORT_WORK_FILE);
4348  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4349  {
4350  /* PERFORM Default Error Handler */
4351  frame_ptr++;
4352  if (unlikely(frame_ptr == frame_overflow))
4353  cob_fatal_error (COB_FERROR_STACK);
4354  frame_ptr->perform_through = 1;
4355  frame_ptr->return_address_ptr = &&l_191;
4356  goto l_1;
4357  l_191:
4358  frame_ptr--;
4359  }
4360  }
4361  }
4362 
4363  /* Line: 2530 : EVALUATE : GCic.cbl */
4364  cob_set_location (st_5, 2530, st_34, NULL, st_3);
4365 
4366  /* WHEN */
4367 
4368  if (((((int)(int)(*(b_417) - 105) == 0) ||
4369  ((int)(int)(*(b_417) - 73) == 0)) ||
4370  ((int)(int)(*(b_417) - 63) == 0)))
4371  {
4372 
4373  /* Line: 2532 : PERFORM : GCic.cbl */
4374  cob_set_location (st_5, 2532, st_34, NULL, st_10);
4375  /* PERFORM 320-IDENTIFICATION-DIVISION */
4376  frame_ptr++;
4377  if (unlikely(frame_ptr == frame_overflow))
4378  cob_fatal_error (COB_FERROR_STACK);
4379  frame_ptr->perform_through = 51;
4380  frame_ptr->return_address_ptr = &&l_192;
4381  goto l_51;
4382  l_192:
4383  frame_ptr--;
4384  goto l_40;
4385  }
4386 
4387  /* WHEN */
4388 
4389  if ((((int)(int)(*(b_417) - 101) == 0) ||
4390  ((int)(int)(*(b_417) - 69) == 0)))
4391  {
4392 
4393  /* Line: 2534 : PERFORM : GCic.cbl */
4394  cob_set_location (st_5, 2534, st_34, NULL, st_10);
4395  /* PERFORM 330-ENVIRONMENT-DIVISION */
4396  frame_ptr++;
4397  if (unlikely(frame_ptr == frame_overflow))
4398  cob_fatal_error (COB_FERROR_STACK);
4399  frame_ptr->perform_through = 54;
4400  frame_ptr->return_address_ptr = &&l_193;
4401  goto l_54;
4402  l_193:
4403  frame_ptr--;
4404  goto l_40;
4405  }
4406 
4407  /* WHEN */
4408 
4409  if ((((int)(int)(*(b_417) - 100) == 0) ||
4410  ((int)(int)(*(b_417) - 68) == 0)))
4411  {
4412 
4413  /* Line: 2536 : PERFORM : GCic.cbl */
4414  cob_set_location (st_5, 2536, st_34, NULL, st_10);
4415  /* PERFORM 340-DATA-DIVISION */
4416  frame_ptr++;
4417  if (unlikely(frame_ptr == frame_overflow))
4418  cob_fatal_error (COB_FERROR_STACK);
4419  frame_ptr->perform_through = 57;
4420  frame_ptr->return_address_ptr = &&l_194;
4421  goto l_57;
4422  l_194:
4423  frame_ptr--;
4424  goto l_40;
4425  }
4426 
4427  /* WHEN */
4428 
4429  if ((((int)(int)(*(b_417) - 112) == 0) ||
4430  ((int)(int)(*(b_417) - 80) == 0)))
4431  {
4432 
4433  /* Line: 2538 : PERFORM : GCic.cbl */
4434  cob_set_location (st_5, 2538, st_34, NULL, st_10);
4435  /* PERFORM 350-PROCEDURE-DIVISION */
4436  frame_ptr++;
4437  if (unlikely(frame_ptr == frame_overflow))
4438  cob_fatal_error (COB_FERROR_STACK);
4439  frame_ptr->perform_through = 61;
4440  frame_ptr->return_address_ptr = &&l_195;
4441  goto l_61;
4442  l_195:
4443  frame_ptr--;
4444  goto l_40;
4445  }
4446 
4447  /* End EVALUATE */
4448  l_40:;
4449 
4450  /* Line: 2540 : IF : GCic.cbl */
4451  cob_set_location (st_5, 2540, st_34, NULL, st_6);
4452  if (((((int)(int)(*(b_1259) - 75) == 0) ||
4453  ((int)(int)(*(b_1259) - 86) == 0)) ||
4454  ((int)(int)(*(b_1259) - 65) == 0)))
4455  {
4456 
4457  /* Line: 2541 : MOVE : GCic.cbl */
4458  cob_set_location (st_5, 2541, st_34, NULL, st_4);
4459  memcpy (b_1257, b_1256, 32);
4460  }
4461 
4462  /* Line: 2543 : IF : GCic.cbl */
4463  cob_set_location (st_5, 2543, st_34, NULL, st_6);
4464  if ((((int)(int)(*(b_1226 + 4) - 89) == 0) &&
4465  ((int)(int)(*(b_417) - 73) != 0)))
4466  {
4467 
4468  /* Line: 2545 : MOVE : GCic.cbl */
4469  cob_set_location (st_5, 2545, st_34, NULL, st_4);
4470  memset (b_1257, 32, 32);
4471  memset (b_433, 32, 12);
4472  }
4473  }
4474 
4475  /* Implicit EXIT label */
4476  l_39:;
4477 
4478  /* Line: 2550 : CLOSE : GCic.cbl */
4479  cob_set_location (st_5, 2550, st_34, NULL, st_24);
4480  cob_close (h_F_EXPANDED_SRC_FILE, NULL, 0, 0);
4481  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4482  {
4483  /* PERFORM Default Error Handler */
4484  frame_ptr++;
4485  if (unlikely(frame_ptr == frame_overflow))
4486  cob_fatal_error (COB_FERROR_STACK);
4487  frame_ptr->perform_through = 1;
4488  frame_ptr->return_address_ptr = &&l_196;
4489  goto l_1;
4490  l_196:
4491  frame_ptr--;
4492  }
4493 
4494  /* Implicit PERFORM return */
4495  if (frame_ptr->perform_through == 37)
4496  goto *frame_ptr->return_address_ptr;
4497 
4498  /* Line: 2553 : Section 310-Get-Token : GCic.cbl */
4499  l_41:;
4500 
4501  /* Line: 2555 : MOVE : GCic.cbl */
4502  cob_set_location (st_5, 2555, st_37, NULL, st_4);
4503  *(b_1226 + 2) = *(b_1226 + 4);
4504 
4505  /* Line: 2557 : MOVE : GCic.cbl */
4506  cob_set_location (st_5, 2557, st_37, NULL, st_4);
4507  *(b_1226 + 4) = 78;
4508 
4509  /* Line: 2558 : PERFORM : GCic.cbl */
4510  cob_set_location (st_5, 2558, st_37, NULL, st_10);
4511  for (;;)
4512  {
4513  if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - ' ') != 0))
4514  break;
4515 
4516  /* Line: 2559 : IF : GCic.cbl */
4517  cob_set_location (st_5, 2559, st_37, NULL, st_6);
4518  if (((int)cob_cmp_s32 (b_1246, 255LL) > 0))
4519  {
4520 
4521  /* Line: 2560 : READ : GCic.cbl */
4522  cob_set_location (st_5, 2560, st_37, NULL, st_28);
4523  cob_read_next (h_F_EXPANDED_SRC_FILE, NULL, 1);
4524  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4525  {
4526  if (cob_glob_ptr->cob_exception_code == 0x0501)
4527  {
4528 
4529  /* Line: 2561 : IF : GCic.cbl */
4530  cob_set_location (st_5, 2561, st_37, NULL, st_6);
4531  if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
4532  {
4533 
4534  /* Line: 2562 : MOVE : GCic.cbl */
4535  cob_set_location (st_5, 2562, st_37, NULL, st_4);
4536  cob_move (&f_444, &f_401);
4537 
4538  /* Line: 2563 : MOVE : GCic.cbl */
4539  cob_set_location (st_5, 2563, st_37, NULL, st_4);
4540  memset (b_444, 32, 100);
4541 
4542  /* Line: 2564 : RELEASE : GCic.cbl */
4543  cob_set_location (st_5, 2564, st_37, NULL, st_36);
4544  cob_file_release (h_F_SORT_WORK_FILE);
4545  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
4546  {
4547  /* PERFORM Default Error Handler */
4548  frame_ptr++;
4549  if (unlikely(frame_ptr == frame_overflow))
4550  cob_fatal_error (COB_FERROR_STACK);
4551  frame_ptr->perform_through = 1;
4552  frame_ptr->return_address_ptr = &&l_197;
4553  goto l_1;
4554  l_197:
4555  frame_ptr--;
4556  }
4557  }
4558 
4559  /* Line: 2566 : SET : GCic.cbl */
4560  cob_set_location (st_5, 2566, st_37, NULL, st_11);
4561  *(b_1259) = 255;
4562 
4563  /* Line: 2567 : MOVE : GCic.cbl */
4564  cob_set_location (st_5, 2567, st_37, NULL, st_4);
4565  memset (b_422, 48, 6);
4566 
4567  /* Line: 2568 : EXIT SECTION : GCic.cbl */
4568  cob_set_location (st_5, 2568, st_37, NULL, st_29);
4569  goto l_43;
4570  }
4571  else
4572  {
4573  /* PERFORM Default Error Handler */
4574  frame_ptr++;
4575  if (unlikely(frame_ptr == frame_overflow))
4576  cob_fatal_error (COB_FERROR_STACK);
4577  frame_ptr->perform_through = 1;
4578  frame_ptr->return_address_ptr = &&l_198;
4579  goto l_1;
4580  l_198:
4581  frame_ptr--;
4582  }
4583  }
4584 
4585  /* Line: 2570 : IF : GCic.cbl */
4586  cob_set_location (st_5, 2570, st_37, NULL, st_6);
4587  if (((int)memcmp (b_388, (cob_u8_ptr)"#DEFLIT", 7) != 0))
4588  {
4589 
4590  /* Line: 2571 : IF : GCic.cbl */
4591  cob_set_location (st_5, 2571, st_37, NULL, st_6);
4592  if (((int)(int)(*(b_388) - 35) == 0))
4593  {
4594 
4595  /* Line: 2572 : PERFORM : GCic.cbl */
4596  cob_set_location (st_5, 2572, st_37, NULL, st_10);
4597  /* PERFORM 311-Control-Record */
4598  frame_ptr++;
4599  if (unlikely(frame_ptr == frame_overflow))
4600  cob_fatal_error (COB_FERROR_STACK);
4601  frame_ptr->perform_through = 44;
4602  frame_ptr->return_address_ptr = &&l_199;
4603  goto l_44;
4604  l_199:
4605  frame_ptr--;
4606  }
4607  else
4608  {
4609  /* ELSE */
4610 
4611  /* Line: 2574 : PERFORM : GCic.cbl */
4612  cob_set_location (st_5, 2574, st_37, NULL, st_10);
4613  /* PERFORM 312-Expanded-Src-Record */
4614  frame_ptr++;
4615  if (unlikely(frame_ptr == frame_overflow))
4616  cob_fatal_error (COB_FERROR_STACK);
4617  frame_ptr->perform_through = 46;
4618  frame_ptr->return_address_ptr = &&l_200;
4619  goto l_46;
4620  l_200:
4621  frame_ptr--;
4622  }
4623  }
4624  }
4625  else
4626  {
4627  /* ELSE */
4628 
4629  /* Line: 2578 : ADD : GCic.cbl */
4630  cob_set_location (st_5, 2578, st_37, NULL, st_15);
4631  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4632  }
4633  }
4634 
4635  /* Line: 2582 : MOVE : GCic.cbl */
4636  cob_set_location (st_5, 2582, st_37, NULL, st_4);
4637  *(b_412) = *(b_388 + ((*(int *)(b_1246)) - 1));
4638 
4639  /* Line: 2584 : MOVE : GCic.cbl */
4640  cob_set_location (st_5, 2584, st_37, NULL, st_4);
4641  *(b_451) = *(b_388 + (((*(int *)(b_1246)) + 1) - 1));
4642 
4643  /* Line: 2586 : IF : GCic.cbl */
4644  cob_set_location (st_5, 2586, st_37, NULL, st_6);
4645  if (((int)(int)(*(b_412) - 46) == 0))
4646  {
4647 
4648  /* Line: 2587 : ADD : GCic.cbl */
4649  cob_set_location (st_5, 2587, st_37, NULL, st_15);
4650  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4651 
4652  /* Line: 2588 : MOVE : GCic.cbl */
4653  cob_set_location (st_5, 2588, st_37, NULL, st_4);
4654  cob_move (&f_412, &f_1255);
4655 
4656  /* Line: 2589 : MOVE : GCic.cbl */
4657  cob_set_location (st_5, 2589, st_37, NULL, st_4);
4658  *(b_1259) = 32;
4659 
4660  /* Line: 2590 : MOVE : GCic.cbl */
4661  cob_set_location (st_5, 2590, st_37, NULL, st_4);
4662  *(b_1226 + 4) = 89;
4663 
4664  /* Line: 2591 : EXIT SECTION : GCic.cbl */
4665  cob_set_location (st_5, 2591, st_37, NULL, st_29);
4666  goto l_43;
4667  }
4668 
4669  /* Line: 2593 : IF : GCic.cbl */
4670  cob_set_location (st_5, 2593, st_37, NULL, st_6);
4671  if (((((((((((((((int)(int)(*(b_412) - 61) == 0) ||
4672  ((int)(int)(*(b_412) - 40) == 0)) ||
4673  ((int)(int)(*(b_412) - 41) == 0)) ||
4674  ((int)(int)(*(b_412) - 42) == 0)) ||
4675  ((int)(int)(*(b_412) - 47) == 0)) ||
4676  ((int)(int)(*(b_412) - 38) == 0)) ||
4677  ((int)(int)(*(b_412) - 59) == 0)) ||
4678  ((int)(int)(*(b_412) - 44) == 0)) ||
4679  ((int)(int)(*(b_412) - 60) == 0)) ||
4680  ((int)(int)(*(b_412) - 62) == 0)) ||
4681  ((int)(int)(*(b_412) - 58) == 0)) &&
4682  ((int)(int)(*(b_412) - 61) == 0)) &&
4683  ((int)(int)(*(b_417) - 80) == 0)))
4684  {
4685 
4686  /* Line: 2596 : ADD : GCic.cbl */
4687  cob_set_location (st_5, 2596, st_37, NULL, st_15);
4688  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4689 
4690  /* Line: 2597 : MOVE : GCic.cbl */
4691  cob_set_location (st_5, 2597, st_37, NULL, st_4);
4692  cob_move ((cob_field *)&c_111, &f_1255);
4693 
4694  /* Line: 2598 : MOVE : GCic.cbl */
4695  cob_set_location (st_5, 2598, st_37, NULL, st_4);
4696  *(b_1259) = 75;
4697 
4698  /* Line: 2599 : EXIT SECTION : GCic.cbl */
4699  cob_set_location (st_5, 2599, st_37, NULL, st_29);
4700  goto l_43;
4701  }
4702 
4703  /* Line: 2601 : IF : GCic.cbl */
4704  cob_set_location (st_5, 2601, st_37, NULL, st_6);
4705  if (((((((((((((((int)(int)(*(b_412) - 61) == 0) ||
4706  ((int)(int)(*(b_412) - 40) == 0)) ||
4707  ((int)(int)(*(b_412) - 41) == 0)) ||
4708  ((int)(int)(*(b_412) - 42) == 0)) ||
4709  ((int)(int)(*(b_412) - 47) == 0)) ||
4710  ((int)(int)(*(b_412) - 38) == 0)) ||
4711  ((int)(int)(*(b_412) - 59) == 0)) ||
4712  ((int)(int)(*(b_412) - 44) == 0)) ||
4713  ((int)(int)(*(b_412) - 60) == 0)) ||
4714  ((int)(int)(*(b_412) - 62) == 0)) ||
4715  ((int)(int)(*(b_412) - 58) == 0)) &&
4716  ((int)(int)(*(b_412) - 40) == 0)) &&
4717  ((int)(int)(*(b_417) - 80) == 0)))
4718  {
4719 
4720  /* Line: 2604 : MOVE : GCic.cbl */
4721  cob_set_location (st_5, 2604, st_37, NULL, st_4);
4722  memset (b_1257, 32, 32);
4723  }
4724 
4725  /* Line: 2606 : IF : GCic.cbl */
4726  cob_set_location (st_5, 2606, st_37, NULL, st_6);
4727  if (((((((((((((int)(int)(*(b_412) - 61) == 0) ||
4728  ((int)(int)(*(b_412) - 40) == 0)) ||
4729  ((int)(int)(*(b_412) - 41) == 0)) ||
4730  ((int)(int)(*(b_412) - 42) == 0)) ||
4731  ((int)(int)(*(b_412) - 47) == 0)) ||
4732  ((int)(int)(*(b_412) - 38) == 0)) ||
4733  ((int)(int)(*(b_412) - 59) == 0)) ||
4734  ((int)(int)(*(b_412) - 44) == 0)) ||
4735  ((int)(int)(*(b_412) - 60) == 0)) ||
4736  ((int)(int)(*(b_412) - 62) == 0)) ||
4737  ((int)(int)(*(b_412) - 58) == 0)))
4738  {
4739 
4740  /* Line: 2607 : ADD : GCic.cbl */
4741  cob_set_location (st_5, 2607, st_37, NULL, st_15);
4742  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4743 
4744  /* Line: 2608 : MOVE : GCic.cbl */
4745  cob_set_location (st_5, 2608, st_37, NULL, st_4);
4746  cob_move (&f_412, &f_1255);
4747 
4748  /* Line: 2609 : MOVE : GCic.cbl */
4749  cob_set_location (st_5, 2609, st_37, NULL, st_4);
4750  *(b_1259) = 32;
4751 
4752  /* Line: 2610 : EXIT SECTION : GCic.cbl */
4753  cob_set_location (st_5, 2610, st_37, NULL, st_29);
4754  goto l_43;
4755  }
4756 
4757  /* Line: 2612 : IF : GCic.cbl */
4758  cob_set_location (st_5, 2612, st_37, NULL, st_6);
4759  if ((((int)(int)(*(b_412) - 39) == 0) ||
4760  ((int)(int)(*(b_412) - 34) == 0)))
4761  {
4762 
4763  /* Line: 2613 : ADD : GCic.cbl */
4764  cob_set_location (st_5, 2613, st_37, NULL, st_15);
4765  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4766 
4767  /* Line: 2614 : UNSTRING : GCic.cbl */
4768  cob_set_location (st_5, 2614, st_37, NULL, st_16);
4769  cob_unstring_init (&f_382, &f_1246, 1);
4770  cob_unstring_delimited (&f_412, 0);
4771  cob_unstring_into (&f_1255, 0, 0);
4772  cob_unstring_finish ();
4773 
4774  /* Line: 2618 : IF : GCic.cbl */
4775  cob_set_location (st_5, 2618, st_37, NULL, st_6);
4776  if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - 46) == 0))
4777  {
4778 
4779  /* Line: 2619 : MOVE : GCic.cbl */
4780  cob_set_location (st_5, 2619, st_37, NULL, st_4);
4781  *(b_1226 + 4) = 89;
4782 
4783  /* Line: 2620 : ADD : GCic.cbl */
4784  cob_set_location (st_5, 2620, st_37, NULL, st_15);
4785  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4786  }
4787 
4788  /* Line: 2622 : SET : GCic.cbl */
4789  cob_set_location (st_5, 2622, st_37, NULL, st_11);
4790  *(b_1259) = 76;
4791 
4792  /* Line: 2623 : EXIT SECTION : GCic.cbl */
4793  cob_set_location (st_5, 2623, st_37, NULL, st_29);
4794  goto l_43;
4795  }
4796 
4797  /* Line: 2625 : IF : GCic.cbl */
4798  cob_set_location (st_5, 2625, st_37, NULL, st_6);
4799  if (((((int)(int)(*(b_412) - 120) == 0) ||
4800  ((int)(int)(*(b_412) - 88) == 0)) &&
4801  (((int)(int)(*(b_451) - 34) == 0) ||
4802  ((int)(int)(*(b_451) - 39) == 0))))
4803  {
4804 
4805  /* Line: 2626 : ADD : GCic.cbl */
4806  cob_set_location (st_5, 2626, st_37, NULL, st_15);
4807  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 2);
4808 
4809  /* Line: 2627 : UNSTRING : GCic.cbl */
4810  cob_set_location (st_5, 2627, st_37, NULL, st_16);
4811  cob_unstring_init (&f_382, &f_1246, 1);
4812  cob_unstring_delimited (&f_451, 0);
4813  cob_unstring_into (&f_1255, 0, 0);
4814  cob_unstring_finish ();
4815 
4816  /* Line: 2631 : IF : GCic.cbl */
4817  cob_set_location (st_5, 2631, st_37, NULL, st_6);
4818  if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - 46) == 0))
4819  {
4820 
4821  /* Line: 2632 : MOVE : GCic.cbl */
4822  cob_set_location (st_5, 2632, st_37, NULL, st_4);
4823  *(b_1226 + 4) = 89;
4824 
4825  /* Line: 2633 : ADD : GCic.cbl */
4826  cob_set_location (st_5, 2633, st_37, NULL, st_15);
4827  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4828  }
4829 
4830  /* Line: 2635 : SET : GCic.cbl */
4831  cob_set_location (st_5, 2635, st_37, NULL, st_11);
4832  *(b_1259) = 78;
4833 
4834  /* Line: 2636 : EXIT SECTION : GCic.cbl */
4835  cob_set_location (st_5, 2636, st_37, NULL, st_29);
4836  goto l_43;
4837  }
4838 
4839  /* Line: 2638 : IF : GCic.cbl */
4840  cob_set_location (st_5, 2638, st_37, NULL, st_6);
4841  if (((((int)(int)(*(b_412) - 122) == 0) ||
4842  ((int)(int)(*(b_412) - 90) == 0)) &&
4843  (((int)(int)(*(b_451) - 34) == 0) ||
4844  ((int)(int)(*(b_451) - 39) == 0))))
4845  {
4846 
4847  /* Line: 2639 : ADD : GCic.cbl */
4848  cob_set_location (st_5, 2639, st_37, NULL, st_15);
4849  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 2);
4850 
4851  /* Line: 2640 : UNSTRING : GCic.cbl */
4852  cob_set_location (st_5, 2640, st_37, NULL, st_16);
4853  cob_unstring_init (&f_382, &f_1246, 1);
4854  cob_unstring_delimited (&f_451, 0);
4855  cob_unstring_into (&f_1255, 0, 0);
4856  cob_unstring_finish ();
4857 
4858  /* Line: 2644 : IF : GCic.cbl */
4859  cob_set_location (st_5, 2644, st_37, NULL, st_6);
4860  if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - 46) == 0))
4861  {
4862 
4863  /* Line: 2645 : MOVE : GCic.cbl */
4864  cob_set_location (st_5, 2645, st_37, NULL, st_4);
4865  *(b_1226 + 4) = 89;
4866 
4867  /* Line: 2646 : ADD : GCic.cbl */
4868  cob_set_location (st_5, 2646, st_37, NULL, st_15);
4869  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4870  }
4871 
4872  /* Line: 2648 : SET : GCic.cbl */
4873  cob_set_location (st_5, 2648, st_37, NULL, st_11);
4874  *(b_1259) = 76;
4875 
4876  /* Line: 2649 : EXIT SECTION : GCic.cbl */
4877  cob_set_location (st_5, 2649, st_37, NULL, st_29);
4878  goto l_43;
4879  }
4880 
4881  /* Line: 2651 : IF : GCic.cbl */
4882  cob_set_location (st_5, 2651, st_37, NULL, st_6);
4883  if (((int)(int)(*(b_1226 + 3) - 89) == 0))
4884  {
4885 
4886  /* Line: 2652 : UNSTRING : GCic.cbl */
4887  cob_set_location (st_5, 2652, st_37, NULL, st_16);
4888  cob_unstring_init (&f_382, &f_1246, 2);
4889  cob_unstring_delimited ((cob_field *)&c_112, 0);
4890  cob_unstring_delimited ((cob_field *)&c_23, 0);
4891  cob_unstring_into (&f_1255, &f_434, 0);
4892  cob_unstring_finish ();
4893 
4894  /* Line: 2657 : IF : GCic.cbl */
4895  cob_set_location (st_5, 2657, st_37, NULL, st_6);
4896  if (((int)memcmp (b_434, (cob_u8_ptr)". ", 2) == 0))
4897  {
4898 
4899  /* Line: 2658 : MOVE : GCic.cbl */
4900  cob_set_location (st_5, 2658, st_37, NULL, st_4);
4901  *(b_1226 + 4) = 89;
4902 
4903  /* Line: 2659 : ADD : GCic.cbl */
4904  cob_set_location (st_5, 2659, st_37, NULL, st_15);
4905  (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
4906  }
4907 
4908  /* Line: 2661 : IF : GCic.cbl */
4909  cob_set_location (st_5, 2661, st_37, NULL, st_6);
4910  if (((int)cob_cmp (cob_intr_upper_case (0, 0, &f_1255), (cob_field *)&c_113) == 0))
4911  {
4912 
4913  /* Line: 2662 : MOVE : GCic.cbl */
4914  cob_set_location (st_5, 2662, st_37, NULL, st_4);
4915  *(b_1259) = 32;
4916 
4917  /* Line: 2663 : EXIT SECTION : GCic.cbl */
4918  cob_set_location (st_5, 2663, st_37, NULL, st_29);
4919  goto l_43;
4920  }
4921  else
4922  {
4923  /* ELSE */
4924 
4925  /* Line: 2665 : MOVE : GCic.cbl */
4926  cob_set_location (st_5, 2665, st_37, NULL, st_4);
4927  *(b_1226 + 3) = 78;
4928 
4929  /* Line: 2666 : MOVE : GCic.cbl */
4930  cob_set_location (st_5, 2666, st_37, NULL, st_4);
4931  *(b_1259) = 32;
4932 
4933  /* Line: 2667 : EXIT SECTION : GCic.cbl */
4934  cob_set_location (st_5, 2667, st_37, NULL, st_29);
4935  goto l_43;
4936  }
4937  }
4938 
4939  /* Line: 2670 : UNSTRING : GCic.cbl */
4940  cob_set_location (st_5, 2670, st_37, NULL, st_16);
4941  cob_unstring_init (&f_382, &f_1246, 13);
4942  cob_unstring_delimited ((cob_field *)&c_112, 0);
4943  cob_unstring_delimited ((cob_field *)&c_23, 0);
4944  cob_unstring_delimited ((cob_field *)&c_114, 0);
4945  cob_unstring_delimited ((cob_field *)&c_115, 0);
4946  cob_unstring_delimited ((cob_field *)&c_116, 0);
4947  cob_unstring_delimited ((cob_field *)&c_15, 0);
4948  cob_unstring_delimited ((cob_field *)&c_9, 0);
4949  cob_unstring_delimited ((cob_field *)&c_117, 0);
4950  cob_unstring_delimited ((cob_field *)&c_118, 0);
4951  cob_unstring_delimited ((cob_field *)&c_119, 0);
4952  cob_unstring_delimited ((cob_field *)&c_120, 0);
4953  cob_unstring_delimited ((cob_field *)&c_11, 0);
4954  cob_unstring_delimited ((cob_field *)&c_8, 0);
4955  cob_unstring_into (&f_1255, &f_434, 0);
4956  cob_unstring_finish ();
4957 
4958  /* Line: 2677 : IF : GCic.cbl */
4959  cob_set_location (st_5, 2677, st_37, NULL, st_6);
4960  if (((int)memcmp (b_434, (cob_u8_ptr)". ", 2) == 0))
4961  {
4962 
4963  /* Line: 2678 : MOVE : GCic.cbl */
4964  cob_set_location (st_5, 2678, st_37, NULL, st_4);
4965  *(b_1226 + 4) = 89;
4966  }
4967 
4968  /* Line: 2680 : IF : GCic.cbl */
4969  cob_set_location (st_5, 2680, st_37, NULL, st_6);
4970  if ((((int)memcmp (b_434, (cob_u8_ptr)". ", 2) != 0) &&
4971  ((int)cob_cmp (&f_434, (cob_field *)&c_23) != 0)))
4972  {
4973 
4974  /* Line: 2681 : SUBTRACT : GCic.cbl */
4975  cob_set_location (st_5, 2681, st_37, NULL, st_17);
4976  (*(int *)(b_1246)) = ((*(int *)(b_1246)) - 1);
4977  }
4978 
4979  /* Line: 2684 : MOVE : GCic.cbl */
4980  cob_set_location (st_5, 2684, st_37, NULL, st_4);
4981  cob_move (cob_intr_upper_case (0, 0, &f_1255), &f_1258);
4982 
4983  /* Line: 2685 : IF : GCic.cbl */
4984  cob_set_location (st_5, 2685, st_37, NULL, st_6);
4985  if ((((int)cob_cmp (&f_1258, (cob_field *)&c_121) == 0) ||
4986  ((int)cob_cmp (&f_1258, (cob_field *)&c_111) == 0)))
4987  {
4988 
4989  /* Line: 2686 : MOVE : GCic.cbl */
4990  cob_set_location (st_5, 2686, st_37, NULL, st_4);
4991  cob_move ((cob_field *)&c_111, &f_1255);
4992 
4993  /* Line: 2687 : MOVE : GCic.cbl */
4994  cob_set_location (st_5, 2687, st_37, NULL, st_4);
4995  *(b_1259) = 75;
4996 
4997  /* Line: 2688 : EXIT SECTION : GCic.cbl */
4998  cob_set_location (st_5, 2688, st_37, NULL, st_29);
4999  goto l_43;
5000  }
5001 
5002  /* Line: 2690 : SEARCH ALL : GCic.cbl */
5003  cob_set_location (st_5, 2690, st_37, NULL, st_38);
5004  {
5005  int ret;
5006  int head = 1 - 1;
5007  int tail = 754 + 1;
5008  for (;;)
5009  {
5010  if (head >= tail - 1)
5011  {
5012  /* Table end */
5013  break;
5014  }
5015  b_1223 = (head + tail) / 2;
5016 
5017  /* WHEN */
5018  if (((int)(ret = memcmp (b_466 + 1 + 33 * (b_1223 - 1), b_1258, 32)) == 0))
5019  {
5020 
5021  /* Line: 2692 : MOVE : GCic.cbl */
5022  cob_set_location (st_5, 2692, st_37, NULL, st_4);
5023  *(b_1259) = *(b_466 + 33 * (b_1223 - 1));
5024 
5025  /* Line: 2693 : IF : GCic.cbl */
5026  cob_set_location (st_5, 2693, st_37, NULL, st_6);
5027  if (((int)(int)(*(b_1259) - 86) == 0))
5028  {
5029 
5030  /* Line: 2694 : MOVE : GCic.cbl */
5031  cob_set_location (st_5, 2694, st_37, NULL, st_4);
5032  *(b_1226 + 5) = 89;
5033  }
5034 
5035  /* Line: 2696 : EXIT SECTION : GCic.cbl */
5036  cob_set_location (st_5, 2696, st_37, NULL, st_29);
5037  goto l_43;
5038  }
5039  if (ret < 0)
5040  head = b_1223;
5041  else
5042  tail = b_1223;
5043  }
5044  }
5045 
5046  /* Line: 2699 : SET : GCic.cbl */
5047  cob_set_location (st_5, 2699, st_37, NULL, st_11);
5048  *(b_1259) = 73;
5049 
5050  /* Line: 2700 : PERFORM : GCic.cbl */
5051  cob_set_location (st_5, 2700, st_37, NULL, st_10);
5052  /* PERFORM 313-Check-For-Numeric-Token */
5053  frame_ptr++;
5054  if (unlikely(frame_ptr == frame_overflow))
5055  cob_fatal_error (COB_FERROR_STACK);
5056  frame_ptr->perform_through = 48;
5057  frame_ptr->return_address_ptr = &&l_201;
5058  goto l_48;
5059  l_201:
5060  frame_ptr--;
5061 
5062  /* Line: 2701 : IF : GCic.cbl */
5063  cob_set_location (st_5, 2701, st_37, NULL, st_6);
5064  if (((int)(int)(*(b_1259) - 78) == 0))
5065  {
5066 
5067  /* Line: 2702 : IF : GCic.cbl */
5068  cob_set_location (st_5, 2702, st_37, NULL, st_6);
5069  if ((((int)(int)(*(b_1226 + 2) - 89) == 0) &&
5070  ((int)(int)(*(b_417) - 68) == 0)))
5071  {
5072 
5073  /* Line: 2704 : MOVE : GCic.cbl */
5074  cob_set_location (st_5, 2704, st_37, NULL, st_4);
5075  cob_move ((cob_field *)&c_122, &f_1255);
5076 
5077  /* Line: 2705 : MOVE : GCic.cbl */
5078  cob_set_location (st_5, 2705, st_37, NULL, st_4);
5079  *(b_1259) = 75;
5080 
5081  /* Line: 2706 : EXIT SECTION : GCic.cbl */
5082  cob_set_location (st_5, 2706, st_37, NULL, st_29);
5083  goto l_43;
5084  }
5085  else
5086  {
5087  /* ELSE */
5088 
5089  /* Line: 2708 : EXIT SECTION : GCic.cbl */
5090  cob_set_location (st_5, 2708, st_37, NULL, st_29);
5091  goto l_43;
5092  }
5093  }
5094 
5095  /* Implicit EXIT label */
5096  l_43:;
5097 
5098  /* Implicit PERFORM return */
5099  if (frame_ptr->perform_through == 41)
5100  goto *frame_ptr->return_address_ptr;
5101 
5102  /* Line: 2713 : Section 311-Control-Record : GCic.cbl */
5103  l_44:;
5104 
5105  /* Line: 2714 : UNSTRING : GCic.cbl */
5106  cob_set_location (st_5, 2714, st_39, NULL, st_16);
5107  cob_unstring_init (&f_384, NULL, 1);
5108  cob_unstring_delimited ((cob_field *)&c_2, 0);
5109  cob_unstring_into (&f_1248, 0, 0);
5110  cob_unstring_into (&f_1253, 0, 0);
5111  cob_unstring_into (&f_435, 0, 0);
5112  cob_unstring_finish ();
5113 
5114  /* Line: 2719 : INSPECT : GCic.cbl */
5115  cob_set_location (st_5, 2719, st_39, NULL, st_13);
5116  cob_inspect_init (&f_1248, 1);
5117  cob_inspect_start ();
5118  cob_inspect_all (&cob_all_space, (cob_field *)&c_2);
5119  cob_inspect_finish ();
5120 
5121  /* Line: 2720 : IF : GCic.cbl */
5122  cob_set_location (st_5, 2720, st_39, NULL, st_6);
5123  if (((int)memcmp (b_1248 + 0, (cob_u8_ptr)"line", 4) == 0))
5124  {
5125 
5126  /* Line: 2721 : MOVE : GCic.cbl */
5127  cob_set_location (st_5, 2721, st_39, NULL, st_4);
5128  memset (b_1248 + 0, 32, 4);
5129  }
5130 
5131  /* Line: 2723 : COMPUTE : GCic.cbl */
5132  cob_set_location (st_5, 2723, st_39, NULL, st_40);
5133  cob_decimal_set_field (d0, cob_intr_numval (&f_1248));
5134  cob_decimal_set_llint (d1, 1LL);
5135  cob_decimal_sub (d0, d1);
5136  cob_decimal_get_field (d0, &f_445, 0);
5137 
5138  /* Line: 2724 : IF : GCic.cbl */
5139  cob_set_location (st_5, 2724, st_39, NULL, st_6);
5140  if (((int)cob_cmp (cob_intr_upper_case (0, 0, cob_intr_trim (0, 0, &f_1253, 2)), cob_intr_trim (0, 0, &f_450, 0)) == 0))
5141  {
5142 
5143  /* Line: 2726 : MOVE : GCic.cbl */
5144  cob_set_location (st_5, 2726, st_39, NULL, st_4);
5145  cob_move (&f_445, &f_422);
5146 
5147  /* Line: 2727 : SET : GCic.cbl */
5148  cob_set_location (st_5, 2727, st_39, NULL, st_11);
5149  *(b_1226 + 1) = 77;
5150 
5151  /* Line: 2728 : IF : GCic.cbl */
5152  cob_set_location (st_5, 2728, st_39, NULL, st_6);
5153  if (((int)cob_cmp (&f_1235, &cob_all_space) != 0))
5154  {
5155 
5156  /* Line: 2729 : MOVE : GCic.cbl */
5157  cob_set_location (st_5, 2729, st_39, NULL, st_4);
5158  memcpy (b_427, b_1235, 15);
5159  }
5160  }
5161  else
5162  {
5163  /* ELSE */
5164 
5165  /* Line: 2732 : SET : GCic.cbl */
5166  cob_set_location (st_5, 2732, st_39, NULL, st_11);
5167  *(b_1226 + 1) = 67;
5168 
5169  /* Line: 2733 : IF : GCic.cbl */
5170  cob_set_location (st_5, 2733, st_39, NULL, st_6);
5171  if (((int)cob_cmp (&f_1235, &cob_all_space) == 0))
5172  {
5173 
5174  /* Line: 2734 : MOVE : GCic.cbl */
5175  cob_set_location (st_5, 2734, st_39, NULL, st_4);
5176  memcpy (b_1235, b_427, 15);
5177  }
5178 
5179  /* Line: 2736 : MOVE : GCic.cbl */
5180  cob_set_location (st_5, 2736, st_39, NULL, st_4);
5181  cob_move (cob_intr_length (cob_intr_trim (0, 0, &f_1253, 2)), &f_445);
5182 
5183  /* Line: 2738 : MOVE : GCic.cbl */
5184  cob_set_location (st_5, 2738, st_39, NULL, st_4);
5185  (*(int *)(b_446)) = 0;
5186 
5187  /* Line: 2739 : PERFORM : GCic.cbl */
5188  cob_set_location (st_5, 2739, st_39, NULL, st_10);
5189  for (;;)
5190  {
5191  if ((((int)(int)(*(b_1253 + ((*(int *)(b_445)) - 1)) - 47) == 0) ||
5192  ((int)cob_cmp_s32 (b_445, 0LL) == 0)))
5193  break;
5194 
5195  /* Line: 2741 : SUBTRACT : GCic.cbl */
5196  cob_set_location (st_5, 2741, st_39, NULL, st_17);
5197  (*(int *)(b_445)) = ((*(int *)(b_445)) - 1);
5198 
5199  /* Line: 2742 : ADD : GCic.cbl */
5200  cob_set_location (st_5, 2742, st_39, NULL, st_15);
5201  (*(int *)(b_446)) = ((*(int *)(b_446)) + 1);
5202  }
5203 
5204  /* Line: 2744 : UNSTRING : GCic.cbl */
5205  cob_set_location (st_5, 2744, st_39, NULL, st_16);
5206  cob_unstring_init (COB_SET_FLD(f0, (*(int *)(b_446)), b_1253 + (((*(int *)(b_445)) + 1) - 1), &a_1), NULL, 1);
5207  cob_unstring_delimited ((cob_field *)&c_110, 0);
5208  cob_unstring_into (&f_437, 0, 0);
5209  cob_unstring_into (&f_435, 0, 0);
5210  cob_unstring_finish ();
5211 
5212  /* Line: 2748 : MOVE : GCic.cbl */
5213  cob_set_location (st_5, 2748, st_39, NULL, st_4);
5214  *(b_427) = 91;
5215 
5216  /* Line: 2749 : MOVE : GCic.cbl */
5217  cob_set_location (st_5, 2749, st_39, NULL, st_4);
5218  memcpy (b_427 + 1, b_437, 13);
5219 
5220  /* Line: 2750 : IF : GCic.cbl */
5221  cob_set_location (st_5, 2750, st_39, NULL, st_6);
5222  if (((int)cob_cmp (&f_431, &cob_all_space) != 0))
5223  {
5224 
5225  /* Line: 2751 : MOVE : GCic.cbl */
5226  cob_set_location (st_5, 2751, st_39, NULL, st_4);
5227  memset (b_427 + 11, 46, 3);
5228  }
5229 
5230  /* Line: 2753 : MOVE : GCic.cbl */
5231  cob_set_location (st_5, 2753, st_39, NULL, st_4);
5232  *(b_427 + 14) = 93;
5233  }
5234 
5235  /* Line: 2755 : MOVE : GCic.cbl */
5236  cob_set_location (st_5, 2755, st_39, NULL, st_4);
5237  memset (b_388, 32, 257);
5238 
5239  /* Line: 2756 : MOVE : GCic.cbl */
5240  cob_set_location (st_5, 2756, st_39, NULL, st_4);
5241  (*(int *)(b_1246)) = 256;
5242 
5243  /* Implicit PERFORM return */
5244  if (frame_ptr->perform_through == 44)
5245  goto *frame_ptr->return_address_ptr;
5246 
5247  /* Line: 2759 : Section 312-Expanded-Src-Record : GCic.cbl */
5248  l_46:;
5249 
5250  /* Line: 2760 : IF : GCic.cbl */
5251  cob_set_location (st_5, 2760, st_41, NULL, st_6);
5252  if (((int)(int)(*(b_388 + 0) - ' ') == 0))
5253  {
5254 
5255  /* Line: 2761 : MOVE : GCic.cbl */
5256  cob_set_location (st_5, 2761, st_41, NULL, st_4);
5257  (*(int *)(b_1246)) = 2;
5258  }
5259  else
5260  {
5261  /* ELSE */
5262 
5263  /* Line: 2763 : MOVE : GCic.cbl */
5264  cob_set_location (st_5, 2763, st_41, NULL, st_4);
5265  (*(int *)(b_1246)) = 1;
5266  }
5267 
5268  /* Line: 2765 : IF : GCic.cbl */
5269  cob_set_location (st_5, 2765, st_41, NULL, st_6);
5270  if (((int)(int)(*(b_1226 + 1) - 77) == 0))
5271  {
5272 
5273  /* Line: 2766 : ADD : GCic.cbl */
5274  cob_set_location (st_5, 2766, st_41, NULL, st_15);
5275  cob_add_int (&f_422, 1, 0);
5276  }
5277 
5278  /* Implicit PERFORM return */
5279  if (frame_ptr->perform_through == 46)
5280  goto *frame_ptr->return_address_ptr;
5281 
5282  /* Line: 2770 : Section 313-Check-For-Numeric-Token: GCic.cbl */
5283  l_48:;
5284 
5285  /* Line: 2771 : MOVE : GCic.cbl */
5286  cob_set_location (st_5, 2771, st_42, NULL, st_4);
5287  memcpy (b_1249, b_1255, 32);
5288 
5289  /* Line: 2772 : INSPECT : GCic.cbl */
5290  cob_set_location (st_5, 2772, st_42, NULL, st_13);
5291  cob_inspect_init (&f_1249, 0);
5292  cob_inspect_start ();
5293  cob_inspect_converting ((cob_field *)&c_123, &cob_all_space);
5294  cob_inspect_finish ();
5295 
5296  /* Line: 2774 : IF : GCic.cbl */
5297  cob_set_location (st_5, 2774, st_42, NULL, st_6);
5298  if (((int)cob_cmp (&f_1249, &cob_all_space) == 0))
5299  {
5300 
5301  /* Line: 2775 : SET : GCic.cbl */
5302  cob_set_location (st_5, 2775, st_42, NULL, st_11);
5303  *(b_1259) = 78;
5304 
5305  /* Line: 2776 : EXIT SECTION : GCic.cbl */
5306  cob_set_location (st_5, 2776, st_42, NULL, st_29);
5307  goto l_50;
5308  }
5309 
5310  /* Line: 2778 : MOVE : GCic.cbl */
5311  cob_set_location (st_5, 2778, st_42, NULL, st_4);
5312  memset (b_1250, 32, 32);
5313  memset (b_1251, 32, 32);
5314  *(b_435) = 32;
5315 
5316  /* Line: 2781 : UNSTRING : GCic.cbl */
5317  cob_set_location (st_5, 2781, st_42, NULL, st_16);
5318  cob_unstring_init (&f_1249, NULL, 2);
5319  cob_unstring_delimited ((cob_field *)&c_124, 0);
5320  cob_unstring_delimited ((cob_field *)&c_125, 0);
5321  cob_unstring_into (&f_1250, 0, 0);
5322  cob_unstring_into (&f_1251, 0, 0);
5323  cob_unstring_into (&f_435, 0, 0);
5324  cob_unstring_finish ();
5325 
5326  /* Line: 2786 : IF : GCic.cbl */
5327  cob_set_location (st_5, 2786, st_42, NULL, st_6);
5328  if (((int)(int)(*(b_435) - ' ') != 0))
5329  {
5330 
5331  /* Line: 2787 : EXIT SECTION : GCic.cbl */
5332  cob_set_location (st_5, 2787, st_42, NULL, st_29);
5333  goto l_50;
5334  }
5335 
5336  /* Line: 2789 : IF : GCic.cbl */
5337  cob_set_location (st_5, 2789, st_42, NULL, st_6);
5338  if ((((int)(int)(*(b_1250 + 0) - 43) == 0) ||
5339  ((int)(int)(*(b_1250 + 0) - 45) == 0)))
5340  {
5341 
5342  /* Line: 2790 : MOVE : GCic.cbl */
5343  cob_set_location (st_5, 2790, st_42, NULL, st_4);
5344  *(b_1250 + 0) = 32;
5345  }
5346 
5347  /* Line: 2792 : IF : GCic.cbl */
5348  cob_set_location (st_5, 2792, st_42, NULL, st_6);
5349  if ((((int)(int)(*(b_1251 + 0) - 43) == 0) ||
5350  ((int)(int)(*(b_1251 + 0) - 45) == 0)))
5351  {
5352 
5353  /* Line: 2793 : MOVE : GCic.cbl */
5354  cob_set_location (st_5, 2793, st_42, NULL, st_4);
5355  *(b_1251 + 0) = 32;
5356  }
5357 
5358  /* Line: 2795 : MOVE : GCic.cbl */
5359  cob_set_location (st_5, 2795, st_42, NULL, st_4);
5360  (*(int *)(b_1247)) = 0;
5361 
5362  /* Line: 2796 : INSPECT : GCic.cbl */
5363  cob_set_location (st_5, 2796, st_42, NULL, st_13);
5364  cob_inspect_init (&f_1250, 0);
5365  cob_inspect_start ();
5366  cob_inspect_all (&f_1247, (cob_field *)&c_110);
5367  cob_inspect_finish ();
5368 
5369  /* Line: 2798 : IF : GCic.cbl */
5370  cob_set_location (st_5, 2798, st_42, NULL, st_6);
5371  if (((int)cob_cmp_s32 (b_1247, 1LL) == 0))
5372  {
5373 
5374  /* Line: 2799 : INSPECT : GCic.cbl */
5375  cob_set_location (st_5, 2799, st_42, NULL, st_13);
5376  cob_inspect_init (&f_1250, 1);
5377  cob_inspect_start ();
5378  cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
5379  cob_inspect_finish ();
5380  }
5381 
5382  /* Line: 2801 : INSPECT : GCic.cbl */
5383  cob_set_location (st_5, 2801, st_42, NULL, st_13);
5384  cob_inspect_init (&f_1251, 0);
5385  cob_inspect_start ();
5386  cob_inspect_all (&f_1247, (cob_field *)&c_110);
5387  cob_inspect_finish ();
5388 
5389  /* Line: 2803 : IF : GCic.cbl */
5390  cob_set_location (st_5, 2803, st_42, NULL, st_6);
5391  if (((int)cob_cmp_s32 (b_1247, 1LL) == 0))
5392  {
5393 
5394  /* Line: 2804 : INSPECT : GCic.cbl */
5395  cob_set_location (st_5, 2804, st_42, NULL, st_13);
5396  cob_inspect_init (&f_1251, 1);
5397  cob_inspect_start ();
5398  cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
5399  cob_inspect_finish ();
5400  }
5401 
5402  /* Line: 2806 : IF : GCic.cbl */
5403  cob_set_location (st_5, 2806, st_42, NULL, st_6);
5404  if ((((int)cob_cmp (&f_1250, &cob_all_space) == 0) &&
5405  ((int)memcmp (b_1250, b_1251, 32) == 0)))
5406  {
5407 
5408  /* Line: 2807 : SET : GCic.cbl */
5409  cob_set_location (st_5, 2807, st_42, NULL, st_11);
5410  *(b_1259) = 78;
5411 
5412  /* Line: 2808 : EXIT SECTION : GCic.cbl */
5413  cob_set_location (st_5, 2808, st_42, NULL, st_29);
5414  goto l_50;
5415  }
5416 
5417  /* Implicit EXIT label */
5418  l_50:;
5419 
5420  /* Implicit PERFORM return */
5421  if (frame_ptr->perform_through == 48)
5422  goto *frame_ptr->return_address_ptr;
5423 
5424  /* Line: 2812 : Section 320-IDENTIFICATION-DIVISION: GCic.cbl */
5425  l_51:;
5426 
5427  /* Line: 2813 : IF : GCic.cbl */
5428  cob_set_location (st_5, 2813, st_43, NULL, st_6);
5429  if (((int)(int)(*(b_1259) - 65) == 0))
5430  {
5431 
5432  /* Line: 2814 : SET : GCic.cbl */
5433  cob_set_location (st_5, 2814, st_43, NULL, st_11);
5434  *(b_1259) = 32;
5435  }
5436 
5437  /* Line: 2816 : MOVE : GCic.cbl */
5438  cob_set_location (st_5, 2816, st_43, NULL, st_4);
5439  *(b_1226 + 5) = 78;
5440 
5441  /* Line: 2817 : IF : GCic.cbl */
5442  cob_set_location (st_5, 2817, st_43, NULL, st_6);
5443  if ((((((int)(int)(*(b_1259) - 75) == 0) ||
5444  ((int)(int)(*(b_1259) - 86) == 0)) ||
5445  ((int)(int)(*(b_1259) - 65) == 0)) &&
5446  ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
5447  {
5448 
5449  /* Line: 2819 : MOVE : GCic.cbl */
5450  cob_set_location (st_5, 2819, st_43, NULL, st_4);
5451  *(b_417) = *(b_1257);
5452 
5453  /* Line: 2820 : EXIT SECTION : GCic.cbl */
5454  cob_set_location (st_5, 2820, st_43, NULL, st_29);
5455  goto l_53;
5456  }
5457 
5458  /* Line: 2822 : IF : GCic.cbl */
5459  cob_set_location (st_5, 2822, st_43, NULL, st_6);
5460  if ((((int)cob_cmp (&f_1257, (cob_field *)&c_127) == 0) ||
5461  ((int)cob_cmp (&f_1257, (cob_field *)&c_128) == 0)))
5462  {
5463 
5464  /* Line: 2823 : MOVE : GCic.cbl */
5465  cob_set_location (st_5, 2823, st_43, NULL, st_4);
5466  memset (b_1257, 32, 32);
5467 
5468  /* Line: 2824 : MOVE : GCic.cbl */
5469  cob_set_location (st_5, 2824, st_43, NULL, st_4);
5470  memcpy (b_423, b_1255, 16);
5471 
5472  /* Line: 2825 : IF : GCic.cbl */
5473  cob_set_location (st_5, 2825, st_43, NULL, st_6);
5474  if (((int)(int)(*(b_423 + 15) - ' ') != 0))
5475  {
5476 
5477  /* Line: 2826 : MOVE : GCic.cbl */
5478  cob_set_location (st_5, 2826, st_43, NULL, st_4);
5479  memset (b_423 + 12, 46, 3);
5480  }
5481 
5482  /* Line: 2828 : EXIT SECTION : GCic.cbl */
5483  cob_set_location (st_5, 2828, st_43, NULL, st_29);
5484  goto l_53;
5485  }
5486 
5487  /* Implicit EXIT label */
5488  l_53:;
5489 
5490  /* Implicit PERFORM return */
5491  if (frame_ptr->perform_through == 51)
5492  goto *frame_ptr->return_address_ptr;
5493 
5494  /* Line: 2832 : Section 330-ENVIRONMENT-DIVISION: GCic.cbl */
5495  l_54:;
5496 
5497  /* Line: 2833 : IF : GCic.cbl */
5498  cob_set_location (st_5, 2833, st_44, NULL, st_6);
5499  if (((int)(int)(*(b_1259) - 65) == 0))
5500  {
5501 
5502  /* Line: 2834 : SET : GCic.cbl */
5503  cob_set_location (st_5, 2834, st_44, NULL, st_11);
5504  *(b_1259) = 32;
5505  }
5506 
5507  /* Line: 2836 : IF : GCic.cbl */
5508  cob_set_location (st_5, 2836, st_44, NULL, st_6);
5509  if ((((((int)(int)(*(b_1259) - 75) == 0) ||
5510  ((int)(int)(*(b_1259) - 86) == 0)) ||
5511  ((int)(int)(*(b_1259) - 65) == 0)) &&
5512  ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
5513  {
5514 
5515  /* Line: 2838 : MOVE : GCic.cbl */
5516  cob_set_location (st_5, 2838, st_44, NULL, st_4);
5517  *(b_417) = *(b_1257);
5518 
5519  /* Line: 2839 : EXIT SECTION : GCic.cbl */
5520  cob_set_location (st_5, 2839, st_44, NULL, st_29);
5521  goto l_56;
5522  }
5523 
5524  /* Line: 2841 : IF : GCic.cbl */
5525  cob_set_location (st_5, 2841, st_44, NULL, st_6);
5526  if ((((((int)(int)(*(b_1259) - 75) == 0) ||
5527  ((int)(int)(*(b_1259) - 86) == 0)) ||
5528  ((int)(int)(*(b_1259) - 65) == 0)) &&
5529  ((int)cob_cmp (&f_1255, (cob_field *)&c_129) == 0)))
5530  {
5531 
5532  /* Line: 2843 : MOVE : GCic.cbl */
5533  cob_set_location (st_5, 2843, st_44, NULL, st_4);
5534  memcpy (b_427, b_1257, 15);
5535 
5536  /* Line: 2844 : EXIT SECTION : GCic.cbl */
5537  cob_set_location (st_5, 2844, st_44, NULL, st_29);
5538  goto l_56;
5539  }
5540 
5541  /* Line: 2846 : IF : GCic.cbl */
5542  cob_set_location (st_5, 2846, st_44, NULL, st_6);
5543  if (((int)(int)(*(b_1259) - 73) == 0))
5544  {
5545 
5546  /* Line: 2847 : IF : GCic.cbl */
5547  cob_set_location (st_5, 2847, st_44, NULL, st_6);
5548  if (((int)cob_cmp (&f_1257, (cob_field *)&c_130) == 0))
5549  {
5550 
5551  /* Line: 2848 : PERFORM : GCic.cbl */
5552  cob_set_location (st_5, 2848, st_44, NULL, st_10);
5553  /* PERFORM 360-Release-Def */
5554  frame_ptr++;
5555  if (unlikely(frame_ptr == frame_overflow))
5556  cob_fatal_error (COB_FERROR_STACK);
5557  frame_ptr->perform_through = 121;
5558  frame_ptr->return_address_ptr = &&l_202;
5559  goto l_121;
5560  l_202:
5561  frame_ptr--;
5562  }
5563  else
5564  {
5565  /* ELSE */
5566 
5567  /* Line: 2850 : PERFORM : GCic.cbl */
5568  cob_set_location (st_5, 2850, st_44, NULL, st_10);
5569  /* PERFORM 361-Release-Ref */
5570  frame_ptr++;
5571  if (unlikely(frame_ptr == frame_overflow))
5572  cob_fatal_error (COB_FERROR_STACK);
5573  frame_ptr->perform_through = 123;
5574  frame_ptr->return_address_ptr = &&l_203;
5575  goto l_123;
5576  l_203:
5577  frame_ptr--;
5578  }
5579  }
5580 
5581  /* Line: 2853 : IF : GCic.cbl */
5582  cob_set_location (st_5, 2853, st_44, NULL, st_6);
5583  if (((int)(int)(*(b_1259) - 70) == 0))
5584  {
5585 
5586  /* Line: 2854 : PERFORM : GCic.cbl */
5587  cob_set_location (st_5, 2854, st_44, NULL, st_10);
5588  /* PERFORM 361-Release-Ref */
5589  frame_ptr++;
5590  if (unlikely(frame_ptr == frame_overflow))
5591  cob_fatal_error (COB_FERROR_STACK);
5592  frame_ptr->perform_through = 123;
5593  frame_ptr->return_address_ptr = &&l_204;
5594  goto l_123;
5595  l_204:
5596  frame_ptr--;
5597  }
5598 
5599  /* Implicit EXIT label */
5600  l_56:;
5601 
5602  /* Implicit PERFORM return */
5603  if (frame_ptr->perform_through == 54)
5604  goto *frame_ptr->return_address_ptr;
5605 
5606  /* Line: 2858 : Section 340-DATA-DIVISION : GCic.cbl */
5607  l_57:;
5608 
5609  /* Line: 2859 : IF : GCic.cbl */
5610  cob_set_location (st_5, 2859, st_45, NULL, st_6);
5611  if (((int)(int)(*(b_1259) - 65) == 0))
5612  {
5613 
5614  /* Line: 2860 : SET : GCic.cbl */
5615  cob_set_location (st_5, 2860, st_45, NULL, st_11);
5616  *(b_1259) = 32;
5617  }
5618 
5619  /* Line: 2862 : IF : GCic.cbl */
5620  cob_set_location (st_5, 2862, st_45, NULL, st_6);
5621  if ((((((int)(int)(*(b_1259) - 75) == 0) ||
5622  ((int)(int)(*(b_1259) - 86) == 0)) ||
5623  ((int)(int)(*(b_1259) - 65) == 0)) &&
5624  ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
5625  {
5626 
5627  /* Line: 2864 : MOVE : GCic.cbl */
5628  cob_set_location (st_5, 2864, st_45, NULL, st_4);
5629  *(b_417) = *(b_1257);
5630 
5631  /* Line: 2865 : EXIT SECTION : GCic.cbl */
5632  cob_set_location (st_5, 2865, st_45, NULL, st_29);
5633  goto l_59;
5634  }
5635 
5636  /* Line: 2867 : IF : GCic.cbl */
5637  cob_set_location (st_5, 2867, st_45, NULL, st_6);
5638  if ((((((int)(int)(*(b_1259) - 75) == 0) ||
5639  ((int)(int)(*(b_1259) - 86) == 0)) ||
5640  ((int)(int)(*(b_1259) - 65) == 0)) &&
5641  ((int)cob_cmp (&f_1255, (cob_field *)&c_129) == 0)))
5642  {
5643 
5644  /* Line: 2869 : MOVE : GCic.cbl */
5645  cob_set_location (st_5, 2869, st_45, NULL, st_4);
5646  memcpy (b_427, b_1257, 15);
5647 
5648  /* Line: 2870 : EXIT SECTION : GCic.cbl */
5649  cob_set_location (st_5, 2870, st_45, NULL, st_29);
5650  goto l_59;
5651  }
5652 
5653  /* Line: 2872 : IF : GCic.cbl */
5654  cob_set_location (st_5, 2872, st_45, NULL, st_6);
5655  if (((((int)cob_cmp (&f_1255, (cob_field *)&c_131) == 0) ||
5656  ((int)cob_cmp (&f_1255, (cob_field *)&c_132) == 0)) &&
5657  ((((int)(int)(*(b_1259) - 75) == 0) ||
5658  ((int)(int)(*(b_1259) - 86) == 0)) ||
5659  ((int)(int)(*(b_1259) - 65) == 0))))
5660  {
5661 
5662  /* Line: 2874 : MOVE : GCic.cbl */
5663  cob_set_location (st_5, 2874, st_45, NULL, st_4);
5664  *(b_1226 + 3) = 89;
5665 
5666  /* Line: 2875 : EXIT SECTION : GCic.cbl */
5667  cob_set_location (st_5, 2875, st_45, NULL, st_29);
5668  goto l_59;
5669  }
5670 
5671  /* Line: 2877 : IF : GCic.cbl */
5672  cob_set_location (st_5, 2877, st_45, NULL, st_6);
5673  if (((((int)(int)(*(b_1259) - 32) == 0) ||
5674  ((int)(int)(*(b_1259) - 70) == 0)) &&
5675  ((int)cob_cmp (&f_1257, (cob_field *)&c_122) == 0)))
5676  {
5677 
5678  /* Line: 2879 : MOVE : GCic.cbl */
5679  cob_set_location (st_5, 2879, st_45, NULL, st_4);
5680  memset (b_1257, 32, 32);
5681 
5682  /* Line: 2880 : EXIT SECTION : GCic.cbl */
5683  cob_set_location (st_5, 2880, st_45, NULL, st_29);
5684  goto l_59;
5685  }
5686 
5687  /* Line: 2882 : IF : GCic.cbl */
5688  cob_set_location (st_5, 2882, st_45, NULL, st_6);
5689  if (((int)(int)(*(b_1259) - 73) == 0))
5690  {
5691 
5692  /* Line: 2883 : EVALUATE : GCic.cbl */
5693  cob_set_location (st_5, 2883, st_45, NULL, st_3);
5694 
5695  /* WHEN */
5696 
5697  if (((int)cob_cmp (&f_1257, (cob_field *)&c_133) == 0))
5698  {
5699 
5700  /* Line: 2885 : PERFORM : GCic.cbl */
5701  cob_set_location (st_5, 2885, st_45, NULL, st_10);
5702  /* PERFORM 360-Release-Def */
5703  frame_ptr++;
5704  if (unlikely(frame_ptr == frame_overflow))
5705  cob_fatal_error (COB_FERROR_STACK);
5706  frame_ptr->perform_through = 121;
5707  frame_ptr->return_address_ptr = &&l_205;
5708  goto l_121;
5709  l_205:
5710  frame_ptr--;
5711 
5712  /* Line: 2886 : MOVE : GCic.cbl */
5713  cob_set_location (st_5, 2886, st_45, NULL, st_4);
5714  memset (b_1257, 32, 32);
5715  goto l_60;
5716  }
5717 
5718  /* WHEN */
5719 
5720  if (((int)cob_cmp (&f_1257, (cob_field *)&c_134) == 0))
5721  {
5722 
5723  /* Line: 2888 : PERFORM : GCic.cbl */
5724  cob_set_location (st_5, 2888, st_45, NULL, st_10);
5725  /* PERFORM 360-Release-Def */
5726  frame_ptr++;
5727  if (unlikely(frame_ptr == frame_overflow))
5728  cob_fatal_error (COB_FERROR_STACK);
5729  frame_ptr->perform_through = 121;
5730  frame_ptr->return_address_ptr = &&l_206;
5731  goto l_121;
5732  l_206:
5733  frame_ptr--;
5734 
5735  /* Line: 2889 : MOVE : GCic.cbl */
5736  cob_set_location (st_5, 2889, st_45, NULL, st_4);
5737  memset (b_1257, 32, 32);
5738  goto l_60;
5739  }
5740 
5741  /* WHEN */
5742 
5743  if (((int)cob_cmp (&f_1257, (cob_field *)&c_135) == 0))
5744  {
5745 
5746  /* Line: 2891 : PERFORM : GCic.cbl */
5747  cob_set_location (st_5, 2891, st_45, NULL, st_10);
5748  /* PERFORM 360-Release-Def */
5749  frame_ptr++;
5750  if (unlikely(frame_ptr == frame_overflow))
5751  cob_fatal_error (COB_FERROR_STACK);
5752  frame_ptr->perform_through = 121;
5753  frame_ptr->return_address_ptr = &&l_207;
5754  goto l_121;
5755  l_207:
5756  frame_ptr--;
5757 
5758  /* Line: 2892 : MOVE : GCic.cbl */
5759  cob_set_location (st_5, 2892, st_45, NULL, st_4);
5760  memset (b_1257, 32, 32);
5761  goto l_60;
5762  }
5763 
5764  /* WHEN */
5765 
5766  if (((int)cob_cmp (&f_1257, (cob_field *)&c_122) == 0))
5767  {
5768 
5769  /* Line: 2894 : PERFORM : GCic.cbl */
5770  cob_set_location (st_5, 2894, st_45, NULL, st_10);
5771  /* PERFORM 360-Release-Def */
5772  frame_ptr++;
5773  if (unlikely(frame_ptr == frame_overflow))
5774  cob_fatal_error (COB_FERROR_STACK);
5775  frame_ptr->perform_through = 121;
5776  frame_ptr->return_address_ptr = &&l_208;
5777  goto l_121;
5778  l_208:
5779  frame_ptr--;
5780 
5781  /* Line: 2895 : MOVE : GCic.cbl */
5782  cob_set_location (st_5, 2895, st_45, NULL, st_4);
5783  memset (b_1257, 32, 32);
5784  goto l_60;
5785  }
5786 
5787  /* WHEN */
5788 
5789  if (((int)cob_cmp (&f_1257, (cob_field *)&c_136) == 0))
5790  {
5791 
5792  /* Line: 2897 : PERFORM : GCic.cbl */
5793  cob_set_location (st_5, 2897, st_45, NULL, st_10);
5794  /* PERFORM 360-Release-Def */
5795  frame_ptr++;
5796  if (unlikely(frame_ptr == frame_overflow))
5797  cob_fatal_error (COB_FERROR_STACK);
5798  frame_ptr->perform_through = 121;
5799  frame_ptr->return_address_ptr = &&l_209;
5800  goto l_121;
5801  l_209:
5802  frame_ptr--;
5803 
5804  /* Line: 2898 : MOVE : GCic.cbl */
5805  cob_set_location (st_5, 2898, st_45, NULL, st_4);
5806  memset (b_1257, 32, 32);
5807  goto l_60;
5808  }
5809 
5810  /* WHEN */
5811 
5812  if (((int)cob_cmp (&f_1257, (cob_field *)&c_137) == 0))
5813  {
5814 
5815  /* Line: 2900 : PERFORM : GCic.cbl */
5816  cob_set_location (st_5, 2900, st_45, NULL, st_10);
5817  /* PERFORM 362-Release-Upd */
5818  frame_ptr++;
5819  if (unlikely(frame_ptr == frame_overflow))
5820  cob_fatal_error (COB_FERROR_STACK);
5821  frame_ptr->perform_through = 125;
5822  frame_ptr->return_address_ptr = &&l_210;
5823  goto l_125;
5824  l_210:
5825  frame_ptr--;
5826 
5827  /* Line: 2901 : MOVE : GCic.cbl */
5828  cob_set_location (st_5, 2901, st_45, NULL, st_4);
5829  memset (b_1257, 32, 32);
5830  goto l_60;
5831  }
5832 
5833  /* WHEN */
5834 
5835  if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
5836  {
5837 
5838  /* Line: 2903 : PERFORM : GCic.cbl */
5839  cob_set_location (st_5, 2903, st_45, NULL, st_10);
5840  /* PERFORM 362-Release-Upd */
5841  frame_ptr++;
5842  if (unlikely(frame_ptr == frame_overflow))
5843  cob_fatal_error (COB_FERROR_STACK);
5844  frame_ptr->perform_through = 125;
5845  frame_ptr->return_address_ptr = &&l_211;
5846  goto l_125;
5847  l_211:
5848  frame_ptr--;
5849 
5850  /* Line: 2904 : MOVE : GCic.cbl */
5851  cob_set_location (st_5, 2904, st_45, NULL, st_4);
5852  memset (b_1257, 32, 32);
5853  goto l_60;
5854  }
5855 
5856  /* WHEN OTHER */
5857 
5858  /* Line: 2906 : IF : GCic.cbl */
5859  cob_set_location (st_5, 2906, st_45, NULL, st_6);
5860  if (((int)cob_cmp (&f_1255, (cob_field *)&c_139) != 0))
5861  {
5862 
5863  /* Line: 2907 : PERFORM : GCic.cbl */
5864  cob_set_location (st_5, 2907, st_45, NULL, st_10);
5865  /* PERFORM 361-Release-Ref */
5866  frame_ptr++;
5867  if (unlikely(frame_ptr == frame_overflow))
5868  cob_fatal_error (COB_FERROR_STACK);
5869  frame_ptr->perform_through = 123;
5870  frame_ptr->return_address_ptr = &&l_212;
5871  goto l_123;
5872  l_212:
5873  frame_ptr--;
5874  }
5875 
5876  /* End EVALUATE */
5877  l_60:;
5878 
5879  /* Line: 2910 : EXIT SECTION : GCic.cbl */
5880  cob_set_location (st_5, 2910, st_45, NULL, st_29);
5881  goto l_59;
5882  }
5883 
5884  /* Implicit EXIT label */
5885  l_59:;
5886 
5887  /* Implicit PERFORM return */
5888  if (frame_ptr->perform_through == 57)
5889  goto *frame_ptr->return_address_ptr;
5890 
5891  /* Line: 2914 : Section 350-PROCEDURE-DIVISION : GCic.cbl */
5892  l_61:;
5893 
5894  /* Line: 2915 : IF : GCic.cbl */
5895  cob_set_location (st_5, 2915, st_46, NULL, st_6);
5896  if (((int)cob_cmp (&f_427, (cob_field *)&c_140) != 0))
5897  {
5898 
5899  /* Line: 2916 : MOVE : GCic.cbl */
5900  cob_set_location (st_5, 2916, st_46, NULL, st_4);
5901  memcpy (b_427, "PROCEDURE ", 15);
5902  }
5903 
5904  /* Line: 2918 : IF : GCic.cbl */
5905  cob_set_location (st_5, 2918, st_46, NULL, st_6);
5906  if ((((int)cob_cmp (&f_1256, (cob_field *)&c_141) == 0) &&
5907  ((int)cob_cmp (&f_1257, (cob_field *)&c_142) == 0)))
5908  {
5909 
5910  /* Line: 2920 : MOVE : GCic.cbl */
5911  cob_set_location (st_5, 2920, st_46, NULL, st_4);
5912  *(b_417) = 63;
5913 
5914  /* Line: 2921 : EXIT SECTION : GCic.cbl */
5915  cob_set_location (st_5, 2921, st_46, NULL, st_29);
5916  goto l_63;
5917  }
5918 
5919  /* Line: 2923 : IF : GCic.cbl */
5920  cob_set_location (st_5, 2923, st_46, NULL, st_6);
5921  if ((((((int)(int)(*(b_1259) - 75) == 0) ||
5922  ((int)(int)(*(b_1259) - 86) == 0)) ||
5923  ((int)(int)(*(b_1259) - 65) == 0)) &&
5924  ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
5925  {
5926 
5927  /* Line: 2925 : MOVE : GCic.cbl */
5928  cob_set_location (st_5, 2925, st_46, NULL, st_4);
5929  *(b_417) = *(b_1257);
5930 
5931  /* Line: 2926 : EXIT SECTION : GCic.cbl */
5932  cob_set_location (st_5, 2926, st_46, NULL, st_29);
5933  goto l_63;
5934  }
5935 
5936  /* Line: 2928 : IF : GCic.cbl */
5937  cob_set_location (st_5, 2928, st_46, NULL, st_6);
5938  if (((((int)(int)(*(b_1259) - 73) == 0) &&
5939  ((int)cob_cmp (&f_1257, &cob_all_space) == 0)) &&
5940  ((int)cob_cmp (&f_433, &cob_all_space) == 0)))
5941  {
5942 
5943  /* Line: 2932 : PERFORM : GCic.cbl */
5944  cob_set_location (st_5, 2932, st_46, NULL, st_10);
5945  /* PERFORM 360-Release-Def */
5946  frame_ptr++;
5947  if (unlikely(frame_ptr == frame_overflow))
5948  cob_fatal_error (COB_FERROR_STACK);
5949  frame_ptr->perform_through = 121;
5950  frame_ptr->return_address_ptr = &&l_213;
5951  goto l_121;
5952  l_213:
5953  frame_ptr--;
5954 
5955  /* Line: 2933 : MOVE : GCic.cbl */
5956  cob_set_location (st_5, 2933, st_46, NULL, st_4);
5957  memset (b_1257, 32, 32);
5958 
5959  /* Line: 2934 : EXIT SECTION : GCic.cbl */
5960  cob_set_location (st_5, 2934, st_46, NULL, st_29);
5961  goto l_63;
5962  }
5963 
5964  /* Line: 2936 : IF : GCic.cbl */
5965  cob_set_location (st_5, 2936, st_46, NULL, st_6);
5966  if (!((int)(int)(*(b_1259) - 73) == 0))
5967  {
5968 
5969  /* Line: 2937 : EXIT SECTION : GCic.cbl */
5970  cob_set_location (st_5, 2937, st_46, NULL, st_29);
5971  goto l_63;
5972  }
5973 
5974  /* Line: 2939 : EVALUATE : GCic.cbl */
5975  cob_set_location (st_5, 2939, st_46, NULL, st_3);
5976 
5977  /* WHEN */
5978 
5979  if (((int)cob_cmp (&f_433, (cob_field *)&c_143) == 0))
5980  {
5981 
5982  /* Line: 2941 : PERFORM : GCic.cbl */
5983  cob_set_location (st_5, 2941, st_46, NULL, st_10);
5984  /* PERFORM 351-ACCEPT */
5985  frame_ptr++;
5986  if (unlikely(frame_ptr == frame_overflow))
5987  cob_fatal_error (COB_FERROR_STACK);
5988  frame_ptr->perform_through = 65;
5989  frame_ptr->return_address_ptr = &&l_214;
5990  goto l_65;
5991  l_214:
5992  frame_ptr--;
5993  goto l_64;
5994  }
5995 
5996  /* WHEN */
5997 
5998  if (((int)cob_cmp (&f_433, (cob_field *)&c_144) == 0))
5999  {
6000 
6001  /* Line: 2943 : PERFORM : GCic.cbl */
6002  cob_set_location (st_5, 2943, st_46, NULL, st_10);
6003  /* PERFORM 351-ADD */
6004  frame_ptr++;
6005  if (unlikely(frame_ptr == frame_overflow))
6006  cob_fatal_error (COB_FERROR_STACK);
6007  frame_ptr->perform_through = 68;
6008  frame_ptr->return_address_ptr = &&l_215;
6009  goto l_68;
6010  l_215:
6011  frame_ptr--;
6012  goto l_64;
6013  }
6014 
6015  /* WHEN */
6016 
6017  if (((int)cob_cmp (&f_433, (cob_field *)&c_145) == 0))
6018  {
6019 
6020  /* Line: 2945 : PERFORM : GCic.cbl */
6021  cob_set_location (st_5, 2945, st_46, NULL, st_10);
6022  /* PERFORM 351-ALLOCATE */
6023  frame_ptr++;
6024  if (unlikely(frame_ptr == frame_overflow))
6025  cob_fatal_error (COB_FERROR_STACK);
6026  frame_ptr->perform_through = 71;
6027  frame_ptr->return_address_ptr = &&l_216;
6028  goto l_71;
6029  l_216:
6030  frame_ptr--;
6031  goto l_64;
6032  }
6033 
6034  /* WHEN */
6035 
6036  if (((int)cob_cmp (&f_433, (cob_field *)&c_146) == 0))
6037  {
6038 
6039  /* Line: 2947 : PERFORM : GCic.cbl */
6040  cob_set_location (st_5, 2947, st_46, NULL, st_10);
6041  /* PERFORM 351-CALL */
6042  frame_ptr++;
6043  if (unlikely(frame_ptr == frame_overflow))
6044  cob_fatal_error (COB_FERROR_STACK);
6045  frame_ptr->perform_through = 74;
6046  frame_ptr->return_address_ptr = &&l_217;
6047  goto l_74;
6048  l_217:
6049  frame_ptr--;
6050  goto l_64;
6051  }
6052 
6053  /* WHEN */
6054 
6055  if (((int)cob_cmp (&f_433, (cob_field *)&c_147) == 0))
6056  {
6057 
6058  /* Line: 2949 : PERFORM : GCic.cbl */
6059  cob_set_location (st_5, 2949, st_46, NULL, st_10);
6060  /* PERFORM 351-COMPUTE */
6061  frame_ptr++;
6062  if (unlikely(frame_ptr == frame_overflow))
6063  cob_fatal_error (COB_FERROR_STACK);
6064  frame_ptr->perform_through = 77;
6065  frame_ptr->return_address_ptr = &&l_218;
6066  goto l_77;
6067  l_218:
6068  frame_ptr--;
6069  goto l_64;
6070  }
6071 
6072  /* WHEN */
6073 
6074  if (((int)cob_cmp (&f_433, (cob_field *)&c_148) == 0))
6075  {
6076 
6077  /* Line: 2951 : PERFORM : GCic.cbl */
6078  cob_set_location (st_5, 2951, st_46, NULL, st_10);
6079  /* PERFORM 351-DIVIDE */
6080  frame_ptr++;
6081  if (unlikely(frame_ptr == frame_overflow))
6082  cob_fatal_error (COB_FERROR_STACK);
6083  frame_ptr->perform_through = 80;
6084  frame_ptr->return_address_ptr = &&l_219;
6085  goto l_80;
6086  l_219:
6087  frame_ptr--;
6088  goto l_64;
6089  }
6090 
6091  /* WHEN */
6092 
6093  if (((int)cob_cmp (&f_433, (cob_field *)&c_149) == 0))
6094  {
6095 
6096  /* Line: 2953 : PERFORM : GCic.cbl */
6097  cob_set_location (st_5, 2953, st_46, NULL, st_10);
6098  /* PERFORM 351-FREE */
6099  frame_ptr++;
6100  if (unlikely(frame_ptr == frame_overflow))
6101  cob_fatal_error (COB_FERROR_STACK);
6102  frame_ptr->perform_through = 83;
6103  frame_ptr->return_address_ptr = &&l_220;
6104  goto l_83;
6105  l_220:
6106  frame_ptr--;
6107  goto l_64;
6108  }
6109 
6110  /* WHEN */
6111 
6112  if (((int)cob_cmp (&f_433, (cob_field *)&c_150) == 0))
6113  {
6114 
6115  /* Line: 2955 : PERFORM : GCic.cbl */
6116  cob_set_location (st_5, 2955, st_46, NULL, st_10);
6117  /* PERFORM 351-GENERATE */
6118  frame_ptr++;
6119  if (unlikely(frame_ptr == frame_overflow))
6120  cob_fatal_error (COB_FERROR_STACK);
6121  frame_ptr->perform_through = 85;
6122  frame_ptr->return_address_ptr = &&l_221;
6123  goto l_85;
6124  l_221:
6125  frame_ptr--;
6126  goto l_64;
6127  }
6128 
6129  /* WHEN */
6130 
6131  if (((int)cob_cmp (&f_433, (cob_field *)&c_151) == 0))
6132  {
6133 
6134  /* Line: 2957 : PERFORM : GCic.cbl */
6135  cob_set_location (st_5, 2957, st_46, NULL, st_10);
6136  /* PERFORM 351-INITIALIZE */
6137  frame_ptr++;
6138  if (unlikely(frame_ptr == frame_overflow))
6139  cob_fatal_error (COB_FERROR_STACK);
6140  frame_ptr->perform_through = 87;
6141  frame_ptr->return_address_ptr = &&l_222;
6142  goto l_87;
6143  l_222:
6144  frame_ptr--;
6145  goto l_64;
6146  }
6147 
6148  /* WHEN */
6149 
6150  if (((int)cob_cmp (&f_433, (cob_field *)&c_152) == 0))
6151  {
6152 
6153  /* Line: 2959 : PERFORM : GCic.cbl */
6154  cob_set_location (st_5, 2959, st_46, NULL, st_10);
6155  /* PERFORM 351-GENERATE */
6156  frame_ptr++;
6157  if (unlikely(frame_ptr == frame_overflow))
6158  cob_fatal_error (COB_FERROR_STACK);
6159  frame_ptr->perform_through = 85;
6160  frame_ptr->return_address_ptr = &&l_223;
6161  goto l_85;
6162  l_223:
6163  frame_ptr--;
6164  goto l_64;
6165  }
6166 
6167  /* WHEN */
6168 
6169  if (((int)cob_cmp (&f_433, (cob_field *)&c_153) == 0))
6170  {
6171 
6172  /* Line: 2961 : PERFORM : GCic.cbl */
6173  cob_set_location (st_5, 2961, st_46, NULL, st_10);
6174  /* PERFORM 351-INSPECT */
6175  frame_ptr++;
6176  if (unlikely(frame_ptr == frame_overflow))
6177  cob_fatal_error (COB_FERROR_STACK);
6178  frame_ptr->perform_through = 92;
6179  frame_ptr->return_address_ptr = &&l_224;
6180  goto l_92;
6181  l_224:
6182  frame_ptr--;
6183  goto l_64;
6184  }
6185 
6186  /* WHEN */
6187 
6188  if (((int)cob_cmp (&f_433, (cob_field *)&c_154) == 0))
6189  {
6190 
6191  /* Line: 2963 : PERFORM : GCic.cbl */
6192  cob_set_location (st_5, 2963, st_46, NULL, st_10);
6193  /* PERFORM 351-MOVE */
6194  frame_ptr++;
6195  if (unlikely(frame_ptr == frame_overflow))
6196  cob_fatal_error (COB_FERROR_STACK);
6197  frame_ptr->perform_through = 95;
6198  frame_ptr->return_address_ptr = &&l_225;
6199  goto l_95;
6200  l_225:
6201  frame_ptr--;
6202  goto l_64;
6203  }
6204 
6205  /* WHEN */
6206 
6207  if (((int)cob_cmp (&f_433, (cob_field *)&c_155) == 0))
6208  {
6209 
6210  /* Line: 2965 : PERFORM : GCic.cbl */
6211  cob_set_location (st_5, 2965, st_46, NULL, st_10);
6212  /* PERFORM 351-MULTIPLY */
6213  frame_ptr++;
6214  if (unlikely(frame_ptr == frame_overflow))
6215  cob_fatal_error (COB_FERROR_STACK);
6216  frame_ptr->perform_through = 98;
6217  frame_ptr->return_address_ptr = &&l_226;
6218  goto l_98;
6219  l_226:
6220  frame_ptr--;
6221  goto l_64;
6222  }
6223 
6224  /* WHEN */
6225 
6226  if (((int)cob_cmp (&f_433, (cob_field *)&c_156) == 0))
6227  {
6228 
6229  /* Line: 2967 : PERFORM : GCic.cbl */
6230  cob_set_location (st_5, 2967, st_46, NULL, st_10);
6231  /* PERFORM 351-PERFORM */
6232  frame_ptr++;
6233  if (unlikely(frame_ptr == frame_overflow))
6234  cob_fatal_error (COB_FERROR_STACK);
6235  frame_ptr->perform_through = 101;
6236  frame_ptr->return_address_ptr = &&l_227;
6237  goto l_101;
6238  l_227:
6239  frame_ptr--;
6240  goto l_64;
6241  }
6242 
6243  /* WHEN */
6244 
6245  if (((int)cob_cmp (&f_433, (cob_field *)&c_157) == 0))
6246  {
6247 
6248  /* Line: 2969 : PERFORM : GCic.cbl */
6249  cob_set_location (st_5, 2969, st_46, NULL, st_10);
6250  /* PERFORM 351-SET */
6251  frame_ptr++;
6252  if (unlikely(frame_ptr == frame_overflow))
6253  cob_fatal_error (COB_FERROR_STACK);
6254  frame_ptr->perform_through = 104;
6255  frame_ptr->return_address_ptr = &&l_228;
6256  goto l_104;
6257  l_228:
6258  frame_ptr--;
6259  goto l_64;
6260  }
6261 
6262  /* WHEN */
6263 
6264  if (((int)cob_cmp (&f_433, (cob_field *)&c_158) == 0))
6265  {
6266 
6267  /* Line: 2971 : PERFORM : GCic.cbl */
6268  cob_set_location (st_5, 2971, st_46, NULL, st_10);
6269  /* PERFORM 351-STRING */
6270  frame_ptr++;
6271  if (unlikely(frame_ptr == frame_overflow))
6272  cob_fatal_error (COB_FERROR_STACK);
6273  frame_ptr->perform_through = 107;
6274  frame_ptr->return_address_ptr = &&l_229;
6275  goto l_107;
6276  l_229:
6277  frame_ptr--;
6278  goto l_64;
6279  }
6280 
6281  /* WHEN */
6282 
6283  if (((int)cob_cmp (&f_433, (cob_field *)&c_159) == 0))
6284  {
6285 
6286  /* Line: 2973 : PERFORM : GCic.cbl */
6287  cob_set_location (st_5, 2973, st_46, NULL, st_10);
6288  /* PERFORM 351-SUBTRACT */
6289  frame_ptr++;
6290  if (unlikely(frame_ptr == frame_overflow))
6291  cob_fatal_error (COB_FERROR_STACK);
6292  frame_ptr->perform_through = 110;
6293  frame_ptr->return_address_ptr = &&l_230;
6294  goto l_110;
6295  l_230:
6296  frame_ptr--;
6297  goto l_64;
6298  }
6299 
6300  /* WHEN */
6301 
6302  if (((int)cob_cmp (&f_433, (cob_field *)&c_160) == 0))
6303  {
6304 
6305  /* Line: 2975 : PERFORM : GCic.cbl */
6306  cob_set_location (st_5, 2975, st_46, NULL, st_10);
6307  /* PERFORM 351-GENERATE */
6308  frame_ptr++;
6309  if (unlikely(frame_ptr == frame_overflow))
6310  cob_fatal_error (COB_FERROR_STACK);
6311  frame_ptr->perform_through = 85;
6312  frame_ptr->return_address_ptr = &&l_231;
6313  goto l_85;
6314  l_231:
6315  frame_ptr--;
6316  goto l_64;
6317  }
6318 
6319  /* WHEN */
6320 
6321  if (((int)cob_cmp (&f_433, (cob_field *)&c_161) == 0))
6322  {
6323 
6324  /* Line: 2977 : PERFORM : GCic.cbl */
6325  cob_set_location (st_5, 2977, st_46, NULL, st_10);
6326  /* PERFORM 351-TRANSFORM */
6327  frame_ptr++;
6328  if (unlikely(frame_ptr == frame_overflow))
6329  cob_fatal_error (COB_FERROR_STACK);
6330  frame_ptr->perform_through = 115;
6331  frame_ptr->return_address_ptr = &&l_232;
6332  goto l_115;
6333  l_232:
6334  frame_ptr--;
6335  goto l_64;
6336  }
6337 
6338  /* WHEN */
6339 
6340  if (((int)cob_cmp (&f_433, (cob_field *)&c_162) == 0))
6341  {
6342 
6343  /* Line: 2979 : PERFORM : GCic.cbl */
6344  cob_set_location (st_5, 2979, st_46, NULL, st_10);
6345  /* PERFORM 351-UNSTRING */
6346  frame_ptr++;
6347  if (unlikely(frame_ptr == frame_overflow))
6348  cob_fatal_error (COB_FERROR_STACK);
6349  frame_ptr->perform_through = 118;
6350  frame_ptr->return_address_ptr = &&l_233;
6351  goto l_118;
6352  l_233:
6353  frame_ptr--;
6354  goto l_64;
6355  }
6356 
6357  /* WHEN OTHER */
6358 
6359  /* Line: 2981 : PERFORM : GCic.cbl */
6360  cob_set_location (st_5, 2981, st_46, NULL, st_10);
6361  /* PERFORM 361-Release-Ref */
6362  frame_ptr++;
6363  if (unlikely(frame_ptr == frame_overflow))
6364  cob_fatal_error (COB_FERROR_STACK);
6365  frame_ptr->perform_through = 123;
6366  frame_ptr->return_address_ptr = &&l_234;
6367  goto l_123;
6368  l_234:
6369  frame_ptr--;
6370 
6371  /* End EVALUATE */
6372  l_64:;
6373 
6374  /* Implicit EXIT label */
6375  l_63:;
6376 
6377  /* Implicit PERFORM return */
6378  if (frame_ptr->perform_through == 61)
6379  goto *frame_ptr->return_address_ptr;
6380 
6381  /* Line: 2985 : Section 351-ACCEPT : GCic.cbl */
6382  l_65:;
6383 
6384  /* Line: 2986 : EVALUATE : GCic.cbl */
6385  cob_set_location (st_5, 2986, st_47, NULL, st_3);
6386 
6387  /* WHEN */
6388 
6389  if (((int)cob_cmp (&f_1257, (cob_field *)&c_143) == 0))
6390  {
6391 
6392  /* Line: 2988 : PERFORM : GCic.cbl */
6393  cob_set_location (st_5, 2988, st_47, NULL, st_10);
6394  /* PERFORM 362-Release-Upd */
6395  frame_ptr++;
6396  if (unlikely(frame_ptr == frame_overflow))
6397  cob_fatal_error (COB_FERROR_STACK);
6398  frame_ptr->perform_through = 125;
6399  frame_ptr->return_address_ptr = &&l_235;
6400  goto l_125;
6401  l_235:
6402  frame_ptr--;
6403 
6404  /* Line: 2989 : MOVE : GCic.cbl */
6405  cob_set_location (st_5, 2989, st_47, NULL, st_4);
6406  memset (b_1257, 32, 32);
6407  goto l_67;
6408  }
6409 
6410  /* WHEN OTHER */
6411 
6412  /* Line: 2991 : PERFORM : GCic.cbl */
6413  cob_set_location (st_5, 2991, st_47, NULL, st_10);
6414  /* PERFORM 361-Release-Ref */
6415  frame_ptr++;
6416  if (unlikely(frame_ptr == frame_overflow))
6417  cob_fatal_error (COB_FERROR_STACK);
6418  frame_ptr->perform_through = 123;
6419  frame_ptr->return_address_ptr = &&l_236;
6420  goto l_123;
6421  l_236:
6422  frame_ptr--;
6423 
6424  /* End EVALUATE */
6425  l_67:;
6426 
6427  /* Implicit PERFORM return */
6428  if (frame_ptr->perform_through == 65)
6429  goto *frame_ptr->return_address_ptr;
6430 
6431  /* Line: 2995 : Section 351-ADD : GCic.cbl */
6432  l_68:;
6433 
6434  /* Line: 2996 : EVALUATE : GCic.cbl */
6435  cob_set_location (st_5, 2996, st_48, NULL, st_3);
6436 
6437  /* WHEN */
6438 
6439  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
6440  {
6441 
6442  /* Line: 2998 : PERFORM : GCic.cbl */
6443  cob_set_location (st_5, 2998, st_48, NULL, st_10);
6444  /* PERFORM 362-Release-Upd */
6445  frame_ptr++;
6446  if (unlikely(frame_ptr == frame_overflow))
6447  cob_fatal_error (COB_FERROR_STACK);
6448  frame_ptr->perform_through = 125;
6449  frame_ptr->return_address_ptr = &&l_237;
6450  goto l_125;
6451  l_237:
6452  frame_ptr--;
6453  goto l_70;
6454  }
6455 
6456  /* WHEN */
6457 
6458  if (((int)cob_cmp (&f_1257, (cob_field *)&c_164) == 0))
6459  {
6460 
6461  /* Line: 3000 : PERFORM : GCic.cbl */
6462  cob_set_location (st_5, 3000, st_48, NULL, st_10);
6463  /* PERFORM 362-Release-Upd */
6464  frame_ptr++;
6465  if (unlikely(frame_ptr == frame_overflow))
6466  cob_fatal_error (COB_FERROR_STACK);
6467  frame_ptr->perform_through = 125;
6468  frame_ptr->return_address_ptr = &&l_238;
6469  goto l_125;
6470  l_238:
6471  frame_ptr--;
6472  goto l_70;
6473  }
6474 
6475  /* WHEN OTHER */
6476 
6477  /* Line: 3002 : PERFORM : GCic.cbl */
6478  cob_set_location (st_5, 3002, st_48, NULL, st_10);
6479  /* PERFORM 361-Release-Ref */
6480  frame_ptr++;
6481  if (unlikely(frame_ptr == frame_overflow))
6482  cob_fatal_error (COB_FERROR_STACK);
6483  frame_ptr->perform_through = 123;
6484  frame_ptr->return_address_ptr = &&l_239;
6485  goto l_123;
6486  l_239:
6487  frame_ptr--;
6488 
6489  /* End EVALUATE */
6490  l_70:;
6491 
6492  /* Implicit PERFORM return */
6493  if (frame_ptr->perform_through == 68)
6494  goto *frame_ptr->return_address_ptr;
6495 
6496  /* Line: 3006 : Section 351-ALLOCATE : GCic.cbl */
6497  l_71:;
6498 
6499  /* Line: 3007 : EVALUATE : GCic.cbl */
6500  cob_set_location (st_5, 3007, st_49, NULL, st_3);
6501 
6502  /* WHEN */
6503 
6504  if (((int)cob_cmp (&f_1257, (cob_field *)&c_145) == 0))
6505  {
6506 
6507  /* Line: 3009 : PERFORM : GCic.cbl */
6508  cob_set_location (st_5, 3009, st_49, NULL, st_10);
6509  /* PERFORM 362-Release-Upd */
6510  frame_ptr++;
6511  if (unlikely(frame_ptr == frame_overflow))
6512  cob_fatal_error (COB_FERROR_STACK);
6513  frame_ptr->perform_through = 125;
6514  frame_ptr->return_address_ptr = &&l_240;
6515  goto l_125;
6516  l_240:
6517  frame_ptr--;
6518 
6519  /* Line: 3010 : MOVE : GCic.cbl */
6520  cob_set_location (st_5, 3010, st_49, NULL, st_4);
6521  memset (b_1257, 32, 32);
6522  goto l_73;
6523  }
6524 
6525  /* WHEN */
6526 
6527  if (((int)cob_cmp (&f_1257, (cob_field *)&c_165) == 0))
6528  {
6529 
6530  /* Line: 3012 : PERFORM : GCic.cbl */
6531  cob_set_location (st_5, 3012, st_49, NULL, st_10);
6532  /* PERFORM 362-Release-Upd */
6533  frame_ptr++;
6534  if (unlikely(frame_ptr == frame_overflow))
6535  cob_fatal_error (COB_FERROR_STACK);
6536  frame_ptr->perform_through = 125;
6537  frame_ptr->return_address_ptr = &&l_241;
6538  goto l_125;
6539  l_241:
6540  frame_ptr--;
6541  goto l_73;
6542  }
6543 
6544  /* WHEN OTHER */
6545 
6546  /* Line: 3014 : PERFORM : GCic.cbl */
6547  cob_set_location (st_5, 3014, st_49, NULL, st_10);
6548  /* PERFORM 361-Release-Ref */
6549  frame_ptr++;
6550  if (unlikely(frame_ptr == frame_overflow))
6551  cob_fatal_error (COB_FERROR_STACK);
6552  frame_ptr->perform_through = 123;
6553  frame_ptr->return_address_ptr = &&l_242;
6554  goto l_123;
6555  l_242:
6556  frame_ptr--;
6557 
6558  /* End EVALUATE */
6559  l_73:;
6560 
6561  /* Implicit PERFORM return */
6562  if (frame_ptr->perform_through == 71)
6563  goto *frame_ptr->return_address_ptr;
6564 
6565  /* Line: 3018 : Section 351-CALL : GCic.cbl */
6566  l_74:;
6567 
6568  /* Line: 3019 : EVALUATE : GCic.cbl */
6569  cob_set_location (st_5, 3019, st_50, NULL, st_3);
6570 
6571  /* WHEN */
6572 
6573  if (((int)cob_cmp (&f_1257, (cob_field *)&c_165) == 0))
6574  {
6575 
6576  /* Line: 3021 : PERFORM : GCic.cbl */
6577  cob_set_location (st_5, 3021, st_50, NULL, st_10);
6578  /* PERFORM 362-Release-Upd */
6579  frame_ptr++;
6580  if (unlikely(frame_ptr == frame_overflow))
6581  cob_fatal_error (COB_FERROR_STACK);
6582  frame_ptr->perform_through = 125;
6583  frame_ptr->return_address_ptr = &&l_243;
6584  goto l_125;
6585  l_243:
6586  frame_ptr--;
6587  goto l_76;
6588  }
6589 
6590  /* WHEN */
6591 
6592  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
6593  {
6594 
6595  /* Line: 3023 : PERFORM : GCic.cbl */
6596  cob_set_location (st_5, 3023, st_50, NULL, st_10);
6597  /* PERFORM 362-Release-Upd */
6598  frame_ptr++;
6599  if (unlikely(frame_ptr == frame_overflow))
6600  cob_fatal_error (COB_FERROR_STACK);
6601  frame_ptr->perform_through = 125;
6602  frame_ptr->return_address_ptr = &&l_244;
6603  goto l_125;
6604  l_244:
6605  frame_ptr--;
6606  goto l_76;
6607  }
6608 
6609  /* WHEN OTHER */
6610 
6611  /* Line: 3025 : PERFORM : GCic.cbl */
6612  cob_set_location (st_5, 3025, st_50, NULL, st_10);
6613  /* PERFORM 365-Release-Arg */
6614  frame_ptr++;
6615  if (unlikely(frame_ptr == frame_overflow))
6616  cob_fatal_error (COB_FERROR_STACK);
6617  frame_ptr->perform_through = 131;
6618  frame_ptr->return_address_ptr = &&l_245;
6619  goto l_131;
6620  l_245:
6621  frame_ptr--;
6622 
6623  /* End EVALUATE */
6624  l_76:;
6625 
6626  /* Implicit PERFORM return */
6627  if (frame_ptr->perform_through == 74)
6628  goto *frame_ptr->return_address_ptr;
6629 
6630  /* Line: 3029 : Section 351-COMPUTE : GCic.cbl */
6631  l_77:;
6632 
6633  /* Line: 3030 : EVALUATE : GCic.cbl */
6634  cob_set_location (st_5, 3030, st_51, NULL, st_3);
6635 
6636  /* WHEN */
6637 
6638  if (((int)cob_cmp (&f_1257, (cob_field *)&c_147) == 0))
6639  {
6640 
6641  /* Line: 3032 : PERFORM : GCic.cbl */
6642  cob_set_location (st_5, 3032, st_51, NULL, st_10);
6643  /* PERFORM 362-Release-Upd */
6644  frame_ptr++;
6645  if (unlikely(frame_ptr == frame_overflow))
6646  cob_fatal_error (COB_FERROR_STACK);
6647  frame_ptr->perform_through = 125;
6648  frame_ptr->return_address_ptr = &&l_246;
6649  goto l_125;
6650  l_246:
6651  frame_ptr--;
6652  goto l_79;
6653  }
6654 
6655  /* WHEN OTHER */
6656 
6657  /* Line: 3034 : PERFORM : GCic.cbl */
6658  cob_set_location (st_5, 3034, st_51, NULL, st_10);
6659  /* PERFORM 361-Release-Ref */
6660  frame_ptr++;
6661  if (unlikely(frame_ptr == frame_overflow))
6662  cob_fatal_error (COB_FERROR_STACK);
6663  frame_ptr->perform_through = 123;
6664  frame_ptr->return_address_ptr = &&l_247;
6665  goto l_123;
6666  l_247:
6667  frame_ptr--;
6668 
6669  /* End EVALUATE */
6670  l_79:;
6671 
6672  /* Implicit PERFORM return */
6673  if (frame_ptr->perform_through == 77)
6674  goto *frame_ptr->return_address_ptr;
6675 
6676  /* Line: 3038 : Section 351-DIVIDE : GCic.cbl */
6677  l_80:;
6678 
6679  /* Line: 3039 : EVALUATE : GCic.cbl */
6680  cob_set_location (st_5, 3039, st_52, NULL, st_3);
6681 
6682  /* WHEN */
6683 
6684  if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
6685  {
6686 
6687  /* Line: 3041 : PERFORM : GCic.cbl */
6688  cob_set_location (st_5, 3041, st_52, NULL, st_10);
6689  /* PERFORM 363-Set-Upd */
6690  frame_ptr++;
6691  if (unlikely(frame_ptr == frame_overflow))
6692  cob_fatal_error (COB_FERROR_STACK);
6693  frame_ptr->perform_through = 127;
6694  frame_ptr->return_address_ptr = &&l_248;
6695  goto l_127;
6696  l_248:
6697  frame_ptr--;
6698 
6699  /* Line: 3042 : MOVE : GCic.cbl */
6700  cob_set_location (st_5, 3042, st_52, NULL, st_4);
6701  memcpy (b_444, b_410, 100);
6702  goto l_82;
6703  }
6704 
6705  /* WHEN */
6706 
6707  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
6708  {
6709 
6710  /* Line: 3044 : IF : GCic.cbl */
6711  cob_set_location (st_5, 3044, st_52, NULL, st_6);
6712  if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
6713  {
6714 
6715  /* Line: 3045 : MOVE : GCic.cbl */
6716  cob_set_location (st_5, 3045, st_52, NULL, st_4);
6717  cob_move (&f_444, &f_401);
6718 
6719  /* Line: 3046 : MOVE : GCic.cbl */
6720  cob_set_location (st_5, 3046, st_52, NULL, st_4);
6721  memset (b_444, 32, 100);
6722  *(b_410 + 106) = 32;
6723 
6724  /* Line: 3048 : RELEASE : GCic.cbl */
6725  cob_set_location (st_5, 3048, st_52, NULL, st_36);
6726  cob_file_release (h_F_SORT_WORK_FILE);
6727  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6728  {
6729  /* PERFORM Default Error Handler */
6730  frame_ptr++;
6731  if (unlikely(frame_ptr == frame_overflow))
6732  cob_fatal_error (COB_FERROR_STACK);
6733  frame_ptr->perform_through = 1;
6734  frame_ptr->return_address_ptr = &&l_249;
6735  goto l_1;
6736  l_249:
6737  frame_ptr--;
6738  }
6739  }
6740 
6741  /* Line: 3050 : PERFORM : GCic.cbl */
6742  cob_set_location (st_5, 3050, st_52, NULL, st_10);
6743  /* PERFORM 362-Release-Upd */
6744  frame_ptr++;
6745  if (unlikely(frame_ptr == frame_overflow))
6746  cob_fatal_error (COB_FERROR_STACK);
6747  frame_ptr->perform_through = 125;
6748  frame_ptr->return_address_ptr = &&l_250;
6749  goto l_125;
6750  l_250:
6751  frame_ptr--;
6752  goto l_82;
6753  }
6754 
6755  /* WHEN */
6756 
6757  if (((int)cob_cmp (&f_1257, (cob_field *)&c_166) == 0))
6758  {
6759 
6760  /* Line: 3052 : PERFORM : GCic.cbl */
6761  cob_set_location (st_5, 3052, st_52, NULL, st_10);
6762  /* PERFORM 362-Release-Upd */
6763  frame_ptr++;
6764  if (unlikely(frame_ptr == frame_overflow))
6765  cob_fatal_error (COB_FERROR_STACK);
6766  frame_ptr->perform_through = 125;
6767  frame_ptr->return_address_ptr = &&l_251;
6768  goto l_125;
6769  l_251:
6770  frame_ptr--;
6771  goto l_82;
6772  }
6773 
6774  /* WHEN OTHER */
6775 
6776  /* Line: 3054 : PERFORM : GCic.cbl */
6777  cob_set_location (st_5, 3054, st_52, NULL, st_10);
6778  /* PERFORM 361-Release-Ref */
6779  frame_ptr++;
6780  if (unlikely(frame_ptr == frame_overflow))
6781  cob_fatal_error (COB_FERROR_STACK);
6782  frame_ptr->perform_through = 123;
6783  frame_ptr->return_address_ptr = &&l_252;
6784  goto l_123;
6785  l_252:
6786  frame_ptr--;
6787 
6788  /* End EVALUATE */
6789  l_82:;
6790 
6791  /* Implicit PERFORM return */
6792  if (frame_ptr->perform_through == 80)
6793  goto *frame_ptr->return_address_ptr;
6794 
6795  /* Line: 3058 : Section 351-FREE : GCic.cbl */
6796  l_83:;
6797 
6798  /* Line: 3059 : PERFORM : GCic.cbl */
6799  cob_set_location (st_5, 3059, st_53, NULL, st_10);
6800  /* PERFORM 362-Release-Upd */
6801  frame_ptr++;
6802  if (unlikely(frame_ptr == frame_overflow))
6803  cob_fatal_error (COB_FERROR_STACK);
6804  frame_ptr->perform_through = 125;
6805  frame_ptr->return_address_ptr = &&l_253;
6806  goto l_125;
6807  l_253:
6808  frame_ptr--;
6809 
6810  /* Implicit PERFORM return */
6811  if (frame_ptr->perform_through == 83)
6812  goto *frame_ptr->return_address_ptr;
6813 
6814  /* Line: 3062 : Section 351-GENERATE : GCic.cbl */
6815  l_85:;
6816 
6817  /* Line: 3063 : PERFORM : GCic.cbl */
6818  cob_set_location (st_5, 3063, st_54, NULL, st_10);
6819  /* PERFORM 362-Release-Upd */
6820  frame_ptr++;
6821  if (unlikely(frame_ptr == frame_overflow))
6822  cob_fatal_error (COB_FERROR_STACK);
6823  frame_ptr->perform_through = 125;
6824  frame_ptr->return_address_ptr = &&l_254;
6825  goto l_125;
6826  l_254:
6827  frame_ptr--;
6828 
6829  /* Implicit PERFORM return */
6830  if (frame_ptr->perform_through == 85)
6831  goto *frame_ptr->return_address_ptr;
6832 
6833  /* Line: 3066 : Section 351-INITIALIZE : GCic.cbl */
6834  l_87:;
6835 
6836  /* Line: 3067 : EVALUATE : GCic.cbl */
6837  cob_set_location (st_5, 3067, st_55, NULL, st_3);
6838 
6839  /* WHEN */
6840 
6841  if (((int)cob_cmp (&f_1257, (cob_field *)&c_151) == 0))
6842  {
6843 
6844  /* Line: 3069 : PERFORM : GCic.cbl */
6845  cob_set_location (st_5, 3069, st_55, NULL, st_10);
6846  /* PERFORM 362-Release-Upd */
6847  frame_ptr++;
6848  if (unlikely(frame_ptr == frame_overflow))
6849  cob_fatal_error (COB_FERROR_STACK);
6850  frame_ptr->perform_through = 125;
6851  frame_ptr->return_address_ptr = &&l_255;
6852  goto l_125;
6853  l_255:
6854  frame_ptr--;
6855  goto l_89;
6856  }
6857 
6858  /* WHEN */
6859 
6860  if (((int)cob_cmp (&f_1257, (cob_field *)&c_167) == 0))
6861  {
6862 
6863  /* Line: 3071 : PERFORM : GCic.cbl */
6864  cob_set_location (st_5, 3071, st_55, NULL, st_10);
6865  /* PERFORM 361-Release-Ref */
6866  frame_ptr++;
6867  if (unlikely(frame_ptr == frame_overflow))
6868  cob_fatal_error (COB_FERROR_STACK);
6869  frame_ptr->perform_through = 123;
6870  frame_ptr->return_address_ptr = &&l_256;
6871  goto l_123;
6872  l_256:
6873  frame_ptr--;
6874  goto l_89;
6875  }
6876 
6877  /* End EVALUATE */
6878  l_89:;
6879 
6880  /* Implicit PERFORM return */
6881  if (frame_ptr->perform_through == 87)
6882  goto *frame_ptr->return_address_ptr;
6883 
6884  /* Line: 3075 : Section 351-INITIATE : GCic.cbl */
6885 
6886  /* Line: 3076 : PERFORM : GCic.cbl */
6887  cob_set_location (st_5, 3076, st_56, NULL, st_10);
6888  /* PERFORM 362-Release-Upd */
6889  frame_ptr++;
6890  if (unlikely(frame_ptr == frame_overflow))
6891  cob_fatal_error (COB_FERROR_STACK);
6892  frame_ptr->perform_through = 125;
6893  frame_ptr->return_address_ptr = &&l_257;
6894  goto l_125;
6895  l_257:
6896  frame_ptr--;
6897 
6898  /* Line: 3079 : Section 351-INSPECT : GCic.cbl */
6899  l_92:;
6900 
6901  /* Line: 3080 : EVALUATE : GCic.cbl */
6902  cob_set_location (st_5, 3080, st_57, NULL, st_3);
6903 
6904  /* WHEN */
6905 
6906  if (((int)cob_cmp (&f_1257, (cob_field *)&c_153) == 0))
6907  {
6908 
6909  /* Line: 3082 : PERFORM : GCic.cbl */
6910  cob_set_location (st_5, 3082, st_57, NULL, st_10);
6911  /* PERFORM 364-Set-Ref */
6912  frame_ptr++;
6913  if (unlikely(frame_ptr == frame_overflow))
6914  cob_fatal_error (COB_FERROR_STACK);
6915  frame_ptr->perform_through = 129;
6916  frame_ptr->return_address_ptr = &&l_258;
6917  goto l_129;
6918  l_258:
6919  frame_ptr--;
6920 
6921  /* Line: 3083 : MOVE : GCic.cbl */
6922  cob_set_location (st_5, 3083, st_57, NULL, st_4);
6923  memset (b_444, 32, 100);
6924 
6925  /* Line: 3084 : MOVE : GCic.cbl */
6926  cob_set_location (st_5, 3084, st_57, NULL, st_4);
6927  memset (b_1257, 32, 32);
6928  goto l_94;
6929  }
6930 
6931  /* WHEN */
6932 
6933  if (((int)cob_cmp (&f_1257, (cob_field *)&c_168) == 0))
6934  {
6935 
6936  /* Line: 3086 : PERFORM : GCic.cbl */
6937  cob_set_location (st_5, 3086, st_57, NULL, st_10);
6938  /* PERFORM 362-Release-Upd */
6939  frame_ptr++;
6940  if (unlikely(frame_ptr == frame_overflow))
6941  cob_fatal_error (COB_FERROR_STACK);
6942  frame_ptr->perform_through = 125;
6943  frame_ptr->return_address_ptr = &&l_259;
6944  goto l_125;
6945  l_259:
6946  frame_ptr--;
6947 
6948  /* Line: 3087 : MOVE : GCic.cbl */
6949  cob_set_location (st_5, 3087, st_57, NULL, st_4);
6950  memset (b_1257, 32, 32);
6951  goto l_94;
6952  }
6953 
6954  /* WHEN */
6955 
6956  if (((int)cob_cmp (&f_1257, (cob_field *)&c_167) == 0))
6957  {
6958 
6959  /* Line: 3089 : IF : GCic.cbl */
6960  cob_set_location (st_5, 3089, st_57, NULL, st_6);
6961  if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
6962  {
6963 
6964  /* Line: 3090 : MOVE : GCic.cbl */
6965  cob_set_location (st_5, 3090, st_57, NULL, st_4);
6966  cob_move (&f_444, &f_401);
6967 
6968  /* Line: 3091 : MOVE : GCic.cbl */
6969  cob_set_location (st_5, 3091, st_57, NULL, st_4);
6970  memset (b_444, 32, 100);
6971 
6972  /* Line: 3092 : MOVE : GCic.cbl */
6973  cob_set_location (st_5, 3092, st_57, NULL, st_4);
6974  *(b_410 + 106) = 42;
6975 
6976  /* Line: 3093 : RELEASE : GCic.cbl */
6977  cob_set_location (st_5, 3093, st_57, NULL, st_36);
6978  cob_file_release (h_F_SORT_WORK_FILE);
6979  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
6980  {
6981  /* PERFORM Default Error Handler */
6982  frame_ptr++;
6983  if (unlikely(frame_ptr == frame_overflow))
6984  cob_fatal_error (COB_FERROR_STACK);
6985  frame_ptr->perform_through = 1;
6986  frame_ptr->return_address_ptr = &&l_260;
6987  goto l_1;
6988  l_260:
6989  frame_ptr--;
6990  }
6991  }
6992 
6993  /* Line: 3095 : MOVE : GCic.cbl */
6994  cob_set_location (st_5, 3095, st_57, NULL, st_4);
6995  memset (b_1257, 32, 32);
6996  goto l_94;
6997  }
6998 
6999  /* WHEN */
7000 
7001  if (((int)cob_cmp (&f_1257, (cob_field *)&c_169) == 0))
7002  {
7003 
7004  /* Line: 3097 : IF : GCic.cbl */
7005  cob_set_location (st_5, 3097, st_57, NULL, st_6);
7006  if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
7007  {
7008 
7009  /* Line: 3098 : MOVE : GCic.cbl */
7010  cob_set_location (st_5, 3098, st_57, NULL, st_4);
7011  cob_move (&f_444, &f_401);
7012 
7013  /* Line: 3099 : MOVE : GCic.cbl */
7014  cob_set_location (st_5, 3099, st_57, NULL, st_4);
7015  memset (b_444, 32, 100);
7016 
7017  /* Line: 3100 : MOVE : GCic.cbl */
7018  cob_set_location (st_5, 3100, st_57, NULL, st_4);
7019  *(b_410 + 106) = 42;
7020 
7021  /* Line: 3101 : RELEASE : GCic.cbl */
7022  cob_set_location (st_5, 3101, st_57, NULL, st_36);
7023  cob_file_release (h_F_SORT_WORK_FILE);
7024  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7025  {
7026  /* PERFORM Default Error Handler */
7027  frame_ptr++;
7028  if (unlikely(frame_ptr == frame_overflow))
7029  cob_fatal_error (COB_FERROR_STACK);
7030  frame_ptr->perform_through = 1;
7031  frame_ptr->return_address_ptr = &&l_261;
7032  goto l_1;
7033  l_261:
7034  frame_ptr--;
7035  }
7036  }
7037 
7038  /* Line: 3103 : MOVE : GCic.cbl */
7039  cob_set_location (st_5, 3103, st_57, NULL, st_4);
7040  memset (b_1257, 32, 32);
7041  goto l_94;
7042  }
7043 
7044  /* WHEN OTHER */
7045 
7046  /* Line: 3105 : PERFORM : GCic.cbl */
7047  cob_set_location (st_5, 3105, st_57, NULL, st_10);
7048  /* PERFORM 361-Release-Ref */
7049  frame_ptr++;
7050  if (unlikely(frame_ptr == frame_overflow))
7051  cob_fatal_error (COB_FERROR_STACK);
7052  frame_ptr->perform_through = 123;
7053  frame_ptr->return_address_ptr = &&l_262;
7054  goto l_123;
7055  l_262:
7056  frame_ptr--;
7057 
7058  /* End EVALUATE */
7059  l_94:;
7060 
7061  /* Implicit PERFORM return */
7062  if (frame_ptr->perform_through == 92)
7063  goto *frame_ptr->return_address_ptr;
7064 
7065  /* Line: 3109 : Section 351-MOVE : GCic.cbl */
7066  l_95:;
7067 
7068  /* Line: 3110 : EVALUATE : GCic.cbl */
7069  cob_set_location (st_5, 3110, st_58, NULL, st_3);
7070 
7071  /* WHEN */
7072 
7073  if (((int)cob_cmp (&f_1257, (cob_field *)&c_164) == 0))
7074  {
7075 
7076  /* Line: 3112 : PERFORM : GCic.cbl */
7077  cob_set_location (st_5, 3112, st_58, NULL, st_10);
7078  /* PERFORM 362-Release-Upd */
7079  frame_ptr++;
7080  if (unlikely(frame_ptr == frame_overflow))
7081  cob_fatal_error (COB_FERROR_STACK);
7082  frame_ptr->perform_through = 125;
7083  frame_ptr->return_address_ptr = &&l_263;
7084  goto l_125;
7085  l_263:
7086  frame_ptr--;
7087  goto l_97;
7088  }
7089 
7090  /* WHEN OTHER */
7091 
7092  /* Line: 3114 : PERFORM : GCic.cbl */
7093  cob_set_location (st_5, 3114, st_58, NULL, st_10);
7094  /* PERFORM 361-Release-Ref */
7095  frame_ptr++;
7096  if (unlikely(frame_ptr == frame_overflow))
7097  cob_fatal_error (COB_FERROR_STACK);
7098  frame_ptr->perform_through = 123;
7099  frame_ptr->return_address_ptr = &&l_264;
7100  goto l_123;
7101  l_264:
7102  frame_ptr--;
7103 
7104  /* End EVALUATE */
7105  l_97:;
7106 
7107  /* Implicit PERFORM return */
7108  if (frame_ptr->perform_through == 95)
7109  goto *frame_ptr->return_address_ptr;
7110 
7111  /* Line: 3118 : Section 351-MULTIPLY : GCic.cbl */
7112  l_98:;
7113 
7114  /* Line: 3119 : EVALUATE : GCic.cbl */
7115  cob_set_location (st_5, 3119, st_59, NULL, st_3);
7116 
7117  /* WHEN */
7118 
7119  if (((int)cob_cmp (&f_1257, (cob_field *)&c_170) == 0))
7120  {
7121 
7122  /* Line: 3121 : PERFORM : GCic.cbl */
7123  cob_set_location (st_5, 3121, st_59, NULL, st_10);
7124  /* PERFORM 363-Set-Upd */
7125  frame_ptr++;
7126  if (unlikely(frame_ptr == frame_overflow))
7127  cob_fatal_error (COB_FERROR_STACK);
7128  frame_ptr->perform_through = 127;
7129  frame_ptr->return_address_ptr = &&l_265;
7130  goto l_127;
7131  l_265:
7132  frame_ptr--;
7133 
7134  /* Line: 3122 : MOVE : GCic.cbl */
7135  cob_set_location (st_5, 3122, st_59, NULL, st_4);
7136  memcpy (b_444, b_410, 100);
7137  goto l_100;
7138  }
7139 
7140  /* WHEN */
7141 
7142  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
7143  {
7144 
7145  /* Line: 3124 : MOVE : GCic.cbl */
7146  cob_set_location (st_5, 3124, st_59, NULL, st_4);
7147  cob_move (&f_444, &f_401);
7148 
7149  /* Line: 3125 : MOVE : GCic.cbl */
7150  cob_set_location (st_5, 3125, st_59, NULL, st_4);
7151  memset (b_444, 32, 100);
7152  *(b_410 + 106) = 32;
7153 
7154  /* Line: 3127 : RELEASE : GCic.cbl */
7155  cob_set_location (st_5, 3127, st_59, NULL, st_36);
7156  cob_file_release (h_F_SORT_WORK_FILE);
7157  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7158  {
7159  /* PERFORM Default Error Handler */
7160  frame_ptr++;
7161  if (unlikely(frame_ptr == frame_overflow))
7162  cob_fatal_error (COB_FERROR_STACK);
7163  frame_ptr->perform_through = 1;
7164  frame_ptr->return_address_ptr = &&l_266;
7165  goto l_1;
7166  l_266:
7167  frame_ptr--;
7168  }
7169 
7170  /* Line: 3128 : PERFORM : GCic.cbl */
7171  cob_set_location (st_5, 3128, st_59, NULL, st_10);
7172  /* PERFORM 362-Release-Upd */
7173  frame_ptr++;
7174  if (unlikely(frame_ptr == frame_overflow))
7175  cob_fatal_error (COB_FERROR_STACK);
7176  frame_ptr->perform_through = 125;
7177  frame_ptr->return_address_ptr = &&l_267;
7178  goto l_125;
7179  l_267:
7180  frame_ptr--;
7181  goto l_100;
7182  }
7183 
7184  /* WHEN OTHER */
7185 
7186  /* Line: 3130 : PERFORM : GCic.cbl */
7187  cob_set_location (st_5, 3130, st_59, NULL, st_10);
7188  /* PERFORM 361-Release-Ref */
7189  frame_ptr++;
7190  if (unlikely(frame_ptr == frame_overflow))
7191  cob_fatal_error (COB_FERROR_STACK);
7192  frame_ptr->perform_through = 123;
7193  frame_ptr->return_address_ptr = &&l_268;
7194  goto l_123;
7195  l_268:
7196  frame_ptr--;
7197 
7198  /* End EVALUATE */
7199  l_100:;
7200 
7201  /* Implicit PERFORM return */
7202  if (frame_ptr->perform_through == 98)
7203  goto *frame_ptr->return_address_ptr;
7204 
7205  /* Line: 3134 : Section 351-PERFORM : GCic.cbl */
7206  l_101:;
7207 
7208  /* Line: 3135 : EVALUATE : GCic.cbl */
7209  cob_set_location (st_5, 3135, st_60, NULL, st_3);
7210 
7211  /* WHEN */
7212 
7213  if (((int)cob_cmp (&f_1257, (cob_field *)&c_171) == 0))
7214  {
7215 
7216  /* Line: 3137 : PERFORM : GCic.cbl */
7217  cob_set_location (st_5, 3137, st_60, NULL, st_10);
7218  /* PERFORM 362-Release-Upd */
7219  frame_ptr++;
7220  if (unlikely(frame_ptr == frame_overflow))
7221  cob_fatal_error (COB_FERROR_STACK);
7222  frame_ptr->perform_through = 125;
7223  frame_ptr->return_address_ptr = &&l_269;
7224  goto l_125;
7225  l_269:
7226  frame_ptr--;
7227 
7228  /* Line: 3138 : MOVE : GCic.cbl */
7229  cob_set_location (st_5, 3138, st_60, NULL, st_4);
7230  memset (b_1257, 32, 32);
7231  goto l_103;
7232  }
7233 
7234  /* WHEN */
7235 
7236  if (((int)cob_cmp (&f_1257, (cob_field *)&c_172) == 0))
7237  {
7238 
7239  /* Line: 3140 : PERFORM : GCic.cbl */
7240  cob_set_location (st_5, 3140, st_60, NULL, st_10);
7241  /* PERFORM 362-Release-Upd */
7242  frame_ptr++;
7243  if (unlikely(frame_ptr == frame_overflow))
7244  cob_fatal_error (COB_FERROR_STACK);
7245  frame_ptr->perform_through = 125;
7246  frame_ptr->return_address_ptr = &&l_270;
7247  goto l_125;
7248  l_270:
7249  frame_ptr--;
7250 
7251  /* Line: 3141 : MOVE : GCic.cbl */
7252  cob_set_location (st_5, 3141, st_60, NULL, st_4);
7253  memset (b_1257, 32, 32);
7254  goto l_103;
7255  }
7256 
7257  /* WHEN OTHER */
7258 
7259  /* Line: 3143 : PERFORM : GCic.cbl */
7260  cob_set_location (st_5, 3143, st_60, NULL, st_10);
7261  /* PERFORM 361-Release-Ref */
7262  frame_ptr++;
7263  if (unlikely(frame_ptr == frame_overflow))
7264  cob_fatal_error (COB_FERROR_STACK);
7265  frame_ptr->perform_through = 123;
7266  frame_ptr->return_address_ptr = &&l_271;
7267  goto l_123;
7268  l_271:
7269  frame_ptr--;
7270 
7271  /* End EVALUATE */
7272  l_103:;
7273 
7274  /* Implicit PERFORM return */
7275  if (frame_ptr->perform_through == 101)
7276  goto *frame_ptr->return_address_ptr;
7277 
7278  /* Line: 3147 : Section 351-SET : GCic.cbl */
7279  l_104:;
7280 
7281  /* Line: 3148 : EVALUATE : GCic.cbl */
7282  cob_set_location (st_5, 3148, st_61, NULL, st_3);
7283 
7284  /* WHEN */
7285 
7286  if (((int)cob_cmp (&f_1257, (cob_field *)&c_157) == 0))
7287  {
7288 
7289  /* Line: 3150 : PERFORM : GCic.cbl */
7290  cob_set_location (st_5, 3150, st_61, NULL, st_10);
7291  /* PERFORM 362-Release-Upd */
7292  frame_ptr++;
7293  if (unlikely(frame_ptr == frame_overflow))
7294  cob_fatal_error (COB_FERROR_STACK);
7295  frame_ptr->perform_through = 125;
7296  frame_ptr->return_address_ptr = &&l_272;
7297  goto l_125;
7298  l_272:
7299  frame_ptr--;
7300  goto l_106;
7301  }
7302 
7303  /* WHEN OTHER */
7304 
7305  /* Line: 3152 : PERFORM : GCic.cbl */
7306  cob_set_location (st_5, 3152, st_61, NULL, st_10);
7307  /* PERFORM 361-Release-Ref */
7308  frame_ptr++;
7309  if (unlikely(frame_ptr == frame_overflow))
7310  cob_fatal_error (COB_FERROR_STACK);
7311  frame_ptr->perform_through = 123;
7312  frame_ptr->return_address_ptr = &&l_273;
7313  goto l_123;
7314  l_273:
7315  frame_ptr--;
7316 
7317  /* End EVALUATE */
7318  l_106:;
7319 
7320  /* Implicit PERFORM return */
7321  if (frame_ptr->perform_through == 104)
7322  goto *frame_ptr->return_address_ptr;
7323 
7324  /* Line: 3156 : Section 351-STRING : GCic.cbl */
7325  l_107:;
7326 
7327  /* Line: 3157 : EVALUATE : GCic.cbl */
7328  cob_set_location (st_5, 3157, st_62, NULL, st_3);
7329 
7330  /* WHEN */
7331 
7332  if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
7333  {
7334 
7335  /* Line: 3159 : PERFORM : GCic.cbl */
7336  cob_set_location (st_5, 3159, st_62, NULL, st_10);
7337  /* PERFORM 362-Release-Upd */
7338  frame_ptr++;
7339  if (unlikely(frame_ptr == frame_overflow))
7340  cob_fatal_error (COB_FERROR_STACK);
7341  frame_ptr->perform_through = 125;
7342  frame_ptr->return_address_ptr = &&l_274;
7343  goto l_125;
7344  l_274:
7345  frame_ptr--;
7346  goto l_109;
7347  }
7348 
7349  /* WHEN */
7350 
7351  if (((int)cob_cmp (&f_1257, (cob_field *)&c_173) == 0))
7352  {
7353 
7354  /* Line: 3161 : PERFORM : GCic.cbl */
7355  cob_set_location (st_5, 3161, st_62, NULL, st_10);
7356  /* PERFORM 362-Release-Upd */
7357  frame_ptr++;
7358  if (unlikely(frame_ptr == frame_overflow))
7359  cob_fatal_error (COB_FERROR_STACK);
7360  frame_ptr->perform_through = 125;
7361  frame_ptr->return_address_ptr = &&l_275;
7362  goto l_125;
7363  l_275:
7364  frame_ptr--;
7365  goto l_109;
7366  }
7367 
7368  /* WHEN OTHER */
7369 
7370  /* Line: 3163 : PERFORM : GCic.cbl */
7371  cob_set_location (st_5, 3163, st_62, NULL, st_10);
7372  /* PERFORM 361-Release-Ref */
7373  frame_ptr++;
7374  if (unlikely(frame_ptr == frame_overflow))
7375  cob_fatal_error (COB_FERROR_STACK);
7376  frame_ptr->perform_through = 123;
7377  frame_ptr->return_address_ptr = &&l_276;
7378  goto l_123;
7379  l_276:
7380  frame_ptr--;
7381 
7382  /* End EVALUATE */
7383  l_109:;
7384 
7385  /* Implicit PERFORM return */
7386  if (frame_ptr->perform_through == 107)
7387  goto *frame_ptr->return_address_ptr;
7388 
7389  /* Line: 3167 : Section 351-SUBTRACT : GCic.cbl */
7390  l_110:;
7391 
7392  /* Line: 3168 : EVALUATE : GCic.cbl */
7393  cob_set_location (st_5, 3168, st_63, NULL, st_3);
7394 
7395  /* WHEN */
7396 
7397  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
7398  {
7399 
7400  /* Line: 3170 : PERFORM : GCic.cbl */
7401  cob_set_location (st_5, 3170, st_63, NULL, st_10);
7402  /* PERFORM 362-Release-Upd */
7403  frame_ptr++;
7404  if (unlikely(frame_ptr == frame_overflow))
7405  cob_fatal_error (COB_FERROR_STACK);
7406  frame_ptr->perform_through = 125;
7407  frame_ptr->return_address_ptr = &&l_277;
7408  goto l_125;
7409  l_277:
7410  frame_ptr--;
7411  goto l_112;
7412  }
7413 
7414  /* WHEN */
7415 
7416  if (((int)cob_cmp (&f_1257, (cob_field *)&c_174) == 0))
7417  {
7418 
7419  /* Line: 3172 : PERFORM : GCic.cbl */
7420  cob_set_location (st_5, 3172, st_63, NULL, st_10);
7421  /* PERFORM 362-Release-Upd */
7422  frame_ptr++;
7423  if (unlikely(frame_ptr == frame_overflow))
7424  cob_fatal_error (COB_FERROR_STACK);
7425  frame_ptr->perform_through = 125;
7426  frame_ptr->return_address_ptr = &&l_278;
7427  goto l_125;
7428  l_278:
7429  frame_ptr--;
7430  goto l_112;
7431  }
7432 
7433  /* WHEN OTHER */
7434 
7435  /* Line: 3174 : PERFORM : GCic.cbl */
7436  cob_set_location (st_5, 3174, st_63, NULL, st_10);
7437  /* PERFORM 361-Release-Ref */
7438  frame_ptr++;
7439  if (unlikely(frame_ptr == frame_overflow))
7440  cob_fatal_error (COB_FERROR_STACK);
7441  frame_ptr->perform_through = 123;
7442  frame_ptr->return_address_ptr = &&l_279;
7443  goto l_123;
7444  l_279:
7445  frame_ptr--;
7446 
7447  /* End EVALUATE */
7448  l_112:;
7449 
7450  /* Implicit PERFORM return */
7451  if (frame_ptr->perform_through == 110)
7452  goto *frame_ptr->return_address_ptr;
7453 
7454  /* Line: 3178 : Section 351-TERMINATE : GCic.cbl */
7455 
7456  /* Line: 3179 : PERFORM : GCic.cbl */
7457  cob_set_location (st_5, 3179, st_64, NULL, st_10);
7458  /* PERFORM 362-Release-Upd */
7459  frame_ptr++;
7460  if (unlikely(frame_ptr == frame_overflow))
7461  cob_fatal_error (COB_FERROR_STACK);
7462  frame_ptr->perform_through = 125;
7463  frame_ptr->return_address_ptr = &&l_280;
7464  goto l_125;
7465  l_280:
7466  frame_ptr--;
7467 
7468  /* Line: 3182 : Section 351-TRANSFORM : GCic.cbl */
7469  l_115:;
7470 
7471  /* Line: 3183 : EVALUATE : GCic.cbl */
7472  cob_set_location (st_5, 3183, st_65, NULL, st_3);
7473 
7474  /* WHEN */
7475 
7476  if (((int)cob_cmp (&f_1257, (cob_field *)&c_161) == 0))
7477  {
7478 
7479  /* Line: 3185 : PERFORM : GCic.cbl */
7480  cob_set_location (st_5, 3185, st_65, NULL, st_10);
7481  /* PERFORM 362-Release-Upd */
7482  frame_ptr++;
7483  if (unlikely(frame_ptr == frame_overflow))
7484  cob_fatal_error (COB_FERROR_STACK);
7485  frame_ptr->perform_through = 125;
7486  frame_ptr->return_address_ptr = &&l_281;
7487  goto l_125;
7488  l_281:
7489  frame_ptr--;
7490 
7491  /* Line: 3186 : MOVE : GCic.cbl */
7492  cob_set_location (st_5, 3186, st_65, NULL, st_4);
7493  memset (b_1257, 32, 32);
7494  goto l_117;
7495  }
7496 
7497  /* WHEN OTHER */
7498 
7499  /* Line: 3188 : PERFORM : GCic.cbl */
7500  cob_set_location (st_5, 3188, st_65, NULL, st_10);
7501  /* PERFORM 361-Release-Ref */
7502  frame_ptr++;
7503  if (unlikely(frame_ptr == frame_overflow))
7504  cob_fatal_error (COB_FERROR_STACK);
7505  frame_ptr->perform_through = 123;
7506  frame_ptr->return_address_ptr = &&l_282;
7507  goto l_123;
7508  l_282:
7509  frame_ptr--;
7510 
7511  /* End EVALUATE */
7512  l_117:;
7513 
7514  /* Implicit PERFORM return */
7515  if (frame_ptr->perform_through == 115)
7516  goto *frame_ptr->return_address_ptr;
7517 
7518  /* Line: 3192 : Section 351-UNSTRING : GCic.cbl */
7519  l_118:;
7520 
7521  /* Line: 3193 : EVALUATE : GCic.cbl */
7522  cob_set_location (st_5, 3193, st_66, NULL, st_3);
7523 
7524  /* WHEN */
7525 
7526  if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
7527  {
7528 
7529  /* Line: 3195 : PERFORM : GCic.cbl */
7530  cob_set_location (st_5, 3195, st_66, NULL, st_10);
7531  /* PERFORM 362-Release-Upd */
7532  frame_ptr++;
7533  if (unlikely(frame_ptr == frame_overflow))
7534  cob_fatal_error (COB_FERROR_STACK);
7535  frame_ptr->perform_through = 125;
7536  frame_ptr->return_address_ptr = &&l_283;
7537  goto l_125;
7538  l_283:
7539  frame_ptr--;
7540  goto l_120;
7541  }
7542 
7543  /* WHEN */
7544 
7545  if (((int)cob_cmp (&f_1257, (cob_field *)&c_175) == 0))
7546  {
7547 
7548  /* Line: 3197 : PERFORM : GCic.cbl */
7549  cob_set_location (st_5, 3197, st_66, NULL, st_10);
7550  /* PERFORM 362-Release-Upd */
7551  frame_ptr++;
7552  if (unlikely(frame_ptr == frame_overflow))
7553  cob_fatal_error (COB_FERROR_STACK);
7554  frame_ptr->perform_through = 125;
7555  frame_ptr->return_address_ptr = &&l_284;
7556  goto l_125;
7557  l_284:
7558  frame_ptr--;
7559  goto l_120;
7560  }
7561 
7562  /* WHEN */
7563 
7564  if (((int)cob_cmp (&f_1257, (cob_field *)&c_176) == 0))
7565  {
7566 
7567  /* Line: 3199 : PERFORM : GCic.cbl */
7568  cob_set_location (st_5, 3199, st_66, NULL, st_10);
7569  /* PERFORM 362-Release-Upd */
7570  frame_ptr++;
7571  if (unlikely(frame_ptr == frame_overflow))
7572  cob_fatal_error (COB_FERROR_STACK);
7573  frame_ptr->perform_through = 125;
7574  frame_ptr->return_address_ptr = &&l_285;
7575  goto l_125;
7576  l_285:
7577  frame_ptr--;
7578  goto l_120;
7579  }
7580 
7581  /* WHEN */
7582 
7583  if (((int)cob_cmp (&f_1257, (cob_field *)&c_173) == 0))
7584  {
7585 
7586  /* Line: 3201 : PERFORM : GCic.cbl */
7587  cob_set_location (st_5, 3201, st_66, NULL, st_10);
7588  /* PERFORM 362-Release-Upd */
7589  frame_ptr++;
7590  if (unlikely(frame_ptr == frame_overflow))
7591  cob_fatal_error (COB_FERROR_STACK);
7592  frame_ptr->perform_through = 125;
7593  frame_ptr->return_address_ptr = &&l_286;
7594  goto l_125;
7595  l_286:
7596  frame_ptr--;
7597  goto l_120;
7598  }
7599 
7600  /* WHEN */
7601 
7602  if (((int)cob_cmp (&f_1257, (cob_field *)&c_168) == 0))
7603  {
7604 
7605  /* Line: 3203 : PERFORM : GCic.cbl */
7606  cob_set_location (st_5, 3203, st_66, NULL, st_10);
7607  /* PERFORM 362-Release-Upd */
7608  frame_ptr++;
7609  if (unlikely(frame_ptr == frame_overflow))
7610  cob_fatal_error (COB_FERROR_STACK);
7611  frame_ptr->perform_through = 125;
7612  frame_ptr->return_address_ptr = &&l_287;
7613  goto l_125;
7614  l_287:
7615  frame_ptr--;
7616  goto l_120;
7617  }
7618 
7619  /* WHEN OTHER */
7620 
7621  /* Line: 3205 : PERFORM : GCic.cbl */
7622  cob_set_location (st_5, 3205, st_66, NULL, st_10);
7623  /* PERFORM 361-Release-Ref */
7624  frame_ptr++;
7625  if (unlikely(frame_ptr == frame_overflow))
7626  cob_fatal_error (COB_FERROR_STACK);
7627  frame_ptr->perform_through = 123;
7628  frame_ptr->return_address_ptr = &&l_288;
7629  goto l_123;
7630  l_288:
7631  frame_ptr--;
7632 
7633  /* End EVALUATE */
7634  l_120:;
7635 
7636  /* Implicit PERFORM return */
7637  if (frame_ptr->perform_through == 118)
7638  goto *frame_ptr->return_address_ptr;
7639 
7640  /* Line: 3209 : Section 360-Release-Def : GCic.cbl */
7641  l_121:;
7642 
7643  /* Line: 3210 : MOVE : GCic.cbl */
7644  cob_set_location (st_5, 3210, st_67, NULL, st_4);
7645  memset (b_410, 32, 107);
7646 
7647  /* Line: 3211 : MOVE : GCic.cbl */
7648  cob_set_location (st_5, 3211, st_67, NULL, st_4);
7649  memcpy (b_410, b_423, 15);
7650 
7651  /* Line: 3212 : MOVE : GCic.cbl */
7652  cob_set_location (st_5, 3212, st_67, NULL, st_4);
7653  memcpy (b_410 + 15, b_1256, 32);
7654 
7655  /* Line: 3213 : MOVE : GCic.cbl */
7656  cob_set_location (st_5, 3213, st_67, NULL, st_4);
7657  memcpy (b_410 + 47, b_1255, 32);
7658 
7659  /* Line: 3214 : MOVE : GCic.cbl */
7660  cob_set_location (st_5, 3214, st_67, NULL, st_4);
7661  memcpy (b_410 + 79, b_427, 15);
7662 
7663  /* Line: 3215 : MOVE : GCic.cbl */
7664  cob_set_location (st_5, 3215, st_67, NULL, st_4);
7665  memcpy (b_410 + 94, b_422, 6);
7666 
7667  /* Line: 3216 : MOVE : GCic.cbl */
7668  cob_set_location (st_5, 3216, st_67, NULL, st_4);
7669  memset (b_410 + 100, 48, 6);
7670 
7671  /* Line: 3217 : RELEASE : GCic.cbl */
7672  cob_set_location (st_5, 3217, st_67, NULL, st_36);
7673  cob_file_release (h_F_SORT_WORK_FILE);
7674  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7675  {
7676  /* PERFORM Default Error Handler */
7677  frame_ptr++;
7678  if (unlikely(frame_ptr == frame_overflow))
7679  cob_fatal_error (COB_FERROR_STACK);
7680  frame_ptr->perform_through = 1;
7681  frame_ptr->return_address_ptr = &&l_289;
7682  goto l_1;
7683  l_289:
7684  frame_ptr--;
7685  }
7686 
7687  /* Implicit PERFORM return */
7688  if (frame_ptr->perform_through == 121)
7689  goto *frame_ptr->return_address_ptr;
7690 
7691  /* Line: 3220 : Section 361-Release-Ref : GCic.cbl */
7692  l_123:;
7693 
7694  /* Line: 3221 : PERFORM : GCic.cbl */
7695  cob_set_location (st_5, 3221, st_68, NULL, st_10);
7696  /* PERFORM 364-Set-Ref */
7697  frame_ptr++;
7698  if (unlikely(frame_ptr == frame_overflow))
7699  cob_fatal_error (COB_FERROR_STACK);
7700  frame_ptr->perform_through = 129;
7701  frame_ptr->return_address_ptr = &&l_290;
7702  goto l_129;
7703  l_290:
7704  frame_ptr--;
7705 
7706  /* Line: 3222 : RELEASE : GCic.cbl */
7707  cob_set_location (st_5, 3222, st_68, NULL, st_36);
7708  cob_file_release (h_F_SORT_WORK_FILE);
7709  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7710  {
7711  /* PERFORM Default Error Handler */
7712  frame_ptr++;
7713  if (unlikely(frame_ptr == frame_overflow))
7714  cob_fatal_error (COB_FERROR_STACK);
7715  frame_ptr->perform_through = 1;
7716  frame_ptr->return_address_ptr = &&l_291;
7717  goto l_1;
7718  l_291:
7719  frame_ptr--;
7720  }
7721 
7722  /* Implicit PERFORM return */
7723  if (frame_ptr->perform_through == 123)
7724  goto *frame_ptr->return_address_ptr;
7725 
7726  /* Line: 3225 : Section 362-Release-Upd : GCic.cbl */
7727  l_125:;
7728 
7729  /* Line: 3226 : PERFORM : GCic.cbl */
7730  cob_set_location (st_5, 3226, st_69, NULL, st_10);
7731  /* PERFORM 363-Set-Upd */
7732  frame_ptr++;
7733  if (unlikely(frame_ptr == frame_overflow))
7734  cob_fatal_error (COB_FERROR_STACK);
7735  frame_ptr->perform_through = 127;
7736  frame_ptr->return_address_ptr = &&l_292;
7737  goto l_127;
7738  l_292:
7739  frame_ptr--;
7740 
7741  /* Line: 3227 : RELEASE : GCic.cbl */
7742  cob_set_location (st_5, 3227, st_69, NULL, st_36);
7743  cob_file_release (h_F_SORT_WORK_FILE);
7744  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7745  {
7746  /* PERFORM Default Error Handler */
7747  frame_ptr++;
7748  if (unlikely(frame_ptr == frame_overflow))
7749  cob_fatal_error (COB_FERROR_STACK);
7750  frame_ptr->perform_through = 1;
7751  frame_ptr->return_address_ptr = &&l_293;
7752  goto l_1;
7753  l_293:
7754  frame_ptr--;
7755  }
7756 
7757  /* Implicit PERFORM return */
7758  if (frame_ptr->perform_through == 125)
7759  goto *frame_ptr->return_address_ptr;
7760 
7761  /* Line: 3230 : Section 363-Set-Upd : GCic.cbl */
7762  l_127:;
7763 
7764  /* Line: 3231 : MOVE : GCic.cbl */
7765  cob_set_location (st_5, 3231, st_70, NULL, st_4);
7766  memset (b_410, 32, 107);
7767 
7768  /* Line: 3232 : MOVE : GCic.cbl */
7769  cob_set_location (st_5, 3232, st_70, NULL, st_4);
7770  memcpy (b_410, b_423, 15);
7771 
7772  /* Line: 3233 : MOVE : GCic.cbl */
7773  cob_set_location (st_5, 3233, st_70, NULL, st_4);
7774  memcpy (b_410 + 15, b_1256, 32);
7775 
7776  /* Line: 3234 : MOVE : GCic.cbl */
7777  cob_set_location (st_5, 3234, st_70, NULL, st_4);
7778  memcpy (b_410 + 47, b_1255, 32);
7779 
7780  /* Line: 3235 : MOVE : GCic.cbl */
7781  cob_set_location (st_5, 3235, st_70, NULL, st_4);
7782  memcpy (b_410 + 79, b_427, 15);
7783 
7784  /* Line: 3236 : MOVE : GCic.cbl */
7785  cob_set_location (st_5, 3236, st_70, NULL, st_4);
7786  memcpy (b_410 + 100, b_422, 6);
7787 
7788  /* Line: 3237 : MOVE : GCic.cbl */
7789  cob_set_location (st_5, 3237, st_70, NULL, st_4);
7790  *(b_410 + 106) = 42;
7791 
7792  /* Implicit PERFORM return */
7793  if (frame_ptr->perform_through == 127)
7794  goto *frame_ptr->return_address_ptr;
7795 
7796  /* Line: 3240 : Section 364-Set-Ref : GCic.cbl */
7797  l_129:;
7798 
7799  /* Line: 3241 : MOVE : GCic.cbl */
7800  cob_set_location (st_5, 3241, st_71, NULL, st_4);
7801  memset (b_410, 32, 107);
7802 
7803  /* Line: 3242 : MOVE : GCic.cbl */
7804  cob_set_location (st_5, 3242, st_71, NULL, st_4);
7805  memcpy (b_410, b_423, 15);
7806 
7807  /* Line: 3243 : MOVE : GCic.cbl */
7808  cob_set_location (st_5, 3243, st_71, NULL, st_4);
7809  memcpy (b_410 + 15, b_1256, 32);
7810 
7811  /* Line: 3244 : MOVE : GCic.cbl */
7812  cob_set_location (st_5, 3244, st_71, NULL, st_4);
7813  memcpy (b_410 + 47, b_1255, 32);
7814 
7815  /* Line: 3245 : MOVE : GCic.cbl */
7816  cob_set_location (st_5, 3245, st_71, NULL, st_4);
7817  memcpy (b_410 + 79, b_427, 15);
7818 
7819  /* Line: 3246 : MOVE : GCic.cbl */
7820  cob_set_location (st_5, 3246, st_71, NULL, st_4);
7821  memcpy (b_410 + 100, b_422, 6);
7822 
7823  /* Implicit PERFORM return */
7824  if (frame_ptr->perform_through == 129)
7825  goto *frame_ptr->return_address_ptr;
7826 
7827  /* Line: 3249 : Section 365-Release-Arg : GCic.cbl */
7828  l_131:;
7829 
7830  /* Line: 3250 : PERFORM : GCic.cbl */
7831  cob_set_location (st_5, 3250, st_72, NULL, st_10);
7832  /* PERFORM 366-Set-Arg */
7833  frame_ptr++;
7834  if (unlikely(frame_ptr == frame_overflow))
7835  cob_fatal_error (COB_FERROR_STACK);
7836  frame_ptr->perform_through = 133;
7837  frame_ptr->return_address_ptr = &&l_294;
7838  goto l_133;
7839  l_294:
7840  frame_ptr--;
7841 
7842  /* Line: 3251 : RELEASE : GCic.cbl */
7843  cob_set_location (st_5, 3251, st_72, NULL, st_36);
7844  cob_file_release (h_F_SORT_WORK_FILE);
7845  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7846  {
7847  /* PERFORM Default Error Handler */
7848  frame_ptr++;
7849  if (unlikely(frame_ptr == frame_overflow))
7850  cob_fatal_error (COB_FERROR_STACK);
7851  frame_ptr->perform_through = 1;
7852  frame_ptr->return_address_ptr = &&l_295;
7853  goto l_1;
7854  l_295:
7855  frame_ptr--;
7856  }
7857 
7858  /* Implicit PERFORM return */
7859  if (frame_ptr->perform_through == 131)
7860  goto *frame_ptr->return_address_ptr;
7861 
7862  /* Line: 3254 : Section 366-Set-Arg : GCic.cbl */
7863  l_133:;
7864 
7865  /* Line: 3255 : MOVE : GCic.cbl */
7866  cob_set_location (st_5, 3255, st_73, NULL, st_4);
7867  memset (b_410, 32, 107);
7868 
7869  /* Line: 3256 : MOVE : GCic.cbl */
7870  cob_set_location (st_5, 3256, st_73, NULL, st_4);
7871  memcpy (b_410, b_423, 15);
7872 
7873  /* Line: 3257 : MOVE : GCic.cbl */
7874  cob_set_location (st_5, 3257, st_73, NULL, st_4);
7875  memcpy (b_410 + 15, b_1256, 32);
7876 
7877  /* Line: 3258 : MOVE : GCic.cbl */
7878  cob_set_location (st_5, 3258, st_73, NULL, st_4);
7879  memcpy (b_410 + 47, b_1255, 32);
7880 
7881  /* Line: 3259 : MOVE : GCic.cbl */
7882  cob_set_location (st_5, 3259, st_73, NULL, st_4);
7883  memcpy (b_410 + 79, b_427, 15);
7884 
7885  /* Line: 3260 : MOVE : GCic.cbl */
7886  cob_set_location (st_5, 3260, st_73, NULL, st_4);
7887  memcpy (b_410 + 100, b_422, 6);
7888 
7889  /* Line: 3261 : MOVE : GCic.cbl */
7890  cob_set_location (st_5, 3261, st_73, NULL, st_4);
7891  *(b_410 + 106) = 67;
7892 
7893  /* Implicit PERFORM return */
7894  if (frame_ptr->perform_through == 133)
7895  goto *frame_ptr->return_address_ptr;
7896 
7897  /* Line: 3265 : Section 400-Produce-Xref-Listing: GCic.cbl */
7898  l_135:;
7899 
7900  /* Line: 3266 : MOVE : GCic.cbl */
7901  cob_set_location (st_5, 3266, st_74, NULL, st_4);
7902  memset (b_1271, 32, 136);
7903  memset (b_441, 32, 47);
7904 
7905  /* Line: 3268 : MOVE : GCic.cbl */
7906  cob_set_location (st_5, 3268, st_74, NULL, st_4);
7907  (*(int *)(b_445)) = 0;
7908  (*(int *)(b_447)) = 0;
7909 
7910  /* Line: 3270 : MOVE : GCic.cbl */
7911  cob_set_location (st_5, 3270, st_74, NULL, st_4);
7912  *(b_1226) = 78;
7913 
7914  /* Line: 3271 : PERFORM : GCic.cbl */
7915  cob_set_location (st_5, 3271, st_74, NULL, st_10);
7916  for (;;)
7917  {
7918 
7919  /* Line: 3272 : RETURN : GCic.cbl */
7920  cob_set_location (st_5, 3272, st_74, NULL, st_75);
7921  cob_file_return (h_F_SORT_WORK_FILE);
7922  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
7923  {
7924  if (cob_glob_ptr->cob_exception_code == 0x0501)
7925  {
7926 
7927  /* Line: 3273 : IF : GCic.cbl */
7928  cob_set_location (st_5, 3273, st_74, NULL, st_6);
7929  if (((int)cob_cmp (&f_1271, &cob_all_space) != 0))
7930  {
7931 
7932  /* Line: 3274 : PERFORM : GCic.cbl */
7933  cob_set_location (st_5, 3274, st_74, NULL, st_10);
7934  /* PERFORM 410-Generate-Report-Line */
7935  frame_ptr++;
7936  if (unlikely(frame_ptr == frame_overflow))
7937  cob_fatal_error (COB_FERROR_STACK);
7938  frame_ptr->perform_through = 139;
7939  frame_ptr->return_address_ptr = &&l_296;
7940  goto l_139;
7941  l_296:
7942  frame_ptr--;
7943  }
7944 
7945  /* Line: 3276 : MOVE : GCic.cbl */
7946  cob_set_location (st_5, 3276, st_74, NULL, st_4);
7947  memset (b_1271, 32, 136);
7948 
7949  /* Line: 3277 : PERFORM : GCic.cbl */
7950  cob_set_location (st_5, 3277, st_74, NULL, st_10);
7951  for (;;)
7952  {
7953  if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
7954  break;
7955  /* PERFORM 410-Generate-Report-Line */
7956  frame_ptr++;
7957  if (unlikely(frame_ptr == frame_overflow))
7958  cob_fatal_error (COB_FERROR_STACK);
7959  frame_ptr->perform_through = 139;
7960  frame_ptr->return_address_ptr = &&l_297;
7961  goto l_139;
7962  l_297:
7963  frame_ptr--;
7964  }
7965 
7966  /* Line: 3279 : MOVE : GCic.cbl */
7967  cob_set_location (st_5, 3279, st_74, NULL, st_4);
7968  *(b_438) = 89;
7969 
7970  /* Line: 3280 : PERFORM : GCic.cbl */
7971  cob_set_location (st_5, 3280, st_74, NULL, st_10);
7972  /* PERFORM 420-Generate-Xref-Footer */
7973  frame_ptr++;
7974  if (unlikely(frame_ptr == frame_overflow))
7975  cob_fatal_error (COB_FERROR_STACK);
7976  frame_ptr->perform_through = 141;
7977  frame_ptr->return_address_ptr = &&l_298;
7978  goto l_141;
7979  l_298:
7980  frame_ptr--;
7981 
7982  /* Line: 3281 : EXIT PERFORM : GCic.cbl */
7983  cob_set_location (st_5, 3281, st_74, NULL, st_35);
7984  goto l_137;
7985  }
7986  else
7987  {
7988  /* PERFORM Default Error Handler */
7989  frame_ptr++;
7990  if (unlikely(frame_ptr == frame_overflow))
7991  cob_fatal_error (COB_FERROR_STACK);
7992  frame_ptr->perform_through = 1;
7993  frame_ptr->return_address_ptr = &&l_299;
7994  goto l_1;
7995  l_299:
7996  frame_ptr--;
7997  }
7998  }
7999 
8000  /* Line: 3283 : IF : GCic.cbl */
8001  cob_set_location (st_5, 3283, st_74, NULL, st_6);
8002  if ((((int)memcmp (b_410, b_441, 15) != 0) ||
8003  ((int)memcmp (b_410 + 15, b_441 + 15, 32) != 0)))
8004  {
8005 
8006  /* Line: 3285 : MOVE : GCic.cbl */
8007  cob_set_location (st_5, 3285, st_74, NULL, st_4);
8008  *(b_1226) = 78;
8009 
8010  /* Line: 3286 : IF : GCic.cbl */
8011  cob_set_location (st_5, 3286, st_74, NULL, st_6);
8012  if (((int)cob_cmp (&f_1271, &cob_all_space) != 0))
8013  {
8014 
8015  /* Line: 3287 : PERFORM : GCic.cbl */
8016  cob_set_location (st_5, 3287, st_74, NULL, st_10);
8017  /* PERFORM 410-Generate-Report-Line */
8018  frame_ptr++;
8019  if (unlikely(frame_ptr == frame_overflow))
8020  cob_fatal_error (COB_FERROR_STACK);
8021  frame_ptr->perform_through = 139;
8022  frame_ptr->return_address_ptr = &&l_300;
8023  goto l_139;
8024  l_300:
8025  frame_ptr--;
8026  }
8027 
8028  /* Line: 3289 : IF : GCic.cbl */
8029  cob_set_location (st_5, 3289, st_74, NULL, st_6);
8030  if (((int)memcmp (b_410, b_441, 15) != 0))
8031  {
8032 
8033  /* Line: 3290 : MOVE : GCic.cbl */
8034  cob_set_location (st_5, 3290, st_74, NULL, st_4);
8035  memset (b_1271, 32, 136);
8036 
8037  /* Line: 3291 : PERFORM : GCic.cbl */
8038  cob_set_location (st_5, 3291, st_74, NULL, st_10);
8039  for (;;)
8040  {
8041  if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
8042  break;
8043  /* PERFORM 410-Generate-Report-Line */
8044  frame_ptr++;
8045  if (unlikely(frame_ptr == frame_overflow))
8046  cob_fatal_error (COB_FERROR_STACK);
8047  frame_ptr->perform_through = 139;
8048  frame_ptr->return_address_ptr = &&l_301;
8049  goto l_139;
8050  l_301:
8051  frame_ptr--;
8052  }
8053  }
8054 
8055  /* Line: 3294 : MOVE : GCic.cbl */
8056  cob_set_location (st_5, 3294, st_74, NULL, st_4);
8057  memcpy (b_441, b_410, 15);
8058 
8059  /* Line: 3295 : MOVE : GCic.cbl */
8060  cob_set_location (st_5, 3295, st_74, NULL, st_4);
8061  memcpy (b_441 + 15, b_410 + 15, 32);
8062  }
8063 
8064  /* Line: 3297 : IF : GCic.cbl */
8065  cob_set_location (st_5, 3297, st_74, NULL, st_6);
8066  if (((((int)memcmp (b_410 + 15, b_441 + 15, 32) == 0) &&
8067  ((int)cob_cmp (&f_406, &cob_all_space) != 0)) &&
8068  ((int)cob_cmp (&f_1271, &cob_all_space) != 0)))
8069  {
8070 
8071  /* Line: 3300 : MOVE : GCic.cbl */
8072  cob_set_location (st_5, 3300, st_74, NULL, st_4);
8073  *(b_1226) = 89;
8074 
8075  /* Line: 3301 : PERFORM : GCic.cbl */
8076  cob_set_location (st_5, 3301, st_74, NULL, st_10);
8077  /* PERFORM 410-Generate-Report-Line */
8078  frame_ptr++;
8079  if (unlikely(frame_ptr == frame_overflow))
8080  cob_fatal_error (COB_FERROR_STACK);
8081  frame_ptr->perform_through = 139;
8082  frame_ptr->return_address_ptr = &&l_302;
8083  goto l_139;
8084  l_302:
8085  frame_ptr--;
8086 
8087  /* Line: 3302 : MOVE : GCic.cbl */
8088  cob_set_location (st_5, 3302, st_74, NULL, st_4);
8089  (*(int *)(b_445)) = 0;
8090 
8091  /* Line: 3303 : MOVE : GCic.cbl */
8092  cob_set_location (st_5, 3303, st_74, NULL, st_4);
8093  memcpy (b_1271, b_410, 15);
8094 
8095  /* Line: 3304 : MOVE : GCic.cbl */
8096  cob_set_location (st_5, 3304, st_74, NULL, st_4);
8097  memcpy (b_1271 + 16, " (Duplicate Definition) ", 32);
8098 
8099  /* Line: 3305 : MOVE : GCic.cbl */
8100  cob_set_location (st_5, 3305, st_74, NULL, st_4);
8101  memcpy (b_1271 + 56, b_410 + 79, 15);
8102 
8103  /* Line: 3306 : MOVE : GCic.cbl */
8104  cob_set_location (st_5, 3306, st_74, NULL, st_4);
8105  cob_move (&f_406, &f_1276);
8106 
8107  /* Line: 3307 : EXIT PERFORM CYCLE : GCic.cbl */
8108  cob_set_location (st_5, 3307, st_74, NULL, st_76);
8109  goto l_138;
8110  }
8111 
8112  /* Line: 3309 : IF : GCic.cbl */
8113  cob_set_location (st_5, 3309, st_74, NULL, st_6);
8114  if (((((int)memcmp (b_410 + 15, b_441 + 15, 32) == 0) &&
8115  ((int)cob_cmp (&f_406, &cob_all_space) == 0)) &&
8116  ((int)(int)(*(b_1226) - 89) == 0)))
8117  {
8118 
8119  /* Line: 3312 : MOVE : GCic.cbl */
8120  cob_set_location (st_5, 3312, st_74, NULL, st_4);
8121  *(b_1226) = 78;
8122 
8123  /* Line: 3313 : PERFORM : GCic.cbl */
8124  cob_set_location (st_5, 3313, st_74, NULL, st_10);
8125  /* PERFORM 410-Generate-Report-Line */
8126  frame_ptr++;
8127  if (unlikely(frame_ptr == frame_overflow))
8128  cob_fatal_error (COB_FERROR_STACK);
8129  frame_ptr->perform_through = 139;
8130  frame_ptr->return_address_ptr = &&l_303;
8131  goto l_139;
8132  l_303:
8133  frame_ptr--;
8134 
8135  /* Line: 3314 : MOVE : GCic.cbl */
8136  cob_set_location (st_5, 3314, st_74, NULL, st_4);
8137  (*(int *)(b_445)) = 0;
8138 
8139  /* Line: 3315 : MOVE : GCic.cbl */
8140  cob_set_location (st_5, 3315, st_74, NULL, st_4);
8141  memcpy (b_1271, b_410, 15);
8142 
8143  /* Line: 3316 : MOVE : GCic.cbl */
8144  cob_set_location (st_5, 3316, st_74, NULL, st_4);
8145  memcpy (b_1271 + 16, " (Duplicate References) ", 32);
8146  }
8147 
8148  /* Line: 3318 : IF : GCic.cbl */
8149  cob_set_location (st_5, 3318, st_74, NULL, st_6);
8150  if (((int)cob_cmp (&f_1271, &cob_all_space) == 0))
8151  {
8152 
8153  /* Line: 3319 : MOVE : GCic.cbl */
8154  cob_set_location (st_5, 3319, st_74, NULL, st_4);
8155  memcpy (b_1271, b_410, 15);
8156 
8157  /* Line: 3320 : MOVE : GCic.cbl */
8158  cob_set_location (st_5, 3320, st_74, NULL, st_4);
8159  memcpy (b_1271 + 16, b_410 + 47, 32);
8160 
8161  /* Line: 3321 : MOVE : GCic.cbl */
8162  cob_set_location (st_5, 3321, st_74, NULL, st_4);
8163  memcpy (b_1271 + 56, b_410 + 79, 15);
8164 
8165  /* Line: 3322 : IF : GCic.cbl */
8166  cob_set_location (st_5, 3322, st_74, NULL, st_6);
8167  if (((int)cob_cmp (&f_406, &cob_all_space) != 0))
8168  {
8169 
8170  /* Line: 3323 : MOVE : GCic.cbl */
8171  cob_set_location (st_5, 3323, st_74, NULL, st_4);
8172  cob_move (&f_406, &f_1276);
8173  }
8174  }
8175 
8176  /* Line: 3326 : IF : GCic.cbl */
8177  cob_set_location (st_5, 3326, st_74, NULL, st_6);
8178  if (((int)cob_cmp (&f_407, (cob_field *)&c_177) > 0))
8179  {
8180 
8181  /* Line: 3327 : ADD : GCic.cbl */
8182  cob_set_location (st_5, 3327, st_74, NULL, st_15);
8183  (*(int *)(b_445)) = ((*(int *)(b_445)) + 1);
8184 
8185  /* Line: 3328 : IF : GCic.cbl */
8186  cob_set_location (st_5, 3328, st_74, NULL, st_6);
8187  if (((int)cob_cmp_s32 (b_445, cob_get_llint (&f_1284)) > 0))
8188  {
8189 
8190  /* Line: 3329 : PERFORM : GCic.cbl */
8191  cob_set_location (st_5, 3329, st_74, NULL, st_10);
8192  /* PERFORM 410-Generate-Report-Line */
8193  frame_ptr++;
8194  if (unlikely(frame_ptr == frame_overflow))
8195  cob_fatal_error (COB_FERROR_STACK);
8196  frame_ptr->perform_through = 139;
8197  frame_ptr->return_address_ptr = &&l_304;
8198  goto l_139;
8199  l_304:
8200  frame_ptr--;
8201 
8202  /* Line: 3330 : MOVE : GCic.cbl */
8203  cob_set_location (st_5, 3330, st_74, NULL, st_4);
8204  (*(int *)(b_445)) = 1;
8205  }
8206 
8207  /* Line: 3332 : MOVE : GCic.cbl */
8208  cob_set_location (st_5, 3332, st_74, NULL, st_4);
8209  cob_move (&f_408, COB_SET_FLD(f0, 6, b_1271 + 72 + 8 * ((*(int *)(b_445)) - 1), &a_11));
8210 
8211  /* Line: 3334 : MOVE : GCic.cbl */
8212  cob_set_location (st_5, 3334, st_74, NULL, st_4);
8213  *(b_1271 + 78 + 8 * ((*(int *)(b_445)) - 1)) = *(b_410 + 106);
8214  }
8215 
8216  /* Implicit EXIT label */
8217  l_138:;
8218  }
8219 
8220  /* Implicit EXIT label */
8221  l_137:;
8222 
8223  /* Line: 3338 : IF : GCic.cbl */
8224  cob_set_location (st_5, 3338, st_74, NULL, st_6);
8225  if (((int)cob_cmp (&f_1271, &cob_all_space) != 0))
8226  {
8227 
8228  /* Line: 3339 : PERFORM : GCic.cbl */
8229  cob_set_location (st_5, 3339, st_74, NULL, st_10);
8230  /* PERFORM 410-Generate-Report-Line */
8231  frame_ptr++;
8232  if (unlikely(frame_ptr == frame_overflow))
8233  cob_fatal_error (COB_FERROR_STACK);
8234  frame_ptr->perform_through = 139;
8235  frame_ptr->return_address_ptr = &&l_305;
8236  goto l_139;
8237  l_305:
8238  frame_ptr--;
8239  }
8240 
8241  /* Implicit PERFORM return */
8242  if (frame_ptr->perform_through == 135)
8243  goto *frame_ptr->return_address_ptr;
8244 
8245  /* Line: 3343 : Section 410-Generate-Report-Line: GCic.cbl */
8246  l_139:;
8247 
8248  /* Line: 3344 : IF : GCic.cbl */
8249  cob_set_location (st_5, 3344, st_77, NULL, st_6);
8250  if (((int)cob_cmp_s32 (b_447, 1LL) < 0))
8251  {
8252 
8253  /* Line: 3345 : PERFORM : GCic.cbl */
8254  cob_set_location (st_5, 3345, st_77, NULL, st_10);
8255  /* PERFORM 420-Generate-Xref-Footer */
8256  frame_ptr++;
8257  if (unlikely(frame_ptr == frame_overflow))
8258  cob_fatal_error (COB_FERROR_STACK);
8259  frame_ptr->perform_through = 141;
8260  frame_ptr->return_address_ptr = &&l_306;
8261  goto l_141;
8262  l_306:
8263  frame_ptr--;
8264 
8265  /* Line: 3346 : ADD : GCic.cbl */
8266  cob_set_location (st_5, 3346, st_77, NULL, st_15);
8267  (*(int *)(b_461)) = ((*(int *)(b_461)) + 1);
8268 
8269  /* Line: 3347 : MOVE : GCic.cbl */
8270  cob_set_location (st_5, 3347, st_77, NULL, st_4);
8271  memcpy (b_462, "Page: ", 6);
8272 
8273  /* Line: 3348 : MOVE : GCic.cbl */
8274  cob_set_location (st_5, 3348, st_77, NULL, st_4);
8275  cob_move (&f_461, &f_464);
8276 
8277  /* Line: 3349 : CALL : GCic.cbl */
8278  cob_set_location (st_5, 3349, st_77, NULL, st_18);
8279  cob_procedure_params[0] = &f_464;
8280  cob_procedure_params[1] = (cob_field *)&c_178;
8281  cob_glob_ptr->cob_call_params = 2;
8282  b_377 = cob_sys_justify (b_462 + 6, (cob_u8_ptr)"Left");
8283 
8284  /* Line: 3350 : CALL : GCic.cbl */
8285  cob_set_location (st_5, 3350, st_77, NULL, st_18);
8286  cob_procedure_params[0] = &f_462;
8287  cob_procedure_params[1] = (cob_field *)&c_109;
8288  cob_glob_ptr->cob_call_params = 2;
8289  b_377 = cob_sys_justify (b_462, (cob_u8_ptr)"Right");
8290 
8291  /* Line: 3351 : IF : GCic.cbl */
8292  cob_set_location (st_5, 3351, st_77, NULL, st_6);
8293  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
8294  {
8295 
8296  /* Line: 3352 : MOVE : GCic.cbl */
8297  cob_set_location (st_5, 3352, st_77, NULL, st_4);
8298  cob_move (&f_1270, &f_390);
8299 
8300  /* Line: 3354 : MOVE : GCic.cbl */
8301  cob_set_location (st_5, 3354, st_77, NULL, st_4);
8302  cob_move ((cob_field *)&c_179, COB_SET_FLD(f0, 23, b_392 + 24, &a_1));
8303 
8304  /* Line: 3356 : MOVE : GCic.cbl */
8305  cob_set_location (st_5, 3356, st_77, NULL, st_4);
8306  cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 125, &a_1));
8307 
8308  /* Line: 3358 : WRITE : GCic.cbl */
8309  cob_set_location (st_5, 3358, st_77, NULL, st_23);
8310  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8311  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8312  {
8313  /* PERFORM Default Error Handler */
8314  frame_ptr++;
8315  if (unlikely(frame_ptr == frame_overflow))
8316  cob_fatal_error (COB_FERROR_STACK);
8317  frame_ptr->perform_through = 1;
8318  frame_ptr->return_address_ptr = &&l_307;
8319  goto l_1;
8320  l_307:
8321  frame_ptr--;
8322  }
8323 
8324  /* Line: 3359 : MOVE : GCic.cbl */
8325  cob_set_location (st_5, 3359, st_77, NULL, st_4);
8326  memcpy (b_392, b_465, 135);
8327 
8328  /* Line: 3361 : WRITE : GCic.cbl */
8329  cob_set_location (st_5, 3361, st_77, NULL, st_23);
8330  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8331  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8332  {
8333  /* PERFORM Default Error Handler */
8334  frame_ptr++;
8335  if (unlikely(frame_ptr == frame_overflow))
8336  cob_fatal_error (COB_FERROR_STACK);
8337  frame_ptr->perform_through = 1;
8338  frame_ptr->return_address_ptr = &&l_308;
8339  goto l_1;
8340  l_308:
8341  frame_ptr--;
8342  }
8343 
8344  /* Line: 3362 : MOVE : GCic.cbl */
8345  cob_set_location (st_5, 3362, st_77, NULL, st_4);
8346  cob_move ((cob_field *)&c_180, &f_390);
8347 
8348  /* Line: 3365 : MOVE : GCic.cbl */
8349  cob_set_location (st_5, 3365, st_77, NULL, st_4);
8350  memcpy (b_392 + 125, b_462, 10);
8351 
8352  /* Line: 3367 : WRITE : GCic.cbl */
8353  cob_set_location (st_5, 3367, st_77, NULL, st_23);
8354  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8355  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8356  {
8357  /* PERFORM Default Error Handler */
8358  frame_ptr++;
8359  if (unlikely(frame_ptr == frame_overflow))
8360  cob_fatal_error (COB_FERROR_STACK);
8361  frame_ptr->perform_through = 1;
8362  frame_ptr->return_address_ptr = &&l_309;
8363  goto l_1;
8364  l_309:
8365  frame_ptr--;
8366  }
8367 
8368  /* Line: 3368 : MOVE : GCic.cbl */
8369  cob_set_location (st_5, 3368, st_77, NULL, st_4);
8370  memset (b_392, 61, 135);
8371 
8372  /* Line: 3369 : MOVE : GCic.cbl */
8373  cob_set_location (st_5, 3369, st_77, NULL, st_4);
8374  *(b_392 + 15) = 32;
8375  *(b_392 + 48) = 32;
8376  *(b_392 + 55) = 32;
8377  *(b_392 + 71) = 32;
8378 
8379  /* Line: 3373 : WRITE : GCic.cbl */
8380  cob_set_location (st_5, 3373, st_77, NULL, st_23);
8381  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8382  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8383  {
8384  /* PERFORM Default Error Handler */
8385  frame_ptr++;
8386  if (unlikely(frame_ptr == frame_overflow))
8387  cob_fatal_error (COB_FERROR_STACK);
8388  frame_ptr->perform_through = 1;
8389  frame_ptr->return_address_ptr = &&l_310;
8390  goto l_1;
8391  l_310:
8392  frame_ptr--;
8393  }
8394  }
8395  else
8396  {
8397  /* ELSE */
8398 
8399  /* Line: 3375 : MOVE : GCic.cbl */
8400  cob_set_location (st_5, 3375, st_77, NULL, st_4);
8401  cob_move (&f_1270, &f_389);
8402 
8403  /* Line: 3377 : MOVE : GCic.cbl */
8404  cob_set_location (st_5, 3377, st_77, NULL, st_4);
8405  cob_move ((cob_field *)&c_179, COB_SET_FLD(f0, 23, b_392 + 24, &a_1));
8406 
8407  /* Line: 3379 : MOVE : GCic.cbl */
8408  cob_set_location (st_5, 3379, st_77, NULL, st_4);
8409  cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 86, &a_1));
8410 
8411  /* Line: 3381 : WRITE : GCic.cbl */
8412  cob_set_location (st_5, 3381, st_77, NULL, st_23);
8413  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8414  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8415  {
8416  /* PERFORM Default Error Handler */
8417  frame_ptr++;
8418  if (unlikely(frame_ptr == frame_overflow))
8419  cob_fatal_error (COB_FERROR_STACK);
8420  frame_ptr->perform_through = 1;
8421  frame_ptr->return_address_ptr = &&l_311;
8422  goto l_1;
8423  l_311:
8424  frame_ptr--;
8425  }
8426 
8427  /* Line: 3382 : MOVE : GCic.cbl */
8428  cob_set_location (st_5, 3382, st_77, NULL, st_4);
8429  memcpy (b_392, b_465 + 39, 96);
8430 
8431  /* Line: 3384 : WRITE : GCic.cbl */
8432  cob_set_location (st_5, 3384, st_77, NULL, st_23);
8433  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8434  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8435  {
8436  /* PERFORM Default Error Handler */
8437  frame_ptr++;
8438  if (unlikely(frame_ptr == frame_overflow))
8439  cob_fatal_error (COB_FERROR_STACK);
8440  frame_ptr->perform_through = 1;
8441  frame_ptr->return_address_ptr = &&l_312;
8442  goto l_1;
8443  l_312:
8444  frame_ptr--;
8445  }
8446 
8447  /* Line: 3385 : MOVE : GCic.cbl */
8448  cob_set_location (st_5, 3385, st_77, NULL, st_4);
8449  memcpy (b_392, "PROGRAM-ID Identifier/Register/Function Defn Where Defined References ", 96);
8450 
8451  /* Line: 3388 : MOVE : GCic.cbl */
8452  cob_set_location (st_5, 3388, st_77, NULL, st_4);
8453  memcpy (b_392 + 86, b_462, 10);
8454 
8455  /* Line: 3390 : WRITE : GCic.cbl */
8456  cob_set_location (st_5, 3390, st_77, NULL, st_23);
8457  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8458  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8459  {
8460  /* PERFORM Default Error Handler */
8461  frame_ptr++;
8462  if (unlikely(frame_ptr == frame_overflow))
8463  cob_fatal_error (COB_FERROR_STACK);
8464  frame_ptr->perform_through = 1;
8465  frame_ptr->return_address_ptr = &&l_313;
8466  goto l_1;
8467  l_313:
8468  frame_ptr--;
8469  }
8470 
8471  /* Line: 3391 : MOVE : GCic.cbl */
8472  cob_set_location (st_5, 3391, st_77, NULL, st_4);
8473  memset (b_392, 61, 96);
8474 
8475  /* Line: 3392 : MOVE : GCic.cbl */
8476  cob_set_location (st_5, 3392, st_77, NULL, st_4);
8477  *(b_392 + 15) = 32;
8478  *(b_392 + 48) = 32;
8479  *(b_392 + 55) = 32;
8480  *(b_392 + 71) = 32;
8481 
8482  /* Line: 3396 : WRITE : GCic.cbl */
8483  cob_set_location (st_5, 3396, st_77, NULL, st_23);
8484  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8485  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8486  {
8487  /* PERFORM Default Error Handler */
8488  frame_ptr++;
8489  if (unlikely(frame_ptr == frame_overflow))
8490  cob_fatal_error (COB_FERROR_STACK);
8491  frame_ptr->perform_through = 1;
8492  frame_ptr->return_address_ptr = &&l_314;
8493  goto l_1;
8494  l_314:
8495  frame_ptr--;
8496  }
8497  }
8498 
8499  /* Line: 3398 : COMPUTE : GCic.cbl */
8500  cob_set_location (st_5, 3398, st_77, NULL, st_40);
8501  cob_decimal_set_llint (d0, (*(int *)(b_448)));
8502  cob_decimal_set_llint (d1, 4LL);
8503  cob_decimal_sub (d0, d1);
8504  cob_decimal_get_field (d0, &f_447, 0);
8505  }
8506 
8507  /* Line: 3400 : IF : GCic.cbl */
8508  cob_set_location (st_5, 3400, st_77, NULL, st_6);
8509  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
8510  {
8511 
8512  /* Line: 3401 : WRITE : GCic.cbl */
8513  cob_set_location (st_5, 3401, st_77, NULL, st_23);
8514  memcpy (b_392, b_1271, 135);
8515  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8516  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8517  {
8518  /* PERFORM Default Error Handler */
8519  frame_ptr++;
8520  if (unlikely(frame_ptr == frame_overflow))
8521  cob_fatal_error (COB_FERROR_STACK);
8522  frame_ptr->perform_through = 1;
8523  frame_ptr->return_address_ptr = &&l_315;
8524  goto l_1;
8525  l_315:
8526  frame_ptr--;
8527  }
8528  }
8529  else
8530  {
8531  /* ELSE */
8532 
8533  /* Line: 3404 : WRITE : GCic.cbl */
8534  cob_set_location (st_5, 3404, st_77, NULL, st_23);
8535  memcpy (b_392, b_1271, 96);
8536  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8537  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8538  {
8539  /* PERFORM Default Error Handler */
8540  frame_ptr++;
8541  if (unlikely(frame_ptr == frame_overflow))
8542  cob_fatal_error (COB_FERROR_STACK);
8543  frame_ptr->perform_through = 1;
8544  frame_ptr->return_address_ptr = &&l_316;
8545  goto l_1;
8546  l_316:
8547  frame_ptr--;
8548  }
8549  }
8550 
8551  /* Line: 3407 : MOVE : GCic.cbl */
8552  cob_set_location (st_5, 3407, st_77, NULL, st_4);
8553  memset (b_1271, 32, 136);
8554 
8555  /* Line: 3408 : MOVE : GCic.cbl */
8556  cob_set_location (st_5, 3408, st_77, NULL, st_4);
8557  (*(int *)(b_445)) = 0;
8558 
8559  /* Line: 3409 : SUBTRACT : GCic.cbl */
8560  cob_set_location (st_5, 3409, st_77, NULL, st_17);
8561  (*(int *)(b_447)) = ((*(int *)(b_447)) - 1);
8562 
8563  /* Implicit PERFORM return */
8564  if (frame_ptr->perform_through == 139)
8565  goto *frame_ptr->return_address_ptr;
8566 
8567  /* Line: 3411 : Section 420-Generate-Xref-Footer: GCic.cbl */
8568  l_141:;
8569 
8570  /* Line: 3412 : IF : GCic.cbl */
8571  cob_set_location (st_5, 3412, st_78, NULL, st_6);
8572  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
8573  {
8574 
8575  /* Line: 3413 : WRITE : GCic.cbl */
8576  cob_set_location (st_5, 3413, st_78, NULL, st_23);
8577  memset (b_392, 32, 135);
8578  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8579  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8580  {
8581  /* PERFORM Default Error Handler */
8582  frame_ptr++;
8583  if (unlikely(frame_ptr == frame_overflow))
8584  cob_fatal_error (COB_FERROR_STACK);
8585  frame_ptr->perform_through = 1;
8586  frame_ptr->return_address_ptr = &&l_317;
8587  goto l_1;
8588  l_317:
8589  frame_ptr--;
8590  }
8591 
8592  /* Line: 3414 : MOVE : GCic.cbl */
8593  cob_set_location (st_5, 3414, st_78, NULL, st_4);
8594  memset (b_392, 61, 135);
8595 
8596  /* Line: 3416 : WRITE : GCic.cbl */
8597  cob_set_location (st_5, 3416, st_78, NULL, st_23);
8598  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8599  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8600  {
8601  /* PERFORM Default Error Handler */
8602  frame_ptr++;
8603  if (unlikely(frame_ptr == frame_overflow))
8604  cob_fatal_error (COB_FERROR_STACK);
8605  frame_ptr->perform_through = 1;
8606  frame_ptr->return_address_ptr = &&l_318;
8607  goto l_1;
8608  l_318:
8609  frame_ptr--;
8610  }
8611 
8612  /* Line: 3417 : MOVE : GCic.cbl */
8613  cob_set_location (st_5, 3417, st_78, NULL, st_4);
8614  cob_move (&f_411, &f_390);
8615 
8616  /* Line: 3419 : MOVE : GCic.cbl */
8617  cob_set_location (st_5, 3419, st_78, NULL, st_4);
8618  memcpy (b_392 + 125, b_462, 10);
8619 
8620  /* Line: 3421 : IF : GCic.cbl */
8621  cob_set_location (st_5, 3421, st_78, NULL, st_6);
8622  if (((int)(int)(*(b_438) - 89) == 0))
8623  {
8624 
8625  /* Line: 3422 : WRITE : GCic.cbl */
8626  cob_set_location (st_5, 3422, st_78, NULL, st_23);
8627  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8628  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8629  {
8630  /* PERFORM Default Error Handler */
8631  frame_ptr++;
8632  if (unlikely(frame_ptr == frame_overflow))
8633  cob_fatal_error (COB_FERROR_STACK);
8634  frame_ptr->perform_through = 1;
8635  frame_ptr->return_address_ptr = &&l_319;
8636  goto l_1;
8637  l_319:
8638  frame_ptr--;
8639  }
8640  }
8641  else
8642  {
8643  /* ELSE */
8644 
8645  /* Line: 3424 : WRITE : GCic.cbl */
8646  cob_set_location (st_5, 3424, st_78, NULL, st_23);
8647  cob_write (h_F_LISTING_FILE, &f_390, 0x220000, NULL, 0);
8648  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8649  {
8650  /* PERFORM Default Error Handler */
8651  frame_ptr++;
8652  if (unlikely(frame_ptr == frame_overflow))
8653  cob_fatal_error (COB_FERROR_STACK);
8654  frame_ptr->perform_through = 1;
8655  frame_ptr->return_address_ptr = &&l_320;
8656  goto l_1;
8657  l_320:
8658  frame_ptr--;
8659  }
8660 
8661  /* Line: 3425 : WRITE : GCic.cbl */
8662  cob_set_location (st_5, 3425, st_78, NULL, st_23);
8663  memset (b_392, 32, 135);
8664  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
8665  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8666  {
8667  /* PERFORM Default Error Handler */
8668  frame_ptr++;
8669  if (unlikely(frame_ptr == frame_overflow))
8670  cob_fatal_error (COB_FERROR_STACK);
8671  frame_ptr->perform_through = 1;
8672  frame_ptr->return_address_ptr = &&l_321;
8673  goto l_1;
8674  l_321:
8675  frame_ptr--;
8676  }
8677  }
8678  }
8679  else
8680  {
8681  /* ELSE */
8682 
8683  /* Line: 3428 : WRITE : GCic.cbl */
8684  cob_set_location (st_5, 3428, st_78, NULL, st_23);
8685  memset (b_392, 32, 96);
8686  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8687  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8688  {
8689  /* PERFORM Default Error Handler */
8690  frame_ptr++;
8691  if (unlikely(frame_ptr == frame_overflow))
8692  cob_fatal_error (COB_FERROR_STACK);
8693  frame_ptr->perform_through = 1;
8694  frame_ptr->return_address_ptr = &&l_322;
8695  goto l_1;
8696  l_322:
8697  frame_ptr--;
8698  }
8699 
8700  /* Line: 3429 : MOVE : GCic.cbl */
8701  cob_set_location (st_5, 3429, st_78, NULL, st_4);
8702  memset (b_392, 61, 96);
8703 
8704  /* Line: 3431 : WRITE : GCic.cbl */
8705  cob_set_location (st_5, 3431, st_78, NULL, st_23);
8706  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8707  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8708  {
8709  /* PERFORM Default Error Handler */
8710  frame_ptr++;
8711  if (unlikely(frame_ptr == frame_overflow))
8712  cob_fatal_error (COB_FERROR_STACK);
8713  frame_ptr->perform_through = 1;
8714  frame_ptr->return_address_ptr = &&l_323;
8715  goto l_1;
8716  l_323:
8717  frame_ptr--;
8718  }
8719 
8720  /* Line: 3432 : MOVE : GCic.cbl */
8721  cob_set_location (st_5, 3432, st_78, NULL, st_4);
8722  cob_move (&f_411, &f_389);
8723 
8724  /* Line: 3434 : MOVE : GCic.cbl */
8725  cob_set_location (st_5, 3434, st_78, NULL, st_4);
8726  memcpy (b_392 + 86, b_462, 10);
8727 
8728  /* Line: 3436 : IF : GCic.cbl */
8729  cob_set_location (st_5, 3436, st_78, NULL, st_6);
8730  if (((int)(int)(*(b_438) - 89) == 0))
8731  {
8732 
8733  /* Line: 3437 : WRITE : GCic.cbl */
8734  cob_set_location (st_5, 3437, st_78, NULL, st_23);
8735  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8736  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8737  {
8738  /* PERFORM Default Error Handler */
8739  frame_ptr++;
8740  if (unlikely(frame_ptr == frame_overflow))
8741  cob_fatal_error (COB_FERROR_STACK);
8742  frame_ptr->perform_through = 1;
8743  frame_ptr->return_address_ptr = &&l_324;
8744  goto l_1;
8745  l_324:
8746  frame_ptr--;
8747  }
8748  }
8749  else
8750  {
8751  /* ELSE */
8752 
8753  /* Line: 3439 : WRITE : GCic.cbl */
8754  cob_set_location (st_5, 3439, st_78, NULL, st_23);
8755  cob_write (h_F_LISTING_FILE, &f_389, 0x220000, NULL, 0);
8756  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8757  {
8758  /* PERFORM Default Error Handler */
8759  frame_ptr++;
8760  if (unlikely(frame_ptr == frame_overflow))
8761  cob_fatal_error (COB_FERROR_STACK);
8762  frame_ptr->perform_through = 1;
8763  frame_ptr->return_address_ptr = &&l_325;
8764  goto l_1;
8765  l_325:
8766  frame_ptr--;
8767  }
8768 
8769  /* Line: 3440 : WRITE : GCic.cbl */
8770  cob_set_location (st_5, 3440, st_78, NULL, st_23);
8771  memset (b_392, 32, 96);
8772  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
8773  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8774  {
8775  /* PERFORM Default Error Handler */
8776  frame_ptr++;
8777  if (unlikely(frame_ptr == frame_overflow))
8778  cob_fatal_error (COB_FERROR_STACK);
8779  frame_ptr->perform_through = 1;
8780  frame_ptr->return_address_ptr = &&l_326;
8781  goto l_1;
8782  l_326:
8783  frame_ptr--;
8784  }
8785  }
8786  }
8787 
8788  /* Implicit PERFORM return */
8789  if (frame_ptr->perform_through == 141)
8790  goto *frame_ptr->return_address_ptr;
8791 
8792  /* Line: 3445 : Section 500-Produce-Source-Listing: GCic.cbl */
8793  l_143:;
8794 
8795  /* Line: 3446 : OPEN : GCic.cbl */
8796  cob_set_location (st_5, 3446, st_79, NULL, st_22);
8797  cob_open (h_F_ORIGINAL_SRC_FILE, 1, 0, NULL);
8798  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8799  {
8800  /* PERFORM Default Error Handler */
8801  frame_ptr++;
8802  if (unlikely(frame_ptr == frame_overflow))
8803  cob_fatal_error (COB_FERROR_STACK);
8804  frame_ptr->perform_through = 1;
8805  frame_ptr->return_address_ptr = &&l_327;
8806  goto l_1;
8807  l_327:
8808  frame_ptr--;
8809  }
8810  cob_open (h_F_EXPANDED_SRC_FILE, 1, 0, NULL);
8811  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8812  {
8813  /* PERFORM Default Error Handler */
8814  frame_ptr++;
8815  if (unlikely(frame_ptr == frame_overflow))
8816  cob_fatal_error (COB_FERROR_STACK);
8817  frame_ptr->perform_through = 1;
8818  frame_ptr->return_address_ptr = &&l_328;
8819  goto l_1;
8820  l_328:
8821  frame_ptr--;
8822  }
8823 
8824  /* Line: 3448 : MOVE : GCic.cbl */
8825  cob_set_location (st_5, 3448, st_79, NULL, st_4);
8826  memset (b_1244, 48, 6);
8827 
8828  /* Line: 3449 : PERFORM : GCic.cbl */
8829  cob_set_location (st_5, 3449, st_79, NULL, st_10);
8830  for (;;)
8831  {
8832 
8833  /* Line: 3450 : READ : GCic.cbl */
8834  cob_set_location (st_5, 3450, st_79, NULL, st_28);
8835  cob_read_next (h_F_EXPANDED_SRC_FILE, NULL, 1);
8836  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8837  {
8838  if (cob_glob_ptr->cob_exception_code == 0x0501)
8839  {
8840 
8841  /* Line: 3451 : MOVE : GCic.cbl */
8842  cob_set_location (st_5, 3451, st_79, NULL, st_4);
8843  memset (b_1239, 32, 263);
8844 
8845  /* Line: 3452 : PERFORM : GCic.cbl */
8846  cob_set_location (st_5, 3452, st_79, NULL, st_10);
8847  for (;;)
8848  {
8849  if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
8850  break;
8851  /* PERFORM 530-Generate-Source-Line */
8852  frame_ptr++;
8853  if (unlikely(frame_ptr == frame_overflow))
8854  cob_fatal_error (COB_FERROR_STACK);
8855  frame_ptr->perform_through = 153;
8856  frame_ptr->return_address_ptr = &&l_329;
8857  goto l_153;
8858  l_329:
8859  frame_ptr--;
8860  }
8861 
8862  /* Line: 3454 : EXIT PERFORM : GCic.cbl */
8863  cob_set_location (st_5, 3454, st_79, NULL, st_35);
8864  goto l_145;
8865  }
8866  else
8867  {
8868  /* PERFORM Default Error Handler */
8869  frame_ptr++;
8870  if (unlikely(frame_ptr == frame_overflow))
8871  cob_fatal_error (COB_FERROR_STACK);
8872  frame_ptr->perform_through = 1;
8873  frame_ptr->return_address_ptr = &&l_330;
8874  goto l_1;
8875  l_330:
8876  frame_ptr--;
8877  }
8878  }
8879 
8880  /* Line: 3456 : IF : GCic.cbl */
8881  cob_set_location (st_5, 3456, st_79, NULL, st_6);
8882  if (((int)memcmp (b_388, (cob_u8_ptr)"#DEFLIT", 7) != 0))
8883  {
8884 
8885  /* Line: 3457 : IF : GCic.cbl */
8886  cob_set_location (st_5, 3457, st_79, NULL, st_6);
8887  if (((int)(int)(*(b_388) - 35) == 0))
8888  {
8889 
8890  /* Line: 3458 : PERFORM : GCic.cbl */
8891  cob_set_location (st_5, 3458, st_79, NULL, st_10);
8892  /* PERFORM 510-Control-Record */
8893  frame_ptr++;
8894  if (unlikely(frame_ptr == frame_overflow))
8895  cob_fatal_error (COB_FERROR_STACK);
8896  frame_ptr->perform_through = 146;
8897  frame_ptr->return_address_ptr = &&l_331;
8898  goto l_146;
8899  l_331:
8900  frame_ptr--;
8901  }
8902  else
8903  {
8904  /* ELSE */
8905 
8906  /* Line: 3460 : PERFORM : GCic.cbl */
8907  cob_set_location (st_5, 3460, st_79, NULL, st_10);
8908  /* PERFORM 520-Expanded-Src-Record */
8909  frame_ptr++;
8910  if (unlikely(frame_ptr == frame_overflow))
8911  cob_fatal_error (COB_FERROR_STACK);
8912  frame_ptr->perform_through = 148;
8913  frame_ptr->return_address_ptr = &&l_332;
8914  goto l_148;
8915  l_332:
8916  frame_ptr--;
8917  }
8918  }
8919  }
8920 
8921  /* Implicit EXIT label */
8922  l_145:;
8923 
8924  /* Line: 3464 : CLOSE : GCic.cbl */
8925  cob_set_location (st_5, 3464, st_79, NULL, st_24);
8926  cob_close (h_F_ORIGINAL_SRC_FILE, NULL, 0, 0);
8927  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8928  {
8929  /* PERFORM Default Error Handler */
8930  frame_ptr++;
8931  if (unlikely(frame_ptr == frame_overflow))
8932  cob_fatal_error (COB_FERROR_STACK);
8933  frame_ptr->perform_through = 1;
8934  frame_ptr->return_address_ptr = &&l_333;
8935  goto l_1;
8936  l_333:
8937  frame_ptr--;
8938  }
8939  cob_close (h_F_EXPANDED_SRC_FILE, NULL, 0, 0);
8940  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8941  {
8942  /* PERFORM Default Error Handler */
8943  frame_ptr++;
8944  if (unlikely(frame_ptr == frame_overflow))
8945  cob_fatal_error (COB_FERROR_STACK);
8946  frame_ptr->perform_through = 1;
8947  frame_ptr->return_address_ptr = &&l_334;
8948  goto l_1;
8949  l_334:
8950  frame_ptr--;
8951  }
8952 
8953  /* Implicit PERFORM return */
8954  if (frame_ptr->perform_through == 143)
8955  goto *frame_ptr->return_address_ptr;
8956 
8957  /* Line: 3468 : Section 510-Control-Record : GCic.cbl */
8958  l_146:;
8959 
8960  /* Line: 3469 : UNSTRING : GCic.cbl */
8961  cob_set_location (st_5, 3469, st_80, NULL, st_16);
8962  cob_unstring_init (&f_384, NULL, 1);
8963  cob_unstring_delimited ((cob_field *)&c_2, 0);
8964  cob_unstring_into (&f_1248, 0, 0);
8965  cob_unstring_into (&f_1253, 0, 0);
8966  cob_unstring_into (&f_435, 0, 0);
8967  cob_unstring_finish ();
8968 
8969  /* Line: 3474 : IF : GCic.cbl */
8970  cob_set_location (st_5, 3474, st_80, NULL, st_6);
8971  if (((int)cob_cmp (cob_intr_upper_case (0, 0, cob_intr_trim (0, 0, &f_1253, 2)), cob_intr_trim (0, 0, &f_450, 0)) == 0))
8972  {
8973 
8974  /* Line: 3476 : SET : GCic.cbl */
8975  cob_set_location (st_5, 3476, st_80, NULL, st_11);
8976  *(b_1226 + 1) = 77;
8977 
8978  /* Line: 3477 : IF : GCic.cbl */
8979  cob_set_location (st_5, 3477, st_80, NULL, st_6);
8980  if (((int)cob_cmp_numdisp (b_1244, 6, 0LL, 0) > 0))
8981  {
8982 
8983  /* Line: 3478 : READ : GCic.cbl */
8984  cob_set_location (st_5, 3478, st_80, NULL, st_28);
8985  cob_read_next (h_F_EXPANDED_SRC_FILE, NULL, 1);
8986  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
8987  {
8988  /* PERFORM Default Error Handler */
8989  frame_ptr++;
8990  if (unlikely(frame_ptr == frame_overflow))
8991  cob_fatal_error (COB_FERROR_STACK);
8992  frame_ptr->perform_through = 1;
8993  frame_ptr->return_address_ptr = &&l_335;
8994  goto l_1;
8995  l_335:
8996  frame_ptr--;
8997  }
8998  }
8999  }
9000  else
9001  {
9002  /* ELSE */
9003 
9004  /* Line: 3481 : SET : GCic.cbl */
9005  cob_set_location (st_5, 3481, st_80, NULL, st_11);
9006  *(b_1226 + 1) = 67;
9007  }
9008 
9009  /* Implicit PERFORM return */
9010  if (frame_ptr->perform_through == 146)
9011  goto *frame_ptr->return_address_ptr;
9012 
9013  /* Line: 3485 : Section 520-Expanded-Src-Record : GCic.cbl */
9014  l_148:;
9015 
9016  /* Line: 3486 : IF : GCic.cbl */
9017  cob_set_location (st_5, 3486, st_81, NULL, st_6);
9018  if (((int)(int)(*(b_1226 + 1) - 77) == 0))
9019  {
9020 
9021  /* Line: 3487 : ADD : GCic.cbl */
9022  cob_set_location (st_5, 3487, st_81, NULL, st_15);
9023  cob_add_int (&f_422, 1, 0);
9024 
9025  /* Line: 3488 : READ : GCic.cbl */
9026  cob_set_location (st_5, 3488, st_81, NULL, st_28);
9027  cob_read_next (h_F_ORIGINAL_SRC_FILE, NULL, 1);
9028  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9029  {
9030  if (cob_glob_ptr->cob_exception_code == 0x0501)
9031  {
9032 
9033  /* Line: 3488 : CONTINUE : GCic.cbl */
9034  cob_set_location (st_5, 3488, st_81, NULL, st_82);
9035  ;
9036  }
9037  else
9038  {
9039  /* PERFORM Default Error Handler */
9040  frame_ptr++;
9041  if (unlikely(frame_ptr == frame_overflow))
9042  cob_fatal_error (COB_FERROR_STACK);
9043  frame_ptr->perform_through = 1;
9044  frame_ptr->return_address_ptr = &&l_336;
9045  goto l_1;
9046  l_336:
9047  frame_ptr--;
9048  }
9049  }
9050 
9051  /* Line: 3489 : ADD : GCic.cbl */
9052  cob_set_location (st_5, 3489, st_81, NULL, st_15);
9053  cob_add_int (&f_1244, 1, 0);
9054 
9055  /* Line: 3490 : MOVE : GCic.cbl */
9056  cob_set_location (st_5, 3490, st_81, NULL, st_4);
9057  memset (b_1239, 32, 263);
9058 
9059  /* Line: 3491 : MOVE : GCic.cbl */
9060  cob_set_location (st_5, 3491, st_81, NULL, st_4);
9061  cob_move (&f_1244, &f_1240);
9062 
9063  /* Line: 3492 : MOVE : GCic.cbl */
9064  cob_set_location (st_5, 3492, st_81, NULL, st_4);
9065  memcpy (b_1239 + 7, b_400, 256);
9066 
9067  /* Line: 3493 : MOVE : GCic.cbl */
9068  cob_set_location (st_5, 3493, st_81, NULL, st_4);
9069  cob_move (cob_intr_lower_case (0, 0, cob_intr_trim (0, 0, &f_397, 1)), &f_1252);
9070 
9071  /* Line: 3495 : INSPECT : GCic.cbl */
9072  cob_set_location (st_5, 3495, st_81, NULL, st_13);
9073  cob_inspect_init (&f_1252, 1);
9074  cob_inspect_start ();
9075  cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
9076  cob_inspect_finish ();
9077 
9078  /* Line: 3496 : EVALUATE : GCic.cbl */
9079  cob_set_location (st_5, 3496, st_81, NULL, st_3);
9080 
9081  /* WHEN */
9082 
9083  if (((int)(int)(*(b_400 + 6) - 47) == 0))
9084  {
9085 
9086  /* Line: 3498 : MOVE : GCic.cbl */
9087  cob_set_location (st_5, 3498, st_81, NULL, st_4);
9088  memset (b_1239, 32, 263);
9089 
9090  /* Line: 3499 : PERFORM : GCic.cbl */
9091  cob_set_location (st_5, 3499, st_81, NULL, st_10);
9092  for (;;)
9093  {
9094  if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
9095  break;
9096  /* PERFORM 530-Generate-Source-Line */
9097  frame_ptr++;
9098  if (unlikely(frame_ptr == frame_overflow))
9099  cob_fatal_error (COB_FERROR_STACK);
9100  frame_ptr->perform_through = 153;
9101  frame_ptr->return_address_ptr = &&l_337;
9102  goto l_153;
9103  l_337:
9104  frame_ptr--;
9105  }
9106  goto l_151;
9107  }
9108 
9109  /* WHEN */
9110 
9111  if (((int)cob_cmp (&f_1252, (cob_field *)&c_181) == 0))
9112  {
9113 
9114  /* Line: 3502 : MOVE : GCic.cbl */
9115  cob_set_location (st_5, 3502, st_81, NULL, st_4);
9116  memset (b_1239, 32, 263);
9117 
9118  /* Line: 3503 : PERFORM : GCic.cbl */
9119  cob_set_location (st_5, 3503, st_81, NULL, st_10);
9120  for (;;)
9121  {
9122  if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
9123  break;
9124  /* PERFORM 530-Generate-Source-Line */
9125  frame_ptr++;
9126  if (unlikely(frame_ptr == frame_overflow))
9127  cob_fatal_error (COB_FERROR_STACK);
9128  frame_ptr->perform_through = 153;
9129  frame_ptr->return_address_ptr = &&l_338;
9130  goto l_153;
9131  l_338:
9132  frame_ptr--;
9133  }
9134 
9135  /* Line: 3505 : EXIT SECTION : GCic.cbl */
9136  cob_set_location (st_5, 3505, st_81, NULL, st_29);
9137  goto l_150;
9138  }
9139 
9140  /* WHEN */
9141 
9142  if (((int)cob_cmp (&f_1252, (cob_field *)&c_182) == 0))
9143  {
9144 
9145  /* Line: 3507 : MOVE : GCic.cbl */
9146  cob_set_location (st_5, 3507, st_81, NULL, st_4);
9147  memset (b_1239, 32, 263);
9148 
9149  /* Line: 3508 : PERFORM : GCic.cbl */
9150  cob_set_location (st_5, 3508, st_81, NULL, st_10);
9151  /* PERFORM 530-Generate-Source-Line */
9152  frame_ptr++;
9153  if (unlikely(frame_ptr == frame_overflow))
9154  cob_fatal_error (COB_FERROR_STACK);
9155  frame_ptr->perform_through = 153;
9156  frame_ptr->return_address_ptr = &&l_339;
9157  goto l_153;
9158  l_339:
9159  frame_ptr--;
9160 
9161  /* Line: 3509 : EXIT SECTION : GCic.cbl */
9162  cob_set_location (st_5, 3509, st_81, NULL, st_29);
9163  goto l_150;
9164  }
9165 
9166  /* WHEN */
9167 
9168  if (((int)cob_cmp (&f_1252, (cob_field *)&c_183) == 0))
9169  {
9170 
9171  /* Line: 3511 : MOVE : GCic.cbl */
9172  cob_set_location (st_5, 3511, st_81, NULL, st_4);
9173  memset (b_1239, 32, 263);
9174 
9175  /* Line: 3512 : PERFORM : GCic.cbl */
9176  cob_set_location (st_5, 3512, st_81, NULL, st_10);
9177  for (n0 = 2LL; n0 > 0; n0--)
9178  {
9179  /* PERFORM 530-Generate-Source-Line */
9180  frame_ptr++;
9181  if (unlikely(frame_ptr == frame_overflow))
9182  cob_fatal_error (COB_FERROR_STACK);
9183  frame_ptr->perform_through = 153;
9184  frame_ptr->return_address_ptr = &&l_340;
9185  goto l_153;
9186  l_340:
9187  frame_ptr--;
9188  }
9189 
9190  /* Line: 3513 : EXIT SECTION : GCic.cbl */
9191  cob_set_location (st_5, 3513, st_81, NULL, st_29);
9192  goto l_150;
9193  }
9194 
9195  /* WHEN */
9196 
9197  if (((int)cob_cmp (&f_1252, (cob_field *)&c_184) == 0))
9198  {
9199 
9200  /* Line: 3515 : MOVE : GCic.cbl */
9201  cob_set_location (st_5, 3515, st_81, NULL, st_4);
9202  memset (b_1239, 32, 263);
9203 
9204  /* Line: 3516 : PERFORM : GCic.cbl */
9205  cob_set_location (st_5, 3516, st_81, NULL, st_10);
9206  for (n1 = 3LL; n1 > 0; n1--)
9207  {
9208  /* PERFORM 530-Generate-Source-Line */
9209  frame_ptr++;
9210  if (unlikely(frame_ptr == frame_overflow))
9211  cob_fatal_error (COB_FERROR_STACK);
9212  frame_ptr->perform_through = 153;
9213  frame_ptr->return_address_ptr = &&l_341;
9214  goto l_153;
9215  l_341:
9216  frame_ptr--;
9217  }
9218 
9219  /* Line: 3517 : EXIT SECTION : GCic.cbl */
9220  cob_set_location (st_5, 3517, st_81, NULL, st_29);
9221  goto l_150;
9222  }
9223 
9224  /* End EVALUATE */
9225  l_151:;
9226 
9227  /* Line: 3519 : PERFORM : GCic.cbl */
9228  cob_set_location (st_5, 3519, st_81, NULL, st_10);
9229  /* PERFORM 530-Generate-Source-Line */
9230  frame_ptr++;
9231  if (unlikely(frame_ptr == frame_overflow))
9232  cob_fatal_error (COB_FERROR_STACK);
9233  frame_ptr->perform_through = 153;
9234  frame_ptr->return_address_ptr = &&l_342;
9235  goto l_153;
9236  l_342:
9237  frame_ptr--;
9238  }
9239  else
9240  {
9241  /* ELSE */
9242 
9243  /* Line: 3521 : IF : GCic.cbl */
9244  cob_set_location (st_5, 3521, st_81, NULL, st_6);
9245  if (((int)cob_cmp (&f_382, &cob_all_space) != 0))
9246  {
9247 
9248  /* Line: 3522 : MOVE : GCic.cbl */
9249  cob_set_location (st_5, 3522, st_81, NULL, st_4);
9250  memset (b_1239, 32, 263);
9251 
9252  /* Line: 3523 : MOVE : GCic.cbl */
9253  cob_set_location (st_5, 3523, st_81, NULL, st_4);
9254  memcpy (b_1239 + 7, b_388, 256);
9255 
9256  /* Line: 3525 : MOVE : GCic.cbl */
9257  cob_set_location (st_5, 3525, st_81, NULL, st_4);
9258  cob_move (cob_intr_lower_case (0, 0, cob_intr_trim (0, 0, &f_397, 1)), &f_1252);
9259 
9260  /* Line: 3527 : INSPECT : GCic.cbl */
9261  cob_set_location (st_5, 3527, st_81, NULL, st_13);
9262  cob_inspect_init (&f_1252, 1);
9263  cob_inspect_start ();
9264  cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
9265  cob_inspect_finish ();
9266 
9267  /* Line: 3529 : EVALUATE : GCic.cbl */
9268  cob_set_location (st_5, 3529, st_81, NULL, st_3);
9269 
9270  /* WHEN */
9271 
9272  if (((int)cob_cmp (&f_1252, (cob_field *)&c_181) == 0))
9273  {
9274 
9275  /* Line: 3531 : MOVE : GCic.cbl */
9276  cob_set_location (st_5, 3531, st_81, NULL, st_4);
9277  (*(int *)(b_447)) = 0;
9278 
9279  /* Line: 3532 : EXIT SECTION : GCic.cbl */
9280  cob_set_location (st_5, 3532, st_81, NULL, st_29);
9281  goto l_150;
9282  }
9283 
9284  /* WHEN */
9285 
9286  if (((int)cob_cmp (&f_1252, (cob_field *)&c_182) == 0))
9287  {
9288 
9289  /* Line: 3534 : MOVE : GCic.cbl */
9290  cob_set_location (st_5, 3534, st_81, NULL, st_4);
9291  memset (b_1239, 32, 263);
9292 
9293  /* Line: 3535 : PERFORM : GCic.cbl */
9294  cob_set_location (st_5, 3535, st_81, NULL, st_10);
9295  /* PERFORM 530-Generate-Source-Line */
9296  frame_ptr++;
9297  if (unlikely(frame_ptr == frame_overflow))
9298  cob_fatal_error (COB_FERROR_STACK);
9299  frame_ptr->perform_through = 153;
9300  frame_ptr->return_address_ptr = &&l_343;
9301  goto l_153;
9302  l_343:
9303  frame_ptr--;
9304 
9305  /* Line: 3536 : EXIT SECTION : GCic.cbl */
9306  cob_set_location (st_5, 3536, st_81, NULL, st_29);
9307  goto l_150;
9308  }
9309 
9310  /* WHEN */
9311 
9312  if (((int)cob_cmp (&f_1252, (cob_field *)&c_183) == 0))
9313  {
9314 
9315  /* Line: 3538 : MOVE : GCic.cbl */
9316  cob_set_location (st_5, 3538, st_81, NULL, st_4);
9317  memset (b_1239, 32, 263);
9318 
9319  /* Line: 3539 : PERFORM : GCic.cbl */
9320  cob_set_location (st_5, 3539, st_81, NULL, st_10);
9321  for (n2 = 2LL; n2 > 0; n2--)
9322  {
9323  /* PERFORM 530-Generate-Source-Line */
9324  frame_ptr++;
9325  if (unlikely(frame_ptr == frame_overflow))
9326  cob_fatal_error (COB_FERROR_STACK);
9327  frame_ptr->perform_through = 153;
9328  frame_ptr->return_address_ptr = &&l_344;
9329  goto l_153;
9330  l_344:
9331  frame_ptr--;
9332  }
9333 
9334  /* Line: 3540 : EXIT SECTION : GCic.cbl */
9335  cob_set_location (st_5, 3540, st_81, NULL, st_29);
9336  goto l_150;
9337  }
9338 
9339  /* WHEN */
9340 
9341  if (((int)cob_cmp (&f_1252, (cob_field *)&c_184) == 0))
9342  {
9343 
9344  /* Line: 3542 : MOVE : GCic.cbl */
9345  cob_set_location (st_5, 3542, st_81, NULL, st_4);
9346  memset (b_1239, 32, 263);
9347 
9348  /* Line: 3543 : PERFORM : GCic.cbl */
9349  cob_set_location (st_5, 3543, st_81, NULL, st_10);
9350  for (n3 = 3LL; n3 > 0; n3--)
9351  {
9352  /* PERFORM 530-Generate-Source-Line */
9353  frame_ptr++;
9354  if (unlikely(frame_ptr == frame_overflow))
9355  cob_fatal_error (COB_FERROR_STACK);
9356  frame_ptr->perform_through = 153;
9357  frame_ptr->return_address_ptr = &&l_345;
9358  goto l_153;
9359  l_345:
9360  frame_ptr--;
9361  }
9362 
9363  /* Line: 3544 : EXIT SECTION : GCic.cbl */
9364  cob_set_location (st_5, 3544, st_81, NULL, st_29);
9365  goto l_150;
9366  }
9367 
9368  /* End EVALUATE */
9369  l_152:;
9370 
9371  /* Line: 3546 : PERFORM : GCic.cbl */
9372  cob_set_location (st_5, 3546, st_81, NULL, st_10);
9373  /* PERFORM 530-Generate-Source-Line */
9374  frame_ptr++;
9375  if (unlikely(frame_ptr == frame_overflow))
9376  cob_fatal_error (COB_FERROR_STACK);
9377  frame_ptr->perform_through = 153;
9378  frame_ptr->return_address_ptr = &&l_346;
9379  goto l_153;
9380  l_346:
9381  frame_ptr--;
9382  }
9383  }
9384 
9385  /* Implicit EXIT label */
9386  l_150:;
9387 
9388  /* Implicit PERFORM return */
9389  if (frame_ptr->perform_through == 148)
9390  goto *frame_ptr->return_address_ptr;
9391 
9392  /* Line: 3551 : Section 530-Generate-Source-Line: GCic.cbl */
9393  l_153:;
9394 
9395  /* Line: 3552 : MOVE : GCic.cbl */
9396  cob_set_location (st_5, 3552, st_83, NULL, st_4);
9397  (*(int *)(b_1245)) = 1;
9398 
9399  /* Line: 3553 : IF : GCic.cbl */
9400  cob_set_location (st_5, 3553, st_83, NULL, st_6);
9401  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
9402  {
9403 
9404  /* Line: 3554 : IF : GCic.cbl */
9405  cob_set_location (st_5, 3554, st_83, NULL, st_6);
9406  if (((int)cob_cmp (COB_SET_FLD(f0, 128, b_1239 + 7 + 128, &a_1), &cob_all_space) > 0))
9407  {
9408 
9409  /* Line: 3555 : ADD : GCic.cbl */
9410  cob_set_location (st_5, 3555, st_83, NULL, st_15);
9411  (*(int *)(b_1245)) = ((*(int *)(b_1245)) + 1);
9412  }
9413  }
9414  else
9415  {
9416  /* ELSE */
9417 
9418  /* Line: 3558 : IF : GCic.cbl */
9419  cob_set_location (st_5, 3558, st_83, NULL, st_6);
9420  if (((int)cob_cmp (COB_SET_FLD(f0, 167, b_1239 + 7 + 89, &a_1), &cob_all_space) > 0))
9421  {
9422 
9423  /* Line: 3559 : ADD : GCic.cbl */
9424  cob_set_location (st_5, 3559, st_83, NULL, st_15);
9425  (*(int *)(b_1245)) = ((*(int *)(b_1245)) + 1);
9426 
9427  /* Line: 3560 : IF : GCic.cbl */
9428  cob_set_location (st_5, 3560, st_83, NULL, st_6);
9429  if (((int)cob_cmp (COB_SET_FLD(f0, 78, b_1239 + 7 + 178, &a_1), &cob_all_space) > 0))
9430  {
9431 
9432  /* Line: 3561 : ADD : GCic.cbl */
9433  cob_set_location (st_5, 3561, st_83, NULL, st_15);
9434  (*(int *)(b_1245)) = ((*(int *)(b_1245)) + 1);
9435  }
9436  }
9437  }
9438 
9439  /* Line: 3565 : IF : GCic.cbl */
9440  cob_set_location (st_5, 3565, st_83, NULL, st_6);
9441  if (((int)cob_cmp_s32 (b_447, (*(int *)(b_1245))) < 0))
9442  {
9443 
9444  /* Line: 3566 : IF : GCic.cbl */
9445  cob_set_location (st_5, 3566, st_83, NULL, st_6);
9446  if (((int)cob_cmp_s32 (b_461, 0LL) > 0))
9447  {
9448 
9449  /* Line: 3567 : IF : GCic.cbl */
9450  cob_set_location (st_5, 3567, st_83, NULL, st_6);
9451  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
9452  {
9453 
9454  /* Line: 3568 : IF : GCic.cbl */
9455  cob_set_location (st_5, 3568, st_83, NULL, st_6);
9456  if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
9457  {
9458 
9459  /* Line: 3569 : WRITE : GCic.cbl */
9460  cob_set_location (st_5, 3569, st_83, NULL, st_23);
9461  memset (b_392, 32, 135);
9462  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9463  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9464  {
9465  /* PERFORM Default Error Handler */
9466  frame_ptr++;
9467  if (unlikely(frame_ptr == frame_overflow))
9468  cob_fatal_error (COB_FERROR_STACK);
9469  frame_ptr->perform_through = 1;
9470  frame_ptr->return_address_ptr = &&l_347;
9471  goto l_1;
9472  l_347:
9473  frame_ptr--;
9474  }
9475  }
9476 
9477  /* Line: 3571 : WRITE : GCic.cbl */
9478  cob_set_location (st_5, 3571, st_83, NULL, st_23);
9479  memset (b_392, 32, 135);
9480  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9481  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9482  {
9483  /* PERFORM Default Error Handler */
9484  frame_ptr++;
9485  if (unlikely(frame_ptr == frame_overflow))
9486  cob_fatal_error (COB_FERROR_STACK);
9487  frame_ptr->perform_through = 1;
9488  frame_ptr->return_address_ptr = &&l_348;
9489  goto l_1;
9490  l_348:
9491  frame_ptr--;
9492  }
9493 
9494  /* Line: 3572 : MOVE : GCic.cbl */
9495  cob_set_location (st_5, 3572, st_83, NULL, st_4);
9496  memset (b_392, 61, 135);
9497 
9498  /* Line: 3574 : WRITE : GCic.cbl */
9499  cob_set_location (st_5, 3574, st_83, NULL, st_23);
9500  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9501  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9502  {
9503  /* PERFORM Default Error Handler */
9504  frame_ptr++;
9505  if (unlikely(frame_ptr == frame_overflow))
9506  cob_fatal_error (COB_FERROR_STACK);
9507  frame_ptr->perform_through = 1;
9508  frame_ptr->return_address_ptr = &&l_349;
9509  goto l_1;
9510  l_349:
9511  frame_ptr--;
9512  }
9513 
9514  /* Line: 3575 : MOVE : GCic.cbl */
9515  cob_set_location (st_5, 3575, st_83, NULL, st_4);
9516  cob_move (&f_411, &f_390);
9517 
9518  /* Line: 3577 : MOVE : GCic.cbl */
9519  cob_set_location (st_5, 3577, st_83, NULL, st_4);
9520  memcpy (b_392 + 125, b_462, 10);
9521 
9522  /* Line: 3579 : WRITE : GCic.cbl */
9523  cob_set_location (st_5, 3579, st_83, NULL, st_23);
9524  cob_write (h_F_LISTING_FILE, &f_390, 0x220000, NULL, 0);
9525  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9526  {
9527  /* PERFORM Default Error Handler */
9528  frame_ptr++;
9529  if (unlikely(frame_ptr == frame_overflow))
9530  cob_fatal_error (COB_FERROR_STACK);
9531  frame_ptr->perform_through = 1;
9532  frame_ptr->return_address_ptr = &&l_350;
9533  goto l_1;
9534  l_350:
9535  frame_ptr--;
9536  }
9537 
9538  /* Line: 3580 : WRITE : GCic.cbl */
9539  cob_set_location (st_5, 3580, st_83, NULL, st_23);
9540  memset (b_392, 32, 135);
9541  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9542  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9543  {
9544  /* PERFORM Default Error Handler */
9545  frame_ptr++;
9546  if (unlikely(frame_ptr == frame_overflow))
9547  cob_fatal_error (COB_FERROR_STACK);
9548  frame_ptr->perform_through = 1;
9549  frame_ptr->return_address_ptr = &&l_351;
9550  goto l_1;
9551  l_351:
9552  frame_ptr--;
9553  }
9554  }
9555  else
9556  {
9557  /* ELSE */
9558 
9559  /* Line: 3582 : EVALUATE : GCic.cbl */
9560  cob_set_location (st_5, 3582, st_83, NULL, st_3);
9561 
9562  /* WHEN */
9563 
9564  if (((int)cob_cmp_s32 (b_1245, 1LL) == 0))
9565  {
9566 
9567  /* Line: 3584 : CONTINUE : GCic.cbl */
9568  cob_set_location (st_5, 3584, st_83, NULL, st_82);
9569  ;
9570  goto l_155;
9571  }
9572 
9573  /* WHEN */
9574 
9575  if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
9576  {
9577 
9578  /* Line: 3586 : WRITE : GCic.cbl */
9579  cob_set_location (st_5, 3586, st_83, NULL, st_23);
9580  memset (b_392, 32, 96);
9581  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9582  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9583  {
9584  /* PERFORM Default Error Handler */
9585  frame_ptr++;
9586  if (unlikely(frame_ptr == frame_overflow))
9587  cob_fatal_error (COB_FERROR_STACK);
9588  frame_ptr->perform_through = 1;
9589  frame_ptr->return_address_ptr = &&l_352;
9590  goto l_1;
9591  l_352:
9592  frame_ptr--;
9593  }
9594  goto l_155;
9595  }
9596 
9597  /* WHEN */
9598 
9599  if (((int)cob_cmp_s32 (b_1245, 3LL) == 0))
9600  {
9601 
9602  /* Line: 3588 : WRITE : GCic.cbl */
9603  cob_set_location (st_5, 3588, st_83, NULL, st_23);
9604  memset (b_392, 32, 96);
9605  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9606  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9607  {
9608  /* PERFORM Default Error Handler */
9609  frame_ptr++;
9610  if (unlikely(frame_ptr == frame_overflow))
9611  cob_fatal_error (COB_FERROR_STACK);
9612  frame_ptr->perform_through = 1;
9613  frame_ptr->return_address_ptr = &&l_353;
9614  goto l_1;
9615  l_353:
9616  frame_ptr--;
9617  }
9618 
9619  /* Line: 3589 : WRITE : GCic.cbl */
9620  cob_set_location (st_5, 3589, st_83, NULL, st_23);
9621  memset (b_392, 32, 96);
9622  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9623  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9624  {
9625  /* PERFORM Default Error Handler */
9626  frame_ptr++;
9627  if (unlikely(frame_ptr == frame_overflow))
9628  cob_fatal_error (COB_FERROR_STACK);
9629  frame_ptr->perform_through = 1;
9630  frame_ptr->return_address_ptr = &&l_354;
9631  goto l_1;
9632  l_354:
9633  frame_ptr--;
9634  }
9635  goto l_155;
9636  }
9637 
9638  /* End EVALUATE */
9639  l_155:;
9640 
9641  /* Line: 3591 : WRITE : GCic.cbl */
9642  cob_set_location (st_5, 3591, st_83, NULL, st_23);
9643  memset (b_392, 32, 96);
9644  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9645  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9646  {
9647  /* PERFORM Default Error Handler */
9648  frame_ptr++;
9649  if (unlikely(frame_ptr == frame_overflow))
9650  cob_fatal_error (COB_FERROR_STACK);
9651  frame_ptr->perform_through = 1;
9652  frame_ptr->return_address_ptr = &&l_355;
9653  goto l_1;
9654  l_355:
9655  frame_ptr--;
9656  }
9657 
9658  /* Line: 3592 : MOVE : GCic.cbl */
9659  cob_set_location (st_5, 3592, st_83, NULL, st_4);
9660  memset (b_392, 61, 96);
9661 
9662  /* Line: 3594 : WRITE : GCic.cbl */
9663  cob_set_location (st_5, 3594, st_83, NULL, st_23);
9664  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9665  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9666  {
9667  /* PERFORM Default Error Handler */
9668  frame_ptr++;
9669  if (unlikely(frame_ptr == frame_overflow))
9670  cob_fatal_error (COB_FERROR_STACK);
9671  frame_ptr->perform_through = 1;
9672  frame_ptr->return_address_ptr = &&l_356;
9673  goto l_1;
9674  l_356:
9675  frame_ptr--;
9676  }
9677 
9678  /* Line: 3595 : MOVE : GCic.cbl */
9679  cob_set_location (st_5, 3595, st_83, NULL, st_4);
9680  cob_move (&f_411, &f_389);
9681 
9682  /* Line: 3597 : MOVE : GCic.cbl */
9683  cob_set_location (st_5, 3597, st_83, NULL, st_4);
9684  memcpy (b_392 + 86, b_462, 10);
9685 
9686  /* Line: 3599 : WRITE : GCic.cbl */
9687  cob_set_location (st_5, 3599, st_83, NULL, st_23);
9688  cob_write (h_F_LISTING_FILE, &f_389, 0x220000, NULL, 0);
9689  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9690  {
9691  /* PERFORM Default Error Handler */
9692  frame_ptr++;
9693  if (unlikely(frame_ptr == frame_overflow))
9694  cob_fatal_error (COB_FERROR_STACK);
9695  frame_ptr->perform_through = 1;
9696  frame_ptr->return_address_ptr = &&l_357;
9697  goto l_1;
9698  l_357:
9699  frame_ptr--;
9700  }
9701 
9702  /* Line: 3600 : WRITE : GCic.cbl */
9703  cob_set_location (st_5, 3600, st_83, NULL, st_23);
9704  memset (b_392, 32, 96);
9705  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9706  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9707  {
9708  /* PERFORM Default Error Handler */
9709  frame_ptr++;
9710  if (unlikely(frame_ptr == frame_overflow))
9711  cob_fatal_error (COB_FERROR_STACK);
9712  frame_ptr->perform_through = 1;
9713  frame_ptr->return_address_ptr = &&l_358;
9714  goto l_1;
9715  l_358:
9716  frame_ptr--;
9717  }
9718  }
9719  }
9720 
9721  /* Line: 3603 : ADD : GCic.cbl */
9722  cob_set_location (st_5, 3603, st_83, NULL, st_15);
9723  (*(int *)(b_461)) = ((*(int *)(b_461)) + 1);
9724 
9725  /* Line: 3604 : MOVE : GCic.cbl */
9726  cob_set_location (st_5, 3604, st_83, NULL, st_4);
9727  memcpy (b_462, "Page: ", 6);
9728 
9729  /* Line: 3605 : MOVE : GCic.cbl */
9730  cob_set_location (st_5, 3605, st_83, NULL, st_4);
9731  cob_move (&f_461, &f_464);
9732 
9733  /* Line: 3606 : CALL : GCic.cbl */
9734  cob_set_location (st_5, 3606, st_83, NULL, st_18);
9735  cob_procedure_params[0] = &f_464;
9736  cob_procedure_params[1] = (cob_field *)&c_178;
9737  cob_glob_ptr->cob_call_params = 2;
9738  b_377 = cob_sys_justify (b_462 + 6, (cob_u8_ptr)"Left");
9739 
9740  /* Line: 3607 : CALL : GCic.cbl */
9741  cob_set_location (st_5, 3607, st_83, NULL, st_18);
9742  cob_procedure_params[0] = &f_462;
9743  cob_procedure_params[1] = (cob_field *)&c_109;
9744  cob_glob_ptr->cob_call_params = 2;
9745  b_377 = cob_sys_justify (b_462, (cob_u8_ptr)"Right");
9746 
9747  /* Line: 3608 : IF : GCic.cbl */
9748  cob_set_location (st_5, 3608, st_83, NULL, st_6);
9749  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
9750  {
9751 
9752  /* Line: 3609 : MOVE : GCic.cbl */
9753  cob_set_location (st_5, 3609, st_83, NULL, st_4);
9754  cob_move (&f_1270, &f_390);
9755 
9756  /* Line: 3611 : MOVE : GCic.cbl */
9757  cob_set_location (st_5, 3611, st_83, NULL, st_4);
9758  cob_move ((cob_field *)&c_185, COB_SET_FLD(f0, 14, b_392 + 24, &a_1));
9759 
9760  /* Line: 3613 : MOVE : GCic.cbl */
9761  cob_set_location (st_5, 3613, st_83, NULL, st_4);
9762  cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 125, &a_1));
9763 
9764  /* Line: 3615 : WRITE : GCic.cbl */
9765  cob_set_location (st_5, 3615, st_83, NULL, st_23);
9766  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9767  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9768  {
9769  /* PERFORM Default Error Handler */
9770  frame_ptr++;
9771  if (unlikely(frame_ptr == frame_overflow))
9772  cob_fatal_error (COB_FERROR_STACK);
9773  frame_ptr->perform_through = 1;
9774  frame_ptr->return_address_ptr = &&l_359;
9775  goto l_1;
9776  l_359:
9777  frame_ptr--;
9778  }
9779 
9780  /* Line: 3616 : MOVE : GCic.cbl */
9781  cob_set_location (st_5, 3616, st_83, NULL, st_4);
9782  memcpy (b_392, b_465, 135);
9783 
9784  /* Line: 3618 : WRITE : GCic.cbl */
9785  cob_set_location (st_5, 3618, st_83, NULL, st_23);
9786  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9787  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9788  {
9789  /* PERFORM Default Error Handler */
9790  frame_ptr++;
9791  if (unlikely(frame_ptr == frame_overflow))
9792  cob_fatal_error (COB_FERROR_STACK);
9793  frame_ptr->perform_through = 1;
9794  frame_ptr->return_address_ptr = &&l_360;
9795  goto l_1;
9796  l_360:
9797  frame_ptr--;
9798  }
9799 
9800  /* Line: 3619 : MOVE : GCic.cbl */
9801  cob_set_location (st_5, 3619, st_83, NULL, st_4);
9802  cob_move ((cob_field *)&c_186, &f_390);
9803 
9804  /* Line: 3621 : MOVE : GCic.cbl */
9805  cob_set_location (st_5, 3621, st_83, NULL, st_4);
9806  memcpy (b_392 + 125, b_462, 10);
9807 
9808  /* Line: 3623 : WRITE : GCic.cbl */
9809  cob_set_location (st_5, 3623, st_83, NULL, st_23);
9810  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9811  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9812  {
9813  /* PERFORM Default Error Handler */
9814  frame_ptr++;
9815  if (unlikely(frame_ptr == frame_overflow))
9816  cob_fatal_error (COB_FERROR_STACK);
9817  frame_ptr->perform_through = 1;
9818  frame_ptr->return_address_ptr = &&l_361;
9819  goto l_1;
9820  l_361:
9821  frame_ptr--;
9822  }
9823 
9824  /* Line: 3624 : MOVE : GCic.cbl */
9825  cob_set_location (st_5, 3624, st_83, NULL, st_4);
9826  memcpy (b_392, b_1236, 135);
9827 
9828  /* Line: 3626 : WRITE : GCic.cbl */
9829  cob_set_location (st_5, 3626, st_83, NULL, st_23);
9830  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
9831  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9832  {
9833  /* PERFORM Default Error Handler */
9834  frame_ptr++;
9835  if (unlikely(frame_ptr == frame_overflow))
9836  cob_fatal_error (COB_FERROR_STACK);
9837  frame_ptr->perform_through = 1;
9838  frame_ptr->return_address_ptr = &&l_362;
9839  goto l_1;
9840  l_362:
9841  frame_ptr--;
9842  }
9843  }
9844  else
9845  {
9846  /* ELSE */
9847 
9848  /* Line: 3628 : MOVE : GCic.cbl */
9849  cob_set_location (st_5, 3628, st_83, NULL, st_4);
9850  cob_move (&f_1270, &f_389);
9851 
9852  /* Line: 3630 : MOVE : GCic.cbl */
9853  cob_set_location (st_5, 3630, st_83, NULL, st_4);
9854  cob_move ((cob_field *)&c_185, COB_SET_FLD(f0, 14, b_392 + 24, &a_1));
9855 
9856  /* Line: 3632 : MOVE : GCic.cbl */
9857  cob_set_location (st_5, 3632, st_83, NULL, st_4);
9858  cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 86, &a_1));
9859 
9860  /* Line: 3634 : WRITE : GCic.cbl */
9861  cob_set_location (st_5, 3634, st_83, NULL, st_23);
9862  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9863  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9864  {
9865  /* PERFORM Default Error Handler */
9866  frame_ptr++;
9867  if (unlikely(frame_ptr == frame_overflow))
9868  cob_fatal_error (COB_FERROR_STACK);
9869  frame_ptr->perform_through = 1;
9870  frame_ptr->return_address_ptr = &&l_363;
9871  goto l_1;
9872  l_363:
9873  frame_ptr--;
9874  }
9875 
9876  /* Line: 3635 : MOVE : GCic.cbl */
9877  cob_set_location (st_5, 3635, st_83, NULL, st_4);
9878  memcpy (b_392, b_465 + 39, 96);
9879 
9880  /* Line: 3637 : WRITE : GCic.cbl */
9881  cob_set_location (st_5, 3637, st_83, NULL, st_23);
9882  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9883  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9884  {
9885  /* PERFORM Default Error Handler */
9886  frame_ptr++;
9887  if (unlikely(frame_ptr == frame_overflow))
9888  cob_fatal_error (COB_FERROR_STACK);
9889  frame_ptr->perform_through = 1;
9890  frame_ptr->return_address_ptr = &&l_364;
9891  goto l_1;
9892  l_364:
9893  frame_ptr--;
9894  }
9895 
9896  /* Line: 3638 : MOVE : GCic.cbl */
9897  cob_set_location (st_5, 3638, st_83, NULL, st_4);
9898  cob_move ((cob_field *)&c_186, &f_389);
9899 
9900  /* Line: 3640 : MOVE : GCic.cbl */
9901  cob_set_location (st_5, 3640, st_83, NULL, st_4);
9902  memcpy (b_392 + 86, b_462, 10);
9903 
9904  /* Line: 3642 : WRITE : GCic.cbl */
9905  cob_set_location (st_5, 3642, st_83, NULL, st_23);
9906  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9907  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9908  {
9909  /* PERFORM Default Error Handler */
9910  frame_ptr++;
9911  if (unlikely(frame_ptr == frame_overflow))
9912  cob_fatal_error (COB_FERROR_STACK);
9913  frame_ptr->perform_through = 1;
9914  frame_ptr->return_address_ptr = &&l_365;
9915  goto l_1;
9916  l_365:
9917  frame_ptr--;
9918  }
9919 
9920  /* Line: 3643 : MOVE : GCic.cbl */
9921  cob_set_location (st_5, 3643, st_83, NULL, st_4);
9922  memcpy (b_392, b_1236, 96);
9923 
9924  /* Line: 3645 : WRITE : GCic.cbl */
9925  cob_set_location (st_5, 3645, st_83, NULL, st_23);
9926  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9927  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9928  {
9929  /* PERFORM Default Error Handler */
9930  frame_ptr++;
9931  if (unlikely(frame_ptr == frame_overflow))
9932  cob_fatal_error (COB_FERROR_STACK);
9933  frame_ptr->perform_through = 1;
9934  frame_ptr->return_address_ptr = &&l_366;
9935  goto l_1;
9936  l_366:
9937  frame_ptr--;
9938  }
9939  }
9940 
9941  /* Line: 3647 : COMPUTE : GCic.cbl */
9942  cob_set_location (st_5, 3647, st_83, NULL, st_40);
9943  cob_decimal_set_llint (d0, (*(int *)(b_448)));
9944  cob_decimal_set_llint (d1, 4LL);
9945  cob_decimal_sub (d0, d1);
9946  cob_decimal_get_field (d0, &f_447, 0);
9947  }
9948 
9949  /* Line: 3649 : IF : GCic.cbl */
9950  cob_set_location (st_5, 3649, st_83, NULL, st_6);
9951  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
9952  {
9953 
9954  /* Line: 3650 : EVALUATE : GCic.cbl */
9955  cob_set_location (st_5, 3650, st_83, NULL, st_3);
9956 
9957  /* WHEN */
9958 
9959  if (((int)cob_cmp_s32 (b_1245, 1LL) == 0))
9960  {
9961 
9962  /* Line: 3652 : MOVE : GCic.cbl */
9963  cob_set_location (st_5, 3652, st_83, NULL, st_4);
9964  memcpy (b_392, b_1239, 135);
9965 
9966  /* Line: 3653 : WRITE : GCic.cbl */
9967  cob_set_location (st_5, 3653, st_83, NULL, st_23);
9968  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
9969  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
9970  {
9971  /* PERFORM Default Error Handler */
9972  frame_ptr++;
9973  if (unlikely(frame_ptr == frame_overflow))
9974  cob_fatal_error (COB_FERROR_STACK);
9975  frame_ptr->perform_through = 1;
9976  frame_ptr->return_address_ptr = &&l_367;
9977  goto l_1;
9978  l_367:
9979  frame_ptr--;
9980  }
9981 
9982  /* Line: 3654 : SUBTRACT : GCic.cbl */
9983  cob_set_location (st_5, 3654, st_83, NULL, st_17);
9984  (*(int *)(b_447)) = ((*(int *)(b_447)) - 1);
9985  goto l_156;
9986  }
9987 
9988  /* WHEN */
9989 
9990  if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
9991  {
9992 
9993  /* Line: 3656 : MOVE : GCic.cbl */
9994  cob_set_location (st_5, 3656, st_83, NULL, st_4);
9995  memcpy (b_1243, b_1239 + 7, 256);
9996 
9997  /* Line: 3657 : MOVE : GCic.cbl */
9998  cob_set_location (st_5, 3657, st_83, NULL, st_4);
9999  memcpy (b_392, b_1239, 135);
10000 
10001  /* Line: 3658 : WRITE : GCic.cbl */
10002  cob_set_location (st_5, 3658, st_83, NULL, st_23);
10003  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
10004  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10005  {
10006  /* PERFORM Default Error Handler */
10007  frame_ptr++;
10008  if (unlikely(frame_ptr == frame_overflow))
10009  cob_fatal_error (COB_FERROR_STACK);
10010  frame_ptr->perform_through = 1;
10011  frame_ptr->return_address_ptr = &&l_368;
10012  goto l_1;
10013  l_368:
10014  frame_ptr--;
10015  }
10016 
10017  /* Line: 3659 : MOVE : GCic.cbl */
10018  cob_set_location (st_5, 3659, st_83, NULL, st_4);
10019  memset (b_1239, 32, 263);
10020 
10021  /* Line: 3660 : MOVE : GCic.cbl */
10022  cob_set_location (st_5, 3660, st_83, NULL, st_4);
10023  cob_move (COB_SET_FLD(f0, 128, b_1243 + 128, &a_1), &f_1242);
10024 
10025  /* Line: 3661 : MOVE : GCic.cbl */
10026  cob_set_location (st_5, 3661, st_83, NULL, st_4);
10027  memcpy (b_392, b_1239, 135);
10028 
10029  /* Line: 3662 : WRITE : GCic.cbl */
10030  cob_set_location (st_5, 3662, st_83, NULL, st_23);
10031  cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
10032  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10033  {
10034  /* PERFORM Default Error Handler */
10035  frame_ptr++;
10036  if (unlikely(frame_ptr == frame_overflow))
10037  cob_fatal_error (COB_FERROR_STACK);
10038  frame_ptr->perform_through = 1;
10039  frame_ptr->return_address_ptr = &&l_369;
10040  goto l_1;
10041  l_369:
10042  frame_ptr--;
10043  }
10044 
10045  /* Line: 3663 : SUBTRACT : GCic.cbl */
10046  cob_set_location (st_5, 3663, st_83, NULL, st_17);
10047  (*(int *)(b_447)) = ((*(int *)(b_447)) - 2);
10048  goto l_156;
10049  }
10050 
10051  /* End EVALUATE */
10052  l_156:;
10053  }
10054  else
10055  {
10056  /* ELSE */
10057 
10058  /* Line: 3666 : EVALUATE : GCic.cbl */
10059  cob_set_location (st_5, 3666, st_83, NULL, st_3);
10060 
10061  /* WHEN */
10062 
10063  if (((int)cob_cmp_s32 (b_1245, 1LL) == 0))
10064  {
10065 
10066  /* Line: 3668 : WRITE : GCic.cbl */
10067  cob_set_location (st_5, 3668, st_83, NULL, st_23);
10068  memcpy (b_392, b_1239, 96);
10069  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
10070  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10071  {
10072  /* PERFORM Default Error Handler */
10073  frame_ptr++;
10074  if (unlikely(frame_ptr == frame_overflow))
10075  cob_fatal_error (COB_FERROR_STACK);
10076  frame_ptr->perform_through = 1;
10077  frame_ptr->return_address_ptr = &&l_370;
10078  goto l_1;
10079  l_370:
10080  frame_ptr--;
10081  }
10082 
10083  /* Line: 3670 : SUBTRACT : GCic.cbl */
10084  cob_set_location (st_5, 3670, st_83, NULL, st_17);
10085  (*(int *)(b_447)) = ((*(int *)(b_447)) - 1);
10086  goto l_157;
10087  }
10088 
10089  /* WHEN */
10090 
10091  if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
10092  {
10093 
10094  /* Line: 3672 : MOVE : GCic.cbl */
10095  cob_set_location (st_5, 3672, st_83, NULL, st_4);
10096  memcpy (b_1243, b_1239 + 7, 256);
10097 
10098  /* Line: 3673 : WRITE : GCic.cbl */
10099  cob_set_location (st_5, 3673, st_83, NULL, st_23);
10100  memcpy (b_392, b_1239, 96);
10101  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
10102  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10103  {
10104  /* PERFORM Default Error Handler */
10105  frame_ptr++;
10106  if (unlikely(frame_ptr == frame_overflow))
10107  cob_fatal_error (COB_FERROR_STACK);
10108  frame_ptr->perform_through = 1;
10109  frame_ptr->return_address_ptr = &&l_371;
10110  goto l_1;
10111  l_371:
10112  frame_ptr--;
10113  }
10114 
10115  /* Line: 3675 : MOVE : GCic.cbl */
10116  cob_set_location (st_5, 3675, st_83, NULL, st_4);
10117  memset (b_1239, 32, 263);
10118 
10119  /* Line: 3676 : MOVE : GCic.cbl */
10120  cob_set_location (st_5, 3676, st_83, NULL, st_4);
10121  cob_move (COB_SET_FLD(f0, 89, b_1243 + 89, &a_1), &f_1242);
10122 
10123  /* Line: 3677 : WRITE : GCic.cbl */
10124  cob_set_location (st_5, 3677, st_83, NULL, st_23);
10125  memcpy (b_392, b_1239, 96);
10126  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
10127  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10128  {
10129  /* PERFORM Default Error Handler */
10130  frame_ptr++;
10131  if (unlikely(frame_ptr == frame_overflow))
10132  cob_fatal_error (COB_FERROR_STACK);
10133  frame_ptr->perform_through = 1;
10134  frame_ptr->return_address_ptr = &&l_372;
10135  goto l_1;
10136  l_372:
10137  frame_ptr--;
10138  }
10139 
10140  /* Line: 3679 : SUBTRACT : GCic.cbl */
10141  cob_set_location (st_5, 3679, st_83, NULL, st_17);
10142  (*(int *)(b_447)) = ((*(int *)(b_447)) - 2);
10143  goto l_157;
10144  }
10145 
10146  /* WHEN */
10147 
10148  if (((int)cob_cmp_s32 (b_1245, 3LL) == 0))
10149  {
10150 
10151  /* Line: 3681 : MOVE : GCic.cbl */
10152  cob_set_location (st_5, 3681, st_83, NULL, st_4);
10153  memcpy (b_1243, b_1239 + 7, 256);
10154 
10155  /* Line: 3682 : WRITE : GCic.cbl */
10156  cob_set_location (st_5, 3682, st_83, NULL, st_23);
10157  memcpy (b_392, b_1239, 96);
10158  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
10159  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10160  {
10161  /* PERFORM Default Error Handler */
10162  frame_ptr++;
10163  if (unlikely(frame_ptr == frame_overflow))
10164  cob_fatal_error (COB_FERROR_STACK);
10165  frame_ptr->perform_through = 1;
10166  frame_ptr->return_address_ptr = &&l_373;
10167  goto l_1;
10168  l_373:
10169  frame_ptr--;
10170  }
10171 
10172  /* Line: 3684 : MOVE : GCic.cbl */
10173  cob_set_location (st_5, 3684, st_83, NULL, st_4);
10174  memset (b_1239, 32, 263);
10175 
10176  /* Line: 3685 : MOVE : GCic.cbl */
10177  cob_set_location (st_5, 3685, st_83, NULL, st_4);
10178  cob_move (COB_SET_FLD(f0, 89, b_1243 + 89, &a_1), &f_1242);
10179 
10180  /* Line: 3686 : WRITE : GCic.cbl */
10181  cob_set_location (st_5, 3686, st_83, NULL, st_23);
10182  memcpy (b_392, b_1239, 96);
10183  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
10184  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10185  {
10186  /* PERFORM Default Error Handler */
10187  frame_ptr++;
10188  if (unlikely(frame_ptr == frame_overflow))
10189  cob_fatal_error (COB_FERROR_STACK);
10190  frame_ptr->perform_through = 1;
10191  frame_ptr->return_address_ptr = &&l_374;
10192  goto l_1;
10193  l_374:
10194  frame_ptr--;
10195  }
10196 
10197  /* Line: 3688 : MOVE : GCic.cbl */
10198  cob_set_location (st_5, 3688, st_83, NULL, st_4);
10199  memset (b_1239, 32, 263);
10200 
10201  /* Line: 3689 : MOVE : GCic.cbl */
10202  cob_set_location (st_5, 3689, st_83, NULL, st_4);
10203  cob_move (COB_SET_FLD(f0, 78, b_1243 + 178, &a_1), &f_1242);
10204 
10205  /* Line: 3690 : WRITE : GCic.cbl */
10206  cob_set_location (st_5, 3690, st_83, NULL, st_23);
10207  memcpy (b_392, b_1239, 96);
10208  cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
10209  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
10210  {
10211  /* PERFORM Default Error Handler */
10212  frame_ptr++;
10213  if (unlikely(frame_ptr == frame_overflow))
10214  cob_fatal_error (COB_FERROR_STACK);
10215  frame_ptr->perform_through = 1;
10216  frame_ptr->return_address_ptr = &&l_375;
10217  goto l_1;
10218  l_375:
10219  frame_ptr--;
10220  }
10221 
10222  /* Line: 3692 : SUBTRACT : GCic.cbl */
10223  cob_set_location (st_5, 3692, st_83, NULL, st_17);
10224  (*(int *)(b_447)) = ((*(int *)(b_447)) - 3);
10225  goto l_157;
10226  }
10227 
10228  /* End EVALUATE */
10229  l_157:;
10230  }
10231 
10232  /* Line: 3695 : MOVE : GCic.cbl */
10233  cob_set_location (st_5, 3695, st_83, NULL, st_4);
10234  memset (b_1239, 32, 263);
10235 
10236  /* Implicit PERFORM return */
10237  if (frame_ptr->perform_through == 153)
10238  goto *frame_ptr->return_address_ptr;
10239 
10240  /* Program exit */
10241 
10242  exit_program:
10243 
10244  /* Decrement module active count */
10245  if (module->module_active) {
10246  module->module_active--;
10247  }
10248 
10249  /* Pop module stack */
10250  cob_module_leave (module);
10251 
10252  /* Program return */
10253  return b_377;
10254 
10255 
10256  /* Paragraph Default Error Handler */
10257  l_1:;
10258 
10259  if (!(cob_glob_ptr->cob_error_file->flag_select_features & COB_SELECT_FILE_STATUS)) {
10260  cob_fatal_error (COB_FERROR_FILE);
10261  }
10262 
10263  /* Implicit Default Error Handler return */
10264  if (frame_ptr->perform_through == 1)
10265  goto *frame_ptr->return_address_ptr;
10266 
10267  /* Fatal error if reached */
10268  cob_fatal_error (COB_FERROR_CODEGEN);
10269 
10270 
10271  /* Program initialization */
10272  P_initialize:
10273 
10274  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);
10275 
10276  cob_module_path = cob_glob_ptr->cob_main_argv0;
10277 
10278  /* Initialize module structure */
10279  module->module_name = "LISTING";
10280  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
10281  module->module_source = COB_SOURCE_FILE;
10282  module->module_entry.funcptr = (void *(*)())LISTING;
10283  module->module_cancel.funcptr = (void *(*)())LISTING_;
10284  module->collating_sequence = NULL;
10285  module->crt_status = NULL;
10286  module->cursor_pos = NULL;
10287  module->module_ref_count = NULL;
10288  module->module_path = &cob_module_path;
10289  module->module_active = 0;
10290  module->module_date = COB_MODULE_DATE;
10291  module->module_time = COB_MODULE_TIME;
10292  module->module_type = 0;
10293  module->module_param_cnt = 6;
10294  module->module_returning = 0;
10295  module->ebcdic_sign = 0;
10296  module->decimal_point = '.';
10297  module->currency_symbol = '$';
10298  module->numeric_separator = ',';
10299  module->flag_filename_mapping = 1;
10300  module->flag_binary_truncate = 1;
10301  module->flag_pretty_display = 1;
10302  module->flag_host_sign = 0;
10303  module->flag_no_phys_canc = 1;
10304  module->flag_main = 1;
10305  module->flag_fold_call = 0;
10306  module->flag_exit_program = 0;
10307 
10308  /* Initialize cancel callback */
10309  cob_set_cancel (module);
10310 
10311  /* Initialize WORKING-STORAGE */
10312  b_377 = 0;
10313  (*(int *) (b_378)) = 0;
10314  b_1223 = 1;
10315  memset (b_411, 32, 86);
10316  *(cob_u8_ptr)(b_412) = 32;
10317  *(cob_u8_ptr)(b_417) = 32;
10318  memset (b_422, 48, 6);
10319  memset (b_423, 32, 16);
10320  memset (b_427, 32, 15);
10321  memset (b_433, 32, 12);
10322  memset (b_434, 32, 2);
10323  *(cob_u8_ptr)(b_435) = 32;
10324  memset (b_436, 32, 256);
10325  memset (b_437, 32, 256);
10326  *(cob_u8_ptr)(b_438) = 32;
10327  cob_move (&cob_all_zero, &f_440);
10328  memset (b_441, 32, 47);
10329  memset (b_444, 32, 100);
10330  memset (b_445, 0, 4);
10331  memset (b_446, 0, 4);
10332  memset (b_447, 0, 4);
10333  memset (b_448, 0, 4);
10334  memset (b_449, 32, 256);
10335  memset (b_450, 32, 256);
10336  *(cob_u8_ptr)(b_451) = 32;
10337  memcpy (b_453, "Windows", 7);
10338  memset (b_453 + 7, 32, 7);
10339  memcpy (b_453 + 14, "Windows/Cygwin", 14);
10340  memcpy (b_453 + 28, "UNIX/Linux", 10);
10341  memset (b_453 + 28 + 10, 32, 4);
10342  memcpy (b_453 + 42, "OSX", 3);
10343  memset (b_453 + 42 + 3, 32, 11);
10344  memcpy (b_453 + 56, "Windows/MinGW ", 14);
10345  memset (b_461, 0, 4);
10346  memset (b_462, 32, 6);
10347  cob_move (&cob_all_zero, &f_464);
10348  memset (b_465, 32, 135);
10349  memset (b_466, 32, 33);
10350  memcpy (b_466 + 33, "FABS", 4);
10351  memset (b_466 + 33 + 4, 32, 29);
10352  memcpy (b_466 + 66, "VACCEPT", 7);
10353  memset (b_466 + 66 + 7, 32, 26);
10354  memcpy (b_466 + 99, " ACCESS", 7);
10355  memset (b_466 + 99 + 7, 32, 26);
10356  memcpy (b_466 + 132, "FACOS", 5);
10357  memset (b_466 + 132 + 5, 32, 28);
10358  memcpy (b_466 + 165, " ACTIVE-CLASS", 13);
10359  memset (b_466 + 165 + 13, 32, 20);
10360  memcpy (b_466 + 198, "VADD", 4);
10361  memset (b_466 + 198 + 4, 32, 29);
10362  memcpy (b_466 + 231, " ADDRESS", 8);
10363  memset (b_466 + 231 + 8, 32, 25);
10364  memcpy (b_466 + 264, " ADVANCING", 10);
10365  memset (b_466 + 264 + 10, 32, 23);
10366  memcpy (b_466 + 297, "KAFTER", 6);
10367  memset (b_466 + 297 + 6, 32, 27);
10368  memcpy (b_466 + 330, " ALIGNED", 8);
10369  memset (b_466 + 330 + 8, 32, 25);
10370  memcpy (b_466 + 363, " ALL", 4);
10371  memset (b_466 + 363 + 4, 32, 29);
10372  memcpy (b_466 + 396, "VALLOCATE", 9);
10373  memset (b_466 + 396 + 9, 32, 24);
10374  memcpy (b_466 + 429, " ALPHABET", 9);
10375  memset (b_466 + 429 + 9, 32, 24);
10376  memcpy (b_466 + 462, " ALPHABETIC", 11);
10377  memset (b_466 + 462 + 11, 32, 22);
10378  memcpy (b_466 + 495, " ALPHABETIC-LOWER", 17);
10379  memset (b_466 + 495 + 17, 32, 16);
10380  memcpy (b_466 + 528, " ALPHABETIC-UPPER", 17);
10381  memset (b_466 + 528 + 17, 32, 16);
10382  memcpy (b_466 + 561, " ALPHANUMERIC", 13);
10383  memset (b_466 + 561 + 13, 32, 20);
10384  memcpy (b_466 + 594, " ALPHANUMERIC-EDITED", 20);
10385  memset (b_466 + 594 + 20, 32, 13);
10386  memcpy (b_466 + 627, " ALSO", 5);
10387  memset (b_466 + 627 + 5, 32, 28);
10388  memcpy (b_466 + 660, "VALTER", 6);
10389  memset (b_466 + 660 + 6, 32, 27);
10390  memcpy (b_466 + 693, " ALTERNATE", 10);
10391  memset (b_466 + 693 + 10, 32, 23);
10392  memcpy (b_466 + 726, " AND", 4);
10393  memset (b_466 + 726 + 4, 32, 29);
10394  memcpy (b_466 + 759, "FANNUITY", 8);
10395  memset (b_466 + 759 + 8, 32, 25);
10396  memcpy (b_466 + 792, " ANY", 4);
10397  memset (b_466 + 792 + 4, 32, 29);
10398  memcpy (b_466 + 825, " ANYCASE", 8);
10399  memset (b_466 + 825 + 8, 32, 25);
10400  memcpy (b_466 + 858, " ARE", 4);
10401  memset (b_466 + 858 + 4, 32, 29);
10402  memcpy (b_466 + 891, " AREA", 5);
10403  memset (b_466 + 891 + 5, 32, 28);
10404  memcpy (b_466 + 924, " AREAS", 6);
10405  memset (b_466 + 924 + 6, 32, 27);
10406  memcpy (b_466 + 957, " ARGUMENT-NUMBER", 16);
10407  memset (b_466 + 957 + 16, 32, 17);
10408  memcpy (b_466 + 990, " ARGUMENT-VALUE", 15);
10409  memset (b_466 + 990 + 15, 32, 18);
10410  memcpy (b_466 + 1023, " ARITHMETIC", 11);
10411  memset (b_466 + 1023 + 11, 32, 22);
10412  memcpy (b_466 + 1056, " AS", 3);
10413  memset (b_466 + 1056 + 3, 32, 30);
10414  memcpy (b_466 + 1089, " ASCENDING", 10);
10415  memset (b_466 + 1089 + 10, 32, 23);
10416  memcpy (b_466 + 1122, " ASCII", 6);
10417  memset (b_466 + 1122 + 6, 32, 27);
10418  memcpy (b_466 + 1155, "FASIN", 5);
10419  memset (b_466 + 1155 + 5, 32, 28);
10420  memcpy (b_466 + 1188, " ASSIGN", 7);
10421  memset (b_466 + 1188 + 7, 32, 26);
10422  memcpy (b_466 + 1221, " AT", 3);
10423  memset (b_466 + 1221 + 3, 32, 30);
10424  memcpy (b_466 + 1254, "FATAN", 5);
10425  memset (b_466 + 1254 + 5, 32, 28);
10426  memcpy (b_466 + 1287, " ATTRIBUTE", 10);
10427  memset (b_466 + 1287 + 10, 32, 23);
10428  memcpy (b_466 + 1320, " AUTHOR", 7);
10429  memset (b_466 + 1320 + 7, 32, 26);
10430  memcpy (b_466 + 1353, " AUTO", 5);
10431  memset (b_466 + 1353 + 5, 32, 28);
10432  memcpy (b_466 + 1386, " AUTO-SKIP", 10);
10433  memset (b_466 + 1386 + 10, 32, 23);
10434  memcpy (b_466 + 1419, " AUTOMATIC", 10);
10435  memset (b_466 + 1419 + 10, 32, 23);
10436  memcpy (b_466 + 1452, " AUTOTERMINATE", 14);
10437  memset (b_466 + 1452 + 14, 32, 19);
10438  memcpy (b_466 + 1485, " AWAY-FROM-ZERO", 15);
10439  memset (b_466 + 1485 + 15, 32, 18);
10440  memcpy (b_466 + 1518, " B-AND", 6);
10441  memset (b_466 + 1518 + 6, 32, 27);
10442  memcpy (b_466 + 1551, " B-NOT", 6);
10443  memset (b_466 + 1551 + 6, 32, 27);
10444  memcpy (b_466 + 1584, " B-OR", 5);
10445  memset (b_466 + 1584 + 5, 32, 28);
10446  memcpy (b_466 + 1617, " B-XOR", 6);
10447  memset (b_466 + 1617 + 6, 32, 27);
10448  memcpy (b_466 + 1650, " BACKGROUND-COLOR", 17);
10449  memset (b_466 + 1650 + 17, 32, 16);
10450  memcpy (b_466 + 1683, " BACKGROUND-COLOUR", 18);
10451  memset (b_466 + 1683 + 18, 32, 15);
10452  memcpy (b_466 + 1716, " BASED", 6);
10453  memset (b_466 + 1716 + 6, 32, 27);
10454  memcpy (b_466 + 1749, " BEEP", 5);
10455  memset (b_466 + 1749 + 5, 32, 28);
10456  memcpy (b_466 + 1782, " BEFORE", 7);
10457  memset (b_466 + 1782 + 7, 32, 26);
10458  memcpy (b_466 + 1815, " BELL", 5);
10459  memset (b_466 + 1815 + 5, 32, 28);
10460  memcpy (b_466 + 1848, " BINARY", 7);
10461  memset (b_466 + 1848 + 7, 32, 26);
10462  memcpy (b_466 + 1881, " BINARY-C-LONG", 14);
10463  memset (b_466 + 1881 + 14, 32, 19);
10464  memcpy (b_466 + 1914, " BINARY-CHAR", 12);
10465  memset (b_466 + 1914 + 12, 32, 21);
10466  memcpy (b_466 + 1947, " BINARY-DOUBLE", 14);
10467  memset (b_466 + 1947 + 14, 32, 19);
10468  memcpy (b_466 + 1980, " BINARY-INT", 11);
10469  memset (b_466 + 1980 + 11, 32, 22);
10470  memcpy (b_466 + 2013, " BINARY-LONG", 12);
10471  memset (b_466 + 2013 + 12, 32, 21);
10472  memcpy (b_466 + 2046, " BINARY-LONG-LONG", 17);
10473  memset (b_466 + 2046 + 17, 32, 16);
10474  memcpy (b_466 + 2079, " BINARY-SHORT", 13);
10475  memset (b_466 + 2079 + 13, 32, 20);
10476  memcpy (b_466 + 2112, " BIT", 4);
10477  memset (b_466 + 2112 + 4, 32, 29);
10478  memcpy (b_466 + 2145, " BLANK", 6);
10479  memset (b_466 + 2145 + 6, 32, 27);
10480  memcpy (b_466 + 2178, " BLINK", 6);
10481  memset (b_466 + 2178 + 6, 32, 27);
10482  memcpy (b_466 + 2211, " BLOCK", 6);
10483  memset (b_466 + 2211 + 6, 32, 27);
10484  memcpy (b_466 + 2244, " BOOLEAN", 8);
10485  memset (b_466 + 2244 + 8, 32, 25);
10486  memcpy (b_466 + 2277, "FBOOLEAN-OF-INTEGER", 19);
10487  memset (b_466 + 2277 + 19, 32, 14);
10488  memcpy (b_466 + 2310, " BOTTOM", 7);
10489  memset (b_466 + 2310 + 7, 32, 26);
10490  memcpy (b_466 + 2343, "YBY", 3);
10491  memset (b_466 + 2343 + 3, 32, 30);
10492  memcpy (b_466 + 2376, "FBYTE-LENGTH", 12);
10493  memset (b_466 + 2376 + 12, 32, 21);
10494  memcpy (b_466 + 2409, "MC01", 4);
10495  memset (b_466 + 2409 + 4, 32, 29);
10496  memcpy (b_466 + 2442, "MC02", 4);
10497  memset (b_466 + 2442 + 4, 32, 29);
10498  memcpy (b_466 + 2475, "MC03", 4);
10499  memset (b_466 + 2475 + 4, 32, 29);
10500  memcpy (b_466 + 2508, "MC04", 4);
10501  memset (b_466 + 2508 + 4, 32, 29);
10502  memcpy (b_466 + 2541, "MC05", 4);
10503  memset (b_466 + 2541 + 4, 32, 29);
10504  memcpy (b_466 + 2574, "MC06", 4);
10505  memset (b_466 + 2574 + 4, 32, 29);
10506  memcpy (b_466 + 2607, "MC07", 4);
10507  memset (b_466 + 2607 + 4, 32, 29);
10508  memcpy (b_466 + 2640, "MC08", 4);
10509  memset (b_466 + 2640 + 4, 32, 29);
10510  memcpy (b_466 + 2673, "MC09", 4);
10511  memset (b_466 + 2673 + 4, 32, 29);
10512  memcpy (b_466 + 2706, "MC10", 4);
10513  memset (b_466 + 2706 + 4, 32, 29);
10514  memcpy (b_466 + 2739, "MC11", 4);
10515  memset (b_466 + 2739 + 4, 32, 29);
10516  memcpy (b_466 + 2772, "MC12", 4);
10517  memset (b_466 + 2772 + 4, 32, 29);
10518  memcpy (b_466 + 2805, "VCALL", 5);
10519  memset (b_466 + 2805 + 5, 32, 28);
10520  memcpy (b_466 + 2838, "MCALL-CONVENTION", 16);
10521  memset (b_466 + 2838 + 16, 32, 17);
10522  memcpy (b_466 + 2871, "VCANCEL", 7);
10523  memset (b_466 + 2871 + 7, 32, 26);
10524  memcpy (b_466 + 2904, " CAPACITY", 9);
10525  memset (b_466 + 2904 + 9, 32, 24);
10526  memcpy (b_466 + 2937, " CD", 3);
10527  memset (b_466 + 2937 + 3, 32, 30);
10528  memcpy (b_466 + 2970, " CENTER", 7);
10529  memset (b_466 + 2970 + 7, 32, 26);
10530  memcpy (b_466 + 3003, " CF", 3);
10531  memset (b_466 + 3003 + 3, 32, 30);
10532  memcpy (b_466 + 3036, " CH", 3);
10533  memset (b_466 + 3036 + 3, 32, 30);
10534  memcpy (b_466 + 3069, " CHAIN", 6);
10535  memset (b_466 + 3069 + 6, 32, 27);
10536  memcpy (b_466 + 3102, " CHAINING", 9);
10537  memset (b_466 + 3102 + 9, 32, 24);
10538  memcpy (b_466 + 3135, "FCHAR", 5);
10539  memset (b_466 + 3135 + 5, 32, 28);
10540  memcpy (b_466 + 3168, "FCHAR-NATIONAL", 14);
10541  memset (b_466 + 3168 + 14, 32, 19);
10542  memcpy (b_466 + 3201, " CHARACTER", 10);
10543  memset (b_466 + 3201 + 10, 32, 23);
10544  memcpy (b_466 + 3234, " CHARACTERS", 11);
10545  memset (b_466 + 3234 + 11, 32, 22);
10546  memcpy (b_466 + 3267, " CLASS", 6);
10547  memset (b_466 + 3267 + 6, 32, 27);
10548  memcpy (b_466 + 3300, " CLASS-ID", 9);
10549  memset (b_466 + 3300 + 9, 32, 24);
10550  memcpy (b_466 + 3333, " CLASSIFICATION", 15);
10551  memset (b_466 + 3333 + 15, 32, 18);
10552  memcpy (b_466 + 3366, "VCLOSE", 6);
10553  memset (b_466 + 3366 + 6, 32, 27);
10554  memcpy (b_466 + 3399, "FCOB-CRT-STATUS", 15);
10555  memset (b_466 + 3399 + 15, 32, 18);
10556  memcpy (b_466 + 3432, " CODE", 5);
10557  memset (b_466 + 3432 + 5, 32, 28);
10558  memcpy (b_466 + 3465, " CODE-SET", 9);
10559  memset (b_466 + 3465 + 9, 32, 24);
10560  memcpy (b_466 + 3498, " COL", 4);
10561  memset (b_466 + 3498 + 4, 32, 29);
10562  memcpy (b_466 + 3531, " COLLATING", 10);
10563  memset (b_466 + 3531 + 10, 32, 23);
10564  memcpy (b_466 + 3564, " COLS", 5);
10565  memset (b_466 + 3564 + 5, 32, 28);
10566  memcpy (b_466 + 3597, " COLUMN", 7);
10567  memset (b_466 + 3597 + 7, 32, 26);
10568  memcpy (b_466 + 3630, " COLUMNS", 8);
10569  memset (b_466 + 3630 + 8, 32, 25);
10570  memcpy (b_466 + 3663, "FCOMBINED-DATETIME", 18);
10571  memset (b_466 + 3663 + 18, 32, 15);
10572  memcpy (b_466 + 3696, " COMMA", 6);
10573  memset (b_466 + 3696 + 6, 32, 27);
10574  memcpy (b_466 + 3729, " COMMAND-LINE", 13);
10575  memset (b_466 + 3729 + 13, 32, 20);
10576  memcpy (b_466 + 3762, "VCOMMIT", 7);
10577  memset (b_466 + 3762 + 7, 32, 26);
10578  memcpy (b_466 + 3795, " COMMON", 7);
10579  memset (b_466 + 3795 + 7, 32, 26);
10580  memcpy (b_466 + 3828, " COMMUNICATION", 14);
10581  memset (b_466 + 3828 + 14, 32, 19);
10582  memcpy (b_466 + 3861, " COMP", 5);
10583  memset (b_466 + 3861 + 5, 32, 28);
10584  memcpy (b_466 + 3894, " COMP-1", 7);
10585  memset (b_466 + 3894 + 7, 32, 26);
10586  memcpy (b_466 + 3927, " COMP-2", 7);
10587  memset (b_466 + 3927 + 7, 32, 26);
10588  memcpy (b_466 + 3960, " COMP-3", 7);
10589  memset (b_466 + 3960 + 7, 32, 26);
10590  memcpy (b_466 + 3993, " COMP-4", 7);
10591  memset (b_466 + 3993 + 7, 32, 26);
10592  memcpy (b_466 + 4026, " COMP-5", 7);
10593  memset (b_466 + 4026 + 7, 32, 26);
10594  memcpy (b_466 + 4059, " COMP-6", 7);
10595  memset (b_466 + 4059 + 7, 32, 26);
10596  memcpy (b_466 + 4092, " COMP-X", 7);
10597  memset (b_466 + 4092 + 7, 32, 26);
10598  memcpy (b_466 + 4125, " COMPUTATIONAL", 14);
10599  memset (b_466 + 4125 + 14, 32, 19);
10600  memcpy (b_466 + 4158, " COMPUTATIONAL-1", 16);
10601  memset (b_466 + 4158 + 16, 32, 17);
10602  memcpy (b_466 + 4191, " COMPUTATIONAL-2", 16);
10603  memset (b_466 + 4191 + 16, 32, 17);
10604  memcpy (b_466 + 4224, " COMPUTATIONAL-3", 16);
10605  memset (b_466 + 4224 + 16, 32, 17);
10606  memcpy (b_466 + 4257, " COMPUTATIONAL-4", 16);
10607  memset (b_466 + 4257 + 16, 32, 17);
10608  memcpy (b_466 + 4290, " COMPUTATIONAL-5", 16);
10609  memset (b_466 + 4290 + 16, 32, 17);
10610  memcpy (b_466 + 4323, " COMPUTATIONAL-X", 16);
10611  memset (b_466 + 4323 + 16, 32, 17);
10612  memcpy (b_466 + 4356, "VCOMPUTE", 8);
10613  memset (b_466 + 4356 + 8, 32, 25);
10614  memcpy (b_466 + 4389, "FCONCATENATE", 12);
10615  memset (b_466 + 4389 + 12, 32, 21);
10616  memcpy (b_466 + 4422, " CONDITION", 10);
10617  memset (b_466 + 4422 + 10, 32, 23);
10618  memcpy (b_466 + 4455, "KCONFIGURATION", 14);
10619  memset (b_466 + 4455 + 14, 32, 19);
10620  memcpy (b_466 + 4488, "MCONSOLE", 8);
10621  memset (b_466 + 4488 + 8, 32, 25);
10622  memcpy (b_466 + 4521, " CONSTANT", 9);
10623  memset (b_466 + 4521 + 9, 32, 24);
10624  memcpy (b_466 + 4554, " CONTAINS", 9);
10625  memset (b_466 + 4554 + 9, 32, 24);
10626  memcpy (b_466 + 4587, "ACONTENT", 8);
10627  memset (b_466 + 4587 + 8, 32, 25);
10628  memcpy (b_466 + 4620, "VCONTINUE", 9);
10629  memset (b_466 + 4620 + 9, 32, 24);
10630  memcpy (b_466 + 4653, " CONTROL", 8);
10631  memset (b_466 + 4653 + 8, 32, 25);
10632  memcpy (b_466 + 4686, " CONTROLS", 9);
10633  memset (b_466 + 4686 + 9, 32, 24);
10634  memcpy (b_466 + 4719, " CONVERSION", 11);
10635  memset (b_466 + 4719 + 11, 32, 22);
10636  memcpy (b_466 + 4752, "KCONVERTING", 11);
10637  memset (b_466 + 4752 + 11, 32, 22);
10638  memcpy (b_466 + 4785, " COPY", 5);
10639  memset (b_466 + 4785 + 5, 32, 28);
10640  memcpy (b_466 + 4818, " CORR", 5);
10641  memset (b_466 + 4818 + 5, 32, 28);
10642  memcpy (b_466 + 4851, " CORRESPONDING", 14);
10643  memset (b_466 + 4851 + 14, 32, 19);
10644  memcpy (b_466 + 4884, "FCOS", 4);
10645  memset (b_466 + 4884 + 4, 32, 29);
10646  memcpy (b_466 + 4917, "KCOUNT", 6);
10647  memset (b_466 + 4917 + 6, 32, 27);
10648  memcpy (b_466 + 4950, " CRT", 4);
10649  memset (b_466 + 4950 + 4, 32, 29);
10650  memcpy (b_466 + 4983, " CRT-UNDER", 10);
10651  memset (b_466 + 4983 + 10, 32, 23);
10652  memcpy (b_466 + 5016, "MCSP", 4);
10653  memset (b_466 + 5016 + 4, 32, 29);
10654  memcpy (b_466 + 5049, " CURRENCY", 9);
10655  memset (b_466 + 5049 + 9, 32, 24);
10656  memcpy (b_466 + 5082, "FCURRENCY-SYMBOL", 16);
10657  memset (b_466 + 5082 + 16, 32, 17);
10658  memcpy (b_466 + 5115, "FCURRENT-DATE", 13);
10659  memset (b_466 + 5115 + 13, 32, 20);
10660  memcpy (b_466 + 5148, " CURSOR", 7);
10661  memset (b_466 + 5148 + 7, 32, 26);
10662  memcpy (b_466 + 5181, " CYCLE", 6);
10663  memset (b_466 + 5181 + 6, 32, 27);
10664  memcpy (b_466 + 5214, "KDATA", 5);
10665  memset (b_466 + 5214 + 5, 32, 28);
10666  memcpy (b_466 + 5247, " DATA-POINTER", 13);
10667  memset (b_466 + 5247 + 13, 32, 20);
10668  memcpy (b_466 + 5280, " DATE", 5);
10669  memset (b_466 + 5280 + 5, 32, 28);
10670  memcpy (b_466 + 5313, " DATE-COMPILED", 14);
10671  memset (b_466 + 5313 + 14, 32, 19);
10672  memcpy (b_466 + 5346, " DATE-MODIFIED", 14);
10673  memset (b_466 + 5346 + 14, 32, 19);
10674  memcpy (b_466 + 5379, "FDATE-OF-INTEGER", 16);
10675  memset (b_466 + 5379 + 16, 32, 17);
10676  memcpy (b_466 + 5412, "FDATE-TO-YYYYMMDD", 17);
10677  memset (b_466 + 5412 + 17, 32, 16);
10678  memcpy (b_466 + 5445, " DATE-WRITTEN", 13);
10679  memset (b_466 + 5445 + 13, 32, 20);
10680  memcpy (b_466 + 5478, " DAY", 4);
10681  memset (b_466 + 5478 + 4, 32, 29);
10682  memcpy (b_466 + 5511, "FDAY-OF-INTEGER", 15);
10683  memset (b_466 + 5511 + 15, 32, 18);
10684  memcpy (b_466 + 5544, " DAY-OF-WEEK", 12);
10685  memset (b_466 + 5544 + 12, 32, 21);
10686  memcpy (b_466 + 5577, "IDAY-TO-YYYYDDD", 15);
10687  memset (b_466 + 5577 + 15, 32, 18);
10688  memcpy (b_466 + 5610, " DE", 3);
10689  memset (b_466 + 5610 + 3, 32, 30);
10690  memcpy (b_466 + 5643, "IDEBUG-CONTENTS", 15);
10691  memset (b_466 + 5643 + 15, 32, 18);
10692  memcpy (b_466 + 5676, "IDEBUG-ITEM", 11);
10693  memset (b_466 + 5676 + 11, 32, 22);
10694  memcpy (b_466 + 5709, "IDEBUG-LINE", 11);
10695  memset (b_466 + 5709 + 11, 32, 22);
10696  memcpy (b_466 + 5742, "IDEBUG-NAME", 11);
10697  memset (b_466 + 5742 + 11, 32, 22);
10698  memcpy (b_466 + 5775, "IDEBUG-SUB-1", 12);
10699  memset (b_466 + 5775 + 12, 32, 21);
10700  memcpy (b_466 + 5808, "IDEBUG-SUB-2", 12);
10701  memset (b_466 + 5808 + 12, 32, 21);
10702  memcpy (b_466 + 5841, "IDEBUG-SUB-3", 12);
10703  memset (b_466 + 5841 + 12, 32, 21);
10704  memcpy (b_466 + 5874, " DEBUGGING", 10);
10705  memset (b_466 + 5874 + 10, 32, 23);
10706  memcpy (b_466 + 5907, " DECIMAL-POINT", 14);
10707  memset (b_466 + 5907 + 14, 32, 19);
10708  memcpy (b_466 + 5940, " DECLARATIVES", 13);
10709  memset (b_466 + 5940 + 13, 32, 20);
10710  memcpy (b_466 + 5973, " DEFAULT", 8);
10711  memset (b_466 + 5973 + 8, 32, 25);
10712  memcpy (b_466 + 6006, "VDELETE", 7);
10713  memset (b_466 + 6006 + 7, 32, 26);
10714  memcpy (b_466 + 6039, " DELIMITED", 10);
10715  memset (b_466 + 6039 + 10, 32, 23);
10716  memcpy (b_466 + 6072, "KDELIMITER", 10);
10717  memset (b_466 + 6072 + 10, 32, 23);
10718  memcpy (b_466 + 6105, " DEPENDING", 10);
10719  memset (b_466 + 6105 + 10, 32, 23);
10720  memcpy (b_466 + 6138, " DESCENDING", 11);
10721  memset (b_466 + 6138 + 11, 32, 22);
10722  memcpy (b_466 + 6171, " DESTINATION", 12);
10723  memset (b_466 + 6171 + 12, 32, 21);
10724  memcpy (b_466 + 6204, " DETAIL", 7);
10725  memset (b_466 + 6204 + 7, 32, 26);
10726  memcpy (b_466 + 6237, " DISC", 5);
10727  memset (b_466 + 6237 + 5, 32, 28);
10728  memcpy (b_466 + 6270, " DISK", 5);
10729  memset (b_466 + 6270 + 5, 32, 28);
10730  memcpy (b_466 + 6303, "VDISPLAY", 8);
10731  memset (b_466 + 6303 + 8, 32, 25);
10732  memcpy (b_466 + 6336, "FDISPLAY-OF", 11);
10733  memset (b_466 + 6336 + 11, 32, 22);
10734  memcpy (b_466 + 6369, "VDIVIDE", 7);
10735  memset (b_466 + 6369 + 7, 32, 26);
10736  memcpy (b_466 + 6402, "KDIVISION", 9);
10737  memset (b_466 + 6402 + 9, 32, 24);
10738  memcpy (b_466 + 6435, "KDOWN", 5);
10739  memset (b_466 + 6435 + 5, 32, 28);
10740  memcpy (b_466 + 6468, " DUPLICATES", 11);
10741  memset (b_466 + 6468 + 11, 32, 22);
10742  memcpy (b_466 + 6501, " DYNAMIC", 8);
10743  memset (b_466 + 6501 + 8, 32, 25);
10744  memcpy (b_466 + 6534, "FE", 2);
10745  memset (b_466 + 6534 + 2, 32, 31);
10746  memcpy (b_466 + 6567, " EBCDIC", 7);
10747  memset (b_466 + 6567 + 7, 32, 26);
10748  memcpy (b_466 + 6600, " EC", 3);
10749  memset (b_466 + 6600 + 3, 32, 30);
10750  memcpy (b_466 + 6633, " EGI", 4);
10751  memset (b_466 + 6633 + 4, 32, 29);
10752  memcpy (b_466 + 6666, "VELSE", 5);
10753  memset (b_466 + 6666 + 5, 32, 28);
10754  memcpy (b_466 + 6699, " EMI", 4);
10755  memset (b_466 + 6699 + 4, 32, 29);
10756  memcpy (b_466 + 6732, " EMPTY-CHECK", 12);
10757  memset (b_466 + 6732 + 12, 32, 21);
10758  memcpy (b_466 + 6765, "VENABLE", 7);
10759  memset (b_466 + 6765 + 7, 32, 26);
10760  memcpy (b_466 + 6798, "KEND", 4);
10761  memset (b_466 + 6798 + 4, 32, 29);
10762  memcpy (b_466 + 6831, " END-ACCEPT", 11);
10763  memset (b_466 + 6831 + 11, 32, 22);
10764  memcpy (b_466 + 6864, " END-ADD", 8);
10765  memset (b_466 + 6864 + 8, 32, 25);
10766  memcpy (b_466 + 6897, " END-CALL", 9);
10767  memset (b_466 + 6897 + 9, 32, 24);
10768  memcpy (b_466 + 6930, " END-CHAIN", 10);
10769  memset (b_466 + 6930 + 10, 32, 23);
10770  memcpy (b_466 + 6963, " END-COMPUTE", 12);
10771  memset (b_466 + 6963 + 12, 32, 21);
10772  memcpy (b_466 + 6996, " END-DELETE", 11);
10773  memset (b_466 + 6996 + 11, 32, 22);
10774  memcpy (b_466 + 7029, " END-DISPLAY", 12);
10775  memset (b_466 + 7029 + 12, 32, 21);
10776  memcpy (b_466 + 7062, " END-DIVIDE", 11);
10777  memset (b_466 + 7062 + 11, 32, 22);
10778  memcpy (b_466 + 7095, " END-EVALUATE", 13);
10779  memset (b_466 + 7095 + 13, 32, 20);
10780  memcpy (b_466 + 7128, " END-IF", 7);
10781  memset (b_466 + 7128 + 7, 32, 26);
10782  memcpy (b_466 + 7161, " END-MULTIPLY", 13);
10783  memset (b_466 + 7161 + 13, 32, 20);
10784  memcpy (b_466 + 7194, " END-OF-PAGE", 12);
10785  memset (b_466 + 7194 + 12, 32, 21);
10786  memcpy (b_466 + 7227, " END-PERFORM", 12);
10787  memset (b_466 + 7227 + 12, 32, 21);
10788  memcpy (b_466 + 7260, " END-READ", 9);
10789  memset (b_466 + 7260 + 9, 32, 24);
10790  memcpy (b_466 + 7293, " END-RECEIVE", 12);
10791  memset (b_466 + 7293 + 12, 32, 21);
10792  memcpy (b_466 + 7326, " END-RETURN", 11);
10793  memset (b_466 + 7326 + 11, 32, 22);
10794  memcpy (b_466 + 7359, " END-REWRITE", 12);
10795  memset (b_466 + 7359 + 12, 32, 21);
10796  memcpy (b_466 + 7392, " END-SEARCH", 11);
10797  memset (b_466 + 7392 + 11, 32, 22);
10798  memcpy (b_466 + 7425, " END-START", 10);
10799  memset (b_466 + 7425 + 10, 32, 23);
10800  memcpy (b_466 + 7458, " END-STRING", 11);
10801  memset (b_466 + 7458 + 11, 32, 22);
10802  memcpy (b_466 + 7491, " END-SUBTRACT", 13);
10803  memset (b_466 + 7491 + 13, 32, 20);
10804  memcpy (b_466 + 7524, " END-UNSTRING", 13);
10805  memset (b_466 + 7524 + 13, 32, 20);
10806  memcpy (b_466 + 7557, " END-WRITE", 10);
10807  memset (b_466 + 7557 + 10, 32, 23);
10808  memcpy (b_466 + 7590, "VENTRY", 6);
10809  memset (b_466 + 7590 + 6, 32, 27);
10810  memcpy (b_466 + 7623, " ENTRY-CONVENTION", 17);
10811  memset (b_466 + 7623 + 17, 32, 16);
10812  memcpy (b_466 + 7656, "KENVIRONMENT", 12);
10813  memset (b_466 + 7656 + 12, 32, 21);
10814  memcpy (b_466 + 7689, " ENVIRONMENT-NAME", 17);
10815  memset (b_466 + 7689 + 17, 32, 16);
10816  memcpy (b_466 + 7722, " ENVIRONMENT-VALUE", 18);
10817  memset (b_466 + 7722 + 18, 32, 15);
10818  memcpy (b_466 + 7755, " EO", 3);
10819  memset (b_466 + 7755 + 3, 32, 30);
10820  memcpy (b_466 + 7788, " EOL", 4);
10821  memset (b_466 + 7788 + 4, 32, 29);
10822  memcpy (b_466 + 7821, " EOP", 4);
10823  memset (b_466 + 7821 + 4, 32, 29);
10824  memcpy (b_466 + 7854, " EOS", 4);
10825  memset (b_466 + 7854 + 4, 32, 29);
10826  memcpy (b_466 + 7887, " EQUAL", 6);
10827  memset (b_466 + 7887 + 6, 32, 27);
10828  memcpy (b_466 + 7920, "KEQUALS", 7);
10829  memset (b_466 + 7920 + 7, 32, 26);
10830  memcpy (b_466 + 7953, " ERASE", 6);
10831  memset (b_466 + 7953 + 6, 32, 27);
10832  memcpy (b_466 + 7986, " ERROR", 6);
10833  memset (b_466 + 7986 + 6, 32, 27);
10834  memcpy (b_466 + 8019, " ESCAPE", 7);
10835  memset (b_466 + 8019 + 7, 32, 26);
10836  memcpy (b_466 + 8052, " ESI", 4);
10837  memset (b_466 + 8052 + 4, 32, 29);
10838  memcpy (b_466 + 8085, "VEVALUATE", 9);
10839  memset (b_466 + 8085 + 9, 32, 24);
10840  memcpy (b_466 + 8118, " EXCEPTION", 10);
10841  memset (b_466 + 8118 + 10, 32, 23);
10842  memcpy (b_466 + 8151, "FEXCEPTION-FILE", 15);
10843  memset (b_466 + 8151 + 15, 32, 18);
10844  memcpy (b_466 + 8184, "FEXCEPTION-FILE-N", 17);
10845  memset (b_466 + 8184 + 17, 32, 16);
10846  memcpy (b_466 + 8217, "FEXCEPTION-LOCATION", 19);
10847  memset (b_466 + 8217 + 19, 32, 14);
10848  memcpy (b_466 + 8250, "FEXCEPTION-LOCATION-N", 21);
10849  memset (b_466 + 8250 + 21, 32, 12);
10850  memcpy (b_466 + 8283, " EXCEPTION-OBJECT", 17);
10851  memset (b_466 + 8283 + 17, 32, 16);
10852  memcpy (b_466 + 8316, "FEXCEPTION-STATEMENT", 20);
10853  memset (b_466 + 8316 + 20, 32, 13);
10854  memcpy (b_466 + 8349, "FEXCEPTION-STATUS", 17);
10855  memset (b_466 + 8349 + 17, 32, 16);
10856  memcpy (b_466 + 8382, " EXCLUSIVE", 10);
10857  memset (b_466 + 8382 + 10, 32, 23);
10858  memcpy (b_466 + 8415, "VEXIT", 5);
10859  memset (b_466 + 8415 + 5, 32, 28);
10860  memcpy (b_466 + 8448, "FEXP", 4);
10861  memset (b_466 + 8448 + 4, 32, 29);
10862  memcpy (b_466 + 8481, "FEXP10", 6);
10863  memset (b_466 + 8481 + 6, 32, 27);
10864  memcpy (b_466 + 8514, " EXPANDS", 8);
10865  memset (b_466 + 8514 + 8, 32, 25);
10866  memcpy (b_466 + 8547, " EXTEND", 7);
10867  memset (b_466 + 8547 + 7, 32, 26);
10868  memcpy (b_466 + 8580, " EXTERNAL", 9);
10869  memset (b_466 + 8580 + 9, 32, 24);
10870  memcpy (b_466 + 8613, "FFACTORIAL", 10);
10871  memset (b_466 + 8613 + 10, 32, 23);
10872  memcpy (b_466 + 8646, " FACTORY", 8);
10873  memset (b_466 + 8646 + 8, 32, 25);
10874  memcpy (b_466 + 8679, " FALSE", 6);
10875  memset (b_466 + 8679 + 6, 32, 27);
10876  memcpy (b_466 + 8712, "KFD", 3);
10877  memset (b_466 + 8712 + 3, 32, 30);
10878  memcpy (b_466 + 8745, "KFILE", 5);
10879  memset (b_466 + 8745 + 5, 32, 28);
10880  memcpy (b_466 + 8778, " FILE-CONTROL", 13);
10881  memset (b_466 + 8778 + 13, 32, 20);
10882  memcpy (b_466 + 8811, " FILE-ID", 8);
10883  memset (b_466 + 8811 + 8, 32, 25);
10884  memcpy (b_466 + 8844, " FILLER", 7);
10885  memset (b_466 + 8844 + 7, 32, 26);
10886  memcpy (b_466 + 8877, " FINAL", 6);
10887  memset (b_466 + 8877 + 6, 32, 27);
10888  memcpy (b_466 + 8910, " FIRST", 6);
10889  memset (b_466 + 8910 + 6, 32, 27);
10890  memcpy (b_466 + 8943, " FLOAT-BINARY-128", 17);
10891  memset (b_466 + 8943 + 17, 32, 16);
10892  memcpy (b_466 + 8976, " FLOAT-BINARY-32", 16);
10893  memset (b_466 + 8976 + 16, 32, 17);
10894  memcpy (b_466 + 9009, " FLOAT-BINARY-64", 16);
10895  memset (b_466 + 9009 + 16, 32, 17);
10896  memcpy (b_466 + 9042, " FLOAT-DECIMAL-16", 17);
10897  memset (b_466 + 9042 + 17, 32, 16);
10898  memcpy (b_466 + 9075, " FLOAT-DECIMAL-34", 17);
10899  memset (b_466 + 9075 + 17, 32, 16);
10900  memcpy (b_466 + 9108, " FLOAT-EXTENDED", 15);
10901  memset (b_466 + 9108 + 15, 32, 18);
10902  memcpy (b_466 + 9141, " FLOAT-INFINITY", 15);
10903  memset (b_466 + 9141 + 15, 32, 18);
10904  memcpy (b_466 + 9174, " FLOAT-LONG", 11);
10905  memset (b_466 + 9174 + 11, 32, 22);
10906  memcpy (b_466 + 9207, " FLOAT-NOT-A-NUMBER", 19);
10907  memset (b_466 + 9207 + 19, 32, 14);
10908  memcpy (b_466 + 9240, " FLOAT-SHORT", 12);
10909  memset (b_466 + 9240 + 12, 32, 21);
10910  memcpy (b_466 + 9273, " FOOTING", 8);
10911  memset (b_466 + 9273 + 8, 32, 25);
10912  memcpy (b_466 + 9306, " FOR", 4);
10913  memset (b_466 + 9306 + 4, 32, 29);
10914  memcpy (b_466 + 9339, " FOREGROUND-COLOR", 17);
10915  memset (b_466 + 9339 + 17, 32, 16);
10916  memcpy (b_466 + 9372, " FOREGROUND-COLOUR", 18);
10917  memset (b_466 + 9372 + 18, 32, 15);
10918  memcpy (b_466 + 9405, " FOREVER", 8);
10919  memset (b_466 + 9405 + 8, 32, 25);
10920  memcpy (b_466 + 9438, " FORMAT", 7);
10921  memset (b_466 + 9438 + 7, 32, 26);
10922  memcpy (b_466 + 9471, "FFORMATTED-CURRENT-DATE", 23);
10923  memset (b_466 + 9471 + 23, 32, 10);
10924  memcpy (b_466 + 9504, "FFORMATTED-DATE", 15);
10925  memset (b_466 + 9504 + 15, 32, 18);
10926  memcpy (b_466 + 9537, "FFORMATTED-DATETIME", 19);
10927  memset (b_466 + 9537 + 19, 32, 14);
10928  memcpy (b_466 + 9570, "FFORMATTED-TIME", 15);
10929  memset (b_466 + 9570 + 15, 32, 18);
10930  memcpy (b_466 + 9603, "MFORMFEED", 9);
10931  memset (b_466 + 9603 + 9, 32, 24);
10932  memcpy (b_466 + 9636, "FFRACTION-PART", 14);
10933  memset (b_466 + 9636 + 14, 32, 19);
10934  memcpy (b_466 + 9669, "VFREE", 5);
10935  memset (b_466 + 9669 + 5, 32, 28);
10936  memcpy (b_466 + 9702, " FROM", 5);
10937  memset (b_466 + 9702 + 5, 32, 28);
10938  memcpy (b_466 + 9735, " FULL", 5);
10939  memset (b_466 + 9735 + 5, 32, 28);
10940  memcpy (b_466 + 9768, " FUNCTION", 9);
10941  memset (b_466 + 9768 + 9, 32, 24);
10942  memcpy (b_466 + 9801, "KFUNCTION-ID", 12);
10943  memset (b_466 + 9801 + 12, 32, 21);
10944  memcpy (b_466 + 9834, " FUNCTION-POINTER", 17);
10945  memset (b_466 + 9834 + 17, 32, 16);
10946  memcpy (b_466 + 9867, "VGENERATE", 9);
10947  memset (b_466 + 9867 + 9, 32, 24);
10948  memcpy (b_466 + 9900, " GET", 4);
10949  memset (b_466 + 9900 + 4, 32, 29);
10950  memcpy (b_466 + 9933, "KGIVING", 7);
10951  memset (b_466 + 9933 + 7, 32, 26);
10952  memcpy (b_466 + 9966, " GLOBAL", 7);
10953  memset (b_466 + 9966 + 7, 32, 26);
10954  memcpy (b_466 + 9999, "VGO", 3);
10955  memset (b_466 + 9999 + 3, 32, 30);
10956  memcpy (b_466 + 10032, "VGOBACK", 7);
10957  memset (b_466 + 10032 + 7, 32, 26);
10958  memcpy (b_466 + 10065, " GREATER", 8);
10959  memset (b_466 + 10065 + 8, 32, 25);
10960  memcpy (b_466 + 10098, " GROUP", 6);
10961  memset (b_466 + 10098 + 6, 32, 27);
10962  memcpy (b_466 + 10131, " GROUP-USAGE", 12);
10963  memset (b_466 + 10131 + 12, 32, 21);
10964  memcpy (b_466 + 10164, " HEADING", 8);
10965  memset (b_466 + 10164 + 8, 32, 25);
10966  memcpy (b_466 + 10197, " HIGH-VALUE", 11);
10967  memset (b_466 + 10197 + 11, 32, 22);
10968  memcpy (b_466 + 10230, " HIGH-VALUES", 12);
10969  memset (b_466 + 10230 + 12, 32, 21);
10970  memcpy (b_466 + 10263, "FHIGHEST-ALGEBRAIC", 18);
10971  memset (b_466 + 10263 + 18, 32, 15);
10972  memcpy (b_466 + 10296, " HIGHLIGHT", 10);
10973  memset (b_466 + 10296 + 10, 32, 23);
10974  memcpy (b_466 + 10329, " I-O", 4);
10975  memset (b_466 + 10329 + 4, 32, 29);
10976  memcpy (b_466 + 10362, " I-O-CONTROL", 12);
10977  memset (b_466 + 10362 + 12, 32, 21);
10978  memcpy (b_466 + 10395, "KID", 3);
10979  memset (b_466 + 10395 + 3, 32, 30);
10980  memcpy (b_466 + 10428, "KIDENTIFICATION", 15);
10981  memset (b_466 + 10428 + 15, 32, 18);
10982  memcpy (b_466 + 10461, "VIF", 3);
10983  memset (b_466 + 10461 + 3, 32, 30);
10984  memcpy (b_466 + 10494, " IGNORE", 7);
10985  memset (b_466 + 10494 + 7, 32, 26);
10986  memcpy (b_466 + 10527, " IGNORING", 9);
10987  memset (b_466 + 10527 + 9, 32, 24);
10988  memcpy (b_466 + 10560, " IMPLEMENTS", 11);
10989  memset (b_466 + 10560 + 11, 32, 22);
10990  memcpy (b_466 + 10593, " IN", 3);
10991  memset (b_466 + 10593 + 3, 32, 30);
10992  memcpy (b_466 + 10626, " INDEX", 6);
10993  memset (b_466 + 10626 + 6, 32, 27);
10994  memcpy (b_466 + 10659, "KINDEXED", 8);
10995  memset (b_466 + 10659 + 8, 32, 25);
10996  memcpy (b_466 + 10692, " INDICATE", 9);
10997  memset (b_466 + 10692 + 9, 32, 24);
10998  memcpy (b_466 + 10725, " INDIRECT", 9);
10999  memset (b_466 + 10725 + 9, 32, 24);
11000  memcpy (b_466 + 10758, " INHERITS", 9);
11001  memset (b_466 + 10758 + 9, 32, 24);
11002  memcpy (b_466 + 10791, " INITIAL", 8);
11003  memset (b_466 + 10791 + 8, 32, 25);
11004  memcpy (b_466 + 10824, "VINITIALISE", 11);
11005  memset (b_466 + 10824 + 11, 32, 22);
11006  memcpy (b_466 + 10857, " INITIALISED", 12);
11007  memset (b_466 + 10857 + 12, 32, 21);
11008  memcpy (b_466 + 10890, "VINITIALIZE", 11);
11009  memset (b_466 + 10890 + 11, 32, 22);
11010  memcpy (b_466 + 10923, " INITIALIZED", 12);
11011  memset (b_466 + 10923 + 12, 32, 21);
11012  memcpy (b_466 + 10956, "VINITIATE", 9);
11013  memset (b_466 + 10956 + 9, 32, 24);
11014  memcpy (b_466 + 10989, " INPUT", 6);
11015  memset (b_466 + 10989 + 6, 32, 27);
11016  memcpy (b_466 + 11022, "KINPUT-OUTPUT", 13);
11017  memset (b_466 + 11022 + 13, 32, 20);
11018  memcpy (b_466 + 11055, "VINSPECT", 8);
11019  memset (b_466 + 11055 + 8, 32, 25);
11020  memcpy (b_466 + 11088, " INSTALLATION", 13);
11021  memset (b_466 + 11088 + 13, 32, 20);
11022  memcpy (b_466 + 11121, "FINTEGER", 8);
11023  memset (b_466 + 11121 + 8, 32, 25);
11024  memcpy (b_466 + 11154, "FINTEGER-OF-BOOLEAN", 19);
11025  memset (b_466 + 11154 + 19, 32, 14);
11026  memcpy (b_466 + 11187, "FINTEGER-OF-DATE", 16);
11027  memset (b_466 + 11187 + 16, 32, 17);
11028  memcpy (b_466 + 11220, "FINTEGER-OF-DAY", 15);
11029  memset (b_466 + 11220 + 15, 32, 18);
11030  memcpy (b_466 + 11253, "FINTEGER-OF-FORMATTED-DATE", 26);
11031  memset (b_466 + 11253 + 26, 32, 7);
11032  memcpy (b_466 + 11286, "FINTEGER-PART", 13);
11033  memset (b_466 + 11286 + 13, 32, 20);
11034  memcpy (b_466 + 11319, " INTERFACE", 10);
11035  memset (b_466 + 11319 + 10, 32, 23);
11036  memcpy (b_466 + 11352, " INTERFACE-ID", 13);
11037  memset (b_466 + 11352 + 13, 32, 20);
11038  memcpy (b_466 + 11385, " INTERMEDIATE", 13);
11039  memset (b_466 + 11385 + 13, 32, 20);
11040  memcpy (b_466 + 11418, "KINTO", 5);
11041  memset (b_466 + 11418 + 5, 32, 28);
11042  memcpy (b_466 + 11451, " INTRINSIC", 10);
11043  memset (b_466 + 11451 + 10, 32, 23);
11044  memcpy (b_466 + 11484, " INVALID", 8);
11045  memset (b_466 + 11484 + 8, 32, 25);
11046  memcpy (b_466 + 11517, " INVOKE", 7);
11047  memset (b_466 + 11517 + 7, 32, 26);
11048  memcpy (b_466 + 11550, " IS", 3);
11049  memset (b_466 + 11550 + 3, 32, 30);
11050  memcpy (b_466 + 11583, " JUST", 5);
11051  memset (b_466 + 11583 + 5, 32, 28);
11052  memcpy (b_466 + 11616, " JUSTIFIED", 10);
11053  memset (b_466 + 11616 + 10, 32, 23);
11054  memcpy (b_466 + 11649, " KEPT", 5);
11055  memset (b_466 + 11649 + 5, 32, 28);
11056  memcpy (b_466 + 11682, " KEY", 4);
11057  memset (b_466 + 11682 + 4, 32, 29);
11058  memcpy (b_466 + 11715, " KEYBOARD", 9);
11059  memset (b_466 + 11715 + 9, 32, 24);
11060  memcpy (b_466 + 11748, " LABEL", 6);
11061  memset (b_466 + 11748 + 6, 32, 27);
11062  memcpy (b_466 + 11781, " LAST", 5);
11063  memset (b_466 + 11781 + 5, 32, 28);
11064  memcpy (b_466 + 11814, " LC_ALL", 7);
11065  memset (b_466 + 11814 + 7, 32, 26);
11066  memcpy (b_466 + 11847, " LC_COLLATE", 11);
11067  memset (b_466 + 11847 + 11, 32, 22);
11068  memcpy (b_466 + 11880, " LC_CTYPE", 9);
11069  memset (b_466 + 11880 + 9, 32, 24);
11070  memcpy (b_466 + 11913, " LC_MESSAGES", 12);
11071  memset (b_466 + 11913 + 12, 32, 21);
11072  memcpy (b_466 + 11946, " LC_MONETARY", 12);
11073  memset (b_466 + 11946 + 12, 32, 21);
11074  memcpy (b_466 + 11979, " LC_NUMERIC", 11);
11075  memset (b_466 + 11979 + 11, 32, 22);
11076  memcpy (b_466 + 12012, " LC_TIME", 8);
11077  memset (b_466 + 12012 + 8, 32, 25);
11078  memcpy (b_466 + 12045, " LEADING", 8);
11079  memset (b_466 + 12045 + 8, 32, 25);
11080  memcpy (b_466 + 12078, " LEFT", 5);
11081  memset (b_466 + 12078 + 5, 32, 28);
11082  memcpy (b_466 + 12111, " LEFT-JUSTIFY", 13);
11083  memset (b_466 + 12111 + 13, 32, 20);
11084  memcpy (b_466 + 12144, " LEFTLINE", 9);
11085  memset (b_466 + 12144 + 9, 32, 24);
11086  memcpy (b_466 + 12177, "FLENGTH", 7);
11087  memset (b_466 + 12177 + 7, 32, 26);
11088  memcpy (b_466 + 12210, "FLENGTH-AN", 10);
11089  memset (b_466 + 12210 + 10, 32, 23);
11090  memcpy (b_466 + 12243, " LENGTH-CHECK", 13);
11091  memset (b_466 + 12243 + 13, 32, 20);
11092  memcpy (b_466 + 12276, " LESS", 5);
11093  memset (b_466 + 12276 + 5, 32, 28);
11094  memcpy (b_466 + 12309, " LIMIT", 6);
11095  memset (b_466 + 12309 + 6, 32, 27);
11096  memcpy (b_466 + 12342, " LIMITS", 7);
11097  memset (b_466 + 12342 + 7, 32, 26);
11098  memcpy (b_466 + 12375, " LINAGE", 7);
11099  memset (b_466 + 12375 + 7, 32, 26);
11100  memcpy (b_466 + 12408, "ILINAGE-COUNTER", 15);
11101  memset (b_466 + 12408 + 15, 32, 18);
11102  memcpy (b_466 + 12441, " LINE", 5);
11103  memset (b_466 + 12441 + 5, 32, 28);
11104  memcpy (b_466 + 12474, "ILINE-COUNTER", 13);
11105  memset (b_466 + 12474 + 13, 32, 20);
11106  memcpy (b_466 + 12507, " LINES", 6);
11107  memset (b_466 + 12507 + 6, 32, 27);
11108  memcpy (b_466 + 12540, "KLINKAGE", 8);
11109  memset (b_466 + 12540 + 8, 32, 25);
11110  memcpy (b_466 + 12573, "KLOCAL-STORAGE", 14);
11111  memset (b_466 + 12573 + 14, 32, 19);
11112  memcpy (b_466 + 12606, " LOCALE", 7);
11113  memset (b_466 + 12606 + 7, 32, 26);
11114  memcpy (b_466 + 12639, "FLOCALE-COMPARE", 15);
11115  memset (b_466 + 12639 + 15, 32, 18);
11116  memcpy (b_466 + 12672, "FLOCALE-DATE", 12);
11117  memset (b_466 + 12672 + 12, 32, 21);
11118  memcpy (b_466 + 12705, "FLOCALE-TIME", 12);
11119  memset (b_466 + 12705 + 12, 32, 21);
11120  memcpy (b_466 + 12738, "FLOCALE-TIME-FROM-SECONDS", 25);
11121  memset (b_466 + 12738 + 25, 32, 8);
11122  memcpy (b_466 + 12771, " LOCK", 5);
11123  memset (b_466 + 12771 + 5, 32, 28);
11124  memcpy (b_466 + 12804, "FLOG", 4);
11125  memset (b_466 + 12804 + 4, 32, 29);
11126  memcpy (b_466 + 12837, "FLOG10", 6);
11127  memset (b_466 + 12837 + 6, 32, 27);
11128  memcpy (b_466 + 12870, " LOW-VALUE", 10);
11129  memset (b_466 + 12870 + 10, 32, 23);
11130  memcpy (b_466 + 12903, " LOW-VALUES", 11);
11131  memset (b_466 + 12903 + 11, 32, 22);
11132  memcpy (b_466 + 12936, " LOWER", 6);
11133  memset (b_466 + 12936 + 6, 32, 27);
11134  memcpy (b_466 + 12969, "FLOWER-CASE", 11);
11135  memset (b_466 + 12969 + 11, 32, 22);
11136  memcpy (b_466 + 13002, "FLOWEST-ALGEBRAIC", 17);
11137  memset (b_466 + 13002 + 17, 32, 16);
11138  memcpy (b_466 + 13035, " LOWLIGHT", 9);
11139  memset (b_466 + 13035 + 9, 32, 24);
11140  memcpy (b_466 + 13068, " MANUAL", 7);
11141  memset (b_466 + 13068 + 7, 32, 26);
11142  memcpy (b_466 + 13101, "FMAX", 4);
11143  memset (b_466 + 13101 + 4, 32, 29);
11144  memcpy (b_466 + 13134, "FMEAN", 5);
11145  memset (b_466 + 13134 + 5, 32, 28);
11146  memcpy (b_466 + 13167, "FMEDIAN", 7);
11147  memset (b_466 + 13167 + 7, 32, 26);
11148  memcpy (b_466 + 13200, " MEMORY", 7);
11149  memset (b_466 + 13200 + 7, 32, 26);
11150  memcpy (b_466 + 13233, "VMERGE", 6);
11151  memset (b_466 + 13233 + 6, 32, 27);
11152  memcpy (b_466 + 13266, " MESSAGE", 8);
11153  memset (b_466 + 13266 + 8, 32, 25);
11154  memcpy (b_466 + 13299, " METHOD", 7);
11155  memset (b_466 + 13299 + 7, 32, 26);
11156  memcpy (b_466 + 13332, " METHOD-ID", 10);
11157  memset (b_466 + 13332 + 10, 32, 23);
11158  memcpy (b_466 + 13365, "FMIDRANGE", 9);
11159  memset (b_466 + 13365 + 9, 32, 24);
11160  memcpy (b_466 + 13398, "FMIN", 4);
11161  memset (b_466 + 13398 + 4, 32, 29);
11162  memcpy (b_466 + 13431, " MINUS", 6);
11163  memset (b_466 + 13431 + 6, 32, 27);
11164  memcpy (b_466 + 13464, "FMOD", 4);
11165  memset (b_466 + 13464 + 4, 32, 29);
11166  memcpy (b_466 + 13497, " MODE", 5);
11167  memset (b_466 + 13497 + 5, 32, 28);
11168  memcpy (b_466 + 13530, "FMODULE-CALLER-ID", 17);
11169  memset (b_466 + 13530 + 17, 32, 16);
11170  memcpy (b_466 + 13563, "FMODULE-DATE", 12);
11171  memset (b_466 + 13563 + 12, 32, 21);
11172  memcpy (b_466 + 13596, "FMODULE-FORMATTED-DATE", 22);
11173  memset (b_466 + 13596 + 22, 32, 11);
11174  memcpy (b_466 + 13629, "FMODULE-ID", 10);
11175  memset (b_466 + 13629 + 10, 32, 23);
11176  memcpy (b_466 + 13662, "FMODULE-PATH", 12);
11177  memset (b_466 + 13662 + 12, 32, 21);
11178  memcpy (b_466 + 13695, "FMODULE-SOURCE", 14);
11179  memset (b_466 + 13695 + 14, 32, 19);
11180  memcpy (b_466 + 13728, "FMODULE-TIME", 12);
11181  memset (b_466 + 13728 + 12, 32, 21);
11182  memcpy (b_466 + 13761, "FMONETARY-DECIMAL-POINT", 23);
11183  memset (b_466 + 13761 + 23, 32, 10);
11184  memcpy (b_466 + 13794, "FMONETARY-THOUSANDS-SEPARATOR", 29);
11185  memset (b_466 + 13794 + 29, 32, 4);
11186  memcpy (b_466 + 13827, "VMOVE", 5);
11187  memset (b_466 + 13827 + 5, 32, 28);
11188  memcpy (b_466 + 13860, " MULTIPLE", 9);
11189  memset (b_466 + 13860 + 9, 32, 24);
11190  memcpy (b_466 + 13893, "VMULTIPLY", 9);
11191  memset (b_466 + 13893 + 9, 32, 24);
11192  memcpy (b_466 + 13926, " NAME", 5);
11193  memset (b_466 + 13926 + 5, 32, 28);
11194  memcpy (b_466 + 13959, " NATIONAL", 9);
11195  memset (b_466 + 13959 + 9, 32, 24);
11196  memcpy (b_466 + 13992, " NATIONAL-EDITED", 16);
11197  memset (b_466 + 13992 + 16, 32, 17);
11198  memcpy (b_466 + 14025, "FNATIONAL-OF", 12);
11199  memset (b_466 + 14025 + 12, 32, 21);
11200  memcpy (b_466 + 14058, " NATIVE", 7);
11201  memset (b_466 + 14058 + 7, 32, 26);
11202  memcpy (b_466 + 14091, " NEAREST-AWAY-FROM-ZERO", 23);
11203  memset (b_466 + 14091 + 23, 32, 10);
11204  memcpy (b_466 + 14124, " NEAREST-EVEN", 13);
11205  memset (b_466 + 14124 + 13, 32, 20);
11206  memcpy (b_466 + 14157, " NEAREST-TOWARD-ZERO", 20);
11207  memset (b_466 + 14157 + 20, 32, 13);
11208  memcpy (b_466 + 14190, " NEGATIVE", 9);
11209  memset (b_466 + 14190 + 9, 32, 24);
11210  memcpy (b_466 + 14223, " NESTED", 7);
11211  memset (b_466 + 14223 + 7, 32, 26);
11212  memcpy (b_466 + 14256, "VNEXT", 5);
11213  memset (b_466 + 14256 + 5, 32, 28);
11214  memcpy (b_466 + 14289, " NO", 3);
11215  memset (b_466 + 14289 + 3, 32, 30);
11216  memcpy (b_466 + 14322, " NO-ECHO", 8);
11217  memset (b_466 + 14322 + 8, 32, 25);
11218  memcpy (b_466 + 14355, " NONE", 5);
11219  memset (b_466 + 14355 + 5, 32, 28);
11220  memcpy (b_466 + 14388, " NORMAL", 7);
11221  memset (b_466 + 14388 + 7, 32, 26);
11222  memcpy (b_466 + 14421, " NOT", 4);
11223  memset (b_466 + 14421 + 4, 32, 29);
11224  memcpy (b_466 + 14454, " NULL", 5);
11225  memset (b_466 + 14454 + 5, 32, 28);
11226  memcpy (b_466 + 14487, " NULLS", 6);
11227  memset (b_466 + 14487 + 6, 32, 27);
11228  memcpy (b_466 + 14520, " NUMBER", 7);
11229  memset (b_466 + 14520 + 7, 32, 26);
11230  memcpy (b_466 + 14553, "INUMBER-OF-CALL-PARAMETERS", 26);
11231  memset (b_466 + 14553 + 26, 32, 7);
11232  memcpy (b_466 + 14586, " NUMBERS", 8);
11233  memset (b_466 + 14586 + 8, 32, 25);
11234  memcpy (b_466 + 14619, " NUMERIC", 8);
11235  memset (b_466 + 14619 + 8, 32, 25);
11236  memcpy (b_466 + 14652, "FNUMERIC-DECIMAL-POINT", 22);
11237  memset (b_466 + 14652 + 22, 32, 11);
11238  memcpy (b_466 + 14685, " NUMERIC-EDITED", 15);
11239  memset (b_466 + 14685 + 15, 32, 18);
11240  memcpy (b_466 + 14718, "FNUMERIC-THOUSANDS-SEPARATOR", 28);
11241  memset (b_466 + 14718 + 28, 32, 5);
11242  memcpy (b_466 + 14751, "FNUMVAL", 7);
11243  memset (b_466 + 14751 + 7, 32, 26);
11244  memcpy (b_466 + 14784, "FNUMVAL-C", 9);
11245  memset (b_466 + 14784 + 9, 32, 24);
11246  memcpy (b_466 + 14817, "FNUMVAL-F", 9);
11247  memset (b_466 + 14817 + 9, 32, 24);
11248  memcpy (b_466 + 14850, " OBJECT", 7);
11249  memset (b_466 + 14850 + 7, 32, 26);
11250  memcpy (b_466 + 14883, " OBJECT-COMPUTER", 16);
11251  memset (b_466 + 14883 + 16, 32, 17);
11252  memcpy (b_466 + 14916, " OBJECT-REFERENCE", 17);
11253  memset (b_466 + 14916 + 17, 32, 16);
11254  memcpy (b_466 + 14949, " OCCURS", 7);
11255  memset (b_466 + 14949 + 7, 32, 26);
11256  memcpy (b_466 + 14982, " OF", 3);
11257  memset (b_466 + 14982 + 3, 32, 30);
11258  memcpy (b_466 + 15015, " OFF", 4);
11259  memset (b_466 + 15015 + 4, 32, 29);
11260  memcpy (b_466 + 15048, " OMITTED", 8);
11261  memset (b_466 + 15048 + 8, 32, 25);
11262  memcpy (b_466 + 15081, " ON", 3);
11263  memset (b_466 + 15081 + 3, 32, 30);
11264  memcpy (b_466 + 15114, " ONLY", 5);
11265  memset (b_466 + 15114 + 5, 32, 28);
11266  memcpy (b_466 + 15147, "VOPEN", 5);
11267  memset (b_466 + 15147 + 5, 32, 28);
11268  memcpy (b_466 + 15180, " OPTIONAL", 9);
11269  memset (b_466 + 15180 + 9, 32, 24);
11270  memcpy (b_466 + 15213, " OPTIONS", 8);
11271  memset (b_466 + 15213 + 8, 32, 25);
11272  memcpy (b_466 + 15246, " OR", 3);
11273  memset (b_466 + 15246 + 3, 32, 30);
11274  memcpy (b_466 + 15279, "FORD", 4);
11275  memset (b_466 + 15279 + 4, 32, 29);
11276  memcpy (b_466 + 15312, "FORD-MAX", 8);
11277  memset (b_466 + 15312 + 8, 32, 25);
11278  memcpy (b_466 + 15345, "FORD-MIN", 8);
11279  memset (b_466 + 15345 + 8, 32, 25);
11280  memcpy (b_466 + 15378, " ORDER", 6);
11281  memset (b_466 + 15378 + 6, 32, 27);
11282  memcpy (b_466 + 15411, " ORGANISATION", 13);
11283  memset (b_466 + 15411 + 13, 32, 20);
11284  memcpy (b_466 + 15444, " ORGANIZATION", 13);
11285  memset (b_466 + 15444 + 13, 32, 20);
11286  memcpy (b_466 + 15477, " OTHER", 6);
11287  memset (b_466 + 15477 + 6, 32, 27);
11288  memcpy (b_466 + 15510, " OUTPUT", 7);
11289  memset (b_466 + 15510 + 7, 32, 26);
11290  memcpy (b_466 + 15543, " OVERFLOW", 9);
11291  memset (b_466 + 15543 + 9, 32, 24);
11292  memcpy (b_466 + 15576, " OVERLINE", 9);
11293  memset (b_466 + 15576 + 9, 32, 24);
11294  memcpy (b_466 + 15609, " OVERRIDE", 9);
11295  memset (b_466 + 15609 + 9, 32, 24);
11296  memcpy (b_466 + 15642, " PACKED-DECIMAL", 15);
11297  memset (b_466 + 15642 + 15, 32, 18);
11298  memcpy (b_466 + 15675, " PADDING", 8);
11299  memset (b_466 + 15675 + 8, 32, 25);
11300  memcpy (b_466 + 15708, " PAGE", 5);
11301  memset (b_466 + 15708 + 5, 32, 28);
11302  memcpy (b_466 + 15741, "IPAGE-COUNTER", 13);
11303  memset (b_466 + 15741 + 13, 32, 20);
11304  memcpy (b_466 + 15774, " PARAGRAPH", 10);
11305  memset (b_466 + 15774 + 10, 32, 23);
11306  memcpy (b_466 + 15807, "VPERFORM", 8);
11307  memset (b_466 + 15807 + 8, 32, 25);
11308  memcpy (b_466 + 15840, " PF", 3);
11309  memset (b_466 + 15840 + 3, 32, 30);
11310  memcpy (b_466 + 15873, " PH", 3);
11311  memset (b_466 + 15873 + 3, 32, 30);
11312  memcpy (b_466 + 15906, "FPI", 3);
11313  memset (b_466 + 15906 + 3, 32, 30);
11314  memcpy (b_466 + 15939, "KPIC", 4);
11315  memset (b_466 + 15939 + 4, 32, 29);
11316  memcpy (b_466 + 15972, "KPICTURE", 8);
11317  memset (b_466 + 15972 + 8, 32, 25);
11318  memcpy (b_466 + 16005, " PLUS", 5);
11319  memset (b_466 + 16005 + 5, 32, 28);
11320  memcpy (b_466 + 16038, "KPOINTER", 8);
11321  memset (b_466 + 16038 + 8, 32, 25);
11322  memcpy (b_466 + 16071, " POSITION", 9);
11323  memset (b_466 + 16071 + 9, 32, 24);
11324  memcpy (b_466 + 16104, " POSITIVE", 9);
11325  memset (b_466 + 16104 + 9, 32, 24);
11326  memcpy (b_466 + 16137, " PREFIXED", 9);
11327  memset (b_466 + 16137 + 9, 32, 24);
11328  memcpy (b_466 + 16170, " PRESENT", 8);
11329  memset (b_466 + 16170 + 8, 32, 25);
11330  memcpy (b_466 + 16203, "FPRESENT-VALUE", 14);
11331  memset (b_466 + 16203 + 14, 32, 19);
11332  memcpy (b_466 + 16236, " PREVIOUS", 9);
11333  memset (b_466 + 16236 + 9, 32, 24);
11334  memcpy (b_466 + 16269, "MPRINTER", 8);
11335  memset (b_466 + 16269 + 8, 32, 25);
11336  memcpy (b_466 + 16302, " PRINTING", 9);
11337  memset (b_466 + 16302 + 9, 32, 24);
11338  memcpy (b_466 + 16335, "KPROCEDURE", 10);
11339  memset (b_466 + 16335 + 10, 32, 23);
11340  memcpy (b_466 + 16368, " PROCEDURE-POINTER", 18);
11341  memset (b_466 + 16368 + 18, 32, 15);
11342  memcpy (b_466 + 16401, " PROCEDURES", 11);
11343  memset (b_466 + 16401 + 11, 32, 22);
11344  memcpy (b_466 + 16434, " PROCEED", 8);
11345  memset (b_466 + 16434 + 8, 32, 25);
11346  memcpy (b_466 + 16467, " PROGRAM", 8);
11347  memset (b_466 + 16467 + 8, 32, 25);
11348  memcpy (b_466 + 16500, "KPROGRAM-ID", 11);
11349  memset (b_466 + 16500 + 11, 32, 22);
11350  memcpy (b_466 + 16533, " PROGRAM-POINTER", 16);
11351  memset (b_466 + 16533 + 16, 32, 17);
11352  memcpy (b_466 + 16566, " PROHIBITED", 11);
11353  memset (b_466 + 16566 + 11, 32, 22);
11354  memcpy (b_466 + 16599, " PROMPT", 7);
11355  memset (b_466 + 16599 + 7, 32, 26);
11356  memcpy (b_466 + 16632, " PROPERTY", 9);
11357  memset (b_466 + 16632 + 9, 32, 24);
11358  memcpy (b_466 + 16665, " PROTOTYPE", 10);
11359  memset (b_466 + 16665 + 10, 32, 23);
11360  memcpy (b_466 + 16698, " PURGE", 6);
11361  memset (b_466 + 16698 + 6, 32, 27);
11362  memcpy (b_466 + 16731, " QUEUE", 6);
11363  memset (b_466 + 16731 + 6, 32, 27);
11364  memcpy (b_466 + 16764, " QUOTE", 6);
11365  memset (b_466 + 16764 + 6, 32, 27);
11366  memcpy (b_466 + 16797, " QUOTES", 7);
11367  memset (b_466 + 16797 + 7, 32, 26);
11368  memcpy (b_466 + 16830, " RAISE", 6);
11369  memset (b_466 + 16830 + 6, 32, 27);
11370  memcpy (b_466 + 16863, " RAISING", 8);
11371  memset (b_466 + 16863 + 8, 32, 25);
11372  memcpy (b_466 + 16896, "FRANDOM", 7);
11373  memset (b_466 + 16896 + 7, 32, 26);
11374  memcpy (b_466 + 16929, "FRANGE", 6);
11375  memset (b_466 + 16929 + 6, 32, 27);
11376  memcpy (b_466 + 16962, "KRD", 3);
11377  memset (b_466 + 16962 + 3, 32, 30);
11378  memcpy (b_466 + 16995, "VREAD", 5);
11379  memset (b_466 + 16995 + 5, 32, 28);
11380  memcpy (b_466 + 17028, "VREADY", 6);
11381  memset (b_466 + 17028 + 6, 32, 27);
11382  memcpy (b_466 + 17061, "VRECEIVE", 8);
11383  memset (b_466 + 17061 + 8, 32, 25);
11384  memcpy (b_466 + 17094, " RECORD", 7);
11385  memset (b_466 + 17094 + 7, 32, 26);
11386  memcpy (b_466 + 17127, " RECORDING", 10);
11387  memset (b_466 + 17127 + 10, 32, 23);
11388  memcpy (b_466 + 17160, " RECORDS", 8);
11389  memset (b_466 + 17160 + 8, 32, 25);
11390  memcpy (b_466 + 17193, " RECURSIVE", 10);
11391  memset (b_466 + 17193 + 10, 32, 23);
11392  memcpy (b_466 + 17226, "KREDEFINES", 10);
11393  memset (b_466 + 17226 + 10, 32, 23);
11394  memcpy (b_466 + 17259, " REEL", 5);
11395  memset (b_466 + 17259 + 5, 32, 28);
11396  memcpy (b_466 + 17292, "AREFERENCE", 10);
11397  memset (b_466 + 17292 + 10, 32, 23);
11398  memcpy (b_466 + 17325, " REFERENCES", 11);
11399  memset (b_466 + 17325 + 11, 32, 22);
11400  memcpy (b_466 + 17358, " RELATION", 9);
11401  memset (b_466 + 17358 + 9, 32, 24);
11402  memcpy (b_466 + 17391, " RELATIVE", 9);
11403  memset (b_466 + 17391 + 9, 32, 24);
11404  memcpy (b_466 + 17424, "VRELEASE", 8);
11405  memset (b_466 + 17424 + 8, 32, 25);
11406  memcpy (b_466 + 17457, "FREM", 4);
11407  memset (b_466 + 17457 + 4, 32, 29);
11408  memcpy (b_466 + 17490, " REMAINDER", 10);
11409  memset (b_466 + 17490 + 10, 32, 23);
11410  memcpy (b_466 + 17523, " REMARKS", 8);
11411  memset (b_466 + 17523 + 8, 32, 25);
11412  memcpy (b_466 + 17556, " REMOVAL", 8);
11413  memset (b_466 + 17556 + 8, 32, 25);
11414  memcpy (b_466 + 17589, "KRENAMES", 8);
11415  memset (b_466 + 17589 + 8, 32, 25);
11416  memcpy (b_466 + 17622, " REPLACE", 8);
11417  memset (b_466 + 17622 + 8, 32, 25);
11418  memcpy (b_466 + 17655, "KREPLACING", 10);
11419  memset (b_466 + 17655 + 10, 32, 23);
11420  memcpy (b_466 + 17688, "KREPORT", 7);
11421  memset (b_466 + 17688 + 7, 32, 26);
11422  memcpy (b_466 + 17721, " REPORTING", 10);
11423  memset (b_466 + 17721 + 10, 32, 23);
11424  memcpy (b_466 + 17754, " REPORTS", 8);
11425  memset (b_466 + 17754 + 8, 32, 25);
11426  memcpy (b_466 + 17787, " REPOSITORY", 11);
11427  memset (b_466 + 17787 + 11, 32, 22);
11428  memcpy (b_466 + 17820, " REQUIRED", 9);
11429  memset (b_466 + 17820 + 9, 32, 24);
11430  memcpy (b_466 + 17853, " RESERVE", 8);
11431  memset (b_466 + 17853 + 8, 32, 25);
11432  memcpy (b_466 + 17886, "VRESET", 6);
11433  memset (b_466 + 17886 + 6, 32, 27);
11434  memcpy (b_466 + 17919, " RESUME", 7);
11435  memset (b_466 + 17919 + 7, 32, 26);
11436  memcpy (b_466 + 17952, " RETRY", 6);
11437  memset (b_466 + 17952 + 6, 32, 27);
11438  memcpy (b_466 + 17985, "VRETURN", 7);
11439  memset (b_466 + 17985 + 7, 32, 26);
11440  memcpy (b_466 + 18018, "IRETURN-CODE", 12);
11441  memset (b_466 + 18018 + 12, 32, 21);
11442  memcpy (b_466 + 18051, "KRETURNING", 10);
11443  memset (b_466 + 18051 + 10, 32, 23);
11444  memcpy (b_466 + 18084, "FREVERSE", 8);
11445  memset (b_466 + 18084 + 8, 32, 25);
11446  memcpy (b_466 + 18117, " REVERSE-VIDEO", 14);
11447  memset (b_466 + 18117 + 14, 32, 19);
11448  memcpy (b_466 + 18150, " REVERSED", 9);
11449  memset (b_466 + 18150 + 9, 32, 24);
11450  memcpy (b_466 + 18183, " REWIND", 7);
11451  memset (b_466 + 18183 + 7, 32, 26);
11452  memcpy (b_466 + 18216, "VREWRITE", 8);
11453  memset (b_466 + 18216 + 8, 32, 25);
11454  memcpy (b_466 + 18249, " RF", 3);
11455  memset (b_466 + 18249 + 3, 32, 30);
11456  memcpy (b_466 + 18282, " RH", 3);
11457  memset (b_466 + 18282 + 3, 32, 30);
11458  memcpy (b_466 + 18315, " RIGHT", 6);
11459  memset (b_466 + 18315 + 6, 32, 27);
11460  memcpy (b_466 + 18348, " RIGHT-JUSTIFY", 14);
11461  memset (b_466 + 18348 + 14, 32, 19);
11462  memcpy (b_466 + 18381, "VROLLBACK", 9);
11463  memset (b_466 + 18381 + 9, 32, 24);
11464  memcpy (b_466 + 18414, " ROUNDED", 8);
11465  memset (b_466 + 18414 + 8, 32, 25);
11466  memcpy (b_466 + 18447, " ROUNDING", 9);
11467  memset (b_466 + 18447 + 9, 32, 24);
11468  memcpy (b_466 + 18480, " RUN", 4);
11469  memset (b_466 + 18480 + 4, 32, 29);
11470  memcpy (b_466 + 18513, " SAME", 5);
11471  memset (b_466 + 18513 + 5, 32, 28);
11472  memcpy (b_466 + 18546, "KSCREEN", 7);
11473  memset (b_466 + 18546 + 7, 32, 26);
11474  memcpy (b_466 + 18579, " SCROLL", 7);
11475  memset (b_466 + 18579 + 7, 32, 26);
11476  memcpy (b_466 + 18612, "KSD", 3);
11477  memset (b_466 + 18612 + 3, 32, 30);
11478  memcpy (b_466 + 18645, "VSEARCH", 7);
11479  memset (b_466 + 18645 + 7, 32, 26);
11480  memcpy (b_466 + 18678, " SECONDS", 8);
11481  memset (b_466 + 18678 + 8, 32, 25);
11482  memcpy (b_466 + 18711, "FSECONDS-FROM-FORMATTED-TIME", 28);
11483  memset (b_466 + 18711 + 28, 32, 5);
11484  memcpy (b_466 + 18744, "FSECONDS-PAST-MIDNIGHT", 22);
11485  memset (b_466 + 18744 + 22, 32, 11);
11486  memcpy (b_466 + 18777, "KSECTION", 8);
11487  memset (b_466 + 18777 + 8, 32, 25);
11488  memcpy (b_466 + 18810, " SECURE", 7);
11489  memset (b_466 + 18810 + 7, 32, 26);
11490  memcpy (b_466 + 18843, " SECURITY", 9);
11491  memset (b_466 + 18843 + 9, 32, 24);
11492  memcpy (b_466 + 18876, " SEGMENT", 8);
11493  memset (b_466 + 18876 + 8, 32, 25);
11494  memcpy (b_466 + 18909, " SEGMENT-LIMIT", 14);
11495  memset (b_466 + 18909 + 14, 32, 19);
11496  memcpy (b_466 + 18942, " SELECT", 7);
11497  memset (b_466 + 18942 + 7, 32, 26);
11498  memcpy (b_466 + 18975, " SELF", 5);
11499  memset (b_466 + 18975 + 5, 32, 28);
11500  memcpy (b_466 + 19008, "VSEND", 5);
11501  memset (b_466 + 19008 + 5, 32, 28);
11502  memcpy (b_466 + 19041, " SENTENCE", 9);
11503  memset (b_466 + 19041 + 9, 32, 24);
11504  memcpy (b_466 + 19074, " SEPARATE", 9);
11505  memset (b_466 + 19074 + 9, 32, 24);
11506  memcpy (b_466 + 19107, " SEQUENCE", 9);
11507  memset (b_466 + 19107 + 9, 32, 24);
11508  memcpy (b_466 + 19140, " SEQUENTIAL", 11);
11509  memset (b_466 + 19140 + 11, 32, 22);
11510  memcpy (b_466 + 19173, "VSET", 4);
11511  memset (b_466 + 19173 + 4, 32, 29);
11512  memcpy (b_466 + 19206, " SHARING", 8);
11513  memset (b_466 + 19206 + 8, 32, 25);
11514  memcpy (b_466 + 19239, "FSIGN", 5);
11515  memset (b_466 + 19239 + 5, 32, 28);
11516  memcpy (b_466 + 19272, " SIGNED", 7);
11517  memset (b_466 + 19272 + 7, 32, 26);
11518  memcpy (b_466 + 19305, " SIGNED-INT", 11);
11519  memset (b_466 + 19305 + 11, 32, 22);
11520  memcpy (b_466 + 19338, " SIGNED-LONG", 12);
11521  memset (b_466 + 19338 + 12, 32, 21);
11522  memcpy (b_466 + 19371, " SIGNED-SHORT", 13);
11523  memset (b_466 + 19371 + 13, 32, 20);
11524  memcpy (b_466 + 19404, "FSIN", 4);
11525  memset (b_466 + 19404 + 4, 32, 29);
11526  memcpy (b_466 + 19437, " SIZE", 5);
11527  memset (b_466 + 19437 + 5, 32, 28);
11528  memcpy (b_466 + 19470, "VSORT", 5);
11529  memset (b_466 + 19470 + 5, 32, 28);
11530  memcpy (b_466 + 19503, " SORT-MERGE", 11);
11531  memset (b_466 + 19503 + 11, 32, 22);
11532  memcpy (b_466 + 19536, "ISORT-RETURN", 12);
11533  memset (b_466 + 19536 + 12, 32, 21);
11534  memcpy (b_466 + 19569, " SOURCE", 7);
11535  memset (b_466 + 19569 + 7, 32, 26);
11536  memcpy (b_466 + 19602, " SOURCE-COMPUTER", 16);
11537  memset (b_466 + 19602 + 16, 32, 17);
11538  memcpy (b_466 + 19635, " SOURCES", 8);
11539  memset (b_466 + 19635 + 8, 32, 25);
11540  memcpy (b_466 + 19668, " SPACE", 6);
11541  memset (b_466 + 19668 + 6, 32, 27);
11542  memcpy (b_466 + 19701, " SPACE-FILL", 11);
11543  memset (b_466 + 19701 + 11, 32, 22);
11544  memcpy (b_466 + 19734, " SPACES", 7);
11545  memset (b_466 + 19734 + 7, 32, 26);
11546  memcpy (b_466 + 19767, " SPECIAL-NAMES", 14);
11547  memset (b_466 + 19767 + 14, 32, 19);
11548  memcpy (b_466 + 19800, "FSQRT", 5);
11549  memset (b_466 + 19800 + 5, 32, 28);
11550  memcpy (b_466 + 19833, " STANDARD", 9);
11551  memset (b_466 + 19833 + 9, 32, 24);
11552  memcpy (b_466 + 19866, " STANDARD-1", 11);
11553  memset (b_466 + 19866 + 11, 32, 22);
11554  memcpy (b_466 + 19899, " STANDARD-2", 11);
11555  memset (b_466 + 19899 + 11, 32, 22);
11556  memcpy (b_466 + 19932, " STANDARD-BINARY", 16);
11557  memset (b_466 + 19932 + 16, 32, 17);
11558  memcpy (b_466 + 19965, "FSTANDARD-COMPARE", 17);
11559  memset (b_466 + 19965 + 17, 32, 16);
11560  memcpy (b_466 + 19998, " STANDARD-DECIMAL", 17);
11561  memset (b_466 + 19998 + 17, 32, 16);
11562  memcpy (b_466 + 20031, "FSTANDARD-DEVIATION", 19);
11563  memset (b_466 + 20031 + 19, 32, 14);
11564  memcpy (b_466 + 20064, "VSTART", 6);
11565  memset (b_466 + 20064 + 6, 32, 27);
11566  memcpy (b_466 + 20097, " STATEMENT", 10);
11567  memset (b_466 + 20097 + 10, 32, 23);
11568  memcpy (b_466 + 20130, " STATIC", 7);
11569  memset (b_466 + 20130 + 7, 32, 26);
11570  memcpy (b_466 + 20163, " STATUS", 7);
11571  memset (b_466 + 20163 + 7, 32, 26);
11572  memcpy (b_466 + 20196, " STDCALL", 8);
11573  memset (b_466 + 20196 + 8, 32, 25);
11574  memcpy (b_466 + 20229, "MSTDERR", 7);
11575  memset (b_466 + 20229 + 7, 32, 26);
11576  memcpy (b_466 + 20262, "MSTDIN", 6);
11577  memset (b_466 + 20262 + 6, 32, 27);
11578  memcpy (b_466 + 20295, "MSTDOUT", 7);
11579  memset (b_466 + 20295 + 7, 32, 26);
11580  memcpy (b_466 + 20328, " STEP", 5);
11581  memset (b_466 + 20328 + 5, 32, 28);
11582  memcpy (b_466 + 20361, "VSTOP", 5);
11583  memset (b_466 + 20361 + 5, 32, 28);
11584  memcpy (b_466 + 20394, "FSTORED-CHAR-LENGTH", 19);
11585  memset (b_466 + 20394 + 19, 32, 14);
11586  memcpy (b_466 + 20427, "VSTRING", 7);
11587  memset (b_466 + 20427 + 7, 32, 26);
11588  memcpy (b_466 + 20460, " STRONG", 7);
11589  memset (b_466 + 20460 + 7, 32, 26);
11590  memcpy (b_466 + 20493, " SUB-QUEUE-1", 12);
11591  memset (b_466 + 20493 + 12, 32, 21);
11592  memcpy (b_466 + 20526, " SUB-QUEUE-2", 12);
11593  memset (b_466 + 20526 + 12, 32, 21);
11594  memcpy (b_466 + 20559, " SUB-QUEUE-3", 12);
11595  memset (b_466 + 20559 + 12, 32, 21);
11596  memcpy (b_466 + 20592, "FSUBSTITUTE", 11);
11597  memset (b_466 + 20592 + 11, 32, 22);
11598  memcpy (b_466 + 20625, "FSUBSTITUTE-CASE", 16);
11599  memset (b_466 + 20625 + 16, 32, 17);
11600  memcpy (b_466 + 20658, "VSUBTRACT", 9);
11601  memset (b_466 + 20658 + 9, 32, 24);
11602  memcpy (b_466 + 20691, "FSUM", 4);
11603  memset (b_466 + 20691 + 4, 32, 29);
11604  memcpy (b_466 + 20724, " SUPER", 6);
11605  memset (b_466 + 20724 + 6, 32, 27);
11606  memcpy (b_466 + 20757, "VSUPPRESS", 9);
11607  memset (b_466 + 20757 + 9, 32, 24);
11608  memcpy (b_466 + 20790, "MSW0", 4);
11609  memset (b_466 + 20790 + 4, 32, 29);
11610  memcpy (b_466 + 20823, "MSW1", 4);
11611  memset (b_466 + 20823 + 4, 32, 29);
11612  memcpy (b_466 + 20856, "MSW10", 5);
11613  memset (b_466 + 20856 + 5, 32, 28);
11614  memcpy (b_466 + 20889, "MSW11", 5);
11615  memset (b_466 + 20889 + 5, 32, 28);
11616  memcpy (b_466 + 20922, "MSW12", 5);
11617  memset (b_466 + 20922 + 5, 32, 28);
11618  memcpy (b_466 + 20955, "MSW13", 5);
11619  memset (b_466 + 20955 + 5, 32, 28);
11620  memcpy (b_466 + 20988, "MSW14", 5);
11621  memset (b_466 + 20988 + 5, 32, 28);
11622  memcpy (b_466 + 21021, "MSW15", 5);
11623  memset (b_466 + 21021 + 5, 32, 28);
11624  memcpy (b_466 + 21054, "MSW2", 4);
11625  memset (b_466 + 21054 + 4, 32, 29);
11626  memcpy (b_466 + 21087, "MSW3", 4);
11627  memset (b_466 + 21087 + 4, 32, 29);
11628  memcpy (b_466 + 21120, "MSW4", 4);
11629  memset (b_466 + 21120 + 4, 32, 29);
11630  memcpy (b_466 + 21153, "MSW5", 4);
11631  memset (b_466 + 21153 + 4, 32, 29);
11632  memcpy (b_466 + 21186, "MSW6", 4);
11633  memset (b_466 + 21186 + 4, 32, 29);
11634  memcpy (b_466 + 21219, "MSW7", 4);
11635  memset (b_466 + 21219 + 4, 32, 29);
11636  memcpy (b_466 + 21252, "MSW8", 4);
11637  memset (b_466 + 21252 + 4, 32, 29);
11638  memcpy (b_466 + 21285, "MSW9", 4);
11639  memset (b_466 + 21285 + 4, 32, 29);
11640  memcpy (b_466 + 21318, "MSWITCH-0", 9);
11641  memset (b_466 + 21318 + 9, 32, 24);
11642  memcpy (b_466 + 21351, "MSWITCH-1", 9);
11643  memset (b_466 + 21351 + 9, 32, 24);
11644  memcpy (b_466 + 21384, "MSWITCH-10", 10);
11645  memset (b_466 + 21384 + 10, 32, 23);
11646  memcpy (b_466 + 21417, "MSWITCH-11", 10);
11647  memset (b_466 + 21417 + 10, 32, 23);
11648  memcpy (b_466 + 21450, "MSWITCH-12", 10);
11649  memset (b_466 + 21450 + 10, 32, 23);
11650  memcpy (b_466 + 21483, "MSWITCH-13", 10);
11651  memset (b_466 + 21483 + 10, 32, 23);
11652  memcpy (b_466 + 21516, "MSWITCH-14", 10);
11653  memset (b_466 + 21516 + 10, 32, 23);
11654  memcpy (b_466 + 21549, "MSWITCH-15", 10);
11655  memset (b_466 + 21549 + 10, 32, 23);
11656  memcpy (b_466 + 21582, "MSWITCH-2", 9);
11657  memset (b_466 + 21582 + 9, 32, 24);
11658  memcpy (b_466 + 21615, "MSWITCH-3", 9);
11659  memset (b_466 + 21615 + 9, 32, 24);
11660  memcpy (b_466 + 21648, "MSWITCH-4", 9);
11661  memset (b_466 + 21648 + 9, 32, 24);
11662  memcpy (b_466 + 21681, "MSWITCH-5", 9);
11663  memset (b_466 + 21681 + 9, 32, 24);
11664  memcpy (b_466 + 21714, "MSWITCH-6", 9);
11665  memset (b_466 + 21714 + 9, 32, 24);
11666  memcpy (b_466 + 21747, "MSWITCH-7", 9);
11667  memset (b_466 + 21747 + 9, 32, 24);
11668  memcpy (b_466 + 21780, "MSWITCH-8", 9);
11669  memset (b_466 + 21780 + 9, 32, 24);
11670  memcpy (b_466 + 21813, "MSWITCH-9", 9);
11671  memset (b_466 + 21813 + 9, 32, 24);
11672  memcpy (b_466 + 21846, " SYMBOL", 7);
11673  memset (b_466 + 21846 + 7, 32, 26);
11674  memcpy (b_466 + 21879, " SYMBOLIC", 9);
11675  memset (b_466 + 21879 + 9, 32, 24);
11676  memcpy (b_466 + 21912, " SYNC", 5);
11677  memset (b_466 + 21912 + 5, 32, 28);
11678  memcpy (b_466 + 21945, " SYNCHRONISED", 13);
11679  memset (b_466 + 21945 + 13, 32, 20);
11680  memcpy (b_466 + 21978, " SYNCHRONIZED", 13);
11681  memset (b_466 + 21978 + 13, 32, 20);
11682  memcpy (b_466 + 22011, "MSYSERR", 7);
11683  memset (b_466 + 22011 + 7, 32, 26);
11684  memcpy (b_466 + 22044, "MSYSIN", 6);
11685  memset (b_466 + 22044 + 6, 32, 27);
11686  memcpy (b_466 + 22077, "MSYSIPT", 7);
11687  memset (b_466 + 22077 + 7, 32, 26);
11688  memcpy (b_466 + 22110, "MSYSLIST", 8);
11689  memset (b_466 + 22110 + 8, 32, 25);
11690  memcpy (b_466 + 22143, "MSYSLST", 7);
11691  memset (b_466 + 22143 + 7, 32, 26);
11692  memcpy (b_466 + 22176, "MSYSOUT", 7);
11693  memset (b_466 + 22176 + 7, 32, 26);
11694  memcpy (b_466 + 22209, " SYSTEM-DEFAULT", 15);
11695  memset (b_466 + 22209 + 15, 32, 18);
11696  memcpy (b_466 + 22242, " TABLE", 6);
11697  memset (b_466 + 22242 + 6, 32, 27);
11698  memcpy (b_466 + 22275, "KTALLYING", 9);
11699  memset (b_466 + 22275 + 9, 32, 24);
11700  memcpy (b_466 + 22308, "FTAN", 4);
11701  memset (b_466 + 22308 + 4, 32, 29);
11702  memcpy (b_466 + 22341, " TAPE", 5);
11703  memset (b_466 + 22341 + 5, 32, 28);
11704  memcpy (b_466 + 22374, " TERMINAL", 9);
11705  memset (b_466 + 22374 + 9, 32, 24);
11706  memcpy (b_466 + 22407, "VTERMINATE", 10);
11707  memset (b_466 + 22407 + 10, 32, 23);
11708  memcpy (b_466 + 22440, " TEST", 5);
11709  memset (b_466 + 22440 + 5, 32, 28);
11710  memcpy (b_466 + 22473, "FTEST-DATE-YYYYMMDD", 19);
11711  memset (b_466 + 22473 + 19, 32, 14);
11712  memcpy (b_466 + 22506, "FTEST-DAY-YYYYDDD", 17);
11713  memset (b_466 + 22506 + 17, 32, 16);
11714  memcpy (b_466 + 22539, "FTEST-FORMATTED-DATETIME", 24);
11715  memset (b_466 + 22539 + 24, 32, 9);
11716  memcpy (b_466 + 22572, "FTEST-NUMVAL", 12);
11717  memset (b_466 + 22572 + 12, 32, 21);
11718  memcpy (b_466 + 22605, "FTEST-NUMVAL-C", 14);
11719  memset (b_466 + 22605 + 14, 32, 19);
11720  memcpy (b_466 + 22638, "FTEST-NUMVAL-F", 14);
11721  memset (b_466 + 22638 + 14, 32, 19);
11722  memcpy (b_466 + 22671, " TEXT", 5);
11723  memset (b_466 + 22671 + 5, 32, 28);
11724  memcpy (b_466 + 22704, " THAN", 5);
11725  memset (b_466 + 22704 + 5, 32, 28);
11726  memcpy (b_466 + 22737, " THEN", 5);
11727  memset (b_466 + 22737 + 5, 32, 28);
11728  memcpy (b_466 + 22770, " THROUGH", 8);
11729  memset (b_466 + 22770 + 8, 32, 25);
11730  memcpy (b_466 + 22803, " THRU", 5);
11731  memset (b_466 + 22803 + 5, 32, 28);
11732  memcpy (b_466 + 22836, " TIME", 5);
11733  memset (b_466 + 22836 + 5, 32, 28);
11734  memcpy (b_466 + 22869, " TIME-OUT", 9);
11735  memset (b_466 + 22869 + 9, 32, 24);
11736  memcpy (b_466 + 22902, " TIMEOUT", 8);
11737  memset (b_466 + 22902 + 8, 32, 25);
11738  memcpy (b_466 + 22935, " TIMES", 6);
11739  memset (b_466 + 22935 + 6, 32, 27);
11740  memcpy (b_466 + 22968, "KTO", 3);
11741  memset (b_466 + 22968 + 3, 32, 30);
11742  memcpy (b_466 + 23001, " TOP", 4);
11743  memset (b_466 + 23001 + 4, 32, 29);
11744  memcpy (b_466 + 23034, " TOWARD-GREATER", 15);
11745  memset (b_466 + 23034 + 15, 32, 18);
11746  memcpy (b_466 + 23067, " TOWARD-LESSER", 14);
11747  memset (b_466 + 23067 + 14, 32, 19);
11748  memcpy (b_466 + 23100, " TRAILING", 9);
11749  memset (b_466 + 23100 + 9, 32, 24);
11750  memcpy (b_466 + 23133, " TRAILING-SIGN", 14);
11751  memset (b_466 + 23133 + 14, 32, 19);
11752  memcpy (b_466 + 23166, "VTRANSFORM", 10);
11753  memset (b_466 + 23166 + 10, 32, 23);
11754  memcpy (b_466 + 23199, "FTRIM", 5);
11755  memset (b_466 + 23199 + 5, 32, 28);
11756  memcpy (b_466 + 23232, " TRUE", 5);
11757  memset (b_466 + 23232 + 5, 32, 28);
11758  memcpy (b_466 + 23265, " TRUNCATION", 11);
11759  memset (b_466 + 23265 + 11, 32, 22);
11760  memcpy (b_466 + 23298, " TYPE", 5);
11761  memset (b_466 + 23298 + 5, 32, 28);
11762  memcpy (b_466 + 23331, " TYPEDEF", 8);
11763  memset (b_466 + 23331 + 8, 32, 25);
11764  memcpy (b_466 + 23364, " UCS-4", 6);
11765  memset (b_466 + 23364 + 6, 32, 27);
11766  memcpy (b_466 + 23397, " UNDERLINE", 10);
11767  memset (b_466 + 23397 + 10, 32, 23);
11768  memcpy (b_466 + 23430, " UNIT", 5);
11769  memset (b_466 + 23430 + 5, 32, 28);
11770  memcpy (b_466 + 23463, " UNIVERSAL", 10);
11771  memset (b_466 + 23463 + 10, 32, 23);
11772  memcpy (b_466 + 23496, "VUNLOCK", 7);
11773  memset (b_466 + 23496 + 7, 32, 26);
11774  memcpy (b_466 + 23529, " UNSIGNED", 9);
11775  memset (b_466 + 23529 + 9, 32, 24);
11776  memcpy (b_466 + 23562, " UNSIGNED-INT", 13);
11777  memset (b_466 + 23562 + 13, 32, 20);
11778  memcpy (b_466 + 23595, " UNSIGNED-LONG", 14);
11779  memset (b_466 + 23595 + 14, 32, 19);
11780  memcpy (b_466 + 23628, " UNSIGNED-SHORT", 15);
11781  memset (b_466 + 23628 + 15, 32, 18);
11782  memcpy (b_466 + 23661, "VUNSTRING", 9);
11783  memset (b_466 + 23661 + 9, 32, 24);
11784  memcpy (b_466 + 23694, " UNTIL", 6);
11785  memset (b_466 + 23694 + 6, 32, 27);
11786  memcpy (b_466 + 23727, "KUP", 3);
11787  memset (b_466 + 23727 + 3, 32, 30);
11788  memcpy (b_466 + 23760, " UPDATE", 7);
11789  memset (b_466 + 23760 + 7, 32, 26);
11790  memcpy (b_466 + 23793, " UPON", 5);
11791  memset (b_466 + 23793 + 5, 32, 28);
11792  memcpy (b_466 + 23826, " UPPER", 6);
11793  memset (b_466 + 23826 + 6, 32, 27);
11794  memcpy (b_466 + 23859, "FUPPER-CASE", 11);
11795  memset (b_466 + 23859 + 11, 32, 22);
11796  memcpy (b_466 + 23892, " USAGE", 6);
11797  memset (b_466 + 23892 + 6, 32, 27);
11798  memcpy (b_466 + 23925, "VUSE", 4);
11799  memset (b_466 + 23925 + 4, 32, 29);
11800  memcpy (b_466 + 23958, " USER", 5);
11801  memset (b_466 + 23958 + 5, 32, 28);
11802  memcpy (b_466 + 23991, " USER-DEFAULT", 13);
11803  memset (b_466 + 23991 + 13, 32, 20);
11804  memcpy (b_466 + 24024, "KUSING", 6);
11805  memset (b_466 + 24024 + 6, 32, 27);
11806  memcpy (b_466 + 24057, " UTF-16", 7);
11807  memset (b_466 + 24057 + 7, 32, 26);
11808  memcpy (b_466 + 24090, " UTF-8", 6);
11809  memset (b_466 + 24090 + 6, 32, 27);
11810  memcpy (b_466 + 24123, " VAL-STATUS", 11);
11811  memset (b_466 + 24123 + 11, 32, 22);
11812  memcpy (b_466 + 24156, " VALID", 6);
11813  memset (b_466 + 24156 + 6, 32, 27);
11814  memcpy (b_466 + 24189, " VALIDATE", 9);
11815  memset (b_466 + 24189 + 9, 32, 24);
11816  memcpy (b_466 + 24222, " VALIDATE-STATUS", 16);
11817  memset (b_466 + 24222 + 16, 32, 17);
11818  memcpy (b_466 + 24255, "AVALUE", 6);
11819  memset (b_466 + 24255 + 6, 32, 27);
11820  memcpy (b_466 + 24288, " VALUES", 7);
11821  memset (b_466 + 24288 + 7, 32, 26);
11822  memcpy (b_466 + 24321, "FVARIANCE", 9);
11823  memset (b_466 + 24321 + 9, 32, 24);
11824  memcpy (b_466 + 24354, "KVARYING", 8);
11825  memset (b_466 + 24354 + 8, 32, 25);
11826  memcpy (b_466 + 24387, " VDISABLE", 9);
11827  memset (b_466 + 24387 + 9, 32, 24);
11828  memcpy (b_466 + 24420, " WAIT", 5);
11829  memset (b_466 + 24420 + 5, 32, 28);
11830  memcpy (b_466 + 24453, "VWHEN", 5);
11831  memset (b_466 + 24453 + 5, 32, 28);
11832  memcpy (b_466 + 24486, "FWHEN-COMPILED", 14);
11833  memset (b_466 + 24486 + 14, 32, 19);
11834  memcpy (b_466 + 24519, " WITH", 5);
11835  memset (b_466 + 24519 + 5, 32, 28);
11836  memcpy (b_466 + 24552, " WORDS", 6);
11837  memset (b_466 + 24552 + 6, 32, 27);
11838  memcpy (b_466 + 24585, "KWORKING-STORAGE", 16);
11839  memset (b_466 + 24585 + 16, 32, 17);
11840  memcpy (b_466 + 24618, "VWRITE", 6);
11841  memset (b_466 + 24618 + 6, 32, 27);
11842  memcpy (b_466 + 24651, "FYEAR-TO-YYYY", 13);
11843  memset (b_466 + 24651 + 13, 32, 20);
11844  memcpy (b_466 + 24684, " YYYYDDD", 8);
11845  memset (b_466 + 24684 + 8, 32, 25);
11846  memcpy (b_466 + 24717, " YYYYMMDD", 9);
11847  memset (b_466 + 24717 + 9, 32, 24);
11848  memcpy (b_466 + 24750, " ZERO", 5);
11849  memset (b_466 + 24750 + 5, 32, 28);
11850  memcpy (b_466 + 24783, " ZERO-FILL", 10);
11851  memset (b_466 + 24783 + 10, 32, 23);
11852  memcpy (b_466 + 24816, " ZEROES", 7);
11853  memset (b_466 + 24816 + 7, 32, 26);
11854  memcpy (b_466 + 24849, " ZEROS", 6);
11855  memset (b_466 + 24849 + 6, 32, 27);
11856  memset (b_1226, 32, 6);
11857  memset (b_1235, 32, 15);
11858  memset (b_1236, 61, 6);
11859  memset (b_1236 + 6, ' ', 1);
11860  memset (b_1236 + 7, 61, 128);
11861  cob_move (&cob_all_zero, &f_1240);
11862  memset (b_1239 + 6, 32, 257);
11863  memset (b_1243, 32, 256);
11864  memset (b_1244, 48, 6);
11865  memset (b_1245, 0, 4);
11866  memset (b_1246, 0, 4);
11867  memset (b_1247, 0, 4);
11868  memset (b_1248, 32, 10);
11869  memset (b_1249, 32, 32);
11870  memset (b_1250, 32, 32);
11871  memset (b_1251, 32, 32);
11872  memset (b_1252, 32, 65);
11873  memset (b_1253, 32, 256);
11874  memset (b_1254, 48, 8);
11875  memset (b_1255, 32, 32);
11876  memset (b_1256, 32, 32);
11877  memset (b_1257, 32, 32);
11878  memset (b_1258, 32, 32);
11879  *(cob_u8_ptr)(b_1259) = 32;
11880  memset (b_1269, 0, 4);
11881  memset (b_1270, 32, 23);
11882  memset (b_1271, 32, 49);
11883  cob_move (&cob_all_zero, &f_1276);
11884  memset (b_1271 + 55, 32, 17);
11885  for (i1 = 1; i1 <= 8; i1++)
11886  {
11887  cob_move (&cob_all_zero, COB_SET_FLD(f0, 6, b_1271 + 72 + 8 * (i1 - 1), &a_11));
11888  memset (b_1271 + 78 + 8 * (i1 - 1), 32, 2);
11889  }
11890  *(cob_u8_ptr)(b_1284) = 48;
11891 
11892 
11893  if (!h_F_EXPANDED_SRC_FILE)
11894  {
11895  h_F_EXPANDED_SRC_FILE = cob_cache_malloc (sizeof(cob_file));
11896  }
11897  h_F_EXPANDED_SRC_FILE->select_name = (const char *)"F-Expanded-Src-FILE";
11898  h_F_EXPANDED_SRC_FILE->file_status = h_F_EXPANDED_SRC_FILE_status;
11899  memset (h_F_EXPANDED_SRC_FILE_status, '0', 2);
11900  h_F_EXPANDED_SRC_FILE->assign = &f_436;
11901  h_F_EXPANDED_SRC_FILE->record = &f_388;
11902  h_F_EXPANDED_SRC_FILE->variable_record = NULL;
11903  h_F_EXPANDED_SRC_FILE->record_min = 0;
11904  h_F_EXPANDED_SRC_FILE->record_max = 257;
11905  h_F_EXPANDED_SRC_FILE->nkeys = 0;
11906  h_F_EXPANDED_SRC_FILE->keys = NULL;
11907  h_F_EXPANDED_SRC_FILE->file = NULL;
11908  h_F_EXPANDED_SRC_FILE->fd = -1;
11909  h_F_EXPANDED_SRC_FILE->organization = 1;
11910  h_F_EXPANDED_SRC_FILE->access_mode = 1;
11911  h_F_EXPANDED_SRC_FILE->lock_mode = 0;
11912  h_F_EXPANDED_SRC_FILE->open_mode = 0;
11913  h_F_EXPANDED_SRC_FILE->flag_optional = 0;
11914  h_F_EXPANDED_SRC_FILE->last_open_mode = 0;
11915  h_F_EXPANDED_SRC_FILE->flag_operation = 0;
11916  h_F_EXPANDED_SRC_FILE->flag_nonexistent = 0;
11917  h_F_EXPANDED_SRC_FILE->flag_end_of_file = 0;
11918  h_F_EXPANDED_SRC_FILE->flag_begin_of_file = 0;
11919  h_F_EXPANDED_SRC_FILE->flag_first_read = 0;
11920  h_F_EXPANDED_SRC_FILE->flag_read_done = 0;
11921  h_F_EXPANDED_SRC_FILE->flag_select_features = 0;
11922  h_F_EXPANDED_SRC_FILE->flag_needs_nl = 0;
11923  h_F_EXPANDED_SRC_FILE->flag_needs_top = 0;
11924  h_F_EXPANDED_SRC_FILE->file_version = 1;
11925  if (!h_F_LISTING_FILE)
11926  {
11927  h_F_LISTING_FILE = cob_cache_malloc (sizeof(cob_file));
11928  }
11929  h_F_LISTING_FILE->select_name = (const char *)"F-Listing-FILE";
11930  h_F_LISTING_FILE->file_status = h_F_LISTING_FILE_status;
11931  memset (h_F_LISTING_FILE_status, '0', 2);
11932  h_F_LISTING_FILE->assign = COB_SET_DATA (f_1285, b_1285);
11933  h_F_LISTING_FILE->record = &f_392;
11934  h_F_LISTING_FILE->variable_record = NULL;
11935  h_F_LISTING_FILE->record_min = 0;
11936  h_F_LISTING_FILE->record_max = 135;
11937  h_F_LISTING_FILE->nkeys = 0;
11938  h_F_LISTING_FILE->keys = NULL;
11939  h_F_LISTING_FILE->file = NULL;
11940  h_F_LISTING_FILE->fd = -1;
11941  h_F_LISTING_FILE->organization = 1;
11942  h_F_LISTING_FILE->access_mode = 1;
11943  h_F_LISTING_FILE->lock_mode = 0;
11944  h_F_LISTING_FILE->open_mode = 0;
11945  h_F_LISTING_FILE->flag_optional = 0;
11946  h_F_LISTING_FILE->last_open_mode = 0;
11947  h_F_LISTING_FILE->flag_operation = 0;
11948  h_F_LISTING_FILE->flag_nonexistent = 0;
11949  h_F_LISTING_FILE->flag_end_of_file = 0;
11950  h_F_LISTING_FILE->flag_begin_of_file = 0;
11951  h_F_LISTING_FILE->flag_first_read = 0;
11952  h_F_LISTING_FILE->flag_read_done = 0;
11953  h_F_LISTING_FILE->flag_select_features = 0;
11954  h_F_LISTING_FILE->flag_needs_nl = 0;
11955  h_F_LISTING_FILE->flag_needs_top = 0;
11956  h_F_LISTING_FILE->file_version = 1;
11957  if (!h_F_ORIGINAL_SRC_FILE)
11958  {
11959  h_F_ORIGINAL_SRC_FILE = cob_cache_malloc (sizeof(cob_file));
11960  }
11961  h_F_ORIGINAL_SRC_FILE->select_name = (const char *)"F-Original-Src-FILE";
11962  h_F_ORIGINAL_SRC_FILE->file_status = h_F_ORIGINAL_SRC_FILE_status;
11963  memset (h_F_ORIGINAL_SRC_FILE_status, '0', 2);
11964  h_F_ORIGINAL_SRC_FILE->assign = COB_SET_DATA (f_1286, b_1286);
11965  h_F_ORIGINAL_SRC_FILE->record = &f_400;
11966  h_F_ORIGINAL_SRC_FILE->variable_record = NULL;
11967  h_F_ORIGINAL_SRC_FILE->record_min = 0;
11968  h_F_ORIGINAL_SRC_FILE->record_max = 256;
11969  h_F_ORIGINAL_SRC_FILE->nkeys = 0;
11970  h_F_ORIGINAL_SRC_FILE->keys = NULL;
11971  h_F_ORIGINAL_SRC_FILE->file = NULL;
11972  h_F_ORIGINAL_SRC_FILE->fd = -1;
11973  h_F_ORIGINAL_SRC_FILE->organization = 1;
11974  h_F_ORIGINAL_SRC_FILE->access_mode = 1;
11975  h_F_ORIGINAL_SRC_FILE->lock_mode = 0;
11976  h_F_ORIGINAL_SRC_FILE->open_mode = 0;
11977  h_F_ORIGINAL_SRC_FILE->flag_optional = 0;
11978  h_F_ORIGINAL_SRC_FILE->last_open_mode = 0;
11979  h_F_ORIGINAL_SRC_FILE->flag_operation = 0;
11980  h_F_ORIGINAL_SRC_FILE->flag_nonexistent = 0;
11981  h_F_ORIGINAL_SRC_FILE->flag_end_of_file = 0;
11982  h_F_ORIGINAL_SRC_FILE->flag_begin_of_file = 0;
11983  h_F_ORIGINAL_SRC_FILE->flag_first_read = 0;
11984  h_F_ORIGINAL_SRC_FILE->flag_read_done = 0;
11985  h_F_ORIGINAL_SRC_FILE->flag_select_features = 0;
11986  h_F_ORIGINAL_SRC_FILE->flag_needs_nl = 0;
11987  h_F_ORIGINAL_SRC_FILE->flag_needs_top = 0;
11988  h_F_ORIGINAL_SRC_FILE->file_version = 1;
11989  if (!h_F_SORT_WORK_FILE)
11990  {
11991  h_F_SORT_WORK_FILE = cob_cache_malloc (sizeof(cob_file));
11992  }
11993  h_F_SORT_WORK_FILE->select_name = (const char *)"F-Sort-Work-FILE";
11994  h_F_SORT_WORK_FILE->file_status = h_F_SORT_WORK_FILE_status;
11995  memset (h_F_SORT_WORK_FILE_status, '0', 2);
11996  h_F_SORT_WORK_FILE->assign = (cob_field *)&c_187;
11997  h_F_SORT_WORK_FILE->record = &f_410;
11998  h_F_SORT_WORK_FILE->variable_record = NULL;
11999  h_F_SORT_WORK_FILE->record_min = 107;
12000  h_F_SORT_WORK_FILE->record_max = 107;
12001  h_F_SORT_WORK_FILE->nkeys = 0;
12002  h_F_SORT_WORK_FILE->keys = NULL;
12003  h_F_SORT_WORK_FILE->file = NULL;
12004  h_F_SORT_WORK_FILE->fd = -1;
12005  h_F_SORT_WORK_FILE->organization = 4;
12006  h_F_SORT_WORK_FILE->access_mode = 1;
12007  h_F_SORT_WORK_FILE->lock_mode = 0;
12008  h_F_SORT_WORK_FILE->open_mode = 0;
12009  h_F_SORT_WORK_FILE->flag_optional = 0;
12010  h_F_SORT_WORK_FILE->last_open_mode = 0;
12011  h_F_SORT_WORK_FILE->flag_operation = 0;
12012  h_F_SORT_WORK_FILE->flag_nonexistent = 0;
12013  h_F_SORT_WORK_FILE->flag_end_of_file = 0;
12014  h_F_SORT_WORK_FILE->flag_begin_of_file = 0;
12015  h_F_SORT_WORK_FILE->flag_first_read = 0;
12016  h_F_SORT_WORK_FILE->flag_read_done = 0;
12017  h_F_SORT_WORK_FILE->flag_select_features = 0;
12018  h_F_SORT_WORK_FILE->flag_needs_nl = 0;
12019  h_F_SORT_WORK_FILE->flag_needs_top = 0;
12020  h_F_SORT_WORK_FILE->file_version = 1;
12021 
12022  initialized = 1;
12023  goto P_ret_initialize;
12024 
12025  /* CANCEL callback handling */
12026  P_cancel:
12027 
12028  if (!initialized) {
12029  return 0;
12030  }
12031  if (module->module_active) {
12032  cob_fatal_error (COB_FERROR_CANCEL);
12033  }
12034 
12035  cob_close (h_F_EXPANDED_SRC_FILE, NULL, COB_CLOSE_NORMAL, 1);
12036  cob_cache_free (h_F_EXPANDED_SRC_FILE);
12037  h_F_EXPANDED_SRC_FILE = NULL;
12038  cob_close (h_F_LISTING_FILE, NULL, COB_CLOSE_NORMAL, 1);
12039  cob_cache_free (h_F_LISTING_FILE);
12040  h_F_LISTING_FILE = NULL;
12041  cob_close (h_F_ORIGINAL_SRC_FILE, NULL, COB_CLOSE_NORMAL, 1);
12042  cob_cache_free (h_F_ORIGINAL_SRC_FILE);
12043  h_F_ORIGINAL_SRC_FILE = NULL;
12044  cob_cache_free (h_F_SORT_WORK_FILE);
12045  h_F_SORT_WORK_FILE = NULL;
12046  b_377 = 0;
12047  cob_cache_free (module);
12048  module = NULL;
12049 
12050  initialized = 0;
12051  return 0;
12052 
12053 }
12054 
12055 /* End PROGRAM-ID 'LISTING' */
12056 
12057 /* End functions */
12058 
cob_file::record
cob_field * record
Definition: common.h:1115
s_251
static cob_screen s_251
Definition: GCic.c.l1.h:134
f_461
static cob_field f_461
Definition: GCic.c.l3.h:161
f_256
static cob_field f_256
Definition: GCic.c.l1.h:285
f_244
static cob_field f_244
Definition: GCic.c.l1.h:273
st_83
static const char st_83[]
Definition: cobxref.c.h:205
f_408
static cob_field f_408
Definition: GCic.c.l3.h:141
__cob_module::flag_main
unsigned char flag_main
Definition: common.h:1079
s_288
static cob_screen s_288
Definition: GCic.c.l1.h:97
c_162
static const cob_field c_162
Definition: GCic.c.h:192
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
f_153
static cob_field f_153
Definition: GCic.c.l1.h:239
c_89
static const cob_field c_89
Definition: GCic.c.h:119
cob_sys_justify
int cob_sys_justify(void *p1,...)
Definition: common.c:4086
f_318
static cob_field f_318
Definition: GCic.c.l1.h:339
c_179
static const cob_field c_179
Definition: GCic.c.h:209
cob_all_zero
static cob_field cob_all_zero
Definition: cobxref.c.h:119
s_324
static cob_screen s_324
Definition: GCic.c.l1.h:61
f_190
static cob_field f_190
Definition: GCic.c.l1.h:254
f_330
static cob_field f_330
Definition: GCic.c.l1.h:350
COB_FERROR_CODEGEN
#define COB_FERROR_CODEGEN
Definition: common.h:693
st_3
static const char st_3[]
Definition: cobxref.c.h:125
f_464
static cob_field f_464
Definition: GCic.c.l3.h:163
f_332
static cob_field f_332
Definition: GCic.c.l1.h:352
st_32
static const char st_32[]
Definition: cobxref.c.h:154
h_F_COBC_OUTPUT_FILE
static cob_file * h_F_COBC_OUTPUT_FILE
Definition: GCic.c.l1.h:21
c_130
static const cob_field c_130
Definition: GCic.c.h:160
s_296
static cob_screen s_296
Definition: GCic.c.l1.h:89
c_161
static const cob_field c_161
Definition: GCic.c.h:191
c_186
static const cob_field c_186
Definition: GCic.c.h:216
c_79
static const cob_field c_79
Definition: cobxref.c.h:108
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
h_F_ORIGINAL_SRC_FILE_status
static unsigned char h_F_ORIGINAL_SRC_FILE_status[4]
Definition: GCic.c.l3.h:34
f_168
static cob_field f_168
Definition: cobxref.c.l.h:275
s_287
static cob_screen s_287
Definition: GCic.c.l1.h:98
__cob_global::cob_error_file
cob_file * cob_error_file
Definition: common.h:1187
cob_set_environment
void cob_set_environment(const cob_field *f1, const cob_field *f2)
Definition: common.c:3018
f_327
static cob_field f_327
Definition: GCic.c.l1.h:347
s_340
static cob_screen s_340
Definition: GCic.c.l1.h:45
s_294
static cob_screen s_294
Definition: GCic.c.l1.h:91
s_329
static cob_screen s_329
Definition: GCic.c.l1.h:56
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
s_306
static cob_screen s_306
Definition: GCic.c.l1.h:79
st_60
static const char st_60[]
Definition: cobxref.c.h:182
f_350
static cob_field f_350
Definition: GCic.c.l1.h:367
f_345
static cob_field f_345
Definition: GCic.c.l1.h:364
s_277
static cob_screen s_277
Definition: GCic.c.l1.h:108
st_27
static const char st_27[]
Definition: cobxref.c.h:149
s_345
static cob_screen s_345
Definition: GCic.c.l1.h:40
c_42
static const cob_field c_42
Definition: cobxref.c.h:71
s_305
static cob_screen s_305
Definition: GCic.c.l1.h:80
s_332
static cob_screen s_332
Definition: GCic.c.l1.h:53
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_237
static cob_field f_237
Definition: GCic.c.l1.h:266
COB_MODULE_FORMATTED_DATE
#define COB_MODULE_FORMATTED_DATE
Definition: GCic.c:19
cob_check_version
void cob_check_version(const char *prog, const char *packver, const int patchlev)
Definition: common.c:1894
cob_set_screen
static void COB_NOINLINE cob_set_screen(cob_screen *s, cob_screen *next, cob_screen *prev, cob_screen *child, cob_screen *parent, cob_field *field, cob_field *value, cob_field *line, cob_field *column, cob_field *foreg, cob_field *backg, cob_field *prompt, const int type, const int occurs, const int attr)
Definition: GCic.c.h:309
f_310
static cob_field f_310
Definition: GCic.c.l1.h:333
c_165
static const cob_field c_165
Definition: GCic.c.h:195
c_67
static const cob_field c_67
Definition: cobxref.c.h:96
cob_add_int
int cob_add_int(cob_field *, const int, const int)
Definition: numeric.c:2195
i1
int i1
Definition: GCic.c.l3.h:41
COB_PACKAGE_VERSION
#define COB_PACKAGE_VERSION
Definition: GCic.c:17
cob_file::organization
unsigned char organization
Definition: common.h:1127
f_188
static cob_field f_188
Definition: GCic.c.l1.h:253
__cob_module::flag_exit_program
unsigned char flag_exit_program
Definition: common.h:1081
__cob_module::module_active
unsigned int module_active
Definition: common.h:1060
f_221
static cob_field f_221
Definition: GCic.c.l1.h:259
a_11
static const cob_field_attr a_11
Definition: cobxref.c.h:24
f_166
static cob_field f_166
Definition: GCic.c.l1.h:246
st_64
static const char st_64[]
Definition: cobxref.c.h:186
st_36
static const char st_36[]
Definition: cobxref.c.h:158
c_173
static const cob_field c_173
Definition: GCic.c.h:203
st_61
static const char st_61[]
Definition: cobxref.c.h:183
s_261
static cob_screen s_261
Definition: GCic.c.l1.h:124
c_166
static const cob_field c_166
Definition: GCic.c.h:196
f_412
static cob_field f_412
Definition: GCic.c.l3.h:144
s_346
static cob_screen s_346
Definition: GCic.c.l1.h:39
c_111
static const cob_field c_111
Definition: GCic.c.h:141
f_316
static cob_field f_316
Definition: GCic.c.l1.h:337
cob_sys_system
int cob_sys_system(const void *cmdline)
Definition: common.c:3426
f_400
static cob_field f_400
Definition: GCic.c.l3.h:135
b_377
static int b_377
Definition: GCic.c.l3.h:64
st_55
static const char st_55[]
Definition: cobxref.c.h:177
c_102
static const cob_field c_102
Definition: GCic.c.h:132
c_54
static const cob_field c_54
Definition: cobxref.c.h:83
s_269
static cob_screen s_269
Definition: GCic.c.l1.h:116
cob_move
void cob_move(cob_field *, cob_field *)
Definition: move.c:1170
s_308
static cob_screen s_308
Definition: GCic.c.l1.h:77
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
s_283
static cob_screen s_283
Definition: GCic.c.l1.h:102
c_85
static const cob_field c_85
Definition: cobxref.c.h:114
s_313
static cob_screen s_313
Definition: GCic.c.l1.h:72
module
static cob_module * module
Definition: cobxref.c.l.h:14
c_110
static const cob_field c_110
Definition: GCic.c.h:140
f_295
static cob_field f_295
Definition: GCic.c.l1.h:321
s_245
static cob_screen s_245
Definition: GCic.c.l1.h:140
f_1248
static cob_field f_1248
Definition: GCic.c.l3.h:171
f_161
static cob_field f_161
Definition: GCic.c.l1.h:243
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
f_411
static cob_field f_411
Definition: GCic.c.l3.h:143
c_182
static const cob_field c_182
Definition: GCic.c.h:212
c_33
static const cob_field c_33
Definition: cobxref.c.h:62
c_119
static const cob_field c_119
Definition: GCic.c.h:149
f_142
static cob_field f_142
Definition: GCic.c.l1.h:228
st_80
static const char st_80[]
Definition: cobxref.c.h:202
cob_sys_change_dir
int cob_sys_change_dir(unsigned char *)
Definition: fileio.c:5395
c_91
static const cob_field c_91
Definition: GCic.c.h:121
f_301
static cob_field f_301
Definition: GCic.c.l1.h:326
s_271
static cob_screen s_271
Definition: GCic.c.l1.h:114
s_334
static cob_screen s_334
Definition: GCic.c.l1.h:51
__cob_module::flag_fold_call
unsigned char flag_fold_call
Definition: common.h:1080
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
c_153
static const cob_field c_153
Definition: GCic.c.h:183
st_53
static const char st_53[]
Definition: cobxref.c.h:175
st_8
static const char st_8[]
Definition: cobxref.c.h:130
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
s_350
static cob_screen s_350
Definition: GCic.c.l1.h:35
f_348
static cob_field f_348
Definition: GCic.c.l1.h:366
f_354
static cob_field f_354
Definition: GCic.c.l1.h:370
c_95
static const cob_field c_95
Definition: GCic.c.h:125
f_249
static cob_field f_249
Definition: GCic.c.l1.h:278
st_69
static const char st_69[]
Definition: cobxref.c.h:191
st_70
static const char st_70[]
Definition: cobxref.c.h:192
f_353
static cob_field f_353
Definition: GCic.c.l1.h:369
b_357
static int b_357
Definition: GCic.c.l2.h:35
cob_inspect_init
void cob_inspect_init(cob_field *, const unsigned int)
f_422
static cob_field f_422
Definition: GCic.c.l3.h:145
f_451
static cob_field f_451
Definition: GCic.c.l3.h:160
c_51
static const cob_field c_51
Definition: cobxref.c.h:80
f_397
static cob_field f_397
Definition: GCic.c.l3.h:134
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
s_302
static cob_screen s_302
Definition: GCic.c.l1.h:83
s_268
static cob_screen s_268
Definition: GCic.c.l1.h:117
f_1258
static cob_field f_1258
Definition: GCic.c.l3.h:181
f_271
static cob_field f_271
Definition: GCic.c.l1.h:300
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
h_F_SOURCE_CODE_FILE
static cob_file * h_F_SOURCE_CODE_FILE
Definition: GCic.c.l1.h:25
s_307
static cob_screen s_307
Definition: GCic.c.l1.h:78
c_124
static const cob_field c_124
Definition: GCic.c.h:154
cob_sys_clear_screen
int cob_sys_clear_screen(void)
Definition: screenio.c:2377
f_341
static cob_field f_341
Definition: GCic.c.l1.h:360
h_F_COBC_OUTPUT_FILE_status
static unsigned char h_F_COBC_OUTPUT_FILE_status[4]
Definition: GCic.c.l1.h:22
cob_cache_free
void cob_cache_free(void *ptr)
Definition: common.c:1362
st_63
static const char st_63[]
Definition: cobxref.c.h:185
cob_call_union::funcptr
void *(* funcptr)()
Definition: common.h:1006
s_311
static cob_screen s_311
Definition: GCic.c.l1.h:74
cob_read_next
void cob_read_next(cob_file *, cob_field *, const int)
Definition: fileio.c:4696
c_93
static const cob_field c_93
Definition: GCic.c.h:123
__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
c_157
static const cob_field c_157
Definition: GCic.c.h:187
st_5
static const char st_5[]
Definition: cobxref.c.h:127
cob_content::dataint
int dataint
Definition: common.h:1002
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
c_171
static const cob_field c_171
Definition: GCic.c.h:201
cob_field
Definition: common.h:950
f_254
static cob_field f_254
Definition: GCic.c.l1.h:283
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
f_270
static cob_field f_270
Definition: GCic.c.l1.h:299
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
s_272
static cob_screen s_272
Definition: GCic.c.l1.h:113
c_57
static const cob_field c_57
Definition: cobxref.c.h:86
s_352
static cob_screen s_352
Definition: GCic.c.l1.h:33
a_4
static const cob_field_attr a_4
Definition: cobxref.c.h:17
f_328
static cob_field f_328
Definition: GCic.c.l1.h:348
c_140
static const cob_field c_140
Definition: GCic.c.h:170
s_259
static cob_screen s_259
Definition: GCic.c.l1.h:126
f_154
static cob_field f_154
Definition: cobxref.c.l.h:268
f_299
static cob_field f_299
Definition: GCic.c.l1.h:324
f_284
static cob_field f_284
Definition: GCic.c.l1.h:313
s_316
static cob_screen s_316
Definition: GCic.c.l1.h:69
c_172
static const cob_field c_172
Definition: GCic.c.h:202
c_123
static const cob_field c_123
Definition: GCic.c.h:153
s_319
static cob_screen s_319
Definition: GCic.c.l1.h:66
s_341
static cob_screen s_341
Definition: GCic.c.l1.h:44
cob_frame::perform_through
unsigned int perform_through
Definition: common.h:992
c_185
static const cob_field c_185
Definition: GCic.c.h:215
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
f_250
static cob_field f_250
Definition: GCic.c.l1.h:279
cob_sys_delete_file
int cob_sys_delete_file(unsigned char *)
Definition: fileio.c:5165
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
c_187
static const cob_field c_187
Definition: GCic.c.h:217
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
s_278
static cob_screen s_278
Definition: GCic.c.l1.h:107
d1
cob_decimal * d1
Definition: cobxref.c.l.h:21
f_465
static cob_field f_465
Definition: GCic.c.l3.h:164
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
c_158
static const cob_field c_158
Definition: GCic.c.h:188
c_159
static const cob_field c_159
Definition: GCic.c.h:189
st_72
static const char st_72[]
Definition: cobxref.c.h:194
f_253
static cob_field f_253
Definition: GCic.c.l1.h:282
f_266
static cob_field f_266
Definition: GCic.c.l1.h:295
c_151
static const cob_field c_151
Definition: GCic.c.h:181
f_23
static cob_field f_23
Definition: cobxref.c.l.h:201
c_58
static const cob_field c_58
Definition: cobxref.c.h:87
f_257
static cob_field f_257
Definition: GCic.c.l1.h:286
GCic
static int GCic()
Definition: GCic.c:50
st_20
static const char st_20[]
Definition: cobxref.c.h:142
f_169
static cob_field f_169
Definition: GCic.c.l1.h:249
f_236
static cob_field f_236
Definition: GCic.c.l1.h:265
f_302
static cob_field f_302
Definition: GCic.c.l1.h:327
main
int main(int argc, char **argv)
Definition: GCic.c:37
COB_SET_DATA
#define COB_SET_DATA(x, z)
Definition: common.h:686
st_42
static const char st_42[]
Definition: cobxref.c.h:164
c_113
static const cob_field c_113
Definition: GCic.c.h:143
st_28
static const char st_28[]
Definition: cobxref.c.h:150
s_265
static cob_screen s_265
Definition: GCic.c.l1.h:120
f_1247
static cob_field f_1247
Definition: GCic.c.l3.h:170
st_38
static const char st_38[]
Definition: cobxref.c.h:160
f_274
static cob_field f_274
Definition: GCic.c.l1.h:303
f_300
static cob_field f_300
Definition: GCic.c.l1.h:325
c_30
static const cob_field c_30
Definition: cobxref.c.h:59
f_390
static cob_field f_390
Definition: GCic.c.l3.h:132
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_1251
static cob_field f_1251
Definition: GCic.c.l3.h:174
f_235
static cob_field f_235
Definition: cobxref.c.l.h:298
f_289
static cob_field f_289
Definition: GCic.c.l1.h:317
st_16
static const char st_16[]
Definition: cobxref.c.h:138
cob_file::flag_operation
unsigned char flag_operation
Definition: common.h:1133
c_150
static const cob_field c_150
Definition: GCic.c.h:180
c_61
static const cob_field c_61
Definition: cobxref.c.h:90
c_156
static const cob_field c_156
Definition: GCic.c.h:186
st_67
static const char st_67[]
Definition: cobxref.c.h:189
f_240
static cob_field f_240
Definition: cobxref.c.l.h:299
c_6
static const cob_field c_6
Definition: cobxref.c.h:35
f_281
static cob_field f_281
Definition: GCic.c.l1.h:310
s_301
static cob_screen s_301
Definition: GCic.c.l1.h:84
f_147
static cob_field f_147
Definition: cobxref.c.l.h:264
s_239
static cob_screen s_239
Definition: GCic.c.l1.h:146
s_274
static cob_screen s_274
Definition: GCic.c.l1.h:111
f_1257
static cob_field f_1257
Definition: GCic.c.l3.h:180
f_268
static cob_field f_268
Definition: GCic.c.l1.h:297
f_309
static cob_field f_309
Definition: GCic.c.l1.h:332
f_291
static cob_field f_291
Definition: GCic.c.l1.h:319
cob_intr_upper_case
cob_field * cob_intr_upper_case(const int, const int, cob_field *)
Definition: intrinsic.c:3559
f_1270
static cob_field f_1270
Definition: GCic.c.l3.h:182
st_29
static const char st_29[]
Definition: cobxref.c.h:151
s_262
static cob_screen s_262
Definition: GCic.c.l1.h:123
cob_s64_t
#define cob_s64_t
Definition: common.h:51
st_77
static const char st_77[]
Definition: cobxref.c.h:199
f_1271
static cob_field f_1271
Definition: GCic.c.l3.h:183
c_98
static const cob_field c_98
Definition: GCic.c.h:128
f_129
static cob_field f_129
Definition: GCic.c.l1.h:225
c_82
static const cob_field c_82
Definition: cobxref.c.h:111
f_264
static cob_field f_264
Definition: GCic.c.l1.h:293
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
f_331
static cob_field f_331
Definition: GCic.c.l1.h:351
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
f_388
static cob_field f_388
Definition: GCic.c.l3.h:130
s_354
static cob_screen s_354
Definition: GCic.c.l1.h:31
cob_file::file_status
unsigned char * file_status
Definition: common.h:1113
st_12
static const char st_12[]
Definition: cobxref.c.h:134
f_339
static cob_field f_339
Definition: GCic.c.l1.h:358
s_241
static cob_screen s_241
Definition: GCic.c.l1.h:144
f_305
static cob_field f_305
Definition: GCic.c.l1.h:329
f_114
static cob_field f_114
Definition: cobxref.c.l.h:246
st_41
static const char st_41[]
Definition: cobxref.c.h:163
c_148
static const cob_field c_148
Definition: GCic.c.h:178
f_282
static cob_field f_282
Definition: GCic.c.l1.h:311
s_331
static cob_screen s_331
Definition: GCic.c.l1.h:54
c_44
static const cob_field c_44
Definition: cobxref.c.h:73
cob_u8_t
#define cob_u8_t
Definition: common.h:27
COB_FERROR_GLOBAL
#define COB_FERROR_GLOBAL
Definition: common.h:696
f_263
static cob_field f_263
Definition: GCic.c.l1.h:292
st_10
static const char st_10[]
Definition: cobxref.c.h:132
__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_157
static cob_field f_157
Definition: GCic.c.l1.h:242
__cob_module::currency_symbol
unsigned char currency_symbol
Definition: common.h:1070
cob_call_union::funcvoid
void * funcvoid
Definition: common.h:1010
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
s_250
static cob_screen s_250
Definition: GCic.c.l1.h:135
__cob_module::ebcdic_sign
unsigned char ebcdic_sign
Definition: common.h:1068
st_79
static const char st_79[]
Definition: cobxref.c.h:201
s_304
static cob_screen s_304
Definition: GCic.c.l1.h:81
f_279
static cob_field f_279
Definition: GCic.c.l1.h:308
c_142
static const cob_field c_142
Definition: GCic.c.h:172
b_1223
static int b_1223
Definition: GCic.c.l3.h:97
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)
c_35
static const cob_field c_35
Definition: cobxref.c.h:64
cob_field_accept
void cob_field_accept(cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, cob_field *, const int)
Definition: screenio.c:2353
c_183
static const cob_field c_183
Definition: GCic.c.h:213
s_326
static cob_screen s_326
Definition: GCic.c.l1.h:59
cob_file::lock_mode
unsigned char lock_mode
Definition: common.h:1129
f_347
static cob_field f_347
Definition: GCic.c.l1.h:365
f_306
static cob_field f_306
Definition: GCic.c.l1.h:330
cob_screen_accept
void cob_screen_accept(cob_screen *, cob_field *, cob_field *, cob_field *)
Definition: screenio.c:2330
cob_unstring_into
void cob_unstring_into(cob_field *, cob_field *, cob_field *)
Definition: strings.c:524
c_100
static const cob_field c_100
Definition: GCic.c.h:130
s_264
static cob_screen s_264
Definition: GCic.c.l1.h:121
cob_procedure_params
cob_field * cob_procedure_params[5]
Definition: cobxref.c.l.h:61
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
f_337
static cob_field f_337
Definition: GCic.c.l1.h:356
f_406
static cob_field f_406
Definition: GCic.c.l3.h:139
cob_file::record_max
size_t record_max
Definition: common.h:1123
h_F_EXPANDED_SRC_FILE_status
static unsigned char h_F_EXPANDED_SRC_FILE_status[4]
Definition: GCic.c.l3.h:26
f_1252
static cob_field f_1252
Definition: GCic.c.l3.h:175
cob_accept_date_yyyymmdd
void cob_accept_date_yyyymmdd(cob_field *f)
Definition: common.c:2792
f_260
static cob_field f_260
Definition: GCic.c.l1.h:289
f_283
static cob_field f_283
Definition: GCic.c.l1.h:312
c_125
static const cob_field c_125
Definition: GCic.c.h:155
__cob_module::module_ref_count
unsigned int * module_ref_count
Definition: common.h:1057
c_163
static const cob_field c_163
Definition: GCic.c.h:193
c_138
static const cob_field c_138
Definition: GCic.c.h:168
c_40
static const cob_field c_40
Definition: cobxref.c.h:69
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
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
s_339
static cob_screen s_339
Definition: GCic.c.l1.h:46
cob_intr_length
cob_field * cob_intr_length(cob_field *)
Definition: intrinsic.c:3469
f_214
static cob_field f_214
Definition: GCic.c.l1.h:258
GCic_
static int GCic_(const int)
Definition: GCic.c:56
f_320
static cob_field f_320
Definition: GCic.c.l1.h:341
s_342
static cob_screen s_342
Definition: GCic.c.l1.h:43
c_27
static const cob_field c_27
Definition: cobxref.c.h:56
c_169
static const cob_field c_169
Definition: GCic.c.h:199
c_128
static const cob_field c_128
Definition: GCic.c.h:158
c_155
static const cob_field c_155
Definition: GCic.c.h:185
__cob_module::flag_binary_truncate
unsigned char flag_binary_truncate
Definition: common.h:1074
c_99
static const cob_field c_99
Definition: GCic.c.h:129
f_149
static cob_field f_149
Definition: GCic.c.l1.h:235
st_66
static const char st_66[]
Definition: cobxref.c.h:188
cob_u8_ptr
#define cob_u8_ptr
Definition: common.h:66
__cob_module::module_time
unsigned int module_time
Definition: common.h:1062
f_143
static cob_field f_143
Definition: cobxref.c.l.h:261
f_403
static cob_field f_403
Definition: GCic.c.l3.h:138
__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
cob_sys_sleep
int cob_sys_sleep(const void *data)
Definition: common.c:4031
c_121
static const cob_field c_121
Definition: GCic.c.h:151
f_165
static cob_field f_165
Definition: cobxref.c.l.h:273
f_248
static cob_field f_248
Definition: GCic.c.l1.h:277
s_232
static cob_screen s_232
Definition: GCic.c.l1.h:153
s_238
static cob_screen s_238
Definition: GCic.c.l1.h:147
cob_screen_display
void cob_screen_display(cob_screen *, cob_field *, cob_field *)
Definition: screenio.c:2321
c_137
static const cob_field c_137
Definition: GCic.c.h:167
s_299
static cob_screen s_299
Definition: GCic.c.l1.h:86
f_448
static cob_field f_448
Definition: GCic.c.l3.h:157
unlikely
#define unlikely(x)
Definition: common.h:437
c_103
static const cob_field c_103
Definition: GCic.c.h:133
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
s_244
static cob_screen s_244
Definition: GCic.c.l1.h:141
frame_stack
struct cob_frame frame_stack[255]
Definition: cobxref.c.l.h:66
st_2
static const char st_2[]
Definition: cobxref.c.h:124
call_CHECKSRC
static cob_call_union call_CHECKSRC
Definition: GCic.c.l1.h:159
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
n3
cob_s64_t n3
Definition: GCic.c.l3.h:47
f_167
static cob_field f_167
Definition: cobxref.c.l.h:274
c_97
static const cob_field c_97
Definition: GCic.c.h:127
c_87
static const cob_field c_87
Definition: GCic.c.h:117
st_35
static const char st_35[]
Definition: cobxref.c.h:157
st_57
static const char st_57[]
Definition: cobxref.c.h:179
f_234
static cob_field f_234
Definition: cobxref.c.l.h:297
s_297
static cob_screen s_297
Definition: GCic.c.l1.h:88
c_39
static const cob_field c_39
Definition: cobxref.c.h:68
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
f_322
static cob_field f_322
Definition: GCic.c.l1.h:343
c_75
static const cob_field c_75
Definition: cobxref.c.h:104
n2
cob_s64_t n2
Definition: GCic.c.l3.h:46
s_279
static cob_screen s_279
Definition: GCic.c.l1.h:106
h_F_ORIGINAL_SRC_FILE
static cob_file * h_F_ORIGINAL_SRC_FILE
Definition: GCic.c.l3.h:33
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
s_253
static cob_screen s_253
Definition: GCic.c.l1.h:132
st_33
static const char st_33[]
Definition: cobxref.c.h:155
f_303
static cob_field f_303
Definition: GCic.c.l1.h:328
st_24
static const char st_24[]
Definition: cobxref.c.h:146
s_330
static cob_screen s_330
Definition: GCic.c.l1.h:55
c_65
static const cob_field c_65
Definition: cobxref.c.h:94
a_1
static const cob_field_attr a_1
Definition: cobxref.c.h:14
s_333
static cob_screen s_333
Definition: GCic.c.l1.h:52
f_431
static cob_field f_431
Definition: GCic.c.l3.h:147
f_296
static cob_field f_296
Definition: GCic.c.l1.h:322
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
s_231
static cob_screen s_231
Definition: GCic.c.l1.h:154
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
s_351
static cob_screen s_351
Definition: GCic.c.l1.h:34
c_164
static const cob_field c_164
Definition: GCic.c.h:194
c_168
static const cob_field c_168
Definition: GCic.c.h:198
s_355
static cob_screen s_355
Definition: GCic.c.l1.h:30
s_325
static cob_screen s_325
Definition: GCic.c.l1.h:60
s_300
static cob_screen s_300
Definition: GCic.c.l1.h:85
h_F_SORT_WORK_FILE_status
static unsigned char h_F_SORT_WORK_FILE_status[4]
Definition: GCic.c.l3.h:38
f_342
static cob_field f_342
Definition: GCic.c.l1.h:361
h_F_SOURCE_CODE_FILE_status
static unsigned char h_F_SOURCE_CODE_FILE_status[4]
Definition: GCic.c.l1.h:26
c_26
static const cob_field c_26
Definition: cobxref.c.h:55
c_92
static const cob_field c_92
Definition: GCic.c.h:122
c_15
static const cob_field c_15
Definition: cobxref.c.h:44
f_1242
static cob_field f_1242
Definition: GCic.c.l3.h:167
c_94
static const cob_field c_94
Definition: GCic.c.h:124
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
s_280
static cob_screen s_280
Definition: GCic.c.l1.h:105
f1
cob_field f1
Definition: cobxref.c.l.h:54
f_435
static cob_field f_435
Definition: GCic.c.l3.h:150
c_122
static const cob_field c_122
Definition: GCic.c.h:152
__cob_module::module_type
unsigned int module_type
Definition: common.h:1063
cob_content::data
unsigned char data[8]
Definition: common.h:999
cob_accept_command_line
void cob_accept_command_line(cob_field *f)
Definition: common.c:2866
f_170
static cob_field f_170
Definition: cobxref.c.l.h:276
c_105
static const cob_field c_105
Definition: GCic.c.h:135
__cob_module::flag_filename_mapping
unsigned char flag_filename_mapping
Definition: common.h:1073
f_1240
static cob_field f_1240
Definition: GCic.c.l3.h:166
c_84
static const cob_field c_84
Definition: cobxref.c.h:113
f_313
static cob_field f_313
Definition: GCic.c.l1.h:335
s_236
static cob_screen s_236
Definition: GCic.c.l1.h:149
f_297
static cob_field f_297
Definition: GCic.c.l1.h:323
f_352
static cob_field f_352
Definition: GCic.c.l1.h:368
s_233
static cob_screen s_233
Definition: GCic.c.l1.h:152
s_237
static cob_screen s_237
Definition: GCic.c.l1.h:148
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
f_1250
static cob_field f_1250
Definition: GCic.c.l3.h:173
f_238
static cob_field f_238
Definition: GCic.c.l1.h:267
s_249
static cob_screen s_249
Definition: GCic.c.l1.h:136
s_273
static cob_screen s_273
Definition: GCic.c.l1.h:112
f_267
static cob_field f_267
Definition: GCic.c.l1.h:296
f_444
static cob_field f_444
Definition: GCic.c.l3.h:154
s_344
static cob_screen s_344
Definition: GCic.c.l1.h:41
f_434
static cob_field f_434
Definition: GCic.c.l3.h:149
st_48
static const char st_48[]
Definition: cobxref.c.h:170
f_286
static cob_field f_286
Definition: GCic.c.l1.h:315
st_45
static const char st_45[]
Definition: cobxref.c.h:167
__cob_module::module_param_cnt
unsigned int module_param_cnt
Definition: common.h:1064
cob_file::flag_first_read
unsigned char flag_first_read
Definition: common.h:1138
s_338
static cob_screen s_338
Definition: GCic.c.l1.h:47
st_37
static const char st_37[]
Definition: cobxref.c.h:159
c_118
static const cob_field c_118
Definition: GCic.c.h:148
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
f_436
static cob_field f_436
Definition: GCic.c.l3.h:151
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
f_343
static cob_field f_343
Definition: GCic.c.l1.h:362
st_44
static const char st_44[]
Definition: cobxref.c.h:166
f_324
static cob_field f_324
Definition: GCic.c.l1.h:345
c_167
static const cob_field c_167
Definition: GCic.c.h:197
st_7
static const char st_7[]
Definition: cobxref.c.h:129
COB_MODULE_DATE
#define COB_MODULE_DATE
Definition: GCic.c:20
c_81
static const cob_field c_81
Definition: cobxref.c.h:110
s_290
static cob_screen s_290
Definition: GCic.c.l1.h:95
s_343
static cob_screen s_343
Definition: GCic.c.l1.h:42
f_340
static cob_field f_340
Definition: GCic.c.l1.h:359
s_328
static cob_screen s_328
Definition: GCic.c.l1.h:57
s_348
static cob_screen s_348
Definition: GCic.c.l1.h:37
f_334
static cob_field f_334
Definition: GCic.c.l1.h:354
f_392
static cob_field f_392
Definition: GCic.c.l3.h:133
cob_content
Definition: common.h:998
f_319
static cob_field f_319
Definition: GCic.c.l1.h:340
h_F_LISTING_FILE_status
static unsigned char h_F_LISTING_FILE_status[4]
Definition: GCic.c.l3.h:30
c_71
static const cob_field c_71
Definition: cobxref.c.h:100
c_175
static const cob_field c_175
Definition: GCic.c.h:205
s_285
static cob_screen s_285
Definition: GCic.c.l1.h:100
f_1246
static cob_field f_1246
Definition: GCic.c.l3.h:169
f_321
static cob_field f_321
Definition: GCic.c.l1.h:342
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
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
c_129
static const cob_field c_129
Definition: GCic.c.h:159
st_19
static const char st_19[]
Definition: cobxref.c.h:141
f_290
static cob_field f_290
Definition: GCic.c.l1.h:318
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
COB_FERROR_FILE
#define COB_FERROR_FILE
Definition: common.h:701
f_171
static cob_field f_171
Definition: GCic.c.l1.h:251
f_1254
static cob_field f_1254
Definition: GCic.c.l3.h:177
s_255
static cob_screen s_255
Definition: GCic.c.l1.h:130
st_23
static const char st_23[]
Definition: cobxref.c.h:145
s_292
static cob_screen s_292
Definition: GCic.c.l1.h:93
s_303
static cob_screen s_303
Definition: GCic.c.l1.h:82
f_175
static cob_field f_175
Definition: GCic.c.l1.h:252
f_1249
static cob_field f_1249
Definition: GCic.c.l3.h:172
cob_intr_numval
cob_field * cob_intr_numval(cob_field *)
Definition: intrinsic.c:4584
s_270
static cob_screen s_270
Definition: GCic.c.l1.h:115
s_284
static cob_screen s_284
Definition: GCic.c.l1.h:101
st_76
static const char st_76[]
Definition: cobxref.c.h:198
f_261
static cob_field f_261
Definition: GCic.c.l1.h:290
c_181
static const cob_field c_181
Definition: GCic.c.h:211
cob_call_union::funcint
int(* funcint)()
Definition: common.h:1009
cob_file_return
void cob_file_return(cob_file *)
Definition: fileio.c:6250
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
s_337
static cob_screen s_337
Definition: GCic.c.l1.h:48
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_22
static cob_field f_22
Definition: get-reserved-lists.c.l.h:72
f_1256
static cob_field f_1256
Definition: GCic.c.l3.h:179
s_315
static cob_screen s_315
Definition: GCic.c.l1.h:70
f_258
static cob_field f_258
Definition: GCic.c.l1.h:287
COB_FERROR_STACK
#define COB_FERROR_STACK
Definition: common.h:695
COB_MODULE_TIME
#define COB_MODULE_TIME
Definition: GCic.c:21
f_338
static cob_field f_338
Definition: GCic.c.l1.h:357
s_254
static cob_screen s_254
Definition: GCic.c.l1.h:131
cob_string_finish
void cob_string_finish(void)
Definition: strings.c:477
__cob_module::module_name
const char * module_name
Definition: common.h:1049
s_242
static cob_screen s_242
Definition: GCic.c.l1.h:143
s_230
static cob_screen s_230
Definition: GCic.c.l1.h:155
st_51
static const char st_51[]
Definition: cobxref.c.h:173
f_407
static cob_field f_407
Definition: GCic.c.l3.h:140
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
COB_PATCH_LEVEL
#define COB_PATCH_LEVEL
Definition: GCic.c:18
c_70
static const cob_field c_70
Definition: cobxref.c.h:99
f_427
static cob_field f_427
Definition: GCic.c.l3.h:146
f_333
static cob_field f_333
Definition: GCic.c.l1.h:353
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_323
static cob_field f_323
Definition: GCic.c.l1.h:344
f_1285
static cob_field f_1285
Definition: GCic.c.l3.h:186
c_184
static const cob_field c_184
Definition: GCic.c.h:214
f_1276
static cob_field f_1276
Definition: GCic.c.l3.h:184
st_13
static const char st_13[]
Definition: cobxref.c.h:135
f_280
static cob_field f_280
Definition: GCic.c.l1.h:309
cob_inspect_converting
void cob_inspect_converting(const cob_field *, const cob_field *)
Definition: strings.c:353
c_90
static const cob_field c_90
Definition: GCic.c.h:120
c_154
static const cob_field c_154
Definition: GCic.c.h:184
c_72
static const cob_field c_72
Definition: cobxref.c.h:101
cob_module_path
static const char * cob_module_path
Definition: cobxref.c.h:10
f_275
static cob_field f_275
Definition: GCic.c.l1.h:304
c_144
static const cob_field c_144
Definition: GCic.c.h:174
st_1
static const char st_1[]
Definition: cobxref.c.h:123
f_384
static cob_field f_384
Definition: GCic.c.l3.h:129
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
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
cob_inspect_start
void cob_inspect_start(void)
Definition: strings.c:263
LISTING
int LISTING(cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)
Definition: GCic.c:3865
cob_write
void cob_write(cob_file *, cob_field *, const int, cob_field *, const unsigned int)
Definition: fileio.c:4754
c_116
static const cob_field c_116
Definition: GCic.c.h:146
cob_file::flag_needs_top
unsigned char flag_needs_top
Definition: common.h:1142
f_1253
static cob_field f_1253
Definition: GCic.c.l3.h:176
cob_intr_when_compiled
cob_field * cob_intr_when_compiled(const int, const int, cob_field *)
Definition: intrinsic.c:3940
c_134
static const cob_field c_134
Definition: GCic.c.h:164
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
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
c_107
static const cob_field c_107
Definition: GCic.c.h:137
LISTING_
static int LISTING_(const int, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)
Definition: GCic.c:3871
f_259
static cob_field f_259
Definition: GCic.c.l1.h:288
f_151
static cob_field f_151
Definition: GCic.c.l1.h:237
st_71
static const char st_71[]
Definition: cobxref.c.h:193
f_389
static cob_field f_389
Definition: GCic.c.l3.h:131
c_174
static const cob_field c_174
Definition: GCic.c.h:204
f_314
static cob_field f_314
Definition: GCic.c.l1.h:336
c_49
static const cob_field c_49
Definition: cobxref.c.h:78
cob_file_release
void cob_file_release(cob_file *)
Definition: fileio.c:6227
c_117
static const cob_field c_117
Definition: GCic.c.h:147
f_255
static cob_field f_255
Definition: GCic.c.l1.h:284
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
c_104
static const cob_field c_104
Definition: GCic.c.h:134
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
call_LISTING
static cob_call_union call_LISTING
Definition: GCic.c.l1.h:160
c_126
static const cob_field c_126
Definition: GCic.c.h:156
cob_sys_check_file_exist
int cob_sys_check_file_exist(unsigned char *, unsigned char *)
Definition: fileio.c:5239
f_164
static cob_field f_164
Definition: cobxref.c.l.h:272
s_281
static cob_screen s_281
Definition: GCic.c.l1.h:104
cob_display
void cob_display(const int, const int, const int,...)
Definition: termio.c:238
s_335
static cob_screen s_335
Definition: GCic.c.l1.h:50
s_322
static cob_screen s_322
Definition: GCic.c.l1.h:63
f_308
static cob_field f_308
Definition: GCic.c.l1.h:331
c_101
static const cob_field c_101
Definition: GCic.c.h:131
f_251
static cob_field f_251
Definition: GCic.c.l1.h:280
cob_file::variable_record
cob_field * variable_record
Definition: common.h:1116
s_243
static cob_screen s_243
Definition: GCic.c.l1.h:142
cob_module_enter
void cob_module_enter(cob_module **module, cob_global **mglobal, const int auto_init)
Definition: common.c:1796
c_170
static const cob_field c_170
Definition: GCic.c.h:200
st_25
static const char st_25[]
Definition: cobxref.c.h:147
c_178
static const cob_field c_178
Definition: GCic.c.h:208
cob_intr_concatenate
cob_field * cob_intr_concatenate(const int, const int, const int,...)
Definition: intrinsic.c:3723
c_176
static const cob_field c_176
Definition: GCic.c.h:206
st_52
static const char st_52[]
Definition: cobxref.c.h:174
c_131
static const cob_field c_131
Definition: GCic.c.h:161
s_327
static cob_screen s_327
Definition: GCic.c.l1.h:58
f_140
static cob_field f_140
Definition: GCic.c.l1.h:226
c_3
static const cob_field c_3
Definition: cobxref.c.h:32
s_298
static cob_screen s_298
Definition: GCic.c.l1.h:87
cob_file::fd
int fd
Definition: common.h:1125
cob_file::flag_select_features
unsigned char flag_select_features
Definition: common.h:1140
f_243
static cob_field f_243
Definition: GCic.c.l1.h:272
s_276
static cob_screen s_276
Definition: GCic.c.l1.h:109
c_152
static const cob_field c_152
Definition: GCic.c.h:182
f_356
static cob_field f_356
Definition: GCic.c.l1.h:372
c_45
static const cob_field c_45
Definition: cobxref.c.h:74
f_402
static cob_field f_402
Definition: GCic.c.l3.h:137
s_267
static cob_screen s_267
Definition: GCic.c.l1.h:118
c_11
static const cob_field c_11
Definition: cobxref.c.h:40
cob_unstring_init
void cob_unstring_init(cob_field *, cob_field *, const size_t)
Definition: strings.c:487
f_336
static cob_field f_336
Definition: GCic.c.l1.h:355
f_269
static cob_field f_269
Definition: GCic.c.l1.h:298
initialized
static size_t initialized
Definition: typeck.c:102
c_10
static const cob_field c_10
Definition: cobxref.c.h:39
s_257
static cob_screen s_257
Definition: GCic.c.l1.h:128
st_21
static const char st_21[]
Definition: cobxref.c.h:143
s_247
static cob_screen s_247
Definition: GCic.c.l1.h:138
c_109
static const cob_field c_109
Definition: GCic.c.h:139
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
s_347
static cob_screen s_347
Definition: GCic.c.l1.h:38
f_239
static cob_field f_239
Definition: GCic.c.l1.h:268
s_263
static cob_screen s_263
Definition: GCic.c.l1.h:122
f_382
static cob_field f_382
Definition: GCic.c.l3.h:128
f_278
static cob_field f_278
Definition: GCic.c.l1.h:307
f_265
static cob_field f_265
Definition: GCic.c.l1.h:294
f_410
static cob_field f_410
Definition: GCic.c.l3.h:142
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
c_23
static const cob_field c_23
Definition: cobxref.c.h:52
COB_SOURCE_FILE
#define COB_SOURCE_FILE
Definition: GCic.c:16
s_248
static cob_screen s_248
Definition: GCic.c.l1.h:137
f_247
static cob_field f_247
Definition: GCic.c.l1.h:276
f_1244
static cob_field f_1244
Definition: GCic.c.l3.h:168
c_149
static const cob_field c_149
Definition: GCic.c.h:179
c_7
static const cob_field c_7
Definition: cobxref.c.h:36
s_282
static cob_screen s_282
Definition: GCic.c.l1.h:103
c_180
static const cob_field c_180
Definition: GCic.c.h:210
cob_file::last_open_mode
unsigned char last_open_mode
Definition: common.h:1132
h_F_LISTING_FILE
static cob_file * h_F_LISTING_FILE
Definition: GCic.c.l3.h:29
c_112
static const cob_field c_112
Definition: GCic.c.h:142
c_41
static const cob_field c_41
Definition: cobxref.c.h:70
c_4
static const cob_field c_4
Definition: cobxref.c.h:33
c_88
static const cob_field c_88
Definition: GCic.c.h:118
f_246
static cob_field f_246
Definition: GCic.c.l1.h:275
c_136
static const cob_field c_136
Definition: GCic.c.h:166
s_293
static cob_screen s_293
Definition: GCic.c.l1.h:92
st_31
static const char st_31[]
Definition: cobxref.c.h:153
f_285
static cob_field f_285
Definition: GCic.c.l1.h:314
s_295
static cob_screen s_295
Definition: GCic.c.l1.h:90
f_329
static cob_field f_329
Definition: GCic.c.l1.h:349
s_349
static cob_screen s_349
Definition: GCic.c.l1.h:36
f_462
static cob_field f_462
Definition: GCic.c.l3.h:162
st_30
static const char st_30[]
Definition: cobxref.c.h:152
h_F_EXPANDED_SRC_FILE
static cob_file * h_F_EXPANDED_SRC_FILE
Definition: GCic.c.l3.h:25
s_314
static cob_screen s_314
Definition: GCic.c.l1.h:71
__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
st_46
static const char st_46[]
Definition: cobxref.c.h:168
s_320
static cob_screen s_320
Definition: GCic.c.l1.h:65
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
s_260
static cob_screen s_260
Definition: GCic.c.l1.h:125
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
f_277
static cob_field f_277
Definition: GCic.c.l1.h:306
c_143
static const cob_field c_143
Definition: GCic.c.h:173
s_309
static cob_screen s_309
Definition: GCic.c.l1.h:76
f_1255
static cob_field f_1255
Definition: GCic.c.l3.h:178
c_83
static const cob_field c_83
Definition: cobxref.c.h:112
c_133
static const cob_field c_133
Definition: GCic.c.h:163
s_275
static cob_screen s_275
Definition: GCic.c.l1.h:110
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_CLOSE_NORMAL
#define COB_CLOSE_NORMAL
Definition: common.h:792
f_447
static cob_field f_447
Definition: GCic.c.l3.h:156
cob_file::file
void * file
Definition: common.h:1118
f_1286
static cob_field f_1286
Definition: GCic.c.l3.h:187
f_273
static cob_field f_273
Definition: GCic.c.l1.h:302
__cob_module::module_source
const char * module_source
Definition: common.h:1051
c_139
static const cob_field c_139
Definition: GCic.c.h:169
c_108
static const cob_field c_108
Definition: GCic.c.h:138
s_289
static cob_screen s_289
Definition: GCic.c.l1.h:96
s_310
static cob_screen s_310
Definition: GCic.c.l1.h:75
c_135
static const cob_field c_135
Definition: GCic.c.h:165
c_145
static const cob_field c_145
Definition: GCic.c.h:175
s_317
static cob_screen s_317
Definition: GCic.c.l1.h:68
c_12
static const cob_field c_12
Definition: cobxref.c.h:41
cob_u64_t
#define cob_u64_t
Definition: common.h:52
s_312
static cob_screen s_312
Definition: GCic.c.l1.h:73
__cob_module::cob_procedure_params
cob_field ** cob_procedure_params
Definition: common.h:1048
c_96
static const cob_field c_96
Definition: GCic.c.h:126
cob_file::access_mode
unsigned char access_mode
Definition: common.h:1128
f_311
static cob_field f_311
Definition: GCic.c.l1.h:334
f_145
static cob_field f_145
Definition: GCic.c.l1.h:231
c_34
static const cob_field c_34
Definition: cobxref.c.h:63
f_191
static cob_field f_191
Definition: GCic.c.l1.h:255
c_37
static const cob_field c_37
Definition: cobxref.c.h:66
f_440
static cob_field f_440
Definition: GCic.c.l3.h:153
f_344
static cob_field f_344
Definition: GCic.c.l1.h:363
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)
f_401
static cob_field f_401
Definition: GCic.c.l3.h:136
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
c_132
static const cob_field c_132
Definition: GCic.c.h:162
f_437
static cob_field f_437
Definition: GCic.c.l3.h:152
s_318
static cob_screen s_318
Definition: GCic.c.l1.h:67
c_106
static const cob_field c_106
Definition: GCic.c.h:136
c_127
static const cob_field c_127
Definition: GCic.c.h:157
CHECKSRC_
static int CHECKSRC_(const int, cob_u8_t *, cob_u8_t *)
Definition: GCic.c:3570
c_147
static const cob_field c_147
Definition: GCic.c.h:177
__cob_module::flag_pretty_display
unsigned char flag_pretty_display
Definition: common.h:1075
f_449
static cob_field f_449
Definition: GCic.c.l3.h:158
c_177
static const cob_field c_177
Definition: GCic.c.h:207
__cob_module::crt_status
cob_field * crt_status
Definition: common.h:1055
f_262
static cob_field f_262
Definition: GCic.c.l1.h:291
c_141
static const cob_field c_141
Definition: GCic.c.h:171
f_245
static cob_field f_245
Definition: GCic.c.l1.h:274
h_F_SORT_WORK_FILE
static cob_file * h_F_SORT_WORK_FILE
Definition: GCic.c.l3.h:37
c_32
static const cob_field c_32
Definition: cobxref.c.h:61
f_1284
static cob_field f_1284
Definition: GCic.c.l3.h:185
c_56
static const cob_field c_56
Definition: cobxref.c.h:85
f_241
static cob_field f_241
Definition: GCic.c.l1.h:270
f_150
static cob_field f_150
Definition: cobxref.c.l.h:266
cob_inspect_after
void cob_inspect_after(const cob_field *)
Definition: strings.c:283
c_8
static const cob_field c_8
Definition: cobxref.c.h:37
cob_intr_trim
cob_field * cob_intr_trim(const int, const int, cob_field *, const int)
Definition: intrinsic.c:3790
c_114
static const cob_field c_114
Definition: GCic.c.h:144
f_21
static cob_field f_21
Definition: get-reserved-lists.c.l.h:71
f_355
static cob_field f_355
Definition: GCic.c.l1.h:371
cob_file::flag_needs_nl
unsigned char flag_needs_nl
Definition: common.h:1141
f_287
static cob_field f_287
Definition: GCic.c.l1.h:316
s_234
static cob_screen s_234
Definition: GCic.c.l1.h:151
s_256
static cob_screen s_256
Definition: GCic.c.l1.h:129
c_146
static const cob_field c_146
Definition: GCic.c.h:176
cob_file::file_version
unsigned char file_version
Definition: common.h:1143
f_326
static cob_field f_326
Definition: GCic.c.l1.h:346
s_286
static cob_screen s_286
Definition: GCic.c.l1.h:99
cob_file::select_name
const char * select_name
Definition: common.h:1112
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
f_272
static cob_field f_272
Definition: GCic.c.l1.h:301
CHECKSRC
int CHECKSRC(cob_u8_t *, cob_u8_t *)
Definition: GCic.c:3564
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
st_34
static const char st_34[]
Definition: cobxref.c.h:156
s_258
static cob_screen s_258
Definition: GCic.c.l1.h:127
c_66
static const cob_field c_66
Definition: cobxref.c.h:95
s_240
static cob_screen s_240
Definition: GCic.c.l1.h:145
st_74
static const char st_74[]
Definition: cobxref.c.h:196
f_276
static cob_field f_276
Definition: GCic.c.l1.h:305
s_321
static cob_screen s_321
Definition: GCic.c.l1.h:64
__cob_module::flag_no_phys_canc
unsigned char flag_no_phys_canc
Definition: common.h:1078
f_433
static cob_field f_433
Definition: GCic.c.l3.h:148
c_73
static const cob_field c_73
Definition: cobxref.c.h:102
s_266
static cob_screen s_266
Definition: GCic.c.l1.h:119
s_336
static cob_screen s_336
Definition: GCic.c.l1.h:49
cob_file_sort_init
void cob_file_sort_init(cob_file *, const unsigned int, const unsigned char *, void *, cob_field *)
Definition: fileio.c:6146
f_252
static cob_field f_252
Definition: GCic.c.l1.h:281
f_445
static cob_field f_445
Definition: GCic.c.l3.h:155
cob_cache_malloc
void * cob_cache_malloc(const size_t size)
Definition: common.c:1321
c_160
static const cob_field c_160
Definition: GCic.c.h:190
f_317
static cob_field f_317
Definition: GCic.c.l1.h:338
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
s_353
static cob_screen s_353
Definition: GCic.c.l1.h:32
s_252
static cob_screen s_252
Definition: GCic.c.l1.h:133
s_291
static cob_screen s_291
Definition: GCic.c.l1.h:94
s_235
static cob_screen s_235
Definition: GCic.c.l1.h:150
f_293
static cob_field f_293
Definition: GCic.c.l1.h:320
cob_get_llint
long long cob_get_llint(cob_field *)
Definition: move.c:1656
c_120
static const cob_field c_120
Definition: GCic.c.h:150
f_450
static cob_field f_450
Definition: GCic.c.l3.h:159
f_1235
static cob_field f_1235
Definition: GCic.c.l3.h:165
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
s_246
static cob_screen s_246
Definition: GCic.c.l1.h:139
s_323
static cob_screen s_323
Definition: GCic.c.l1.h:62
c_115
static const cob_field c_115
Definition: GCic.c.h:145
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