GnuCOBOL  2.0
A free COBOL compiler
Functions | Variables
GCic.c.h File Reference
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions

static void COB_NOINLINE cob_set_screen (cob_screen *s, cob_screen *next, cob_screen *prev, cob_screen *child, cob_screen *parent, cob_field *field, cob_field *value, cob_field *line, cob_field *column, cob_field *foreg, cob_field *backg, cob_field *prompt, const int type, const int occurs, const int attr)
 
static int COB_NOINLINE cob_get_numdisp (const void *data, const size_t size)
 
static COB_INLINE COB_A_INLINE int cob_cmp_s8 (const void *p, const cob_s64_t n)
 
static COB_INLINE COB_A_INLINE int cob_cmp_s32 (const void *p, const cob_s64_t n)
 

Variables

static const char * cob_module_path = NULL
 
static const cob_field_attr a_1 = {0x21, 0, 0, 0x0000, NULL}
 
static const cob_field_attr a_2 = {0x01, 0, 0, 0x0000, NULL}
 
static const cob_field_attr a_3 = {0x23, 12, 0, 0x0000, "X\004\000\000\000/\001\000\000\000X\002\000\000\000/\001\000\000\000X\002\000\000\000B\001\000\000\000X\002\000\000\000/\001\000\000\000X\002\000\000\000"}
 
static const cob_field_attr a_4 = {0x11, 9, 0, 0x0041, NULL}
 
static const cob_field_attr a_5 = {0x10, 1, 0, 0x0000, NULL}
 
static const cob_field_attr a_6 = {0x10, 4, 0, 0x0000, NULL}
 
static const cob_field_attr a_7 = {0x10, 2, 0, 0x0000, NULL}
 
static const cob_field_attr a_8 = {0x10, 6, 0, 0x0000, NULL}
 
static const cob_field_attr a_9 = {0x10, 8, 0, 0x0000, NULL}
 
static const cob_field_attr a_10 = {0x24, 8, 0, 0x0000, "9\004\000\000\000/\001\000\000\0009\002\000\000\000/\001\000\000\0009\002\000\000\000"}
 
static const cob_field_attr a_11 = {0x24, 6, 0, 0x0000, "Z\005\000\000\0009\001\000\000\000"}
 
static const cob_field_attr a_12 = {0x24, 4, 0, 0x0000, "Z\003\000\000\0009\001\000\000\000"}
 
static const cob_field_attr cob_all_attr = {0x22, 0, 0, 0, NULL}
 
static const cob_field c_1 = {17, (cob_u8_ptr)"File not found: \"", &a_1}
 
static const cob_field c_2 = {1, (cob_u8_ptr)"\"", &a_1}
 
static const cob_field c_3 = {23, (cob_u8_ptr)"Error accessing file: \"", &a_1}
 
static const cob_field c_4 = {21, (cob_u8_ptr)"COB_SCREEN_EXCEPTIONS", &a_1}
 
static const cob_field c_5 = {1, (cob_u8_ptr)"Y", &a_1}
 
static const cob_field c_6 = {14, (cob_u8_ptr)"COB_SCREEN_ESC", &a_1}
 
static const cob_field c_7 = {21, (cob_u8_ptr)"2016041704465400-0400", &a_1}
 
static const cob_field c_8 = {1, (cob_u8_ptr)":", &a_1}
 
static const cob_field c_9 = {1, (cob_u8_ptr)"/", &a_1}
 
static const cob_field c_10 = {1, (cob_u8_ptr)"0", &a_1}
 
static const cob_field c_11 = {1, (cob_u8_ptr)">", &a_1}
 
static const cob_field c_12 = {1, (cob_u8_ptr)"1", &a_1}
 
static const cob_field c_13 = {1, (cob_u8_ptr)"2", &a_1}
 
static const cob_field c_14 = {33, (cob_u8_ptr)"No program filename was specified", &a_1}
 
static const cob_field c_15 = {1, (cob_u8_ptr)"*", &a_1}
 
static const cob_field c_16 = {2, (cob_u8_ptr)"CD", &a_1}
 
static const cob_field c_17 = {10, (cob_u8_ptr)" GCic for ", &a_1}
 
static const cob_field c_18 = {34, (cob_u8_ptr)" Copyright (C) 2009-2014, Gary L. ", &a_1}
 
static const cob_field c_19 = {11, (cob_u8_ptr)"Cutler, GPL", &a_1}
 
static const cob_field c_20 = {11, (cob_u8_ptr)"Listing Off", &a_1}
 
static const cob_field c_21 = {30, (cob_u8_ptr)"An unsupported key was pressed", &a_1}
 
static const cob_field c_22 = {13, (cob_u8_ptr)"cobc -v -std=", &a_1}
 
static const cob_field c_23 = {1, (cob_u8_ptr)" ", &a_1}
 
static const cob_field c_24 = {3, (cob_u8_ptr)"-m ", &a_1}
 
static const cob_field c_25 = {3, (cob_u8_ptr)"-x ", &a_1}
 
static const cob_field c_26 = {17, (cob_u8_ptr)"-fdebugging-line ", &a_1}
 
static const cob_field c_27 = {10, (cob_u8_ptr)"-fnotrunc ", &a_1}
 
static const cob_field c_28 = {11, (cob_u8_ptr)"-ftraceall ", &a_1}
 
static const cob_field c_29 = {16, (cob_u8_ptr)"-fintrinsic=all ", &a_1}
 
static const cob_field c_30 = {6, (cob_u8_ptr)"-Wall ", &a_1}
 
static const cob_field c_31 = {6, (cob_u8_ptr)"-free ", &a_1}
 
static const cob_field c_32 = {7, (cob_u8_ptr)"-fixed ", &a_1}
 
static const cob_field c_33 = {11, (cob_u8_ptr)"-save-temps", &a_1}
 
static const cob_field c_34 = {12, (cob_u8_ptr)"-save-temps ", &a_1}
 
static const cob_field c_35 = {6, (cob_u8_ptr)".gclst", &a_1}
 
static const cob_field c_36 = {13, (cob_u8_ptr)" Compiling...", &a_1}
 
static const cob_field c_37 = {2, (cob_u8_ptr)" >", &a_1}
 
static const cob_field c_38 = {5, (cob_u8_ptr)" 2>&1", &a_1}
 
static const cob_field c_39 = {27, (cob_u8_ptr)" Compilation Was Successful", &a_1}
 
static const cob_field c_40 = {9, (cob_u8_ptr)"GNU COBOL", &a_1}
 
static const cob_field c_41 = {26, (cob_u8_ptr)" Compilation Failed - See ", &a_1}
 
static const cob_field c_42 = {44, (cob_u8_ptr)"GNU COBOL Compilation HAS FAILED - See Above", &a_1}
 
static const cob_field c_43 = {22, (cob_u8_ptr)" Generating listing...", &a_1}
 
static const cob_field c_44 = {32, (cob_u8_ptr)" LISTING module is not available", &a_1}
 
static const cob_field c_45 = {31, (cob_u8_ptr)" Source+Xref listing generated ", &a_1}
 
static const cob_field c_46 = {51, (cob_u8_ptr)" Preparing to run program ... press ENTER to close ", &a_1}
 
static const cob_field c_47 = {8, (cob_u8_ptr)"cobcrun ", &a_1}
 
static const cob_field c_48 = {10, (cob_u8_ptr)"/cygdrive/", &a_1}
 
static const cob_field c_49 = {2, (cob_u8_ptr)"./", &a_1}
 
static const cob_field c_50 = {3, (cob_u8_ptr)".so", &a_1}
 
static const cob_field c_51 = {4, (cob_u8_ptr)"0101", &a_6}
 
static const cob_field c_52 = {7, (cob_u8_ptr)"cmd /c ", &a_1}
 
static const cob_field c_53 = {8, (cob_u8_ptr)"open -t ", &a_1}
 
