GnuCOBOL  2.0
A free COBOL compiler
GCic.c.l1.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 /* Program local variables for 'GCic' */
9 
10 /* Module initialization indicator */
11 static unsigned int initialized = 0;
12 
13 /* Module structure pointer */
14 static cob_module *module = NULL;
15 
16 /* Global variable pointer */
17 cob_global *cob_glob_ptr;
18 
19 
20 /* File F-Cobc-Output-FILE */
21 static cob_file *h_F_COBC_OUTPUT_FILE = NULL;
22 static unsigned char h_F_COBC_OUTPUT_FILE_status[4];
23 
24 /* File F-Source-Code-FILE */
25 static cob_file *h_F_SOURCE_CODE_FILE = NULL;
26 static unsigned char h_F_SOURCE_CODE_FILE_status[4];
27 
28 /* Screens */
29 
30 static cob_screen s_355;
31 static cob_screen s_354;
32 static cob_screen s_353;
33 static cob_screen s_352;
34 static cob_screen s_351;
35 static cob_screen s_350;
36 static cob_screen s_349;
37 static cob_screen s_348;
38 static cob_screen s_347;
39 static cob_screen s_346;
40 static cob_screen s_345;
41 static cob_screen s_344;
42 static cob_screen s_343;
43 static cob_screen s_342;
44 static cob_screen s_341;
45 static cob_screen s_340;
46 static cob_screen s_339;
47 static cob_screen s_338;
48 static cob_screen s_337;
49 static cob_screen s_336;
50 static cob_screen s_335;
51 static cob_screen s_334;
52 static cob_screen s_333;
53 static cob_screen s_332;
54 static cob_screen s_331;
55 static cob_screen s_330;
56 static cob_screen s_329;
57 static cob_screen s_328;
58 static cob_screen s_327;
59 static cob_screen s_326;
60 static cob_screen s_325;
61 static cob_screen s_324;
62 static cob_screen s_323;
63 static cob_screen s_322;
64 static cob_screen s_321;
65 static cob_screen s_320;
66 static cob_screen s_319;
67 static cob_screen s_318;
68 static cob_screen s_317;
69 static cob_screen s_316;
70 static cob_screen s_315;
71 static cob_screen s_314;
72 static cob_screen s_313;
73 static cob_screen s_312;
74 static cob_screen s_311;
75 static cob_screen s_310;
76 static cob_screen s_309;
77 static cob_screen s_308;
78 static cob_screen s_307;
79 static cob_screen s_306;
80 static cob_screen s_305;
81 static cob_screen s_304;
82 static cob_screen s_303;
83 static cob_screen s_302;
84 static cob_screen s_301;
85 static cob_screen s_300;
86 static cob_screen s_299;
87 static cob_screen s_298;
88 static cob_screen s_297;
89 static cob_screen s_296;
90 static cob_screen s_295;
91 static cob_screen s_294;
92 static cob_screen s_293;
93 static cob_screen s_292;
94 static cob_screen s_291;
95 static cob_screen s_290;
96 static cob_screen s_289;
97 static cob_screen s_288;
98 static cob_screen s_287;
99 static cob_screen s_286;
100 static cob_screen s_285;
101 static cob_screen s_284;
102 static cob_screen s_283;
103 static cob_screen s_282;
104 static cob_screen s_281;
105 static cob_screen s_280;
106 static cob_screen s_279;
107 static cob_screen s_278;
108 static cob_screen s_277;
109 static cob_screen s_276;
110 static cob_screen s_275;
111 static cob_screen s_274;
112 static cob_screen s_273;
113 static cob_screen s_272;
114 static cob_screen s_271;
115 static cob_screen s_270;
116 static cob_screen s_269;
117 static cob_screen s_268;
118 static cob_screen s_267;
119 static cob_screen s_266;
120 static cob_screen s_265;
121 static cob_screen s_264;
122 static cob_screen s_263;
123 static cob_screen s_262;
124 static cob_screen s_261;
125 static cob_screen s_260;
126 static cob_screen s_259;
127 static cob_screen s_258;
128 static cob_screen s_257;
129 static cob_screen s_256;
130 static cob_screen s_255;
131 static cob_screen s_254;
132 static cob_screen s_253;
133 static cob_screen s_252;
134 static cob_screen s_251;
135 static cob_screen s_250;
136 static cob_screen s_249;
137 static cob_screen s_248;
138 static cob_screen s_247;
139 static cob_screen s_246;
140 static cob_screen s_245;
141 static cob_screen s_244;
142 static cob_screen s_243;
143 static cob_screen s_242;
144 static cob_screen s_241;
145 static cob_screen s_240;
146 static cob_screen s_239;
147 static cob_screen s_238;
148 static cob_screen s_237;
149 static cob_screen s_236;
150 static cob_screen s_235;
151 static cob_screen s_234;
152 static cob_screen s_233;
153 static cob_screen s_232;
154 static cob_screen s_231;
155 static cob_screen s_230;
156 
157 
158 /* Call pointers */
159 static cob_call_union call_CHECKSRC;
160 static cob_call_union call_LISTING;
161 
162 /* Local cob_field items */
163 cob_field f0;
164 
165 
166 /* Call parameters */
167 cob_field *cob_procedure_params[6];
168 
169 /* Perform frame stack */
170 struct cob_frame *frame_overflow;
171 struct cob_frame *frame_ptr;
172 struct cob_frame frame_stack[255];
173 
174 
175 /* Data storage */
176 static int b_1; /* RETURN-CODE */
177 static cob_u8_t b_22[256] __attribute__((aligned)); /* F-Cobc-Output-FILE Record */
178 static cob_u8_t b_24[256] __attribute__((aligned)); /* F-Source-Code-FILE Record */
179 static cob_u8_t b_112[377] __attribute__((aligned)); /* WS-Compilation-Switches-TXT */
180 static cob_u8_t b_150[512] __attribute__((aligned)); /* WS-Cmd-TXT */
181 static cob_u8_t b_151[256] __attribute__((aligned)); /* WS-Cmd-Args-TXT */
182 static cob_u8_t b_152[1] __attribute__((aligned)); /* WS-Cmd-End-Quote-CHR */
183 static cob_u8_t b_153[4] __attribute__((aligned)); /* WS-Cmd-SUB */
184 static cob_u8_t b_154[256] __attribute__((aligned)); /* WS-Cobc-Cmd-TXT */
185 static cob_u8_t b_155[12] __attribute__((aligned)); /* WS-Config-Fn-TXT */
186 static cob_u8_t b_156[256] __attribute__((aligned)); /* WS-Delete-Fn-TXT */
187 static cob_u8_t b_157[256] __attribute__((aligned)); /* WS-File-Name-TXT */
188 static cob_u8_t b_159[51] __attribute__((aligned)); /* WS-File-Status-Message-TXT */
189 static cob_u8_t b_164[80] __attribute__((aligned)); /* WS-Horizontal-Line-TXT */
190 static cob_u8_t b_165[4] __attribute__((aligned)); /* WS-I-SUB */
191 static cob_u8_t b_166[4] __attribute__((aligned)); /* WS-J-SUB */
192 static cob_u8_t b_167[1] __attribute__((aligned)); /* WS-Listing-CD */
193 static cob_u8_t b_168[256] __attribute__((aligned)); /* WS-Listing-Filename-TXT */
194 static cob_u8_t b_169[27] __attribute__((aligned)); /* WS-Listing-TXT */
195 static cob_u8_t b_170[16] __attribute__((aligned)); /* WS-OC-Compile-DT */
196 static cob_u8_t b_171[1] __attribute__((aligned)); /* WS-OS-Dir-CHR */
197 static cob_u8_t b_175[1] __attribute__((aligned)); /* WS-OS-Type-CD */
198 static cob_u8_t b_180[70] __attribute__((aligned)); /* WS-OS-Type-FILLER-TXT */
199 static cob_u8_t b_188[80] __attribute__((aligned)); /* WS-Output-Msg-TXT */
200 static cob_u8_t b_189[1] __attribute__((aligned)); /* WS-Path-Delimiter-CHR */
201 static cob_u8_t b_190[256] __attribute__((aligned)); /* WS-Prog-Extension-TXT */
202 static cob_u8_t b_191[256] __attribute__((aligned)); /* WS-Prog-Folder-TXT */
203 static cob_u8_t b_192[256] __attribute__((aligned)); /* WS-Prog-File-Name-TXT */
204 static cob_u8_t b_194[31] __attribute__((aligned)); /* WS-Pgm-Nm-TXT */
205 static cob_u8_t b_195[8] __attribute__((aligned)); /* WS-Runtime-Switches-TXT */
206 static cob_u8_t b_221[4] __attribute__((aligned)); /* WS-Tally-QTY */
207 static cob_u8_t b_230[1] __attribute__((aligned)); /* S-Blank-SCR */
208 static cob_u8_t b_231[1792] __attribute__((aligned)); /* S-Switches-SCR */
209 static cob_u8_t b_356[4] __attribute__((aligned)); /* COB-CRT-STATUS */
210 
211 /* End of data storage */
212 
213 
214 /* Fields */
215 static cob_field f_21 = {256, b_22, &a_1}; /* F-Cobc-Output-REC */
216 static cob_field f_22 = {256, b_22, &a_1}; /* F-Cobc-Output-FILE Record */
217 static cob_field f_23 = {256, b_24, &a_1}; /* F-Source-Code-REC */
218 static cob_field f_24 = {256, b_24, &a_1}; /* F-Source-Code-FILE Record */
219 static cob_field f_113 = {152, b_112, &a_2}; /* WS-CS-Args-TXT */
220 static cob_field f_114 = {76, b_112, &a_1}; /* WS-CS-Arg-H1-TXT */
221 static cob_field f_115 = {76, b_112 + 76, &a_1}; /* WS-CS-Arg-H2-TXT */
222 static cob_field f_126 = {1, b_112 + 215, &a_5}; /* WS-CS-Config-NUM */
223 static cob_field f_127 = {152, b_112 + 216, &a_2}; /* WS-CS-Extra-TXT */
224 static cob_field f_128 = {76, b_112 + 216, &a_1}; /* WS-CS-Extra-H1-TXT */
225 static cob_field f_129 = {76, b_112 + 292, &a_1}; /* WS-CS-Extra-H2-TXT */
226 static cob_field f_140 = {9, b_112 + 368, &a_2}; /* WS-CS-All-Switches-TXT */
227 static cob_field f_141 = {1, b_112 + 368, &a_1}; /* WS-CS-DEBUG-CHR */
228 static cob_field f_142 = {1, b_112 + 369, &a_1}; /* WS-CS-EXECUTE-CHR */
229 static cob_field f_143 = {1, b_112 + 370, &a_1}; /* WS-CS-FREE-CHR */
230 static cob_field f_144 = {1, b_112 + 371, &a_1}; /* WS-CS-LIBRARY-CHR */
231 static cob_field f_145 = {1, b_112 + 372, &a_1}; /* WS-CS-LISTING-CHR */
232 static cob_field f_146 = {1, b_112 + 373, &a_1}; /* WS-CS-NOFUNC-CHR */
233 static cob_field f_147 = {1, b_112 + 374, &a_1}; /* WS-CS-NOTRUNC-CHR */
234 static cob_field f_148 = {1, b_112 + 375, &a_1}; /* WS-CS-TRACEALL-CHR */
235 static cob_field f_149 = {1, b_112 + 376, &a_1}; /* WS-CS-WARNALL-CHR */
236 static cob_field f_150 = {512, b_150, &a_1}; /* WS-Cmd-TXT */
237 static cob_field f_151 = {256, b_151, &a_1}; /* WS-Cmd-Args-TXT */
238 static cob_field f_152 = {1, b_152, &a_1}; /* WS-Cmd-End-Quote-CHR */
239 static cob_field f_153 = {4, b_153, &a_4}; /* WS-Cmd-SUB */
240 static cob_field f_154 = {256, b_154, &a_1}; /* WS-Cobc-Cmd-TXT */
241 static cob_field f_155 = {12, b_155, &a_1}; /* WS-Config-Fn-TXT */
242 static cob_field f_157 = {256, b_157, &a_2}; /* WS-File-Name-TXT */
243 static cob_field f_161 = {2, b_159 + 13, &a_7}; /* WS-FSM-Status-CD */
244 static cob_field f_164 = {80, b_164, &a_1}; /* WS-Horizontal-Line-TXT */
245 static cob_field f_165 = {4, b_165, &a_4}; /* WS-I-SUB */
246 static cob_field f_166 = {4, b_166, &a_4}; /* WS-J-SUB */
247 static cob_field f_167 = {1, b_167, &a_5}; /* WS-Listing-CD */
248 static cob_field f_168 = {256, b_168, &a_1}; /* WS-Listing-Filename-TXT */
249 static cob_field f_169 = {27, b_169, &a_1}; /* WS-Listing-TXT */
250 static cob_field f_170 = {16, b_170, &a_3}; /* WS-OC-Compile-DT */
251 static cob_field f_171 = {1, b_171, &a_1}; /* WS-OS-Dir-CHR */
252 static cob_field f_175 = {1, b_175, &a_5}; /* WS-OS-Type-CD */
253 static cob_field f_188 = {80, b_188, &a_1}; /* WS-Output-Msg-TXT */
254 static cob_field f_190 = {256, b_190, &a_1}; /* WS-Prog-Extension-TXT */
255 static cob_field f_191 = {256, b_191, &a_1}; /* WS-Prog-Folder-TXT */
256 static cob_field f_192 = {256, b_192, &a_2}; /* WS-Prog-File-Name-TXT */
257 static cob_field f_194 = {31, b_194, &a_1}; /* WS-Pgm-Nm-TXT */
258 static cob_field f_214 = {1, b_195 + 6, &a_1}; /* WS-RS-Source-Record-Type-CHR */
259 static cob_field f_221 = {4, b_221, &a_4}; /* WS-Tally-QTY */
260 static cob_field f_230 = {0, b_230, &a_1}; /* S-Blank-SCR */
261 static cob_field f_231 = {1792, b_231, &a_2}; /* S-Switches-SCR */
262 static cob_field f_233 = {1, b_231, &a_1}; /* Implicit FILLER */
263 static cob_field f_234 = {78, b_231 + 1, &a_1}; /* Implicit FILLER */
264 static cob_field f_235 = {1, b_231 + 79, &a_1}; /* Implicit FILLER */
265 static cob_field f_236 = {1, b_231 + 80, &a_1}; /* Implicit FILLER */
266 static cob_field f_237 = {1, b_231 + 81, &a_1}; /* Implicit FILLER */
267 static cob_field f_238 = {1, b_231 + 82, &a_1}; /* Implicit FILLER */
268 static cob_field f_239 = {1, b_231 + 83, &a_1}; /* Implicit FILLER */
269 static cob_field f_240 = {1, b_231 + 84, &a_1}; /* Implicit FILLER */
270 static cob_field f_241 = {78, b_231 + 85, &a_1}; /* Implicit FILLER */
271 static cob_field f_242 = {1, b_231 + 163, &a_1}; /* Implicit FILLER */
272 static cob_field f_243 = {1, b_231 + 164, &a_1}; /* Implicit FILLER */
273 static cob_field f_244 = {65, b_231 + 165, &a_1}; /* Implicit FILLER */
274 static cob_field f_245 = {1, b_231 + 230, &a_1}; /* Implicit FILLER */
275 static cob_field f_246 = {12, b_231 + 231, &a_1}; /* Implicit FILLER */
276 static cob_field f_247 = {1, b_231 + 243, &a_1}; /* Implicit FILLER */
277 static cob_field f_248 = {1, b_231 + 244, &a_1}; /* Implicit FILLER */
278 static cob_field f_249 = {1, b_231 + 245, &a_1}; /* Implicit FILLER */
279 static cob_field f_250 = {1, b_231 + 246, &a_1}; /* Implicit FILLER */
280 static cob_field f_251 = {1, b_231 + 247, &a_1}; /* Implicit FILLER */
281 static cob_field f_252 = {1, b_231 + 248, &a_1}; /* Implicit FILLER */
282 static cob_field f_253 = {1, b_231 + 249, &a_1}; /* Implicit FILLER */
283 static cob_field f_254 = {1, b_231 + 250, &a_1}; /* Implicit FILLER */
284 static cob_field f_255 = {1, b_231 + 251, &a_1}; /* Implicit FILLER */
285 static cob_field f_256 = {1, b_231 + 252, &a_1}; /* Implicit FILLER */
286 static cob_field f_257 = {1, b_231 + 253, &a_1}; /* Implicit FILLER */
287 static cob_field f_258 = {1, b_231 + 254, &a_1}; /* Implicit FILLER */
288 static cob_field f_259 = {1, b_231 + 255, &a_1}; /* Implicit FILLER */
289 static cob_field f_260 = {1, b_231 + 256, &a_1}; /* Implicit FILLER */
290 static cob_field f_261 = {1, b_231 + 257, &a_1}; /* Implicit FILLER */
291 static cob_field f_262 = {1, b_231 + 258, &a_1}; /* Implicit FILLER */
292 static cob_field f_263 = {1, b_231 + 259, &a_1}; /* Implicit FILLER */
293 static cob_field f_264 = {65, b_231 + 260, &a_1}; /* Implicit FILLER */
294 static cob_field f_265 = {1, b_231 + 325, &a_1}; /* Implicit FILLER */
295 static cob_field f_266 = {12, b_231 + 326, &a_1}; /* Implicit FILLER */
296 static cob_field f_267 = {1, b_231 + 338, &a_1}; /* Implicit FILLER */
297 static cob_field f_268 = {1, b_231 + 339, &a_1}; /* Implicit FILLER */
298 static cob_field f_269 = {78, b_231 + 340, &a_1}; /* Implicit FILLER */
299 static cob_field f_270 = {1, b_231 + 418, &a_1}; /* Implicit FILLER */
300 static cob_field f_271 = {1, b_231 + 419, &a_1}; /* Implicit FILLER */
301 static cob_field f_272 = {1, b_231 + 420, &a_1}; /* Implicit FILLER */
302 static cob_field f_273 = {1, b_231 + 421, &a_1}; /* Implicit FILLER */
303 static cob_field f_274 = {1, b_231 + 422, &a_1}; /* Implicit FILLER */
304 static cob_field f_275 = {1, b_231 + 423, &a_1}; /* Implicit FILLER */
305 static cob_field f_276 = {78, b_231 + 424, &a_1}; /* Implicit FILLER */
306 static cob_field f_277 = {1, b_231 + 502, &a_1}; /* Implicit FILLER */
307 static cob_field f_278 = {1, b_231 + 503, &a_1}; /* Implicit FILLER */
308 static cob_field f_279 = {78, b_231 + 504, &a_1}; /* Implicit FILLER */
309 static cob_field f_280 = {1, b_231 + 582, &a_1}; /* Implicit FILLER */
310 static cob_field f_281 = {1, b_231 + 583, &a_1}; /* Implicit FILLER */
311 static cob_field f_282 = {1, b_231 + 584, &a_1}; /* Implicit FILLER */
312 static cob_field f_283 = {1, b_231 + 585, &a_1}; /* Implicit FILLER */
313 static cob_field f_284 = {1, b_231 + 586, &a_1}; /* Implicit FILLER */
314 static cob_field f_285 = {1, b_231 + 587, &a_1}; /* Implicit FILLER */
315 static cob_field f_286 = {78, b_231 + 588, &a_1}; /* Implicit FILLER */
316 static cob_field f_287 = {1, b_231 + 666, &a_1}; /* Implicit FILLER */
317 static cob_field f_289 = {7, b_231 + 667, &a_1}; /* Implicit FILLER */
318 static cob_field f_290 = {16, b_231 + 674, &a_1}; /* Implicit FILLER */
319 static cob_field f_291 = {57, b_231 + 690, &a_1}; /* Implicit FILLER */
320 static cob_field f_293 = {80, b_231 + 747, &a_1}; /* Implicit FILLER */
321 static cob_field f_295 = {77, b_231 + 827, &a_1}; /* Implicit FILLER */
322 static cob_field f_296 = {68, b_231 + 904, &a_1}; /* Implicit FILLER */
323 static cob_field f_297 = {36, b_231 + 972, &a_1}; /* Implicit FILLER */
324 static cob_field f_299 = {2, b_231 + 1008, &a_1}; /* Implicit FILLER */
325 static cob_field f_300 = {2, b_231 + 1010, &a_1}; /* Implicit FILLER */
326 static cob_field f_301 = {3, b_231 + 1012, &a_1}; /* Implicit FILLER */
327 static cob_field f_302 = {5, b_231 + 1015, &a_1}; /* Implicit FILLER */
328 static cob_field f_303 = {3, b_231 + 1020, &a_1}; /* Implicit FILLER */
329 static cob_field f_305 = {5, b_231 + 1023, &a_1}; /* Implicit FILLER */
330 static cob_field f_306 = {3, b_231 + 1028, &a_1}; /* Implicit FILLER */
331 static cob_field f_308 = {10, b_231 + 1031, &a_1}; /* Implicit FILLER */
332 static cob_field f_309 = {10, b_231 + 1041, &a_1}; /* Implicit FILLER */
333 static cob_field f_310 = {12, b_231 + 1051, &a_1}; /* Implicit FILLER */
334 static cob_field f_311 = {14, b_231 + 1063, &a_1}; /* Implicit FILLER */
335 static cob_field f_313 = {66, b_231 + 1077, &a_1}; /* Implicit FILLER */
336 static cob_field f_314 = {66, b_231 + 1143, &a_1}; /* Implicit FILLER */
337 static cob_field f_316 = {2, b_231 + 1209, &a_1}; /* Implicit FILLER */
338 static cob_field f_317 = {2, b_231 + 1211, &a_1}; /* Implicit FILLER */
339 static cob_field f_318 = {2, b_231 + 1213, &a_1}; /* Implicit FILLER */
340 static cob_field f_319 = {2, b_231 + 1215, &a_1}; /* Implicit FILLER */
341 static cob_field f_320 = {2, b_231 + 1217, &a_1}; /* Implicit FILLER */
342 static cob_field f_321 = {2, b_231 + 1219, &a_1}; /* Implicit FILLER */
343 static cob_field f_322 = {2, b_231 + 1221, &a_1}; /* Implicit FILLER */
344 static cob_field f_323 = {2, b_231 + 1223, &a_1}; /* Implicit FILLER */
345 static cob_field f_324 = {2, b_231 + 1225, &a_1}; /* Implicit FILLER */
346 static cob_field f_326 = {1, b_231 + 1227, &a_1}; /* Implicit FILLER */
347 static cob_field f_327 = {1, b_231 + 1228, &a_1}; /* Implicit FILLER */
348 static cob_field f_328 = {1, b_231 + 1229, &a_1}; /* Implicit FILLER */
349 static cob_field f_329 = {1, b_231 + 1230, &a_1}; /* Implicit FILLER */
350 static cob_field f_330 = {1, b_231 + 1231, &a_1}; /* Implicit FILLER */
351 static cob_field f_331 = {1, b_231 + 1232, &a_1}; /* Implicit FILLER */
352 static cob_field f_332 = {1, b_231 + 1233, &a_1}; /* Implicit FILLER */
353 static cob_field f_333 = {1, b_231 + 1234, &a_1}; /* Implicit FILLER */
354 static cob_field f_334 = {1, b_231 + 1235, &a_1}; /* Implicit FILLER */
355 static cob_field f_336 = {26, b_231 + 1236, &a_1}; /* Implicit FILLER */
356 static cob_field f_337 = {26, b_231 + 1262, &a_1}; /* Implicit FILLER */
357 static cob_field f_338 = {16, b_231 + 1288, &a_1}; /* Implicit FILLER */
358 static cob_field f_339 = {3, b_231 + 1304, &a_1}; /* Implicit FILLER */
359 static cob_field f_340 = {26, b_231 + 1307, &a_1}; /* Implicit FILLER */
360 static cob_field f_341 = {27, b_231 + 1333, &a_1}; /* Implicit FILLER */
361 static cob_field f_342 = {26, b_231 + 1360, &a_1}; /* Implicit FILLER */
362 static cob_field f_343 = {26, b_231 + 1386, &a_1}; /* Implicit FILLER */
363 static cob_field f_344 = {26, b_231 + 1412, &a_1}; /* Implicit FILLER */
364 static cob_field f_345 = {26, b_231 + 1438, &a_1}; /* Implicit FILLER */
365 static cob_field f_347 = {7, b_231 + 1464, &a_1}; /* Implicit FILLER */
366 static cob_field f_348 = {7, b_231 + 1471, &a_1}; /* Implicit FILLER */
367 static cob_field f_350 = {10, b_231 + 1478, &a_1}; /* Implicit FILLER */
368 static cob_field f_352 = {76, b_231 + 1488, &a_1}; /* Implicit FILLER */
369 static cob_field f_353 = {76, b_231 + 1564, &a_1}; /* Implicit FILLER */
370 static cob_field f_354 = {76, b_231 + 1640, &a_1}; /* Implicit FILLER */
371 static cob_field f_355 = {76, b_231 + 1716, &a_1}; /* Implicit FILLER */
372 static cob_field f_356 = {4, b_356, &a_6}; /* COB-CRT-STATUS */
373 
374 /* End of fields */
375 
s_251
static cob_screen s_251
Definition: GCic.c.l1.h:134
f_256
static cob_field f_256
Definition: GCic.c.l1.h:285
f_244
static cob_field f_244
Definition: GCic.c.l1.h:273
a_2
static const cob_field_attr a_2
Definition: cobxref.c.h:15
s_288
static cob_screen s_288
Definition: GCic.c.l1.h:97
f_153
static cob_field f_153
Definition: GCic.c.l1.h:239
f_318
static cob_field f_318
Definition: GCic.c.l1.h:339
f_190
static cob_field f_190
Definition: GCic.c.l1.h:254
s_324
static cob_screen s_324
Definition: GCic.c.l1.h:61
f_170
static cob_field f_170
Definition: GCic.c.l1.h:250
f_330
static cob_field f_330
Definition: GCic.c.l1.h:350
f_332
static cob_field f_332
Definition: GCic.c.l1.h:352
h_F_COBC_OUTPUT_FILE
static cob_file * h_F_COBC_OUTPUT_FILE
Definition: GCic.c.l1.h:21
s_296
static cob_screen s_296
Definition: GCic.c.l1.h:89
s_287
static cob_screen s_287
Definition: GCic.c.l1.h:98
f_327
static cob_field f_327
Definition: GCic.c.l1.h:347
s_340
static cob_screen s_340
Definition: GCic.c.l1.h:45
s_294
static cob_screen s_294
Definition: GCic.c.l1.h:91
s_329
static cob_screen s_329
Definition: GCic.c.l1.h:56
s_306
static cob_screen s_306
Definition: GCic.c.l1.h:79
f_350
static cob_field f_350
Definition: GCic.c.l1.h:367
f_345
static cob_field f_345
Definition: GCic.c.l1.h:364
s_277
static cob_screen s_277
Definition: GCic.c.l1.h:108
s_345
static cob_screen s_345
Definition: GCic.c.l1.h:40
s_305
static cob_screen s_305
Definition: GCic.c.l1.h:80
s_332
static cob_screen s_332
Definition: GCic.c.l1.h:53
a_7
static const cob_field_attr a_7
Definition: cobxref.c.h:20
f_237
static cob_field f_237
Definition: GCic.c.l1.h:266
f_310
static cob_field f_310
Definition: GCic.c.l1.h:333
f_188
static cob_field f_188
Definition: GCic.c.l1.h:253
cob_frame
Definition: common.h:990
f_221
static cob_field f_221
Definition: GCic.c.l1.h:259
f_166
static cob_field f_166
Definition: GCic.c.l1.h:246
a_3
static const cob_field_attr a_3
Definition: cobxref.c.h:16
s_261
static cob_screen s_261
Definition: GCic.c.l1.h:124
s_346
static cob_screen s_346
Definition: GCic.c.l1.h:39
f_316
static cob_field f_316
Definition: GCic.c.l1.h:337
f_231
static cob_field f_231
Definition: GCic.c.l1.h:261
s_269
static cob_screen s_269
Definition: GCic.c.l1.h:116
s_308
static cob_screen s_308
Definition: GCic.c.l1.h:77
f_167
static cob_field f_167
Definition: GCic.c.l1.h:247
s_283
static cob_screen s_283
Definition: GCic.c.l1.h:102
s_313
static cob_screen s_313
Definition: GCic.c.l1.h:72
f_295
static cob_field f_295
Definition: GCic.c.l1.h:321
s_245
static cob_screen s_245
Definition: GCic.c.l1.h:140
f_161
static cob_field f_161
Definition: GCic.c.l1.h:243
f_142
static cob_field f_142
Definition: GCic.c.l1.h:228
f_301
static cob_field f_301
Definition: GCic.c.l1.h:326
s_271
static cob_screen s_271
Definition: GCic.c.l1.h:114
s_334
static cob_screen s_334
Definition: GCic.c.l1.h:51
s_350
static cob_screen s_350
Definition: GCic.c.l1.h:35
f_348
static cob_field f_348
Definition: GCic.c.l1.h:366
f_354
static cob_field f_354
Definition: GCic.c.l1.h:370
f_249
static cob_field f_249
Definition: GCic.c.l1.h:278
f_353
static cob_field f_353
Definition: GCic.c.l1.h:369
__attribute__
static cob_u8_t b_22[256] __attribute__((aligned))
f_164
static cob_field f_164
Definition: GCic.c.l1.h:244
f_24
static cob_field f_24
Definition: GCic.c.l1.h:218
s_268
static cob_screen s_268
Definition: GCic.c.l1.h:117
s_302
static cob_screen s_302
Definition: GCic.c.l1.h:83
f_271
static cob_field f_271
Definition: GCic.c.l1.h:300
__cob_module
Definition: common.h:1046
h_F_SOURCE_CODE_FILE
static cob_file * h_F_SOURCE_CODE_FILE
Definition: GCic.c.l1.h:25
s_307
static cob_screen s_307
Definition: GCic.c.l1.h:78
f_341
static cob_field f_341
Definition: GCic.c.l1.h:360
h_F_COBC_OUTPUT_FILE_status
static unsigned char h_F_COBC_OUTPUT_FILE_status[4]
Definition: GCic.c.l1.h:22
s_311
static cob_screen s_311
Definition: GCic.c.l1.h:74
cob_field
Definition: common.h:950
f_254
static cob_field f_254
Definition: GCic.c.l1.h:283
f_270
static cob_field f_270
Definition: GCic.c.l1.h:299
f_242
static cob_field f_242
Definition: GCic.c.l1.h:271
s_272
static cob_screen s_272
Definition: GCic.c.l1.h:113
s_352
static cob_screen s_352
Definition: GCic.c.l1.h:33
a_4
static const cob_field_attr a_4
Definition: cobxref.c.h:17
f_328
static cob_field f_328
Definition: GCic.c.l1.h:348
s_259
static cob_screen s_259
Definition: GCic.c.l1.h:126
f_299
static cob_field f_299
Definition: GCic.c.l1.h:324
f_152
static cob_field f_152
Definition: GCic.c.l1.h:238
f_284
static cob_field f_284
Definition: GCic.c.l1.h:313
s_316
static cob_screen s_316
Definition: GCic.c.l1.h:69
s_319
static cob_screen s_319
Definition: GCic.c.l1.h:66
s_341
static cob_screen s_341
Definition: GCic.c.l1.h:44
f_250
static cob_field f_250
Definition: GCic.c.l1.h:279
cob_glob_ptr
cob_global * cob_glob_ptr
Definition: GCic.c.l1.h:17
s_278
static cob_screen s_278
Definition: GCic.c.l1.h:107
f_253
static cob_field f_253
Definition: GCic.c.l1.h:282
f_266
static cob_field f_266
Definition: GCic.c.l1.h:295
f_257
static cob_field f_257
Definition: GCic.c.l1.h:286
f_169
static cob_field f_169
Definition: GCic.c.l1.h:249
f_236
static cob_field f_236
Definition: GCic.c.l1.h:265
f_302
static cob_field f_302
Definition: GCic.c.l1.h:327
s_265
static cob_screen s_265
Definition: GCic.c.l1.h:120
f_274
static cob_field f_274
Definition: GCic.c.l1.h:303
f_300
static cob_field f_300
Definition: GCic.c.l1.h:325
f_289
static cob_field f_289
Definition: GCic.c.l1.h:317
f_281
static cob_field f_281
Definition: GCic.c.l1.h:310
s_301
static cob_screen s_301
Definition: GCic.c.l1.h:84
s_239
static cob_screen s_239
Definition: GCic.c.l1.h:146
s_274
static cob_screen s_274
Definition: GCic.c.l1.h:111
f_268
static cob_field f_268
Definition: GCic.c.l1.h:297
f_309
static cob_field f_309
Definition: GCic.c.l1.h:332
f_291
static cob_field f_291
Definition: GCic.c.l1.h:319
s_262
static cob_screen s_262
Definition: GCic.c.l1.h:123
f_129
static cob_field f_129
Definition: GCic.c.l1.h:225
f_264
static cob_field f_264
Definition: GCic.c.l1.h:293
f_146
static cob_field f_146
Definition: GCic.c.l1.h:232
f_331
static cob_field f_331
Definition: GCic.c.l1.h:351
s_354
static cob_screen s_354
Definition: GCic.c.l1.h:31
f_339
static cob_field f_339
Definition: GCic.c.l1.h:358
s_241
static cob_screen s_241
Definition: GCic.c.l1.h:144
f_305
static cob_field f_305
Definition: GCic.c.l1.h:329
f_282
static cob_field f_282
Definition: GCic.c.l1.h:311
s_331
static cob_screen s_331
Definition: GCic.c.l1.h:54
f_155
static cob_field f_155
Definition: GCic.c.l1.h:241
cob_u8_t
#define cob_u8_t
Definition: common.h:27
f_263
static cob_field f_263
Definition: GCic.c.l1.h:292
f_157
static cob_field f_157
Definition: GCic.c.l1.h:242
s_250
static cob_screen s_250
Definition: GCic.c.l1.h:135
s_304
static cob_screen s_304
Definition: GCic.c.l1.h:81
f_279
static cob_field f_279
Definition: GCic.c.l1.h:308
f_234
static cob_field f_234
Definition: GCic.c.l1.h:263
f_165
static cob_field f_165
Definition: GCic.c.l1.h:245
s_326
static cob_screen s_326
Definition: GCic.c.l1.h:59
__cob_screen
Definition: common.h:1027
f_347
static cob_field f_347
Definition: GCic.c.l1.h:365
f_306
static cob_field f_306
Definition: GCic.c.l1.h:330
s_264
static cob_screen s_264
Definition: GCic.c.l1.h:121
initialized
static unsigned int initialized
Definition: GCic.c.l1.h:11
f_337
static cob_field f_337
Definition: GCic.c.l1.h:356
f_260
static cob_field f_260
Definition: GCic.c.l1.h:289
f_283
static cob_field f_283
Definition: GCic.c.l1.h:312
__cob_global
Definition: common.h:1186
f_154
static cob_field f_154
Definition: GCic.c.l1.h:240
s_339
static cob_screen s_339
Definition: GCic.c.l1.h:46
f_127
static cob_field f_127
Definition: GCic.c.l1.h:223
f_214
static cob_field f_214
Definition: GCic.c.l1.h:258
f_320
static cob_field f_320
Definition: GCic.c.l1.h:341
s_342
static cob_screen s_342
Definition: GCic.c.l1.h:43
f_148
static cob_field f_148
Definition: GCic.c.l1.h:234
f_149
static cob_field f_149
Definition: GCic.c.l1.h:235
f_248
static cob_field f_248
Definition: GCic.c.l1.h:277
s_232
static cob_screen s_232
Definition: GCic.c.l1.h:153
s_238
static cob_screen s_238
Definition: GCic.c.l1.h:147
s_299
static cob_screen s_299
Definition: GCic.c.l1.h:86
f_150
static cob_field f_150
Definition: GCic.c.l1.h:236
s_244
static cob_screen s_244
Definition: GCic.c.l1.h:141
call_CHECKSRC
static cob_call_union call_CHECKSRC
Definition: GCic.c.l1.h:159
a_6
static const cob_field_attr a_6
Definition: cobxref.c.h:19
s_297
static cob_screen s_297
Definition: GCic.c.l1.h:88
f_322
static cob_field f_322
Definition: GCic.c.l1.h:343
s_279
static cob_screen s_279
Definition: GCic.c.l1.h:106
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
s_253
static cob_screen s_253
Definition: GCic.c.l1.h:132
f_303
static cob_field f_303
Definition: GCic.c.l1.h:328
s_330
static cob_screen s_330
Definition: GCic.c.l1.h:55
a_1
static const cob_field_attr a_1
Definition: cobxref.c.h:14
f_194
static cob_field f_194
Definition: GCic.c.l1.h:257
s_333
static cob_screen s_333
Definition: GCic.c.l1.h:52
f_230
static cob_field f_230
Definition: GCic.c.l1.h:260
f_296
static cob_field f_296
Definition: GCic.c.l1.h:322
s_231
static cob_screen s_231
Definition: GCic.c.l1.h:154
s_351
static cob_screen s_351
Definition: GCic.c.l1.h:34
s_355
static cob_screen s_355
Definition: GCic.c.l1.h:30
s_325
static cob_screen s_325
Definition: GCic.c.l1.h:60
s_300
static cob_screen s_300
Definition: GCic.c.l1.h:85
f_342
static cob_field f_342
Definition: GCic.c.l1.h:361
h_F_SOURCE_CODE_FILE_status
static unsigned char h_F_SOURCE_CODE_FILE_status[4]
Definition: GCic.c.l1.h:26
s_280
static cob_screen s_280
Definition: GCic.c.l1.h:105
f_313
static cob_field f_313
Definition: GCic.c.l1.h:335
s_236
static cob_screen s_236
Definition: GCic.c.l1.h:149
f_297
static cob_field f_297
Definition: GCic.c.l1.h:323
f_352
static cob_field f_352
Definition: GCic.c.l1.h:368
s_233
static cob_screen s_233
Definition: GCic.c.l1.h:152
s_237
static cob_screen s_237
Definition: GCic.c.l1.h:148
f_238
static cob_field f_238
Definition: GCic.c.l1.h:267
s_249
static cob_screen s_249
Definition: GCic.c.l1.h:136
s_273
static cob_screen s_273
Definition: GCic.c.l1.h:112
f_267
static cob_field f_267
Definition: GCic.c.l1.h:296
s_344
static cob_screen s_344
Definition: GCic.c.l1.h:41
f_286
static cob_field f_286
Definition: GCic.c.l1.h:315
s_338
static cob_screen s_338
Definition: GCic.c.l1.h:47
frame_stack
struct cob_frame frame_stack[255]
Definition: GCic.c.l1.h:172
f_343
static cob_field f_343
Definition: GCic.c.l1.h:362
frame_overflow
struct cob_frame * frame_overflow
Definition: GCic.c.l1.h:170
f_324
static cob_field f_324
Definition: GCic.c.l1.h:345
s_290
static cob_screen s_290
Definition: GCic.c.l1.h:95
f_340
static cob_field f_340
Definition: GCic.c.l1.h:359
s_343
static cob_screen s_343
Definition: GCic.c.l1.h:42
s_328
static cob_screen s_328
Definition: GCic.c.l1.h:57
s_348
static cob_screen s_348
Definition: GCic.c.l1.h:37
f_334
static cob_field f_334
Definition: GCic.c.l1.h:354
f_319
static cob_field f_319
Definition: GCic.c.l1.h:340
s_285
static cob_screen s_285
Definition: GCic.c.l1.h:100
f_321
static cob_field f_321
Definition: GCic.c.l1.h:342
a_5
static const cob_field_attr a_5
Definition: cobxref.c.h:18
f_290
static cob_field f_290
Definition: GCic.c.l1.h:318
f_171
static cob_field f_171
Definition: GCic.c.l1.h:251
s_255
static cob_screen s_255
Definition: GCic.c.l1.h:130
s_292
static cob_screen s_292
Definition: GCic.c.l1.h:93
s_303
static cob_screen s_303
Definition: GCic.c.l1.h:82
f_175
static cob_field f_175
Definition: GCic.c.l1.h:252
s_270
static cob_screen s_270
Definition: GCic.c.l1.h:115
s_284
static cob_screen s_284
Definition: GCic.c.l1.h:101
f_261
static cob_field f_261
Definition: GCic.c.l1.h:290
s_337
static cob_screen s_337
Definition: GCic.c.l1.h:48
s_315
static cob_screen s_315
Definition: GCic.c.l1.h:70
f_258
static cob_field f_258
Definition: GCic.c.l1.h:287
f_338
static cob_field f_338
Definition: GCic.c.l1.h:357
s_254
static cob_screen s_254
Definition: GCic.c.l1.h:131
f_23
static cob_field f_23
Definition: GCic.c.l1.h:217
s_242
static cob_screen s_242
Definition: GCic.c.l1.h:143
s_230
static cob_screen s_230
Definition: GCic.c.l1.h:155
f_147
static cob_field f_147
Definition: GCic.c.l1.h:233
b_1
static int b_1
Definition: GCic.c.l1.h:176
f_333
static cob_field f_333
Definition: GCic.c.l1.h:353
f_323
static cob_field f_323
Definition: GCic.c.l1.h:344
f_115
static cob_field f_115
Definition: GCic.c.l1.h:221
f_280
static cob_field f_280
Definition: GCic.c.l1.h:309
f_240
static cob_field f_240
Definition: GCic.c.l1.h:269
f_275
static cob_field f_275
Definition: GCic.c.l1.h:304
f0
cob_field f0
Definition: GCic.c.l1.h:163
f_22
static cob_field f_22
Definition: GCic.c.l1.h:216
f_114
static cob_field f_114
Definition: GCic.c.l1.h:220
frame_ptr
struct cob_frame * frame_ptr
Definition: GCic.c.l1.h:171
f_233
static cob_field f_233
Definition: GCic.c.l1.h:262
f_259
static cob_field f_259
Definition: GCic.c.l1.h:288
f_151
static cob_field f_151
Definition: GCic.c.l1.h:237
f_314
static cob_field f_314
Definition: GCic.c.l1.h:336
f_255
static cob_field f_255
Definition: GCic.c.l1.h:284
call_LISTING
static cob_call_union call_LISTING
Definition: GCic.c.l1.h:160
f_144
static cob_field f_144
Definition: GCic.c.l1.h:230
s_281
static cob_screen s_281
Definition: GCic.c.l1.h:104
s_335
static cob_screen s_335
Definition: GCic.c.l1.h:50
s_322
static cob_screen s_322
Definition: GCic.c.l1.h:63
f_308
static cob_field f_308
Definition: GCic.c.l1.h:331
f_251
static cob_field f_251
Definition: GCic.c.l1.h:280
s_243
static cob_screen s_243
Definition: GCic.c.l1.h:142
s_327
static cob_screen s_327
Definition: GCic.c.l1.h:58
f_140
static cob_field f_140
Definition: GCic.c.l1.h:226
s_298
static cob_screen s_298
Definition: GCic.c.l1.h:87
f_243
static cob_field f_243
Definition: GCic.c.l1.h:272
s_276
static cob_screen s_276
Definition: GCic.c.l1.h:109
f_356
static cob_field f_356
Definition: GCic.c.l1.h:372
s_267
static cob_screen s_267
Definition: GCic.c.l1.h:118
f_113
static cob_field f_113
Definition: GCic.c.l1.h:219
f_336
static cob_field f_336
Definition: GCic.c.l1.h:355
f_269
static cob_field f_269
Definition: GCic.c.l1.h:298
s_257
static cob_screen s_257
Definition: GCic.c.l1.h:128
s_247
static cob_screen s_247
Definition: GCic.c.l1.h:138
f_239
static cob_field f_239
Definition: GCic.c.l1.h:268
s_347
static cob_screen s_347
Definition: GCic.c.l1.h:38
s_263
static cob_screen s_263
Definition: GCic.c.l1.h:122
f_278
static cob_field f_278
Definition: GCic.c.l1.h:307
f_265
static cob_field f_265
Definition: GCic.c.l1.h:294
s_248
static cob_screen s_248
Definition: GCic.c.l1.h:137
f_247
static cob_field f_247
Definition: GCic.c.l1.h:276
s_282
static cob_screen s_282
Definition: GCic.c.l1.h:103
f_141
static cob_field f_141
Definition: GCic.c.l1.h:227
f_246
static cob_field f_246
Definition: GCic.c.l1.h:275
s_293
static cob_screen s_293
Definition: GCic.c.l1.h:92
f_285
static cob_field f_285
Definition: GCic.c.l1.h:314
s_295
static cob_screen s_295
Definition: GCic.c.l1.h:90
f_329
static cob_field f_329
Definition: GCic.c.l1.h:349
s_349
static cob_screen s_349
Definition: GCic.c.l1.h:36
s_314
static cob_screen s_314
Definition: GCic.c.l1.h:71
s_320
static cob_screen s_320
Definition: GCic.c.l1.h:65
cob_file
Definition: common.h:1111
s_260
static cob_screen s_260
Definition: GCic.c.l1.h:125
f_277
static cob_field f_277
Definition: GCic.c.l1.h:306
s_309
static cob_screen s_309
Definition: GCic.c.l1.h:76
f_126
static cob_field f_126
Definition: GCic.c.l1.h:222
s_275
static cob_screen s_275
Definition: GCic.c.l1.h:110
f_21
static cob_field f_21
Definition: GCic.c.l1.h:215
f_273
static cob_field f_273
Definition: GCic.c.l1.h:302
f_235
static cob_field f_235
Definition: GCic.c.l1.h:264
f_192
static cob_field f_192
Definition: GCic.c.l1.h:256
cob_procedure_params
cob_field * cob_procedure_params[6]
Definition: GCic.c.l1.h:167
s_289
static cob_screen s_289
Definition: GCic.c.l1.h:96
s_310
static cob_screen s_310
Definition: GCic.c.l1.h:75
f_143
static cob_field f_143
Definition: GCic.c.l1.h:229
s_317
static cob_screen s_317
Definition: GCic.c.l1.h:68
s_312
static cob_screen s_312
Definition: GCic.c.l1.h:73
f_311
static cob_field f_311
Definition: GCic.c.l1.h:334
f_145
static cob_field f_145
Definition: GCic.c.l1.h:231
f_191
static cob_field f_191
Definition: GCic.c.l1.h:255
f_344
static cob_field f_344
Definition: GCic.c.l1.h:363
s_318
static cob_screen s_318
Definition: GCic.c.l1.h:67
cob_call_union
Definition: common.h:1005
f_262
static cob_field f_262
Definition: GCic.c.l1.h:291
f_245
static cob_field f_245
Definition: GCic.c.l1.h:274
f_241
static cob_field f_241
Definition: GCic.c.l1.h:270
f_355
static cob_field f_355
Definition: GCic.c.l1.h:371
f_287
static cob_field f_287
Definition: GCic.c.l1.h:316
s_234
static cob_screen s_234
Definition: GCic.c.l1.h:151
s_256
static cob_screen s_256
Definition: GCic.c.l1.h:129
f_326
static cob_field f_326
Definition: GCic.c.l1.h:346
s_286
static cob_screen s_286
Definition: GCic.c.l1.h:99
f_272
static cob_field f_272
Definition: GCic.c.l1.h:301
s_258
static cob_screen s_258
Definition: GCic.c.l1.h:127
s_240
static cob_screen s_240
Definition: GCic.c.l1.h:145
f_276
static cob_field f_276
Definition: GCic.c.l1.h:305
s_321
static cob_screen s_321
Definition: GCic.c.l1.h:64
f_128
static cob_field f_128
Definition: GCic.c.l1.h:224
s_266
static cob_screen s_266
Definition: GCic.c.l1.h:119
s_336
static cob_screen s_336
Definition: GCic.c.l1.h:49
f_252
static cob_field f_252
Definition: GCic.c.l1.h:281
f_317
static cob_field f_317
Definition: GCic.c.l1.h:338
f_168
static cob_field f_168
Definition: GCic.c.l1.h:248
s_353
static cob_screen s_353
Definition: GCic.c.l1.h:32
s_252
static cob_screen s_252
Definition: GCic.c.l1.h:133
s_291
static cob_screen s_291
Definition: GCic.c.l1.h:94
s_235
static cob_screen s_235
Definition: GCic.c.l1.h:150
f_293
static cob_field f_293
Definition: GCic.c.l1.h:320
s_246
static cob_screen s_246
Definition: GCic.c.l1.h:139
module
static cob_module * module
Definition: GCic.c.l1.h:14
s_323
static cob_screen s_323
Definition: GCic.c.l1.h:62