mirror of
https://github.com/epasveer/seer.git
synced 2026-08-29 16:40:42 +08:00
Ernie Pasveer
259 lines
6.6 KiB
C
259 lines
6.6 KiB
C
/* Generated by cobc 3.1.2.0 */
|
|
/* Generated from hellocobol_variables.cob */
|
|
/* Generated at Aug 04 2025 19:18:38 */
|
|
/* GnuCOBOL build date Jul 15 2023 12:00:00 */
|
|
/* GnuCOBOL package date Dec 23 2020 12:04:58 UTC */
|
|
/* Compile command cobc -x -g -o hellocobol_variables hellocobol_variables.cob */
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#define COB_KEYWORD_INLINE __inline
|
|
#include <libcob.h>
|
|
|
|
#define COB_SOURCE_FILE "hellocobol_variables.cob"
|
|
#define COB_PACKAGE_VERSION "3.1.2"
|
|
#define COB_PATCH_LEVEL 0
|
|
#define COB_MODULE_FORMATTED_DATE "Aug 04 2025 19:18:38"
|
|
#define COB_MODULE_DATE 20250804
|
|
#define COB_MODULE_TIME 191838
|
|
|
|
/* Global variables */
|
|
#include "hellocobol_variables.c.h"
|
|
|
|
/* Function prototypes */
|
|
|
|
static int _02_VARIABLES ();
|
|
static int _02_VARIABLES_ (const int);
|
|
static void _02_VARIABLES_module_init (cob_module *module);
|
|
|
|
/* Main function */
|
|
int
|
|
main (int argc, char **argv)
|
|
{
|
|
cob_init (argc, argv);
|
|
cob_stop_run (_02_VARIABLES ());
|
|
}
|
|
|
|
/* Functions */
|
|
|
|
/* PROGRAM-ID '02_VARIABLES' */
|
|
|
|
/* ENTRY '_02_VARIABLES' */
|
|
|
|
static int
|
|
_02_VARIABLES ()
|
|
{
|
|
return _02_VARIABLES_ (0);
|
|
}
|
|
|
|
static int
|
|
_02_VARIABLES_ (const int entry)
|
|
{
|
|
/* Program local variables */
|
|
#include "hellocobol_variables.c.l.h"
|
|
|
|
/* Start of function code */
|
|
|
|
/* CANCEL callback */
|
|
if (unlikely(entry < 0)) {
|
|
if (entry == -10)
|
|
goto P_dump;
|
|
if (entry == -20)
|
|
goto P_clear_decimal;
|
|
goto P_cancel;
|
|
}
|
|
|
|
/* Check initialized, check module allocated, */
|
|
/* set global pointer, */
|
|
/* push module stack, save call parameter count */
|
|
if (cob_module_global_enter (&module, &cob_glob_ptr, 0, entry, 0))
|
|
return -1;
|
|
|
|
/* 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_ptr->return_address_ptr = &&P_cgerror;
|
|
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++;
|
|
|
|
/* Entry dispatch */
|
|
goto l_2;
|
|
|
|
/* PROCEDURE DIVISION */
|
|
|
|
/* Line: 28 : Entry 02_VARIABLES : hellocobol_variables.cob */
|
|
l_2:;
|
|
#line 28 "hellocobol_variables.cob"
|
|
ENTRY_02_VARIABLES:;
|
|
#line 100 "hellocobol_variables.c"
|
|
#line 29 "hellocobol_variables.cob"
|
|
SECTION_MAIN_20SECTION:;
|
|
#line 103 "hellocobol_variables.c"
|
|
#line 29 "hellocobol_variables.cob"
|
|
cob_nop ();
|
|
#line 106 "hellocobol_variables.c"
|
|
|
|
/* Line: 29 : DISPLAY : hellocobol_variables.cob */
|
|
module->module_stmt = 0x0010001D;
|
|
#line 29 "hellocobol_variables.cob"
|
|
cob_trace_stmt (st_1);
|
|
#line 112 "hellocobol_variables.c"
|
|
cob_display (0, 1, 1, &f_8);
|
|
|
|
/* Line: 30 : DISPLAY : hellocobol_variables.cob */
|
|
module->module_stmt = 0x0010001E;
|
|
#line 30 "hellocobol_variables.cob"
|
|
cob_trace_stmt (st_1);
|
|
#line 119 "hellocobol_variables.c"
|
|
cob_display (0, 1, 1, &f_16);
|
|
|
|
/* Line: 32 : MOVE : hellocobol_variables.cob */
|
|
module->module_stmt = 0x00100020;
|
|
#line 32 "hellocobol_variables.cob"
|
|
cob_trace_stmt (st_2);
|
|
#line 126 "hellocobol_variables.c"
|
|
memcpy (b_17, "01", 2);
|
|
|
|
/* Line: 33 : MOVE : hellocobol_variables.cob */
|
|
module->module_stmt = 0x00100021;
|
|
#line 33 "hellocobol_variables.cob"
|
|
cob_trace_stmt (st_2);
|
|
#line 133 "hellocobol_variables.c"
|
|
cob_move ((cob_field *)&c_1, &f_20);
|
|
|
|
/* Line: 35 : DISPLAY : hellocobol_variables.cob */
|
|
module->module_stmt = 0x00100023;
|
|
#line 35 "hellocobol_variables.cob"
|
|
cob_trace_stmt (st_1);
|
|
#line 140 "hellocobol_variables.c"
|
|
cob_display (0, 1, 1, &f_17);
|
|
|
|
/* Line: 36 : STOP RUN : hellocobol_variables.cob */
|
|
module->module_stmt = 0x00100024;
|
|
#line 36 "hellocobol_variables.cob"
|
|
cob_trace_stmt (st_3);
|
|
#line 147 "hellocobol_variables.c"
|
|
cob_stop_run (b_2);
|
|
|
|
module->module_stmt = 0x00100026;
|
|
|
|
/* Program exit */
|
|
|
|
/* Decrement module active count */
|
|
if (module->module_active) {
|
|
module->module_active--;
|
|
}
|
|
|
|
/* Pop module stack */
|
|
cob_module_leave (module);
|
|
|
|
/* Program return */
|
|
return b_2;
|
|
P_cgerror:
|
|
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;
|
|
|
|
_02_VARIABLES_module_init (module);
|
|
|
|
module->crt_status = NULL;
|
|
|
|
/* Initialize cancel callback */
|
|
cob_set_cancel (module);
|
|
|
|
/* Initialize WORKING-STORAGE */
|
|
b_2 = 0;
|
|
memcpy (b_8, "lp", 2);
|
|
*(cob_u8_ptr)(b_8 + 2) = 124;
|
|
memcpy (b_8 + 3, " number", 10);
|
|
*(cob_u8_ptr)(b_8 + 13) = 124;
|
|
memcpy (b_8 + 14, " decimal", 10);
|
|
*(cob_u8_ptr)(b_8 + 24) = 124;
|
|
memcpy (b_8 + 25, " currency", 10);
|
|
memset (b_16, 45, 80);
|
|
memset (b_17, 48, 2);
|
|
*(cob_u8_ptr)(b_17 + 2) = 124;
|
|
cob_move ((cob_field *)&c_2, &f_20);
|
|
*(cob_u8_ptr)(b_17 + 13) = 124;
|
|
cob_move ((cob_field *)&c_3, COB_SET_FLD(f0, 11, b_17 + 14, &a_7));
|
|
*(cob_u8_ptr)(b_17 + 25) = 124;
|
|
cob_move ((cob_field *)&c_4, COB_SET_FLD(f0, 11, b_17 + 26, &a_9));
|
|
|
|
if (0 == 1) goto P_cgerror;
|
|
initialized = 1;
|
|
goto P_ret_initialize;
|
|
|
|
P_dump:
|
|
return 0;
|
|
|
|
|
|
/* CANCEL callback handling */
|
|
P_cancel:
|
|
|
|
if (!initialized)
|
|
return 0;
|
|
if (module && module->module_active)
|
|
cob_fatal_error (COB_FERROR_CANCEL);
|
|
|
|
initialized = 0;
|
|
|
|
P_clear_decimal:
|
|
return 0;
|
|
|
|
}
|
|
|
|
/* End PROGRAM-ID '02_VARIABLES' */
|
|
|
|
/* Initialize module structure for 02_VARIABLES */
|
|
static void _02_VARIABLES_module_init (cob_module *module)
|
|
{
|
|
module->module_name = "02_VARIABLES";
|
|
module->module_formatted_date = COB_MODULE_FORMATTED_DATE;
|
|
module->module_source = COB_SOURCE_FILE;
|
|
module->module_entry.funcptr = (void *(*)())_02_VARIABLES;
|
|
module->module_cancel.funcptr = (void *(*)())_02_VARIABLES_;
|
|
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->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;
|
|
module->flag_debug_trace = 0;
|
|
module->flag_dump_ready = 0;
|
|
module->module_stmt = 0;
|
|
module->module_sources = st_source_files;
|
|
}
|
|
|
|
/* End functions */
|
|
|