static const cob_field c_54 = {4, (cob_u8_ptr)"del ", &a_1}
 
static const cob_field c_55 = {3, (cob_u8_ptr)"rm ", &a_1}
 
static const cob_field c_56 = {2, (cob_u8_ptr)".c", &a_1}
 
static const cob_field c_57 = {4, (cob_u8_ptr)".c.h", &a_1}
 
static const cob_field c_58 = {7, (cob_u8_ptr)".c.l*.h", &a_1}
 
static const cob_field c_59 = {2, (cob_u8_ptr)".i", &a_1}
 
static const cob_field c_60 = {2, (cob_u8_ptr)".o", &a_1}
 
static const cob_field c_61 = {1, (cob_u8_ptr)"1", &a_5}
 
static const cob_field c_62 = {1, (cob_u8_ptr)"7", &a_5}
 
static const cob_field c_63 = {1, (cob_u8_ptr)"0", &a_5}
 
static const cob_field c_64 = {1, (cob_u8_ptr)"2", &a_5}
 
static const cob_field c_65 = {2, (cob_u8_ptr)"02", &a_7}
 
static const cob_field c_66 = {2, (cob_u8_ptr)"01", &a_7}
 
static const cob_field c_67 = {2, (cob_u8_ptr)"80", &a_7}
 
static const cob_field c_68 = {2, (cob_u8_ptr)"03", &a_7}
 
static const cob_field c_69 = {2, (cob_u8_ptr)"04", &a_7}
 
static const cob_field c_70 = {2, (cob_u8_ptr)"05", &a_7}
 
static const cob_field c_71 = {2, (cob_u8_ptr)"07", &a_7}
 
static const cob_field c_72 = {2, (cob_u8_ptr)"67", &a_7}
 
static const cob_field c_73 = {2, (cob_u8_ptr)"68", &a_7}
 
static const cob_field c_74 = {2, (cob_u8_ptr)"08", &a_7}
 
static const cob_field c_75 = {2, (cob_u8_ptr)"09", &a_7}
 
static const cob_field c_76 = {2, (cob_u8_ptr)"10", &a_7}
 
static const cob_field c_77 = {2, (cob_u8_ptr)"11", &a_7}
 
static const cob_field c_78 = {2, (cob_u8_ptr)"12", &a_7}
 
static const cob_field c_79 = {2, (cob_u8_ptr)"13", &a_7}
 
static const cob_field c_80 = {2, (cob_u8_ptr)"15", &a_7}
 
static const cob_field c_81 = {2, (cob_u8_ptr)"16", &a_7}
 
static const cob_field c_82 = {2, (cob_u8_ptr)"17", &a_7}
 
static const cob_field c_83 = {2, (cob_u8_ptr)"18", &a_7}
 
static const cob_field c_84 = {2, (cob_u8_ptr)"20", &a_7}
 
static const cob_field c_85 = {2, (cob_u8_ptr)"21", &a_7}
 
static const cob_field c_86 = {2, (cob_u8_ptr)"22", &a_7}
 
static const cob_field c_87 = {2, (cob_u8_ptr)"23", &a_7}
 
static const cob_field c_88 = {2, (cob_u8_ptr)"24", &a_7}
 
static const cob_field c_89 = {1, (cob_u8_ptr)"4", &a_5}
 
static const cob_field c_90 = {1, (cob_u8_ptr)"3", &a_5}
 
static const cob_field c_91 = {2, (cob_u8_ptr)"06", &a_7}
 
static const cob_field c_92 = {2, (cob_u8_ptr)"14", &a_7}
 
static const cob_field c_93 = {2, (cob_u8_ptr)"19", &a_7}
 
static const cob_field c_94 = {2, (cob_u8_ptr)"26", &a_7}
 
static const cob_field c_95 = {2, (cob_u8_ptr)"45", &a_7}
 
static const cob_field c_96 = {2, (cob_u8_ptr)"50", &a_7}
 
static const cob_field c_97 = {2, (cob_u8_ptr)"70", &a_7}
 
static const cob_field c_98 = {2, (cob_u8_ptr)"62", &a_7}
 
static const cob_field c_99 = {2, (cob_u8_ptr)"65", &a_7}
 
static const cob_field c_100 = {2, (cob_u8_ptr)"35", &a_7}
 
static const cob_field c_101 = {2, (cob_u8_ptr)"38", &a_7}
 
static const cob_field c_102 = {2, (cob_u8_ptr)"39", &a_7}
 
static const cob_field c_103 = {2, (cob_u8_ptr)"69", &a_7}
 
static const cob_field c_104 = {9, (cob_u8_ptr)"GCic for ", &a_1}
 
static const cob_field c_105 = {45, (cob_u8_ptr)" Copyright (C) 2009-2014, Gary L. Cutler, GPL", &a_1}
 
static const cob_field c_106 = {12, (cob_u8_ptr)"GCXREF_LINES", &a_1}
 
static const cob_field c_107 = {17, (cob_u8_ptr)"GCXREF_LINES_PORT", &a_1}
 
static const cob_field c_108 = {1, (cob_u8_ptr)"\\", &a_1}
 
static const cob_field c_109 = {5, (cob_u8_ptr)"Right", &a_1}
 
static const cob_field c_110 = {1, (cob_u8_ptr)".", &a_1}
 
static const cob_field c_111 = {6, (cob_u8_ptr)"EQUALS", &a_1}
 
static const cob_field c_112 = {2, (cob_u8_ptr)". ", &a_1}
 
static const cob_field c_113 = {2, (cob_u8_ptr)"IS", &a_1}
 
static const cob_field c_114 = {1, (cob_u8_ptr)"=", &a_1}
 
static const cob_field c_115 = {1, (cob_u8_ptr)"(", &a_1}
 
static const cob_field c_116 = {1, (cob_u8_ptr)")", &a_1}
 
static const cob_field c_117 = {1, (cob_u8_ptr)"&", &a_1}
 
static const cob_field c_118 = {1, (cob_u8_ptr)";", &a_1}
 
static const cob_field c_119 = {1, (cob_u8_ptr)",", &a_1}
 
static const cob_field c_120 = {1, (cob_u8_ptr)"<", &a_1}
 
static const cob_field c_121 = {5, (cob_u8_ptr)"EQUAL", &a_1}
 
static const cob_field c_122 = {7, (cob_u8_ptr)"LEVEL #", &a_1}
 
static const cob_field c_123 = {10, (cob_u8_ptr)"0123456789", &a_1}
 
static const cob_field c_124 = {1, (cob_u8_ptr)"e", &a_1}
 
static const cob_field c_125 = {1, (cob_u8_ptr)"E", &a_1}
 
static const cob_field c_126 = {8, (cob_u8_ptr)"DIVISION", &a_1}
 
static const cob_field c_127 = {10, (cob_u8_ptr)"PROGRAM-ID", &a_1}
 
static const cob_field c_128 = {11, (cob_u8_ptr)"FUNCTION-ID", &a_1}
 
static const cob_field c_129 = {7, (cob_u8_ptr)"SECTION", &a_1}
 
static const cob_field c_130 = {8, (cob_u8_ptr)"FUNCTION", &a_1}
 
static const cob_field c_131 = {3, (cob_u8_ptr)"PIC", &a_1}
 
static const cob_field c_132 = {7, (cob_u8_ptr)"PICTURE", &a_1}
 
static const cob_field c_133 = {2, (cob_u8_ptr)"FD", &a_1}
 
static const cob_field c_134 = {2, (cob_u8_ptr)"RD", &a_1}
 
static const cob_field c_135 = {2, (cob_u8_ptr)"SD", &a_1}
 
static const cob_field c_136 = {7, (cob_u8_ptr)"INDEXED", &a_1}
 
static const cob_field c_137 = {5, (cob_u8_ptr)"USING", &a_1}
 
