get-reserved-lists.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <math.h>
#include <libcob.h>
#include "get-reserved-lists.c.h"
#include "get-reserved-lists.c.l.h"

Include dependency graph for get-reserved-lists.c:

Go to the source code of this file.

Macros
#define	COB_KEYWORD_INLINE   __inline
#define	COB_SOURCE_FILE   "get-reserved-lists.cbl"
#define	COB_PACKAGE_VERSION   "2.0"
#define	COB_PATCH_LEVEL   0
#define	COB_MODULE_FORMATTED_DATE   "Apr 17 2016 03:19:00"
#define	COB_MODULE_DATE   20160417
#define	COB_MODULE_TIME   31900

Functions
int	get__reserved__lists (cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)
static int	get__reserved__lists_ (const int, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *, cob_u8_t *)

Macro Definition Documentation

#define COB_KEYWORD_INLINE   __inline

Definition at line 13 of file get-reserved-lists.c.

#define COB_MODULE_DATE   20160417

Definition at line 20 of file get-reserved-lists.c.

Referenced by get__reserved__lists_().

#define COB_MODULE_FORMATTED_DATE   "Apr 17 2016 03:19:00"

Definition at line 19 of file get-reserved-lists.c.

Referenced by get__reserved__lists_().

#define COB_MODULE_TIME   31900

Definition at line 21 of file get-reserved-lists.c.

Referenced by get__reserved__lists_().

#define COB_PACKAGE_VERSION   "2.0"

Definition at line 17 of file get-reserved-lists.c.

Referenced by get__reserved__lists_().

#define COB_PATCH_LEVEL   0

Definition at line 18 of file get-reserved-lists.c.

Referenced by get__reserved__lists_().

#define COB_SOURCE_FILE   "get-reserved-lists.cbl"

Definition at line 16 of file get-reserved-lists.c.

Referenced by get__reserved__lists_().

Function Documentation

int get__reserved__lists	(	cob_u8_t *	b_23,
		cob_u8_t *	b_24,
		cob_u8_t *	b_29,
		cob_u8_t *	b_30,
		cob_u8_t *	b_35
	)

Definition at line 38 of file get-reserved-lists.c.

References get__reserved__lists_().

Referenced by get__reserved__lists_().

