OpenCOBOL 1.1pre-rel
OCic.c.h
Go to the documentation of this file.
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 
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Defines