static const cob_field c_138 = {4, (cob_u8_ptr)"INTO", &a_1}
 
static const cob_field c_139 = {3, (cob_u8_ptr)"SUM", &a_1}
 
static const cob_field c_140 = {9, (cob_u8_ptr)"PROCEDURE", &a_1}
 
static const cob_field c_141 = {7, (cob_u8_ptr)"PROGRAM", &a_1}
 
static const cob_field c_142 = {3, (cob_u8_ptr)"END", &a_1}
 
static const cob_field c_143 = {6, (cob_u8_ptr)"ACCEPT", &a_1}
 
static const cob_field c_144 = {3, (cob_u8_ptr)"ADD", &a_1}
 
static const cob_field c_145 = {8, (cob_u8_ptr)"ALLOCATE", &a_1}
 
static const cob_field c_146 = {4, (cob_u8_ptr)"CALL", &a_1}
 
static const cob_field c_147 = {7, (cob_u8_ptr)"COMPUTE", &a_1}
 
static const cob_field c_148 = {6, (cob_u8_ptr)"DIVIDE", &a_1}
 
static const cob_field c_149 = {4, (cob_u8_ptr)"FREE", &a_1}
 
static const cob_field c_150 = {8, (cob_u8_ptr)"GENERATE", &a_1}
 
static const cob_field c_151 = {10, (cob_u8_ptr)"INITIALIZE", &a_1}
 
static const cob_field c_152 = {8, (cob_u8_ptr)"INITIATE", &a_1}
 
static const cob_field c_153 = {7, (cob_u8_ptr)"INSPECT", &a_1}
 
static const cob_field c_154 = {4, (cob_u8_ptr)"MOVE", &a_1}
 
static const cob_field c_155 = {8, (cob_u8_ptr)"MULTIPLY", &a_1}
 
static const cob_field c_156 = {7, (cob_u8_ptr)"PERFORM", &a_1}
 
static const cob_field c_157 = {3, (cob_u8_ptr)"SET", &a_1}
 
static const cob_field c_158 = {6, (cob_u8_ptr)"STRING", &a_1}
 
static const cob_field c_159 = {8, (cob_u8_ptr)"SUBTRACT", &a_1}
 
static const cob_field c_160 = {9, (cob_u8_ptr)"TERMINATE", &a_1}
 
static const cob_field c_161 = {9, (cob_u8_ptr)"TRANSFORM", &a_1}
 
static const cob_field c_162 = {8, (cob_u8_ptr)"UNSTRING", &a_1}
 
static const cob_field c_163 = {6, (cob_u8_ptr)"GIVING", &a_1}
 
static const cob_field c_164 = {2, (cob_u8_ptr)"TO", &a_1}
 
static const cob_field c_165 = {9, (cob_u8_ptr)"RETURNING", &a_1}
 
static const cob_field c_166 = {9, (cob_u8_ptr)"REMAINDER", &a_1}
 
static const cob_field c_167 = {9, (cob_u8_ptr)"REPLACING", &a_1}
 
static const cob_field c_168 = {8, (cob_u8_ptr)"TALLYING", &a_1}
 
static const cob_field c_169 = {10, (cob_u8_ptr)"CONVERTING", &a_1}
 
static const cob_field c_170 = {2, (cob_u8_ptr)"BY", &a_1}
 
static const cob_field c_171 = {7, (cob_u8_ptr)"VARYING", &a_1}
 
static const cob_field c_172 = {5, (cob_u8_ptr)"AFTER", &a_1}
 
static const cob_field c_173 = {7, (cob_u8_ptr)"POINTER", &a_1}
 
static const cob_field c_174 = {4, (cob_u8_ptr)"FROM", &a_1}
 
static const cob_field c_175 = {9, (cob_u8_ptr)"DELIMITER", &a_1}
 
static const cob_field c_176 = {5, (cob_u8_ptr)"COUNT", &a_1}
 
static const cob_field c_177 = {6, (cob_u8_ptr)"000000", &a_1}
 
static const cob_field c_178 = {4, (cob_u8_ptr)"Left", &a_1}
 
static const cob_field c_179 = {23, (cob_u8_ptr)"Cross-Reference Listing", &a_1}
 
static const cob_field c_180 = {82, (cob_u8_ptr)"PROGRAM-ID Identifier/Register/Function Defn Where Defined References", &a_1}
 
static const cob_field c_181 = {5, (cob_u8_ptr)"eject", &a_1}
 
static const cob_field c_182 = {5, (cob_u8_ptr)"skip1", &a_1}
 
static const cob_field c_183 = {5, (cob_u8_ptr)"skip2", &a_1}
 
static const cob_field c_184 = {5, (cob_u8_ptr)"skip3", &a_1}
 
static const cob_field c_185 = {14, (cob_u8_ptr)"Source Listing", &a_1}
 
static const cob_field c_186 = {16, (cob_u8_ptr)"Line Statement", &a_1}
 
static const cob_field c_187 = {16, (cob_u8_ptr)"F-Sort-Work-FILE", &a_1}
 
static cob_field cob_all_space = {1, (cob_u8_ptr)" ", &cob_all_attr}
 
static cob_field cob_all_zero = {1, (cob_u8_ptr)"0", &cob_all_attr}
 
static const char st_1 [] = "FileStat-Msgs.cpy"
 
static const char st_2 [] = "000-File-Error"
 
static const char st_3 [] = "EVALUATE"
 
static const char st_4 [] = "MOVE"
 
static const char st_5 [] = "GCic.cbl"
 
static const char st_6 [] = "IF"
 
static const char st_7 [] = "DISPLAY"
 
static const char st_8 [] = "GOBACK"
 
static const char st_9 [] = "000-Main"
 
static const char st_10 [] = "PERFORM"
 
static const char st_11 [] = "SET"
 
static const char st_12 [] = "100-Initialization"
 
static const char st_13 [] = "INSPECT"
 
static const char st_14 [] = "ACCEPT"
 
static const char st_15 [] = "ADD"
 
static const char st_16 [] = "UNSTRING"
 
static const char st_17 [] = "SUBTRACT"
 
static const char st_18 [] = "CALL"
 
static const char st_19 [] = "200-Let-User-Set-Switches"
 
static const char st_20 [] = "210-Run-Compiler"
 
static const char st_21 [] = "STRING"
 
static const char st_22 [] = "OPEN"
 
static const char st_23 [] = "WRITE"
 
static const char st_24 [] = "CLOSE"
 
static const char st_25 [] = "220-Make-Listing"
 
static const char st_26 [] = "230-Run-Program"
 
static const char st_27 [] = "240-Find-LINKAGE-SECTION"
 
static const char st_28 [] = "READ"
 
static const char st_29 [] = "EXIT SECTION"
 
static const char st_30 [] = "250-Autoload-Listing"
 
static const char st_31 [] = "900-Terminate"
 
static const char st_32 [] = "STOP RUN"
 
static const char st_33 [] = "SORT"
 
static const char st_34 [] = "300-Tokenize-Source"
 
static const char st_35 [] = "EXIT PERFORM"
 
static const char st_36 [] = "RELEASE"
 
static const char st_37 [] = "310-Get-Token"
 
static const char st_38 [] = "SEARCH ALL"
 
static const char st_39 [] = "311-Control-Record"
 
static const char st_40 [] = "COMPUTE"
 
static const char st_41 [] = "312-Expanded-Src-Record"
 
static const char st_42 [] = "313-Check-For-Numeric-Token"
 
static const char st_43 [] = "320-IDENTIFICATION-DIVISION"
 
static const char st_44 [] = "330-ENVIRONMENT-DIVISION"
 
static const char st_45 [] = "340-DATA-DIVISION"
 
static const char st_46 [] = "350-PROCEDURE-DIVISION"
 
static const char st_47 [] = "351-ACCEPT"
 
