get-reserved-lists.c.l.h

Go to the documentation of this file.

/* Generated by           cobc 2.0.0 */
/* Generated from         get-reserved-lists.cbl */
/* Generated at           Apr 17 2016 03:19:00 */
/* GnuCOBOL build date    Apr 16 2016 12:25:23 */
/* GnuCOBOL package date  Oct 25 2015 21:40:28 UTC */
/* Compile command        cobc -x -g cobxref.cbl get-reserved-lists.cbl */

/* Program local variables for 'get-reserved-lists' */

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

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

/* Global variable pointer */
cob_global      *cob_glob_ptr;


/* File Reserve-Stream */
static cob_file     *h_RESERVE_STREAM = NULL;
static unsigned char    h_RESERVE_STREAM_status[4];

/* File Intrinsic-Stream */
static cob_file     *h_INTRINSIC_STREAM = NULL;
static unsigned char    h_INTRINSIC_STREAM_status[4];

/* Local cob_field items */
cob_field       f0;


/* 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_1;   /* RETURN-CODE */
static cob_u8_t  b_7[128] __attribute__((aligned)); /* Reserve-Stream Record */
static cob_u8_t  b_9[128] __attribute__((aligned)); /* Intrinsic-Stream Record */
static cob_u8_t  b_10[27] __attribute__((aligned)); /* Prog-Name */
static cob_u8_t  b_11[4] __attribute__((aligned));  /* S-Ptr */
static cob_u8_t  b_12[1] __attribute__((aligned));  /* Res-Start */
static cob_u8_t  b_13[4] __attribute__((aligned));  /* ws-Function-Table-Size */
static cob_u8_t  b_14[4] __attribute__((aligned));  /* ws-Resvd-Table-Size */
static cob_u8_t  b_15[2] __attribute__((aligned));  /* fs-reply */
static cob_u8_t  b_16[30] __attribute__((aligned)); /* Placement-Res */
static cob_u8_t  b_17[1] __attribute__((aligned));  /* Placement-Res-State */
static cob_u8_t  b_18[218] __attribute__((aligned));    /* Error-messages */
static int       b_26;  /* All-Fun-Idx */
static int       b_32;  /* Resvd-Idx */

/* End of data storage */


/* Fields */
static cob_field f_6    = {128, b_7, &a_1}; /* Res-Record */
static cob_field f_7    = {128, b_7, &a_1}; /* Reserve-Stream Record */
static cob_field f_8    = {128, b_9, &a_1}; /* Int-Record */
static cob_field f_9    = {128, b_9, &a_1}; /* Intrinsic-Stream Record */
static cob_field f_11   = {4, b_11, &a_4};  /* S-Ptr */
static cob_field f_15   = {2, b_15, &a_2};  /* fs-reply */
static cob_field f_16   = {30, b_16, &a_1}; /* Placement-Res */
static cob_field f_17   = {1, b_17, &a_1};  /* Placement-Res-State */
static cob_field f_19   = {60, b_18, &a_1}; /* Msg11 */
static cob_field f_20   = {58, b_18 + 60, &a_1};    /* Msg12 */
static cob_field f_21   = {51, b_18 + 118, &a_1};   /* Msg13 */
static cob_field f_22   = {49, b_18 + 169, &a_1};   /* Msg14 */
static cob_field f_23   = {1, NULL, &a_3};  /* ws-Return-Code */
static cob_field f_29   = {4, NULL, &a_5};  /* Function-Table-Size */
static cob_field f_35   = {4, NULL, &a_5};  /* Resvd-Table-Size */

/* End of fields */