|
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 /* Frame stack declaration */ 00009 struct cob_frame { 00010 int perform_through; 00011 void *return_address; 00012 }; 00013 00014 /* Union for CALL statement */ 00015 union cob_call_union { 00016 void *(*funcptr)(); 00017 int (*funcint)(); 00018 void *func_void; 00019 }; 00020 union cob_call_union cob_unifunc; 00021 00022 00023 /* Storage */ 00024 00025 /* PROGRAM-ID : OCic */ 00026 static unsigned char b_1[4] __attribute__((aligned)); /* RETURN-CODE */ 00027 static unsigned char b_6[2048] __attribute__((aligned)); /* Bat-File_record */ 00028 static unsigned char b_8[256] __attribute__((aligned)); /* Cobc-Output_record */ 00029 static unsigned char b_10[80] __attribute__((aligned)); /* Source-Code_record */ 00030 static unsigned char b_92[256] __attribute__((aligned)); /* Bat-File-Name */ 00031 static unsigned char b_93[512] __attribute__((aligned)); /* Cmd */ 00032 static unsigned char b_94[256] __attribute__((aligned)); /* Cobc-Cmd */ 00033 static unsigned char b_95[256] __attribute__((aligned)); /* Cobc-Output-File */ 00034 static unsigned char b_96[256] __attribute__((aligned)); /* Command-Line-Args */ 00035 static unsigned char b_97[12] __attribute__((aligned)); /* Config-File */ 00036 static unsigned char b_98[28] __attribute__((aligned)); /* Config-Keys */ 00037 static unsigned char b_106[1] __attribute__((aligned)); /* Dir-Char */ 00038 static unsigned char b_107[1] __attribute__((aligned)); /* Dummy */ 00039 static unsigned char b_108[256] __attribute__((aligned)); /* Env-TEMP */ 00040 static unsigned char b_109[256] __attribute__((aligned)); /* File-Name */ 00041 static unsigned char b_111[51] __attribute__((aligned)); /* File-Status-Message */ 00042 static unsigned char b_116[8] __attribute__((aligned)); /* Flags */ 00043 static unsigned char b_143[80] __attribute__((aligned)); /* Horizontal-Line */ 00044 static unsigned char b_144[4] __attribute__((aligned)); /* I */ 00045 static unsigned char b_145[4] __attribute__((aligned)); /* J */ 00046 static unsigned char b_146[4] __attribute__((aligned)); /* MS */ 00047 static unsigned char b_147[4] __attribute__((aligned)); /* ML */ 00048 static unsigned char b_148[16] __attribute__((aligned)); /* OC-Compiled */ 00049 static unsigned char b_149[4] __attribute__((aligned)); /* OS-Type */ 00050 static unsigned char b_154[7] __attribute__((aligned)); /* OS-Type-Literal */ 00051 static unsigned char b_155[80] __attribute__((aligned)); /* Output-Message */ 00052 static unsigned char b_156[1] __attribute__((aligned)); /* Path-Delimiter */ 00053 static unsigned char b_157[256] __attribute__((aligned)); /* Prog-Folder */ 00054 static unsigned char b_158[30] __attribute__((aligned)); /* Prog-Extension */ 00055 static unsigned char b_159[40] __attribute__((aligned)); /* Prog-File-Name */ 00056 static unsigned char b_160[31] __attribute__((aligned)); /* Prog-Name */ 00057 static unsigned char b_162[80] __attribute__((aligned)); /* Switch-Display */ 00058 static unsigned char b_166[12] __attribute__((aligned)); /* Switch-Keyword */ 00059 static unsigned char b_176[256] __attribute__((aligned)); /* Switch-Keyword-And-Value */ 00060 static unsigned char b_177[256] __attribute__((aligned)); /* Switch-Value */ 00061 static unsigned char b_182[166] __attribute__((aligned)); /* Switches */ 00062 static unsigned char b_203[4] __attribute__((aligned)); /* Tally */ 00063 static unsigned char b_212[1] __attribute__((aligned)); /* Blank-Screen */ 00064 static unsigned char b_213[1631] __attribute__((aligned)); /* Switches-Screen */ 00065 static unsigned char b_352[4] __attribute__((aligned)); /* COB-CRT-STATUS */ 00066 00067 /* PROGRAM-ID : GETOSTYPE */ 00068 static unsigned char b_353[4] __attribute__((aligned)); /* RETURN-CODE */ 00069 static unsigned char b_357[1024] __attribute__((aligned)); /* Env-Path */ 00070 static unsigned char b_358[4] __attribute__((aligned)); /* Tally */ 00071 00072 /* PROGRAM-ID : CHECKSOURCE */ 00073 static unsigned char b_360[4] __attribute__((aligned)); /* RETURN-CODE */ 00074 static unsigned char b_364[80] __attribute__((aligned)); /* Compressed-Src */ 00075 static unsigned char b_366[1] __attribute__((aligned)); /* Flags */ 00076 static unsigned char b_370[1] __attribute__((aligned)); /* I */ 00077 static unsigned char b_371[1] __attribute__((aligned)); /* J */ 00078 00079 /* PROGRAM-ID : LISTING */ 00080 static unsigned char b_379[4] __attribute__((aligned)); /* RETURN-CODE */ 00081 static unsigned char b_380[4] __attribute__((aligned)); /* SORT-RETURN */ 00082 static unsigned char b_389[257] __attribute__((aligned)); /* Expand-Code_record */ 00083 static unsigned char b_391[135] __attribute__((aligned)); /* Report-File_record */ 00084 static unsigned char b_401[107] __attribute__((aligned)); /* Sort-File_record */ 00085 static unsigned char b_408[256] __attribute__((aligned)); /* Source-Code_record */ 00086 static unsigned char b_410[256] __attribute__((aligned)); /* Cmd */ 00087 static unsigned char b_411[2] __attribute__((aligned)); /* Delim */ 00088 static unsigned char b_412[135] __attribute__((aligned)); /* Detail-Line-S */ 00089 static unsigned char b_416[136] __attribute__((aligned)); /* Detail-Line-X */ 00090 static unsigned char b_429[1] __attribute__((aligned)); /* Dummy */ 00091 static unsigned char b_430[256] __attribute__((aligned)); /* Env-TEMP */ 00092 static unsigned char b_431[256] __attribute__((aligned)); /* Expanded-Src-Filename */ 00093 static unsigned char b_432[256] __attribute__((aligned)); /* Filename */ 00094 static unsigned char b_433[7] __attribute__((aligned)); /* Flags */ 00095 static unsigned char b_443[47] __attribute__((aligned)); /* Group-Indicators */ 00096 static unsigned char b_446[135] __attribute__((aligned)); /* Heading-1S */ 00097 static unsigned char b_449[135] __attribute__((aligned)); /* Heading-1X */ 00098 static unsigned char b_452[135] __attribute__((aligned)); /* Heading-2 */ 00099 static unsigned char b_453[16] __attribute__((aligned)); /* Heading-4S */ 00100 static unsigned char b_454[96] __attribute__((aligned)); /* Heading-4X */ 00101 static unsigned char b_455[135] __attribute__((aligned)); /* Heading-5S */ 00102 static unsigned char b_456[135] __attribute__((aligned)); /* Heading-5X */ 00103 static unsigned char b_457[100] __attribute__((aligned)); /* Held-Reference */ 00104 static unsigned char b_458[4] __attribute__((aligned)); /* I */ 00105 static unsigned char b_459[4] __attribute__((aligned)); /* J */ 00106 static unsigned char b_460[4] __attribute__((aligned)); /* Lines-Left */ 00107 static unsigned char b_461[4] __attribute__((aligned)); /* Lines-Per-Page */ 00108 static unsigned char b_462[256] __attribute__((aligned)); /* Lines-Per-Page-ENV */ 00109 static unsigned char b_463[4] __attribute__((aligned)); /* Num-UserNames */ 00110 static unsigned char b_464[10] __attribute__((aligned)); /* PIC-X10 */ 00111 static unsigned char b_465[32] __attribute__((aligned)); /* PIC-X32 */ 00112 static unsigned char b_466[256] __attribute__((aligned)); /* PIC-X256 */ 00113 static unsigned char b_467[256] __attribute__((aligned)); /* Program-Path */ 00114 static unsigned char b_468[256] __attribute__((aligned)); /* Report-Filename */ 00115 static unsigned char b_469[19503] __attribute__((aligned)); /* Reserved-Words */ 00116 static unsigned char b_1063[4] __attribute__((aligned)); /* RW-Idx */ 00117 static unsigned char b_1066[15] __attribute__((aligned)); /* Saved-Section */ 00118 static unsigned char b_1067[32] __attribute__((aligned)); /* Search-Token */ 00119 static unsigned char b_1068[6] __attribute__((aligned)); /* Source-Line-No */ 00120 static unsigned char b_1069[4] __attribute__((aligned)); /* Src-Ptr */ 00121 static unsigned char b_1070[148] __attribute__((aligned)); /* Syntax-Parsing-Items */ 00122 static unsigned char b_1105[4] __attribute__((aligned)); /* Tally */ 00123 static unsigned char b_1106[8] __attribute__((aligned)); /* Todays-Date */ 00124 00125 /* End of storage */ 00126 00127 00128 /* Attributes */ 00129 00130 static const cob_field_attr a_1 = {16, 4, 0, 0, NULL}; 00131 static const cob_field_attr a_2 = {33, 0, 0, 0, NULL}; 00132 static const cob_field_attr a_3 = {16, 2, 0, 0, NULL}; 00133 static const cob_field_attr a_4 = {16, 1, 0, 0, NULL}; 00134 static const cob_field_attr a_5 = {35, 0, 0, 0, "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"}; 00135 static const cob_field_attr a_6 = {1, 0, 0, 0, NULL}; 00136 static const cob_field_attr a_7 = {17, 9, 0, 65, NULL}; 00137 static const cob_field_attr a_8 = {36, 6, 0, 0, "Z\005\000\000\0009\001\000\000\000"}; 00138 static const cob_field_attr a_9 = {36, 8, 0, 0, "9\004\000\000\000/\001\000\000\0009\002\000\000\000/\001\000\000\0009\002\000\000\000"}; 00139 static const cob_field_attr a_10 = {16, 6, 0, 0, NULL}; 00140 static const cob_field_attr a_11 = {16, 8, 0, 0, NULL}; 00141 00142 /* Fields */ 00143 00144 /* PROGRAM-ID : GETOSTYPE */ 00145 static cob_field f_357 = {1024, b_357, &a_2}; /* Env-Path */ 00146 static cob_field f_358 = {4, b_358, &a_7}; /* Tally */ 00147 00148 /* PROGRAM-ID : LISTING */ 00149 static cob_field f_383 = {257, b_389, &a_6}; /* Expand-Code-Rec */ 00150 static cob_field f_385 = {256, b_389 + 1, &a_2}; /* ECR-2-256 */ 00151 static cob_field f_388 = {128, b_389 + 128, &a_2}; /* ECR-129-256 */ 00152 static cob_field f_389 = {257, b_389, &a_2}; /* Expand-Code_record */ 00153 static cob_field f_390 = {135, b_391, &a_2}; /* Report-Rec */ 00154 static cob_field f_391 = {135, b_391, &a_2}; /* Report-File_record */ 00155 static cob_field f_392 = {107, b_401, &a_6}; /* Sort-Rec */ 00156 static cob_field f_393 = {15, b_401, &a_2}; /* SR-Prog-ID */ 00157 static cob_field f_394 = {32, b_401 + 15, &a_2}; /* SR-Token-UC */ 00158 static cob_field f_397 = {6, b_401 + 94, &a_10}; /* SR-Line-No-Def */ 00159 static cob_field f_398 = {7, b_401 + 100, &a_6}; /* SR-Reference */ 00160 static cob_field f_399 = {6, b_401 + 100, &a_10}; /* SR-Line-No-Ref */ 00161 static cob_field f_401 = {107, b_401, &a_2}; /* Sort-File_record */ 00162 static cob_field f_407 = {128, b_408 + 128, &a_2}; /* SCR-129-256 */ 00163 static cob_field f_408 = {256, b_408, &a_2}; /* Source-Code_record */ 00164 static cob_field f_410 = {256, b_410, &a_2}; /* Cmd */ 00165 static cob_field f_411 = {2, b_411, &a_2}; /* Delim */ 00166 static cob_field f_413 = {6, b_412, &a_8}; /* DLS-Line-No */ 00167 static cob_field f_416 = {136, b_416, &a_6}; /* Detail-Line-X */ 00168 static cob_field f_421 = {6, b_416 + 49, &a_8}; /* DLX-Line-No-Def */ 00169 static cob_field f_429 = {1, b_429, &a_2}; /* Dummy */ 00170 static cob_field f_430 = {256, b_430, &a_2}; /* Env-TEMP */ 00171 static cob_field f_431 = {256, b_431, &a_2}; /* Expanded-Src-Filename */ 00172 static cob_field f_432 = {256, b_432, &a_2}; /* Filename */ 00173 static cob_field f_448 = {10, b_446 + 125, &a_9}; /* H1S-Date */ 00174 static cob_field f_451 = {10, b_449 + 125, &a_9}; /* H1X-Date */ 00175 static cob_field f_452 = {135, b_452, &a_2}; /* Heading-2 */ 00176 static cob_field f_453 = {16, b_453, &a_2}; /* Heading-4S */ 00177 static cob_field f_454 = {96, b_454, &a_2}; /* Heading-4X */ 00178 static cob_field f_457 = {100, b_457, &a_2}; /* Held-Reference */ 00179 static cob_field f_458 = {4, b_458, &a_7}; /* I */ 00180 static cob_field f_460 = {4, b_460, &a_7}; /* Lines-Left */ 00181 static cob_field f_461 = {4, b_461, &a_7}; /* Lines-Per-Page */ 00182 static cob_field f_462 = {256, b_462, &a_2}; /* Lines-Per-Page-ENV */ 00183 static cob_field f_464 = {10, b_464, &a_2}; /* PIC-X10 */ 00184 static cob_field f_465 = {32, b_465, &a_2}; /* PIC-X32 */ 00185 static cob_field f_466 = {256, b_466, &a_2}; /* PIC-X256 */ 00186 static cob_field f_467 = {256, b_467, &a_2}; /* Program-Path */ 00187 static cob_field f_468 = {256, b_468, &a_2}; /* Report-Filename */ 00188 static cob_field f_1066 = {15, b_1066, &a_2}; /* Saved-Section */ 00189 static cob_field f_1067 = {32, b_1067, &a_2}; /* Search-Token */ 00190 static cob_field f_1068 = {6, b_1068, &a_10}; /* Source-Line-No */ 00191 static cob_field f_1069 = {4, b_1069, &a_7}; /* Src-Ptr */ 00192 static cob_field f_1071 = {1, b_1070, &a_2}; /* SPI-Current-Char */ 00193 static cob_field f_1081 = {6, b_1070 + 2, &a_10}; /* SPI-Current-Line-No */ 00194 static cob_field f_1084 = {3, b_1070 + 20, &a_2}; /* SPI-CP-13-15 */ 00195 static cob_field f_1085 = {15, b_1070 + 23, &a_6}; /* SPI-Current-Section */ 00196 static cob_field f_1089 = {3, b_1070 + 34, &a_2}; /* SPI-CS-11-14 */ 00197 static cob_field f_1091 = {32, b_1070 + 38, &a_2}; /* SPI-Current-Token */ 00198 static cob_field f_1092 = {32, b_1070 + 70, &a_2}; /* SPI-Current-Token-UC */ 00199 static cob_field f_1093 = {12, b_1070 + 102, &a_2}; /* SPI-Current-Verb */ 00200 static cob_field f_1094 = {1, b_1070 + 114, &a_2}; /* SPI-Next-Char */ 00201 static cob_field f_1096 = {32, b_1070 + 115, &a_2}; /* SPI-Prior-Token */ 00202 static cob_field f_1105 = {4, b_1105, &a_7}; /* Tally */ 00203 static cob_field f_1106 = {8, b_1106, &a_11}; /* Todays-Date */ 00204 static cob_field f_1109 = {256, NULL, &a_2}; /* Src-Filename */ 00205 00206 /* PROGRAM-ID : OCic */ 00207 static cob_field f_6 = {2048, b_6, &a_2}; /* Bat-File_record */ 00208 static cob_field f_7 = {256, b_8, &a_2}; /* Cobc-Output-Rec */ 00209 static cob_field f_8 = {256, b_8, &a_2}; /* Cobc-Output_record */ 00210 static cob_field f_9 = {80, b_10, &a_2}; /* Source-Code-Record */ 00211 static cob_field f_10 = {80, b_10, &a_2}; /* Source-Code_record */ 00212 static cob_field f_92 = {256, b_92, &a_2}; /* Bat-File-Name */ 00213 static cob_field f_93 = {512, b_93, &a_2}; /* Cmd */ 00214 static cob_field f_94 = {256, b_94, &a_2}; /* Cobc-Cmd */ 00215 static cob_field f_95 = {256, b_95, &a_2}; /* Cobc-Output-File */ 00216 static cob_field f_96 = {256, b_96, &a_2}; /* Command-Line-Args */ 00217 static cob_field f_97 = {12, b_97, &a_2}; /* Config-File */ 00218 static cob_field f_106 = {1, b_106, &a_2}; /* Dir-Char */ 00219 static cob_field f_107 = {1, b_107, &a_2}; /* Dummy */ 00220 static cob_field f_108 = {256, b_108, &a_2}; /* Env-TEMP */ 00221 static cob_field f_109 = {256, b_109, &a_6}; /* File-Name */ 00222 static cob_field f_113 = {2, b_111 + 13, &a_3}; /* FSM-Status */ 00223 static cob_field f_136 = {1, b_116 + 6, &a_2}; /* F-Source-Record-Type */ 00224 static cob_field f_143 = {80, b_143, &a_2}; /* Horizontal-Line */ 00225 static cob_field f_144 = {4, b_144, &a_7}; /* I */ 00226 static cob_field f_145 = {4, b_145, &a_7}; /* J */ 00227 static cob_field f_148 = {16, b_148, &a_5}; /* OC-Compiled */ 00228 static cob_field f_149 = {4, b_149, &a_7}; /* OS-Type */ 00229 static cob_field f_154 = {7, b_154, &a_2}; /* OS-Type-Literal */ 00230 static cob_field f_155 = {80, b_155, &a_2}; /* Output-Message */ 00231 static cob_field f_157 = {256, b_157, &a_2}; /* Prog-Folder */ 00232 static cob_field f_158 = {30, b_158, &a_2}; /* Prog-Extension */ 00233 static cob_field f_159 = {40, b_159, &a_2}; /* Prog-File-Name */ 00234 static cob_field f_160 = {31, b_160, &a_2}; /* Prog-Name */ 00235 static cob_field f_166 = {12, b_166, &a_2}; /* Switch-Keyword */ 00236 static cob_field f_176 = {256, b_176, &a_2}; /* Switch-Keyword-And-Value */ 00237 static cob_field f_177 = {256, b_177, &a_6}; /* Switch-Value */ 00238 static cob_field f_183 = {75, b_182, &a_2}; /* S-ARGS */ 00239 static cob_field f_185 = {1, b_182 + 75, &a_2}; /* S-Cfg-BS2000 */ 00240 static cob_field f_186 = {1, b_182 + 76, &a_2}; /* S-Cfg-COBOL85 */ 00241 static cob_field f_187 = {1, b_182 + 77, &a_2}; /* S-Cfg-COBOL2002 */ 00242 static cob_field f_188 = {1, b_182 + 78, &a_2}; /* S-Cfg-DEFAULT */ 00243 static cob_field f_189 = {1, b_182 + 79, &a_2}; /* S-Cfg-IBM */ 00244 static cob_field f_190 = {1, b_182 + 80, &a_2}; /* S-Cfg-MF */ 00245 static cob_field f_191 = {1, b_182 + 81, &a_2}; /* S-Cfg-MVS */ 00246 static cob_field f_192 = {75, b_182 + 82, &a_2}; /* S-EXTRA */ 00247 static cob_field f_193 = {9, b_182 + 157, &a_6}; /* S-Yes-No-Switches */ 00248 static cob_field f_194 = {1, b_182 + 157, &a_2}; /* S-DEBUG */ 00249 static cob_field f_195 = {1, b_182 + 158, &a_2}; /* S-DLL */ 00250 static cob_field f_196 = {1, b_182 + 159, &a_2}; /* S-XREF */ 00251 static cob_field f_197 = {1, b_182 + 160, &a_2}; /* S-SOURCE */ 00252 static cob_field f_198 = {1, b_182 + 161, &a_2}; /* S-EXECUTE */ 00253 static cob_field f_199 = {1, b_182 + 162, &a_2}; /* S-NOTRUNC */ 00254 static cob_field f_200 = {1, b_182 + 163, &a_2}; /* S-SUBROUTINE */ 00255 static cob_field f_201 = {1, b_182 + 164, &a_2}; /* S-TRACE */ 00256 static cob_field f_202 = {1, b_182 + 165, &a_2}; /* S-TRACEALL */ 00257 static cob_field f_203 = {4, b_203, &a_7}; /* Tally */ 00258 static cob_field f_212 = {1, b_212, &a_2}; /* Blank-Screen */ 00259 static cob_field f_213 = {1631, b_213, &a_6}; /* Switches-Screen */ 00260 static cob_field f_216 = {77, b_213 + 1, &a_2}; /* WORK$7 */ 00261 static cob_field f_225 = {77, b_213 + 86, &a_2}; /* WORK$16 */ 00262 static cob_field f_228 = {57, b_213 + 165, &a_2}; /* WORK$19 */ 00263 static cob_field f_230 = {19, b_213 + 223, &a_2}; /* WORK$21 */ 00264 static cob_field f_254 = {57, b_213 + 265, &a_2}; /* WORK$45 */ 00265 static cob_field f_256 = {19, b_213 + 323, &a_2}; /* WORK$47 */ 00266 static cob_field f_259 = {77, b_213 + 344, &a_2}; /* WORK$50 */ 00267 static cob_field f_264 = {77, b_213 + 425, &a_2}; /* WORK$55 */ 00268 static cob_field f_267 = {77, b_213 + 504, &a_2}; /* WORK$58 */ 00269 static cob_field f_272 = {77, b_213 + 585, &a_2}; /* WORK$63 */ 00270 static cob_field f_276 = {16, b_213 + 670, &a_2}; /* WORK$67 */ 00271 static cob_field f_278 = {81, b_213 + 745, &a_2}; /* WORK$69 */ 00272 static cob_field f_292 = {47, b_213 + 1010, &a_2}; /* WORK$83 */ 00273 static cob_field f_293 = {47, b_213 + 1057, &a_2}; /* WORK$84 */ 00274 static cob_field f_294 = {47, b_213 + 1104, &a_2}; /* WORK$85 */ 00275 static cob_field f_306 = {1, b_213 + 1169, &a_2}; /* WORK$97 */ 00276 static cob_field f_307 = {1, b_213 + 1170, &a_2}; /* WORK$98 */ 00277 static cob_field f_308 = {1, b_213 + 1171, &a_2}; /* WORK$99 */ 00278 static cob_field f_309 = {1, b_213 + 1172, &a_2}; /* WORK$100 */ 00279 static cob_field f_310 = {1, b_213 + 1173, &a_2}; /* WORK$101 */ 00280 static cob_field f_311 = {1, b_213 + 1174, &a_2}; /* WORK$102 */ 00281 static cob_field f_312 = {1, b_213 + 1175, &a_2}; /* WORK$103 */ 00282 static cob_field f_313 = {1, b_213 + 1176, &a_2}; /* WORK$104 */ 00283 static cob_field f_314 = {1, b_213 + 1177, &a_2}; /* WORK$105 */ 00284 static cob_field f_334 = {1, b_213 + 1404, &a_2}; /* WORK$125 */ 00285 static cob_field f_335 = {1, b_213 + 1405, &a_2}; /* WORK$126 */ 00286 static cob_field f_336 = {1, b_213 + 1406, &a_2}; /* WORK$127 */ 00287 static cob_field f_337 = {1, b_213 + 1407, &a_2}; /* WORK$128 */ 00288 static cob_field f_338 = {1, b_213 + 1408, &a_2}; /* WORK$129 */ 00289 static cob_field f_339 = {1, b_213 + 1409, &a_2}; /* WORK$130 */ 00290 static cob_field f_340 = {1, b_213 + 1410, &a_2}; /* WORK$131 */ 00291 static cob_field f_350 = {75, b_213 + 1481, &a_2}; /* WORK$141 */ 00292 static cob_field f_351 = {75, b_213 + 1556, &a_2}; /* WORK$142 */ 00293 static cob_field f_352 = {4, b_352, &a_1}; /* COB-CRT-STATUS */ 00294 00295 /* End of fields */ 00296 00297 /* Constants */ 00298 static cob_field c_1 = {2, (unsigned char *)"23", &a_3}; 00299 static cob_field c_2 = {2, (unsigned char *)"04", &a_3}; 00300 static cob_field c_3 = {1, (unsigned char *)"7", &a_4}; 00301 static cob_field c_4 = {1, (unsigned char *)"0", &a_4}; 00302 static cob_field c_5 = {2, (unsigned char *)"19", &a_3}; 00303 static cob_field c_6 = {10, (unsigned char *)"MVS ", &a_2}; 00304 static cob_field c_7 = {2, (unsigned char *)"15", &a_3}; 00305 static cob_field c_8 = {2, (unsigned char *)"69", &a_3}; 00306 static cob_field c_9 = {1, (unsigned char *)"3", &a_4}; 00307 static cob_field c_10 = {10, (unsigned char *)"MicroFocus", &a_2}; 00308 static cob_field c_11 = {2, (unsigned char *)"14", &a_3}; 00309 static cob_field c_12 = {10, (unsigned char *)"IBM ", &a_2}; 00310 static cob_field c_13 = {2, (unsigned char *)"13", &a_3}; 00311 static cob_field c_14 = {10, (unsigned char *)"Default ", &a_2}; 00312 static cob_field c_15 = {2, (unsigned char *)"12", &a_3}; 00313 static cob_field c_16 = {10, (unsigned char *)"COBOL2002 ", &a_2}; 00314 static cob_field c_17 = {2, (unsigned char *)"11", &a_3}; 00315 static cob_field c_18 = {10, (unsigned char *)"COBOL85 ", &a_2}; 00316 static cob_field c_19 = {2, (unsigned char *)"10", &a_3}; 00317 static cob_field c_20 = {10, (unsigned char *)"BS2000 ", &a_2}; 00318 static cob_field c_21 = {2, (unsigned char *)"09", &a_3}; 00319 static cob_field c_22 = {2, (unsigned char *)"67", &a_3}; 00320 static cob_field c_23 = {1, (unsigned char *)"4", &a_4}; 00321 static cob_field c_24 = {4, (unsigned char *)"S-F7", &a_2}; 00322 static cob_field c_25 = {2, (unsigned char *)"62", &a_3}; 00323 static cob_field c_26 = {4, (unsigned char *)"S-F6", &a_2}; 00324 static cob_field c_27 = {4, (unsigned char *)"S-F5", &a_2}; 00325 static cob_field c_28 = {4, (unsigned char *)"S-F4", &a_2}; 00326 static cob_field c_29 = {4, (unsigned char *)"S-F3", &a_2}; 00327 static cob_field c_30 = {4, (unsigned char *)"S-F2", &a_2}; 00328 static cob_field c_31 = {4, (unsigned char *)"S-F1", &a_2}; 00329 static cob_field c_32 = {22, (unsigned char *)"Produce xref listing ", &a_2}; 00330 static cob_field c_33 = {2, (unsigned char *)"37", &a_3}; 00331 static cob_field c_34 = {22, (unsigned char *)"Produce source listing", &a_2}; 00332 static cob_field c_35 = {22, (unsigned char *)"Trace proc + stmnts ", &a_2}; 00333 static cob_field c_36 = {22, (unsigned char *)"Trace procedures ", &a_2}; 00334 static cob_field c_37 = {22, (unsigned char *)"No COMP/BINARY trunc ", &a_2}; 00335 static cob_field c_38 = {22, (unsigned char *)"Execute if compile OK ", &a_2}; 00336 static cob_field c_39 = {22, (unsigned char *)"Pgm is a SUBROUTINE ", &a_2}; 00337 static cob_field c_40 = {22, (unsigned char *)"Always make DLLs ", &a_2}; 00338 static cob_field c_41 = {22, (unsigned char *)"Compile debug lines ", &a_2}; 00339 static cob_field c_42 = {2, (unsigned char *)"35", &a_3}; 00340 static cob_field c_43 = {2, (unsigned char *)"07", &a_3}; 00341 static cob_field c_44 = {2, (unsigned char *)"F9", &a_2}; 00342 static cob_field c_45 = {2, (unsigned char *)"32", &a_3}; 00343 static cob_field c_46 = {2, (unsigned char *)"F8", &a_2}; 00344 static cob_field c_47 = {2, (unsigned char *)"F7", &a_2}; 00345 static cob_field c_48 = {2, (unsigned char *)"F6", &a_2}; 00346 static cob_field c_49 = {2, (unsigned char *)"F5", &a_2}; 00347 static cob_field c_50 = {2, (unsigned char *)"F4", &a_2}; 00348 static cob_field c_51 = {2, (unsigned char *)"F3", &a_2}; 00349 static cob_field c_52 = {2, (unsigned char *)"F2", &a_2}; 00350 static cob_field c_53 = {2, (unsigned char *)"F1", &a_2}; 00351 static cob_field c_54 = {2, (unsigned char *)"05", &a_3}; 00352 static cob_field c_55 = {2, (unsigned char *)"03", &a_3}; 00353 static cob_field c_56 = {17, (unsigned char *)"Esc: Quit ", &a_2}; 00354 static cob_field c_57 = {17, (unsigned char *)"Enter: Compile ", &a_2}; 00355 static cob_field c_58 = {17, (unsigned char *)"F-Key: Select Opt", &a_2}; 00356 static cob_field c_59 = {10, (unsigned char *)"Filename: ", &a_2}; 00357 static cob_field c_60 = {10, (unsigned char *)"Folder: ", &a_2}; 00358 static cob_field c_61 = {10, (unsigned char *)"Program: ", &a_2}; 00359 static cob_field c_62 = {37, (unsigned char *)"Program Execution Arguments (if any):", &a_2}; 00360 static cob_field c_63 = {2, (unsigned char *)"21", &a_3}; 00361 static cob_field c_64 = {36, (unsigned char *)"Additional \"cobc\" Switches (if any):", &a_2}; 00362 static cob_field c_65 = {2, (unsigned char *)"17", &a_3}; 00363 static cob_field c_66 = {14, (unsigned char *)"Configuration:", &a_2}; 00364 static cob_field c_67 = {16, (unsigned char *)"On/Off Switches:", &a_2}; 00365 static cob_field c_68 = {2, (unsigned char *)"25", &a_3}; 00366 static cob_field c_69 = {2, (unsigned char *)"01", &a_3}; 00367 static cob_field c_70 = {1, (unsigned char *)"1", &a_4}; 00368 static cob_field c_71 = {59, (unsigned char *)") OpenCOBOL V1.1 06FEB2009 Interactive Compilation ", &a_2}; 00369 static cob_field c_72 = {7, (unsigned char *)" OCic (", &a_2}; 00370 static cob_field c_73 = {1, (unsigned char *)"\331", &a_2}; 00371 static cob_field c_74 = {2, (unsigned char *)"80", &a_3}; 00372 static cob_field c_75 = {1, (unsigned char *)"\300", &a_2}; 00373 static cob_field c_76 = {2, (unsigned char *)"24", &a_3}; 00374 static cob_field c_77 = {2, (unsigned char *)"02", &a_3}; 00375 static cob_field c_78 = {1, (unsigned char *)"\263", &a_2}; 00376 static cob_field c_79 = {1, (unsigned char *)"\277", &a_2}; 00377 static cob_field c_80 = {1, (unsigned char *)"\332", &a_2}; 00378 static cob_field c_81 = {2, (unsigned char *)"22", &a_3}; 00379 static cob_field c_82 = {2, (unsigned char *)"20", &a_3}; 00380 static cob_field c_83 = {2, (unsigned char *)"18", &a_3}; 00381 static cob_field c_84 = {1, (unsigned char *)"\301", &a_2}; 00382 static cob_field c_85 = {2, (unsigned char *)"60", &a_3}; 00383 static cob_field c_86 = {2, (unsigned char *)"16", &a_3}; 00384 static cob_field c_87 = {1, (unsigned char *)"\302", &a_2}; 00385 static cob_field c_88 = {2, (unsigned char *)"08", &a_3}; 00386 static cob_field c_89 = {2, (unsigned char *)"06", &a_3}; 00387 static cob_field c_90 = {17, (unsigned char *)"File not found: \"", &a_2}; 00388 static cob_field c_91 = {1, (unsigned char *)"\"", &a_2}; 00389 static cob_field c_92 = {23, (unsigned char *)"Error accessing file: \"", &a_2}; 00390 static cob_field c_93 = {1, (unsigned char *)"=", &a_2}; 00391 static cob_field c_94 = {6, (unsigned char *)"@EXTRA", &a_2}; 00392 static cob_field c_95 = {3, (unsigned char *)"@EX", &a_2}; 00393 static cob_field c_96 = {7, (unsigned char *)"@CONFIG", &a_2}; 00394 static cob_field c_97 = {2, (unsigned char *)"@C", &a_2}; 00395 static cob_field c_98 = {6, (unsigned char *)"BS2000", &a_2}; 00396 static cob_field c_99 = {7, (unsigned char *)"COBOL85", &a_2}; 00397 static cob_field c_100 = {9, (unsigned char *)"COBOL2002", &a_2}; 00398 static cob_field c_101 = {7, (unsigned char *)"DEFAULT", &a_2}; 00399 static cob_field c_102 = {3, (unsigned char *)"IBM", &a_2}; 00400 static cob_field c_103 = {2, (unsigned char *)"MF", &a_2}; 00401 static cob_field c_104 = {3, (unsigned char *)"MVS", &a_2}; 00402 static cob_field c_105 = {6, (unsigned char *)"@DEBUG", &a_2}; 00403 static cob_field c_106 = {2, (unsigned char *)"@D", &a_2}; 00404 static cob_field c_107 = {4, (unsigned char *)"@DLL", &a_2}; 00405 static cob_field c_108 = {8, (unsigned char *)"@EXECUTE", &a_2}; 00406 static cob_field c_109 = {2, (unsigned char *)"@E", &a_2}; 00407 static cob_field c_110 = {8, (unsigned char *)"@NOTRUNC", &a_2}; 00408 static cob_field c_111 = {2, (unsigned char *)"@N", &a_2}; 00409 static cob_field c_112 = {7, (unsigned char *)"@SOURCE", &a_2}; 00410 static cob_field c_113 = {2, (unsigned char *)"@S", &a_2}; 00411 static cob_field c_114 = {6, (unsigned char *)"@TRACE", &a_2}; 00412 static cob_field c_115 = {2, (unsigned char *)"@T", &a_2}; 00413 static cob_field c_116 = {5, (unsigned char *)"@XREF", &a_2}; 00414 static cob_field c_117 = {2, (unsigned char *)"@X", &a_2}; 00415 static cob_field c_118 = {33, (unsigned char *)"\" is not a valid switch - ignored", &a_2}; 00416 static cob_field c_119 = {3, (unsigned char *)"YES", &a_2}; 00417 static cob_field c_120 = {2, (unsigned char *)"NO", &a_2}; 00418 static cob_field c_121 = {9, (unsigned char *)"*ERROR: \"", &a_2}; 00419 static cob_field c_122 = {32, (unsigned char *)"\" is not a valid value for the \"", &a_2}; 00420 static cob_field c_123 = {8, (unsigned char *)"\" switch", &a_2}; 00421 static cob_field c_124 = {3, (unsigned char *)"ALL", &a_2}; 00422 static cob_field c_125 = {1, (unsigned char *)"Y", &a_2}; 00423 static cob_field c_126 = {1, (unsigned char *)"N", &a_2}; 00424 static cob_field c_127 = {21, (unsigned char *)"COB_SCREEN_EXCEPTIONS", &a_2}; 00425 static cob_field c_128 = {14, (unsigned char *)"COB_SCREEN_ESC", &a_2}; 00426 static cob_field c_129 = {4, (unsigned char *)"TEMP", &a_2}; 00427 static cob_field c_130 = {15, (unsigned char *)"OC-Messages.TXT", &a_2}; 00428 static cob_field c_131 = {21, (unsigned char *)"2011050123104500-0400", &a_2}; 00429 static cob_field c_132 = {1, (unsigned char *)":", &a_2}; 00430 static cob_field c_133 = {1, (unsigned char *)"/", &a_2}; 00431 static cob_field c_134 = {1, (unsigned char *)"@", &a_2}; 00432 static cob_field c_135 = {33, (unsigned char *)"No program filename was specified", &a_2}; 00433 static cob_field c_136 = {1, (unsigned char *)"A", &a_2}; 00434 static cob_field c_137 = {1, (unsigned char *)">", &a_2}; 00435 static cob_field c_138 = {1, (unsigned char *)" ", &a_2}; 00436 static cob_field c_139 = {1, (unsigned char *)"*", &a_2}; 00437 static cob_field c_140 = {1, (unsigned char *)".", &a_2}; 00438 static cob_field c_141 = {2, (unsigned char *)"CD", &a_2}; 00439 static cob_field c_142 = {10, (unsigned char *)" OCic for ", &a_2}; 00440 static cob_field c_143 = {41, (unsigned char *)" Copyright (C) 2009-2010, Gary L. Cutler,", &a_2}; 00441 static cob_field c_144 = {4, (unsigned char *)" GPL", &a_2}; 00442 static cob_field c_145 = {30, (unsigned char *)"An unsupported key was pressed", &a_2}; 00443 static cob_field c_146 = {10, (unsigned char *)"cobc -std=", &a_2}; 00444 static cob_field c_147 = {3, (unsigned char *)"-m ", &a_2}; 00445 static cob_field c_148 = {3, (unsigned char *)"-x ", &a_2}; 00446 static cob_field c_149 = {17, (unsigned char *)"-fdebugging-line ", &a_2}; 00447 static cob_field c_150 = {10, (unsigned char *)"-fnotrunc ", &a_2}; 00448 static cob_field c_151 = {11, (unsigned char *)"-ftraceall ", &a_2}; 00449 static cob_field c_152 = {8, (unsigned char *)"-ftrace ", &a_2}; 00450 static cob_field c_153 = {13, (unsigned char *)" Compiling...", &a_2}; 00451 static cob_field c_154 = {3, (unsigned char *)" 2>", &a_2}; 00452 static cob_field c_155 = {27, (unsigned char *)" Compilation Was Successful", &a_2}; 00453 static cob_field c_156 = {1, (unsigned char *)"2", &a_4}; 00454 static cob_field c_157 = {57, (unsigned char *)" Compilation was successful, but warnings were generated:", &a_2}; 00455 static cob_field c_158 = {19, (unsigned char *)"Compilation Failed:", &a_2}; 00456 static cob_field c_159 = {21, (unsigned char *)"Press ENTER to close:", &a_2}; 00457 static cob_field c_160 = {38, (unsigned char *)" Generating cross-reference listing...", &a_2}; 00458 static cob_field c_161 = {4, (unsigned char *)".lst", &a_2}; 00459 static cob_field c_162 = {32, (unsigned char *)" LISTING module is not available", &a_2}; 00460 static cob_field c_163 = {18, (unsigned char *)" Listing generated", &a_2}; 00461 static cob_field c_164 = {7, (unsigned char *)"cmd /c ", &a_2}; 00462 static cob_field c_165 = {26, (unsigned char *)" Listing generation failed", &a_2}; 00463 static cob_field c_166 = {8, (unsigned char *)"cobcrun ", &a_2}; 00464 static cob_field c_167 = {10, (unsigned char *)"/cygdrive/", &a_2}; 00465 static cob_field c_168 = {2, (unsigned char *)"./", &a_2}; 00466 static cob_field c_169 = {4, (unsigned char *)".exe", &a_2}; 00467 static cob_field c_170 = {8, (unsigned char *)"\"&&pause", &a_2}; 00468 static cob_field c_171 = {36, (unsigned char *)";echo \"Press ENTER to close...\";read", &a_2}; 00469 static cob_field c_172 = {4, (unsigned char *)"PATH", &a_2}; 00470 static cob_field c_173 = {1, (unsigned char *)";", &a_2}; 00471 static cob_field c_174 = {9, (unsigned char *)"Sort-File", &a_2}; 00472 static cob_field c_175 = {12, (unsigned char *)"OCXREF_LINES", &a_2}; 00473 static cob_field c_176 = {1, (unsigned char *)"\\", &a_2}; 00474 static cob_field c_177 = {5, (unsigned char *)"Right", &a_2}; 00475 static cob_field c_178 = {2, (unsigned char *)".i", &a_2}; 00476 static cob_field c_179 = {8, (unsigned char *)"cobc -E ", &a_2}; 00477 static cob_field c_180 = {3, (unsigned char *)" > ", &a_2}; 00478 static cob_field c_181 = {45, (unsigned char *)"Cross-reference terminated by previous errors", &a_2}; 00479 static cob_field c_182 = {6, (unsigned char *)"EQUALS", &a_2}; 00480 static cob_field c_183 = {2, (unsigned char *)". ", &a_2}; 00481 static cob_field c_184 = {2, (unsigned char *)"IS", &a_2}; 00482 static cob_field c_185 = {1, (unsigned char *)"(", &a_2}; 00483 static cob_field c_186 = {1, (unsigned char *)")", &a_2}; 00484 static cob_field c_187 = {1, (unsigned char *)"&", &a_2}; 00485 static cob_field c_188 = {1, (unsigned char *)",", &a_2}; 00486 static cob_field c_189 = {1, (unsigned char *)"<", &a_2}; 00487 static cob_field c_190 = {5, (unsigned char *)"EQUAL", &a_2}; 00488 static cob_field c_191 = {7, (unsigned char *)"LEVEL #", &a_2}; 00489 static cob_field c_192 = {1, (unsigned char *)"0", &a_2}; 00490 static cob_field c_193 = {8, (unsigned char *)"DIVISION", &a_2}; 00491 static cob_field c_194 = {10, (unsigned char *)"PROGRAM-ID", &a_2}; 00492 static cob_field c_195 = {7, (unsigned char *)"SECTION", &a_2}; 00493 static cob_field c_196 = {3, (unsigned char *)"PIC", &a_2}; 00494 static cob_field c_197 = {7, (unsigned char *)"PICTURE", &a_2}; 00495 static cob_field c_198 = {2, (unsigned char *)"FD", &a_2}; 00496 static cob_field c_199 = {2, (unsigned char *)"SD", &a_2}; 00497 static cob_field c_200 = {7, (unsigned char *)"INDEXED", &a_2}; 00498 static cob_field c_201 = {5, (unsigned char *)"USING", &a_2}; 00499 static cob_field c_202 = {4, (unsigned char *)"INTO", &a_2}; 00500 static cob_field c_203 = {9, (unsigned char *)"PROCEDURE", &a_2}; 00501 static cob_field c_204 = {7, (unsigned char *)"PROGRAM", &a_2}; 00502 static cob_field c_205 = {3, (unsigned char *)"END", &a_2}; 00503 static cob_field c_206 = {6, (unsigned char *)"ACCEPT", &a_2}; 00504 static cob_field c_207 = {3, (unsigned char *)"ADD", &a_2}; 00505 static cob_field c_208 = {8, (unsigned char *)"ALLOCATE", &a_2}; 00506 static cob_field c_209 = {4, (unsigned char *)"CALL", &a_2}; 00507 static cob_field c_210 = {7, (unsigned char *)"COMPUTE", &a_2}; 00508 static cob_field c_211 = {6, (unsigned char *)"DIVIDE", &a_2}; 00509 static cob_field c_212 = {4, (unsigned char *)"FREE", &a_2}; 00510 static cob_field c_213 = {10, (unsigned char *)"INITIALIZE", &a_2}; 00511 static cob_field c_214 = {7, (unsigned char *)"INSPECT", &a_2}; 00512 static cob_field c_215 = {4, (unsigned char *)"MOVE", &a_2}; 00513 static cob_field c_216 = {8, (unsigned char *)"MULTIPLY", &a_2}; 00514 static cob_field c_217 = {7, (unsigned char *)"PERFORM", &a_2}; 00515 static cob_field c_218 = {3, (unsigned char *)"SET", &a_2}; 00516 static cob_field c_219 = {6, (unsigned char *)"STRING", &a_2}; 00517 static cob_field c_220 = {8, (unsigned char *)"SUBTRACT", &a_2}; 00518 static cob_field c_221 = {9, (unsigned char *)"TRANSFORM", &a_2}; 00519 static cob_field c_222 = {8, (unsigned char *)"UNSTRING", &a_2}; 00520 static cob_field c_223 = {6, (unsigned char *)"GIVING", &a_2}; 00521 static cob_field c_224 = {2, (unsigned char *)"TO", &a_2}; 00522 static cob_field c_225 = {9, (unsigned char *)"RETURNING", &a_2}; 00523 static cob_field c_226 = {9, (unsigned char *)"REMAINDER", &a_2}; 00524 static cob_field c_227 = {9, (unsigned char *)"REPLACING", &a_2}; 00525 static cob_field c_228 = {8, (unsigned char *)"TALLYING", &a_2}; 00526 static cob_field c_229 = {10, (unsigned char *)"CONVERTING", &a_2}; 00527 static cob_field c_230 = {2, (unsigned char *)"BY", &a_2}; 00528 static cob_field c_231 = {7, (unsigned char *)"VARYING", &a_2}; 00529 static cob_field c_232 = {5, (unsigned char *)"AFTER", &a_2}; 00530 static cob_field c_233 = {7, (unsigned char *)"POINTER", &a_2}; 00531 static cob_field c_234 = {4, (unsigned char *)"FROM", &a_2}; 00532 static cob_field c_235 = {9, (unsigned char *)"DELIMITER", &a_2}; 00533 static cob_field c_236 = {5, (unsigned char *)"COUNT", &a_2}; 00534 static cob_field c_237 = {6, (unsigned char *)"000000", &a_2}; 00535
1.7.4