static const char st_48 [] = "351-ADD"
 
static const char st_49 [] = "351-ALLOCATE"
 
static const char st_50 [] = "351-CALL"
 
static const char st_51 [] = "351-COMPUTE"
 
static const char st_52 [] = "351-DIVIDE"
 
static const char st_53 [] = "351-FREE"
 
static const char st_54 [] = "351-GENERATE"
 
static const char st_55 [] = "351-INITIALIZE"
 
static const char st_56 [] = "351-INITIATE"
 
static const char st_57 [] = "351-INSPECT"
 
static const char st_58 [] = "351-MOVE"
 
static const char st_59 [] = "351-MULTIPLY"
 
static const char st_60 [] = "351-PERFORM"
 
static const char st_61 [] = "351-SET"
 
static const char st_62 [] = "351-STRING"
 
static const char st_63 [] = "351-SUBTRACT"
 
static const char st_64 [] = "351-TERMINATE"
 
static const char st_65 [] = "351-TRANSFORM"
 
static const char st_66 [] = "351-UNSTRING"
 
static const char st_67 [] = "360-Release-Def"
 
static const char st_68 [] = "361-Release-Ref"
 
static const char st_69 [] = "362-Release-Upd"
 
static const char st_70 [] = "363-Set-Upd"
 
static const char st_71 [] = "364-Set-Ref"
 
static const char st_72 [] = "365-Release-Arg"
 
static const char st_73 [] = "366-Set-Arg"
 
static const char st_74 [] = "400-Produce-Xref-Listing"
 
static const char st_75 [] = "RETURN"
 
static const char st_76 [] = "EXIT PERFORM CYCLE"
 
static const char st_77 [] = "410-Generate-Report-Line"
 
static const char st_78 [] = "420-Generate-Xref-Footer"
 
static const char st_79 [] = "500-Produce-Source-Listing"
 
static const char st_80 [] = "510-Control-Record"
 
static const char st_81 [] = "520-Expanded-Src-Record"
 
static const char st_82 [] = "CONTINUE"
 
static const char st_83 [] = "530-Generate-Source-Line"
 

Function Documentation

static COB_INLINE COB_A_INLINE int cob_cmp_s32 ( const void *  p,
const cob_s64_t  n 
)
static

Definition at line 354 of file GCic.c.h.

References __unaligned.

355 {
356  int val;
357  val = *(const int __unaligned *)p;
358  return (val < n) ? -1 : (val > n);
359 }
__unaligned
#define __unaligned
Definition: common.h:487
static COB_INLINE COB_A_INLINE int cob_cmp_s8 ( const void *  p,
const cob_s64_t  n 
)
static

Definition at line 348 of file GCic.c.h.

349 {
350  return (*(const signed char *)p < n) ? -1 : (*(const signed char *)p > n);
351 }
static int COB_NOINLINE cob_get_numdisp ( const void *  data,
const size_t  size 
)
static

Definition at line 333 of file GCic.c.h.

334 {
335  const unsigned char *p;
336  size_t n;
337  int retval;
338  p = (const unsigned char *)data;
339  retval = 0;
340  for (n = 0; n < size; ++n, ++p) {
341  retval *= 10;
342  retval += (*p & 0x0F);
343  }
344  return retval;
345 }
static void COB_NOINLINE cob_set_screen ( cob_screen *  s,
cob_screen *  next,
cob_screen *  prev,
cob_screen *  child,
cob_screen *  parent,
cob_field *  field,
cob_field *  value,
cob_field *  line,
cob_field *  column,
cob_field *  foreg,
cob_field *  backg,
cob_field *  prompt,
const int  type,
const int  occurs,
const int  attr 
)
static

Definition at line 309 of file GCic.c.h.

References __cob_screen::attr, __cob_screen::backg, __cob_screen::child, __cob_screen::column, __cob_screen::field, __cob_screen::foreg, line, __cob_screen::line, __cob_screen::next, __cob_screen::occurs, __cob_screen::parent, __cob_screen::prev, __cob_screen::prompt, __cob_screen::type, value, and __cob_screen::value.

Referenced by GCic_().

315 {
316  s->next = next;
317  s->prev = prev;
318  s->child = child;
319  s->parent = parent;
320  s->field = field;
321  s->value = value;
322  s->line = line;
323  s->column = column;
324  s->foreg = foreg;
325  s->backg = backg;
326  s->prompt = prompt;
327  s->type = type;
328  s->occurs = occurs;
329  s->attr = attr;
330 }
__cob_screen::column
cob_field * column
Definition: common.h:1035
__cob_screen::next
struct __cob_screen * next
Definition: common.h:1028
__cob_screen::occurs
int occurs
Definition: common.h:1040
__cob_screen::foreg
cob_field * foreg
Definition: common.h:1036
__cob_screen::prev
struct __cob_screen * prev
Definition: common.h:1029
value
strict implicit external value
Definition: warning.def:54
__cob_screen::backg
cob_field * backg
Definition: common.h:1037
__cob_screen::prompt
cob_field * prompt
Definition: common.h:1038
__cob_screen::value
cob_field * value
Definition: common.h:1033
__cob_screen::field
cob_field * field
Definition: common.h:1032
__cob_screen::child
struct __cob_screen * child
Definition: common.h:1030
__cob_screen::type
int type
Definition: common.h:1039
line
if fold fold static computed alternate extra correct stack on syntax debugging line
Definition: flag.def:90
__cob_screen::parent
struct __cob_screen * parent
Definition: common.h:1031
__cob_screen::line
cob_field * line
Definition: common.h:1034
__cob_screen::attr
int attr
Definition: common.h:1041

Here is the caller graph for this function:

Variable Documentation

const cob_field_attr a_1 = {0x21, 0, 0, 0x0000, NULL}
static

Definition at line 14 of file GCic.c.h.

const cob_field_attr a_10 = {0x24, 8, 0, 0x0000, "9\004\000\000\000/\001\000\000\0009\002\000\000\000/\001\000\000\0009\002\000\000\000"}
static

Definition at line 23 of file GCic.c.h.

const cob_field_attr a_11 = {0x24, 6, 0, 0x0000, "Z\005\000\000\0009\001\000\000\000"}
static

Definition at line 24 of file GCic.c.h.

const cob_field_attr a_12 = {0x24, 4, 0, 0x0000, "Z\003\000\000\0009\001\000\000\000"}
static

Definition at line 25 of file GCic.c.h.

const cob_field_attr a_2 = {0x01, 0, 0, 0x0000, NULL}
static

Definition at line 15 of file GCic.c.h.

const cob_field_attr a_3 = {0x23, 12, 0, 0x0000, "X\004\000\000\000/\001\000\000\000X\002\000\000\000/\001\000\000\000X\002\000\000\000B\001\000\000\000X\002\000\000\000/\001\000\000\000X\002\000\000\000"}
static

Definition at line 16 of file GCic.c.h.

const cob_field_attr a_4 = {0x11, 9, 0, 0x0041, NULL}
static

Definition at line 17 of file GCic.c.h.

const cob_field_attr a_5 = {0x10, 1, 0, 0x0000, NULL}
static

Definition at line 18 of file GCic.c.h.

const cob_field_attr a_6 = {0x10, 4, 0, 0x0000, NULL}
static

Definition at line 19 of file GCic.c.h.

const cob_field_attr a_7 = {0x10, 2, 0, 0x0000, NULL}
static

Definition at line 20 of file GCic.c.h.

const cob_field_attr a_8 = {0x10, 6, 0, 0x0000, NULL}
static

Definition at line 21 of file GCic.c.h.

const cob_field_attr a_9 = {0x10, 8, 0, 0x0000, NULL}
static

Definition at line 22 of file GCic.c.h.

const cob_field c_1 = {17, (cob_u8_ptr)"File not found: \"", &a_1}
static

Definition at line 31 of file GCic.c.h.

const cob_field c_10 = {1, (cob_u8_ptr)"0", &a_1}
static

Definition at line 40 of file GCic.c.h.

const cob_field c_100 = {2, (cob_u8_ptr)"35", &a_7}
static

Definition at line 130 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_101 = {2, (cob_u8_ptr)"38", &a_7}
static

Definition at line 131 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_102 = {2, (cob_u8_ptr)"39", &a_7}
static

Definition at line 132 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_103 = {2, (cob_u8_ptr)"69", &a_7}
static

Definition at line 133 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_104 = {9, (cob_u8_ptr)"GCic for ", &a_1}
static

Definition at line 134 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_105 = {45, (cob_u8_ptr)" Copyright (C) 2009-2014, Gary L. Cutler, GPL", &a_1}
static

Definition at line 135 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_106 = {12, (cob_u8_ptr)"GCXREF_LINES", &a_1}
static

Definition at line 136 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_107 = {17, (cob_u8_ptr)"GCXREF_LINES_PORT", &a_1}
static

Definition at line 137 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_108 = {1, (cob_u8_ptr)"\\", &a_1}
static

Definition at line 138 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_109 = {5, (cob_u8_ptr)"Right", &a_1}
static

Definition at line 139 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_11 = {1, (cob_u8_ptr)">", &a_1}
static

Definition at line 41 of file GCic.c.h.

const cob_field c_110 = {1, (cob_u8_ptr)".", &a_1}
static

Definition at line 140 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_111 = {6, (cob_u8_ptr)"EQUALS", &a_1}
static

Definition at line 141 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_112 = {2, (cob_u8_ptr)". ", &a_1}
static

Definition at line 142 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_113 = {2, (cob_u8_ptr)"IS", &a_1}
static

Definition at line 143 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_114 = {1, (cob_u8_ptr)"=", &a_1}
static

Definition at line 144 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_115 = {1, (cob_u8_ptr)"(", &a_1}
static

Definition at line 145 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_116 = {1, (cob_u8_ptr)")", &a_1}
static

Definition at line 146 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_117 = {1, (cob_u8_ptr)"&", &a_1}
static

Definition at line 147 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_118 = {1, (cob_u8_ptr)";", &a_1}
static

Definition at line 148 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_119 = {1, (cob_u8_ptr)",", &a_1}
static

Definition at line 149 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_12 = {1, (cob_u8_ptr)"1", &a_1}
static

Definition at line 42 of file GCic.c.h.

const cob_field c_120 = {1, (cob_u8_ptr)"<", &a_1}
static

Definition at line 150 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_121 = {5, (cob_u8_ptr)"EQUAL", &a_1}
static

Definition at line 151 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_122 = {7, (cob_u8_ptr)"LEVEL #", &a_1}
static

Definition at line 152 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_123 = {10, (cob_u8_ptr)"0123456789", &a_1}
static

Definition at line 153 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_124 = {1, (cob_u8_ptr)"e", &a_1}
static

Definition at line 154 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_125 = {1, (cob_u8_ptr)"E", &a_1}
static

Definition at line 155 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_126 = {8, (cob_u8_ptr)"DIVISION", &a_1}
static

Definition at line 156 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_127 = {10, (cob_u8_ptr)"PROGRAM-ID", &a_1}
static

Definition at line 157 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_128 = {11, (cob_u8_ptr)"FUNCTION-ID", &a_1}
static

Definition at line 158 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_129 = {7, (cob_u8_ptr)"SECTION", &a_1}
static

Definition at line 159 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_13 = {1, (cob_u8_ptr)"2", &a_1}
static

Definition at line 43 of file GCic.c.h.

const cob_field c_130 = {8, (cob_u8_ptr)"FUNCTION", &a_1}
static

Definition at line 160 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_131 = {3, (cob_u8_ptr)"PIC", &a_1}
static

Definition at line 161 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_132 = {7, (cob_u8_ptr)"PICTURE", &a_1}
static

Definition at line 162 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_133 = {2, (cob_u8_ptr)"FD", &a_1}
static

Definition at line 163 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_134 = {2, (cob_u8_ptr)"RD", &a_1}
static

Definition at line 164 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_135 = {2, (cob_u8_ptr)"SD", &a_1}
static

Definition at line 165 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_136 = {7, (cob_u8_ptr)"INDEXED", &a_1}
static

Definition at line 166 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_137 = {5, (cob_u8_ptr)"USING", &a_1}
static

Definition at line 167 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_138 = {4, (cob_u8_ptr)"INTO", &a_1}
static

Definition at line 168 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_139 = {3, (cob_u8_ptr)"SUM", &a_1}
static

Definition at line 169 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_14 = {33, (cob_u8_ptr)"No program filename was specified", &a_1}
static

Definition at line 44 of file GCic.c.h.

const cob_field c_140 = {9, (cob_u8_ptr)"PROCEDURE", &a_1}
static

Definition at line 170 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_141 = {7, (cob_u8_ptr)"PROGRAM", &a_1}
static

Definition at line 171 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_142 = {3, (cob_u8_ptr)"END", &a_1}
static

Definition at line 172 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_143 = {6, (cob_u8_ptr)"ACCEPT", &a_1}
static

Definition at line 173 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_144 = {3, (cob_u8_ptr)"ADD", &a_1}
static

Definition at line 174 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_145 = {8, (cob_u8_ptr)"ALLOCATE", &a_1}
static

Definition at line 175 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_146 = {4, (cob_u8_ptr)"CALL", &a_1}
static

Definition at line 176 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_147 = {7, (cob_u8_ptr)"COMPUTE", &a_1}
static

Definition at line 177 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_148 = {6, (cob_u8_ptr)"DIVIDE", &a_1}
static

Definition at line 178 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_149 = {4, (cob_u8_ptr)"FREE", &a_1}
static

Definition at line 179 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_15 = {1, (cob_u8_ptr)"*", &a_1}
static

Definition at line 45 of file GCic.c.h.

const cob_field c_150 = {8, (cob_u8_ptr)"GENERATE", &a_1}
static

Definition at line 180 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_151 = {10, (cob_u8_ptr)"INITIALIZE", &a_1}
static

Definition at line 181 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_152 = {8, (cob_u8_ptr)"INITIATE", &a_1}
static

Definition at line 182 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_153 = {7, (cob_u8_ptr)"INSPECT", &a_1}
static

Definition at line 183 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_154 = {4, (cob_u8_ptr)"MOVE", &a_1}
static

Definition at line 184 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_155 = {8, (cob_u8_ptr)"MULTIPLY", &a_1}
static

Definition at line 185 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_156 = {7, (cob_u8_ptr)"PERFORM", &a_1}
static

Definition at line 186 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_157 = {3, (cob_u8_ptr)"SET", &a_1}
static

Definition at line 187 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_158 = {6, (cob_u8_ptr)"STRING", &a_1}
static

Definition at line 188 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_159 = {8, (cob_u8_ptr)"SUBTRACT", &a_1}
static

Definition at line 189 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_16 = {2, (cob_u8_ptr)"CD", &a_1}
static

Definition at line 46 of file GCic.c.h.

const cob_field c_160 = {9, (cob_u8_ptr)"TERMINATE", &a_1}
static

Definition at line 190 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_161 = {9, (cob_u8_ptr)"TRANSFORM", &a_1}
static

Definition at line 191 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_162 = {8, (cob_u8_ptr)"UNSTRING", &a_1}
static

Definition at line 192 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_163 = {6, (cob_u8_ptr)"GIVING", &a_1}
static

Definition at line 193 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_164 = {2, (cob_u8_ptr)"TO", &a_1}
static

Definition at line 194 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_165 = {9, (cob_u8_ptr)"RETURNING", &a_1}
static

Definition at line 195 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_166 = {9, (cob_u8_ptr)"REMAINDER", &a_1}
static

Definition at line 196 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_167 = {9, (cob_u8_ptr)"REPLACING", &a_1}
static

Definition at line 197 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_168 = {8, (cob_u8_ptr)"TALLYING", &a_1}
static

Definition at line 198 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_169 = {10, (cob_u8_ptr)"CONVERTING", &a_1}
static

Definition at line 199 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_17 = {10, (cob_u8_ptr)" GCic for ", &a_1}
static

Definition at line 47 of file GCic.c.h.

const cob_field c_170 = {2, (cob_u8_ptr)"BY", &a_1}
static

Definition at line 200 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_171 = {7, (cob_u8_ptr)"VARYING", &a_1}
static

Definition at line 201 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_172 = {5, (cob_u8_ptr)"AFTER", &a_1}
static

Definition at line 202 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_173 = {7, (cob_u8_ptr)"POINTER", &a_1}
static

Definition at line 203 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_174 = {4, (cob_u8_ptr)"FROM", &a_1}
static

Definition at line 204 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_175 = {9, (cob_u8_ptr)"DELIMITER", &a_1}
static

Definition at line 205 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_176 = {5, (cob_u8_ptr)"COUNT", &a_1}
static

Definition at line 206 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_177 = {6, (cob_u8_ptr)"000000", &a_1}
static

Definition at line 207 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_178 = {4, (cob_u8_ptr)"Left", &a_1}
static

Definition at line 208 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_179 = {23, (cob_u8_ptr)"Cross-Reference Listing", &a_1}
static

Definition at line 209 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_18 = {34, (cob_u8_ptr)" Copyright (C) 2009-2014, Gary L. ", &a_1}
static

Definition at line 48 of file GCic.c.h.

const cob_field c_180 = {82, (cob_u8_ptr)"PROGRAM-ID Identifier/Register/Function Defn Where Defined References", &a_1}
static

Definition at line 210 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_181 = {5, (cob_u8_ptr)"eject", &a_1}
static

Definition at line 211 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_182 = {5, (cob_u8_ptr)"skip1", &a_1}
static

Definition at line 212 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_183 = {5, (cob_u8_ptr)"skip2", &a_1}
static

Definition at line 213 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_184 = {5, (cob_u8_ptr)"skip3", &a_1}
static

Definition at line 214 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_185 = {14, (cob_u8_ptr)"Source Listing", &a_1}
static

Definition at line 215 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_186 = {16, (cob_u8_ptr)"Line Statement", &a_1}
static

Definition at line 216 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_187 = {16, (cob_u8_ptr)"F-Sort-Work-FILE", &a_1}
static

Definition at line 217 of file GCic.c.h.

Referenced by LISTING_().

const cob_field c_19 = {11, (cob_u8_ptr)"Cutler, GPL", &a_1}
static

Definition at line 49 of file GCic.c.h.

const cob_field c_2 = {1, (cob_u8_ptr)"\"", &a_1}
static

Definition at line 32 of file GCic.c.h.

const cob_field c_20 = {11, (cob_u8_ptr)"Listing Off", &a_1}
static

Definition at line 50 of file GCic.c.h.

const cob_field c_21 = {30, (cob_u8_ptr)"An unsupported key was pressed", &a_1}
static

Definition at line 51 of file GCic.c.h.

const cob_field c_22 = {13, (cob_u8_ptr)"cobc -v -std=", &a_1}
static

Definition at line 52 of file GCic.c.h.

const cob_field c_23 = {1, (cob_u8_ptr)" ", &a_1}
static

Definition at line 53 of file GCic.c.h.

const cob_field c_24 = {3, (cob_u8_ptr)"-m ", &a_1}
static

Definition at line 54 of file GCic.c.h.

const cob_field c_25 = {3, (cob_u8_ptr)"-x ", &a_1}
static

Definition at line 55 of file GCic.c.h.

const cob_field c_26 = {17, (cob_u8_ptr)"-fdebugging-line ", &a_1}
static

Definition at line 56 of file GCic.c.h.

const cob_field c_27 = {10, (cob_u8_ptr)"-fnotrunc ", &a_1}
static

Definition at line 57 of file GCic.c.h.

const cob_field c_28 = {11, (cob_u8_ptr)"-ftraceall ", &a_1}
static

Definition at line 58 of file GCic.c.h.

const cob_field c_29 = {16, (cob_u8_ptr)"-fintrinsic=all ", &a_1}
static

Definition at line 59 of file GCic.c.h.

const cob_field c_3 = {23, (cob_u8_ptr)"Error accessing file: \"", &a_1}
static

Definition at line 33 of file GCic.c.h.

const cob_field c_30 = {6, (cob_u8_ptr)"-Wall ", &a_1}
static

Definition at line 60 of file GCic.c.h.

const cob_field c_31 = {6, (cob_u8_ptr)"-free ", &a_1}
static

Definition at line 61 of file GCic.c.h.

const cob_field c_32 = {7, (cob_u8_ptr)"-fixed ", &a_1}
static

Definition at line 62 of file GCic.c.h.

const cob_field c_33 = {11, (cob_u8_ptr)"-save-temps", &a_1}
static

Definition at line 63 of file GCic.c.h.

const cob_field c_34 = {12, (cob_u8_ptr)"-save-temps ", &a_1}
static

Definition at line 64 of file GCic.c.h.

const cob_field c_35 = {6, (cob_u8_ptr)".gclst", &a_1}
static

Definition at line 65 of file GCic.c.h.

const cob_field c_36 = {13, (cob_u8_ptr)" Compiling...", &a_1}
static

Definition at line 66 of file GCic.c.h.

const cob_field c_37 = {2, (cob_u8_ptr)" >", &a_1}
static

Definition at line 67 of file GCic.c.h.

const cob_field c_38 = {5, (cob_u8_ptr)" 2>&1", &a_1}
static

Definition at line 68 of file GCic.c.h.

const cob_field c_39 = {27, (cob_u8_ptr)" Compilation Was Successful", &a_1}
static

Definition at line 69 of file GCic.c.h.

const cob_field c_4 = {21, (cob_u8_ptr)"COB_SCREEN_EXCEPTIONS", &a_1}
static

Definition at line 34 of file GCic.c.h.

const cob_field c_40 = {9, (cob_u8_ptr)"GNU COBOL", &a_1}
static

Definition at line 70 of file GCic.c.h.

const cob_field c_41 = {26, (cob_u8_ptr)" Compilation Failed - See ", &a_1}
static

Definition at line 71 of file GCic.c.h.

const cob_field c_42 = {44, (cob_u8_ptr)"GNU COBOL Compilation HAS FAILED - See Above", &a_1}
static

Definition at line 72 of file GCic.c.h.

const cob_field c_43 = {22, (cob_u8_ptr)" Generating listing...", &a_1}
static

Definition at line 73 of file GCic.c.h.

const cob_field c_44 = {32, (cob_u8_ptr)" LISTING module is not available", &a_1}
static

Definition at line 74 of file GCic.c.h.

const cob_field c_45 = {31, (cob_u8_ptr)" Source+Xref listing generated ", &a_1}
static

Definition at line 75 of file GCic.c.h.

const cob_field c_46 = {51, (cob_u8_ptr)" Preparing to run program ... press ENTER to close ", &a_1}
static

Definition at line 76 of file GCic.c.h.

const cob_field c_47 = {8, (cob_u8_ptr)"cobcrun ", &a_1}
static

Definition at line 77 of file GCic.c.h.

const cob_field c_48 = {10, (cob_u8_ptr)"/cygdrive/", &a_1}
static

Definition at line 78 of file GCic.c.h.

const cob_field c_49 = {2, (cob_u8_ptr)"./", &a_1}
static

Definition at line 79 of file GCic.c.h.

const cob_field c_5 = {1, (cob_u8_ptr)"Y", &a_1}
static

Definition at line 35 of file GCic.c.h.

const cob_field c_50 = {3, (cob_u8_ptr)".so", &a_1}
static

Definition at line 80 of file GCic.c.h.

const cob_field c_51 = {4, (cob_u8_ptr)"0101", &a_6}
static

Definition at line 81 of file GCic.c.h.

const cob_field c_52 = {7, (cob_u8_ptr)"cmd /c ", &a_1}
static

Definition at line 82 of file GCic.c.h.

const cob_field c_53 = {8, (cob_u8_ptr)"open -t ", &a_1}
static

Definition at line 83 of file GCic.c.h.

const cob_field c_54 = {4, (cob_u8_ptr)"del ", &a_1}
static

Definition at line 84 of file GCic.c.h.

const cob_field c_55 = {3, (cob_u8_ptr)"rm ", &a_1}
static

Definition at line 85 of file GCic.c.h.

const cob_field c_56 = {2, (cob_u8_ptr)".c", &a_1}
static

Definition at line 86 of file GCic.c.h.

const cob_field c_57 = {4, (cob_u8_ptr)".c.h", &a_1}
static

Definition at line 87 of file GCic.c.h.

const cob_field c_58 = {7, (cob_u8_ptr)".c.l*.h", &a_1}
static

Definition at line 88 of file GCic.c.h.

const cob_field c_59 = {2, (cob_u8_ptr)".i", &a_1}
static

Definition at line 89 of file GCic.c.h.

const cob_field c_6 = {14, (cob_u8_ptr)"COB_SCREEN_ESC", &a_1}
static

Definition at line 36 of file GCic.c.h.

const cob_field c_60 = {2, (cob_u8_ptr)".o", &a_1}
static

Definition at line 90 of file GCic.c.h.

const cob_field c_61 = {1, (cob_u8_ptr)"1", &a_5}
static

Definition at line 91 of file GCic.c.h.

const cob_field c_62 = {1, (cob_u8_ptr)"7", &a_5}
static

Definition at line 92 of file GCic.c.h.

const cob_field c_63 = {1, (cob_u8_ptr)"0", &a_5}
static

Definition at line 93 of file GCic.c.h.

const cob_field c_64 = {1, (cob_u8_ptr)"2", &a_5}
static

Definition at line 94 of file GCic.c.h.

const cob_field c_65 = {2, (cob_u8_ptr)"02", &a_7}
static

Definition at line 95 of file GCic.c.h.

const cob_field c_66 = {2, (cob_u8_ptr)"01", &a_7}
static

Definition at line 96 of file GCic.c.h.

const cob_field c_67 = {2, (cob_u8_ptr)"80", &a_7}
static

Definition at line 97 of file GCic.c.h.

const cob_field c_68 = {2, (cob_u8_ptr)"03", &a_7}
static

Definition at line 98 of file GCic.c.h.

const cob_field c_69 = {2, (cob_u8_ptr)"04", &a_7}
static

Definition at line 99 of file GCic.c.h.

const cob_field c_7 = {21, (cob_u8_ptr)"2016041704465400-0400", &a_1}
static

Definition at line 37 of file GCic.c.h.

const cob_field c_70 = {2, (cob_u8_ptr)"05", &a_7}
static

Definition at line 100 of file GCic.c.h.

const cob_field c_71 = {2, (cob_u8_ptr)"07", &a_7}
static

Definition at line 101 of file GCic.c.h.

const cob_field c_72 = {2, (cob_u8_ptr)"67", &a_7}
static

Definition at line 102 of file GCic.c.h.

const cob_field c_73 = {2, (cob_u8_ptr)"68", &a_7}
static

Definition at line 103 of file GCic.c.h.

const cob_field c_74 = {2, (cob_u8_ptr)"08", &a_7}
static

Definition at line 104 of file GCic.c.h.

const cob_field c_75 = {2, (cob_u8_ptr)"09", &a_7}
static

Definition at line 105 of file GCic.c.h.

const cob_field c_76 = {2, (cob_u8_ptr)"10", &a_7}
static

Definition at line 106 of file GCic.c.h.

const cob_field c_77 = {2, (cob_u8_ptr)"11", &a_7}
static

Definition at line 107 of file GCic.c.h.

const cob_field c_78 = {2, (cob_u8_ptr)"12", &a_7}
static

Definition at line 108 of file GCic.c.h.

const cob_field c_79 = {2, (cob_u8_ptr)"13", &a_7}
static

Definition at line 109 of file GCic.c.h.

const cob_field c_8 = {1, (cob_u8_ptr)":", &a_1}
static

Definition at line 38 of file GCic.c.h.

const cob_field c_80 = {2, (cob_u8_ptr)"15", &a_7}
static

Definition at line 110 of file GCic.c.h.

const cob_field c_81 = {2, (cob_u8_ptr)"16", &a_7}
static

Definition at line 111 of file GCic.c.h.

const cob_field c_82 = {2, (cob_u8_ptr)"17", &a_7}
static

Definition at line 112 of file GCic.c.h.

const cob_field c_83 = {2, (cob_u8_ptr)"18", &a_7}
static

Definition at line 113 of file GCic.c.h.

const cob_field c_84 = {2, (cob_u8_ptr)"20", &a_7}
static

Definition at line 114 of file GCic.c.h.

const cob_field c_85 = {2, (cob_u8_ptr)"21", &a_7}
static

Definition at line 115 of file GCic.c.h.

const cob_field c_86 = {2, (cob_u8_ptr)"22", &a_7}
static

Definition at line 116 of file GCic.c.h.

const cob_field c_87 = {2, (cob_u8_ptr)"23", &a_7}
static

Definition at line 117 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_88 = {2, (cob_u8_ptr)"24", &a_7}
static

Definition at line 118 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_89 = {1, (cob_u8_ptr)"4", &a_5}
static

Definition at line 119 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_9 = {1, (cob_u8_ptr)"/", &a_1}
static

Definition at line 39 of file GCic.c.h.

const cob_field c_90 = {1, (cob_u8_ptr)"3", &a_5}
static

Definition at line 120 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_91 = {2, (cob_u8_ptr)"06", &a_7}
static

Definition at line 121 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_92 = {2, (cob_u8_ptr)"14", &a_7}
static

Definition at line 122 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_93 = {2, (cob_u8_ptr)"19", &a_7}
static

Definition at line 123 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_94 = {2, (cob_u8_ptr)"26", &a_7}
static

Definition at line 124 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_95 = {2, (cob_u8_ptr)"45", &a_7}
static

Definition at line 125 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_96 = {2, (cob_u8_ptr)"50", &a_7}
static

Definition at line 126 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_97 = {2, (cob_u8_ptr)"70", &a_7}
static

Definition at line 127 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_98 = {2, (cob_u8_ptr)"62", &a_7}
static

Definition at line 128 of file GCic.c.h.

Referenced by GCic_().

const cob_field c_99 = {2, (cob_u8_ptr)"65", &a_7}
static

Definition at line 129 of file GCic.c.h.

Referenced by GCic_().

const cob_field_attr cob_all_attr = {0x22, 0, 0, 0, NULL}
static

Definition at line 27 of file GCic.c.h.

cob_field cob_all_space = {1, (cob_u8_ptr)" ", &cob_all_attr}
static

Definition at line 219 of file GCic.c.h.

cob_field cob_all_zero = {1, (cob_u8_ptr)"0", &cob_all_attr}
static

Definition at line 220 of file GCic.c.h.

const char* cob_module_path = NULL
static

Definition at line 10 of file GCic.c.h.

const char st_1[] = "FileStat-Msgs.cpy"
static

Definition at line 224 of file GCic.c.h.

const char st_10[] = "PERFORM"
static

Definition at line 233 of file GCic.c.h.

const char st_11[] = "SET"
static

Definition at line 234 of file GCic.c.h.

const char st_12[] = "100-Initialization"
static

