cobol: accept CDF PROCESS directive

If the IBM PROCESS directive appears before IDENTIFICATION DIVISION
with -dialect ibm, it is now a warning.  In all other cases it is an
error.  Controlled by -Wibm-cdf. Fixes RT 3609.

gcc/cobol/ChangeLog:

	* cbldiag.h (enum cbl_diag_id_t): Add IbmCdf.
	* cdf.y: Renumber tokens.
	* cobol1.cc (cobol_langhook_handle_option): Accept -Wibm-cdf.
	* gcobol.1: Document Wibm-cdf
	* lang-specs.h: Add Wno-ibm-cdf to spec string.
	* lang.opt: Add Wibm-cdf.
	* messages.cc (cobol_warning_suppress): Add IbmCdf to cbl_diagnostics.
	* parse.y: Handle PROCESS token.
	* scan.l: Return PROCESS token.
	* token_names.h: Update.

diff --git a/gcc/cobol/cbldiag.h b/gcc/cobol/cbldiag.h
index 5df71fa68d3e1f2303e8340c3c8b0c28d665066a..338c47ed38a9a81b5a23c729efd3aecb18710022 100644 (file)
--- a/gcc/cobol/cbldiag.h
+++ b/gcc/cobol/cbldiag.h
@@ -158,10 +158,11 @@ enum cbl_diag_id_t : uint64_t {
   LexReplaceE,
   LexSeparatorE,
 
+  IbmCdf,
   IbmEjectE,
   IbmEqualAssignE,
   IbmLengthOf, 
-  IbmProcedurePointer, 
+  IbmProcedurePointer,
   IbmSectionNegE,
   IbmSectionRangeE,
   IbmSectionSegmentW,

diff --git a/gcc/cobol/cdf.y b/gcc/cobol/cdf.y
index 83548a2bbb8d14c5d242eb56e39ab65e6e4d58cc..f239e60ae602eafa4983983ee8725808b92c26d8 100644 (file)
--- a/gcc/cobol/cdf.y
+++ b/gcc/cobol/cdf.y
@@ -274,7 +274,7 @@ apply_cdf_turn( const exception_turn_t& turn ) {
 %type  <cdfarg>        namelit name_any name_one
 %type  <string>        name subscript subscripts inof
 %token <boolean>  BOOL
-%token <number>  FEATURE 367  NUMBER 304  EXCEPTION_NAME 280    "EXCEPTION NAME"
+%token <number>  FEATURE 368  NUMBER 304  EXCEPTION_NAME 280    "EXCEPTION NAME"
 
 %type  <cdfval>        cdf_expr
 %type  <cdfval>        cdf_relexpr cdf_reloper cdf_and cdf_bool_expr
@@ -286,47 +286,47 @@ apply_cdf_turn( const exception_turn_t& turn ) {
 
 %type   <number>        cdf_stackable
 
-%token BY 488
-%token COPY 364
-%token CDF_DISPLAY 386    ">>DISPLAY"
-%token IN 606
+%token BY 489
+%token COPY 365
+%token CDF_DISPLAY 387    ">>DISPLAY"
+%token IN 607
 %token NAME 286
 %token NUMSTR 306    "numeric literal"
-%token OF 687
+%token OF 688
 %token PSEUDOTEXT 723
 %token REPLACING 745
 %token LITERAL 299
-%token SUPPRESS 378
-
-%token LSUB 369    "("
-%token SUBSCRIPT 377  RSUB 374    ")"
-
-%token CDF_DEFINE 385    ">>DEFINE"
-%token CDF_IF 387    ">>IF"
-%token CDF_ELSE 388    ">>ELSE"
-%token CDF_END_IF 389    ">>END-IF"
-%token CDF_EVALUATE 390    ">>EVALUATE"
-%token CDF_WHEN 391    ">>WHEN"
-%token CDF_END_EVALUATE 392    ">>END-EVALUATE"
-
-%token ALL 452
-%token CALL_CONVENTION 393    ">>CALL-CONVENTION"
-%token COBOL_WORDS 382    ">>COBOL-WORDS"
-%token CDF_PUSH 396    ">>PUSH"
-%token CDF_POP 397    ">>POP"
-%token SOURCE_FORMAT 398    ">>SOURCE FORMAT"
-
-%token AS 470  CONSTANT 363  DEFINED 365
+%token SUPPRESS 379
+
+%token LSUB 370    "("
+%token SUBSCRIPT 378  RSUB 375    ")"
+
+%token CDF_DEFINE 386    ">>DEFINE"
+%token CDF_IF 388    ">>IF"
+%token CDF_ELSE 389    ">>ELSE"
+%token CDF_END_IF 390    ">>END-IF"
+%token CDF_EVALUATE 391    ">>EVALUATE"
+%token CDF_WHEN 392    ">>WHEN"
+%token CDF_END_EVALUATE 393    ">>END-EVALUATE"
+
+%token ALL 453
+%token CALL_CONVENTION 394    ">>CALL-CONVENTION"
+%token COBOL_WORDS 383    ">>COBOL-WORDS"
+%token CDF_PUSH 397    ">>PUSH"
+%token CDF_POP 398    ">>POP"
+%token SOURCE_FORMAT 399    ">>SOURCE FORMAT"
+
+%token AS 471  CONSTANT 364  DEFINED 366
 %type  <boolean>            DEFINED
-%token OTHER 699  PARAMETER_kw 370    "PARAMETER"
-%token OFF 688  OVERRIDE 371
+%token OTHER 700  PARAMETER_kw 371    "PARAMETER"
+%token OFF 689  OVERRIDE 372
 %token THRU 950
 %token TRUE_kw 815    "True"
 
-%token CALL_COBOL 394    "CALL"
-%token CALL_VERBATIM 395    "CALL (as C)"
+%token CALL_COBOL 395    "CALL"
+%token CALL_VERBATIM 396    "CALL (as C)"
 
-%token TURN 817  CHECKING 498  LOCATION 650  ON 690  WITH 844
+%token TURN 817  CHECKING 499  LOCATION 651  ON 691  WITH 844
 
 %left OR 951
 %left AND 952

diff --git a/gcc/cobol/cobol1.cc b/gcc/cobol/cobol1.cc
index 0cc17019717594a58d5904d7907848beb6b1f8f3..f7d832d5d2e77792c43031b94b3091c276f7c6a0 100644 (file)
--- a/gcc/cobol/cobol1.cc
+++ b/gcc/cobol/cobol1.cc
@@ -733,6 +733,10 @@ cobol_langhook_handle_option (size_t scode,
           cobol_warning(IbmEjectE, cobol_eject, warning_as_error);
           return true;
 
+        case OPT_Wibm_cdf:
+          cobol_warning(IbmCdf, cobol_ibmcdf, warning_as_error);
+          return true;
+
         case OPT_Woperator_space:
           cobol_warning(LexSeparatorE, operator_space, warning_as_error);
           return true;

diff --git a/gcc/cobol/gcobol.1 b/gcc/cobol/gcobol.1
index 3442f898177d61a76eff6c376137653397b253a0..8d39a1b3612c5891373b6995f5677ef513cfc7a4 100644 (file)
--- a/gcc/cobol/gcobol.1
+++ b/gcc/cobol/gcobol.1
@@ -57,6 +57,7 @@
 .Op Fl Wno-copybook-found
 .Op Fl Wno-ec-unknown
 .Op Fl Wno-entry-convention
+.Op Fl Wno-ibm-cdf
 .Op Fl Wno-iconv-error
 .Op Fl Wno-include-file-found
 .Op Fl Wno-include-file-not-found
@@ -673,6 +674,14 @@ Warn if SET ... TO LOCALE is used.
 .
 `.\" convert errors to warnings
 Warn if a line directive is malformed (instead of error).
+.It Fl Wibm-cdf
+Warn if IBM-specific CDF directives are used (instead of error).
+With
+.Fl dialect Sy ibm
+some potentially important directives produce a warning.
+This option allows the warning to be defeated or, with
+.Fl Werror ,
+converted to an error.
 .It Fl Wno-iconv-error
 Warn if iconv(3) cannot convert between encodings (instead of error).
 .It Fl Wno-include-file-not-found

diff --git a/gcc/cobol/lang-specs.h b/gcc/cobol/lang-specs.h
index 84dd1757152b022ae22853016ef9421e26d0dfa4..65f49b662883c3564153c486b1de9cb65f5a885f 100644 (file)
--- a/gcc/cobol/lang-specs.h
+++ b/gcc/cobol/lang-specs.h
@@ -67,6 +67,7 @@
        "%{Wno-copybook-found} "
        "%{Wno-ec-unknown} "
        "%{Wno-entry-convention} "
+       "%{Wno-ibm-cdf} "
        "%{Wno-iconv-error} "
        "%{Wno-include-file-found} "
        "%{Wno-include-file-not-found} "

diff --git a/gcc/cobol/lang.opt b/gcc/cobol/lang.opt
index 8abd816ae64c6c6caed0a2ef1d99d88d56c85a70..bd4cb22b0b287f0af8bfadfa4ec5fbc008faa6d2 100644 (file)
--- a/gcc/cobol/lang.opt
+++ b/gcc/cobol/lang.opt
@@ -228,6 +228,11 @@ Wnllanginfo-error
 Cobol Warning Var(nllanginfo_error, 1) Init(1)
 Warn if nlanglanginfo(3) fails.
 
+; IbmCdf
+Wibm-cdf
+Cobol Warning Var(cobol_ibmcdf, 1) Init(1)
+Warn if IBM-specific CDF directives are used.
+
 ; IbmLengthOf
 Wlength-of
 Cobol Warning Var(cobol_length_of, 1) Init(1)

diff --git a/gcc/cobol/messages.cc b/gcc/cobol/messages.cc
index a6178e5742052b97855ab8f36296abf669e06420..347333f758c7a1fe44201b80139f07f93b70d49e 100644 (file)
--- a/gcc/cobol/messages.cc
+++ b/gcc/cobol/messages.cc
@@ -122,6 +122,7 @@ std::set<cbl_diag_t> cbl_diagnostics {
 
   { EcUnknownW, "-Wec-unknown", diagnostics::kind::warning },
 
+  { IbmCdf, "-Wibm-cdf", diagnostics::kind::error, dialect_ibm_e },
   { IbmEjectE, "-Wcobol-eject", diagnostics::kind::error, dialect_ibm_e },
   { IbmLengthOf, "-Wlength-of", diagnostics::kind::error, dialect_ibm_mf_gnu },
   { IbmEqualAssignE, "-Wequal-assign", diagnostics::kind::error, dialect_ibm_e },
@@ -250,6 +251,9 @@ cobol_warning_suppress( cbl_dialect_t dialect ) {
   for( auto diag : cbl_diagnostics ) {
     if( diag.dialect & dialect ) {
       switch(diag.id) {
+      case IbmCdf:
+        diag.kind = diagnostics::kind::warning;
+        break;
       case IbmSectionNegE:
       case IbmSectionRangeE:
       case IbmSectionSegmentW:

diff --git a/gcc/cobol/parse.y b/gcc/cobol/parse.y
index 73b8ff6ace3a02cb592d424d83e26e3143f5f3a1..63210685947e81839585566eca153f6dbbd2d165 100644 (file)
--- a/gcc/cobol/parse.y
+++ b/gcc/cobol/parse.y
@@ -403,7 +403,7 @@ class locale_tgt_t {
 %token  <boolean>       PERFORM BACKWARD
 %token  <number>        POSITIVE
 %token  <field_attr>   POINTER
-%token  <string>        SECTION
+%token  <string>        PROCESS SECTION
 %token  <number>        STANDARD_ALPHABET "STANDARD ALPHABET"
 %token  <string>        SWITCH
 %token  <string>        UPSI 
@@ -596,7 +596,7 @@ class locale_tgt_t {
                        PAGE_COUNTER "PAGE-COUNTER"
                        PF PH PI PIC PICTURE
                        PLUS PRESENT_VALUE PRINT_SWITCH
-                       PROCEDURE PROCEDURES PROCEED PROCESS PROCESSING
+                       PROCEDURE PROCEDURES PROCEED PROCESSING
                        PROGRAM_ID "PROGRAM-ID"
                        PROGRAM_kw "Program" PROPERTY PROTOTYPE PSEUDOTEXT
 
@@ -1284,7 +1284,7 @@ class locale_tgt_t {
                        PAGE_COUNTER
                         PF PH PI PIC PICTURE PIC_P
                         PLUS POINTER POSITIVE PRESENT_VALUE PRINT_SWITCH
-                        PROCEDURE PROCEDURES PROCEED PROCESS
+                        PROCEDURE PROCEDURES PROCEED 
                         PROGRAM_ID
                        PROGRAM_kw PROPERTY PROTOTYPE PSEUDOTEXT
 
@@ -1631,6 +1631,9 @@ cobol_words1:     COBOL_WORDS EQUATE NAME[keyword] WITH NAME[name] {
        |       COBOL_WORDS RESERVE NAME[name] {
                  if( ! cdf_tokens.reserve(@name, $name) ) { YYERROR; }
                }
+        |       PROCESS {
+                  cbl_message(@1, IbmCdf, "%qs", $1);
+                }
                ;
 
 program_id:     PROGRAM_ID dot namestr[name] program_as program_attrs[attr] dot
@@ -3718,45 +3721,6 @@ field:          cdf
                     }
                   }
                   field_done();
-
-#if 0
-                  const auto& field(*$data_descr);
-
-                  // Format data.initial per picture
-                  if( 0 == pristine_values.count(field.data.initial) ) {
-                    if( field.data.digits > 0 && !field.is_zero() ) {
-                      char *initial;
-                      int rdigits = field.data.rdigits < 0?
-                                    1 : field.data.rdigits + 1;
-
-                      if( field.has_attr(scaled_e) ) {
-                        if( field.data.rdigits > 0 ) {
-                          rdigits = field.data.digits + field.data.rdigits;
-                        } else {
-                          rdigits = 0;
-                        }
-                      }
-                      initial = string_of(field.data.value_of());
-                      if( !initial ) {
-                        error_msg(@1, "could not convert value to string");
-                        YYERROR;
-                      }
-                      char decimal = symbol_decimal_point();
-                      std::replace(initial, initial + strlen(initial), '.', decimal);
-                      free(const_cast<char*>($data_descr->data.initial));
-                      $data_descr->data.initial = initial;
-                      if( yydebug ) {
-                        const char *value_str = string_of(field.data.value_of());
-                        dbgmsg("%s::data.initial is (%%%d.%d) %s ==> '%s'",
-                              field.name,
-                              field.data.digits,
-                              rdigits,
-                              value_str? value_str : "",
-                              field.data.initial);
-                      }
-                    }
-                  }
-#endif
                 }
                 ;
 

diff --git a/gcc/cobol/scan.l b/gcc/cobol/scan.l
index 5255cf48b32ce2a174647c8044324d7d7b89d090..1f9f3dd2b080bc29a6560c68801c35f365e78acf 100644 (file)
--- a/gcc/cobol/scan.l
+++ b/gcc/cobol/scan.l
@@ -2288,9 +2288,13 @@ USE({SPC}FOR)?           { return USE; }
 [*]CBL         { return STAR_CBL; }
 [*]CONTROL     { return STAR_CBL; }
 
-^[ ]*[*](PROCESS\b|CBL\b).*$ {
-                 auto p = std::find(yytext, yytext + yyleng, '*');
-                 not_implemented("CDF '%s' was ignored", p);
+(PROCESS|CBL)({BLANK}.*)?/{EOL} {
+                 yylval.string = xstrdup(yytext);
+                  for(char *p = yylval.string + strlen(yylval.string) - 1;
+                      *p == 0x20; p-- ) {
+                      *p = '\0';
+                  }
+                 return PROCESS;
                }
 ^[ ]*[@]OPTIONS.+$ {
                  auto p = std::find(yytext, yytext + yyleng, '@');

diff --git a/gcc/cobol/token_names.h b/gcc/cobol/token_names.h
index acb002a339d47418fbbc453610985dad8605ac0e..27c39935470dd483f6dc1d5d9786d4e42bc1992a 100644 (file)
--- a/gcc/cobol/token_names.h
+++ b/gcc/cobol/token_names.h
@@ -57,413 +57,413 @@ tokens = {
        { "backward", BACKWARD }, // 311
        { "positive", POSITIVE }, // 312
        { "pointer", POINTER }, // 313
-       { "section", SECTION }, // 314
-       { "standard-alphabet", STANDARD_ALPHABET }, // 315
-       { "switch", SWITCH }, // 316
-       { "upsi", UPSI }, // 317
-       { "zero", ZERO }, // 318
-       { "zeros", ZERO }, // 318
-       { "zeroes", ZERO }, // 318
-       { "sysin", SYSIN }, // 319
-       { "sysipt", SYSIPT }, // 320
-       { "sysout", SYSOUT }, // 321
-       { "syslist", SYSLIST }, // 322
-       { "syslst", SYSLST }, // 323
-       { "syspunch", SYSPUNCH }, // 324
-       { "syspch", SYSPCH }, // 325
-       { "console", CONSOLE }, // 326
-       { "c01", C01 }, // 327
-       { "c02", C02 }, // 328
-       { "c03", C03 }, // 329
-       { "c04", C04 }, // 330
-       { "c05", C05 }, // 331
-       { "c06", C06 }, // 332
-       { "c07", C07 }, // 333
-       { "c08", C08 }, // 334
-       { "c09", C09 }, // 335
-       { "c10", C10 }, // 336
-       { "c11", C11 }, // 337
-       { "c12", C12 }, // 338
-       { "csp", CSP }, // 339
-       { "s01", S01 }, // 340
-       { "s02", S02 }, // 341
-       { "s03", S03 }, // 342
-       { "s04", S04 }, // 343
-       { "s05", S05 }, // 344
-       { "afp-5a", AFP_5A }, // 345
-       { "stdin", STDIN }, // 346
-       { "stdout", STDOUT }, // 347
-       { "stderr", STDERR }, // 348
-       { "list", LIST }, // 349
-       { "map", MAP }, // 350
-       { "nolist", NOLIST }, // 351
-       { "nomap", NOMAP }, // 352
-       { "nosource", NOSOURCE }, // 353
-       { "might-be", MIGHT_BE }, // 354
-       { "function-udf", FUNCTION_UDF }, // 355
-       { "function-udf-0", FUNCTION_UDF_0 }, // 356
-       { "default", DEFAULT }, // 357
-       { "date-fmt", DATE_FMT }, // 358
-       { "time-fmt", TIME_FMT }, // 359
-       { "datetime-fmt", DATETIME_FMT }, // 360
-       { "basis", BASIS }, // 361
-       { "cbl", CBL }, // 362
-       { "constant", CONSTANT }, // 363
-       { "copy", COPY }, // 364
-       { "defined", DEFINED }, // 365
-       { "enter", ENTER }, // 366
-       { "feature", FEATURE }, // 367
-       { "insertt", INSERTT }, // 368
-       { "lsub", LSUB }, // 369
-       { "parameter", PARAMETER_kw }, // 370
-       { "override", OVERRIDE }, // 371
-       { "ready", READY }, // 372
-       { "reset", RESET }, // 373
-       { "rsub", RSUB }, // 374
-       { "service-reload", SERVICE_RELOAD }, // 375
-       { "star-cbl", STAR_CBL }, // 376
-       { "subscript", SUBSCRIPT }, // 377
-       { "suppress", SUPPRESS }, // 378
-       { "title", TITLE }, // 379
-       { "trace", TRACE }, // 380
-       { "use", USE }, // 381
-       { "cobol-words", COBOL_WORDS }, // 382
-       { "equate", EQUATE }, // 383
-       { "undefine", UNDEFINE }, // 384
-       { "cdf-define", CDF_DEFINE }, // 385
-       { "cdf-display", CDF_DISPLAY }, // 386
-       { "cdf-if", CDF_IF }, // 387
-       { "cdf-else", CDF_ELSE }, // 388
-       { "cdf-end-if", CDF_END_IF }, // 389
-       { "cdf-evaluate", CDF_EVALUATE }, // 390
-       { "cdf-when", CDF_WHEN }, // 391
-       { "cdf-end-evaluate", CDF_END_EVALUATE }, // 392
-       { "call-convention", CALL_CONVENTION }, // 393
-       { "call-cobol", CALL_COBOL }, // 394
-       { "call-verbatim", CALL_VERBATIM }, // 395
-       { "cdf-push", CDF_PUSH }, // 396
-       { "cdf-pop", CDF_POP }, // 397
-       { "source-format", SOURCE_FORMAT }, // 398
-       { "if", IF }, // 399
-       { "then", THEN }, // 400
-       { "else", ELSE }, // 401
-       { "sentence", SENTENCE }, // 402
-       { "accept", ACCEPT }, // 403
-       { "add", ADD }, // 404
-       { "alter", ALTER }, // 405
-       { "call", CALL }, // 406
-       { "cancel", CANCEL }, // 407
-       { "close", CLOSE }, // 408
-       { "compute", COMPUTE }, // 409
-       { "continue", CONTINUE }, // 410
-       { "delete", DELETE }, // 411
-       { "display", DISPLAY }, // 412
-       { "divide", DIVIDE }, // 413
-       { "evaluate", EVALUATE }, // 414
-       { "exit", EXIT }, // 415
-       { "filler", FILLER_kw }, // 416
-       { "goback", GOBACK }, // 417
-       { "goto", GOTO }, // 418
-       { "initialize", INITIALIZE }, // 419
-       { "inspect", INSPECT }, // 420
-       { "merge", MERGE }, // 421
-       { "move", MOVE }, // 422
-       { "multiply", MULTIPLY }, // 423
-       { "open", OPEN }, // 424
-       { "paragraph", PARAGRAPH }, // 425
-       { "read", READ }, // 426
-       { "release", RELEASE }, // 427
-       { "return", RETURN }, // 428
-       { "rewrite", REWRITE }, // 429
-       { "search", SEARCH }, // 430
-       { "set", SET }, // 431
-       { "select", SELECT }, // 432
-       { "sort", SORT }, // 433
-       { "sort-merge", SORT_MERGE }, // 434
-       { "string", STRING_kw }, // 435
-       { "stop", STOP }, // 436
-       { "subtract", SUBTRACT }, // 437
-       { "start", START }, // 438
-       { "unstring", UNSTRING }, // 439
-       { "write", WRITE }, // 440
-       { "when", WHEN }, // 441
-       { "argument-number", ARGUMENT_NUMBER }, // 442
-       { "argument-value", ARGUMENT_VALUE }, // 443
-       { "environment-name", ENVIRONMENT_NAME }, // 444
-       { "environment-value", ENVIRONMENT_VALUE }, // 445
-       { "abs", ABS }, // 446
-       { "access", ACCESS }, // 447
-       { "acos", ACOS }, // 448
-       { "actual", ACTUAL }, // 449
-       { "advancing", ADVANCING }, // 450
-       { "after", AFTER }, // 451
-       { "all", ALL }, // 452
-       { "allocate", ALLOCATE }, // 453
-       { "alphabet", ALPHABET }, // 454
-       { "alphabetic", ALPHABETIC }, // 455
-       { "alphabetic-lower", ALPHABETIC_LOWER }, // 456
-       { "alphabetic-upper", ALPHABETIC_UPPER }, // 457
-       { "alphanumeric", ALPHANUMERIC }, // 458
-       { "alphanumeric-edited", ALPHANUMERIC_EDITED }, // 459
-       { "also", ALSO }, // 460
-       { "alternate", ALTERNATE }, // 461
-       { "annuity", ANNUITY }, // 462
-       { "anum", ANUM }, // 463
-       { "any", ANY }, // 464
-       { "anycase", ANYCASE }, // 465
-       { "apply", APPLY }, // 466
-       { "are", ARE }, // 467
-       { "area", AREA }, // 468
-       { "areas", AREAS }, // 469
-       { "as", AS }, // 470
-       { "ascending", ASCENDING }, // 471
-       { "activating", ACTIVATING }, // 472
-       { "asin", ASIN }, // 473
-       { "assign", ASSIGN }, // 474
-       { "at", AT }, // 475
-       { "atan", ATAN }, // 476
-       { "based", BASED }, // 477
-       { "baseconvert", BASECONVERT }, // 478
-       { "before", BEFORE }, // 479
-       { "binary", BINARY }, // 480
-       { "bit", BIT }, // 481
-       { "bit-of", BIT_OF }, // 482
-       { "bit-to-char", BIT_TO_CHAR }, // 483
-       { "blank", BLANK }, // 484
-       { "block", BLOCK_kw }, // 485
-       { "boolean-of-integer", BOOLEAN_OF_INTEGER }, // 486
-       { "bottom", BOTTOM }, // 487
-       { "by", BY }, // 488
-       { "byte", BYTE }, // 489
-       { "byte-length", BYTE_LENGTH }, // 490
-       { "cf", CF }, // 491
-       { "ch", CH }, // 492
-       { "changed", CHANGED }, // 493
-       { "char", CHAR }, // 494
-       { "char-national", CHAR_NATIONAL }, // 495
-       { "character", CHARACTER }, // 496
-       { "characters", CHARACTERS }, // 497
-       { "checking", CHECKING }, // 498
-       { "class", CLASS }, // 499
-       { "cobol", COBOL }, // 500
-       { "code", CODE }, // 501
-       { "code-set", CODESET }, // 502
-       { "collating", COLLATING }, // 503
-       { "column", COLUMN }, // 504
-       { "combined-datetime", COMBINED_DATETIME }, // 505
-       { "comma", COMMA }, // 506
-       { "command-line", COMMAND_LINE }, // 507
-       { "command-line-count", COMMAND_LINE_COUNT }, // 508
-       { "commit", COMMIT }, // 509
-       { "common", COMMON }, // 510
-       { "concat", CONCAT }, // 511
-       { "condition", CONDITION }, // 512
-       { "configuration", CONFIGURATION_SECT }, // 513
-       { "contains", CONTAINS }, // 514
-       { "content", CONTENT }, // 515
-       { "control", CONTROL }, // 516
-       { "controls", CONTROLS }, // 517
-       { "convert", CONVERT }, // 518
-       { "converting", CONVERTING }, // 519
-       { "corresponding", CORRESPONDING }, // 520
-       { "cos", COS }, // 521
-       { "count", COUNT }, // 522
-       { "currency", CURRENCY }, // 523
-       { "current", CURRENT }, // 524
-       { "current-date", CURRENT_DATE }, // 525
-       { "data", DATA }, // 526
-       { "date", DATE }, // 527
-       { "date-compiled", DATE_COMPILED }, // 528
-       { "date-of-integer", DATE_OF_INTEGER }, // 529
-       { "date-to-yyyymmdd", DATE_TO_YYYYMMDD }, // 530
-       { "date-written", DATE_WRITTEN }, // 531
-       { "day", DAY }, // 532
-       { "day-of-integer", DAY_OF_INTEGER }, // 533
-       { "day-of-week", DAY_OF_WEEK }, // 534
-       { "day-to-yyyyddd", DAY_TO_YYYYDDD }, // 535
-       { "dbcs", DBCS }, // 536
-       { "de", DE }, // 537
-       { "debugging", DEBUGGING }, // 538
-       { "decimal-point", DECIMAL_POINT }, // 539
-       { "declaratives", DECLARATIVES }, // 540
-       { "delimited", DELIMITED }, // 541
-       { "delimiter", DELIMITER }, // 542
-       { "depending", DEPENDING }, // 543
-       { "descending", DESCENDING }, // 544
-       { "detail", DETAIL }, // 545
-       { "direct", DIRECT }, // 546
-       { "direct-access", DIRECT_ACCESS }, // 547
-       { "down", DOWN }, // 548
-       { "duplicates", DUPLICATES }, // 549
-       { "dynamic", DYNAMIC }, // 550
-       { "e", E }, // 551
-       { "ebcdic", EBCDIC }, // 552
-       { "ec", EC }, // 553
-       { "egcs", EGCS }, // 554
-       { "encoding", ENCODING }, // 555
-       { "entry", ENTRY }, // 556
-       { "environment", ENVIRONMENT }, // 557
-       { "every", EVERY }, // 558
-       { "examine", EXAMINE }, // 559
-       { "exhibit", EXHIBIT }, // 560
-       { "exp", EXP }, // 561
-       { "exp10", EXP10 }, // 562
-       { "extend", EXTEND }, // 563
-       { "external", EXTERNAL }, // 564
-       { "exception-file", EXCEPTION_FILE }, // 565
-       { "exception-file-n", EXCEPTION_FILE_N }, // 566
-       { "exception-location", EXCEPTION_LOCATION }, // 567
-       { "exception-location-n", EXCEPTION_LOCATION_N }, // 568
-       { "exception-statement", EXCEPTION_STATEMENT }, // 569
-       { "exception-status", EXCEPTION_STATUS }, // 570
-       { "factorial", FACTORIAL }, // 571
-       { "false", FALSE_kw }, // 572
-       { "fd", FD }, // 573
-       { "file-control", FILE_CONTROL }, // 574
-       { "file", FILE_KW }, // 575
-       { "file-limit", FILE_LIMIT }, // 576
-       { "final", FINAL }, // 577
-       { "finally", FINALLY }, // 578
-       { "find-string", FIND_STRING }, // 579
-       { "first", FIRST }, // 580
-       { "fixed", FIXED }, // 581
-       { "footing", FOOTING }, // 582
-       { "for", FOR }, // 583
-       { "formatted-current-date", FORMATTED_CURRENT_DATE }, // 584
-       { "formatted-date", FORMATTED_DATE }, // 585
-       { "formatted-datetime", FORMATTED_DATETIME }, // 586
-       { "formatted-time", FORMATTED_TIME }, // 587
-       { "form-overflow", FORM_OVERFLOW }, // 588
-       { "free", FREE }, // 589
-       { "fraction-part", FRACTION_PART }, // 590
-       { "from", FROM }, // 591
-       { "function", FUNCTION }, // 592
-       { "generate", GENERATE }, // 593
-       { "giving", GIVING }, // 594
-       { "global", GLOBAL }, // 595
-       { "go", GO }, // 596
-       { "group", GROUP }, // 597
-       { "heading", HEADING }, // 598
-       { "hex", HEX }, // 599
-       { "hex-of", HEX_OF }, // 600
-       { "hex-to-char", HEX_TO_CHAR }, // 601
-       { "high-values", HIGH_VALUES }, // 602
-       { "highest-algebraic", HIGHEST_ALGEBRAIC }, // 603
-       { "hold", HOLD }, // 604
-       { "ibm-360", IBM_360 }, // 605
-       { "in", IN }, // 606
-       { "include", INCLUDE }, // 607
-       { "index", INDEX }, // 608
-       { "indexed", INDEXED }, // 609
-       { "indicate", INDICATE }, // 610
-       { "initial", INITIAL_kw }, // 611
-       { "initiate", INITIATE }, // 612
-       { "input", INPUT }, // 613
-       { "installation", INSTALLATION }, // 614
-       { "interface", INTERFACE }, // 615
-       { "integer", INTEGER }, // 616
-       { "integer-of-boolean", INTEGER_OF_BOOLEAN }, // 617
-       { "integer-of-date", INTEGER_OF_DATE }, // 618
-       { "integer-of-day", INTEGER_OF_DAY }, // 619
-       { "integer-of-formatted-date", INTEGER_OF_FORMATTED_DATE }, // 620
-       { "integer-part", INTEGER_PART }, // 621
-       { "into", INTO }, // 622
-       { "intrinsic", INTRINSIC }, // 623
-       { "invoke", INVOKE }, // 624
-       { "i-o", IO }, // 625
-       { "i-o-control", IO_CONTROL }, // 626
-       { "is", IS }, // 627
-       { "isnt", ISNT }, // 628
-       { "kanji", KANJI }, // 629
-       { "key", KEY }, // 630
-       { "label", LABEL }, // 631
-       { "last", LAST }, // 632
-       { "leading", LEADING }, // 633
-       { "left", LEFT }, // 634
-       { "length", LENGTH }, // 635
-       { "length-of", LENGTH_OF }, // 636
-       { "limit", LIMIT }, // 637
-       { "limits", LIMITS }, // 638
-       { "line", LINE }, // 639
-       { "lines", LINES }, // 640
-       { "line-counter", LINE_COUNTER }, // 641
-       { "linage", LINAGE }, // 642
-       { "linkage", LINKAGE }, // 643
-       { "locale", LOCALE }, // 644
-       { "locale-compare", LOCALE_COMPARE }, // 645
-       { "locale-date", LOCALE_DATE }, // 646
-       { "locale-time", LOCALE_TIME }, // 647
-       { "locale-time-from-seconds", LOCALE_TIME_FROM_SECONDS }, // 648
-       { "local-storage", LOCAL_STORAGE }, // 649
-       { "location", LOCATION }, // 650
-       { "lock", LOCK }, // 651
-       { "lock-on", LOCK_ON }, // 652
-       { "log", LOG }, // 653
-       { "log10", LOG10 }, // 654
-       { "lower-case", LOWER_CASE }, // 655
-       { "low-values", LOW_VALUES }, // 656
-       { "lowest-algebraic", LOWEST_ALGEBRAIC }, // 657
-       { "lparen", LPAREN }, // 658
-       { "manual", MANUAL }, // 659
-       { "maxx", MAXX }, // 660
-       { "mean", MEAN }, // 661
-       { "median", MEDIAN }, // 662
-       { "midrange", MIDRANGE }, // 663
-       { "minn", MINN }, // 664
-       { "multiple", MULTIPLE }, // 665
-       { "mod", MOD }, // 666
-       { "mode", MODE }, // 667
-       { "module-name", MODULE_NAME }, // 668
-       { "named", NAMED }, // 669
-       { "nat", NAT }, // 670
-       { "national", NATIONAL }, // 671
-       { "national-edited", NATIONAL_EDITED }, // 672
-       { "national-of", NATIONAL_OF }, // 673
-       { "native", NATIVE }, // 674
-       { "nested", NESTED }, // 675
-       { "next", NEXT }, // 676
-       { "no", NO }, // 677
-       { "note", NOTE }, // 678
-       { "nulls", NULLS }, // 679
-       { "null", NULLS }, // 679
-       { "nullptr", NULLPTR }, // 680
-       { "numeric", NUMERIC }, // 681
-       { "numeric-edited", NUMERIC_EDITED }, // 682
-       { "numval", NUMVAL }, // 683
-       { "numval-c", NUMVAL_C }, // 684
-       { "numval-f", NUMVAL_F }, // 685
-       { "occurs", OCCURS }, // 686
-       { "of", OF }, // 687
-       { "off", OFF }, // 688
-       { "omitted", OMITTED }, // 689
-       { "on", ON }, // 690
-       { "only", ONLY }, // 691
-       { "optional", OPTIONAL }, // 692
-       { "options", OPTIONS }, // 693
-       { "ord", ORD }, // 694
-       { "order", ORDER }, // 695
-       { "ord-max", ORD_MAX }, // 696
-       { "ord-min", ORD_MIN }, // 697
-       { "organization", ORGANIZATION }, // 698
-       { "other", OTHER }, // 699
-       { "otherwise", OTHERWISE }, // 700
-       { "output", OUTPUT }, // 701
-       { "packed-decimal", PACKED_DECIMAL }, // 702
-       { "padding", PADDING }, // 703
-       { "page", PAGE }, // 704
-       { "page-counter", PAGE_COUNTER }, // 705
-       { "pf", PF }, // 706
-       { "ph", PH }, // 707
-       { "pi", PI }, // 708
-       { "pic", PIC }, // 709
-       { "picture", PICTURE }, // 710
-       { "plus", PLUS }, // 711
-       { "present-value", PRESENT_VALUE }, // 712
-       { "print-switch", PRINT_SWITCH }, // 713
-       { "procedure", PROCEDURE }, // 714
-       { "procedures", PROCEDURES }, // 715
-       { "proceed", PROCEED }, // 716
-       { "process", PROCESS }, // 717
+       { "process", PROCESS }, // 314
+       { "section", SECTION }, // 315
+       { "standard-alphabet", STANDARD_ALPHABET }, // 316
+       { "switch", SWITCH }, // 317
+       { "upsi", UPSI }, // 318
+       { "zero", ZERO }, // 319
+       { "zeros", ZERO }, // 319
+       { "zeroes", ZERO }, // 319
+       { "sysin", SYSIN }, // 320
+       { "sysipt", SYSIPT }, // 321
+       { "sysout", SYSOUT }, // 322
+       { "syslist", SYSLIST }, // 323
+       { "syslst", SYSLST }, // 324
+       { "syspunch", SYSPUNCH }, // 325
+       { "syspch", SYSPCH }, // 326
+       { "console", CONSOLE }, // 327
+       { "c01", C01 }, // 328
+       { "c02", C02 }, // 329
+       { "c03", C03 }, // 330
+       { "c04", C04 }, // 331
+       { "c05", C05 }, // 332
+       { "c06", C06 }, // 333
+       { "c07", C07 }, // 334
+       { "c08", C08 }, // 335
+       { "c09", C09 }, // 336
+       { "c10", C10 }, // 337
+       { "c11", C11 }, // 338
+       { "c12", C12 }, // 339
+       { "csp", CSP }, // 340
+       { "s01", S01 }, // 341
+       { "s02", S02 }, // 342
+       { "s03", S03 }, // 343
+       { "s04", S04 }, // 344
+       { "s05", S05 }, // 345
+       { "afp-5a", AFP_5A }, // 346
+       { "stdin", STDIN }, // 347
+       { "stdout", STDOUT }, // 348
+       { "stderr", STDERR }, // 349
+       { "list", LIST }, // 350
+       { "map", MAP }, // 351
+       { "nolist", NOLIST }, // 352
+       { "nomap", NOMAP }, // 353
+       { "nosource", NOSOURCE }, // 354
+       { "might-be", MIGHT_BE }, // 355
+       { "function-udf", FUNCTION_UDF }, // 356
+       { "function-udf-0", FUNCTION_UDF_0 }, // 357
+       { "default", DEFAULT }, // 358
+       { "date-fmt", DATE_FMT }, // 359
+       { "time-fmt", TIME_FMT }, // 360
+       { "datetime-fmt", DATETIME_FMT }, // 361
+       { "basis", BASIS }, // 362
+       { "cbl", CBL }, // 363
+       { "constant", CONSTANT }, // 364
+       { "copy", COPY }, // 365
+       { "defined", DEFINED }, // 366
+       { "enter", ENTER }, // 367
+       { "feature", FEATURE }, // 368
+       { "insertt", INSERTT }, // 369
+       { "lsub", LSUB }, // 370
+       { "parameter", PARAMETER_kw }, // 371
+       { "override", OVERRIDE }, // 372
+       { "ready", READY }, // 373
+       { "reset", RESET }, // 374
+       { "rsub", RSUB }, // 375
+       { "service-reload", SERVICE_RELOAD }, // 376
+       { "star-cbl", STAR_CBL }, // 377
+       { "subscript", SUBSCRIPT }, // 378
+       { "suppress", SUPPRESS }, // 379
+       { "title", TITLE }, // 380
+       { "trace", TRACE }, // 381
+       { "use", USE }, // 382
+       { "cobol-words", COBOL_WORDS }, // 383
+       { "equate", EQUATE }, // 384
+       { "undefine", UNDEFINE }, // 385
+       { "cdf-define", CDF_DEFINE }, // 386
+       { "cdf-display", CDF_DISPLAY }, // 387
+       { "cdf-if", CDF_IF }, // 388
+       { "cdf-else", CDF_ELSE }, // 389
+       { "cdf-end-if", CDF_END_IF }, // 390
+       { "cdf-evaluate", CDF_EVALUATE }, // 391
+       { "cdf-when", CDF_WHEN }, // 392
+       { "cdf-end-evaluate", CDF_END_EVALUATE }, // 393
+       { "call-convention", CALL_CONVENTION }, // 394
+       { "call-cobol", CALL_COBOL }, // 395
+       { "call-verbatim", CALL_VERBATIM }, // 396
+       { "cdf-push", CDF_PUSH }, // 397
+       { "cdf-pop", CDF_POP }, // 398
+       { "source-format", SOURCE_FORMAT }, // 399
+       { "if", IF }, // 400
+       { "then", THEN }, // 401
+       { "else", ELSE }, // 402
+       { "sentence", SENTENCE }, // 403
+       { "accept", ACCEPT }, // 404
+       { "add", ADD }, // 405
+       { "alter", ALTER }, // 406
+       { "call", CALL }, // 407
+       { "cancel", CANCEL }, // 408
+       { "close", CLOSE }, // 409
+       { "compute", COMPUTE }, // 410
+       { "continue", CONTINUE }, // 411
+       { "delete", DELETE }, // 412
+       { "display", DISPLAY }, // 413
+       { "divide", DIVIDE }, // 414
+       { "evaluate", EVALUATE }, // 415
+       { "exit", EXIT }, // 416
+       { "filler", FILLER_kw }, // 417
+       { "goback", GOBACK }, // 418
+       { "goto", GOTO }, // 419
+       { "initialize", INITIALIZE }, // 420
+       { "inspect", INSPECT }, // 421
+       { "merge", MERGE }, // 422
+       { "move", MOVE }, // 423
+       { "multiply", MULTIPLY }, // 424
+       { "open", OPEN }, // 425
+       { "paragraph", PARAGRAPH }, // 426
+       { "read", READ }, // 427
+       { "release", RELEASE }, // 428
+       { "return", RETURN }, // 429
+       { "rewrite", REWRITE }, // 430
+       { "search", SEARCH }, // 431
+       { "set", SET }, // 432
+       { "select", SELECT }, // 433
+       { "sort", SORT }, // 434
+       { "sort-merge", SORT_MERGE }, // 435
+       { "string", STRING_kw }, // 436
+       { "stop", STOP }, // 437
+       { "subtract", SUBTRACT }, // 438
+       { "start", START }, // 439
+       { "unstring", UNSTRING }, // 440
+       { "write", WRITE }, // 441
+       { "when", WHEN }, // 442
+       { "argument-number", ARGUMENT_NUMBER }, // 443
+       { "argument-value", ARGUMENT_VALUE }, // 444
+       { "environment-name", ENVIRONMENT_NAME }, // 445
+       { "environment-value", ENVIRONMENT_VALUE }, // 446
+       { "abs", ABS }, // 447
+       { "access", ACCESS }, // 448
+       { "acos", ACOS }, // 449
+       { "actual", ACTUAL }, // 450
+       { "advancing", ADVANCING }, // 451
+       { "after", AFTER }, // 452
+       { "all", ALL }, // 453
+       { "allocate", ALLOCATE }, // 454
+       { "alphabet", ALPHABET }, // 455
+       { "alphabetic", ALPHABETIC }, // 456
+       { "alphabetic-lower", ALPHABETIC_LOWER }, // 457
+       { "alphabetic-upper", ALPHABETIC_UPPER }, // 458
+       { "alphanumeric", ALPHANUMERIC }, // 459
+       { "alphanumeric-edited", ALPHANUMERIC_EDITED }, // 460
+       { "also", ALSO }, // 461
+       { "alternate", ALTERNATE }, // 462
+       { "annuity", ANNUITY }, // 463
+       { "anum", ANUM }, // 464
+       { "any", ANY }, // 465
+       { "anycase", ANYCASE }, // 466
+       { "apply", APPLY }, // 467
+       { "are", ARE }, // 468
+       { "area", AREA }, // 469
+       { "areas", AREAS }, // 470
+       { "as", AS }, // 471
+       { "ascending", ASCENDING }, // 472
+       { "activating", ACTIVATING }, // 473
+       { "asin", ASIN }, // 474
+       { "assign", ASSIGN }, // 475
+       { "at", AT }, // 476
+       { "atan", ATAN }, // 477
+       { "based", BASED }, // 478
+       { "baseconvert", BASECONVERT }, // 479
+       { "before", BEFORE }, // 480
+       { "binary", BINARY }, // 481
+       { "bit", BIT }, // 482
+       { "bit-of", BIT_OF }, // 483
+       { "bit-to-char", BIT_TO_CHAR }, // 484
+       { "blank", BLANK }, // 485
+       { "block", BLOCK_kw }, // 486
+       { "boolean-of-integer", BOOLEAN_OF_INTEGER }, // 487
+       { "bottom", BOTTOM }, // 488
+       { "by", BY }, // 489
+       { "byte", BYTE }, // 490
+       { "byte-length", BYTE_LENGTH }, // 491
+       { "cf", CF }, // 492
+       { "ch", CH }, // 493
+       { "changed", CHANGED }, // 494
+       { "char", CHAR }, // 495
+       { "char-national", CHAR_NATIONAL }, // 496
+       { "character", CHARACTER }, // 497
+       { "characters", CHARACTERS }, // 498
+       { "checking", CHECKING }, // 499
+       { "class", CLASS }, // 500
+       { "cobol", COBOL }, // 501
+       { "code", CODE }, // 502
+       { "code-set", CODESET }, // 503
+       { "collating", COLLATING }, // 504
+       { "column", COLUMN }, // 505
+       { "combined-datetime", COMBINED_DATETIME }, // 506
+       { "comma", COMMA }, // 507
+       { "command-line", COMMAND_LINE }, // 508
+       { "command-line-count", COMMAND_LINE_COUNT }, // 509
+       { "commit", COMMIT }, // 510
+       { "common", COMMON }, // 511
+       { "concat", CONCAT }, // 512
+       { "condition", CONDITION }, // 513
+       { "configuration", CONFIGURATION_SECT }, // 514
+       { "contains", CONTAINS }, // 515
+       { "content", CONTENT }, // 516
+       { "control", CONTROL }, // 517
+       { "controls", CONTROLS }, // 518
+       { "convert", CONVERT }, // 519
+       { "converting", CONVERTING }, // 520
+       { "corresponding", CORRESPONDING }, // 521
+       { "cos", COS }, // 522
+       { "count", COUNT }, // 523
+       { "currency", CURRENCY }, // 524
+       { "current", CURRENT }, // 525
+       { "current-date", CURRENT_DATE }, // 526
+       { "data", DATA }, // 527
+       { "date", DATE }, // 528
+       { "date-compiled", DATE_COMPILED }, // 529
+       { "date-of-integer", DATE_OF_INTEGER }, // 530
+       { "date-to-yyyymmdd", DATE_TO_YYYYMMDD }, // 531
+       { "date-written", DATE_WRITTEN }, // 532
+       { "day", DAY }, // 533
+       { "day-of-integer", DAY_OF_INTEGER }, // 534
+       { "day-of-week", DAY_OF_WEEK }, // 535
+       { "day-to-yyyyddd", DAY_TO_YYYYDDD }, // 536
+       { "dbcs", DBCS }, // 537
+       { "de", DE }, // 538
+       { "debugging", DEBUGGING }, // 539
+       { "decimal-point", DECIMAL_POINT }, // 540
+       { "declaratives", DECLARATIVES }, // 541
+       { "delimited", DELIMITED }, // 542
+       { "delimiter", DELIMITER }, // 543
+       { "depending", DEPENDING }, // 544
+       { "descending", DESCENDING }, // 545
+       { "detail", DETAIL }, // 546
+       { "direct", DIRECT }, // 547
+       { "direct-access", DIRECT_ACCESS }, // 548
+       { "down", DOWN }, // 549
+       { "duplicates", DUPLICATES }, // 550
+       { "dynamic", DYNAMIC }, // 551
+       { "e", E }, // 552
+       { "ebcdic", EBCDIC }, // 553
+       { "ec", EC }, // 554
+       { "egcs", EGCS }, // 555
+       { "encoding", ENCODING }, // 556
+       { "entry", ENTRY }, // 557
+       { "environment", ENVIRONMENT }, // 558
+       { "every", EVERY }, // 559
+       { "examine", EXAMINE }, // 560
+       { "exhibit", EXHIBIT }, // 561
+       { "exp", EXP }, // 562
+       { "exp10", EXP10 }, // 563
+       { "extend", EXTEND }, // 564
+       { "external", EXTERNAL }, // 565
+       { "exception-file", EXCEPTION_FILE }, // 566
+       { "exception-file-n", EXCEPTION_FILE_N }, // 567
+       { "exception-location", EXCEPTION_LOCATION }, // 568
+       { "exception-location-n", EXCEPTION_LOCATION_N }, // 569
+       { "exception-statement", EXCEPTION_STATEMENT }, // 570
+       { "exception-status", EXCEPTION_STATUS }, // 571
+       { "factorial", FACTORIAL }, // 572
+       { "false", FALSE_kw }, // 573
+       { "fd", FD }, // 574
+       { "file-control", FILE_CONTROL }, // 575
+       { "file", FILE_KW }, // 576
+       { "file-limit", FILE_LIMIT }, // 577
+       { "final", FINAL }, // 578
+       { "finally", FINALLY }, // 579
+       { "find-string", FIND_STRING }, // 580
+       { "first", FIRST }, // 581
+       { "fixed", FIXED }, // 582
+       { "footing", FOOTING }, // 583
+       { "for", FOR }, // 584
+       { "formatted-current-date", FORMATTED_CURRENT_DATE }, // 585
+       { "formatted-date", FORMATTED_DATE }, // 586
+       { "formatted-datetime", FORMATTED_DATETIME }, // 587
+       { "formatted-time", FORMATTED_TIME }, // 588
+       { "form-overflow", FORM_OVERFLOW }, // 589
+       { "free", FREE }, // 590
+       { "fraction-part", FRACTION_PART }, // 591
+       { "from", FROM }, // 592
+       { "function", FUNCTION }, // 593
+       { "generate", GENERATE }, // 594
+       { "giving", GIVING }, // 595
+       { "global", GLOBAL }, // 596
+       { "go", GO }, // 597
+       { "group", GROUP }, // 598
+       { "heading", HEADING }, // 599
+       { "hex", HEX }, // 600
+       { "hex-of", HEX_OF }, // 601
+       { "hex-to-char", HEX_TO_CHAR }, // 602
+       { "high-values", HIGH_VALUES }, // 603
+       { "highest-algebraic", HIGHEST_ALGEBRAIC }, // 604
+       { "hold", HOLD }, // 605
+       { "ibm-360", IBM_360 }, // 606
+       { "in", IN }, // 607
+       { "include", INCLUDE }, // 608
+       { "index", INDEX }, // 609
+       { "indexed", INDEXED }, // 610
+       { "indicate", INDICATE }, // 611
+       { "initial", INITIAL_kw }, // 612
+       { "initiate", INITIATE }, // 613
+       { "input", INPUT }, // 614
+       { "installation", INSTALLATION }, // 615
+       { "interface", INTERFACE }, // 616
+       { "integer", INTEGER }, // 617
+       { "integer-of-boolean", INTEGER_OF_BOOLEAN }, // 618
+       { "integer-of-date", INTEGER_OF_DATE }, // 619
+       { "integer-of-day", INTEGER_OF_DAY }, // 620
+       { "integer-of-formatted-date", INTEGER_OF_FORMATTED_DATE }, // 621
+       { "integer-part", INTEGER_PART }, // 622
+       { "into", INTO }, // 623
+       { "intrinsic", INTRINSIC }, // 624
+       { "invoke", INVOKE }, // 625
+       { "i-o", IO }, // 626
+       { "i-o-control", IO_CONTROL }, // 627
+       { "is", IS }, // 628
+       { "isnt", ISNT }, // 629
+       { "kanji", KANJI }, // 630
+       { "key", KEY }, // 631
+       { "label", LABEL }, // 632
+       { "last", LAST }, // 633
+       { "leading", LEADING }, // 634
+       { "left", LEFT }, // 635
+       { "length", LENGTH }, // 636
+       { "length-of", LENGTH_OF }, // 637
+       { "limit", LIMIT }, // 638
+       { "limits", LIMITS }, // 639
+       { "line", LINE }, // 640
+       { "lines", LINES }, // 641
+       { "line-counter", LINE_COUNTER }, // 642
+       { "linage", LINAGE }, // 643
+       { "linkage", LINKAGE }, // 644
+       { "locale", LOCALE }, // 645
+       { "locale-compare", LOCALE_COMPARE }, // 646
+       { "locale-date", LOCALE_DATE }, // 647
+       { "locale-time", LOCALE_TIME }, // 648
+       { "locale-time-from-seconds", LOCALE_TIME_FROM_SECONDS }, // 649
+       { "local-storage", LOCAL_STORAGE }, // 650
+       { "location", LOCATION }, // 651
+       { "lock", LOCK }, // 652
+       { "lock-on", LOCK_ON }, // 653
+       { "log", LOG }, // 654
+       { "log10", LOG10 }, // 655
+       { "lower-case", LOWER_CASE }, // 656
+       { "low-values", LOW_VALUES }, // 657
+       { "lowest-algebraic", LOWEST_ALGEBRAIC }, // 658
+       { "lparen", LPAREN }, // 659
+       { "manual", MANUAL }, // 660
+       { "maxx", MAXX }, // 661
+       { "mean", MEAN }, // 662
+       { "median", MEDIAN }, // 663
+       { "midrange", MIDRANGE }, // 664
+       { "minn", MINN }, // 665
+       { "multiple", MULTIPLE }, // 666
+       { "mod", MOD }, // 667
+       { "mode", MODE }, // 668
+       { "module-name", MODULE_NAME }, // 669
+       { "named", NAMED }, // 670
+       { "nat", NAT }, // 671
+       { "national", NATIONAL }, // 672
+       { "national-edited", NATIONAL_EDITED }, // 673
+       { "national-of", NATIONAL_OF }, // 674
+       { "native", NATIVE }, // 675
+       { "nested", NESTED }, // 676
+       { "next", NEXT }, // 677
+       { "no", NO }, // 678
+       { "note", NOTE }, // 679
+       { "nulls", NULLS }, // 680
+       { "null", NULLS }, // 680
+       { "nullptr", NULLPTR }, // 681
+       { "numeric", NUMERIC }, // 682
+       { "numeric-edited", NUMERIC_EDITED }, // 683
+       { "numval", NUMVAL }, // 684
+       { "numval-c", NUMVAL_C }, // 685
+       { "numval-f", NUMVAL_F }, // 686
+       { "occurs", OCCURS }, // 687
+       { "of", OF }, // 688
+       { "off", OFF }, // 689
+       { "omitted", OMITTED }, // 690
+       { "on", ON }, // 691
+       { "only", ONLY }, // 692
+       { "optional", OPTIONAL }, // 693
+       { "options", OPTIONS }, // 694
+       { "ord", ORD }, // 695
+       { "order", ORDER }, // 696
+       { "ord-max", ORD_MAX }, // 697
+       { "ord-min", ORD_MIN }, // 698
+       { "organization", ORGANIZATION }, // 699
+       { "other", OTHER }, // 700
+       { "otherwise", OTHERWISE }, // 701
+       { "output", OUTPUT }, // 702
+       { "packed-decimal", PACKED_DECIMAL }, // 703
+       { "padding", PADDING }, // 704
+       { "page", PAGE }, // 705
+       { "page-counter", PAGE_COUNTER }, // 706
+       { "pf", PF }, // 707
+       { "ph", PH }, // 708
+       { "pi", PI }, // 709
+       { "pic", PIC }, // 710
+       { "picture", PICTURE }, // 711
+       { "plus", PLUS }, // 712
+       { "present-value", PRESENT_VALUE }, // 713
+       { "print-switch", PRINT_SWITCH }, // 714
+       { "procedure", PROCEDURE }, // 715
+       { "procedures", PROCEDURES }, // 716
+       { "proceed", PROCEED }, // 717
        { "processing", PROCESSING }, // 718
        { "program-id", PROGRAM_ID }, // 719
        { "program", PROGRAM_kw }, // 720
@@ -765,410 +765,410 @@ token_names = {
        "BACKWARD", // 53 (311)
        "POSITIVE", // 54 (312)
        "POINTER", // 55 (313)
-       "SECTION", // 56 (314)
-       "STANDARD-ALPHABET", // 57 (315)
-       "SWITCH", // 58 (316)
-       "UPSI", // 59 (317)
-       "ZERO", // 60 (318)
-       "SYSIN", // 61 (319)
-       "SYSIPT", // 62 (320)
-       "SYSOUT", // 63 (321)
-       "SYSLIST", // 64 (322)
-       "SYSLST", // 65 (323)
-       "SYSPUNCH", // 66 (324)
-       "SYSPCH", // 67 (325)
-       "CONSOLE", // 68 (326)
-       "C01", // 69 (327)
-       "C02", // 70 (328)
-       "C03", // 71 (329)
-       "C04", // 72 (330)
-       "C05", // 73 (331)
-       "C06", // 74 (332)
-       "C07", // 75 (333)
-       "C08", // 76 (334)
-       "C09", // 77 (335)
-       "C10", // 78 (336)
-       "C11", // 79 (337)
-       "C12", // 80 (338)
-       "CSP", // 81 (339)
-       "S01", // 82 (340)
-       "S02", // 83 (341)
-       "S03", // 84 (342)
-       "S04", // 85 (343)
-       "S05", // 86 (344)
-       "AFP-5A", // 87 (345)
-       "STDIN", // 88 (346)
-       "STDOUT", // 89 (347)
-       "STDERR", // 90 (348)
-       "LIST", // 91 (349)
-       "MAP", // 92 (350)
-       "NOLIST", // 93 (351)
-       "NOMAP", // 94 (352)
-       "NOSOURCE", // 95 (353)
-       "MIGHT-BE", // 96 (354)
-       "FUNCTION-UDF", // 97 (355)
-       "FUNCTION-UDF-0", // 98 (356)
-       "DEFAULT", // 99 (357)
-       "DATE-FMT", // 100 (358)
-       "TIME-FMT", // 101 (359)
-       "DATETIME-FMT", // 102 (360)
-       "BASIS", // 103 (361)
-       "CBL", // 104 (362)
-       "CONSTANT", // 105 (363)
-       "COPY", // 106 (364)
-       "DEFINED", // 107 (365)
-       "ENTER", // 108 (366)
-       "FEATURE", // 109 (367)
-       "INSERTT", // 110 (368)
-       "LSUB", // 111 (369)
-       "PARAMETER", // 112 (370)
-       "OVERRIDE", // 113 (371)
-       "READY", // 114 (372)
-       "RESET", // 115 (373)
-       "RSUB", // 116 (374)
-       "SERVICE-RELOAD", // 117 (375)
-       "STAR-CBL", // 118 (376)
-       "SUBSCRIPT", // 119 (377)
-       "SUPPRESS", // 120 (378)
-       "TITLE", // 121 (379)
-       "TRACE", // 122 (380)
-       "USE", // 123 (381)
-       "COBOL-WORDS", // 124 (382)
-       "EQUATE", // 125 (383)
-       "UNDEFINE", // 126 (384)
-       "CDF-DEFINE", // 127 (385)
-       "CDF-DISPLAY", // 128 (386)
-       "CDF-IF", // 129 (387)
-       "CDF-ELSE", // 130 (388)
-       "CDF-END-IF", // 131 (389)
-       "CDF-EVALUATE", // 132 (390)
-       "CDF-WHEN", // 133 (391)
-       "CDF-END-EVALUATE", // 134 (392)
-       "CALL-CONVENTION", // 135 (393)
-       "CALL-COBOL", // 136 (394)
-       "CALL-VERBATIM", // 137 (395)
-       "CDF-PUSH", // 138 (396)
-       "CDF-POP", // 139 (397)
-       "SOURCE-FORMAT", // 140 (398)
-       "IF", // 141 (399)
-       "THEN", // 142 (400)
-       "ELSE", // 143 (401)
-       "SENTENCE", // 144 (402)
-       "ACCEPT", // 145 (403)
-       "ADD", // 146 (404)
-       "ALTER", // 147 (405)
-       "CALL", // 148 (406)
-       "CANCEL", // 149 (407)
-       "CLOSE", // 150 (408)
-       "COMPUTE", // 151 (409)
-       "CONTINUE", // 152 (410)
-       "DELETE", // 153 (411)
-       "DISPLAY", // 154 (412)
-       "DIVIDE", // 155 (413)
-       "EVALUATE", // 156 (414)
-       "EXIT", // 157 (415)
-       "FILLER", // 158 (416)
-       "GOBACK", // 159 (417)
-       "GOTO", // 160 (418)
-       "INITIALIZE", // 161 (419)
-       "INSPECT", // 162 (420)
-       "MERGE", // 163 (421)
-       "MOVE", // 164 (422)
-       "MULTIPLY", // 165 (423)
-       "OPEN", // 166 (424)
-       "PARAGRAPH", // 167 (425)
-       "READ", // 168 (426)
-       "RELEASE", // 169 (427)
-       "RETURN", // 170 (428)
-       "REWRITE", // 171 (429)
-       "SEARCH", // 172 (430)
-       "SET", // 173 (431)
-       "SELECT", // 174 (432)
-       "SORT", // 175 (433)
-       "SORT-MERGE", // 176 (434)
-       "STRING", // 177 (435)
-       "STOP", // 178 (436)
-       "SUBTRACT", // 179 (437)
-       "START", // 180 (438)
-       "UNSTRING", // 181 (439)
-       "WRITE", // 182 (440)
-       "WHEN", // 183 (441)
-       "ARGUMENT-NUMBER", // 184 (442)
-       "ARGUMENT-VALUE", // 185 (443)
-       "ENVIRONMENT-NAME", // 186 (444)
-       "ENVIRONMENT-VALUE", // 187 (445)
-       "ABS", // 188 (446)
-       "ACCESS", // 189 (447)
-       "ACOS", // 190 (448)
-       "ACTUAL", // 191 (449)
-       "ADVANCING", // 192 (450)
-       "AFTER", // 193 (451)
-       "ALL", // 194 (452)
-       "ALLOCATE", // 195 (453)
-       "ALPHABET", // 196 (454)
-       "ALPHABETIC", // 197 (455)
-       "ALPHABETIC-LOWER", // 198 (456)
-       "ALPHABETIC-UPPER", // 199 (457)
-       "ALPHANUMERIC", // 200 (458)
-       "ALPHANUMERIC-EDITED", // 201 (459)
-       "ALSO", // 202 (460)
-       "ALTERNATE", // 203 (461)
-       "ANNUITY", // 204 (462)
-       "ANUM", // 205 (463)
-       "ANY", // 206 (464)
-       "ANYCASE", // 207 (465)
-       "APPLY", // 208 (466)
-       "ARE", // 209 (467)
-       "AREA", // 210 (468)
-       "AREAS", // 211 (469)
-       "AS", // 212 (470)
-       "ASCENDING", // 213 (471)
-       "ACTIVATING", // 214 (472)
-       "ASIN", // 215 (473)
-       "ASSIGN", // 216 (474)
-       "AT", // 217 (475)
-       "ATAN", // 218 (476)
-       "BASED", // 219 (477)
-       "BASECONVERT", // 220 (478)
-       "BEFORE", // 221 (479)
-       "BINARY", // 222 (480)
-       "BIT", // 223 (481)
-       "BIT-OF", // 224 (482)
-       "BIT-TO-CHAR", // 225 (483)
-       "BLANK", // 226 (484)
-       "BLOCK", // 227 (485)
-       "BOOLEAN-OF-INTEGER", // 228 (486)
-       "BOTTOM", // 229 (487)
-       "BY", // 230 (488)
-       "BYTE", // 231 (489)
-       "BYTE-LENGTH", // 232 (490)
-       "CF", // 233 (491)
-       "CH", // 234 (492)
-       "CHANGED", // 235 (493)
-       "CHAR", // 236 (494)
-       "CHAR-NATIONAL", // 237 (495)
-       "CHARACTER", // 238 (496)
-       "CHARACTERS", // 239 (497)
-       "CHECKING", // 240 (498)
-       "CLASS", // 241 (499)
-       "COBOL", // 242 (500)
-       "CODE", // 243 (501)
-       "CODE-SET", // 244 (502)
-       "COLLATING", // 245 (503)
-       "COLUMN", // 246 (504)
-       "COMBINED-DATETIME", // 247 (505)
-       "COMMA", // 248 (506)
-       "COMMAND-LINE", // 249 (507)
-       "COMMAND-LINE-COUNT", // 250 (508)
-       "COMMIT", // 251 (509)
-       "COMMON", // 252 (510)
-       "CONCAT", // 253 (511)
-       "CONDITION", // 254 (512)
-       "CONFIGURATION", // 255 (513)
-       "CONTAINS", // 256 (514)
-       "CONTENT", // 257 (515)
-       "CONTROL", // 258 (516)
-       "CONTROLS", // 259 (517)
-       "CONVERT", // 260 (518)
-       "CONVERTING", // 261 (519)
-       "CORRESPONDING", // 262 (520)
-       "COS", // 263 (521)
-       "COUNT", // 264 (522)
-       "CURRENCY", // 265 (523)
-       "CURRENT", // 266 (524)
-       "CURRENT-DATE", // 267 (525)
-       "DATA", // 268 (526)
-       "DATE", // 269 (527)
-       "DATE-COMPILED", // 270 (528)
-       "DATE-OF-INTEGER", // 271 (529)
-       "DATE-TO-YYYYMMDD", // 272 (530)
-       "DATE-WRITTEN", // 273 (531)
-       "DAY", // 274 (532)
-       "DAY-OF-INTEGER", // 275 (533)
-       "DAY-OF-WEEK", // 276 (534)
-       "DAY-TO-YYYYDDD", // 277 (535)
-       "DBCS", // 278 (536)
-       "DE", // 279 (537)
-       "DEBUGGING", // 280 (538)
-       "DECIMAL-POINT", // 281 (539)
-       "DECLARATIVES", // 282 (540)
-       "DELIMITED", // 283 (541)
-       "DELIMITER", // 284 (542)
-       "DEPENDING", // 285 (543)
-       "DESCENDING", // 286 (544)
-       "DETAIL", // 287 (545)
-       "DIRECT", // 288 (546)
-       "DIRECT-ACCESS", // 289 (547)
-       "DOWN", // 290 (548)
-       "DUPLICATES", // 291 (549)
-       "DYNAMIC", // 292 (550)
-       "E", // 293 (551)
-       "EBCDIC", // 294 (552)
-       "EC", // 295 (553)
-       "EGCS", // 296 (554)
-       "ENCODING", // 297 (555)
-       "ENTRY", // 298 (556)
-       "ENVIRONMENT", // 299 (557)
-       "EVERY", // 300 (558)
-       "EXAMINE", // 301 (559)
-       "EXHIBIT", // 302 (560)
-       "EXP", // 303 (561)
-       "EXP10", // 304 (562)
-       "EXTEND", // 305 (563)
-       "EXTERNAL", // 306 (564)
-       "EXCEPTION-FILE", // 307 (565)
-       "EXCEPTION-FILE-N", // 308 (566)
-       "EXCEPTION-LOCATION", // 309 (567)
-       "EXCEPTION-LOCATION-N", // 310 (568)
-       "EXCEPTION-STATEMENT", // 311 (569)
-       "EXCEPTION-STATUS", // 312 (570)
-       "FACTORIAL", // 313 (571)
-       "FALSE", // 314 (572)
-       "FD", // 315 (573)
-       "FILE-CONTROL", // 316 (574)
-       "FILE", // 317 (575)
-       "FILE-LIMIT", // 318 (576)
-       "FINAL", // 319 (577)
-       "FINALLY", // 320 (578)
-       "FIND-STRING", // 321 (579)
-       "FIRST", // 322 (580)
-       "FIXED", // 323 (581)
-       "FOOTING", // 324 (582)
-       "FOR", // 325 (583)
-       "FORMATTED-CURRENT-DATE", // 326 (584)
-       "FORMATTED-DATE", // 327 (585)
-       "FORMATTED-DATETIME", // 328 (586)
-       "FORMATTED-TIME", // 329 (587)
-       "FORM-OVERFLOW", // 330 (588)
-       "FREE", // 331 (589)
-       "FRACTION-PART", // 332 (590)
-       "FROM", // 333 (591)
-       "FUNCTION", // 334 (592)
-       "GENERATE", // 335 (593)
-       "GIVING", // 336 (594)
-       "GLOBAL", // 337 (595)
-       "GO", // 338 (596)
-       "GROUP", // 339 (597)
-       "HEADING", // 340 (598)
-       "HEX", // 341 (599)
-       "HEX-OF", // 342 (600)
-       "HEX-TO-CHAR", // 343 (601)
-       "HIGH-VALUES", // 344 (602)
-       "HIGHEST-ALGEBRAIC", // 345 (603)
-       "HOLD", // 346 (604)
-       "IBM-360", // 347 (605)
-       "IN", // 348 (606)
-       "INCLUDE", // 349 (607)
-       "INDEX", // 350 (608)
-       "INDEXED", // 351 (609)
-       "INDICATE", // 352 (610)
-       "INITIAL", // 353 (611)
-       "INITIATE", // 354 (612)
-       "INPUT", // 355 (613)
-       "INSTALLATION", // 356 (614)
-       "INTERFACE", // 357 (615)
-       "INTEGER", // 358 (616)
-       "INTEGER-OF-BOOLEAN", // 359 (617)
-       "INTEGER-OF-DATE", // 360 (618)
-       "INTEGER-OF-DAY", // 361 (619)
-       "INTEGER-OF-FORMATTED-DATE", // 362 (620)
-       "INTEGER-PART", // 363 (621)
-       "INTO", // 364 (622)
-       "INTRINSIC", // 365 (623)
-       "INVOKE", // 366 (624)
-       "I-O", // 367 (625)
-       "I-O-CONTROL", // 368 (626)
-       "IS", // 369 (627)
-       "ISNT", // 370 (628)
-       "KANJI", // 371 (629)
-       "KEY", // 372 (630)
-       "LABEL", // 373 (631)
-       "LAST", // 374 (632)
-       "LEADING", // 375 (633)
-       "LEFT", // 376 (634)
-       "LENGTH", // 377 (635)
-       "LENGTH-OF", // 378 (636)
-       "LIMIT", // 379 (637)
-       "LIMITS", // 380 (638)
-       "LINE", // 381 (639)
-       "LINES", // 382 (640)
-       "LINE-COUNTER", // 383 (641)
-       "LINAGE", // 384 (642)
-       "LINKAGE", // 385 (643)
-       "LOCALE", // 386 (644)
-       "LOCALE-COMPARE", // 387 (645)
-       "LOCALE-DATE", // 388 (646)
-       "LOCALE-TIME", // 389 (647)
-       "LOCALE-TIME-FROM-SECONDS", // 390 (648)
-       "LOCAL-STORAGE", // 391 (649)
-       "LOCATION", // 392 (650)
-       "LOCK", // 393 (651)
-       "LOCK-ON", // 394 (652)
-       "LOG", // 395 (653)
-       "LOG10", // 396 (654)
-       "LOWER-CASE", // 397 (655)
-       "LOW-VALUES", // 398 (656)
-       "LOWEST-ALGEBRAIC", // 399 (657)
-       "LPAREN", // 400 (658)
-       "MANUAL", // 401 (659)
-       "MAXX", // 402 (660)
-       "MEAN", // 403 (661)
-       "MEDIAN", // 404 (662)
-       "MIDRANGE", // 405 (663)
-       "MINN", // 406 (664)
-       "MULTIPLE", // 407 (665)
-       "MOD", // 408 (666)
-       "MODE", // 409 (667)
-       "MODULE-NAME", // 410 (668)
-       "NAMED", // 411 (669)
-       "NAT", // 412 (670)
-       "NATIONAL", // 413 (671)
-       "NATIONAL-EDITED", // 414 (672)
-       "NATIONAL-OF", // 415 (673)
-       "NATIVE", // 416 (674)
-       "NESTED", // 417 (675)
-       "NEXT", // 418 (676)
-       "NO", // 419 (677)
-       "NOTE", // 420 (678)
-       "NULLS", // 421 (679)
-       "NULLPTR", // 422 (680)
-       "NUMERIC", // 423 (681)
-       "NUMERIC-EDITED", // 424 (682)
-       "NUMVAL", // 425 (683)
-       "NUMVAL-C", // 426 (684)
-       "NUMVAL-F", // 427 (685)
-       "OCCURS", // 428 (686)
-       "OF", // 429 (687)
-       "OFF", // 430 (688)
-       "OMITTED", // 431 (689)
-       "ON", // 432 (690)
-       "ONLY", // 433 (691)
-       "OPTIONAL", // 434 (692)
-       "OPTIONS", // 435 (693)
-       "ORD", // 436 (694)
-       "ORDER", // 437 (695)
-       "ORD-MAX", // 438 (696)
-       "ORD-MIN", // 439 (697)
-       "ORGANIZATION", // 440 (698)
-       "OTHER", // 441 (699)
-       "OTHERWISE", // 442 (700)
-       "OUTPUT", // 443 (701)
-       "PACKED-DECIMAL", // 444 (702)
-       "PADDING", // 445 (703)
-       "PAGE", // 446 (704)
-       "PAGE-COUNTER", // 447 (705)
-       "PF", // 448 (706)
-       "PH", // 449 (707)
-       "PI", // 450 (708)
-       "PIC", // 451 (709)
-       "PICTURE", // 452 (710)
-       "PLUS", // 453 (711)
-       "PRESENT-VALUE", // 454 (712)
-       "PRINT-SWITCH", // 455 (713)
-       "PROCEDURE", // 456 (714)
-       "PROCEDURES", // 457 (715)
-       "PROCEED", // 458 (716)
-       "PROCESS", // 459 (717)
+       "PROCESS", // 56 (314)
+       "SECTION", // 57 (315)
+       "STANDARD-ALPHABET", // 58 (316)
+       "SWITCH", // 59 (317)
+       "UPSI", // 60 (318)
+       "ZERO", // 61 (319)
+       "SYSIN", // 62 (320)
+       "SYSIPT", // 63 (321)
+       "SYSOUT", // 64 (322)
+       "SYSLIST", // 65 (323)
+       "SYSLST", // 66 (324)
+       "SYSPUNCH", // 67 (325)
+       "SYSPCH", // 68 (326)
+       "CONSOLE", // 69 (327)
+       "C01", // 70 (328)
+       "C02", // 71 (329)
+       "C03", // 72 (330)
+       "C04", // 73 (331)
+       "C05", // 74 (332)
+       "C06", // 75 (333)
+       "C07", // 76 (334)
+       "C08", // 77 (335)
+       "C09", // 78 (336)
+       "C10", // 79 (337)
+       "C11", // 80 (338)
+       "C12", // 81 (339)
+       "CSP", // 82 (340)
+       "S01", // 83 (341)
+       "S02", // 84 (342)
+       "S03", // 85 (343)
+       "S04", // 86 (344)
+       "S05", // 87 (345)
+       "AFP-5A", // 88 (346)
+       "STDIN", // 89 (347)
+       "STDOUT", // 90 (348)
+       "STDERR", // 91 (349)
+       "LIST", // 92 (350)
+       "MAP", // 93 (351)
+       "NOLIST", // 94 (352)
+       "NOMAP", // 95 (353)
+       "NOSOURCE", // 96 (354)
+       "MIGHT-BE", // 97 (355)
+       "FUNCTION-UDF", // 98 (356)
+       "FUNCTION-UDF-0", // 99 (357)
+       "DEFAULT", // 100 (358)
+       "DATE-FMT", // 101 (359)
+       "TIME-FMT", // 102 (360)
+       "DATETIME-FMT", // 103 (361)
+       "BASIS", // 104 (362)
+       "CBL", // 105 (363)
+       "CONSTANT", // 106 (364)
+       "COPY", // 107 (365)
+       "DEFINED", // 108 (366)
+       "ENTER", // 109 (367)
+       "FEATURE", // 110 (368)
+       "INSERTT", // 111 (369)
+       "LSUB", // 112 (370)
+       "PARAMETER", // 113 (371)
+       "OVERRIDE", // 114 (372)
+       "READY", // 115 (373)
+       "RESET", // 116 (374)
+       "RSUB", // 117 (375)
+       "SERVICE-RELOAD", // 118 (376)
+       "STAR-CBL", // 119 (377)
+       "SUBSCRIPT", // 120 (378)
+       "SUPPRESS", // 121 (379)
+       "TITLE", // 122 (380)
+       "TRACE", // 123 (381)
+       "USE", // 124 (382)
+       "COBOL-WORDS", // 125 (383)
+       "EQUATE", // 126 (384)
+       "UNDEFINE", // 127 (385)
+       "CDF-DEFINE", // 128 (386)
+       "CDF-DISPLAY", // 129 (387)
+       "CDF-IF", // 130 (388)
+       "CDF-ELSE", // 131 (389)
+       "CDF-END-IF", // 132 (390)
+       "CDF-EVALUATE", // 133 (391)
+       "CDF-WHEN", // 134 (392)
+       "CDF-END-EVALUATE", // 135 (393)
+       "CALL-CONVENTION", // 136 (394)
+       "CALL-COBOL", // 137 (395)
+       "CALL-VERBATIM", // 138 (396)
+       "CDF-PUSH", // 139 (397)
+       "CDF-POP", // 140 (398)
+       "SOURCE-FORMAT", // 141 (399)
+       "IF", // 142 (400)
+       "THEN", // 143 (401)
+       "ELSE", // 144 (402)
+       "SENTENCE", // 145 (403)
+       "ACCEPT", // 146 (404)
+       "ADD", // 147 (405)
+       "ALTER", // 148 (406)
+       "CALL", // 149 (407)
+       "CANCEL", // 150 (408)
+       "CLOSE", // 151 (409)
+       "COMPUTE", // 152 (410)
+       "CONTINUE", // 153 (411)
+       "DELETE", // 154 (412)
+       "DISPLAY", // 155 (413)
+       "DIVIDE", // 156 (414)
+       "EVALUATE", // 157 (415)
+       "EXIT", // 158 (416)
+       "FILLER", // 159 (417)
+       "GOBACK", // 160 (418)
+       "GOTO", // 161 (419)
+       "INITIALIZE", // 162 (420)
+       "INSPECT", // 163 (421)
+       "MERGE", // 164 (422)
+       "MOVE", // 165 (423)
+       "MULTIPLY", // 166 (424)
+       "OPEN", // 167 (425)
+       "PARAGRAPH", // 168 (426)
+       "READ", // 169 (427)
+       "RELEASE", // 170 (428)
+       "RETURN", // 171 (429)
+       "REWRITE", // 172 (430)
+       "SEARCH", // 173 (431)
+       "SET", // 174 (432)
+       "SELECT", // 175 (433)
+       "SORT", // 176 (434)
+       "SORT-MERGE", // 177 (435)
+       "STRING", // 178 (436)
+       "STOP", // 179 (437)
+       "SUBTRACT", // 180 (438)
+       "START", // 181 (439)
+       "UNSTRING", // 182 (440)
+       "WRITE", // 183 (441)
+       "WHEN", // 184 (442)
+       "ARGUMENT-NUMBER", // 185 (443)
+       "ARGUMENT-VALUE", // 186 (444)
+       "ENVIRONMENT-NAME", // 187 (445)
+       "ENVIRONMENT-VALUE", // 188 (446)
+       "ABS", // 189 (447)
+       "ACCESS", // 190 (448)
+       "ACOS", // 191 (449)
+       "ACTUAL", // 192 (450)
+       "ADVANCING", // 193 (451)
+       "AFTER", // 194 (452)
+       "ALL", // 195 (453)
+       "ALLOCATE", // 196 (454)
+       "ALPHABET", // 197 (455)
+       "ALPHABETIC", // 198 (456)
+       "ALPHABETIC-LOWER", // 199 (457)
+       "ALPHABETIC-UPPER", // 200 (458)
+       "ALPHANUMERIC", // 201 (459)
+       "ALPHANUMERIC-EDITED", // 202 (460)
+       "ALSO", // 203 (461)
+       "ALTERNATE", // 204 (462)
+       "ANNUITY", // 205 (463)
+       "ANUM", // 206 (464)
+       "ANY", // 207 (465)
+       "ANYCASE", // 208 (466)
+       "APPLY", // 209 (467)
+       "ARE", // 210 (468)
+       "AREA", // 211 (469)
+       "AREAS", // 212 (470)
+       "AS", // 213 (471)
+       "ASCENDING", // 214 (472)
+       "ACTIVATING", // 215 (473)
+       "ASIN", // 216 (474)
+       "ASSIGN", // 217 (475)
+       "AT", // 218 (476)
+       "ATAN", // 219 (477)
+       "BASED", // 220 (478)
+       "BASECONVERT", // 221 (479)
+       "BEFORE", // 222 (480)
+       "BINARY", // 223 (481)
+       "BIT", // 224 (482)
+       "BIT-OF", // 225 (483)
+       "BIT-TO-CHAR", // 226 (484)
+       "BLANK", // 227 (485)
+       "BLOCK", // 228 (486)
+       "BOOLEAN-OF-INTEGER", // 229 (487)
+       "BOTTOM", // 230 (488)
+       "BY", // 231 (489)
+       "BYTE", // 232 (490)
+       "BYTE-LENGTH", // 233 (491)
+       "CF", // 234 (492)
+       "CH", // 235 (493)
+       "CHANGED", // 236 (494)
+       "CHAR", // 237 (495)
+       "CHAR-NATIONAL", // 238 (496)
+       "CHARACTER", // 239 (497)
+       "CHARACTERS", // 240 (498)
+       "CHECKING", // 241 (499)
+       "CLASS", // 242 (500)
+       "COBOL", // 243 (501)
+       "CODE", // 244 (502)
+       "CODE-SET", // 245 (503)
+       "COLLATING", // 246 (504)
+       "COLUMN", // 247 (505)
+       "COMBINED-DATETIME", // 248 (506)
+       "COMMA", // 249 (507)
+       "COMMAND-LINE", // 250 (508)
+       "COMMAND-LINE-COUNT", // 251 (509)
+       "COMMIT", // 252 (510)
+       "COMMON", // 253 (511)
+       "CONCAT", // 254 (512)
+       "CONDITION", // 255 (513)
+       "CONFIGURATION", // 256 (514)
+       "CONTAINS", // 257 (515)
+       "CONTENT", // 258 (516)
+       "CONTROL", // 259 (517)
+       "CONTROLS", // 260 (518)
+       "CONVERT", // 261 (519)
+       "CONVERTING", // 262 (520)
+       "CORRESPONDING", // 263 (521)
+       "COS", // 264 (522)
+       "COUNT", // 265 (523)
+       "CURRENCY", // 266 (524)
+       "CURRENT", // 267 (525)
+       "CURRENT-DATE", // 268 (526)
+       "DATA", // 269 (527)
+       "DATE", // 270 (528)
+       "DATE-COMPILED", // 271 (529)
+       "DATE-OF-INTEGER", // 272 (530)
+       "DATE-TO-YYYYMMDD", // 273 (531)
+       "DATE-WRITTEN", // 274 (532)
+       "DAY", // 275 (533)
+       "DAY-OF-INTEGER", // 276 (534)
+       "DAY-OF-WEEK", // 277 (535)
+       "DAY-TO-YYYYDDD", // 278 (536)
+       "DBCS", // 279 (537)
+       "DE", // 280 (538)
+       "DEBUGGING", // 281 (539)
+       "DECIMAL-POINT", // 282 (540)
+       "DECLARATIVES", // 283 (541)
+       "DELIMITED", // 284 (542)
+       "DELIMITER", // 285 (543)
+       "DEPENDING", // 286 (544)
+       "DESCENDING", // 287 (545)
+       "DETAIL", // 288 (546)
+       "DIRECT", // 289 (547)
+       "DIRECT-ACCESS", // 290 (548)
+       "DOWN", // 291 (549)
+       "DUPLICATES", // 292 (550)
+       "DYNAMIC", // 293 (551)
+       "E", // 294 (552)
+       "EBCDIC", // 295 (553)
+       "EC", // 296 (554)
+       "EGCS", // 297 (555)
+       "ENCODING", // 298 (556)
+       "ENTRY", // 299 (557)
+       "ENVIRONMENT", // 300 (558)
+       "EVERY", // 301 (559)
+       "EXAMINE", // 302 (560)
+       "EXHIBIT", // 303 (561)
+       "EXP", // 304 (562)
+       "EXP10", // 305 (563)
+       "EXTEND", // 306 (564)
+       "EXTERNAL", // 307 (565)
+       "EXCEPTION-FILE", // 308 (566)
+       "EXCEPTION-FILE-N", // 309 (567)
+       "EXCEPTION-LOCATION", // 310 (568)
+       "EXCEPTION-LOCATION-N", // 311 (569)
+       "EXCEPTION-STATEMENT", // 312 (570)
+       "EXCEPTION-STATUS", // 313 (571)
+       "FACTORIAL", // 314 (572)
+       "FALSE", // 315 (573)
+       "FD", // 316 (574)
+       "FILE-CONTROL", // 317 (575)
+       "FILE", // 318 (576)
+       "FILE-LIMIT", // 319 (577)
+       "FINAL", // 320 (578)
+       "FINALLY", // 321 (579)
+       "FIND-STRING", // 322 (580)
+       "FIRST", // 323 (581)
+       "FIXED", // 324 (582)
+       "FOOTING", // 325 (583)
+       "FOR", // 326 (584)
+       "FORMATTED-CURRENT-DATE", // 327 (585)
+       "FORMATTED-DATE", // 328 (586)
+       "FORMATTED-DATETIME", // 329 (587)
+       "FORMATTED-TIME", // 330 (588)
+       "FORM-OVERFLOW", // 331 (589)
+       "FREE", // 332 (590)
+       "FRACTION-PART", // 333 (591)
+       "FROM", // 334 (592)
+       "FUNCTION", // 335 (593)
+       "GENERATE", // 336 (594)
+       "GIVING", // 337 (595)
+       "GLOBAL", // 338 (596)
+       "GO", // 339 (597)
+       "GROUP", // 340 (598)
+       "HEADING", // 341 (599)
+       "HEX", // 342 (600)
+       "HEX-OF", // 343 (601)
+       "HEX-TO-CHAR", // 344 (602)
+       "HIGH-VALUES", // 345 (603)
+       "HIGHEST-ALGEBRAIC", // 346 (604)
+       "HOLD", // 347 (605)
+       "IBM-360", // 348 (606)
+       "IN", // 349 (607)
+       "INCLUDE", // 350 (608)
+       "INDEX", // 351 (609)
+       "INDEXED", // 352 (610)
+       "INDICATE", // 353 (611)
+       "INITIAL", // 354 (612)
+       "INITIATE", // 355 (613)
+       "INPUT", // 356 (614)
+       "INSTALLATION", // 357 (615)
+       "INTERFACE", // 358 (616)
+       "INTEGER", // 359 (617)
+       "INTEGER-OF-BOOLEAN", // 360 (618)
+       "INTEGER-OF-DATE", // 361 (619)
+       "INTEGER-OF-DAY", // 362 (620)
+       "INTEGER-OF-FORMATTED-DATE", // 363 (621)
+       "INTEGER-PART", // 364 (622)
+       "INTO", // 365 (623)
+       "INTRINSIC", // 366 (624)
+       "INVOKE", // 367 (625)
+       "I-O", // 368 (626)
+       "I-O-CONTROL", // 369 (627)
+       "IS", // 370 (628)
+       "ISNT", // 371 (629)
+       "KANJI", // 372 (630)
+       "KEY", // 373 (631)
+       "LABEL", // 374 (632)
+       "LAST", // 375 (633)
+       "LEADING", // 376 (634)
+       "LEFT", // 377 (635)
+       "LENGTH", // 378 (636)
+       "LENGTH-OF", // 379 (637)
+       "LIMIT", // 380 (638)
+       "LIMITS", // 381 (639)
+       "LINE", // 382 (640)
+       "LINES", // 383 (641)
+       "LINE-COUNTER", // 384 (642)
+       "LINAGE", // 385 (643)
+       "LINKAGE", // 386 (644)
+       "LOCALE", // 387 (645)
+       "LOCALE-COMPARE", // 388 (646)
+       "LOCALE-DATE", // 389 (647)
+       "LOCALE-TIME", // 390 (648)
+       "LOCALE-TIME-FROM-SECONDS", // 391 (649)
+       "LOCAL-STORAGE", // 392 (650)
+       "LOCATION", // 393 (651)
+       "LOCK", // 394 (652)
+       "LOCK-ON", // 395 (653)
+       "LOG", // 396 (654)
+       "LOG10", // 397 (655)
+       "LOWER-CASE", // 398 (656)
+       "LOW-VALUES", // 399 (657)
+       "LOWEST-ALGEBRAIC", // 400 (658)
+       "LPAREN", // 401 (659)
+       "MANUAL", // 402 (660)
+       "MAXX", // 403 (661)
+       "MEAN", // 404 (662)
+       "MEDIAN", // 405 (663)
+       "MIDRANGE", // 406 (664)
+       "MINN", // 407 (665)
+       "MULTIPLE", // 408 (666)
+       "MOD", // 409 (667)
+       "MODE", // 410 (668)
+       "MODULE-NAME", // 411 (669)
+       "NAMED", // 412 (670)
+       "NAT", // 413 (671)
+       "NATIONAL", // 414 (672)
+       "NATIONAL-EDITED", // 415 (673)
+       "NATIONAL-OF", // 416 (674)
+       "NATIVE", // 417 (675)
+       "NESTED", // 418 (676)
+       "NEXT", // 419 (677)
+       "NO", // 420 (678)
+       "NOTE", // 421 (679)
+       "NULLS", // 422 (680)
+       "NULLPTR", // 423 (681)
+       "NUMERIC", // 424 (682)
+       "NUMERIC-EDITED", // 425 (683)
+       "NUMVAL", // 426 (684)
+       "NUMVAL-C", // 427 (685)
+       "NUMVAL-F", // 428 (686)
+       "OCCURS", // 429 (687)
+       "OF", // 430 (688)
+       "OFF", // 431 (689)
+       "OMITTED", // 432 (690)
+       "ON", // 433 (691)
+       "ONLY", // 434 (692)
+       "OPTIONAL", // 435 (693)
+       "OPTIONS", // 436 (694)
+       "ORD", // 437 (695)
+       "ORDER", // 438 (696)
+       "ORD-MAX", // 439 (697)
+       "ORD-MIN", // 440 (698)
+       "ORGANIZATION", // 441 (699)
+       "OTHER", // 442 (700)
+       "OTHERWISE", // 443 (701)
+       "OUTPUT", // 444 (702)
+       "PACKED-DECIMAL", // 445 (703)
+       "PADDING", // 446 (704)
+       "PAGE", // 447 (705)
+       "PAGE-COUNTER", // 448 (706)
+       "PF", // 449 (707)
+       "PH", // 450 (708)
+       "PI", // 451 (709)
+       "PIC", // 452 (710)
+       "PICTURE", // 453 (711)
+       "PLUS", // 454 (712)
+       "PRESENT-VALUE", // 455 (713)
+       "PRINT-SWITCH", // 456 (714)
+       "PROCEDURE", // 457 (715)
+       "PROCEDURES", // 458 (716)
+       "PROCEED", // 459 (717)
        "PROCESSING", // 460 (718)
        "PROGRAM-ID", // 461 (719)
        "PROGRAM", // 462 (720)