{
  return get__reserved__lists_ (0, b_23, b_24, b_29, b_30, b_35);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int get__reserved__lists_ ( const int  entry, cob_u8_t *  b_23, cob_u8_t *  b_24, cob_u8_t *  b_29, cob_u8_t *  b_30, cob_u8_t *  b_35  )

static

Definition at line 44 of file get-reserved-lists.c.

References a_1, cob_file::access_mode, cob_file::assign, b_1, b_26, b_32, c_1, c_2, c_3, c_4, c_5, c_6, c_7, cob_add(), cob_all_space, COB_BSWAP_32, 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_s8(), cob_cmpswp_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_STACK, cob_glob_ptr, 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_s8_ptr, COB_SELECT_FILE_STATUS, cob_set_cancel(), COB_SET_DATA, COB_SET_FLD, cob_set_location(), COB_SOURCE_FILE, cob_sys_delete_file(), cob_sys_system(), cob_u8_ptr, cob_unstring_delimited(), cob_unstring_finish(), cob_unstring_init(), cob_unstring_into(), __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, f_11, f_15, f_16, f_17, f_19, f_20, f_21, f_22, f_23, f_29, f_35, f_6, f_7, f_8, f_9, 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, get__reserved__lists(), h_INTRINSIC_STREAM, h_INTRINSIC_STREAM_status, h_RESERVE_STREAM, h_RESERVE_STREAM_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_module::next, 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_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_3, st_4, st_5, st_6, st_7, st_8, st_9, unlikely, and cob_file::variable_record.

Referenced by get__reserved__lists().

{
  /* Program local variables */
  #include "get-reserved-lists.c.l.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_2;

  /* PROCEDURE DIVISION */

  /* Line: 138       : Entry     get-reserved-lists      : get-reserved-lists.cbl */
  l_2:;

  /* Line: 138       : Section   aa000-startup           : get-reserved-lists.cbl */

  /* Line: 139       : Paragraph aa010-Init              : get-reserved-lists.cbl */

  /* Line: 140       : CALL               : get-reserved-lists.cbl */
  cob_set_location (st_1, 140, st_2, st_3, st_4);
  cob_procedure_params[0] = (cob_field *)&c_1;
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system ((cob_u8_ptr)"cobc --list-intrinsics > int.tmp");

  /* Line: 141       : CALL               : get-reserved-lists.cbl */
  cob_set_location (st_1, 141, st_2, st_3, st_4);
  cob_procedure_params[0] = (cob_field *)&c_2;
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_system ((cob_u8_ptr)"cobc --list-reserved > res.tmp");

  /* Line: 142       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 142, st_2, st_3, st_5);
  (*(cob_s8_ptr) (b_23)) = 0;

  /* Line: 143       : PERFORM            : get-reserved-lists.cbl */
  cob_set_location (st_1, 143, st_2, st_3, st_6);
  /* PERFORM ba000-Get-Intrinsics-Words */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 5;
  frame_ptr->return_address_ptr = &&l_14;
  goto l_5;
  l_14:
  frame_ptr--;

  /* Line: 144       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 144, st_2, st_3, st_7);
  if (!((int)cob_cmp_s8 (b_23, 0) == 0))
  {

    /* Line: 145       : EXIT PROGRAM       : get-reserved-lists.cbl */
    cob_set_location (st_1, 145, st_2, st_3, st_8);
    if (module->next)
      goto exit_program;
  }

  /* Line: 146       : PERFORM            : get-reserved-lists.cbl */
  cob_set_location (st_1, 146, st_2, st_3, st_6);
  /* PERFORM ca000-Get-Reserved-Words */
  frame_ptr++;
  if (unlikely(frame_ptr == frame_overflow))
      cob_fatal_error (COB_FERROR_STACK);
  frame_ptr->perform_through = 9;
  frame_ptr->return_address_ptr = &&l_15;
  goto l_9;
  l_15:
  frame_ptr--;

  /* Line: 147       : CALL               : get-reserved-lists.cbl */
  cob_set_location (st_1, 147, st_2, st_3, st_4);
  cob_procedure_params[0] = (cob_field *)&c_3;
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_delete_file ((cob_u8_ptr)"res.tmp");

  /* Line: 148       : CALL               : get-reserved-lists.cbl */
  cob_set_location (st_1, 148, st_2, st_3, st_4);
  cob_procedure_params[0] = (cob_field *)&c_4;
  cob_glob_ptr->cob_call_params = 1;
  b_1 = cob_sys_delete_file ((cob_u8_ptr)"int.tmp");

  /* Line: 149       : EXIT PROGRAM       : get-reserved-lists.cbl */
  cob_set_location (st_1, 149, st_2, st_3, st_8);
  if (module->next)
    goto exit_program;

  /* Line: 151       : Section   ba000-Get-Intrinsics-Words: get-reserved-lists.cbl */
  l_5:;

  /* Line: 152       : Paragraph ba010-init              : get-reserved-lists.cbl */

  /* Line: 153       : OPEN               : get-reserved-lists.cbl */
  cob_set_location (st_1, 153, st_9, st_10, st_11);
  cob_open (h_INTRINSIC_STREAM, 1, 0, &f_15);
  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_16;
    goto l_1;
    l_16:
    frame_ptr--;
  }

  /* Line: 154       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 154, st_9, st_10, st_7);
  if (((int)cob_cmp_numdisp (b_15, 2, 35LL, 0) == 0))
  {

    /* Line: 155       : DISPLAY            : get-reserved-lists.cbl */
    cob_set_location (st_1, 155, st_9, st_10, st_12);
    cob_display (0, 1, 1, &f_19);
  }

  /* Line: 156       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 156, st_9, st_10, st_7);
  if (((int)cob_cmp_numdisp (b_15, 2, 0, 0) != 0))
  {

    /* Line: 157       : MOVE               : get-reserved-lists.cbl */
    cob_set_location (st_1, 157, st_9, st_10, st_5);
    cob_move (&f_15, COB_SET_DATA (f_23, b_23));

    /* Line: 158       : EXIT SECTION       : get-reserved-lists.cbl */
    cob_set_location (st_1, 158, st_9, st_10, st_13);
    goto l_7;
  }

  /* Line: 160       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 160, st_9, st_10, st_5);
  memmove (b_13, b_29, 4);

  /* Line: 161       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 161, st_9, st_10, st_5);
  memset (b_24, 255, 7936);

  /* Line: 162       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 162, st_9, st_10, st_5);
  memset (b_29, 0, 4);

  /* Line: 164       : Paragraph ba020-get-thru-base-data: get-reserved-lists.cbl */
  l_8:;

  /* Line: 165       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 165, st_9, st_14, st_5);
  memset (b_9, 255, 128);

  /* Line: 166       : READ               : get-reserved-lists.cbl */
  cob_set_location (st_1, 166, st_9, st_14, st_15);
  cob_read_next (h_INTRINSIC_STREAM, &f_15, 1);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    if (cob_glob_ptr->cob_exception_code == 0x0501)
    {

      /* Line: 167       : MOVE               : get-reserved-lists.cbl */
      cob_set_location (st_1, 167, st_9, st_14, st_5);
      (*(cob_s8_ptr) (b_23)) = 0;

      /* Line: 168       : CLOSE              : get-reserved-lists.cbl */
      cob_set_location (st_1, 168, st_9, st_14, st_16);
      cob_close (h_INTRINSIC_STREAM, &f_15, 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_17;
        goto l_1;
        l_17:
        frame_ptr--;
      }

      /* Line: 169       : IF                 : get-reserved-lists.cbl */
      cob_set_location (st_1, 169, st_9, st_14, st_7);
      if (((int)cob_cmpswp_s32 (b_29, ((int)COB_BSWAP_32(*(int *)(b_13)))) > 0))
      {

        /* Line: 170       : DISPLAY            : get-reserved-lists.cbl */
        cob_set_location (st_1, 170, st_9, st_14, st_12);
        cob_display (0, 1, 1, &f_21);
      }

      /* Line: 172       : EXIT SECTION       : get-reserved-lists.cbl */
      cob_set_location (st_1, 172, st_9, st_14, st_13);
      goto l_7;
    }
    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_18;
      goto l_1;
      l_18:
      frame_ptr--;
    }
  }

  /* Line: 174       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 174, st_9, st_14, st_7);
  if ((((int)cob_cmp (COB_SET_FLD(f0, 3, b_9 + 0, &a_1), &cob_all_space) == 0) || 
      ((int)memcmp (b_9 + 0, (cob_u8_ptr)"Intrinsic Function", 18) == 0)))
  {

    /* Line: 176       : GO TO              : get-reserved-lists.cbl */
    cob_set_location (st_1, 176, st_9, st_14, st_17);
    goto l_8;
  }

  /* Line: 180       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 180, st_9, st_14, st_5);
  (*(int *)(b_11)) = 1;

  /* Line: 181       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 181, st_9, st_14, st_5);
  memset (b_16, 32, 30);
  *(b_17) = 32;

  /* Line: 182       : UNSTRING           : get-reserved-lists.cbl */
  cob_set_location (st_1, 182, st_9, st_14, st_18);
  cob_unstring_init (&f_8, &f_11, 2);
  cob_unstring_delimited ((cob_field *)&c_5, 1);
  cob_unstring_delimited (&cob_all_space, 1);
  cob_unstring_into (&f_16, 0, 0);
  cob_unstring_finish ();

  /* Line: 183       : UNSTRING           : get-reserved-lists.cbl */
  cob_set_location (st_1, 183, st_9, st_14, st_18);
  cob_unstring_init (&f_8, &f_11, 2);
  cob_unstring_delimited ((cob_field *)&c_5, 1);
  cob_unstring_delimited (&cob_all_space, 1);
  cob_unstring_into (&f_17, 0, 0);
  cob_unstring_finish ();

  /* Line: 184       : ADD                : get-reserved-lists.cbl */
  cob_set_location (st_1, 184, st_9, st_14, st_19);
  cob_add (COB_SET_DATA (f_29, b_29), (cob_field *)&c_6, 4);

  /* Line: 185       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 185, st_9, st_14, st_5);
  memmove (b_24 + 1 + 31 * (((int)COB_BSWAP_32(*(int *)(b_29))) - 1), b_16, 30);

  /* Line: 186       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 186, st_9, st_14, st_7);
  if (((int)(int)(*(b_17) - 89) == 0))
  {

    /* Line: 187       : MOVE               : get-reserved-lists.cbl */
    cob_set_location (st_1, 187, st_9, st_14, st_5);
    *(b_24 + 31 * (((int)COB_BSWAP_32(*(int *)(b_29))) - 1)) = 49;
  }
  else
  {
    /* ELSE */

    /* Line: 189       : MOVE               : get-reserved-lists.cbl */
    cob_set_location (st_1, 189, st_9, st_14, st_5);
    *(b_24 + 31 * (((int)COB_BSWAP_32(*(int *)(b_29))) - 1)) = 48;
  }

  /* Line: 191       : GO TO              : get-reserved-lists.cbl */
  cob_set_location (st_1, 191, st_9, st_14, st_17);
  goto l_8;

  /* Implicit EXIT label */
  l_7:;

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

  /* Line: 193       : Section   ca000-Get-Reserved-Words: get-reserved-lists.cbl */
  l_9:;

  /* Line: 195       : Paragraph ca010-init              : get-reserved-lists.cbl */

  /* Line: 196       : OPEN               : get-reserved-lists.cbl */
  cob_set_location (st_1, 196, st_20, st_21, st_11);
  cob_open (h_RESERVE_STREAM, 1, 0, &f_15);
  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_19;
    goto l_1;
    l_19:
    frame_ptr--;
  }

  /* Line: 197       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 197, st_20, st_21, st_7);
  if (((int)cob_cmp_numdisp (b_15, 2, 35LL, 0) == 0))
  {

    /* Line: 198       : DISPLAY            : get-reserved-lists.cbl */
    cob_set_location (st_1, 198, st_20, st_21, st_12);
    cob_display (0, 1, 1, &f_20);
  }

  /* Line: 199       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 199, st_20, st_21, st_7);
  if (((int)cob_cmp_numdisp (b_15, 2, 0, 0) != 0))
  {

    /* Line: 200       : MOVE               : get-reserved-lists.cbl */
    cob_set_location (st_1, 200, st_20, st_21, st_5);
    cob_move (&f_15, COB_SET_DATA (f_23, b_23));

    /* Line: 201       : EXIT SECTION       : get-reserved-lists.cbl */
    cob_set_location (st_1, 201, st_20, st_21, st_13);
    goto l_11;
  }

  /* Line: 203       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 203, st_20, st_21, st_5);
  memmove (b_14, b_35, 4);

  /* Line: 204       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 204, st_20, st_21, st_5);
  memset (b_30, 255, 31744);

  /* Line: 205       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 205, st_20, st_21, st_5);
  memset (b_35, 0, 4);

  /* Line: 206       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 206, st_20, st_21, st_5);
  (*(cob_s8_ptr) (b_12)) = 0;

  /* Line: 208       : Paragraph ca020-get-thru-base-data: get-reserved-lists.cbl */
  l_12:;

  /* Line: 209       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 209, st_20, st_22, st_5);
  memset (b_7, 255, 128);

  /* Line: 210       : READ               : get-reserved-lists.cbl */
  cob_set_location (st_1, 210, st_20, st_22, st_15);
  cob_read_next (h_RESERVE_STREAM, &f_15, 1);
  if (unlikely(cob_glob_ptr->cob_exception_code != 0))
  {
    if (cob_glob_ptr->cob_exception_code == 0x0501)
    {

      /* Line: 211       : GO TO              : get-reserved-lists.cbl */
      cob_set_location (st_1, 211, st_20, st_22, st_17);
      goto l_13;
    }
    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_20;
      goto l_1;
      l_20:
      frame_ptr--;
    }
  }

  /* Line: 213       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 213, st_20, st_22, st_7);
  if ((((int)cob_cmp (COB_SET_FLD(f0, 3, b_7 + 0, &a_1), &cob_all_space) == 0) || 
      ((int)memcmp (b_7 + 0, (cob_u8_ptr)"Reserved Words", 14) == 0)))
  {

    /* Line: 215       : GO TO              : get-reserved-lists.cbl */
    cob_set_location (st_1, 215, st_20, st_22, st_17);
    goto l_12;
  }

  /* Line: 217       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 217, st_20, st_22, st_7);
  if (((int)memcmp (b_7 + 0, (cob_u8_ptr)"Extra (obsolete)", 16) == 0))
  {

    /* Line: 218       : PERFORM            : get-reserved-lists.cbl */
    cob_set_location (st_1, 218, st_20, st_22, st_6);
    for (;;)
    {

      /* Line: 219       : READ               : get-reserved-lists.cbl */
      cob_set_location (st_1, 219, st_20, st_22, st_15);
      cob_read_next (h_RESERVE_STREAM, &f_15, 1);
      if (unlikely(cob_glob_ptr->cob_exception_code != 0))
      {
        if (cob_glob_ptr->cob_exception_code == 0x0501)
        {

          /* Line: 220       : GO TO              : get-reserved-lists.cbl */
          cob_set_location (st_1, 220, st_20, st_22, st_17);
          goto l_13;
        }
        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_21;
          goto l_1;
          l_21:
          frame_ptr--;
        }
      }

      /* Line: 222       : IF                 : get-reserved-lists.cbl */
      cob_set_location (st_1, 222, st_20, st_22, st_7);
      if (((int)memcmp (b_7 + 0, (cob_u8_ptr)"Extra internal", 14) == 0))
      {

        /* Line: 223       : MOVE               : get-reserved-lists.cbl */
        cob_set_location (st_1, 223, st_20, st_22, st_5);
        (*(cob_s8_ptr) (b_12)) = 1;

        /* Line: 224       : GO TO              : get-reserved-lists.cbl */
        cob_set_location (st_1, 224, st_20, st_22, st_17);
        goto l_12;
      }
    }
  }

  /* Line: 231       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 231, st_20, st_22, st_5);
  (*(int *)(b_11)) = 1;

  /* Line: 232       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 232, st_20, st_22, st_5);
  memset (b_16, 32, 30);
  *(b_17) = 32;

  /* Line: 233       : UNSTRING           : get-reserved-lists.cbl */
  cob_set_location (st_1, 233, st_20, st_22, st_18);
  cob_unstring_init (&f_6, &f_11, 2);
  cob_unstring_delimited ((cob_field *)&c_5, 1);
  cob_unstring_delimited (&cob_all_space, 1);
  cob_unstring_into (&f_16, 0, 0);
  cob_unstring_finish ();

  /* Line: 234       : UNSTRING           : get-reserved-lists.cbl */
  cob_set_location (st_1, 234, st_20, st_22, st_18);
  cob_unstring_init (&f_6, &f_11, 2);
  cob_unstring_delimited ((cob_field *)&c_5, 1);
  cob_unstring_delimited (&cob_all_space, 1);
  cob_unstring_into (&f_17, 0, 0);
  cob_unstring_finish ();

  /* Line: 238       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 238, st_20, st_22, st_7);
  if (((int)cob_cmp (&f_16, (cob_field *)&c_7) == 0))
  {

    /* Line: 239       : GO TO              : get-reserved-lists.cbl */
    cob_set_location (st_1, 239, st_20, st_22, st_17);
    goto l_12;
  }

  /* Line: 241       : ADD                : get-reserved-lists.cbl */
  cob_set_location (st_1, 241, st_20, st_22, st_19);
  cob_add (COB_SET_DATA (f_35, b_35), (cob_field *)&c_6, 4);

  /* Line: 242       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 242, st_20, st_22, st_5);
  memmove (b_30 + 1 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1), b_16, 30);

  /* Line: 243       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 243, st_20, st_22, st_7);
  if (((int)(int)(*(b_17) - 89) == 0))
  {

    /* Line: 244       : MOVE               : get-reserved-lists.cbl */
    cob_set_location (st_1, 244, st_20, st_22, st_5);
    *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 49;
  }
  else
  {
    /* ELSE */

    /* Line: 246       : IF                 : get-reserved-lists.cbl */
    cob_set_location (st_1, 246, st_20, st_22, st_7);
    if (((int)(int)(*(b_17) - 78) == 0))
    {

      /* Line: 247       : MOVE               : get-reserved-lists.cbl */
      cob_set_location (st_1, 247, st_20, st_22, st_5);
      *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 48;
    }
    else
    {
      /* ELSE */

      /* Line: 249       : IF                 : get-reserved-lists.cbl */
      cob_set_location (st_1, 249, st_20, st_22, st_7);
      if (((int)cob_cmp_s8 (b_12, 1LL) == 0))
      {

        /* Line: 250       : MOVE               : get-reserved-lists.cbl */
        cob_set_location (st_1, 250, st_20, st_22, st_5);
        *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 49;
      }
      else
      {
        /* ELSE */

        /* Line: 252       : MOVE               : get-reserved-lists.cbl */
        cob_set_location (st_1, 252, st_20, st_22, st_5);
        *(b_30 + 31 * (((int)COB_BSWAP_32(*(int *)(b_35))) - 1)) = 48;
      }
    }
  }

  /* Line: 257       : GO TO              : get-reserved-lists.cbl */
  cob_set_location (st_1, 257, st_20, st_22, st_17);
  goto l_12;

  /* Line: 259       : Paragraph ca030-Clean-Up          : get-reserved-lists.cbl */
  l_13:;

  /* Line: 260       : MOVE               : get-reserved-lists.cbl */
  cob_set_location (st_1, 260, st_20, st_23, st_5);
  (*(cob_s8_ptr) (b_23)) = 0;

  /* Line: 261       : CLOSE              : get-reserved-lists.cbl */
  cob_set_location (st_1, 261, st_20, st_23, st_16);
  cob_close (h_RESERVE_STREAM, &f_15, 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_22;
    goto l_1;
    l_22:
    frame_ptr--;
  }

  /* Line: 262       : IF                 : get-reserved-lists.cbl */
  cob_set_location (st_1, 262, st_20, st_23, st_7);
  if (((int)cob_cmpswp_s32 (b_35, ((int)COB_BSWAP_32(*(int *)(b_14)))) > 0))
  {

    /* Line: 263       : DISPLAY            : get-reserved-lists.cbl */
    cob_set_location (st_1, 263, st_20, st_23, st_12);
    cob_display (0, 1, 1, &f_22);
  }

  /* Line: 265       : EXIT SECTION       : get-reserved-lists.cbl */
  cob_set_location (st_1, 265, st_20, st_23, st_13);
  goto l_11;

  /* Implicit EXIT label */
  l_11:;

  /* Implicit PERFORM return */
  if (frame_ptr->perform_through == 9)
    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);

  /* Initialize module structure */
  module->module_name = "get-reserved-lists";
  module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
  module->module_source = COB_SOURCE_FILE;
  module->module_entry.funcptr = (void *(*)())get__reserved__lists;
  module->module_cancel.funcptr = (void *(*)())get__reserved__lists_;
  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 = 5;
  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 = 0;
  module->flag_fold_call = 0;
  module->flag_exit_program = 0;

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

  /* Initialize WORKING-STORAGE */
  b_1 = 0;
  memcpy (b_10, "get-reserved-lists v1.00.01", 27);
  (*(int *)(b_11)) = 0;
  (*(cob_s8_ptr) (b_12)) = 0;
  memset (b_13, 0, 4);
  memset (b_14, 0, 4);
  memset (b_15, 48, 2);
  memset (b_16, 32, 30);
  *(cob_u8_ptr)(b_17) = 32;
  memcpy (b_18, "Msg11 Cannot run 'cobc --list-intrinsics', cobc not in path\?", 60);
  memcpy (b_18 + 60, "Msg12 Cannot run 'cobc --list-reserved', cobc not in path\?", 58);
  memcpy (b_18 + 118, "Msg13 Intrinsic word table was successfully updated", 51);
  memcpy (b_18 + 169, "Msg14 Reserve word table was successfully updated", 49);
  b_26 = 1;
  b_32 = 1;


  if (!h_RESERVE_STREAM)
  {
    h_RESERVE_STREAM = cob_cache_malloc (sizeof(cob_file));
  }
  h_RESERVE_STREAM->select_name = (const char *)"Reserve-Stream";
  h_RESERVE_STREAM->file_status = h_RESERVE_STREAM_status;
  memset (h_RESERVE_STREAM_status, '0', 2);
  h_RESERVE_STREAM->assign = (cob_field *)&c_3;
  h_RESERVE_STREAM->record = &f_7;
  h_RESERVE_STREAM->variable_record = NULL;
  h_RESERVE_STREAM->record_min = 0;
  h_RESERVE_STREAM->record_max = 128;
  h_RESERVE_STREAM->nkeys = 0;
  h_RESERVE_STREAM->keys = NULL;
  h_RESERVE_STREAM->file = NULL;
  h_RESERVE_STREAM->fd = -1;
  h_RESERVE_STREAM->organization = 1;
  h_RESERVE_STREAM->access_mode = 1;
  h_RESERVE_STREAM->lock_mode = 0;
  h_RESERVE_STREAM->open_mode = 0;
  h_RESERVE_STREAM->flag_optional = 0;
  h_RESERVE_STREAM->last_open_mode = 0;
  h_RESERVE_STREAM->flag_operation = 0;
  h_RESERVE_STREAM->flag_nonexistent = 0;
  h_RESERVE_STREAM->flag_end_of_file = 0;
  h_RESERVE_STREAM->flag_begin_of_file = 0;
  h_RESERVE_STREAM->flag_first_read = 0;
  h_RESERVE_STREAM->flag_read_done = 0;
  h_RESERVE_STREAM->flag_select_features = 1;
  h_RESERVE_STREAM->flag_needs_nl = 0;
  h_RESERVE_STREAM->flag_needs_top = 0;
  h_RESERVE_STREAM->file_version = 1;
  if (!h_INTRINSIC_STREAM)
  {
    h_INTRINSIC_STREAM = cob_cache_malloc (sizeof(cob_file));
  }
  h_INTRINSIC_STREAM->select_name = (const char *)"Intrinsic-Stream";
  h_INTRINSIC_STREAM->file_status = h_INTRINSIC_STREAM_status;
  memset (h_INTRINSIC_STREAM_status, '0', 2);
  h_INTRINSIC_STREAM->assign = (cob_field *)&c_4;
  h_INTRINSIC_STREAM->record = &f_9;
  h_INTRINSIC_STREAM->variable_record = NULL;
  h_INTRINSIC_STREAM->record_min = 0;
  h_INTRINSIC_STREAM->record_max = 128;
  h_INTRINSIC_STREAM->nkeys = 0;
  h_INTRINSIC_STREAM->keys = NULL;
  h_INTRINSIC_STREAM->file = NULL;
  h_INTRINSIC_STREAM->fd = -1;
  h_INTRINSIC_STREAM->organization = 1;
  h_INTRINSIC_STREAM->access_mode = 1;
  h_INTRINSIC_STREAM->lock_mode = 0;
  h_INTRINSIC_STREAM->open_mode = 0;
  h_INTRINSIC_STREAM->flag_optional = 0;
  h_INTRINSIC_STREAM->last_open_mode = 0;
  h_INTRINSIC_STREAM->flag_operation = 0;
  h_INTRINSIC_STREAM->flag_nonexistent = 0;
  h_INTRINSIC_STREAM->flag_end_of_file = 0;
  h_INTRINSIC_STREAM->flag_begin_of_file = 0;
  h_INTRINSIC_STREAM->flag_first_read = 0;
  h_INTRINSIC_STREAM->flag_read_done = 0;
  h_INTRINSIC_STREAM->flag_select_features = 1;
  h_INTRINSIC_STREAM->flag_needs_nl = 0;
  h_INTRINSIC_STREAM->flag_needs_top = 0;
  h_INTRINSIC_STREAM->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_RESERVE_STREAM, NULL, COB_CLOSE_NORMAL, 1);
  cob_cache_free (h_RESERVE_STREAM);
  h_RESERVE_STREAM = NULL;
  cob_close (h_INTRINSIC_STREAM, NULL, COB_CLOSE_NORMAL, 1);
  cob_cache_free (h_INTRINSIC_STREAM);
  h_INTRINSIC_STREAM = NULL;
  b_1 = 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: