From f70ae8356431a46da5305f1aff34d23db6ee8866 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Fri, 31 Jan 2025 04:42:15 -0500
Subject: [PATCH] UAT tests pass
---
gcc/cobol/UAT/testsuite.src/run_functions.at | 14 +-
gcc/cobol/UAT/testsuite.src/syn_definition.at | 2 +-
gcc/cobol/UAT/testsuite.src/syn_move.at | 2 +-
gcc/cobol/token_names.h | 1366 ++++++++---------
gcc/cobol/token_names.h.gen | 5 +-
5 files changed, 695 insertions(+), 694 deletions(-)
diff --git a/gcc/cobol/UAT/testsuite.src/run_functions.at b/gcc/cobol/UAT/testsuite.src/run_functions.at
index bc04f0e2d0a2..9f24204eeaf1 100644
--- a/gcc/cobol/UAT/testsuite.src/run_functions.at
+++ b/gcc/cobol/UAT/testsuite.src/run_functions.at
@@ -5269,43 +5269,43 @@ AT_CHECK([$COMPILE prog.cob], [1], [],
[prog.cob:12:29: error: syntax error, unexpected NAME, expecting datetime format
12 | (invalid-date-format) <> SPACES
| ^
-prog.cob:16:12: error: syntax error, unexpected END_IF
+prog.cob:16:12: error: syntax error, unexpected END-IF
16 | END-IF
| ^
prog.cob:18:40: error: syntax error, unexpected NAME, expecting date format
18 | IF FUNCTION FORMATTED-DATE (invalid-date-format, 1) <> SPACES
| ^
-prog.cob:22:12: error: syntax error, unexpected END_IF
+prog.cob:22:12: error: syntax error, unexpected END-IF
22 | END-IF
| ^
prog.cob:25:29: error: syntax error, unexpected NAME, expecting datetime format
25 | (invalid-datetime-format, 1, 1) <> SPACES
| ^
-prog.cob:29:12: error: syntax error, unexpected END_IF
+prog.cob:29:12: error: syntax error, unexpected END-IF
29 | END-IF
| ^
prog.cob:31:40: error: syntax error, unexpected NAME, expecting time format
31 | IF FUNCTION FORMATTED-TIME (invalid-time-format, 1) <> SPACES
| ^
-prog.cob:35:12: error: syntax error, unexpected END_IF
+prog.cob:35:12: error: syntax error, unexpected END-IF
35 | END-IF
| ^
prog.cob:38:29: error: syntax error, unexpected NAME, expecting date format or datetime format
38 | (invalid-date-format, 1) <> ZERO
| ^
-prog.cob:42:12: error: syntax error, unexpected END_IF
+prog.cob:42:12: error: syntax error, unexpected END-IF
42 | END-IF
| ^
prog.cob:45:29: error: syntax error, unexpected NAME, expecting time format or datetime format
45 | (invalid-time-format, 1) <> ZERO
| ^
-prog.cob:49:12: error: syntax error, unexpected END_IF
+prog.cob:49:12: error: syntax error, unexpected END-IF
49 | END-IF
| ^
prog.cob:52:29: error: syntax error, unexpected NAME, expecting date format or time format or datetime format
52 | (invalid-datetime-format, 1) <> ZERO
| ^
-prog.cob:56:12: error: syntax error, unexpected END_IF
+prog.cob:56:12: error: syntax error, unexpected END-IF
56 | END-IF
| ^
cobol1: error: failed compiling prog.cob
diff --git a/gcc/cobol/UAT/testsuite.src/syn_definition.at b/gcc/cobol/UAT/testsuite.src/syn_definition.at
index a0d25a9e6bbb..787468a194ff 100644
--- a/gcc/cobol/UAT/testsuite.src/syn_definition.at
+++ b/gcc/cobol/UAT/testsuite.src/syn_definition.at
@@ -599,7 +599,7 @@ AT_DATA([prog.cob], [
])
AT_CHECK([$COMPILE_ONLY prog.cob], [1], [],
-[prog.cob:2:8: error: syntax error, unexpected PIC, expecting IDENTIFICATION DIVISION or PROGRAM_ID
+[prog.cob:2:8: error: syntax error, unexpected PIC, expecting IDENTIFICATION DIVISION or PROGRAM-ID
2 | PIC(P)
| ^
cobol1: error: failed compiling prog.cob
diff --git a/gcc/cobol/UAT/testsuite.src/syn_move.at b/gcc/cobol/UAT/testsuite.src/syn_move.at
index bc7cdf00cc6d..12db3ba76ffb 100644
--- a/gcc/cobol/UAT/testsuite.src/syn_move.at
+++ b/gcc/cobol/UAT/testsuite.src/syn_move.at
@@ -1239,7 +1239,7 @@ prog.cob:16:24: error: DATA-ITEM 'repo-prog' not found
16 | MOVE 'C' TO repo-prog.
| ^
prog.cob:16:24: error: invalid receiving operand
-prog.cob:17:24: error: syntax error, unexpected QUOTES
+prog.cob:17:24: error: syntax error, unexpected QUOTE
17 | MOVE 'D' TO QUOTE.
| ^
prog.cob:17:24: error: invalid receiving operand
diff --git a/gcc/cobol/token_names.h b/gcc/cobol/token_names.h
index 13f17c2f21d0..e802596ba756 100644
--- a/gcc/cobol/token_names.h
+++ b/gcc/cobol/token_names.h
@@ -1,5 +1,5 @@
// generated by ./token_names.h.gen ../../build/gcc/cobol/parse.h
-// Fri Jan 31 04:26:41 EST 2025
+// Fri Jan 31 04:41:49 EST 2025
tokens = {
{ "identification", IDENTIFICATION_DIV }, // 258
{ "environment", ENVIRONMENT_DIV }, // 259
@@ -61,7 +61,7 @@ tokens = {
{ "upsi", UPSI }, // 314
{ "zero", ZERO }, // 315
{ "zeros", ZERO }, // 315
- { "zeroeo", ZERO }, // 315
+ { "zeroes", ZERO }, // 315
{ "sysin", SYSIN }, // 316
{ "sysipt", SYSIPT }, // 317
{ "sysout", SYSOUT }, // 318
@@ -689,685 +689,685 @@ tokens = {
};
token_names = {
- "identification", // 0 (258)
- "environment", // 1 (259)
- "procedure", // 2 (260)
- "data", // 3 (261)
- "file", // 4 (262)
- "input-output", // 5 (263)
- "linkage", // 6 (264)
- "local-storage", // 7 (265)
- "working-storage", // 8 (266)
- "object-computer", // 9 (267)
- "display-of", // 10 (268)
- "end-function", // 11 (269)
- "end-program", // 12 (270)
- "end-subprogram", // 13 (271)
- "justified", // 14 (272)
- "returning", // 15 (273)
- "no-condition", // 16 (274)
- "alnum", // 17 (275)
- "alphed", // 18 (276)
- "error", // 19 (277)
- "exception", // 20 (278)
- "size-error", // 21 (279)
- "exception-name", // 22 (280)
- "level", // 23 (281)
- "level66", // 24 (282)
- "level78", // 25 (283)
- "level88", // 26 (284)
- "class-name", // 27 (285)
- "name", // 28 (286)
- "name88", // 29 (287)
- "nume", // 30 (288)
- "numed", // 31 (289)
- "numed-cr", // 32 (290)
- "numed-db", // 33 (291)
- "ninedot", // 34 (292)
- "nines", // 35 (293)
- "ninev", // 36 (294)
- "pic-p", // 37 (295)
- "space", // 38 (296)
- "literal", // 39 (297)
- "end", // 40 (298)
- "eop", // 41 (299)
- "filename", // 42 (300)
- "invalid", // 43 (301)
- "number", // 44 (302)
- "negative", // 45 (303)
- "numstr", // 46 (304)
- "overflow", // 47 (305)
- "computational", // 48 (306)
- "perform", // 49 (307)
- "backward", // 50 (308)
- "positive", // 51 (309)
- "pointer", // 52 (310)
- "section", // 53 (311)
- "standard-alphabet", // 54 (312)
- "switch", // 55 (313)
- "upsi", // 56 (314)
- "zero", // 57 (315)
- "sysin", // 58 (316)
- "sysipt", // 59 (317)
- "sysout", // 60 (318)
- "syslist", // 61 (319)
- "syslst", // 62 (320)
- "syspunch", // 63 (321)
- "syspch", // 64 (322)
- "console", // 65 (323)
- "c01", // 66 (324)
- "c02", // 67 (325)
- "c03", // 68 (326)
- "c04", // 69 (327)
- "c05", // 70 (328)
- "c06", // 71 (329)
- "c07", // 72 (330)
- "c08", // 73 (331)
- "c09", // 74 (332)
- "c10", // 75 (333)
- "c11", // 76 (334)
- "c12", // 77 (335)
- "csp", // 78 (336)
- "s01", // 79 (337)
- "s02", // 80 (338)
- "s03", // 81 (339)
- "s04", // 82 (340)
- "s05", // 83 (341)
- "afp-5a", // 84 (342)
- "stdin", // 85 (343)
- "stdout", // 86 (344)
- "stderr", // 87 (345)
- "list", // 88 (346)
- "map", // 89 (347)
- "nolist", // 90 (348)
- "nomap", // 91 (349)
- "nosource", // 92 (350)
- "might-be", // 93 (351)
- "function-udf", // 94 (352)
- "function-udf-0", // 95 (353)
- "date-fmt", // 96 (354)
- "time-fmt", // 97 (355)
- "datetime-fmt", // 98 (356)
- "basis", // 99 (357)
- "cbl", // 100 (358)
- "constant", // 101 (359)
- "copy", // 102 (360)
- "defined", // 103 (361)
- "enter", // 104 (362)
- "feature", // 105 (363)
- "insertt", // 106 (364)
- "lsub", // 107 (365)
- "parameter", // 108 (366)
- "override", // 109 (367)
- "ready", // 110 (368)
- "reset", // 111 (369)
- "rsub", // 112 (370)
- "service-reload", // 113 (371)
- "star-cbl", // 114 (372)
- "subscript", // 115 (373)
- "suppress", // 116 (374)
- "title", // 117 (375)
- "trace", // 118 (376)
- "use", // 119 (377)
- "cobol-words", // 120 (378)
- "equate", // 121 (379)
- "undefine", // 122 (380)
- "cdf-define", // 123 (381)
- "cdf-display", // 124 (382)
- "cdf-if", // 125 (383)
- "cdf-else", // 126 (384)
- "cdf-end-if", // 127 (385)
- "cdf-evaluate", // 128 (386)
- "cdf-when", // 129 (387)
- "cdf-end-evaluate", // 130 (388)
- "call-cobol", // 131 (389)
- "call-verbatim", // 132 (390)
- "if", // 133 (391)
- "then", // 134 (392)
- "else", // 135 (393)
- "sentence", // 136 (394)
- "accept", // 137 (395)
- "add", // 138 (396)
- "alter", // 139 (397)
- "call", // 140 (398)
- "cancel", // 141 (399)
- "close", // 142 (400)
- "compute", // 143 (401)
- "continue", // 144 (402)
- "delete", // 145 (403)
- "display", // 146 (404)
- "divide", // 147 (405)
- "evaluate", // 148 (406)
- "exit", // 149 (407)
- "filler", // 150 (408)
- "goback", // 151 (409)
- "goto", // 152 (410)
- "initialize", // 153 (411)
- "inspect", // 154 (412)
- "merge", // 155 (413)
- "move", // 156 (414)
- "multiply", // 157 (415)
- "open", // 158 (416)
- "paragraph", // 159 (417)
- "read", // 160 (418)
- "release", // 161 (419)
- "return", // 162 (420)
- "rewrite", // 163 (421)
- "search", // 164 (422)
- "set", // 165 (423)
- "select", // 166 (424)
- "sort", // 167 (425)
- "sort-merge", // 168 (426)
- "string", // 169 (427)
- "stop", // 170 (428)
- "subtract", // 171 (429)
- "start", // 172 (430)
- "unstring", // 173 (431)
- "write", // 174 (432)
- "when", // 175 (433)
- "abs", // 176 (434)
- "access", // 177 (435)
- "acos", // 178 (436)
- "actual", // 179 (437)
- "advancing", // 180 (438)
- "after", // 181 (439)
- "all", // 182 (440)
- "allocate", // 183 (441)
- "alphabet", // 184 (442)
- "alphabetic", // 185 (443)
- "alphabetic-lower", // 186 (444)
- "alphabetic-upper", // 187 (445)
- "alphanumeric", // 188 (446)
- "alphanumeric-edited", // 189 (447)
- "also", // 190 (448)
- "alternate", // 191 (449)
- "annuity", // 192 (450)
- "anum", // 193 (451)
- "any", // 194 (452)
- "anycase", // 195 (453)
- "apply", // 196 (454)
- "are", // 197 (455)
- "area", // 198 (456)
- "areas", // 199 (457)
- "as", // 200 (458)
- "ascending", // 201 (459)
- "activating", // 202 (460)
- "asin", // 203 (461)
- "assign", // 204 (462)
- "at", // 205 (463)
- "atan", // 206 (464)
- "based", // 207 (465)
- "baseconvert", // 208 (466)
- "before", // 209 (467)
- "binary", // 210 (468)
- "bit", // 211 (469)
- "bit-of", // 212 (470)
- "bit-to-char", // 213 (471)
- "blank", // 214 (472)
- "block", // 215 (473)
- "boolean-of-integer", // 216 (474)
- "bottom", // 217 (475)
- "by", // 218 (476)
- "byte", // 219 (477)
- "byte-length", // 220 (478)
- "cf", // 221 (479)
- "ch", // 222 (480)
- "changed", // 223 (481)
- "char", // 224 (482)
- "char-national", // 225 (483)
- "character", // 226 (484)
- "characters", // 227 (485)
- "checking", // 228 (486)
- "class", // 229 (487)
- "cobol", // 230 (488)
- "code", // 231 (489)
- "code-set", // 232 (490)
- "collating", // 233 (491)
- "column", // 234 (492)
- "combined-datetime", // 235 (493)
- "comma", // 236 (494)
- "command-line", // 237 (495)
- "command-line-count", // 238 (496)
- "commit", // 239 (497)
- "common", // 240 (498)
- "concat", // 241 (499)
- "condition", // 242 (500)
- "configuration", // 243 (501)
- "contains", // 244 (502)
- "content", // 245 (503)
- "control", // 246 (504)
- "controls", // 247 (505)
- "convert", // 248 (506)
- "converting", // 249 (507)
- "corresponding", // 250 (508)
- "cos", // 251 (509)
- "count", // 252 (510)
- "currency", // 253 (511)
- "current", // 254 (512)
- "current-date", // 255 (513)
- "data", // 256 (514)
- "date", // 257 (515)
- "date-compiled", // 258 (516)
- "date-of-integer", // 259 (517)
- "date-to-yyyymmdd", // 260 (518)
- "date-written", // 261 (519)
- "day", // 262 (520)
- "day-of-integer", // 263 (521)
- "day-of-week", // 264 (522)
- "day-to-yyyyddd", // 265 (523)
- "dbcs", // 266 (524)
- "de", // 267 (525)
- "debugging", // 268 (526)
- "decimal-point", // 269 (527)
- "declaratives", // 270 (528)
- "default", // 271 (529)
- "delimited", // 272 (530)
- "delimiter", // 273 (531)
- "depending", // 274 (532)
- "descending", // 275 (533)
- "detail", // 276 (534)
- "direct", // 277 (535)
- "direct-access", // 278 (536)
- "down", // 279 (537)
- "duplicates", // 280 (538)
- "dynamic", // 281 (539)
- "e", // 282 (540)
- "ebcdic", // 283 (541)
- "ec", // 284 (542)
- "egcs", // 285 (543)
- "entry", // 286 (544)
- "environment", // 287 (545)
- "equal", // 288 (546)
- "every", // 289 (547)
- "examine", // 290 (548)
- "exhibit", // 291 (549)
- "exp", // 292 (550)
- "exp10", // 293 (551)
- "extend", // 294 (552)
- "external", // 295 (553)
- "exception-file", // 296 (554)
- "exception-file-n", // 297 (555)
- "exception-location", // 298 (556)
- "exception-location-n", // 299 (557)
- "exception-statement", // 300 (558)
- "exception-status", // 301 (559)
- "factorial", // 302 (560)
- "false", // 303 (561)
- "fd", // 304 (562)
- "file-control", // 305 (563)
- "file", // 306 (564)
- "file-limit", // 307 (565)
- "final", // 308 (566)
- "finally", // 309 (567)
- "find-string", // 310 (568)
- "first", // 311 (569)
- "fixed", // 312 (570)
- "footing", // 313 (571)
- "for", // 314 (572)
- "formatted-current-date", // 315 (573)
- "formatted-date", // 316 (574)
- "formatted-datetime", // 317 (575)
- "formatted-time", // 318 (576)
- "form-overflow", // 319 (577)
- "free", // 320 (578)
- "fraction-part", // 321 (579)
- "from", // 322 (580)
- "function", // 323 (581)
- "generate", // 324 (582)
- "giving", // 325 (583)
- "global", // 326 (584)
- "go", // 327 (585)
- "group", // 328 (586)
- "heading", // 329 (587)
- "hex", // 330 (588)
- "hex-of", // 331 (589)
- "hex-to-char", // 332 (590)
- "high-values", // 333 (591)
- "highest-algebraic", // 334 (592)
- "hold", // 335 (593)
- "ibm-360", // 336 (594)
- "in", // 337 (595)
- "include", // 338 (596)
- "index", // 339 (597)
- "indexed", // 340 (598)
- "indicate", // 341 (599)
- "initial", // 342 (600)
- "initiate", // 343 (601)
- "input", // 344 (602)
- "installation", // 345 (603)
- "interface", // 346 (604)
- "integer", // 347 (605)
- "integer-of-boolean", // 348 (606)
- "integer-of-date", // 349 (607)
- "integer-of-day", // 350 (608)
- "integer-of-formatted-date", // 351 (609)
- "integer-part", // 352 (610)
- "into", // 353 (611)
- "intrinsic", // 354 (612)
- "invoke", // 355 (613)
- "i-o", // 356 (614)
- "i-o-control", // 357 (615)
- "is", // 358 (616)
- "isnt", // 359 (617)
- "kanji", // 360 (618)
- "key", // 361 (619)
- "label", // 362 (620)
- "last", // 363 (621)
- "leading", // 364 (622)
- "left", // 365 (623)
- "length", // 366 (624)
- "length-of", // 367 (625)
- "limit", // 368 (626)
- "limits", // 369 (627)
- "line", // 370 (628)
- "lines", // 371 (629)
- "line-counter", // 372 (630)
- "linage", // 373 (631)
- "linkage", // 374 (632)
- "locale", // 375 (633)
- "locale-compare", // 376 (634)
- "locale-date", // 377 (635)
- "locale-time", // 378 (636)
- "locale-time-from-seconds", // 379 (637)
- "local-storage", // 380 (638)
- "location", // 381 (639)
- "lock", // 382 (640)
- "lock-on", // 383 (641)
- "log", // 384 (642)
- "log10", // 385 (643)
- "lower-case", // 386 (644)
- "low-values", // 387 (645)
- "lowest-algebraic", // 388 (646)
- "lparen", // 389 (647)
- "manual", // 390 (648)
- "maxx", // 391 (649)
- "mean", // 392 (650)
- "median", // 393 (651)
- "midrange", // 394 (652)
- "minn", // 395 (653)
- "multiple", // 396 (654)
- "mod", // 397 (655)
- "mode", // 398 (656)
- "module-name", // 399 (657)
- "named", // 400 (658)
- "nat", // 401 (659)
- "national", // 402 (660)
- "national-edited", // 403 (661)
- "national-of", // 404 (662)
- "native", // 405 (663)
- "nested", // 406 (664)
- "next", // 407 (665)
- "no", // 408 (666)
- "note", // 409 (667)
- "null", // 410 (668)
- "nullptr", // 411 (669)
- "numeric", // 412 (670)
- "numeric-edited", // 413 (671)
- "numval", // 414 (672)
- "numval-c", // 415 (673)
- "numval-f", // 416 (674)
- "occurs", // 417 (675)
- "of", // 418 (676)
- "off", // 419 (677)
- "omitted", // 420 (678)
- "on", // 421 (679)
- "only", // 422 (680)
- "optional", // 423 (681)
- "options", // 424 (682)
- "ord", // 425 (683)
- "order", // 426 (684)
- "ord-max", // 427 (685)
- "ord-min", // 428 (686)
- "organization", // 429 (687)
- "other", // 430 (688)
- "otherwise", // 431 (689)
- "output", // 432 (690)
- "packed-decimal", // 433 (691)
- "padding", // 434 (692)
- "page", // 435 (693)
- "page-counter", // 436 (694)
- "pf", // 437 (695)
- "ph", // 438 (696)
- "pi", // 439 (697)
- "pic", // 440 (698)
- "pic", // 441 (699)
- "plus", // 442 (700)
- "present-value", // 443 (701)
- "print-switch", // 444 (702)
- "procedure", // 445 (703)
- "procedures", // 446 (704)
- "proceed", // 447 (705)
- "process", // 448 (706)
- "program-id", // 449 (707)
- "program", // 450 (708)
- "property", // 451 (709)
- "prototype", // 452 (710)
- "pseudotext", // 453 (711)
- "quote", // 454 (712)
- "quote", // 455 (713)
- "random", // 456 (714)
- "random-seed", // 457 (715)
- "range", // 458 (716)
- "raise", // 459 (717)
- "raising", // 460 (718)
- "rd", // 461 (719)
- "record", // 462 (720)
- "recording", // 463 (721)
- "records", // 464 (722)
- "recursive", // 465 (723)
- "redefines", // 466 (724)
- "reel", // 467 (725)
- "reference", // 468 (726)
- "relative", // 469 (727)
- "rem", // 470 (728)
- "remainder", // 471 (729)
- "remarks", // 472 (730)
- "removal", // 473 (731)
- "renames", // 474 (732)
- "replace", // 475 (733)
- "replacing", // 476 (734)
- "report", // 477 (735)
- "reporting", // 478 (736)
- "reports", // 479 (737)
- "repository", // 480 (738)
- "rerun", // 481 (739)
- "reserve", // 482 (740)
- "restricted", // 483 (741)
- "resume", // 484 (742)
- "reverse", // 485 (743)
- "reversed", // 486 (744)
- "rewind", // 487 (745)
- "rf", // 488 (746)
- "rh", // 489 (747)
- "right", // 490 (748)
- "rounded", // 491 (749)
- "run", // 492 (750)
- "same", // 493 (751)
- "screen", // 494 (752)
- "sd", // 495 (753)
- "seconds-from-formatted-time", // 496 (754)
- "seconds-past-midnight", // 497 (755)
- "security", // 498 (756)
- "separate", // 499 (757)
- "sequence", // 500 (758)
- "sequential", // 501 (759)
- "sharing", // 502 (760)
- "simple-exit", // 503 (761)
- "sign", // 504 (762)
- "sin", // 505 (763)
- "size", // 506 (764)
- "smallest-algebraic", // 507 (765)
- "source", // 508 (766)
- "source-computer", // 509 (767)
- "special-names", // 510 (768)
- "sqrt", // 511 (769)
- "stack", // 512 (770)
- "standard", // 513 (771)
- "standard-1", // 514 (772)
- "standard-deviation", // 515 (773)
- "standard-compare", // 516 (774)
- "status", // 517 (775)
- "strong", // 518 (776)
- "substitute", // 519 (777)
- "sum", // 520 (778)
- "symbol", // 521 (779)
- "symbolic", // 522 (780)
- "synchronized", // 523 (781)
- "tally", // 524 (782)
- "tallying", // 525 (783)
- "tan", // 526 (784)
- "terminate", // 527 (785)
- "test", // 528 (786)
- "test-date-yyyymmdd", // 529 (787)
- "test-day-yyyyddd", // 530 (788)
- "test-formatted-datetime", // 531 (789)
- "test-numval", // 532 (790)
- "test-numval-c", // 533 (791)
- "test-numval-f", // 534 (792)
- "than", // 535 (793)
- "time", // 536 (794)
- "times", // 537 (795)
- "to", // 538 (796)
- "top", // 539 (797)
- "top-level", // 540 (798)
- "tracks", // 541 (799)
- "track-area", // 542 (800)
- "trailing", // 543 (801)
- "transform", // 544 (802)
- "trim", // 545 (803)
- "true", // 546 (804)
- "try", // 547 (805)
- "turn", // 548 (806)
- "type", // 549 (807)
- "typedef", // 550 (808)
- "ulength", // 551 (809)
- "unbounded", // 552 (810)
- "unit", // 553 (811)
- "units", // 554 (812)
- "unit-record", // 555 (813)
- "until", // 556 (814)
- "up", // 557 (815)
- "upon", // 558 (816)
- "upos", // 559 (817)
- "upper-case", // 560 (818)
- "usage", // 561 (819)
- "using", // 562 (820)
- "usubstr", // 563 (821)
- "usupplementary", // 564 (822)
- "utility", // 565 (823)
- "uuid4", // 566 (824)
- "uvalid", // 567 (825)
- "uwidth", // 568 (826)
- "value", // 569 (827)
- "variance", // 570 (828)
- "varying", // 571 (829)
- "volatile", // 572 (830)
- "when-compiled", // 573 (831)
- "with", // 574 (832)
- "working-storage", // 575 (833)
- "xml", // 576 (834)
- "xmlgenerate", // 577 (835)
- "xmlparse", // 578 (836)
- "year-to-yyyy", // 579 (837)
- "yyyyddd", // 580 (838)
- "yyyymmdd", // 581 (839)
- "arithmetic", // 582 (840)
- "attribute", // 583 (841)
- "auto", // 584 (842)
- "automatic", // 585 (843)
- "away-from-zero", // 586 (844)
- "background-color", // 587 (845)
- "bell", // 588 (846)
- "binary-encoding", // 589 (847)
- "blink", // 590 (848)
- "capacity", // 591 (849)
- "center", // 592 (850)
- "classification", // 593 (851)
- "cycle", // 594 (852)
- "decimal-encoding", // 595 (853)
- "entry-convention", // 596 (854)
- "eol", // 597 (855)
- "eos", // 598 (856)
- "erase", // 599 (857)
- "expands", // 600 (858)
- "float-binary", // 601 (859)
- "float-decimal", // 602 (860)
- "foreground-color", // 603 (861)
- "forever", // 604 (862)
- "full", // 605 (863)
- "highlight", // 606 (864)
- "high-order-left", // 607 (865)
- "high-order-right", // 608 (866)
- "ignoring", // 609 (867)
- "implements", // 610 (868)
- "initialized", // 611 (869)
- "intermediate", // 612 (870)
- "lc-all", // 613 (871)
- "lc-collate", // 614 (872)
- "lc-ctype", // 615 (873)
- "lc-messages", // 616 (874)
- "lc-monetary", // 617 (875)
- "lc-numeric", // 618 (876)
- "lc-time", // 619 (877)
- "lowlight", // 620 (878)
- "nearest-away-from-zero", // 621 (879)
- "nearest-even", // 622 (880)
- "nearest-toward-zero", // 623 (881)
- "none", // 624 (882)
- "normal", // 625 (883)
- "numbers", // 626 (884)
- "prefixed", // 627 (885)
- "previous", // 628 (886)
- "prohibited", // 629 (887)
- "relation", // 630 (888)
- "required", // 631 (889)
- "reverse-video", // 632 (890)
- "rounding", // 633 (891)
- "seconds", // 634 (892)
- "secure", // 635 (893)
- "short", // 636 (894)
- "signed", // 637 (895)
- "standard-binary", // 638 (896)
- "standard-decimal", // 639 (897)
- "statement", // 640 (898)
- "step", // 641 (899)
- "structure", // 642 (900)
- "toward-greater", // 643 (901)
- "toward-lesser", // 644 (902)
- "truncation", // 645 (903)
- "ucs-4", // 646 (904)
- "underline", // 647 (905)
- "unsigned", // 648 (906)
- "utf-16", // 649 (907)
- "utf-8", // 650 (908)
- "address", // 651 (909)
- "end-accept", // 652 (910)
- "end-add", // 653 (911)
- "end-call", // 654 (912)
- "end-compute", // 655 (913)
- "end-delete", // 656 (914)
- "end-display", // 657 (915)
- "end-divide", // 658 (916)
- "end-evaluate", // 659 (917)
- "end-multiply", // 660 (918)
- "end-perform", // 661 (919)
- "end-read", // 662 (920)
- "end-return", // 663 (921)
- "end-rewrite", // 664 (922)
- "end-search", // 665 (923)
- "end-start", // 666 (924)
- "end-string", // 667 (925)
- "end-subtract", // 668 (926)
- "end-unstring", // 669 (927)
- "end-write", // 670 (928)
- "end-if", // 671 (929)
- "through", // 672 (930)
- "or", // 673 (931)
- "and", // 674 (932)
- "not", // 675 (933)
- "ne", // 676 (934)
- "le", // 677 (935)
- "ge", // 678 (936)
- "pow", // 679 (937)
- "neg", // 680 (938)
+ "IDENTIFICATION", // 0 (258)
+ "ENVIRONMENT", // 1 (259)
+ "PROCEDURE", // 2 (260)
+ "DATA", // 3 (261)
+ "FILE", // 4 (262)
+ "INPUT-OUTPUT", // 5 (263)
+ "LINKAGE", // 6 (264)
+ "LOCAL-STORAGE", // 7 (265)
+ "WORKING-STORAGE", // 8 (266)
+ "OBJECT-COMPUTER", // 9 (267)
+ "DISPLAY-OF", // 10 (268)
+ "END-FUNCTION", // 11 (269)
+ "END-PROGRAM", // 12 (270)
+ "END-SUBPROGRAM", // 13 (271)
+ "JUSTIFIED", // 14 (272)
+ "RETURNING", // 15 (273)
+ "NO-CONDITION", // 16 (274)
+ "ALNUM", // 17 (275)
+ "ALPHED", // 18 (276)
+ "ERROR", // 19 (277)
+ "EXCEPTION", // 20 (278)
+ "SIZE-ERROR", // 21 (279)
+ "EXCEPTION-NAME", // 22 (280)
+ "LEVEL", // 23 (281)
+ "LEVEL66", // 24 (282)
+ "LEVEL78", // 25 (283)
+ "LEVEL88", // 26 (284)
+ "CLASS-NAME", // 27 (285)
+ "NAME", // 28 (286)
+ "NAME88", // 29 (287)
+ "NUME", // 30 (288)
+ "NUMED", // 31 (289)
+ "NUMED-CR", // 32 (290)
+ "NUMED-DB", // 33 (291)
+ "NINEDOT", // 34 (292)
+ "NINES", // 35 (293)
+ "NINEV", // 36 (294)
+ "PIC-P", // 37 (295)
+ "SPACES", // 38 (296)
+ "LITERAL", // 39 (297)
+ "END", // 40 (298)
+ "EOP", // 41 (299)
+ "FILENAME", // 42 (300)
+ "INVALID", // 43 (301)
+ "NUMBER", // 44 (302)
+ "NEGATIVE", // 45 (303)
+ "NUMSTR", // 46 (304)
+ "OVERFLOW", // 47 (305)
+ "COMPUTATIONAL", // 48 (306)
+ "PERFORM", // 49 (307)
+ "BACKWARD", // 50 (308)
+ "POSITIVE", // 51 (309)
+ "POINTER", // 52 (310)
+ "SECTION", // 53 (311)
+ "STANDARD-ALPHABET", // 54 (312)
+ "SWITCH", // 55 (313)
+ "UPSI", // 56 (314)
+ "ZERO", // 57 (315)
+ "SYSIN", // 58 (316)
+ "SYSIPT", // 59 (317)
+ "SYSOUT", // 60 (318)
+ "SYSLIST", // 61 (319)
+ "SYSLST", // 62 (320)
+ "SYSPUNCH", // 63 (321)
+ "SYSPCH", // 64 (322)
+ "CONSOLE", // 65 (323)
+ "C01", // 66 (324)
+ "C02", // 67 (325)
+ "C03", // 68 (326)
+ "C04", // 69 (327)
+ "C05", // 70 (328)
+ "C06", // 71 (329)
+ "C07", // 72 (330)
+ "C08", // 73 (331)
+ "C09", // 74 (332)
+ "C10", // 75 (333)
+ "C11", // 76 (334)
+ "C12", // 77 (335)
+ "CSP", // 78 (336)
+ "S01", // 79 (337)
+ "S02", // 80 (338)
+ "S03", // 81 (339)
+ "S04", // 82 (340)
+ "S05", // 83 (341)
+ "AFP-5A", // 84 (342)
+ "STDIN", // 85 (343)
+ "STDOUT", // 86 (344)
+ "STDERR", // 87 (345)
+ "LIST", // 88 (346)
+ "MAP", // 89 (347)
+ "NOLIST", // 90 (348)
+ "NOMAP", // 91 (349)
+ "NOSOURCE", // 92 (350)
+ "MIGHT-BE", // 93 (351)
+ "FUNCTION-UDF", // 94 (352)
+ "FUNCTION-UDF-0", // 95 (353)
+ "DATE-FMT", // 96 (354)
+ "TIME-FMT", // 97 (355)
+ "DATETIME-FMT", // 98 (356)
+ "BASIS", // 99 (357)
+ "CBL", // 100 (358)
+ "CONSTANT", // 101 (359)
+ "COPY", // 102 (360)
+ "DEFINED", // 103 (361)
+ "ENTER", // 104 (362)
+ "FEATURE", // 105 (363)
+ "INSERTT", // 106 (364)
+ "LSUB", // 107 (365)
+ "PARAMETER", // 108 (366)
+ "OVERRIDE", // 109 (367)
+ "READY", // 110 (368)
+ "RESET", // 111 (369)
+ "RSUB", // 112 (370)
+ "SERVICE-RELOAD", // 113 (371)
+ "STAR-CBL", // 114 (372)
+ "SUBSCRIPT", // 115 (373)
+ "SUPPRESS", // 116 (374)
+ "TITLE", // 117 (375)
+ "TRACE", // 118 (376)
+ "USE", // 119 (377)
+ "COBOL-WORDS", // 120 (378)
+ "EQUATE", // 121 (379)
+ "UNDEFINE", // 122 (380)
+ "CDF-DEFINE", // 123 (381)
+ "CDF-DISPLAY", // 124 (382)
+ "CDF-IF", // 125 (383)
+ "CDF-ELSE", // 126 (384)
+ "CDF-END-IF", // 127 (385)
+ "CDF-EVALUATE", // 128 (386)
+ "CDF-WHEN", // 129 (387)
+ "CDF-END-EVALUATE", // 130 (388)
+ "CALL-COBOL", // 131 (389)
+ "CALL-VERBATIM", // 132 (390)
+ "IF", // 133 (391)
+ "THEN", // 134 (392)
+ "ELSE", // 135 (393)
+ "SENTENCE", // 136 (394)
+ "ACCEPT", // 137 (395)
+ "ADD", // 138 (396)
+ "ALTER", // 139 (397)
+ "CALL", // 140 (398)
+ "CANCEL", // 141 (399)
+ "CLOSE", // 142 (400)
+ "COMPUTE", // 143 (401)
+ "CONTINUE", // 144 (402)
+ "DELETE", // 145 (403)
+ "DISPLAY", // 146 (404)
+ "DIVIDE", // 147 (405)
+ "EVALUATE", // 148 (406)
+ "EXIT", // 149 (407)
+ "FILLER", // 150 (408)
+ "GOBACK", // 151 (409)
+ "GOTO", // 152 (410)
+ "INITIALIZE", // 153 (411)
+ "INSPECT", // 154 (412)
+ "MERGE", // 155 (413)
+ "MOVE", // 156 (414)
+ "MULTIPLY", // 157 (415)
+ "OPEN", // 158 (416)
+ "PARAGRAPH", // 159 (417)
+ "READ", // 160 (418)
+ "RELEASE", // 161 (419)
+ "RETURN", // 162 (420)
+ "REWRITE", // 163 (421)
+ "SEARCH", // 164 (422)
+ "SET", // 165 (423)
+ "SELECT", // 166 (424)
+ "SORT", // 167 (425)
+ "SORT-MERGE", // 168 (426)
+ "STRING", // 169 (427)
+ "STOP", // 170 (428)
+ "SUBTRACT", // 171 (429)
+ "START", // 172 (430)
+ "UNSTRING", // 173 (431)
+ "WRITE", // 174 (432)
+ "WHEN", // 175 (433)
+ "ABS", // 176 (434)
+ "ACCESS", // 177 (435)
+ "ACOS", // 178 (436)
+ "ACTUAL", // 179 (437)
+ "ADVANCING", // 180 (438)
+ "AFTER", // 181 (439)
+ "ALL", // 182 (440)
+ "ALLOCATE", // 183 (441)
+ "ALPHABET", // 184 (442)
+ "ALPHABETIC", // 185 (443)
+ "ALPHABETIC-LOWER", // 186 (444)
+ "ALPHABETIC-UPPER", // 187 (445)
+ "ALPHANUMERIC", // 188 (446)
+ "ALPHANUMERIC-EDITED", // 189 (447)
+ "ALSO", // 190 (448)
+ "ALTERNATE", // 191 (449)
+ "ANNUITY", // 192 (450)
+ "ANUM", // 193 (451)
+ "ANY", // 194 (452)
+ "ANYCASE", // 195 (453)
+ "APPLY", // 196 (454)
+ "ARE", // 197 (455)
+ "AREA", // 198 (456)
+ "AREAS", // 199 (457)
+ "AS", // 200 (458)
+ "ASCENDING", // 201 (459)
+ "ACTIVATING", // 202 (460)
+ "ASIN", // 203 (461)
+ "ASSIGN", // 204 (462)
+ "AT", // 205 (463)
+ "ATAN", // 206 (464)
+ "BASED", // 207 (465)
+ "BASECONVERT", // 208 (466)
+ "BEFORE", // 209 (467)
+ "BINARY", // 210 (468)
+ "BIT", // 211 (469)
+ "BIT-OF", // 212 (470)
+ "BIT-TO-CHAR", // 213 (471)
+ "BLANK", // 214 (472)
+ "BLOCK", // 215 (473)
+ "BOOLEAN-OF-INTEGER", // 216 (474)
+ "BOTTOM", // 217 (475)
+ "BY", // 218 (476)
+ "BYTE", // 219 (477)
+ "BYTE-LENGTH", // 220 (478)
+ "CF", // 221 (479)
+ "CH", // 222 (480)
+ "CHANGED", // 223 (481)
+ "CHAR", // 224 (482)
+ "CHAR-NATIONAL", // 225 (483)
+ "CHARACTER", // 226 (484)
+ "CHARACTERS", // 227 (485)
+ "CHECKING", // 228 (486)
+ "CLASS", // 229 (487)
+ "COBOL", // 230 (488)
+ "CODE", // 231 (489)
+ "CODE-SET", // 232 (490)
+ "COLLATING", // 233 (491)
+ "COLUMN", // 234 (492)
+ "COMBINED-DATETIME", // 235 (493)
+ "COMMA", // 236 (494)
+ "COMMAND-LINE", // 237 (495)
+ "COMMAND-LINE-COUNT", // 238 (496)
+ "COMMIT", // 239 (497)
+ "COMMON", // 240 (498)
+ "CONCAT", // 241 (499)
+ "CONDITION", // 242 (500)
+ "CONFIGURATION", // 243 (501)
+ "CONTAINS", // 244 (502)
+ "CONTENT", // 245 (503)
+ "CONTROL", // 246 (504)
+ "CONTROLS", // 247 (505)
+ "CONVERT", // 248 (506)
+ "CONVERTING", // 249 (507)
+ "CORRESPONDING", // 250 (508)
+ "COS", // 251 (509)
+ "COUNT", // 252 (510)
+ "CURRENCY", // 253 (511)
+ "CURRENT", // 254 (512)
+ "CURRENT-DATE", // 255 (513)
+ "DATA", // 256 (514)
+ "DATE", // 257 (515)
+ "DATE-COMPILED", // 258 (516)
+ "DATE-OF-INTEGER", // 259 (517)
+ "DATE-TO-YYYYMMDD", // 260 (518)
+ "DATE-WRITTEN", // 261 (519)
+ "DAY", // 262 (520)
+ "DAY-OF-INTEGER", // 263 (521)
+ "DAY-OF-WEEK", // 264 (522)
+ "DAY-TO-YYYYDDD", // 265 (523)
+ "DBCS", // 266 (524)
+ "DE", // 267 (525)
+ "DEBUGGING", // 268 (526)
+ "DECIMAL-POINT", // 269 (527)
+ "DECLARATIVES", // 270 (528)
+ "DEFAULT", // 271 (529)
+ "DELIMITED", // 272 (530)
+ "DELIMITER", // 273 (531)
+ "DEPENDING", // 274 (532)
+ "DESCENDING", // 275 (533)
+ "DETAIL", // 276 (534)
+ "DIRECT", // 277 (535)
+ "DIRECT-ACCESS", // 278 (536)
+ "DOWN", // 279 (537)
+ "DUPLICATES", // 280 (538)
+ "DYNAMIC", // 281 (539)
+ "E", // 282 (540)
+ "EBCDIC", // 283 (541)
+ "EC", // 284 (542)
+ "EGCS", // 285 (543)
+ "ENTRY", // 286 (544)
+ "ENVIRONMENT", // 287 (545)
+ "EQUAL", // 288 (546)
+ "EVERY", // 289 (547)
+ "EXAMINE", // 290 (548)
+ "EXHIBIT", // 291 (549)
+ "EXP", // 292 (550)
+ "EXP10", // 293 (551)
+ "EXTEND", // 294 (552)
+ "EXTERNAL", // 295 (553)
+ "EXCEPTION-FILE", // 296 (554)
+ "EXCEPTION-FILE-N", // 297 (555)
+ "EXCEPTION-LOCATION", // 298 (556)
+ "EXCEPTION-LOCATION-N", // 299 (557)
+ "EXCEPTION-STATEMENT", // 300 (558)
+ "EXCEPTION-STATUS", // 301 (559)
+ "FACTORIAL", // 302 (560)
+ "FALSE", // 303 (561)
+ "FD", // 304 (562)
+ "FILE-CONTROL", // 305 (563)
+ "FILE", // 306 (564)
+ "FILE-LIMIT", // 307 (565)
+ "FINAL", // 308 (566)
+ "FINALLY", // 309 (567)
+ "FIND-STRING", // 310 (568)
+ "FIRST", // 311 (569)
+ "FIXED", // 312 (570)
+ "FOOTING", // 313 (571)
+ "FOR", // 314 (572)
+ "FORMATTED-CURRENT-DATE", // 315 (573)
+ "FORMATTED-DATE", // 316 (574)
+ "FORMATTED-DATETIME", // 317 (575)
+ "FORMATTED-TIME", // 318 (576)
+ "FORM-OVERFLOW", // 319 (577)
+ "FREE", // 320 (578)
+ "FRACTION-PART", // 321 (579)
+ "FROM", // 322 (580)
+ "FUNCTION", // 323 (581)
+ "GENERATE", // 324 (582)
+ "GIVING", // 325 (583)
+ "GLOBAL", // 326 (584)
+ "GO", // 327 (585)
+ "GROUP", // 328 (586)
+ "HEADING", // 329 (587)
+ "HEX", // 330 (588)
+ "HEX-OF", // 331 (589)
+ "HEX-TO-CHAR", // 332 (590)
+ "HIGH-VALUES", // 333 (591)
+ "HIGHEST-ALGEBRAIC", // 334 (592)
+ "HOLD", // 335 (593)
+ "IBM-360", // 336 (594)
+ "IN", // 337 (595)
+ "INCLUDE", // 338 (596)
+ "INDEX", // 339 (597)
+ "INDEXED", // 340 (598)
+ "INDICATE", // 341 (599)
+ "INITIAL", // 342 (600)
+ "INITIATE", // 343 (601)
+ "INPUT", // 344 (602)
+ "INSTALLATION", // 345 (603)
+ "INTERFACE", // 346 (604)
+ "INTEGER", // 347 (605)
+ "INTEGER-OF-BOOLEAN", // 348 (606)
+ "INTEGER-OF-DATE", // 349 (607)
+ "INTEGER-OF-DAY", // 350 (608)
+ "INTEGER-OF-FORMATTED-DATE", // 351 (609)
+ "INTEGER-PART", // 352 (610)
+ "INTO", // 353 (611)
+ "INTRINSIC", // 354 (612)
+ "INVOKE", // 355 (613)
+ "I-O", // 356 (614)
+ "I-O-CONTROL", // 357 (615)
+ "IS", // 358 (616)
+ "ISNT", // 359 (617)
+ "KANJI", // 360 (618)
+ "KEY", // 361 (619)
+ "LABEL", // 362 (620)
+ "LAST", // 363 (621)
+ "LEADING", // 364 (622)
+ "LEFT", // 365 (623)
+ "LENGTH", // 366 (624)
+ "LENGTH-OF", // 367 (625)
+ "LIMIT", // 368 (626)
+ "LIMITS", // 369 (627)
+ "LINE", // 370 (628)
+ "LINES", // 371 (629)
+ "LINE-COUNTER", // 372 (630)
+ "LINAGE", // 373 (631)
+ "LINKAGE", // 374 (632)
+ "LOCALE", // 375 (633)
+ "LOCALE-COMPARE", // 376 (634)
+ "LOCALE-DATE", // 377 (635)
+ "LOCALE-TIME", // 378 (636)
+ "LOCALE-TIME-FROM-SECONDS", // 379 (637)
+ "LOCAL-STORAGE", // 380 (638)
+ "LOCATION", // 381 (639)
+ "LOCK", // 382 (640)
+ "LOCK-ON", // 383 (641)
+ "LOG", // 384 (642)
+ "LOG10", // 385 (643)
+ "LOWER-CASE", // 386 (644)
+ "LOW-VALUES", // 387 (645)
+ "LOWEST-ALGEBRAIC", // 388 (646)
+ "LPAREN", // 389 (647)
+ "MANUAL", // 390 (648)
+ "MAXX", // 391 (649)
+ "MEAN", // 392 (650)
+ "MEDIAN", // 393 (651)
+ "MIDRANGE", // 394 (652)
+ "MINN", // 395 (653)
+ "MULTIPLE", // 396 (654)
+ "MOD", // 397 (655)
+ "MODE", // 398 (656)
+ "MODULE-NAME", // 399 (657)
+ "NAMED", // 400 (658)
+ "NAT", // 401 (659)
+ "NATIONAL", // 402 (660)
+ "NATIONAL-EDITED", // 403 (661)
+ "NATIONAL-OF", // 404 (662)
+ "NATIVE", // 405 (663)
+ "NESTED", // 406 (664)
+ "NEXT", // 407 (665)
+ "NO", // 408 (666)
+ "NOTE", // 409 (667)
+ "NULLS", // 410 (668)
+ "NULLPTR", // 411 (669)
+ "NUMERIC", // 412 (670)
+ "NUMERIC-EDITED", // 413 (671)
+ "NUMVAL", // 414 (672)
+ "NUMVAL-C", // 415 (673)
+ "NUMVAL-F", // 416 (674)
+ "OCCURS", // 417 (675)
+ "OF", // 418 (676)
+ "OFF", // 419 (677)
+ "OMITTED", // 420 (678)
+ "ON", // 421 (679)
+ "ONLY", // 422 (680)
+ "OPTIONAL", // 423 (681)
+ "OPTIONS", // 424 (682)
+ "ORD", // 425 (683)
+ "ORDER", // 426 (684)
+ "ORD-MAX", // 427 (685)
+ "ORD-MIN", // 428 (686)
+ "ORGANIZATION", // 429 (687)
+ "OTHER", // 430 (688)
+ "OTHERWISE", // 431 (689)
+ "OUTPUT", // 432 (690)
+ "PACKED-DECIMAL", // 433 (691)
+ "PADDING", // 434 (692)
+ "PAGE", // 435 (693)
+ "PAGE-COUNTER", // 436 (694)
+ "PF", // 437 (695)
+ "PH", // 438 (696)
+ "PI", // 439 (697)
+ "PIC", // 440 (698)
+ "PIC", // 441 (699)
+ "PLUS", // 442 (700)
+ "PRESENT-VALUE", // 443 (701)
+ "PRINT-SWITCH", // 444 (702)
+ "PROCEDURE", // 445 (703)
+ "PROCEDURES", // 446 (704)
+ "PROCEED", // 447 (705)
+ "PROCESS", // 448 (706)
+ "PROGRAM-ID", // 449 (707)
+ "PROGRAM", // 450 (708)
+ "PROPERTY", // 451 (709)
+ "PROTOTYPE", // 452 (710)
+ "PSEUDOTEXT", // 453 (711)
+ "QUOTE", // 454 (712)
+ "QUOTE", // 455 (713)
+ "RANDOM", // 456 (714)
+ "RANDOM-SEED", // 457 (715)
+ "RANGE", // 458 (716)
+ "RAISE", // 459 (717)
+ "RAISING", // 460 (718)
+ "RD", // 461 (719)
+ "RECORD", // 462 (720)
+ "RECORDING", // 463 (721)
+ "RECORDS", // 464 (722)
+ "RECURSIVE", // 465 (723)
+ "REDEFINES", // 466 (724)
+ "REEL", // 467 (725)
+ "REFERENCE", // 468 (726)
+ "RELATIVE", // 469 (727)
+ "REM", // 470 (728)
+ "REMAINDER", // 471 (729)
+ "REMARKS", // 472 (730)
+ "REMOVAL", // 473 (731)
+ "RENAMES", // 474 (732)
+ "REPLACE", // 475 (733)
+ "REPLACING", // 476 (734)
+ "REPORT", // 477 (735)
+ "REPORTING", // 478 (736)
+ "REPORTS", // 479 (737)
+ "REPOSITORY", // 480 (738)
+ "RERUN", // 481 (739)
+ "RESERVE", // 482 (740)
+ "RESTRICTED", // 483 (741)
+ "RESUME", // 484 (742)
+ "REVERSE", // 485 (743)
+ "REVERSED", // 486 (744)
+ "REWIND", // 487 (745)
+ "RF", // 488 (746)
+ "RH", // 489 (747)
+ "RIGHT", // 490 (748)
+ "ROUNDED", // 491 (749)
+ "RUN", // 492 (750)
+ "SAME", // 493 (751)
+ "SCREEN", // 494 (752)
+ "SD", // 495 (753)
+ "SECONDS-FROM-FORMATTED-TIME", // 496 (754)
+ "SECONDS-PAST-MIDNIGHT", // 497 (755)
+ "SECURITY", // 498 (756)
+ "SEPARATE", // 499 (757)
+ "SEQUENCE", // 500 (758)
+ "SEQUENTIAL", // 501 (759)
+ "SHARING", // 502 (760)
+ "SIMPLE-EXIT", // 503 (761)
+ "SIGN", // 504 (762)
+ "SIN", // 505 (763)
+ "SIZE", // 506 (764)
+ "SMALLEST-ALGEBRAIC", // 507 (765)
+ "SOURCE", // 508 (766)
+ "SOURCE-COMPUTER", // 509 (767)
+ "SPECIAL-NAMES", // 510 (768)
+ "SQRT", // 511 (769)
+ "STACK", // 512 (770)
+ "STANDARD", // 513 (771)
+ "STANDARD-1", // 514 (772)
+ "STANDARD-DEVIATION", // 515 (773)
+ "STANDARD-COMPARE", // 516 (774)
+ "STATUS", // 517 (775)
+ "STRONG", // 518 (776)
+ "SUBSTITUTE", // 519 (777)
+ "SUM", // 520 (778)
+ "SYMBOL", // 521 (779)
+ "SYMBOLIC", // 522 (780)
+ "SYNCHRONIZED", // 523 (781)
+ "TALLY", // 524 (782)
+ "TALLYING", // 525 (783)
+ "TAN", // 526 (784)
+ "TERMINATE", // 527 (785)
+ "TEST", // 528 (786)
+ "TEST-DATE-YYYYMMDD", // 529 (787)
+ "TEST-DAY-YYYYDDD", // 530 (788)
+ "TEST-FORMATTED-DATETIME", // 531 (789)
+ "TEST-NUMVAL", // 532 (790)
+ "TEST-NUMVAL-C", // 533 (791)
+ "TEST-NUMVAL-F", // 534 (792)
+ "THAN", // 535 (793)
+ "TIME", // 536 (794)
+ "TIMES", // 537 (795)
+ "TO", // 538 (796)
+ "TOP", // 539 (797)
+ "TOP-LEVEL", // 540 (798)
+ "TRACKS", // 541 (799)
+ "TRACK-AREA", // 542 (800)
+ "TRAILING", // 543 (801)
+ "TRANSFORM", // 544 (802)
+ "TRIM", // 545 (803)
+ "TRUE", // 546 (804)
+ "TRY", // 547 (805)
+ "TURN", // 548 (806)
+ "TYPE", // 549 (807)
+ "TYPEDEF", // 550 (808)
+ "ULENGTH", // 551 (809)
+ "UNBOUNDED", // 552 (810)
+ "UNIT", // 553 (811)
+ "UNITS", // 554 (812)
+ "UNIT-RECORD", // 555 (813)
+ "UNTIL", // 556 (814)
+ "UP", // 557 (815)
+ "UPON", // 558 (816)
+ "UPOS", // 559 (817)
+ "UPPER-CASE", // 560 (818)
+ "USAGE", // 561 (819)
+ "USING", // 562 (820)
+ "USUBSTR", // 563 (821)
+ "USUPPLEMENTARY", // 564 (822)
+ "UTILITY", // 565 (823)
+ "UUID4", // 566 (824)
+ "UVALID", // 567 (825)
+ "UWIDTH", // 568 (826)
+ "VALUE", // 569 (827)
+ "VARIANCE", // 570 (828)
+ "VARYING", // 571 (829)
+ "VOLATILE", // 572 (830)
+ "WHEN-COMPILED", // 573 (831)
+ "WITH", // 574 (832)
+ "WORKING-STORAGE", // 575 (833)
+ "XML", // 576 (834)
+ "XMLGENERATE", // 577 (835)
+ "XMLPARSE", // 578 (836)
+ "YEAR-TO-YYYY", // 579 (837)
+ "YYYYDDD", // 580 (838)
+ "YYYYMMDD", // 581 (839)
+ "ARITHMETIC", // 582 (840)
+ "ATTRIBUTE", // 583 (841)
+ "AUTO", // 584 (842)
+ "AUTOMATIC", // 585 (843)
+ "AWAY-FROM-ZERO", // 586 (844)
+ "BACKGROUND-COLOR", // 587 (845)
+ "BELL", // 588 (846)
+ "BINARY-ENCODING", // 589 (847)
+ "BLINK", // 590 (848)
+ "CAPACITY", // 591 (849)
+ "CENTER", // 592 (850)
+ "CLASSIFICATION", // 593 (851)
+ "CYCLE", // 594 (852)
+ "DECIMAL-ENCODING", // 595 (853)
+ "ENTRY-CONVENTION", // 596 (854)
+ "EOL", // 597 (855)
+ "EOS", // 598 (856)
+ "ERASE", // 599 (857)
+ "EXPANDS", // 600 (858)
+ "FLOAT-BINARY", // 601 (859)
+ "FLOAT-DECIMAL", // 602 (860)
+ "FOREGROUND-COLOR", // 603 (861)
+ "FOREVER", // 604 (862)
+ "FULL", // 605 (863)
+ "HIGHLIGHT", // 606 (864)
+ "HIGH-ORDER-LEFT", // 607 (865)
+ "HIGH-ORDER-RIGHT", // 608 (866)
+ "IGNORING", // 609 (867)
+ "IMPLEMENTS", // 610 (868)
+ "INITIALIZED", // 611 (869)
+ "INTERMEDIATE", // 612 (870)
+ "LC-ALL", // 613 (871)
+ "LC-COLLATE", // 614 (872)
+ "LC-CTYPE", // 615 (873)
+ "LC-MESSAGES", // 616 (874)
+ "LC-MONETARY", // 617 (875)
+ "LC-NUMERIC", // 618 (876)
+ "LC-TIME", // 619 (877)
+ "LOWLIGHT", // 620 (878)
+ "NEAREST-AWAY-FROM-ZERO", // 621 (879)
+ "NEAREST-EVEN", // 622 (880)
+ "NEAREST-TOWARD-ZERO", // 623 (881)
+ "NONE", // 624 (882)
+ "NORMAL", // 625 (883)
+ "NUMBERS", // 626 (884)
+ "PREFIXED", // 627 (885)
+ "PREVIOUS", // 628 (886)
+ "PROHIBITED", // 629 (887)
+ "RELATION", // 630 (888)
+ "REQUIRED", // 631 (889)
+ "REVERSE-VIDEO", // 632 (890)
+ "ROUNDING", // 633 (891)
+ "SECONDS", // 634 (892)
+ "SECURE", // 635 (893)
+ "SHORT", // 636 (894)
+ "SIGNED", // 637 (895)
+ "STANDARD-BINARY", // 638 (896)
+ "STANDARD-DECIMAL", // 639 (897)
+ "STATEMENT", // 640 (898)
+ "STEP", // 641 (899)
+ "STRUCTURE", // 642 (900)
+ "TOWARD-GREATER", // 643 (901)
+ "TOWARD-LESSER", // 644 (902)
+ "TRUNCATION", // 645 (903)
+ "UCS-4", // 646 (904)
+ "UNDERLINE", // 647 (905)
+ "UNSIGNED", // 648 (906)
+ "UTF-16", // 649 (907)
+ "UTF-8", // 650 (908)
+ "ADDRESS", // 651 (909)
+ "END-ACCEPT", // 652 (910)
+ "END-ADD", // 653 (911)
+ "END-CALL", // 654 (912)
+ "END-COMPUTE", // 655 (913)
+ "END-DELETE", // 656 (914)
+ "END-DISPLAY", // 657 (915)
+ "END-DIVIDE", // 658 (916)
+ "END-EVALUATE", // 659 (917)
+ "END-MULTIPLY", // 660 (918)
+ "END-PERFORM", // 661 (919)
+ "END-READ", // 662 (920)
+ "END-RETURN", // 663 (921)
+ "END-REWRITE", // 664 (922)
+ "END-SEARCH", // 665 (923)
+ "END-START", // 666 (924)
+ "END-STRING", // 667 (925)
+ "END-SUBTRACT", // 668 (926)
+ "END-UNSTRING", // 669 (927)
+ "END-WRITE", // 670 (928)
+ "END-IF", // 671 (929)
+ "THROUGH", // 672 (930)
+ "OR", // 673 (931)
+ "AND", // 674 (932)
+ "NOT", // 675 (933)
+ "NE", // 676 (934)
+ "LE", // 677 (935)
+ "GE", // 678 (936)
+ "POW", // 679 (937)
+ "NEG", // 680 (938)
};
diff --git a/gcc/cobol/token_names.h.gen b/gcc/cobol/token_names.h.gen
index 1d9915b9519e..0498125023ea 100755
--- a/gcc/cobol/token_names.h.gen
+++ b/gcc/cobol/token_names.h.gen
@@ -31,6 +31,7 @@ BEGIN {
gsub( /^THRU/, "THROUGH", $2 )
gsub(/_/, "-")
+ upper = $2
name = tolower($2)
print "\t{ \"" name "\",", orig, "}, //", $3
@@ -49,11 +50,11 @@ BEGIN {
}
if( name == "zero" ) {
print "\t{ \"" name "s\",", orig, "}, //", $3
- print "\t{ \"" name "eo\",", orig, "}, //", $3
+ print "\t{ \"" name "es\",", orig, "}, //", $3
}
tok = $3 - (3 + 255)
- kw_array[tok] = name
+ kw_array[tok] = upper
}
END {
--
GitLab