GnuCOBOL  2.0
A free COBOL compiler
GCic.c.h
Go to the documentation of this file.
1 /* Generated by cobc 2.0.0 */
2 /* Generated from GCic.cbl */
3 /* Generated at Apr 17 2016 04:46:54 */
4 /* GnuCOBOL build date Apr 17 2016 04:44:31 */
5 /* GnuCOBOL package date Oct 25 2015 21:40:28 UTC */
6 /* Compile command cobc -x -g -v GCic.cbl */
7 
8 
9 /* Module path */
10 static const char *cob_module_path = NULL;
11 
12 /* Attributes */
13 
14 static const cob_field_attr a_1 = {0x21, 0, 0, 0x0000, NULL};
15 static const cob_field_attr a_2 = {0x01, 0, 0, 0x0000, NULL};
16 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"};
17 static const cob_field_attr a_4 = {0x11, 9, 0, 0x0041, NULL};
18 static const cob_field_attr a_5 = {0x10, 1, 0, 0x0000, NULL};
19 static const cob_field_attr a_6 = {0x10, 4, 0, 0x0000, NULL};
20 static const cob_field_attr a_7 = {0x10, 2, 0, 0x0000, NULL};
21 static const cob_field_attr a_8 = {0x10, 6, 0, 0x0000, NULL};
22 static const cob_field_attr a_9 = {0x10, 8, 0, 0x0000, NULL};
23 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"};
24 static const cob_field_attr a_11 = {0x24, 6, 0, 0x0000, "Z\005\000\000\0009\001\000\000\000"};
25 static const cob_field_attr a_12 = {0x24, 4, 0, 0x0000, "Z\003\000\000\0009\001\000\000\000"};
26 
27 static const cob_field_attr cob_all_attr = {0x22, 0, 0, 0, NULL};
28 
29 
30 /* Constants */
31 static const cob_field c_1 = {17, (cob_u8_ptr)"File not found: \"", &a_1};
32 static const cob_field c_2 = {1, (cob_u8_ptr)"\"", &a_1};
33 static const cob_field c_3 = {23, (cob_u8_ptr)"Error accessing file: \"", &a_1};
34 static const cob_field c_4 = {21, (cob_u8_ptr)"COB_SCREEN_EXCEPTIONS", &a_1};
35 static const cob_field c_5 = {1, (cob_u8_ptr)"Y", &a_1};
36 static const cob_field c_6 = {14, (cob_u8_ptr)"COB_SCREEN_ESC", &a_1};
37 static const cob_field c_7 = {21, (cob_u8_ptr)"2016041704465400-0400", &a_1};
38 static const cob_field c_8 = {1, (cob_u8_ptr)":", &a_1};
39 static const cob_field c_9 = {1, (cob_u8_ptr)"/", &a_1};
40 static const cob_field c_10 = {1, (cob_u8_ptr)"0", &a_1};
41 static const cob_field c_11 = {1, (cob_u8_ptr)">", &a_1};
42 static const cob_field c_12 = {1, (cob_u8_ptr)"1", &a_1};
43 static const cob_field c_13 = {1, (cob_u8_ptr)"2", &a_1};
44 static const cob_field c_14 = {33, (cob_u8_ptr)"No program filename was specified", &a_1};
45 static const cob_field c_15 = {1, (cob_u8_ptr)"*", &a_1};
46 static const cob_field c_16 = {2, (cob_u8_ptr)"CD", &a_1};
47 static const cob_field c_17 = {10, (cob_u8_ptr)" GCic for ", &a_1};
48 static const cob_field c_18 = {34, (cob_u8_ptr)" Copyright (C) 2009-2014, Gary L. ", &a_1};
49 static const cob_field c_19 = {11, (cob_u8_ptr)"Cutler, GPL", &a_1};
50 static const cob_field c_20 = {11, (cob_u8_ptr)"Listing Off", &a_1};
51 static const cob_field c_21 = {30, (cob_u8_ptr)"An unsupported key was pressed", &a_1};
52 static const cob_field c_22 = {13, (cob_u8_ptr)"cobc -v -std=", &a_1};
53 static const cob_field c_23 = {1, (cob_u8_ptr)" ", &a_1};
54 static const cob_field c_24 = {3, (cob_u8_ptr)"-m ", &a_1};
55 static const cob_field c_25 = {3, (cob_u8_ptr)"-x ", &a_1};
56 static const cob_field c_26 = {17, (cob_u8_ptr)"-fdebugging-line ", &a_1};
57 static const cob_field c_27 = {10, (cob_u8_ptr)"-fnotrunc ", &a_1};
58 static const cob_field c_28 = {11, (cob_u8_ptr)"-ftraceall ", &a_1};
59 static const cob_field c_29 = {16, (cob_u8_ptr)"-fintrinsic=all ", &a_1};
60 static const cob_field c_30 = {6, (cob_u8_ptr)"-Wall ", &a_1};
61 static const cob_field c_31 = {6, (cob_u8_ptr)"-free ", &a_1};
62 static const cob_field c_32 = {7, (cob_u8_ptr)"-fixed ", &a_1};
63 static const cob_field c_33 = {11, (cob_u8_ptr)"-save-temps", &a_1};
64 static const cob_field c_34 = {12, (cob_u8_ptr)"-save-temps ", &a_1};
65 static const cob_field c_35 = {6, (cob_u8_ptr)".gclst", &a_1};
66 static const cob_field c_36 = {13, (cob_u8_ptr)" Compiling...", &a_1};
67 static const cob_field c_37 = {2, (cob_u8_ptr)" >", &a_1};
68 static const cob_field c_38 = {5, (cob_u8_ptr)" 2>&1", &a_1};
69 static const cob_field c_39 = {27, (cob_u8_ptr)" Compilation Was Successful", &a_1};
70 static const cob_field c_40 = {9, (cob_u8_ptr)"GNU COBOL", &a_1};
71 static const cob_field c_41 = {26, (cob_u8_ptr)" Compilation Failed - See ", &a_1};
72 static const cob_field c_42 = {44, (cob_u8_ptr)"GNU COBOL Compilation HAS FAILED - See Above", &a_1};
73 static const cob_field c_43 = {22, (cob_u8_ptr)" Generating listing...", &a_1};
74 static const cob_field c_44 = {32, (cob_u8_ptr)" LISTING module is not available", &a_1};
75 static const cob_field c_45 = {31, (cob_u8_ptr)" Source+Xref listing generated ", &a_1};
76 static const cob_field c_46 = {51, (cob_u8_ptr)" Preparing to run program ... press ENTER to close ", &a_1};
77 static const cob_field c_47 = {8, (cob_u8_ptr)"cobcrun ", &a_1};
78 static const cob_field c_48 = {10, (cob_u8_ptr)"/cygdrive/", &a_1};
79 static const cob_field c_49 = {2, (cob_u8_ptr)"./", &a_1};
80 static const cob_field c_50 = {3, (cob_u8_ptr)".so", &a_1};
81 static const cob_field c_51 = {4, (cob_u8_ptr)"0101", &a_6};
82 static const cob_field c_52 = {7, (cob_u8_ptr)"cmd /c ", &a_1};
83 static const cob_field c_53 = {8, (cob_u8_ptr)"open -t ", &a_1};
84 static const cob_field c_54 = {4, (cob_u8_ptr)"del ", &a_1};
85 static const cob_field c_55 = {3, (cob_u8_ptr)"rm ", &a_1};
86 static const cob_field c_56 = {2, (cob_u8_ptr)".c", &a_1};
87 static const cob_field c_57 = {4, (cob_u8_ptr)".c.h", &a_1};
88 static const cob_field c_58 = {7, (cob_u8_ptr)".c.l*.h", &a_1};
89 static const cob_field c_59 = {2, (cob_u8_ptr)".i", &a_1};
90 static const cob_field c_60 = {2, (cob_u8_ptr)".o", &a_1};
91 static const cob_field c_61 = {1, (cob_u8_ptr)"1", &a_5};
92 static const cob_field c_62 = {1, (cob_u8_ptr)"7", &a_5};
93 static const cob_field c_63 = {1, (cob_u8_ptr)"0", &a_5};
94 static const cob_field c_64 = {1, (cob_u8_ptr)"2", &a_5};
95 static const cob_field c_65 = {2, (cob_u8_ptr)"02", &a_7};
96 static const cob_field c_66 = {2, (cob_u8_ptr)"01", &a_7};
97 static const cob_field c_67 = {2, (cob_u8_ptr)"80", &a_7};
98 static const cob_field c_68 = {2, (cob_u8_ptr)"03", &a_7};
99 static const cob_field c_69 = {2, (cob_u8_ptr)"04", &a_7};
100 static const cob_field c_70 = {2, (cob_u8_ptr)"05", &a_7};
101 static const cob_field c_71 = {2, (cob_u8_ptr)"07", &a_7};
102 static const cob_field c_72 = {2, (cob_u8_ptr)"67", &a_7};
103 static const cob_field c_73 = {2, (cob_u8_ptr)"68", &a_7};
104 static const cob_field c_74 = {2, (cob_u8_ptr)"08", &a_7};
105 static const cob_field c_75 = {2, (cob_u8_ptr)"09", &a_7};
106 static const cob_field c_76 = {2, (cob_u8_ptr)"10", &a_7};
107 static const cob_field c_77 = {2, (cob_u8_ptr)"11", &a_7};
108 static const cob_field c_78 = {2, (cob_u8_ptr)"12", &a_7};
109 static const cob_field c_79 = {2, (cob_u8_ptr)"13", &a_7};
110 static const cob_field c_80 = {2, (cob_u8_ptr)"15", &a_7};
111 static const cob_field c_81 = {2, (cob_u8_ptr)"16", &a_7};
112 static const cob_field c_82 = {2, (cob_u8_ptr)"17", &a_7};
113 static const cob_field c_83 = {2, (cob_u8_ptr)"18", &a_7};
114 static const cob_field c_84 = {2, (cob_u8_ptr)"20", &a_7};
115 static const cob_field c_85 = {2, (cob_u8_ptr)"21", &a_7};
116 static const cob_field c_86 = {2, (cob_u8_ptr)"22", &a_7};
117 static const cob_field c_87 = {2, (cob_u8_ptr)"23", &a_7};
118 static const cob_field c_88 = {2, (cob_u8_ptr)"24", &a_7};
119 static const cob_field c_89 = {1, (cob_u8_ptr)"4", &a_5};
120 static const cob_field c_90 = {1, (cob_u8_ptr)"3", &a_5};
121 static const cob_field c_91 = {2, (cob_u8_ptr)"06", &a_7};
122 static const cob_field c_92 = {2, (cob_u8_ptr)"14", &a_7};
123 static const cob_field c_93 = {2, (cob_u8_ptr)"19", &a_7};
124 static const cob_field c_94 = {2, (cob_u8_ptr)"26", &a_7};
125 static const cob_field c_95 = {2, (cob_u8_ptr)"45", &a_7};
126 static const cob_field c_96 = {2, (cob_u8_ptr)"50", &a_7};
127 static const cob_field c_97 = {2, (cob_u8_ptr)"70", &a_7};
128 static const cob_field c_98 = {2, (cob_u8_ptr)"62", &a_7};
129 static const cob_field c_99 = {2, (cob_u8_ptr)"65", &a_7};
130 static const cob_field c_100 = {2, (cob_u8_ptr)"35", &a_7};
131 static const cob_field c_101 = {2, (cob_u8_ptr)"38", &a_7};
132 static const cob_field c_102 = {2, (cob_u8_ptr)"39", &a_7};
133 static const cob_field c_103 = {2, (cob_u8_ptr)"69", &a_7};
134 static const cob_field c_104 = {9, (cob_u8_ptr)"GCic for ", &a_1};
135 static const cob_field c_105 = {45, (cob_u8_ptr)" Copyright (C) 2009-2014, Gary L. Cutler, GPL", &a_1};
136 static const cob_field c_106 = {12, (cob_u8_ptr)"GCXREF_LINES", &a_1};
137 static const cob_field c_107 = {17, (cob_u8_ptr)"GCXREF_LINES_PORT", &a_1};
138 static const cob_field c_108 = {1, (cob_u8_ptr)"\\", &a_1};
139 static const cob_field c_109 = {5, (cob_u8_ptr)"Right", &a_1};
140 static const cob_field c_110 = {1, (cob_u8_ptr)".", &a_1};
141 static const cob_field c_111 = {6, (cob_u8_ptr)"EQUALS", &a_1};
142 static const cob_field c_112 = {2, (cob_u8_ptr)". ", &a_1};
143 static const cob_field c_113 = {2, (cob_u8_ptr)"IS", &a_1};
144 static const cob_field c_114 = {1, (cob_u8_ptr)"=", &a_1};
145 static const cob_field c_115 = {1, (cob_u8_ptr)"(", &a_1};
146 static const cob_field c_116 = {1, (cob_u8_ptr)")", &a_1};
147 static const cob_field c_117 = {1, (cob_u8_ptr)"&", &a_1};
148 static const cob_field c_118 = {1, (cob_u8_ptr)";", &a_1};
149 static const cob_field c_119 = {1, (cob_u8_ptr)",", &a_1};
150 static const cob_field c_120 = {1, (cob_u8_ptr)"<", &a_1};
151 static const cob_field c_121 = {5, (cob_u8_ptr)"EQUAL", &a_1};
152 static const cob_field c_122 = {7, (cob_u8_ptr)"LEVEL #", &a_1};
153 static const cob_field c_123 = {10, (cob_u8_ptr)"0123456789", &a_1};
154 static const cob_field c_124 = {1, (cob_u8_ptr)"e", &a_1};
155 static const cob_field c_125 = {1, (cob_u8_ptr)"E", &a_1};
156 static const cob_field c_126 = {8, (cob_u8_ptr)"DIVISION", &a_1};
157 static const cob_field c_127 = {10, (cob_u8_ptr)"PROGRAM-ID", &a_1};
158 static const cob_field c_128 = {11, (cob_u8_ptr)"FUNCTION-ID", &a_1};
159 static const cob_field c_129 = {7, (cob_u8_ptr)"SECTION", &a_1};
160 static const cob_field c_130 = {8, (cob_u8_ptr)"FUNCTION", &a_1};
161 static const cob_field c_131 = {3, (cob_u8_ptr)"PIC", &a_1};
162 static const cob_field c_132 = {7, (cob_u8_ptr)"PICTURE", &a_1};
163 static const cob_field c_133 = {2, (cob_u8_ptr)"FD", &a_1};
164 static const cob_field c_134 = {2, (cob_u8_ptr)"RD", &a_1};
165 static const cob_field c_135 = {2, (cob_u8_ptr)"SD", &a_1};
166 static const cob_field c_136 = {7, (cob_u8_ptr)"INDEXED", &a_1};
167 static const cob_field c_137 = {5, (cob_u8_ptr)"USING", &a_1};
168 static const cob_field c_138 = {4, (cob_u8_ptr)"INTO", &a_1};
169 static const cob_field c_139 = {3, (cob_u8_ptr)"SUM", &a_1};
170 static const cob_field c_140 = {9, (cob_u8_ptr)"PROCEDURE", &a_1};
171 static const cob_field c_141 = {7, (cob_u8_ptr)"PROGRAM", &a_1};
172 static const cob_field c_142 = {3, (cob_u8_ptr)"END", &a_1};
173 static const cob_field c_143 = {6, (cob_u8_ptr)"ACCEPT", &a_1};
174 static const cob_field c_144 = {3, (cob_u8_ptr)"ADD", &a_1};
175 static const cob_field c_145 = {8, (cob_u8_ptr)"ALLOCATE", &a_1};
176 static const cob_field c_146 = {4, (cob_u8_ptr)"CALL", &a_1};
177 static const cob_field c_147 = {7, (cob_u8_ptr)"COMPUTE", &a_1};
178 static const cob_field c_148 = {6, (cob_u8_ptr)"DIVIDE", &a_1};
179 static const cob_field c_149 = {4, (cob_u8_ptr)"FREE", &a_1};
180 static const cob_field c_150 = {8, (cob_u8_ptr)"GENERATE", &a_1};
181 static const cob_field c_151 = {10, (cob_u8_ptr)"INITIALIZE", &a_1};
182 static const cob_field c_152 = {8, (cob_u8_ptr)"INITIATE", &a_1};
183 static const cob_field c_153 = {7, (cob_u8_ptr)"INSPECT", &a_1};
184 static const cob_field c_154 = {4, (cob_u8_ptr)"MOVE", &a_1};
185 static const cob_field c_155 = {8, (cob_u8_ptr)"MULTIPLY", &a_1};
186 static const cob_field c_156 = {7, (cob_u8_ptr)"PERFORM", &a_1};
187 static const cob_field c_157 = {3, (cob_u8_ptr)"SET", &a_1};
188 static const cob_field c_158 = {6, (cob_u8_ptr)"STRING", &a_1};
189 static const cob_field c_159 = {8, (cob_u8_ptr)"SUBTRACT", &a_1};
190 static const cob_field c_160 = {9, (cob_u8_ptr)"TERMINATE", &a_1};
191 static const cob_field c_161 = {9, (cob_u8_ptr)"TRANSFORM", &a_1};
192 static const cob_field c_162 = {8, (cob_u8_ptr)"UNSTRING", &a_1};
193 static const cob_field c_163 = {6, (cob_u8_ptr)"GIVING", &a_1};
194 static const cob_field c_164 = {2, (cob_u8_ptr)"TO", &a_1};
195 static const cob_field c_165 = {9, (cob_u8_ptr)"RETURNING", &a_1};
196 static const cob_field c_166 = {9, (cob_u8_ptr)"REMAINDER", &a_1};
197 static const cob_field c_167 = {9, (cob_u8_ptr)"REPLACING", &a_1};
198 static const cob_field c_168 = {8, (cob_u8_ptr)"TALLYING", &a_1};
199 static const cob_field c_169 = {10, (cob_u8_ptr)"CONVERTING", &a_1};
200 static const cob_field c_170 = {2, (cob_u8_ptr)"BY", &a_1};
201 static const cob_field c_171 = {7, (cob_u8_ptr)"VARYING", &a_1};
202 static const cob_field c_172 = {5, (cob_u8_ptr)"AFTER", &a_1};
203 static const cob_field c_173 = {7, (cob_u8_ptr)"POINTER", &a_1};
204 static const cob_field c_174 = {4, (cob_u8_ptr)"FROM", &a_1};
205 static const cob_field c_175 = {9, (cob_u8_ptr)"DELIMITER", &a_1};
206 static const cob_field c_176 = {5, (cob_u8_ptr)"COUNT", &a_1};
207 static const cob_field c_177 = {6, (cob_u8_ptr)"000000", &a_1};
208 static const cob_field c_178 = {4, (cob_u8_ptr)"Left", &a_1};
209 static const cob_field c_179 = {23, (cob_u8_ptr)"Cross-Reference Listing", &a_1};
210 static const cob_field c_180 = {82, (cob_u8_ptr)"PROGRAM-ID Identifier/Register/Function Defn Where Defined References", &a_1};
211 static const cob_field c_181 = {5, (cob_u8_ptr)"eject", &a_1};
212 static const cob_field c_182 = {5, (cob_u8_ptr)"skip1", &a_1};
213 static const cob_field c_183 = {5, (cob_u8_ptr)"skip2", &a_1};
214 static const cob_field c_184 = {5, (cob_u8_ptr)"skip3", &a_1};
215 static const cob_field c_185 = {14, (cob_u8_ptr)"Source Listing", &a_1};
216 static const cob_field c_186 = {16, (cob_u8_ptr)"Line Statement", &a_1};
217 static const cob_field c_187 = {16, (cob_u8_ptr)"F-Sort-Work-FILE", &a_1};
218 
219 static cob_field cob_all_space = {1, (cob_u8_ptr)" ", &cob_all_attr};
220 static cob_field cob_all_zero = {1, (cob_u8_ptr)"0", &cob_all_attr};
221 
222 
223 /* Strings */
224 static const char st_1[] = "FileStat-Msgs.cpy";
225 static const char st_2[] = "000-File-Error";
226 static const char st_3[] = "EVALUATE";
227 static const char st_4[] = "MOVE";
228 static const char st_5[] = "GCic.cbl";
229 static const char st_6[] = "IF";
230 static const char st_7[] = "DISPLAY";
231 static const char st_8[] = "GOBACK";
232 static const char st_9[] = "000-Main";
233 static const char st_10[] = "PERFORM";
234 static const char st_11[] = "SET";
235 static const char st_12[] = "100-Initialization";
236 static const char st_13[] = "INSPECT";
237 static const char st_14[] = "ACCEPT";
238 static const char st_15[] = "ADD";
239 static const char st_16[] = "UNSTRING";
240 static const char st_17[] = "SUBTRACT";
241 static const char st_18[] = "CALL";
242 static const char st_19[] = "200-Let-User-Set-Switches";
243 static const char st_20[] = "210-Run-Compiler";
244 static const char st_21[] = "STRING";
245 static const char st_22[] = "OPEN";
246 static const char st_23[] = "WRITE";
247 static const char st_24[] = "CLOSE";
248 static const char st_25[] = "220-Make-Listing";
249 static const char st_26[] = "230-Run-Program";
250 static const char st_27[] = "240-Find-LINKAGE-SECTION";
251 static const char st_28[] = "READ";
252 static const char st_29[] = "EXIT SECTION";
253 static const char st_30[] = "250-Autoload-Listing";
254 static const char st_31[] = "900-Terminate";
255 static const char st_32[] = "STOP RUN";
256 static const char st_33[] = "SORT";
257 static const char st_34[] = "300-Tokenize-Source";
258 static const char st_35[] = "EXIT PERFORM";
259 static const char st_36[] = "RELEASE";
260 static const char st_37[] = "310-Get-Token";
261 static const char st_38[] = "SEARCH ALL";
262 static const char st_39[] = "311-Control-Record";
263 static const char st_40[] = "COMPUTE";
264 static const char st_41[] = "312-Expanded-Src-Record";
265 static const char st_42[] = "313-Check-For-Numeric-Token";
266 static const char st_43[] = "320-IDENTIFICATION-DIVISION";
267 static const char st_44[] = "330-ENVIRONMENT-DIVISION";
268 static const char st_45[] = "340-DATA-DIVISION";
269 static const char st_46[] = "350-PROCEDURE-DIVISION";
270 static const char st_47[] = "351-ACCEPT";
271 static const char st_48[] = "351-ADD";
272 static const char st_49[] = "351-ALLOCATE";
273 static const char st_50[] = "351-CALL";
274 static const char st_51[] = "351-COMPUTE";
275 static const char st_52[] = "351-DIVIDE";
276 static const char st_53[] = "351-FREE";
277 static const char st_54[] = "351-GENERATE";
278 static const char st_55[] = "351-INITIALIZE";
279 static const char st_56[] = "351-INITIATE";
280 static const char st_57[] = "351-INSPECT";
281 static const char st_58[] = "351-MOVE";
282 static const char st_59[] = "351-MULTIPLY";
283 static const char st_60[] = "351-PERFORM";
284 static const char st_61[] = "351-SET";
285 static const char st_62[] = "351-STRING";
286 static const char st_63[] = "351-SUBTRACT";
287 static const char st_64[] = "351-TERMINATE";
288 static const char st_65[] = "351-TRANSFORM";
289 static const char st_66[] = "351-UNSTRING";
290 static const char st_67[] = "360-Release-Def";
291 static const char st_68[] = "361-Release-Ref";
292 static const char st_69[] = "362-Release-Upd";
293 static const char st_70[] = "363-Set-Upd";
294 static const char st_71[] = "364-Set-Ref";
295 static const char st_72[] = "365-Release-Arg";
296 static const char st_73[] = "366-Set-Arg";
297 static const char st_74[] = "400-Produce-Xref-Listing";
298 static const char st_75[] = "RETURN";
299 static const char st_76[] = "EXIT PERFORM CYCLE";
300 static const char st_77[] = "410-Generate-Report-Line";
301 static const char st_78[] = "420-Generate-Xref-Footer";
302 static const char st_79[] = "500-Produce-Source-Listing";
303 static const char st_80[] = "510-Control-Record";
304 static const char st_81[] = "520-Expanded-Src-Record";
305 static const char st_82[] = "CONTINUE";
306 static const char st_83[] = "530-Generate-Source-Line";
307 
308 static void COB_NOINLINE
309 cob_set_screen (cob_screen *s, cob_screen *next,
310  cob_screen *prev, cob_screen *child, cob_screen *parent,
311  cob_field *field, cob_field *value,
312  cob_field *line, cob_field *column,
313  cob_field *foreg, cob_field *backg, cob_field *prompt,
314  const int type, const int occurs, const int attr)
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 }
331 
332 static int COB_NOINLINE
333 cob_get_numdisp (const void *data, const size_t size)
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 }
346 
347 static COB_INLINE COB_A_INLINE int
348 cob_cmp_s8 (const void *p, const cob_s64_t n)
349 {
350  return (*(const signed char *)p < n) ? -1 : (*(const signed char *)p > n);
351 }
352 
353 static COB_INLINE COB_A_INLINE int
354 cob_cmp_s32 (const void *p, const cob_s64_t n)
355 {
356  int val;
357  val = *(const int __unaligned *)p;
358  return (val < n) ? -1 : (val > n);
359 }
360 
st_12
static const char st_12[]
Definition: GCic.c.h:235
__unaligned
#define __unaligned
Definition: common.h:487
st_69
static const char st_69[]
Definition: GCic.c.h:292
c_162
static const cob_field c_162
Definition: GCic.c.h:192
c_12
static const cob_field c_12
Definition: GCic.c.h:42
c_89
static const cob_field c_89
Definition: GCic.c.h:119
c_179
static const cob_field c_179
Definition: GCic.c.h:209
st_42
static const char st_42[]
Definition: GCic.c.h:265
c_130
static const cob_field c_130
Definition: GCic.c.h:160
st_35
static const char st_35[]
Definition: GCic.c.h:258
st_18
static const char st_18[]
Definition: GCic.c.h:241
c_54
static const cob_field c_54
Definition: GCic.c.h:84
c_161
static const cob_field c_161
Definition: GCic.c.h:191
c_186
static const cob_field c_186
Definition: GCic.c.h:216
c_35
static const cob_field c_35
Definition: GCic.c.h:65
c_55
static const cob_field c_55
Definition: GCic.c.h:85
cob_get_numdisp
static int COB_NOINLINE cob_get_numdisp(const void *data, const size_t size)
Definition: GCic.c.h:333
c_9
static const cob_field c_9
Definition: GCic.c.h:39
COB_NOINLINE
#define COB_NOINLINE
Definition: common.h:439
cob_set_screen
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)
Definition: GCic.c.h:309
c_165
static const cob_field c_165
Definition: GCic.c.h:195
c_69
static const cob_field c_69
Definition: GCic.c.h:99
c_58
static const cob_field c_58
Definition: GCic.c.h:88
c_173
static const cob_field c_173
Definition: GCic.c.h:203
c_166
static const cob_field c_166
Definition: GCic.c.h:196
st_55
static const char st_55[]
Definition: GCic.c.h:278
c_111
static const cob_field c_111
Definition: GCic.c.h:141
st_10
static const char st_10[]
Definition: GCic.c.h:233
c_102
static const cob_field c_102
Definition: GCic.c.h:132
c_3
static const cob_field c_3
Definition: GCic.c.h:33
st_43
static const char st_43[]
Definition: GCic.c.h:266
c_110
static const cob_field c_110
Definition: GCic.c.h:140
c_182
static const cob_field c_182
Definition: GCic.c.h:212
c_33
static const cob_field c_33
Definition: GCic.c.h:63
c_119
static const cob_field c_119
Definition: GCic.c.h:149
c_91
static const cob_field c_91
Definition: GCic.c.h:121
c_153
static const cob_field c_153
Definition: GCic.c.h:183
c_16
static const cob_field c_16
Definition: GCic.c.h:46
c_59
static const cob_field c_59
Definition: GCic.c.h:89
st_2
static const char st_2[]
Definition: GCic.c.h:225
c_95
static const cob_field c_95
Definition: GCic.c.h:125
c_47
static const cob_field c_47
Definition: GCic.c.h:77
st_17
static const char st_17[]
Definition: GCic.c.h:240
c_8
static const cob_field c_8
Definition: GCic.c.h:38
c_14
static const cob_field c_14
Definition: GCic.c.h:44
a_10
static const cob_field_attr a_10
Definition: GCic.c.h:23
st_44
static const char st_44[]
Definition: GCic.c.h:267
st_34
static const char st_34[]
Definition: GCic.c.h:257
__cob_screen::column
cob_field * column
Definition: common.h:1035
c_124
static const cob_field c_124
Definition: GCic.c.h:154
c_11
static const cob_field c_11
Definition: GCic.c.h:41
st_68
static const char st_68[]
Definition: GCic.c.h:291
c_93
static const cob_field c_93
Definition: GCic.c.h:123
c_38
static const cob_field c_38
Definition: GCic.c.h:68
c_157
static const cob_field c_157
Definition: GCic.c.h:187
c_40
static const cob_field c_40
Definition: GCic.c.h:70
c_10
static const cob_field c_10
Definition: GCic.c.h:40
c_78
static const cob_field c_78
Definition: GCic.c.h:108
c_84
static const cob_field c_84
Definition: GCic.c.h:114
c_171
static const cob_field c_171
Definition: GCic.c.h:201
cob_field
Definition: common.h:950
c_62
static const cob_field c_62
Definition: GCic.c.h:92
c_26
static const cob_field c_26
Definition: GCic.c.h:56
c_36
static const cob_field c_36
Definition: GCic.c.h:66
c_20
static const cob_field c_20
Definition: GCic.c.h:50
c_46
static const cob_field c_46
Definition: GCic.c.h:76
c_140
static const cob_field c_140
Definition: GCic.c.h:170
COB_INLINE
#define COB_INLINE
Definition: common.h:354
c_172
static const cob_field c_172
Definition: GCic.c.h:202
c_123
static const cob_field c_123
Definition: GCic.c.h:153
c_185
static const cob_field c_185
Definition: GCic.c.h:215
c_19
static const cob_field c_19
Definition: GCic.c.h:49
c_22
static const cob_field c_22
Definition: GCic.c.h:52
st_9
static const char st_9[]
Definition: GCic.c.h:232
c_187
static const cob_field c_187
Definition: GCic.c.h:217
c_158
static const cob_field c_158
Definition: GCic.c.h:188
c_159
static const cob_field c_159
Definition: GCic.c.h:189
st_59
static const char st_59[]
Definition: GCic.c.h:282
c_151
static const cob_field c_151
Definition: GCic.c.h:181
c_28
static const cob_field c_28
Definition: GCic.c.h:58
c_113
static const cob_field c_113
Definition: GCic.c.h:143
c_30
static const cob_field c_30
Definition: GCic.c.h:60
c_34
static const cob_field c_34
Definition: GCic.c.h:64
cob_all_space
static cob_field cob_all_space
Definition: GCic.c.h:219
c_150
static const cob_field c_150
Definition: GCic.c.h:180
st_65
static const char st_65[]
Definition: GCic.c.h:288
st_60
static const char st_60[]
Definition: GCic.c.h:283
c_156
static const cob_field c_156
Definition: GCic.c.h:186
c_50
static const cob_field c_50
Definition: GCic.c.h:80
st_79
static const char st_79[]
Definition: GCic.c.h:302
c_51
static const cob_field c_51
Definition: GCic.c.h:81
c_39
static const cob_field c_39
Definition: GCic.c.h:69
cob_s64_t
#define cob_s64_t
Definition: common.h:51
__cob_screen::next
struct __cob_screen * next
Definition: common.h:1028
c_98
static const cob_field c_98
Definition: GCic.c.h:128
c_49
static const cob_field c_49
Definition: GCic.c.h:79
st_48
static const char st_48[]
Definition: GCic.c.h:271
__cob_screen::occurs
int occurs
Definition: common.h:1040
c_82
static const cob_field c_82
Definition: GCic.c.h:112
c_79
static const cob_field c_79
Definition: GCic.c.h:109
a_7
static const cob_field_attr a_7
Definition: GCic.c.h:20
__cob_screen::foreg
cob_field * foreg
Definition: common.h:1036
c_61
static const cob_field c_61
Definition: GCic.c.h:91
c_148
static const cob_field c_148
Definition: GCic.c.h:178
c_27
static const cob_field c_27
Definition: GCic.c.h:57
st_6
static const char st_6[]
Definition: GCic.c.h:229
c_142
static const cob_field c_142
Definition: GCic.c.h:172
c_2
static const cob_field c_2
Definition: GCic.c.h:32
c_183
static const cob_field c_183
Definition: GCic.c.h:213
__cob_screen
Definition: common.h:1027
c_66
static const cob_field c_66
Definition: GCic.c.h:96
st_49
static const char st_49[]
Definition: GCic.c.h:272
c_100
static const cob_field c_100
Definition: GCic.c.h:130
st_54
static const char st_54[]
Definition: GCic.c.h:277
__cob_screen::prev
struct __cob_screen * prev
Definition: common.h:1029
a_12
static const cob_field_attr a_12
Definition: GCic.c.h:25
st_73
static const char st_73[]
Definition: GCic.c.h:296
c_125
static const cob_field c_125
Definition: GCic.c.h:155
value
strict implicit external value
Definition: warning.def:54
c_163
static const cob_field c_163
Definition: GCic.c.h:193
c_138
static const cob_field c_138
Definition: GCic.c.h:168
st_81
static const char st_81[]
Definition: GCic.c.h:304
c_169
static const cob_field c_169
Definition: GCic.c.h:199
c_128
static const cob_field c_128
Definition: GCic.c.h:158
c_155
static const cob_field c_155
Definition: GCic.c.h:185
c_99
static const cob_field c_99
Definition: GCic.c.h:129
c_18
static const cob_field c_18
Definition: GCic.c.h:48
cob_u8_ptr
#define cob_u8_ptr
Definition: common.h:66
c_121
static const cob_field c_121
Definition: GCic.c.h:151
st_67
static const char st_67[]
Definition: GCic.c.h:290
c_137
static const cob_field c_137
Definition: GCic.c.h:167
st_31
static const char st_31[]
Definition: GCic.c.h:254
c_41
static const cob_field c_41
Definition: GCic.c.h:71
a_1
static const cob_field_attr a_1
Definition: GCic.c.h:14
c_65
static const cob_field c_65
Definition: GCic.c.h:95
c_103
static const cob_field c_103
Definition: GCic.c.h:133
st_78
static const char st_78[]
Definition: GCic.c.h:301
c_5
static const cob_field c_5
Definition: GCic.c.h:35
c_15
static const cob_field c_15
Definition: GCic.c.h:45
c_97
static const cob_field c_97
Definition: GCic.c.h:127
c_87
static const cob_field c_87
Definition: GCic.c.h:117
c_6
static const cob_field c_6
Definition: GCic.c.h:36
c_13
static const cob_field c_13
Definition: GCic.c.h:43
__cob_screen::backg
cob_field * backg
Definition: common.h:1037
NULL
EC ARGUMENT EC EC BOUND EC BOUND EC BOUND EC BOUND TABLE EC DATA EC DATA EC DATA PTR NULL
Definition: exception.def:95
st_76
static const char st_76[]
Definition: GCic.c.h:299
c_4
static const cob_field c_4
Definition: GCic.c.h:34
st_74
static const char st_74[]
Definition: GCic.c.h:297
cob_cmp_s32
static COB_INLINE COB_A_INLINE int cob_cmp_s32(const void *p, const cob_s64_t n)
Definition: GCic.c.h:354
st_64
static const char st_64[]
Definition: GCic.c.h:287
c_64
static const cob_field c_64
Definition: GCic.c.h:94
c_164
static const cob_field c_164
Definition: GCic.c.h:194
__cob_screen::prompt
cob_field * prompt
Definition: common.h:1038
c_168
static const cob_field c_168
Definition: GCic.c.h:198
st_47
static const char st_47[]
Definition: GCic.c.h:270
st_27
static const char st_27[]
Definition: GCic.c.h:250
st_4
static const char st_4[]
Definition: GCic.c.h:227
st_52
static const char st_52[]
Definition: GCic.c.h:275
c_25
static const cob_field c_25
Definition: GCic.c.h:55
c_70
static const cob_field c_70
Definition: GCic.c.h:100
c_71
static const cob_field c_71
Definition: GCic.c.h:101
c_92
static const cob_field c_92
Definition: GCic.c.h:122
st_41
static const char st_41[]
Definition: GCic.c.h:264
c_94
static const cob_field c_94
Definition: GCic.c.h:124
__cob_screen::value
cob_field * value
Definition: common.h:1033
c_122
static const cob_field c_122
Definition: GCic.c.h:152
c_105
static const cob_field c_105
Definition: GCic.c.h:135
st_21
static const char st_21[]
Definition: GCic.c.h:244
st_72
static const char st_72[]
Definition: GCic.c.h:295
st_1
static const char st_1[]
Definition: GCic.c.h:224
a_4
static const cob_field_attr a_4
Definition: GCic.c.h:17
c_118
static const cob_field c_118
Definition: GCic.c.h:148
__cob_screen::field
cob_field * field
Definition: common.h:1032
c_80
static const cob_field c_80
Definition: GCic.c.h:110
st_7
static const char st_7[]
Definition: GCic.c.h:230
a_8
static const cob_field_attr a_8
Definition: GCic.c.h:21
c_167
static const cob_field c_167
Definition: GCic.c.h:197
st_63
static const char st_63[]
Definition: GCic.c.h:286
st_11
static const char st_11[]
Definition: GCic.c.h:234
c_175
static const cob_field c_175
Definition: GCic.c.h:205
c_7
static const cob_field c_7
Definition: GCic.c.h:37
c_129
static const cob_field c_129
Definition: GCic.c.h:159
st_16
static const char st_16[]
Definition: GCic.c.h:239
c_31
static const cob_field c_31
Definition: GCic.c.h:61
st_82
static const char st_82[]
Definition: GCic.c.h:305
__cob_screen::child
struct __cob_screen * child
Definition: common.h:1030
c_63
static const cob_field c_63
Definition: GCic.c.h:93
c_181
static const cob_field c_181
Definition: GCic.c.h:211
cob_field_attr
Definition: common.h:940
a_11
static const cob_field_attr a_11
Definition: GCic.c.h:24
a_9
static const cob_field_attr a_9
Definition: GCic.c.h:22
a_5
static const cob_field_attr a_5
Definition: GCic.c.h:18
st_25
static const char st_25[]
Definition: GCic.c.h:248
c_184
static const cob_field c_184
Definition: GCic.c.h:214
st_3
static const char st_3[]
Definition: GCic.c.h:226
st_24
static const char st_24[]
Definition: GCic.c.h:247
st_30
static const char st_30[]
Definition: GCic.c.h:253
c_90
static const cob_field c_90
Definition: GCic.c.h:120
c_154
static const cob_field c_154
Definition: GCic.c.h:184
st_46
static const char st_46[]
Definition: GCic.c.h:269
c_72
static const cob_field c_72
Definition: GCic.c.h:102
c_144
static const cob_field c_144
Definition: GCic.c.h:174
COB_A_INLINE
#define COB_A_INLINE
Definition: common.h:440
__cob_screen::type
int type
Definition: common.h:1039
cob_all_zero
static cob_field cob_all_zero
Definition: GCic.c.h:220
st_5
static const char st_5[]
Definition: GCic.c.h:228
c_116
static const cob_field c_116
Definition: GCic.c.h:146
c_48
static const cob_field c_48
Definition: GCic.c.h:78
c_134
static const cob_field c_134
Definition: GCic.c.h:164
c_60
static const cob_field c_60
Definition: GCic.c.h:90
st_75
static const char st_75[]
Definition: GCic.c.h:298
st_39
static const char st_39[]
Definition: GCic.c.h:262
c_107
static const cob_field c_107
Definition: GCic.c.h:137
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
st_38
static const char st_38[]
Definition: GCic.c.h:261
st_22
static const char st_22[]
Definition: GCic.c.h:245
c_174
static const cob_field c_174
Definition: GCic.c.h:204
c_117
static const cob_field c_117
Definition: GCic.c.h:147
cob_all_attr
static const cob_field_attr cob_all_attr
Definition: GCic.c.h:27
c_104
static const cob_field c_104
Definition: GCic.c.h:134
st_51
static const char st_51[]
Definition: GCic.c.h:274
a_6
static const cob_field_attr a_6
Definition: GCic.c.h:19
st_70
static const char st_70[]
Definition: GCic.c.h:293
c_126
static const cob_field c_126
Definition: GCic.c.h:156
st_37
static const char st_37[]
Definition: GCic.c.h:260
__cob_screen::line
cob_field * line
Definition: common.h:1034
c_101
static const cob_field c_101
Definition: GCic.c.h:131
a_2
static const cob_field_attr a_2
Definition: GCic.c.h:15
c_170
static const cob_field c_170
Definition: GCic.c.h:200
c_178
static const cob_field c_178
Definition: GCic.c.h:208
cob_cmp_s8
static COB_INLINE COB_A_INLINE int cob_cmp_s8(const void *p, const cob_s64_t n)
Definition: GCic.c.h:348
c_176
static const cob_field c_176
Definition: GCic.c.h:206
c_131
static const cob_field c_131
Definition: GCic.c.h:161
st_23
static const char st_23[]
Definition: GCic.c.h:246
st_28
static const char st_28[]
Definition: GCic.c.h:251
a_3
static const cob_field_attr a_3
Definition: GCic.c.h:16
c_29
static const cob_field c_29
Definition: GCic.c.h:59
c_152
static const cob_field c_152
Definition: GCic.c.h:182
st_40
static const char st_40[]
Definition: GCic.c.h:263
c_77
static const cob_field c_77
Definition: GCic.c.h:107
c_73
static const cob_field c_73
Definition: GCic.c.h:103
c_109
static const cob_field c_109
Definition: GCic.c.h:139
c_85
static const cob_field c_85
Definition: GCic.c.h:115
st_66
static const char st_66[]
Definition: GCic.c.h:289
st_13
static const char st_13[]
Definition: GCic.c.h:236
st_62
static const char st_62[]
Definition: GCic.c.h:285
c_149
static const cob_field c_149
Definition: GCic.c.h:179
c_44
static const cob_field c_44
Definition: GCic.c.h:74
c_180
static const cob_field c_180
Definition: GCic.c.h:210
c_45
static const cob_field c_45
Definition: GCic.c.h:75
c_112
static const cob_field c_112
Definition: GCic.c.h:142
c_88
static const cob_field c_88
Definition: GCic.c.h:118
c_136
static const cob_field c_136
Definition: GCic.c.h:166
st_50
static const char st_50[]
Definition: GCic.c.h:273
st_33
static const char st_33[]
Definition: GCic.c.h:256
__cob_screen::attr
int attr
Definition: common.h:1041
c_67
static const cob_field c_67
Definition: GCic.c.h:97
st_32
static const char st_32[]
Definition: GCic.c.h:255
c_75
static const cob_field c_75
Definition: GCic.c.h:105
st_20
static const char st_20[]
Definition: GCic.c.h:243
c_74
static const cob_field c_74
Definition: GCic.c.h:104
st_8
static const char st_8[]
Definition: GCic.c.h:231
c_143
static const cob_field c_143
Definition: GCic.c.h:173
c_43
static const cob_field c_43
Definition: GCic.c.h:73
c_133
static const cob_field c_133
Definition: GCic.c.h:163
c_32
static const cob_field c_32
Definition: GCic.c.h:62
st_36
static const char st_36[]
Definition: GCic.c.h:259
c_139
static const cob_field c_139
Definition: GCic.c.h:169
c_108
static const cob_field c_108
Definition: GCic.c.h:138
c_135
static const cob_field c_135
Definition: GCic.c.h:165
c_145
static const cob_field c_145
Definition: GCic.c.h:175
c_83
static const cob_field c_83
Definition: GCic.c.h:113
c_96
static const cob_field c_96
Definition: GCic.c.h:126
st_14
static const char st_14[]
Definition: GCic.c.h:237
c_42
static const cob_field c_42
Definition: GCic.c.h:72
c_24
static const cob_field c_24
Definition: GCic.c.h:54
st_19
static const char st_19[]
Definition: GCic.c.h:242
c_132
static const cob_field c_132
Definition: GCic.c.h:162
st_61
static const char st_61[]
Definition: GCic.c.h:284
c_106
static const cob_field c_106
Definition: GCic.c.h:136
st_26
static const char st_26[]
Definition: GCic.c.h:249
c_127
static const cob_field c_127
Definition: GCic.c.h:157
c_17
static const cob_field c_17
Definition: GCic.c.h:47
c_147
static const cob_field c_147
Definition: GCic.c.h:177
st_80
static const char st_80[]
Definition: GCic.c.h:303
st_58
static const char st_58[]
Definition: GCic.c.h:281
st_15
static const char st_15[]
Definition: GCic.c.h:238
st_83
static const char st_83[]
Definition: GCic.c.h:306
c_177
static const cob_field c_177
Definition: GCic.c.h:207
c_141
static const cob_field c_141
Definition: GCic.c.h:171
c_21
static const cob_field c_21
Definition: GCic.c.h:51
c_86
static const cob_field c_86
Definition: GCic.c.h:116
c_68
static const cob_field c_68
Definition: GCic.c.h:98
c_114
static const cob_field c_114
Definition: GCic.c.h:144
c_146
static const cob_field c_146
Definition: GCic.c.h:176
st_45
static const char st_45[]
Definition: GCic.c.h:268
st_56
static const char st_56[]
Definition: GCic.c.h:279
c_53
static const cob_field c_53
Definition: GCic.c.h:83
c_56
static const cob_field c_56
Definition: GCic.c.h:86
c_1
static const cob_field c_1
Definition: GCic.c.h:31
c_23
static const cob_field c_23
Definition: GCic.c.h:53
st_77
static const char st_77[]
Definition: GCic.c.h:300
c_37
static const cob_field c_37
Definition: GCic.c.h:67
c_57
static const cob_field c_57
Definition: GCic.c.h:87
st_57
static const char st_57[]
Definition: GCic.c.h:280
c_76
static const cob_field c_76
Definition: GCic.c.h:106
c_160
static const cob_field c_160
Definition: GCic.c.h:190
st_71
static const char st_71[]
Definition: GCic.c.h:294
c_52
static const cob_field c_52
Definition: GCic.c.h:82
st_29
static const char st_29[]
Definition: GCic.c.h:252
st_53
static const char st_53[]
Definition: GCic.c.h:276
c_81
static const cob_field c_81
Definition: GCic.c.h:111
c_120
static const cob_field c_120
Definition: GCic.c.h:150
cob_module_path
static const char * cob_module_path
Definition: GCic.c.h:10
c_115
static const cob_field c_115
Definition: GCic.c.h:145