|
OpenCOBOL 1.1pre-rel
|
|
OpenCOBOL 1.1pre-rel
|
00001 /* Generated by cobc 1.1.0 */ 00002 /* Generated from OCic.cbl */ 00003 /* Generated at May 01 2011 23:10:45 EDT */ 00004 /* OpenCOBOL build date May 01 2011 07:48:58 */ 00005 /* OpenCOBOL package date Feb 06 2009 10:30:55 CET */ 00006 /* Compile command cobc -v -x -o ocic --save-temps=OCic/ OCic.cbl */ 00007 00008 /* File Bat-File */ 00009 static cob_file *h_BAT_FILE = NULL; 00010 static unsigned char h_BAT_FILE_status[4]; 00011 /* File Cobc-Output */ 00012 static cob_file *h_COBC_OUTPUT = NULL; 00013 static unsigned char h_COBC_OUTPUT_status[4]; 00014 /* File Source-Code */ 00015 static cob_file *h_SOURCE_CODE = NULL; 00016 static unsigned char h_SOURCE_CODE_status[4]; 00017 00018 /* Screens */ 00019 00020 static cob_screen s_351 = {NULL, NULL, &f_351, NULL, &c_1, &c_2, &c_3, &c_4, 1, 0, 2625552}; 00021 static cob_screen s_350 = {&s_351, NULL, &f_350, NULL, &c_5, &c_2, &c_3, &c_4, 1, 0, 2625552}; 00022 static cob_screen s_349 = {NULL, &s_350, NULL, NULL, NULL, NULL, &c_3, &c_4, 0, 0, 4112}; 00023 static cob_screen s_348 = {NULL, NULL, NULL, &c_6, &c_7, &c_8, &c_9, &c_4, 2, 0, 8208}; 00024 static cob_screen s_347 = {&s_348, NULL, NULL, &c_10, &c_11, &c_8, &c_9, &c_4, 2, 0, 8208}; 00025 static cob_screen s_346 = {&s_347, NULL, NULL, &c_12, &c_13, &c_8, &c_9, &c_4, 2, 0, 8208}; 00026 static cob_screen s_345 = {&s_346, NULL, NULL, &c_14, &c_15, &c_8, &c_9, &c_4, 2, 0, 8208}; 00027 static cob_screen s_344 = {&s_345, NULL, NULL, &c_16, &c_17, &c_8, &c_9, &c_4, 2, 0, 8208}; 00028 static cob_screen s_343 = {&s_344, NULL, NULL, &c_18, &c_19, &c_8, &c_9, &c_4, 2, 0, 8208}; 00029 static cob_screen s_342 = {&s_343, NULL, NULL, &c_20, &c_21, &c_8, &c_9, &c_4, 2, 0, 8208}; 00030 static cob_screen s_341 = {&s_349, &s_342, NULL, NULL, NULL, NULL, &c_9, &c_4, 0, 0, 8208}; 00031 static cob_screen s_340 = {NULL, NULL, &f_340, NULL, &c_7, &c_22, &c_23, &c_4, 1, 0, 4112}; 00032 static cob_screen s_339 = {&s_340, NULL, &f_339, NULL, &c_11, &c_22, &c_23, &c_4, 1, 0, 4112}; 00033 static cob_screen s_338 = {&s_339, NULL, &f_338, NULL, &c_13, &c_22, &c_23, &c_4, 1, 0, 4112}; 00034 static cob_screen s_337 = {&s_338, NULL, &f_337, NULL, &c_15, &c_22, &c_23, &c_4, 1, 0, 4112}; 00035 static cob_screen s_336 = {&s_337, NULL, &f_336, NULL, &c_17, &c_22, &c_23, &c_4, 1, 0, 4112}; 00036 static cob_screen s_335 = {&s_336, NULL, &f_335, NULL, &c_19, &c_22, &c_23, &c_4, 1, 0, 4112}; 00037 static cob_screen s_334 = {&s_335, NULL, &f_334, NULL, &c_21, &c_22, &c_23, &c_4, 1, 0, 4112}; 00038 static cob_screen s_333 = {&s_341, &s_334, NULL, NULL, NULL, NULL, &c_23, &c_4, 0, 0, 4112}; 00039 static cob_screen s_332 = {NULL, NULL, NULL, &c_24, &c_7, &c_25, &c_3, &c_4, 2, 0, 4112}; 00040 static cob_screen s_331 = {&s_332, NULL, NULL, &c_26, &c_11, &c_25, &c_3, &c_4, 2, 0, 4112}; 00041 static cob_screen s_330 = {&s_331, NULL, NULL, &c_27, &c_13, &c_25, &c_3, &c_4, 2, 0, 4112}; 00042 static cob_screen s_329 = {&s_330, NULL, NULL, &c_28, &c_15, &c_25, &c_3, &c_4, 2, 0, 4112}; 00043 static cob_screen s_328 = {&s_329, NULL, NULL, &c_29, &c_17, &c_25, &c_3, &c_4, 2, 0, 4112}; 00044 static cob_screen s_327 = {&s_328, NULL, NULL, &c_30, &c_19, &c_25, &c_3, &c_4, 2, 0, 4112}; 00045 static cob_screen s_326 = {&s_327, NULL, NULL, &c_31, &c_21, &c_25, &c_3, &c_4, 2, 0, 4112}; 00046 static cob_screen s_325 = {&s_333, &s_326, NULL, NULL, NULL, NULL, &c_3, &c_4, 0, 0, 4112}; 00047 static cob_screen s_324 = {NULL, NULL, NULL, &c_32, &c_19, &c_33, &c_9, &c_4, 2, 0, 8208}; 00048 static cob_screen s_323 = {&s_324, NULL, NULL, &c_34, &c_21, &c_33, &c_9, &c_4, 2, 0, 8208}; 00049 static cob_screen s_322 = {&s_323, NULL, NULL, &c_35, &c_7, &c_21, &c_9, &c_4, 2, 0, 8208}; 00050 static cob_screen s_321 = {&s_322, NULL, NULL, &c_36, &c_11, &c_21, &c_9, &c_4, 2, 0, 8208}; 00051 static cob_screen s_320 = {&s_321, NULL, NULL, &c_37, &c_13, &c_21, &c_9, &c_4, 2, 0, 8208}; 00052 static cob_screen s_319 = {&s_320, NULL, NULL, &c_38, &c_15, &c_21, &c_9, &c_4, 2, 0, 8208}; 00053 static cob_screen s_318 = {&s_319, NULL, NULL, &c_39, &c_17, &c_21, &c_9, &c_4, 2, 0, 8208}; 00054 static cob_screen s_317 = {&s_318, NULL, NULL, &c_40, &c_19, &c_21, &c_9, &c_4, 2, 0, 8208}; 00055 static cob_screen s_316 = {&s_317, NULL, NULL, &c_41, &c_21, &c_21, &c_9, &c_4, 2, 0, 8208}; 00056 static cob_screen s_315 = {&s_325, &s_316, NULL, NULL, NULL, NULL, &c_9, &c_4, 0, 0, 8208}; 00057 static cob_screen s_314 = {NULL, NULL, &f_314, NULL, &c_19, &c_42, &c_23, &c_4, 1, 0, 4112}; 00058 static cob_screen s_313 = {&s_314, NULL, &f_313, NULL, &c_21, &c_42, &c_23, &c_4, 1, 0, 4112}; 00059 static cob_screen s_312 = {&s_313, NULL, &f_312, NULL, &c_7, &c_43, &c_23, &c_4, 1, 0, 4112}; 00060 static cob_screen s_311 = {&s_312, NULL, &f_311, NULL, &c_11, &c_43, &c_23, &c_4, 1, 0, 4112}; 00061 static cob_screen s_310 = {&s_311, NULL, &f_310, NULL, &c_13, &c_43, &c_23, &c_4, 1, 0, 4112}; 00062 static cob_screen s_309 = {&s_310, NULL, &f_309, NULL, &c_15, &c_43, &c_23, &c_4, 1, 0, 4112}; 00063 static cob_screen s_308 = {&s_309, NULL, &f_308, NULL, &c_17, &c_43, &c_23, &c_4, 1, 0, 4112}; 00064 static cob_screen s_307 = {&s_308, NULL, &f_307, NULL, &c_19, &c_43, &c_23, &c_4, 1, 0, 4112}; 00065 static cob_screen s_306 = {&s_307, NULL, &f_306, NULL, &c_21, &c_43, &c_23, &c_4, 1, 0, 4112}; 00066 static cob_screen s_305 = {&s_315, &s_306, NULL, NULL, NULL, NULL, &c_23, &c_4, 0, 0, 4112}; 00067 static cob_screen s_304 = {NULL, NULL, NULL, &c_44, &c_19, &c_45, &c_3, &c_4, 2, 0, 4112}; 00068 static cob_screen s_303 = {&s_304, NULL, NULL, &c_46, &c_21, &c_45, &c_3, &c_4, 2, 0, 4112}; 00069 static cob_screen s_302 = {&s_303, NULL, NULL, &c_47, &c_7, &c_2, &c_3, &c_4, 2, 0, 4112}; 00070 static cob_screen s_301 = {&s_302, NULL, NULL, &c_48, &c_11, &c_2, &c_3, &c_4, 2, 0, 4112}; 00071 static cob_screen s_300 = {&s_301, NULL, NULL, &c_49, &c_13, &c_2, &c_3, &c_4, 2, 0, 4112}; 00072 static cob_screen s_299 = {&s_300, NULL, NULL, &c_50, &c_15, &c_2, &c_3, &c_4, 2, 0, 4112}; 00073 static cob_screen s_298 = {&s_299, NULL, NULL, &c_51, &c_17, &c_2, &c_3, &c_4, 2, 0, 4112}; 00074 static cob_screen s_297 = {&s_298, NULL, NULL, &c_52, &c_19, &c_2, &c_3, &c_4, 2, 0, 4112}; 00075 static cob_screen s_296 = {&s_297, NULL, NULL, &c_53, &c_21, &c_2, &c_3, &c_4, 2, 0, 4112}; 00076 static cob_screen s_295 = {&s_305, &s_296, NULL, NULL, NULL, NULL, &c_3, &c_4, 0, 0, 4112}; 00077 static cob_screen s_294 = {NULL, NULL, &f_294, NULL, &c_54, &c_11, &c_3, &c_4, 1, 0, 4112}; 00078 static cob_screen s_293 = {&s_294, NULL, &f_293, NULL, &c_2, &c_11, &c_3, &c_4, 1, 0, 4112}; 00079 static cob_screen s_292 = {&s_293, NULL, &f_292, NULL, &c_55, &c_11, &c_3, &c_4, 1, 0, 4112}; 00080 static cob_screen s_291 = {&s_295, &s_292, NULL, NULL, NULL, NULL, &c_3, &c_4, 0, 0, 4112}; 00081 static cob_screen s_290 = {NULL, NULL, NULL, &c_56, &c_54, &c_25, &c_9, &c_4, 2, 0, 8208}; 00082 static cob_screen s_289 = {&s_290, NULL, NULL, &c_57, &c_2, &c_25, &c_9, &c_4, 2, 0, 8208}; 00083 static cob_screen s_288 = {&s_289, NULL, NULL, &c_58, &c_55, &c_25, &c_9, &c_4, 2, 0, 8208}; 00084 static cob_screen s_287 = {&s_288, NULL, NULL, &c_59, &c_54, &c_2, &c_9, &c_4, 2, 0, 8208}; 00085 static cob_screen s_286 = {&s_287, NULL, NULL, &c_60, &c_2, &c_2, &c_9, &c_4, 2, 0, 8208}; 00086 static cob_screen s_285 = {&s_286, NULL, NULL, &c_61, &c_55, &c_2, &c_9, &c_4, 2, 0, 8208}; 00087 static cob_screen s_284 = {&s_291, &s_285, NULL, NULL, NULL, NULL, &c_9, &c_4, 0, 0, 8208}; 00088 static cob_screen s_283 = {NULL, NULL, NULL, &c_62, &c_63, &c_2, &c_9, &c_4, 2, 0, 4112}; 00089 static cob_screen s_282 = {&s_283, NULL, NULL, &c_64, &c_65, &c_2, &c_9, &c_4, 2, 0, 4112}; 00090 static cob_screen s_281 = {&s_282, NULL, NULL, &c_66, NULL, &c_25, &c_9, &c_4, 2, 0, 4112}; 00091 static cob_screen s_280 = {&s_281, NULL, NULL, &c_67, &c_43, &c_2, &c_9, &c_4, 2, 0, 4112}; 00092 static cob_screen s_279 = {&s_284, &s_280, NULL, NULL, NULL, NULL, &c_9, &c_4, 0, 0, 4112}; 00093 static cob_screen s_278 = {NULL, NULL, &f_278, NULL, &c_68, &c_69, &c_3, &c_70, 1, 0, 4368}; 00094 static cob_screen s_277 = {&s_278, NULL, NULL, &c_71, NULL, NULL, &c_3, &c_70, 2, 0, 4368}; 00095 static cob_screen s_276 = {&s_277, NULL, &f_276, NULL, NULL, NULL, &c_3, &c_70, 1, 0, 4368}; 00096 static cob_screen s_275 = {&s_276, NULL, NULL, &c_72, &c_69, &c_69, &c_3, &c_70, 2, 0, 4368}; 00097 static cob_screen s_274 = {&s_279, &s_275, NULL, NULL, NULL, NULL, &c_3, &c_70, 0, 0, 4368}; 00098 static cob_screen s_273 = {NULL, NULL, NULL, &c_73, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00099 static cob_screen s_272 = {&s_273, NULL, &f_272, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00100 static cob_screen s_271 = {&s_272, NULL, NULL, &c_75, &c_76, &c_77, &c_70, &c_4, 2, 0, 4112}; 00101 static cob_screen s_270 = {&s_271, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00102 static cob_screen s_269 = {&s_270, NULL, NULL, &c_78, &c_1, &c_77, &c_70, &c_4, 2, 0, 4112}; 00103 static cob_screen s_268 = {&s_269, NULL, NULL, &c_79, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00104 static cob_screen s_267 = {&s_268, NULL, &f_267, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00105 static cob_screen s_266 = {&s_267, NULL, NULL, &c_80, &c_81, &c_77, &c_70, &c_4, 2, 0, 4112}; 00106 static cob_screen s_265 = {&s_266, NULL, NULL, &c_73, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00107 static cob_screen s_264 = {&s_265, NULL, &f_264, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00108 static cob_screen s_263 = {&s_264, NULL, NULL, &c_75, &c_82, &c_77, &c_70, &c_4, 2, 0, 4112}; 00109 static cob_screen s_262 = {&s_263, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00110 static cob_screen s_261 = {&s_262, NULL, NULL, &c_78, &c_5, &c_77, &c_70, &c_4, 2, 0, 4112}; 00111 static cob_screen s_260 = {&s_261, NULL, NULL, &c_79, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00112 static cob_screen s_259 = {&s_260, NULL, &f_259, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00113 static cob_screen s_258 = {&s_259, NULL, NULL, &c_80, &c_83, &c_77, &c_70, &c_4, 2, 0, 4112}; 00114 static cob_screen s_257 = {&s_258, NULL, NULL, &c_73, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00115 static cob_screen s_256 = {&s_257, NULL, &f_256, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00116 static cob_screen s_255 = {&s_256, NULL, NULL, &c_84, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00117 static cob_screen s_254 = {&s_255, NULL, &f_254, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00118 static cob_screen s_253 = {&s_254, NULL, NULL, &c_75, &c_86, &c_77, &c_70, &c_4, 2, 0, 4112}; 00119 static cob_screen s_252 = {&s_253, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00120 static cob_screen s_251 = {&s_252, NULL, NULL, &c_78, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00121 static cob_screen s_250 = {&s_251, NULL, NULL, &c_78, &c_7, &c_77, &c_70, &c_4, 2, 0, 4112}; 00122 static cob_screen s_249 = {&s_250, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00123 static cob_screen s_248 = {&s_249, NULL, NULL, &c_78, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00124 static cob_screen s_247 = {&s_248, NULL, NULL, &c_78, &c_11, &c_77, &c_70, &c_4, 2, 0, 4112}; 00125 static cob_screen s_246 = {&s_247, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00126 static cob_screen s_245 = {&s_246, NULL, NULL, &c_78, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00127 static cob_screen s_244 = {&s_245, NULL, NULL, &c_78, &c_13, &c_77, &c_70, &c_4, 2, 0, 4112}; 00128 static cob_screen s_243 = {&s_244, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00129 static cob_screen s_242 = {&s_243, NULL, NULL, &c_78, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00130 static cob_screen s_241 = {&s_242, NULL, NULL, &c_78, &c_15, &c_77, &c_70, &c_4, 2, 0, 4112}; 00131 static cob_screen s_240 = {&s_241, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00132 static cob_screen s_239 = {&s_240, NULL, NULL, &c_78, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00133 static cob_screen s_238 = {&s_239, NULL, NULL, &c_78, &c_17, &c_77, &c_70, &c_4, 2, 0, 4112}; 00134 static cob_screen s_237 = {&s_238, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00135 static cob_screen s_236 = {&s_237, NULL, NULL, &c_78, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00136 static cob_screen s_235 = {&s_236, NULL, NULL, &c_78, &c_19, &c_77, &c_70, &c_4, 2, 0, 4112}; 00137 static cob_screen s_234 = {&s_235, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00138 static cob_screen s_233 = {&s_234, NULL, NULL, &c_78, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00139 static cob_screen s_232 = {&s_233, NULL, NULL, &c_78, &c_21, &c_77, &c_70, &c_4, 2, 0, 4112}; 00140 static cob_screen s_231 = {&s_232, NULL, NULL, &c_79, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00141 static cob_screen s_230 = {&s_231, NULL, &f_230, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00142 static cob_screen s_229 = {&s_230, NULL, NULL, &c_87, NULL, &c_85, &c_70, &c_4, 2, 0, 4112}; 00143 static cob_screen s_228 = {&s_229, NULL, &f_228, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00144 static cob_screen s_227 = {&s_228, NULL, NULL, &c_80, &c_88, &c_77, &c_70, &c_4, 2, 0, 4112}; 00145 static cob_screen s_226 = {&s_227, NULL, NULL, &c_73, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00146 static cob_screen s_225 = {&s_226, NULL, &f_225, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00147 static cob_screen s_224 = {&s_225, NULL, NULL, &c_75, &c_89, &c_77, &c_70, &c_4, 2, 0, 4112}; 00148 static cob_screen s_223 = {&s_224, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00149 static cob_screen s_222 = {&s_223, NULL, NULL, &c_78, &c_54, &c_77, &c_70, &c_4, 2, 0, 4112}; 00150 static cob_screen s_221 = {&s_222, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00151 static cob_screen s_220 = {&s_221, NULL, NULL, &c_78, &c_2, &c_77, &c_70, &c_4, 2, 0, 4112}; 00152 static cob_screen s_219 = {&s_220, NULL, NULL, &c_78, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00153 static cob_screen s_218 = {&s_219, NULL, NULL, &c_78, &c_55, &c_77, &c_70, &c_4, 2, 0, 4112}; 00154 static cob_screen s_217 = {&s_218, NULL, NULL, &c_79, NULL, &c_74, &c_70, &c_4, 2, 0, 4112}; 00155 static cob_screen s_216 = {&s_217, NULL, &f_216, NULL, NULL, NULL, &c_70, &c_4, 1, 0, 4112}; 00156 static cob_screen s_215 = {&s_216, NULL, NULL, &c_80, &c_77, &c_77, &c_70, &c_4, 2, 0, 4112}; 00157 static cob_screen s_214 = {&s_274, &s_215, NULL, NULL, NULL, NULL, &c_70, &c_4, 0, 0, 4112}; 00158 static cob_screen s_213 = {NULL, &s_214, NULL, NULL, NULL, NULL, &c_3, &c_4, 0, 0, 16}; 00159 static cob_screen s_212 = {&s_213, NULL, &f_212, NULL, &c_70, &c_70, NULL, NULL, 1, 0, 128}; 00160 00161 00162 /* Define perform frame stack */ 00163 00164 struct cob_frame *frame_ptr; 00165 struct cob_frame frame_stack[255]; 00166 00167 00168 /* Call pointers */ 00169 static union cob_call_union call_LISTING = { NULL }; 00170 static union cob_call_union call_GETOSTYPE = { NULL }; 00171 static union cob_call_union call_CHECKSOURCE = { NULL }; 00172 00173 00174 /* Local cob_field items */ 00175 cob_field f0; 00176
1.7.4
