GCic.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <math.h>
#include <libcob.h>
#include "GCic.c.h"
#include "GCic.c.l1.h"
#include "GCic.c.l2.h"
#include "GCic.c.l3.h"

Include dependency graph for GCic.c:

Go to the source code of this file.

Macros
#define	COB_KEYWORD_INLINE   __inline
#define	COB_SOURCE_FILE   "GCic.cbl"
#define	COB_PACKAGE_VERSION   "2.0"
#define	COB_PATCH_LEVEL   0
#define	COB_MODULE_FORMATTED_DATE   "Apr 17 2016 04:46:54"
#define	COB_MODULE_DATE   20160417
#define	COB_MODULE_TIME   44654

Functions
static int	GCic ()
static int	GCic_ (const int)
int	CHECKSRC (cob_u8_t *, cob_u8_t *)
static int	CHECKSRC_ (const int, cob_u8_t *, cob_u8_t *)
int	LISTING (cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)
static int	LISTING_ (const int, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)
int	main (int argc, char **argv)

Macro Definition Documentation

#define COB_KEYWORD_INLINE   __inline

Definition at line 13 of file GCic.c.

#define COB_MODULE_DATE   20160417

Definition at line 20 of file GCic.c.

Referenced by CHECKSRC_(), GCic_(), and LISTING_().

#define COB_MODULE_FORMATTED_DATE   "Apr 17 2016 04:46:54"

Definition at line 19 of file GCic.c.

Referenced by CHECKSRC_(), GCic_(), and LISTING_().

#define COB_MODULE_TIME   44654

Definition at line 21 of file GCic.c.

Referenced by CHECKSRC_(), GCic_(), and LISTING_().

#define COB_PACKAGE_VERSION   "2.0"

Definition at line 17 of file GCic.c.

Referenced by CHECKSRC_(), GCic_(), and LISTING_().

#define COB_PATCH_LEVEL   0

Definition at line 18 of file GCic.c.

Referenced by CHECKSRC_(), GCic_(), and LISTING_().

#define COB_SOURCE_FILE   "GCic.cbl"

Definition at line 16 of file GCic.c.

Referenced by CHECKSRC_(), GCic_(), and LISTING_().

Function Documentation

int CHECKSRC	(	cob_u8_t *	b_370,
		cob_u8_t *	b_372
	)

Definition at line 3564 of file GCic.c.

References CHECKSRC_().

Referenced by CHECKSRC_().

{
  return CHECKSRC_ (0, b_370, b_372);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int CHECKSRC_ ( const int  entry, cob_u8_t *  b_370, cob_u8_t *  b_372  )

static

Definition at line 3570 of file GCic.c.

References a_1, b_357, CHECKSRC(), cob_cache_free(), __cob_global::cob_call_params, cob_check_version(), cob_cmp_s8(), cob_fatal_error(), COB_FERROR_CANCEL, cob_glob_ptr, cob_intr_upper_case(), __cob_global::cob_main_argv0, COB_MODULE_DATE, cob_module_enter(), COB_MODULE_FORMATTED_DATE, cob_module_leave(), cob_module_path, COB_MODULE_TIME, cob_move(), COB_PACKAGE_VERSION, COB_PATCH_LEVEL, cob_procedure_params, __cob_module::cob_procedure_params, cob_s8_ptr, cob_set_cancel(), COB_SET_FLD, cob_set_location(), COB_SOURCE_FILE, cob_u8_ptr, __cob_module::collating_sequence, __cob_module::crt_status, __cob_module::currency_symbol, __cob_module::cursor_pos, __cob_module::decimal_point, __cob_module::ebcdic_sign, f0, f1, __cob_module::flag_binary_truncate, __cob_module::flag_exit_program, __cob_module::flag_filename_mapping, __cob_module::flag_fold_call, __cob_module::flag_host_sign, __cob_module::flag_main, __cob_module::flag_no_phys_canc, __cob_module::flag_pretty_display, frame_overflow, frame_ptr, frame_stack, cob_call_union::funcptr, initialized, module, __cob_module::module_active, __cob_module::module_cancel, __cob_module::module_date, __cob_module::module_entry, __cob_module::module_formatted_date, __cob_module::module_name, __cob_module::module_num_params, __cob_module::module_param_cnt, __cob_module::module_path, __cob_module::module_ref_count, __cob_module::module_returning, __cob_module::module_source, __cob_module::module_time, __cob_module::module_type, NULL, __cob_module::numeric_separator, cob_frame::perform_through, st_10, st_11, st_15, st_3, st_4, st_5, st_6, st_8, st_9, and unlikely.

Referenced by CHECKSRC().

{
  /* Program local variables */
  #include "GCic.c.l2.h"

  /* Start of function code */

  /* CANCEL callback */
  if (unlikely(entry < 0)) {
    goto P_cancel;
  }

  /* Check initialized, check module allocated, */
  /* set global pointer, */
  /* push module stack, save call parameter count */
  cob_module_enter (&module, &cob_glob_ptr, 0);

  /* Set address of module parameter list */
  module->cob_procedure_params = cob_procedure_params;

  /* Set frame stack pointer */
  frame_ptr = frame_stack;
  frame_ptr->perform_through = 0;
  frame_overflow = frame_ptr + 255 - 1;

  /* Initialize rest of program */
  if (unlikely(initialized == 0)) {
    goto P_initialize;
  }
  P_ret_initialize:

  /* Increment module active */
  module->module_active++;

  /* Save number of call params */
  module->module_num_params = cob_glob_ptr->cob_call_params;

  /* Entry dispatch */
  goto l_28;

  /* PROCEDURE DIVISION */

  /* Line: 1321      : Entry     CHECKSRC                : GCic.cbl */
  l_28:;

  /* Line: 1321      : Section   000-Main                : GCic.cbl */

  /* Line: 1322      : SET                : GCic.cbl */
  cob_set_location (st_5, 1322, st_9, NULL, st_11);
  *(b_372) = 32;

  /* Line: 1323      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1323, st_9, NULL, st_6);
  if (((int)(int)(*(b_370 + 6) - 42) == 0))
  {

    /* Line: 1325      : GOBACK             : GCic.cbl */
    cob_set_location (st_5, 1325, st_9, NULL, st_8);
    goto exit_program;
  }

  /* Line: 1330      : SET                : GCic.cbl */
  cob_set_location (st_5, 1330, st_9, NULL, st_11);
  *(b_364) = 78;

  /* Line: 1331      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1331, st_9, NULL, st_4);
  (*(cob_s8_ptr) (b_369)) = 0;

  /* Line: 1332      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1332, st_9, NULL, st_4);
  memset (b_362, 32, 80);

  /* Line: 1333      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 1333, st_9, NULL, st_10);
  (*(cob_s8_ptr) (b_368)) = 1;
  for (;;)
  {
    if (((int)cob_cmp_s8 (b_368, 80LL) > 0))
      break;

    /* Line: 1335      : IF                 : GCic.cbl */
    cob_set_location (st_5, 1335, st_9, NULL, st_6);
    if (((int)(int)(*(b_370 + ((*(cob_s8_ptr) (b_368)) - 1)) - ' ') == 0))
    {

      /* Line: 1336      : IF                 : GCic.cbl */
      cob_set_location (st_5, 1336, st_9, NULL, st_6);
      if (((int)(int)(*(b_364) - 78) == 0))
      {

        /* Line: 1337      : ADD                : GCic.cbl */
        cob_set_location (st_5, 1337, st_9, NULL, st_15);
        (*(cob_s8_ptr) (b_369)) = ((*(cob_s8_ptr) (b_369)) + 1);

        /* Line: 1338      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 1338, st_9, NULL, st_4);
        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));

        /* Line: 1340      : SET                : GCic.cbl */
        cob_set_location (st_5, 1340, st_9, NULL, st_11);
        *(b_364) = 89;
      }
    }
    else
    {
      /* ELSE */

      /* Line: 1343      : SET                : GCic.cbl */
      cob_set_location (st_5, 1343, st_9, NULL, st_11);
      *(b_364) = 78;

      /* Line: 1344      : ADD                : GCic.cbl */
      cob_set_location (st_5, 1344, st_9, NULL, st_15);
      (*(cob_s8_ptr) (b_369)) = ((*(cob_s8_ptr) (b_369)) + 1);

      /* Line: 1345      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 1345, st_9, NULL, st_4);
      *(b_362 + ((*(cob_s8_ptr) (b_369)) - 1)) = *(b_370 + ((*(cob_s8_ptr) (b_368)) - 1));
    }
    (*(cob_s8_ptr) (b_368)) = ((*(cob_s8_ptr) (b_368)) + 1);
  }

  /* Line: 1351      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 1351, st_9, NULL, st_10);
  (*(cob_s8_ptr) (b_368)) = 1;
  for (;;)
  {
    if (((int)cob_cmp_s8 (b_368, 66LL) > 0))
      break;

    /* Line: 1353      : EVALUATE           : GCic.cbl */
    cob_set_location (st_5, 1353, st_9, NULL, st_3);

    /* WHEN */

    if (((int)(int)(*(b_362 + ((*(cob_s8_ptr) (b_368)) - 1)) - 42) == 0))
    {

      /* Line: 1355      : IF                 : GCic.cbl */
      cob_set_location (st_5, 1355, st_9, NULL, st_6);
      if (((int)memcmp (b_362 + ((*(cob_s8_ptr) (b_368)) - 1), (cob_u8_ptr)"*>", 2) == 0))
      {

        /* Line: 1357      : GOBACK             : GCic.cbl */
        cob_set_location (st_5, 1357, st_9, NULL, st_8);
        goto exit_program;
      }
      goto l_31;
    }

    /* WHEN */

    if ((((int)(int)(*(b_362 + ((*(cob_s8_ptr) (b_368)) - 1)) - 76) == 0) && 
        ((int)cob_cmp_s8 (b_368, 66LL) < 0)))
    {

      /* Line: 1359      : IF                 : GCic.cbl */
      cob_set_location (st_5, 1359, st_9, NULL, st_6);
      if (((int)memcmp (b_362 + ((*(cob_s8_ptr) (b_368)) - 1), (cob_u8_ptr)"LINKAGE SECTION", 15) == 0))
      {

        /* Line: 1361      : SET                : GCic.cbl */
        cob_set_location (st_5, 1361, st_9, NULL, st_11);
        *(b_372) = 76;

        /* Line: 1363      : GOBACK             : GCic.cbl */
        cob_set_location (st_5, 1363, st_9, NULL, st_8);
        goto exit_program;
      }
      goto l_31;
    }

    /* WHEN */

    if ((((int)(int)(*(b_362 + ((*(cob_s8_ptr) (b_368)) - 1)) - 73) == 0) && 
        ((int)cob_cmp_s8 (b_368, 58LL) < 0)))
    {

      /* Line: 1365      : IF                 : GCic.cbl */
      cob_set_location (st_5, 1365, st_9, NULL, st_6);
      if (((int)memcmp (b_362 + ((*(cob_s8_ptr) (b_368)) - 1), (cob_u8_ptr)"IDENTIFICATION DIVISION", 23) == 0))
      {

        /* Line: 1367      : SET                : GCic.cbl */
        cob_set_location (st_5, 1367, st_9, NULL, st_11);
        *(b_372) = 73;

        /* Line: 1369      : GOBACK             : GCic.cbl */
        cob_set_location (st_5, 1369, st_9, NULL, st_8);
        goto exit_program;
      }
      goto l_31;
    }

    /* End EVALUATE */
    l_31:;
    (*(cob_s8_ptr) (b_368)) = ((*(cob_s8_ptr) (b_368)) + 1);
  }

  /* Line: 1376      : GOBACK             : GCic.cbl */
  cob_set_location (st_5, 1376, st_9, NULL, st_8);
  goto exit_program;

  /* Program exit */

  exit_program:

  /* Decrement module active count */
  if (module->module_active) {
    module->module_active--;
  }

  /* Pop module stack */
  cob_module_leave (module);

  /* Program return */
  return b_357;

  /* Program initialization */
  P_initialize:

  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);

  cob_module_path = cob_glob_ptr->cob_main_argv0;

  /* Initialize module structure */
  module->module_name = "CHECKSRC";
  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
  module->module_source = COB_SOURCE_FILE;
  module->module_entry.funcptr = (void *(*)())CHECKSRC;
  module->module_cancel.funcptr = (void *(*)())CHECKSRC_;
  module->collating_sequence = NULL;
  module->crt_status = NULL;
  module->cursor_pos = NULL;
  module->module_ref_count = NULL;
  module->module_path = &cob_module_path;
  module->module_active = 0;
  module->module_date = COB_MODULE_DATE;
  module->module_time = COB_MODULE_TIME;
  module->module_type = 0;
  module->module_param_cnt = 2;
  module->module_returning = 0;
  module->ebcdic_sign = 0;
  module->decimal_point = '.';
  module->currency_symbol = '$';
  module->numeric_separator = ',';
  module->flag_filename_mapping = 1;
  module->flag_binary_truncate = 1;
  module->flag_pretty_display = 1;
  module->flag_host_sign = 0;
  module->flag_no_phys_canc = 1;
  module->flag_main = 1;
  module->flag_fold_call = 0;
  module->flag_exit_program = 0;

  /* Initialize cancel callback */
  cob_set_cancel (module);

  /* Initialize WORKING-STORAGE */
  b_357 = 0;
  memset (b_362, 32, 80);
  *(cob_u8_ptr)(b_364) = 32;
  *(cob_u8_ptr)(b_368) = 0;
  *(cob_u8_ptr)(b_369) = 0;

  initialized = 1;
  goto P_ret_initialize;

  /* CANCEL callback handling */
  P_cancel:

  if (!initialized) {
    return 0;
  }
  if (module->module_active) {
    cob_fatal_error (COB_FERROR_CANCEL);
  }

  b_357 = 0;
  cob_cache_free (module);
  module = NULL;

  initialized = 0;
  return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

static int GCic ( )

static

Definition at line 50 of file GCic.c.

References GCic_().

Referenced by GCic_(), and main().

{
  return GCic_ (0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int GCic_ ( const int  entry )

static

Definition at line 56 of file GCic.c.

References a_1, a_4, cob_file::access_mode, cob_file::assign, b_1, c_1, c_10, c_100, c_101, c_102, c_103, c_11, c_12, c_13, c_14, c_15, c_16, c_17, c_18, c_19, c_2, c_20, c_21, c_22, c_23, c_24, c_25, c_26, c_27, c_28, c_29, c_3, c_30, c_31, c_32, c_33, c_34, c_35, c_36, c_37, c_38, c_39, c_4, c_40, c_41, c_42, c_43, c_44, c_45, c_46, c_47, c_48, c_49, c_5, c_50, c_51, c_52, c_53, c_54, c_55, c_56, c_57, c_58, c_59, c_6, c_60, c_61, c_62, c_63, c_64, c_65, c_66, c_67, c_68, c_69, c_7, c_70, c_71, c_72, c_73, c_74, c_75, c_76, c_77, c_78, c_79, c_8, c_80, c_81, c_82, c_83, c_84, c_85, c_86, c_87, c_88, c_89, c_9, c_90, c_91, c_92, c_93, c_94, c_95, c_96, c_97, c_98, c_99, call_CHECKSRC, call_LISTING, cob_accept_command_line(), cob_add_int(), cob_all_space, cob_cache_malloc(), __cob_global::cob_call_params, cob_check_version(), cob_close(), cob_cmp(), cob_cmp_numdisp(), cob_cmp_s32(), cob_display(), __cob_global::cob_error_file, __cob_global::cob_exception_code, cob_fatal_error(), COB_FERROR_CANCEL, COB_FERROR_CODEGEN, COB_FERROR_FILE, COB_FERROR_GLOBAL, COB_FERROR_STACK, cob_field_accept(), cob_get_environment(), cob_get_numdisp(), cob_glob_ptr, cob_inspect_after(), cob_inspect_all(), cob_inspect_finish(), cob_inspect_init(), cob_inspect_start(), cob_intr_concatenate(), cob_intr_length(), cob_intr_lower_case(), cob_intr_trim(), cob_intr_when_compiled(), __cob_global::cob_main_argv0, COB_MODULE_DATE, cob_module_enter(), COB_MODULE_FORMATTED_DATE, cob_module_leave(), cob_module_path, COB_MODULE_TIME, cob_move(), cob_open(), COB_PACKAGE_VERSION, COB_PATCH_LEVEL, __cob_global::cob_physical_cancel, cob_procedure_params, __cob_module::cob_procedure_params, cob_read_next(), cob_resolve_cobol(), cob_s64_t, cob_screen_accept(), cob_screen_display(), COB_SELECT_FILE_STATUS, cob_set_cancel(), cob_set_environment(), COB_SET_FLD, cob_set_location(), cob_set_screen(), COB_SOURCE_FILE, cob_stop_run(), cob_string_append(), cob_string_delimited(), cob_string_finish(), cob_string_init(), cob_sys_change_dir(), cob_sys_clear_screen(), cob_sys_delete_file(), cob_sys_sleep(), cob_sys_system(), cob_u64_t, cob_u8_ptr, cob_unstring_delimited(), cob_unstring_finish(), cob_unstring_init(), cob_unstring_into(), cob_write(), __cob_module::collating_sequence, __cob_module::crt_status, __cob_module::currency_symbol, __cob_module::cursor_pos, cob_content::data, cob_content::dataint, __cob_module::decimal_point, __cob_module::ebcdic_sign, f0, f_113, f_114, f_115, f_126, f_127, f_128, f_129, f_140, f_141, f_142, f_143, f_144, f_145, f_146, f_147, f_148, f_149, f_150, f_151, f_152, f_153, f_154, f_155, f_157, f_161, f_164, f_165, f_166, f_167, f_168, f_169, f_170, f_171, f_175, f_188, f_190, f_191, f_192, f_194, f_21, f_214, f_22, f_221, f_23, f_230, f_233, f_234, f_235, f_236, f_237, f_238, f_239, f_24, f_240, f_241, f_242, f_243, f_244, f_245, f_246, f_247, f_248, f_249, f_250, f_251, f_252, f_253, f_254, f_255, f_256, f_257, f_258, f_259, f_260, f_261, f_262, f_263, f_264, f_265, f_266, f_267, f_268, f_269, f_270, f_271, f_272, f_273, f_274, f_275, f_276, f_277, f_278, f_279, f_280, f_281, f_282, f_283, f_284, f_285, f_286, f_287, f_289, f_290, f_291, f_293, f_295, f_296, f_297, f_299, f_300, f_301, f_302, f_303, f_305, f_306, f_308, f_309, f_310, f_311, f_313, f_314, f_316, f_317, f_318, f_319, f_320, f_321, f_322, f_323, f_324, f_326, f_327, f_328, f_329, f_330, f_331, f_332, f_333, f_334, f_336, f_337, f_338, f_339, f_340, f_341, f_342, f_343, f_344, f_345, f_347, f_348, f_350, f_352, f_353, f_354, f_355, f_356, cob_file::fd, cob_file::file, cob_file::file_status, cob_file::file_version, cob_file::flag_begin_of_file, __cob_module::flag_binary_truncate, cob_file::flag_end_of_file, __cob_module::flag_exit_program, __cob_module::flag_filename_mapping, cob_file::flag_first_read, __cob_module::flag_fold_call, __cob_module::flag_host_sign, __cob_module::flag_main, cob_file::flag_needs_nl, cob_file::flag_needs_top, __cob_module::flag_no_phys_canc, cob_file::flag_nonexistent, cob_file::flag_operation, cob_file::flag_optional, __cob_module::flag_pretty_display, cob_file::flag_read_done, cob_file::flag_select_features, frame_overflow, frame_ptr, frame_stack, cob_call_union::funcint, cob_call_union::funcptr, cob_call_union::funcvoid, GCic(), h_F_COBC_OUTPUT_FILE, h_F_COBC_OUTPUT_FILE_status, h_F_SOURCE_CODE_FILE, h_F_SOURCE_CODE_FILE_status, initialized, cob_file::keys, cob_file::last_open_mode, cob_file::lock_mode, module, __cob_module::module_active, __cob_module::module_cancel, __cob_module::module_date, __cob_module::module_entry, __cob_module::module_formatted_date, __cob_module::module_name, __cob_module::module_num_params, __cob_module::module_param_cnt, __cob_module::module_path, __cob_module::module_ref_count, __cob_module::module_returning, __cob_module::module_source, __cob_module::module_time, __cob_module::module_type, cob_file::nkeys, NULL, __cob_module::numeric_separator, cob_file::open_mode, cob_file::organization, cob_frame::perform_through, cob_file::record, cob_file::record_max, cob_file::record_min, cob_frame::return_address_ptr, s_230, s_231, s_232, s_233, s_234, s_235, s_236, s_237, s_238, s_239, s_240, s_241, s_242, s_243, s_244, s_245, s_246, s_247, s_248, s_249, s_250, s_251, s_252, s_253, s_254, s_255, s_256, s_257, s_258, s_259, s_260, s_261, s_262, s_263, s_264, s_265, s_266, s_267, s_268, s_269, s_270, s_271, s_272, s_273, s_274, s_275, s_276, s_277, s_278, s_279, s_280, s_281, s_282, s_283, s_284, s_285, s_286, s_287, s_288, s_289, s_290, s_291, s_292, s_293, s_294, s_295, s_296, s_297, s_298, s_299, s_300, s_301, s_302, s_303, s_304, s_305, s_306, s_307, s_308, s_309, s_310, s_311, s_312, s_313, s_314, s_315, s_316, s_317, s_318, s_319, s_320, s_321, s_322, s_323, s_324, s_325, s_326, s_327, s_328, s_329, s_330, s_331, s_332, s_333, s_334, s_335, s_336, s_337, s_338, s_339, s_340, s_341, s_342, s_343, s_344, s_345, s_346, s_347, s_348, s_349, s_350, s_351, s_352, s_353, s_354, s_355, cob_file::select_name, st_1, st_10, st_11, st_12, st_13, st_14, st_15, st_16, st_17, st_18, st_19, st_2, st_20, st_21, st_22, st_23, st_24, st_25, st_26, st_27, st_28, st_29, st_3, st_30, st_31, st_32, st_4, st_5, st_6, st_7, st_8, st_9, unlikely, and cob_file::variable_record.

Referenced by GCic().

{
  /* Program local variables */
  #include "GCic.c.l1.h"

  /* Start of function code */

  /* CANCEL callback */
  if (unlikely(entry < 0)) {
    goto P_cancel;
  }

  /* Check initialized, check module allocated, */
  /* set global pointer, */
  /* push module stack, save call parameter count */
  cob_module_enter (&module, &cob_glob_ptr, 0);

  /* Set address of module parameter list */
  module->cob_procedure_params = cob_procedure_params;

  /* Set frame stack pointer */
  frame_ptr = frame_stack;
  frame_ptr->perform_through = 0;
  frame_overflow = frame_ptr + 255 - 1;

  /* Initialize rest of program */
  if (unlikely(initialized == 0)) {
    goto P_initialize;
  }
  P_ret_initialize:

  /* Increment module active */
  module->module_active++;

  /* Save number of call params */
  module->module_num_params = cob_glob_ptr->cob_call_params;

  /* Entry dispatch */
  goto l_5;

  /* PROCEDURE DIVISION */

  /* DECLARATIVES */

  /* USE AFTER ERROR */

  /* Line: 661       : Section   000-File-Error          : GCic.cbl */
  l_2:;

  /* Line: 12        : EVALUATE           : FileStat-Msgs.cpy */
  cob_set_location (st_1, 12, st_2, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 0LL, 0) == 0))
  {

    /* Line: 13        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 13, st_2, NULL, st_4);
    memcpy (b_159 + 26, "SUCCESS                  ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 2LL, 0) == 0))
  {

    /* Line: 14        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 14, st_2, NULL, st_4);
    memcpy (b_159 + 26, "SUCCESS DUPLICATE        ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 4LL, 0) == 0))
  {

    /* Line: 15        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 15, st_2, NULL, st_4);
    memcpy (b_159 + 26, "SUCCESS INCOMPLETE       ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 5LL, 0) == 0))
  {

    /* Line: 16        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 16, st_2, NULL, st_4);
    memcpy (b_159 + 26, "SUCCESS OPTIONAL         ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 7LL, 0) == 0))
  {

    /* Line: 17        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 17, st_2, NULL, st_4);
    memcpy (b_159 + 26, "SUCCESS NO UNIT          ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 10LL, 0) == 0))
  {

    /* Line: 18        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 18, st_2, NULL, st_4);
    memcpy (b_159 + 26, "END OF FILE              ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 14LL, 0) == 0))
  {

    /* Line: 19        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 19, st_2, NULL, st_4);
    memcpy (b_159 + 26, "OUT OF KEY RANGE         ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 21LL, 0) == 0))
  {

    /* Line: 20        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 20, st_2, NULL, st_4);
    memcpy (b_159 + 26, "KEY INVALID              ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 22LL, 0) == 0))
  {

    /* Line: 21        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 21, st_2, NULL, st_4);
    memcpy (b_159 + 26, "KEY EXISTS               ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 23LL, 0) == 0))
  {

    /* Line: 22        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 22, st_2, NULL, st_4);
    memcpy (b_159 + 26, "KEY NOT EXISTS           ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 30LL, 0) == 0))
  {

    /* Line: 23        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 23, st_2, NULL, st_4);
    memcpy (b_159 + 26, "PERMANENT ERROR          ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 31LL, 0) == 0))
  {

    /* Line: 24        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 24, st_2, NULL, st_4);
    memcpy (b_159 + 26, "INCONSISTENT FILENAME    ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 34LL, 0) == 0))
  {

    /* Line: 25        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 25, st_2, NULL, st_4);
    memcpy (b_159 + 26, "BOUNDARY VIOLATION       ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 35LL, 0) == 0))
  {

    /* Line: 26        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 26, st_2, NULL, st_4);
    memcpy (b_159 + 26, "FILE NOT FOUND           ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 37LL, 0) == 0))
  {

    /* Line: 27        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 27, st_2, NULL, st_4);
    memcpy (b_159 + 26, "PERMISSION DENIED        ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 38LL, 0) == 0))
  {

    /* Line: 28        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 28, st_2, NULL, st_4);
    memcpy (b_159 + 26, "CLOSED WITH LOCK         ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 39LL, 0) == 0))
  {

    /* Line: 29        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 29, st_2, NULL, st_4);
    memcpy (b_159 + 26, "CONFLICT ATTRIBUTE       ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 41LL, 0) == 0))
  {

    /* Line: 30        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 30, st_2, NULL, st_4);
    memcpy (b_159 + 26, "ALREADY OPEN             ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 42LL, 0) == 0))
  {

    /* Line: 31        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 31, st_2, NULL, st_4);
    memcpy (b_159 + 26, "NOT OPEN                 ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 43LL, 0) == 0))
  {

    /* Line: 32        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 32, st_2, NULL, st_4);
    memcpy (b_159 + 26, "READ NOT DONE            ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 44LL, 0) == 0))
  {

    /* Line: 33        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 33, st_2, NULL, st_4);
    memcpy (b_159 + 26, "RECORD OVERFLOW          ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 46LL, 0) == 0))
  {

    /* Line: 34        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 34, st_2, NULL, st_4);
    memcpy (b_159 + 26, "READ ERROR               ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 47LL, 0) == 0))
  {

    /* Line: 35        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 35, st_2, NULL, st_4);
    memcpy (b_159 + 26, "INPUT DENIED             ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 48LL, 0) == 0))
  {

    /* Line: 36        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 36, st_2, NULL, st_4);
    memcpy (b_159 + 26, "OUTPUT DENIED            ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 49LL, 0) == 0))
  {

    /* Line: 37        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 37, st_2, NULL, st_4);
    memcpy (b_159 + 26, "I/O DENIED               ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 51LL, 0) == 0))
  {

    /* Line: 38        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 38, st_2, NULL, st_4);
    memcpy (b_159 + 26, "RECORD LOCKED            ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 52LL, 0) == 0))
  {

    /* Line: 39        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 39, st_2, NULL, st_4);
    memcpy (b_159 + 26, "END-OF-PAGE              ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 57LL, 0) == 0))
  {

    /* Line: 40        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 40, st_2, NULL, st_4);
    memcpy (b_159 + 26, "I/O LINAGE               ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 61LL, 0) == 0))
  {

    /* Line: 41        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 41, st_2, NULL, st_4);
    memcpy (b_159 + 26, "FILE SHARING FAILURE     ", 25);
    goto l_4;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 91LL, 0) == 0))
  {

    /* Line: 42        : MOVE               : FileStat-Msgs.cpy */
    cob_set_location (st_1, 42, st_2, NULL, st_4);
    memcpy (b_159 + 26, "FILE NOT AVAILABLE       ", 25);
    goto l_4;
  }

  /* End EVALUATE */
  l_4:;

  /* Line: 666       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 666, st_2, NULL, st_4);
  memset (b_188, 32, 80);

  /* Line: 667       : IF                 : GCic.cbl */
  cob_set_location (st_5, 667, st_2, NULL, st_6);
  if (((int)cob_cmp_numdisp (b_159 + 13, 2, 35LL, 0) == 0))
  {

    /* Line: 668       : DISPLAY            : GCic.cbl */
    cob_set_location (st_5, 668, st_2, NULL, st_7);
    cob_display (0, 1, 3, &c_1, cob_intr_trim (0, 0, &f_157, 2), &c_2);
  }
  else
  {
    /* ELSE */

    /* Line: 673       : DISPLAY            : GCic.cbl */
    cob_set_location (st_5, 673, st_2, NULL, st_7);
    cob_display (0, 1, 3, &c_3, cob_intr_trim (0, 0, &f_157, 2), &c_2);
  }

  /* Line: 679       : GOBACK             : GCic.cbl */
  cob_set_location (st_5, 679, st_2, NULL, st_8);
  goto exit_program;

  /* Implicit DECLARATIVE return */
  if (frame_ptr->perform_through == 2)
    goto *frame_ptr->return_address_ptr;

  /* Fatal error if reached */
  cob_fatal_error (COB_FERROR_GLOBAL);

  /* END DECLARATIVES */

  /* Line: 680       : Entry     GCic                    : GCic.cbl */
  l_5:;

  /* Line: 682       : Section   000-Main                : GCic.cbl */

  /* Line: 683       : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 683, st_9, NULL, st_10);
  /* PERFORM 100-Initialization */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 8;
  frame_ptr->return_address_ptr = &&l_158;
  goto l_8;
  l_158:
  frame_ptr--;

  /* Line: 684       : SET                : GCic.cbl */
  cob_set_location (st_5, 684, st_9, NULL, st_11);
  *(b_195 + 1) = 78;

  /* Line: 685       : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 685, st_9, NULL, st_10);
  for (;;)
  {
    if (((int)(int)(*(b_195 + 1) - 89) == 0))
      break;

    /* Line: 686       : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 686, st_9, NULL, st_10);
    /* PERFORM 200-Let-User-Set-Switches */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 10;
    frame_ptr->return_address_ptr = &&l_159;
    goto l_10;
    l_159:
    frame_ptr--;

    /* Line: 687       : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 687, st_9, NULL, st_10);
    /* PERFORM 210-Run-Compiler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 14;
    frame_ptr->return_address_ptr = &&l_160;
    goto l_14;
    l_160:
    frame_ptr--;

    /* Line: 688       : IF                 : GCic.cbl */
    cob_set_location (st_5, 688, st_9, NULL, st_6);
    if (((((int)(int)(*(b_195) - 89) == 0) || 
        ((int)(int)(*(b_195) - 87) == 0)) && 
        ((int)(int)(*(b_112 + 372) - ' ') > 0)))
    {

      /* Line: 690       : DISPLAY            : GCic.cbl */
      cob_set_location (st_5, 690, st_9, NULL, st_7);
      cob_screen_display (&s_230, NULL, NULL);

      /* Line: 691       : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 691, st_9, NULL, st_10);
      /* PERFORM 220-Make-Listing */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 16;
      frame_ptr->return_address_ptr = &&l_161;
      goto l_16;
      l_161:
      frame_ptr--;
    }

    /* Line: 693       : IF                 : GCic.cbl */
    cob_set_location (st_5, 693, st_9, NULL, st_6);
    if ((((int)(int)(*(b_112 + 369) - ' ') != 0) && 
        ((int)(int)(*(b_195 + 5) - 78) == 0)))
    {

      /* Line: 695       : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 695, st_9, NULL, st_10);
      /* PERFORM 230-Run-Program */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 18;
      frame_ptr->return_address_ptr = &&l_162;
      goto l_18;
      l_162:
      frame_ptr--;
    }

    /* Line: 697       : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 697, st_9, NULL, st_10);
    /* PERFORM 250-Autoload-Listing */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 23;
    frame_ptr->return_address_ptr = &&l_163;
    goto l_23;
    l_163:
    frame_ptr--;
  }

  /* Line: 699       : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 699, st_9, NULL, st_10);
  /* PERFORM 900-Terminate */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 26;
  frame_ptr->return_address_ptr = &&l_164;
  goto l_26;
  l_164:
  frame_ptr--;

  /* Line: 706       : Section   100-Initialization      : GCic.cbl */
  l_8:;

  /* Line: 710       : SET                : GCic.cbl */
  cob_set_location (st_5, 710, st_12, NULL, st_11);
  cob_set_environment ((cob_field *)&c_4, (cob_field *)&c_5);

  /* Line: 711       : SET                : GCic.cbl */
  cob_set_location (st_5, 711, st_12, NULL, st_11);
  cob_set_environment ((cob_field *)&c_6, (cob_field *)&c_5);

  /* Line: 715       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 715, st_12, NULL, st_4);
  cob_move (cob_intr_when_compiled (1, 12, (cob_field *)&c_7), &f_170);

  /* Line: 716       : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 716, st_12, NULL, st_13);
  cob_inspect_init (&f_170, 1);
  cob_inspect_start ();
  cob_inspect_after (&cob_all_space);
  cob_inspect_all ((cob_field *)&c_8, (cob_field *)&c_9);
  cob_inspect_finish ();

  /* Line: 722       : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 722, st_12, NULL, st_13);
  cob_inspect_init (&f_140, 1);
  cob_inspect_start ();
  cob_inspect_all (&cob_all_space, (cob_field *)&c_10);
  cob_inspect_start ();
  cob_inspect_all ((cob_field *)&c_11, (cob_field *)&c_12);
  cob_inspect_start ();
  cob_inspect_all ((cob_field *)&c_11, (cob_field *)&c_13);
  cob_inspect_finish ();

  /* Line: 729       : ACCEPT             : GCic.cbl */
  cob_set_location (st_5, 729, st_12, NULL, st_14);
  cob_accept_command_line (&f_151);

  /* Line: 730       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 730, st_12, NULL, st_4);
  (*(int *)(b_153)) = 1;

  /* Line: 731       : IF                 : GCic.cbl */
  cob_set_location (st_5, 731, st_12, NULL, st_6);
  if ((((int)(int)(*(b_151 + ((*(int *)(b_153)) - 1)) - 34) == 0) || 
      ((int)(int)(*(b_151 + ((*(int *)(b_153)) - 1)) - 39) == 0)))
  {

    /* Line: 732       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 732, st_12, NULL, st_4);
    *(b_152) = *(b_151 + ((*(int *)(b_153)) - 1));

    /* Line: 734       : ADD                : GCic.cbl */
    cob_set_location (st_5, 734, st_12, NULL, st_15);
    (*(int *)(b_153)) = ((*(int *)(b_153)) + 1);

    /* Line: 735       : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 735, st_12, NULL, st_16);
    cob_unstring_init (&f_151, &f_153, 1);
    cob_unstring_delimited (&f_152, 0);
    cob_unstring_into (&f_157, 0, 0);
    cob_unstring_finish ();
  }
  else
  {
    /* ELSE */

    /* Line: 740       : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 740, st_12, NULL, st_16);
    cob_unstring_init (&f_151, &f_153, 1);
    cob_unstring_delimited (&cob_all_space, 1);
    cob_unstring_into (&f_157, 0, 0);
    cob_unstring_finish ();
  }

  /* Line: 745       : IF                 : GCic.cbl */
  cob_set_location (st_5, 745, st_12, NULL, st_6);
  if (((int)cob_cmp (&f_157, &cob_all_space) == 0))
  {

    /* Line: 746       : DISPLAY            : GCic.cbl */
    cob_set_location (st_5, 746, st_12, NULL, st_7);
    cob_display (0, 1, 1, &c_14);

    /* Line: 747       : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 747, st_12, NULL, st_10);
    /* PERFORM 900-Terminate */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 26;
    frame_ptr->return_address_ptr = &&l_165;
    goto l_26;
    l_165:
    frame_ptr--;
  }

  /* Line: 753       : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 753, st_12, NULL, st_10);
  /* PERFORM 240-Find-LINKAGE-SECTION */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 20;
  frame_ptr->return_address_ptr = &&l_166;
  goto l_20;
  l_166:
  frame_ptr--;

  /* Line: 758       : IF                 : GCic.cbl */
  cob_set_location (st_5, 758, st_12, NULL, st_6);
  if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) && 
      ((int)(int)(*(b_157 + 1) - 58) == 0)))
  {

    /* Line: 759       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 759, st_12, NULL, st_4);
    *(b_171) = 92;
  }

  /* Line: 761       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 761, st_12, NULL, st_4);
  cob_move (cob_intr_length (&f_157), &f_165);

  /* Line: 762       : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 762, st_12, NULL, st_10);
  for (;;)
  {
    if ((((int)cob_cmp_s32 (b_165, 0LL) == 0) || 
        ((int)(int)(*(b_157 + ((*(int *)(b_165)) - 1)) - *(b_171)) == 0)))
      break;

    /* Line: 764       : SUBTRACT           : GCic.cbl */
    cob_set_location (st_5, 764, st_12, NULL, st_17);
    (*(int *)(b_165)) = ((*(int *)(b_165)) - 1);
  }

  /* Line: 766       : IF                 : GCic.cbl */
  cob_set_location (st_5, 766, st_12, NULL, st_6);
  if (((int)cob_cmp_s32 (b_165, 0LL) == 0))
  {

    /* Line: 767       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 767, st_12, NULL, st_4);
    memset (b_191, 32, 256);

    /* Line: 768       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 768, st_12, NULL, st_4);
    memcpy (b_192, b_157, 256);
  }
  else
  {
    /* ELSE */

    /* Line: 770       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 770, st_12, NULL, st_4);
    *(b_157 + ((*(int *)(b_165)) - 1)) = 42;

    /* Line: 771       : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 771, st_12, NULL, st_16);
    cob_unstring_init (&f_157, NULL, 1);
    cob_unstring_delimited ((cob_field *)&c_15, 0);
    cob_unstring_into (&f_191, 0, 0);
    cob_unstring_into (&f_192, 0, 0);
    cob_unstring_finish ();

    /* Line: 774       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 774, st_12, NULL, st_4);
    *(b_157 + ((*(int *)(b_165)) - 1)) = *(b_171);
  }

  /* Line: 776       : IF                 : GCic.cbl */
  cob_set_location (st_5, 776, st_12, NULL, st_6);
  if (((int)cob_cmp (&f_191, &cob_all_space) == 0))
  {

    /* Line: 777       : ACCEPT             : GCic.cbl */
    cob_set_location (st_5, 777, st_12, NULL, st_14);
    cob_get_environment ((cob_field *)&c_16, &f_191);
  }
  else
  {
    /* ELSE */

    /* Line: 779       : CALL               : GCic.cbl */
    cob_set_location (st_5, 779, st_12, NULL, st_18);
    cob_procedure_params[0] = cob_intr_trim (0, 0, &f_191, 2);
    cob_glob_ptr->cob_call_params = 1;
    b_1 = cob_sys_change_dir (cob_procedure_params[0]->data);
  }

  /* Line: 782       : IF                 : GCic.cbl */
  cob_set_location (st_5, 782, st_12, NULL, st_6);
  if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) && 
      ((int)(int)(*(b_157 + 1) - 58) == 0)))
  {

    /* Line: 783       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 783, st_12, NULL, st_4);
    *(b_171) = 47;
  }

  /* Line: 789       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 789, st_12, NULL, st_4);
  cob_move (cob_intr_length (&f_192), &f_165);

  /* Line: 790       : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 790, st_12, NULL, st_10);
  for (;;)
  {
    if ((((int)cob_cmp_s32 (b_165, 0LL) == 0) || 
        ((int)(int)(*(b_192 + ((*(int *)(b_165)) - 1)) - 46) == 0)))
      break;

    /* Line: 792       : SUBTRACT           : GCic.cbl */
    cob_set_location (st_5, 792, st_12, NULL, st_17);
    (*(int *)(b_165)) = ((*(int *)(b_165)) - 1);
  }

  /* Line: 794       : IF                 : GCic.cbl */
  cob_set_location (st_5, 794, st_12, NULL, st_6);
  if (((int)cob_cmp_s32 (b_165, 0LL) == 0))
  {

    /* Line: 795       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 795, st_12, NULL, st_4);
    memcpy (b_194, b_192, 31);

    /* Line: 796       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 796, st_12, NULL, st_4);
    memset (b_190, 32, 256);
  }
  else
  {
    /* ELSE */

    /* Line: 798       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 798, st_12, NULL, st_4);
    *(b_192 + ((*(int *)(b_165)) - 1)) = 42;

    /* Line: 799       : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 799, st_12, NULL, st_16);
    cob_unstring_init (&f_192, NULL, 1);
    cob_unstring_delimited ((cob_field *)&c_15, 0);
    cob_unstring_into (&f_194, 0, 0);
    cob_unstring_into (&f_190, 0, 0);
    cob_unstring_finish ();

    /* Line: 802       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 802, st_12, NULL, st_4);
    *(b_192 + ((*(int *)(b_165)) - 1)) = 46;
  }

  /* Line: 807       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 807, st_12, NULL, st_4);
  memset (b_164, 196, 80);

  /* Line: 808       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 808, st_12, NULL, st_4);
  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);

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 8)
    goto *frame_ptr->return_address_ptr;

  /* Line: 819       : Section   200-Let-User-Set-Switches: GCic.cbl */
  l_10:;

  /* Line: 820       : SET                : GCic.cbl */
  cob_set_location (st_5, 820, st_19, NULL, st_11);
  *(b_195 + 4) = 78;

  /* Line: 821       : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 821, st_19, NULL, st_10);
  for (;;)
  {
    if (((int)(int)(*(b_195 + 4) - 89) == 0))
      break;

    /* Line: 822       : EVALUATE           : GCic.cbl */
    cob_set_location (st_5, 822, st_19, NULL, st_3);

    /* WHEN */

    if (((int)cob_cmp_numdisp (b_167, 1, 0LL, 0) == 0))
    {

      /* Line: 824       : MOVE               : GCic.cbl */
      cob_set_location (st_5, 824, st_19, NULL, st_4);
      cob_move ((cob_field *)&c_20, &f_169);

      /* Line: 825       : MOVE               : GCic.cbl */
      cob_set_location (st_5, 825, st_19, NULL, st_4);
      *(b_112 + 372) = 32;
      goto l_12;
    }

    /* WHEN */

    if (((int)cob_cmp_numdisp (b_167, 1, 1LL, 0) == 0))
    {

      /* Line: 827       : MOVE               : GCic.cbl */
      cob_set_location (st_5, 827, st_19, NULL, st_4);
      memcpy (b_169, "Listing On (Landscape)     ", 27);

      /* Line: 828       : MOVE               : GCic.cbl */
      cob_set_location (st_5, 828, st_19, NULL, st_4);
      *(b_112 + 372) = 62;
      goto l_12;
    }

    /* WHEN */

    if (((int)cob_cmp_numdisp (b_167, 1, 2LL, 0) == 0))
    {

      /* Line: 830       : MOVE               : GCic.cbl */
      cob_set_location (st_5, 830, st_19, NULL, st_4);
      memcpy (b_169, "Listing On (Portrait)      ", 27);

      /* Line: 831       : MOVE               : GCic.cbl */
      cob_set_location (st_5, 831, st_19, NULL, st_4);
      *(b_112 + 372) = 62;
      goto l_12;
    }

    /* End EVALUATE */
    l_12:;

    /* Line: 833       : ACCEPT             : GCic.cbl */
    cob_set_location (st_5, 833, st_19, NULL, st_14);
    cob_move (&f_115, &f_355);
    cob_move (&f_114, &f_354);
    cob_move (&f_129, &f_353);
    cob_move (&f_128, &f_352);
    cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
    cob_move (&f_169, &f_341);
    cob_move (&f_147, &f_334);
    cob_move (&f_143, &f_333);
    cob_move (&f_149, &f_332);
    cob_move (&f_146, &f_331);
    cob_move (&f_145, &f_330);
    cob_move (&f_142, &f_329);
    cob_move (&f_144, &f_328);
    cob_move (&f_148, &f_327);
    cob_move (&f_141, &f_326);
    cob_move (&f_191, &f_314);
    cob_move (&f_192, &f_313);
    cob_move (&f_188, &f_293);
    cob_move (&f_170, &f_290);
    cob_move (&f_164, &f_286);
    cob_move (&f_164, &f_279);
    cob_move (&f_164, &f_276);
    cob_move (&f_164, &f_269);
    cob_move (&f_164, &f_266);
    cob_move (&f_164, &f_264);
    cob_move (&f_164, &f_246);
    cob_move (&f_164, &f_244);
    cob_move (&f_164, &f_241);
    cob_move (&f_164, &f_234);
    cob_screen_accept (&s_231, NULL, NULL, NULL);
    cob_move (&f_355, &f_115);
    cob_move (&f_354, &f_114);
    cob_move (&f_353, &f_129);
    cob_move (&f_352, &f_128);

    /* Line: 834       : IF                 : GCic.cbl */
    cob_set_location (st_5, 834, st_19, NULL, st_6);
    if (((int)cob_cmp_numdisp (b_356, 4, 0LL, 0) > 0))
    {

      /* Line: 835       : EVALUATE           : GCic.cbl */
      cob_set_location (st_5, 835, st_19, NULL, st_3);

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1001LL, 0) == 0))
      {

        /* Line: 837       : IF                 : GCic.cbl */
        cob_set_location (st_5, 837, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 368) - ' ') == 0))
        {

          /* Line: 838       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 838, st_19, NULL, st_4);
          *(b_112 + 368) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 840       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 840, st_19, NULL, st_4);
          *(b_112 + 368) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1002LL, 0) == 0))
      {

        /* Line: 843       : IF                 : GCic.cbl */
        cob_set_location (st_5, 843, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 375) - ' ') == 0))
        {

          /* Line: 844       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 844, st_19, NULL, st_4);
          *(b_112 + 375) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 846       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 846, st_19, NULL, st_4);
          *(b_112 + 375) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1003LL, 0) == 0))
      {

        /* Line: 849       : IF                 : GCic.cbl */
        cob_set_location (st_5, 849, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 371) - ' ') == 0))
        {

          /* Line: 850       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 850, st_19, NULL, st_4);
          *(b_112 + 371) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 852       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 852, st_19, NULL, st_4);
          *(b_112 + 371) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1004LL, 0) == 0))
      {

        /* Line: 855       : IF                 : GCic.cbl */
        cob_set_location (st_5, 855, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 369) - ' ') == 0))
        {

          /* Line: 856       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 856, st_19, NULL, st_4);
          *(b_112 + 369) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 858       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 858, st_19, NULL, st_4);
          *(b_112 + 369) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1005LL, 0) == 0))
      {

        /* Line: 861       : ADD                : GCic.cbl */
        cob_set_location (st_5, 861, st_19, NULL, st_15);
        cob_add_int (&f_167, 1, 0);

        /* Line: 862       : IF                 : GCic.cbl */
        cob_set_location (st_5, 862, st_19, NULL, st_6);
        if (((int)cob_cmp_numdisp (b_167, 1, 2LL, 0) > 0))
        {

          /* Line: 863       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 863, st_19, NULL, st_4);
          *(b_167) = 48;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1006LL, 0) == 0))
      {

        /* Line: 866       : IF                 : GCic.cbl */
        cob_set_location (st_5, 866, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 373) - ' ') == 0))
        {

          /* Line: 867       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 867, st_19, NULL, st_4);
          *(b_112 + 373) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 869       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 869, st_19, NULL, st_4);
          *(b_112 + 373) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1007LL, 0) == 0))
      {

        /* Line: 872       : IF                 : GCic.cbl */
        cob_set_location (st_5, 872, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 376) - ' ') == 0))
        {

          /* Line: 873       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 873, st_19, NULL, st_4);
          *(b_112 + 376) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 875       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 875, st_19, NULL, st_4);
          *(b_112 + 376) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1008LL, 0) == 0))
      {

        /* Line: 878       : IF                 : GCic.cbl */
        cob_set_location (st_5, 878, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 370) - ' ') == 0))
        {

          /* Line: 879       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 879, st_19, NULL, st_4);
          *(b_112 + 370) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 881       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 881, st_19, NULL, st_4);
          *(b_112 + 370) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1009LL, 0) == 0))
      {

        /* Line: 884       : IF                 : GCic.cbl */
        cob_set_location (st_5, 884, st_19, NULL, st_6);
        if (((int)(int)(*(b_112 + 374) - ' ') == 0))
        {

          /* Line: 885       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 885, st_19, NULL, st_4);
          *(b_112 + 374) = 62;
        }
        else
        {
          /* ELSE */

          /* Line: 887       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 887, st_19, NULL, st_4);
          *(b_112 + 374) = 32;
        }
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 2005LL, 0) == 0))
      {

        /* Line: 890       : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 890, st_19, NULL, st_10);
        /* PERFORM 900-Terminate */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 26;
        frame_ptr->return_address_ptr = &&l_167;
        goto l_26;
        l_167:
        frame_ptr--;
        goto l_13;
      }

      /* WHEN */

      if (((int)cob_cmp_numdisp (b_356, 4, 1012LL, 0) == 0))
      {

        /* Line: 893       : ADD                : GCic.cbl */
        cob_set_location (st_5, 893, st_19, NULL, st_15);
        cob_add_int (&f_126, 1, 0);

        /* Line: 894       : IF                 : GCic.cbl */
        cob_set_location (st_5, 894, st_19, NULL, st_6);
        if (((int)cob_cmp_numdisp (b_112 + 215, 1, 7LL, 0) > 0))
        {

          /* Line: 895       : MOVE               : GCic.cbl */
          cob_set_location (st_5, 895, st_19, NULL, st_4);
          *(b_112 + 215) = 49;
        }
        goto l_13;
      }

      /* WHEN OTHER */

      /* Line: 898       : MOVE               : GCic.cbl */
      cob_set_location (st_5, 898, st_19, NULL, st_4);
      cob_move ((cob_field *)&c_21, &f_188);

      /* End EVALUATE */
      l_13:;
    }
    else
    {
      /* ELSE */

      /* Line: 902       : SET                : GCic.cbl */
      cob_set_location (st_5, 902, st_19, NULL, st_11);
      *(b_195 + 4) = 89;
    }
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 10)
    goto *frame_ptr->return_address_ptr;

  /* Line: 910       : Section   210-Run-Compiler        : GCic.cbl */
  l_14:;

  /* Line: 911       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 911, st_20, NULL, st_4);
  memset (b_150, 32, 512);
  memset (b_154, 32, 256);
  memset (b_188, 32, 80);

  /* Line: 914       : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 914, st_20, NULL, st_7);
  cob_move (&f_115, &f_355);
  cob_move (&f_114, &f_354);
  cob_move (&f_129, &f_353);
  cob_move (&f_128, &f_352);
  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
  cob_move (&f_169, &f_341);
  cob_move (&f_147, &f_334);
  cob_move (&f_143, &f_333);
  cob_move (&f_149, &f_332);
  cob_move (&f_146, &f_331);
  cob_move (&f_145, &f_330);
  cob_move (&f_142, &f_329);
  cob_move (&f_144, &f_328);
  cob_move (&f_148, &f_327);
  cob_move (&f_141, &f_326);
  cob_move (&f_191, &f_314);
  cob_move (&f_192, &f_313);
  cob_move (&f_188, &f_293);
  cob_move (&f_170, &f_290);
  cob_move (&f_164, &f_286);
  cob_move (&f_164, &f_279);
  cob_move (&f_164, &f_276);
  cob_move (&f_164, &f_269);
  cob_move (&f_164, &f_266);
  cob_move (&f_164, &f_264);
  cob_move (&f_164, &f_246);
  cob_move (&f_164, &f_244);
  cob_move (&f_164, &f_241);
  cob_move (&f_164, &f_234);
  cob_screen_display (&s_231, NULL, NULL);

  /* Line: 915       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 915, st_20, NULL, st_4);
  (*(int *)(b_165)) = 1;

  /* Line: 916       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 916, st_20, NULL, st_4);
  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);

  /* Line: 921       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 921, st_20, NULL, st_4);
  memset (b_154, 32, 256);

  /* Line: 922       : STRING             : GCic.cbl */
  cob_set_location (st_5, 922, st_20, NULL, st_21);
  cob_string_init (&f_154, &f_165);
  cob_string_delimited (NULL);
  cob_string_append ((cob_field *)&c_22);
  cob_string_append (cob_intr_trim (0, 0, &f_155, 2));
  cob_string_append ((cob_field *)&c_23);
  cob_string_finish ();

  /* Line: 927       : IF                 : GCic.cbl */
  cob_set_location (st_5, 927, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 371) - 32) != 0))
  {

    /* Line: 928       : STRING             : GCic.cbl */
    cob_set_location (st_5, 928, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_24);
    cob_string_finish ();
  }
  else
  {
    /* ELSE */

    /* Line: 932       : STRING             : GCic.cbl */
    cob_set_location (st_5, 932, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_25);
    cob_string_finish ();
  }

  /* Line: 936       : IF                 : GCic.cbl */
  cob_set_location (st_5, 936, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 368) - 32) != 0))
  {

    /* Line: 937       : STRING             : GCic.cbl */
    cob_set_location (st_5, 937, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_26);
    cob_string_finish ();
  }

  /* Line: 941       : IF                 : GCic.cbl */
  cob_set_location (st_5, 941, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 374) - 32) != 0))
  {

    /* Line: 942       : STRING             : GCic.cbl */
    cob_set_location (st_5, 942, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_27);
    cob_string_finish ();
  }

  /* Line: 946       : IF                 : GCic.cbl */
  cob_set_location (st_5, 946, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 375) - 32) != 0))
  {

    /* Line: 947       : STRING             : GCic.cbl */
    cob_set_location (st_5, 947, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_28);
    cob_string_finish ();
  }

  /* Line: 951       : IF                 : GCic.cbl */
  cob_set_location (st_5, 951, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 373) - 32) != 0))
  {

    /* Line: 952       : STRING             : GCic.cbl */
    cob_set_location (st_5, 952, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_29);
    cob_string_finish ();
  }

  /* Line: 956       : IF                 : GCic.cbl */
  cob_set_location (st_5, 956, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 376) - 32) != 0))
  {

    /* Line: 957       : STRING             : GCic.cbl */
    cob_set_location (st_5, 957, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_30);
    cob_string_finish ();
  }

  /* Line: 961       : IF                 : GCic.cbl */
  cob_set_location (st_5, 961, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 370) - 32) != 0))
  {

    /* Line: 962       : STRING             : GCic.cbl */
    cob_set_location (st_5, 962, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_31);
    cob_string_finish ();
  }
  else
  {
    /* ELSE */

    /* Line: 966       : STRING             : GCic.cbl */
    cob_set_location (st_5, 966, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_32);
    cob_string_finish ();
  }

  /* Line: 971       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 971, st_20, NULL, st_4);
  (*(int *)(b_221)) = 0;

  /* Line: 972       : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 972, st_20, NULL, st_13);
  cob_inspect_init (&f_127, 0);
  cob_inspect_start ();
  cob_inspect_all (&f_221, (cob_field *)&c_33);
  cob_inspect_finish ();

  /* Line: 974       : IF                 : GCic.cbl */
  cob_set_location (st_5, 974, st_20, NULL, st_6);
  if ((((int)(int)(*(b_112 + 372) - ' ') > 0) && 
      ((int)cob_cmp_s32 (b_221, 0LL) > 0)))
  {

    /* Line: 976       : MOVE               : GCic.cbl */
    cob_set_location (st_5, 976, st_20, NULL, st_4);
    *(b_112 + 372) = 32;
  }

  /* Line: 978       : IF                 : GCic.cbl */
  cob_set_location (st_5, 978, st_20, NULL, st_6);
  if (((int)(int)(*(b_112 + 372) - ' ') > 0))
  {

    /* Line: 979       : STRING             : GCic.cbl */
    cob_set_location (st_5, 979, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_34);
    cob_string_finish ();
  }

  /* Line: 984       : IF                 : GCic.cbl */
  cob_set_location (st_5, 984, st_20, NULL, st_6);
  if (((int)cob_cmp (&f_127, &cob_all_space) > 0))
  {

    /* Line: 985       : STRING             : GCic.cbl */
    cob_set_location (st_5, 985, st_20, NULL, st_21);
    cob_string_init (&f_154, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_23);
    cob_string_append (cob_intr_trim (0, 0, &f_127, 2));
    cob_string_append ((cob_field *)&c_23);
    cob_string_finish ();
  }

  /* Line: 991       : STRING             : GCic.cbl */
  cob_set_location (st_5, 991, st_20, NULL, st_21);
  cob_string_init (&f_154, &f_165);
  cob_string_delimited (NULL);
  cob_string_append (cob_intr_trim (0, 0, &f_192, 2));
  cob_string_finish ();

  /* Line: 997       : MOVE               : GCic.cbl */
  cob_set_location (st_5, 997, st_20, NULL, st_4);
  cob_move (cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_194, 2), (cob_field *)&c_35), &f_168);

  /* Line: 999       : CALL               : GCic.cbl */
  cob_set_location (st_5, 999, st_20, NULL, st_18);
  cob_procedure_params[0] = &f_168;
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_delete_file (b_168);

  /* Line: 1003      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1003, st_20, NULL, st_4);
  cob_move ((cob_field *)&c_36, &f_188);

  /* Line: 1004      : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 1004, st_20, NULL, st_7);
  cob_move (&f_115, &f_355);
  cob_move (&f_114, &f_354);
  cob_move (&f_129, &f_353);
  cob_move (&f_128, &f_352);
  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
  cob_move (&f_169, &f_341);
  cob_move (&f_147, &f_334);
  cob_move (&f_143, &f_333);
  cob_move (&f_149, &f_332);
  cob_move (&f_146, &f_331);
  cob_move (&f_145, &f_330);
  cob_move (&f_142, &f_329);
  cob_move (&f_144, &f_328);
  cob_move (&f_148, &f_327);
  cob_move (&f_141, &f_326);
  cob_move (&f_191, &f_314);
  cob_move (&f_192, &f_313);
  cob_move (&f_188, &f_293);
  cob_move (&f_170, &f_290);
  cob_move (&f_164, &f_286);
  cob_move (&f_164, &f_279);
  cob_move (&f_164, &f_276);
  cob_move (&f_164, &f_269);
  cob_move (&f_164, &f_266);
  cob_move (&f_164, &f_264);
  cob_move (&f_164, &f_246);
  cob_move (&f_164, &f_244);
  cob_move (&f_164, &f_241);
  cob_move (&f_164, &f_234);
  cob_screen_display (&s_231, NULL, NULL);

  /* Line: 1005      : SET                : GCic.cbl */
  cob_set_location (st_5, 1005, st_20, NULL, st_11);
  *(b_195 + 5) = 78;

  /* Line: 1006      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1006, st_20, NULL, st_4);
  memset (b_150, 32, 512);

  /* Line: 1007      : STRING             : GCic.cbl */
  cob_set_location (st_5, 1007, st_20, NULL, st_21);
  cob_string_init (&f_150, NULL);
  cob_string_delimited (NULL);
  cob_string_append (cob_intr_trim (0, 0, &f_154, 2));
  cob_string_append ((cob_field *)&c_37);
  cob_string_append (&f_168);
  cob_string_append ((cob_field *)&c_38);
  cob_string_finish ();

  /* Line: 1013      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1013, st_20, NULL, st_18);
  cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system (cob_procedure_params[0]->data);

  /* Line: 1014      : OPEN               : GCic.cbl */
  cob_set_location (st_5, 1014, st_20, NULL, st_22);
  cob_open (h_F_COBC_OUTPUT_FILE, 4, 0, NULL);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_168;
    goto l_1;
    l_168:
    frame_ptr--;
  }

  /* Line: 1015      : WRITE              : GCic.cbl */
  cob_set_location (st_5, 1015, st_20, NULL, st_23);
  memset (b_22, 32, 256);
  cob_write (h_F_COBC_OUTPUT_FILE, &f_21, 0x210001, NULL, 0);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_169;
    goto l_1;
    l_169:
    frame_ptr--;
  }

  /* Line: 1016      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1016, st_20, NULL, st_6);
  if (((int)(b_1 - 0) == 0))
  {

    /* Line: 1017      : SET                : GCic.cbl */
    cob_set_location (st_5, 1017, st_20, NULL, st_11);
    *(b_195) = 89;

    /* Line: 1018      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1018, st_20, NULL, st_4);
    cob_move ((cob_field *)&c_39, &f_188);

    /* Line: 1019      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1019, st_20, NULL, st_4);
    cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_40, &f_188), &f_21);

    /* Line: 1021      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 1021, st_20, NULL, st_23);
    cob_write (h_F_COBC_OUTPUT_FILE, &f_21, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_170;
      goto l_1;
      l_170:
      frame_ptr--;
    }

    /* Line: 1022      : SET                : GCic.cbl */
    cob_set_location (st_5, 1022, st_20, NULL, st_11);
    *(b_195 + 1) = 89;
  }
  else
  {
    /* ELSE */

    /* Line: 1024      : SET                : GCic.cbl */
    cob_set_location (st_5, 1024, st_20, NULL, st_11);
    *(b_195) = 78;

    /* Line: 1025      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1025, st_20, NULL, st_4);
    cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_41, cob_intr_trim (0, 0, &f_168, 2)), &f_188);

    /* Line: 1028      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1028, st_20, NULL, st_4);
    cob_move ((cob_field *)&c_42, &f_21);

    /* Line: 1030      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 1030, st_20, NULL, st_23);
    cob_write (h_F_COBC_OUTPUT_FILE, &f_21, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_171;
      goto l_1;
      l_171:
      frame_ptr--;
    }
  }

  /* Line: 1032      : CLOSE              : GCic.cbl */
  cob_set_location (st_5, 1032, st_20, NULL, st_24);
  cob_close (h_F_COBC_OUTPUT_FILE, NULL, 0, 0);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_172;
    goto l_1;
    l_172:
    frame_ptr--;
  }

  /* Line: 1033      : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 1033, st_20, NULL, st_7);
  cob_move (&f_115, &f_355);
  cob_move (&f_114, &f_354);
  cob_move (&f_129, &f_353);
  cob_move (&f_128, &f_352);
  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
  cob_move (&f_169, &f_341);
  cob_move (&f_147, &f_334);
  cob_move (&f_143, &f_333);
  cob_move (&f_149, &f_332);
  cob_move (&f_146, &f_331);
  cob_move (&f_145, &f_330);
  cob_move (&f_142, &f_329);
  cob_move (&f_144, &f_328);
  cob_move (&f_148, &f_327);
  cob_move (&f_141, &f_326);
  cob_move (&f_191, &f_314);
  cob_move (&f_192, &f_313);
  cob_move (&f_188, &f_293);
  cob_move (&f_170, &f_290);
  cob_move (&f_164, &f_286);
  cob_move (&f_164, &f_279);
  cob_move (&f_164, &f_276);
  cob_move (&f_164, &f_269);
  cob_move (&f_164, &f_266);
  cob_move (&f_164, &f_264);
  cob_move (&f_164, &f_246);
  cob_move (&f_164, &f_244);
  cob_move (&f_164, &f_241);
  cob_move (&f_164, &f_234);
  cob_screen_display (&s_231, NULL, NULL);

  /* Line: 1034      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1034, st_20, NULL, st_18);
  {
    cob_content content_1;
    cob_field   content_fb_1 = { 4, content_1.data, &a_4 };

    content_1.dataint = 2;
    cob_procedure_params[0] = &content_fb_1;
    cob_glob_ptr->cob_call_params = 1;
    b_1 = cob_sys_sleep (content_1.data);
  }

  /* Line: 1035      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1035, st_20, NULL, st_4);
  memset (b_188, 32, 80);

  /* Line: 1036      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1036, st_20, NULL, st_6);
  if (((int)(int)(*(b_195) - 78) == 0))
  {

    /* Line: 1037      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 1037, st_20, NULL, st_10);
    /* PERFORM 250-Autoload-Listing */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 23;
    frame_ptr->return_address_ptr = &&l_173;
    goto l_23;
    l_173:
    frame_ptr--;

    /* Line: 1038      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 1038, st_20, NULL, st_10);
    /* PERFORM 900-Terminate */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 26;
    frame_ptr->return_address_ptr = &&l_174;
    goto l_26;
    l_174:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 14)
    goto *frame_ptr->return_address_ptr;

  /* Line: 1046      : Section   220-Make-Listing        : GCic.cbl */
  l_16:;

  /* Line: 1047      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1047, st_25, NULL, st_4);
  cob_move ((cob_field *)&c_43, &f_188);

  /* Line: 1048      : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 1048, st_25, NULL, st_7);
  cob_move (&f_115, &f_355);
  cob_move (&f_114, &f_354);
  cob_move (&f_129, &f_353);
  cob_move (&f_128, &f_352);
  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
  cob_move (&f_169, &f_341);
  cob_move (&f_147, &f_334);
  cob_move (&f_143, &f_333);
  cob_move (&f_149, &f_332);
  cob_move (&f_146, &f_331);
  cob_move (&f_145, &f_330);
  cob_move (&f_142, &f_329);
  cob_move (&f_144, &f_328);
  cob_move (&f_148, &f_327);
  cob_move (&f_141, &f_326);
  cob_move (&f_191, &f_314);
  cob_move (&f_192, &f_313);
  cob_move (&f_188, &f_293);
  cob_move (&f_170, &f_290);
  cob_move (&f_164, &f_286);
  cob_move (&f_164, &f_279);
  cob_move (&f_164, &f_276);
  cob_move (&f_164, &f_269);
  cob_move (&f_164, &f_266);
  cob_move (&f_164, &f_264);
  cob_move (&f_164, &f_246);
  cob_move (&f_164, &f_244);
  cob_move (&f_164, &f_241);
  cob_move (&f_164, &f_234);
  cob_screen_display (&s_231, NULL, NULL);

  /* Line: 1049      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1049, st_25, NULL, st_4);
  b_1 = 0;

  /* Line: 1053      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1053, st_25, NULL, st_4);
  memset (b_188, 32, 80);

  /* Line: 1054      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1054, st_25, NULL, st_18);
  {
    cob_content content_4;
    cob_field   content_fb_4 = { 4, content_4.data, &a_4 };
    cob_content content_5;
    cob_field   content_fb_5 = { 4, content_5.data, &a_4 };

    content_4.dataint = 60;
    content_5.dataint = 54;
    cob_procedure_params[0] = &f_168;
    cob_procedure_params[1] = &f_157;
    cob_procedure_params[2] = &f_175;
    cob_procedure_params[3] = &content_fb_4;
    cob_procedure_params[4] = &content_fb_5;
    cob_procedure_params[5] = &f_167;
    cob_glob_ptr->cob_call_params = 6;
    if (unlikely(call_LISTING.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel)) {
      call_LISTING.funcvoid = cob_resolve_cobol ("LISTING", 0, 0);
    }
    if (unlikely(call_LISTING.funcvoid == NULL))
    {

      /* Line: 1061      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 1061, st_25, NULL, st_4);
      cob_move ((cob_field *)&c_44, &f_188);

      /* Line: 1063      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 1063, st_25, NULL, st_4);
      b_1 = 1;
    }
    else
    {
      b_1 = call_LISTING.funcint (b_168, b_157, b_175, content_4.data, content_5.data, b_167);
    }
  }

  /* Line: 1065      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1065, st_25, NULL, st_6);
  if (((int)(b_1 - 0) == 0))
  {

    /* Line: 1066      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1066, st_25, NULL, st_4);
    cob_move ((cob_field *)&c_45, &f_188);
  }

  /* Line: 1069      : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 1069, st_25, NULL, st_7);
  cob_move (&f_115, &f_355);
  cob_move (&f_114, &f_354);
  cob_move (&f_129, &f_353);
  cob_move (&f_128, &f_352);
  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
  cob_move (&f_169, &f_341);
  cob_move (&f_147, &f_334);
  cob_move (&f_143, &f_333);
  cob_move (&f_149, &f_332);
  cob_move (&f_146, &f_331);
  cob_move (&f_145, &f_330);
  cob_move (&f_142, &f_329);
  cob_move (&f_144, &f_328);
  cob_move (&f_148, &f_327);
  cob_move (&f_141, &f_326);
  cob_move (&f_191, &f_314);
  cob_move (&f_192, &f_313);
  cob_move (&f_188, &f_293);
  cob_move (&f_170, &f_290);
  cob_move (&f_164, &f_286);
  cob_move (&f_164, &f_279);
  cob_move (&f_164, &f_276);
  cob_move (&f_164, &f_269);
  cob_move (&f_164, &f_266);
  cob_move (&f_164, &f_264);
  cob_move (&f_164, &f_246);
  cob_move (&f_164, &f_244);
  cob_move (&f_164, &f_241);
  cob_move (&f_164, &f_234);
  cob_screen_display (&s_231, NULL, NULL);

  /* Line: 1070      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1070, st_25, NULL, st_18);
  {
    cob_content content_1;
    cob_field   content_fb_1 = { 4, content_1.data, &a_4 };

    content_1.dataint = 2;
    cob_procedure_params[0] = &content_fb_1;
    cob_glob_ptr->cob_call_params = 1;
    b_1 = cob_sys_sleep (content_1.data);
  }

  /* Line: 1071      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 1071, st_25, NULL, st_10);
  /* PERFORM 250-Autoload-Listing */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 23;
  frame_ptr->return_address_ptr = &&l_175;
  goto l_23;
  l_175:
  frame_ptr--;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 16)
    goto *frame_ptr->return_address_ptr;

  /* Line: 1077      : Section   230-Run-Program         : GCic.cbl */
  l_18:;

  /* Line: 1078      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1078, st_26, NULL, st_4);
  cob_move ((cob_field *)&c_46, &f_188);

  /* Line: 1080      : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 1080, st_26, NULL, st_7);
  cob_move (&f_115, &f_355);
  cob_move (&f_114, &f_354);
  cob_move (&f_129, &f_353);
  cob_move (&f_128, &f_352);
  cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
  cob_move (&f_169, &f_341);
  cob_move (&f_147, &f_334);
  cob_move (&f_143, &f_333);
  cob_move (&f_149, &f_332);
  cob_move (&f_146, &f_331);
  cob_move (&f_145, &f_330);
  cob_move (&f_142, &f_329);
  cob_move (&f_144, &f_328);
  cob_move (&f_148, &f_327);
  cob_move (&f_141, &f_326);
  cob_move (&f_191, &f_314);
  cob_move (&f_192, &f_313);
  cob_move (&f_188, &f_293);
  cob_move (&f_170, &f_290);
  cob_move (&f_164, &f_286);
  cob_move (&f_164, &f_279);
  cob_move (&f_164, &f_276);
  cob_move (&f_164, &f_269);
  cob_move (&f_164, &f_266);
  cob_move (&f_164, &f_264);
  cob_move (&f_164, &f_246);
  cob_move (&f_164, &f_244);
  cob_move (&f_164, &f_241);
  cob_move (&f_164, &f_234);
  cob_screen_display (&s_231, NULL, NULL);

  /* Line: 1081      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1081, st_26, NULL, st_18);
  {
    cob_content content_1;
    cob_field   content_fb_1 = { 4, content_1.data, &a_4 };

    content_1.dataint = 3;
    cob_procedure_params[0] = &content_fb_1;
    cob_glob_ptr->cob_call_params = 1;
    b_1 = cob_sys_sleep (content_1.data);
  }

  /* Line: 1082      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1082, st_26, NULL, st_4);
  memset (b_150, 32, 512);

  /* Line: 1083      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1083, st_26, NULL, st_4);
  (*(int *)(b_165)) = 1;

  /* Line: 1087      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1087, st_26, NULL, st_6);
  if (((int)(int)(*(b_112 + 371) - 32) != 0))
  {

    /* Line: 1088      : STRING             : GCic.cbl */
    cob_set_location (st_5, 1088, st_26, NULL, st_21);
    cob_string_init (&f_150, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_47);
    cob_string_finish ();
  }

  /* Line: 1095      : SET                : GCic.cbl */
  cob_set_location (st_5, 1095, st_26, NULL, st_11);
  *(b_195 + 2) = 78;

  /* Line: 1096      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1096, st_26, NULL, st_6);
  if (((int)cob_cmp (&f_191, &cob_all_space) != 0))
  {

    /* Line: 1097      : IF                 : GCic.cbl */
    cob_set_location (st_5, 1097, st_26, NULL, st_6);
    if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) && 
        ((int)(int)(*(b_191 + 1) - 58) == 0)))
    {

      /* Line: 1098      : STRING             : GCic.cbl */
      cob_set_location (st_5, 1098, st_26, NULL, st_21);
      cob_string_init (&f_150, &f_165);
      cob_string_delimited (NULL);
      cob_string_append ((cob_field *)&c_48);
      cob_string_finish ();

      /* Line: 1101      : STRING             : GCic.cbl */
      cob_set_location (st_5, 1101, st_26, NULL, st_21);
      cob_string_init (&f_150, &f_165);
      cob_string_delimited (NULL);
      cob_string_append (cob_intr_lower_case (0, 0, COB_SET_FLD(f0, 1, b_191 + 0, &a_1)));
      cob_string_finish ();

      /* Line: 1104      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 1104, st_26, NULL, st_10);
      (*(int *)(b_166)) = 3;
      for (;;)
      {
        if (((int)cob_cmp (&f_166, cob_intr_length (cob_intr_trim (0, 0, &f_191, 0))) > 0))
          break;

        /* Line: 1107      : IF                 : GCic.cbl */
        cob_set_location (st_5, 1107, st_26, NULL, st_6);
        if (((int)(int)(*(b_191 + ((*(int *)(b_166)) - 1)) - 92) == 0))
        {

          /* Line: 1108      : STRING             : GCic.cbl */
          cob_set_location (st_5, 1108, st_26, NULL, st_21);
          cob_string_init (&f_150, &f_165);
          cob_string_delimited (NULL);
          cob_string_append ((cob_field *)&c_9);
          cob_string_finish ();
        }
        else
        {
          /* ELSE */

          /* Line: 1112      : STRING             : GCic.cbl */
          cob_set_location (st_5, 1112, st_26, NULL, st_21);
          cob_string_init (&f_150, &f_165);
          cob_string_delimited (NULL);
          cob_string_append (COB_SET_FLD(f0, 1, b_191 + ((*(int *)(b_166)) - 1), &a_1));
          cob_string_finish ();
        }
        (*(int *)(b_166)) = ((*(int *)(b_166)) + 1);
      }
    }
    else
    {
      /* ELSE */

      /* Line: 1118      : STRING             : GCic.cbl */
      cob_set_location (st_5, 1118, st_26, NULL, st_21);
      cob_string_init (&f_150, &f_165);
      cob_string_delimited (NULL);
      cob_string_append ((cob_field *)&c_2);
      cob_string_append (cob_intr_trim (0, 0, &f_191, 2));
      cob_string_finish ();

      /* Line: 1121      : SET                : GCic.cbl */
      cob_set_location (st_5, 1121, st_26, NULL, st_11);
      *(b_195 + 2) = 89;
    }

    /* Line: 1123      : STRING             : GCic.cbl */
    cob_set_location (st_5, 1123, st_26, NULL, st_21);
    cob_string_init (&f_150, &f_165);
    cob_string_delimited (NULL);
    cob_string_append (&f_171);
    cob_string_finish ();
  }
  else
  {
    /* ELSE */

    /* Line: 1127      : IF                 : GCic.cbl */
    cob_set_location (st_5, 1127, st_26, NULL, st_6);
    if ((((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0) || 
        (((int)cob_cmp_numdisp (b_175, 1, 3LL, 0) == 0) || 
        ((int)cob_cmp_numdisp (b_175, 1, 4LL, 0) == 0))))
    {

      /* Line: 1128      : STRING             : GCic.cbl */
      cob_set_location (st_5, 1128, st_26, NULL, st_21);
      cob_string_init (&f_150, &f_165);
      cob_string_delimited (NULL);
      cob_string_append ((cob_field *)&c_49);
      cob_string_finish ();
    }
  }

  /* Line: 1136      : STRING             : GCic.cbl */
  cob_set_location (st_5, 1136, st_26, NULL, st_21);
  cob_string_init (&f_150, &f_165);
  cob_string_delimited (NULL);
  cob_string_append (cob_intr_trim (0, 0, &f_194, 2));
  cob_string_finish ();

  /* Line: 1142      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1142, st_26, NULL, st_6);
  if (((int)(int)(*(b_112 + 371) - 32) == 0))
  {

    /* Line: 1143      : IF                 : GCic.cbl */
    cob_set_location (st_5, 1143, st_26, NULL, st_6);
    if (((int)(int)(*((cob_u8_ptr)" ") - 32) > 0))
    {

      /* Line: 1144      : STRING             : GCic.cbl */
      cob_set_location (st_5, 1144, st_26, NULL, st_21);
      cob_string_init (&f_150, &f_165);
      cob_string_delimited (&cob_all_space);
      cob_string_append ((cob_field *)&c_23);
      cob_string_finish ();
    }
  }
  else
  {
    /* ELSE */

    /* Line: 1149      : IF                 : GCic.cbl */
    cob_set_location (st_5, 1149, st_26, NULL, st_6);
    if (((int)cob_cmp ((cob_field *)&c_50, (cob_field *)&c_23) > 0))
    {

      /* Line: 1150      : STRING             : GCic.cbl */
      cob_set_location (st_5, 1150, st_26, NULL, st_21);
      cob_string_init (&f_150, &f_165);
      cob_string_delimited (&cob_all_space);
      cob_string_append ((cob_field *)&c_50);
      cob_string_finish ();
    }
  }

  /* Line: 1155      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1155, st_26, NULL, st_6);
  if (((int)(int)(*(b_195 + 2) - 89) == 0))
  {

    /* Line: 1156      : STRING             : GCic.cbl */
    cob_set_location (st_5, 1156, st_26, NULL, st_21);
    cob_string_init (&f_150, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_2);
    cob_string_finish ();
  }

  /* Line: 1160      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1160, st_26, NULL, st_6);
  if (((int)cob_cmp (&f_113, &cob_all_space) != 0))
  {

    /* Line: 1161      : STRING             : GCic.cbl */
    cob_set_location (st_5, 1161, st_26, NULL, st_21);
    cob_string_init (&f_150, &f_165);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_23);
    cob_string_append (cob_intr_trim (0, 0, &f_113, 2));
    cob_string_finish ();
  }

  /* Line: 1168      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1168, st_26, NULL, st_18);
  cob_glob_ptr->cob_call_params = 0;
  b_1 = cob_sys_clear_screen ();

  /* Line: 1169      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1169, st_26, NULL, st_18);
  cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system (cob_procedure_params[0]->data);

  /* Line: 1170      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1170, st_26, NULL, st_4);
  memset (b_188, 32, 80);

  /* Line: 1171      : ACCEPT             : GCic.cbl */
  cob_set_location (st_5, 1171, st_26, NULL, st_14);
  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);

  /* Line: 1172      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 1172, st_26, NULL, st_10);
  /* PERFORM 900-Terminate */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 26;
  frame_ptr->return_address_ptr = &&l_176;
  goto l_26;
  l_176:
  frame_ptr--;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 18)
    goto *frame_ptr->return_address_ptr;

  /* Line: 1179      : Section   240-Find-LINKAGE-SECTION: GCic.cbl */
  l_20:;

  /* Line: 1180      : OPEN               : GCic.cbl */
  cob_set_location (st_5, 1180, st_27, NULL, st_22);
  cob_open (h_F_SOURCE_CODE_FILE, 1, 0, &f_161);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM 000-File-Error */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 2;
    frame_ptr->return_address_ptr = &&l_177;
    goto l_2;
    l_177:
    frame_ptr--;
  }

  /* Line: 1181      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 1181, st_27, NULL, st_4);
  *(b_112 + 371) = 32;

  /* Line: 1182      : SET                : GCic.cbl */
  cob_set_location (st_5, 1182, st_27, NULL, st_11);
  *(b_195 + 3) = 78;

  /* Line: 1183      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 1183, st_27, NULL, st_10);
  for (;;)
  {
    if (((int)(int)(*(b_195 + 3) - 89) == 0))
      break;

    /* Line: 1184      : READ               : GCic.cbl */
    cob_set_location (st_5, 1184, st_27, NULL, st_28);
    cob_read_next (h_F_SOURCE_CODE_FILE, &f_161, 1);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      if (cob_glob_ptr->cob_exception_code == 0x0501)
      {

        /* Line: 1185      : CLOSE              : GCic.cbl */
        cob_set_location (st_5, 1185, st_27, NULL, st_24);
        cob_close (h_F_SOURCE_CODE_FILE, &f_161, 0, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM 000-File-Error */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 2;
          frame_ptr->return_address_ptr = &&l_178;
          goto l_2;
          l_178:
          frame_ptr--;
        }

        /* Line: 1186      : EXIT SECTION       : GCic.cbl */
        cob_set_location (st_5, 1186, st_27, NULL, st_29);
        goto l_22;
      }
      else
      {
        /* PERFORM 000-File-Error */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 2;
        frame_ptr->return_address_ptr = &&l_179;
        goto l_2;
        l_179:
        frame_ptr--;
      }
    }

    /* Line: 1188      : CALL               : GCic.cbl */
    cob_set_location (st_5, 1188, st_27, NULL, st_18);
    {
      union {
        unsigned char data[256];
        cob_s64_t     datall;
        cob_u64_t     dataull;
        int           dataint;
      } content_1;

      memcpy (content_1.data, b_24, 256);
      cob_procedure_params[0] = &f_23;
      cob_procedure_params[1] = &f_214;
      cob_glob_ptr->cob_call_params = 2;
      if (unlikely(call_CHECKSRC.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel)) {
        call_CHECKSRC.funcvoid = cob_resolve_cobol ("CHECKSRC", 0, 1);
      }
      b_1 = call_CHECKSRC.funcint (content_1.data, b_195 + 6);
    }

    /* Line: 1191      : IF                 : GCic.cbl */
    cob_set_location (st_5, 1191, st_27, NULL, st_6);
    if (((int)(int)(*(b_195 + 6) - 73) == 0))
    {

      /* Line: 1192      : SET                : GCic.cbl */
      cob_set_location (st_5, 1192, st_27, NULL, st_11);
      *(b_195 + 3) = 89;
    }
  }

  /* Line: 1195      : SET                : GCic.cbl */
  cob_set_location (st_5, 1195, st_27, NULL, st_11);
  *(b_195 + 6) = 32;

  /* Line: 1196      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 1196, st_27, NULL, st_10);
  for (;;)
  {
    if ((((int)(int)(*(b_195 + 6) - 76) == 0) || 
        ((int)(int)(*(b_195 + 6) - 73) == 0)))
      break;

    /* Line: 1198      : READ               : GCic.cbl */
    cob_set_location (st_5, 1198, st_27, NULL, st_28);
    cob_read_next (h_F_SOURCE_CODE_FILE, &f_161, 1);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      if (cob_glob_ptr->cob_exception_code == 0x0501)
      {

        /* Line: 1199      : CLOSE              : GCic.cbl */
        cob_set_location (st_5, 1199, st_27, NULL, st_24);
        cob_close (h_F_SOURCE_CODE_FILE, &f_161, 0, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM 000-File-Error */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 2;
          frame_ptr->return_address_ptr = &&l_180;
          goto l_2;
          l_180:
          frame_ptr--;
        }

        /* Line: 1200      : EXIT SECTION       : GCic.cbl */
        cob_set_location (st_5, 1200, st_27, NULL, st_29);
        goto l_22;
      }
      else
      {
        /* PERFORM 000-File-Error */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 2;
        frame_ptr->return_address_ptr = &&l_181;
        goto l_2;
        l_181:
        frame_ptr--;
      }
    }

    /* Line: 1202      : CALL               : GCic.cbl */
    cob_set_location (st_5, 1202, st_27, NULL, st_18);
    {
      union {
        unsigned char data[256];
        cob_s64_t     datall;
        cob_u64_t     dataull;
        int           dataint;
      } content_1;

      memcpy (content_1.data, b_24, 256);
      cob_procedure_params[0] = &f_23;
      cob_procedure_params[1] = &f_214;
      cob_glob_ptr->cob_call_params = 2;
      if (unlikely(call_CHECKSRC.funcvoid == NULL || cob_glob_ptr->cob_physical_cancel)) {
        call_CHECKSRC.funcvoid = cob_resolve_cobol ("CHECKSRC", 0, 1);
      }
      b_1 = call_CHECKSRC.funcint (content_1.data, b_195 + 6);
    }
  }

  /* Line: 1206      : CLOSE              : GCic.cbl */
  cob_set_location (st_5, 1206, st_27, NULL, st_24);
  cob_close (h_F_SOURCE_CODE_FILE, &f_161, 0, 0);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM 000-File-Error */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 2;
    frame_ptr->return_address_ptr = &&l_182;
    goto l_2;
    l_182:
    frame_ptr--;
  }

  /* Line: 1207      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1207, st_27, NULL, st_6);
  if (((int)(int)(*(b_195 + 6) - 76) == 0))
  {

    /* Line: 1208      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1208, st_27, NULL, st_4);
    *(b_112 + 371) = 62;
  }

  /* Implicit EXIT label */
  l_22:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 20)
    goto *frame_ptr->return_address_ptr;

  /* Line: 1218      : Section   250-Autoload-Listing    : GCic.cbl */
  l_23:;

  /* Line: 1219      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 1219, st_30, NULL, st_3);

  /* WHEN */

  if (((((int)cob_cmp_numdisp (b_175, 1, 1LL, 0) == 0) || 
      ((int)cob_cmp_numdisp (b_175, 1, 5LL, 0) == 0)) || 
      ((int)cob_cmp_numdisp (b_175, 1, 2LL, 0) == 0)))
  {

    /* Line: 1221      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1221, st_30, NULL, st_4);
    memset (b_150, 32, 512);

    /* Line: 1222      : STRING             : GCic.cbl */
    cob_set_location (st_5, 1222, st_30, NULL, st_21);
    cob_string_init (&f_150, NULL);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_52);
    cob_string_append (cob_intr_trim (0, 0, &f_168, 2));
    cob_string_finish ();

    /* Line: 1226      : CALL               : GCic.cbl */
    cob_set_location (st_5, 1226, st_30, NULL, st_18);
    cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
    cob_glob_ptr->cob_call_params = 1;
    b_1 = cob_sys_system (cob_procedure_params[0]->data);
    goto l_25;
  }

  /* WHEN */

  if (((int)cob_cmp_numdisp (b_175, 1, 4LL, 0) == 0))
  {

    /* Line: 1228      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1228, st_30, NULL, st_4);
    memset (b_150, 32, 512);

    /* Line: 1229      : STRING             : GCic.cbl */
    cob_set_location (st_5, 1229, st_30, NULL, st_21);
    cob_string_init (&f_150, NULL);
    cob_string_delimited (NULL);
    cob_string_append ((cob_field *)&c_53);
    cob_string_append (cob_intr_trim (0, 0, &f_168, 2));
    cob_string_finish ();

    /* Line: 1233      : CALL               : GCic.cbl */
    cob_set_location (st_5, 1233, st_30, NULL, st_18);
    cob_procedure_params[0] = cob_intr_trim (0, 0, &f_150, 2);
    cob_glob_ptr->cob_call_params = 1;
    b_1 = cob_sys_system (cob_procedure_params[0]->data);
    goto l_25;
  }

  /* End EVALUATE */
  l_25:;

  /* Line: 1240      : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 1240, st_30, NULL, st_7);
  cob_screen_display (&s_230, NULL, NULL);

  /* Line: 1241      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1241, st_30, NULL, st_6);
  if ((((int)cob_cmp_numdisp (b_175, 1, 1LL, 0) == 0) || 
      ((int)cob_cmp_numdisp (b_175, 1, 5LL, 0) == 0)))
  {

    /* Line: 1242      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1242, st_30, NULL, st_4);
    cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_54, cob_intr_trim (0, 0, &f_194, 2)), &f_150);
  }
  else
  {
    /* ELSE */

    /* Line: 1245      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 1245, st_30, NULL, st_4);
    cob_move (cob_intr_concatenate (0, 0, 2, (cob_field *)&c_55, cob_intr_trim (0, 0, &f_194, 2)), &f_150);
  }

  /* Line: 1248      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1248, st_30, NULL, st_18);
  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_56);
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system (cob_procedure_params[0]->data);

  /* Line: 1250      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1250, st_30, NULL, st_18);
  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_57);
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system (cob_procedure_params[0]->data);

  /* Line: 1252      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1252, st_30, NULL, st_18);
  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_58);
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system (cob_procedure_params[0]->data);

  /* Line: 1254      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1254, st_30, NULL, st_18);
  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_59);
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system (cob_procedure_params[0]->data);

  /* Line: 1256      : CALL               : GCic.cbl */
  cob_set_location (st_5, 1256, st_30, NULL, st_18);
  cob_procedure_params[0] = cob_intr_concatenate (0, 0, 2, cob_intr_trim (0, 0, &f_150, 2), (cob_field *)&c_60);
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system (cob_procedure_params[0]->data);

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 23)
    goto *frame_ptr->return_address_ptr;

  /* Line: 1264      : Section   900-Terminate           : GCic.cbl */
  l_26:;

  /* Line: 1265      : IF                 : GCic.cbl */
  cob_set_location (st_5, 1265, st_31, NULL, st_6);
  if (((int)cob_cmp (&f_188, &cob_all_space) > 0))
  {

    /* Line: 1266      : DISPLAY            : GCic.cbl */
    cob_set_location (st_5, 1266, st_31, NULL, st_7);
    cob_move (&f_115, &f_355);
    cob_move (&f_114, &f_354);
    cob_move (&f_129, &f_353);
    cob_move (&f_128, &f_352);
    cob_move (COB_SET_FLD(f0, 9, b_112 + 152 + 9 * (cob_get_numdisp (b_112 + 215, 1) - 1), &a_1), &f_350);
    cob_move (&f_169, &f_341);
    cob_move (&f_147, &f_334);
    cob_move (&f_143, &f_333);
    cob_move (&f_149, &f_332);
    cob_move (&f_146, &f_331);
    cob_move (&f_145, &f_330);
    cob_move (&f_142, &f_329);
    cob_move (&f_144, &f_328);
    cob_move (&f_148, &f_327);
    cob_move (&f_141, &f_326);
    cob_move (&f_191, &f_314);
    cob_move (&f_192, &f_313);
    cob_move (&f_188, &f_293);
    cob_move (&f_170, &f_290);
    cob_move (&f_164, &f_286);
    cob_move (&f_164, &f_279);
    cob_move (&f_164, &f_276);
    cob_move (&f_164, &f_269);
    cob_move (&f_164, &f_266);
    cob_move (&f_164, &f_264);
    cob_move (&f_164, &f_246);
    cob_move (&f_164, &f_244);
    cob_move (&f_164, &f_241);
    cob_move (&f_164, &f_234);
    cob_screen_display (&s_231, NULL, NULL);

    /* Line: 1267      : CALL               : GCic.cbl */
    cob_set_location (st_5, 1267, st_31, NULL, st_18);
    {
      cob_content   content_1;
      cob_field content_fb_1 = { 4, content_1.data, &a_4 };

      content_1.dataint = 2;
      cob_procedure_params[0] = &content_fb_1;
      cob_glob_ptr->cob_call_params = 1;
      b_1 = cob_sys_sleep (content_1.data);
    }
  }

  /* Line: 1269      : DISPLAY            : GCic.cbl */
  cob_set_location (st_5, 1269, st_31, NULL, st_7);
  cob_screen_display (&s_230, NULL, NULL);

  /* Line: 1270      : STOP RUN           : GCic.cbl */
  cob_set_location (st_5, 1270, st_31, NULL, st_32);
  cob_stop_run (b_1);

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 26)
    goto *frame_ptr->return_address_ptr;

  /* Program exit */

  exit_program:

  /* Decrement module active count */
  if (module->module_active) {
    module->module_active--;
  }

  /* Pop module stack */
  cob_module_leave (module);

  /* Program return */
  return b_1;


  /* Paragraph Default Error Handler   */
  l_1:;

  if (!(cob_glob_ptr->cob_error_file->flag_select_features & COB_SELECT_FILE_STATUS)) {
    cob_fatal_error (COB_FERROR_FILE);
  }

  /* Implicit Default Error Handler return */
  if (frame_ptr->perform_through == 1)
    goto *frame_ptr->return_address_ptr;

  /* Fatal error if reached */
  cob_fatal_error (COB_FERROR_CODEGEN);


  /* Program initialization */
  P_initialize:

  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);

  cob_module_path = cob_glob_ptr->cob_main_argv0;

  /* Initialize module structure */
  module->module_name = "GCic";
  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
  module->module_source = COB_SOURCE_FILE;
  module->module_entry.funcptr = (void *(*)())GCic;
  module->module_cancel.funcptr = (void *(*)())GCic_;
  module->collating_sequence = NULL;
  module->crt_status = &f_356;
  module->cursor_pos = NULL;
  module->module_ref_count = NULL;
  module->module_path = &cob_module_path;
  module->module_active = 0;
  module->module_date = COB_MODULE_DATE;
  module->module_time = COB_MODULE_TIME;
  module->module_type = 0;
  module->module_param_cnt = 0;
  module->module_returning = 0;
  module->ebcdic_sign = 0;
  module->decimal_point = '.';
  module->currency_symbol = '$';
  module->numeric_separator = ',';
  module->flag_filename_mapping = 1;
  module->flag_binary_truncate = 1;
  module->flag_pretty_display = 1;
  module->flag_host_sign = 0;
  module->flag_no_phys_canc = 1;
  module->flag_main = 1;
  module->flag_fold_call = 0;
  module->flag_exit_program = 0;

  /* Initialize cancel callback */
  cob_set_cancel (module);

  /* Initialize WORKING-STORAGE */
  b_1 = 0;
  memset (b_112, 32, 152);
  memcpy (b_112 + 152, "BS2000", 6);
  memset (b_112 + 152 + 6, 32, 3);
  memcpy (b_112 + 161, "COBOL85  ", 9);
  memcpy (b_112 + 170, "COBOL2002", 9);
  memcpy (b_112 + 179, "DEFAULT  ", 9);
  memcpy (b_112 + 188, "IBM", 3);
  memset (b_112 + 188 + 3, 32, 6);
  memcpy (b_112 + 197, "MF", 2);
  memset (b_112 + 197 + 2, 32, 7);
  memcpy (b_112 + 206, "MVS", 3);
  memset (b_112 + 206 + 3, 32, 6);
  *(b_112 + 215) = 52;
  memset (b_112 + 216, 32, 152);
  *(b_112 + 368) = 48;
  *(b_112 + 369) = 48;
  *(b_112 + 370) = 48;
  *(b_112 + 371) = 48;
  *(b_112 + 372) = 48;
  *(b_112 + 373) = 49;
  *(b_112 + 374) = 49;
  *(b_112 + 375) = 48;
  *(b_112 + 376) = 49;
  memset (b_150, 32, 512);
  memset (b_151, 32, 256);
  *(cob_u8_ptr)(b_152) = 32;
  memset (b_153, 0, 4);
  memset (b_154, 32, 256);
  memset (b_155, 32, 12);
  memset (b_156, 32, 256);
  memset (b_157, 32, 256);
  memcpy (b_159, "Status Code: ", 13);
  memset (b_159 + 13, 48, 2);
  memcpy (b_159 + 15, ", Meaning: ", 11);
  memset (b_159 + 26, 32, 25);
  memset (b_164, 32, 80);
  memset (b_165, 0, 4);
  memset (b_166, 0, 4);
  *(b_167) = 48;
  memset (b_168, 32, 256);
  memset (b_169, 32, 27);
  cob_move (&cob_all_space, &f_170);
  *(cob_u8_ptr)(b_171) = 47;
  *(b_175) = 51;
  memcpy (b_180, "Windows", 7);
  memset (b_180 + 7, 32, 7);
  memcpy (b_180 + 14, "Windows/Cygwin", 14);
  memcpy (b_180 + 28, "UNIX/Linux", 10);
  memset (b_180 + 28 + 10, 32, 4);
  memcpy (b_180 + 42, "OSX", 3);
  memset (b_180 + 42 + 3, 32, 11);
  memcpy (b_180 + 56, "Windows/MinGW ", 14);
  memset (b_188, 32, 80);
  *(cob_u8_ptr)(b_189) = 32;
  memset (b_190, 32, 256);
  memset (b_191, 32, 256);
  memset (b_192, 32, 256);
  memset (b_194, 32, 31);
  memset (b_195, 32, 8);
  memset (b_221, 0, 4);
  memset (b_356, 48, 4);


  if (!h_F_COBC_OUTPUT_FILE)
  {
    h_F_COBC_OUTPUT_FILE = cob_cache_malloc (sizeof(cob_file));
  }
  h_F_COBC_OUTPUT_FILE->select_name = (const char *)"F-Cobc-Output-FILE";
  h_F_COBC_OUTPUT_FILE->file_status = h_F_COBC_OUTPUT_FILE_status;
  memset (h_F_COBC_OUTPUT_FILE_status, '0', 2);
  h_F_COBC_OUTPUT_FILE->assign = &f_168;
  h_F_COBC_OUTPUT_FILE->record = &f_22;
  h_F_COBC_OUTPUT_FILE->variable_record = NULL;
  h_F_COBC_OUTPUT_FILE->record_min = 0;
  h_F_COBC_OUTPUT_FILE->record_max = 256;
  h_F_COBC_OUTPUT_FILE->nkeys = 0;
  h_F_COBC_OUTPUT_FILE->keys = NULL;
  h_F_COBC_OUTPUT_FILE->file = NULL;
  h_F_COBC_OUTPUT_FILE->fd = -1;
  h_F_COBC_OUTPUT_FILE->organization = 1;
  h_F_COBC_OUTPUT_FILE->access_mode = 1;
  h_F_COBC_OUTPUT_FILE->lock_mode = 0;
  h_F_COBC_OUTPUT_FILE->open_mode = 0;
  h_F_COBC_OUTPUT_FILE->flag_optional = 0;
  h_F_COBC_OUTPUT_FILE->last_open_mode = 0;
  h_F_COBC_OUTPUT_FILE->flag_operation = 0;
  h_F_COBC_OUTPUT_FILE->flag_nonexistent = 0;
  h_F_COBC_OUTPUT_FILE->flag_end_of_file = 0;
  h_F_COBC_OUTPUT_FILE->flag_begin_of_file = 0;
  h_F_COBC_OUTPUT_FILE->flag_first_read = 0;
  h_F_COBC_OUTPUT_FILE->flag_read_done = 0;
  h_F_COBC_OUTPUT_FILE->flag_select_features = 0;
  h_F_COBC_OUTPUT_FILE->flag_needs_nl = 0;
  h_F_COBC_OUTPUT_FILE->flag_needs_top = 0;
  h_F_COBC_OUTPUT_FILE->file_version = 1;
  if (!h_F_SOURCE_CODE_FILE)
  {
    h_F_SOURCE_CODE_FILE = cob_cache_malloc (sizeof(cob_file));
  }
  h_F_SOURCE_CODE_FILE->select_name = (const char *)"F-Source-Code-FILE";
  h_F_SOURCE_CODE_FILE->file_status = h_F_SOURCE_CODE_FILE_status;
  memset (h_F_SOURCE_CODE_FILE_status, '0', 2);
  h_F_SOURCE_CODE_FILE->assign = &f_157;
  h_F_SOURCE_CODE_FILE->record = &f_24;
  h_F_SOURCE_CODE_FILE->variable_record = NULL;
  h_F_SOURCE_CODE_FILE->record_min = 0;
  h_F_SOURCE_CODE_FILE->record_max = 256;
  h_F_SOURCE_CODE_FILE->nkeys = 0;
  h_F_SOURCE_CODE_FILE->keys = NULL;
  h_F_SOURCE_CODE_FILE->file = NULL;
  h_F_SOURCE_CODE_FILE->fd = -1;
  h_F_SOURCE_CODE_FILE->organization = 1;
  h_F_SOURCE_CODE_FILE->access_mode = 1;
  h_F_SOURCE_CODE_FILE->lock_mode = 0;
  h_F_SOURCE_CODE_FILE->open_mode = 0;
  h_F_SOURCE_CODE_FILE->flag_optional = 0;
  h_F_SOURCE_CODE_FILE->last_open_mode = 0;
  h_F_SOURCE_CODE_FILE->flag_operation = 0;
  h_F_SOURCE_CODE_FILE->flag_nonexistent = 0;
  h_F_SOURCE_CODE_FILE->flag_end_of_file = 0;
  h_F_SOURCE_CODE_FILE->flag_begin_of_file = 0;
  h_F_SOURCE_CODE_FILE->flag_first_read = 0;
  h_F_SOURCE_CODE_FILE->flag_read_done = 0;
  h_F_SOURCE_CODE_FILE->flag_select_features = 1;
  h_F_SOURCE_CODE_FILE->flag_needs_nl = 0;
  h_F_SOURCE_CODE_FILE->flag_needs_top = 0;
  h_F_SOURCE_CODE_FILE->file_version = 1;

  /* Initialize SCREEN items */
  *(cob_u8_ptr)(b_230) = 32;
  *(cob_u8_ptr)(b_231) = 218;
  memset (b_231 + 1, 32, 78);
  *(cob_u8_ptr)(b_231 + 79) = 191;
  *(cob_u8_ptr)(b_231 + 80) = 179;
  *(cob_u8_ptr)(b_231 + 81) = 179;
  *(cob_u8_ptr)(b_231 + 82) = 179;
  *(cob_u8_ptr)(b_231 + 83) = 179;
  *(cob_u8_ptr)(b_231 + 84) = 192;
  memset (b_231 + 85, 32, 78);
  *(cob_u8_ptr)(b_231 + 163) = 217;
  *(cob_u8_ptr)(b_231 + 164) = 218;
  memset (b_231 + 165, 32, 65);
  *(cob_u8_ptr)(b_231 + 230) = 194;
  memset (b_231 + 231, 32, 12);
  *(cob_u8_ptr)(b_231 + 243) = 191;
  *(cob_u8_ptr)(b_231 + 244) = 179;
  *(cob_u8_ptr)(b_231 + 245) = 179;
  *(cob_u8_ptr)(b_231 + 246) = 179;
  *(cob_u8_ptr)(b_231 + 247) = 179;
  *(cob_u8_ptr)(b_231 + 248) = 179;
  *(cob_u8_ptr)(b_231 + 249) = 179;
  *(cob_u8_ptr)(b_231 + 250) = 179;
  *(cob_u8_ptr)(b_231 + 251) = 179;
  *(cob_u8_ptr)(b_231 + 252) = 179;
  *(cob_u8_ptr)(b_231 + 253) = 179;
  *(cob_u8_ptr)(b_231 + 254) = 179;
  *(cob_u8_ptr)(b_231 + 255) = 179;
  *(cob_u8_ptr)(b_231 + 256) = 179;
  *(cob_u8_ptr)(b_231 + 257) = 179;
  *(cob_u8_ptr)(b_231 + 258) = 179;
  *(cob_u8_ptr)(b_231 + 259) = 192;
  memset (b_231 + 260, 32, 65);
  *(cob_u8_ptr)(b_231 + 325) = 193;
  memset (b_231 + 326, 32, 12);
  *(cob_u8_ptr)(b_231 + 338) = 217;
  *(cob_u8_ptr)(b_231 + 339) = 218;
  memset (b_231 + 340, 32, 78);
  *(cob_u8_ptr)(b_231 + 418) = 191;
  *(cob_u8_ptr)(b_231 + 419) = 179;
  *(cob_u8_ptr)(b_231 + 420) = 179;
  *(cob_u8_ptr)(b_231 + 421) = 179;
  *(cob_u8_ptr)(b_231 + 422) = 179;
  *(cob_u8_ptr)(b_231 + 423) = 192;
  memset (b_231 + 424, 32, 78);
  *(cob_u8_ptr)(b_231 + 502) = 217;
  *(cob_u8_ptr)(b_231 + 503) = 218;
  memset (b_231 + 504, 32, 78);
  *(cob_u8_ptr)(b_231 + 582) = 191;
  *(cob_u8_ptr)(b_231 + 583) = 179;
  *(cob_u8_ptr)(b_231 + 584) = 179;
  *(cob_u8_ptr)(b_231 + 585) = 179;
  *(cob_u8_ptr)(b_231 + 586) = 179;
  *(cob_u8_ptr)(b_231 + 587) = 192;
  memset (b_231 + 588, 32, 78);
  *(cob_u8_ptr)(b_231 + 666) = 217;
  memcpy (b_231 + 667, " GCic (", 7);
  memset (b_231 + 674, 32, 16);
  memcpy (b_231 + 690, ") GNU COBOL 2.1 23NOV2013 Interactive Compilation", 49);
  memset (b_231 + 690 + 49, 32, 8);
  memset (b_231 + 747, 32, 80);
  memcpy (b_231 + 827, "Set/Clr Switches Via F1-F9; Set Config Via F12; Enter Key Compiles; Esc Quits", 77);
  memcpy (b_231 + 904, "Extra \"cobc\" Switches, If Any (\"-save-temps=xxx\" Prevents Listings):", 68);
  memcpy (b_231 + 972, "Program Execution Arguments, If Any:", 36);
  memcpy (b_231 + 1008, "F1", 2);
  memcpy (b_231 + 1010, "F9", 2);
  memcpy (b_231 + 1012, "F12", 3);
  memcpy (b_231 + 1015, "ENTER", 5);
  memcpy (b_231 + 1020, "ESC", 3);
  memcpy (b_231 + 1023, "Enter", 5);
  memcpy (b_231 + 1028, "Esc", 3);
  memcpy (b_231 + 1031, "Folder:", 7);
  memset (b_231 + 1031 + 7, 32, 3);
  memcpy (b_231 + 1041, "Filename: ", 10);
  memcpy (b_231 + 1051, ": Compile", 9);
  memset (b_231 + 1051 + 9, 32, 3);
  memcpy (b_231 + 1063, ":   Quit", 8);
  memset (b_231 + 1063 + 8, 32, 6);
  memset (b_231 + 1077, 32, 132);
  memcpy (b_231 + 1209, "F1", 2);
  memcpy (b_231 + 1211, "F2", 2);
  memcpy (b_231 + 1213, "F3", 2);
  memcpy (b_231 + 1215, "F4", 2);
  memcpy (b_231 + 1217, "F5", 2);
  memcpy (b_231 + 1219, "F6", 2);
  memcpy (b_231 + 1221, "F7", 2);
  memcpy (b_231 + 1223, "F8", 2);
  memcpy (b_231 + 1225, "F9", 2);
  memset (b_231 + 1227, 32, 9);
  memcpy (b_231 + 1236, "Assume WITH DEBUGGING MODE", 26);
  memcpy (b_231 + 1262, "Procedure+Statement Trace ", 26);
  memcpy (b_231 + 1288, "Make a Library (", 16);
  memcpy (b_231 + 1304, "SO)", 3);
  memcpy (b_231 + 1307, "Execute If Compilation OK ", 26);
  memset (b_231 + 1333, 32, 27);
  memcpy (b_231 + 1360, "\"FUNCTION\" Is Optional", 22);
  memset (b_231 + 1360 + 22, 32, 4);
  memcpy (b_231 + 1386, "Enable All Warnings", 19);
  memset (b_231 + 1386 + 19, 32, 7);
  memcpy (b_231 + 1412, "Source Is Free-Format", 21);
  memset (b_231 + 1412 + 21, 32, 5);
  memcpy (b_231 + 1438, "No COMP/BINARY Truncation ", 26);
  memcpy (b_231 + 1464, "Current", 7);
  memcpy (b_231 + 1471, "Config:", 7);
  memset (b_231 + 1478, 32, 314);
  cob_set_screen (&s_230, NULL, NULL, 
          NULL, NULL, &f_230, 
          NULL, (cob_field *)&c_61, (cob_field *)&c_61, 
          NULL, NULL, NULL, 
          1, 0, 0x80);
  cob_set_screen (&s_231, NULL, NULL, 
          &s_232, NULL, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          0, 0, 0x10);
  cob_set_screen (&s_232, &s_288, NULL, 
          &s_233, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_233, &s_234, NULL, 
          NULL, &s_232, NULL, 
          &f_233, (cob_field *)&c_65, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_234, &s_235, &s_233, 
          NULL, &s_232, &f_234, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_235, &s_236, &s_234, 
          NULL, &s_232, NULL, 
          &f_235, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_236, &s_237, &s_235, 
          NULL, &s_232, NULL, 
          &f_236, (cob_field *)&c_68, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_237, &s_238, &s_236, 
          NULL, &s_232, NULL, 
          &f_237, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_238, &s_239, &s_237, 
          NULL, &s_232, NULL, 
          &f_238, (cob_field *)&c_69, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_239, &s_240, &s_238, 
          NULL, &s_232, NULL, 
          &f_239, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_240, &s_241, &s_239, 
          NULL, &s_232, NULL, 
          &f_240, (cob_field *)&c_70, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_241, &s_242, &s_240, 
          NULL, &s_232, &f_241, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_242, &s_243, &s_241, 
          NULL, &s_232, NULL, 
          &f_242, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_243, &s_244, &s_242, 
          NULL, &s_232, NULL, 
          &f_243, (cob_field *)&c_71, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_244, &s_245, &s_243, 
          NULL, &s_232, &f_244, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_245, &s_246, &s_244, 
          NULL, &s_232, NULL, 
          &f_245, NULL, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_246, &s_247, &s_245, 
          NULL, &s_232, &f_246, 
          NULL, NULL, (cob_field *)&c_73, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_247, &s_248, &s_246, 
          NULL, &s_232, NULL, 
          &f_247, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_248, &s_249, &s_247, 
          NULL, &s_232, NULL, 
          &f_248, (cob_field *)&c_74, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_249, &s_250, &s_248, 
          NULL, &s_232, NULL, 
          &f_249, NULL, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_250, &s_251, &s_249, 
          NULL, &s_232, NULL, 
          &f_250, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_251, &s_252, &s_250, 
          NULL, &s_232, NULL, 
          &f_251, (cob_field *)&c_75, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_252, &s_253, &s_251, 
          NULL, &s_232, NULL, 
          &f_252, NULL, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_253, &s_254, &s_252, 
          NULL, &s_232, NULL, 
          &f_253, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_254, &s_255, &s_253, 
          NULL, &s_232, NULL, 
          &f_254, (cob_field *)&c_76, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_255, &s_256, &s_254, 
          NULL, &s_232, NULL, 
          &f_255, NULL, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_256, &s_257, &s_255, 
          NULL, &s_232, NULL, 
          &f_256, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_257, &s_258, &s_256, 
          NULL, &s_232, NULL, 
          &f_257, (cob_field *)&c_77, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_258, &s_259, &s_257, 
          NULL, &s_232, NULL, 
          &f_258, NULL, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_259, &s_260, &s_258, 
          NULL, &s_232, NULL, 
          &f_259, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_260, &s_261, &s_259, 
          NULL, &s_232, NULL, 
          &f_260, (cob_field *)&c_78, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_261, &s_262, &s_260, 
          NULL, &s_232, NULL, 
          &f_261, NULL, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_262, &s_263, &s_261, 
          NULL, &s_232, NULL, 
          &f_262, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_263, &s_264, &s_262, 
          NULL, &s_232, NULL, 
          &f_263, (cob_field *)&c_79, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_264, &s_265, &s_263, 
          NULL, &s_232, &f_264, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_265, &s_266, &s_264, 
          NULL, &s_232, NULL, 
          &f_265, NULL, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_266, &s_267, &s_265, 
          NULL, &s_232, &f_266, 
          NULL, NULL, (cob_field *)&c_73, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_267, &s_268, &s_266, 
          NULL, &s_232, NULL, 
          &f_267, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_268, &s_269, &s_267, 
          NULL, &s_232, NULL, 
          &f_268, (cob_field *)&c_80, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_269, &s_270, &s_268, 
          NULL, &s_232, &f_269, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_270, &s_271, &s_269, 
          NULL, &s_232, NULL, 
          &f_270, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_271, &s_272, &s_270, 
          NULL, &s_232, NULL, 
          &f_271, (cob_field *)&c_81, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_272, &s_273, &s_271, 
          NULL, &s_232, NULL, 
          &f_272, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_273, &s_274, &s_272, 
          NULL, &s_232, NULL, 
          &f_273, (cob_field *)&c_82, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_274, &s_275, &s_273, 
          NULL, &s_232, NULL, 
          &f_274, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_275, &s_276, &s_274, 
          NULL, &s_232, NULL, 
          &f_275, (cob_field *)&c_83, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_276, &s_277, &s_275, 
          NULL, &s_232, &f_276, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_277, &s_278, &s_276, 
          NULL, &s_232, NULL, 
          &f_277, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_278, &s_279, &s_277, 
          NULL, &s_232, NULL, 
          &f_278, (cob_field *)&c_84, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_279, &s_280, &s_278, 
          NULL, &s_232, &f_279, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_280, &s_281, &s_279, 
          NULL, &s_232, NULL, 
          &f_280, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_281, &s_282, &s_280, 
          NULL, &s_232, NULL, 
          &f_281, (cob_field *)&c_85, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_282, &s_283, &s_281, 
          NULL, &s_232, NULL, 
          &f_282, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_283, &s_284, &s_282, 
          NULL, &s_232, NULL, 
          &f_283, (cob_field *)&c_86, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_284, &s_285, &s_283, 
          NULL, &s_232, NULL, 
          &f_284, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_285, &s_286, &s_284, 
          NULL, &s_232, NULL, 
          &f_285, (cob_field *)&c_87, (cob_field *)&c_66, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_286, &s_287, &s_285, 
          NULL, &s_232, &f_286, 
          NULL, NULL, (cob_field *)&c_65, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_287, NULL, &s_286, 
          NULL, &s_232, NULL, 
          &f_287, NULL, (cob_field *)&c_67, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_288, &s_292, &s_232, 
          &s_289, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_61, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_289, &s_290, NULL, 
          NULL, &s_288, NULL, 
          &f_289, (cob_field *)&c_66, (cob_field *)&c_66, 
          (cob_field *)&c_62, (cob_field *)&c_61, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_290, &s_291, &s_289, 
          NULL, &s_288, &f_290, 
          NULL, NULL, (cob_field *)&c_74, 
          (cob_field *)&c_62, (cob_field *)&c_61, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_291, NULL, &s_290, 
          NULL, &s_288, NULL, 
          &f_291, NULL, (cob_field *)&c_88, 
          (cob_field *)&c_62, (cob_field *)&c_61, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_292, &s_294, &s_288, 
          &s_293, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_89, NULL, 
          0, 0, 0x1110);
  cob_set_screen (&s_293, NULL, NULL, 
          NULL, &s_292, &f_293, 
          NULL, (cob_field *)&c_88, (cob_field *)&c_66, 
          (cob_field *)&c_62, (cob_field *)&c_89, NULL, 
          1, 0, 0x1110);
  cob_set_screen (&s_294, &s_298, &s_292, 
          &s_295, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_90, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_295, &s_296, NULL, 
          NULL, &s_294, NULL, 
          &f_295, (cob_field *)&c_91, (cob_field *)&c_65, 
          (cob_field *)&c_90, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_296, &s_297, &s_295, 
          NULL, &s_294, NULL, 
          &f_296, (cob_field *)&c_92, (cob_field *)&c_65, 
          (cob_field *)&c_90, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_297, NULL, &s_296, 
          NULL, &s_294, NULL, 
          &f_297, (cob_field *)&c_93, (cob_field *)&c_65, 
          (cob_field *)&c_90, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_298, &s_304, &s_294, 
          &s_299, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_299, &s_300, NULL, 
          NULL, &s_298, NULL, 
          &f_299, (cob_field *)&c_91, (cob_field *)&c_87, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_300, &s_301, &s_299, 
          NULL, &s_298, NULL, 
          &f_300, NULL, (cob_field *)&c_94, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_301, &s_302, &s_300, 
          NULL, &s_298, NULL, 
          &f_301, NULL, (cob_field *)&c_95, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_302, &s_303, &s_301, 
          NULL, &s_298, NULL, 
          &f_302, NULL, (cob_field *)&c_96, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_303, NULL, &s_302, 
          NULL, &s_298, NULL, 
          &f_303, NULL, (cob_field *)&c_97, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_304, &s_307, &s_298, 
          &s_305, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_305, &s_306, NULL, 
          NULL, &s_304, NULL, 
          &f_305, (cob_field *)&c_68, (cob_field *)&c_98, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_306, NULL, &s_305, 
          NULL, &s_304, NULL, 
          &f_306, (cob_field *)&c_69, (cob_field *)&c_98, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_307, &s_312, &s_304, 
          &s_308, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_308, &s_309, NULL, 
          NULL, &s_307, NULL, 
          &f_308, (cob_field *)&c_69, (cob_field *)&c_68, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_309, &s_310, &s_308, 
          NULL, &s_307, NULL, 
          &f_309, (cob_field *)&c_68, (cob_field *)&c_68, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_310, &s_311, &s_309, 
          NULL, &s_307, NULL, 
          &f_310, (cob_field *)&c_68, (cob_field *)&c_72, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_311, NULL, &s_310, 
          NULL, &s_307, NULL, 
          &f_311, (cob_field *)&c_69, (cob_field *)&c_99, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_312, &s_315, &s_307, 
          &s_313, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_313, &s_314, NULL, 
          NULL, &s_312, &f_313, 
          NULL, (cob_field *)&c_68, (cob_field *)&c_79, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_314, NULL, &s_313, 
          NULL, &s_312, &f_314, 
          NULL, (cob_field *)&c_69, (cob_field *)&c_79, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_315, &s_325, &s_312, 
          &s_316, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_316, &s_317, NULL, 
          NULL, &s_315, NULL, 
          &f_316, (cob_field *)&c_74, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_317, &s_318, &s_316, 
          NULL, &s_315, NULL, 
          &f_317, (cob_field *)&c_75, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_318, &s_319, &s_317, 
          NULL, &s_315, NULL, 
          &f_318, (cob_field *)&c_76, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_319, &s_320, &s_318, 
          NULL, &s_315, NULL, 
          &f_319, (cob_field *)&c_77, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_320, &s_321, &s_319, 
          NULL, &s_315, NULL, 
          &f_320, (cob_field *)&c_78, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_321, &s_322, &s_320, 
          NULL, &s_315, NULL, 
          &f_321, (cob_field *)&c_74, (cob_field *)&c_100, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_322, &s_323, &s_321, 
          NULL, &s_315, NULL, 
          &f_322, (cob_field *)&c_75, (cob_field *)&c_100, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_323, &s_324, &s_322, 
          NULL, &s_315, NULL, 
          &f_323, (cob_field *)&c_76, (cob_field *)&c_100, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_324, NULL, &s_323, 
          NULL, &s_315, NULL, 
          &f_324, (cob_field *)&c_77, (cob_field *)&c_100, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_325, &s_335, &s_315, 
          &s_326, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_326, &s_327, NULL, 
          NULL, &s_325, &f_326, 
          NULL, (cob_field *)&c_74, (cob_field *)&c_91, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_327, &s_328, &s_326, 
          NULL, &s_325, &f_327, 
          NULL, (cob_field *)&c_75, (cob_field *)&c_91, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_328, &s_329, &s_327, 
          NULL, &s_325, &f_328, 
          NULL, (cob_field *)&c_76, (cob_field *)&c_91, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_329, &s_330, &s_328, 
          NULL, &s_325, &f_329, 
          NULL, (cob_field *)&c_77, (cob_field *)&c_91, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_330, &s_331, &s_329, 
          NULL, &s_325, &f_330, 
          NULL, (cob_field *)&c_78, (cob_field *)&c_91, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_331, &s_332, &s_330, 
          NULL, &s_325, &f_331, 
          NULL, (cob_field *)&c_74, (cob_field *)&c_101, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_332, &s_333, &s_331, 
          NULL, &s_325, &f_332, 
          NULL, (cob_field *)&c_75, (cob_field *)&c_101, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_333, &s_334, &s_332, 
          NULL, &s_325, &f_333, 
          NULL, (cob_field *)&c_76, (cob_field *)&c_101, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_334, NULL, &s_333, 
          NULL, &s_325, &f_334, 
          NULL, (cob_field *)&c_77, (cob_field *)&c_101, 
          (cob_field *)&c_89, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_335, &s_346, &s_325, 
          &s_336, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_336, &s_337, NULL, 
          NULL, &s_335, NULL, 
          &f_336, (cob_field *)&c_74, (cob_field *)&c_71, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_337, &s_338, &s_336, 
          NULL, &s_335, NULL, 
          &f_337, (cob_field *)&c_75, (cob_field *)&c_71, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_338, &s_339, &s_337, 
          NULL, &s_335, NULL, 
          &f_338, (cob_field *)&c_76, (cob_field *)&c_71, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_339, &s_340, &s_338, 
          NULL, &s_335, NULL, 
          &f_339, NULL, (cob_field *)&c_87, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_340, &s_341, &s_339, 
          NULL, &s_335, NULL, 
          &f_340, (cob_field *)&c_77, (cob_field *)&c_71, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_341, &s_342, &s_340, 
          NULL, &s_335, &f_341, 
          NULL, (cob_field *)&c_78, (cob_field *)&c_71, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_342, &s_343, &s_341, 
          NULL, &s_335, NULL, 
          &f_342, (cob_field *)&c_74, (cob_field *)&c_102, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_343, &s_344, &s_342, 
          NULL, &s_335, NULL, 
          &f_343, (cob_field *)&c_75, (cob_field *)&c_102, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_344, &s_345, &s_343, 
          NULL, &s_335, NULL, 
          &f_344, (cob_field *)&c_76, (cob_field *)&c_102, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_345, NULL, &s_344, 
          NULL, &s_335, NULL, 
          &f_345, (cob_field *)&c_77, (cob_field *)&c_102, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_346, &s_349, &s_335, 
          &s_347, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_347, &s_348, NULL, 
          NULL, &s_346, NULL, 
          &f_347, (cob_field *)&c_74, (cob_field *)&c_103, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_348, NULL, &s_347, 
          NULL, &s_346, NULL, 
          &f_348, (cob_field *)&c_75, (cob_field *)&c_103, 
          (cob_field *)&c_64, (cob_field *)&c_63, NULL, 
          2, 0, 0x1010);
  cob_set_screen (&s_349, &s_351, &s_346, 
          &s_350, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_350, NULL, NULL, 
          NULL, &s_349, &f_350, 
          NULL, (cob_field *)&c_76, (cob_field *)&c_103, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          1, 0, 0x1010);
  cob_set_screen (&s_351, NULL, &s_349, 
          &s_352, &s_231, NULL, 
          NULL, NULL, NULL, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          0, 0, 0x1010);
  cob_set_screen (&s_352, &s_353, NULL, 
          NULL, &s_351, &f_352, 
          NULL, (cob_field *)&c_81, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          1, 0, 0x201010);
  cob_set_screen (&s_353, &s_354, &s_352, 
          NULL, &s_351, &f_353, 
          NULL, (cob_field *)&c_82, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          1, 0, 0x201010);
  cob_set_screen (&s_354, &s_355, &s_353, 
          NULL, &s_351, &f_354, 
          NULL, (cob_field *)&c_85, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          1, 0, 0x201010);
  cob_set_screen (&s_355, NULL, &s_354, 
          NULL, &s_351, &f_355, 
          NULL, (cob_field *)&c_86, (cob_field *)&c_68, 
          (cob_field *)&c_62, (cob_field *)&c_63, NULL, 
          1, 0, 0x201010);

  initialized = 1;
  goto P_ret_initialize;

  /* CANCEL callback handling */
  P_cancel:

  if (!initialized) {
    return 0;
  }
  if (module->module_active) {
    cob_fatal_error (COB_FERROR_CANCEL);
  }

  initialized = 0;
  return 0;

}

Here is the caller graph for this function:

int 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
	)

Definition at line 3865 of file GCic.c.

References LISTING_().

Referenced by LISTING_().

{
  return LISTING_ (0, b_1285, b_1286, b_1287, b_1288, b_1289, b_1290);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int LISTING_ ( const int  entry, 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  )

static

Definition at line 3871 of file GCic.c.

References a_1, a_11, cob_file::access_mode, cob_file::assign, b_1223, b_377, c_104, c_105, c_106, c_107, c_108, c_109, c_11, c_110, c_111, c_112, c_113, c_114, c_115, c_116, c_117, c_118, c_119, c_120, c_121, c_122, c_123, c_124, c_125, c_126, c_127, c_128, c_129, c_130, c_131, c_132, c_133, c_134, c_135, c_136, c_137, c_138, c_139, c_140, c_141, c_142, c_143, c_144, c_145, c_146, c_147, c_148, c_149, c_15, c_150, c_151, c_152, c_153, c_154, c_155, c_156, c_157, c_158, c_159, c_160, c_161, c_162, c_163, c_164, c_165, c_166, c_167, c_168, c_169, c_170, c_171, c_172, c_173, c_174, c_175, c_176, c_177, c_178, c_179, c_180, c_181, c_182, c_183, c_184, c_185, c_186, c_187, c_2, c_23, c_59, c_8, c_9, cob_accept_date_yyyymmdd(), cob_add_int(), cob_all_space, cob_all_zero, cob_cache_free(), cob_cache_malloc(), __cob_global::cob_call_params, cob_check_version(), cob_close(), COB_CLOSE_NORMAL, cob_cmp(), cob_cmp_numdisp(), cob_cmp_s32(), cob_decimal_alloc(), cob_decimal_get_field(), cob_decimal_set_field(), cob_decimal_set_llint(), cob_decimal_sub(), __cob_global::cob_error_file, __cob_global::cob_exception_code, cob_fatal_error(), COB_FERROR_CANCEL, COB_FERROR_CODEGEN, COB_FERROR_FILE, COB_FERROR_STACK, cob_file_release(), cob_file_return(), cob_file_sort_close(), cob_file_sort_init(), cob_file_sort_init_key(), cob_get_environment(), cob_get_llint(), cob_get_numdisp(), cob_glob_ptr, cob_inspect_all(), cob_inspect_converting(), cob_inspect_finish(), cob_inspect_init(), cob_inspect_start(), cob_intr_length(), cob_intr_lower_case(), cob_intr_numval(), cob_intr_trim(), cob_intr_upper_case(), __cob_global::cob_main_argv0, COB_MODULE_DATE, cob_module_enter(), COB_MODULE_FORMATTED_DATE, cob_module_leave(), cob_module_path, COB_MODULE_TIME, cob_move(), cob_open(), COB_PACKAGE_VERSION, COB_PATCH_LEVEL, cob_procedure_params, __cob_module::cob_procedure_params, cob_read_next(), COB_SELECT_FILE_STATUS, cob_set_cancel(), COB_SET_DATA, COB_SET_FLD, cob_set_location(), COB_SOURCE_FILE, cob_string_append(), cob_string_delimited(), cob_string_finish(), cob_string_init(), cob_sys_check_file_exist(), cob_sys_justify(), cob_u8_ptr, cob_unstring_delimited(), cob_unstring_finish(), cob_unstring_init(), cob_unstring_into(), cob_write(), __cob_module::collating_sequence, __cob_module::crt_status, __cob_module::currency_symbol, __cob_module::cursor_pos, d0, d1, __cob_module::decimal_point, __cob_module::ebcdic_sign, f0, f_1235, f_1240, f_1242, f_1244, f_1246, f_1247, f_1248, f_1249, f_1250, f_1251, f_1252, f_1253, f_1254, f_1255, f_1256, f_1257, f_1258, f_1270, f_1271, f_1276, f_1284, f_1285, f_1286, f_382, f_384, f_388, f_389, f_390, f_392, f_397, f_400, f_401, f_402, f_403, f_406, f_407, f_408, f_410, f_411, f_412, f_422, f_427, f_431, f_433, f_434, f_435, f_436, f_437, f_440, f_444, f_445, f_447, f_448, f_449, f_450, f_451, f_461, f_462, f_464, f_465, cob_file::fd, cob_file::file, cob_file::file_status, cob_file::file_version, cob_file::flag_begin_of_file, __cob_module::flag_binary_truncate, cob_file::flag_end_of_file, __cob_module::flag_exit_program, __cob_module::flag_filename_mapping, cob_file::flag_first_read, __cob_module::flag_fold_call, __cob_module::flag_host_sign, __cob_module::flag_main, cob_file::flag_needs_nl, cob_file::flag_needs_top, __cob_module::flag_no_phys_canc, cob_file::flag_nonexistent, cob_file::flag_operation, cob_file::flag_optional, __cob_module::flag_pretty_display, cob_file::flag_read_done, cob_file::flag_select_features, frame_overflow, frame_ptr, frame_stack, cob_call_union::funcptr, h_F_EXPANDED_SRC_FILE, h_F_EXPANDED_SRC_FILE_status, h_F_LISTING_FILE, h_F_LISTING_FILE_status, h_F_ORIGINAL_SRC_FILE, h_F_ORIGINAL_SRC_FILE_status, h_F_SORT_WORK_FILE, h_F_SORT_WORK_FILE_status, i1, initialized, cob_file::keys, cob_file::last_open_mode, LISTING(), cob_file::lock_mode, module, __cob_module::module_active, __cob_module::module_cancel, __cob_module::module_date, __cob_module::module_entry, __cob_module::module_formatted_date, __cob_module::module_name, __cob_module::module_num_params, __cob_module::module_param_cnt, __cob_module::module_path, __cob_module::module_ref_count, __cob_module::module_returning, __cob_module::module_source, __cob_module::module_time, __cob_module::module_type, n0, n1, n2, n3, cob_file::nkeys, NULL, __cob_module::numeric_separator, cob_file::open_mode, cob_file::organization, cob_frame::perform_through, cob_file::record, cob_file::record_max, cob_file::record_min, cob_frame::return_address_ptr, cob_file::select_name, st_10, st_11, st_12, st_13, st_14, st_15, st_16, st_17, st_18, st_21, st_22, st_23, st_24, st_28, st_29, st_3, st_33, st_34, st_35, st_36, st_37, st_38, st_39, st_4, st_40, st_41, st_42, st_43, st_44, st_45, st_46, st_47, st_48, st_49, st_5, st_50, st_51, st_52, st_53, st_54, st_55, st_56, st_57, st_58, st_59, st_6, st_60, st_61, st_62, st_63, st_64, st_65, st_66, st_67, st_68, st_69, st_70, st_71, st_72, st_73, st_74, st_75, st_76, st_77, st_78, st_79, st_8, st_80, st_81, st_82, st_83, st_9, unlikely, and cob_file::variable_record.

Referenced by LISTING().

{
  /* Program local variables */
  #include "GCic.c.l3.h"

  /* Start of function code */

  /* CANCEL callback */
  if (unlikely(entry < 0)) {
    goto P_cancel;
  }

  /* Check initialized, check module allocated, */
  /* set global pointer, */
  /* push module stack, save call parameter count */
  cob_module_enter (&module, &cob_glob_ptr, 0);

  /* Set address of module parameter list */
  module->cob_procedure_params = cob_procedure_params;

  /* Set frame stack pointer */
  frame_ptr = frame_stack;
  frame_ptr->perform_through = 0;
  frame_overflow = frame_ptr + 255 - 1;

  /* Initialize rest of program */
  if (unlikely(initialized == 0)) {
    goto P_initialize;
  }
  P_ret_initialize:

  /* Allocate decimal numbers */
  cob_decimal_alloc (2, &d0, &d1);

  /* Increment module active */
  module->module_active++;

  /* Save number of call params */
  module->module_num_params = cob_glob_ptr->cob_call_params;

  /* Entry dispatch */
  goto l_32;

  /* PROCEDURE DIVISION */

  /* Line: 2412      : Entry     LISTING                 : GCic.cbl */
  l_32:;

  /* Line: 2412      : Section   000-Main                : GCic.cbl */

  /* Line: 2413      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2413, st_9, NULL, st_10);
  /* PERFORM 100-Initialization */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 35;
  frame_ptr->return_address_ptr = &&l_183;
  goto l_35;
  l_183:
  frame_ptr--;

  /* Line: 2414      : OPEN               : GCic.cbl */
  cob_set_location (st_5, 2414, st_9, NULL, st_22);
  cob_open (h_F_LISTING_FILE, 2, 0, NULL);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_184;
    goto l_1;
    l_184:
    frame_ptr--;
  }

  /* Line: 2415      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2415, st_9, NULL, st_10);
  /* PERFORM 500-Produce-Source-Listing */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 143;
  frame_ptr->return_address_ptr = &&l_185;
  goto l_143;
  l_185:
  frame_ptr--;

  /* Line: 2416      : SORT               : GCic.cbl */
  cob_set_location (st_5, 2416, st_9, NULL, st_33);
  cob_file_sort_init (h_F_SORT_WORK_FILE, 3, 0, b_378, NULL);
  cob_file_sort_init_key (h_F_SORT_WORK_FILE, &f_402, 0, 0);
  cob_file_sort_init_key (h_F_SORT_WORK_FILE, &f_403, 0, 15);
  cob_file_sort_init_key (h_F_SORT_WORK_FILE, &f_408, 0, 100);
  /* PERFORM 300-Tokenize-Source */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 37;
  frame_ptr->return_address_ptr = &&l_186;
  goto l_37;
  l_186:
  frame_ptr--;
  /* PERFORM 400-Produce-Xref-Listing */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 135;
  frame_ptr->return_address_ptr = &&l_187;
  goto l_135;
  l_187:
  frame_ptr--;
  cob_file_sort_close (h_F_SORT_WORK_FILE);

  /* Line: 2422      : CLOSE              : GCic.cbl */
  cob_set_location (st_5, 2422, st_9, NULL, st_24);
  cob_close (h_F_LISTING_FILE, NULL, 0, 0);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_188;
    goto l_1;
    l_188:
    frame_ptr--;
  }

  /* Line: 2424      : GOBACK             : GCic.cbl */
  cob_set_location (st_5, 2424, st_9, NULL, st_8);
  goto exit_program;

  /* Line: 2429      : Section   100-Initialization      : GCic.cbl */
  l_35:;

  /* Line: 2430      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2430, st_12, NULL, st_4);
  (*(int *)(b_461)) = 0;

  /* Line: 2431      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2431, st_12, NULL, st_4);
  *(b_438) = 78;

  /* Line: 2432      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2432, st_12, NULL, st_4);
  memset (b_411, 32, 86);

  /* Line: 2433      : STRING             : GCic.cbl */
  cob_set_location (st_5, 2433, st_12, NULL, st_21);
  cob_string_init (&f_411, NULL);
  cob_string_delimited (NULL);
  cob_string_append ((cob_field *)&c_104);
  cob_string_delimited (&cob_all_space);
  cob_string_append (COB_SET_FLD(f0, 14, b_453 + 14 * (cob_get_numdisp (b_1287, 1) - 1), &a_1));
  cob_string_delimited (NULL);
  cob_string_append ((cob_field *)&c_105);
  cob_string_finish ();

  /* Line: 2438      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2438, st_12, NULL, st_4);
  memcpy (b_1270, "GNU COBOL 2.1 23NOV2013", 23);

  /* Line: 2439      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2439, st_12, NULL, st_4);
  cob_move (cob_intr_trim (0, 0, COB_SET_DATA (f_1286, b_1286), 1), COB_SET_DATA (f_1286, b_1286));

  /* Line: 2440      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2440, st_12, NULL, st_10);
  cob_move (cob_intr_length (COB_SET_DATA (f_1286, b_1286)), &f_445);
  for (;;)
  {
    if (((((int)(int)(*(b_1286 + ((*(int *)(b_445)) - 1)) - 47) == 0) || 
        ((int)(int)(*(b_1286 + ((*(int *)(b_445)) - 1)) - 92) == 0)) || 
        ((int)cob_cmp_s32 (b_445, 0LL) == 0)))
      break;
    ;
    (*(int *)(b_445)) = ((*(int *)(b_445)) + -1);
  }

  /* Line: 2444      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2444, st_12, NULL, st_6);
  if (((int)cob_cmp_s32 (b_445, 0LL) == 0))
  {

    /* Line: 2445      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2445, st_12, NULL, st_4);
    cob_move (cob_intr_upper_case (0, 0, COB_SET_DATA (f_1286, b_1286)), &f_450);
  }
  else
  {
    /* ELSE */

    /* Line: 2447      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2447, st_12, NULL, st_15);
    (*(int *)(b_445)) = ((*(int *)(b_445)) + 1);

    /* Line: 2448      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2448, st_12, NULL, st_4);
    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);
  }

  /* Line: 2451      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2451, st_12, NULL, st_6);
  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
  {

    /* Line: 2452      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2452, st_12, NULL, st_4);
    *(b_1284) = 56;

    /* Line: 2453      : ACCEPT             : GCic.cbl */
    cob_set_location (st_5, 2453, st_12, NULL, st_14);
    cob_get_environment ((cob_field *)&c_106, &f_449);
  }
  else
  {
    /* ELSE */

    /* Line: 2456      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2456, st_12, NULL, st_4);
    *(b_1284) = 51;

    /* Line: 2457      : ACCEPT             : GCic.cbl */
    cob_set_location (st_5, 2457, st_12, NULL, st_14);
    cob_get_environment ((cob_field *)&c_107, &f_449);
  }

  /* Line: 2460      : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 2460, st_12, NULL, st_13);
  cob_inspect_init (COB_SET_DATA (f_1286, b_1286), 1);
  cob_inspect_start ();
  cob_inspect_all ((cob_field *)&c_9, (cob_field *)&c_108);
  cob_inspect_finish ();

  /* Line: 2461      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2461, st_12, NULL, st_4);
  memmove (b_465, b_1286, 135);

  /* Line: 2462      : CALL               : GCic.cbl */
  cob_set_location (st_5, 2462, st_12, NULL, st_18);
  cob_procedure_params[0] = &f_465;
  cob_procedure_params[1] = (cob_field *)&c_109;
  cob_glob_ptr->cob_call_params = 2;
  b_377 = cob_sys_justify (b_465, (cob_u8_ptr)"Right");

  /* Line: 2463      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2463, st_12, NULL, st_4);
  cob_move (cob_intr_length (cob_intr_trim (0, 0, COB_SET_DATA (f_1286, b_1286), 2)), &f_445);

  /* Line: 2464      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2464, st_12, NULL, st_4);
  (*(int *)(b_446)) = 0;

  /* Line: 2465      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2465, st_12, NULL, st_10);
  for (;;)
  {
    if ((((int)(int)(*(b_1286 + ((*(int *)(b_445)) - 1)) - 47) == 0) || 
        ((int)cob_cmp_s32 (b_445, 0LL) == 0)))
      break;

    /* Line: 2467      : SUBTRACT           : GCic.cbl */
    cob_set_location (st_5, 2467, st_12, NULL, st_17);
    (*(int *)(b_445)) = ((*(int *)(b_445)) - 1);

    /* Line: 2468      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2468, st_12, NULL, st_15);
    (*(int *)(b_446)) = ((*(int *)(b_446)) + 1);
  }

  /* Line: 2470      : UNSTRING           : GCic.cbl */
  cob_set_location (st_5, 2470, st_12, NULL, st_16);
  cob_unstring_init (COB_SET_FLD(f0, (*(int *)(b_446)), b_1286 + (((*(int *)(b_445)) + 1) - 1), &a_1), NULL, 1);
  cob_unstring_delimited ((cob_field *)&c_110, 0);
  cob_unstring_into (&f_437, 0, 0);
  cob_unstring_into (&f_435, 0, 0);
  cob_unstring_finish ();

  /* Line: 2474      : STRING             : GCic.cbl */
  cob_set_location (st_5, 2474, st_12, NULL, st_21);
  cob_string_init (&f_436, NULL);
  cob_string_delimited (NULL);
  cob_string_append (cob_intr_trim (0, 0, &f_437, 2));
  cob_string_append ((cob_field *)&c_59);
  cob_string_finish ();

  /* Line: 2479      : CALL               : GCic.cbl */
  cob_set_location (st_5, 2479, st_12, NULL, st_18);
  cob_procedure_params[0] = &f_436;
  cob_procedure_params[1] = &f_1253;
  cob_glob_ptr->cob_call_params = 2;
  b_377 = cob_sys_check_file_exist (b_436, b_1253);

  /* Line: 2481      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2481, st_12, NULL, st_6);
  if (((int)(b_377 - 0) != 0))
  {

    /* Line: 2483      : GOBACK             : GCic.cbl */
    cob_set_location (st_5, 2483, st_12, NULL, st_8);
    goto exit_program;
  }

  /* Line: 2484      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2484, st_12, NULL, st_6);
  if (((int)cob_cmp (&f_449, &cob_all_space) != 0))
  {

    /* Line: 2485      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2485, st_12, NULL, st_4);
    cob_move (cob_intr_numval (&f_449), &f_448);
  }
  else
  {
    /* ELSE */

    /* Line: 2488      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2488, st_12, NULL, st_6);
    if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
    {

      /* Line: 2489      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2489, st_12, NULL, st_4);
      memmove (b_448, b_1288, 4);
    }
    else
    {
      /* ELSE */

      /* Line: 2491      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2491, st_12, NULL, st_4);
      memmove (b_448, b_1289, 4);
    }
  }

  /* Line: 2494      : SUBTRACT           : GCic.cbl */
  cob_set_location (st_5, 2494, st_12, NULL, st_17);
  (*(int *)(b_448)) = ((*(int *)(b_448)) - 3);

  /* Line: 2495      : ACCEPT             : GCic.cbl */
  cob_set_location (st_5, 2495, st_12, NULL, st_14);
  cob_accept_date_yyyymmdd (&f_1254);

  /* Line: 2496      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2496, st_12, NULL, st_4);
  cob_move (&f_1254, &f_440);

  /* Line: 2497      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2497, st_12, NULL, st_4);
  memcpy (b_423, "\?\?\?\?\?\?\?\?\?\?\?\?... ", 16);

  /* Line: 2498      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2498, st_12, NULL, st_4);
  memset (b_433, 32, 12);
  memset (b_444, 32, 100);

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 35)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2502      : Section   300-Tokenize-Source     : GCic.cbl */
  l_37:;

  /* Line: 2503      : OPEN               : GCic.cbl */
  cob_set_location (st_5, 2503, st_34, NULL, st_22);
  cob_open (h_F_EXPANDED_SRC_FILE, 1, 0, NULL);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_189;
    goto l_1;
    l_189:
    frame_ptr--;
  }

  /* Line: 2504      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2504, st_34, NULL, st_4);
  memset (b_388, 32, 257);

  /* Line: 2505      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2505, st_34, NULL, st_4);
  (*(int *)(b_1246)) = 256;

  /* Line: 2506      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2506, st_34, NULL, st_4);
  (*(int *)(b_1269)) = 0;
  memset (b_422, 48, 6);

  /* Line: 2508      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2508, st_34, NULL, st_4);
  *(b_417) = 63;

  /* Line: 2509      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2509, st_34, NULL, st_4);
  *(b_1226 + 5) = 78;

  /* Line: 2510      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2510, st_34, NULL, st_10);
  for (;;)
  {

    /* Line: 2511      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2511, st_34, NULL, st_10);
    /* PERFORM 310-Get-Token */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 41;
    frame_ptr->return_address_ptr = &&l_190;
    goto l_41;
    l_190:
    frame_ptr--;

    /* Line: 2512      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2512, st_34, NULL, st_6);
    if (((int)(int)(*(b_1259) - 255) == 0))
    {

      /* Line: 2513      : EXIT PERFORM       : GCic.cbl */
      cob_set_location (st_5, 2513, st_34, NULL, st_35);
      goto l_39;
    }

    /* Line: 2515      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2515, st_34, NULL, st_4);
    cob_move (cob_intr_upper_case (0, 0, &f_1255), &f_1256);

    /* Line: 2517      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2517, st_34, NULL, st_6);
    if ((((((int)(int)(*(b_1259) - 75) == 0) || 
        ((int)(int)(*(b_1259) - 86) == 0)) || 
        ((int)(int)(*(b_1259) - 65) == 0)) || 
        (((int)(int)(*(b_1259) - 32) == 0) || 
        ((int)(int)(*(b_1259) - 70) == 0))))
    {

      /* Line: 2519      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2519, st_34, NULL, st_4);
      memcpy (b_1255, b_1256, 32);
    }

    /* Line: 2521      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2521, st_34, NULL, st_6);
    if (((int)(int)(*(b_1259) - 86) == 0))
    {

      /* Line: 2522      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2522, st_34, NULL, st_4);
      memcpy (b_433, b_1256, 12);
      memcpy (b_1257, b_1256, 32);

      /* Line: 2524      : IF                 : GCic.cbl */
      cob_set_location (st_5, 2524, st_34, NULL, st_6);
      if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
      {

        /* Line: 2525      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 2525, st_34, NULL, st_4);
        cob_move (&f_444, &f_401);

        /* Line: 2526      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 2526, st_34, NULL, st_4);
        memset (b_444, 32, 100);

        /* Line: 2527      : RELEASE            : GCic.cbl */
        cob_set_location (st_5, 2527, st_34, NULL, st_36);
        cob_file_release (h_F_SORT_WORK_FILE);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_191;
          goto l_1;
          l_191:
          frame_ptr--;
        }
      }
    }

    /* Line: 2530      : EVALUATE           : GCic.cbl */
    cob_set_location (st_5, 2530, st_34, NULL, st_3);

    /* WHEN */

    if (((((int)(int)(*(b_417) - 105) == 0) || 
        ((int)(int)(*(b_417) - 73) == 0)) || 
        ((int)(int)(*(b_417) - 63) == 0)))
    {

      /* Line: 2532      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2532, st_34, NULL, st_10);
      /* PERFORM 320-IDENTIFICATION-DIVISION */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 51;
      frame_ptr->return_address_ptr = &&l_192;
      goto l_51;
      l_192:
      frame_ptr--;
      goto l_40;
    }

    /* WHEN */

    if ((((int)(int)(*(b_417) - 101) == 0) || 
        ((int)(int)(*(b_417) - 69) == 0)))
    {

      /* Line: 2534      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2534, st_34, NULL, st_10);
      /* PERFORM 330-ENVIRONMENT-DIVISION */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 54;
      frame_ptr->return_address_ptr = &&l_193;
      goto l_54;
      l_193:
      frame_ptr--;
      goto l_40;
    }

    /* WHEN */

    if ((((int)(int)(*(b_417) - 100) == 0) || 
        ((int)(int)(*(b_417) - 68) == 0)))
    {

      /* Line: 2536      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2536, st_34, NULL, st_10);
      /* PERFORM 340-DATA-DIVISION */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 57;
      frame_ptr->return_address_ptr = &&l_194;
      goto l_57;
      l_194:
      frame_ptr--;
      goto l_40;
    }

    /* WHEN */

    if ((((int)(int)(*(b_417) - 112) == 0) || 
        ((int)(int)(*(b_417) - 80) == 0)))
    {

      /* Line: 2538      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2538, st_34, NULL, st_10);
      /* PERFORM 350-PROCEDURE-DIVISION */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 61;
      frame_ptr->return_address_ptr = &&l_195;
      goto l_61;
      l_195:
      frame_ptr--;
      goto l_40;
    }

    /* End EVALUATE */
    l_40:;

    /* Line: 2540      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2540, st_34, NULL, st_6);
    if (((((int)(int)(*(b_1259) - 75) == 0) || 
        ((int)(int)(*(b_1259) - 86) == 0)) || 
        ((int)(int)(*(b_1259) - 65) == 0)))
    {

      /* Line: 2541      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2541, st_34, NULL, st_4);
      memcpy (b_1257, b_1256, 32);
    }

    /* Line: 2543      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2543, st_34, NULL, st_6);
    if ((((int)(int)(*(b_1226 + 4) - 89) == 0) && 
        ((int)(int)(*(b_417) - 73) != 0)))
    {

      /* Line: 2545      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2545, st_34, NULL, st_4);
      memset (b_1257, 32, 32);
      memset (b_433, 32, 12);
    }
  }

  /* Implicit EXIT label */
  l_39:;

  /* Line: 2550      : CLOSE              : GCic.cbl */
  cob_set_location (st_5, 2550, st_34, NULL, st_24);
  cob_close (h_F_EXPANDED_SRC_FILE, NULL, 0, 0);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_196;
    goto l_1;
    l_196:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 37)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2553      : Section   310-Get-Token           : GCic.cbl */
  l_41:;

  /* Line: 2555      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2555, st_37, NULL, st_4);
  *(b_1226 + 2) = *(b_1226 + 4);

  /* Line: 2557      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2557, st_37, NULL, st_4);
  *(b_1226 + 4) = 78;

  /* Line: 2558      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2558, st_37, NULL, st_10);
  for (;;)
  {
    if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - ' ') != 0))
      break;

    /* Line: 2559      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2559, st_37, NULL, st_6);
    if (((int)cob_cmp_s32 (b_1246, 255LL) > 0))
    {

      /* Line: 2560      : READ               : GCic.cbl */
      cob_set_location (st_5, 2560, st_37, NULL, st_28);
      cob_read_next (h_F_EXPANDED_SRC_FILE, NULL, 1);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        if (cob_glob_ptr->cob_exception_code == 0x0501)
        {

          /* Line: 2561      : IF                 : GCic.cbl */
          cob_set_location (st_5, 2561, st_37, NULL, st_6);
          if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
          {

            /* Line: 2562      : MOVE               : GCic.cbl */
            cob_set_location (st_5, 2562, st_37, NULL, st_4);
            cob_move (&f_444, &f_401);

            /* Line: 2563      : MOVE               : GCic.cbl */
            cob_set_location (st_5, 2563, st_37, NULL, st_4);
            memset (b_444, 32, 100);

            /* Line: 2564      : RELEASE            : GCic.cbl */
            cob_set_location (st_5, 2564, st_37, NULL, st_36);
            cob_file_release (h_F_SORT_WORK_FILE);
            if (unlikely(cob_glob_ptr->cob_exception_code != 0))
            {
              /* PERFORM Default Error Handler */
              frame_ptr++;
              if (unlikely(frame_ptr == frame_overflow))
                  cob_fatal_error (COB_FERROR_STACK);
              frame_ptr->perform_through = 1;
              frame_ptr->return_address_ptr = &&l_197;
              goto l_1;
              l_197:
              frame_ptr--;
            }
          }

          /* Line: 2566      : SET                : GCic.cbl */
          cob_set_location (st_5, 2566, st_37, NULL, st_11);
          *(b_1259) = 255;

          /* Line: 2567      : MOVE               : GCic.cbl */
          cob_set_location (st_5, 2567, st_37, NULL, st_4);
          memset (b_422, 48, 6);

          /* Line: 2568      : EXIT SECTION       : GCic.cbl */
          cob_set_location (st_5, 2568, st_37, NULL, st_29);
          goto l_43;
        }
        else
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_198;
          goto l_1;
          l_198:
          frame_ptr--;
        }
      }

      /* Line: 2570      : IF                 : GCic.cbl */
      cob_set_location (st_5, 2570, st_37, NULL, st_6);
      if (((int)memcmp (b_388, (cob_u8_ptr)"#DEFLIT", 7) != 0))
      {

        /* Line: 2571      : IF                 : GCic.cbl */
        cob_set_location (st_5, 2571, st_37, NULL, st_6);
        if (((int)(int)(*(b_388) - 35) == 0))
        {

          /* Line: 2572      : PERFORM            : GCic.cbl */
          cob_set_location (st_5, 2572, st_37, NULL, st_10);
          /* PERFORM 311-Control-Record */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 44;
          frame_ptr->return_address_ptr = &&l_199;
          goto l_44;
          l_199:
          frame_ptr--;
        }
        else
        {
          /* ELSE */

          /* Line: 2574      : PERFORM            : GCic.cbl */
          cob_set_location (st_5, 2574, st_37, NULL, st_10);
          /* PERFORM 312-Expanded-Src-Record */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 46;
          frame_ptr->return_address_ptr = &&l_200;
          goto l_46;
          l_200:
          frame_ptr--;
        }
      }
    }
    else
    {
      /* ELSE */

      /* Line: 2578      : ADD                : GCic.cbl */
      cob_set_location (st_5, 2578, st_37, NULL, st_15);
      (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
    }
  }

  /* Line: 2582      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2582, st_37, NULL, st_4);
  *(b_412) = *(b_388 + ((*(int *)(b_1246)) - 1));

  /* Line: 2584      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2584, st_37, NULL, st_4);
  *(b_451) = *(b_388 + (((*(int *)(b_1246)) + 1) - 1));

  /* Line: 2586      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2586, st_37, NULL, st_6);
  if (((int)(int)(*(b_412) - 46) == 0))
  {

    /* Line: 2587      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2587, st_37, NULL, st_15);
    (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);

    /* Line: 2588      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2588, st_37, NULL, st_4);
    cob_move (&f_412, &f_1255);

    /* Line: 2589      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2589, st_37, NULL, st_4);
    *(b_1259) = 32;

    /* Line: 2590      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2590, st_37, NULL, st_4);
    *(b_1226 + 4) = 89;

    /* Line: 2591      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2591, st_37, NULL, st_29);
    goto l_43;
  }

  /* Line: 2593      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2593, st_37, NULL, st_6);
  if (((((((((((((((int)(int)(*(b_412) - 61) == 0) || 
      ((int)(int)(*(b_412) - 40) == 0)) || 
      ((int)(int)(*(b_412) - 41) == 0)) || 
      ((int)(int)(*(b_412) - 42) == 0)) || 
      ((int)(int)(*(b_412) - 47) == 0)) || 
      ((int)(int)(*(b_412) - 38) == 0)) || 
      ((int)(int)(*(b_412) - 59) == 0)) || 
      ((int)(int)(*(b_412) - 44) == 0)) || 
      ((int)(int)(*(b_412) - 60) == 0)) || 
      ((int)(int)(*(b_412) - 62) == 0)) || 
      ((int)(int)(*(b_412) - 58) == 0)) && 
      ((int)(int)(*(b_412) - 61) == 0)) && 
      ((int)(int)(*(b_417) - 80) == 0)))
  {

    /* Line: 2596      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2596, st_37, NULL, st_15);
    (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);

    /* Line: 2597      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2597, st_37, NULL, st_4);
    cob_move ((cob_field *)&c_111, &f_1255);

    /* Line: 2598      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2598, st_37, NULL, st_4);
    *(b_1259) = 75;

    /* Line: 2599      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2599, st_37, NULL, st_29);
    goto l_43;
  }

  /* Line: 2601      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2601, st_37, NULL, st_6);
  if (((((((((((((((int)(int)(*(b_412) - 61) == 0) || 
      ((int)(int)(*(b_412) - 40) == 0)) || 
      ((int)(int)(*(b_412) - 41) == 0)) || 
      ((int)(int)(*(b_412) - 42) == 0)) || 
      ((int)(int)(*(b_412) - 47) == 0)) || 
      ((int)(int)(*(b_412) - 38) == 0)) || 
      ((int)(int)(*(b_412) - 59) == 0)) || 
      ((int)(int)(*(b_412) - 44) == 0)) || 
      ((int)(int)(*(b_412) - 60) == 0)) || 
      ((int)(int)(*(b_412) - 62) == 0)) || 
      ((int)(int)(*(b_412) - 58) == 0)) && 
      ((int)(int)(*(b_412) - 40) == 0)) && 
      ((int)(int)(*(b_417) - 80) == 0)))
  {

    /* Line: 2604      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2604, st_37, NULL, st_4);
    memset (b_1257, 32, 32);
  }

  /* Line: 2606      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2606, st_37, NULL, st_6);
  if (((((((((((((int)(int)(*(b_412) - 61) == 0) || 
      ((int)(int)(*(b_412) - 40) == 0)) || 
      ((int)(int)(*(b_412) - 41) == 0)) || 
      ((int)(int)(*(b_412) - 42) == 0)) || 
      ((int)(int)(*(b_412) - 47) == 0)) || 
      ((int)(int)(*(b_412) - 38) == 0)) || 
      ((int)(int)(*(b_412) - 59) == 0)) || 
      ((int)(int)(*(b_412) - 44) == 0)) || 
      ((int)(int)(*(b_412) - 60) == 0)) || 
      ((int)(int)(*(b_412) - 62) == 0)) || 
      ((int)(int)(*(b_412) - 58) == 0)))
  {

    /* Line: 2607      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2607, st_37, NULL, st_15);
    (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);

    /* Line: 2608      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2608, st_37, NULL, st_4);
    cob_move (&f_412, &f_1255);

    /* Line: 2609      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2609, st_37, NULL, st_4);
    *(b_1259) = 32;

    /* Line: 2610      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2610, st_37, NULL, st_29);
    goto l_43;
  }

  /* Line: 2612      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2612, st_37, NULL, st_6);
  if ((((int)(int)(*(b_412) - 39) == 0) || 
      ((int)(int)(*(b_412) - 34) == 0)))
  {

    /* Line: 2613      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2613, st_37, NULL, st_15);
    (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);

    /* Line: 2614      : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 2614, st_37, NULL, st_16);
    cob_unstring_init (&f_382, &f_1246, 1);
    cob_unstring_delimited (&f_412, 0);
    cob_unstring_into (&f_1255, 0, 0);
    cob_unstring_finish ();

    /* Line: 2618      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2618, st_37, NULL, st_6);
    if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - 46) == 0))
    {

      /* Line: 2619      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2619, st_37, NULL, st_4);
      *(b_1226 + 4) = 89;

      /* Line: 2620      : ADD                : GCic.cbl */
      cob_set_location (st_5, 2620, st_37, NULL, st_15);
      (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
    }

    /* Line: 2622      : SET                : GCic.cbl */
    cob_set_location (st_5, 2622, st_37, NULL, st_11);
    *(b_1259) = 76;

    /* Line: 2623      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2623, st_37, NULL, st_29);
    goto l_43;
  }

  /* Line: 2625      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2625, st_37, NULL, st_6);
  if (((((int)(int)(*(b_412) - 120) == 0) || 
      ((int)(int)(*(b_412) - 88) == 0)) && 
      (((int)(int)(*(b_451) - 34) == 0) || 
      ((int)(int)(*(b_451) - 39) == 0))))
  {

    /* Line: 2626      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2626, st_37, NULL, st_15);
    (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 2);

    /* Line: 2627      : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 2627, st_37, NULL, st_16);
    cob_unstring_init (&f_382, &f_1246, 1);
    cob_unstring_delimited (&f_451, 0);
    cob_unstring_into (&f_1255, 0, 0);
    cob_unstring_finish ();

    /* Line: 2631      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2631, st_37, NULL, st_6);
    if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - 46) == 0))
    {

      /* Line: 2632      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2632, st_37, NULL, st_4);
      *(b_1226 + 4) = 89;

      /* Line: 2633      : ADD                : GCic.cbl */
      cob_set_location (st_5, 2633, st_37, NULL, st_15);
      (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
    }

    /* Line: 2635      : SET                : GCic.cbl */
    cob_set_location (st_5, 2635, st_37, NULL, st_11);
    *(b_1259) = 78;

    /* Line: 2636      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2636, st_37, NULL, st_29);
    goto l_43;
  }

  /* Line: 2638      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2638, st_37, NULL, st_6);
  if (((((int)(int)(*(b_412) - 122) == 0) || 
      ((int)(int)(*(b_412) - 90) == 0)) && 
      (((int)(int)(*(b_451) - 34) == 0) || 
      ((int)(int)(*(b_451) - 39) == 0))))
  {

    /* Line: 2639      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2639, st_37, NULL, st_15);
    (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 2);

    /* Line: 2640      : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 2640, st_37, NULL, st_16);
    cob_unstring_init (&f_382, &f_1246, 1);
    cob_unstring_delimited (&f_451, 0);
    cob_unstring_into (&f_1255, 0, 0);
    cob_unstring_finish ();

    /* Line: 2644      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2644, st_37, NULL, st_6);
    if (((int)(int)(*(b_388 + ((*(int *)(b_1246)) - 1)) - 46) == 0))
    {

      /* Line: 2645      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2645, st_37, NULL, st_4);
      *(b_1226 + 4) = 89;

      /* Line: 2646      : ADD                : GCic.cbl */
      cob_set_location (st_5, 2646, st_37, NULL, st_15);
      (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
    }

    /* Line: 2648      : SET                : GCic.cbl */
    cob_set_location (st_5, 2648, st_37, NULL, st_11);
    *(b_1259) = 76;

    /* Line: 2649      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2649, st_37, NULL, st_29);
    goto l_43;
  }

  /* Line: 2651      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2651, st_37, NULL, st_6);
  if (((int)(int)(*(b_1226 + 3) - 89) == 0))
  {

    /* Line: 2652      : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 2652, st_37, NULL, st_16);
    cob_unstring_init (&f_382, &f_1246, 2);
    cob_unstring_delimited ((cob_field *)&c_112, 0);
    cob_unstring_delimited ((cob_field *)&c_23, 0);
    cob_unstring_into (&f_1255, &f_434, 0);
    cob_unstring_finish ();

    /* Line: 2657      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2657, st_37, NULL, st_6);
    if (((int)memcmp (b_434, (cob_u8_ptr)". ", 2) == 0))
    {

      /* Line: 2658      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2658, st_37, NULL, st_4);
      *(b_1226 + 4) = 89;

      /* Line: 2659      : ADD                : GCic.cbl */
      cob_set_location (st_5, 2659, st_37, NULL, st_15);
      (*(int *)(b_1246)) = ((*(int *)(b_1246)) + 1);
    }

    /* Line: 2661      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2661, st_37, NULL, st_6);
    if (((int)cob_cmp (cob_intr_upper_case (0, 0, &f_1255), (cob_field *)&c_113) == 0))
    {

      /* Line: 2662      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2662, st_37, NULL, st_4);
      *(b_1259) = 32;

      /* Line: 2663      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 2663, st_37, NULL, st_29);
      goto l_43;
    }
    else
    {
      /* ELSE */

      /* Line: 2665      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2665, st_37, NULL, st_4);
      *(b_1226 + 3) = 78;

      /* Line: 2666      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2666, st_37, NULL, st_4);
      *(b_1259) = 32;

      /* Line: 2667      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 2667, st_37, NULL, st_29);
      goto l_43;
    }
  }

  /* Line: 2670      : UNSTRING           : GCic.cbl */
  cob_set_location (st_5, 2670, st_37, NULL, st_16);
  cob_unstring_init (&f_382, &f_1246, 13);
  cob_unstring_delimited ((cob_field *)&c_112, 0);
  cob_unstring_delimited ((cob_field *)&c_23, 0);
  cob_unstring_delimited ((cob_field *)&c_114, 0);
  cob_unstring_delimited ((cob_field *)&c_115, 0);
  cob_unstring_delimited ((cob_field *)&c_116, 0);
  cob_unstring_delimited ((cob_field *)&c_15, 0);
  cob_unstring_delimited ((cob_field *)&c_9, 0);
  cob_unstring_delimited ((cob_field *)&c_117, 0);
  cob_unstring_delimited ((cob_field *)&c_118, 0);
  cob_unstring_delimited ((cob_field *)&c_119, 0);
  cob_unstring_delimited ((cob_field *)&c_120, 0);
  cob_unstring_delimited ((cob_field *)&c_11, 0);
  cob_unstring_delimited ((cob_field *)&c_8, 0);
  cob_unstring_into (&f_1255, &f_434, 0);
  cob_unstring_finish ();

  /* Line: 2677      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2677, st_37, NULL, st_6);
  if (((int)memcmp (b_434, (cob_u8_ptr)". ", 2) == 0))
  {

    /* Line: 2678      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2678, st_37, NULL, st_4);
    *(b_1226 + 4) = 89;
  }

  /* Line: 2680      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2680, st_37, NULL, st_6);
  if ((((int)memcmp (b_434, (cob_u8_ptr)". ", 2) != 0) && 
      ((int)cob_cmp (&f_434, (cob_field *)&c_23) != 0)))
  {

    /* Line: 2681      : SUBTRACT           : GCic.cbl */
    cob_set_location (st_5, 2681, st_37, NULL, st_17);
    (*(int *)(b_1246)) = ((*(int *)(b_1246)) - 1);
  }

  /* Line: 2684      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2684, st_37, NULL, st_4);
  cob_move (cob_intr_upper_case (0, 0, &f_1255), &f_1258);

  /* Line: 2685      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2685, st_37, NULL, st_6);
  if ((((int)cob_cmp (&f_1258, (cob_field *)&c_121) == 0) || 
      ((int)cob_cmp (&f_1258, (cob_field *)&c_111) == 0)))
  {

    /* Line: 2686      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2686, st_37, NULL, st_4);
    cob_move ((cob_field *)&c_111, &f_1255);

    /* Line: 2687      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2687, st_37, NULL, st_4);
    *(b_1259) = 75;

    /* Line: 2688      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2688, st_37, NULL, st_29);
    goto l_43;
  }

  /* Line: 2690      : SEARCH ALL         : GCic.cbl */
  cob_set_location (st_5, 2690, st_37, NULL, st_38);
  {
    int ret;
    int head = 1 - 1;
    int tail = 754 + 1;
    for (;;)
    {
      if (head >= tail - 1)
      {
        /* Table end */
        break;
      }
      b_1223 = (head + tail) / 2;

      /* WHEN */
      if (((int)(ret = memcmp (b_466 + 1 + 33 * (b_1223 - 1), b_1258, 32)) == 0))
      {

        /* Line: 2692      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 2692, st_37, NULL, st_4);
        *(b_1259) = *(b_466 + 33 * (b_1223 - 1));

        /* Line: 2693      : IF                 : GCic.cbl */
        cob_set_location (st_5, 2693, st_37, NULL, st_6);
        if (((int)(int)(*(b_1259) - 86) == 0))
        {

          /* Line: 2694      : MOVE               : GCic.cbl */
          cob_set_location (st_5, 2694, st_37, NULL, st_4);
          *(b_1226 + 5) = 89;
        }

        /* Line: 2696      : EXIT SECTION       : GCic.cbl */
        cob_set_location (st_5, 2696, st_37, NULL, st_29);
        goto l_43;
      }
      if (ret < 0)
        head = b_1223;
      else
        tail = b_1223;
    }
  }

  /* Line: 2699      : SET                : GCic.cbl */
  cob_set_location (st_5, 2699, st_37, NULL, st_11);
  *(b_1259) = 73;

  /* Line: 2700      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2700, st_37, NULL, st_10);
  /* PERFORM 313-Check-For-Numeric-Token */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 48;
  frame_ptr->return_address_ptr = &&l_201;
  goto l_48;
  l_201:
  frame_ptr--;

  /* Line: 2701      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2701, st_37, NULL, st_6);
  if (((int)(int)(*(b_1259) - 78) == 0))
  {

    /* Line: 2702      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2702, st_37, NULL, st_6);
    if ((((int)(int)(*(b_1226 + 2) - 89) == 0) && 
        ((int)(int)(*(b_417) - 68) == 0)))
    {

      /* Line: 2704      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2704, st_37, NULL, st_4);
      cob_move ((cob_field *)&c_122, &f_1255);

      /* Line: 2705      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2705, st_37, NULL, st_4);
      *(b_1259) = 75;

      /* Line: 2706      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 2706, st_37, NULL, st_29);
      goto l_43;
    }
    else
    {
      /* ELSE */

      /* Line: 2708      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 2708, st_37, NULL, st_29);
      goto l_43;
    }
  }

  /* Implicit EXIT label */
  l_43:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 41)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2713      : Section   311-Control-Record      : GCic.cbl */
  l_44:;

  /* Line: 2714      : UNSTRING           : GCic.cbl */
  cob_set_location (st_5, 2714, st_39, NULL, st_16);
  cob_unstring_init (&f_384, NULL, 1);
  cob_unstring_delimited ((cob_field *)&c_2, 0);
  cob_unstring_into (&f_1248, 0, 0);
  cob_unstring_into (&f_1253, 0, 0);
  cob_unstring_into (&f_435, 0, 0);
  cob_unstring_finish ();

  /* Line: 2719      : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 2719, st_39, NULL, st_13);
  cob_inspect_init (&f_1248, 1);
  cob_inspect_start ();
  cob_inspect_all (&cob_all_space, (cob_field *)&c_2);
  cob_inspect_finish ();

  /* Line: 2720      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2720, st_39, NULL, st_6);
  if (((int)memcmp (b_1248 + 0, (cob_u8_ptr)"line", 4) == 0))
  {

    /* Line: 2721      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2721, st_39, NULL, st_4);
    memset (b_1248 + 0, 32, 4);
  }

  /* Line: 2723      : COMPUTE            : GCic.cbl */
  cob_set_location (st_5, 2723, st_39, NULL, st_40);
  cob_decimal_set_field (d0, cob_intr_numval (&f_1248));
  cob_decimal_set_llint (d1, 1LL);
  cob_decimal_sub (d0, d1);
  cob_decimal_get_field (d0, &f_445, 0);

  /* Line: 2724      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2724, st_39, NULL, st_6);
  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))
  {

    /* Line: 2726      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2726, st_39, NULL, st_4);
    cob_move (&f_445, &f_422);

    /* Line: 2727      : SET                : GCic.cbl */
    cob_set_location (st_5, 2727, st_39, NULL, st_11);
    *(b_1226 + 1) = 77;

    /* Line: 2728      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2728, st_39, NULL, st_6);
    if (((int)cob_cmp (&f_1235, &cob_all_space) != 0))
    {

      /* Line: 2729      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2729, st_39, NULL, st_4);
      memcpy (b_427, b_1235, 15);
    }
  }
  else
  {
    /* ELSE */

    /* Line: 2732      : SET                : GCic.cbl */
    cob_set_location (st_5, 2732, st_39, NULL, st_11);
    *(b_1226 + 1) = 67;

    /* Line: 2733      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2733, st_39, NULL, st_6);
    if (((int)cob_cmp (&f_1235, &cob_all_space) == 0))
    {

      /* Line: 2734      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2734, st_39, NULL, st_4);
      memcpy (b_1235, b_427, 15);
    }

    /* Line: 2736      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2736, st_39, NULL, st_4);
    cob_move (cob_intr_length (cob_intr_trim (0, 0, &f_1253, 2)), &f_445);

    /* Line: 2738      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2738, st_39, NULL, st_4);
    (*(int *)(b_446)) = 0;

    /* Line: 2739      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2739, st_39, NULL, st_10);
    for (;;)
    {
      if ((((int)(int)(*(b_1253 + ((*(int *)(b_445)) - 1)) - 47) == 0) || 
          ((int)cob_cmp_s32 (b_445, 0LL) == 0)))
        break;

      /* Line: 2741      : SUBTRACT           : GCic.cbl */
      cob_set_location (st_5, 2741, st_39, NULL, st_17);
      (*(int *)(b_445)) = ((*(int *)(b_445)) - 1);

      /* Line: 2742      : ADD                : GCic.cbl */
      cob_set_location (st_5, 2742, st_39, NULL, st_15);
      (*(int *)(b_446)) = ((*(int *)(b_446)) + 1);
    }

    /* Line: 2744      : UNSTRING           : GCic.cbl */
    cob_set_location (st_5, 2744, st_39, NULL, st_16);
    cob_unstring_init (COB_SET_FLD(f0, (*(int *)(b_446)), b_1253 + (((*(int *)(b_445)) + 1) - 1), &a_1), NULL, 1);
    cob_unstring_delimited ((cob_field *)&c_110, 0);
    cob_unstring_into (&f_437, 0, 0);
    cob_unstring_into (&f_435, 0, 0);
    cob_unstring_finish ();

    /* Line: 2748      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2748, st_39, NULL, st_4);
    *(b_427) = 91;

    /* Line: 2749      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2749, st_39, NULL, st_4);
    memcpy (b_427 + 1, b_437, 13);

    /* Line: 2750      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2750, st_39, NULL, st_6);
    if (((int)cob_cmp (&f_431, &cob_all_space) != 0))
    {

      /* Line: 2751      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2751, st_39, NULL, st_4);
      memset (b_427 + 11, 46, 3);
    }

    /* Line: 2753      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2753, st_39, NULL, st_4);
    *(b_427 + 14) = 93;
  }

  /* Line: 2755      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2755, st_39, NULL, st_4);
  memset (b_388, 32, 257);

  /* Line: 2756      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2756, st_39, NULL, st_4);
  (*(int *)(b_1246)) = 256;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 44)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2759      : Section   312-Expanded-Src-Record : GCic.cbl */
  l_46:;

  /* Line: 2760      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2760, st_41, NULL, st_6);
  if (((int)(int)(*(b_388 + 0) - ' ') == 0))
  {

    /* Line: 2761      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2761, st_41, NULL, st_4);
    (*(int *)(b_1246)) = 2;
  }
  else
  {
    /* ELSE */

    /* Line: 2763      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2763, st_41, NULL, st_4);
    (*(int *)(b_1246)) = 1;
  }

  /* Line: 2765      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2765, st_41, NULL, st_6);
  if (((int)(int)(*(b_1226 + 1) - 77) == 0))
  {

    /* Line: 2766      : ADD                : GCic.cbl */
    cob_set_location (st_5, 2766, st_41, NULL, st_15);
    cob_add_int (&f_422, 1, 0);
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 46)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2770      : Section   313-Check-For-Numeric-Token: GCic.cbl */
  l_48:;

  /* Line: 2771      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2771, st_42, NULL, st_4);
  memcpy (b_1249, b_1255, 32);

  /* Line: 2772      : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 2772, st_42, NULL, st_13);
  cob_inspect_init (&f_1249, 0);
  cob_inspect_start ();
  cob_inspect_converting ((cob_field *)&c_123, &cob_all_space);
  cob_inspect_finish ();

  /* Line: 2774      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2774, st_42, NULL, st_6);
  if (((int)cob_cmp (&f_1249, &cob_all_space) == 0))
  {

    /* Line: 2775      : SET                : GCic.cbl */
    cob_set_location (st_5, 2775, st_42, NULL, st_11);
    *(b_1259) = 78;

    /* Line: 2776      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2776, st_42, NULL, st_29);
    goto l_50;
  }

  /* Line: 2778      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2778, st_42, NULL, st_4);
  memset (b_1250, 32, 32);
  memset (b_1251, 32, 32);
  *(b_435) = 32;

  /* Line: 2781      : UNSTRING           : GCic.cbl */
  cob_set_location (st_5, 2781, st_42, NULL, st_16);
  cob_unstring_init (&f_1249, NULL, 2);
  cob_unstring_delimited ((cob_field *)&c_124, 0);
  cob_unstring_delimited ((cob_field *)&c_125, 0);
  cob_unstring_into (&f_1250, 0, 0);
  cob_unstring_into (&f_1251, 0, 0);
  cob_unstring_into (&f_435, 0, 0);
  cob_unstring_finish ();

  /* Line: 2786      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2786, st_42, NULL, st_6);
  if (((int)(int)(*(b_435) - ' ') != 0))
  {

    /* Line: 2787      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2787, st_42, NULL, st_29);
    goto l_50;
  }

  /* Line: 2789      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2789, st_42, NULL, st_6);
  if ((((int)(int)(*(b_1250 + 0) - 43) == 0) || 
      ((int)(int)(*(b_1250 + 0) - 45) == 0)))
  {

    /* Line: 2790      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2790, st_42, NULL, st_4);
    *(b_1250 + 0) = 32;
  }

  /* Line: 2792      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2792, st_42, NULL, st_6);
  if ((((int)(int)(*(b_1251 + 0) - 43) == 0) || 
      ((int)(int)(*(b_1251 + 0) - 45) == 0)))
  {

    /* Line: 2793      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2793, st_42, NULL, st_4);
    *(b_1251 + 0) = 32;
  }

  /* Line: 2795      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2795, st_42, NULL, st_4);
  (*(int *)(b_1247)) = 0;

  /* Line: 2796      : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 2796, st_42, NULL, st_13);
  cob_inspect_init (&f_1250, 0);
  cob_inspect_start ();
  cob_inspect_all (&f_1247, (cob_field *)&c_110);
  cob_inspect_finish ();

  /* Line: 2798      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2798, st_42, NULL, st_6);
  if (((int)cob_cmp_s32 (b_1247, 1LL) == 0))
  {

    /* Line: 2799      : INSPECT            : GCic.cbl */
    cob_set_location (st_5, 2799, st_42, NULL, st_13);
    cob_inspect_init (&f_1250, 1);
    cob_inspect_start ();
    cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
    cob_inspect_finish ();
  }

  /* Line: 2801      : INSPECT            : GCic.cbl */
  cob_set_location (st_5, 2801, st_42, NULL, st_13);
  cob_inspect_init (&f_1251, 0);
  cob_inspect_start ();
  cob_inspect_all (&f_1247, (cob_field *)&c_110);
  cob_inspect_finish ();

  /* Line: 2803      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2803, st_42, NULL, st_6);
  if (((int)cob_cmp_s32 (b_1247, 1LL) == 0))
  {

    /* Line: 2804      : INSPECT            : GCic.cbl */
    cob_set_location (st_5, 2804, st_42, NULL, st_13);
    cob_inspect_init (&f_1251, 1);
    cob_inspect_start ();
    cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
    cob_inspect_finish ();
  }

  /* Line: 2806      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2806, st_42, NULL, st_6);
  if ((((int)cob_cmp (&f_1250, &cob_all_space) == 0) && 
      ((int)memcmp (b_1250, b_1251, 32) == 0)))
  {

    /* Line: 2807      : SET                : GCic.cbl */
    cob_set_location (st_5, 2807, st_42, NULL, st_11);
    *(b_1259) = 78;

    /* Line: 2808      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2808, st_42, NULL, st_29);
    goto l_50;
  }

  /* Implicit EXIT label */
  l_50:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 48)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2812      : Section   320-IDENTIFICATION-DIVISION: GCic.cbl */
  l_51:;

  /* Line: 2813      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2813, st_43, NULL, st_6);
  if (((int)(int)(*(b_1259) - 65) == 0))
  {

    /* Line: 2814      : SET                : GCic.cbl */
    cob_set_location (st_5, 2814, st_43, NULL, st_11);
    *(b_1259) = 32;
  }

  /* Line: 2816      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 2816, st_43, NULL, st_4);
  *(b_1226 + 5) = 78;

  /* Line: 2817      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2817, st_43, NULL, st_6);
  if ((((((int)(int)(*(b_1259) - 75) == 0) || 
      ((int)(int)(*(b_1259) - 86) == 0)) || 
      ((int)(int)(*(b_1259) - 65) == 0)) && 
      ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
  {

    /* Line: 2819      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2819, st_43, NULL, st_4);
    *(b_417) = *(b_1257);

    /* Line: 2820      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2820, st_43, NULL, st_29);
    goto l_53;
  }

  /* Line: 2822      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2822, st_43, NULL, st_6);
  if ((((int)cob_cmp (&f_1257, (cob_field *)&c_127) == 0) || 
      ((int)cob_cmp (&f_1257, (cob_field *)&c_128) == 0)))
  {

    /* Line: 2823      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2823, st_43, NULL, st_4);
    memset (b_1257, 32, 32);

    /* Line: 2824      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2824, st_43, NULL, st_4);
    memcpy (b_423, b_1255, 16);

    /* Line: 2825      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2825, st_43, NULL, st_6);
    if (((int)(int)(*(b_423 + 15) - ' ') != 0))
    {

      /* Line: 2826      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2826, st_43, NULL, st_4);
      memset (b_423 + 12, 46, 3);
    }

    /* Line: 2828      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2828, st_43, NULL, st_29);
    goto l_53;
  }

  /* Implicit EXIT label */
  l_53:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 51)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2832      : Section   330-ENVIRONMENT-DIVISION: GCic.cbl */
  l_54:;

  /* Line: 2833      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2833, st_44, NULL, st_6);
  if (((int)(int)(*(b_1259) - 65) == 0))
  {

    /* Line: 2834      : SET                : GCic.cbl */
    cob_set_location (st_5, 2834, st_44, NULL, st_11);
    *(b_1259) = 32;
  }

  /* Line: 2836      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2836, st_44, NULL, st_6);
  if ((((((int)(int)(*(b_1259) - 75) == 0) || 
      ((int)(int)(*(b_1259) - 86) == 0)) || 
      ((int)(int)(*(b_1259) - 65) == 0)) && 
      ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
  {

    /* Line: 2838      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2838, st_44, NULL, st_4);
    *(b_417) = *(b_1257);

    /* Line: 2839      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2839, st_44, NULL, st_29);
    goto l_56;
  }

  /* Line: 2841      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2841, st_44, NULL, st_6);
  if ((((((int)(int)(*(b_1259) - 75) == 0) || 
      ((int)(int)(*(b_1259) - 86) == 0)) || 
      ((int)(int)(*(b_1259) - 65) == 0)) && 
      ((int)cob_cmp (&f_1255, (cob_field *)&c_129) == 0)))
  {

    /* Line: 2843      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2843, st_44, NULL, st_4);
    memcpy (b_427, b_1257, 15);

    /* Line: 2844      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2844, st_44, NULL, st_29);
    goto l_56;
  }

  /* Line: 2846      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2846, st_44, NULL, st_6);
  if (((int)(int)(*(b_1259) - 73) == 0))
  {

    /* Line: 2847      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2847, st_44, NULL, st_6);
    if (((int)cob_cmp (&f_1257, (cob_field *)&c_130) == 0))
    {

      /* Line: 2848      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2848, st_44, NULL, st_10);
      /* PERFORM 360-Release-Def */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 121;
      frame_ptr->return_address_ptr = &&l_202;
      goto l_121;
      l_202:
      frame_ptr--;
    }
    else
    {
      /* ELSE */

      /* Line: 2850      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2850, st_44, NULL, st_10);
      /* PERFORM 361-Release-Ref */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 123;
      frame_ptr->return_address_ptr = &&l_203;
      goto l_123;
      l_203:
      frame_ptr--;
    }
  }

  /* Line: 2853      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2853, st_44, NULL, st_6);
  if (((int)(int)(*(b_1259) - 70) == 0))
  {

    /* Line: 2854      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2854, st_44, NULL, st_10);
    /* PERFORM 361-Release-Ref */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 123;
    frame_ptr->return_address_ptr = &&l_204;
    goto l_123;
    l_204:
    frame_ptr--;
  }

  /* Implicit EXIT label */
  l_56:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 54)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2858      : Section   340-DATA-DIVISION       : GCic.cbl */
  l_57:;

  /* Line: 2859      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2859, st_45, NULL, st_6);
  if (((int)(int)(*(b_1259) - 65) == 0))
  {

    /* Line: 2860      : SET                : GCic.cbl */
    cob_set_location (st_5, 2860, st_45, NULL, st_11);
    *(b_1259) = 32;
  }

  /* Line: 2862      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2862, st_45, NULL, st_6);
  if ((((((int)(int)(*(b_1259) - 75) == 0) || 
      ((int)(int)(*(b_1259) - 86) == 0)) || 
      ((int)(int)(*(b_1259) - 65) == 0)) && 
      ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
  {

    /* Line: 2864      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2864, st_45, NULL, st_4);
    *(b_417) = *(b_1257);

    /* Line: 2865      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2865, st_45, NULL, st_29);
    goto l_59;
  }

  /* Line: 2867      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2867, st_45, NULL, st_6);
  if ((((((int)(int)(*(b_1259) - 75) == 0) || 
      ((int)(int)(*(b_1259) - 86) == 0)) || 
      ((int)(int)(*(b_1259) - 65) == 0)) && 
      ((int)cob_cmp (&f_1255, (cob_field *)&c_129) == 0)))
  {

    /* Line: 2869      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2869, st_45, NULL, st_4);
    memcpy (b_427, b_1257, 15);

    /* Line: 2870      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2870, st_45, NULL, st_29);
    goto l_59;
  }

  /* Line: 2872      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2872, st_45, NULL, st_6);
  if (((((int)cob_cmp (&f_1255, (cob_field *)&c_131) == 0) || 
      ((int)cob_cmp (&f_1255, (cob_field *)&c_132) == 0)) && 
      ((((int)(int)(*(b_1259) - 75) == 0) || 
      ((int)(int)(*(b_1259) - 86) == 0)) || 
      ((int)(int)(*(b_1259) - 65) == 0))))
  {

    /* Line: 2874      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2874, st_45, NULL, st_4);
    *(b_1226 + 3) = 89;

    /* Line: 2875      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2875, st_45, NULL, st_29);
    goto l_59;
  }

  /* Line: 2877      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2877, st_45, NULL, st_6);
  if (((((int)(int)(*(b_1259) - 32) == 0) || 
      ((int)(int)(*(b_1259) - 70) == 0)) && 
      ((int)cob_cmp (&f_1257, (cob_field *)&c_122) == 0)))
  {

    /* Line: 2879      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2879, st_45, NULL, st_4);
    memset (b_1257, 32, 32);

    /* Line: 2880      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2880, st_45, NULL, st_29);
    goto l_59;
  }

  /* Line: 2882      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2882, st_45, NULL, st_6);
  if (((int)(int)(*(b_1259) - 73) == 0))
  {

    /* Line: 2883      : EVALUATE           : GCic.cbl */
    cob_set_location (st_5, 2883, st_45, NULL, st_3);

    /* WHEN */

    if (((int)cob_cmp (&f_1257, (cob_field *)&c_133) == 0))
    {

      /* Line: 2885      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2885, st_45, NULL, st_10);
      /* PERFORM 360-Release-Def */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 121;
      frame_ptr->return_address_ptr = &&l_205;
      goto l_121;
      l_205:
      frame_ptr--;

      /* Line: 2886      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2886, st_45, NULL, st_4);
      memset (b_1257, 32, 32);
      goto l_60;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1257, (cob_field *)&c_134) == 0))
    {

      /* Line: 2888      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2888, st_45, NULL, st_10);
      /* PERFORM 360-Release-Def */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 121;
      frame_ptr->return_address_ptr = &&l_206;
      goto l_121;
      l_206:
      frame_ptr--;

      /* Line: 2889      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2889, st_45, NULL, st_4);
      memset (b_1257, 32, 32);
      goto l_60;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1257, (cob_field *)&c_135) == 0))
    {

      /* Line: 2891      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2891, st_45, NULL, st_10);
      /* PERFORM 360-Release-Def */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 121;
      frame_ptr->return_address_ptr = &&l_207;
      goto l_121;
      l_207:
      frame_ptr--;

      /* Line: 2892      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2892, st_45, NULL, st_4);
      memset (b_1257, 32, 32);
      goto l_60;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1257, (cob_field *)&c_122) == 0))
    {

      /* Line: 2894      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2894, st_45, NULL, st_10);
      /* PERFORM 360-Release-Def */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 121;
      frame_ptr->return_address_ptr = &&l_208;
      goto l_121;
      l_208:
      frame_ptr--;

      /* Line: 2895      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2895, st_45, NULL, st_4);
      memset (b_1257, 32, 32);
      goto l_60;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1257, (cob_field *)&c_136) == 0))
    {

      /* Line: 2897      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2897, st_45, NULL, st_10);
      /* PERFORM 360-Release-Def */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 121;
      frame_ptr->return_address_ptr = &&l_209;
      goto l_121;
      l_209:
      frame_ptr--;

      /* Line: 2898      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2898, st_45, NULL, st_4);
      memset (b_1257, 32, 32);
      goto l_60;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1257, (cob_field *)&c_137) == 0))
    {

      /* Line: 2900      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2900, st_45, NULL, st_10);
      /* PERFORM 362-Release-Upd */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 125;
      frame_ptr->return_address_ptr = &&l_210;
      goto l_125;
      l_210:
      frame_ptr--;

      /* Line: 2901      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2901, st_45, NULL, st_4);
      memset (b_1257, 32, 32);
      goto l_60;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
    {

      /* Line: 2903      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2903, st_45, NULL, st_10);
      /* PERFORM 362-Release-Upd */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 125;
      frame_ptr->return_address_ptr = &&l_211;
      goto l_125;
      l_211:
      frame_ptr--;

      /* Line: 2904      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 2904, st_45, NULL, st_4);
      memset (b_1257, 32, 32);
      goto l_60;
    }

    /* WHEN OTHER */

    /* Line: 2906      : IF                 : GCic.cbl */
    cob_set_location (st_5, 2906, st_45, NULL, st_6);
    if (((int)cob_cmp (&f_1255, (cob_field *)&c_139) != 0))
    {

      /* Line: 2907      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 2907, st_45, NULL, st_10);
      /* PERFORM 361-Release-Ref */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 123;
      frame_ptr->return_address_ptr = &&l_212;
      goto l_123;
      l_212:
      frame_ptr--;
    }

    /* End EVALUATE */
    l_60:;

    /* Line: 2910      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2910, st_45, NULL, st_29);
    goto l_59;
  }

  /* Implicit EXIT label */
  l_59:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 57)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2914      : Section   350-PROCEDURE-DIVISION  : GCic.cbl */
  l_61:;

  /* Line: 2915      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2915, st_46, NULL, st_6);
  if (((int)cob_cmp (&f_427, (cob_field *)&c_140) != 0))
  {

    /* Line: 2916      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2916, st_46, NULL, st_4);
    memcpy (b_427, "PROCEDURE      ", 15);
  }

  /* Line: 2918      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2918, st_46, NULL, st_6);
  if ((((int)cob_cmp (&f_1256, (cob_field *)&c_141) == 0) && 
      ((int)cob_cmp (&f_1257, (cob_field *)&c_142) == 0)))
  {

    /* Line: 2920      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2920, st_46, NULL, st_4);
    *(b_417) = 63;

    /* Line: 2921      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2921, st_46, NULL, st_29);
    goto l_63;
  }

  /* Line: 2923      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2923, st_46, NULL, st_6);
  if ((((((int)(int)(*(b_1259) - 75) == 0) || 
      ((int)(int)(*(b_1259) - 86) == 0)) || 
      ((int)(int)(*(b_1259) - 65) == 0)) && 
      ((int)cob_cmp (&f_1255, (cob_field *)&c_126) == 0)))
  {

    /* Line: 2925      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2925, st_46, NULL, st_4);
    *(b_417) = *(b_1257);

    /* Line: 2926      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2926, st_46, NULL, st_29);
    goto l_63;
  }

  /* Line: 2928      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2928, st_46, NULL, st_6);
  if (((((int)(int)(*(b_1259) - 73) == 0) && 
      ((int)cob_cmp (&f_1257, &cob_all_space) == 0)) && 
      ((int)cob_cmp (&f_433, &cob_all_space) == 0)))
  {

    /* Line: 2932      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2932, st_46, NULL, st_10);
    /* PERFORM 360-Release-Def */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 121;
    frame_ptr->return_address_ptr = &&l_213;
    goto l_121;
    l_213:
    frame_ptr--;

    /* Line: 2933      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2933, st_46, NULL, st_4);
    memset (b_1257, 32, 32);

    /* Line: 2934      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2934, st_46, NULL, st_29);
    goto l_63;
  }

  /* Line: 2936      : IF                 : GCic.cbl */
  cob_set_location (st_5, 2936, st_46, NULL, st_6);
  if (!((int)(int)(*(b_1259) - 73) == 0))
  {

    /* Line: 2937      : EXIT SECTION       : GCic.cbl */
    cob_set_location (st_5, 2937, st_46, NULL, st_29);
    goto l_63;
  }

  /* Line: 2939      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 2939, st_46, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_143) == 0))
  {

    /* Line: 2941      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2941, st_46, NULL, st_10);
    /* PERFORM 351-ACCEPT */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 65;
    frame_ptr->return_address_ptr = &&l_214;
    goto l_65;
    l_214:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_144) == 0))
  {

    /* Line: 2943      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2943, st_46, NULL, st_10);
    /* PERFORM 351-ADD */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 68;
    frame_ptr->return_address_ptr = &&l_215;
    goto l_68;
    l_215:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_145) == 0))
  {

    /* Line: 2945      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2945, st_46, NULL, st_10);
    /* PERFORM 351-ALLOCATE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 71;
    frame_ptr->return_address_ptr = &&l_216;
    goto l_71;
    l_216:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_146) == 0))
  {

    /* Line: 2947      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2947, st_46, NULL, st_10);
    /* PERFORM 351-CALL */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 74;
    frame_ptr->return_address_ptr = &&l_217;
    goto l_74;
    l_217:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_147) == 0))
  {

    /* Line: 2949      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2949, st_46, NULL, st_10);
    /* PERFORM 351-COMPUTE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 77;
    frame_ptr->return_address_ptr = &&l_218;
    goto l_77;
    l_218:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_148) == 0))
  {

    /* Line: 2951      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2951, st_46, NULL, st_10);
    /* PERFORM 351-DIVIDE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 80;
    frame_ptr->return_address_ptr = &&l_219;
    goto l_80;
    l_219:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_149) == 0))
  {

    /* Line: 2953      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2953, st_46, NULL, st_10);
    /* PERFORM 351-FREE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 83;
    frame_ptr->return_address_ptr = &&l_220;
    goto l_83;
    l_220:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_150) == 0))
  {

    /* Line: 2955      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2955, st_46, NULL, st_10);
    /* PERFORM 351-GENERATE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 85;
    frame_ptr->return_address_ptr = &&l_221;
    goto l_85;
    l_221:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_151) == 0))
  {

    /* Line: 2957      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2957, st_46, NULL, st_10);
    /* PERFORM 351-INITIALIZE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 87;
    frame_ptr->return_address_ptr = &&l_222;
    goto l_87;
    l_222:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_152) == 0))
  {

    /* Line: 2959      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2959, st_46, NULL, st_10);
    /* PERFORM 351-GENERATE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 85;
    frame_ptr->return_address_ptr = &&l_223;
    goto l_85;
    l_223:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_153) == 0))
  {

    /* Line: 2961      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2961, st_46, NULL, st_10);
    /* PERFORM 351-INSPECT */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 92;
    frame_ptr->return_address_ptr = &&l_224;
    goto l_92;
    l_224:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_154) == 0))
  {

    /* Line: 2963      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2963, st_46, NULL, st_10);
    /* PERFORM 351-MOVE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 95;
    frame_ptr->return_address_ptr = &&l_225;
    goto l_95;
    l_225:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_155) == 0))
  {

    /* Line: 2965      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2965, st_46, NULL, st_10);
    /* PERFORM 351-MULTIPLY */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 98;
    frame_ptr->return_address_ptr = &&l_226;
    goto l_98;
    l_226:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_156) == 0))
  {

    /* Line: 2967      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2967, st_46, NULL, st_10);
    /* PERFORM 351-PERFORM */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 101;
    frame_ptr->return_address_ptr = &&l_227;
    goto l_101;
    l_227:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_157) == 0))
  {

    /* Line: 2969      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2969, st_46, NULL, st_10);
    /* PERFORM 351-SET */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 104;
    frame_ptr->return_address_ptr = &&l_228;
    goto l_104;
    l_228:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_158) == 0))
  {

    /* Line: 2971      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2971, st_46, NULL, st_10);
    /* PERFORM 351-STRING */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 107;
    frame_ptr->return_address_ptr = &&l_229;
    goto l_107;
    l_229:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_159) == 0))
  {

    /* Line: 2973      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2973, st_46, NULL, st_10);
    /* PERFORM 351-SUBTRACT */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 110;
    frame_ptr->return_address_ptr = &&l_230;
    goto l_110;
    l_230:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_160) == 0))
  {

    /* Line: 2975      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2975, st_46, NULL, st_10);
    /* PERFORM 351-GENERATE */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 85;
    frame_ptr->return_address_ptr = &&l_231;
    goto l_85;
    l_231:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_161) == 0))
  {

    /* Line: 2977      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2977, st_46, NULL, st_10);
    /* PERFORM 351-TRANSFORM */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 115;
    frame_ptr->return_address_ptr = &&l_232;
    goto l_115;
    l_232:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_433, (cob_field *)&c_162) == 0))
  {

    /* Line: 2979      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2979, st_46, NULL, st_10);
    /* PERFORM 351-UNSTRING */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 118;
    frame_ptr->return_address_ptr = &&l_233;
    goto l_118;
    l_233:
    frame_ptr--;
    goto l_64;
  }

  /* WHEN OTHER */

  /* Line: 2981      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2981, st_46, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_234;
  goto l_123;
  l_234:
  frame_ptr--;

  /* End EVALUATE */
  l_64:;

  /* Implicit EXIT label */
  l_63:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 61)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2985      : Section   351-ACCEPT              : GCic.cbl */
  l_65:;

  /* Line: 2986      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 2986, st_47, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_143) == 0))
  {

    /* Line: 2988      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2988, st_47, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_235;
    goto l_125;
    l_235:
    frame_ptr--;

    /* Line: 2989      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 2989, st_47, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_67;
  }

  /* WHEN OTHER */

  /* Line: 2991      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 2991, st_47, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_236;
  goto l_123;
  l_236:
  frame_ptr--;

  /* End EVALUATE */
  l_67:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 65)
    goto *frame_ptr->return_address_ptr;

  /* Line: 2995      : Section   351-ADD                 : GCic.cbl */
  l_68:;

  /* Line: 2996      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 2996, st_48, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
  {

    /* Line: 2998      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 2998, st_48, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_237;
    goto l_125;
    l_237:
    frame_ptr--;
    goto l_70;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_164) == 0))
  {

    /* Line: 3000      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3000, st_48, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_238;
    goto l_125;
    l_238:
    frame_ptr--;
    goto l_70;
  }

  /* WHEN OTHER */

  /* Line: 3002      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3002, st_48, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_239;
  goto l_123;
  l_239:
  frame_ptr--;

  /* End EVALUATE */
  l_70:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 68)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3006      : Section   351-ALLOCATE            : GCic.cbl */
  l_71:;

  /* Line: 3007      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3007, st_49, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_145) == 0))
  {

    /* Line: 3009      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3009, st_49, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_240;
    goto l_125;
    l_240:
    frame_ptr--;

    /* Line: 3010      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3010, st_49, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_73;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_165) == 0))
  {

    /* Line: 3012      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3012, st_49, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_241;
    goto l_125;
    l_241:
    frame_ptr--;
    goto l_73;
  }

  /* WHEN OTHER */

  /* Line: 3014      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3014, st_49, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_242;
  goto l_123;
  l_242:
  frame_ptr--;

  /* End EVALUATE */
  l_73:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 71)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3018      : Section   351-CALL                : GCic.cbl */
  l_74:;

  /* Line: 3019      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3019, st_50, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_165) == 0))
  {

    /* Line: 3021      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3021, st_50, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_243;
    goto l_125;
    l_243:
    frame_ptr--;
    goto l_76;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
  {

    /* Line: 3023      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3023, st_50, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_244;
    goto l_125;
    l_244:
    frame_ptr--;
    goto l_76;
  }

  /* WHEN OTHER */

  /* Line: 3025      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3025, st_50, NULL, st_10);
  /* PERFORM 365-Release-Arg */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 131;
  frame_ptr->return_address_ptr = &&l_245;
  goto l_131;
  l_245:
  frame_ptr--;

  /* End EVALUATE */
  l_76:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 74)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3029      : Section   351-COMPUTE             : GCic.cbl */
  l_77:;

  /* Line: 3030      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3030, st_51, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_147) == 0))
  {

    /* Line: 3032      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3032, st_51, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_246;
    goto l_125;
    l_246:
    frame_ptr--;
    goto l_79;
  }

  /* WHEN OTHER */

  /* Line: 3034      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3034, st_51, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_247;
  goto l_123;
  l_247:
  frame_ptr--;

  /* End EVALUATE */
  l_79:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 77)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3038      : Section   351-DIVIDE              : GCic.cbl */
  l_80:;

  /* Line: 3039      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3039, st_52, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
  {

    /* Line: 3041      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3041, st_52, NULL, st_10);
    /* PERFORM 363-Set-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 127;
    frame_ptr->return_address_ptr = &&l_248;
    goto l_127;
    l_248:
    frame_ptr--;

    /* Line: 3042      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3042, st_52, NULL, st_4);
    memcpy (b_444, b_410, 100);
    goto l_82;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
  {

    /* Line: 3044      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3044, st_52, NULL, st_6);
    if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
    {

      /* Line: 3045      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3045, st_52, NULL, st_4);
      cob_move (&f_444, &f_401);

      /* Line: 3046      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3046, st_52, NULL, st_4);
      memset (b_444, 32, 100);
      *(b_410 + 106) = 32;

      /* Line: 3048      : RELEASE            : GCic.cbl */
      cob_set_location (st_5, 3048, st_52, NULL, st_36);
      cob_file_release (h_F_SORT_WORK_FILE);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_249;
        goto l_1;
        l_249:
        frame_ptr--;
      }
    }

    /* Line: 3050      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3050, st_52, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_250;
    goto l_125;
    l_250:
    frame_ptr--;
    goto l_82;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_166) == 0))
  {

    /* Line: 3052      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3052, st_52, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_251;
    goto l_125;
    l_251:
    frame_ptr--;
    goto l_82;
  }

  /* WHEN OTHER */

  /* Line: 3054      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3054, st_52, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_252;
  goto l_123;
  l_252:
  frame_ptr--;

  /* End EVALUATE */
  l_82:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 80)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3058      : Section   351-FREE                : GCic.cbl */
  l_83:;

  /* Line: 3059      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3059, st_53, NULL, st_10);
  /* PERFORM 362-Release-Upd */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 125;
  frame_ptr->return_address_ptr = &&l_253;
  goto l_125;
  l_253:
  frame_ptr--;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 83)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3062      : Section   351-GENERATE            : GCic.cbl */
  l_85:;

  /* Line: 3063      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3063, st_54, NULL, st_10);
  /* PERFORM 362-Release-Upd */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 125;
  frame_ptr->return_address_ptr = &&l_254;
  goto l_125;
  l_254:
  frame_ptr--;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 85)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3066      : Section   351-INITIALIZE          : GCic.cbl */
  l_87:;

  /* Line: 3067      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3067, st_55, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_151) == 0))
  {

    /* Line: 3069      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3069, st_55, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_255;
    goto l_125;
    l_255:
    frame_ptr--;
    goto l_89;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_167) == 0))
  {

    /* Line: 3071      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3071, st_55, NULL, st_10);
    /* PERFORM 361-Release-Ref */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 123;
    frame_ptr->return_address_ptr = &&l_256;
    goto l_123;
    l_256:
    frame_ptr--;
    goto l_89;
  }

  /* End EVALUATE */
  l_89:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 87)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3075      : Section   351-INITIATE            : GCic.cbl */

  /* Line: 3076      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3076, st_56, NULL, st_10);
  /* PERFORM 362-Release-Upd */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 125;
  frame_ptr->return_address_ptr = &&l_257;
  goto l_125;
  l_257:
  frame_ptr--;

  /* Line: 3079      : Section   351-INSPECT             : GCic.cbl */
  l_92:;

  /* Line: 3080      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3080, st_57, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_153) == 0))
  {

    /* Line: 3082      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3082, st_57, NULL, st_10);
    /* PERFORM 364-Set-Ref */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 129;
    frame_ptr->return_address_ptr = &&l_258;
    goto l_129;
    l_258:
    frame_ptr--;

    /* Line: 3083      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3083, st_57, NULL, st_4);
    memset (b_444, 32, 100);

    /* Line: 3084      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3084, st_57, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_94;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_168) == 0))
  {

    /* Line: 3086      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3086, st_57, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_259;
    goto l_125;
    l_259:
    frame_ptr--;

    /* Line: 3087      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3087, st_57, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_94;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_167) == 0))
  {

    /* Line: 3089      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3089, st_57, NULL, st_6);
    if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
    {

      /* Line: 3090      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3090, st_57, NULL, st_4);
      cob_move (&f_444, &f_401);

      /* Line: 3091      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3091, st_57, NULL, st_4);
      memset (b_444, 32, 100);

      /* Line: 3092      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3092, st_57, NULL, st_4);
      *(b_410 + 106) = 42;

      /* Line: 3093      : RELEASE            : GCic.cbl */
      cob_set_location (st_5, 3093, st_57, NULL, st_36);
      cob_file_release (h_F_SORT_WORK_FILE);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_260;
        goto l_1;
        l_260:
        frame_ptr--;
      }
    }

    /* Line: 3095      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3095, st_57, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_94;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_169) == 0))
  {

    /* Line: 3097      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3097, st_57, NULL, st_6);
    if (((int)cob_cmp (&f_444, &cob_all_space) != 0))
    {

      /* Line: 3098      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3098, st_57, NULL, st_4);
      cob_move (&f_444, &f_401);

      /* Line: 3099      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3099, st_57, NULL, st_4);
      memset (b_444, 32, 100);

      /* Line: 3100      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3100, st_57, NULL, st_4);
      *(b_410 + 106) = 42;

      /* Line: 3101      : RELEASE            : GCic.cbl */
      cob_set_location (st_5, 3101, st_57, NULL, st_36);
      cob_file_release (h_F_SORT_WORK_FILE);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_261;
        goto l_1;
        l_261:
        frame_ptr--;
      }
    }

    /* Line: 3103      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3103, st_57, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_94;
  }

  /* WHEN OTHER */

  /* Line: 3105      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3105, st_57, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_262;
  goto l_123;
  l_262:
  frame_ptr--;

  /* End EVALUATE */
  l_94:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 92)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3109      : Section   351-MOVE                : GCic.cbl */
  l_95:;

  /* Line: 3110      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3110, st_58, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_164) == 0))
  {

    /* Line: 3112      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3112, st_58, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_263;
    goto l_125;
    l_263:
    frame_ptr--;
    goto l_97;
  }

  /* WHEN OTHER */

  /* Line: 3114      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3114, st_58, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_264;
  goto l_123;
  l_264:
  frame_ptr--;

  /* End EVALUATE */
  l_97:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 95)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3118      : Section   351-MULTIPLY            : GCic.cbl */
  l_98:;

  /* Line: 3119      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3119, st_59, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_170) == 0))
  {

    /* Line: 3121      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3121, st_59, NULL, st_10);
    /* PERFORM 363-Set-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 127;
    frame_ptr->return_address_ptr = &&l_265;
    goto l_127;
    l_265:
    frame_ptr--;

    /* Line: 3122      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3122, st_59, NULL, st_4);
    memcpy (b_444, b_410, 100);
    goto l_100;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
  {

    /* Line: 3124      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3124, st_59, NULL, st_4);
    cob_move (&f_444, &f_401);

    /* Line: 3125      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3125, st_59, NULL, st_4);
    memset (b_444, 32, 100);
    *(b_410 + 106) = 32;

    /* Line: 3127      : RELEASE            : GCic.cbl */
    cob_set_location (st_5, 3127, st_59, NULL, st_36);
    cob_file_release (h_F_SORT_WORK_FILE);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_266;
      goto l_1;
      l_266:
      frame_ptr--;
    }

    /* Line: 3128      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3128, st_59, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_267;
    goto l_125;
    l_267:
    frame_ptr--;
    goto l_100;
  }

  /* WHEN OTHER */

  /* Line: 3130      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3130, st_59, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_268;
  goto l_123;
  l_268:
  frame_ptr--;

  /* End EVALUATE */
  l_100:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 98)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3134      : Section   351-PERFORM             : GCic.cbl */
  l_101:;

  /* Line: 3135      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3135, st_60, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_171) == 0))
  {

    /* Line: 3137      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3137, st_60, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_269;
    goto l_125;
    l_269:
    frame_ptr--;

    /* Line: 3138      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3138, st_60, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_103;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_172) == 0))
  {

    /* Line: 3140      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3140, st_60, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_270;
    goto l_125;
    l_270:
    frame_ptr--;

    /* Line: 3141      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3141, st_60, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_103;
  }

  /* WHEN OTHER */

  /* Line: 3143      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3143, st_60, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_271;
  goto l_123;
  l_271:
  frame_ptr--;

  /* End EVALUATE */
  l_103:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 101)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3147      : Section   351-SET                 : GCic.cbl */
  l_104:;

  /* Line: 3148      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3148, st_61, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_157) == 0))
  {

    /* Line: 3150      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3150, st_61, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_272;
    goto l_125;
    l_272:
    frame_ptr--;
    goto l_106;
  }

  /* WHEN OTHER */

  /* Line: 3152      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3152, st_61, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_273;
  goto l_123;
  l_273:
  frame_ptr--;

  /* End EVALUATE */
  l_106:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 104)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3156      : Section   351-STRING              : GCic.cbl */
  l_107:;

  /* Line: 3157      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3157, st_62, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
  {

    /* Line: 3159      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3159, st_62, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_274;
    goto l_125;
    l_274:
    frame_ptr--;
    goto l_109;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_173) == 0))
  {

    /* Line: 3161      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3161, st_62, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_275;
    goto l_125;
    l_275:
    frame_ptr--;
    goto l_109;
  }

  /* WHEN OTHER */

  /* Line: 3163      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3163, st_62, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_276;
  goto l_123;
  l_276:
  frame_ptr--;

  /* End EVALUATE */
  l_109:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 107)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3167      : Section   351-SUBTRACT            : GCic.cbl */
  l_110:;

  /* Line: 3168      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3168, st_63, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_163) == 0))
  {

    /* Line: 3170      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3170, st_63, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_277;
    goto l_125;
    l_277:
    frame_ptr--;
    goto l_112;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_174) == 0))
  {

    /* Line: 3172      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3172, st_63, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_278;
    goto l_125;
    l_278:
    frame_ptr--;
    goto l_112;
  }

  /* WHEN OTHER */

  /* Line: 3174      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3174, st_63, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_279;
  goto l_123;
  l_279:
  frame_ptr--;

  /* End EVALUATE */
  l_112:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 110)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3178      : Section   351-TERMINATE           : GCic.cbl */

  /* Line: 3179      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3179, st_64, NULL, st_10);
  /* PERFORM 362-Release-Upd */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 125;
  frame_ptr->return_address_ptr = &&l_280;
  goto l_125;
  l_280:
  frame_ptr--;

  /* Line: 3182      : Section   351-TRANSFORM           : GCic.cbl */
  l_115:;

  /* Line: 3183      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3183, st_65, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_161) == 0))
  {

    /* Line: 3185      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3185, st_65, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_281;
    goto l_125;
    l_281:
    frame_ptr--;

    /* Line: 3186      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3186, st_65, NULL, st_4);
    memset (b_1257, 32, 32);
    goto l_117;
  }

  /* WHEN OTHER */

  /* Line: 3188      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3188, st_65, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_282;
  goto l_123;
  l_282:
  frame_ptr--;

  /* End EVALUATE */
  l_117:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 115)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3192      : Section   351-UNSTRING            : GCic.cbl */
  l_118:;

  /* Line: 3193      : EVALUATE           : GCic.cbl */
  cob_set_location (st_5, 3193, st_66, NULL, st_3);

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_138) == 0))
  {

    /* Line: 3195      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3195, st_66, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_283;
    goto l_125;
    l_283:
    frame_ptr--;
    goto l_120;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_175) == 0))
  {

    /* Line: 3197      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3197, st_66, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_284;
    goto l_125;
    l_284:
    frame_ptr--;
    goto l_120;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_176) == 0))
  {

    /* Line: 3199      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3199, st_66, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_285;
    goto l_125;
    l_285:
    frame_ptr--;
    goto l_120;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_173) == 0))
  {

    /* Line: 3201      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3201, st_66, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_286;
    goto l_125;
    l_286:
    frame_ptr--;
    goto l_120;
  }

  /* WHEN */

  if (((int)cob_cmp (&f_1257, (cob_field *)&c_168) == 0))
  {

    /* Line: 3203      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3203, st_66, NULL, st_10);
    /* PERFORM 362-Release-Upd */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 125;
    frame_ptr->return_address_ptr = &&l_287;
    goto l_125;
    l_287:
    frame_ptr--;
    goto l_120;
  }

  /* WHEN OTHER */

  /* Line: 3205      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3205, st_66, NULL, st_10);
  /* PERFORM 361-Release-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 123;
  frame_ptr->return_address_ptr = &&l_288;
  goto l_123;
  l_288:
  frame_ptr--;

  /* End EVALUATE */
  l_120:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 118)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3209      : Section   360-Release-Def         : GCic.cbl */
  l_121:;

  /* Line: 3210      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3210, st_67, NULL, st_4);
  memset (b_410, 32, 107);

  /* Line: 3211      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3211, st_67, NULL, st_4);
  memcpy (b_410, b_423, 15);

  /* Line: 3212      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3212, st_67, NULL, st_4);
  memcpy (b_410 + 15, b_1256, 32);

  /* Line: 3213      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3213, st_67, NULL, st_4);
  memcpy (b_410 + 47, b_1255, 32);

  /* Line: 3214      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3214, st_67, NULL, st_4);
  memcpy (b_410 + 79, b_427, 15);

  /* Line: 3215      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3215, st_67, NULL, st_4);
  memcpy (b_410 + 94, b_422, 6);

  /* Line: 3216      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3216, st_67, NULL, st_4);
  memset (b_410 + 100, 48, 6);

  /* Line: 3217      : RELEASE            : GCic.cbl */
  cob_set_location (st_5, 3217, st_67, NULL, st_36);
  cob_file_release (h_F_SORT_WORK_FILE);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_289;
    goto l_1;
    l_289:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 121)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3220      : Section   361-Release-Ref         : GCic.cbl */
  l_123:;

  /* Line: 3221      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3221, st_68, NULL, st_10);
  /* PERFORM 364-Set-Ref */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 129;
  frame_ptr->return_address_ptr = &&l_290;
  goto l_129;
  l_290:
  frame_ptr--;

  /* Line: 3222      : RELEASE            : GCic.cbl */
  cob_set_location (st_5, 3222, st_68, NULL, st_36);
  cob_file_release (h_F_SORT_WORK_FILE);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_291;
    goto l_1;
    l_291:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 123)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3225      : Section   362-Release-Upd         : GCic.cbl */
  l_125:;

  /* Line: 3226      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3226, st_69, NULL, st_10);
  /* PERFORM 363-Set-Upd */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 127;
  frame_ptr->return_address_ptr = &&l_292;
  goto l_127;
  l_292:
  frame_ptr--;

  /* Line: 3227      : RELEASE            : GCic.cbl */
  cob_set_location (st_5, 3227, st_69, NULL, st_36);
  cob_file_release (h_F_SORT_WORK_FILE);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_293;
    goto l_1;
    l_293:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 125)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3230      : Section   363-Set-Upd             : GCic.cbl */
  l_127:;

  /* Line: 3231      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3231, st_70, NULL, st_4);
  memset (b_410, 32, 107);

  /* Line: 3232      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3232, st_70, NULL, st_4);
  memcpy (b_410, b_423, 15);

  /* Line: 3233      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3233, st_70, NULL, st_4);
  memcpy (b_410 + 15, b_1256, 32);

  /* Line: 3234      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3234, st_70, NULL, st_4);
  memcpy (b_410 + 47, b_1255, 32);

  /* Line: 3235      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3235, st_70, NULL, st_4);
  memcpy (b_410 + 79, b_427, 15);

  /* Line: 3236      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3236, st_70, NULL, st_4);
  memcpy (b_410 + 100, b_422, 6);

  /* Line: 3237      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3237, st_70, NULL, st_4);
  *(b_410 + 106) = 42;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 127)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3240      : Section   364-Set-Ref             : GCic.cbl */
  l_129:;

  /* Line: 3241      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3241, st_71, NULL, st_4);
  memset (b_410, 32, 107);

  /* Line: 3242      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3242, st_71, NULL, st_4);
  memcpy (b_410, b_423, 15);

  /* Line: 3243      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3243, st_71, NULL, st_4);
  memcpy (b_410 + 15, b_1256, 32);

  /* Line: 3244      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3244, st_71, NULL, st_4);
  memcpy (b_410 + 47, b_1255, 32);

  /* Line: 3245      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3245, st_71, NULL, st_4);
  memcpy (b_410 + 79, b_427, 15);

  /* Line: 3246      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3246, st_71, NULL, st_4);
  memcpy (b_410 + 100, b_422, 6);

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 129)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3249      : Section   365-Release-Arg         : GCic.cbl */
  l_131:;

  /* Line: 3250      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3250, st_72, NULL, st_10);
  /* PERFORM 366-Set-Arg */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 133;
  frame_ptr->return_address_ptr = &&l_294;
  goto l_133;
  l_294:
  frame_ptr--;

  /* Line: 3251      : RELEASE            : GCic.cbl */
  cob_set_location (st_5, 3251, st_72, NULL, st_36);
  cob_file_release (h_F_SORT_WORK_FILE);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_295;
    goto l_1;
    l_295:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 131)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3254      : Section   366-Set-Arg             : GCic.cbl */
  l_133:;

  /* Line: 3255      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3255, st_73, NULL, st_4);
  memset (b_410, 32, 107);

  /* Line: 3256      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3256, st_73, NULL, st_4);
  memcpy (b_410, b_423, 15);

  /* Line: 3257      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3257, st_73, NULL, st_4);
  memcpy (b_410 + 15, b_1256, 32);

  /* Line: 3258      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3258, st_73, NULL, st_4);
  memcpy (b_410 + 47, b_1255, 32);

  /* Line: 3259      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3259, st_73, NULL, st_4);
  memcpy (b_410 + 79, b_427, 15);

  /* Line: 3260      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3260, st_73, NULL, st_4);
  memcpy (b_410 + 100, b_422, 6);

  /* Line: 3261      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3261, st_73, NULL, st_4);
  *(b_410 + 106) = 67;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 133)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3265      : Section   400-Produce-Xref-Listing: GCic.cbl */
  l_135:;

  /* Line: 3266      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3266, st_74, NULL, st_4);
  memset (b_1271, 32, 136);
  memset (b_441, 32, 47);

  /* Line: 3268      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3268, st_74, NULL, st_4);
  (*(int *)(b_445)) = 0;
  (*(int *)(b_447)) = 0;

  /* Line: 3270      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3270, st_74, NULL, st_4);
  *(b_1226) = 78;

  /* Line: 3271      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3271, st_74, NULL, st_10);
  for (;;)
  {

    /* Line: 3272      : RETURN             : GCic.cbl */
    cob_set_location (st_5, 3272, st_74, NULL, st_75);
    cob_file_return (h_F_SORT_WORK_FILE);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      if (cob_glob_ptr->cob_exception_code == 0x0501)
      {

        /* Line: 3273      : IF                 : GCic.cbl */
        cob_set_location (st_5, 3273, st_74, NULL, st_6);
        if (((int)cob_cmp (&f_1271, &cob_all_space) != 0))
        {

          /* Line: 3274      : PERFORM            : GCic.cbl */
          cob_set_location (st_5, 3274, st_74, NULL, st_10);
          /* PERFORM 410-Generate-Report-Line */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 139;
          frame_ptr->return_address_ptr = &&l_296;
          goto l_139;
          l_296:
          frame_ptr--;
        }

        /* Line: 3276      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3276, st_74, NULL, st_4);
        memset (b_1271, 32, 136);

        /* Line: 3277      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3277, st_74, NULL, st_10);
        for (;;)
        {
          if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
            break;
          /* PERFORM 410-Generate-Report-Line */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 139;
          frame_ptr->return_address_ptr = &&l_297;
          goto l_139;
          l_297:
          frame_ptr--;
        }

        /* Line: 3279      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3279, st_74, NULL, st_4);
        *(b_438) = 89;

        /* Line: 3280      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3280, st_74, NULL, st_10);
        /* PERFORM 420-Generate-Xref-Footer */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 141;
        frame_ptr->return_address_ptr = &&l_298;
        goto l_141;
        l_298:
        frame_ptr--;

        /* Line: 3281      : EXIT PERFORM       : GCic.cbl */
        cob_set_location (st_5, 3281, st_74, NULL, st_35);
        goto l_137;
      }
      else
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_299;
        goto l_1;
        l_299:
        frame_ptr--;
      }
    }

    /* Line: 3283      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3283, st_74, NULL, st_6);
    if ((((int)memcmp (b_410, b_441, 15) != 0) || 
        ((int)memcmp (b_410 + 15, b_441 + 15, 32) != 0)))
    {

      /* Line: 3285      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3285, st_74, NULL, st_4);
      *(b_1226) = 78;

      /* Line: 3286      : IF                 : GCic.cbl */
      cob_set_location (st_5, 3286, st_74, NULL, st_6);
      if (((int)cob_cmp (&f_1271, &cob_all_space) != 0))
      {

        /* Line: 3287      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3287, st_74, NULL, st_10);
        /* PERFORM 410-Generate-Report-Line */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 139;
        frame_ptr->return_address_ptr = &&l_300;
        goto l_139;
        l_300:
        frame_ptr--;
      }

      /* Line: 3289      : IF                 : GCic.cbl */
      cob_set_location (st_5, 3289, st_74, NULL, st_6);
      if (((int)memcmp (b_410, b_441, 15) != 0))
      {

        /* Line: 3290      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3290, st_74, NULL, st_4);
        memset (b_1271, 32, 136);

        /* Line: 3291      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3291, st_74, NULL, st_10);
        for (;;)
        {
          if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
            break;
          /* PERFORM 410-Generate-Report-Line */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 139;
          frame_ptr->return_address_ptr = &&l_301;
          goto l_139;
          l_301:
          frame_ptr--;
        }
      }

      /* Line: 3294      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3294, st_74, NULL, st_4);
      memcpy (b_441, b_410, 15);

      /* Line: 3295      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3295, st_74, NULL, st_4);
      memcpy (b_441 + 15, b_410 + 15, 32);
    }

    /* Line: 3297      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3297, st_74, NULL, st_6);
    if (((((int)memcmp (b_410 + 15, b_441 + 15, 32) == 0) && 
        ((int)cob_cmp (&f_406, &cob_all_space) != 0)) && 
        ((int)cob_cmp (&f_1271, &cob_all_space) != 0)))
    {

      /* Line: 3300      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3300, st_74, NULL, st_4);
      *(b_1226) = 89;

      /* Line: 3301      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3301, st_74, NULL, st_10);
      /* PERFORM 410-Generate-Report-Line */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 139;
      frame_ptr->return_address_ptr = &&l_302;
      goto l_139;
      l_302:
      frame_ptr--;

      /* Line: 3302      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3302, st_74, NULL, st_4);
      (*(int *)(b_445)) = 0;

      /* Line: 3303      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3303, st_74, NULL, st_4);
      memcpy (b_1271, b_410, 15);

      /* Line: 3304      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3304, st_74, NULL, st_4);
      memcpy (b_1271 + 16, "  (Duplicate Definition)        ", 32);

      /* Line: 3305      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3305, st_74, NULL, st_4);
      memcpy (b_1271 + 56, b_410 + 79, 15);

      /* Line: 3306      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3306, st_74, NULL, st_4);
      cob_move (&f_406, &f_1276);

      /* Line: 3307      : EXIT PERFORM CYCLE : GCic.cbl */
      cob_set_location (st_5, 3307, st_74, NULL, st_76);
      goto l_138;
    }

    /* Line: 3309      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3309, st_74, NULL, st_6);
    if (((((int)memcmp (b_410 + 15, b_441 + 15, 32) == 0) && 
        ((int)cob_cmp (&f_406, &cob_all_space) == 0)) && 
        ((int)(int)(*(b_1226) - 89) == 0)))
    {

      /* Line: 3312      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3312, st_74, NULL, st_4);
      *(b_1226) = 78;

      /* Line: 3313      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3313, st_74, NULL, st_10);
      /* PERFORM 410-Generate-Report-Line */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 139;
      frame_ptr->return_address_ptr = &&l_303;
      goto l_139;
      l_303:
      frame_ptr--;

      /* Line: 3314      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3314, st_74, NULL, st_4);
      (*(int *)(b_445)) = 0;

      /* Line: 3315      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3315, st_74, NULL, st_4);
      memcpy (b_1271, b_410, 15);

      /* Line: 3316      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3316, st_74, NULL, st_4);
      memcpy (b_1271 + 16, "  (Duplicate References)        ", 32);
    }

    /* Line: 3318      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3318, st_74, NULL, st_6);
    if (((int)cob_cmp (&f_1271, &cob_all_space) == 0))
    {

      /* Line: 3319      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3319, st_74, NULL, st_4);
      memcpy (b_1271, b_410, 15);

      /* Line: 3320      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3320, st_74, NULL, st_4);
      memcpy (b_1271 + 16, b_410 + 47, 32);

      /* Line: 3321      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3321, st_74, NULL, st_4);
      memcpy (b_1271 + 56, b_410 + 79, 15);

      /* Line: 3322      : IF                 : GCic.cbl */
      cob_set_location (st_5, 3322, st_74, NULL, st_6);
      if (((int)cob_cmp (&f_406, &cob_all_space) != 0))
      {

        /* Line: 3323      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3323, st_74, NULL, st_4);
        cob_move (&f_406, &f_1276);
      }
    }

    /* Line: 3326      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3326, st_74, NULL, st_6);
    if (((int)cob_cmp (&f_407, (cob_field *)&c_177) > 0))
    {

      /* Line: 3327      : ADD                : GCic.cbl */
      cob_set_location (st_5, 3327, st_74, NULL, st_15);
      (*(int *)(b_445)) = ((*(int *)(b_445)) + 1);

      /* Line: 3328      : IF                 : GCic.cbl */
      cob_set_location (st_5, 3328, st_74, NULL, st_6);
      if (((int)cob_cmp_s32 (b_445, cob_get_llint (&f_1284)) > 0))
      {

        /* Line: 3329      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3329, st_74, NULL, st_10);
        /* PERFORM 410-Generate-Report-Line */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 139;
        frame_ptr->return_address_ptr = &&l_304;
        goto l_139;
        l_304:
        frame_ptr--;

        /* Line: 3330      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3330, st_74, NULL, st_4);
        (*(int *)(b_445)) = 1;
      }

      /* Line: 3332      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3332, st_74, NULL, st_4);
      cob_move (&f_408, COB_SET_FLD(f0, 6, b_1271 + 72 + 8 * ((*(int *)(b_445)) - 1), &a_11));

      /* Line: 3334      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3334, st_74, NULL, st_4);
      *(b_1271 + 78 + 8 * ((*(int *)(b_445)) - 1)) = *(b_410 + 106);
    }

    /* Implicit EXIT label */
    l_138:;
  }

  /* Implicit EXIT label */
  l_137:;

  /* Line: 3338      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3338, st_74, NULL, st_6);
  if (((int)cob_cmp (&f_1271, &cob_all_space) != 0))
  {

    /* Line: 3339      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3339, st_74, NULL, st_10);
    /* PERFORM 410-Generate-Report-Line */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 139;
    frame_ptr->return_address_ptr = &&l_305;
    goto l_139;
    l_305:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 135)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3343      : Section   410-Generate-Report-Line: GCic.cbl */
  l_139:;

  /* Line: 3344      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3344, st_77, NULL, st_6);
  if (((int)cob_cmp_s32 (b_447, 1LL) < 0))
  {

    /* Line: 3345      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3345, st_77, NULL, st_10);
    /* PERFORM 420-Generate-Xref-Footer */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 141;
    frame_ptr->return_address_ptr = &&l_306;
    goto l_141;
    l_306:
    frame_ptr--;

    /* Line: 3346      : ADD                : GCic.cbl */
    cob_set_location (st_5, 3346, st_77, NULL, st_15);
    (*(int *)(b_461)) = ((*(int *)(b_461)) + 1);

    /* Line: 3347      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3347, st_77, NULL, st_4);
    memcpy (b_462, "Page: ", 6);

    /* Line: 3348      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3348, st_77, NULL, st_4);
    cob_move (&f_461, &f_464);

    /* Line: 3349      : CALL               : GCic.cbl */
    cob_set_location (st_5, 3349, st_77, NULL, st_18);
    cob_procedure_params[0] = &f_464;
    cob_procedure_params[1] = (cob_field *)&c_178;
    cob_glob_ptr->cob_call_params = 2;
    b_377 = cob_sys_justify (b_462 + 6, (cob_u8_ptr)"Left");

    /* Line: 3350      : CALL               : GCic.cbl */
    cob_set_location (st_5, 3350, st_77, NULL, st_18);
    cob_procedure_params[0] = &f_462;
    cob_procedure_params[1] = (cob_field *)&c_109;
    cob_glob_ptr->cob_call_params = 2;
    b_377 = cob_sys_justify (b_462, (cob_u8_ptr)"Right");

    /* Line: 3351      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3351, st_77, NULL, st_6);
    if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
    {

      /* Line: 3352      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3352, st_77, NULL, st_4);
      cob_move (&f_1270, &f_390);

      /* Line: 3354      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3354, st_77, NULL, st_4);
      cob_move ((cob_field *)&c_179, COB_SET_FLD(f0, 23, b_392 + 24, &a_1));

      /* Line: 3356      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3356, st_77, NULL, st_4);
      cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 125, &a_1));

      /* Line: 3358      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3358, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_307;
        goto l_1;
        l_307:
        frame_ptr--;
      }

      /* Line: 3359      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3359, st_77, NULL, st_4);
      memcpy (b_392, b_465, 135);

      /* Line: 3361      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3361, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_308;
        goto l_1;
        l_308:
        frame_ptr--;
      }

      /* Line: 3362      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3362, st_77, NULL, st_4);
      cob_move ((cob_field *)&c_180, &f_390);

      /* Line: 3365      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3365, st_77, NULL, st_4);
      memcpy (b_392 + 125, b_462, 10);

      /* Line: 3367      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3367, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_309;
        goto l_1;
        l_309:
        frame_ptr--;
      }

      /* Line: 3368      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3368, st_77, NULL, st_4);
      memset (b_392, 61, 135);

      /* Line: 3369      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3369, st_77, NULL, st_4);
      *(b_392 + 15) = 32;
      *(b_392 + 48) = 32;
      *(b_392 + 55) = 32;
      *(b_392 + 71) = 32;

      /* Line: 3373      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3373, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_310;
        goto l_1;
        l_310:
        frame_ptr--;
      }
    }
    else
    {
      /* ELSE */

      /* Line: 3375      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3375, st_77, NULL, st_4);
      cob_move (&f_1270, &f_389);

      /* Line: 3377      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3377, st_77, NULL, st_4);
      cob_move ((cob_field *)&c_179, COB_SET_FLD(f0, 23, b_392 + 24, &a_1));

      /* Line: 3379      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3379, st_77, NULL, st_4);
      cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 86, &a_1));

      /* Line: 3381      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3381, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_311;
        goto l_1;
        l_311:
        frame_ptr--;
      }

      /* Line: 3382      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3382, st_77, NULL, st_4);
      memcpy (b_392, b_465 + 39, 96);

      /* Line: 3384      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3384, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_312;
        goto l_1;
        l_312:
        frame_ptr--;
      }

      /* Line: 3385      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3385, st_77, NULL, st_4);
      memcpy (b_392, "PROGRAM-ID      Identifier/Register/Function     Defn   Where Defined   References              ", 96);

      /* Line: 3388      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3388, st_77, NULL, st_4);
      memcpy (b_392 + 86, b_462, 10);

      /* Line: 3390      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3390, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_313;
        goto l_1;
        l_313:
        frame_ptr--;
      }

      /* Line: 3391      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3391, st_77, NULL, st_4);
      memset (b_392, 61, 96);

      /* Line: 3392      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3392, st_77, NULL, st_4);
      *(b_392 + 15) = 32;
      *(b_392 + 48) = 32;
      *(b_392 + 55) = 32;
      *(b_392 + 71) = 32;

      /* Line: 3396      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3396, st_77, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_314;
        goto l_1;
        l_314:
        frame_ptr--;
      }
    }

    /* Line: 3398      : COMPUTE            : GCic.cbl */
    cob_set_location (st_5, 3398, st_77, NULL, st_40);
    cob_decimal_set_llint (d0, (*(int *)(b_448)));
    cob_decimal_set_llint (d1, 4LL);
    cob_decimal_sub (d0, d1);
    cob_decimal_get_field (d0, &f_447, 0);
  }

  /* Line: 3400      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3400, st_77, NULL, st_6);
  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
  {

    /* Line: 3401      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 3401, st_77, NULL, st_23);
    memcpy (b_392, b_1271, 135);
    cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_315;
      goto l_1;
      l_315:
      frame_ptr--;
    }
  }
  else
  {
    /* ELSE */

    /* Line: 3404      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 3404, st_77, NULL, st_23);
    memcpy (b_392, b_1271, 96);
    cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_316;
      goto l_1;
      l_316:
      frame_ptr--;
    }
  }

  /* Line: 3407      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3407, st_77, NULL, st_4);
  memset (b_1271, 32, 136);

  /* Line: 3408      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3408, st_77, NULL, st_4);
  (*(int *)(b_445)) = 0;

  /* Line: 3409      : SUBTRACT           : GCic.cbl */
  cob_set_location (st_5, 3409, st_77, NULL, st_17);
  (*(int *)(b_447)) = ((*(int *)(b_447)) - 1);

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 139)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3411      : Section   420-Generate-Xref-Footer: GCic.cbl */
  l_141:;

  /* Line: 3412      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3412, st_78, NULL, st_6);
  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
  {

    /* Line: 3413      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 3413, st_78, NULL, st_23);
    memset (b_392, 32, 135);
    cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_317;
      goto l_1;
      l_317:
      frame_ptr--;
    }

    /* Line: 3414      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3414, st_78, NULL, st_4);
    memset (b_392, 61, 135);

    /* Line: 3416      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 3416, st_78, NULL, st_23);
    cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_318;
      goto l_1;
      l_318:
      frame_ptr--;
    }

    /* Line: 3417      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3417, st_78, NULL, st_4);
    cob_move (&f_411, &f_390);

    /* Line: 3419      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3419, st_78, NULL, st_4);
    memcpy (b_392 + 125, b_462, 10);

    /* Line: 3421      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3421, st_78, NULL, st_6);
    if (((int)(int)(*(b_438) - 89) == 0))
    {

      /* Line: 3422      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3422, st_78, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_319;
        goto l_1;
        l_319:
        frame_ptr--;
      }
    }
    else
    {
      /* ELSE */

      /* Line: 3424      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3424, st_78, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x220000, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_320;
        goto l_1;
        l_320:
        frame_ptr--;
      }

      /* Line: 3425      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3425, st_78, NULL, st_23);
      memset (b_392, 32, 135);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_321;
        goto l_1;
        l_321:
        frame_ptr--;
      }
    }
  }
  else
  {
    /* ELSE */

    /* Line: 3428      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 3428, st_78, NULL, st_23);
    memset (b_392, 32, 96);
    cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_322;
      goto l_1;
      l_322:
      frame_ptr--;
    }

    /* Line: 3429      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3429, st_78, NULL, st_4);
    memset (b_392, 61, 96);

    /* Line: 3431      : WRITE              : GCic.cbl */
    cob_set_location (st_5, 3431, st_78, NULL, st_23);
    cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      /* PERFORM Default Error Handler */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 1;
      frame_ptr->return_address_ptr = &&l_323;
      goto l_1;
      l_323:
      frame_ptr--;
    }

    /* Line: 3432      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3432, st_78, NULL, st_4);
    cob_move (&f_411, &f_389);

    /* Line: 3434      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3434, st_78, NULL, st_4);
    memcpy (b_392 + 86, b_462, 10);

    /* Line: 3436      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3436, st_78, NULL, st_6);
    if (((int)(int)(*(b_438) - 89) == 0))
    {

      /* Line: 3437      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3437, st_78, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_324;
        goto l_1;
        l_324:
        frame_ptr--;
      }
    }
    else
    {
      /* ELSE */

      /* Line: 3439      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3439, st_78, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x220000, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_325;
        goto l_1;
        l_325:
        frame_ptr--;
      }

      /* Line: 3440      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3440, st_78, NULL, st_23);
      memset (b_392, 32, 96);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_326;
        goto l_1;
        l_326:
        frame_ptr--;
      }
    }
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 141)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3445      : Section   500-Produce-Source-Listing: GCic.cbl */
  l_143:;

  /* Line: 3446      : OPEN               : GCic.cbl */
  cob_set_location (st_5, 3446, st_79, NULL, st_22);
  cob_open (h_F_ORIGINAL_SRC_FILE, 1, 0, NULL);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_327;
    goto l_1;
    l_327:
    frame_ptr--;
  }
  cob_open (h_F_EXPANDED_SRC_FILE, 1, 0, NULL);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_328;
    goto l_1;
    l_328:
    frame_ptr--;
  }

  /* Line: 3448      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3448, st_79, NULL, st_4);
  memset (b_1244, 48, 6);

  /* Line: 3449      : PERFORM            : GCic.cbl */
  cob_set_location (st_5, 3449, st_79, NULL, st_10);
  for (;;)
  {

    /* Line: 3450      : READ               : GCic.cbl */
    cob_set_location (st_5, 3450, st_79, NULL, st_28);
    cob_read_next (h_F_EXPANDED_SRC_FILE, NULL, 1);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      if (cob_glob_ptr->cob_exception_code == 0x0501)
      {

        /* Line: 3451      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3451, st_79, NULL, st_4);
        memset (b_1239, 32, 263);

        /* Line: 3452      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3452, st_79, NULL, st_10);
        for (;;)
        {
          if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
            break;
          /* PERFORM 530-Generate-Source-Line */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 153;
          frame_ptr->return_address_ptr = &&l_329;
          goto l_153;
          l_329:
          frame_ptr--;
        }

        /* Line: 3454      : EXIT PERFORM       : GCic.cbl */
        cob_set_location (st_5, 3454, st_79, NULL, st_35);
        goto l_145;
      }
      else
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_330;
        goto l_1;
        l_330:
        frame_ptr--;
      }
    }

    /* Line: 3456      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3456, st_79, NULL, st_6);
    if (((int)memcmp (b_388, (cob_u8_ptr)"#DEFLIT", 7) != 0))
    {

      /* Line: 3457      : IF                 : GCic.cbl */
      cob_set_location (st_5, 3457, st_79, NULL, st_6);
      if (((int)(int)(*(b_388) - 35) == 0))
      {

        /* Line: 3458      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3458, st_79, NULL, st_10);
        /* PERFORM 510-Control-Record */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 146;
        frame_ptr->return_address_ptr = &&l_331;
        goto l_146;
        l_331:
        frame_ptr--;
      }
      else
      {
        /* ELSE */

        /* Line: 3460      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3460, st_79, NULL, st_10);
        /* PERFORM 520-Expanded-Src-Record */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 148;
        frame_ptr->return_address_ptr = &&l_332;
        goto l_148;
        l_332:
        frame_ptr--;
      }
    }
  }

  /* Implicit EXIT label */
  l_145:;

  /* Line: 3464      : CLOSE              : GCic.cbl */
  cob_set_location (st_5, 3464, st_79, NULL, st_24);
  cob_close (h_F_ORIGINAL_SRC_FILE, NULL, 0, 0);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_333;
    goto l_1;
    l_333:
    frame_ptr--;
  }
  cob_close (h_F_EXPANDED_SRC_FILE, NULL, 0, 0);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    /* PERFORM Default Error Handler */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 1;
    frame_ptr->return_address_ptr = &&l_334;
    goto l_1;
    l_334:
    frame_ptr--;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 143)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3468      : Section   510-Control-Record      : GCic.cbl */
  l_146:;

  /* Line: 3469      : UNSTRING           : GCic.cbl */
  cob_set_location (st_5, 3469, st_80, NULL, st_16);
  cob_unstring_init (&f_384, NULL, 1);
  cob_unstring_delimited ((cob_field *)&c_2, 0);
  cob_unstring_into (&f_1248, 0, 0);
  cob_unstring_into (&f_1253, 0, 0);
  cob_unstring_into (&f_435, 0, 0);
  cob_unstring_finish ();

  /* Line: 3474      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3474, st_80, NULL, st_6);
  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))
  {

    /* Line: 3476      : SET                : GCic.cbl */
    cob_set_location (st_5, 3476, st_80, NULL, st_11);
    *(b_1226 + 1) = 77;

    /* Line: 3477      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3477, st_80, NULL, st_6);
    if (((int)cob_cmp_numdisp (b_1244, 6, 0LL, 0) > 0))
    {

      /* Line: 3478      : READ               : GCic.cbl */
      cob_set_location (st_5, 3478, st_80, NULL, st_28);
      cob_read_next (h_F_EXPANDED_SRC_FILE, NULL, 1);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_335;
        goto l_1;
        l_335:
        frame_ptr--;
      }
    }
  }
  else
  {
    /* ELSE */

    /* Line: 3481      : SET                : GCic.cbl */
    cob_set_location (st_5, 3481, st_80, NULL, st_11);
    *(b_1226 + 1) = 67;
  }

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 146)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3485      : Section   520-Expanded-Src-Record : GCic.cbl */
  l_148:;

  /* Line: 3486      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3486, st_81, NULL, st_6);
  if (((int)(int)(*(b_1226 + 1) - 77) == 0))
  {

    /* Line: 3487      : ADD                : GCic.cbl */
    cob_set_location (st_5, 3487, st_81, NULL, st_15);
    cob_add_int (&f_422, 1, 0);

    /* Line: 3488      : READ               : GCic.cbl */
    cob_set_location (st_5, 3488, st_81, NULL, st_28);
    cob_read_next (h_F_ORIGINAL_SRC_FILE, NULL, 1);
    if (unlikely(cob_glob_ptr->cob_exception_code != 0))
    {
      if (cob_glob_ptr->cob_exception_code == 0x0501)
      {

        /* Line: 3488      : CONTINUE           : GCic.cbl */
        cob_set_location (st_5, 3488, st_81, NULL, st_82);
        ;
      }
      else
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_336;
        goto l_1;
        l_336:
        frame_ptr--;
      }
    }

    /* Line: 3489      : ADD                : GCic.cbl */
    cob_set_location (st_5, 3489, st_81, NULL, st_15);
    cob_add_int (&f_1244, 1, 0);

    /* Line: 3490      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3490, st_81, NULL, st_4);
    memset (b_1239, 32, 263);

    /* Line: 3491      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3491, st_81, NULL, st_4);
    cob_move (&f_1244, &f_1240);

    /* Line: 3492      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3492, st_81, NULL, st_4);
    memcpy (b_1239 + 7, b_400, 256);

    /* Line: 3493      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3493, st_81, NULL, st_4);
    cob_move (cob_intr_lower_case (0, 0, cob_intr_trim (0, 0, &f_397, 1)), &f_1252);

    /* Line: 3495      : INSPECT            : GCic.cbl */
    cob_set_location (st_5, 3495, st_81, NULL, st_13);
    cob_inspect_init (&f_1252, 1);
    cob_inspect_start ();
    cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
    cob_inspect_finish ();

    /* Line: 3496      : EVALUATE           : GCic.cbl */
    cob_set_location (st_5, 3496, st_81, NULL, st_3);

    /* WHEN */

    if (((int)(int)(*(b_400 + 6) - 47) == 0))
    {

      /* Line: 3498      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3498, st_81, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3499      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3499, st_81, NULL, st_10);
      for (;;)
      {
        if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
          break;
        /* PERFORM 530-Generate-Source-Line */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 153;
        frame_ptr->return_address_ptr = &&l_337;
        goto l_153;
        l_337:
        frame_ptr--;
      }
      goto l_151;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1252, (cob_field *)&c_181) == 0))
    {

      /* Line: 3502      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3502, st_81, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3503      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3503, st_81, NULL, st_10);
      for (;;)
      {
        if (((int)cob_cmp_s32 (b_447, 0LL) == 0))
          break;
        /* PERFORM 530-Generate-Source-Line */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 153;
        frame_ptr->return_address_ptr = &&l_338;
        goto l_153;
        l_338:
        frame_ptr--;
      }

      /* Line: 3505      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 3505, st_81, NULL, st_29);
      goto l_150;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1252, (cob_field *)&c_182) == 0))
    {

      /* Line: 3507      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3507, st_81, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3508      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3508, st_81, NULL, st_10);
      /* PERFORM 530-Generate-Source-Line */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 153;
      frame_ptr->return_address_ptr = &&l_339;
      goto l_153;
      l_339:
      frame_ptr--;

      /* Line: 3509      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 3509, st_81, NULL, st_29);
      goto l_150;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1252, (cob_field *)&c_183) == 0))
    {

      /* Line: 3511      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3511, st_81, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3512      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3512, st_81, NULL, st_10);
      for (n0 = 2LL; n0 > 0; n0--)
      {
        /* PERFORM 530-Generate-Source-Line */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 153;
        frame_ptr->return_address_ptr = &&l_340;
        goto l_153;
        l_340:
        frame_ptr--;
      }

      /* Line: 3513      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 3513, st_81, NULL, st_29);
      goto l_150;
    }

    /* WHEN */

    if (((int)cob_cmp (&f_1252, (cob_field *)&c_184) == 0))
    {

      /* Line: 3515      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3515, st_81, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3516      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3516, st_81, NULL, st_10);
      for (n1 = 3LL; n1 > 0; n1--)
      {
        /* PERFORM 530-Generate-Source-Line */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 153;
        frame_ptr->return_address_ptr = &&l_341;
        goto l_153;
        l_341:
        frame_ptr--;
      }

      /* Line: 3517      : EXIT SECTION       : GCic.cbl */
      cob_set_location (st_5, 3517, st_81, NULL, st_29);
      goto l_150;
    }

    /* End EVALUATE */
    l_151:;

    /* Line: 3519      : PERFORM            : GCic.cbl */
    cob_set_location (st_5, 3519, st_81, NULL, st_10);
    /* PERFORM 530-Generate-Source-Line */
    frame_ptr++;
    if (unlikely(frame_ptr == frame_overflow))
        cob_fatal_error (COB_FERROR_STACK);
    frame_ptr->perform_through = 153;
    frame_ptr->return_address_ptr = &&l_342;
    goto l_153;
    l_342:
    frame_ptr--;
  }
  else
  {
    /* ELSE */

    /* Line: 3521      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3521, st_81, NULL, st_6);
    if (((int)cob_cmp (&f_382, &cob_all_space) != 0))
    {

      /* Line: 3522      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3522, st_81, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3523      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3523, st_81, NULL, st_4);
      memcpy (b_1239 + 7, b_388, 256);

      /* Line: 3525      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3525, st_81, NULL, st_4);
      cob_move (cob_intr_lower_case (0, 0, cob_intr_trim (0, 0, &f_397, 1)), &f_1252);

      /* Line: 3527      : INSPECT            : GCic.cbl */
      cob_set_location (st_5, 3527, st_81, NULL, st_13);
      cob_inspect_init (&f_1252, 1);
      cob_inspect_start ();
      cob_inspect_all (&cob_all_space, (cob_field *)&c_110);
      cob_inspect_finish ();

      /* Line: 3529      : EVALUATE           : GCic.cbl */
      cob_set_location (st_5, 3529, st_81, NULL, st_3);

      /* WHEN */

      if (((int)cob_cmp (&f_1252, (cob_field *)&c_181) == 0))
      {

        /* Line: 3531      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3531, st_81, NULL, st_4);
        (*(int *)(b_447)) = 0;

        /* Line: 3532      : EXIT SECTION       : GCic.cbl */
        cob_set_location (st_5, 3532, st_81, NULL, st_29);
        goto l_150;
      }

      /* WHEN */

      if (((int)cob_cmp (&f_1252, (cob_field *)&c_182) == 0))
      {

        /* Line: 3534      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3534, st_81, NULL, st_4);
        memset (b_1239, 32, 263);

        /* Line: 3535      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3535, st_81, NULL, st_10);
        /* PERFORM 530-Generate-Source-Line */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 153;
        frame_ptr->return_address_ptr = &&l_343;
        goto l_153;
        l_343:
        frame_ptr--;

        /* Line: 3536      : EXIT SECTION       : GCic.cbl */
        cob_set_location (st_5, 3536, st_81, NULL, st_29);
        goto l_150;
      }

      /* WHEN */

      if (((int)cob_cmp (&f_1252, (cob_field *)&c_183) == 0))
      {

        /* Line: 3538      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3538, st_81, NULL, st_4);
        memset (b_1239, 32, 263);

        /* Line: 3539      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3539, st_81, NULL, st_10);
        for (n2 = 2LL; n2 > 0; n2--)
        {
          /* PERFORM 530-Generate-Source-Line */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 153;
          frame_ptr->return_address_ptr = &&l_344;
          goto l_153;
          l_344:
          frame_ptr--;
        }

        /* Line: 3540      : EXIT SECTION       : GCic.cbl */
        cob_set_location (st_5, 3540, st_81, NULL, st_29);
        goto l_150;
      }

      /* WHEN */

      if (((int)cob_cmp (&f_1252, (cob_field *)&c_184) == 0))
      {

        /* Line: 3542      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3542, st_81, NULL, st_4);
        memset (b_1239, 32, 263);

        /* Line: 3543      : PERFORM            : GCic.cbl */
        cob_set_location (st_5, 3543, st_81, NULL, st_10);
        for (n3 = 3LL; n3 > 0; n3--)
        {
          /* PERFORM 530-Generate-Source-Line */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 153;
          frame_ptr->return_address_ptr = &&l_345;
          goto l_153;
          l_345:
          frame_ptr--;
        }

        /* Line: 3544      : EXIT SECTION       : GCic.cbl */
        cob_set_location (st_5, 3544, st_81, NULL, st_29);
        goto l_150;
      }

      /* End EVALUATE */
      l_152:;

      /* Line: 3546      : PERFORM            : GCic.cbl */
      cob_set_location (st_5, 3546, st_81, NULL, st_10);
      /* PERFORM 530-Generate-Source-Line */
      frame_ptr++;
      if (unlikely(frame_ptr == frame_overflow))
          cob_fatal_error (COB_FERROR_STACK);
      frame_ptr->perform_through = 153;
      frame_ptr->return_address_ptr = &&l_346;
      goto l_153;
      l_346:
      frame_ptr--;
    }
  }

  /* Implicit EXIT label */
  l_150:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 148)
    goto *frame_ptr->return_address_ptr;

  /* Line: 3551      : Section   530-Generate-Source-Line: GCic.cbl */
  l_153:;

  /* Line: 3552      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3552, st_83, NULL, st_4);
  (*(int *)(b_1245)) = 1;

  /* Line: 3553      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3553, st_83, NULL, st_6);
  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
  {

    /* Line: 3554      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3554, st_83, NULL, st_6);
    if (((int)cob_cmp (COB_SET_FLD(f0, 128, b_1239 + 7 + 128, &a_1), &cob_all_space) > 0))
    {

      /* Line: 3555      : ADD                : GCic.cbl */
      cob_set_location (st_5, 3555, st_83, NULL, st_15);
      (*(int *)(b_1245)) = ((*(int *)(b_1245)) + 1);
    }
  }
  else
  {
    /* ELSE */

    /* Line: 3558      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3558, st_83, NULL, st_6);
    if (((int)cob_cmp (COB_SET_FLD(f0, 167, b_1239 + 7 + 89, &a_1), &cob_all_space) > 0))
    {

      /* Line: 3559      : ADD                : GCic.cbl */
      cob_set_location (st_5, 3559, st_83, NULL, st_15);
      (*(int *)(b_1245)) = ((*(int *)(b_1245)) + 1);

      /* Line: 3560      : IF                 : GCic.cbl */
      cob_set_location (st_5, 3560, st_83, NULL, st_6);
      if (((int)cob_cmp (COB_SET_FLD(f0, 78, b_1239 + 7 + 178, &a_1), &cob_all_space) > 0))
      {

        /* Line: 3561      : ADD                : GCic.cbl */
        cob_set_location (st_5, 3561, st_83, NULL, st_15);
        (*(int *)(b_1245)) = ((*(int *)(b_1245)) + 1);
      }
    }
  }

  /* Line: 3565      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3565, st_83, NULL, st_6);
  if (((int)cob_cmp_s32 (b_447, (*(int *)(b_1245))) < 0))
  {

    /* Line: 3566      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3566, st_83, NULL, st_6);
    if (((int)cob_cmp_s32 (b_461, 0LL) > 0))
    {

      /* Line: 3567      : IF                 : GCic.cbl */
      cob_set_location (st_5, 3567, st_83, NULL, st_6);
      if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
      {

        /* Line: 3568      : IF                 : GCic.cbl */
        cob_set_location (st_5, 3568, st_83, NULL, st_6);
        if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
        {

          /* Line: 3569      : WRITE              : GCic.cbl */
          cob_set_location (st_5, 3569, st_83, NULL, st_23);
          memset (b_392, 32, 135);
          cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
          if (unlikely(cob_glob_ptr->cob_exception_code != 0))
          {
            /* PERFORM Default Error Handler */
            frame_ptr++;
            if (unlikely(frame_ptr == frame_overflow))
                cob_fatal_error (COB_FERROR_STACK);
            frame_ptr->perform_through = 1;
            frame_ptr->return_address_ptr = &&l_347;
            goto l_1;
            l_347:
            frame_ptr--;
          }
        }

        /* Line: 3571      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3571, st_83, NULL, st_23);
        memset (b_392, 32, 135);
        cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_348;
          goto l_1;
          l_348:
          frame_ptr--;
        }

        /* Line: 3572      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3572, st_83, NULL, st_4);
        memset (b_392, 61, 135);

        /* Line: 3574      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3574, st_83, NULL, st_23);
        cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_349;
          goto l_1;
          l_349:
          frame_ptr--;
        }

        /* Line: 3575      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3575, st_83, NULL, st_4);
        cob_move (&f_411, &f_390);

        /* Line: 3577      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3577, st_83, NULL, st_4);
        memcpy (b_392 + 125, b_462, 10);

        /* Line: 3579      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3579, st_83, NULL, st_23);
        cob_write (h_F_LISTING_FILE, &f_390, 0x220000, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_350;
          goto l_1;
          l_350:
          frame_ptr--;
        }

        /* Line: 3580      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3580, st_83, NULL, st_23);
        memset (b_392, 32, 135);
        cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_351;
          goto l_1;
          l_351:
          frame_ptr--;
        }
      }
      else
      {
        /* ELSE */

        /* Line: 3582      : EVALUATE           : GCic.cbl */
        cob_set_location (st_5, 3582, st_83, NULL, st_3);

        /* WHEN */

        if (((int)cob_cmp_s32 (b_1245, 1LL) == 0))
        {

          /* Line: 3584      : CONTINUE           : GCic.cbl */
          cob_set_location (st_5, 3584, st_83, NULL, st_82);
          ;
          goto l_155;
        }

        /* WHEN */

        if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
        {

          /* Line: 3586      : WRITE              : GCic.cbl */
          cob_set_location (st_5, 3586, st_83, NULL, st_23);
          memset (b_392, 32, 96);
          cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
          if (unlikely(cob_glob_ptr->cob_exception_code != 0))
          {
            /* PERFORM Default Error Handler */
            frame_ptr++;
            if (unlikely(frame_ptr == frame_overflow))
                cob_fatal_error (COB_FERROR_STACK);
            frame_ptr->perform_through = 1;
            frame_ptr->return_address_ptr = &&l_352;
            goto l_1;
            l_352:
            frame_ptr--;
          }
          goto l_155;
        }

        /* WHEN */

        if (((int)cob_cmp_s32 (b_1245, 3LL) == 0))
        {

          /* Line: 3588      : WRITE              : GCic.cbl */
          cob_set_location (st_5, 3588, st_83, NULL, st_23);
          memset (b_392, 32, 96);
          cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
          if (unlikely(cob_glob_ptr->cob_exception_code != 0))
          {
            /* PERFORM Default Error Handler */
            frame_ptr++;
            if (unlikely(frame_ptr == frame_overflow))
                cob_fatal_error (COB_FERROR_STACK);
            frame_ptr->perform_through = 1;
            frame_ptr->return_address_ptr = &&l_353;
            goto l_1;
            l_353:
            frame_ptr--;
          }

          /* Line: 3589      : WRITE              : GCic.cbl */
          cob_set_location (st_5, 3589, st_83, NULL, st_23);
          memset (b_392, 32, 96);
          cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
          if (unlikely(cob_glob_ptr->cob_exception_code != 0))
          {
            /* PERFORM Default Error Handler */
            frame_ptr++;
            if (unlikely(frame_ptr == frame_overflow))
                cob_fatal_error (COB_FERROR_STACK);
            frame_ptr->perform_through = 1;
            frame_ptr->return_address_ptr = &&l_354;
            goto l_1;
            l_354:
            frame_ptr--;
          }
          goto l_155;
        }

        /* End EVALUATE */
        l_155:;

        /* Line: 3591      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3591, st_83, NULL, st_23);
        memset (b_392, 32, 96);
        cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_355;
          goto l_1;
          l_355:
          frame_ptr--;
        }

        /* Line: 3592      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3592, st_83, NULL, st_4);
        memset (b_392, 61, 96);

        /* Line: 3594      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3594, st_83, NULL, st_23);
        cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_356;
          goto l_1;
          l_356:
          frame_ptr--;
        }

        /* Line: 3595      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3595, st_83, NULL, st_4);
        cob_move (&f_411, &f_389);

        /* Line: 3597      : MOVE               : GCic.cbl */
        cob_set_location (st_5, 3597, st_83, NULL, st_4);
        memcpy (b_392 + 86, b_462, 10);

        /* Line: 3599      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3599, st_83, NULL, st_23);
        cob_write (h_F_LISTING_FILE, &f_389, 0x220000, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_357;
          goto l_1;
          l_357:
          frame_ptr--;
        }

        /* Line: 3600      : WRITE              : GCic.cbl */
        cob_set_location (st_5, 3600, st_83, NULL, st_23);
        memset (b_392, 32, 96);
        cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
        if (unlikely(cob_glob_ptr->cob_exception_code != 0))
        {
          /* PERFORM Default Error Handler */
          frame_ptr++;
          if (unlikely(frame_ptr == frame_overflow))
              cob_fatal_error (COB_FERROR_STACK);
          frame_ptr->perform_through = 1;
          frame_ptr->return_address_ptr = &&l_358;
          goto l_1;
          l_358:
          frame_ptr--;
        }
      }
    }

    /* Line: 3603      : ADD                : GCic.cbl */
    cob_set_location (st_5, 3603, st_83, NULL, st_15);
    (*(int *)(b_461)) = ((*(int *)(b_461)) + 1);

    /* Line: 3604      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3604, st_83, NULL, st_4);
    memcpy (b_462, "Page: ", 6);

    /* Line: 3605      : MOVE               : GCic.cbl */
    cob_set_location (st_5, 3605, st_83, NULL, st_4);
    cob_move (&f_461, &f_464);

    /* Line: 3606      : CALL               : GCic.cbl */
    cob_set_location (st_5, 3606, st_83, NULL, st_18);
    cob_procedure_params[0] = &f_464;
    cob_procedure_params[1] = (cob_field *)&c_178;
    cob_glob_ptr->cob_call_params = 2;
    b_377 = cob_sys_justify (b_462 + 6, (cob_u8_ptr)"Left");

    /* Line: 3607      : CALL               : GCic.cbl */
    cob_set_location (st_5, 3607, st_83, NULL, st_18);
    cob_procedure_params[0] = &f_462;
    cob_procedure_params[1] = (cob_field *)&c_109;
    cob_glob_ptr->cob_call_params = 2;
    b_377 = cob_sys_justify (b_462, (cob_u8_ptr)"Right");

    /* Line: 3608      : IF                 : GCic.cbl */
    cob_set_location (st_5, 3608, st_83, NULL, st_6);
    if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
    {

      /* Line: 3609      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3609, st_83, NULL, st_4);
      cob_move (&f_1270, &f_390);

      /* Line: 3611      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3611, st_83, NULL, st_4);
      cob_move ((cob_field *)&c_185, COB_SET_FLD(f0, 14, b_392 + 24, &a_1));

      /* Line: 3613      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3613, st_83, NULL, st_4);
      cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 125, &a_1));

      /* Line: 3615      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3615, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_359;
        goto l_1;
        l_359:
        frame_ptr--;
      }

      /* Line: 3616      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3616, st_83, NULL, st_4);
      memcpy (b_392, b_465, 135);

      /* Line: 3618      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3618, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_360;
        goto l_1;
        l_360:
        frame_ptr--;
      }

      /* Line: 3619      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3619, st_83, NULL, st_4);
      cob_move ((cob_field *)&c_186, &f_390);

      /* Line: 3621      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3621, st_83, NULL, st_4);
      memcpy (b_392 + 125, b_462, 10);

      /* Line: 3623      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3623, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_361;
        goto l_1;
        l_361:
        frame_ptr--;
      }

      /* Line: 3624      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3624, st_83, NULL, st_4);
      memcpy (b_392, b_1236, 135);

      /* Line: 3626      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3626, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_362;
        goto l_1;
        l_362:
        frame_ptr--;
      }
    }
    else
    {
      /* ELSE */

      /* Line: 3628      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3628, st_83, NULL, st_4);
      cob_move (&f_1270, &f_389);

      /* Line: 3630      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3630, st_83, NULL, st_4);
      cob_move ((cob_field *)&c_185, COB_SET_FLD(f0, 14, b_392 + 24, &a_1));

      /* Line: 3632      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3632, st_83, NULL, st_4);
      cob_move (&f_440, COB_SET_FLD(f0, 10, b_392 + 86, &a_1));

      /* Line: 3634      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3634, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_363;
        goto l_1;
        l_363:
        frame_ptr--;
      }

      /* Line: 3635      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3635, st_83, NULL, st_4);
      memcpy (b_392, b_465 + 39, 96);

      /* Line: 3637      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3637, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_364;
        goto l_1;
        l_364:
        frame_ptr--;
      }

      /* Line: 3638      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3638, st_83, NULL, st_4);
      cob_move ((cob_field *)&c_186, &f_389);

      /* Line: 3640      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3640, st_83, NULL, st_4);
      memcpy (b_392 + 86, b_462, 10);

      /* Line: 3642      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3642, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_365;
        goto l_1;
        l_365:
        frame_ptr--;
      }

      /* Line: 3643      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3643, st_83, NULL, st_4);
      memcpy (b_392, b_1236, 96);

      /* Line: 3645      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3645, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_366;
        goto l_1;
        l_366:
        frame_ptr--;
      }
    }

    /* Line: 3647      : COMPUTE            : GCic.cbl */
    cob_set_location (st_5, 3647, st_83, NULL, st_40);
    cob_decimal_set_llint (d0, (*(int *)(b_448)));
    cob_decimal_set_llint (d1, 4LL);
    cob_decimal_sub (d0, d1);
    cob_decimal_get_field (d0, &f_447, 0);
  }

  /* Line: 3649      : IF                 : GCic.cbl */
  cob_set_location (st_5, 3649, st_83, NULL, st_6);
  if (((int)cob_cmp_numdisp (b_1290, 1, 1LL, 0) == 0))
  {

    /* Line: 3650      : EVALUATE           : GCic.cbl */
    cob_set_location (st_5, 3650, st_83, NULL, st_3);

    /* WHEN */

    if (((int)cob_cmp_s32 (b_1245, 1LL) == 0))
    {

      /* Line: 3652      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3652, st_83, NULL, st_4);
      memcpy (b_392, b_1239, 135);

      /* Line: 3653      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3653, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_367;
        goto l_1;
        l_367:
        frame_ptr--;
      }

      /* Line: 3654      : SUBTRACT           : GCic.cbl */
      cob_set_location (st_5, 3654, st_83, NULL, st_17);
      (*(int *)(b_447)) = ((*(int *)(b_447)) - 1);
      goto l_156;
    }

    /* WHEN */

    if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
    {

      /* Line: 3656      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3656, st_83, NULL, st_4);
      memcpy (b_1243, b_1239 + 7, 256);

      /* Line: 3657      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3657, st_83, NULL, st_4);
      memcpy (b_392, b_1239, 135);

      /* Line: 3658      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3658, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_368;
        goto l_1;
        l_368:
        frame_ptr--;
      }

      /* Line: 3659      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3659, st_83, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3660      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3660, st_83, NULL, st_4);
      cob_move (COB_SET_FLD(f0, 128, b_1243 + 128, &a_1), &f_1242);

      /* Line: 3661      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3661, st_83, NULL, st_4);
      memcpy (b_392, b_1239, 135);

      /* Line: 3662      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3662, st_83, NULL, st_23);
      cob_write (h_F_LISTING_FILE, &f_390, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_369;
        goto l_1;
        l_369:
        frame_ptr--;
      }

      /* Line: 3663      : SUBTRACT           : GCic.cbl */
      cob_set_location (st_5, 3663, st_83, NULL, st_17);
      (*(int *)(b_447)) = ((*(int *)(b_447)) - 2);
      goto l_156;
    }

    /* End EVALUATE */
    l_156:;
  }
  else
  {
    /* ELSE */

    /* Line: 3666      : EVALUATE           : GCic.cbl */
    cob_set_location (st_5, 3666, st_83, NULL, st_3);

    /* WHEN */

    if (((int)cob_cmp_s32 (b_1245, 1LL) == 0))
    {

      /* Line: 3668      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3668, st_83, NULL, st_23);
      memcpy (b_392, b_1239, 96);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_370;
        goto l_1;
        l_370:
        frame_ptr--;
      }

      /* Line: 3670      : SUBTRACT           : GCic.cbl */
      cob_set_location (st_5, 3670, st_83, NULL, st_17);
      (*(int *)(b_447)) = ((*(int *)(b_447)) - 1);
      goto l_157;
    }

    /* WHEN */

    if (((int)cob_cmp_s32 (b_1245, 2LL) == 0))
    {

      /* Line: 3672      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3672, st_83, NULL, st_4);
      memcpy (b_1243, b_1239 + 7, 256);

      /* Line: 3673      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3673, st_83, NULL, st_23);
      memcpy (b_392, b_1239, 96);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_371;
        goto l_1;
        l_371:
        frame_ptr--;
      }

      /* Line: 3675      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3675, st_83, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3676      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3676, st_83, NULL, st_4);
      cob_move (COB_SET_FLD(f0, 89, b_1243 + 89, &a_1), &f_1242);

      /* Line: 3677      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3677, st_83, NULL, st_23);
      memcpy (b_392, b_1239, 96);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_372;
        goto l_1;
        l_372:
        frame_ptr--;
      }

      /* Line: 3679      : SUBTRACT           : GCic.cbl */
      cob_set_location (st_5, 3679, st_83, NULL, st_17);
      (*(int *)(b_447)) = ((*(int *)(b_447)) - 2);
      goto l_157;
    }

    /* WHEN */

    if (((int)cob_cmp_s32 (b_1245, 3LL) == 0))
    {

      /* Line: 3681      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3681, st_83, NULL, st_4);
      memcpy (b_1243, b_1239 + 7, 256);

      /* Line: 3682      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3682, st_83, NULL, st_23);
      memcpy (b_392, b_1239, 96);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_373;
        goto l_1;
        l_373:
        frame_ptr--;
      }

      /* Line: 3684      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3684, st_83, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3685      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3685, st_83, NULL, st_4);
      cob_move (COB_SET_FLD(f0, 89, b_1243 + 89, &a_1), &f_1242);

      /* Line: 3686      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3686, st_83, NULL, st_23);
      memcpy (b_392, b_1239, 96);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_374;
        goto l_1;
        l_374:
        frame_ptr--;
      }

      /* Line: 3688      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3688, st_83, NULL, st_4);
      memset (b_1239, 32, 263);

      /* Line: 3689      : MOVE               : GCic.cbl */
      cob_set_location (st_5, 3689, st_83, NULL, st_4);
      cob_move (COB_SET_FLD(f0, 78, b_1243 + 178, &a_1), &f_1242);

      /* Line: 3690      : WRITE              : GCic.cbl */
      cob_set_location (st_5, 3690, st_83, NULL, st_23);
      memcpy (b_392, b_1239, 96);
      cob_write (h_F_LISTING_FILE, &f_389, 0x210001, NULL, 0);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        /* PERFORM Default Error Handler */
        frame_ptr++;
        if (unlikely(frame_ptr == frame_overflow))
            cob_fatal_error (COB_FERROR_STACK);
        frame_ptr->perform_through = 1;
        frame_ptr->return_address_ptr = &&l_375;
        goto l_1;
        l_375:
        frame_ptr--;
      }

      /* Line: 3692      : SUBTRACT           : GCic.cbl */
      cob_set_location (st_5, 3692, st_83, NULL, st_17);
      (*(int *)(b_447)) = ((*(int *)(b_447)) - 3);
      goto l_157;
    }

    /* End EVALUATE */
    l_157:;
  }

  /* Line: 3695      : MOVE               : GCic.cbl */
  cob_set_location (st_5, 3695, st_83, NULL, st_4);
  memset (b_1239, 32, 263);

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 153)
    goto *frame_ptr->return_address_ptr;

  /* Program exit */

  exit_program:

  /* Decrement module active count */
  if (module->module_active) {
    module->module_active--;
  }

  /* Pop module stack */
  cob_module_leave (module);

  /* Program return */
  return b_377;


  /* Paragraph Default Error Handler   */
  l_1:;

  if (!(cob_glob_ptr->cob_error_file->flag_select_features & COB_SELECT_FILE_STATUS)) {
    cob_fatal_error (COB_FERROR_FILE);
  }

  /* Implicit Default Error Handler return */
  if (frame_ptr->perform_through == 1)
    goto *frame_ptr->return_address_ptr;

  /* Fatal error if reached */
  cob_fatal_error (COB_FERROR_CODEGEN);


  /* Program initialization */
  P_initialize:

  cob_check_version (COB_SOURCE_FILE, COB_PACKAGE_VERSION, COB_PATCH_LEVEL);

  cob_module_path = cob_glob_ptr->cob_main_argv0;

  /* Initialize module structure */
  module->module_name = "LISTING";
  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
  module->module_source = COB_SOURCE_FILE;
  module->module_entry.funcptr = (void *(*)())LISTING;
  module->module_cancel.funcptr = (void *(*)())LISTING_;
  module->collating_sequence = NULL;
  module->crt_status = NULL;
  module->cursor_pos = NULL;
  module->module_ref_count = NULL;
  module->module_path = &cob_module_path;
  module->module_active = 0;
  module->module_date = COB_MODULE_DATE;
  module->module_time = COB_MODULE_TIME;
  module->module_type = 0;
  module->module_param_cnt = 6;
  module->module_returning = 0;
  module->ebcdic_sign = 0;
  module->decimal_point = '.';
  module->currency_symbol = '$';
  module->numeric_separator = ',';
  module->flag_filename_mapping = 1;
  module->flag_binary_truncate = 1;
  module->flag_pretty_display = 1;
  module->flag_host_sign = 0;
  module->flag_no_phys_canc = 1;
  module->flag_main = 1;
  module->flag_fold_call = 0;
  module->flag_exit_program = 0;

  /* Initialize cancel callback */
  cob_set_cancel (module);

  /* Initialize WORKING-STORAGE */
  b_377 = 0;
  (*(int *) (b_378)) = 0;
  b_1223 = 1;
  memset (b_411, 32, 86);
  *(cob_u8_ptr)(b_412) = 32;
  *(cob_u8_ptr)(b_417) = 32;
  memset (b_422, 48, 6);
  memset (b_423, 32, 16);
  memset (b_427, 32, 15);
  memset (b_433, 32, 12);
  memset (b_434, 32, 2);
  *(cob_u8_ptr)(b_435) = 32;
  memset (b_436, 32, 256);
  memset (b_437, 32, 256);
  *(cob_u8_ptr)(b_438) = 32;
  cob_move (&cob_all_zero, &f_440);
  memset (b_441, 32, 47);
  memset (b_444, 32, 100);
  memset (b_445, 0, 4);
  memset (b_446, 0, 4);
  memset (b_447, 0, 4);
  memset (b_448, 0, 4);
  memset (b_449, 32, 256);
  memset (b_450, 32, 256);
  *(cob_u8_ptr)(b_451) = 32;
  memcpy (b_453, "Windows", 7);
  memset (b_453 + 7, 32, 7);
  memcpy (b_453 + 14, "Windows/Cygwin", 14);
  memcpy (b_453 + 28, "UNIX/Linux", 10);
  memset (b_453 + 28 + 10, 32, 4);
  memcpy (b_453 + 42, "OSX", 3);
  memset (b_453 + 42 + 3, 32, 11);
  memcpy (b_453 + 56, "Windows/MinGW ", 14);
  memset (b_461, 0, 4);
  memset (b_462, 32, 6);
  cob_move (&cob_all_zero, &f_464);
  memset (b_465, 32, 135);
  memset (b_466, 32, 33);
  memcpy (b_466 + 33, "FABS", 4);
  memset (b_466 + 33 + 4, 32, 29);
  memcpy (b_466 + 66, "VACCEPT", 7);
  memset (b_466 + 66 + 7, 32, 26);
  memcpy (b_466 + 99, " ACCESS", 7);
  memset (b_466 + 99 + 7, 32, 26);
  memcpy (b_466 + 132, "FACOS", 5);
  memset (b_466 + 132 + 5, 32, 28);
  memcpy (b_466 + 165, " ACTIVE-CLASS", 13);
  memset (b_466 + 165 + 13, 32, 20);
  memcpy (b_466 + 198, "VADD", 4);
  memset (b_466 + 198 + 4, 32, 29);
  memcpy (b_466 + 231, " ADDRESS", 8);
  memset (b_466 + 231 + 8, 32, 25);
  memcpy (b_466 + 264, " ADVANCING", 10);
  memset (b_466 + 264 + 10, 32, 23);
  memcpy (b_466 + 297, "KAFTER", 6);
  memset (b_466 + 297 + 6, 32, 27);
  memcpy (b_466 + 330, " ALIGNED", 8);
  memset (b_466 + 330 + 8, 32, 25);
  memcpy (b_466 + 363, " ALL", 4);
  memset (b_466 + 363 + 4, 32, 29);
  memcpy (b_466 + 396, "VALLOCATE", 9);
  memset (b_466 + 396 + 9, 32, 24);
  memcpy (b_466 + 429, " ALPHABET", 9);
  memset (b_466 + 429 + 9, 32, 24);
  memcpy (b_466 + 462, " ALPHABETIC", 11);
  memset (b_466 + 462 + 11, 32, 22);
  memcpy (b_466 + 495, " ALPHABETIC-LOWER", 17);
  memset (b_466 + 495 + 17, 32, 16);
  memcpy (b_466 + 528, " ALPHABETIC-UPPER", 17);
  memset (b_466 + 528 + 17, 32, 16);
  memcpy (b_466 + 561, " ALPHANUMERIC", 13);
  memset (b_466 + 561 + 13, 32, 20);
  memcpy (b_466 + 594, " ALPHANUMERIC-EDITED", 20);
  memset (b_466 + 594 + 20, 32, 13);
  memcpy (b_466 + 627, " ALSO", 5);
  memset (b_466 + 627 + 5, 32, 28);
  memcpy (b_466 + 660, "VALTER", 6);
  memset (b_466 + 660 + 6, 32, 27);
  memcpy (b_466 + 693, " ALTERNATE", 10);
  memset (b_466 + 693 + 10, 32, 23);
  memcpy (b_466 + 726, " AND", 4);
  memset (b_466 + 726 + 4, 32, 29);
  memcpy (b_466 + 759, "FANNUITY", 8);
  memset (b_466 + 759 + 8, 32, 25);
  memcpy (b_466 + 792, " ANY", 4);
  memset (b_466 + 792 + 4, 32, 29);
  memcpy (b_466 + 825, " ANYCASE", 8);
  memset (b_466 + 825 + 8, 32, 25);
  memcpy (b_466 + 858, " ARE", 4);
  memset (b_466 + 858 + 4, 32, 29);
  memcpy (b_466 + 891, " AREA", 5);
  memset (b_466 + 891 + 5, 32, 28);
  memcpy (b_466 + 924, " AREAS", 6);
  memset (b_466 + 924 + 6, 32, 27);
  memcpy (b_466 + 957, " ARGUMENT-NUMBER", 16);
  memset (b_466 + 957 + 16, 32, 17);
  memcpy (b_466 + 990, " ARGUMENT-VALUE", 15);
  memset (b_466 + 990 + 15, 32, 18);
  memcpy (b_466 + 1023, " ARITHMETIC", 11);
  memset (b_466 + 1023 + 11, 32, 22);
  memcpy (b_466 + 1056, " AS", 3);
  memset (b_466 + 1056 + 3, 32, 30);
  memcpy (b_466 + 1089, " ASCENDING", 10);
  memset (b_466 + 1089 + 10, 32, 23);
  memcpy (b_466 + 1122, " ASCII", 6);
  memset (b_466 + 1122 + 6, 32, 27);
  memcpy (b_466 + 1155, "FASIN", 5);
  memset (b_466 + 1155 + 5, 32, 28);
  memcpy (b_466 + 1188, " ASSIGN", 7);
  memset (b_466 + 1188 + 7, 32, 26);
  memcpy (b_466 + 1221, " AT", 3);
  memset (b_466 + 1221 + 3, 32, 30);
  memcpy (b_466 + 1254, "FATAN", 5);
  memset (b_466 + 1254 + 5, 32, 28);
  memcpy (b_466 + 1287, " ATTRIBUTE", 10);
  memset (b_466 + 1287 + 10, 32, 23);
  memcpy (b_466 + 1320, " AUTHOR", 7);
  memset (b_466 + 1320 + 7, 32, 26);
  memcpy (b_466 + 1353, " AUTO", 5);
  memset (b_466 + 1353 + 5, 32, 28);
  memcpy (b_466 + 1386, " AUTO-SKIP", 10);
  memset (b_466 + 1386 + 10, 32, 23);
  memcpy (b_466 + 1419, " AUTOMATIC", 10);
  memset (b_466 + 1419 + 10, 32, 23);
  memcpy (b_466 + 1452, " AUTOTERMINATE", 14);
  memset (b_466 + 1452 + 14, 32, 19);
  memcpy (b_466 + 1485, " AWAY-FROM-ZERO", 15);
  memset (b_466 + 1485 + 15, 32, 18);
  memcpy (b_466 + 1518, " B-AND", 6);
  memset (b_466 + 1518 + 6, 32, 27);
  memcpy (b_466 + 1551, " B-NOT", 6);
  memset (b_466 + 1551 + 6, 32, 27);
  memcpy (b_466 + 1584, " B-OR", 5);
  memset (b_466 + 1584 + 5, 32, 28);
  memcpy (b_466 + 1617, " B-XOR", 6);
  memset (b_466 + 1617 + 6, 32, 27);
  memcpy (b_466 + 1650, " BACKGROUND-COLOR", 17);
  memset (b_466 + 1650 + 17, 32, 16);
  memcpy (b_466 + 1683, " BACKGROUND-COLOUR", 18);
  memset (b_466 + 1683 + 18, 32, 15);
  memcpy (b_466 + 1716, " BASED", 6);
  memset (b_466 + 1716 + 6, 32, 27);
  memcpy (b_466 + 1749, " BEEP", 5);
  memset (b_466 + 1749 + 5, 32, 28);
  memcpy (b_466 + 1782, " BEFORE", 7);
  memset (b_466 + 1782 + 7, 32, 26);
  memcpy (b_466 + 1815, " BELL", 5);
  memset (b_466 + 1815 + 5, 32, 28);
  memcpy (b_466 + 1848, " BINARY", 7);
  memset (b_466 + 1848 + 7, 32, 26);
  memcpy (b_466 + 1881, " BINARY-C-LONG", 14);
  memset (b_466 + 1881 + 14, 32, 19);
  memcpy (b_466 + 1914, " BINARY-CHAR", 12);
  memset (b_466 + 1914 + 12, 32, 21);
  memcpy (b_466 + 1947, " BINARY-DOUBLE", 14);
  memset (b_466 + 1947 + 14, 32, 19);
  memcpy (b_466 + 1980, " BINARY-INT", 11);
  memset (b_466 + 1980 + 11, 32, 22);
  memcpy (b_466 + 2013, " BINARY-LONG", 12);
  memset (b_466 + 2013 + 12, 32, 21);
  memcpy (b_466 + 2046, " BINARY-LONG-LONG", 17);
  memset (b_466 + 2046 + 17, 32, 16);
  memcpy (b_466 + 2079, " BINARY-SHORT", 13);
  memset (b_466 + 2079 + 13, 32, 20);
  memcpy (b_466 + 2112, " BIT", 4);
  memset (b_466 + 2112 + 4, 32, 29);
  memcpy (b_466 + 2145, " BLANK", 6);
  memset (b_466 + 2145 + 6, 32, 27);
  memcpy (b_466 + 2178, " BLINK", 6);
  memset (b_466 + 2178 + 6, 32, 27);
  memcpy (b_466 + 2211, " BLOCK", 6);
  memset (b_466 + 2211 + 6, 32, 27);
  memcpy (b_466 + 2244, " BOOLEAN", 8);
  memset (b_466 + 2244 + 8, 32, 25);
  memcpy (b_466 + 2277, "FBOOLEAN-OF-INTEGER", 19);
  memset (b_466 + 2277 + 19, 32, 14);
  memcpy (b_466 + 2310, " BOTTOM", 7);
  memset (b_466 + 2310 + 7, 32, 26);
  memcpy (b_466 + 2343, "YBY", 3);
  memset (b_466 + 2343 + 3, 32, 30);
  memcpy (b_466 + 2376, "FBYTE-LENGTH", 12);
  memset (b_466 + 2376 + 12, 32, 21);
  memcpy (b_466 + 2409, "MC01", 4);
  memset (b_466 + 2409 + 4, 32, 29);
  memcpy (b_466 + 2442, "MC02", 4);
  memset (b_466 + 2442 + 4, 32, 29);
  memcpy (b_466 + 2475, "MC03", 4);
  memset (b_466 + 2475 + 4, 32, 29);
  memcpy (b_466 + 2508, "MC04", 4);
  memset (b_466 + 2508 + 4, 32, 29);
  memcpy (b_466 + 2541, "MC05", 4);
  memset (b_466 + 2541 + 4, 32, 29);
  memcpy (b_466 + 2574, "MC06", 4);
  memset (b_466 + 2574 + 4, 32, 29);
  memcpy (b_466 + 2607, "MC07", 4);
  memset (b_466 + 2607 + 4, 32, 29);
  memcpy (b_466 + 2640, "MC08", 4);
  memset (b_466 + 2640 + 4, 32, 29);
  memcpy (b_466 + 2673, "MC09", 4);
  memset (b_466 + 2673 + 4, 32, 29);
  memcpy (b_466 + 2706, "MC10", 4);
  memset (b_466 + 2706 + 4, 32, 29);
  memcpy (b_466 + 2739, "MC11", 4);
  memset (b_466 + 2739 + 4, 32, 29);
  memcpy (b_466 + 2772, "MC12", 4);
  memset (b_466 + 2772 + 4, 32, 29);
  memcpy (b_466 + 2805, "VCALL", 5);
  memset (b_466 + 2805 + 5, 32, 28);
  memcpy (b_466 + 2838, "MCALL-CONVENTION", 16);
  memset (b_466 + 2838 + 16, 32, 17);
  memcpy (b_466 + 2871, "VCANCEL", 7);
  memset (b_466 + 2871 + 7, 32, 26);
  memcpy (b_466 + 2904, " CAPACITY", 9);
  memset (b_466 + 2904 + 9, 32, 24);
  memcpy (b_466 + 2937, " CD", 3);
  memset (b_466 + 2937 + 3, 32, 30);
  memcpy (b_466 + 2970, " CENTER", 7);
  memset (b_466 + 2970 + 7, 32, 26);
  memcpy (b_466 + 3003, " CF", 3);
  memset (b_466 + 3003 + 3, 32, 30);
  memcpy (b_466 + 3036, " CH", 3);
  memset (b_466 + 3036 + 3, 32, 30);
  memcpy (b_466 + 3069, " CHAIN", 6);
  memset (b_466 + 3069 + 6, 32, 27);
  memcpy (b_466 + 3102, " CHAINING", 9);
  memset (b_466 + 3102 + 9, 32, 24);
  memcpy (b_466 + 3135, "FCHAR", 5);
  memset (b_466 + 3135 + 5, 32, 28);
  memcpy (b_466 + 3168, "FCHAR-NATIONAL", 14);
  memset (b_466 + 3168 + 14, 32, 19);
  memcpy (b_466 + 3201, " CHARACTER", 10);
  memset (b_466 + 3201 + 10, 32, 23);
  memcpy (b_466 + 3234, " CHARACTERS", 11);
  memset (b_466 + 3234 + 11, 32, 22);
  memcpy (b_466 + 3267, " CLASS", 6);
  memset (b_466 + 3267 + 6, 32, 27);
  memcpy (b_466 + 3300, " CLASS-ID", 9);
  memset (b_466 + 3300 + 9, 32, 24);
  memcpy (b_466 + 3333, " CLASSIFICATION", 15);
  memset (b_466 + 3333 + 15, 32, 18);
  memcpy (b_466 + 3366, "VCLOSE", 6);
  memset (b_466 + 3366 + 6, 32, 27);
  memcpy (b_466 + 3399, "FCOB-CRT-STATUS", 15);
  memset (b_466 + 3399 + 15, 32, 18);
  memcpy (b_466 + 3432, " CODE", 5);
  memset (b_466 + 3432 + 5, 32, 28);
  memcpy (b_466 + 3465, " CODE-SET", 9);
  memset (b_466 + 3465 + 9, 32, 24);
  memcpy (b_466 + 3498, " COL", 4);
  memset (b_466 + 3498 + 4, 32, 29);
  memcpy (b_466 + 3531, " COLLATING", 10);
  memset (b_466 + 3531 + 10, 32, 23);
  memcpy (b_466 + 3564, " COLS", 5);
  memset (b_466 + 3564 + 5, 32, 28);
  memcpy (b_466 + 3597, " COLUMN", 7);
  memset (b_466 + 3597 + 7, 32, 26);
  memcpy (b_466 + 3630, " COLUMNS", 8);
  memset (b_466 + 3630 + 8, 32, 25);
  memcpy (b_466 + 3663, "FCOMBINED-DATETIME", 18);
  memset (b_466 + 3663 + 18, 32, 15);
  memcpy (b_466 + 3696, " COMMA", 6);
  memset (b_466 + 3696 + 6, 32, 27);
  memcpy (b_466 + 3729, " COMMAND-LINE", 13);
  memset (b_466 + 3729 + 13, 32, 20);
  memcpy (b_466 + 3762, "VCOMMIT", 7);
  memset (b_466 + 3762 + 7, 32, 26);
  memcpy (b_466 + 3795, " COMMON", 7);
  memset (b_466 + 3795 + 7, 32, 26);
  memcpy (b_466 + 3828, " COMMUNICATION", 14);
  memset (b_466 + 3828 + 14, 32, 19);
  memcpy (b_466 + 3861, " COMP", 5);
  memset (b_466 + 3861 + 5, 32, 28);
  memcpy (b_466 + 3894, " COMP-1", 7);
  memset (b_466 + 3894 + 7, 32, 26);
  memcpy (b_466 + 3927, " COMP-2", 7);
  memset (b_466 + 3927 + 7, 32, 26);
  memcpy (b_466 + 3960, " COMP-3", 7);
  memset (b_466 + 3960 + 7, 32, 26);
  memcpy (b_466 + 3993, " COMP-4", 7);
  memset (b_466 + 3993 + 7, 32, 26);
  memcpy (b_466 + 4026, " COMP-5", 7);
  memset (b_466 + 4026 + 7, 32, 26);
  memcpy (b_466 + 4059, " COMP-6", 7);
  memset (b_466 + 4059 + 7, 32, 26);
  memcpy (b_466 + 4092, " COMP-X", 7);
  memset (b_466 + 4092 + 7, 32, 26);
  memcpy (b_466 + 4125, " COMPUTATIONAL", 14);
  memset (b_466 + 4125 + 14, 32, 19);
  memcpy (b_466 + 4158, " COMPUTATIONAL-1", 16);
  memset (b_466 + 4158 + 16, 32, 17);
  memcpy (b_466 + 4191, " COMPUTATIONAL-2", 16);
  memset (b_466 + 4191 + 16, 32, 17);
  memcpy (b_466 + 4224, " COMPUTATIONAL-3", 16);
  memset (b_466 + 4224 + 16, 32, 17);
  memcpy (b_466 + 4257, " COMPUTATIONAL-4", 16);
  memset (b_466 + 4257 + 16, 32, 17);
  memcpy (b_466 + 4290, " COMPUTATIONAL-5", 16);
  memset (b_466 + 4290 + 16, 32, 17);
  memcpy (b_466 + 4323, " COMPUTATIONAL-X", 16);
  memset (b_466 + 4323 + 16, 32, 17);
  memcpy (b_466 + 4356, "VCOMPUTE", 8);
  memset (b_466 + 4356 + 8, 32, 25);
  memcpy (b_466 + 4389, "FCONCATENATE", 12);
  memset (b_466 + 4389 + 12, 32, 21);
  memcpy (b_466 + 4422, " CONDITION", 10);
  memset (b_466 + 4422 + 10, 32, 23);
  memcpy (b_466 + 4455, "KCONFIGURATION", 14);
  memset (b_466 + 4455 + 14, 32, 19);
  memcpy (b_466 + 4488, "MCONSOLE", 8);
  memset (b_466 + 4488 + 8, 32, 25);
  memcpy (b_466 + 4521, " CONSTANT", 9);
  memset (b_466 + 4521 + 9, 32, 24);
  memcpy (b_466 + 4554, " CONTAINS", 9);
  memset (b_466 + 4554 + 9, 32, 24);
  memcpy (b_466 + 4587, "ACONTENT", 8);
  memset (b_466 + 4587 + 8, 32, 25);
  memcpy (b_466 + 4620, "VCONTINUE", 9);
  memset (b_466 + 4620 + 9, 32, 24);
  memcpy (b_466 + 4653, " CONTROL", 8);
  memset (b_466 + 4653 + 8, 32, 25);
  memcpy (b_466 + 4686, " CONTROLS", 9);
  memset (b_466 + 4686 + 9, 32, 24);
  memcpy (b_466 + 4719, " CONVERSION", 11);
  memset (b_466 + 4719 + 11, 32, 22);
  memcpy (b_466 + 4752, "KCONVERTING", 11);
  memset (b_466 + 4752 + 11, 32, 22);
  memcpy (b_466 + 4785, " COPY", 5);
  memset (b_466 + 4785 + 5, 32, 28);
  memcpy (b_466 + 4818, " CORR", 5);
  memset (b_466 + 4818 + 5, 32, 28);
  memcpy (b_466 + 4851, " CORRESPONDING", 14);
  memset (b_466 + 4851 + 14, 32, 19);
  memcpy (b_466 + 4884, "FCOS", 4);
  memset (b_466 + 4884 + 4, 32, 29);
  memcpy (b_466 + 4917, "KCOUNT", 6);
  memset (b_466 + 4917 + 6, 32, 27);
  memcpy (b_466 + 4950, " CRT", 4);
  memset (b_466 + 4950 + 4, 32, 29);
  memcpy (b_466 + 4983, " CRT-UNDER", 10);
  memset (b_466 + 4983 + 10, 32, 23);
  memcpy (b_466 + 5016, "MCSP", 4);
  memset (b_466 + 5016 + 4, 32, 29);
  memcpy (b_466 + 5049, " CURRENCY", 9);
  memset (b_466 + 5049 + 9, 32, 24);
  memcpy (b_466 + 5082, "FCURRENCY-SYMBOL", 16);
  memset (b_466 + 5082 + 16, 32, 17);
  memcpy (b_466 + 5115, "FCURRENT-DATE", 13);
  memset (b_466 + 5115 + 13, 32, 20);
  memcpy (b_466 + 5148, " CURSOR", 7);
  memset (b_466 + 5148 + 7, 32, 26);
  memcpy (b_466 + 5181, " CYCLE", 6);
  memset (b_466 + 5181 + 6, 32, 27);
  memcpy (b_466 + 5214, "KDATA", 5);
  memset (b_466 + 5214 + 5, 32, 28);
  memcpy (b_466 + 5247, " DATA-POINTER", 13);
  memset (b_466 + 5247 + 13, 32, 20);
  memcpy (b_466 + 5280, " DATE", 5);
  memset (b_466 + 5280 + 5, 32, 28);
  memcpy (b_466 + 5313, " DATE-COMPILED", 14);
  memset (b_466 + 5313 + 14, 32, 19);
  memcpy (b_466 + 5346, " DATE-MODIFIED", 14);
  memset (b_466 + 5346 + 14, 32, 19);
  memcpy (b_466 + 5379, "FDATE-OF-INTEGER", 16);
  memset (b_466 + 5379 + 16, 32, 17);
  memcpy (b_466 + 5412, "FDATE-TO-YYYYMMDD", 17);
  memset (b_466 + 5412 + 17, 32, 16);
  memcpy (b_466 + 5445, " DATE-WRITTEN", 13);
  memset (b_466 + 5445 + 13, 32, 20);
  memcpy (b_466 + 5478, " DAY", 4);
  memset (b_466 + 5478 + 4, 32, 29);
  memcpy (b_466 + 5511, "FDAY-OF-INTEGER", 15);
  memset (b_466 + 5511 + 15, 32, 18);
  memcpy (b_466 + 5544, " DAY-OF-WEEK", 12);
  memset (b_466 + 5544 + 12, 32, 21);
  memcpy (b_466 + 5577, "IDAY-TO-YYYYDDD", 15);
  memset (b_466 + 5577 + 15, 32, 18);
  memcpy (b_466 + 5610, " DE", 3);
  memset (b_466 + 5610 + 3, 32, 30);
  memcpy (b_466 + 5643, "IDEBUG-CONTENTS", 15);
  memset (b_466 + 5643 + 15, 32, 18);
  memcpy (b_466 + 5676, "IDEBUG-ITEM", 11);
  memset (b_466 + 5676 + 11, 32, 22);
  memcpy (b_466 + 5709, "IDEBUG-LINE", 11);
  memset (b_466 + 5709 + 11, 32, 22);
  memcpy (b_466 + 5742, "IDEBUG-NAME", 11);
  memset (b_466 + 5742 + 11, 32, 22);
  memcpy (b_466 + 5775, "IDEBUG-SUB-1", 12);
  memset (b_466 + 5775 + 12, 32, 21);
  memcpy (b_466 + 5808, "IDEBUG-SUB-2", 12);
  memset (b_466 + 5808 + 12, 32, 21);
  memcpy (b_466 + 5841, "IDEBUG-SUB-3", 12);
  memset (b_466 + 5841 + 12, 32, 21);
  memcpy (b_466 + 5874, " DEBUGGING", 10);
  memset (b_466 + 5874 + 10, 32, 23);
  memcpy (b_466 + 5907, " DECIMAL-POINT", 14);
  memset (b_466 + 5907 + 14, 32, 19);
  memcpy (b_466 + 5940, " DECLARATIVES", 13);
  memset (b_466 + 5940 + 13, 32, 20);
  memcpy (b_466 + 5973, " DEFAULT", 8);
  memset (b_466 + 5973 + 8, 32, 25);
  memcpy (b_466 + 6006, "VDELETE", 7);
  memset (b_466 + 6006 + 7, 32, 26);
  memcpy (b_466 + 6039, " DELIMITED", 10);
  memset (b_466 + 6039 + 10, 32, 23);
  memcpy (b_466 + 6072, "KDELIMITER", 10);
  memset (b_466 + 6072 + 10, 32, 23);
  memcpy (b_466 + 6105, " DEPENDING", 10);
  memset (b_466 + 6105 + 10, 32, 23);
  memcpy (b_466 + 6138, " DESCENDING", 11);
  memset (b_466 + 6138 + 11, 32, 22);
  memcpy (b_466 + 6171, " DESTINATION", 12);
  memset (b_466 + 6171 + 12, 32, 21);
  memcpy (b_466 + 6204, " DETAIL", 7);
  memset (b_466 + 6204 + 7, 32, 26);
  memcpy (b_466 + 6237, " DISC", 5);
  memset (b_466 + 6237 + 5, 32, 28);
  memcpy (b_466 + 6270, " DISK", 5);
  memset (b_466 + 6270 + 5, 32, 28);
  memcpy (b_466 + 6303, "VDISPLAY", 8);
  memset (b_466 + 6303 + 8, 32, 25);
  memcpy (b_466 + 6336, "FDISPLAY-OF", 11);
  memset (b_466 + 6336 + 11, 32, 22);
  memcpy (b_466 + 6369, "VDIVIDE", 7);
  memset (b_466 + 6369 + 7, 32, 26);
  memcpy (b_466 + 6402, "KDIVISION", 9);
  memset (b_466 + 6402 + 9, 32, 24);
  memcpy (b_466 + 6435, "KDOWN", 5);
  memset (b_466 + 6435 + 5, 32, 28);
  memcpy (b_466 + 6468, " DUPLICATES", 11);
  memset (b_466 + 6468 + 11, 32, 22);
  memcpy (b_466 + 6501, " DYNAMIC", 8);
  memset (b_466 + 6501 + 8, 32, 25);
  memcpy (b_466 + 6534, "FE", 2);
  memset (b_466 + 6534 + 2, 32, 31);
  memcpy (b_466 + 6567, " EBCDIC", 7);
  memset (b_466 + 6567 + 7, 32, 26);
  memcpy (b_466 + 6600, " EC", 3);
  memset (b_466 + 6600 + 3, 32, 30);
  memcpy (b_466 + 6633, " EGI", 4);
  memset (b_466 + 6633 + 4, 32, 29);
  memcpy (b_466 + 6666, "VELSE", 5);
  memset (b_466 + 6666 + 5, 32, 28);
  memcpy (b_466 + 6699, " EMI", 4);
  memset (b_466 + 6699 + 4, 32, 29);
  memcpy (b_466 + 6732, " EMPTY-CHECK", 12);
  memset (b_466 + 6732 + 12, 32, 21);
  memcpy (b_466 + 6765, "VENABLE", 7);
  memset (b_466 + 6765 + 7, 32, 26);
  memcpy (b_466 + 6798, "KEND", 4);
  memset (b_466 + 6798 + 4, 32, 29);
  memcpy (b_466 + 6831, " END-ACCEPT", 11);
  memset (b_466 + 6831 + 11, 32, 22);
  memcpy (b_466 + 6864, " END-ADD", 8);
  memset (b_466 + 6864 + 8, 32, 25);
  memcpy (b_466 + 6897, " END-CALL", 9);
  memset (b_466 + 6897 + 9, 32, 24);
  memcpy (b_466 + 6930, " END-CHAIN", 10);
  memset (b_466 + 6930 + 10, 32, 23);
  memcpy (b_466 + 6963, " END-COMPUTE", 12);
  memset (b_466 + 6963 + 12, 32, 21);
  memcpy (b_466 + 6996, " END-DELETE", 11);
  memset (b_466 + 6996 + 11, 32, 22);
  memcpy (b_466 + 7029, " END-DISPLAY", 12);
  memset (b_466 + 7029 + 12, 32, 21);
  memcpy (b_466 + 7062, " END-DIVIDE", 11);
  memset (b_466 + 7062 + 11, 32, 22);
  memcpy (b_466 + 7095, " END-EVALUATE", 13);
  memset (b_466 + 7095 + 13, 32, 20);
  memcpy (b_466 + 7128, " END-IF", 7);
  memset (b_466 + 7128 + 7, 32, 26);
  memcpy (b_466 + 7161, " END-MULTIPLY", 13);
  memset (b_466 + 7161 + 13, 32, 20);
  memcpy (b_466 + 7194, " END-OF-PAGE", 12);
  memset (b_466 + 7194 + 12, 32, 21);
  memcpy (b_466 + 7227, " END-PERFORM", 12);
  memset (b_466 + 7227 + 12, 32, 21);
  memcpy (b_466 + 7260, " END-READ", 9);
  memset (b_466 + 7260 + 9, 32, 24);
  memcpy (b_466 + 7293, " END-RECEIVE", 12);
  memset (b_466 + 7293 + 12, 32, 21);
  memcpy (b_466 + 7326, " END-RETURN", 11);
  memset (b_466 + 7326 + 11, 32, 22);
  memcpy (b_466 + 7359, " END-REWRITE", 12);
  memset (b_466 + 7359 + 12, 32, 21);
  memcpy (b_466 + 7392, " END-SEARCH", 11);
  memset (b_466 + 7392 + 11, 32, 22);
  memcpy (b_466 + 7425, " END-START", 10);
  memset (b_466 + 7425 + 10, 32, 23);
  memcpy (b_466 + 7458, " END-STRING", 11);
  memset (b_466 + 7458 + 11, 32, 22);
  memcpy (b_466 + 7491, " END-SUBTRACT", 13);
  memset (b_466 + 7491 + 13, 32, 20);
  memcpy (b_466 + 7524, " END-UNSTRING", 13);
  memset (b_466 + 7524 + 13, 32, 20);
  memcpy (b_466 + 7557, " END-WRITE", 10);
  memset (b_466 + 7557 + 10, 32, 23);
  memcpy (b_466 + 7590, "VENTRY", 6);
  memset (b_466 + 7590 + 6, 32, 27);
  memcpy (b_466 + 7623, " ENTRY-CONVENTION", 17);
  memset (b_466 + 7623 + 17, 32, 16);
  memcpy (b_466 + 7656, "KENVIRONMENT", 12);
  memset (b_466 + 7656 + 12, 32, 21);
  memcpy (b_466 + 7689, " ENVIRONMENT-NAME", 17);
  memset (b_466 + 7689 + 17, 32, 16);
  memcpy (b_466 + 7722, " ENVIRONMENT-VALUE", 18);
  memset (b_466 + 7722 + 18, 32, 15);
  memcpy (b_466 + 7755, " EO", 3);
  memset (b_466 + 7755 + 3, 32, 30);
  memcpy (b_466 + 7788, " EOL", 4);
  memset (b_466 + 7788 + 4, 32, 29);
  memcpy (b_466 + 7821, " EOP", 4);
  memset (b_466 + 7821 + 4, 32, 29);
  memcpy (b_466 + 7854, " EOS", 4);
  memset (b_466 + 7854 + 4, 32, 29);
  memcpy (b_466 + 7887, " EQUAL", 6);
  memset (b_466 + 7887 + 6, 32, 27);
  memcpy (b_466 + 7920, "KEQUALS", 7);
  memset (b_466 + 7920 + 7, 32, 26);
  memcpy (b_466 + 7953, " ERASE", 6);
  memset (b_466 + 7953 + 6, 32, 27);
  memcpy (b_466 + 7986, " ERROR", 6);
  memset (b_466 + 7986 + 6, 32, 27);
  memcpy (b_466 + 8019, " ESCAPE", 7);
  memset (b_466 + 8019 + 7, 32, 26);
  memcpy (b_466 + 8052, " ESI", 4);
  memset (b_466 + 8052 + 4, 32, 29);
  memcpy (b_466 + 8085, "VEVALUATE", 9);
  memset (b_466 + 8085 + 9, 32, 24);
  memcpy (b_466 + 8118, " EXCEPTION", 10);
  memset (b_466 + 8118 + 10, 32, 23);
  memcpy (b_466 + 8151, "FEXCEPTION-FILE", 15);
  memset (b_466 + 8151 + 15, 32, 18);
  memcpy (b_466 + 8184, "FEXCEPTION-FILE-N", 17);
  memset (b_466 + 8184 + 17, 32, 16);
  memcpy (b_466 + 8217, "FEXCEPTION-LOCATION", 19);
  memset (b_466 + 8217 + 19, 32, 14);
  memcpy (b_466 + 8250, "FEXCEPTION-LOCATION-N", 21);
  memset (b_466 + 8250 + 21, 32, 12);
  memcpy (b_466 + 8283, " EXCEPTION-OBJECT", 17);
  memset (b_466 + 8283 + 17, 32, 16);
  memcpy (b_466 + 8316, "FEXCEPTION-STATEMENT", 20);
  memset (b_466 + 8316 + 20, 32, 13);
  memcpy (b_466 + 8349, "FEXCEPTION-STATUS", 17);
  memset (b_466 + 8349 + 17, 32, 16);
  memcpy (b_466 + 8382, " EXCLUSIVE", 10);
  memset (b_466 + 8382 + 10, 32, 23);
  memcpy (b_466 + 8415, "VEXIT", 5);
  memset (b_466 + 8415 + 5, 32, 28);
  memcpy (b_466 + 8448, "FEXP", 4);
  memset (b_466 + 8448 + 4, 32, 29);
  memcpy (b_466 + 8481, "FEXP10", 6);
  memset (b_466 + 8481 + 6, 32, 27);
  memcpy (b_466 + 8514, " EXPANDS", 8);
  memset (b_466 + 8514 + 8, 32, 25);
  memcpy (b_466 + 8547, " EXTEND", 7);
  memset (b_466 + 8547 + 7, 32, 26);
  memcpy (b_466 + 8580, " EXTERNAL", 9);
  memset (b_466 + 8580 + 9, 32, 24);
  memcpy (b_466 + 8613, "FFACTORIAL", 10);
  memset (b_466 + 8613 + 10, 32, 23);
  memcpy (b_466 + 8646, " FACTORY", 8);
  memset (b_466 + 8646 + 8, 32, 25);
  memcpy (b_466 + 8679, " FALSE", 6);
  memset (b_466 + 8679 + 6, 32, 27);
  memcpy (b_466 + 8712, "KFD", 3);
  memset (b_466 + 8712 + 3, 32, 30);
  memcpy (b_466 + 8745, "KFILE", 5);
  memset (b_466 + 8745 + 5, 32, 28);
  memcpy (b_466 + 8778, " FILE-CONTROL", 13);
  memset (b_466 + 8778 + 13, 32, 20);
  memcpy (b_466 + 8811, " FILE-ID", 8);
  memset (b_466 + 8811 + 8, 32, 25);
  memcpy (b_466 + 8844, " FILLER", 7);
  memset (b_466 + 8844 + 7, 32, 26);
  memcpy (b_466 + 8877, " FINAL", 6);
  memset (b_466 + 8877 + 6, 32, 27);
  memcpy (b_466 + 8910, " FIRST", 6);
  memset (b_466 + 8910 + 6, 32, 27);
  memcpy (b_466 + 8943, " FLOAT-BINARY-128", 17);
  memset (b_466 + 8943 + 17, 32, 16);
  memcpy (b_466 + 8976, " FLOAT-BINARY-32", 16);
  memset (b_466 + 8976 + 16, 32, 17);
  memcpy (b_466 + 9009, " FLOAT-BINARY-64", 16);
  memset (b_466 + 9009 + 16, 32, 17);
  memcpy (b_466 + 9042, " FLOAT-DECIMAL-16", 17);
  memset (b_466 + 9042 + 17, 32, 16);
  memcpy (b_466 + 9075, " FLOAT-DECIMAL-34", 17);
  memset (b_466 + 9075 + 17, 32, 16);
  memcpy (b_466 + 9108, " FLOAT-EXTENDED", 15);
  memset (b_466 + 9108 + 15, 32, 18);
  memcpy (b_466 + 9141, " FLOAT-INFINITY", 15);
  memset (b_466 + 9141 + 15, 32, 18);
  memcpy (b_466 + 9174, " FLOAT-LONG", 11);
  memset (b_466 + 9174 + 11, 32, 22);
  memcpy (b_466 + 9207, " FLOAT-NOT-A-NUMBER", 19);
  memset (b_466 + 9207 + 19, 32, 14);
  memcpy (b_466 + 9240, " FLOAT-SHORT", 12);
  memset (b_466 + 9240 + 12, 32, 21);
  memcpy (b_466 + 9273, " FOOTING", 8);
  memset (b_466 + 9273 + 8, 32, 25);
  memcpy (b_466 + 9306, " FOR", 4);
  memset (b_466 + 9306 + 4, 32, 29);
  memcpy (b_466 + 9339, " FOREGROUND-COLOR", 17);
  memset (b_466 + 9339 + 17, 32, 16);
  memcpy (b_466 + 9372, " FOREGROUND-COLOUR", 18);
  memset (b_466 + 9372 + 18, 32, 15);
  memcpy (b_466 + 9405, " FOREVER", 8);
  memset (b_466 + 9405 + 8, 32, 25);
  memcpy (b_466 + 9438, " FORMAT", 7);
  memset (b_466 + 9438 + 7, 32, 26);
  memcpy (b_466 + 9471, "FFORMATTED-CURRENT-DATE", 23);
  memset (b_466 + 9471 + 23, 32, 10);
  memcpy (b_466 + 9504, "FFORMATTED-DATE", 15);
  memset (b_466 + 9504 + 15, 32, 18);
  memcpy (b_466 + 9537, "FFORMATTED-DATETIME", 19);
  memset (b_466 + 9537 + 19, 32, 14);
  memcpy (b_466 + 9570, "FFORMATTED-TIME", 15);
  memset (b_466 + 9570 + 15, 32, 18);
  memcpy (b_466 + 9603, "MFORMFEED", 9);
  memset (b_466 + 9603 + 9, 32, 24);
  memcpy (b_466 + 9636, "FFRACTION-PART", 14);
  memset (b_466 + 9636 + 14, 32, 19);
  memcpy (b_466 + 9669, "VFREE", 5);
  memset (b_466 + 9669 + 5, 32, 28);
  memcpy (b_466 + 9702, " FROM", 5);
  memset (b_466 + 9702 + 5, 32, 28);
  memcpy (b_466 + 9735, " FULL", 5);
  memset (b_466 + 9735 + 5, 32, 28);
  memcpy (b_466 + 9768, " FUNCTION", 9);
  memset (b_466 + 9768 + 9, 32, 24);
  memcpy (b_466 + 9801, "KFUNCTION-ID", 12);
  memset (b_466 + 9801 + 12, 32, 21);
  memcpy (b_466 + 9834, " FUNCTION-POINTER", 17);
  memset (b_466 + 9834 + 17, 32, 16);
  memcpy (b_466 + 9867, "VGENERATE", 9);
  memset (b_466 + 9867 + 9, 32, 24);
  memcpy (b_466 + 9900, " GET", 4);
  memset (b_466 + 9900 + 4, 32, 29);
  memcpy (b_466 + 9933, "KGIVING", 7);
  memset (b_466 + 9933 + 7, 32, 26);
  memcpy (b_466 + 9966, " GLOBAL", 7);
  memset (b_466 + 9966 + 7, 32, 26);
  memcpy (b_466 + 9999, "VGO", 3);
  memset (b_466 + 9999 + 3, 32, 30);
  memcpy (b_466 + 10032, "VGOBACK", 7);
  memset (b_466 + 10032 + 7, 32, 26);
  memcpy (b_466 + 10065, " GREATER", 8);
  memset (b_466 + 10065 + 8, 32, 25);
  memcpy (b_466 + 10098, " GROUP", 6);
  memset (b_466 + 10098 + 6, 32, 27);
  memcpy (b_466 + 10131, " GROUP-USAGE", 12);
  memset (b_466 + 10131 + 12, 32, 21);
  memcpy (b_466 + 10164, " HEADING", 8);
  memset (b_466 + 10164 + 8, 32, 25);
  memcpy (b_466 + 10197, " HIGH-VALUE", 11);
  memset (b_466 + 10197 + 11, 32, 22);
  memcpy (b_466 + 10230, " HIGH-VALUES", 12);
  memset (b_466 + 10230 + 12, 32, 21);
  memcpy (b_466 + 10263, "FHIGHEST-ALGEBRAIC", 18);
  memset (b_466 + 10263 + 18, 32, 15);
  memcpy (b_466 + 10296, " HIGHLIGHT", 10);
  memset (b_466 + 10296 + 10, 32, 23);
  memcpy (b_466 + 10329, " I-O", 4);
  memset (b_466 + 10329 + 4, 32, 29);
  memcpy (b_466 + 10362, " I-O-CONTROL", 12);
  memset (b_466 + 10362 + 12, 32, 21);
  memcpy (b_466 + 10395, "KID", 3);
  memset (b_466 + 10395 + 3, 32, 30);
  memcpy (b_466 + 10428, "KIDENTIFICATION", 15);
  memset (b_466 + 10428 + 15, 32, 18);
  memcpy (b_466 + 10461, "VIF", 3);
  memset (b_466 + 10461 + 3, 32, 30);
  memcpy (b_466 + 10494, " IGNORE", 7);
  memset (b_466 + 10494 + 7, 32, 26);
  memcpy (b_466 + 10527, " IGNORING", 9);
  memset (b_466 + 10527 + 9, 32, 24);
  memcpy (b_466 + 10560, " IMPLEMENTS", 11);
  memset (b_466 + 10560 + 11, 32, 22);
  memcpy (b_466 + 10593, " IN", 3);
  memset (b_466 + 10593 + 3, 32, 30);
  memcpy (b_466 + 10626, " INDEX", 6);
  memset (b_466 + 10626 + 6, 32, 27);
  memcpy (b_466 + 10659, "KINDEXED", 8);
  memset (b_466 + 10659 + 8, 32, 25);
  memcpy (b_466 + 10692, " INDICATE", 9);
  memset (b_466 + 10692 + 9, 32, 24);
  memcpy (b_466 + 10725, " INDIRECT", 9);
  memset (b_466 + 10725 + 9, 32, 24);
  memcpy (b_466 + 10758, " INHERITS", 9);
  memset (b_466 + 10758 + 9, 32, 24);
  memcpy (b_466 + 10791, " INITIAL", 8);
  memset (b_466 + 10791 + 8, 32, 25);
  memcpy (b_466 + 10824, "VINITIALISE", 11);
  memset (b_466 + 10824 + 11, 32, 22);
  memcpy (b_466 + 10857, " INITIALISED", 12);
  memset (b_466 + 10857 + 12, 32, 21);
  memcpy (b_466 + 10890, "VINITIALIZE", 11);
  memset (b_466 + 10890 + 11, 32, 22);
  memcpy (b_466 + 10923, " INITIALIZED", 12);
  memset (b_466 + 10923 + 12, 32, 21);
  memcpy (b_466 + 10956, "VINITIATE", 9);
  memset (b_466 + 10956 + 9, 32, 24);
  memcpy (b_466 + 10989, " INPUT", 6);
  memset (b_466 + 10989 + 6, 32, 27);
  memcpy (b_466 + 11022, "KINPUT-OUTPUT", 13);
  memset (b_466 + 11022 + 13, 32, 20);
  memcpy (b_466 + 11055, "VINSPECT", 8);
  memset (b_466 + 11055 + 8, 32, 25);
  memcpy (b_466 + 11088, " INSTALLATION", 13);
  memset (b_466 + 11088 + 13, 32, 20);
  memcpy (b_466 + 11121, "FINTEGER", 8);
  memset (b_466 + 11121 + 8, 32, 25);
  memcpy (b_466 + 11154, "FINTEGER-OF-BOOLEAN", 19);
  memset (b_466 + 11154 + 19, 32, 14);
  memcpy (b_466 + 11187, "FINTEGER-OF-DATE", 16);
  memset (b_466 + 11187 + 16, 32, 17);
  memcpy (b_466 + 11220, "FINTEGER-OF-DAY", 15);
  memset (b_466 + 11220 + 15, 32, 18);
  memcpy (b_466 + 11253, "FINTEGER-OF-FORMATTED-DATE", 26);
  memset (b_466 + 11253 + 26, 32, 7);
  memcpy (b_466 + 11286, "FINTEGER-PART", 13);
  memset (b_466 + 11286 + 13, 32, 20);
  memcpy (b_466 + 11319, " INTERFACE", 10);
  memset (b_466 + 11319 + 10, 32, 23);
  memcpy (b_466 + 11352, " INTERFACE-ID", 13);
  memset (b_466 + 11352 + 13, 32, 20);
  memcpy (b_466 + 11385, " INTERMEDIATE", 13);
  memset (b_466 + 11385 + 13, 32, 20);
  memcpy (b_466 + 11418, "KINTO", 5);
  memset (b_466 + 11418 + 5, 32, 28);
  memcpy (b_466 + 11451, " INTRINSIC", 10);
  memset (b_466 + 11451 + 10, 32, 23);
  memcpy (b_466 + 11484, " INVALID", 8);
  memset (b_466 + 11484 + 8, 32, 25);
  memcpy (b_466 + 11517, " INVOKE", 7);
  memset (b_466 + 11517 + 7, 32, 26);
  memcpy (b_466 + 11550, " IS", 3);
  memset (b_466 + 11550 + 3, 32, 30);
  memcpy (b_466 + 11583, " JUST", 5);
  memset (b_466 + 11583 + 5, 32, 28);
  memcpy (b_466 + 11616, " JUSTIFIED", 10);
  memset (b_466 + 11616 + 10, 32, 23);
  memcpy (b_466 + 11649, " KEPT", 5);
  memset (b_466 + 11649 + 5, 32, 28);
  memcpy (b_466 + 11682, " KEY", 4);
  memset (b_466 + 11682 + 4, 32, 29);
  memcpy (b_466 + 11715, " KEYBOARD", 9);
  memset (b_466 + 11715 + 9, 32, 24);
  memcpy (b_466 + 11748, " LABEL", 6);
  memset (b_466 + 11748 + 6, 32, 27);
  memcpy (b_466 + 11781, " LAST", 5);
  memset (b_466 + 11781 + 5, 32, 28);
  memcpy (b_466 + 11814, " LC_ALL", 7);
  memset (b_466 + 11814 + 7, 32, 26);
  memcpy (b_466 + 11847, " LC_COLLATE", 11);
  memset (b_466 + 11847 + 11, 32, 22);
  memcpy (b_466 + 11880, " LC_CTYPE", 9);
  memset (b_466 + 11880 + 9, 32, 24);
  memcpy (b_466 + 11913, " LC_MESSAGES", 12);
  memset (b_466 + 11913 + 12, 32, 21);
  memcpy (b_466 + 11946, " LC_MONETARY", 12);
  memset (b_466 + 11946 + 12, 32, 21);
  memcpy (b_466 + 11979, " LC_NUMERIC", 11);
  memset (b_466 + 11979 + 11, 32, 22);
  memcpy (b_466 + 12012, " LC_TIME", 8);
  memset (b_466 + 12012 + 8, 32, 25);
  memcpy (b_466 + 12045, " LEADING", 8);
  memset (b_466 + 12045 + 8, 32, 25);
  memcpy (b_466 + 12078, " LEFT", 5);
  memset (b_466 + 12078 + 5, 32, 28);
  memcpy (b_466 + 12111, " LEFT-JUSTIFY", 13);
  memset (b_466 + 12111 + 13, 32, 20);
  memcpy (b_466 + 12144, " LEFTLINE", 9);
  memset (b_466 + 12144 + 9, 32, 24);
  memcpy (b_466 + 12177, "FLENGTH", 7);
  memset (b_466 + 12177 + 7, 32, 26);
  memcpy (b_466 + 12210, "FLENGTH-AN", 10);
  memset (b_466 + 12210 + 10, 32, 23);
  memcpy (b_466 + 12243, " LENGTH-CHECK", 13);
  memset (b_466 + 12243 + 13, 32, 20);
  memcpy (b_466 + 12276, " LESS", 5);
  memset (b_466 + 12276 + 5, 32, 28);
  memcpy (b_466 + 12309, " LIMIT", 6);
  memset (b_466 + 12309 + 6, 32, 27);
  memcpy (b_466 + 12342, " LIMITS", 7);
  memset (b_466 + 12342 + 7, 32, 26);
  memcpy (b_466 + 12375, " LINAGE", 7);
  memset (b_466 + 12375 + 7, 32, 26);
  memcpy (b_466 + 12408, "ILINAGE-COUNTER", 15);
  memset (b_466 + 12408 + 15, 32, 18);
  memcpy (b_466 + 12441, " LINE", 5);
  memset (b_466 + 12441 + 5, 32, 28);
  memcpy (b_466 + 12474, "ILINE-COUNTER", 13);
  memset (b_466 + 12474 + 13, 32, 20);
  memcpy (b_466 + 12507, " LINES", 6);
  memset (b_466 + 12507 + 6, 32, 27);
  memcpy (b_466 + 12540, "KLINKAGE", 8);
  memset (b_466 + 12540 + 8, 32, 25);
  memcpy (b_466 + 12573, "KLOCAL-STORAGE", 14);
  memset (b_466 + 12573 + 14, 32, 19);
  memcpy (b_466 + 12606, " LOCALE", 7);
  memset (b_466 + 12606 + 7, 32, 26);
  memcpy (b_466 + 12639, "FLOCALE-COMPARE", 15);
  memset (b_466 + 12639 + 15, 32, 18);
  memcpy (b_466 + 12672, "FLOCALE-DATE", 12);
  memset (b_466 + 12672 + 12, 32, 21);
  memcpy (b_466 + 12705, "FLOCALE-TIME", 12);
  memset (b_466 + 12705 + 12, 32, 21);
  memcpy (b_466 + 12738, "FLOCALE-TIME-FROM-SECONDS", 25);
  memset (b_466 + 12738 + 25, 32, 8);
  memcpy (b_466 + 12771, " LOCK", 5);
  memset (b_466 + 12771 + 5, 32, 28);
  memcpy (b_466 + 12804, "FLOG", 4);
  memset (b_466 + 12804 + 4, 32, 29);
  memcpy (b_466 + 12837, "FLOG10", 6);
  memset (b_466 + 12837 + 6, 32, 27);
  memcpy (b_466 + 12870, " LOW-VALUE", 10);
  memset (b_466 + 12870 + 10, 32, 23);
  memcpy (b_466 + 12903, " LOW-VALUES", 11);
  memset (b_466 + 12903 + 11, 32, 22);
  memcpy (b_466 + 12936, " LOWER", 6);
  memset (b_466 + 12936 + 6, 32, 27);
  memcpy (b_466 + 12969, "FLOWER-CASE", 11);
  memset (b_466 + 12969 + 11, 32, 22);
  memcpy (b_466 + 13002, "FLOWEST-ALGEBRAIC", 17);
  memset (b_466 + 13002 + 17, 32, 16);
  memcpy (b_466 + 13035, " LOWLIGHT", 9);
  memset (b_466 + 13035 + 9, 32, 24);
  memcpy (b_466 + 13068, " MANUAL", 7);
  memset (b_466 + 13068 + 7, 32, 26);
  memcpy (b_466 + 13101, "FMAX", 4);
  memset (b_466 + 13101 + 4, 32, 29);
  memcpy (b_466 + 13134, "FMEAN", 5);
  memset (b_466 + 13134 + 5, 32, 28);
  memcpy (b_466 + 13167, "FMEDIAN", 7);
  memset (b_466 + 13167 + 7, 32, 26);
  memcpy (b_466 + 13200, " MEMORY", 7);
  memset (b_466 + 13200 + 7, 32, 26);
  memcpy (b_466 + 13233, "VMERGE", 6);
  memset (b_466 + 13233 + 6, 32, 27);
  memcpy (b_466 + 13266, " MESSAGE", 8);
  memset (b_466 + 13266 + 8, 32, 25);
  memcpy (b_466 + 13299, " METHOD", 7);
  memset (b_466 + 13299 + 7, 32, 26);
  memcpy (b_466 + 13332, " METHOD-ID", 10);
  memset (b_466 + 13332 + 10, 32, 23);
  memcpy (b_466 + 13365, "FMIDRANGE", 9);
  memset (b_466 + 13365 + 9, 32, 24);
  memcpy (b_466 + 13398, "FMIN", 4);
  memset (b_466 + 13398 + 4, 32, 29);
  memcpy (b_466 + 13431, " MINUS", 6);
  memset (b_466 + 13431 + 6, 32, 27);
  memcpy (b_466 + 13464, "FMOD", 4);
  memset (b_466 + 13464 + 4, 32, 29);
  memcpy (b_466 + 13497, " MODE", 5);
  memset (b_466 + 13497 + 5, 32, 28);
  memcpy (b_466 + 13530, "FMODULE-CALLER-ID", 17);
  memset (b_466 + 13530 + 17, 32, 16);
  memcpy (b_466 + 13563, "FMODULE-DATE", 12);
  memset (b_466 + 13563 + 12, 32, 21);
  memcpy (b_466 + 13596, "FMODULE-FORMATTED-DATE", 22);
  memset (b_466 + 13596 + 22, 32, 11);
  memcpy (b_466 + 13629, "FMODULE-ID", 10);
  memset (b_466 + 13629 + 10, 32, 23);
  memcpy (b_466 + 13662, "FMODULE-PATH", 12);
  memset (b_466 + 13662 + 12, 32, 21);
  memcpy (b_466 + 13695, "FMODULE-SOURCE", 14);
  memset (b_466 + 13695 + 14, 32, 19);
  memcpy (b_466 + 13728, "FMODULE-TIME", 12);
  memset (b_466 + 13728 + 12, 32, 21);
  memcpy (b_466 + 13761, "FMONETARY-DECIMAL-POINT", 23);
  memset (b_466 + 13761 + 23, 32, 10);
  memcpy (b_466 + 13794, "FMONETARY-THOUSANDS-SEPARATOR", 29);
  memset (b_466 + 13794 + 29, 32, 4);
  memcpy (b_466 + 13827, "VMOVE", 5);
  memset (b_466 + 13827 + 5, 32, 28);
  memcpy (b_466 + 13860, " MULTIPLE", 9);
  memset (b_466 + 13860 + 9, 32, 24);
  memcpy (b_466 + 13893, "VMULTIPLY", 9);
  memset (b_466 + 13893 + 9, 32, 24);
  memcpy (b_466 + 13926, " NAME", 5);
  memset (b_466 + 13926 + 5, 32, 28);
  memcpy (b_466 + 13959, " NATIONAL", 9);
  memset (b_466 + 13959 + 9, 32, 24);
  memcpy (b_466 + 13992, " NATIONAL-EDITED", 16);
  memset (b_466 + 13992 + 16, 32, 17);
  memcpy (b_466 + 14025, "FNATIONAL-OF", 12);
  memset (b_466 + 14025 + 12, 32, 21);
  memcpy (b_466 + 14058, " NATIVE", 7);
  memset (b_466 + 14058 + 7, 32, 26);
  memcpy (b_466 + 14091, " NEAREST-AWAY-FROM-ZERO", 23);
  memset (b_466 + 14091 + 23, 32, 10);
  memcpy (b_466 + 14124, " NEAREST-EVEN", 13);
  memset (b_466 + 14124 + 13, 32, 20);
  memcpy (b_466 + 14157, " NEAREST-TOWARD-ZERO", 20);
  memset (b_466 + 14157 + 20, 32, 13);
  memcpy (b_466 + 14190, " NEGATIVE", 9);
  memset (b_466 + 14190 + 9, 32, 24);
  memcpy (b_466 + 14223, " NESTED", 7);
  memset (b_466 + 14223 + 7, 32, 26);
  memcpy (b_466 + 14256, "VNEXT", 5);
  memset (b_466 + 14256 + 5, 32, 28);
  memcpy (b_466 + 14289, " NO", 3);
  memset (b_466 + 14289 + 3, 32, 30);
  memcpy (b_466 + 14322, " NO-ECHO", 8);
  memset (b_466 + 14322 + 8, 32, 25);
  memcpy (b_466 + 14355, " NONE", 5);
  memset (b_466 + 14355 + 5, 32, 28);
  memcpy (b_466 + 14388, " NORMAL", 7);
  memset (b_466 + 14388 + 7, 32, 26);
  memcpy (b_466 + 14421, " NOT", 4);
  memset (b_466 + 14421 + 4, 32, 29);
  memcpy (b_466 + 14454, " NULL", 5);
  memset (b_466 + 14454 + 5, 32, 28);
  memcpy (b_466 + 14487, " NULLS", 6);
  memset (b_466 + 14487 + 6, 32, 27);
  memcpy (b_466 + 14520, " NUMBER", 7);
  memset (b_466 + 14520 + 7, 32, 26);
  memcpy (b_466 + 14553, "INUMBER-OF-CALL-PARAMETERS", 26);
  memset (b_466 + 14553 + 26, 32, 7);
  memcpy (b_466 + 14586, " NUMBERS", 8);
  memset (b_466 + 14586 + 8, 32, 25);
  memcpy (b_466 + 14619, " NUMERIC", 8);
  memset (b_466 + 14619 + 8, 32, 25);
  memcpy (b_466 + 14652, "FNUMERIC-DECIMAL-POINT", 22);
  memset (b_466 + 14652 + 22, 32, 11);
  memcpy (b_466 + 14685, " NUMERIC-EDITED", 15);
  memset (b_466 + 14685 + 15, 32, 18);
  memcpy (b_466 + 14718, "FNUMERIC-THOUSANDS-SEPARATOR", 28);
  memset (b_466 + 14718 + 28, 32, 5);
  memcpy (b_466 + 14751, "FNUMVAL", 7);
  memset (b_466 + 14751 + 7, 32, 26);
  memcpy (b_466 + 14784, "FNUMVAL-C", 9);
  memset (b_466 + 14784 + 9, 32, 24);
  memcpy (b_466 + 14817, "FNUMVAL-F", 9);
  memset (b_466 + 14817 + 9, 32, 24);
  memcpy (b_466 + 14850, " OBJECT", 7);
  memset (b_466 + 14850 + 7, 32, 26);
  memcpy (b_466 + 14883, " OBJECT-COMPUTER", 16);
  memset (b_466 + 14883 + 16, 32, 17);
  memcpy (b_466 + 14916, " OBJECT-REFERENCE", 17);
  memset (b_466 + 14916 + 17, 32, 16);
  memcpy (b_466 + 14949, " OCCURS", 7);
  memset (b_466 + 14949 + 7, 32, 26);
  memcpy (b_466 + 14982, " OF", 3);
  memset (b_466 + 14982 + 3, 32, 30);
  memcpy (b_466 + 15015, " OFF", 4);
  memset (b_466 + 15015 + 4, 32, 29);
  memcpy (b_466 + 15048, " OMITTED", 8);
  memset (b_466 + 15048 + 8, 32, 25);
  memcpy (b_466 + 15081, " ON", 3);
  memset (b_466 + 15081 + 3, 32, 30);
  memcpy (b_466 + 15114, " ONLY", 5);
  memset (b_466 + 15114 + 5, 32, 28);
  memcpy (b_466 + 15147, "VOPEN", 5);
  memset (b_466 + 15147 + 5, 32, 28);
  memcpy (b_466 + 15180, " OPTIONAL", 9);
  memset (b_466 + 15180 + 9, 32, 24);
  memcpy (b_466 + 15213, " OPTIONS", 8);
  memset (b_466 + 15213 + 8, 32, 25);
  memcpy (b_466 + 15246, " OR", 3);
  memset (b_466 + 15246 + 3, 32, 30);
  memcpy (b_466 + 15279, "FORD", 4);
  memset (b_466 + 15279 + 4, 32, 29);
  memcpy (b_466 + 15312, "FORD-MAX", 8);
  memset (b_466 + 15312 + 8, 32, 25);
  memcpy (b_466 + 15345, "FORD-MIN", 8);
  memset (b_466 + 15345 + 8, 32, 25);
  memcpy (b_466 + 15378, " ORDER", 6);
  memset (b_466 + 15378 + 6, 32, 27);
  memcpy (b_466 + 15411, " ORGANISATION", 13);
  memset (b_466 + 15411 + 13, 32, 20);
  memcpy (b_466 + 15444, " ORGANIZATION", 13);
  memset (b_466 + 15444 + 13, 32, 20);
  memcpy (b_466 + 15477, " OTHER", 6);
  memset (b_466 + 15477 + 6, 32, 27);
  memcpy (b_466 + 15510, " OUTPUT", 7);
  memset (b_466 + 15510 + 7, 32, 26);
  memcpy (b_466 + 15543, " OVERFLOW", 9);
  memset (b_466 + 15543 + 9, 32, 24);
  memcpy (b_466 + 15576, " OVERLINE", 9);
  memset (b_466 + 15576 + 9, 32, 24);
  memcpy (b_466 + 15609, " OVERRIDE", 9);
  memset (b_466 + 15609 + 9, 32, 24);
  memcpy (b_466 + 15642, " PACKED-DECIMAL", 15);
  memset (b_466 + 15642 + 15, 32, 18);
  memcpy (b_466 + 15675, " PADDING", 8);
  memset (b_466 + 15675 + 8, 32, 25);
  memcpy (b_466 + 15708, " PAGE", 5);
  memset (b_466 + 15708 + 5, 32, 28);
  memcpy (b_466 + 15741, "IPAGE-COUNTER", 13);
  memset (b_466 + 15741 + 13, 32, 20);
  memcpy (b_466 + 15774, " PARAGRAPH", 10);
  memset (b_466 + 15774 + 10, 32, 23);
  memcpy (b_466 + 15807, "VPERFORM", 8);
  memset (b_466 + 15807 + 8, 32, 25);
  memcpy (b_466 + 15840, " PF", 3);
  memset (b_466 + 15840 + 3, 32, 30);
  memcpy (b_466 + 15873, " PH", 3);
  memset (b_466 + 15873 + 3, 32, 30);
  memcpy (b_466 + 15906, "FPI", 3);
  memset (b_466 + 15906 + 3, 32, 30);
  memcpy (b_466 + 15939, "KPIC", 4);
  memset (b_466 + 15939 + 4, 32, 29);
  memcpy (b_466 + 15972, "KPICTURE", 8);
  memset (b_466 + 15972 + 8, 32, 25);
  memcpy (b_466 + 16005, " PLUS", 5);
  memset (b_466 + 16005 + 5, 32, 28);
  memcpy (b_466 + 16038, "KPOINTER", 8);
  memset (b_466 + 16038 + 8, 32, 25);
  memcpy (b_466 + 16071, " POSITION", 9);
  memset (b_466 + 16071 + 9, 32, 24);
  memcpy (b_466 + 16104, " POSITIVE", 9);
  memset (b_466 + 16104 + 9, 32, 24);
  memcpy (b_466 + 16137, " PREFIXED", 9);
  memset (b_466 + 16137 + 9, 32, 24);
  memcpy (b_466 + 16170, " PRESENT", 8);
  memset (b_466 + 16170 + 8, 32, 25);
  memcpy (b_466 + 16203, "FPRESENT-VALUE", 14);
  memset (b_466 + 16203 + 14, 32, 19);
  memcpy (b_466 + 16236, " PREVIOUS", 9);
  memset (b_466 + 16236 + 9, 32, 24);
  memcpy (b_466 + 16269, "MPRINTER", 8);
  memset (b_466 + 16269 + 8, 32, 25);
  memcpy (b_466 + 16302, " PRINTING", 9);
  memset (b_466 + 16302 + 9, 32, 24);
  memcpy (b_466 + 16335, "KPROCEDURE", 10);
  memset (b_466 + 16335 + 10, 32, 23);
  memcpy (b_466 + 16368, " PROCEDURE-POINTER", 18);
  memset (b_466 + 16368 + 18, 32, 15);
  memcpy (b_466 + 16401, " PROCEDURES", 11);
  memset (b_466 + 16401 + 11, 32, 22);
  memcpy (b_466 + 16434, " PROCEED", 8);
  memset (b_466 + 16434 + 8, 32, 25);
  memcpy (b_466 + 16467, " PROGRAM", 8);
  memset (b_466 + 16467 + 8, 32, 25);
  memcpy (b_466 + 16500, "KPROGRAM-ID", 11);
  memset (b_466 + 16500 + 11, 32, 22);
  memcpy (b_466 + 16533, " PROGRAM-POINTER", 16);
  memset (b_466 + 16533 + 16, 32, 17);
  memcpy (b_466 + 16566, " PROHIBITED", 11);
  memset (b_466 + 16566 + 11, 32, 22);
  memcpy (b_466 + 16599, " PROMPT", 7);
  memset (b_466 + 16599 + 7, 32, 26);
  memcpy (b_466 + 16632, " PROPERTY", 9);
  memset (b_466 + 16632 + 9, 32, 24);
  memcpy (b_466 + 16665, " PROTOTYPE", 10);
  memset (b_466 + 16665 + 10, 32, 23);
  memcpy (b_466 + 16698, " PURGE", 6);
  memset (b_466 + 16698 + 6, 32, 27);
  memcpy (b_466 + 16731, " QUEUE", 6);
  memset (b_466 + 16731 + 6, 32, 27);
  memcpy (b_466 + 16764, " QUOTE", 6);
  memset (b_466 + 16764 + 6, 32, 27);
  memcpy (b_466 + 16797, " QUOTES", 7);
  memset (b_466 + 16797 + 7, 32, 26);
  memcpy (b_466 + 16830, " RAISE", 6);
  memset (b_466 + 16830 + 6, 32, 27);
  memcpy (b_466 + 16863, " RAISING", 8);
  memset (b_466 + 16863 + 8, 32, 25);
  memcpy (b_466 + 16896, "FRANDOM", 7);
  memset (b_466 + 16896 + 7, 32, 26);
  memcpy (b_466 + 16929, "FRANGE", 6);
  memset (b_466 + 16929 + 6, 32, 27);
  memcpy (b_466 + 16962, "KRD", 3);
  memset (b_466 + 16962 + 3, 32, 30);
  memcpy (b_466 + 16995, "VREAD", 5);
  memset (b_466 + 16995 + 5, 32, 28);
  memcpy (b_466 + 17028, "VREADY", 6);
  memset (b_466 + 17028 + 6, 32, 27);
  memcpy (b_466 + 17061, "VRECEIVE", 8);
  memset (b_466 + 17061 + 8, 32, 25);
  memcpy (b_466 + 17094, " RECORD", 7);
  memset (b_466 + 17094 + 7, 32, 26);
  memcpy (b_466 + 17127, " RECORDING", 10);
  memset (b_466 + 17127 + 10, 32, 23);
  memcpy (b_466 + 17160, " RECORDS", 8);
  memset (b_466 + 17160 + 8, 32, 25);
  memcpy (b_466 + 17193, " RECURSIVE", 10);
  memset (b_466 + 17193 + 10, 32, 23);
  memcpy (b_466 + 17226, "KREDEFINES", 10);
  memset (b_466 + 17226 + 10, 32, 23);
  memcpy (b_466 + 17259, " REEL", 5);
  memset (b_466 + 17259 + 5, 32, 28);
  memcpy (b_466 + 17292, "AREFERENCE", 10);
  memset (b_466 + 17292 + 10, 32, 23);
  memcpy (b_466 + 17325, " REFERENCES", 11);
  memset (b_466 + 17325 + 11, 32, 22);
  memcpy (b_466 + 17358, " RELATION", 9);
  memset (b_466 + 17358 + 9, 32, 24);
  memcpy (b_466 + 17391, " RELATIVE", 9);
  memset (b_466 + 17391 + 9, 32, 24);
  memcpy (b_466 + 17424, "VRELEASE", 8);
  memset (b_466 + 17424 + 8, 32, 25);
  memcpy (b_466 + 17457, "FREM", 4);
  memset (b_466 + 17457 + 4, 32, 29);
  memcpy (b_466 + 17490, " REMAINDER", 10);
  memset (b_466 + 17490 + 10, 32, 23);
  memcpy (b_466 + 17523, " REMARKS", 8);
  memset (b_466 + 17523 + 8, 32, 25);
  memcpy (b_466 + 17556, " REMOVAL", 8);
  memset (b_466 + 17556 + 8, 32, 25);
  memcpy (b_466 + 17589, "KRENAMES", 8);
  memset (b_466 + 17589 + 8, 32, 25);
  memcpy (b_466 + 17622, " REPLACE", 8);
  memset (b_466 + 17622 + 8, 32, 25);
  memcpy (b_466 + 17655, "KREPLACING", 10);
  memset (b_466 + 17655 + 10, 32, 23);
  memcpy (b_466 + 17688, "KREPORT", 7);
  memset (b_466 + 17688 + 7, 32, 26);
  memcpy (b_466 + 17721, " REPORTING", 10);
  memset (b_466 + 17721 + 10, 32, 23);
  memcpy (b_466 + 17754, " REPORTS", 8);
  memset (b_466 + 17754 + 8, 32, 25);
  memcpy (b_466 + 17787, " REPOSITORY", 11);
  memset (b_466 + 17787 + 11, 32, 22);
  memcpy (b_466 + 17820, " REQUIRED", 9);
  memset (b_466 + 17820 + 9, 32, 24);
  memcpy (b_466 + 17853, " RESERVE", 8);
  memset (b_466 + 17853 + 8, 32, 25);
  memcpy (b_466 + 17886, "VRESET", 6);
  memset (b_466 + 17886 + 6, 32, 27);
  memcpy (b_466 + 17919, " RESUME", 7);
  memset (b_466 + 17919 + 7, 32, 26);
  memcpy (b_466 + 17952, " RETRY", 6);
  memset (b_466 + 17952 + 6, 32, 27);
  memcpy (b_466 + 17985, "VRETURN", 7);
  memset (b_466 + 17985 + 7, 32, 26);
  memcpy (b_466 + 18018, "IRETURN-CODE", 12);
  memset (b_466 + 18018 + 12, 32, 21);
  memcpy (b_466 + 18051, "KRETURNING", 10);
  memset (b_466 + 18051 + 10, 32, 23);
  memcpy (b_466 + 18084, "FREVERSE", 8);
  memset (b_466 + 18084 + 8, 32, 25);
  memcpy (b_466 + 18117, " REVERSE-VIDEO", 14);
  memset (b_466 + 18117 + 14, 32, 19);
  memcpy (b_466 + 18150, " REVERSED", 9);
  memset (b_466 + 18150 + 9, 32, 24);
  memcpy (b_466 + 18183, " REWIND", 7);
  memset (b_466 + 18183 + 7, 32, 26);
  memcpy (b_466 + 18216, "VREWRITE", 8);
  memset (b_466 + 18216 + 8, 32, 25);
  memcpy (b_466 + 18249, " RF", 3);
  memset (b_466 + 18249 + 3, 32, 30);
  memcpy (b_466 + 18282, " RH", 3);
  memset (b_466 + 18282 + 3, 32, 30);
  memcpy (b_466 + 18315, " RIGHT", 6);
  memset (b_466 + 18315 + 6, 32, 27);
  memcpy (b_466 + 18348, " RIGHT-JUSTIFY", 14);
  memset (b_466 + 18348 + 14, 32, 19);
  memcpy (b_466 + 18381, "VROLLBACK", 9);
  memset (b_466 + 18381 + 9, 32, 24);
  memcpy (b_466 + 18414, " ROUNDED", 8);
  memset (b_466 + 18414 + 8, 32, 25);
  memcpy (b_466 + 18447, " ROUNDING", 9);
  memset (b_466 + 18447 + 9, 32, 24);
  memcpy (b_466 + 18480, " RUN", 4);
  memset (b_466 + 18480 + 4, 32, 29);
  memcpy (b_466 + 18513, " SAME", 5);
  memset (b_466 + 18513 + 5, 32, 28);
  memcpy (b_466 + 18546, "KSCREEN", 7);
  memset (b_466 + 18546 + 7, 32, 26);
  memcpy (b_466 + 18579, " SCROLL", 7);
  memset (b_466 + 18579 + 7, 32, 26);
  memcpy (b_466 + 18612, "KSD", 3);
  memset (b_466 + 18612 + 3, 32, 30);
  memcpy (b_466 + 18645, "VSEARCH", 7);
  memset (b_466 + 18645 + 7, 32, 26);
  memcpy (b_466 + 18678, " SECONDS", 8);
  memset (b_466 + 18678 + 8, 32, 25);
  memcpy (b_466 + 18711, "FSECONDS-FROM-FORMATTED-TIME", 28);
  memset (b_466 + 18711 + 28, 32, 5);
  memcpy (b_466 + 18744, "FSECONDS-PAST-MIDNIGHT", 22);
  memset (b_466 + 18744 + 22, 32, 11);
  memcpy (b_466 + 18777, "KSECTION", 8);
  memset (b_466 + 18777 + 8, 32, 25);
  memcpy (b_466 + 18810, " SECURE", 7);
  memset (b_466 + 18810 + 7, 32, 26);
  memcpy (b_466 + 18843, " SECURITY", 9);
  memset (b_466 + 18843 + 9, 32, 24);
  memcpy (b_466 + 18876, " SEGMENT", 8);
  memset (b_466 + 18876 + 8, 32, 25);
  memcpy (b_466 + 18909, " SEGMENT-LIMIT", 14);
  memset (b_466 + 18909 + 14, 32, 19);
  memcpy (b_466 + 18942, " SELECT", 7);
  memset (b_466 + 18942 + 7, 32, 26);
  memcpy (b_466 + 18975, " SELF", 5);
  memset (b_466 + 18975 + 5, 32, 28);
  memcpy (b_466 + 19008, "VSEND", 5);
  memset (b_466 + 19008 + 5, 32, 28);
  memcpy (b_466 + 19041, " SENTENCE", 9);
  memset (b_466 + 19041 + 9, 32, 24);
  memcpy (b_466 + 19074, " SEPARATE", 9);
  memset (b_466 + 19074 + 9, 32, 24);
  memcpy (b_466 + 19107, " SEQUENCE", 9);
  memset (b_466 + 19107 + 9, 32, 24);
  memcpy (b_466 + 19140, " SEQUENTIAL", 11);
  memset (b_466 + 19140 + 11, 32, 22);
  memcpy (b_466 + 19173, "VSET", 4);
  memset (b_466 + 19173 + 4, 32, 29);
  memcpy (b_466 + 19206, " SHARING", 8);
  memset (b_466 + 19206 + 8, 32, 25);
  memcpy (b_466 + 19239, "FSIGN", 5);
  memset (b_466 + 19239 + 5, 32, 28);
  memcpy (b_466 + 19272, " SIGNED", 7);
  memset (b_466 + 19272 + 7, 32, 26);
  memcpy (b_466 + 19305, " SIGNED-INT", 11);
  memset (b_466 + 19305 + 11, 32, 22);
  memcpy (b_466 + 19338, " SIGNED-LONG", 12);
  memset (b_466 + 19338 + 12, 32, 21);
  memcpy (b_466 + 19371, " SIGNED-SHORT", 13);
  memset (b_466 + 19371 + 13, 32, 20);
  memcpy (b_466 + 19404, "FSIN", 4);
  memset (b_466 + 19404 + 4, 32, 29);
  memcpy (b_466 + 19437, " SIZE", 5);
  memset (b_466 + 19437 + 5, 32, 28);
  memcpy (b_466 + 19470, "VSORT", 5);
  memset (b_466 + 19470 + 5, 32, 28);
  memcpy (b_466 + 19503, " SORT-MERGE", 11);
  memset (b_466 + 19503 + 11, 32, 22);
  memcpy (b_466 + 19536, "ISORT-RETURN", 12);
  memset (b_466 + 19536 + 12, 32, 21);
  memcpy (b_466 + 19569, " SOURCE", 7);
  memset (b_466 + 19569 + 7, 32, 26);
  memcpy (b_466 + 19602, " SOURCE-COMPUTER", 16);
  memset (b_466 + 19602 + 16, 32, 17);
  memcpy (b_466 + 19635, " SOURCES", 8);
  memset (b_466 + 19635 + 8, 32, 25);
  memcpy (b_466 + 19668, " SPACE", 6);
  memset (b_466 + 19668 + 6, 32, 27);
  memcpy (b_466 + 19701, " SPACE-FILL", 11);
  memset (b_466 + 19701 + 11, 32, 22);
  memcpy (b_466 + 19734, " SPACES", 7);
  memset (b_466 + 19734 + 7, 32, 26);
  memcpy (b_466 + 19767, " SPECIAL-NAMES", 14);
  memset (b_466 + 19767 + 14, 32, 19);
  memcpy (b_466 + 19800, "FSQRT", 5);
  memset (b_466 + 19800 + 5, 32, 28);
  memcpy (b_466 + 19833, " STANDARD", 9);
  memset (b_466 + 19833 + 9, 32, 24);
  memcpy (b_466 + 19866, " STANDARD-1", 11);
  memset (b_466 + 19866 + 11, 32, 22);
  memcpy (b_466 + 19899, " STANDARD-2", 11);
  memset (b_466 + 19899 + 11, 32, 22);
  memcpy (b_466 + 19932, " STANDARD-BINARY", 16);
  memset (b_466 + 19932 + 16, 32, 17);
  memcpy (b_466 + 19965, "FSTANDARD-COMPARE", 17);
  memset (b_466 + 19965 + 17, 32, 16);
  memcpy (b_466 + 19998, " STANDARD-DECIMAL", 17);
  memset (b_466 + 19998 + 17, 32, 16);
  memcpy (b_466 + 20031, "FSTANDARD-DEVIATION", 19);
  memset (b_466 + 20031 + 19, 32, 14);
  memcpy (b_466 + 20064, "VSTART", 6);
  memset (b_466 + 20064 + 6, 32, 27);
  memcpy (b_466 + 20097, " STATEMENT", 10);
  memset (b_466 + 20097 + 10, 32, 23);
  memcpy (b_466 + 20130, " STATIC", 7);
  memset (b_466 + 20130 + 7, 32, 26);
  memcpy (b_466 + 20163, " STATUS", 7);
  memset (b_466 + 20163 + 7, 32, 26);
  memcpy (b_466 + 20196, " STDCALL", 8);
  memset (b_466 + 20196 + 8, 32, 25);
  memcpy (b_466 + 20229, "MSTDERR", 7);
  memset (b_466 + 20229 + 7, 32, 26);
  memcpy (b_466 + 20262, "MSTDIN", 6);
  memset (b_466 + 20262 + 6, 32, 27);
  memcpy (b_466 + 20295, "MSTDOUT", 7);
  memset (b_466 + 20295 + 7, 32, 26);
  memcpy (b_466 + 20328, " STEP", 5);
  memset (b_466 + 20328 + 5, 32, 28);
  memcpy (b_466 + 20361, "VSTOP", 5);
  memset (b_466 + 20361 + 5, 32, 28);
  memcpy (b_466 + 20394, "FSTORED-CHAR-LENGTH", 19);
  memset (b_466 + 20394 + 19, 32, 14);
  memcpy (b_466 + 20427, "VSTRING", 7);
  memset (b_466 + 20427 + 7, 32, 26);
  memcpy (b_466 + 20460, " STRONG", 7);
  memset (b_466 + 20460 + 7, 32, 26);
  memcpy (b_466 + 20493, " SUB-QUEUE-1", 12);
  memset (b_466 + 20493 + 12, 32, 21);
  memcpy (b_466 + 20526, " SUB-QUEUE-2", 12);
  memset (b_466 + 20526 + 12, 32, 21);
  memcpy (b_466 + 20559, " SUB-QUEUE-3", 12);
  memset (b_466 + 20559 + 12, 32, 21);
  memcpy (b_466 + 20592, "FSUBSTITUTE", 11);
  memset (b_466 + 20592 + 11, 32, 22);
  memcpy (b_466 + 20625, "FSUBSTITUTE-CASE", 16);
  memset (b_466 + 20625 + 16, 32, 17);
  memcpy (b_466 + 20658, "VSUBTRACT", 9);
  memset (b_466 + 20658 + 9, 32, 24);
  memcpy (b_466 + 20691, "FSUM", 4);
  memset (b_466 + 20691 + 4, 32, 29);
  memcpy (b_466 + 20724, " SUPER", 6);
  memset (b_466 + 20724 + 6, 32, 27);
  memcpy (b_466 + 20757, "VSUPPRESS", 9);
  memset (b_466 + 20757 + 9, 32, 24);
  memcpy (b_466 + 20790, "MSW0", 4);
  memset (b_466 + 20790 + 4, 32, 29);
  memcpy (b_466 + 20823, "MSW1", 4);
  memset (b_466 + 20823 + 4, 32, 29);
  memcpy (b_466 + 20856, "MSW10", 5);
  memset (b_466 + 20856 + 5, 32, 28);
  memcpy (b_466 + 20889, "MSW11", 5);
  memset (b_466 + 20889 + 5, 32, 28);
  memcpy (b_466 + 20922, "MSW12", 5);
  memset (b_466 + 20922 + 5, 32, 28);
  memcpy (b_466 + 20955, "MSW13", 5);
  memset (b_466 + 20955 + 5, 32, 28);
  memcpy (b_466 + 20988, "MSW14", 5);
  memset (b_466 + 20988 + 5, 32, 28);
  memcpy (b_466 + 21021, "MSW15", 5);
  memset (b_466 + 21021 + 5, 32, 28);
  memcpy (b_466 + 21054, "MSW2", 4);
  memset (b_466 + 21054 + 4, 32, 29);
  memcpy (b_466 + 21087, "MSW3", 4);
  memset (b_466 + 21087 + 4, 32, 29);
  memcpy (b_466 + 21120, "MSW4", 4);
  memset (b_466 + 21120 + 4, 32, 29);
  memcpy (b_466 + 21153, "MSW5", 4);
  memset (b_466 + 21153 + 4, 32, 29);
  memcpy (b_466 + 21186, "MSW6", 4);
  memset (b_466 + 21186 + 4, 32, 29);
  memcpy (b_466 + 21219, "MSW7", 4);
  memset (b_466 + 21219 + 4, 32, 29);
  memcpy (b_466 + 21252, "MSW8", 4);
  memset (b_466 + 21252 + 4, 32, 29);
  memcpy (b_466 + 21285, "MSW9", 4);
  memset (b_466 + 21285 + 4, 32, 29);
  memcpy (b_466 + 21318, "MSWITCH-0", 9);
  memset (b_466 + 21318 + 9, 32, 24);
  memcpy (b_466 + 21351, "MSWITCH-1", 9);
  memset (b_466 + 21351 + 9, 32, 24);
  memcpy (b_466 + 21384, "MSWITCH-10", 10);
  memset (b_466 + 21384 + 10, 32, 23);
  memcpy (b_466 + 21417, "MSWITCH-11", 10);
  memset (b_466 + 21417 + 10, 32, 23);
  memcpy (b_466 + 21450, "MSWITCH-12", 10);
  memset (b_466 + 21450 + 10, 32, 23);
  memcpy (b_466 + 21483, "MSWITCH-13", 10);
  memset (b_466 + 21483 + 10, 32, 23);
  memcpy (b_466 + 21516, "MSWITCH-14", 10);
  memset (b_466 + 21516 + 10, 32, 23);
  memcpy (b_466 + 21549, "MSWITCH-15", 10);
  memset (b_466 + 21549 + 10, 32, 23);
  memcpy (b_466 + 21582, "MSWITCH-2", 9);
  memset (b_466 + 21582 + 9, 32, 24);
  memcpy (b_466 + 21615, "MSWITCH-3", 9);
  memset (b_466 + 21615 + 9, 32, 24);
  memcpy (b_466 + 21648, "MSWITCH-4", 9);
  memset (b_466 + 21648 + 9, 32, 24);
  memcpy (b_466 + 21681, "MSWITCH-5", 9);
  memset (b_466 + 21681 + 9, 32, 24);
  memcpy (b_466 + 21714, "MSWITCH-6", 9);
  memset (b_466 + 21714 + 9, 32, 24);
  memcpy (b_466 + 21747, "MSWITCH-7", 9);
  memset (b_466 + 21747 + 9, 32, 24);
  memcpy (b_466 + 21780, "MSWITCH-8", 9);
  memset (b_466 + 21780 + 9, 32, 24);
  memcpy (b_466 + 21813, "MSWITCH-9", 9);
  memset (b_466 + 21813 + 9, 32, 24);
  memcpy (b_466 + 21846, " SYMBOL", 7);
  memset (b_466 + 21846 + 7, 32, 26);
  memcpy (b_466 + 21879, " SYMBOLIC", 9);
  memset (b_466 + 21879 + 9, 32, 24);
  memcpy (b_466 + 21912, " SYNC", 5);
  memset (b_466 + 21912 + 5, 32, 28);
  memcpy (b_466 + 21945, " SYNCHRONISED", 13);
  memset (b_466 + 21945 + 13, 32, 20);
  memcpy (b_466 + 21978, " SYNCHRONIZED", 13);
  memset (b_466 + 21978 + 13, 32, 20);
  memcpy (b_466 + 22011, "MSYSERR", 7);
  memset (b_466 + 22011 + 7, 32, 26);
  memcpy (b_466 + 22044, "MSYSIN", 6);
  memset (b_466 + 22044 + 6, 32, 27);
  memcpy (b_466 + 22077, "MSYSIPT", 7);
  memset (b_466 + 22077 + 7, 32, 26);
  memcpy (b_466 + 22110, "MSYSLIST", 8);
  memset (b_466 + 22110 + 8, 32, 25);
  memcpy (b_466 + 22143, "MSYSLST", 7);
  memset (b_466 + 22143 + 7, 32, 26);
  memcpy (b_466 + 22176, "MSYSOUT", 7);
  memset (b_466 + 22176 + 7, 32, 26);
  memcpy (b_466 + 22209, " SYSTEM-DEFAULT", 15);
  memset (b_466 + 22209 + 15, 32, 18);
  memcpy (b_466 + 22242, " TABLE", 6);
  memset (b_466 + 22242 + 6, 32, 27);
  memcpy (b_466 + 22275, "KTALLYING", 9);
  memset (b_466 + 22275 + 9, 32, 24);
  memcpy (b_466 + 22308, "FTAN", 4);
  memset (b_466 + 22308 + 4, 32, 29);
  memcpy (b_466 + 22341, " TAPE", 5);
  memset (b_466 + 22341 + 5, 32, 28);
  memcpy (b_466 + 22374, " TERMINAL", 9);
  memset (b_466 + 22374 + 9, 32, 24);
  memcpy (b_466 + 22407, "VTERMINATE", 10);
  memset (b_466 + 22407 + 10, 32, 23);
  memcpy (b_466 + 22440, " TEST", 5);
  memset (b_466 + 22440 + 5, 32, 28);
  memcpy (b_466 + 22473, "FTEST-DATE-YYYYMMDD", 19);
  memset (b_466 + 22473 + 19, 32, 14);
  memcpy (b_466 + 22506, "FTEST-DAY-YYYYDDD", 17);
  memset (b_466 + 22506 + 17, 32, 16);
  memcpy (b_466 + 22539, "FTEST-FORMATTED-DATETIME", 24);
  memset (b_466 + 22539 + 24, 32, 9);
  memcpy (b_466 + 22572, "FTEST-NUMVAL", 12);
  memset (b_466 + 22572 + 12, 32, 21);
  memcpy (b_466 + 22605, "FTEST-NUMVAL-C", 14);
  memset (b_466 + 22605 + 14, 32, 19);
  memcpy (b_466 + 22638, "FTEST-NUMVAL-F", 14);
  memset (b_466 + 22638 + 14, 32, 19);
  memcpy (b_466 + 22671, " TEXT", 5);
  memset (b_466 + 22671 + 5, 32, 28);
  memcpy (b_466 + 22704, " THAN", 5);
  memset (b_466 + 22704 + 5, 32, 28);
  memcpy (b_466 + 22737, " THEN", 5);
  memset (b_466 + 22737 + 5, 32, 28);
  memcpy (b_466 + 22770, " THROUGH", 8);
  memset (b_466 + 22770 + 8, 32, 25);
  memcpy (b_466 + 22803, " THRU", 5);
  memset (b_466 + 22803 + 5, 32, 28);
  memcpy (b_466 + 22836, " TIME", 5);
  memset (b_466 + 22836 + 5, 32, 28);
  memcpy (b_466 + 22869, " TIME-OUT", 9);
  memset (b_466 + 22869 + 9, 32, 24);
  memcpy (b_466 + 22902, " TIMEOUT", 8);
  memset (b_466 + 22902 + 8, 32, 25);
  memcpy (b_466 + 22935, " TIMES", 6);
  memset (b_466 + 22935 + 6, 32, 27);
  memcpy (b_466 + 22968, "KTO", 3);
  memset (b_466 + 22968 + 3, 32, 30);
  memcpy (b_466 + 23001, " TOP", 4);
  memset (b_466 + 23001 + 4, 32, 29);
  memcpy (b_466 + 23034, " TOWARD-GREATER", 15);
  memset (b_466 + 23034 + 15, 32, 18);
  memcpy (b_466 + 23067, " TOWARD-LESSER", 14);
  memset (b_466 + 23067 + 14, 32, 19);
  memcpy (b_466 + 23100, " TRAILING", 9);
  memset (b_466 + 23100 + 9, 32, 24);
  memcpy (b_466 + 23133, " TRAILING-SIGN", 14);
  memset (b_466 + 23133 + 14, 32, 19);
  memcpy (b_466 + 23166, "VTRANSFORM", 10);
  memset (b_466 + 23166 + 10, 32, 23);
  memcpy (b_466 + 23199, "FTRIM", 5);
  memset (b_466 + 23199 + 5, 32, 28);
  memcpy (b_466 + 23232, " TRUE", 5);
  memset (b_466 + 23232 + 5, 32, 28);
  memcpy (b_466 + 23265, " TRUNCATION", 11);
  memset (b_466 + 23265 + 11, 32, 22);
  memcpy (b_466 + 23298, " TYPE", 5);
  memset (b_466 + 23298 + 5, 32, 28);
  memcpy (b_466 + 23331, " TYPEDEF", 8);
  memset (b_466 + 23331 + 8, 32, 25);
  memcpy (b_466 + 23364, " UCS-4", 6);
  memset (b_466 + 23364 + 6, 32, 27);
  memcpy (b_466 + 23397, " UNDERLINE", 10);
  memset (b_466 + 23397 + 10, 32, 23);
  memcpy (b_466 + 23430, " UNIT", 5);
  memset (b_466 + 23430 + 5, 32, 28);
  memcpy (b_466 + 23463, " UNIVERSAL", 10);
  memset (b_466 + 23463 + 10, 32, 23);
  memcpy (b_466 + 23496, "VUNLOCK", 7);
  memset (b_466 + 23496 + 7, 32, 26);
  memcpy (b_466 + 23529, " UNSIGNED", 9);
  memset (b_466 + 23529 + 9, 32, 24);
  memcpy (b_466 + 23562, " UNSIGNED-INT", 13);
  memset (b_466 + 23562 + 13, 32, 20);
  memcpy (b_466 + 23595, " UNSIGNED-LONG", 14);
  memset (b_466 + 23595 + 14, 32, 19);
  memcpy (b_466 + 23628, " UNSIGNED-SHORT", 15);
  memset (b_466 + 23628 + 15, 32, 18);
  memcpy (b_466 + 23661, "VUNSTRING", 9);
  memset (b_466 + 23661 + 9, 32, 24);
  memcpy (b_466 + 23694, " UNTIL", 6);
  memset (b_466 + 23694 + 6, 32, 27);
  memcpy (b_466 + 23727, "KUP", 3);
  memset (b_466 + 23727 + 3, 32, 30);
  memcpy (b_466 + 23760, " UPDATE", 7);
  memset (b_466 + 23760 + 7, 32, 26);
  memcpy (b_466 + 23793, " UPON", 5);
  memset (b_466 + 23793 + 5, 32, 28);
  memcpy (b_466 + 23826, " UPPER", 6);
  memset (b_466 + 23826 + 6, 32, 27);
  memcpy (b_466 + 23859, "FUPPER-CASE", 11);
  memset (b_466 + 23859 + 11, 32, 22);
  memcpy (b_466 + 23892, " USAGE", 6);
  memset (b_466 + 23892 + 6, 32, 27);
  memcpy (b_466 + 23925, "VUSE", 4);
  memset (b_466 + 23925 + 4, 32, 29);
  memcpy (b_466 + 23958, " USER", 5);
  memset (b_466 + 23958 + 5, 32, 28);
  memcpy (b_466 + 23991, " USER-DEFAULT", 13);
  memset (b_466 + 23991 + 13, 32, 20);
  memcpy (b_466 + 24024, "KUSING", 6);
  memset (b_466 + 24024 + 6, 32, 27);
  memcpy (b_466 + 24057, " UTF-16", 7);
  memset (b_466 + 24057 + 7, 32, 26);
  memcpy (b_466 + 24090, " UTF-8", 6);
  memset (b_466 + 24090 + 6, 32, 27);
  memcpy (b_466 + 24123, " VAL-STATUS", 11);
  memset (b_466 + 24123 + 11, 32, 22);
  memcpy (b_466 + 24156, " VALID", 6);
  memset (b_466 + 24156 + 6, 32, 27);
  memcpy (b_466 + 24189, " VALIDATE", 9);
  memset (b_466 + 24189 + 9, 32, 24);
  memcpy (b_466 + 24222, " VALIDATE-STATUS", 16);
  memset (b_466 + 24222 + 16, 32, 17);
  memcpy (b_466 + 24255, "AVALUE", 6);
  memset (b_466 + 24255 + 6, 32, 27);
  memcpy (b_466 + 24288, " VALUES", 7);
  memset (b_466 + 24288 + 7, 32, 26);
  memcpy (b_466 + 24321, "FVARIANCE", 9);
  memset (b_466 + 24321 + 9, 32, 24);
  memcpy (b_466 + 24354, "KVARYING", 8);
  memset (b_466 + 24354 + 8, 32, 25);
  memcpy (b_466 + 24387, " VDISABLE", 9);
  memset (b_466 + 24387 + 9, 32, 24);
  memcpy (b_466 + 24420, " WAIT", 5);
  memset (b_466 + 24420 + 5, 32, 28);
  memcpy (b_466 + 24453, "VWHEN", 5);
  memset (b_466 + 24453 + 5, 32, 28);
  memcpy (b_466 + 24486, "FWHEN-COMPILED", 14);
  memset (b_466 + 24486 + 14, 32, 19);
  memcpy (b_466 + 24519, " WITH", 5);
  memset (b_466 + 24519 + 5, 32, 28);
  memcpy (b_466 + 24552, " WORDS", 6);
  memset (b_466 + 24552 + 6, 32, 27);
  memcpy (b_466 + 24585, "KWORKING-STORAGE", 16);
  memset (b_466 + 24585 + 16, 32, 17);
  memcpy (b_466 + 24618, "VWRITE", 6);
  memset (b_466 + 24618 + 6, 32, 27);
  memcpy (b_466 + 24651, "FYEAR-TO-YYYY", 13);
  memset (b_466 + 24651 + 13, 32, 20);
  memcpy (b_466 + 24684, " YYYYDDD", 8);
  memset (b_466 + 24684 + 8, 32, 25);
  memcpy (b_466 + 24717, " YYYYMMDD", 9);
  memset (b_466 + 24717 + 9, 32, 24);
  memcpy (b_466 + 24750, " ZERO", 5);
  memset (b_466 + 24750 + 5, 32, 28);
  memcpy (b_466 + 24783, " ZERO-FILL", 10);
  memset (b_466 + 24783 + 10, 32, 23);
  memcpy (b_466 + 24816, " ZEROES", 7);
  memset (b_466 + 24816 + 7, 32, 26);
  memcpy (b_466 + 24849, " ZEROS", 6);
  memset (b_466 + 24849 + 6, 32, 27);
  memset (b_1226, 32, 6);
  memset (b_1235, 32, 15);
  memset (b_1236, 61, 6);
  memset (b_1236 + 6, ' ', 1);
  memset (b_1236 + 7, 61, 128);
  cob_move (&cob_all_zero, &f_1240);
  memset (b_1239 + 6, 32, 257);
  memset (b_1243, 32, 256);
  memset (b_1244, 48, 6);
  memset (b_1245, 0, 4);
  memset (b_1246, 0, 4);
  memset (b_1247, 0, 4);
  memset (b_1248, 32, 10);
  memset (b_1249, 32, 32);
  memset (b_1250, 32, 32);
  memset (b_1251, 32, 32);
  memset (b_1252, 32, 65);
  memset (b_1253, 32, 256);
  memset (b_1254, 48, 8);
  memset (b_1255, 32, 32);
  memset (b_1256, 32, 32);
  memset (b_1257, 32, 32);
  memset (b_1258, 32, 32);
  *(cob_u8_ptr)(b_1259) = 32;
  memset (b_1269, 0, 4);
  memset (b_1270, 32, 23);
  memset (b_1271, 32, 49);
  cob_move (&cob_all_zero, &f_1276);
  memset (b_1271 + 55, 32, 17);
  for (i1 = 1; i1 <= 8; i1++)
  {
    cob_move (&cob_all_zero, COB_SET_FLD(f0, 6, b_1271 + 72 + 8 * (i1 - 1), &a_11));
    memset (b_1271 + 78 + 8 * (i1 - 1), 32, 2);
  }
  *(cob_u8_ptr)(b_1284) = 48;


  if (!h_F_EXPANDED_SRC_FILE)
  {
    h_F_EXPANDED_SRC_FILE = cob_cache_malloc (sizeof(cob_file));
  }
  h_F_EXPANDED_SRC_FILE->select_name = (const char *)"F-Expanded-Src-FILE";
  h_F_EXPANDED_SRC_FILE->file_status = h_F_EXPANDED_SRC_FILE_status;
  memset (h_F_EXPANDED_SRC_FILE_status, '0', 2);
  h_F_EXPANDED_SRC_FILE->assign = &f_436;
  h_F_EXPANDED_SRC_FILE->record = &f_388;
  h_F_EXPANDED_SRC_FILE->variable_record = NULL;
  h_F_EXPANDED_SRC_FILE->record_min = 0;
  h_F_EXPANDED_SRC_FILE->record_max = 257;
  h_F_EXPANDED_SRC_FILE->nkeys = 0;
  h_F_EXPANDED_SRC_FILE->keys = NULL;
  h_F_EXPANDED_SRC_FILE->file = NULL;
  h_F_EXPANDED_SRC_FILE->fd = -1;
  h_F_EXPANDED_SRC_FILE->organization = 1;
  h_F_EXPANDED_SRC_FILE->access_mode = 1;
  h_F_EXPANDED_SRC_FILE->lock_mode = 0;
  h_F_EXPANDED_SRC_FILE->open_mode = 0;
  h_F_EXPANDED_SRC_FILE->flag_optional = 0;
  h_F_EXPANDED_SRC_FILE->last_open_mode = 0;
  h_F_EXPANDED_SRC_FILE->flag_operation = 0;
  h_F_EXPANDED_SRC_FILE->flag_nonexistent = 0;
  h_F_EXPANDED_SRC_FILE->flag_end_of_file = 0;
  h_F_EXPANDED_SRC_FILE->flag_begin_of_file = 0;
  h_F_EXPANDED_SRC_FILE->flag_first_read = 0;
  h_F_EXPANDED_SRC_FILE->flag_read_done = 0;
  h_F_EXPANDED_SRC_FILE->flag_select_features = 0;
  h_F_EXPANDED_SRC_FILE->flag_needs_nl = 0;
  h_F_EXPANDED_SRC_FILE->flag_needs_top = 0;
  h_F_EXPANDED_SRC_FILE->file_version = 1;
  if (!h_F_LISTING_FILE)
  {
    h_F_LISTING_FILE = cob_cache_malloc (sizeof(cob_file));
  }
  h_F_LISTING_FILE->select_name = (const char *)"F-Listing-FILE";
  h_F_LISTING_FILE->file_status = h_F_LISTING_FILE_status;
  memset (h_F_LISTING_FILE_status, '0', 2);
  h_F_LISTING_FILE->assign = COB_SET_DATA (f_1285, b_1285);
  h_F_LISTING_FILE->record = &f_392;
  h_F_LISTING_FILE->variable_record = NULL;
  h_F_LISTING_FILE->record_min = 0;
  h_F_LISTING_FILE->record_max = 135;
  h_F_LISTING_FILE->nkeys = 0;
  h_F_LISTING_FILE->keys = NULL;
  h_F_LISTING_FILE->file = NULL;
  h_F_LISTING_FILE->fd = -1;
  h_F_LISTING_FILE->organization = 1;
  h_F_LISTING_FILE->access_mode = 1;
  h_F_LISTING_FILE->lock_mode = 0;
  h_F_LISTING_FILE->open_mode = 0;
  h_F_LISTING_FILE->flag_optional = 0;
  h_F_LISTING_FILE->last_open_mode = 0;
  h_F_LISTING_FILE->flag_operation = 0;
  h_F_LISTING_FILE->flag_nonexistent = 0;
  h_F_LISTING_FILE->flag_end_of_file = 0;
  h_F_LISTING_FILE->flag_begin_of_file = 0;
  h_F_LISTING_FILE->flag_first_read = 0;
  h_F_LISTING_FILE->flag_read_done = 0;
  h_F_LISTING_FILE->flag_select_features = 0;
  h_F_LISTING_FILE->flag_needs_nl = 0;
  h_F_LISTING_FILE->flag_needs_top = 0;
  h_F_LISTING_FILE->file_version = 1;
  if (!h_F_ORIGINAL_SRC_FILE)
  {
    h_F_ORIGINAL_SRC_FILE = cob_cache_malloc (sizeof(cob_file));
  }
  h_F_ORIGINAL_SRC_FILE->select_name = (const char *)"F-Original-Src-FILE";
  h_F_ORIGINAL_SRC_FILE->file_status = h_F_ORIGINAL_SRC_FILE_status;
  memset (h_F_ORIGINAL_SRC_FILE_status, '0', 2);
  h_F_ORIGINAL_SRC_FILE->assign = COB_SET_DATA (f_1286, b_1286);
  h_F_ORIGINAL_SRC_FILE->record = &f_400;
  h_F_ORIGINAL_SRC_FILE->variable_record = NULL;
  h_F_ORIGINAL_SRC_FILE->record_min = 0;
  h_F_ORIGINAL_SRC_FILE->record_max = 256;
  h_F_ORIGINAL_SRC_FILE->nkeys = 0;
  h_F_ORIGINAL_SRC_FILE->keys = NULL;
  h_F_ORIGINAL_SRC_FILE->file = NULL;
  h_F_ORIGINAL_SRC_FILE->fd = -1;
  h_F_ORIGINAL_SRC_FILE->organization = 1;
  h_F_ORIGINAL_SRC_FILE->access_mode = 1;
  h_F_ORIGINAL_SRC_FILE->lock_mode = 0;
  h_F_ORIGINAL_SRC_FILE->open_mode = 0;
  h_F_ORIGINAL_SRC_FILE->flag_optional = 0;
  h_F_ORIGINAL_SRC_FILE->last_open_mode = 0;
  h_F_ORIGINAL_SRC_FILE->flag_operation = 0;
  h_F_ORIGINAL_SRC_FILE->flag_nonexistent = 0;
  h_F_ORIGINAL_SRC_FILE->flag_end_of_file = 0;
  h_F_ORIGINAL_SRC_FILE->flag_begin_of_file = 0;
  h_F_ORIGINAL_SRC_FILE->flag_first_read = 0;
  h_F_ORIGINAL_SRC_FILE->flag_read_done = 0;
  h_F_ORIGINAL_SRC_FILE->flag_select_features = 0;
  h_F_ORIGINAL_SRC_FILE->flag_needs_nl = 0;
  h_F_ORIGINAL_SRC_FILE->flag_needs_top = 0;
  h_F_ORIGINAL_SRC_FILE->file_version = 1;
  if (!h_F_SORT_WORK_FILE)
  {
    h_F_SORT_WORK_FILE = cob_cache_malloc (sizeof(cob_file));
  }
  h_F_SORT_WORK_FILE->select_name = (const char *)"F-Sort-Work-FILE";
  h_F_SORT_WORK_FILE->file_status = h_F_SORT_WORK_FILE_status;
  memset (h_F_SORT_WORK_FILE_status, '0', 2);
  h_F_SORT_WORK_FILE->assign = (cob_field *)&c_187;
  h_F_SORT_WORK_FILE->record = &f_410;
  h_F_SORT_WORK_FILE->variable_record = NULL;
  h_F_SORT_WORK_FILE->record_min = 107;
  h_F_SORT_WORK_FILE->record_max = 107;
  h_F_SORT_WORK_FILE->nkeys = 0;
  h_F_SORT_WORK_FILE->keys = NULL;
  h_F_SORT_WORK_FILE->file = NULL;
  h_F_SORT_WORK_FILE->fd = -1;
  h_F_SORT_WORK_FILE->organization = 4;
  h_F_SORT_WORK_FILE->access_mode = 1;
  h_F_SORT_WORK_FILE->lock_mode = 0;
  h_F_SORT_WORK_FILE->open_mode = 0;
  h_F_SORT_WORK_FILE->flag_optional = 0;
  h_F_SORT_WORK_FILE->last_open_mode = 0;
  h_F_SORT_WORK_FILE->flag_operation = 0;
  h_F_SORT_WORK_FILE->flag_nonexistent = 0;
  h_F_SORT_WORK_FILE->flag_end_of_file = 0;
  h_F_SORT_WORK_FILE->flag_begin_of_file = 0;
  h_F_SORT_WORK_FILE->flag_first_read = 0;
  h_F_SORT_WORK_FILE->flag_read_done = 0;
  h_F_SORT_WORK_FILE->flag_select_features = 0;
  h_F_SORT_WORK_FILE->flag_needs_nl = 0;
  h_F_SORT_WORK_FILE->flag_needs_top = 0;
  h_F_SORT_WORK_FILE->file_version = 1;

  initialized = 1;
  goto P_ret_initialize;

  /* CANCEL callback handling */
  P_cancel:

  if (!initialized) {
    return 0;
  }
  if (module->module_active) {
    cob_fatal_error (COB_FERROR_CANCEL);
  }

  cob_close (h_F_EXPANDED_SRC_FILE, NULL, COB_CLOSE_NORMAL, 1);
  cob_cache_free (h_F_EXPANDED_SRC_FILE);
  h_F_EXPANDED_SRC_FILE = NULL;
  cob_close (h_F_LISTING_FILE, NULL, COB_CLOSE_NORMAL, 1);
  cob_cache_free (h_F_LISTING_FILE);
  h_F_LISTING_FILE = NULL;
  cob_close (h_F_ORIGINAL_SRC_FILE, NULL, COB_CLOSE_NORMAL, 1);
  cob_cache_free (h_F_ORIGINAL_SRC_FILE);
  h_F_ORIGINAL_SRC_FILE = NULL;
  cob_cache_free (h_F_SORT_WORK_FILE);
  h_F_SORT_WORK_FILE = NULL;
  b_377 = 0;
  cob_cache_free (module);
  module = NULL;

  initialized = 0;
  return 0;

}

Here is the caller graph for this function:

int main	(	int	argc,
		char **	argv
	)

Definition at line 37 of file GCic.c.

References cob_init(), cob_stop_run(), and GCic().

{
  cob_init (argc, argv);
  cob_stop_run (GCic ());
}

Here is the call graph for this function: