1 
  2 /* BEGIN INCLUDE FILE ... cobol_reswd_values.incl.pl1 */
  3 /* CREATED ON 06/15/76 BY ORN */
  4 
  5 /* This include file contains the value associated with each reserved word
  6    used by the Multics COBOL compiler.  These are declared as constants
  7    and are not allocated unless referenced.  Eash name is in the form:
  8 
  9           reswd_<reserved word name>
 10      or
 11           reschar_<special character name>
 12 
 13    where <reserved word name> is the upper case transliteration of the
 14    reserved word with any hyphens replaced by underscores and
 15    <special character name> is the upper case name of the one
 16    character reserved words (e.g. EQ, GT, MINUS, LPARENS, etc.)  */
 17 
 18 
 19 dcl reswd_ACCEPT              fixed bin static options(constant) init(001);
 20 dcl reswd_ADD                 fixed bin static options(constant) init(002);
 21 dcl reswd_ERROR               fixed bin static options(constant) init(003);
 22 dcl reswd_ALTER               fixed bin static options(constant) init(004);
 23 dcl reswd_CALL                fixed bin static options(constant) init(005);
 24 dcl reswd_OVERFLOW            fixed bin static options(constant) init(006);
 25 dcl reswd_CANCEL              fixed bin static options(constant) init(007);
 26 dcl reswd_CLOSE               fixed bin static options(constant) init(008);
 27 dcl reswd_DIVIDE              fixed bin static options(constant) init(009);
 28 dcl reswd_MULTIPLY            fixed bin static options(constant) init(010);
 29 dcl reswd_SUBTRACT            fixed bin static options(constant) init(011);
 30 dcl reswd_EXIT                fixed bin static options(constant) init(012);
 31 dcl reswd_INITIALIZE          fixed bin static options(constant) init(013);
 32 dcl reswd_GO                  fixed bin static options(constant) init(014);
 33 dcl reswd_MERGE               fixed bin static options(constant) init(015);
 34 dcl reswd_INITIATE            fixed bin static options(constant) init(016);
 35 dcl reswd_INSPECT             fixed bin static options(constant) init(017);
 36 dcl reswd_MOVE                fixed bin static options(constant) init(018);
 37 dcl reswd_OPEN                fixed bin static options(constant) init(019);
 38 dcl reswd_PERFORM             fixed bin static options(constant) init(020);
 39 dcl reswd_READ                fixed bin static options(constant) init(021);
 40 dcl reswd_DELETE              fixed bin static options(constant) init(022);
 41 dcl reswd_RECEIVE             fixed bin static options(constant) init(023);
 42 dcl reswd_RELEASE             fixed bin static options(constant) init(024);
 43 dcl reswd_RETURN              fixed bin static options(constant) init(025);
 44 dcl reswd_SEARCH              fixed bin static options(constant) init(026);
 45 dcl reswd_REWRITE             fixed bin static options(constant) init(027);
 46 /* 028 029 */
 47 dcl reswd_SEND                fixed bin static options(constant) init(030);
 48 dcl reswd_SET                 fixed bin static options(constant) init(031);
 49 /* 032 */
 50 dcl reswd_STOP                fixed bin static options(constant) init(033);
 51 dcl reswd_STRING              fixed bin static options(constant) init(034);
 52 dcl reswd_SUSPEND             fixed bin static options(constant) init(035);
 53 dcl reswd_TERMINATE           fixed bin static options(constant) init(036);
 54 dcl reswd_UNSTRING            fixed bin static options(constant) init(037);
 55 dcl reswd_WRITE               fixed bin static options(constant) init(038);
 56 dcl reswd_USE                 fixed bin static options(constant) init(039);
 57 dcl reswd_COMPUTE             fixed bin static options(constant) init(040);
 58 dcl reswd_DISABLE             fixed bin static options(constant) init(041);
 59 dcl reswd_DISPLAY             fixed bin static options(constant) init(042);
 60 dcl reswd_ENABLE              fixed bin static options(constant) init(043);
 61 dcl reswd_ENTER               fixed bin static options(constant) init(044);
 62 dcl reswd_GENERATE            fixed bin static options(constant) init(045);
 63 dcl reswd_HOLD                fixed bin static options(constant) init(046);
 64 dcl reswd_IF                  fixed bin static options(constant) init(047);
 65 dcl reswd_PROCESS             fixed bin static options(constant) init(048);
 66 dcl reswd_SORT                fixed bin static options(constant) init(049);
 67 dcl reswd_EXAMINE             fixed bin static options(constant) init(050);
 68 dcl reswd_TRANSFORM           fixed bin static options(constant) init(051);
 69 /* 052 053 054 055 */
 70 dcl reswd_START               fixed bin static options(constant) init(056);
 71 dcl reswd_SUPPRESS            fixed bin static options(constant) init(057);
 72 dcl reswd_PURGE               fixed bin static options(constant) init(058);
 73 /* 059 060 061 062 063 064 065 066 067 068 069 070 */
 74 dcl reswd_ADVANCING           fixed bin static options(constant) init(071);
 75 dcl reswd_AFTER               fixed bin static options(constant) init(072);
 76 dcl reswd_ALL                 fixed bin static options(constant) init(073);
 77 dcl reswd_ALPHABETIC          fixed bin static options(constant) init(074);
 78 dcl reswd_ALPHANUMERIC        fixed bin static options(constant) init(075);
 79 dcl reswd_ALPHANUMERIC_EDITED fixed bin static options(constant) init(076);
 80 dcl reswd_AND                 fixed bin static options(constant) init(077);
 81 dcl reswd_ASCENDING           fixed bin static options(constant) init(078);
 82 dcl reswd_AT                  fixed bin static options(constant) init(079);
 83 dcl reswd_BEFORE              fixed bin static options(constant) init(080);
 84 dcl reswd_BEGINNING           fixed bin static options(constant) init(081);
 85 dcl reswd_BY                  fixed bin static options(constant) init(082);
 86 dcl (reswd_CHARACTER,
 87      reswd_CHARACTERS)        fixed bin static options(constant) init(083);
 88 dcl reswd_COUNT               fixed bin static options(constant) init(084);
 89 dcl reswd_SSF                 fixed bin static options(constant) init(085);
 90 dcl reswd_DATE                fixed bin static options(constant) init(086);
 91 dcl reswd_DAY                 fixed bin static options(constant) init(087);
 92 dcl reswd_DEBUGGING           fixed bin static options(constant) init(088);
 93 dcl reswd_DECLARATIVES        fixed bin static options(constant) init(089);
 94 dcl reswd_DELIMITED           fixed bin static options(constant) init(090);
 95 dcl reswd_DELIMITER           fixed bin static options(constant) init(091);
 96 dcl reswd_DEPENDING           fixed bin static options(constant) init(092);
 97 dcl reswd_DESCENDING          fixed bin static options(constant) init(093);
 98 dcl reswd_DIVISION            fixed bin static options(constant) init(094);
 99 dcl reswd_DOWN                fixed bin static options(constant) init(095);
100 dcl (reswd_ALSO,
101      reswd_ELSE)              fixed bin static options(constant) init(096);
102 dcl reswd_EMI                 fixed bin static options(constant) init(097);
103 dcl reswd_END                 fixed bin static options(constant) init(098);
104 dcl reswd_ENDING              fixed bin static options(constant) init(099);
105 dcl (reswd_END_OF_PAGE,
106      reswd_EOP)               fixed bin static options(constant) init(100);
107 dcl reswd_IN                  fixed bin static options(constant) init(101);
108 dcl (reschar_EQ,
109      reswd_EQUAL,
110      reswd_EQUALS)            fixed bin static options(constant) init(102);
111 /* 103 104 */
112 dcl reswd_ESI                 fixed bin static options(constant) init(105);
113 dcl (reswd_COMP,
114      reswd_COMPUTATIONAL)     fixed bin static options(constant) init(106);
115 dcl reswd_EXCEPTION           fixed bin static options(constant) init(107);
116 dcl reswd_FILE                fixed bin static options(constant) init(108);
117 dcl reswd_FIRST               fixed bin static options(constant) init(109);
118 dcl reswd_FOR                 fixed bin static options(constant) init(110);
119 dcl reswd_FROM                fixed bin static options(constant) init(111);
120 dcl reswd_GIVING              fixed bin static options(constant) init(112);
121 dcl (reschar_GT,
122      reswd_EXCEEDS,
123      reswd_GREATER)           fixed bin static options(constant) init(113);
124 dcl reswd_INITIAL             fixed bin static options(constant) init(114);
125 dcl reswd_INPUT               fixed bin static options(constant) init(115);
126 dcl reswd_INTO                fixed bin static options(constant) init(116);
127 dcl reswd_INVALID             fixed bin static options(constant) init(117);
128 dcl (reswd_ARE,
129      reswd_IS)                fixed bin static options(constant) init(118);
130 dcl (reswd_I_O,
131      reswd_INPUT_OUTPUT)      fixed bin static options(constant) init(119);
132 dcl reswd_KEY                 fixed bin static options(constant) init(120);
133 dcl reswd_LABEL               fixed bin static options(constant) init(121);
134 dcl reswd_LEADING             fixed bin static options(constant) init(122);
135 dcl (reschar_LT,
136      reswd_LESS)              fixed bin static options(constant) init(123);
137 dcl (reswd_LINE,
138      reswd_LINES)             fixed bin static options(constant) init(124);
139 dcl reswd_LOCK                fixed bin static options(constant) init(125);
140 dcl reswd_MESSAGE             fixed bin static options(constant) init(126);
141 dcl reswd_NEGATIVE            fixed bin static options(constant) init(127);
142 dcl reswd_NEXT                fixed bin static options(constant) init(128);
143 dcl reswd_NO                  fixed bin static options(constant) init(129);
144 dcl reswd_NOT                 fixed bin static options(constant) init(130);
145 dcl reswd_NUMERIC             fixed bin static options(constant) init(131);
146 dcl reswd_NUMERIC_EDITED      fixed bin static options(constant) init(132);
147 dcl reswd_OF                  fixed bin static options(constant) init(133);
148 dcl reswd_ON                  fixed bin static options(constant) init(134);
149 dcl reswd_OR                  fixed bin static options(constant) init(135);
150 /* 136 */
151 dcl reswd_OUTPUT              fixed bin static options(constant) init(137);
152 dcl reswd_BOOLEAN             fixed bin static options(constant) init(138);
153 dcl reswd_PAGE                fixed bin static options(constant) init(139);
154 dcl reswd_POINTER             fixed bin static options(constant) init(140);
155 dcl reswd_POSITIVE            fixed bin static options(constant) init(141);
156 dcl reswd_PROCEDURE           fixed bin static options(constant) init(142);
157 dcl reswd_PROCEDURES          fixed bin static options(constant) init(143);
158 dcl reswd_PROCEED             fixed bin static options(constant) init(144);
159 dcl reswd_PROCESSING          fixed bin static options(constant) init(145);
160 dcl reswd_PROGRAM             fixed bin static options(constant) init(146);
161 dcl reswd_RANDOM              fixed bin static options(constant) init(147);
162 dcl reswd_RECORD              fixed bin static options(constant) init(148);
163 dcl reswd_REEL                fixed bin static options(constant) init(149);
164 dcl reswd_REFERENCES          fixed bin static options(constant) init(150);
165 dcl reswd_REMAINDER           fixed bin static options(constant) init(151);
166 dcl reswd_REPLACING           fixed bin static options(constant) init(152);
167 dcl reswd_REPORTING           fixed bin static options(constant) init(153);
168 dcl reswd_REVERSED            fixed bin static options(constant) init(154);
169 dcl reswd_REWIND              fixed bin static options(constant) init(155);
170 dcl reswd_ROUNDED             fixed bin static options(constant) init(156);
171 dcl reswd_RUN                 fixed bin static options(constant) init(157);
172 dcl reswd_SECTION             fixed bin static options(constant) init(158);
173 dcl reswd_SEGMENT             fixed bin static options(constant) init(159);
174 dcl reswd_SENTENCE            fixed bin static options(constant) init(160);
175 dcl reswd_SIZE                fixed bin static options(constant) init(161);
176 dcl reswd_STANDARD            fixed bin static options(constant) init(162);
177 dcl reswd_TALLYING            fixed bin static options(constant) init(163);
178 dcl reswd_TERMINAL            fixed bin static options(constant) init(164);
179 dcl reswd_THAN                fixed bin static options(constant) init(165);
180 dcl (reswd_THROUGH,
181      reswd_THRU)              fixed bin static options(constant) init(166);
182 dcl reswd_RELATIVE            fixed bin static options(constant) init(167);
183 dcl (reswd_TIME,
184      reswd_TIMES)             fixed bin static options(constant) init(168);
185 dcl reswd_DYNAMIC             fixed bin static options(constant) init(169);
186 dcl reswd_TO                  fixed bin static options(constant) init(170);
187 dcl reswd_UNEQUAL             fixed bin static options(constant) init(171);
188 dcl reswd_UNIT                fixed bin static options(constant) init(172);
189 dcl reswd_UNTIL               fixed bin static options(constant) init(173);
190 dcl reswd_UP                  fixed bin static options(constant) init(174);
191 dcl reswd_UPON                fixed bin static options(constant) init(175);
192 dcl reswd_USING               fixed bin static options(constant) init(176);
193 dcl reswd_VARYING             fixed bin static options(constant) init(177);
194 dcl reswd_WHEN                fixed bin static options(constant) init(178);
195 dcl reswd_WITH                fixed bin static options(constant) init(179);
196 dcl (reswd_ZERO,
197      reswd_ZEROES,
198      reswd_ZEROS)             fixed bin static options(constant) init(180);
199 dcl reswd_ORGANIZATION        fixed bin static options(constant) init(181);
200 dcl reschar_PLUS              fixed bin static options(constant) init(182);
201 dcl reschar_MINUS             fixed bin static options(constant) init(183);
202 dcl reschar_STAR              fixed bin static options(constant) init(184);
203 dcl reschar_SLASH             fixed bin static options(constant) init(185);
204 dcl reschar_2STARs            fixed bin static options(constant) init(186);
205 dcl reschar_LPARENS           fixed bin static options(constant) init(187);
206 dcl reschar_RPARENS           fixed bin static options(constant) init(188);
207 dcl reschar_PERIOD            fixed bin static options(constant) init(189);
208 dcl reswd_TOP                 fixed bin static options(constant) init(190);
209 dcl reswd_COBOL               fixed bin static options(constant) init(191);
210 dcl (reswd_SPACE,
211      reswd_SPACES)            fixed bin static options(constant) init(192);
212 dcl reswd_TALLY               fixed bin static options(constant) init(193);
213 dcl (reswd_BIT,
214      reswd_BITS)              fixed bin static options(constant) init(194);
215 dcl reswd_RECORDS             fixed bin static options(constant) init(195);
216 dcl reswd_DATA                fixed bin static options(constant) init(196);
217 /* 197 198 199 */
218 dcl reswd_VLR                 fixed bin static options(constant) init(201);
219 dcl (reswd_AREA,
220      reswd_AREAS)             fixed bin static options(constant) init(202);
221 dcl reswd_OMITTED             fixed bin static options(constant) init(203);
222 dcl reswd_BLANK               fixed bin static options(constant) init(204);
223 dcl reswd_BLOCK               fixed bin static options(constant) init(205);
224 dcl reswd_CD                  fixed bin static options(constant) init(206);
225 dcl reswd_COMMUNICATION       fixed bin static options(constant) init(207);
226 dcl reswd_STANDARD_2          fixed bin static options(constant) init(208);
227 dcl (reswd_COMP_4,
228      reswd_COMPUTATIONAL_4)   fixed bin static options(constant) init(209);
229 dcl (reswd_COMP_5,
230      reswd_COMPUTATIONAL_5)   fixed bin static options(constant) init(210);
231 dcl (reswd_COMP_3,
232      reswd_COMPUTATIONAL_3)   fixed bin static options(constant) init(211);
233 dcl (reswd_COMP_1,
234      reswd_COMPUTATIONAL_1)   fixed bin static options(constant) init(212);
235 dcl (reswd_COMP_2,
236      reswd_COMPUTATIONAL_2)   fixed bin static options(constant) init(213);
237 dcl reswd_CONSTANT            fixed bin static options(constant) init(214);
238 dcl reswd_CONTAINS            fixed bin static options(constant) init(215);
239 dcl reswd_EXTEND              fixed bin static options(constant) init(216);
240 /* 217 */
241 dcl reswd_DESTINATION         fixed bin static options(constant) init(218);
242 dcl reswd_FD                  fixed bin static options(constant) init(219);
243 dcl reswd_FILLER              fixed bin static options(constant) init(220);
244 dcl (reswd_HIGH_VALUE,
245      reswd_HIGH_VALUES)       fixed bin static options(constant) init(221);
246 dcl reswd_INDEX               fixed bin static options(constant) init(222);
247 dcl reswd_INDEXED             fixed bin static options(constant) init(223);
248 dcl (reswd_JUST,
249      reswd_JUSTIFIED)         fixed bin static options(constant) init(224);
250 dcl reswd_LEFT                fixed bin static options(constant) init(225);
251 dcl reswd_LENGTH              fixed bin static options(constant) init(226);
252 dcl reswd_DUPLICATES          fixed bin static options(constant) init(227);
253 dcl reswd_LINKAGE             fixed bin static options(constant) init(228);
254 dcl (reswd_LOW_VALUE,
255      reswd_LOW_VALUES)        fixed bin static options(constant) init(229);
256 dcl reswd_MODE                fixed bin static options(constant) init(230);
257 dcl reswd_OCCURS              fixed bin static options(constant) init(231);
258 dcl (reswd_PIC,
259      reswd_PICTURE)           fixed bin static options(constant) init(232);
260 dcl reswd_EGI                 fixed bin static options(constant) init(233);
261 dcl reswd_QUEUE               fixed bin static options(constant) init(234);
262 dcl (reswd_QUOTE,
263      reswd_QUOTES)            fixed bin static options(constant) init(235);
264 dcl reswd_BOTTOM              fixed bin static options(constant) init(236);
265 dcl reswd_RECORDING           fixed bin static options(constant) init(237);
266 dcl reswd_REDEFINES           fixed bin static options(constant) init(238);
267 dcl reswd_RENAMES             fixed bin static options(constant) init(239);
268 dcl (reswd_REPORT,
269      reswd_REPORTS)           fixed bin static options(constant) init(240);
270 dcl reswd_RIGHT               fixed bin static options(constant) init(241);
271 dcl reswd_SA                  fixed bin static options(constant) init(242);
272 dcl reswd_SD                  fixed bin static options(constant) init(243);
273 dcl reswd_SEPARATE            fixed bin static options(constant) init(244);
274 dcl reswd_SIGN                fixed bin static options(constant) init(245);
275 dcl reswd_SOURCE              fixed bin static options(constant) init(246);
276 dcl reswd_STATUS              fixed bin static options(constant) init(247);
277 dcl reswd_SUB_QUEUE_1         fixed bin static options(constant) init(248);
278 dcl reswd_SUB_QUEUE_2         fixed bin static options(constant) init(249);
279 dcl reswd_SUB_QUEUE_3         fixed bin static options(constant) init(250);
280 dcl reswd_SYMBOLIC            fixed bin static options(constant) init(251);
281 dcl (reswd_SYNC,
282      reswd_SYNCHRONIZED)      fixed bin static options(constant) init(252);
283 dcl reswd_TABLE               fixed bin static options(constant) init(253);
284 /* 254 */
285 dcl reswd_TRAILING            fixed bin static options(constant) init(255);
286 dcl reschar_2EQs              fixed bin static options(constant) init(256);
287 dcl reswd_USAGE               fixed bin static options(constant) init(257);
288 dcl (reswd_VALUE,
289      reswd_VALUES)            fixed bin static options(constant) init(258);
290 dcl reswd_WORKING_STORAGE     fixed bin static options(constant) init(259);
291 dcl reswd_REMOVAL             fixed bin static options(constant) init(260);
292 /* 261 */
293 /* (262 263 264 265) */
294 /* 266 */
295 /* (267 268 269 270 271) */
296 dcl reswd_FLR                 fixed bin static options(constant) init(272);
297 /* 273 274 275 276 277 */
298 /* (278) */
299 dcl reswd_FILES               fixed bin static options(constant) init(279);
300 /* 280 281 282 283 284 285 */
301 /* (286) */
302 /* 287 */
303 dcl reswd_NATIVE              fixed bin static options(constant) init(288);
304 /* 289 */
305 dcl (reswd_COMP_7,
306      reswd_COMPUTATIONAL_7)   fixed bin static options(constant) init(290);
307 dcl reswd_OBJECT              fixed bin static options(constant) init(291);
308 dcl (reswd_COMP_6,
309      reswd_COMPUTATIONAL_6)   fixed bin static options(constant) init(292);
310 /* (293) */
311 /* 294 */
312 dcl reswd_DEFAULT             fixed bin static options(constant) init(295);
313 /* 296 207 298 299 300 301 302 303 304 305 */
314 dcl reswd_CODE_SET            fixed bin static options(constant) init(306);
315 dcl reswd_EXTERNAL            fixed bin static options(constant) init(307);
316 /* 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 */
317 dcl reswd_DAY_OF_WEEK         fixed bin static options(constant) init(326);
318 dcl reswd_INTERCHANGE         fixed bin static options(constant) init(327);
319 /* 328 */
320 dcl reswd_PROCESS_AREA        fixed bin static options(constant) init(329);
321 /* 330 */
322 dcl (reswd_CATALOG_NAME,
323      reswd_CATALOGUE_NAME)    fixed bin static options(constant) init(331);
324 /* 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 */
325 /* 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 */
326 /* 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 */
327 /* 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 */
328 dcl reswd_STREAM              fixed bin static options(constant) init(407);
329 /* 408 409 410 411 412 413 */
330 dcl reswd_BSN                 fixed bin static options(constant) init(413);
331 /* 414 415 */
332 dcl reswd_KEYED               fixed bin static options(constant) init(416);
333 /* 417 418 419 420 421 422 */
334 dcl reswd_IDS_II              fixed bin static options(constant) init(423);
335 /* 424 */
336 dcl reswd_REPLACE             fixed bin static options(constant) init(425);
337 /* 426 427 428 429 430 431 432 433 434 */
338 dcl reswd_SUBSTITUTION        fixed bin static options(constant) init(435);
339 /* 436 437 438 439 440 441 442 443 444 445 446 447 448 449 */
340 /* 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 */
341 /* 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 */
342 /* 490 491 492 493 494 495 496 497 498 499 500 */
343 dcl reswd_ACCESS              fixed bin static options(constant) init(501);
344 /* 502 */
345 dcl reswd_ADDRESS             fixed bin static options(constant) init(503);
346 dcl reswd_ALPHABET            fixed bin static options(constant) init(504);
347 dcl reswd_STANDARD_1          fixed bin static options(constant) init(505);
348 /* 506 */
349 dcl reswd_ALTERNATE           fixed bin static options(constant) init(507);
350 dcl reswd_APPLY               fixed bin static options(constant) init(508);
351 dcl reswd_ASSIGN              fixed bin static options(constant) init(509);
352 dcl reswd_AUTHOR              fixed bin static options(constant) init(510);
353 dcl reswd_CF                  fixed bin static options(constant) init(511);
354 dcl reswd_CH                  fixed bin static options(constant) init(512);
355 dcl reswd_CLOCK_UNITS         fixed bin static options(constant) init(513);
356 dcl reswd_CODE                fixed bin static options(constant) init(514);
357 dcl reswd_COLLATING           fixed bin static options(constant) init(515);
358 dcl reswd_COLUMN              fixed bin static options(constant) init(516);
359 dcl reswd_COMMA               fixed bin static options(constant) init(517);
360 dcl reswd_CONFIGURATION       fixed bin static options(constant) init(518);
361 dcl reswd_CONVERSION          fixed bin static options(constant) init(519);
362 dcl reswd_CONTROL             fixed bin static options(constant) init(520);
363 dcl reswd_CONTROLS            fixed bin static options(constant) init(521);
364 dcl reswd_COPY                fixed bin static options(constant) init(522);
365 dcl (reswd_CORR,
366      reswd_CORRESPONDING)     fixed bin static options(constant) init(524);
367 dcl reswd_CURRENCY            fixed bin static options(constant) init(525);
368 /* 526 */
369 dcl reswd_DATE_COMPILED       fixed bin static options(constant) init(527);
370 dcl reswd_DATE_WRITTEN        fixed bin static options(constant) init(528);
371 dcl reswd_DE                  fixed bin static options(constant) init(529);
372 dcl reswd_DEBUG_CONTENTS      fixed bin static options(constant) init(530);
373 dcl reswd_DEBUG_ITEM          fixed bin static options(constant) init(531);
374 dcl reswd_DEBUG_LINE          fixed bin static options(constant) init(532);
375 dcl reswd_DEBUG_SUB_1         fixed bin static options(constant) init(533);
376 dcl reswd_DEBUG_SUB_2         fixed bin static options(constant) init(534);
377 dcl reswd_DEBUG_SUB_3         fixed bin static options(constant) init(535);
378 /* 536 */
379 dcl reswd_DEBUG_NAME          fixed bin static options(constant) init(537);
380 dcl reswd_DECIMAL_POINT       fixed bin static options(constant) init(538);
381 dcl reswd_DETAIL              fixed bin static options(constant) init(539);
382 dcl reswd_ENVIRONMENT         fixed bin static options(constant) init(540);
383 /* 541 */
384 dcl reswd_EVERY               fixed bin static options(constant) init(542);
385 dcl reswd_FILE_CONTROL        fixed bin static options(constant) init(543);
386 /* 544 545 */
387 dcl reswd_FINAL               fixed bin static options(constant) init(546);
388 dcl reswd_FOOTING             fixed bin static options(constant) init(547);
389 dcl reswd_HEADING             fixed bin static options(constant) init(548);
390 dcl reswd_GROUP               fixed bin static options(constant) init(549);
391 /* 550 */
392 dcl reswd_I_O_CONTROL         fixed bin static options(constant) init(551);
393 dcl reswd_IDENTIFICATION      fixed bin static options(constant) init(552);
394 dcl reswd_INDICATE            fixed bin static options(constant) init(553);
395 dcl reswd_INSTALLATION        fixed bin static options(constant) init(554);
396 /* 555 */
397 dcl reswd_LAST                fixed bin static options(constant) init(556);
398 /* 557 558 */
399 dcl reswd_PRINTING            fixed bin static options(constant) init(559);
400 /* 560 */
401 dcl reswd_LIMIT               fixed bin static options(constant) init(561);
402 dcl reswd_LIMITS              fixed bin static options(constant) init(562);
403 dcl reswd_LINAGE              fixed bin static options(constant) init(563);
404 dcl reswd_LINAGE_COUNTER      fixed bin static options(constant) init(564);
405 dcl reswd_LINE_COUNTER        fixed bin static options(constant) init(565);
406 /* 566 567 */
407 dcl reswd_MEMORY              fixed bin static options(constant) init(568);
408 dcl reswd_MODULES             fixed bin static options(constant) init(569);
409 dcl reswd_MULTIPLE            fixed bin static options(constant) init(570);
410 dcl reswd_NUMBER              fixed bin static options(constant) init(571);
411 dcl reswd_OBJECT_COMPUTER     fixed bin static options(constant) init(572);
412 /* 573 */
413 dcl reswd_OFF                 fixed bin static options(constant) init(574);
414 /* 575 */
415 dcl reswd_OPTIONAL            fixed bin static options(constant) init(576);
416 /* 577 */
417 dcl reswd_PAGE_COUNTER        fixed bin static options(constant) init(578);
418 dcl reswd_PF                  fixed bin static options(constant) init(579);
419 dcl reswd_PH                  fixed bin static options(constant) init(580);
420 dcl reswd_PLUS                fixed bin static options(constant) init(581);
421 dcl reswd_POSITION            fixed bin static options(constant) init(582);
422 dcl reswd_PROGRAM_ID          fixed bin static options(constant) init(583);
423 dcl reswd_RD                  fixed bin static options(constant) init(584);
424 /* 585 586 */
425 dcl reswd_SEQUENCE            fixed bin static options(constant) init(587);
426 dcl reswd_RERUN               fixed bin static options(constant) init(588);
427 dcl reswd_RESERVE             fixed bin static options(constant) init(589);
428 dcl reswd_RESET               fixed bin static options(constant) init(590);
429 dcl reswd_RF                  fixed bin static options(constant) init(591);
430 dcl reswd_RH                  fixed bin static options(constant) init(592);
431 dcl reswd_SAME                fixed bin static options(constant) init(593);
432 dcl reswd_SECURITY            fixed bin static options(constant) init(594);
433 dcl reswd_SEGMENT_LIMIT       fixed bin static options(constant) init(595);
434 dcl reswd_SELECT              fixed bin static options(constant) init(596);
435 dcl reswd_SEQUENTIAL          fixed bin static options(constant) init(597);
436 dcl reswd_SORT_MERGE          fixed bin static options(constant) init(598);
437 dcl reswd_SOURCE_COMPUTER     fixed bin static options(constant) init(599);
438 dcl reswd_SPECIAL_NAMES       fixed bin static options(constant) init(600);
439 dcl reswd_SPANNED             fixed bin static options(constant) init(601);
440 /* (602) */
441 dcl reswd_SUM                 fixed bin static options(constant) init(603);
442 dcl reswd_EXOR                fixed bin static options(constant) init(604);
443 /* 605 */
444 dcl reswd_TAPE                fixed bin static options(constant) init(606);
445 dcl reswd_TEXT                fixed bin static options(constant) init(607);
446 dcl reswd_TYPE                fixed bin static options(constant) init(608);
447 dcl reswd_WORDS               fixed bin static options(constant) init(609);
448 dcl (reswd_COMP_8,
449      reswd_COMPUTATIONAL_8)   fixed bin static options(constant) init(610);
450 /* DATABASE WORDS
451 dcl reswd_ALIAS               fixed bin static options(constant) init(263);
452 dcl reswd_ALIGN               fixed bin static options(constant) init(278);
453 dcl reswd_ALTERING            fixed bin static options(constant) init(268);
454 dcl reswd_BECOMES             fixed bin static options(constant) init(267);
455 dcl reswd_CHECK               fixed bin static options(constant) init(264);
456 dcl reswd_INVOKING            fixed bin static options(constant) init(269);
457 dcl reswd_KEY_LOCATION        fixed bin static options(constant) init(286);
458 dcl reswd_LOCKS               fixed bin static options(constant) init(125);
459 dcl reswd_PREFIX              fixed bin static options(constant) init(293);
460 dcl reswd_REALM               fixed bin static options(constant) init(265);
461 dcl reswd_REALM_ID            fixed bin static options(constant) init(270);
462 dcl reswd_SELECTION           fixed bin static options(constant) init(271);
463 dcl reswd_SYMBOLS             fixed bin static options(constant) init(602);
464 dcl reswd_VIA                 fixed bin static options(constant) init(262);
465 END DATABASE WORDS */
466 
467 
468 /* END INCLUDE FILE ... cobol_reswd_values.incl.pl1 */
469