OpenCOBOL: OCic/OCic.c.l4.h Source File

Go to the documentation of this file.
00001 /* Generated by            cobc 1.1.0 */
00002 /* Generated from          OCic.cbl */
00003 /* Generated at            May 01 2011 23:10:45 EDT */
00004 /* OpenCOBOL build date    May 01 2011 07:48:58 */
00005 /* OpenCOBOL package date  Feb 06 2009 10:30:55 CET */
00006 /* Compile command         cobc -v -x -o ocic --save-temps=OCic/ OCic.cbl */
00007 
00008 /* Decimal structures */
00009 static cob_decimal d0;
00010 static cob_decimal d1;
00011 
00012 /* File Expand-Code */
00013 static cob_file         *h_EXPAND_CODE = NULL;
00014 static unsigned char    h_EXPAND_CODE_status[4];
00015 /* File Report-File */
00016 static cob_file         *h_REPORT_FILE = NULL;
00017 static unsigned char    h_REPORT_FILE_status[4];
00018 /* File Sort-File */
00019 static cob_file         *h_SORT_FILE = NULL;
00020 static unsigned char    h_SORT_FILE_status[4];
00021 /* File Source-Code */
00022 static cob_file         *h_SOURCE_CODE = NULL;
00023 static unsigned char    h_SOURCE_CODE_status[4];
00024 
00025 /* Define perform frame stack */
00026 
00027 struct cob_frame        *frame_ptr;
00028 struct cob_frame        frame_stack[255];
00029 
00030 int             i1;
00031 
00032 /* Local cob_field items */
00033 cob_field       f0;
00034