GCic.c.l2.h

Go to the documentation of this file.

/* Generated by           cobc 2.0.0 */
/* Generated from         GCic.cbl */
/* Generated at           Apr 17 2016 04:46:54 */
/* GnuCOBOL build date    Apr 17 2016 04:44:31 */
/* GnuCOBOL package date  Oct 25 2015 21:40:28 UTC */
/* Compile command        cobc -x -g -v GCic.cbl */

/* Program local variables for 'CHECKSRC' */

/* Module initialization indicator */
static unsigned int initialized = 0;

/* Module structure pointer */
static cob_module   *module = NULL;

/* Global variable pointer */
cob_global      *cob_glob_ptr;


/* Local cob_field items */
cob_field       f0;
cob_field       f1;


/* Call parameters */
cob_field       *cob_procedure_params[1];

/* Perform frame stack */
struct cob_frame    *frame_overflow;
struct cob_frame    *frame_ptr;
struct cob_frame    frame_stack[255];


/* Data storage */
static int       b_357; /* RETURN-CODE */
static cob_u8_t  b_362[80] __attribute__((aligned));    /* WS-Compressed-Src-TXT */
static cob_u8_t  b_364[1] __attribute__((aligned)); /* WS-Runtime-Switches-TXT */
static cob_u8_t  b_368[1] __attribute__((aligned)); /* WS-I-SUB */
static cob_u8_t  b_369[1] __attribute__((aligned)); /* WS-J-SUB */

/* End of data storage */