Definition at line 235 of file GCic.c.h.

const char st_13[] = "INSPECT"
static

Definition at line 236 of file GCic.c.h.

const char st_14[] = "ACCEPT"
static

Definition at line 237 of file GCic.c.h.

const char st_15[] = "ADD"
static

Definition at line 238 of file GCic.c.h.

const char st_16[] = "UNSTRING"
static

Definition at line 239 of file GCic.c.h.

const char st_17[] = "SUBTRACT"
static

Definition at line 240 of file GCic.c.h.

const char st_18[] = "CALL"
static

Definition at line 241 of file GCic.c.h.

const char st_19[] = "200-Let-User-Set-Switches"
static

Definition at line 242 of file GCic.c.h.

const char st_2[] = "000-File-Error"
static

Definition at line 225 of file GCic.c.h.

const char st_20[] = "210-Run-Compiler"
static

Definition at line 243 of file GCic.c.h.

const char st_21[] = "STRING"
static

Definition at line 244 of file GCic.c.h.

const char st_22[] = "OPEN"
static

Definition at line 245 of file GCic.c.h.

const char st_23[] = "WRITE"
static

Definition at line 246 of file GCic.c.h.

const char st_24[] = "CLOSE"
static

Definition at line 247 of file GCic.c.h.

const char st_25[] = "220-Make-Listing"
static

Definition at line 248 of file GCic.c.h.

const char st_26[] = "230-Run-Program"
static

Definition at line 249 of file GCic.c.h.

const char st_27[] = "240-Find-LINKAGE-SECTION"
static

Definition at line 250 of file GCic.c.h.

const char st_28[] = "READ"
static

Definition at line 251 of file GCic.c.h.

const char st_29[] = "EXIT SECTION"
static

Definition at line 252 of file GCic.c.h.

const char st_3[] = "EVALUATE"
static

Definition at line 226 of file GCic.c.h.

const char st_30[] = "250-Autoload-Listing"
static

Definition at line 253 of file GCic.c.h.

const char st_31[] = "900-Terminate"
static

Definition at line 254 of file GCic.c.h.

const char st_32[] = "STOP RUN"
static

Definition at line 255 of file GCic.c.h.

const char st_33[] = "SORT"
static

Definition at line 256 of file GCic.c.h.

const char st_34[] = "300-Tokenize-Source"
static

Definition at line 257 of file GCic.c.h.

const char st_35[] = "EXIT PERFORM"
static

Definition at line 258 of file GCic.c.h.

const char st_36[] = "RELEASE"
static

Definition at line 259 of file GCic.c.h.

const char st_37[] = "310-Get-Token"
static

Definition at line 260 of file GCic.c.h.

const char st_38[] = "SEARCH ALL"
static

Definition at line 261 of file GCic.c.h.

const char st_39[] = "311-Control-Record"
static

Definition at line 262 of file GCic.c.h.

const char st_4[] = "MOVE"
static

Definition at line 227 of file GCic.c.h.

const char st_40[] = "COMPUTE"
static

Definition at line 263 of file GCic.c.h.

const char st_41[] = "312-Expanded-Src-Record"
static

Definition at line 264 of file GCic.c.h.

const char st_42[] = "313-Check-For-Numeric-Token"
static

Definition at line 265 of file GCic.c.h.

const char st_43[] = "320-IDENTIFICATION-DIVISION"
static

Definition at line 266 of file GCic.c.h.

const char st_44[] = "330-ENVIRONMENT-DIVISION"
static

Definition at line 267 of file GCic.c.h.

const char st_45[] = "340-DATA-DIVISION"
static

Definition at line 268 of file GCic.c.h.

const char st_46[] = "350-PROCEDURE-DIVISION"
static

Definition at line 269 of file GCic.c.h.

const char st_47[] = "351-ACCEPT"
static

Definition at line 270 of file GCic.c.h.

const char st_48[] = "351-ADD"
static

Definition at line 271 of file GCic.c.h.

const char st_49[] = "351-ALLOCATE"
static

Definition at line 272 of file GCic.c.h.

const char st_5[] = "GCic.cbl"
static

Definition at line 228 of file GCic.c.h.

const char st_50[] = "351-CALL"
static

Definition at line 273 of file GCic.c.h.

const char st_51[] = "351-COMPUTE"
static

Definition at line 274 of file GCic.c.h.

const char st_52[] = "351-DIVIDE"
static

Definition at line 275 of file GCic.c.h.

const char st_53[] = "351-FREE"
static

Definition at line 276 of file GCic.c.h.

const char st_54[] = "351-GENERATE"
static

Definition at line 277 of file GCic.c.h.

const char st_55[] = "351-INITIALIZE"
static

Definition at line 278 of file GCic.c.h.

const char st_56[] = "351-INITIATE"
static

Definition at line 279 of file GCic.c.h.

const char st_57[] = "351-INSPECT"
static

Definition at line 280 of file GCic.c.h.

const char st_58[] = "351-MOVE"
static

Definition at line 281 of file GCic.c.h.

const char st_59[] = "351-MULTIPLY"
static

Definition at line 282 of file GCic.c.h.

const char st_6[] = "IF"
static

Definition at line 229 of file GCic.c.h.

const char st_60[] = "351-PERFORM"
static

Definition at line 283 of file GCic.c.h.

const char st_61[] = "351-SET"
static

Definition at line 284 of file GCic.c.h.

const char st_62[] = "351-STRING"
static

Definition at line 285 of file GCic.c.h.

const char st_63[] = "351-SUBTRACT"
static

Definition at line 286 of file GCic.c.h.

const char st_64[] = "351-TERMINATE"
static

Definition at line 287 of file GCic.c.h.

const char st_65[] = "351-TRANSFORM"
static

Definition at line 288 of file GCic.c.h.

const char st_66[] = "351-UNSTRING"
static

Definition at line 289 of file GCic.c.h.

const char st_67[] = "360-Release-Def"
static

Definition at line 290 of file GCic.c.h.

const char st_68[] = "361-Release-Ref"
static

Definition at line 291 of file GCic.c.h.

const char st_69[] = "362-Release-Upd"
static

Definition at line 292 of file GCic.c.h.

const char st_7[] = "DISPLAY"
static

Definition at line 230 of file GCic.c.h.

const char st_70[] = "363-Set-Upd"
static

Definition at line 293 of file GCic.c.h.

const char st_71[] = "364-Set-Ref"
static

Definition at line 294 of file GCic.c.h.

const char st_72[] = "365-Release-Arg"
static

Definition at line 295 of file GCic.c.h.

const char st_73[] = "366-Set-Arg"
static

Definition at line 296 of file GCic.c.h.

const char st_74[] = "400-Produce-Xref-Listing"
static

Definition at line 297 of file GCic.c.h.

const char st_75[] = "RETURN"
static

Definition at line 298 of file GCic.c.h.

const char st_76[] = "EXIT PERFORM CYCLE"
static

Definition at line 299 of file GCic.c.h.

const char st_77[] = "410-Generate-Report-Line"
static

Definition at line 300 of file GCic.c.h.

const char st_78[] = "420-Generate-Xref-Footer"
static

Definition at line 301 of file GCic.c.h.

const char st_79[] = "500-Produce-Source-Listing"
static

Definition at line 302 of file GCic.c.h.

const char st_8[] = "GOBACK"
static

Definition at line 231 of file GCic.c.h.

const char st_80[] = "510-Control-Record"
static

Definition at line 303 of file GCic.c.h.

const char st_81[] = "520-Expanded-Src-Record"
static

Definition at line 304 of file GCic.c.h.

const char st_82[] = "CONTINUE"
static

Definition at line 305 of file GCic.c.h.

const char st_83[] = "530-Generate-Source-Line"
static

Definition at line 306 of file GCic.c.h.

const char st_9[] = "000-Main"
static

Definition at line 232 of file GCic.c.h.