parser.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#define	YYDEBUG   0
#define	YYTOKENTYPE
#define	YYSTYPE_IS_TRIVIAL   1
#define	YYSTYPE_IS_DECLARED   1

Typedefs
typedef int	YYSTYPE

Enumerations
enum	yytokentype {   TOKEN_EOF = 0, ACCEPT = 258, ACCESS = 259, ADD = 260,   ADDRESS = 261, ADVANCING = 262, AFTER = 263, ALL = 264,   ALLOCATE = 265, ALPHABET = 266, ALPHABETIC = 267, ALPHABETIC_LOWER = 268,   ALPHABETIC_UPPER = 269, ALPHANUMERIC = 270, ALPHANUMERIC_EDITED = 271, ALSO = 272,   ALTER = 273, ALTERNATE = 274, AND = 275, ANY = 276,   ARE = 277, AREA = 278, ARGUMENT_NUMBER = 279, ARGUMENT_VALUE = 280,   AS = 281, ASCENDING = 282, ASCII = 283, ASSIGN = 284,   AT = 285, ATTRIBUTE = 286, AUTO = 287, AUTOMATIC = 288,   AWAY_FROM_ZERO = 289, BACKGROUND_COLOR = 290, BASED = 291, BEFORE = 292,   BELL = 293, BINARY = 294, BINARY_C_LONG = 295, BINARY_CHAR = 296,   BINARY_DOUBLE = 297, BINARY_LONG = 298, BINARY_SHORT = 299, BLANK = 300,   BLINK = 301, BLOCK = 302, BOTTOM = 303, BY = 304,   BYTE_LENGTH = 305, CALL = 306, CANCEL = 307, CAPACITY = 308,   CF = 309, CH = 310, CHAINING = 311, CHARACTER = 312,   CHARACTERS = 313, CLASS = 314, CLASSIFICATION = 315, CLOSE = 316,   CODE = 317, CODE_SET = 318, COLLATING = 319, COL = 320,   COLS = 321, COLUMN = 322, COLUMNS = 323, COMMA = 324,   COMMAND_LINE = 325, COMMA_DELIM = 326, COMMIT = 327, COMMON = 328,   COMP = 329, COMPUTE = 330, COMP_1 = 331, COMP_2 = 332,   COMP_3 = 333, COMP_4 = 334, COMP_5 = 335, COMP_6 = 336,   COMP_X = 337, CONCATENATE_FUNC = 338, CONDITION = 339, CONFIGURATION = 340,   CONSTANT = 341, CONTAINS = 342, CONTENT = 343, CONTINUE = 344,   CONTROL = 345, CONTROLS = 346, CONVERSION = 347, CONVERTING = 348,   COPY = 349, CORRESPONDING = 350, COUNT = 351, CRT = 352,   CRT_UNDER = 353, CURRENCY = 354, CURRENT_DATE_FUNC = 355, CURSOR = 356,   CYCLE = 357, DATA = 358, DATE = 359, DAY = 360,   DAY_OF_WEEK = 361, DE = 362, DEBUGGING = 363, DECIMAL_POINT = 364,   DECLARATIVES = 365, DEFAULT = 366, DELETE = 367, DELIMITED = 368,   DELIMITER = 369, DEPENDING = 370, DESCENDING = 371, DETAIL = 372,   DISC = 373, DISK = 374, DISPLAY = 375, DISPLAY_OF_FUNC = 376,   DIVIDE = 377, DIVISION = 378, DOWN = 379, DUPLICATES = 380,   DYNAMIC = 381, EBCDIC = 382, EC = 383, ELSE = 384,   END = 385, END_ACCEPT = 386, END_ADD = 387, END_CALL = 388,   END_COMPUTE = 389, END_DELETE = 390, END_DISPLAY = 391, END_DIVIDE = 392,   END_EVALUATE = 393, END_FUNCTION = 394, END_IF = 395, END_MULTIPLY = 396,   END_PERFORM = 397, END_PROGRAM = 398, END_READ = 399, END_RETURN = 400,   END_REWRITE = 401, END_SEARCH = 402, END_START = 403, END_STRING = 404,   END_SUBTRACT = 405, END_UNSTRING = 406, END_WRITE = 407, ENTRY = 408,   ENVIRONMENT = 409, ENVIRONMENT_NAME = 410, ENVIRONMENT_VALUE = 411, EOL = 412,   EOP = 413, EOS = 414, EQUAL = 415, ERASE = 416,   ERROR = 417, ESCAPE = 418, EVALUATE = 419, EVENT_STATUS = 420,   EXCEPTION = 421, EXCEPTION_CONDITION = 422, EXCLUSIVE = 423, EXIT = 424,   EXPONENTIATION = 425, EXTEND = 426, EXTERNAL = 427, FD = 428,   FILE_CONTROL = 429, FILE_ID = 430, FILLER = 431, FINAL = 432,   FIRST = 433, FLOAT_BINARY_128 = 434, FLOAT_BINARY_32 = 435, FLOAT_BINARY_64 = 436,   FLOAT_DECIMAL_16 = 437, FLOAT_DECIMAL_34 = 438, FLOAT_DECIMAL_7 = 439, FLOAT_EXTENDED = 440,   FLOAT_LONG = 441, FLOAT_SHORT = 442, FOOTING = 443, FOR = 444,   FOREGROUND_COLOR = 445, FOREVER = 446, FORMATTED_DATE_FUNC = 447, FORMATTED_DATETIME_FUNC = 448,   FORMATTED_TIME_FUNC = 449, FREE = 450, FROM = 451, FROM_CRT = 452,   FULL = 453, FUNCTION = 454, FUNCTION_ID = 455, FUNCTION_NAME = 456,   GENERATE = 457, GIVING = 458, GLOBAL = 459, GO = 460,   GOBACK = 461, GREATER = 462, GREATER_OR_EQUAL = 463, GRID = 464,   GROUP = 465, HEADING = 466, HIGHLIGHT = 467, HIGH_VALUE = 468,   ID = 469, IDENTIFICATION = 470, IF = 471, IGNORE = 472,   IGNORING = 473, IN = 474, INDEX = 475, INDEXED = 476,   INDICATE = 477, INITIALIZE = 478, INITIALIZED = 479, INITIATE = 480,   INPUT = 481, INPUT_OUTPUT = 482, INSPECT = 483, INTO = 484,   INTRINSIC = 485, INVALID = 486, INVALID_KEY = 487, IS = 488,   I_O = 489, I_O_CONTROL = 490, JUSTIFIED = 491, KEPT = 492,   KEY = 493, KEYBOARD = 494, LABEL = 495, LAST = 496,   LEADING = 497, LEFT = 498, LEFTLINE = 499, LENGTH = 500,   LENGTH_OF = 501, LESS = 502, LESS_OR_EQUAL = 503, LIMIT = 504,   LIMITS = 505, LINAGE = 506, LINAGE_COUNTER = 507, LINE = 508,   LINE_COUNTER = 509, LINES = 510, LINKAGE = 511, LITERAL = 512,   LOCALE = 513, LOCALE_DATE_FUNC = 514, LOCALE_TIME_FUNC = 515, LOCALE_TIME_FROM_FUNC = 516,   LOCAL_STORAGE = 517, LOCK = 518, LOWER = 519, LOWER_CASE_FUNC = 520,   LOWLIGHT = 521, LOW_VALUE = 522, MANUAL = 523, MEMORY = 524,   MERGE = 525, MINUS = 526, MNEMONIC_NAME = 527, MODE = 528,   MOVE = 529, MULTIPLE = 530, MULTIPLY = 531, NAME = 532,   NATIONAL = 533, NATIONAL_EDITED = 534, NATIONAL_OF_FUNC = 535, NATIVE = 536,   NEAREST_AWAY_FROM_ZERO = 537, NEAREST_EVEN = 538, NEAREST_TOWARD_ZERO = 539, NEGATIVE = 540,   NEXT = 541, NEXT_PAGE = 542, NO = 543, NO_ECHO = 544,   NORMAL = 545, NOT = 546, NOTHING = 547, NOT_END = 548,   NOT_EOP = 549, NOT_ESCAPE = 550, NOT_EQUAL = 551, NOT_EXCEPTION = 552,   NOT_INVALID_KEY = 553, NOT_OVERFLOW = 554, NOT_SIZE_ERROR = 555, NO_ADVANCING = 556,   NUMBER = 557, NUMBERS = 558, NUMERIC = 559, NUMERIC_EDITED = 560,   NUMVALC_FUNC = 561, OBJECT_COMPUTER = 562, OCCURS = 563, OF = 564,   OFF = 565, OMITTED = 566, ON = 567, ONLY = 568,   OPEN = 569, OPTIONAL = 570, OR = 571, ORDER = 572,   ORGANIZATION = 573, OTHER = 574, OUTPUT = 575, OVERLINE = 576,   PACKED_DECIMAL = 577, PADDING = 578, PAGE = 579, PAGE_COUNTER = 580,   PARAGRAPH = 581, PERFORM = 582, PH = 583, PF = 584,   PICTURE = 585, PICTURE_SYMBOL = 586, PLUS = 587, POINTER = 588,   POSITION = 589, POSITIVE = 590, PRESENT = 591, PREVIOUS = 592,   PRINT = 593, PRINTER = 594, PRINTER_1 = 595, PRINTING = 596,   PROCEDURE = 597, PROCEDURES = 598, PROCEED = 599, PROGRAM = 600,   PROGRAM_ID = 601, PROGRAM_NAME = 602, PROGRAM_POINTER = 603, PROHIBITED = 604,   PROMPT = 605, PROTECTED = 606, QUOTE = 607, RANDOM = 608,   RD = 609, READ = 610, READY_TRACE = 611, RECORD = 612,   RECORDING = 613, RECORDS = 614, RECURSIVE = 615, REDEFINES = 616,   REEL = 617, REFERENCE = 618, REFERENCES = 619, RELATIVE = 620,   RELEASE = 621, REMAINDER = 622, REMOVAL = 623, RENAMES = 624,   REPLACE = 625, REPLACING = 626, REPORT = 627, REPORTING = 628,   REPORTS = 629, REPOSITORY = 630, REQUIRED = 631, RESERVE = 632,   RESET = 633, RESET_TRACE = 634, RETURN = 635, RETURNING = 636,   REVERSE_FUNC = 637, REVERSE_VIDEO = 638, REVERSED = 639, REWIND = 640,   REWRITE = 641, RF = 642, RH = 643, RIGHT = 644,   ROLLBACK = 645, ROUNDED = 646, RUN = 647, SAME = 648,   SCREEN = 649, SCREEN_CONTROL = 650, SCROLL = 651, SD = 652,   SEARCH = 653, SECTION = 654, SECURE = 655, SEGMENT_LIMIT = 656,   SELECT = 657, SEMI_COLON = 658, SENTENCE = 659, SEPARATE = 660,   SEQUENCE = 661, SEQUENTIAL = 662, SET = 663, SHARING = 664,   SIGN = 665, SIGNED = 666, SIGNED_INT = 667, SIGNED_LONG = 668,   SIGNED_SHORT = 669, SIZE = 670, SIZE_ERROR = 671, SORT = 672,   SORT_MERGE = 673, SOURCE = 674, SOURCE_COMPUTER = 675, SPACE = 676,   SPECIAL_NAMES = 677, STANDARD = 678, STANDARD_1 = 679, STANDARD_2 = 680,   START = 681, STATIC = 682, STATUS = 683, STDCALL = 684,   STEP = 685, STOP = 686, STRING = 687, SUBSTITUTE_FUNC = 688,   SUBSTITUTE_CASE_FUNC = 689, SUBTRACT = 690, SUM = 691, SUPPRESS = 692,   SYMBOLIC = 693, SYNCHRONIZED = 694, SYSTEM_DEFAULT = 695, SYSTEM_OFFSET = 696,   TAB = 697, TALLYING = 698, TAPE = 699, TERMINATE = 700,   TEST = 701, THAN = 702, THEN = 703, THRU = 704,   TIME = 705, TIMEOUT = 706, TIMES = 707, TO = 708,   TOK_AMPER = 709, TOK_CLOSE_PAREN = 710, TOK_COLON = 711, TOK_DIV = 712,   TOK_DOT = 713, TOK_EQUAL = 714, TOK_FALSE = 715, TOK_FILE = 716,   TOK_GREATER = 717, TOK_INITIAL = 718, TOK_LESS = 719, TOK_MINUS = 720,   TOK_MUL = 721, TOK_NULL = 722, TOK_OVERFLOW = 723, TOK_OPEN_PAREN = 724,   TOK_PLUS = 725, TOK_TRUE = 726, TOP = 727, TOWARD_GREATER = 728,   TOWARD_LESSER = 729, TRAILING = 730, TRANSFORM = 731, TRIM_FUNC = 732,   TRUNCATION = 733, TYPE = 734, UNDERLINE = 735, UNIT = 736,   UNLOCK = 737, UNSIGNED = 738, UNSIGNED_INT = 739, UNSIGNED_LONG = 740,   UNSIGNED_SHORT = 741, UNSTRING = 742, UNTIL = 743, UP = 744,   UPDATE = 745, UPON = 746, UPON_ARGUMENT_NUMBER = 747, UPON_COMMAND_LINE = 748,   UPON_ENVIRONMENT_NAME = 749, UPON_ENVIRONMENT_VALUE = 750, UPPER = 751, UPPER_CASE_FUNC = 752,   USAGE = 753, USE = 754, USER = 755, USER_DEFAULT = 756,   USER_FUNCTION_NAME = 757, USING = 758, VALUE = 759, VARYING = 760,   WAIT = 761, WHEN = 762, WHEN_COMPILED_FUNC = 763, WITH = 764,   WORD = 765, WORDS = 766, WORKING_STORAGE = 767, WRITE = 768,   YYYYDDD = 769, YYYYMMDD = 770, ZERO = 771, SHIFT_PREFER = 772,   TOKEN_EOF = 0, ACCEPT = 258, ACCESS = 259, ADD = 260,   ADDRESS = 261, ADVANCING = 262, AFTER = 263, ALL = 264,   ALLOCATE = 265, ALPHABET = 266, ALPHABETIC = 267, ALPHABETIC_LOWER = 268,   ALPHABETIC_UPPER = 269, ALPHANUMERIC = 270, ALPHANUMERIC_EDITED = 271, ALSO = 272,   ALTER = 273, ALTERNATE = 274, AND = 275, ANY = 276,   ARE = 277, AREA = 278, ARGUMENT_NUMBER = 279, ARGUMENT_VALUE = 280,   AS = 281, ASCENDING = 282, ASCII = 283, ASSIGN = 284,   AT = 285, ATTRIBUTE = 286, AUTO = 287, AUTOMATIC = 288,   AWAY_FROM_ZERO = 289, BACKGROUND_COLOR = 290, BASED = 291, BEFORE = 292,   BELL = 293, BINARY = 294, BINARY_C_LONG = 295, BINARY_CHAR = 296,   BINARY_DOUBLE = 297, BINARY_LONG = 298, BINARY_SHORT = 299, BLANK = 300,   BLINK = 301, BLOCK = 302, BOTTOM = 303, BY = 304,   BYTE_LENGTH = 305, CALL = 306, CANCEL = 307, CAPACITY = 308,   CF = 309, CH = 310, CHAINING = 311, CHARACTER = 312,   CHARACTERS = 313, CLASS = 314, CLASSIFICATION = 315, CLOSE = 316,   CODE = 317, CODE_SET = 318, COLLATING = 319, COL = 320,   COLS = 321, COLUMN = 322, COLUMNS = 323, COMMA = 324,   COMMAND_LINE = 325, COMMA_DELIM = 326, COMMIT = 327, COMMON = 328,   COMP = 329, COMPUTE = 330, COMP_1 = 331, COMP_2 = 332,   COMP_3 = 333, COMP_4 = 334, COMP_5 = 335, COMP_6 = 336,   COMP_X = 337, CONCATENATE_FUNC = 338, CONDITION = 339, CONFIGURATION = 340,   CONSTANT = 341, CONTAINS = 342, CONTENT = 343, CONTINUE = 344,   CONTROL = 345, CONTROLS = 346, CONVERSION = 347, CONVERTING = 348,   COPY = 349, CORRESPONDING = 350, COUNT = 351, CRT = 352,   CRT_UNDER = 353, CURRENCY = 354, CURRENT_DATE_FUNC = 355, CURSOR = 356,   CYCLE = 357, DATA = 358, DATE = 359, DAY = 360,   DAY_OF_WEEK = 361, DE = 362, DEBUGGING = 363, DECIMAL_POINT = 364,   DECLARATIVES = 365, DEFAULT = 366, DELETE = 367, DELIMITED = 368,   DELIMITER = 369, DEPENDING = 370, DESCENDING = 371, DETAIL = 372,   DISC = 373, DISK = 374, DISPLAY = 375, DISPLAY_OF_FUNC = 376,   DIVIDE = 377, DIVISION = 378, DOWN = 379, DUPLICATES = 380,   DYNAMIC = 381, EBCDIC = 382, EC = 383, ELSE = 384,   END = 385, END_ACCEPT = 386, END_ADD = 387, END_CALL = 388,   END_COMPUTE = 389, END_DELETE = 390, END_DISPLAY = 391, END_DIVIDE = 392,   END_EVALUATE = 393, END_FUNCTION = 394, END_IF = 395, END_MULTIPLY = 396,   END_PERFORM = 397, END_PROGRAM = 398, END_READ = 399, END_RETURN = 400,   END_REWRITE = 401, END_SEARCH = 402, END_START = 403, END_STRING = 404,   END_SUBTRACT = 405, END_UNSTRING = 406, END_WRITE = 407, ENTRY = 408,   ENVIRONMENT = 409, ENVIRONMENT_NAME = 410, ENVIRONMENT_VALUE = 411, EOL = 412,   EOP = 413, EOS = 414, EQUAL = 415, ERASE = 416,   ERROR = 417, ESCAPE = 418, EVALUATE = 419, EVENT_STATUS = 420,   EXCEPTION = 421, EXCEPTION_CONDITION = 422, EXCLUSIVE = 423, EXIT = 424,   EXPONENTIATION = 425, EXTEND = 426, EXTERNAL = 427, FD = 428,   FILE_CONTROL = 429, FILE_ID = 430, FILLER = 431, FINAL = 432,   FIRST = 433, FLOAT_BINARY_128 = 434, FLOAT_BINARY_32 = 435, FLOAT_BINARY_64 = 436,   FLOAT_DECIMAL_16 = 437, FLOAT_DECIMAL_34 = 438, FLOAT_DECIMAL_7 = 439, FLOAT_EXTENDED = 440,   FLOAT_LONG = 441, FLOAT_SHORT = 442, FOOTING = 443, FOR = 444,   FOREGROUND_COLOR = 445, FOREVER = 446, FORMATTED_DATE_FUNC = 447, FORMATTED_DATETIME_FUNC = 448,   FORMATTED_TIME_FUNC = 449, FREE = 450, FROM = 451, FROM_CRT = 452,   FULL = 453, FUNCTION = 454, FUNCTION_ID = 455, FUNCTION_NAME = 456,   GENERATE = 457, GIVING = 458, GLOBAL = 459, GO = 460,   GOBACK = 461, GREATER = 462, GREATER_OR_EQUAL = 463, GRID = 464,   GROUP = 465, HEADING = 466, HIGHLIGHT = 467, HIGH_VALUE = 468,   ID = 469, IDENTIFICATION = 470, IF = 471, IGNORE = 472,   IGNORING = 473, IN = 474, INDEX = 475, INDEXED = 476,   INDICATE = 477, INITIALIZE = 478, INITIALIZED = 479, INITIATE = 480,   INPUT = 481, INPUT_OUTPUT = 482, INSPECT = 483, INTO = 484,   INTRINSIC = 485, INVALID = 486, INVALID_KEY = 487, IS = 488,   I_O = 489, I_O_CONTROL = 490, JUSTIFIED = 491, KEPT = 492,   KEY = 493, KEYBOARD = 494, LABEL = 495, LAST = 496,   LEADING = 497, LEFT = 498, LEFTLINE = 499, LENGTH = 500,   LENGTH_OF = 501, LESS = 502, LESS_OR_EQUAL = 503, LIMIT = 504,   LIMITS = 505, LINAGE = 506, LINAGE_COUNTER = 507, LINE = 508,   LINE_COUNTER = 509, LINES = 510, LINKAGE = 511, LITERAL = 512,   LOCALE = 513, LOCALE_DATE_FUNC = 514, LOCALE_TIME_FUNC = 515, LOCALE_TIME_FROM_FUNC = 516,   LOCAL_STORAGE = 517, LOCK = 518, LOWER = 519, LOWER_CASE_FUNC = 520,   LOWLIGHT = 521, LOW_VALUE = 522, MANUAL = 523, MEMORY = 524,   MERGE = 525, MINUS = 526, MNEMONIC_NAME = 527, MODE = 528,   MOVE = 529, MULTIPLE = 530, MULTIPLY = 531, NAME = 532,   NATIONAL = 533, NATIONAL_EDITED = 534, NATIONAL_OF_FUNC = 535, NATIVE = 536,   NEAREST_AWAY_FROM_ZERO = 537, NEAREST_EVEN = 538, NEAREST_TOWARD_ZERO = 539, NEGATIVE = 540,   NEXT = 541, NEXT_PAGE = 542, NO = 543, NO_ECHO = 544,   NORMAL = 545, NOT = 546, NOTHING = 547, NOT_END = 548,   NOT_EOP = 549, NOT_ESCAPE = 550, NOT_EQUAL = 551, NOT_EXCEPTION = 552,   NOT_INVALID_KEY = 553, NOT_OVERFLOW = 554, NOT_SIZE_ERROR = 555, NO_ADVANCING = 556,   NUMBER = 557, NUMBERS = 558, NUMERIC = 559, NUMERIC_EDITED = 560,   NUMVALC_FUNC = 561, OBJECT_COMPUTER = 562, OCCURS = 563, OF = 564,   OFF = 565, OMITTED = 566, ON = 567, ONLY = 568,   OPEN = 569, OPTIONAL = 570, OR = 571, ORDER = 572,   ORGANIZATION = 573, OTHER = 574, OUTPUT = 575, OVERLINE = 576,   PACKED_DECIMAL = 577, PADDING = 578, PAGE = 579, PAGE_COUNTER = 580,   PARAGRAPH = 581, PERFORM = 582, PH = 583, PF = 584,   PICTURE = 585, PICTURE_SYMBOL = 586, PLUS = 587, POINTER = 588,   POSITION = 589, POSITIVE = 590, PRESENT = 591, PREVIOUS = 592,   PRINT = 593, PRINTER = 594, PRINTER_1 = 595, PRINTING = 596,   PROCEDURE = 597, PROCEDURES = 598, PROCEED = 599, PROGRAM = 600,   PROGRAM_ID = 601, PROGRAM_NAME = 602, PROGRAM_POINTER = 603, PROHIBITED = 604,   PROMPT = 605, PROTECTED = 606, QUOTE = 607, RANDOM = 608,   RD = 609, READ = 610, READY_TRACE = 611, RECORD = 612,   RECORDING = 613, RECORDS = 614, RECURSIVE = 615, REDEFINES = 616,   REEL = 617, REFERENCE = 618, REFERENCES = 619, RELATIVE = 620,   RELEASE = 621, REMAINDER = 622, REMOVAL = 623, RENAMES = 624,   REPLACE = 625, REPLACING = 626, REPORT = 627, REPORTING = 628,   REPORTS = 629, REPOSITORY = 630, REQUIRED = 631, RESERVE = 632,   RESET = 633, RESET_TRACE = 634, RETURN = 635, RETURNING = 636,   REVERSE_FUNC = 637, REVERSE_VIDEO = 638, REVERSED = 639, REWIND = 640,   REWRITE = 641, RF = 642, RH = 643, RIGHT = 644,   ROLLBACK = 645, ROUNDED = 646, RUN = 647, SAME = 648,   SCREEN = 649, SCREEN_CONTROL = 650, SCROLL = 651, SD = 652,   SEARCH = 653, SECTION = 654, SECURE = 655, SEGMENT_LIMIT = 656,   SELECT = 657, SEMI_COLON = 658, SENTENCE = 659, SEPARATE = 660,   SEQUENCE = 661, SEQUENTIAL = 662, SET = 663, SHARING = 664,   SIGN = 665, SIGNED = 666, SIGNED_INT = 667, SIGNED_LONG = 668,   SIGNED_SHORT = 669, SIZE = 670, SIZE_ERROR = 671, SORT = 672,   SORT_MERGE = 673, SOURCE = 674, SOURCE_COMPUTER = 675, SPACE = 676,   SPECIAL_NAMES = 677, STANDARD = 678, STANDARD_1 = 679, STANDARD_2 = 680,   START = 681, STATIC = 682, STATUS = 683, STDCALL = 684,   STEP = 685, STOP = 686, STRING = 687, SUBSTITUTE_FUNC = 688,   SUBSTITUTE_CASE_FUNC = 689, SUBTRACT = 690, SUM = 691, SUPPRESS = 692,   SYMBOLIC = 693, SYNCHRONIZED = 694, SYSTEM_DEFAULT = 695, SYSTEM_OFFSET = 696,   TAB = 697, TALLYING = 698, TAPE = 699, TERMINATE = 700,   TEST = 701, THAN = 702, THEN = 703, THRU = 704,   TIME = 705, TIMEOUT = 706, TIMES = 707, TO = 708,   TOK_AMPER = 709, TOK_CLOSE_PAREN = 710, TOK_COLON = 711, TOK_DIV = 712,   TOK_DOT = 713, TOK_EQUAL = 714, TOK_FALSE = 715, TOK_FILE = 716,   TOK_GREATER = 717, TOK_INITIAL = 718, TOK_LESS = 719, TOK_MINUS = 720,   TOK_MUL = 721, TOK_NULL = 722, TOK_OVERFLOW = 723, TOK_OPEN_PAREN = 724,   TOK_PLUS = 725, TOK_TRUE = 726, TOP = 727, TOWARD_GREATER = 728,   TOWARD_LESSER = 729, TRAILING = 730, TRANSFORM = 731, TRIM_FUNC = 732,   TRUNCATION = 733, TYPE = 734, UNDERLINE = 735, UNIT = 736,   UNLOCK = 737, UNSIGNED = 738, UNSIGNED_INT = 739, UNSIGNED_LONG = 740,   UNSIGNED_SHORT = 741, UNSTRING = 742, UNTIL = 743, UP = 744,   UPDATE = 745, UPON = 746, UPON_ARGUMENT_NUMBER = 747, UPON_COMMAND_LINE = 748,   UPON_ENVIRONMENT_NAME = 749, UPON_ENVIRONMENT_VALUE = 750, UPPER = 751, UPPER_CASE_FUNC = 752,   USAGE = 753, USE = 754, USER = 755, USER_DEFAULT = 756,   USER_FUNCTION_NAME = 757, USING = 758, VALUE = 759, VARYING = 760,   WAIT = 761, WHEN = 762, WHEN_COMPILED_FUNC = 763, WITH = 764,   WORD = 765, WORDS = 766, WORKING_STORAGE = 767, WRITE = 768,   YYYYDDD = 769, YYYYMMDD = 770, ZERO = 771, SHIFT_PREFER = 772,   TOKEN_EOF = 0, ALSO = 258, BY = 259, COPY = 260,   EQEQ = 261, IN = 262, LAST = 263, LEADING = 264,   OF = 265, OFF = 266, PRINTING = 267, REPLACE = 268,   REPLACING = 269, SUPPRESS = 270, TRAILING = 271, DOT = 272,   GARBAGE = 273, SOURCE_DIRECTIVE = 274, FORMAT = 275, IS = 276,   FIXED = 277, FREE = 278, DEFINE_DIRECTIVE = 279, AS = 280,   PARAMETER = 281, OVERRIDE = 282, SET_DIRECTIVE = 283, CONSTANT = 284,   SOURCEFORMAT = 285, FOLDCOPYNAME = 286, NOFOLDCOPYNAME = 287, IF_DIRECTIVE = 288,   ELSE_DIRECTIVE = 289, ENDIF_DIRECTIVE = 290, ELIF_DIRECTIVE = 291, GE = 292,   LE = 293, LT = 294, GT = 295, EQ = 296,   NE = 297, NOT = 298, THAN = 299, TO = 300,   OR = 301, EQUAL = 302, GREATER = 303, LESS = 304,   SET = 305, DEFINED = 306, TURN_DIRECTIVE = 307, ON = 308,   CHECKING = 309, WITH = 310, LOCATION = 311, TERMINATOR = 312,   TOKEN = 313, VARIABLE = 314, LITERAL = 315, TOKEN_EOF = 0,   ALSO = 258, BY = 259, COPY = 260, EQEQ = 261,   IN = 262, LAST = 263, LEADING = 264, OF = 265,   OFF = 266, PRINTING = 267, REPLACE = 268, REPLACING = 269,   SUPPRESS = 270, TRAILING = 271, DOT = 272, GARBAGE = 273,   SOURCE_DIRECTIVE = 274, FORMAT = 275, IS = 276, FIXED = 277,   FREE = 278, DEFINE_DIRECTIVE = 279, AS = 280, PARAMETER = 281,   OVERRIDE = 282, SET_DIRECTIVE = 283, CONSTANT = 284, SOURCEFORMAT = 285,   FOLDCOPYNAME = 286, NOFOLDCOPYNAME = 287, IF_DIRECTIVE = 288, ELSE_DIRECTIVE = 289,   ENDIF_DIRECTIVE = 290, ELIF_DIRECTIVE = 291, GE = 292, LE = 293,   LT = 294, GT = 295, EQ = 296, NE = 297,   NOT = 298, THAN = 299, TO = 300, OR = 301,   EQUAL = 302, GREATER = 303, LESS = 304, SET = 305,   DEFINED = 306, TURN_DIRECTIVE = 307, ON = 308, CHECKING = 309,   WITH = 310, LOCATION = 311, TERMINATOR = 312, TOKEN = 313,   VARIABLE = 314, LITERAL = 315 }

Functions
int	yyparse (void)

Variables
YYSTYPE	yylval

Macro Definition Documentation

#define YYDEBUG   0

Definition at line 37 of file parser.h.

#define YYSTYPE_IS_DECLARED   1

Definition at line 571 of file parser.h.

#define YYSTYPE_IS_TRIVIAL   1

Definition at line 570 of file parser.h.

#define YYTOKENTYPE

Definition at line 45 of file parser.h.

Typedef Documentation

typedef int YYSTYPE

Definition at line 569 of file parser.h.

Enumeration Type Documentation

enum yytokentype

Enumerator
TOKEN_EOF
ACCEPT
ACCESS
ADD
ADDRESS
ADVANCING
AFTER
ALL
ALLOCATE
ALPHABET
ALPHABETIC
ALPHABETIC_LOWER
ALPHABETIC_UPPER
ALPHANUMERIC
ALPHANUMERIC_EDITED
ALSO
ALTER
ALTERNATE
AND
ANY
ARE
AREA
ARGUMENT_NUMBER
ARGUMENT_VALUE
AS
ASCENDING
ASCII
ASSIGN
AT
ATTRIBUTE
AUTO
AUTOMATIC
AWAY_FROM_ZERO
BACKGROUND_COLOR
BASED
BEFORE
BELL
BINARY
BINARY_C_LONG
BINARY_CHAR
BINARY_DOUBLE
BINARY_LONG
BINARY_SHORT
BLANK
BLINK
BLOCK
BOTTOM
BY
BYTE_LENGTH
CALL
CANCEL
CAPACITY
CF
CH
CHAINING
CHARACTER
CHARACTERS
CLASS
CLASSIFICATION
CLOSE
CODE
CODE_SET
COLLATING
COL
COLS
COLUMN
COLUMNS
COMMA
COMMAND_LINE
COMMA_DELIM
COMMIT
COMMON
COMP
COMPUTE
COMP_1
COMP_2
COMP_3
COMP_4
COMP_5
COMP_6
COMP_X
CONCATENATE_FUNC
CONDITION
CONFIGURATION
CONSTANT
CONTAINS
CONTENT
CONTINUE
CONTROL
CONTROLS
CONVERSION
CONVERTING
COPY
CORRESPONDING
COUNT
CRT
CRT_UNDER
CURRENCY
CURRENT_DATE_FUNC
CURSOR
CYCLE
DATA
DATE
DAY
DAY_OF_WEEK
DE
DEBUGGING
DECIMAL_POINT
DECLARATIVES
DEFAULT
DELETE
DELIMITED
DELIMITER
DEPENDING
DESCENDING
DETAIL
DISC
DISK
DISPLAY
DISPLAY_OF_FUNC
DIVIDE
DIVISION
DOWN
DUPLICATES
DYNAMIC
EBCDIC
EC
ELSE
END
END_ACCEPT
END_ADD
END_CALL
END_COMPUTE
END_DELETE
END_DISPLAY
END_DIVIDE
END_EVALUATE
END_FUNCTION
END_IF
END_MULTIPLY
END_PERFORM
END_PROGRAM
END_READ
END_RETURN
END_REWRITE
END_SEARCH
END_START
END_STRING
END_SUBTRACT
END_UNSTRING
END_WRITE
ENTRY
ENVIRONMENT
ENVIRONMENT_NAME
ENVIRONMENT_VALUE
EOL
EOP
EOS
EQUAL
ERASE
ERROR
ESCAPE
EVALUATE
EVENT_STATUS
EXCEPTION
EXCEPTION_CONDITION
EXCLUSIVE
EXIT
EXPONENTIATION
EXTEND
EXTERNAL
FD
FILE_CONTROL
FILE_ID
FILLER
FINAL
FIRST
FLOAT_BINARY_128
FLOAT_BINARY_32
FLOAT_BINARY_64
FLOAT_DECIMAL_16
FLOAT_DECIMAL_34
FLOAT_DECIMAL_7
FLOAT_EXTENDED
FLOAT_LONG
FLOAT_SHORT
FOOTING
FOR
FOREGROUND_COLOR
FOREVER
FORMATTED_DATE_FUNC
FORMATTED_DATETIME_FUNC
FORMATTED_TIME_FUNC
FREE
FROM
FROM_CRT
FULL
FUNCTION
FUNCTION_ID
FUNCTION_NAME
GENERATE
GIVING
GLOBAL
GO
GOBACK
GREATER
GREATER_OR_EQUAL
GRID
GROUP
HEADING
HIGHLIGHT
HIGH_VALUE
ID
IDENTIFICATION
IF
IGNORE
IGNORING
IN
INDEX
INDEXED
INDICATE
INITIALIZE
INITIALIZED
INITIATE
INPUT
INPUT_OUTPUT
INSPECT
INTO
INTRINSIC
INVALID
INVALID_KEY
IS
I_O
I_O_CONTROL
JUSTIFIED
KEPT
KEY
KEYBOARD
LABEL
LAST
LEADING
LEFT
LEFTLINE
LENGTH
LENGTH_OF
LESS
LESS_OR_EQUAL
LIMIT
LIMITS
LINAGE
LINAGE_COUNTER
LINE
LINE_COUNTER
LINES
LINKAGE
LITERAL
LOCALE
LOCALE_DATE_FUNC
LOCALE_TIME_FUNC
LOCALE_TIME_FROM_FUNC
LOCAL_STORAGE
LOCK
LOWER
LOWER_CASE_FUNC
LOWLIGHT
LOW_VALUE
MANUAL
MEMORY
MERGE
MINUS
MNEMONIC_NAME
MODE
MOVE
MULTIPLE
MULTIPLY
NAME
NATIONAL
NATIONAL_EDITED
NATIONAL_OF_FUNC
NATIVE
NEAREST_AWAY_FROM_ZERO
NEAREST_EVEN
NEAREST_TOWARD_ZERO
NEGATIVE
NEXT
NEXT_PAGE
NO
NO_ECHO
NORMAL
NOT
NOTHING
NOT_END
NOT_EOP
NOT_ESCAPE
NOT_EQUAL
NOT_EXCEPTION
NOT_INVALID_KEY
NOT_OVERFLOW
NOT_SIZE_ERROR
NO_ADVANCING
NUMBER
NUMBERS
NUMERIC
NUMERIC_EDITED
NUMVALC_FUNC
OBJECT_COMPUTER
OCCURS
OF
OFF
OMITTED
ON
ONLY
OPEN
OPTIONAL
OR
ORDER
ORGANIZATION
OTHER
OUTPUT
OVERLINE
PACKED_DECIMAL
PADDING
PAGE
PAGE_COUNTER
PARAGRAPH
PERFORM
PH
PF
PICTURE
PICTURE_SYMBOL
PLUS
POINTER
POSITION
POSITIVE
PRESENT
PREVIOUS
PRINT
PRINTER
PRINTER_1
PRINTING
PROCEDURE
PROCEDURES
PROCEED
PROGRAM
PROGRAM_ID
PROGRAM_NAME
PROGRAM_POINTER
PROHIBITED
PROMPT
PROTECTED
QUOTE
RANDOM
RD
READ
READY_TRACE
RECORD
RECORDING
RECORDS
RECURSIVE
REDEFINES
REEL
REFERENCE
REFERENCES
RELATIVE
RELEASE
REMAINDER
REMOVAL
RENAMES
REPLACE
REPLACING
REPORT
REPORTING
REPORTS
REPOSITORY
REQUIRED
RESERVE
RESET
RESET_TRACE
RETURN
RETURNING
REVERSE_FUNC
REVERSE_VIDEO
REVERSED
REWIND
REWRITE
RF
RH
RIGHT
ROLLBACK
ROUNDED
RUN
SAME
SCREEN
SCREEN_CONTROL
SCROLL
SD
SEARCH
SECTION
SECURE
SEGMENT_LIMIT
SELECT
SEMI_COLON
SENTENCE
SEPARATE
SEQUENCE
SEQUENTIAL
SET
SHARING
SIGN
SIGNED
SIGNED_INT
SIGNED_LONG
SIGNED_SHORT
SIZE
SIZE_ERROR
SORT
SORT_MERGE
SOURCE
SOURCE_COMPUTER
SPACE
SPECIAL_NAMES
STANDARD
STANDARD_1
STANDARD_2
START
STATIC
STATUS
STDCALL
STEP
STOP
STRING
SUBSTITUTE_FUNC
SUBSTITUTE_CASE_FUNC
SUBTRACT
SUM
SUPPRESS
SYMBOLIC
SYNCHRONIZED
SYSTEM_DEFAULT
SYSTEM_OFFSET
TAB
TALLYING
TAPE
TERMINATE
TEST
THAN
THEN
THRU
TIME
TIMEOUT
TIMES
TO
TOK_AMPER
TOK_CLOSE_PAREN
TOK_COLON
TOK_DIV
TOK_DOT
TOK_EQUAL
TOK_FALSE
TOK_FILE
TOK_GREATER
TOK_INITIAL
TOK_LESS
TOK_MINUS
TOK_MUL
TOK_NULL
TOK_OVERFLOW
TOK_OPEN_PAREN
TOK_PLUS
TOK_TRUE
TOP
TOWARD_GREATER
TOWARD_LESSER
TRAILING
TRANSFORM
TRIM_FUNC
TRUNCATION
TYPE
UNDERLINE
UNIT
UNLOCK
UNSIGNED
UNSIGNED_INT
UNSIGNED_LONG
UNSIGNED_SHORT
UNSTRING
UNTIL
UP
UPDATE
UPON
UPON_ARGUMENT_NUMBER
UPON_COMMAND_LINE
UPON_ENVIRONMENT_NAME
UPON_ENVIRONMENT_VALUE
UPPER
UPPER_CASE_FUNC
USAGE
USE
USER
USER_DEFAULT
USER_FUNCTION_NAME
USING
VALUE
VARYING
WAIT
WHEN
WHEN_COMPILED_FUNC
WITH
WORD
WORDS
WORKING_STORAGE
WRITE
YYYYDDD
YYYYMMDD
ZERO
SHIFT_PREFER
TOKEN_EOF
ACCEPT
ACCESS
ADD
ADDRESS
ADVANCING
AFTER
ALL
ALLOCATE
ALPHABET
ALPHABETIC
ALPHABETIC_LOWER
ALPHABETIC_UPPER
ALPHANUMERIC
ALPHANUMERIC_EDITED
ALSO
ALTER
ALTERNATE
AND
ANY
ARE
AREA
ARGUMENT_NUMBER
ARGUMENT_VALUE
AS
ASCENDING
ASCII
ASSIGN
AT
ATTRIBUTE
AUTO
AUTOMATIC
AWAY_FROM_ZERO
BACKGROUND_COLOR
BASED
BEFORE
BELL
BINARY
BINARY_C_LONG
BINARY_CHAR
BINARY_DOUBLE
BINARY_LONG
BINARY_SHORT
BLANK
BLINK
BLOCK
BOTTOM
BY
BYTE_LENGTH
CALL
CANCEL
CAPACITY
CF
CH
CHAINING
CHARACTER
CHARACTERS
CLASS
CLASSIFICATION
CLOSE
CODE
CODE_SET
COLLATING
COL
COLS
COLUMN
COLUMNS
COMMA
COMMAND_LINE
COMMA_DELIM
COMMIT
COMMON
COMP
COMPUTE
COMP_1
COMP_2
COMP_3
COMP_4
COMP_5
COMP_6
COMP_X
CONCATENATE_FUNC
CONDITION
CONFIGURATION
CONSTANT
CONTAINS
CONTENT
CONTINUE
CONTROL
CONTROLS
CONVERSION
CONVERTING
COPY
CORRESPONDING
COUNT
CRT
CRT_UNDER
CURRENCY
CURRENT_DATE_FUNC
CURSOR
CYCLE
DATA
DATE
DAY
DAY_OF_WEEK
DE
DEBUGGING
DECIMAL_POINT
DECLARATIVES
DEFAULT
DELETE
DELIMITED
DELIMITER
DEPENDING
DESCENDING
DETAIL
DISC
DISK
DISPLAY
DISPLAY_OF_FUNC
DIVIDE
DIVISION
DOWN
DUPLICATES
DYNAMIC
EBCDIC
EC
ELSE
END
END_ACCEPT
END_ADD
END_CALL
END_COMPUTE
END_DELETE
END_DISPLAY
END_DIVIDE
END_EVALUATE
END_FUNCTION
END_IF
END_MULTIPLY
END_PERFORM
END_PROGRAM
END_READ
END_RETURN
END_REWRITE
END_SEARCH
END_START
END_STRING
END_SUBTRACT
END_UNSTRING
END_WRITE
ENTRY
ENVIRONMENT
ENVIRONMENT_NAME
ENVIRONMENT_VALUE
EOL
EOP
EOS
EQUAL
ERASE
ERROR
ESCAPE
EVALUATE
EVENT_STATUS
EXCEPTION
EXCEPTION_CONDITION
EXCLUSIVE
EXIT
EXPONENTIATION
EXTEND
EXTERNAL
FD
FILE_CONTROL
FILE_ID
FILLER
FINAL
FIRST
FLOAT_BINARY_128
FLOAT_BINARY_32
FLOAT_BINARY_64
FLOAT_DECIMAL_16
FLOAT_DECIMAL_34
FLOAT_DECIMAL_7
FLOAT_EXTENDED
FLOAT_LONG
FLOAT_SHORT
FOOTING
FOR
FOREGROUND_COLOR
FOREVER
FORMATTED_DATE_FUNC
FORMATTED_DATETIME_FUNC
FORMATTED_TIME_FUNC
FREE
FROM
FROM_CRT
FULL
FUNCTION
FUNCTION_ID
FUNCTION_NAME
GENERATE
GIVING
GLOBAL
GO
GOBACK
GREATER
GREATER_OR_EQUAL
GRID
GROUP
HEADING
HIGHLIGHT
HIGH_VALUE
ID
IDENTIFICATION
IF
IGNORE
IGNORING
IN
INDEX
INDEXED
INDICATE
INITIALIZE
INITIALIZED
INITIATE
INPUT
INPUT_OUTPUT
INSPECT
INTO
INTRINSIC
INVALID
INVALID_KEY
IS
I_O
I_O_CONTROL
JUSTIFIED
KEPT
KEY
KEYBOARD
LABEL
LAST
LEADING
LEFT
LEFTLINE
LENGTH
LENGTH_OF
LESS
LESS_OR_EQUAL
LIMIT
LIMITS
LINAGE
LINAGE_COUNTER
LINE
LINE_COUNTER
LINES
LINKAGE
LITERAL
LOCALE
LOCALE_DATE_FUNC
LOCALE_TIME_FUNC
LOCALE_TIME_FROM_FUNC
LOCAL_STORAGE
LOCK
LOWER
LOWER_CASE_FUNC
LOWLIGHT
LOW_VALUE
MANUAL
MEMORY
MERGE
MINUS
MNEMONIC_NAME
MODE
MOVE
MULTIPLE
MULTIPLY
NAME
NATIONAL
NATIONAL_EDITED
NATIONAL_OF_FUNC
NATIVE
NEAREST_AWAY_FROM_ZERO
NEAREST_EVEN
NEAREST_TOWARD_ZERO
NEGATIVE
NEXT
NEXT_PAGE
NO
NO_ECHO
NORMAL
NOT
NOTHING
NOT_END
NOT_EOP
NOT_ESCAPE
NOT_EQUAL
NOT_EXCEPTION
NOT_INVALID_KEY
NOT_OVERFLOW
NOT_SIZE_ERROR
NO_ADVANCING
NUMBER
NUMBERS
NUMERIC
NUMERIC_EDITED
NUMVALC_FUNC
OBJECT_COMPUTER
OCCURS
OF
OFF
OMITTED
ON
ONLY
OPEN
OPTIONAL
OR
ORDER
ORGANIZATION
OTHER
OUTPUT
OVERLINE
PACKED_DECIMAL
PADDING
PAGE
PAGE_COUNTER
PARAGRAPH
PERFORM
PH
PF
PICTURE
PICTURE_SYMBOL
PLUS
POINTER
POSITION
POSITIVE
PRESENT
PREVIOUS
PRINT
PRINTER
PRINTER_1
PRINTING
PROCEDURE
PROCEDURES
PROCEED
PROGRAM
PROGRAM_ID
PROGRAM_NAME
PROGRAM_POINTER
PROHIBITED
PROMPT
PROTECTED
QUOTE
RANDOM
RD
READ
READY_TRACE
RECORD
RECORDING
RECORDS
RECURSIVE
REDEFINES
REEL
REFERENCE
REFERENCES
RELATIVE
RELEASE
REMAINDER
REMOVAL
RENAMES
REPLACE
REPLACING
REPORT
REPORTING
REPORTS
REPOSITORY
REQUIRED
RESERVE
RESET
RESET_TRACE
RETURN
RETURNING
REVERSE_FUNC
REVERSE_VIDEO
REVERSED
REWIND
REWRITE
RF
RH
RIGHT
ROLLBACK
ROUNDED
RUN
SAME
SCREEN
SCREEN_CONTROL
SCROLL
SD
SEARCH
SECTION
SECURE
SEGMENT_LIMIT
SELECT
SEMI_COLON
SENTENCE
SEPARATE
SEQUENCE
SEQUENTIAL
SET
SHARING
SIGN
SIGNED
SIGNED_INT
SIGNED_LONG
SIGNED_SHORT
SIZE
SIZE_ERROR
SORT
SORT_MERGE
SOURCE
SOURCE_COMPUTER
SPACE
SPECIAL_NAMES
STANDARD
STANDARD_1
STANDARD_2
START
STATIC
STATUS
STDCALL
STEP
STOP
STRING
SUBSTITUTE_FUNC
SUBSTITUTE_CASE_FUNC
SUBTRACT
SUM
SUPPRESS
SYMBOLIC
SYNCHRONIZED
SYSTEM_DEFAULT
SYSTEM_OFFSET
TAB
TALLYING
TAPE
TERMINATE
TEST
THAN
THEN
THRU
TIME
TIMEOUT
TIMES
TO
TOK_AMPER
TOK_CLOSE_PAREN
TOK_COLON
TOK_DIV
TOK_DOT
TOK_EQUAL
TOK_FALSE
TOK_FILE
TOK_GREATER
TOK_INITIAL
TOK_LESS
TOK_MINUS
TOK_MUL
TOK_NULL
TOK_OVERFLOW
TOK_OPEN_PAREN
TOK_PLUS
TOK_TRUE
TOP
TOWARD_GREATER
TOWARD_LESSER
TRAILING
TRANSFORM
TRIM_FUNC
TRUNCATION
TYPE
UNDERLINE
UNIT
UNLOCK
UNSIGNED
UNSIGNED_INT
UNSIGNED_LONG
UNSIGNED_SHORT
UNSTRING
UNTIL
UP
UPDATE
UPON
UPON_ARGUMENT_NUMBER
UPON_COMMAND_LINE
UPON_ENVIRONMENT_NAME
UPON_ENVIRONMENT_VALUE
UPPER
UPPER_CASE_FUNC
USAGE
USE
USER
USER_DEFAULT
USER_FUNCTION_NAME
USING
VALUE
VARYING
WAIT
WHEN
WHEN_COMPILED_FUNC
WITH
WORD
WORDS
WORKING_STORAGE
WRITE
YYYYDDD
YYYYMMDD
ZERO
SHIFT_PREFER
TOKEN_EOF
ALSO
BY
COPY
EQEQ
IN
LAST
LEADING
OF
OFF
PRINTING
REPLACE
REPLACING
SUPPRESS
TRAILING
DOT
GARBAGE
SOURCE_DIRECTIVE
FORMAT
IS
FIXED
FREE
DEFINE_DIRECTIVE
AS
PARAMETER
OVERRIDE
SET_DIRECTIVE
CONSTANT
SOURCEFORMAT
FOLDCOPYNAME
NOFOLDCOPYNAME
IF_DIRECTIVE
ELSE_DIRECTIVE
ENDIF_DIRECTIVE
ELIF_DIRECTIVE
GE
LE
LT
GT
EQ
NE
NOT
THAN
TO
OR
EQUAL
GREATER
LESS
SET
DEFINED
TURN_DIRECTIVE
ON
CHECKING
WITH
LOCATION
TERMINATOR
TOKEN
VARIABLE
LITERAL
TOKEN_EOF
ALSO
BY
COPY
EQEQ
IN
LAST
LEADING
OF
OFF
PRINTING
REPLACE
REPLACING
SUPPRESS
TRAILING
DOT
GARBAGE
SOURCE_DIRECTIVE
FORMAT
IS
FIXED
FREE
DEFINE_DIRECTIVE
AS
PARAMETER
OVERRIDE
SET_DIRECTIVE
CONSTANT
SOURCEFORMAT
FOLDCOPYNAME
NOFOLDCOPYNAME
IF_DIRECTIVE
ELSE_DIRECTIVE
ENDIF_DIRECTIVE
ELIF_DIRECTIVE
GE
LE
LT
GT
EQ
NE
NOT
THAN
TO
OR
EQUAL
GREATER
LESS
SET
DEFINED
TURN_DIRECTIVE
ON
CHECKING
WITH
LOCATION
TERMINATOR
TOKEN
VARIABLE
LITERAL

Definition at line 46 of file parser.h.

  {
    TOKEN_EOF = 0,
    ACCEPT = 258,
    ACCESS = 259,
    ADD = 260,
    ADDRESS = 261,
    ADVANCING = 262,
    AFTER = 263,
    ALL = 264,
    ALLOCATE = 265,
    ALPHABET = 266,
    ALPHABETIC = 267,
    ALPHABETIC_LOWER = 268,
    ALPHABETIC_UPPER = 269,
    ALPHANUMERIC = 270,
    ALPHANUMERIC_EDITED = 271,
    ALSO = 272,
    ALTER = 273,
    ALTERNATE = 274,
    AND = 275,
    ANY = 276,
    ARE = 277,
    AREA = 278,
    ARGUMENT_NUMBER = 279,
    ARGUMENT_VALUE = 280,
    AS = 281,
    ASCENDING = 282,
    ASCII = 283,
    ASSIGN = 284,
    AT = 285,
    ATTRIBUTE = 286,
    AUTO = 287,
    AUTOMATIC = 288,
    AWAY_FROM_ZERO = 289,
    BACKGROUND_COLOR = 290,
    BASED = 291,
    BEFORE = 292,
    BELL = 293,
    BINARY = 294,
    BINARY_C_LONG = 295,
    BINARY_CHAR = 296,
    BINARY_DOUBLE = 297,
    BINARY_LONG = 298,
    BINARY_SHORT = 299,
    BLANK = 300,
    BLINK = 301,
    BLOCK = 302,
    BOTTOM = 303,
    BY = 304,
    BYTE_LENGTH = 305,
    CALL = 306,
    CANCEL = 307,
    CAPACITY = 308,
    CF = 309,
    CH = 310,
    CHAINING = 311,
    CHARACTER = 312,
    CHARACTERS = 313,
    CLASS = 314,
    CLASSIFICATION = 315,
    CLOSE = 316,
    CODE = 317,
    CODE_SET = 318,
    COLLATING = 319,
    COL = 320,
    COLS = 321,
    COLUMN = 322,
    COLUMNS = 323,
    COMMA = 324,
    COMMAND_LINE = 325,
    COMMA_DELIM = 326,
    COMMIT = 327,
    COMMON = 328,
    COMP = 329,
    COMPUTE = 330,
    COMP_1 = 331,
    COMP_2 = 332,
    COMP_3 = 333,
    COMP_4 = 334,
    COMP_5 = 335,
    COMP_6 = 336,
    COMP_X = 337,
    CONCATENATE_FUNC = 338,
    CONDITION = 339,
    CONFIGURATION = 340,
    CONSTANT = 341,
    CONTAINS = 342,
    CONTENT = 343,
    CONTINUE = 344,
    CONTROL = 345,
    CONTROLS = 346,
    CONVERSION = 347,
    CONVERTING = 348,
    COPY = 349,
    CORRESPONDING = 350,
    COUNT = 351,
    CRT = 352,
    CRT_UNDER = 353,
    CURRENCY = 354,
    CURRENT_DATE_FUNC = 355,
    CURSOR = 356,
    CYCLE = 357,
    DATA = 358,
    DATE = 359,
    DAY = 360,
    DAY_OF_WEEK = 361,
    DE = 362,
    DEBUGGING = 363,
    DECIMAL_POINT = 364,
    DECLARATIVES = 365,
    DEFAULT = 366,
    DELETE = 367,
    DELIMITED = 368,
    DELIMITER = 369,
    DEPENDING = 370,
    DESCENDING = 371,
    DETAIL = 372,
    DISC = 373,
    DISK = 374,
    DISPLAY = 375,
    DISPLAY_OF_FUNC = 376,
    DIVIDE = 377,
    DIVISION = 378,
    DOWN = 379,
    DUPLICATES = 380,
    DYNAMIC = 381,
    EBCDIC = 382,
    EC = 383,
    ELSE = 384,
    END = 385,
    END_ACCEPT = 386,
    END_ADD = 387,
    END_CALL = 388,
    END_COMPUTE = 389,
    END_DELETE = 390,
    END_DISPLAY = 391,
    END_DIVIDE = 392,
    END_EVALUATE = 393,
    END_FUNCTION = 394,
    END_IF = 395,
    END_MULTIPLY = 396,
    END_PERFORM = 397,
    END_PROGRAM = 398,
    END_READ = 399,
    END_RETURN = 400,
    END_REWRITE = 401,
    END_SEARCH = 402,
    END_START = 403,
    END_STRING = 404,
    END_SUBTRACT = 405,
    END_UNSTRING = 406,
    END_WRITE = 407,
    ENTRY = 408,
    ENVIRONMENT = 409,
    ENVIRONMENT_NAME = 410,
    ENVIRONMENT_VALUE = 411,
    EOL = 412,
    EOP = 413,
    EOS = 414,
    EQUAL = 415,
    ERASE = 416,
    ERROR = 417,
    ESCAPE = 418,
    EVALUATE = 419,
    EVENT_STATUS = 420,
    EXCEPTION = 421,
    EXCEPTION_CONDITION = 422,
    EXCLUSIVE = 423,
    EXIT = 424,
    EXPONENTIATION = 425,
    EXTEND = 426,
    EXTERNAL = 427,
    FD = 428,
    FILE_CONTROL = 429,
    FILE_ID = 430,
    FILLER = 431,
    FINAL = 432,
    FIRST = 433,
    FLOAT_BINARY_128 = 434,
    FLOAT_BINARY_32 = 435,
    FLOAT_BINARY_64 = 436,
    FLOAT_DECIMAL_16 = 437,
    FLOAT_DECIMAL_34 = 438,
    FLOAT_DECIMAL_7 = 439,
    FLOAT_EXTENDED = 440,
    FLOAT_LONG = 441,
    FLOAT_SHORT = 442,
    FOOTING = 443,
    FOR = 444,
    FOREGROUND_COLOR = 445,
    FOREVER = 446,
    FORMATTED_DATE_FUNC = 447,
    FORMATTED_DATETIME_FUNC = 448,
    FORMATTED_TIME_FUNC = 449,
    FREE = 450,
    FROM = 451,
    FROM_CRT = 452,
    FULL = 453,
    FUNCTION = 454,
    FUNCTION_ID = 455,
    FUNCTION_NAME = 456,
    GENERATE = 457,
    GIVING = 458,
    GLOBAL = 459,
    GO = 460,
    GOBACK = 461,
    GREATER = 462,
    GREATER_OR_EQUAL = 463,
    GRID = 464,
    GROUP = 465,
    HEADING = 466,
    HIGHLIGHT = 467,
    HIGH_VALUE = 468,
    ID = 469,
    IDENTIFICATION = 470,
    IF = 471,
    IGNORE = 472,
    IGNORING = 473,
    IN = 474,
    INDEX = 475,
    INDEXED = 476,
    INDICATE = 477,
    INITIALIZE = 478,
    INITIALIZED = 479,
    INITIATE = 480,
    INPUT = 481,
    INPUT_OUTPUT = 482,
    INSPECT = 483,
    INTO = 484,
    INTRINSIC = 485,
    INVALID = 486,
    INVALID_KEY = 487,
    IS = 488,
    I_O = 489,
    I_O_CONTROL = 490,
    JUSTIFIED = 491,
    KEPT = 492,
    KEY = 493,
    KEYBOARD = 494,
    LABEL = 495,
    LAST = 496,
    LEADING = 497,
    LEFT = 498,
    LEFTLINE = 499,
    LENGTH = 500,
    LENGTH_OF = 501,
    LESS = 502,
    LESS_OR_EQUAL = 503,
    LIMIT = 504,
    LIMITS = 505,
    LINAGE = 506,
    LINAGE_COUNTER = 507,
    LINE = 508,
    LINE_COUNTER = 509,
    LINES = 510,
    LINKAGE = 511,
    LITERAL = 512,
    LOCALE = 513,
    LOCALE_DATE_FUNC = 514,
    LOCALE_TIME_FUNC = 515,
    LOCALE_TIME_FROM_FUNC = 516,
    LOCAL_STORAGE = 517,
    LOCK = 518,
    LOWER = 519,
    LOWER_CASE_FUNC = 520,
    LOWLIGHT = 521,
    LOW_VALUE = 522,
    MANUAL = 523,
    MEMORY = 524,
    MERGE = 525,
    MINUS = 526,
    MNEMONIC_NAME = 527,
    MODE = 528,
    MOVE = 529,
    MULTIPLE = 530,
    MULTIPLY = 531,
    NAME = 532,
    NATIONAL = 533,
    NATIONAL_EDITED = 534,
    NATIONAL_OF_FUNC = 535,
    NATIVE = 536,
    NEAREST_AWAY_FROM_ZERO = 537,
    NEAREST_EVEN = 538,
    NEAREST_TOWARD_ZERO = 539,
    NEGATIVE = 540,
    NEXT = 541,
    NEXT_PAGE = 542,
    NO = 543,
    NO_ECHO = 544,
    NORMAL = 545,
    NOT = 546,
    NOTHING = 547,
    NOT_END = 548,
    NOT_EOP = 549,
    NOT_ESCAPE = 550,
    NOT_EQUAL = 551,
    NOT_EXCEPTION = 552,
    NOT_INVALID_KEY = 553,
    NOT_OVERFLOW = 554,
    NOT_SIZE_ERROR = 555,
    NO_ADVANCING = 556,
    NUMBER = 557,
    NUMBERS = 558,
    NUMERIC = 559,
    NUMERIC_EDITED = 560,
    NUMVALC_FUNC = 561,
    OBJECT_COMPUTER = 562,
    OCCURS = 563,
    OF = 564,
    OFF = 565,
    OMITTED = 566,
    ON = 567,
    ONLY = 568,
    OPEN = 569,
    OPTIONAL = 570,
    OR = 571,
    ORDER = 572,
    ORGANIZATION = 573,
    OTHER = 574,
    OUTPUT = 575,
    OVERLINE = 576,
    PACKED_DECIMAL = 577,
    PADDING = 578,
    PAGE = 579,
    PAGE_COUNTER = 580,
    PARAGRAPH = 581,
    PERFORM = 582,
    PH = 583,
    PF = 584,
    PICTURE = 585,
    PICTURE_SYMBOL = 586,
    PLUS = 587,
    POINTER = 588,
    POSITION = 589,
    POSITIVE = 590,
    PRESENT = 591,
    PREVIOUS = 592,
    PRINT = 593,
    PRINTER = 594,
    PRINTER_1 = 595,
    PRINTING = 596,
    PROCEDURE = 597,
    PROCEDURES = 598,
    PROCEED = 599,
    PROGRAM = 600,
    PROGRAM_ID = 601,
    PROGRAM_NAME = 602,
    PROGRAM_POINTER = 603,
    PROHIBITED = 604,
    PROMPT = 605,
    PROTECTED = 606,
    QUOTE = 607,
    RANDOM = 608,
    RD = 609,
    READ = 610,
    READY_TRACE = 611,
    RECORD = 612,
    RECORDING = 613,
    RECORDS = 614,
    RECURSIVE = 615,
    REDEFINES = 616,
    REEL = 617,
    REFERENCE = 618,
    REFERENCES = 619,
    RELATIVE = 620,
    RELEASE = 621,
    REMAINDER = 622,
    REMOVAL = 623,
    RENAMES = 624,
    REPLACE = 625,
    REPLACING = 626,
    REPORT = 627,
    REPORTING = 628,
    REPORTS = 629,
    REPOSITORY = 630,
    REQUIRED = 631,
    RESERVE = 632,
    RESET = 633,
    RESET_TRACE = 634,
    RETURN = 635,
    RETURNING = 636,
    REVERSE_FUNC = 637,
    REVERSE_VIDEO = 638,
    REVERSED = 639,
    REWIND = 640,
    REWRITE = 641,
    RF = 642,
    RH = 643,
    RIGHT = 644,
    ROLLBACK = 645,
    ROUNDED = 646,
    RUN = 647,
    SAME = 648,
    SCREEN = 649,
    SCREEN_CONTROL = 650,
    SCROLL = 651,
    SD = 652,
    SEARCH = 653,
    SECTION = 654,
    SECURE = 655,
    SEGMENT_LIMIT = 656,
    SELECT = 657,
    SEMI_COLON = 658,
    SENTENCE = 659,
    SEPARATE = 660,
    SEQUENCE = 661,
    SEQUENTIAL = 662,
    SET = 663,
    SHARING = 664,
    SIGN = 665,
    SIGNED = 666,
    SIGNED_INT = 667,
    SIGNED_LONG = 668,
    SIGNED_SHORT = 669,
    SIZE = 670,
    SIZE_ERROR = 671,
    SORT = 672,
    SORT_MERGE = 673,
    SOURCE = 674,
    SOURCE_COMPUTER = 675,
    SPACE = 676,
    SPECIAL_NAMES = 677,
    STANDARD = 678,
    STANDARD_1 = 679,
    STANDARD_2 = 680,
    START = 681,
    STATIC = 682,
    STATUS = 683,
    STDCALL = 684,
    STEP = 685,
    STOP = 686,
    STRING = 687,
    SUBSTITUTE_FUNC = 688,
    SUBSTITUTE_CASE_FUNC = 689,
    SUBTRACT = 690,
    SUM = 691,
    SUPPRESS = 692,
    SYMBOLIC = 693,
    SYNCHRONIZED = 694,
    SYSTEM_DEFAULT = 695,
    SYSTEM_OFFSET = 696,
    TAB = 697,
    TALLYING = 698,
    TAPE = 699,
    TERMINATE = 700,
    TEST = 701,
    THAN = 702,
    THEN = 703,
    THRU = 704,
    TIME = 705,
    TIMEOUT = 706,
    TIMES = 707,
    TO = 708,
    TOK_AMPER = 709,
    TOK_CLOSE_PAREN = 710,
    TOK_COLON = 711,
    TOK_DIV = 712,
    TOK_DOT = 713,
    TOK_EQUAL = 714,
    TOK_FALSE = 715,
    TOK_FILE = 716,
    TOK_GREATER = 717,
    TOK_INITIAL = 718,
    TOK_LESS = 719,
    TOK_MINUS = 720,
    TOK_MUL = 721,
    TOK_NULL = 722,
    TOK_OVERFLOW = 723,
    TOK_OPEN_PAREN = 724,
    TOK_PLUS = 725,
    TOK_TRUE = 726,
    TOP = 727,
    TOWARD_GREATER = 728,
    TOWARD_LESSER = 729,
    TRAILING = 730,
    TRANSFORM = 731,
    TRIM_FUNC = 732,
    TRUNCATION = 733,
    TYPE = 734,
    UNDERLINE = 735,
    UNIT = 736,
    UNLOCK = 737,
    UNSIGNED = 738,
    UNSIGNED_INT = 739,
    UNSIGNED_LONG = 740,
    UNSIGNED_SHORT = 741,
    UNSTRING = 742,
    UNTIL = 743,
    UP = 744,
    UPDATE = 745,
    UPON = 746,
    UPON_ARGUMENT_NUMBER = 747,
    UPON_COMMAND_LINE = 748,
    UPON_ENVIRONMENT_NAME = 749,
    UPON_ENVIRONMENT_VALUE = 750,
    UPPER = 751,
    UPPER_CASE_FUNC = 752,
    USAGE = 753,
    USE = 754,
    USER = 755,
    USER_DEFAULT = 756,
    USER_FUNCTION_NAME = 757,
    USING = 758,
    VALUE = 759,
    VARYING = 760,
    WAIT = 761,
    WHEN = 762,
    WHEN_COMPILED_FUNC = 763,
    WITH = 764,
    WORD = 765,
    WORDS = 766,
    WORKING_STORAGE = 767,
    WRITE = 768,
    YYYYDDD = 769,
    YYYYMMDD = 770,
    ZERO = 771,
    SHIFT_PREFER = 772
  };

Function Documentation

int yyparse

(

void

)

Definition at line 6565 of file parser.c.

References _, ACCEPT, cb_file::access_mode, ADD, cb_literal::all, cb_program::all_procedure, cb_program::alphabet_name_list, cb_alphabet_name::alphabet_type, cb_file::alt_key_list, cb_file::assign, cb_statement::attr_ptr, begin_implicit_statement(), begin_statement(), bit_set_attr(), build_file(), build_report(), CALL, call_mode, call_nothing, cb_add_common_prog(), CB_ADD_TO_CHAIN, CB_AFTER, CB_ALPHABET_ASCII, CB_ALPHABET_CUSTOM, CB_ALPHABET_EBCDIC, CB_ALPHABET_NAME, CB_ALPHABET_NAME_P, CB_ALPHABET_NATIVE, cb_any, CB_BEFORE, cb_build_add(), cb_build_address(), cb_build_alphabet_name(), cb_build_alphanumeric_literal(), cb_build_assignment_name(), cb_build_binary_list(), cb_build_binary_op(), CB_BUILD_CHAIN, cb_build_class_name(), cb_build_comment(), cb_build_cond(), cb_build_const_length(), cb_build_constant(), cb_build_converting(), cb_build_debug(), cb_build_debug_item(), cb_build_display_mnemonic(), cb_build_display_name(), cb_build_expr(), cb_build_field_tree(), cb_build_filler(), CB_BUILD_FUNCALL_1, cb_build_goto(), cb_build_identifier(), cb_build_if_check_break(), cb_build_index(), cb_build_inspect_region_start(), cb_build_intrinsic(), cb_build_label(), cb_build_length(), cb_build_list(), cb_build_locale_name(), cb_build_numeric_literal(), CB_BUILD_PAIR, cb_build_perform_exit(), cb_build_perform_forever(), cb_build_perform_once(), cb_build_perform_times(), cb_build_perform_until(), cb_build_perform_varying(), cb_build_ppointer(), cb_build_program(), cb_build_program_id(), cb_build_reference(), cb_build_registers(), cb_build_replacing_all(), cb_build_replacing_characters(), cb_build_replacing_first(), cb_build_replacing_leading(), cb_build_replacing_trailing(), cb_build_section_name(), cb_build_sub(), cb_build_tallying_all(), cb_build_tallying_characters(), cb_build_tallying_data(), cb_build_tallying_leading(), cb_build_tallying_trailing(), cb_build_tallying_value(), cb_build_unstring_delimited(), cb_build_unstring_into(), cb_build_write_advancing_lines(), cb_build_write_advancing_mnemonic(), cb_build_write_advancing_page(), CB_CALL_BY_CONTENT, CB_CALL_BY_REFERENCE, CB_CALL_BY_VALUE, CB_CATEGORY_ALPHABETIC, CB_CATEGORY_ALPHANUMERIC, CB_CATEGORY_ALPHANUMERIC_EDITED, cb_category_is_alpha(), CB_CATEGORY_NATIONAL, CB_CATEGORY_NATIONAL_EDITED, CB_CATEGORY_NUMERIC, CB_CATEGORY_NUMERIC_EDITED, CB_CHAIN, CB_CHAIN_PAIR, cb_check_field_debug(), CB_CLASS_NAME_P, CB_CLASS_NUMERIC, cb_clear_real_field(), cb_concat_literals(), CB_CONV_NO_RET_UPD, CB_CONV_STATIC_LINK, CB_CONV_STDCALL, CB_CS_ASSIGN, CB_CS_CALL, CB_CS_DISPLAY, CB_CS_EXIT, CB_CS_SET, cb_debug_contents, cb_define(), cb_define_switch_name(), CB_DEVICE_CONSOLE, cb_emit_accept(), cb_emit_accept_arg_number(), cb_emit_accept_arg_value(), cb_emit_accept_command_line(), cb_emit_accept_date(), cb_emit_accept_date_yyyymmdd(), cb_emit_accept_day(), cb_emit_accept_day_of_week(), cb_emit_accept_day_yyyyddd(), cb_emit_accept_environment(), cb_emit_accept_escape_key(), cb_emit_accept_exception_status(), cb_emit_accept_line_or_col(), cb_emit_accept_mnemonic(), cb_emit_accept_name(), cb_emit_accept_time(), cb_emit_accept_user_name(), cb_emit_allocate(), cb_emit_alter(), cb_emit_arg_number(), cb_emit_arithmetic(), cb_emit_call(), cb_emit_cancel(), cb_emit_close(), cb_emit_command_line(), cb_emit_commit(), cb_emit_continue(), cb_emit_corresponding(), cb_emit_delete(), cb_emit_delete_file(), cb_emit_display(), cb_emit_display_omitted(), cb_emit_divide(), cb_emit_env_name(), cb_emit_env_value(), cb_emit_evaluate(), cb_emit_exit(), cb_emit_free(), cb_emit_get_environment(), cb_emit_goto(), cb_emit_if(), cb_emit_initialize(), cb_emit_inspect(), cb_emit_move(), cb_emit_move_corresponding(), cb_emit_open(), cb_emit_perform(), cb_emit_read(), cb_emit_ready_trace(), cb_emit_release(), cb_emit_reset_trace(), cb_emit_return(), cb_emit_rewrite(), cb_emit_rollback(), cb_emit_search(), cb_emit_search_all(), cb_emit_set_attribute(), cb_emit_set_false(), cb_emit_set_last_exception_to_off(), cb_emit_set_on_off(), cb_emit_set_to(), cb_emit_set_true(), cb_emit_set_up_down(), cb_emit_setenv(), cb_emit_sort_finish(), cb_emit_sort_giving(), cb_emit_sort_init(), cb_emit_sort_input(), cb_emit_sort_output(), cb_emit_sort_using(), cb_emit_start(), cb_emit_stop_run(), cb_emit_string(), cb_emit_unlock(), cb_emit_unstring(), cb_emit_write(), cb_error(), cb_error_node, cb_error_x(), CB_EXCEPTION_ENABLE, cb_exp_line, cb_false, CB_FEATURE_CONVENTION, CB_FIELD, CB_FIELD_ADD, CB_FIELD_P, CB_FIELD_PTR, CB_FILE, CB_FILE_P, CB_FUNCTION_TYPE, cb_get_int(), cb_get_level(), cb_get_real_field(), cb_high, cb_id, cb_init_tallying(), cb_int(), cb_int0, cb_int1, cb_int2, cb_int3, cb_int4, CB_INTEGER, CB_INTEGER_P, CB_INVALID_TREE, CB_LABEL, cb_list_add(), cb_list_append(), CB_LIST_INIT, cb_list_length(), cb_list_reverse(), CB_LITERAL, CB_LITERAL_P, cb_low, cb_name(), CB_NAME, cb_needs_01, cb_norm_high, cb_norm_low, cb_null, CB_OBSOLETE, cb_one, CB_PAIR_X, CB_PAIR_Y, CB_PERFORM, CB_PICTURE, CB_PROGRAM_TYPE, CB_PURPOSE, CB_PURPOSE_INT, cb_quote, cb_ref(), CB_REFERENCE, CB_REFERENCE_P, CB_REPORT, CB_REPORT_P, cb_resolve_redefines(), cb_program::cb_return_code, cb_set_system_names(), CB_SIZE_1, CB_SIZE_2, CB_SIZE_4, CB_SIZE_8, CB_SIZE_AUTO, CB_SIZE_UNSIGNED, CB_SIZES, cb_source_file, cb_source_line, cb_space, CB_STATEMENT, CB_STORAGE_FILE, CB_STORAGE_LINKAGE, CB_STORAGE_LOCAL, CB_STORAGE_REPORT, CB_STORAGE_SCREEN, CB_STORAGE_WORKING, CB_SWITCH_NAME, CB_SYSTEM_NAME, CB_TAG_FIELD, CB_TAG_FILE, cb_to_cname(), CB_TREE, cb_tree_category(), CB_TREE_CLASS, CB_TREE_TAG, cb_true, cb_unput_dot(), CB_USAGE_BINARY, CB_USAGE_COMP_5, CB_USAGE_COMP_6, CB_USAGE_COMP_X, CB_USAGE_DISPLAY, CB_USAGE_DOUBLE, CB_USAGE_FLOAT, CB_USAGE_FP_BIN128, CB_USAGE_FP_BIN32, CB_USAGE_FP_BIN64, CB_USAGE_FP_DEC128, CB_USAGE_FP_DEC64, CB_USAGE_INDEX, CB_USAGE_PACKED, CB_USAGE_POINTER, CB_USAGE_PROGRAM_POINTER, CB_USAGE_SIGNED_CHAR, CB_USAGE_SIGNED_INT, CB_USAGE_SIGNED_LONG, CB_USAGE_SIGNED_SHORT, CB_USAGE_UNSIGNED_CHAR, CB_USAGE_UNSIGNED_INT, CB_USAGE_UNSIGNED_LONG, CB_USAGE_UNSIGNED_SHORT, CB_VALID_TREE, cb_validate_78_item(), cb_validate_88_item(), cb_validate_field(), cb_validate_program_body(), cb_validate_program_data(), cb_validate_program_environment(), CB_VALUE, cb_verify(), cb_warning(), cb_warning_x(), CB_WORD_COUNT, CB_WORD_ITEMS, cb_zero, check_attr_with_conflict(), check_attribs(), check_attribs_with_conflict(), check_comp_duplicate, check_duplicate, check_headers_present(), check_line_col_duplicate, check_not_88_level(), check_not_highlight_and_lowlight(), check_on_off_duplicate, check_pic_duplicate, check_relaxed_syntax(), check_repeated(), check_screen_attr(), check_screen_attr_with_conflict(), check_set_usage(), check_unreached, cb_program::class_name_list, cb_program::classification, clean_up_program(), clear_initial_values(), COB_ACCESS_DYNAMIC, COB_ACCESS_RANDOM, COB_ACCESS_SEQUENTIAL, COB_ASCENDING, COB_CLOSE_LOCK, COB_CLOSE_NO_REWIND, COB_CLOSE_NORMAL, COB_CLOSE_UNIT, COB_CLOSE_UNIT_REMOVAL, COB_DESCENDING, COB_EC_I_O, COB_EC_I_O_AT_END, COB_EC_I_O_EOP, COB_EC_I_O_INVALID_KEY, COB_EC_IMP_ACCEPT, COB_EC_IMP_DISPLAY, COB_EC_OVERFLOW, COB_EC_SIZE, COB_EQ, COB_FI, COB_GE, COB_GT, COB_LA, COB_LE, COB_LOCK_AUTOMATIC, COB_LOCK_EXCLUSIVE, COB_LOCK_MANUAL, COB_LOCK_MULTIPLE, COB_LOCK_OPEN_EXCLUSIVE, COB_LT, COB_MAX_FIELD_PARAMS, COB_MAX_SUBSCRIPTS, COB_NE, COB_OPEN_EXTEND, COB_OPEN_I_O, COB_OPEN_INPUT, COB_OPEN_OUTPUT, COB_ORG_INDEXED, COB_ORG_LINE_SEQUENTIAL, COB_ORG_RELATIVE, COB_ORG_SEQUENTIAL, COB_ORG_SORT, COB_SCREEN_AUTO, COB_SCREEN_BELL, COB_SCREEN_BLANK_LINE, COB_SCREEN_BLANK_SCREEN, COB_SCREEN_BLINK, COB_SCREEN_COLUMN_MINUS, COB_SCREEN_COLUMN_PLUS, COB_SCREEN_ERASE_EOL, COB_SCREEN_ERASE_EOS, COB_SCREEN_FULL, COB_SCREEN_GRID, COB_SCREEN_HIGHLIGHT, COB_SCREEN_INITIAL, COB_SCREEN_INPUT, COB_SCREEN_LEFTLINE, COB_SCREEN_LINE_MINUS, COB_SCREEN_LINE_PLUS, COB_SCREEN_LOWER, COB_SCREEN_LOWLIGHT, COB_SCREEN_NO_ECHO, COB_SCREEN_OVERLINE, COB_SCREEN_PROMPT, COB_SCREEN_REQUIRED, COB_SCREEN_REVERSE, COB_SCREEN_SCROLL_DOWN, COB_SCREEN_SECURE, COB_SCREEN_UNDERLINE, COB_SCREEN_UPDATE, COB_SCREEN_UPPER, COB_SELECT_STDIN, COB_SELECT_STDOUT, COB_STORE_AWAY_FROM_ZERO, COB_STORE_NEAR_AWAY_FROM_ZERO, COB_STORE_NEAR_EVEN, COB_STORE_NEAR_TOWARD_ZERO, COB_STORE_PROHIBITED, COB_STORE_ROUND, COB_STORE_TOWARD_GREATER, COB_STORE_TOWARD_LESSER, COB_STORE_TRUNCATION, cobc_check_valid_name(), cobc_cs_check, cobc_flag_main, COBC_HD_CONFIGURATION_SECTION, COBC_HD_DATA_DIVISION, COBC_HD_ENVIRONMENT_DIVISION, COBC_HD_FILE_CONTROL, COBC_HD_FILE_SECTION, COBC_HD_I_O_CONTROL, COBC_HD_INPUT_OUTPUT_SECTION, COBC_HD_LINKAGE_SECTION, COBC_HD_LOCAL_STORAGE_SECTION, COBC_HD_PROCEDURE_DIVISION, COBC_HD_PROGRAM_ID, COBC_HD_SPECIAL_NAMES, COBC_HD_WORKING_STORAGE_SECTION, cobc_in_procedure, cobc_in_repository, cobc_parse_free(), cobc_parse_malloc(), cb_file::code_set, cb_program::collating_sequence, cb_report::columns, COMPUTE, contains_only_screen_field(), cb_program::crt_status, cb_program::currency_symbol, current_field, current_file, current_linage, current_paragraph, current_program, current_report, current_section, current_storage, cb_program::cursor_pos, cb_perform::cycle_label, cb_program::debug_list, cb_program::decimal_point, DELETE, demangle_name, cb_field::depending, depth, description_field, cb_key::dir, cb_attr_struct::dispattrs, DISPLAY, DIVIDE, cb_alt_key::duplicates, emit_default_displays_for_x_list(), emit_entry(), emit_statement, cb_field::ename, cb_program::entry_list, error_if_no_advancing_in_screen_display(), errorcount, EVAL_DEPTH, eval_inc, eval_inc2, eval_level, EVALUATE, cb_program::exec_list, cb_label::exit_label, cb_perform::exit_label, cb_field::false_88, cb_report::file, cb_program::file_list, cb_file::file_status, finalize_file(), cb_report::first_detail, first_nested_program, cb_field::flag_any_length, cb_field::flag_any_numeric, cb_label::flag_begin, cb_field::flag_blank_zero, cb_program::flag_chained, cb_program::flag_common, cb_program::flag_console_is_crt, cb_program::flag_debugging, cb_label::flag_declarative_exit, cb_label::flag_declaratives, cb_label::flag_dummy_paragraph, cb_label::flag_dummy_section, cb_file::flag_ext_assign, cb_field::flag_external, cb_file::flag_external, cb_label::flag_fatal_check, cb_program::flag_file_global, cb_file::flag_fileid, cb_field::flag_filler, cb_label::flag_first_is_goto, cb_program::flag_gen_debug, cb_label::flag_global, cb_file::flag_global, cb_program::flag_global_use, cb_program::flag_has_external, cb_program::flag_initial, cb_field::flag_invalid, cb_label::flag_is_debug_sect, cb_field::flag_is_global, cb_field::flag_is_pdiv_opt, cb_field::flag_is_pointer, cb_field::flag_is_returning, cb_field::flag_is_verified, cb_field::flag_item_78, cb_field::flag_item_based, cb_field::flag_justified, cb_file::flag_line_adv, cb_program::flag_main, cb_statement::flag_merge, cb_statement::flag_no_based, cb_field::flag_occurs, cb_label::flag_real_label, cb_program::flag_recursive, cb_label::flag_return, cb_program::flag_screen, cb_label::flag_section, cb_program::flag_segments, cb_field::flag_sign_leading, cb_field::flag_sign_separate, cb_label::flag_skip_label, cb_label::flag_statement, cb_field::flag_synchronized, cb_program::flag_trailing_separate, cb_program::flag_validated, cb_program::flag_void, cb_report::footing, cb_program::function_spec_list, functions_are_all, get_default_display_device(), cb_program::global_handler, cb_program::global_list, cb_statement::handler1, cb_statement::handler2, cb_statement::handler_id, handler_struct::handler_label, handler_struct::handler_prog, has_relative_pos(), header_check, cb_report::heading, IF, in_debugging, in_declaratives, increment_depth(), cb_field::index_list, cb_field::indexes, inspect_keyword, is_screen_field(), cb_key::key, cb_alt_key::key, cb_file::key, cb_field::keys, cb_program::label_list, cb_report::last_control, cb_report::last_detail, cb_file::latbot, cb_file::latfoot, cb_file::lattop, cb_field::level, likely, cb_file::linage, cb_file::linage_ctr, cb_report::line_counter, cb_report::lines, cb_program::linkage_storage, literal_value(), cb_program::local_storage, cb_program::locale_list, cb_file::lock_mode, lookup_system_name(), cb_program::loop_counter, main_flag_set, MAX_FD_RECORD, cb_program::mnemonic_spec_list, MULTIPLY, cb_field::name, cb_file::name, cb_statement::name, needs_debug_item, needs_field_debug, cb_program::nested_level, cb_alt_key::next, next_label_id, cb_field::nkeys, non_const_word, NULL, cb_program::num_proc_params, cb_program::numeric_separator, cb_field::occurs_max, cb_field::occurs_min, cb_file::optional, cb_file::organization, cb_program::orig_program_id, cb_report::page_counter, cb_field::parent, PENDING, PERFORM, cb_field::pic, prog_end, cb_program::prog_type, cb_program::program_id, push_expr, qualifier, READ, cb_file::record_depending, cb_file::record_max, cb_file::record_min, cb_field::redefines, redefinition_error(), cb_program::reference_list, remove_attrib(), cb_field::rename_thru, report_count, cb_program::report_list, cb_file::reports, RETURN, cb_program::returning, REWRITE, samearea, save_debug, cb_field::screen_backg, cb_field::screen_column, screen_display(), cb_field::screen_flag, cb_field::screen_foreg, cb_field::screen_from, cb_field::screen_line, cb_field::screen_prompt, cb_program::screen_storage, cb_field::screen_to, SEARCH, cb_label::segment, set_up_func_prototype(), set_up_program(), set_up_use_file(), setattr_val_off, setattr_val_on, cb_file::sharing, sign, cb_field::sister, size_mode, skip_statements, cb_tree_common::source_file, cb_program::source_name, cb_file::special, START, start_debug, cb_field::step_count, cb_field::storage, STRING, SUBTRACT, cb_program::symbolic_char_list, SYN_CLAUSE_1, SYN_CLAUSE_10, SYN_CLAUSE_11, SYN_CLAUSE_12, SYN_CLAUSE_13, SYN_CLAUSE_14, SYN_CLAUSE_16, SYN_CLAUSE_17, SYN_CLAUSE_18, SYN_CLAUSE_19, SYN_CLAUSE_2, SYN_CLAUSE_20, SYN_CLAUSE_21, SYN_CLAUSE_22, SYN_CLAUSE_23, SYN_CLAUSE_24, SYN_CLAUSE_3, SYN_CLAUSE_4, SYN_CLAUSE_5, SYN_CLAUSE_6, SYN_CLAUSE_7, SYN_CLAUSE_8, SYN_CLAUSE_9, TERM_ACCEPT, TERM_ADD, TERM_CALL, TERM_COMPUTE, TERM_DELETE, TERM_DISPLAY, TERM_DIVIDE, TERM_EVALUATE, TERM_IF, TERM_MULTIPLY, TERM_PERFORM, TERM_READ, TERM_RETURN, TERM_REWRITE, TERM_SEARCH, TERM_START, TERM_STRING, TERM_SUBTRACT, TERM_UNSTRING, TERM_WRITE, TERMINATOR_CLEAR, TERMINATOR_ERROR, TERMINATOR_WARNING, UNSTRING, use_global_ind, validate_file(), value, cb_field::values, cb_perform::varying, warningopt, cb_program::working_storage, WRITE, YY_, YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN, YY_IGNORE_MAYBE_UNINITIALIZED_END, YY_REDUCE_PRINT, YY_STACK_PRINT, YY_SYMBOL_PRINT, YYABORT, YYACCEPT, yyclearin, yydestruct(), YYDPRINTF, YYEMPTY, YYEOF, yyerrok, yyerror, YYERROR, YYFINAL, YYINITDEPTH, YYLAST, yylex, yylval, YYMAXDEPTH, yynerrs, YYNTOKENS, yypact_value_is_default, YYPOPSTACK, YYSIZE_T, yyalloc::yyss_alloc, YYSTACK_ALLOC, YYSTACK_BYTES, YYSTACK_FREE, YYSTACK_RELOCATE, YYSYNTAX_ERROR, yytable_value_is_error, YYTERROR, YYTRANSLATE, yyalloc::yyvs_alloc, and zero_conflicting_flags().

{
    int yystate;
    /* Number of tokens to shift before error messages enabled.  */
    int yyerrstatus;

    /* The stacks and their tools:
       'yyss': related to states.
       'yyvs': related to semantic values.

       Refer to the stacks through separate pointers, to allow yyoverflow
       to reallocate them elsewhere.  */

    /* The state stack.  */
    yytype_int16 yyssa[YYINITDEPTH];
    yytype_int16 *yyss;
    yytype_int16 *yyssp;

    /* The semantic value stack.  */
    YYSTYPE yyvsa[YYINITDEPTH];
    YYSTYPE *yyvs;
    YYSTYPE *yyvsp;

    YYSIZE_T yystacksize;

  int yyn;
  int yyresult;
  /* Lookahead token as an internal (translated) token number.  */
  int yytoken = 0;
  /* The variables used to return semantic value and location from the
     action routines.  */
  YYSTYPE yyval;

#if YYERROR_VERBOSE
  /* Buffer for error messages, and its allocated size.  */
  char yymsgbuf[128];
  char *yymsg = yymsgbuf;
  YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
#endif

#define YYPOPSTACK(N)   (yyvsp -= (N), yyssp -= (N))

  /* The number of symbols on the RHS of the reduced rule.
     Keep to zero when no symbol should be popped.  */
  int yylen = 0;

  yyssp = yyss = yyssa;
  yyvsp = yyvs = yyvsa;
  yystacksize = YYINITDEPTH;

  YYDPRINTF ((stderr, "Starting parse\n"));

  yystate = 0;
  yyerrstatus = 0;
  yynerrs = 0;
  yychar = YYEMPTY; /* Cause a token to be read.  */
  goto yysetstate;

/*------------------------------------------------------------.
| yynewstate -- Push a new state, which is found in yystate.  |
`------------------------------------------------------------*/
 yynewstate:
  /* In all cases, when you get here, the value and location stacks
     have just been pushed.  So pushing a state here evens the stacks.  */
  yyssp++;

 yysetstate:
  *yyssp = yystate;

  if (yyss + yystacksize - 1 <= yyssp)
    {
      /* Get the current used size of the three stacks, in elements.  */
      YYSIZE_T yysize = yyssp - yyss + 1;

#ifdef yyoverflow
      {
        /* Give user a chance to reallocate the stack.  Use copies of
           these so that the &'s don't force the real ones into
           memory.  */
        YYSTYPE *yyvs1 = yyvs;
        yytype_int16 *yyss1 = yyss;

        /* Each stack pointer address is followed by the size of the
           data in use in that stack, in bytes.  This used to be a
           conditional around just the two extra args, but that might
           be undefined if yyoverflow is a macro.  */
        yyoverflow (YY_("memory exhausted"),
                    &yyss1, yysize * sizeof (*yyssp),
                    &yyvs1, yysize * sizeof (*yyvsp),
                    &yystacksize);

        yyss = yyss1;
        yyvs = yyvs1;
      }
#else /* no yyoverflow */
# ifndef YYSTACK_RELOCATE
      goto yyexhaustedlab;
# else
      /* Extend the stack our own way.  */
      if (YYMAXDEPTH <= yystacksize)
        goto yyexhaustedlab;
      yystacksize *= 2;
      if (YYMAXDEPTH < yystacksize)
        yystacksize = YYMAXDEPTH;

      {
        yytype_int16 *yyss1 = yyss;
        union yyalloc *yyptr =
          (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
        if (! yyptr)
          goto yyexhaustedlab;
        YYSTACK_RELOCATE (yyss_alloc, yyss);
        YYSTACK_RELOCATE (yyvs_alloc, yyvs);
#  undef YYSTACK_RELOCATE
        if (yyss1 != yyssa)
          YYSTACK_FREE (yyss1);
      }
# endif
#endif /* no yyoverflow */

      yyssp = yyss + yysize - 1;
      yyvsp = yyvs + yysize - 1;

      YYDPRINTF ((stderr, "Stack size increased to %lu\n",
                  (unsigned long int) yystacksize));

      if (yyss + yystacksize - 1 <= yyssp)
        YYABORT;
    }

  YYDPRINTF ((stderr, "Entering state %d\n", yystate));

  if (yystate == YYFINAL)
    YYACCEPT;

  goto yybackup;

/*-----------.
| yybackup.  |
`-----------*/
yybackup:

  /* Do appropriate processing given the current state.  Read a
     lookahead token if we need one and don't already have one.  */

  /* First try to decide what to do without reference to lookahead token.  */
  yyn = yypact[yystate];
  if (yypact_value_is_default (yyn))
    goto yydefault;

  /* Not known => get a lookahead token if don't already have one.  */

  /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
  if (yychar == YYEMPTY)
    {
      YYDPRINTF ((stderr, "Reading a token: "));
      yychar = yylex ();
    }

  if (yychar <= YYEOF)
    {
      yychar = yytoken = YYEOF;
      YYDPRINTF ((stderr, "Now at end of input.\n"));
    }
  else
    {
      yytoken = YYTRANSLATE (yychar);
      YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
    }

  /* If the proper action on seeing token YYTOKEN is to reduce or to
     detect an error, take that action.  */
  yyn += yytoken;
  if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
    goto yydefault;
  yyn = yytable[yyn];
  if (yyn <= 0)
    {
      if (yytable_value_is_error (yyn))
        goto yyerrlab;
      yyn = -yyn;
      goto yyreduce;
    }

  /* Count tokens shifted since error; after three, turn off error
     status.  */
  if (yyerrstatus)
    yyerrstatus--;

  /* Shift the lookahead token.  */
  YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);

  /* Discard the shifted token.  */
  yychar = YYEMPTY;

  yystate = yyn;
  YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
  *++yyvsp = yylval;
  YY_IGNORE_MAYBE_UNINITIALIZED_END

  goto yynewstate;


/*-----------------------------------------------------------.
| yydefault -- do the default action for the current state.  |
`-----------------------------------------------------------*/
yydefault:
  yyn = yydefact[yystate];
  if (yyn == 0)
    goto yyerrlab;
  goto yyreduce;


/*-----------------------------.
| yyreduce -- Do a reduction.  |
`-----------------------------*/
yyreduce:
  /* yyn is the number of a rule to reduce with.  */
  yylen = yyr2[yyn];

  /* If YYLEN is nonzero, implement the default value of the action:
     '$$ = $1'.

     Otherwise, the following line sets YYVAL to garbage.
     This behavior is undocumented and Bison
     users should not rely upon it.  Assigning to YYVAL
     unconditionally makes the parser a bit smaller, and it avoids a
     GCC warning that YYVAL may be used uninitialized.  */
  yyval = yyvsp[1-yylen];


  YY_REDUCE_PRINT (yyn);
  switch (yyn)
    {
        case 2:
#line 1893 "parser.y" /* yacc.c:1646  */
    {
    clear_initial_values ();
    current_program = NULL;
    defined_prog_list = NULL;
    cobc_cs_check = 0;
    prog_end = 0;
    depth = 0;
    main_flag_set = 0;
    current_program = cb_build_program (NULL, 0);
    cb_build_registers ();
  }
#line 6742 "parser.c" /* yacc.c:1646  */
    break;

  case 3:
#line 1905 "parser.y" /* yacc.c:1646  */
    {
    if (!current_program->flag_validated) {
        current_program->flag_validated = 1;
        cb_validate_program_body (current_program);
    }
    if (depth > 1) {
        cb_error (_("Multiple PROGRAM-ID's without matching END PROGRAM"));
    }
    if (cobc_flag_main && !main_flag_set) {
        cb_error (_("Executable requested but no program found"));
    }
    if (errorcount > 0) {
        YYABORT;
    }
    if (!current_program->entry_list) {
        emit_entry (current_program->program_id, 0, NULL);
    }
  }
#line 6765 "parser.c" /* yacc.c:1646  */
    break;

  case 10:
#line 1941 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     l;

    current_section = NULL;
    current_paragraph = NULL;
    prog_end = 1;
    if (increment_depth ()) {
        YYABORT;
    }
    l = cb_build_alphanumeric_literal (demangle_name,
                       strlen (demangle_name));
    current_program->program_id = cb_build_program_id (l, NULL, 0);
    current_program->prog_type = CB_PROGRAM_TYPE;
    if (!main_flag_set) {
        main_flag_set = 1;
        current_program->flag_main = cobc_flag_main;
    }
    check_relaxed_syntax (COBC_HD_PROGRAM_ID);
  }
#line 6789 "parser.c" /* yacc.c:1646  */
    break;

  case 18:
#line 1992 "parser.y" /* yacc.c:1646  */
    {
    first_nested_program = 0;
    clean_up_program ((yyvsp[-1]), CB_PROGRAM_TYPE);
  }
#line 6798 "parser.c" /* yacc.c:1646  */
    break;

  case 19:
#line 2000 "parser.y" /* yacc.c:1646  */
    {
      clean_up_program ((yyvsp[-1]), CB_FUNCTION_TYPE);
  }
#line 6806 "parser.c" /* yacc.c:1646  */
    break;

  case 23:
#line 2022 "parser.y" /* yacc.c:1646  */
    {
    if (set_up_program ((yyvsp[-1]), (yyvsp[0]), CB_PROGRAM_TYPE)) {
        YYABORT;
    }
  }
#line 6816 "parser.c" /* yacc.c:1646  */
    break;

  case 24:
#line 2028 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
  }
#line 6824 "parser.c" /* yacc.c:1646  */
    break;

  case 25:
#line 2035 "parser.y" /* yacc.c:1646  */
    {
    if (set_up_program ((yyvsp[-2]), (yyvsp[-1]), CB_FUNCTION_TYPE)) {
        YYABORT;
    }
    set_up_func_prototype ((yyvsp[-2]), (yyvsp[-1]), 1);
    cobc_cs_check = 0;
  }
#line 6836 "parser.c" /* yacc.c:1646  */
    break;

  case 26:
#line 2046 "parser.y" /* yacc.c:1646  */
    {
    if (CB_REFERENCE_P ((yyvsp[0])) && CB_WORD_COUNT ((yyvsp[0])) > 0) {
        redefinition_error ((yyvsp[0]));
    }
    /*
      The program name is a key part of defining the current_program, so we
      mustn't lose it (unlike in undefined_word).
    */
    (yyval) = (yyvsp[0]);
  }
#line 6851 "parser.c" /* yacc.c:1646  */
    break;

  case 30:
#line 2065 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 6857 "parser.c" /* yacc.c:1646  */
    break;

  case 31:
#line 2066 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 6863 "parser.c" /* yacc.c:1646  */
    break;

  case 34:
#line 2075 "parser.y" /* yacc.c:1646  */
    {
    if (!current_program->nested_level) {
        cb_error (_("COMMON may only be used in a contained program"));
    } else {
        current_program->flag_common = 1;
        cb_add_common_prog (current_program);
    }
  }
#line 6876 "parser.c" /* yacc.c:1646  */
    break;

  case 35:
#line 2084 "parser.y" /* yacc.c:1646  */
    {
    if (!current_program->nested_level) {
        cb_error (_("COMMON may only be used in a contained program"));
    } else {
        current_program->flag_common = 1;
        cb_add_common_prog (current_program);
    }
  }
#line 6889 "parser.c" /* yacc.c:1646  */
    break;

  case 38:
#line 2098 "parser.y" /* yacc.c:1646  */
    {
    current_program->flag_initial = 1;
  }
#line 6897 "parser.c" /* yacc.c:1646  */
    break;

  case 39:
#line 2102 "parser.y" /* yacc.c:1646  */
    {
    current_program->flag_recursive = 1;
  }
#line 6905 "parser.c" /* yacc.c:1646  */
    break;

  case 42:
#line 2118 "parser.y" /* yacc.c:1646  */
    {
    header_check |= COBC_HD_ENVIRONMENT_DIVISION;
  }
#line 6913 "parser.c" /* yacc.c:1646  */
    break;

  case 45:
#line 2135 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION, 0, 0, 0);
    header_check |= COBC_HD_CONFIGURATION_SECTION;
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "CONFIGURATION SECTION");
    }
  }
#line 6925 "parser.c" /* yacc.c:1646  */
    break;

  case 50:
#line 2149 "parser.y" /* yacc.c:1646  */
    {
    if (warningopt && (check_comp_duplicate & SYN_CLAUSE_2)) {
        cb_warning (_("Phrases in non-standard order"));
    }
  }
#line 6935 "parser.c" /* yacc.c:1646  */
    break;

  case 51:
#line 2161 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION, 0, 0);
    check_repeated ("SOURCE-COMPUTER", SYN_CLAUSE_1, &check_comp_duplicate);
  }
#line 6945 "parser.c" /* yacc.c:1646  */
    break;

  case 56:
#line 2176 "parser.y" /* yacc.c:1646  */
    {
    cb_verify (cb_debugging_line, "DEBUGGING MODE");
    current_program->flag_debugging = 1;
    needs_debug_item = 1;
    cobc_cs_check = 0;
    cb_build_debug_item ();
  }
#line 6957 "parser.c" /* yacc.c:1646  */
    break;

  case 57:
#line 2189 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION, 0, 0);
    check_repeated ("OBJECT-COMPUTER", SYN_CLAUSE_2, &check_comp_duplicate);
  }
#line 6967 "parser.c" /* yacc.c:1646  */
    break;

  case 69:
#line 2218 "parser.y" /* yacc.c:1646  */
    {
    cb_verify (cb_memory_size_clause, "MEMORY SIZE");
  }
#line 6975 "parser.c" /* yacc.c:1646  */
    break;

  case 70:
#line 2226 "parser.y" /* yacc.c:1646  */
    {
    current_program->collating_sequence = (yyvsp[0]);
  }
#line 6983 "parser.c" /* yacc.c:1646  */
    break;

  case 71:
#line 2233 "parser.y" /* yacc.c:1646  */
    {
    /* Ignore */
  }
#line 6991 "parser.c" /* yacc.c:1646  */
    break;

  case 72:
#line 2240 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->classification) {
        cb_error (_("Duplicate CLASSIFICATION clause"));
    } else {
        current_program->classification = (yyvsp[0]);
    }
  }
#line 7003 "parser.c" /* yacc.c:1646  */
    break;

  case 73:
#line 2251 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7011 "parser.c" /* yacc.c:1646  */
    break;

  case 74:
#line 2255 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 7019 "parser.c" /* yacc.c:1646  */
    break;

  case 75:
#line 2259 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int1;
  }
#line 7027 "parser.c" /* yacc.c:1646  */
    break;

  case 76:
#line 2263 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int1;
  }
#line 7035 "parser.c" /* yacc.c:1646  */
    break;

  case 80:
#line 2277 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION, 0, 0);
  }
#line 7044 "parser.c" /* yacc.c:1646  */
    break;

  case 81:
#line 2282 "parser.y" /* yacc.c:1646  */
    {
    cobc_in_repository = 0;
  }
#line 7052 "parser.c" /* yacc.c:1646  */
    break;

  case 84:
#line 2290 "parser.y" /* yacc.c:1646  */
    {
    yyerrok;
  }
#line 7060 "parser.c" /* yacc.c:1646  */
    break;

  case 87:
#line 2302 "parser.y" /* yacc.c:1646  */
    {
    functions_are_all = 1;
  }
#line 7068 "parser.c" /* yacc.c:1646  */
    break;

  case 88:
#line 2306 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[-1]) != cb_error_node) {
        set_up_func_prototype ((yyvsp[-1]), (yyvsp[0]), 0);
    }
  }
#line 7078 "parser.c" /* yacc.c:1646  */
    break;

  case 90:
#line 2316 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 7086 "parser.c" /* yacc.c:1646  */
    break;

  case 91:
#line 2320 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7094 "parser.c" /* yacc.c:1646  */
    break;

  case 92:
#line 2327 "parser.y" /* yacc.c:1646  */
    {
    current_program->function_spec_list =
        cb_list_add (current_program->function_spec_list, (yyvsp[0]));
  }
#line 7103 "parser.c" /* yacc.c:1646  */
    break;

  case 93:
#line 2332 "parser.y" /* yacc.c:1646  */
    {
    current_program->function_spec_list =
        cb_list_add (current_program->function_spec_list, (yyvsp[0]));
  }
#line 7112 "parser.c" /* yacc.c:1646  */
    break;

  case 95:
#line 2343 "parser.y" /* yacc.c:1646  */
    {
    check_duplicate = 0;
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION, 0, 0);
    header_check |= COBC_HD_SPECIAL_NAMES;
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    }
  }
#line 7126 "parser.c" /* yacc.c:1646  */
    break;

  case 114:
#line 2388 "parser.y" /* yacc.c:1646  */
    {
    char system_name[16];
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    check_duplicate = 0;
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
        save_tree = NULL;
    } else {
        /* get system name and revert word-combination of scanner.l,
           if necessary (e.g. SWITCH A <--> SWITCH_A) */
        strncpy(system_name, CB_NAME ((yyvsp[0])), 15);
        if (system_name [6] == '_') {
            system_name [6] = ' ';
        }
        /* lookup system name */
        save_tree = lookup_system_name (system_name);
        if (!save_tree) {
            cb_error_x ((yyvsp[0]), _("Invalid system-name '%s'"), system_name);
        }
    }
  }
#line 7154 "parser.c" /* yacc.c:1646  */
    break;

  case 116:
#line 2416 "parser.y" /* yacc.c:1646  */
    {
    if (save_tree) {
        if (CB_SYSTEM_NAME(save_tree)->token != CB_DEVICE_CONSOLE) {
            cb_error_x (save_tree, _("Invalid CRT clause"));
        } else {
            current_program->flag_console_is_crt = 1;
        }
    }
  }
#line 7168 "parser.c" /* yacc.c:1646  */
    break;

  case 117:
#line 2426 "parser.y" /* yacc.c:1646  */
    {
    if (save_tree) {
        if (CB_SYSTEM_NAME(save_tree)->token != CB_FEATURE_CONVENTION) {
            cb_error_x (save_tree, _("Invalid special names clause"));
        } else if (CB_VALID_TREE ((yyvsp[0]))) {
            CB_SYSTEM_NAME(save_tree)->value = (yyvsp[-2]);
            cb_define ((yyvsp[0]), save_tree);
            CB_CHAIN_PAIR (current_program->mnemonic_spec_list,
                    (yyvsp[0]), save_tree);
        }
    }
  }
#line 7185 "parser.c" /* yacc.c:1646  */
    break;

  case 118:
#line 2439 "parser.y" /* yacc.c:1646  */
    {
    if (save_tree && CB_VALID_TREE ((yyvsp[-1]))) {
        cb_define ((yyvsp[-1]), save_tree);
        CB_CHAIN_PAIR (current_program->mnemonic_spec_list,
                (yyvsp[-1]), save_tree);
    }
  }
#line 7197 "parser.c" /* yacc.c:1646  */
    break;

  case 122:
#line 2455 "parser.y" /* yacc.c:1646  */
    {
      check_on_off_duplicate = 0;
  }
#line 7205 "parser.c" /* yacc.c:1646  */
    break;

  case 123:
#line 2462 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;

    /* cb_define_switch_name checks param validity */
    x = cb_define_switch_name ((yyvsp[0]), save_tree, (yyvsp[-2]) == cb_int1);
    if (x) {
        if ((yyvsp[-2]) == cb_int1) {
            check_repeated ("ON", SYN_CLAUSE_1, &check_on_off_duplicate);
        } else {
            check_repeated ("OFF", SYN_CLAUSE_2, &check_on_off_duplicate);
        }
        CB_CHAIN_PAIR (current_program->mnemonic_spec_list, (yyvsp[0]), x);
    }
  }
#line 7224 "parser.c" /* yacc.c:1646  */
    break;

  case 124:
#line 2477 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;

    /* cb_define_switch_name checks param validity */
    x = cb_define_switch_name ((yyvsp[0]), save_tree, (yyvsp[-2]) == cb_int1);
    if (x) {
        if ((yyvsp[-2]) == cb_int1) {
            check_repeated ("ON", SYN_CLAUSE_1, &check_on_off_duplicate);
        } else {
            check_repeated ("OFF", SYN_CLAUSE_2, &check_on_off_duplicate);
        }
        CB_CHAIN_PAIR (current_program->mnemonic_spec_list, (yyvsp[0]), x);
    }
  }
#line 7243 "parser.c" /* yacc.c:1646  */
    break;

  case 125:
#line 2497 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
        (yyval) = NULL;
    } else {
        /* Returns null on error */
        (yyval) = cb_build_alphabet_name ((yyvsp[0]));
    }
  }
#line 7260 "parser.c" /* yacc.c:1646  */
    break;

  case 126:
#line 2510 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[-2])) {
        current_program->alphabet_name_list =
            cb_list_add (current_program->alphabet_name_list, (yyvsp[-2]));
    }
    cobc_cs_check = 0;
  }
#line 7272 "parser.c" /* yacc.c:1646  */
    break;

  case 127:
#line 2521 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (1)])) {
        CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_NATIVE;
    }
  }
#line 7282 "parser.c" /* yacc.c:1646  */
    break;

  case 128:
#line 2527 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (1)])) {
        CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_ASCII;
    }
  }
#line 7292 "parser.c" /* yacc.c:1646  */
    break;

  case 129:
#line 2533 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (1)])) {
        CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_ASCII;
    }
  }
#line 7302 "parser.c" /* yacc.c:1646  */
    break;

  case 130:
#line 2539 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (1)])) {
        CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_EBCDIC;
    }
  }
#line 7312 "parser.c" /* yacc.c:1646  */
    break;

  case 131:
#line 2545 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (1)])) {
        CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_ASCII;
    }
  }
#line 7322 "parser.c" /* yacc.c:1646  */
    break;

  case 132:
#line 2551 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (1)])) {
        CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->alphabet_type = CB_ALPHABET_CUSTOM;
        CB_ALPHABET_NAME ((yyvsp[(-1) - (1)]))->custom_list = (yyvsp[0]);
    }
  }
#line 7333 "parser.c" /* yacc.c:1646  */
    break;

  case 133:
#line 2561 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 7341 "parser.c" /* yacc.c:1646  */
    break;

  case 134:
#line 2565 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
  }
#line 7349 "parser.c" /* yacc.c:1646  */
    break;

  case 135:
#line 2572 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7357 "parser.c" /* yacc.c:1646  */
    break;

  case 136:
#line 2576 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
  }
#line 7365 "parser.c" /* yacc.c:1646  */
    break;

  case 137:
#line 2580 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[-1]));
  }
#line 7373 "parser.c" /* yacc.c:1646  */
    break;

  case 138:
#line 2584 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-1]);
  }
#line 7381 "parser.c" /* yacc.c:1646  */
    break;

  case 139:
#line 2591 "parser.y" /* yacc.c:1646  */
    {
    cb_list_add ((yyvsp[-1]), (yyvsp[0]));
  }
#line 7389 "parser.c" /* yacc.c:1646  */
    break;

  case 140:
#line 2595 "parser.y" /* yacc.c:1646  */
    {
    cb_list_add ((yyvsp[-3]), (yyvsp[0]));
  }
#line 7397 "parser.c" /* yacc.c:1646  */
    break;

  case 141:
#line 2601 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 7403 "parser.c" /* yacc.c:1646  */
    break;

  case 142:
#line 2602 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_space; }
#line 7409 "parser.c" /* yacc.c:1646  */
    break;

  case 143:
#line 2603 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_zero; }
#line 7415 "parser.c" /* yacc.c:1646  */
    break;

  case 144:
#line 2604 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_quote; }
#line 7421 "parser.c" /* yacc.c:1646  */
    break;

  case 145:
#line 2605 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_norm_high; }
#line 7427 "parser.c" /* yacc.c:1646  */
    break;

  case 146:
#line 2606 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_norm_low; }
#line 7433 "parser.c" /* yacc.c:1646  */
    break;

  case 147:
#line 2610 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_space; }
#line 7439 "parser.c" /* yacc.c:1646  */
    break;

  case 148:
#line 2611 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_zero; }
#line 7445 "parser.c" /* yacc.c:1646  */
    break;

  case 149:
#line 2619 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else if ((yyvsp[-1])) {
        CB_CHAIN_PAIR (current_program->symbolic_char_list, (yyvsp[-1]), (yyvsp[0]));
    }
  }
#line 7460 "parser.c" /* yacc.c:1646  */
    break;

  case 150:
#line 2633 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 7468 "parser.c" /* yacc.c:1646  */
    break;

  case 151:
#line 2637 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7476 "parser.c" /* yacc.c:1646  */
    break;

  case 152:
#line 2645 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7484 "parser.c" /* yacc.c:1646  */
    break;

  case 153:
#line 2652 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7492 "parser.c" /* yacc.c:1646  */
    break;

  case 154:
#line 2656 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0]));
    } else {
        (yyval) = (yyvsp[-1]);
    }
  }
#line 7504 "parser.c" /* yacc.c:1646  */
    break;

  case 155:
#line 2667 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     l1;
    cb_tree     l2;

    if (cb_list_length ((yyvsp[-2])) != cb_list_length ((yyvsp[0]))) {
        cb_error (_("Invalid SYMBOLIC clause"));
        (yyval) = NULL;
    } else {
        l1 = (yyvsp[-2]);
        l2 = (yyvsp[0]);
        for (; l1; l1 = CB_CHAIN (l1), l2 = CB_CHAIN (l2)) {
            CB_PURPOSE (l1) = CB_VALUE (l2);
        }
        (yyval) = (yyvsp[-2]);
    }
  }
#line 7525 "parser.c" /* yacc.c:1646  */
    break;

  case 156:
#line 2687 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0]) == NULL) {
        (yyval) = NULL;
    } else {
        (yyval) = CB_LIST_INIT ((yyvsp[0]));
    }
  }
#line 7537 "parser.c" /* yacc.c:1646  */
    break;

  case 157:
#line 2695 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0]) == NULL) {
        (yyval) = (yyvsp[-1]);
    } else {
        (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
    }
  }
#line 7549 "parser.c" /* yacc.c:1646  */
    break;

  case 158:
#line 2705 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 7555 "parser.c" /* yacc.c:1646  */
    break;

  case 159:
#line 2706 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 7561 "parser.c" /* yacc.c:1646  */
    break;

  case 160:
#line 2713 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;

    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        /* Returns null on error */
        x = cb_build_class_name ((yyvsp[-2]), (yyvsp[0]));
        if (x) {
            current_program->class_name_list =
                cb_list_add (current_program->class_name_list, x);
        }
    }
  }
#line 7583 "parser.c" /* yacc.c:1646  */
    break;

  case 161:
#line 2733 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 7589 "parser.c" /* yacc.c:1646  */
    break;

  case 162:
#line 2734 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 7595 "parser.c" /* yacc.c:1646  */
    break;

  case 163:
#line 2739 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7603 "parser.c" /* yacc.c:1646  */
    break;

  case 164:
#line 2743 "parser.y" /* yacc.c:1646  */
    {
    if (CB_TREE_CLASS ((yyvsp[-2])) != CB_CLASS_NUMERIC &&
        CB_LITERAL_P ((yyvsp[-2])) && CB_LITERAL ((yyvsp[-2]))->size != 1) {
        cb_error (_("CLASS literal with THRU must have size 1"));
    }
    if (CB_TREE_CLASS ((yyvsp[0])) != CB_CLASS_NUMERIC &&
        CB_LITERAL_P ((yyvsp[0])) && CB_LITERAL ((yyvsp[0]))->size != 1) {
        cb_error (_("CLASS literal with THRU must have size 1"));
    }
    if (literal_value ((yyvsp[-2])) <= literal_value ((yyvsp[0]))) {
        (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
    } else {
        (yyval) = CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[-2]));
    }
  }
#line 7623 "parser.c" /* yacc.c:1646  */
    break;

  case 165:
#line 2764 "parser.y" /* yacc.c:1646  */
    {
    cb_tree l;

    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        /* Returns null on error */
        l = cb_build_locale_name ((yyvsp[-2]), (yyvsp[0]));
        if (l) {
            current_program->locale_list =
                cb_list_add (current_program->locale_list, l);
        }
    }
  }
#line 7645 "parser.c" /* yacc.c:1646  */
    break;

  case 166:
#line 2787 "parser.y" /* yacc.c:1646  */
    {
    unsigned char   *s = CB_LITERAL ((yyvsp[-1]))->data;
    unsigned int    error_ind = 0;

    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
        error_ind = 1;
    }
    check_repeated ("CURRENCY", SYN_CLAUSE_1, &check_duplicate);
    if ((yyvsp[0])) {
        PENDING ("PICTURE SYMBOL");
    }
    if (CB_LITERAL ((yyvsp[-1]))->size != 1) {
        cb_error_x ((yyvsp[-1]), _("Invalid currency sign '%s'"), (char *)s);
        error_ind = 1;
    }
    switch (*s) {
    case '0':
    case '1':
    case '2':
    case '3':
    case '4':
    case '5':
    case '6':
    case '7':
    case '8':
    case '9':
    case 'A':
    case 'B':
    case 'C':
    case 'D':
    case 'E':
    case 'N':
    case 'P':
    case 'R':
    case 'S':
    case 'V':
    case 'X':
    case 'Z':
    case 'a':
    case 'b':
    case 'c':
    case 'd':
    case 'e':
    case 'n':
    case 'p':
    case 'r':
    case 's':
    case 'v':
    case 'x':
    case 'z':
    case '+':
    case '-':
    case ',':
    case '.':
    case '*':
    case '/':
    case ';':
    case '(':
    case ')':
    case '=':
    case '\'':
    case '"':
    case ' ':
        cb_error_x ((yyvsp[-1]), _("Invalid currency sign '%s'"), (char *)s);
        break;
    default:
        if (!error_ind) {
            current_program->currency_symbol = s[0];
        }
        break;
    }
  }
#line 7726 "parser.c" /* yacc.c:1646  */
    break;

  case 167:
#line 2868 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 7734 "parser.c" /* yacc.c:1646  */
    break;

  case 168:
#line 2872 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 7742 "parser.c" /* yacc.c:1646  */
    break;

  case 169:
#line 2881 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        check_repeated ("DECIMAL-POINT", SYN_CLAUSE_2, &check_duplicate);
        current_program->decimal_point = ',';
        current_program->numeric_separator = '.';
    }
  }
#line 7759 "parser.c" /* yacc.c:1646  */
    break;

  case 170:
#line 2900 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        current_program->flag_trailing_separate = 1;
    }
  }
#line 7774 "parser.c" /* yacc.c:1646  */
    break;

  case 171:
#line 2916 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        check_repeated ("CURSOR", SYN_CLAUSE_3, &check_duplicate);
        current_program->cursor_pos = (yyvsp[0]);
    }
  }
#line 7790 "parser.c" /* yacc.c:1646  */
    break;

  case 172:
#line 2934 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        check_repeated ("CRT STATUS", SYN_CLAUSE_4, &check_duplicate);
        current_program->crt_status = (yyvsp[0]);
    }
  }
#line 7806 "parser.c" /* yacc.c:1646  */
    break;

  case 173:
#line 2952 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        check_repeated ("SCREEN CONTROL", SYN_CLAUSE_5, &check_duplicate);
        PENDING ("SCREEN CONTROL");
    }
  }
#line 7822 "parser.c" /* yacc.c:1646  */
    break;

  case 174:
#line 2969 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_SPECIAL_NAMES, 0);
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "SPECIAL-NAMES");
    } else {
        check_repeated ("EVENT STATUS", SYN_CLAUSE_6, &check_duplicate);
        PENDING ("EVENT STATUS");
    }
  }
#line 7838 "parser.c" /* yacc.c:1646  */
    break;

  case 175:
#line 2990 "parser.y" /* yacc.c:1646  */
    {
    cb_validate_program_environment (current_program);
  }
#line 7846 "parser.c" /* yacc.c:1646  */
    break;

  case 177:
#line 2997 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION, 0, 0, 0);
    header_check |= COBC_HD_INPUT_OUTPUT_SECTION;
  }
#line 7855 "parser.c" /* yacc.c:1646  */
    break;

  case 179:
#line 3005 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_INPUT_OUTPUT_SECTION, 0, 0);
    header_check |= COBC_HD_FILE_CONTROL;
  }
#line 7865 "parser.c" /* yacc.c:1646  */
    break;

  case 181:
#line 3014 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_INPUT_OUTPUT_SECTION, 0, 0);
    header_check |= COBC_HD_I_O_CONTROL;
  }
#line 7875 "parser.c" /* yacc.c:1646  */
    break;

  case 184:
#line 3029 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_INPUT_OUTPUT_SECTION,
                   COBC_HD_FILE_CONTROL, 0);
    check_duplicate = 0;
    if (CB_VALID_TREE ((yyvsp[0]))) {
        /* Build new file */
        current_file = build_file ((yyvsp[0]));
        current_file->optional = CB_INTEGER ((yyvsp[-1]))->val;

        /* Add file to current program list */
        CB_ADD_TO_CHAIN (CB_TREE (current_file),
                 current_program->file_list);
    } else {
        current_file = NULL;
        if (current_program->file_list) {
            current_program->file_list
                = CB_CHAIN (current_program->file_list);
        }
    }
  }
#line 7901 "parser.c" /* yacc.c:1646  */
    break;

  case 185:
#line 3051 "parser.y" /* yacc.c:1646  */
    {
    if (CB_VALID_TREE ((yyvsp[-3]))) {
        validate_file (current_file, (yyvsp[-3]));
    }
  }
#line 7911 "parser.c" /* yacc.c:1646  */
    break;

  case 201:
#line 3083 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
    cobc_cs_check = 0;
    current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
  }
#line 7921 "parser.c" /* yacc.c:1646  */
    break;

  case 202:
#line 3089 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
    cobc_cs_check = 0;
    if ((yyvsp[0])) {
        current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
    } else {
        current_file->flag_fileid = 1;
    }
  }
#line 7935 "parser.c" /* yacc.c:1646  */
    break;

  case 203:
#line 3099 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
    cobc_cs_check = 0;
    if ((yyvsp[0])) {
        current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
    } else {
        current_file->flag_ext_assign = 0;
        current_file->assign =
            cb_build_alphanumeric_literal ("stdout", (size_t)6);
        current_file->special = COB_SELECT_STDOUT;
    }
  }
#line 7952 "parser.c" /* yacc.c:1646  */
    break;

  case 204:
#line 3112 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
    cobc_cs_check = 0;
    if ((yyvsp[0])) {
        current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
    } else {
        current_file->flag_ext_assign = 0;
        current_file->assign =
            cb_build_alphanumeric_literal ("stdin", (size_t)5);
        current_file->special = COB_SELECT_STDIN;
    }
  }
#line 7969 "parser.c" /* yacc.c:1646  */
    break;

  case 205:
#line 3125 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ASSIGN", SYN_CLAUSE_1, &check_duplicate);
    cobc_cs_check = 0;
    current_file->organization = COB_ORG_LINE_SEQUENTIAL;
    if ((yyvsp[0])) {
        current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
    } else {
        /* RM/COBOL always expects an assignment name here - we ignore this
           for PRINTER + PRINTER-1 as ACUCOBOL allows this for using as alias */
        current_file->flag_ext_assign = 0;
        if ((yyvsp[-1]) == cb_int0) {
            current_file->assign =
                cb_build_alphanumeric_literal ("PRINTER",   (size_t)7);
        } else if ((yyvsp[-1]) == cb_int1) {
            current_file->assign =
                cb_build_alphanumeric_literal ("PRINTER-1", (size_t)9);
        } else {
            current_file->assign =
                cb_build_alphanumeric_literal ("LPT1",  (size_t)4);
        }

    }
  }
#line 7997 "parser.c" /* yacc.c:1646  */
    break;

  case 206:
#line 3151 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 8003 "parser.c" /* yacc.c:1646  */
    break;

  case 207:
#line 3152 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 8009 "parser.c" /* yacc.c:1646  */
    break;

  case 208:
#line 3153 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int4; }
#line 8015 "parser.c" /* yacc.c:1646  */
    break;

  case 214:
#line 3165 "parser.y" /* yacc.c:1646  */
    {
    current_file->flag_line_adv = 1;
  }
#line 8023 "parser.c" /* yacc.c:1646  */
    break;

  case 216:
#line 3172 "parser.y" /* yacc.c:1646  */
    {
    current_file->flag_ext_assign = 1;
  }
#line 8031 "parser.c" /* yacc.c:1646  */
    break;

  case 220:
#line 3185 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 8039 "parser.c" /* yacc.c:1646  */
    break;

  case 223:
#line 3197 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    check_repeated ("ACCESS", SYN_CLAUSE_2, &check_duplicate);
  }
#line 8048 "parser.c" /* yacc.c:1646  */
    break;

  case 224:
#line 3204 "parser.y" /* yacc.c:1646  */
    { current_file->access_mode = COB_ACCESS_SEQUENTIAL; }
#line 8054 "parser.c" /* yacc.c:1646  */
    break;

  case 225:
#line 3205 "parser.y" /* yacc.c:1646  */
    { current_file->access_mode = COB_ACCESS_DYNAMIC; }
#line 8060 "parser.c" /* yacc.c:1646  */
    break;

  case 226:
#line 3206 "parser.y" /* yacc.c:1646  */
    { current_file->access_mode = COB_ACCESS_RANDOM; }
#line 8066 "parser.c" /* yacc.c:1646  */
    break;

  case 227:
#line 3214 "parser.y" /* yacc.c:1646  */
    {
    struct cb_alt_key *p;
    struct cb_alt_key *l;

    p = cobc_parse_malloc (sizeof (struct cb_alt_key));
    p->key = (yyvsp[-2]);
    p->duplicates = CB_INTEGER ((yyvsp[-1]))->val;
    p->next = NULL;

    /* Add to the end of list */
    if (current_file->alt_key_list == NULL) {
        current_file->alt_key_list = p;
    } else {
        l = current_file->alt_key_list;
        for (; l->next; l = l->next) {
            ;
        }
        l->next = p;
    }
  }
#line 8091 "parser.c" /* yacc.c:1646  */
    break;

  case 228:
#line 3237 "parser.y" /* yacc.c:1646  */
    { }
#line 8097 "parser.c" /* yacc.c:1646  */
    break;

  case 229:
#line 3240 "parser.y" /* yacc.c:1646  */
    {
    PENDING ("SUPPRESS WHEN ALL");
  }
#line 8105 "parser.c" /* yacc.c:1646  */
    break;

  case 230:
#line 3245 "parser.y" /* yacc.c:1646  */
    {
    PENDING ("SUPPRESS WHEN SPACE/ZERO");
  }
#line 8113 "parser.c" /* yacc.c:1646  */
    break;

  case 231:
#line 3255 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("COLLATING", SYN_CLAUSE_3, &check_duplicate);
    PENDING ("COLLATING SEQUENCE");
  }
#line 8122 "parser.c" /* yacc.c:1646  */
    break;

  case 232:
#line 3266 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("STATUS", SYN_CLAUSE_4, &check_duplicate);
    current_file->file_status = (yyvsp[0]);
  }
#line 8131 "parser.c" /* yacc.c:1646  */
    break;

  case 236:
#line 3281 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("LOCK", SYN_CLAUSE_5, &check_duplicate);
  }
#line 8139 "parser.c" /* yacc.c:1646  */
    break;

  case 238:
#line 3289 "parser.y" /* yacc.c:1646  */
    {
    current_file->lock_mode = COB_LOCK_MANUAL;
    cobc_cs_check = 0;
  }
#line 8148 "parser.c" /* yacc.c:1646  */
    break;

  case 239:
#line 3294 "parser.y" /* yacc.c:1646  */
    {
    current_file->lock_mode = COB_LOCK_AUTOMATIC;
    cobc_cs_check = 0;
  }
#line 8157 "parser.c" /* yacc.c:1646  */
    break;

  case 240:
#line 3299 "parser.y" /* yacc.c:1646  */
    {
    current_file->lock_mode = COB_LOCK_EXCLUSIVE;
    cobc_cs_check = 0;
  }
#line 8166 "parser.c" /* yacc.c:1646  */
    break;

  case 243:
#line 3308 "parser.y" /* yacc.c:1646  */
    {
    current_file->lock_mode |= COB_LOCK_MULTIPLE;
  }
#line 8174 "parser.c" /* yacc.c:1646  */
    break;

  case 244:
#line 3312 "parser.y" /* yacc.c:1646  */
    {
    current_file->lock_mode |= COB_LOCK_MULTIPLE;
    PENDING ("WITH ROLLBACK");
  }
#line 8183 "parser.c" /* yacc.c:1646  */
    break;

  case 247:
#line 3328 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
    current_file->organization = COB_ORG_INDEXED;
  }
#line 8192 "parser.c" /* yacc.c:1646  */
    break;

  case 248:
#line 3333 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
    current_file->organization = COB_ORG_SEQUENTIAL;
  }
#line 8201 "parser.c" /* yacc.c:1646  */
    break;

  case 249:
#line 3338 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
    current_file->organization = COB_ORG_RELATIVE;
  }
#line 8210 "parser.c" /* yacc.c:1646  */
    break;

  case 250:
#line 3343 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ORGANIZATION", SYN_CLAUSE_6, &check_duplicate);
    current_file->organization = COB_ORG_LINE_SEQUENTIAL;
  }
#line 8219 "parser.c" /* yacc.c:1646  */
    break;

  case 251:
#line 3354 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("PADDING", SYN_CLAUSE_7, &check_duplicate);
    cb_verify (cb_padding_character_clause, "PADDING CHARACTER");
  }
#line 8228 "parser.c" /* yacc.c:1646  */
    break;

  case 252:
#line 3365 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("RECORD DELIMITER", SYN_CLAUSE_8, &check_duplicate);
  }
#line 8236 "parser.c" /* yacc.c:1646  */
    break;

  case 253:
#line 3375 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("RECORD KEY", SYN_CLAUSE_9, &check_duplicate);
    current_file->key = (yyvsp[0]);
  }
#line 8245 "parser.c" /* yacc.c:1646  */
    break;

  case 254:
#line 3382 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 8251 "parser.c" /* yacc.c:1646  */
    break;

  case 255:
#line 3383 "parser.y" /* yacc.c:1646  */
    { PENDING ("SPLIT KEYS"); }
#line 8257 "parser.c" /* yacc.c:1646  */
    break;

  case 256:
#line 3384 "parser.y" /* yacc.c:1646  */
    { PENDING ("SPLIT KEYS"); }
#line 8263 "parser.c" /* yacc.c:1646  */
    break;

  case 257:
#line 3391 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("RELATIVE KEY", SYN_CLAUSE_10, &check_duplicate);
    current_file->key = (yyvsp[0]);
  }
#line 8272 "parser.c" /* yacc.c:1646  */
    break;

  case 258:
#line 3402 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("RESERVE", SYN_CLAUSE_11, &check_duplicate);
  }
#line 8280 "parser.c" /* yacc.c:1646  */
    break;

  case 261:
#line 3416 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("SHARING", SYN_CLAUSE_12, &check_duplicate);
    current_file->sharing = (yyvsp[0]);
  }
#line 8289 "parser.c" /* yacc.c:1646  */
    break;

  case 262:
#line 3423 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 8295 "parser.c" /* yacc.c:1646  */
    break;

  case 263:
#line 3424 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE); }
#line 8301 "parser.c" /* yacc.c:1646  */
    break;

  case 264:
#line 3425 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 8307 "parser.c" /* yacc.c:1646  */
    break;

  case 267:
#line 3434 "parser.y" /* yacc.c:1646  */
    {
    yyerrok;
  }
#line 8315 "parser.c" /* yacc.c:1646  */
    break;

  case 272:
#line 3453 "parser.y" /* yacc.c:1646  */
    {
    cb_tree l;

    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_I_O_CONTROL, 0);
    switch (CB_INTEGER ((yyvsp[-3]))->val) {
    case 0:
        /* SAME AREA */
        break;
    case 1:
        /* SAME RECORD */
        for (l = (yyvsp[0]); l; l = CB_CHAIN (l)) {
            if (CB_VALID_TREE (CB_VALUE (l))) {
                CB_FILE (cb_ref (CB_VALUE (l)))->same_clause = samearea;
            }
        }
        samearea++;
        break;
    case 2:
        /* SAME SORT-MERGE */
        break;
    }
  }
#line 8344 "parser.c" /* yacc.c:1646  */
    break;

  case 273:
#line 3480 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 8350 "parser.c" /* yacc.c:1646  */
    break;

  case 274:
#line 3481 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 8356 "parser.c" /* yacc.c:1646  */
    break;

  case 275:
#line 3482 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int2; }
#line 8362 "parser.c" /* yacc.c:1646  */
    break;

  case 276:
#line 3483 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int2; }
#line 8368 "parser.c" /* yacc.c:1646  */
    break;

  case 277:
#line 3490 "parser.y" /* yacc.c:1646  */
    {
    /* Fake for TAPE */
    cobc_cs_check = CB_CS_ASSIGN;
  }
#line 8377 "parser.c" /* yacc.c:1646  */
    break;

  case 278:
#line 3495 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_ENVIRONMENT_DIVISION,
                   COBC_HD_CONFIGURATION_SECTION,
                   COBC_HD_I_O_CONTROL, 0);
    cb_verify (cb_multiple_file_tape_clause, "MULTIPLE FILE TAPE");
    cobc_cs_check = 0;
  }
#line 8389 "parser.c" /* yacc.c:1646  */
    break;

  case 284:
#line 3524 "parser.y" /* yacc.c:1646  */
    {
    current_storage = CB_STORAGE_WORKING;
  }
#line 8397 "parser.c" /* yacc.c:1646  */
    break;

  case 285:
#line 3532 "parser.y" /* yacc.c:1646  */
    {
    cb_validate_program_data (current_program);
  }
#line 8405 "parser.c" /* yacc.c:1646  */
    break;

  case 287:
#line 3539 "parser.y" /* yacc.c:1646  */
    {
    header_check |= COBC_HD_DATA_DIVISION;
  }
#line 8413 "parser.c" /* yacc.c:1646  */
    break;

  case 289:
#line 3548 "parser.y" /* yacc.c:1646  */
    {
    header_check |= COBC_HD_DATA_DIVISION;
  }
#line 8365 "parser.c" /* yacc.c:1646  */
    break;

  case 290:
#line 3552 "parser.y" /* yacc.c:1646  */
    {
    current_storage = CB_STORAGE_FILE;
    check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
    header_check |= COBC_HD_FILE_SECTION;
  }
#line 8423 "parser.c" /* yacc.c:1646  */
    break;

  case 292:
#line 3562 "parser.y" /* yacc.c:1646  */
    {
    if (CB_VALID_TREE (current_file)) {
        if (CB_VALID_TREE ((yyvsp[0]))) {
            if (current_file->reports) {
                cb_error (_("RECORD description invalid with REPORT"));
            } else {
                finalize_file (current_file, CB_FIELD ((yyvsp[0])));
            }
        } else if (!current_file->reports) {
            cb_error (_("RECORD description missing or invalid"));
        }
    }
  }
#line 8441 "parser.c" /* yacc.c:1646  */
    break;

  case 293:
#line 3581 "parser.y" /* yacc.c:1646  */
    {
    current_storage = CB_STORAGE_FILE;
    check_headers_present (COBC_HD_DATA_DIVISION,
                   COBC_HD_FILE_SECTION, 0, 0);
    check_duplicate = 0;
    if (CB_INVALID_TREE ((yyvsp[0])) || cb_ref ((yyvsp[0])) == cb_error_node) {
        YYERROR;
    }
    current_file = CB_FILE (cb_ref ((yyvsp[0])));
    if (CB_VALID_TREE (current_file)) {
        if ((yyvsp[-1])) {
            current_file->organization = COB_ORG_SORT;
        }
    }
  }
#line 8461 "parser.c" /* yacc.c:1646  */
    break;

  case 295:
#line 3598 "parser.y" /* yacc.c:1646  */
    {
    yyerrok;
  }
#line 8469 "parser.c" /* yacc.c:1646  */
    break;

  case 296:
#line 3605 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 8477 "parser.c" /* yacc.c:1646  */
    break;

  case 297:
#line 3609 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int1;
  }
#line 8485 "parser.c" /* yacc.c:1646  */
    break;

  case 300:
#line 3620 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("EXTERNAL", SYN_CLAUSE_1, &check_duplicate);
#if 0   /* RXWRXW - Global/External */
    if (current_file->flag_global) {
        cb_error (_("File cannot have both EXTERNAL and GLOBAL clauses"));
    }
#endif
    current_file->flag_external = 1;
  }
#line 8499 "parser.c" /* yacc.c:1646  */
    break;

  case 301:
#line 3630 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("GLOBAL", SYN_CLAUSE_2, &check_duplicate);
#if 0   /* RXWRXW - Global/External */
    if (current_file->flag_external) {
        cb_error (_("File cannot have both EXTERNAL and GLOBAL clauses"));
    }
#endif
    if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
    } else {
        current_file->flag_global = 1;
        current_program->flag_file_global = 1;
    }
  }
#line 8518 "parser.c" /* yacc.c:1646  */
    break;

  case 311:
#line 3660 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("BLOCK", SYN_CLAUSE_3, &check_duplicate);
    /* ignore */
  }
#line 8527 "parser.c" /* yacc.c:1646  */
    break;

  case 315:
#line 3673 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("RECORD", SYN_CLAUSE_4, &check_duplicate);
    if (current_file->organization == COB_ORG_LINE_SEQUENTIAL) {
        if (warningopt) {
            cb_warning (_("RECORD clause ignored for LINE SEQUENTIAL"));
        }
    } else {
        current_file->record_max = cb_get_int ((yyvsp[-1]));
        if (current_file->record_max < 1)  {
            current_file->record_max = 1;
            cb_error (_("RECORD clause invalid"));
        }
        if (current_file->record_max > MAX_FD_RECORD)  {
            current_file->record_max = MAX_FD_RECORD;
            cb_error (_("RECORD size exceeds maximum allowed (%d)"),
                  MAX_FD_RECORD);
        }
    }
  }
#line 8551 "parser.c" /* yacc.c:1646  */
    break;

  case 316:
#line 3693 "parser.y" /* yacc.c:1646  */
    {
    int error_ind = 0;

    check_repeated ("RECORD", SYN_CLAUSE_4, &check_duplicate);
    if (current_file->organization == COB_ORG_LINE_SEQUENTIAL) {
        if (warningopt) {
            cb_warning (_("RECORD clause ignored for LINE SEQUENTIAL"));
        }
    } else {
        current_file->record_min = cb_get_int ((yyvsp[-3]));
        current_file->record_max = cb_get_int ((yyvsp[-1]));
        if (current_file->record_min < 0)  {
            current_file->record_min = 0;
            error_ind = 1;
        }
        if (current_file->record_max < 1)  {
            current_file->record_max = 1;
            error_ind = 1;
        }
        if (current_file->record_max > MAX_FD_RECORD)  {
            current_file->record_max = MAX_FD_RECORD;
            cb_error (_("RECORD size exceeds maximum allowed (%d)"),
                  MAX_FD_RECORD);
            error_ind = 1;
        }
        if (current_file->record_max <= current_file->record_min)  {
            error_ind = 1;
        }
        if (error_ind) {
            cb_error (_("RECORD clause invalid"));
        }
    }
  }
#line 8589 "parser.c" /* yacc.c:1646  */
    break;

  case 317:
#line 3728 "parser.y" /* yacc.c:1646  */
    {
    int error_ind = 0;

    check_repeated ("RECORD", SYN_CLAUSE_4, &check_duplicate);
    current_file->record_min = (yyvsp[-3]) ? cb_get_int ((yyvsp[-3])) : 0;
    current_file->record_max = (yyvsp[-2]) ? cb_get_int ((yyvsp[-2])) : 0;
    if ((yyvsp[-3]) && current_file->record_min < 0)  {
        current_file->record_min = 0;
        error_ind = 1;
    }
    if ((yyvsp[-2]) && current_file->record_max < 1)  {
        current_file->record_max = 1;
        error_ind = 1;
    }
    if ((yyvsp[-2]) && current_file->record_max > MAX_FD_RECORD)  {
        current_file->record_max = MAX_FD_RECORD;
        cb_error (_("RECORD size exceeds maximum allowed (%d)"),
              MAX_FD_RECORD);
        error_ind = 1;
    }
    if (((yyvsp[-3]) || (yyvsp[-2])) && current_file->record_max <= current_file->record_min)  {
        error_ind = 1;
    }
    if (error_ind) {
        cb_error (_("RECORD clause invalid"));
    }
  }
#line 8621 "parser.c" /* yacc.c:1646  */
    break;

  case 319:
#line 3759 "parser.y" /* yacc.c:1646  */
    {
    current_file->record_depending = (yyvsp[0]);
  }
#line 8629 "parser.c" /* yacc.c:1646  */
    break;

  case 320:
#line 3765 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 8635 "parser.c" /* yacc.c:1646  */
    break;

  case 321:
#line 3766 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 8641 "parser.c" /* yacc.c:1646  */
    break;

  case 322:
#line 3770 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 8647 "parser.c" /* yacc.c:1646  */
    break;

  case 323:
#line 3771 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 8653 "parser.c" /* yacc.c:1646  */
    break;

  case 324:
#line 3779 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("LABEL", SYN_CLAUSE_5, &check_duplicate);
    cb_verify (cb_label_records_clause, "LABEL RECORDS");
  }
#line 8662 "parser.c" /* yacc.c:1646  */
    break;

  case 325:
#line 3790 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("VALUE OF", SYN_CLAUSE_6, &check_duplicate);
    cb_verify (cb_value_of_clause, "VALUE OF");
  }
#line 8671 "parser.c" /* yacc.c:1646  */
    break;

  case 326:
#line 3795 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("VALUE OF", SYN_CLAUSE_6, &check_duplicate);
    cb_verify (cb_value_of_clause, "VALUE OF");
    if (!current_file->assign) {
        current_file->assign = cb_build_assignment_name (current_file, (yyvsp[0]));
    }
  }
#line 8683 "parser.c" /* yacc.c:1646  */
    break;

  case 331:
#line 3818 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("DATA", SYN_CLAUSE_7, &check_duplicate);
    cb_verify (cb_data_records_clause, "DATA RECORDS");
  }
#line 8692 "parser.c" /* yacc.c:1646  */
    break;

  case 332:
#line 3830 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("LINAGE", SYN_CLAUSE_8, &check_duplicate);
    if (current_file->organization != COB_ORG_LINE_SEQUENTIAL &&
        current_file->organization != COB_ORG_SEQUENTIAL) {
        cb_error (_("LINAGE clause with wrong file type"));
    } else {
        current_file->linage = (yyvsp[-2]);
        current_file->organization = COB_ORG_LINE_SEQUENTIAL;
        if (current_linage == 0) {
            linage_file = current_file;
        }
        current_linage++;
    }
  }
#line 8711 "parser.c" /* yacc.c:1646  */
    break;

  case 338:
#line 3858 "parser.y" /* yacc.c:1646  */
    {
    current_file->latfoot = (yyvsp[0]);
  }
#line 8719 "parser.c" /* yacc.c:1646  */
    break;

  case 339:
#line 3865 "parser.y" /* yacc.c:1646  */
    {
    current_file->lattop = (yyvsp[0]);
  }
#line 8727 "parser.c" /* yacc.c:1646  */
    break;

  case 340:
#line 3872 "parser.y" /* yacc.c:1646  */
    {
    current_file->latbot = (yyvsp[0]);
  }
#line 8735 "parser.c" /* yacc.c:1646  */
    break;

  case 341:
#line 3881 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    check_repeated ("RECORDING", SYN_CLAUSE_9, &check_duplicate);
    /* ignore */
  }
#line 8745 "parser.c" /* yacc.c:1646  */
    break;

  case 342:
#line 3893 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("CODE SET", SYN_CLAUSE_10, &check_duplicate);
    if (CB_VALID_TREE ((yyvsp[0]))) {
        cb_tree         x;
        struct cb_alphabet_name *al;

        x = cb_ref ((yyvsp[0]));
        if (current_file->organization != COB_ORG_LINE_SEQUENTIAL &&
            current_file->organization != COB_ORG_SEQUENTIAL) {
            cb_error (_("CODE-SET clause invalid for file type"));
        }
        if (!CB_ALPHABET_NAME_P (x)) {
            cb_error_x ((yyvsp[0]), _("Alphabet-name is expected '%s'"), cb_name ((yyvsp[0])));
        } else {
            al = CB_ALPHABET_NAME (x);
            switch (al->alphabet_type) {
#ifdef  COB_EBCDIC_MACHINE
            case CB_ALPHABET_ASCII:
            case CB_ALPHABET_CUSTOM:
                current_file->code_set = al;
                break;
            default:
                if (warningopt) {
                    cb_warning_x ((yyvsp[0]), _("Ignoring CODE-SET '%s'"),
                              cb_name ((yyvsp[0])));
                }
                break;
#else
            case CB_ALPHABET_EBCDIC:
            case CB_ALPHABET_CUSTOM:
                current_file->code_set = al;
                break;
            default:
                if (warningopt) {
                    cb_warning_x ((yyvsp[0]), _("Ignoring CODE-SET '%s'"),
                              cb_name ((yyvsp[0])));
                }
                break;
#endif
            }
            if (warningopt) {
                PENDING ("CODE-SET");
            }
        }
    }
  }
#line 8796 "parser.c" /* yacc.c:1646  */
    break;

  case 343:
#line 3945 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("REPORT", SYN_CLAUSE_11, &check_duplicate);
    PENDING("REPORT WRITER");
    if (current_file->organization != COB_ORG_LINE_SEQUENTIAL &&
        current_file->organization != COB_ORG_SEQUENTIAL) {
        cb_error (_("REPORT clause with wrong file type"));
    } else {
        current_file->reports = (yyvsp[0]);
        current_file->organization = COB_ORG_LINE_SEQUENTIAL;
    }
  }
#line 8812 "parser.c" /* yacc.c:1646  */
    break;

  case 346:
#line 3965 "parser.y" /* yacc.c:1646  */
    {
    current_report = build_report ((yyvsp[0]));
    current_report->file = current_file;
    CB_ADD_TO_CHAIN (CB_TREE (current_report), current_program->report_list);
    if (report_count == 0) {
        report_instance = current_report;
    }
    report_count++;
  }
#line 8826 "parser.c" /* yacc.c:1646  */
    break;

  case 347:
#line 3975 "parser.y" /* yacc.c:1646  */
    {
    current_report = build_report ((yyvsp[0]));
    CB_ADD_TO_CHAIN (CB_TREE (current_report), current_program->report_list);
    if (report_count == 0) {
        report_instance = current_report;
    }
    report_count++;
  }
#line 8839 "parser.c" /* yacc.c:1646  */
    break;

  case 349:
#line 3990 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
    header_check |= COBC_HD_WORKING_STORAGE_SECTION;
    current_storage = CB_STORAGE_WORKING;
  }
#line 8849 "parser.c" /* yacc.c:1646  */
    break;

  case 350:
#line 3996 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        CB_FIELD_ADD (current_program->working_storage, CB_FIELD ((yyvsp[0])));
    }
  }
#line 8859 "parser.c" /* yacc.c:1646  */
    break;

  case 351:
#line 4005 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 8867 "parser.c" /* yacc.c:1646  */
    break;

  case 352:
#line 4008 "parser.y" /* yacc.c:1646  */
    {
    current_field = NULL;
    description_field = NULL;
    cb_clear_real_field ();
  }
#line 8877 "parser.c" /* yacc.c:1646  */
    break;

  case 353:
#line 4014 "parser.y" /* yacc.c:1646  */
    {
    struct cb_field *p;

    for (p = description_field; p; p = p->sister) {
        cb_validate_field (p);
    }
    (yyval) = CB_TREE (description_field);
  }
#line 8890 "parser.c" /* yacc.c:1646  */
    break;

  case 358:
#line 4034 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = cb_build_field_tree ((yyvsp[-1]), (yyvsp[0]), current_field, current_storage,
                 current_file, 0);
    /* Free tree associated with level number */
    cobc_parse_free ((yyvsp[-1]));
    if (CB_INVALID_TREE (x)) {
        YYERROR;
    } else {
        current_field = CB_FIELD (x);
        check_pic_duplicate = 0;
    }
  }
#line 8909 "parser.c" /* yacc.c:1646  */
    break;

  case 359:
#line 4049 "parser.y" /* yacc.c:1646  */
    {
    if (!qualifier && (current_field->level == 88 ||
        current_field->level == 66 || current_field->flag_item_78)) {
        cb_error (_("Item requires a data name"));
    }
    if (!qualifier) {
        current_field->flag_filler = 1;
    }
    if (current_field->level == 88) {
        cb_validate_88_item (current_field);
    }
    if (current_field->flag_item_78) {
        /* Reset to last non-78 item */
        current_field = cb_validate_78_item (current_field, 0);
    }
    if (!description_field) {
        description_field = current_field;
    }
  }
#line 8933 "parser.c" /* yacc.c:1646  */
    break;

  case 360:
#line 4069 "parser.y" /* yacc.c:1646  */
    {
    /* Free tree assocated with level number */
    cobc_parse_free ((yyvsp[-2]));
    yyerrok;
    cb_unput_dot ();
    check_pic_duplicate = 0;
    check_duplicate = 0;
    current_field = cb_get_real_field ();
  }
#line 8947 "parser.c" /* yacc.c:1646  */
    break;

  case 361:
#line 4082 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 8955 "parser.c" /* yacc.c:1646  */
    break;

  case 362:
#line 4089 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_filler ();
    qualifier = NULL;
    non_const_word = 0;
  }
#line 8965 "parser.c" /* yacc.c:1646  */
    break;

  case 363:
#line 4095 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_filler ();
    qualifier = NULL;
    non_const_word = 0;
  }
#line 8975 "parser.c" /* yacc.c:1646  */
    break;

  case 364:
#line 4101 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    qualifier = (yyvsp[0]);
    non_const_word = 0;
  }
#line 8985 "parser.c" /* yacc.c:1646  */
    break;

  case 365:
#line 4110 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    qualifier = (yyvsp[0]);
    non_const_word = 0;
  }
#line 8995 "parser.c" /* yacc.c:1646  */
    break;

  case 366:
#line 4119 "parser.y" /* yacc.c:1646  */
    {
    (yyval)= NULL;
  }
#line 9003 "parser.c" /* yacc.c:1646  */
    break;

  case 367:
#line 4123 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
        (yyval)= NULL;
    } else {
        (yyval) = cb_null;
    }
  }
#line 9016 "parser.c" /* yacc.c:1646  */
    break;

  case 368:
#line 4134 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 9022 "parser.c" /* yacc.c:1646  */
    break;

  case 369:
#line 4135 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_const_length ((yyvsp[0])); }
#line 9028 "parser.c" /* yacc.c:1646  */
    break;

  case 370:
#line 4136 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_const_length ((yyvsp[0])); }
#line 9034 "parser.c" /* yacc.c:1646  */
    break;

  case 371:
#line 4137 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_const_length ((yyvsp[0])); }
#line 9040 "parser.c" /* yacc.c:1646  */
    break;

  case 372:
#line 4142 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 9048 "parser.c" /* yacc.c:1646  */
    break;

  case 373:
#line 4146 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int1;
  }
#line 9056 "parser.c" /* yacc.c:1646  */
    break;

  case 374:
#line 4150 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int2;
  }
#line 9064 "parser.c" /* yacc.c:1646  */
    break;

  case 375:
#line 4154 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int4;
  }
#line 9072 "parser.c" /* yacc.c:1646  */
    break;

  case 376:
#line 4158 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (8);
  }
#line 9080 "parser.c" /* yacc.c:1646  */
    break;

  case 377:
#line 4162 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int ((int)sizeof(long));
  }
#line 9088 "parser.c" /* yacc.c:1646  */
    break;

  case 378:
#line 4166 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int ((int)sizeof(void *));
  }
#line 9096 "parser.c" /* yacc.c:1646  */
    break;

  case 379:
#line 4170 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int ((int)sizeof(float));
  }
#line 9104 "parser.c" /* yacc.c:1646  */
    break;

  case 380:
#line 4174 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int ((int)sizeof(double));
  }
#line 9112 "parser.c" /* yacc.c:1646  */
    break;

  case 381:
#line 4178 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (4);
  }
#line 9120 "parser.c" /* yacc.c:1646  */
    break;

  case 382:
#line 4182 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (8);
  }
#line 9128 "parser.c" /* yacc.c:1646  */
    break;

  case 383:
#line 4186 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (16);
  }
#line 9136 "parser.c" /* yacc.c:1646  */
    break;

  case 384:
#line 4190 "parser.y" /* yacc.c:1646  */
    {
    yyerrok;
    cb_unput_dot ();
    check_pic_duplicate = 0;
    check_duplicate = 0;
    current_field = cb_get_real_field ();
  }
#line 9148 "parser.c" /* yacc.c:1646  */
    break;

  case 394:
#line 4222 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;
    int level;

    cobc_cs_check = 0;
    level = cb_get_level ((yyvsp[-4]));
    /* Free tree assocated with level number */
    cobc_parse_free ((yyvsp[-4]));
    if (level != 1) {
        cb_error (_("CONSTANT item not at 01 level"));
    } else if ((yyvsp[0])) {
        x = cb_build_constant ((yyvsp[-3]), (yyvsp[0]));
        CB_FIELD (x)->flag_item_78 = 1;
        CB_FIELD (x)->level = 1;
        cb_needs_01 = 1;
        if ((yyvsp[-1])) {
            CB_FIELD (x)->flag_is_global = 1;
        }
        /* Ignore return value */
        (void)cb_validate_78_item (CB_FIELD (x), 0);
    }
  }
#line 9175 "parser.c" /* yacc.c:1646  */
    break;

  case 395:
#line 4248 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 9183 "parser.c" /* yacc.c:1646  */
    break;

  case 396:
#line 4252 "parser.y" /* yacc.c:1646  */
    {
    PENDING ("CONSTANT FROM clause");
    (yyval) = NULL;
  }
#line 9192 "parser.c" /* yacc.c:1646  */
    break;

  case 397:
#line 4260 "parser.y" /* yacc.c:1646  */
    {
    /* Required to check redefines */
    (yyval) = NULL;
  }
#line 9201 "parser.c" /* yacc.c:1646  */
    break;

  case 398:
#line 4266 "parser.y" /* yacc.c:1646  */
    {
    /* Required to check redefines */
    (yyval) = cb_true;
  }
#line 9210 "parser.c" /* yacc.c:1646  */
    break;

  case 413:
#line 4294 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("REDEFINES", SYN_CLAUSE_1, &check_pic_duplicate);
    if ((yyvsp[-2]) != NULL) {
        if (cb_relaxed_syntax_check) {
            cb_warning_x ((yyvsp[0]), _("REDEFINES clause should follow entry-name"));
        } else {
            cb_error_x ((yyvsp[0]), _("REDEFINES clause must follow entry-name"));
        }
    }

    current_field->redefines = cb_resolve_redefines (current_field, (yyvsp[0]));
    if (current_field->redefines == NULL) {
        current_field->flag_is_verified = 1;
        current_field->flag_invalid = 1;
        YYERROR;
    }
  }
#line 9232 "parser.c" /* yacc.c:1646  */
    break;

  case 414:
#line 4318 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("EXTERNAL", SYN_CLAUSE_2, &check_pic_duplicate);
    if (current_storage != CB_STORAGE_WORKING) {
        cb_error (_("%s not allowed here"), "EXTERNAL");
    } else if (current_field->level != 1 && current_field->level != 77) {
        cb_error (_("%s only allowed at 01/77 level"), "EXTERNAL");
    } else if (!qualifier) {
        cb_error (_("%s requires a data name"), "EXTERNAL");
#if 0   /* RXWRXW - Global/External */
    } else if (current_field->flag_is_global) {
        cb_error (_("%s and %s are mutually exclusive"), "GLOBAL", "EXTERNAL");
#endif
    } else if (current_field->flag_item_based) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "EXTERNAL");
    } else if (current_field->redefines) {
        cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "REDEFINES");
    } else if (current_field->flag_occurs) {
        cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "OCCURS");
    } else {
        current_field->flag_external = 1;
        current_program->flag_has_external = 1;
    }
  }
#line 9260 "parser.c" /* yacc.c:1646  */
    break;

  case 415:
#line 4345 "parser.y" /* yacc.c:1646  */
    {
    current_field->ename = cb_to_cname (current_field->name);
  }
#line 9268 "parser.c" /* yacc.c:1646  */
    break;

  case 416:
#line 4349 "parser.y" /* yacc.c:1646  */
    {
    current_field->ename = cb_to_cname ((const char *)CB_LITERAL ((yyvsp[0]))->data);
  }
#line 9276 "parser.c" /* yacc.c:1646  */
    break;

  case 417:
#line 4358 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("GLOBAL", SYN_CLAUSE_3, &check_pic_duplicate);
    if (current_field->level != 1 && current_field->level != 77) {
        cb_error (_("%s only allowed at 01/77 level"), "GLOBAL");
    } else if (!qualifier) {
        cb_error (_("%s requires a data name"), "GLOBAL");
#if 0   /* RXWRXW - Global/External */
    } else if (current_field->flag_external) {
        cb_error (_("%s and %s are mutually exclusive"), "GLOBAL", "EXTERNAL");
#endif
    } else if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
    } else if (current_storage == CB_STORAGE_LOCAL) {
        cb_error (_("%s not allowed here"), "GLOBAL");
    } else {
        current_field->flag_is_global = 1;
    }
  }
#line 9299 "parser.c" /* yacc.c:1646  */
    break;

  case 418:
#line 4383 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("PICTURE", SYN_CLAUSE_4, &check_pic_duplicate);
    current_field->pic = CB_PICTURE ((yyvsp[0]));
  }
#line 9308 "parser.c" /* yacc.c:1646  */
    break;

  case 421:
#line 4399 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_BINARY);
  }
#line 9316 "parser.c" /* yacc.c:1646  */
    break;

  case 422:
#line 4403 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_BINARY);
  }
#line 9324 "parser.c" /* yacc.c:1646  */
    break;

  case 423:
#line 4407 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_FLOAT);
  }
#line 9332 "parser.c" /* yacc.c:1646  */
    break;

  case 424:
#line 4411 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_DOUBLE);
  }
#line 9340 "parser.c" /* yacc.c:1646  */
    break;

  case 425:
#line 4415 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_PACKED);
  }
#line 9348 "parser.c" /* yacc.c:1646  */
    break;

  case 426:
#line 4419 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_BINARY);
  }
#line 9356 "parser.c" /* yacc.c:1646  */
    break;

  case 427:
#line 4423 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_COMP_5);
  }
#line 9364 "parser.c" /* yacc.c:1646  */
    break;

  case 428:
#line 4427 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_COMP_6);
  }
#line 9372 "parser.c" /* yacc.c:1646  */
    break;

  case 429:
#line 4431 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_COMP_X);
  }
#line 9380 "parser.c" /* yacc.c:1646  */
    break;

  case 430:
#line 4435 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_DISPLAY);
  }
#line 9388 "parser.c" /* yacc.c:1646  */
    break;

  case 431:
#line 4439 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_INDEX);
  }
#line 9396 "parser.c" /* yacc.c:1646  */
    break;

  case 432:
#line 4443 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_PACKED);
  }
#line 9404 "parser.c" /* yacc.c:1646  */
    break;

  case 433:
#line 4447 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_POINTER);
    current_field->flag_is_pointer = 1;
  }
#line 9413 "parser.c" /* yacc.c:1646  */
    break;

  case 434:
#line 4452 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_PROGRAM_POINTER);
    current_field->flag_is_pointer = 1;
  }
#line 9422 "parser.c" /* yacc.c:1646  */
    break;

  case 435:
#line 4457 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_SIGNED_SHORT);
  }
#line 9430 "parser.c" /* yacc.c:1646  */
    break;

  case 436:
#line 4461 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_SIGNED_INT);
  }
#line 9438 "parser.c" /* yacc.c:1646  */
    break;

  case 437:
#line 4465 "parser.y" /* yacc.c:1646  */
    {
    if (sizeof(long) == 4) {
        check_set_usage (CB_USAGE_SIGNED_INT);
    } else {
        check_set_usage (CB_USAGE_SIGNED_LONG);
    }
  }
#line 9450 "parser.c" /* yacc.c:1646  */
    break;

  case 438:
#line 4473 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_UNSIGNED_SHORT);
  }
#line 9458 "parser.c" /* yacc.c:1646  */
    break;

  case 439:
#line 4477 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_UNSIGNED_INT);
  }
#line 9466 "parser.c" /* yacc.c:1646  */
    break;

  case 440:
#line 4481 "parser.y" /* yacc.c:1646  */
    {
    if (sizeof(long) == 4) {
        check_set_usage (CB_USAGE_UNSIGNED_INT);
    } else {
        check_set_usage (CB_USAGE_UNSIGNED_LONG);
    }
  }
#line 9478 "parser.c" /* yacc.c:1646  */
    break;

  case 441:
#line 4489 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_SIGNED_CHAR);
  }
#line 9486 "parser.c" /* yacc.c:1646  */
    break;

  case 442:
#line 4493 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_UNSIGNED_CHAR);
  }
#line 9494 "parser.c" /* yacc.c:1646  */
    break;

  case 443:
#line 4497 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_SIGNED_SHORT);
  }
#line 9502 "parser.c" /* yacc.c:1646  */
    break;

  case 444:
#line 4501 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_UNSIGNED_SHORT);
  }
#line 9510 "parser.c" /* yacc.c:1646  */
    break;

  case 445:
#line 4505 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_SIGNED_INT);
  }
#line 9518 "parser.c" /* yacc.c:1646  */
    break;

  case 446:
#line 4509 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_UNSIGNED_INT);
  }
#line 9526 "parser.c" /* yacc.c:1646  */
    break;

  case 447:
#line 4513 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_SIGNED_LONG);
  }
#line 9534 "parser.c" /* yacc.c:1646  */
    break;

  case 448:
#line 4517 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_UNSIGNED_LONG);
  }
#line 9542 "parser.c" /* yacc.c:1646  */
    break;

  case 449:
#line 4521 "parser.y" /* yacc.c:1646  */
    {
    if (sizeof(long) == 4) {
        check_set_usage (CB_USAGE_SIGNED_INT);
    } else {
        check_set_usage (CB_USAGE_SIGNED_LONG);
    }
  }
#line 9554 "parser.c" /* yacc.c:1646  */
    break;

  case 450:
#line 4529 "parser.y" /* yacc.c:1646  */
    {
    if (sizeof(long) == 4) {
        check_set_usage (CB_USAGE_UNSIGNED_INT);
    } else {
        check_set_usage (CB_USAGE_UNSIGNED_LONG);
    }
  }
#line 9566 "parser.c" /* yacc.c:1646  */
    break;

  case 451:
#line 4537 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_FP_BIN32);
  }
#line 9574 "parser.c" /* yacc.c:1646  */
    break;

  case 452:
#line 4541 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_FP_BIN64);
  }
#line 9582 "parser.c" /* yacc.c:1646  */
    break;

  case 453:
#line 4545 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_FP_BIN128);
  }
#line 9590 "parser.c" /* yacc.c:1646  */
    break;

  case 454:
#line 4549 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_FP_DEC64);
  }
#line 9598 "parser.c" /* yacc.c:1646  */
    break;

  case 455:
#line 4553 "parser.y" /* yacc.c:1646  */
    {
    check_set_usage (CB_USAGE_FP_DEC128);
  }
#line 9606 "parser.c" /* yacc.c:1646  */
    break;

  case 456:
#line 4557 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("USAGE", SYN_CLAUSE_5, &check_pic_duplicate);
    PENDING ("USAGE NATIONAL");
  }
#line 9615 "parser.c" /* yacc.c:1646  */
    break;

  case 461:
#line 4577 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("SIGN", SYN_CLAUSE_6, &check_pic_duplicate);
    current_field->flag_sign_separate = ((yyvsp[0]) ? 1 : 0);
    current_field->flag_sign_leading  = 1;
  }
#line 9625 "parser.c" /* yacc.c:1646  */
    break;

  case 462:
#line 4583 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("SIGN", SYN_CLAUSE_6, &check_pic_duplicate);
    current_field->flag_sign_separate = ((yyvsp[0]) ? 1 : 0);
    current_field->flag_sign_leading  = 0;
  }
#line 9635 "parser.c" /* yacc.c:1646  */
    break;

  case 463:
#line 4596 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("OCCURS", SYN_CLAUSE_7, &check_pic_duplicate);
    if (current_field->depending && !((yyvsp[-3]))) {
        cb_verify (cb_odo_without_to, _("ODO without TO clause"));
    }
    current_field->occurs_min = (yyvsp[-3]) ? cb_get_int ((yyvsp[-4])) : 1;
    current_field->occurs_max = (yyvsp[-3]) ? cb_get_int ((yyvsp[-3])) : cb_get_int ((yyvsp[-4]));
    current_field->indexes++;
    if (current_field->indexes > COB_MAX_SUBSCRIPTS) {
        cb_error (_("Maximum OCCURS depth exceeded (%d)"),
              COB_MAX_SUBSCRIPTS);
    }
    current_field->flag_occurs = 1;
  }
#line 9654 "parser.c" /* yacc.c:1646  */
    break;

  case 465:
#line 4614 "parser.y" /* yacc.c:1646  */
    {
    current_field->step_count = cb_get_int ((yyvsp[0]));
  }
#line 9662 "parser.c" /* yacc.c:1646  */
    break;

  case 466:
#line 4624 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("OCCURS", SYN_CLAUSE_7, &check_pic_duplicate);
    if (current_field->indexes == COB_MAX_SUBSCRIPTS) {
        cb_error (_("Maximum OCCURS depth exceeded (%d)"),
              COB_MAX_SUBSCRIPTS);
    } else {
        current_field->indexes++;
    }
    if (current_field->flag_item_based) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "OCCURS");
    } else if (current_field->flag_external) {
        cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "OCCURS");
    }
    if ((yyvsp[-4])) {
        current_field->occurs_min = cb_get_int ((yyvsp[-5]));
        current_field->occurs_max = cb_get_int ((yyvsp[-4]));
        if (current_field->depending &&
            current_field->occurs_max > 0 &&
            current_field->occurs_max <= current_field->occurs_min) {
            cb_error (_("OCCURS max. must be greater than OCCURS min."));
        }
    } else {
        current_field->occurs_min = 1;
        current_field->occurs_max = cb_get_int ((yyvsp[-5]));
        if (current_field->depending) {
            cb_verify (cb_odo_without_to, "ODO without TO clause");
        }
    }
    current_field->flag_occurs = 1;
  }
#line 9697 "parser.c" /* yacc.c:1646  */
    break;

  case 467:
#line 4656 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("OCCURS", SYN_CLAUSE_7, &check_pic_duplicate);
    if (current_field->indexes == COB_MAX_SUBSCRIPTS) {
        cb_error (_("Maximum OCCURS depth exceeded (%d)"),
              COB_MAX_SUBSCRIPTS);
    } else {
        current_field->indexes++;
    }
    if (current_field->flag_item_based) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "OCCURS");
    } else if (current_field->flag_external) {
        cb_error (_("%s and %s are mutually exclusive"), "EXTERNAL", "OCCURS");
    }
    current_field->occurs_min = (yyvsp[-4]) ? cb_get_int ((yyvsp[-4])) : 0;
    if ((yyvsp[-3])) {
        current_field->occurs_max = cb_get_int ((yyvsp[-3]));
        if (current_field->occurs_max <= current_field->occurs_min) {
            cb_error (_("OCCURS max. must be greater than OCCURS min."));
        }
    } else {
        current_field->occurs_max = 0;
    }
    PENDING("OCCURS with DYNAMIC capacity");
    current_field->flag_occurs = 1;
  }
#line 9727 "parser.c" /* yacc.c:1646  */
    break;

  case 468:
#line 4684 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 9733 "parser.c" /* yacc.c:1646  */
    break;

  case 469:
#line 4685 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 9739 "parser.c" /* yacc.c:1646  */
    break;

  case 470:
#line 4689 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 9745 "parser.c" /* yacc.c:1646  */
    break;

  case 471:
#line 4690 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 9751 "parser.c" /* yacc.c:1646  */
    break;

  case 473:
#line 4695 "parser.y" /* yacc.c:1646  */
    {
    current_field->depending = (yyvsp[0]);
  }
#line 9759 "parser.c" /* yacc.c:1646  */
    break;

  case 475:
#line 4702 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_index ((yyvsp[0]), cb_zero, 0, current_field);
    CB_FIELD_PTR ((yyval))->special_index = 1;
  }
#line 9768 "parser.c" /* yacc.c:1646  */
    break;

  case 477:
#line 4710 "parser.y" /* yacc.c:1646  */
    {
    /* current_field->initialized = 1; */
  }
#line 9776 "parser.c" /* yacc.c:1646  */
    break;

  case 478:
#line 4717 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        cb_tree     l;
        struct cb_key   *keys;
        int     i;
        int     nkeys;

        l = (yyvsp[0]);
        nkeys = cb_list_length ((yyvsp[0]));
        keys = cobc_parse_malloc (sizeof (struct cb_key) * nkeys);

        for (i = 0; i < nkeys; i++) {
            keys[i].dir = CB_PURPOSE_INT (l);
            keys[i].key = CB_VALUE (l);
            l = CB_CHAIN (l);
        }
        current_field->keys = keys;
        current_field->nkeys = nkeys;
    }
  }
#line 9801 "parser.c" /* yacc.c:1646  */
    break;

  case 479:
#line 4740 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 9807 "parser.c" /* yacc.c:1646  */
    break;

  case 480:
#line 4743 "parser.y" /* yacc.c:1646  */
    {
    cb_tree l;

    for (l = (yyvsp[0]); l; l = CB_CHAIN (l)) {
        CB_PURPOSE (l) = (yyvsp[-3]);
        if (qualifier && !CB_REFERENCE(CB_VALUE(l))->chain &&
            strcasecmp (CB_NAME(CB_VALUE(l)), CB_NAME(qualifier))) {
            CB_REFERENCE(CB_VALUE(l))->chain = qualifier;
        }
    }
    (yyval) = cb_list_append ((yyvsp[-4]), (yyvsp[0]));
  }
#line 9824 "parser.c" /* yacc.c:1646  */
    break;

  case 481:
#line 4758 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_ASCENDING); }
#line 9830 "parser.c" /* yacc.c:1646  */
    break;

  case 482:
#line 4759 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_DESCENDING); }
#line 9836 "parser.c" /* yacc.c:1646  */
    break;

  case 484:
#line 4764 "parser.y" /* yacc.c:1646  */
    {
    current_field->index_list = (yyvsp[0]);
  }
#line 9844 "parser.c" /* yacc.c:1646  */
    break;

  case 485:
#line 4770 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 9850 "parser.c" /* yacc.c:1646  */
    break;

  case 486:
#line 4772 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 9856 "parser.c" /* yacc.c:1646  */
    break;

  case 487:
#line 4777 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_index ((yyvsp[0]), cb_int1, 1U, current_field);
    CB_FIELD_PTR ((yyval))->special_index = 1;
  }
#line 9865 "parser.c" /* yacc.c:1646  */
    break;

  case 488:
#line 4788 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("JUSTIFIED", SYN_CLAUSE_8, &check_pic_duplicate);
    current_field->flag_justified = 1;
  }
#line 9874 "parser.c" /* yacc.c:1646  */
    break;

  case 489:
#line 4799 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("SYNCHRONIZED", SYN_CLAUSE_9, &check_pic_duplicate);
    current_field->flag_synchronized = 1;
  }
#line 9883 "parser.c" /* yacc.c:1646  */
    break;

  case 490:
#line 4810 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("BLANK", SYN_CLAUSE_10, &check_pic_duplicate);
    current_field->flag_blank_zero = 1;
  }
#line 9892 "parser.c" /* yacc.c:1646  */
    break;

  case 491:
#line 4821 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("BASED", SYN_CLAUSE_11, &check_pic_duplicate);
    if (current_storage != CB_STORAGE_WORKING &&
        current_storage != CB_STORAGE_LINKAGE &&
        current_storage != CB_STORAGE_LOCAL) {
        cb_error (_("%s not allowed here"), "BASED");
    } else if (current_field->level != 1 && current_field->level != 77) {
        cb_error (_("%s only allowed at 01/77 level"), "BASED");
    } else if (!qualifier) {
        cb_error (_("%s requires a data name"), "BASED");
    } else if (current_field->flag_external) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "EXTERNAL");
    } else if (current_field->redefines) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "REDEFINES");
    } else if (current_field->flag_any_length) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "ANY LENGTH");
    } else if (current_field->flag_occurs) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "OCCURS");
    } else {
        current_field->flag_item_based = 1;
    }
  }
#line 9919 "parser.c" /* yacc.c:1646  */
    break;

  case 492:
#line 4849 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("VALUE", SYN_CLAUSE_12, &check_pic_duplicate);
    current_field->values = (yyvsp[0]);
  }
#line 9928 "parser.c" /* yacc.c:1646  */
    break;

  case 494:
#line 4857 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 9934 "parser.c" /* yacc.c:1646  */
    break;

  case 495:
#line 4858 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 9940 "parser.c" /* yacc.c:1646  */
    break;

  case 496:
#line 4862 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 9946 "parser.c" /* yacc.c:1646  */
    break;

  case 497:
#line 4863 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0])); }
#line 9952 "parser.c" /* yacc.c:1646  */
    break;

  case 499:
#line 4868 "parser.y" /* yacc.c:1646  */
    {
    if (current_field->level != 88) {
        cb_error (_("FALSE clause only allowed for 88 level"));
    }
    current_field->false_88 = CB_LIST_INIT ((yyvsp[0]));
  }
#line 9963 "parser.c" /* yacc.c:1646  */
    break;

  case 500:
#line 4881 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("RENAMES", SYN_CLAUSE_13, &check_pic_duplicate);
    if (cb_ref ((yyvsp[0])) != cb_error_node) {
        if (CB_FIELD (cb_ref ((yyvsp[0])))->level == 01 ||
            CB_FIELD (cb_ref ((yyvsp[0])))->level > 50) {
            cb_error (_("RENAMES may not reference a level 01 or > 50"));
        } else {
            current_field->redefines = CB_FIELD (cb_ref ((yyvsp[0])));
            current_field->pic = current_field->redefines->pic;
        }
    }
  }
#line 9980 "parser.c" /* yacc.c:1646  */
    break;

  case 501:
#line 4894 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("RENAMES", SYN_CLAUSE_13, &check_pic_duplicate);
    if (cb_ref ((yyvsp[-2])) != cb_error_node && cb_ref ((yyvsp[0])) != cb_error_node) {
        if (CB_FIELD (cb_ref ((yyvsp[-2])))->level == 01 ||
            CB_FIELD (cb_ref ((yyvsp[-2])))->level > 50) {
            cb_error (_("RENAMES may not reference a level 01 or > 50"));
        } else if (CB_FIELD (cb_ref ((yyvsp[0])))->level == 01 ||
            CB_FIELD (cb_ref ((yyvsp[0])))->level > 50) {
            cb_error (_("RENAMES may not reference a level 01 or > 50"));
        } else {
            current_field->redefines = CB_FIELD (cb_ref ((yyvsp[-2])));
            current_field->rename_thru = CB_FIELD (cb_ref ((yyvsp[0])));
        }
    }
  }
#line 10000 "parser.c" /* yacc.c:1646  */
    break;

  case 502:
#line 4915 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ANY", SYN_CLAUSE_14, &check_pic_duplicate);
    if (current_field->flag_item_based) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "ANY clause");
    } else {
        current_field->flag_any_length = 1;
    }
  }
#line 10013 "parser.c" /* yacc.c:1646  */
    break;

  case 503:
#line 4924 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("ANY", SYN_CLAUSE_14, &check_pic_duplicate);
    if (current_field->flag_item_based) {
        cb_error (_("%s and %s are mutually exclusive"), "BASED", "ANY clause");
    } else {
        current_field->flag_any_length = 1;
        current_field->flag_any_numeric = 1;
    }
  }
#line 10027 "parser.c" /* yacc.c:1646  */
    break;

  case 505:
#line 4939 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
    header_check |= COBC_HD_LOCAL_STORAGE_SECTION;
    current_storage = CB_STORAGE_LOCAL;
    if (current_program->nested_level) {
        cb_error (_("%s not allowed in nested programs"), "LOCAL-STORAGE");
    }
  }
#line 10040 "parser.c" /* yacc.c:1646  */
    break;

  case 506:
#line 4948 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        current_program->local_storage = CB_FIELD ((yyvsp[0]));
    }
  }
#line 10050 "parser.c" /* yacc.c:1646  */
    break;

  case 508:
#line 4960 "parser.y" /* yacc.c:1646  */
    {
    check_headers_present (COBC_HD_DATA_DIVISION, 0, 0, 0);
    header_check |= COBC_HD_LINKAGE_SECTION;
    current_storage = CB_STORAGE_LINKAGE;
  }
#line 10060 "parser.c" /* yacc.c:1646  */
    break;

  case 509:
#line 4966 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        current_program->linkage_storage = CB_FIELD ((yyvsp[0]));
    }
  }
#line 10070 "parser.c" /* yacc.c:1646  */
    break;

  case 511:
#line 4977 "parser.y" /* yacc.c:1646  */
    {
    PENDING("REPORT SECTION");
    current_storage = CB_STORAGE_REPORT;
    cb_clear_real_field ();
  }
#line 10080 "parser.c" /* yacc.c:1646  */
    break;

  case 515:
#line 4993 "parser.y" /* yacc.c:1646  */
    {
    if (CB_INVALID_TREE ((yyvsp[0]))) {
        YYERROR;
    } else {
        current_report = CB_REPORT (cb_ref ((yyvsp[0])));
    }
    check_duplicate = 0;
  }
#line 10093 "parser.c" /* yacc.c:1646  */
    break;

  case 519:
#line 5008 "parser.y" /* yacc.c:1646  */
    {
    yyerrok;
  }
#line 10101 "parser.c" /* yacc.c:1646  */
    break;

  case 520:
#line 5015 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("GLOBAL", SYN_CLAUSE_1, &check_duplicate);
    cb_error (_("GLOBAL is not allowed with RD"));
  }
#line 10110 "parser.c" /* yacc.c:1646  */
    break;

  case 521:
#line 5020 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("CODE", SYN_CLAUSE_2, &check_duplicate);
  }
#line 10118 "parser.c" /* yacc.c:1646  */
    break;

  case 524:
#line 5031 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("CONTROL", SYN_CLAUSE_3, &check_duplicate);
  }
#line 10126 "parser.c" /* yacc.c:1646  */
    break;

  case 528:
#line 5050 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("PAGE", SYN_CLAUSE_4, &check_duplicate);
    if (!current_report->heading) {
        current_report->heading = 1;
    }
    if (!current_report->first_detail) {
        current_report->first_detail = current_report->heading;
    }
    if (!current_report->last_control) {
        if (current_report->last_detail) {
            current_report->last_control = current_report->last_detail;
        } else if (current_report->footing) {
            current_report->last_control = current_report->footing;
        } else {
            current_report->last_control = current_report->lines;
        }
    }
    if (!current_report->last_detail && !current_report->footing) {
        current_report->last_detail = current_report->lines;
        current_report->footing = current_report->lines;
    } else if (!current_report->last_detail) {
        current_report->last_detail = current_report->footing;
    } else if (!current_report->footing) {
        current_report->footing = current_report->last_detail;
    }
    if (current_report->heading > current_report->first_detail ||
        current_report->first_detail > current_report->last_control ||
        current_report->last_control > current_report->last_detail ||
        current_report->last_detail > current_report->footing) {
        cb_error (_("Invalid PAGE clause"));
    }
  }
#line 10163 "parser.c" /* yacc.c:1646  */
    break;

  case 529:
#line 5086 "parser.y" /* yacc.c:1646  */
    {
    current_report->lines = cb_get_int ((yyvsp[0]));
  }
#line 10171 "parser.c" /* yacc.c:1646  */
    break;

  case 530:
#line 5090 "parser.y" /* yacc.c:1646  */
    {
    current_report->lines = cb_get_int ((yyvsp[-3]));
    current_report->columns = cb_get_int ((yyvsp[-1]));
  }
#line 10180 "parser.c" /* yacc.c:1646  */
    break;

  case 531:
#line 5095 "parser.y" /* yacc.c:1646  */
    {
    current_report->lines = cb_get_int ((yyvsp[-1]));
  }
#line 10188 "parser.c" /* yacc.c:1646  */
    break;

  case 539:
#line 5115 "parser.y" /* yacc.c:1646  */
    {
    current_report->heading = cb_get_int ((yyvsp[0]));
  }
#line 10196 "parser.c" /* yacc.c:1646  */
    break;

  case 540:
#line 5122 "parser.y" /* yacc.c:1646  */
    {
    current_report->first_detail = cb_get_int ((yyvsp[0]));
  }
#line 10204 "parser.c" /* yacc.c:1646  */
    break;

  case 541:
#line 5129 "parser.y" /* yacc.c:1646  */
    {
    current_report->last_control = cb_get_int ((yyvsp[0]));
  }
#line 10212 "parser.c" /* yacc.c:1646  */
    break;

  case 542:
#line 5136 "parser.y" /* yacc.c:1646  */
    {
    current_report->last_detail = cb_get_int ((yyvsp[0]));
  }
#line 10220 "parser.c" /* yacc.c:1646  */
    break;

  case 543:
#line 5143 "parser.y" /* yacc.c:1646  */
    {
    current_report->footing = cb_get_int ((yyvsp[0]));
  }
#line 10228 "parser.c" /* yacc.c:1646  */
    break;

  case 546:
#line 5154 "parser.y" /* yacc.c:1646  */
    {
    check_pic_duplicate = 0;
  }
#line 10236 "parser.c" /* yacc.c:1646  */
    break;

  case 566:
#line 5185 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("TYPE", SYN_CLAUSE_16, &check_pic_duplicate);
  }
#line 10244 "parser.c" /* yacc.c:1646  */
    break;

  case 579:
#line 5211 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("NEXT GROUP", SYN_CLAUSE_17, &check_pic_duplicate);
  }
#line 10252 "parser.c" /* yacc.c:1646  */
    break;

  case 580:
#line 5218 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("SUM", SYN_CLAUSE_19, &check_pic_duplicate);
  }
#line 10260 "parser.c" /* yacc.c:1646  */
    break;

  case 585:
#line 5234 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("PRESENT", SYN_CLAUSE_20, &check_pic_duplicate);
  }
#line 10268 "parser.c" /* yacc.c:1646  */
    break;

  case 587:
#line 5245 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("LINE", SYN_CLAUSE_21, &check_pic_duplicate);
  }
#line 10276 "parser.c" /* yacc.c:1646  */
    break;

  case 590:
#line 5257 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("COLUMN", SYN_CLAUSE_18, &check_pic_duplicate);
  }
#line 10284 "parser.c" /* yacc.c:1646  */
    break;

  case 602:
#line 5290 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("SOURCE", SYN_CLAUSE_22, &check_pic_duplicate);
  }
#line 10292 "parser.c" /* yacc.c:1646  */
    break;

  case 603:
#line 5297 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("GROUP", SYN_CLAUSE_23, &check_pic_duplicate);
  }
#line 10300 "parser.c" /* yacc.c:1646  */
    break;

  case 604:
#line 5304 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("USAGE", SYN_CLAUSE_24, &check_pic_duplicate);
  }
#line 10308 "parser.c" /* yacc.c:1646  */
    break;

  case 606:
#line 5313 "parser.y" /* yacc.c:1646  */
    {
    current_storage = CB_STORAGE_SCREEN;
    current_field = NULL;
    description_field = NULL;
    cb_clear_real_field ();
  }
#line 10319 "parser.c" /* yacc.c:1646  */
    break;

  case 607:
#line 5320 "parser.y" /* yacc.c:1646  */
    {
    struct cb_field *p;

    if (description_field) {
        for (p = description_field; p; p = p->sister) {
            cb_validate_field (p);
        }
        current_program->screen_storage = description_field;
        current_program->flag_screen = 1;
    }
  }
#line 10335 "parser.c" /* yacc.c:1646  */
    break;

  case 613:
#line 5345 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = cb_build_field_tree ((yyvsp[-1]), (yyvsp[0]), current_field, current_storage,
                 current_file, 0);
    /* Free tree assocated with level number */
    cobc_parse_free ((yyvsp[-1]));
    check_pic_duplicate = 0;
    if (CB_INVALID_TREE (x)) {
        YYERROR;
    }

    current_field = CB_FIELD (x);
    if (current_field->parent) {
        current_field->screen_foreg = current_field->parent->screen_foreg;
        current_field->screen_backg = current_field->parent->screen_backg;
        current_field->screen_prompt = current_field->parent->screen_prompt;
    }
  }
#line 10359 "parser.c" /* yacc.c:1646  */
    break;

  case 614:
#line 5365 "parser.y" /* yacc.c:1646  */
    {
    int flags;

    if (current_field->parent) {
        flags = current_field->parent->screen_flag;
        flags &= ~COB_SCREEN_BLANK_LINE;
        flags &= ~COB_SCREEN_BLANK_SCREEN;
        flags &= ~COB_SCREEN_ERASE_EOL;
        flags &= ~COB_SCREEN_ERASE_EOS;
        flags &= ~COB_SCREEN_LINE_PLUS;
        flags &= ~COB_SCREEN_LINE_MINUS;
        flags &= ~COB_SCREEN_COLUMN_PLUS;
        flags &= ~COB_SCREEN_COLUMN_MINUS;

        flags = zero_conflicting_flags (current_field->screen_flag,
                        flags);

        current_field->screen_flag |= flags;
    }

    if (!qualifier && (current_field->level == 88 ||
        current_field->level == 66 ||
        current_field->flag_item_78)) {
        cb_error (_("Item requires a data name"));
    }
    if (current_field->screen_flag & COB_SCREEN_INITIAL) {
        if (!(current_field->screen_flag & COB_SCREEN_INPUT)) {
            cb_error (_("INITIAL specified on non-input field"));
        }
    }
    if (!qualifier) {
        current_field->flag_filler = 1;
    }
    if (current_field->level == 88) {
        cb_validate_88_item (current_field);
    }
    if (current_field->flag_item_78) {
        /* Reset to last non-78 item - may set current_field to NULL */
        current_field = cb_validate_78_item (current_field, 0);
    }
    if (likely (current_field)) {
        if (!description_field) {
            description_field = current_field;
        }
        if (current_field->flag_occurs
            && !has_relative_pos (current_field)) {
            cb_error (_("Relative LINE/COLUMN clause required with OCCURS"));
        }
    }
  }
#line 10414 "parser.c" /* yacc.c:1646  */
    break;

  case 615:
#line 5416 "parser.y" /* yacc.c:1646  */
    {
    /* Free tree associated with level number */
    cobc_parse_free ((yyvsp[-2]));
    yyerrok;
    cb_unput_dot ();
    check_pic_duplicate = 0;
    check_duplicate = 0;
#if 1   /* RXWRXW Screen field */
    if (current_field) {
        current_field->flag_is_verified = 1;
        current_field->flag_invalid = 1;
    }
#endif
    current_field = cb_get_real_field ();
  }
#line 10434 "parser.c" /* yacc.c:1646  */
    break;

  case 618:
#line 5439 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr_with_conflict ("BLANK LINE", COB_SCREEN_BLANK_LINE,
                     "BLANK SCREEN", COB_SCREEN_BLANK_SCREEN);
  }
#line 10443 "parser.c" /* yacc.c:1646  */
    break;

  case 619:
#line 5444 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr_with_conflict ("BLANK SCREEN", COB_SCREEN_BLANK_SCREEN,
                     "BLANK LINE", COB_SCREEN_BLANK_LINE);
  }
#line 10452 "parser.c" /* yacc.c:1646  */
    break;

  case 620:
#line 5449 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("BELL", COB_SCREEN_BELL);
  }
#line 10460 "parser.c" /* yacc.c:1646  */
    break;

  case 621:
#line 5453 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("BLINK", COB_SCREEN_BLINK);
  }
#line 10468 "parser.c" /* yacc.c:1646  */
    break;

  case 622:
#line 5457 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr_with_conflict ("ERASE EOL", COB_SCREEN_ERASE_EOL,
                     "ERASE EOS", COB_SCREEN_ERASE_EOS);
  }
#line 10477 "parser.c" /* yacc.c:1646  */
    break;

  case 623:
#line 5462 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr_with_conflict ("ERASE EOS", COB_SCREEN_ERASE_EOS,
                     "ERASE EOL", COB_SCREEN_ERASE_EOL);
  }
#line 10486 "parser.c" /* yacc.c:1646  */
    break;

  case 624:
#line 5467 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr_with_conflict ("HIGHLIGHT", COB_SCREEN_HIGHLIGHT,
                     "LOWLIGHT", COB_SCREEN_LOWLIGHT);
  }
#line 10495 "parser.c" /* yacc.c:1646  */
    break;

  case 625:
#line 5472 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr_with_conflict ("LOWLIGHT", COB_SCREEN_LOWLIGHT,
                     "HIGHLIGHT", COB_SCREEN_HIGHLIGHT);
  }
#line 10504 "parser.c" /* yacc.c:1646  */
    break;

  case 626:
#line 5477 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("REVERSE-VIDEO", COB_SCREEN_REVERSE);
  }
#line 10512 "parser.c" /* yacc.c:1646  */
    break;

  case 627:
#line 5481 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("UNDERLINE", COB_SCREEN_UNDERLINE);
  }
#line 10520 "parser.c" /* yacc.c:1646  */
    break;

  case 628:
#line 5485 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("OVERLINE", COB_SCREEN_OVERLINE);
    PENDING ("OVERLINE");
  }
#line 10529 "parser.c" /* yacc.c:1646  */
    break;

  case 629:
#line 5490 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("GRID", COB_SCREEN_GRID);
    PENDING ("GRID");
  }
#line 10538 "parser.c" /* yacc.c:1646  */
    break;

  case 630:
#line 5495 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("LEFTLINE", COB_SCREEN_LEFTLINE);
    PENDING ("LEFTLINE");
  }
#line 10547 "parser.c" /* yacc.c:1646  */
    break;

  case 631:
#line 5500 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("AUTO", COB_SCREEN_AUTO);
  }
#line 10555 "parser.c" /* yacc.c:1646  */
    break;

  case 632:
#line 5504 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("SECURE", COB_SCREEN_SECURE);
  }
#line 10563 "parser.c" /* yacc.c:1646  */
    break;

  case 633:
#line 5508 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("REQUIRED", COB_SCREEN_REQUIRED);
  }
#line 10571 "parser.c" /* yacc.c:1646  */
    break;

  case 634:
#line 5512 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("FULL", COB_SCREEN_FULL);
  }
#line 10579 "parser.c" /* yacc.c:1646  */
    break;

  case 635:
#line 5516 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("PROMPT", COB_SCREEN_PROMPT);
    current_field->screen_prompt = (yyvsp[0]);
  }
#line 10588 "parser.c" /* yacc.c:1646  */
    break;

  case 636:
#line 5521 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("PROMPT", COB_SCREEN_PROMPT);
  }
#line 10596 "parser.c" /* yacc.c:1646  */
    break;

  case 637:
#line 5525 "parser.y" /* yacc.c:1646  */
    {
    check_screen_attr ("INITIAL", COB_SCREEN_INITIAL);
  }
#line 10604 "parser.c" /* yacc.c:1646  */
    break;

  case 638:
#line 5529 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("LINE", SYN_CLAUSE_16, &check_pic_duplicate);
    current_field->screen_line = (yyvsp[0]);
  }
#line 10613 "parser.c" /* yacc.c:1646  */
    break;

  case 639:
#line 5534 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("COLUMN", SYN_CLAUSE_17, &check_pic_duplicate);
    current_field->screen_column = (yyvsp[0]);
  }
#line 10622 "parser.c" /* yacc.c:1646  */
    break;

  case 640:
#line 5539 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("FOREGROUND-COLOR", SYN_CLAUSE_18, &check_pic_duplicate);
    current_field->screen_foreg = (yyvsp[0]);
  }
#line 10631 "parser.c" /* yacc.c:1646  */
    break;

  case 641:
#line 5544 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("BACKGROUND-COLOR", SYN_CLAUSE_19, &check_pic_duplicate);
    current_field->screen_backg = (yyvsp[0]);
  }
#line 10640 "parser.c" /* yacc.c:1646  */
    break;

  case 650:
#line 5557 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));

    check_repeated ("USING", SYN_CLAUSE_20, &check_pic_duplicate);
    current_field->screen_from = (yyvsp[0]);
    current_field->screen_to = (yyvsp[0]);
    current_field->screen_flag |= COB_SCREEN_INPUT;
  }
#line 10653 "parser.c" /* yacc.c:1646  */
    break;

  case 651:
#line 5566 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("FROM", SYN_CLAUSE_21, &check_pic_duplicate);
    current_field->screen_from = (yyvsp[0]);
  }
#line 10662 "parser.c" /* yacc.c:1646  */
    break;

  case 652:
#line 5571 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));

    check_repeated ("TO", SYN_CLAUSE_22, &check_pic_duplicate);
    current_field->screen_to = (yyvsp[0]);
    current_field->screen_flag |= COB_SCREEN_INPUT;
  }
#line 10674 "parser.c" /* yacc.c:1646  */
    break;

  case 661:
#line 5602 "parser.y" /* yacc.c:1646  */
    {
    /* Nothing */
  }
#line 10682 "parser.c" /* yacc.c:1646  */
    break;

  case 662:
#line 5606 "parser.y" /* yacc.c:1646  */
    {
    current_field->screen_flag |= COB_SCREEN_LINE_PLUS;
  }
#line 10690 "parser.c" /* yacc.c:1646  */
    break;

  case 663:
#line 5610 "parser.y" /* yacc.c:1646  */
    {
    current_field->screen_flag |= COB_SCREEN_LINE_MINUS;
  }
#line 10698 "parser.c" /* yacc.c:1646  */
    break;

  case 664:
#line 5617 "parser.y" /* yacc.c:1646  */
    {
    /* Nothing */
  }
#line 10706 "parser.c" /* yacc.c:1646  */
    break;

  case 665:
#line 5621 "parser.y" /* yacc.c:1646  */
    {
    current_field->screen_flag |= COB_SCREEN_COLUMN_PLUS;
  }
#line 10714 "parser.c" /* yacc.c:1646  */
    break;

  case 666:
#line 5625 "parser.y" /* yacc.c:1646  */
    {
    current_field->screen_flag |= COB_SCREEN_COLUMN_MINUS;
  }
#line 10722 "parser.c" /* yacc.c:1646  */
    break;

  case 667:
#line 5633 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("OCCURS", SYN_CLAUSE_23, &check_pic_duplicate);
    current_field->occurs_max = cb_get_int ((yyvsp[-1]));
    current_field->occurs_min = current_field->occurs_max;
    current_field->indexes++;
    current_field->flag_occurs = 1;
  }
#line 10734 "parser.c" /* yacc.c:1646  */
    break;

  case 668:
#line 5644 "parser.y" /* yacc.c:1646  */
    {
    cb_error (_("GLOBAL is not allowed with screen items"));
  }
#line 10742 "parser.c" /* yacc.c:1646  */
    break;

  case 670:
#line 5653 "parser.y" /* yacc.c:1646  */
    {
    current_section = NULL;
    current_paragraph = NULL;
    check_pic_duplicate = 0;
    check_duplicate = 0;
    cobc_in_procedure = 1U;
    cb_set_system_names ();
    header_check |= COBC_HD_PROCEDURE_DIVISION;
  }
#line 10756 "parser.c" /* yacc.c:1646  */
    break;

  case 671:
#line 5663 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->flag_main && !current_program->flag_chained && (yyvsp[-4])) {
        cb_error (_("Executable program requested but PROCEDURE/ENTRY has USING clause"));
    }
    /* Main entry point */
    emit_entry (current_program->program_id, 0, (yyvsp[-4]));
    current_program->num_proc_params = cb_list_length ((yyvsp[-4]));
    if (current_program->source_name) {
        emit_entry (current_program->source_name, 1, (yyvsp[-4]));
    }
  }
#line 10772 "parser.c" /* yacc.c:1646  */
    break;

  case 672:
#line 5675 "parser.y" /* yacc.c:1646  */
    {
    if (current_paragraph) {
        if (current_paragraph->exit_label) {
            emit_statement (current_paragraph->exit_label);
        }
        emit_statement (cb_build_perform_exit (current_paragraph));
    }
    if (current_section) {
        if (current_section->exit_label) {
            emit_statement (current_section->exit_label);
        }
        emit_statement (cb_build_perform_exit (current_section));
    }
  }
#line 10791 "parser.c" /* yacc.c:1646  */
    break;

  case 673:
#line 5690 "parser.y" /* yacc.c:1646  */
    {
    cb_tree label;

    /* No PROCEDURE DIVISION header ! */
    /* Only a statement is allowed as first element */
    /* Thereafter, sections/paragraphs may be used */
    check_pic_duplicate = 0;
    check_duplicate = 0;
    cobc_in_procedure = 1U;
    label = cb_build_reference ("MAIN SECTION");
    current_section = CB_LABEL (cb_build_label (label, NULL));
    current_section->flag_section = 1;
    current_section->flag_dummy_section = 1;
    current_section->flag_skip_label = !!skip_statements;
    current_section->flag_declaratives = !!in_declaratives;
    CB_TREE (current_section)->source_file = cb_source_file;
    CB_TREE (current_section)->source_line = cb_source_line;
    emit_statement (CB_TREE (current_section));
    label = cb_build_reference ("MAIN PARAGRAPH");
    current_paragraph = CB_LABEL (cb_build_label (label, NULL));
    current_paragraph->flag_declaratives = !!in_declaratives;
    current_paragraph->flag_skip_label = !!skip_statements;
    current_paragraph->flag_dummy_paragraph = 1;
    CB_TREE (current_paragraph)->source_file = cb_source_file;
    CB_TREE (current_paragraph)->source_line = cb_source_line;
    emit_statement (CB_TREE (current_paragraph));
    cb_set_system_names ();
  }
#line 10824 "parser.c" /* yacc.c:1646  */
    break;

  case 675:
#line 5723 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 10832 "parser.c" /* yacc.c:1646  */
    break;

  case 676:
#line 5727 "parser.y" /* yacc.c:1646  */
    {
    call_mode = CB_CALL_BY_REFERENCE;
    size_mode = CB_SIZE_4;
  }
#line 10841 "parser.c" /* yacc.c:1646  */
    break;

  case 677:
#line 5732 "parser.y" /* yacc.c:1646  */
    {
    if (cb_list_length ((yyvsp[0])) > COB_MAX_FIELD_PARAMS) {
        cb_error (_("Number of parameters exceeds maximum %d"),
              COB_MAX_FIELD_PARAMS);
    }
    (yyval) = (yyvsp[0]);
  }
#line 10853 "parser.c" /* yacc.c:1646  */
    break;

  case 678:
#line 5740 "parser.y" /* yacc.c:1646  */
    {
    call_mode = CB_CALL_BY_REFERENCE;
    if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("CHAINING invalid in user FUNCTION"));
    } else {
        current_program->flag_chained = 1;
    }
  }
#line 10866 "parser.c" /* yacc.c:1646  */
    break;

  case 679:
#line 5749 "parser.y" /* yacc.c:1646  */
    {
    if (cb_list_length ((yyvsp[0])) > COB_MAX_FIELD_PARAMS) {
        cb_error (_("Number of parameters exceeds maximum %d"),
              COB_MAX_FIELD_PARAMS);
    }
    (yyval) = (yyvsp[0]);
  }
#line 10878 "parser.c" /* yacc.c:1646  */
    break;

  case 680:
#line 5759 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 10884 "parser.c" /* yacc.c:1646  */
    break;

  case 681:
#line 5761 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
#line 10890 "parser.c" /* yacc.c:1646  */
    break;

  case 682:
#line 5766 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;
    struct cb_field *f;

    x = cb_build_identifier ((yyvsp[0]), 0);
    if ((yyvsp[-1]) == cb_int1 && CB_VALID_TREE (x) && cb_ref (x) != cb_error_node) {
        f = CB_FIELD (cb_ref (x));
        f->flag_is_pdiv_opt = 1;
    }

    if (call_mode == CB_CALL_BY_VALUE
        && CB_REFERENCE_P ((yyvsp[0]))
        && CB_FIELD (cb_ref ((yyvsp[0])))->flag_any_length) {
        cb_error_x ((yyvsp[0]), _("ANY LENGTH items may only be BY REFERENCE formal parameters"));
    }

    (yyval) = CB_BUILD_PAIR (cb_int (call_mode), x);
    CB_SIZES ((yyval)) = size_mode;
  }
#line 10914 "parser.c" /* yacc.c:1646  */
    break;

  case 684:
#line 5790 "parser.y" /* yacc.c:1646  */
    {
    call_mode = CB_CALL_BY_REFERENCE;
  }
#line 10922 "parser.c" /* yacc.c:1646  */
    break;

  case 685:
#line 5794 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->flag_chained) {
        cb_error (_("%s not allowed in CHAINED programs"), "BY VALUE");
    } else {
        PENDING (_("BY VALUE parameters"));
        call_mode = CB_CALL_BY_VALUE;
    }
  }
#line 10935 "parser.c" /* yacc.c:1646  */
    break;

  case 687:
#line 5807 "parser.y" /* yacc.c:1646  */
    {
    if (call_mode != CB_CALL_BY_VALUE) {
        cb_error (_("SIZE only allowed for BY VALUE items"));
    } else {
        size_mode = CB_SIZE_AUTO;
    }
  }
#line 10947 "parser.c" /* yacc.c:1646  */
    break;

  case 688:
#line 5815 "parser.y" /* yacc.c:1646  */
    {
    if (call_mode != CB_CALL_BY_VALUE) {
        cb_error (_("SIZE only allowed for BY VALUE items"));
    } else {
        size_mode = CB_SIZE_4;
    }
  }
#line 10959 "parser.c" /* yacc.c:1646  */
    break;

  case 689:
#line 5823 "parser.y" /* yacc.c:1646  */
    {
    if (call_mode != CB_CALL_BY_VALUE) {
        cb_error (_("SIZE only allowed for BY VALUE items"));
    } else {
        size_mode = CB_SIZE_AUTO | CB_SIZE_UNSIGNED;
    }
  }
#line 10971 "parser.c" /* yacc.c:1646  */
    break;

  case 690:
#line 5831 "parser.y" /* yacc.c:1646  */
    {
    unsigned char *s = CB_LITERAL ((yyvsp[0]))->data;

    if (call_mode != CB_CALL_BY_VALUE) {
        cb_error (_("SIZE only allowed for BY VALUE items"));
    } else if (CB_LITERAL ((yyvsp[0]))->size != 1) {
        cb_error_x ((yyvsp[0]), _("Invalid value for SIZE"));
    } else {
        size_mode = CB_SIZE_UNSIGNED;
        switch (*s) {
        case '1':
            size_mode |= CB_SIZE_1;
            break;
        case '2':
            size_mode |= CB_SIZE_2;
            break;
        case '4':
            size_mode |= CB_SIZE_4;
            break;
        case '8':
            size_mode |= CB_SIZE_8;
            break;
        default:
            cb_error_x ((yyvsp[0]), _("Invalid value for SIZE"));
            break;
        }
    }
  }
#line 11004 "parser.c" /* yacc.c:1646  */
    break;

  case 691:
#line 5860 "parser.y" /* yacc.c:1646  */
    {
    unsigned char *s = CB_LITERAL ((yyvsp[0]))->data;

    if (call_mode != CB_CALL_BY_VALUE) {
        cb_error (_("SIZE only allowed for BY VALUE items"));
    } else if (CB_LITERAL ((yyvsp[0]))->size != 1) {
        cb_error_x ((yyvsp[0]), _("Invalid value for SIZE"));
    } else {
        size_mode = 0;
        switch (*s) {
        case '1':
            size_mode = CB_SIZE_1;
            break;
        case '2':
            size_mode = CB_SIZE_2;
            break;
        case '4':
            size_mode = CB_SIZE_4;
            break;
        case '8':
            size_mode = CB_SIZE_8;
            break;
        default:
            cb_error_x ((yyvsp[0]), _("Invalid value for SIZE"));
            break;
        }
    }
  }
#line 11037 "parser.c" /* yacc.c:1646  */
    break;

  case 692:
#line 5892 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int0;
  }
#line 11045 "parser.c" /* yacc.c:1646  */
    break;

  case 693:
#line 5896 "parser.y" /* yacc.c:1646  */
    {
    if (call_mode != CB_CALL_BY_REFERENCE) {
        cb_error (_("OPTIONAL only allowed for BY REFERENCE items"));
        (yyval) = cb_int0;
    } else {
        (yyval) = cb_int1;
    }
  }
#line 11058 "parser.c" /* yacc.c:1646  */
    break;

  case 694:
#line 5908 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("RETURNING clause is required for a FUNCTION"));
    }
  }
#line 11068 "parser.c" /* yacc.c:1646  */
    break;

  case 695:
#line 5914 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->flag_main) {
        cb_error (_("RETURNING clause cannot be OMITTED for main program"));
    }
    if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("RETURNING clause cannot be OMITTED for a FUNCTION"));
    }
    current_program->flag_void = 1;
  }
#line 11082 "parser.c" /* yacc.c:1646  */
    break;

  case 696:
#line 5924 "parser.y" /* yacc.c:1646  */
    {
    struct cb_field *f;

    if (cb_ref ((yyvsp[0])) != cb_error_node) {
        f = CB_FIELD_PTR ((yyvsp[0]));
/* RXWRXW
        if (f->storage != CB_STORAGE_LINKAGE) {
            cb_error (_("RETURNING item is not defined in LINKAGE SECTION"));
        } else if (f->level != 1 && f->level != 77) {
*/
        if (f->level != 1 && f->level != 77) {
            cb_error (_("RETURNING item must have level 01"));
        } else if(f->flag_occurs) {
            cb_error(_("RETURNING item should not have OCCURS"));
        } else if(f->storage == CB_STORAGE_LOCAL) {
            cb_error (_("RETURNING item should not be in LOCAL-STORAGE"));
        } else {
            if (current_program->prog_type == CB_FUNCTION_TYPE) {
                if (f->flag_any_length) {
                    cb_error (_("Function RETURNING item may not be ANY LENGTH"));
                }

                f->flag_is_returning = 1;
            }
            current_program->returning = (yyvsp[0]);
        }
    }
  }
#line 11115 "parser.c" /* yacc.c:1646  */
    break;

  case 698:
#line 5956 "parser.y" /* yacc.c:1646  */
    {
    in_declaratives = 1;
    emit_statement (cb_build_comment ("DECLARATIVES"));
  }
#line 11124 "parser.c" /* yacc.c:1646  */
    break;

  case 699:
#line 5962 "parser.y" /* yacc.c:1646  */
    {
    if (needs_field_debug) {
        start_debug = 1;
    }
    in_declaratives = 0;
    in_debugging = 0;
    if (current_paragraph) {
        if (current_paragraph->exit_label) {
            emit_statement (current_paragraph->exit_label);
        }
        emit_statement (cb_build_perform_exit (current_paragraph));
        current_paragraph = NULL;
    }
    if (current_section) {
        if (current_section->exit_label) {
            emit_statement (current_section->exit_label);
        }
        current_section->flag_fatal_check = 1;
        emit_statement (cb_build_perform_exit (current_section));
        current_section = NULL;
    }
    skip_statements = 0;
    emit_statement (cb_build_comment ("END DECLARATIVES"));
    check_unreached = 0;
  }
#line 11154 "parser.c" /* yacc.c:1646  */
    break;

  case 704:
#line 6000 "parser.y" /* yacc.c:1646  */
    {
    if (next_label_list) {
        cb_tree plabel;
        char    name[32];

        snprintf (name, sizeof(name), "L$%d", next_label_id);
        plabel = cb_build_label (cb_build_reference (name), NULL);
        CB_LABEL (plabel)->flag_next_sentence = 1;
        emit_statement (plabel);
        current_program->label_list =
            cb_list_append (current_program->label_list, next_label_list);
        next_label_list = NULL;
        next_label_id++;
    }
    /* check_unreached = 0; */
  }
#line 11175 "parser.c" /* yacc.c:1646  */
    break;

  case 706:
#line 6018 "parser.y" /* yacc.c:1646  */
    {
    /* check_unreached = 0; */
  }
#line 11183 "parser.c" /* yacc.c:1646  */
    break;

  case 707:
#line 6028 "parser.y" /* yacc.c:1646  */
    {
    non_const_word = 0;
    check_unreached = 0;
    if (cb_build_section_name ((yyvsp[-3]), 0) == cb_error_node) {
        YYERROR;
    }

    /* Exit the last paragraph/section */
    if (current_paragraph) {
        if (current_paragraph->exit_label) {
            emit_statement (current_paragraph->exit_label);
        }
        emit_statement (cb_build_perform_exit (current_paragraph));
    }
    if (current_section) {
        if (current_section->exit_label) {
            emit_statement (current_section->exit_label);
        }
        emit_statement (cb_build_perform_exit (current_section));
    }
    if (current_program->flag_debugging && !in_debugging) {
        if (current_paragraph || current_section) {
            emit_statement (cb_build_comment (
                    "DEBUGGING - Fall through"));
            emit_statement (cb_build_debug (cb_debug_contents,
                    "FALL THROUGH", NULL));
        }
    }

    /* Begin a new section */
    current_section = CB_LABEL (cb_build_label ((yyvsp[-3]), NULL));
    if ((yyvsp[-1])) {
        current_section->segment = cb_get_int ((yyvsp[-1]));
    }
    current_section->flag_section = 1;
    /* Careful here, one negation */
    current_section->flag_real_label = !in_debugging;
    current_section->flag_declaratives = !!in_declaratives;
    current_section->flag_skip_label = !!skip_statements;
    CB_TREE (current_section)->source_file = cb_source_file;
    CB_TREE (current_section)->source_line = cb_source_line;
    current_paragraph = NULL;
  }
#line 11231 "parser.c" /* yacc.c:1646  */
    break;

  case 708:
#line 6072 "parser.y" /* yacc.c:1646  */
    {
    emit_statement (CB_TREE (current_section));
  }
#line 11239 "parser.c" /* yacc.c:1646  */
    break;

  case 711:
#line 6083 "parser.y" /* yacc.c:1646  */
    {
    cb_tree label;

    non_const_word = 0;
    check_unreached = 0;
    if (cb_build_section_name ((yyvsp[-1]), 1) == cb_error_node) {
        YYERROR;
    }

    /* Exit the last paragraph */
    if (current_paragraph) {
        if (current_paragraph->exit_label) {
            emit_statement (current_paragraph->exit_label);
        }
        emit_statement (cb_build_perform_exit (current_paragraph));
        if (current_program->flag_debugging && !in_debugging) {
            emit_statement (cb_build_comment (
                    "DEBUGGING - Fall through"));
            emit_statement (cb_build_debug (cb_debug_contents,
                    "FALL THROUGH", NULL));
        }
    }

    /* Begin a new paragraph */
    if (!current_section) {
        label = cb_build_reference ("MAIN SECTION");
        current_section = CB_LABEL (cb_build_label (label, NULL));
        current_section->flag_section = 1;
        current_section->flag_dummy_section = 1;
        current_section->flag_declaratives = !!in_declaratives;
        current_section->flag_skip_label = !!skip_statements;
        CB_TREE (current_section)->source_file = cb_source_file;
        CB_TREE (current_section)->source_line = cb_source_line;
        emit_statement (CB_TREE (current_section));
    }
    current_paragraph = CB_LABEL (cb_build_label ((yyvsp[-1]), current_section));
    current_paragraph->flag_declaratives =!! in_declaratives;
    current_paragraph->flag_skip_label = !!skip_statements;
    current_paragraph->flag_real_label = !in_debugging;
    current_paragraph->segment = current_section->segment;
    CB_TREE (current_paragraph)->source_file = cb_source_file;
    CB_TREE (current_paragraph)->source_line = cb_source_line;
    emit_statement (CB_TREE (current_paragraph));
  }
#line 11288 "parser.c" /* yacc.c:1646  */
    break;

  case 712:
#line 6131 "parser.y" /* yacc.c:1646  */
    {
    non_const_word = 0;
    check_unreached = 0;
    if (cb_build_section_name ((yyvsp[0]), 0) != cb_error_node) {
        cb_error_x ((yyvsp[0]), _("Unknown statement '%s'"), CB_NAME ((yyvsp[0])));
    }
    YYERROR;
  }
#line 11301 "parser.c" /* yacc.c:1646  */
    break;

  case 713:
#line 6143 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 11309 "parser.c" /* yacc.c:1646  */
    break;

  case 714:
#line 6147 "parser.y" /* yacc.c:1646  */
    {
    if (in_declaratives) {
        cb_error (_("SECTION segment invalid within DECLARATIVE"));
    }
    if (cb_verify (cb_section_segments, "SECTION segment")) {
        current_program->flag_segments = 1;
        (yyval) = (yyvsp[0]);
    } else {
        (yyval) = NULL;
    }
  }
#line 11325 "parser.c" /* yacc.c:1646  */
    break;

  case 715:
#line 6165 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = current_program->exec_list;
    current_program->exec_list = NULL;
    check_unreached = 0;
  }
#line 11335 "parser.c" /* yacc.c:1646  */
    break;

  case 716:
#line 6170 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_TREE (current_statement);
    current_statement = NULL;
  }
#line 11344 "parser.c" /* yacc.c:1646  */
    break;

  case 717:
#line 6175 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_reverse (current_program->exec_list);
    current_program->exec_list = (yyvsp[-2]);
    current_statement = CB_STATEMENT ((yyvsp[-1]));
  }
#line 11354 "parser.c" /* yacc.c:1646  */
    break;

  case 718:
#line 6183 "parser.y" /* yacc.c:1646  */
    {
    cb_tree label;

    if (!current_section) {
        label = cb_build_reference ("MAIN SECTION");
        current_section = CB_LABEL (cb_build_label (label, NULL));
        current_section->flag_section = 1;
        current_section->flag_dummy_section = 1;
        current_section->flag_skip_label = !!skip_statements;
        current_section->flag_declaratives = !!in_declaratives;
        CB_TREE (current_section)->source_file = cb_source_file;
        CB_TREE (current_section)->source_line = cb_source_line;
        emit_statement (CB_TREE (current_section));
    }
    if (!current_paragraph) {
        label = cb_build_reference ("MAIN PARAGRAPH");
        current_paragraph = CB_LABEL (cb_build_label (label, NULL));
        current_paragraph->flag_declaratives = !!in_declaratives;
        current_paragraph->flag_skip_label = !!skip_statements;
        current_paragraph->flag_dummy_paragraph = 1;
        CB_TREE (current_paragraph)->source_file = cb_source_file;
        CB_TREE (current_paragraph)->source_line = cb_source_line;
        emit_statement (CB_TREE (current_paragraph));
    }
    check_headers_present (COBC_HD_PROCEDURE_DIVISION, 0, 0, 0);
  }
#line 11385 "parser.c" /* yacc.c:1646  */
    break;

  case 719:
#line 6210 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
  }
#line 11393 "parser.c" /* yacc.c:1646  */
    break;

  case 720:
#line 6214 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
  }
#line 11401 "parser.c" /* yacc.c:1646  */
    break;

  case 770:
#line 6270 "parser.y" /* yacc.c:1646  */
    {
    if (cb_verify (cb_next_sentence_phrase, "NEXT SENTENCE")) {
        cb_tree label;
        char    name[32];

        begin_statement ("NEXT SENTENCE", 0);
        sprintf (name, "L$%d", next_label_id);
        label = cb_build_reference (name);
        next_label_list = cb_list_add (next_label_list, label);
        emit_statement (cb_build_goto (label, NULL));
    }
    check_unreached = 0;
  }
#line 11419 "parser.c" /* yacc.c:1646  */
    break;

  case 771:
#line 6284 "parser.y" /* yacc.c:1646  */
    {
    yyerrok;
    cobc_cs_check = 0;
  }
#line 11428 "parser.c" /* yacc.c:1646  */
    break;

  case 772:
#line 6295 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("ACCEPT", TERM_ACCEPT);
    if (cb_accept_update) {
        check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_UPDATE);
    }
    if (cb_accept_auto) {
        check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_AUTO);
    }
  }
#line 11442 "parser.c" /* yacc.c:1646  */
    break;

  case 774:
#line 6310 "parser.y" /* yacc.c:1646  */
    {
      check_duplicate = 0;
      check_line_col_duplicate = 0;
      line_column = NULL;
  }
#line 11452 "parser.c" /* yacc.c:1646  */
    break;

  case 775:
#line 6316 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    cb_emit_accept ((yyvsp[-3]), line_column, current_statement->attr_ptr);
  }
#line 11461 "parser.c" /* yacc.c:1646  */
    break;

  case 776:
#line 6321 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_line_or_col ((yyvsp[-2]), 0);
  }
#line 11469 "parser.c" /* yacc.c:1646  */
    break;

  case 777:
#line 6325 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_line_or_col ((yyvsp[-2]), 1);
  }
#line 11477 "parser.c" /* yacc.c:1646  */
    break;

  case 778:
#line 6329 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    cb_emit_accept_date_yyyymmdd ((yyvsp[-3]));
  }
#line 11486 "parser.c" /* yacc.c:1646  */
    break;

  case 779:
#line 6334 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    cb_emit_accept_date ((yyvsp[-2]));
  }
#line 11495 "parser.c" /* yacc.c:1646  */
    break;

  case 780:
#line 6339 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    cb_emit_accept_day_yyyyddd ((yyvsp[-3]));
  }
#line 11504 "parser.c" /* yacc.c:1646  */
    break;

  case 781:
#line 6344 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    cb_emit_accept_day ((yyvsp[-2]));
  }
#line 11513 "parser.c" /* yacc.c:1646  */
    break;

  case 782:
#line 6349 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_day_of_week ((yyvsp[-2]));
  }
#line 11521 "parser.c" /* yacc.c:1646  */
    break;

  case 783:
#line 6353 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_escape_key ((yyvsp[-3]));
  }
#line 11529 "parser.c" /* yacc.c:1646  */
    break;

  case 784:
#line 6357 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_exception_status ((yyvsp[-3]));
  }
#line 11537 "parser.c" /* yacc.c:1646  */
    break;

  case 785:
#line 6361 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_time ((yyvsp[-2]));
  }
#line 11545 "parser.c" /* yacc.c:1646  */
    break;

  case 786:
#line 6365 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
    cb_emit_accept_user_name ((yyvsp[-3]));
  }
#line 11554 "parser.c" /* yacc.c:1646  */
    break;

  case 787:
#line 6370 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_command_line ((yyvsp[-2]));
  }
#line 11562 "parser.c" /* yacc.c:1646  */
    break;

  case 788:
#line 6374 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_environment ((yyvsp[-3]));
  }
#line 11570 "parser.c" /* yacc.c:1646  */
    break;

  case 789:
#line 6378 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_get_environment ((yyvsp[-1]), (yyvsp[-4]));
  }
#line 11578 "parser.c" /* yacc.c:1646  */
    break;

  case 790:
#line 6382 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_arg_number ((yyvsp[-2]));
  }
#line 11586 "parser.c" /* yacc.c:1646  */
    break;

  case 791:
#line 6386 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_arg_value ((yyvsp[-3]));
  }
#line 11594 "parser.c" /* yacc.c:1646  */
    break;

  case 792:
#line 6390 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_mnemonic ((yyvsp[-2]), (yyvsp[0]));
  }
#line 11602 "parser.c" /* yacc.c:1646  */
    break;

  case 793:
#line 6394 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_accept_name ((yyvsp[-2]), (yyvsp[0]));
  }
#line 11610 "parser.c" /* yacc.c:1646  */
    break;

  case 795:
#line 6402 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_null;
  }
#line 11618 "parser.c" /* yacc.c:1646  */
    break;

  case 801:
#line 6420 "parser.y" /* yacc.c:1646  */
    {
      check_repeated ("FROM CRT", SYN_CLAUSE_1, &check_duplicate);
  }
#line 11626 "parser.c" /* yacc.c:1646  */
    break;

  case 802:
#line 6424 "parser.y" /* yacc.c:1646  */
    {
      check_repeated ("MODE IS BLOCK", SYN_CLAUSE_2, &check_duplicate);
  }
#line 11634 "parser.c" /* yacc.c:1646  */
    break;

  case 806:
#line 6437 "parser.y" /* yacc.c:1646  */
    {
    check_attr_with_conflict ("LINE", SYN_CLAUSE_1,
                  _("AT screen-location"), SYN_CLAUSE_3,
                  &check_line_col_duplicate);

    if (!line_column) {
        line_column = CB_BUILD_PAIR ((yyvsp[0]), cb_int0);
    } else {
        CB_PAIR_X (line_column) = (yyvsp[0]);
    }
  }
#line 11650 "parser.c" /* yacc.c:1646  */
    break;

  case 807:
#line 6449 "parser.y" /* yacc.c:1646  */
    {
    check_attr_with_conflict ("COLUMN", SYN_CLAUSE_2,
                  _("AT screen-location"), SYN_CLAUSE_3,
                  &check_line_col_duplicate);

    if(!line_column) {
        line_column = CB_BUILD_PAIR (cb_int0, (yyvsp[0]));
    } else {
        CB_PAIR_Y (line_column) = (yyvsp[0]);
    }
  }
#line 11666 "parser.c" /* yacc.c:1646  */
    break;

  case 808:
#line 6461 "parser.y" /* yacc.c:1646  */
    {
    check_attr_with_conflict (_("AT screen-location"), SYN_CLAUSE_3,
                  _("LINE or COLUMN"), SYN_CLAUSE_1 | SYN_CLAUSE_2,
                  &check_line_col_duplicate);

    line_column = (yyvsp[0]);
  }
#line 11678 "parser.c" /* yacc.c:1646  */
    break;

  case 809:
#line 6471 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 11684 "parser.c" /* yacc.c:1646  */
    break;

  case 810:
#line 6475 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 11690 "parser.c" /* yacc.c:1646  */
    break;

  case 811:
#line 6476 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 11696 "parser.c" /* yacc.c:1646  */
    break;

  case 812:
#line 6481 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
  }
#line 11704 "parser.c" /* yacc.c:1646  */
    break;

  case 813:
#line 6488 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_AUTO);
  }
#line 11712 "parser.c" /* yacc.c:1646  */
    break;

  case 814:
#line 6492 "parser.y" /* yacc.c:1646  */
    {
    if (cb_accept_auto) {
        remove_attrib (COB_SCREEN_AUTO);
    }
  }
#line 11722 "parser.c" /* yacc.c:1646  */
    break;

  case 815:
#line 6498 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_BELL);
  }
#line 11730 "parser.c" /* yacc.c:1646  */
    break;

  case 816:
#line 6502 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_BLINK);
  }
#line 11738 "parser.c" /* yacc.c:1646  */
    break;

  case 817:
#line 6506 "parser.y" /* yacc.c:1646  */
    {
    cb_warning (_("Ignoring CONVERSION"));
  }
#line 11746 "parser.c" /* yacc.c:1646  */
    break;

  case 818:
#line 6510 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_FULL);
  }
#line 11754 "parser.c" /* yacc.c:1646  */
    break;

  case 819:
#line 6514 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "HIGHLIGHT", COB_SCREEN_HIGHLIGHT,
                     "LOWLIGHT", COB_SCREEN_LOWLIGHT);
  }
#line 11764 "parser.c" /* yacc.c:1646  */
    break;

  case 820:
#line 6520 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_LEFTLINE);
  }
#line 11772 "parser.c" /* yacc.c:1646  */
    break;

  case 821:
#line 6524 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_LOWER);
  }
#line 11780 "parser.c" /* yacc.c:1646  */
    break;

  case 822:
#line 6528 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "LOWLIGHT", COB_SCREEN_LOWLIGHT,
                     "HIGHLIGHT", COB_SCREEN_HIGHLIGHT);
  }
#line 11790 "parser.c" /* yacc.c:1646  */
    break;

  case 823:
#line 6534 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_NO_ECHO);
  }
#line 11798 "parser.c" /* yacc.c:1646  */
    break;

  case 824:
#line 6538 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_OVERLINE);
  }
#line 11806 "parser.c" /* yacc.c:1646  */
    break;

  case 825:
#line 6542 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, (yyvsp[0]), NULL, COB_SCREEN_PROMPT);
  }
#line 11814 "parser.c" /* yacc.c:1646  */
    break;

  case 826:
#line 6546 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_PROMPT);
  }
#line 11822 "parser.c" /* yacc.c:1646  */
    break;

  case 827:
#line 6550 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_REQUIRED);
  }
#line 11830 "parser.c" /* yacc.c:1646  */
    break;

  case 828:
#line 6554 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_REVERSE);
  }
#line 11838 "parser.c" /* yacc.c:1646  */
    break;

  case 829:
#line 6558 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_SECURE);
  }
#line 11846 "parser.c" /* yacc.c:1646  */
    break;

  case 830:
#line 6562 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), 0);
  }
#line 11854 "parser.c" /* yacc.c:1646  */
    break;

  case 831:
#line 6566 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), 0);
  }
#line 11862 "parser.c" /* yacc.c:1646  */
    break;

  case 832:
#line 6570 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_UNDERLINE);
  }
#line 11870 "parser.c" /* yacc.c:1646  */
    break;

  case 833:
#line 6574 "parser.y" /* yacc.c:1646  */
    {
    if (cb_accept_update) {
        remove_attrib (COB_SCREEN_UPDATE);
    }
  }
#line 11880 "parser.c" /* yacc.c:1646  */
    break;

  case 834:
#line 6580 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_UPDATE);
  }
#line 11888 "parser.c" /* yacc.c:1646  */
    break;

  case 835:
#line 6584 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_UPPER);
  }
#line 11896 "parser.c" /* yacc.c:1646  */
    break;

  case 836:
#line 6588 "parser.y" /* yacc.c:1646  */
    {
    check_attribs ((yyvsp[0]), NULL, NULL, NULL, NULL, NULL, 0);
  }
#line 11904 "parser.c" /* yacc.c:1646  */
    break;

  case 837:
#line 6592 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, (yyvsp[0]), NULL, NULL, NULL, NULL, 0);
  }
#line 11912 "parser.c" /* yacc.c:1646  */
    break;

  case 838:
#line 6596 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL, 0);
  }
#line 11920 "parser.c" /* yacc.c:1646  */
    break;

  case 839:
#line 6600 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL, COB_SCREEN_SCROLL_DOWN);
  }
#line 11928 "parser.c" /* yacc.c:1646  */
    break;

  case 840:
#line 6604 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, (yyvsp[0]), NULL, NULL, 0);
  }
#line 11936 "parser.c" /* yacc.c:1646  */
    break;

  case 843:
#line 6616 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), ACCEPT);
  }
#line 11944 "parser.c" /* yacc.c:1646  */
    break;

  case 844:
#line 6620 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), ACCEPT);
# if 0 /* activate only for debugging purposes for attribs */
    if (current_statement->attr_ptr) {
        printBits (current_statement->attr_ptr->dispattrs);
    } else {
        fprintf(stderr, "No Attribs\n");
    }
#endif
  }
#line 11959 "parser.c" /* yacc.c:1646  */
    break;

  case 845:
#line 6637 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("ADD", TERM_ADD);
  }
#line 11967 "parser.c" /* yacc.c:1646  */
    break;

  case 847:
#line 6646 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), '+', cb_build_binary_list ((yyvsp[-3]), '+'));
  }
#line 11975 "parser.c" /* yacc.c:1646  */
    break;

  case 848:
#line 6650 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_list ((yyvsp[-4]), '+'));
  }
#line 11983 "parser.c" /* yacc.c:1646  */
    break;

  case 849:
#line 6654 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_corresponding (cb_build_add, (yyvsp[-2]), (yyvsp[-4]), (yyvsp[-1]));
  }
#line 11991 "parser.c" /* yacc.c:1646  */
    break;

  case 851:
#line 6661 "parser.y" /* yacc.c:1646  */
    {
    cb_list_add ((yyvsp[-2]), (yyvsp[0]));
  }
#line 11999 "parser.c" /* yacc.c:1646  */
    break;

  case 852:
#line 6668 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), ADD);
  }
#line 12007 "parser.c" /* yacc.c:1646  */
    break;

  case 853:
#line 6672 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), ADD);
  }
#line 12015 "parser.c" /* yacc.c:1646  */
    break;

  case 854:
#line 6682 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("ALLOCATE", 0);
    current_statement->flag_no_based = 1;
  }
#line 12024 "parser.c" /* yacc.c:1646  */
    break;

  case 856:
#line 6691 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_allocate ((yyvsp[-2]), (yyvsp[0]), NULL, (yyvsp[-1]));
  }
#line 12032 "parser.c" /* yacc.c:1646  */
    break;

  case 857:
#line 6695 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0]) == NULL) {
        cb_error_x (CB_TREE (current_statement),
                _("ALLOCATE CHARACTERS requires RETURNING clause"));
    } else {
        cb_emit_allocate (NULL, (yyvsp[0]), (yyvsp[-3]), (yyvsp[-1]));
    }
  }
#line 12045 "parser.c" /* yacc.c:1646  */
    break;

  case 858:
#line 6706 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 12051 "parser.c" /* yacc.c:1646  */
    break;

  case 859:
#line 6707 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 12057 "parser.c" /* yacc.c:1646  */
    break;

  case 860:
#line 6715 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("ALTER", 0);
    cb_verify (cb_alter_statement, "ALTER statement");
  }
#line 12066 "parser.c" /* yacc.c:1646  */
    break;

  case 864:
#line 6729 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_alter ((yyvsp[-3]), (yyvsp[0]));
  }
#line 12074 "parser.c" /* yacc.c:1646  */
    break;

  case 867:
#line 6741 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("CALL", TERM_CALL);
    cobc_cs_check = CB_CS_CALL;
    call_nothing = 0;
  }
#line 12084 "parser.c" /* yacc.c:1646  */
    break;

  case 869:
#line 6757 "parser.y" /* yacc.c:1646  */
    {
    if (CB_LITERAL_P ((yyvsp[-4])) &&
        current_program->prog_type == CB_PROGRAM_TYPE &&
        !current_program->flag_recursive &&
        !strcmp ((const char *)(CB_LITERAL((yyvsp[-4]))->data), current_program->orig_program_id)) {
        cb_warning_x ((yyvsp[-4]), _("Recursive program call - assuming RECURSIVE attribute"));
        current_program->flag_recursive = 1;
    }
    /* For CALL ... RETURNING NOTHING, set the call convention bit */
    if (call_nothing) {
        if ((yyvsp[-5]) && CB_INTEGER_P ((yyvsp[-5]))) {
            (yyvsp[-5]) = cb_int ((CB_INTEGER ((yyvsp[-5]))->val) | CB_CONV_NO_RET_UPD);
        } else {
            (yyvsp[-5]) = cb_int (CB_CONV_NO_RET_UPD);
        }
    }
    cb_emit_call ((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]), (yyvsp[-5]));
  }
#line 12107 "parser.c" /* yacc.c:1646  */
    break;

  case 870:
#line 6779 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
    cobc_cs_check = 0;
  }
#line 12116 "parser.c" /* yacc.c:1646  */
    break;

  case 871:
#line 6784 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (CB_CONV_STATIC_LINK);
    cobc_cs_check = 0;
  }
#line 12125 "parser.c" /* yacc.c:1646  */
    break;

  case 872:
#line 6789 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (CB_CONV_STDCALL);
    cobc_cs_check = 0;
  }
#line 12134 "parser.c" /* yacc.c:1646  */
    break;

  case 873:
#line 6794 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;

    x = cb_ref ((yyvsp[0]));
    if (CB_VALID_TREE (x)) {
        if (CB_SYSTEM_NAME(x)->token != CB_FEATURE_CONVENTION) {
            cb_error_x ((yyvsp[0]), _("Invalid mnemonic name"));
            (yyval) = NULL;
        } else {
            (yyval) = CB_SYSTEM_NAME(x)->value;
        }
    } else {
        (yyval) = NULL;
    }
    cobc_cs_check = 0;
  }
#line 12155 "parser.c" /* yacc.c:1646  */
    break;

  case 874:
#line 6814 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 12163 "parser.c" /* yacc.c:1646  */
    break;

  case 875:
#line 6818 "parser.y" /* yacc.c:1646  */
    {
    call_mode = CB_CALL_BY_REFERENCE;
    size_mode = CB_SIZE_4;
  }
#line 12172 "parser.c" /* yacc.c:1646  */
    break;

  case 876:
#line 6823 "parser.y" /* yacc.c:1646  */
    {
    if (cb_list_length ((yyvsp[0])) > COB_MAX_FIELD_PARAMS) {
        cb_error_x (CB_TREE (current_statement),
                _("Number of parameters exceeds maximum %d"),
                COB_MAX_FIELD_PARAMS);
    }
    (yyval) = (yyvsp[0]);
  }
#line 12185 "parser.c" /* yacc.c:1646  */
    break;

  case 877:
#line 6834 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 12191 "parser.c" /* yacc.c:1646  */
    break;

  case 878:
#line 6836 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
#line 12197 "parser.c" /* yacc.c:1646  */
    break;

  case 879:
#line 6841 "parser.y" /* yacc.c:1646  */
    {
    if (call_mode != CB_CALL_BY_REFERENCE) {
        cb_error_x (CB_TREE (current_statement),
                _("OMITTED only allowed with BY REFERENCE"));
    }
    (yyval) = CB_BUILD_PAIR (cb_int (call_mode), cb_null);
  }
#line 12209 "parser.c" /* yacc.c:1646  */
    break;

  case 880:
#line 6849 "parser.y" /* yacc.c:1646  */
    {
    int save_mode;

    save_mode = call_mode;
    if (call_mode != CB_CALL_BY_REFERENCE) {
        if (CB_FILE_P ((yyvsp[0])) || (CB_REFERENCE_P ((yyvsp[0])) &&
            CB_FILE_P (CB_REFERENCE ((yyvsp[0]))->value))) {
            cb_error_x (CB_TREE (current_statement),
                    _("Invalid file name reference"));
        } else if (call_mode == CB_CALL_BY_VALUE) {
            if (cb_category_is_alpha ((yyvsp[0]))) {
                cb_warning_x ((yyvsp[0]),
                          _("BY CONTENT assumed for alphanumeric item"));
                save_mode = CB_CALL_BY_CONTENT;
            }
        }
    }
    (yyval) = CB_BUILD_PAIR (cb_int (save_mode), (yyvsp[0]));
    CB_SIZES ((yyval)) = size_mode;
    call_mode = save_mode;
  }
#line 12235 "parser.c" /* yacc.c:1646  */
    break;

  case 882:
#line 6875 "parser.y" /* yacc.c:1646  */
    {
    call_mode = CB_CALL_BY_REFERENCE;
  }
#line 12243 "parser.c" /* yacc.c:1646  */
    break;

  case 883:
#line 6879 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->flag_chained) {
        cb_error_x (CB_TREE (current_statement),
                _("%s not allowed in CHAINED programs"), "BY CONTENT");
    } else {
        call_mode = CB_CALL_BY_CONTENT;
    }
  }
#line 12256 "parser.c" /* yacc.c:1646  */
    break;

  case 884:
#line 6888 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->flag_chained) {
        cb_error_x (CB_TREE (current_statement),
                _("%s not allowed in CHAINED programs"), "BY VALUE");
    } else {
        call_mode = CB_CALL_BY_VALUE;
    }
  }
#line 12269 "parser.c" /* yacc.c:1646  */
    break;

  case 885:
#line 6900 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 12277 "parser.c" /* yacc.c:1646  */
    break;

  case 886:
#line 6904 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 12285 "parser.c" /* yacc.c:1646  */
    break;

  case 887:
#line 6908 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_null;
  }
#line 12293 "parser.c" /* yacc.c:1646  */
    break;

  case 888:
#line 6912 "parser.y" /* yacc.c:1646  */
    {
    call_nothing = CB_CONV_NO_RET_UPD;
    (yyval) = cb_null;
  }
#line 12302 "parser.c" /* yacc.c:1646  */
    break;

  case 889:
#line 6917 "parser.y" /* yacc.c:1646  */
    {
    struct cb_field *f;

    if (cb_ref ((yyvsp[0])) != cb_error_node) {
        f = CB_FIELD_PTR ((yyvsp[0]));
        if (f->level != 1 && f->level != 77) {
            cb_error (_("RETURNING item must have level 01 or 77"));
            (yyval) = NULL;
        } else if (f->storage != CB_STORAGE_LINKAGE &&
               !f->flag_item_based) {
            cb_error (_("RETURNING item is neither in LINKAGE SECTION nor is it BASED"));
            (yyval) = NULL;
        } else {
            (yyval) = cb_build_address ((yyvsp[0]));
        }
    } else {
        (yyval) = NULL;
    }
  }
#line 12326 "parser.c" /* yacc.c:1646  */
    break;

  case 894:
#line 6950 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 12334 "parser.c" /* yacc.c:1646  */
    break;

  case 895:
#line 6955 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 12342 "parser.c" /* yacc.c:1646  */
    break;

  case 896:
#line 6960 "parser.y" /* yacc.c:1646  */
    {
    cb_verify (cb_call_overflow, "ON OVERFLOW clause");
    (yyval) = (yyvsp[0]);
  }
#line 12351 "parser.c" /* yacc.c:1646  */
    break;

  case 897:
#line 6968 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 12359 "parser.c" /* yacc.c:1646  */
    break;

  case 898:
#line 6973 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 12367 "parser.c" /* yacc.c:1646  */
    break;

  case 899:
#line 6980 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), CALL);
  }
#line 12375 "parser.c" /* yacc.c:1646  */
    break;

  case 900:
#line 6984 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), CALL);
  }
#line 12383 "parser.c" /* yacc.c:1646  */
    break;

  case 901:
#line 6994 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("CANCEL", 0);
  }
#line 12391 "parser.c" /* yacc.c:1646  */
    break;

  case 903:
#line 7002 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_cancel ((yyvsp[0]));
  }
#line 12399 "parser.c" /* yacc.c:1646  */
    break;

  case 904:
#line 7006 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_cancel ((yyvsp[0]));
  }
#line 12407 "parser.c" /* yacc.c:1646  */
    break;

  case 905:
#line 7016 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("CLOSE", 0);
  }
#line 12415 "parser.c" /* yacc.c:1646  */
    break;

  case 907:
#line 7024 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    cb_emit_close ((yyvsp[-1]), (yyvsp[0]));
  }
#line 12424 "parser.c" /* yacc.c:1646  */
    break;

  case 908:
#line 7029 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    cb_emit_close ((yyvsp[-1]), (yyvsp[0]));
  }
#line 12433 "parser.c" /* yacc.c:1646  */
    break;

  case 909:
#line 7036 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_CLOSE_NORMAL); }
#line 12439 "parser.c" /* yacc.c:1646  */
    break;

  case 910:
#line 7037 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_CLOSE_UNIT); }
#line 12445 "parser.c" /* yacc.c:1646  */
    break;

  case 911:
#line 7038 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_CLOSE_UNIT_REMOVAL); }
#line 12451 "parser.c" /* yacc.c:1646  */
    break;

  case 912:
#line 7039 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_CLOSE_NO_REWIND); }
#line 12457 "parser.c" /* yacc.c:1646  */
    break;

  case 913:
#line 7040 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_CLOSE_LOCK); }
#line 12463 "parser.c" /* yacc.c:1646  */
    break;

  case 914:
#line 7048 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("COMPUTE", TERM_COMPUTE);
  }
#line 12471 "parser.c" /* yacc.c:1646  */
    break;

  case 916:
#line 7057 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-3]), 0, (yyvsp[-1]));
  }
#line 12479 "parser.c" /* yacc.c:1646  */
    break;

  case 917:
#line 7064 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), COMPUTE);
  }
#line 12487 "parser.c" /* yacc.c:1646  */
    break;

  case 918:
#line 7068 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), COMPUTE);
  }
#line 12495 "parser.c" /* yacc.c:1646  */
    break;

  case 919:
#line 7078 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("COMMIT", 0);
    cb_emit_commit ();
  }
#line 12504 "parser.c" /* yacc.c:1646  */
    break;

  case 920:
#line 7089 "parser.y" /* yacc.c:1646  */
    {
    size_t  save_unreached;

    /* Do not check unreached for CONTINUE */
    save_unreached = check_unreached;
    check_unreached = 0;
    begin_statement ("CONTINUE", 0);
    cb_emit_continue ();
    check_unreached = (unsigned int) save_unreached;
  }
#line 12519 "parser.c" /* yacc.c:1646  */
    break;

  case 921:
#line 7106 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("DELETE", TERM_DELETE);
  }
#line 12527 "parser.c" /* yacc.c:1646  */
    break;

  case 923:
#line 7115 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_delete ((yyvsp[-2]));
  }
#line 12535 "parser.c" /* yacc.c:1646  */
    break;

  case 925:
#line 7123 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    cb_emit_delete_file ((yyvsp[0]));
  }
#line 12544 "parser.c" /* yacc.c:1646  */
    break;

  case 926:
#line 7128 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    cb_emit_delete_file ((yyvsp[0]));
  }
#line 12553 "parser.c" /* yacc.c:1646  */
    break;

  case 927:
#line 7136 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), DELETE);
  }
#line 12561 "parser.c" /* yacc.c:1646  */
    break;

  case 928:
#line 7140 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), DELETE);
  }
#line 12569 "parser.c" /* yacc.c:1646  */
    break;

  case 929:
#line 7150 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("DISPLAY", TERM_DISPLAY);
    cobc_cs_check = CB_CS_DISPLAY;
  }
#line 12578 "parser.c" /* yacc.c:1646  */
    break;

  case 931:
#line 7160 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_env_name ((yyvsp[-2]));
  }
#line 12586 "parser.c" /* yacc.c:1646  */
    break;

  case 932:
#line 7164 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_env_value ((yyvsp[-2]));
  }
#line 12594 "parser.c" /* yacc.c:1646  */
    break;

  case 933:
#line 7168 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arg_number ((yyvsp[-2]));
  }
#line 12602 "parser.c" /* yacc.c:1646  */
    break;

  case 934:
#line 7172 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_command_line ((yyvsp[-2]));
  }
#line 12610 "parser.c" /* yacc.c:1646  */
    break;

  case 936:
#line 7181 "parser.y" /* yacc.c:1646  */
    {
      emit_default_displays_for_x_list ((struct cb_list *) (yyvsp[0]));
  }
#line 12618 "parser.c" /* yacc.c:1646  */
    break;

  case 937:
#line 7185 "parser.y" /* yacc.c:1646  */
    {
      emit_default_displays_for_x_list ((struct cb_list *) (yyvsp[0]));
  }
#line 12626 "parser.c" /* yacc.c:1646  */
    break;

  case 940:
#line 7197 "parser.y" /* yacc.c:1646  */
    {
    check_duplicate = 0;
    check_line_col_duplicate = 0;
    advancing_value = cb_int1;
    upon_value = NULL;
    line_column = NULL;
  }
#line 12638 "parser.c" /* yacc.c:1646  */
    break;

  case 941:
#line 7205 "parser.y" /* yacc.c:1646  */
    {
    /* What if I want to allow implied LINE/COL? */
    int     is_screen_field =
        contains_only_screen_field ((struct cb_list *) (yyvsp[-2]));
    int screen_display =
            is_screen_field
        || upon_value == cb_null
        || line_column
        || current_statement->attr_ptr;

    if ((yyvsp[-2]) == cb_null) {
        error_if_no_advancing_in_screen_display (advancing_value);

        cb_emit_display_omitted (line_column,
                     current_statement->attr_ptr);
    } else {
        if (cb_list_length ((yyvsp[-2])) > 1 && screen_display) {
            cb_error (_("Ambiguous DISPLAY; put clauseless items at end or in separate DISPLAY"));
        }

        if (screen_display) {
            if (upon_value != NULL) {
                if (is_screen_field) {
                    cb_error (_("Screens cannot be displayed on a device"));
                } else { /* line_column || current_statement->attr_ptr */
                    cb_error (_("Cannot use screen clauses with device DISPLAY"));
                }
            } else {
                upon_value = cb_null;
            }

            error_if_no_advancing_in_screen_display (advancing_value);

            if (!line_column && !is_screen_field) {
                cb_error (_("Screen DISPLAY does not have a LINE or COL clause"));
            }

            cb_emit_display ((yyvsp[-2]), cb_null, cb_int1, line_column,
                     current_statement->attr_ptr);
        } else { /* device display */
            if (upon_value == NULL) {
                upon_value = get_default_display_device ();
            }
            cb_emit_display ((yyvsp[-2]), upon_value, advancing_value, NULL, NULL);
        }
    }

    /*
      This should be placed after the display_list in the second case
      of display_list, but that causes a shift/reduce error.
    */
    begin_implicit_statement ();
  }
#line 12696 "parser.c" /* yacc.c:1646  */
    break;

  case 942:
#line 7262 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 12704 "parser.c" /* yacc.c:1646  */
    break;

  case 943:
#line 7266 "parser.y" /* yacc.c:1646  */
    {
    PENDING ("DISPLAY OMITTED");
    (yyval) = cb_null;
  }
#line 12713 "parser.c" /* yacc.c:1646  */
    break;

  case 946:
#line 7279 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("UPON", SYN_CLAUSE_1, &check_duplicate);
  }
#line 12721 "parser.c" /* yacc.c:1646  */
    break;

  case 947:
#line 7283 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("NO ADVANCING", SYN_CLAUSE_2, &check_duplicate);
    advancing_value = cb_int0;
  }
#line 12730 "parser.c" /* yacc.c:1646  */
    break;

  case 948:
#line 7288 "parser.y" /* yacc.c:1646  */
    {
    check_repeated ("MODE IS BLOCK", SYN_CLAUSE_3, &check_duplicate);
  }
#line 12738 "parser.c" /* yacc.c:1646  */
    break;

  case 951:
#line 7297 "parser.y" /* yacc.c:1646  */
    {
    upon_value = cb_build_display_mnemonic ((yyvsp[0]));
  }
#line 12746 "parser.c" /* yacc.c:1646  */
    break;

  case 952:
#line 7301 "parser.y" /* yacc.c:1646  */
    {
    upon_value = cb_build_display_name ((yyvsp[0]));
  }
#line 12754 "parser.c" /* yacc.c:1646  */
    break;

  case 953:
#line 7305 "parser.y" /* yacc.c:1646  */
    {
    upon_value = cb_int0;
  }
#line 12762 "parser.c" /* yacc.c:1646  */
    break;

  case 957:
#line 7318 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_BELL);
  }
#line 12770 "parser.c" /* yacc.c:1646  */
    break;

  case 958:
#line 7322 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "BLANK LINE", COB_SCREEN_BLANK_LINE,
                     "BLANK SCREEN", COB_SCREEN_BLANK_SCREEN);
  }
#line 12780 "parser.c" /* yacc.c:1646  */
    break;

  case 959:
#line 7328 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "BLANK SCREEN", COB_SCREEN_BLANK_SCREEN,
                     "BLANK LINE", COB_SCREEN_BLANK_LINE);
  }
#line 12790 "parser.c" /* yacc.c:1646  */
    break;

  case 960:
#line 7334 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_BLINK);
  }
#line 12798 "parser.c" /* yacc.c:1646  */
    break;

  case 961:
#line 7338 "parser.y" /* yacc.c:1646  */
    {
    cb_warning (_("Ignoring CONVERSION"));
  }
#line 12806 "parser.c" /* yacc.c:1646  */
    break;

  case 962:
#line 7342 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "ERASE EOL", COB_SCREEN_ERASE_EOL,
                     "ERASE EOS", COB_SCREEN_ERASE_EOS);
  }
#line 12816 "parser.c" /* yacc.c:1646  */
    break;

  case 963:
#line 7348 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "ERASE EOS", COB_SCREEN_ERASE_EOS,
                     "ERASE EOL", COB_SCREEN_ERASE_EOL);
  }
#line 12826 "parser.c" /* yacc.c:1646  */
    break;

  case 964:
#line 7354 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "HIGHLIGHT", COB_SCREEN_HIGHLIGHT,
                     "LOWLIGHT", COB_SCREEN_LOWLIGHT);
  }
#line 12836 "parser.c" /* yacc.c:1646  */
    break;

  case 965:
#line 7360 "parser.y" /* yacc.c:1646  */
    {
    check_attribs_with_conflict (NULL, NULL, NULL, NULL, NULL, NULL,
                     "LOWLIGHT", COB_SCREEN_LOWLIGHT,
                     "HIGHLIGHT", COB_SCREEN_HIGHLIGHT);
  }
#line 12846 "parser.c" /* yacc.c:1646  */
    break;

  case 966:
#line 7366 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_OVERLINE);
  }
#line 12854 "parser.c" /* yacc.c:1646  */
    break;

  case 967:
#line 7370 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_REVERSE);
  }
#line 12862 "parser.c" /* yacc.c:1646  */
    break;

  case 968:
#line 7374 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, (yyvsp[0]), 0);
  }
#line 12870 "parser.c" /* yacc.c:1646  */
    break;

  case 969:
#line 7378 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, NULL, NULL, NULL, NULL, COB_SCREEN_UNDERLINE);
  }
#line 12878 "parser.c" /* yacc.c:1646  */
    break;

  case 970:
#line 7382 "parser.y" /* yacc.c:1646  */
    {
    check_attribs ((yyvsp[0]), NULL, NULL, NULL, NULL, NULL, 0);
  }
#line 12886 "parser.c" /* yacc.c:1646  */
    break;

  case 971:
#line 7386 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, (yyvsp[0]), NULL, NULL, NULL, NULL, 0);
  }
#line 12894 "parser.c" /* yacc.c:1646  */
    break;

  case 972:
#line 7390 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL, 0);
  }
#line 12902 "parser.c" /* yacc.c:1646  */
    break;

  case 973:
#line 7394 "parser.y" /* yacc.c:1646  */
    {
    check_attribs (NULL, NULL, (yyvsp[0]), NULL, NULL, NULL, COB_SCREEN_SCROLL_DOWN);
  }
#line 12910 "parser.c" /* yacc.c:1646  */
    break;

  case 974:
#line 7401 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), DISPLAY);
  }
#line 12918 "parser.c" /* yacc.c:1646  */
    break;

  case 975:
#line 7405 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), DISPLAY);
  }
#line 12926 "parser.c" /* yacc.c:1646  */
    break;

  case 976:
#line 7415 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("DIVIDE", TERM_DIVIDE);
  }
#line 12934 "parser.c" /* yacc.c:1646  */
    break;

  case 978:
#line 7424 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), '/', (yyvsp[-3]));
  }
#line 12942 "parser.c" /* yacc.c:1646  */
    break;

  case 979:
#line 7428 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_op ((yyvsp[-3]), '/', (yyvsp[-5])));
  }
#line 12950 "parser.c" /* yacc.c:1646  */
    break;

  case 980:
#line 7432 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_op ((yyvsp[-5]), '/', (yyvsp[-3])));
  }
#line 12958 "parser.c" /* yacc.c:1646  */
    break;

  case 981:
#line 7436 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_divide ((yyvsp[-5]), (yyvsp[-7]), (yyvsp[-3]), (yyvsp[-1]));
  }
#line 12966 "parser.c" /* yacc.c:1646  */
    break;

  case 982:
#line 7440 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_divide ((yyvsp[-7]), (yyvsp[-5]), (yyvsp[-3]), (yyvsp[-1]));
  }
#line 12974 "parser.c" /* yacc.c:1646  */
    break;

  case 983:
#line 7447 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), DIVIDE);
  }
#line 12982 "parser.c" /* yacc.c:1646  */
    break;

  case 984:
#line 7451 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), DIVIDE);
  }
#line 12990 "parser.c" /* yacc.c:1646  */
    break;

  case 985:
#line 7461 "parser.y" /* yacc.c:1646  */
    {
    check_unreached = 0;
    begin_statement ("ENTRY", 0);
  }
#line 12999 "parser.c" /* yacc.c:1646  */
    break;

  case 987:
#line 7470 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->nested_level) {
        cb_error (_("%s is invalid in nested program"), "ENTRY");
    } else if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("%s is invalid in a user FUNCTION"), "ENTRY");
    } else if (cb_verify (cb_entry_statement, "ENTRY")) {
        if (!cobc_check_valid_name ((char *)(CB_LITERAL ((yyvsp[-1]))->data), 1U)) {
            emit_entry ((char *)(CB_LITERAL ((yyvsp[-1]))->data), 1, (yyvsp[0]));
        }
    }
  }
#line 13015 "parser.c" /* yacc.c:1646  */
    break;

  case 988:
#line 7488 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("EVALUATE", TERM_EVALUATE);
    eval_level++;
    if (eval_level >= EVAL_DEPTH) {
        cb_error (_("Maximum evaluate depth exceeded (%d)"),
              EVAL_DEPTH);
        eval_level = 0;
        eval_inc = 0;
        eval_inc2 = 0;
        YYERROR;
    } else {
        for (eval_inc = 0; eval_inc < EVAL_DEPTH; ++eval_inc) {
            eval_check[eval_level][eval_inc] = NULL;
        }
        eval_inc = 0;
        eval_inc2 = 0;
    }
  }
#line 13038 "parser.c" /* yacc.c:1646  */
    break;

  case 990:
#line 7512 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_evaluate ((yyvsp[-1]), (yyvsp[0]));
    eval_level--;
  }
#line 13047 "parser.c" /* yacc.c:1646  */
    break;

  case 991:
#line 7519 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 13053 "parser.c" /* yacc.c:1646  */
    break;

  case 992:
#line 7521 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
#line 13059 "parser.c" /* yacc.c:1646  */
    break;

  case 993:
#line 7526 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    eval_check[eval_level][eval_inc++] = (yyvsp[0]);
    if (eval_inc >= EVAL_DEPTH) {
        cb_error (_("Maximum evaluate depth exceeded (%d)"),
              EVAL_DEPTH);
        eval_inc = 0;
        YYERROR;
    }
  }
#line 13074 "parser.c" /* yacc.c:1646  */
    break;

  case 994:
#line 7537 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_true;
    eval_check[eval_level][eval_inc++] = NULL;
    if (eval_inc >= EVAL_DEPTH) {
        cb_error (_("Maximum evaluate depth exceeded (%d)"),
              EVAL_DEPTH);
        eval_inc = 0;
        YYERROR;
    }
  }
#line 13089 "parser.c" /* yacc.c:1646  */
    break;

  case 995:
#line 7548 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_false;
    eval_check[eval_level][eval_inc++] = NULL;
    if (eval_inc >= EVAL_DEPTH) {
        cb_error (_("Maximum evaluate depth exceeded (%d)"),
              EVAL_DEPTH);
        eval_inc = 0;
        YYERROR;
    }
  }
#line 13104 "parser.c" /* yacc.c:1646  */
    break;

  case 996:
#line 7562 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
  }
#line 13112 "parser.c" /* yacc.c:1646  */
    break;

  case 997:
#line 7566 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13120 "parser.c" /* yacc.c:1646  */
    break;

  case 998:
#line 7572 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 13126 "parser.c" /* yacc.c:1646  */
    break;

  case 999:
#line 7574 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 13132 "parser.c" /* yacc.c:1646  */
    break;

  case 1000:
#line 7580 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_BUILD_CHAIN ((yyvsp[0]), (yyvsp[-1]));
    eval_inc2 = 0;
  }
#line 13141 "parser.c" /* yacc.c:1646  */
    break;

  case 1001:
#line 7589 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_BUILD_CHAIN ((yyvsp[0]), NULL);
    eval_inc2 = 0;
  }
#line 13150 "parser.c" /* yacc.c:1646  */
    break;

  case 1002:
#line 7597 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
    eval_inc2 = 0;
  }
#line 13159 "parser.c" /* yacc.c:1646  */
    break;

  case 1003:
#line 7603 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0]));
    eval_inc2 = 0;
  }
#line 13168 "parser.c" /* yacc.c:1646  */
    break;

  case 1004:
#line 7610 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 13174 "parser.c" /* yacc.c:1646  */
    break;

  case 1005:
#line 7612 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
#line 13180 "parser.c" /* yacc.c:1646  */
    break;

  case 1006:
#line 7617 "parser.y" /* yacc.c:1646  */
    {
    cb_tree not0;
    cb_tree e1;
    cb_tree e2;
    cb_tree x;
    cb_tree parm1;

    not0 = cb_int0;
    e2 = (yyvsp[0]);
    x = NULL;
    parm1 = (yyvsp[-1]);
    if (eval_check[eval_level][eval_inc2]) {
        /* Check if the first token is NOT */
        /* It may belong to the EVALUATE, however see */
        /* below when it may be part of a partial expression */
        if (CB_PURPOSE_INT (parm1) == '!') {
            /* Pop stack if subject not TRUE / FALSE */
            not0 = cb_int1;
            x = parm1;
            parm1 = CB_CHAIN (parm1);
        }
        /* Partial expression handling */
        switch (CB_PURPOSE_INT (parm1)) {
        /* Relational conditions */
        case '<':
        case '>':
        case '[':
        case ']':
        case '~':
        case '=':
        /* Class conditions */
        case '9':
        case 'A':
        case 'L':
        case 'U':
        case 'P':
        case 'N':
        case 'O':
        case 'C':
            if (e2) {
                cb_error_x (e2, _("Invalid THROUGH usage"));
                e2 = NULL;
            }
            not0 = CB_PURPOSE (parm1);
            if (x) {
                /* Rebind the NOT to the partial expression */
                parm1 = cb_build_list (cb_int ('!'), NULL, parm1);
            }
            /* Insert subject at head of list */
            parm1 = cb_build_list (cb_int ('x'),
                        eval_check[eval_level][eval_inc2], parm1);
            break;
        }
    }

    /* Build expr now */
    e1 = cb_build_expr (parm1);

    eval_inc2++;
    (yyval) = CB_BUILD_PAIR (not0, CB_BUILD_PAIR (e1, e2));
  }
#line 13246 "parser.c" /* yacc.c:1646  */
    break;

  case 1007:
#line 7678 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_any; eval_inc2++; }
#line 13252 "parser.c" /* yacc.c:1646  */
    break;

  case 1008:
#line 7679 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_true; eval_inc2++; }
#line 13258 "parser.c" /* yacc.c:1646  */
    break;

  case 1009:
#line 7680 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_false; eval_inc2++; }
#line 13264 "parser.c" /* yacc.c:1646  */
    break;

  case 1010:
#line 7684 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 13270 "parser.c" /* yacc.c:1646  */
    break;

  case 1011:
#line 7685 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 13276 "parser.c" /* yacc.c:1646  */
    break;

  case 1012:
#line 7690 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), EVALUATE);
  }
#line 13284 "parser.c" /* yacc.c:1646  */
    break;

  case 1013:
#line 7694 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), EVALUATE);
  }
#line 13292 "parser.c" /* yacc.c:1646  */
    break;

  case 1014:
#line 7704 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("EXIT", 0);
    cobc_cs_check = CB_CS_EXIT;
  }
#line 13301 "parser.c" /* yacc.c:1646  */
    break;

  case 1015:
#line 7709 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
  }
#line 13309 "parser.c" /* yacc.c:1646  */
    break;

  case 1017:
#line 7717 "parser.y" /* yacc.c:1646  */
    {
    if (in_declaratives && use_global_ind) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT PROGRAM is not allowed within a USE GLOBAL procedure"));
    }
    if (current_program->prog_type != CB_PROGRAM_TYPE) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT PROGRAM only allowed within a PROGRAM type"));
    }
    if (current_program->flag_main) {
        check_unreached = 0;
    } else {
        check_unreached = 1;
    }
    if ((yyvsp[0]) != NULL) {
        cb_emit_move ((yyvsp[0]), CB_LIST_INIT (current_program->cb_return_code));
    }
    current_statement->name = (const char *)"EXIT PROGRAM";
    cb_emit_exit (0);
  }
#line 13334 "parser.c" /* yacc.c:1646  */
    break;

  case 1018:
#line 7738 "parser.y" /* yacc.c:1646  */
    {
    if (in_declaratives && use_global_ind) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT FUNCTION is not allowed within a USE GLOBAL procedure"));
    }
    if (current_program->prog_type != CB_FUNCTION_TYPE) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT FUNCTION only allowed within a FUNCTION type"));
    }
    check_unreached = 1;
    current_statement->name = (const char *)"EXIT FUNCTION";
    cb_emit_exit (0);
  }
#line 13352 "parser.c" /* yacc.c:1646  */
    break;

  case 1019:
#line 7752 "parser.y" /* yacc.c:1646  */
    {
    struct cb_perform   *p;
    cb_tree         plabel;
    char            name[64];

    if (!perform_stack) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT PERFORM is only valid with inline PERFORM"));
    } else if (CB_VALUE (perform_stack) != cb_error_node) {
        p = CB_PERFORM (CB_VALUE (perform_stack));
        if (!p->cycle_label) {
            sprintf (name, "EXIT PERFORM CYCLE %d", cb_id);
            p->cycle_label = cb_build_reference (name);
            plabel = cb_build_label (p->cycle_label, NULL);
            CB_LABEL (plabel)->flag_begin = 1;
            CB_LABEL (plabel)->flag_dummy_exit = 1;
        }
        current_statement->name = (const char *)"EXIT PERFORM CYCLE";
        cb_emit_goto (CB_LIST_INIT (p->cycle_label), NULL);
    }
  }
#line 13378 "parser.c" /* yacc.c:1646  */
    break;

  case 1020:
#line 7774 "parser.y" /* yacc.c:1646  */
    {
    struct cb_perform   *p;
    cb_tree         plabel;
    char            name[64];

    if (!perform_stack) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT PERFORM is only valid with inline PERFORM"));
    } else if (CB_VALUE (perform_stack) != cb_error_node) {
        p = CB_PERFORM (CB_VALUE (perform_stack));
        if (!p->exit_label) {
            sprintf (name, "EXIT PERFORM %d", cb_id);
            p->exit_label = cb_build_reference (name);
            plabel = cb_build_label (p->exit_label, NULL);
            CB_LABEL (plabel)->flag_begin = 1;
            CB_LABEL (plabel)->flag_dummy_exit = 1;
        }
        current_statement->name = (const char *)"EXIT PERFORM";
        cb_emit_goto (CB_LIST_INIT (p->exit_label), NULL);
    }
  }
#line 13404 "parser.c" /* yacc.c:1646  */
    break;

  case 1021:
#line 7796 "parser.y" /* yacc.c:1646  */
    {
    cb_tree plabel;
    char    name[64];

    if (!current_section) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT SECTION is only valid with an active SECTION"));
    } else {
        if (!current_section->exit_label) {
            sprintf (name, "EXIT SECTION %d", cb_id);
            current_section->exit_label = cb_build_reference (name);
            plabel = cb_build_label (current_section->exit_label, NULL);
            CB_LABEL (plabel)->flag_begin = 1;
            CB_LABEL (plabel)->flag_dummy_exit = 1;
        }
        current_statement->name = (const char *)"EXIT SECTION";
        cb_emit_goto (CB_LIST_INIT (current_section->exit_label), NULL);
    }
  }
#line 13428 "parser.c" /* yacc.c:1646  */
    break;

  case 1022:
#line 7816 "parser.y" /* yacc.c:1646  */
    {
    cb_tree plabel;
    char    name[64];

    if (!current_paragraph) {
        cb_error_x (CB_TREE (current_statement),
                _("EXIT PARAGRAPH is only valid with an active PARAGRAPH"));
    } else {
        if (!current_paragraph->exit_label) {
            sprintf (name, "EXIT PARAGRAPH %d", cb_id);
            current_paragraph->exit_label = cb_build_reference (name);
            plabel = cb_build_label (current_paragraph->exit_label, NULL);
            CB_LABEL (plabel)->flag_begin = 1;
            CB_LABEL (plabel)->flag_dummy_exit = 1;
        }
        current_statement->name = (const char *)"EXIT PARAGRAPH";
        cb_emit_goto (CB_LIST_INIT (current_paragraph->exit_label), NULL);
    }
  }
#line 13452 "parser.c" /* yacc.c:1646  */
    break;

  case 1023:
#line 7838 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 13458 "parser.c" /* yacc.c:1646  */
    break;

  case 1024:
#line 7839 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 13464 "parser.c" /* yacc.c:1646  */
    break;

  case 1025:
#line 7847 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("FREE", 0);
    current_statement->flag_no_based = 1;
  }
#line 13473 "parser.c" /* yacc.c:1646  */
    break;

  case 1027:
#line 7856 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_free ((yyvsp[0]));
  }
#line 13481 "parser.c" /* yacc.c:1646  */
    break;

  case 1028:
#line 7866 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("GENERATE", 0);
    PENDING("GENERATE");
  }
#line 13490 "parser.c" /* yacc.c:1646  */
    break;

  case 1031:
#line 7882 "parser.y" /* yacc.c:1646  */
    {
    if (!current_paragraph->flag_statement) {
        current_paragraph->flag_first_is_goto = 1;
    }
    begin_statement ("GO TO", 0);
    save_debug = start_debug;
    start_debug = 0;
  }
#line 13503 "parser.c" /* yacc.c:1646  */
    break;

  case 1033:
#line 7895 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_goto ((yyvsp[-1]), (yyvsp[0]));
    start_debug = save_debug;
  }
#line 13512 "parser.c" /* yacc.c:1646  */
    break;

  case 1034:
#line 7903 "parser.y" /* yacc.c:1646  */
    {
    check_unreached = 1;
    (yyval) = NULL;
  }
#line 13521 "parser.c" /* yacc.c:1646  */
    break;

  case 1035:
#line 7908 "parser.y" /* yacc.c:1646  */
    {
    check_unreached = 0;
    (yyval) = (yyvsp[0]);
  }
#line 13530 "parser.c" /* yacc.c:1646  */
    break;

  case 1036:
#line 7919 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("GOBACK", 0);
    check_unreached = 1;
    if ((yyvsp[0]) != NULL) {
        cb_emit_move ((yyvsp[0]), CB_LIST_INIT (current_program->cb_return_code));
    }
    cb_emit_exit (1U);
  }
#line 13543 "parser.c" /* yacc.c:1646  */
    break;

  case 1037:
#line 7934 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("IF", TERM_IF);
  }
#line 13551 "parser.c" /* yacc.c:1646  */
    break;

  case 1039:
#line 7943 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_if ((yyvsp[(-1) - (3)]), (yyvsp[-2]), (yyvsp[0]));
  }
#line 13559 "parser.c" /* yacc.c:1646  */
    break;

  case 1040:
#line 7947 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_if ((yyvsp[(-1) - (2)]), NULL, (yyvsp[0]));
  }
#line 13567 "parser.c" /* yacc.c:1646  */
    break;

  case 1041:
#line 7951 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_if ((yyvsp[(-1) - (1)]), (yyvsp[0]), NULL);
  }
#line 13575 "parser.c" /* yacc.c:1646  */
    break;

  case 1042:
#line 7958 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-4) - (0)]), IF);
  }
#line 13583 "parser.c" /* yacc.c:1646  */
    break;

  case 1043:
#line 7962 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-4) - (1)]), IF);
  }
#line 13591 "parser.c" /* yacc.c:1646  */
    break;

  case 1044:
#line 7972 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("INITIALIZE", 0);
  }
#line 13599 "parser.c" /* yacc.c:1646  */
    break;

  case 1046:
#line 7981 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_initialize ((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]));
  }
#line 13607 "parser.c" /* yacc.c:1646  */
    break;

  case 1047:
#line 7987 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 13613 "parser.c" /* yacc.c:1646  */
    break;

  case 1048:
#line 7988 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_true; }
#line 13619 "parser.c" /* yacc.c:1646  */
    break;

  case 1049:
#line 7992 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 13625 "parser.c" /* yacc.c:1646  */
    break;

  case 1050:
#line 7993 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_true; }
#line 13631 "parser.c" /* yacc.c:1646  */
    break;

  case 1051:
#line 7994 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[-2]); }
#line 13637 "parser.c" /* yacc.c:1646  */
    break;

  case 1052:
#line 7999 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 13645 "parser.c" /* yacc.c:1646  */
    break;

  case 1053:
#line 8003 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13653 "parser.c" /* yacc.c:1646  */
    break;

  case 1054:
#line 8010 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13661 "parser.c" /* yacc.c:1646  */
    break;

  case 1055:
#line 8015 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0]));
  }
#line 13669 "parser.c" /* yacc.c:1646  */
    break;

  case 1056:
#line 8022 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_BUILD_PAIR ((yyvsp[-3]), (yyvsp[0]));
  }
#line 13677 "parser.c" /* yacc.c:1646  */
    break;

  case 1057:
#line 8028 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (CB_CATEGORY_ALPHABETIC); }
#line 13683 "parser.c" /* yacc.c:1646  */
    break;

  case 1058:
#line 8029 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (CB_CATEGORY_ALPHANUMERIC); }
#line 13689 "parser.c" /* yacc.c:1646  */
    break;

  case 1059:
#line 8030 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (CB_CATEGORY_NUMERIC); }
#line 13695 "parser.c" /* yacc.c:1646  */
    break;

  case 1060:
#line 8031 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (CB_CATEGORY_ALPHANUMERIC_EDITED); }
#line 13701 "parser.c" /* yacc.c:1646  */
    break;

  case 1061:
#line 8032 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (CB_CATEGORY_NUMERIC_EDITED); }
#line 13707 "parser.c" /* yacc.c:1646  */
    break;

  case 1062:
#line 8033 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (CB_CATEGORY_NATIONAL); }
#line 13713 "parser.c" /* yacc.c:1646  */
    break;

  case 1063:
#line 8034 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (CB_CATEGORY_NATIONAL_EDITED); }
#line 13719 "parser.c" /* yacc.c:1646  */
    break;

  case 1064:
#line 8039 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 13727 "parser.c" /* yacc.c:1646  */
    break;

  case 1065:
#line 8043 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_true;
  }
#line 13735 "parser.c" /* yacc.c:1646  */
    break;

  case 1066:
#line 8052 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("INITIATE", 0);
    PENDING("INITIATE");
  }
#line 13744 "parser.c" /* yacc.c:1646  */
    break;

  case 1068:
#line 8061 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    if ((yyvsp[0]) != cb_error_node) {
    }
  }
#line 13754 "parser.c" /* yacc.c:1646  */
    break;

  case 1069:
#line 8067 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    if ((yyvsp[0]) != cb_error_node) {
    }
  }
#line 13764 "parser.c" /* yacc.c:1646  */
    break;

  case 1070:
#line 8078 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("INSPECT", 0);
    inspect_keyword = 0;
  }
#line 13773 "parser.c" /* yacc.c:1646  */
    break;

  case 1073:
#line 8091 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13781 "parser.c" /* yacc.c:1646  */
    break;

  case 1074:
#line 8095 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13789 "parser.c" /* yacc.c:1646  */
    break;

  case 1075:
#line 8099 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13797 "parser.c" /* yacc.c:1646  */
    break;

  case 1080:
#line 8115 "parser.y" /* yacc.c:1646  */
    {
    cb_init_tallying ();
  }
#line 13805 "parser.c" /* yacc.c:1646  */
    break;

  case 1081:
#line 8119 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_inspect ((yyvsp[-3]), (yyvsp[0]), cb_int0, 0);
    (yyval) = (yyvsp[-3]);
  }
#line 13814 "parser.c" /* yacc.c:1646  */
    break;

  case 1082:
#line 8129 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_inspect ((yyvsp[-2]), (yyvsp[0]), cb_int1, 1);
    inspect_keyword = 0;
  }
#line 13823 "parser.c" /* yacc.c:1646  */
    break;

  case 1083:
#line 8139 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;
    x = cb_build_converting ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
    cb_emit_inspect ((yyvsp[-5]), x, cb_int0, 2);
  }
#line 13833 "parser.c" /* yacc.c:1646  */
    break;

  case 1084:
#line 8147 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 13839 "parser.c" /* yacc.c:1646  */
    break;

  case 1085:
#line 8148 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
#line 13845 "parser.c" /* yacc.c:1646  */
    break;

  case 1086:
#line 8152 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_tallying_data ((yyvsp[-1])); }
#line 13851 "parser.c" /* yacc.c:1646  */
    break;

  case 1087:
#line 8153 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_tallying_characters ((yyvsp[0])); }
#line 13857 "parser.c" /* yacc.c:1646  */
    break;

  case 1088:
#line 8154 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_tallying_all (); }
#line 13863 "parser.c" /* yacc.c:1646  */
    break;

  case 1089:
#line 8155 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_tallying_leading (); }
#line 13869 "parser.c" /* yacc.c:1646  */
    break;

  case 1090:
#line 8156 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_tallying_trailing (); }
#line 13875 "parser.c" /* yacc.c:1646  */
    break;

  case 1091:
#line 8157 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_tallying_value ((yyvsp[-1]), (yyvsp[0])); }
#line 13881 "parser.c" /* yacc.c:1646  */
    break;

  case 1092:
#line 8161 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 13887 "parser.c" /* yacc.c:1646  */
    break;

  case 1093:
#line 8162 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
#line 13893 "parser.c" /* yacc.c:1646  */
    break;

  case 1094:
#line 8167 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_replacing_characters ((yyvsp[-1]), (yyvsp[0]));
    inspect_keyword = 0;
  }
#line 13902 "parser.c" /* yacc.c:1646  */
    break;

  case 1095:
#line 8172 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13910 "parser.c" /* yacc.c:1646  */
    break;

  case 1096:
#line 8178 "parser.y" /* yacc.c:1646  */
    { /* Nothing */ }
#line 13916 "parser.c" /* yacc.c:1646  */
    break;

  case 1097:
#line 8179 "parser.y" /* yacc.c:1646  */
    { inspect_keyword = 1; }
#line 13922 "parser.c" /* yacc.c:1646  */
    break;

  case 1098:
#line 8180 "parser.y" /* yacc.c:1646  */
    { inspect_keyword = 2; }
#line 13928 "parser.c" /* yacc.c:1646  */
    break;

  case 1099:
#line 8181 "parser.y" /* yacc.c:1646  */
    { inspect_keyword = 3; }
#line 13934 "parser.c" /* yacc.c:1646  */
    break;

  case 1100:
#line 8182 "parser.y" /* yacc.c:1646  */
    { inspect_keyword = 4; }
#line 13940 "parser.c" /* yacc.c:1646  */
    break;

  case 1101:
#line 8187 "parser.y" /* yacc.c:1646  */
    {
    switch (inspect_keyword) {
        case 1:
            (yyval) = cb_build_replacing_all ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
            break;
        case 2:
            (yyval) = cb_build_replacing_leading ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
            break;
        case 3:
            (yyval) = cb_build_replacing_first ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
            break;
        case 4:
            (yyval) = cb_build_replacing_trailing ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
            break;
        default:
            cb_error_x (CB_TREE (current_statement),
                    _("INSPECT missing a keyword"));
            (yyval) = cb_build_replacing_all ((yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
            break;
    }
  }
#line 13966 "parser.c" /* yacc.c:1646  */
    break;

  case 1102:
#line 8214 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_inspect_region_start ();
  }
#line 13974 "parser.c" /* yacc.c:1646  */
    break;

  case 1103:
#line 8218 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 13982 "parser.c" /* yacc.c:1646  */
    break;

  case 1104:
#line 8225 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-3]), CB_BUILD_FUNCALL_1 ("cob_inspect_before", (yyvsp[0])));
  }
#line 13990 "parser.c" /* yacc.c:1646  */
    break;

  case 1105:
#line 8229 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-3]), CB_BUILD_FUNCALL_1 ("cob_inspect_after", (yyvsp[0])));
  }
#line 13998 "parser.c" /* yacc.c:1646  */
    break;

  case 1106:
#line 8238 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("MERGE", 0);
    current_statement->flag_merge = 1;
  }
#line 14007 "parser.c" /* yacc.c:1646  */
    break;

  case 1108:
#line 8250 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("MOVE", 0);
  }
#line 14015 "parser.c" /* yacc.c:1646  */
    break;

  case 1110:
#line 8258 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_move ((yyvsp[-2]), (yyvsp[0]));
  }
#line 14023 "parser.c" /* yacc.c:1646  */
    break;

  case 1111:
#line 8262 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_move_corresponding ((yyvsp[-2]), (yyvsp[0]));
  }
#line 14031 "parser.c" /* yacc.c:1646  */
    break;

  case 1112:
#line 8272 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("MULTIPLY", TERM_MULTIPLY);
  }
#line 14039 "parser.c" /* yacc.c:1646  */
    break;

  case 1114:
#line 8281 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), '*', (yyvsp[-3]));
  }
#line 14047 "parser.c" /* yacc.c:1646  */
    break;

  case 1115:
#line 8285 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_op ((yyvsp[-5]), '*', (yyvsp[-3])));
  }
#line 14055 "parser.c" /* yacc.c:1646  */
    break;

  case 1116:
#line 8292 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), MULTIPLY);
  }
#line 14063 "parser.c" /* yacc.c:1646  */
    break;

  case 1117:
#line 8296 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), MULTIPLY);
  }
#line 14071 "parser.c" /* yacc.c:1646  */
    break;

  case 1118:
#line 8306 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("OPEN", 0);
  }
#line 14079 "parser.c" /* yacc.c:1646  */
    break;

  case 1120:
#line 8314 "parser.y" /* yacc.c:1646  */
    {
    cb_tree l;
    cb_tree x;

    if ((yyvsp[-2]) && (yyvsp[0])) {
        cb_error_x (CB_TREE (current_statement),
                _("%s and %s are mutually exclusive"), "SHARING", "LOCK clauses");
    }
    if ((yyvsp[0])) {
        x = (yyvsp[0]);
    } else {
        x = (yyvsp[-2]);
    }
    for (l = (yyvsp[-1]); l; l = CB_CHAIN (l)) {
        if (CB_VALID_TREE (CB_VALUE (l))) {
            begin_implicit_statement ();
            cb_emit_open (CB_VALUE (l), (yyvsp[-3]), x);
        }
    }
  }
#line 14104 "parser.c" /* yacc.c:1646  */
    break;

  case 1121:
#line 8335 "parser.y" /* yacc.c:1646  */
    {
    cb_tree l;
    cb_tree x;

    if ((yyvsp[-2]) && (yyvsp[0])) {
        cb_error_x (CB_TREE (current_statement),
                _("%s and %s are mutually exclusive"), "SHARING", "LOCK clauses");
    }
    if ((yyvsp[0])) {
        x = (yyvsp[0]);
    } else {
        x = (yyvsp[-2]);
    }
    for (l = (yyvsp[-1]); l; l = CB_CHAIN (l)) {
        if (CB_VALID_TREE (CB_VALUE (l))) {
            begin_implicit_statement ();
            cb_emit_open (CB_VALUE (l), (yyvsp[-3]), x);
        }
    }
  }
#line 14129 "parser.c" /* yacc.c:1646  */
    break;

  case 1122:
#line 8358 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_OPEN_INPUT); }
#line 14135 "parser.c" /* yacc.c:1646  */
    break;

  case 1123:
#line 8359 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_OPEN_OUTPUT); }
#line 14141 "parser.c" /* yacc.c:1646  */
    break;

  case 1124:
#line 8360 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_OPEN_I_O); }
#line 14147 "parser.c" /* yacc.c:1646  */
    break;

  case 1125:
#line 8361 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_OPEN_EXTEND); }
#line 14153 "parser.c" /* yacc.c:1646  */
    break;

  case 1126:
#line 8365 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 14159 "parser.c" /* yacc.c:1646  */
    break;

  case 1127:
#line 8366 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 14165 "parser.c" /* yacc.c:1646  */
    break;

  case 1128:
#line 8370 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 14171 "parser.c" /* yacc.c:1646  */
    break;

  case 1129:
#line 8371 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 14177 "parser.c" /* yacc.c:1646  */
    break;

  case 1130:
#line 8372 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_LOCK_OPEN_EXCLUSIVE); }
#line 14183 "parser.c" /* yacc.c:1646  */
    break;

  case 1131:
#line 8374 "parser.y" /* yacc.c:1646  */
    {
    (void)cb_verify (CB_OBSOLETE, "REVERSED");
    (yyval) = NULL;
  }
#line 14192 "parser.c" /* yacc.c:1646  */
    break;

  case 1132:
#line 8385 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("PERFORM", TERM_PERFORM);
    /* Turn off field debug - PERFORM is special */
    save_debug = start_debug;
    start_debug = 0;
  }
#line 14203 "parser.c" /* yacc.c:1646  */
    break;

  case 1134:
#line 8396 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_perform ((yyvsp[0]), (yyvsp[-1]));
    start_debug = save_debug;
  }
#line 14212 "parser.c" /* yacc.c:1646  */
    break;

  case 1135:
#line 8401 "parser.y" /* yacc.c:1646  */
    {
    CB_ADD_TO_CHAIN ((yyvsp[0]), perform_stack);
    /* Restore field debug before inline statements */
    start_debug = save_debug;
  }
#line 14222 "parser.c" /* yacc.c:1646  */
    break;

  case 1136:
#line 8407 "parser.y" /* yacc.c:1646  */
    {
    perform_stack = CB_CHAIN (perform_stack);
    cb_emit_perform ((yyvsp[-3]), (yyvsp[-1]));
  }
#line 14231 "parser.c" /* yacc.c:1646  */
    break;

  case 1137:
#line 8412 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_perform ((yyvsp[-1]), NULL);
    start_debug = save_debug;
  }
#line 14240 "parser.c" /* yacc.c:1646  */
    break;

  case 1138:
#line 8420 "parser.y" /* yacc.c:1646  */
    {
    if (cb_relaxed_syntax_check) {
        TERMINATOR_WARNING ((yyvsp[(-4) - (0)]), PERFORM);
    } else {
        TERMINATOR_ERROR ((yyvsp[(-4) - (0)]), PERFORM);
    }
  }
#line 14252 "parser.c" /* yacc.c:1646  */
    break;

  case 1139:
#line 8428 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-4) - (1)]), PERFORM);
  }
#line 14260 "parser.c" /* yacc.c:1646  */
    break;

  case 1140:
#line 8435 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), PERFORM);
  }
#line 14268 "parser.c" /* yacc.c:1646  */
    break;

  case 1141:
#line 8439 "parser.y" /* yacc.c:1646  */
    {
    if (cb_relaxed_syntax_check) {
        TERMINATOR_WARNING ((yyvsp[(-2) - (1)]), PERFORM);
    } else {
        TERMINATOR_ERROR ((yyvsp[(-2) - (1)]), PERFORM);
    }
    /* Put the dot token back into the stack for reparse */
    cb_unput_dot ();
  }
#line 14282 "parser.c" /* yacc.c:1646  */
    break;

  case 1142:
#line 8452 "parser.y" /* yacc.c:1646  */
    {
    /* Return from $1 */
    CB_REFERENCE ((yyvsp[0]))->length = cb_true;
    CB_REFERENCE ((yyvsp[0]))->flag_decl_ok = 1;
    (yyval) = CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[0]));
  }
#line 14293 "parser.c" /* yacc.c:1646  */
    break;

  case 1143:
#line 8459 "parser.y" /* yacc.c:1646  */
    {
    /* Return from $3 */
    CB_REFERENCE ((yyvsp[0]))->length = cb_true;
    CB_REFERENCE ((yyvsp[-2]))->flag_decl_ok = 1;
    CB_REFERENCE ((yyvsp[0]))->flag_decl_ok = 1;
    (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), (yyvsp[0]));
  }
#line 14305 "parser.c" /* yacc.c:1646  */
    break;

  case 1144:
#line 8470 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_perform_once (NULL);
  }
#line 14313 "parser.c" /* yacc.c:1646  */
    break;

  case 1145:
#line 8474 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_perform_times ((yyvsp[-1]));
    current_program->loop_counter++;
  }
#line 14322 "parser.c" /* yacc.c:1646  */
    break;

  case 1146:
#line 8479 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_perform_forever (NULL);
  }
#line 14330 "parser.c" /* yacc.c:1646  */
    break;

  case 1147:
#line 8483 "parser.y" /* yacc.c:1646  */
    {
    cb_tree varying;

    if (!(yyvsp[0])) {
        (yyval) = cb_build_perform_forever (NULL);
    } else {
        varying = CB_LIST_INIT (cb_build_perform_varying (NULL, NULL, NULL, (yyvsp[0])));
        (yyval) = cb_build_perform_until ((yyvsp[-2]), varying);
    }
  }
#line 14345 "parser.c" /* yacc.c:1646  */
    break;

  case 1148:
#line 8494 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_perform_until ((yyvsp[-2]), (yyvsp[0]));
  }
#line 14353 "parser.c" /* yacc.c:1646  */
    break;

  case 1149:
#line 8500 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_BEFORE; }
#line 14359 "parser.c" /* yacc.c:1646  */
    break;

  case 1150:
#line 8501 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 14365 "parser.c" /* yacc.c:1646  */
    break;

  case 1151:
#line 8505 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 14371 "parser.c" /* yacc.c:1646  */
    break;

  case 1152:
#line 8506 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 14377 "parser.c" /* yacc.c:1646  */
    break;

  case 1153:
#line 8509 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 14383 "parser.c" /* yacc.c:1646  */
    break;

  case 1154:
#line 8511 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
#line 14389 "parser.c" /* yacc.c:1646  */
    break;

  case 1155:
#line 8516 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_perform_varying ((yyvsp[-6]), (yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]));
  }
#line 14397 "parser.c" /* yacc.c:1646  */
    break;

  case 1156:
#line 8526 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("READ", TERM_READ);
  }
#line 14405 "parser.c" /* yacc.c:1646  */
    break;

  case 1158:
#line 8535 "parser.y" /* yacc.c:1646  */
    {
    if (CB_VALID_TREE ((yyvsp[-6]))) {
        struct cb_file  *cf;

        cf = CB_FILE(cb_ref ((yyvsp[-6])));
        if ((yyvsp[-2]) && (cf->lock_mode & COB_LOCK_AUTOMATIC)) {
            cb_error_x (CB_TREE (current_statement),
                    _("LOCK clause invalid with file LOCK AUTOMATIC"));
        } else if ((yyvsp[-1]) &&
              (cf->organization != COB_ORG_RELATIVE &&
               cf->organization != COB_ORG_INDEXED)) {
            cb_error_x (CB_TREE (current_statement),
                    _("KEY clause invalid with this file type"));
        } else if (current_statement->handler_id == COB_EC_I_O_INVALID_KEY &&
               (cf->organization != COB_ORG_RELATIVE &&
                cf->organization != COB_ORG_INDEXED)) {
            cb_error_x (CB_TREE (current_statement),
                    _("INVALID KEY clause invalid with this file type"));
        } else {
            cb_emit_read ((yyvsp[-6]), (yyvsp[-5]), (yyvsp[-3]), (yyvsp[-1]), (yyvsp[-2]));
        }
    }
  }
#line 14433 "parser.c" /* yacc.c:1646  */
    break;

  case 1159:
#line 8561 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 14439 "parser.c" /* yacc.c:1646  */
    break;

  case 1160:
#line 8562 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 14445 "parser.c" /* yacc.c:1646  */
    break;

  case 1161:
#line 8567 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 14453 "parser.c" /* yacc.c:1646  */
    break;

  case 1162:
#line 8571 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int3;
  }
#line 14461 "parser.c" /* yacc.c:1646  */
    break;

  case 1163:
#line 8575 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int1;
  }
#line 14469 "parser.c" /* yacc.c:1646  */
    break;

  case 1164:
#line 8579 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int1;
  }
#line 14477 "parser.c" /* yacc.c:1646  */
    break;

  case 1165:
#line 8583 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int2;
  }
#line 14485 "parser.c" /* yacc.c:1646  */
    break;

  case 1166:
#line 8587 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int3;
  }
#line 14493 "parser.c" /* yacc.c:1646  */
    break;

  case 1167:
#line 8591 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int4;
  }
#line 14501 "parser.c" /* yacc.c:1646  */
    break;

  case 1168:
#line 8597 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 14507 "parser.c" /* yacc.c:1646  */
    break;

  case 1169:
#line 8598 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 14513 "parser.c" /* yacc.c:1646  */
    break;

  case 1172:
#line 8608 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), READ);
  }
#line 14521 "parser.c" /* yacc.c:1646  */
    break;

  case 1173:
#line 8612 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), READ);
  }
#line 14529 "parser.c" /* yacc.c:1646  */
    break;

  case 1174:
#line 8622 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("READY TRACE", 0);
    cb_emit_ready_trace ();
  }
#line 14538 "parser.c" /* yacc.c:1646  */
    break;

  case 1175:
#line 8632 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("RELEASE", 0);
  }
#line 14546 "parser.c" /* yacc.c:1646  */
    break;

  case 1177:
#line 8640 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_release ((yyvsp[-1]), (yyvsp[0]));
  }
#line 14554 "parser.c" /* yacc.c:1646  */
    break;

  case 1178:
#line 8650 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("RESET TRACE", 0);
    cb_emit_reset_trace ();
  }
#line 14563 "parser.c" /* yacc.c:1646  */
    break;

  case 1179:
#line 8660 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("RETURN", TERM_RETURN);
  }
#line 14571 "parser.c" /* yacc.c:1646  */
    break;

  case 1181:
#line 8669 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_return ((yyvsp[-3]), (yyvsp[-1]));
  }
#line 14579 "parser.c" /* yacc.c:1646  */
    break;

  case 1182:
#line 8676 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), RETURN);
  }
#line 14587 "parser.c" /* yacc.c:1646  */
    break;

  case 1183:
#line 8680 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), RETURN);
  }
#line 14595 "parser.c" /* yacc.c:1646  */
    break;

  case 1184:
#line 8690 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("REWRITE", TERM_REWRITE);
    /* Special in debugging mode */
    save_debug = start_debug;
    start_debug = 0;
  }
#line 14606 "parser.c" /* yacc.c:1646  */
    break;

  case 1186:
#line 8702 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_rewrite ((yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]));
    start_debug = save_debug;
  }
#line 14615 "parser.c" /* yacc.c:1646  */
    break;

  case 1187:
#line 8710 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 14623 "parser.c" /* yacc.c:1646  */
    break;

  case 1188:
#line 8714 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int1;
  }
#line 14631 "parser.c" /* yacc.c:1646  */
    break;

  case 1189:
#line 8718 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int2;
  }
#line 14639 "parser.c" /* yacc.c:1646  */
    break;

  case 1190:
#line 8725 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), REWRITE);
  }
#line 14647 "parser.c" /* yacc.c:1646  */
    break;

  case 1191:
#line 8729 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), REWRITE);
  }
#line 14655 "parser.c" /* yacc.c:1646  */
    break;

  case 1192:
#line 8739 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("ROLLBACK", 0);
    cb_emit_rollback ();
  }
#line 14664 "parser.c" /* yacc.c:1646  */
    break;

  case 1193:
#line 8750 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("SEARCH", TERM_SEARCH);
  }
#line 14672 "parser.c" /* yacc.c:1646  */
    break;

  case 1195:
#line 8759 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_search ((yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]));
  }
#line 14680 "parser.c" /* yacc.c:1646  */
    break;

  case 1196:
#line 8764 "parser.y" /* yacc.c:1646  */
    {
    current_statement->name = (const char *)"SEARCH ALL";
    cb_emit_search_all ((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-1]), (yyvsp[0]));
  }
#line 14689 "parser.c" /* yacc.c:1646  */
    break;

  case 1197:
#line 8771 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 14695 "parser.c" /* yacc.c:1646  */
    break;

  case 1198:
#line 8772 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 14701 "parser.c" /* yacc.c:1646  */
    break;

  case 1199:
#line 8777 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 14709 "parser.c" /* yacc.c:1646  */
    break;

  case 1200:
#line 8782 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 14717 "parser.c" /* yacc.c:1646  */
    break;

  case 1201:
#line 8789 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 14725 "parser.c" /* yacc.c:1646  */
    break;

  case 1202:
#line 8793 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[0]), (yyvsp[-1]));
  }
#line 14733 "parser.c" /* yacc.c:1646  */
    break;

  case 1203:
#line 8801 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_if_check_break ((yyvsp[-1]), (yyvsp[0]));
  }
#line 14741 "parser.c" /* yacc.c:1646  */
    break;

  case 1204:
#line 8808 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), SEARCH);
  }
#line 14749 "parser.c" /* yacc.c:1646  */
    break;

  case 1205:
#line 8812 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), SEARCH);
  }
#line 14757 "parser.c" /* yacc.c:1646  */
    break;

  case 1206:
#line 8822 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("SET", 0);
    setattr_val_on = 0;
    setattr_val_off = 0;
    cobc_cs_check = CB_CS_SET;
  }
#line 14768 "parser.c" /* yacc.c:1646  */
    break;

  case 1207:
#line 8829 "parser.y" /* yacc.c:1646  */
    {
    cobc_cs_check = 0;
  }
#line 14776 "parser.c" /* yacc.c:1646  */
    break;

  case 1215:
#line 8845 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 14782 "parser.c" /* yacc.c:1646  */
    break;

  case 1216:
#line 8846 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 14788 "parser.c" /* yacc.c:1646  */
    break;

  case 1217:
#line 8850 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 14794 "parser.c" /* yacc.c:1646  */
    break;

  case 1218:
#line 8851 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 14800 "parser.c" /* yacc.c:1646  */
    break;

  case 1219:
#line 8858 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_setenv ((yyvsp[-2]), (yyvsp[0]));
  }
#line 14808 "parser.c" /* yacc.c:1646  */
    break;

  case 1220:
#line 8867 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_set_attribute ((yyvsp[-2]), setattr_val_on, setattr_val_off);
  }
#line 14816 "parser.c" /* yacc.c:1646  */
    break;

  case 1223:
#line 8879 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_BELL);
  }
#line 14824 "parser.c" /* yacc.c:1646  */
    break;

  case 1224:
#line 8883 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_BLINK);
  }
#line 14832 "parser.c" /* yacc.c:1646  */
    break;

  case 1225:
#line 8887 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_HIGHLIGHT);
    check_not_highlight_and_lowlight (setattr_val_on | setattr_val_off,
                      COB_SCREEN_HIGHLIGHT);
  }
#line 14842 "parser.c" /* yacc.c:1646  */
    break;

  case 1226:
#line 8893 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_LOWLIGHT);
    check_not_highlight_and_lowlight (setattr_val_on | setattr_val_off,
                      COB_SCREEN_LOWLIGHT);
  }
#line 14852 "parser.c" /* yacc.c:1646  */
    break;

  case 1227:
#line 8899 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_REVERSE);
  }
#line 14860 "parser.c" /* yacc.c:1646  */
    break;

  case 1228:
#line 8903 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_UNDERLINE);
  }
#line 14868 "parser.c" /* yacc.c:1646  */
    break;

  case 1229:
#line 8907 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_LEFTLINE);
  }
#line 14876 "parser.c" /* yacc.c:1646  */
    break;

  case 1230:
#line 8911 "parser.y" /* yacc.c:1646  */
    {
    bit_set_attr ((yyvsp[0]), COB_SCREEN_OVERLINE);
  }
#line 14884 "parser.c" /* yacc.c:1646  */
    break;

  case 1231:
#line 8920 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_set_to ((yyvsp[-3]), cb_build_ppointer ((yyvsp[0])));
  }
#line 14892 "parser.c" /* yacc.c:1646  */
    break;

  case 1232:
#line 8924 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_set_to ((yyvsp[-2]), (yyvsp[0]));
  }
#line 14900 "parser.c" /* yacc.c:1646  */
    break;

  case 1233:
#line 8933 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_set_up_down ((yyvsp[-3]), (yyvsp[-2]), (yyvsp[0]));
  }
#line 14908 "parser.c" /* yacc.c:1646  */
    break;

  case 1236:
#line 8947 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_set_on_off ((yyvsp[-2]), (yyvsp[0]));
  }
#line 14916 "parser.c" /* yacc.c:1646  */
    break;

  case 1239:
#line 8961 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_set_true ((yyvsp[-2]));
  }
#line 14924 "parser.c" /* yacc.c:1646  */
    break;

  case 1240:
#line 8965 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_set_false ((yyvsp[-2]));
  }
#line 14932 "parser.c" /* yacc.c:1646  */
    break;

  case 1241:
#line 8974 "parser.y" /* yacc.c:1646  */
    {
      cb_emit_set_last_exception_to_off ();
  }
#line 14940 "parser.c" /* yacc.c:1646  */
    break;

  case 1242:
#line 8983 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("SORT", 0);
  }
#line 14948 "parser.c" /* yacc.c:1646  */
    break;

  case 1244:
#line 8991 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;

    x = cb_ref ((yyvsp[-3]));
    if (CB_VALID_TREE (x)) {
        if (CB_INVALID_TREE ((yyvsp[-2]))) {
            if (CB_FILE_P (x)) {
                cb_error (_("File sort requires KEY phrase"));
            } else {
                cb_error (_("Table sort without keys not implemented yet"));
            }
            (yyval) = NULL;
        } else {
            cb_emit_sort_init ((yyvsp[-3]), (yyvsp[-2]), (yyvsp[0]));
            (yyval)= (yyvsp[-3]);
        }
    } else {
        (yyval) = NULL;
    }
  }
#line 14973 "parser.c" /* yacc.c:1646  */
    break;

  case 1245:
#line 9012 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[-2]) && CB_VALID_TREE ((yyvsp[-6]))) {
        cb_emit_sort_finish ((yyvsp[-6]));
    }
  }
#line 14983 "parser.c" /* yacc.c:1646  */
    break;

  case 1246:
#line 9021 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 14991 "parser.c" /* yacc.c:1646  */
    break;

  case 1247:
#line 9026 "parser.y" /* yacc.c:1646  */
    {
    cb_tree l;
    cb_tree lparm;

    if ((yyvsp[0]) == NULL) {
        l = CB_LIST_INIT (NULL);
    } else {
        l = (yyvsp[0]);
    }
    lparm = l;
    for (; l; l = CB_CHAIN (l)) {
        CB_PURPOSE (l) = (yyvsp[-2]);
    }
    (yyval) = cb_list_append ((yyvsp[-4]), lparm);
  }
#line 15011 "parser.c" /* yacc.c:1646  */
    break;

  case 1248:
#line 9044 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 15017 "parser.c" /* yacc.c:1646  */
    break;

  case 1249:
#line 9045 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 15023 "parser.c" /* yacc.c:1646  */
    break;

  case 1251:
#line 9050 "parser.y" /* yacc.c:1646  */
    {
    /* The OC sort is a stable sort. ie. Dups are per default in order */
    /* Therefore nothing to do here */
  }
#line 15032 "parser.c" /* yacc.c:1646  */
    break;

  case 1252:
#line 9057 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_null; }
#line 15038 "parser.c" /* yacc.c:1646  */
    break;

  case 1253:
#line 9058 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_ref ((yyvsp[0])); }
#line 15044 "parser.c" /* yacc.c:1646  */
    break;

  case 1254:
#line 9063 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0]) && CB_FILE_P (cb_ref ((yyvsp[0])))) {
        cb_error (_("File sort requires USING or INPUT PROCEDURE"));
    }
  }
#line 15054 "parser.c" /* yacc.c:1646  */
    break;

  case 1255:
#line 9069 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[-2])) {
        if (!CB_FILE_P (cb_ref ((yyvsp[-2])))) {
            cb_error (_("USING invalid with table SORT"));
        } else {
            cb_emit_sort_using ((yyvsp[-2]), (yyvsp[0]));
        }
    }
  }
#line 15068 "parser.c" /* yacc.c:1646  */
    break;

  case 1256:
#line 9079 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[-4])) {
        if (!CB_FILE_P (cb_ref ((yyvsp[-4])))) {
            cb_error (_("INPUT PROCEDURE invalid with table SORT"));
        } else if (current_statement->flag_merge) {
            cb_error (_("INPUT PROCEDURE invalid with MERGE"));
        } else {
            cb_emit_sort_input ((yyvsp[0]));
        }
    }
  }
#line 15084 "parser.c" /* yacc.c:1646  */
    break;

  case 1257:
#line 9094 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (0)]) && CB_FILE_P (cb_ref ((yyvsp[(-1) - (0)])))) {
        cb_error (_("File sort requires GIVING or OUTPUT PROCEDURE"));
    }
  }
#line 15094 "parser.c" /* yacc.c:1646  */
    break;

  case 1258:
#line 9100 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (2)])) {
        if (!CB_FILE_P (cb_ref ((yyvsp[(-1) - (2)])))) {
            cb_error (_("GIVING invalid with table SORT"));
        } else {
            cb_emit_sort_giving ((yyvsp[(-1) - (2)]), (yyvsp[0]));
        }
    }
  }
#line 15108 "parser.c" /* yacc.c:1646  */
    break;

  case 1259:
#line 9110 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[(-1) - (4)])) {
        if (!CB_FILE_P (cb_ref ((yyvsp[(-1) - (4)])))) {
            cb_error (_("OUTPUT PROCEDURE invalid with table SORT"));
        } else {
            cb_emit_sort_output ((yyvsp[0]));
        }
    }
  }
#line 15122 "parser.c" /* yacc.c:1646  */
    break;

  case 1260:
#line 9126 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("START", TERM_START);
    start_tree = cb_int (COB_EQ);
  }
#line 15131 "parser.c" /* yacc.c:1646  */
    break;

  case 1262:
#line 9136 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[-1]) && !(yyvsp[-2])) {
        cb_error_x (CB_TREE (current_statement),
                _("SIZE/LENGTH invalid here"));
    } else {
        cb_emit_start ((yyvsp[-3]), start_tree, (yyvsp[-2]), (yyvsp[-1]));
    }
  }
#line 15144 "parser.c" /* yacc.c:1646  */
    break;

  case 1263:
#line 9148 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 15152 "parser.c" /* yacc.c:1646  */
    break;

  case 1264:
#line 9152 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 15160 "parser.c" /* yacc.c:1646  */
    break;

  case 1265:
#line 9159 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 15168 "parser.c" /* yacc.c:1646  */
    break;

  case 1266:
#line 9163 "parser.y" /* yacc.c:1646  */
    {
    start_tree = (yyvsp[-1]);
    (yyval) = (yyvsp[0]);
  }
#line 15177 "parser.c" /* yacc.c:1646  */
    break;

  case 1267:
#line 9168 "parser.y" /* yacc.c:1646  */
    {
    start_tree = cb_int (COB_FI);
    (yyval) = NULL;
  }
#line 15186 "parser.c" /* yacc.c:1646  */
    break;

  case 1268:
#line 9173 "parser.y" /* yacc.c:1646  */
    {
    start_tree = cb_int (COB_LA);
    (yyval) = NULL;
  }
#line 15195 "parser.c" /* yacc.c:1646  */
    break;

  case 1269:
#line 9180 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_EQ); }
#line 15201 "parser.c" /* yacc.c:1646  */
    break;

  case 1270:
#line 9181 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int ((yyvsp[-1]) ? COB_LE : COB_GT); }
#line 15207 "parser.c" /* yacc.c:1646  */
    break;

  case 1271:
#line 9182 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int ((yyvsp[-1]) ? COB_GE : COB_LT); }
#line 15213 "parser.c" /* yacc.c:1646  */
    break;

  case 1272:
#line 9183 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int ((yyvsp[-1]) ? COB_LT : COB_GE); }
#line 15219 "parser.c" /* yacc.c:1646  */
    break;

  case 1273:
#line 9184 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int ((yyvsp[-1]) ? COB_GT : COB_LE); }
#line 15225 "parser.c" /* yacc.c:1646  */
    break;

  case 1274:
#line 9185 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (COB_NE); }
#line 15231 "parser.c" /* yacc.c:1646  */
    break;

  case 1275:
#line 9190 "parser.y" /* yacc.c:1646  */
    {
    cb_error_x (CB_TREE (current_statement),
            _("NOT EQUAL condition disallowed on START statement"));
  }
#line 15240 "parser.c" /* yacc.c:1646  */
    break;

  case 1278:
#line 9203 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), START);
  }
#line 15248 "parser.c" /* yacc.c:1646  */
    break;

  case 1279:
#line 9207 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), START);
  }
#line 15256 "parser.c" /* yacc.c:1646  */
    break;

  case 1280:
#line 9217 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("STOP RUN", 0);
  }
#line 15264 "parser.c" /* yacc.c:1646  */
    break;

  case 1281:
#line 9221 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_stop_run ((yyvsp[0]));
    check_unreached = 1;
    cobc_cs_check = 0;
  }
#line 15274 "parser.c" /* yacc.c:1646  */
    break;

  case 1282:
#line 9227 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("STOP", 0);
    cb_verify (cb_stop_literal_statement, "STOP literal");
    cb_emit_display (CB_LIST_INIT ((yyvsp[0])), cb_int0, cb_int1, NULL,
             NULL);
    cb_emit_accept (cb_null, NULL, NULL);
    cobc_cs_check = 0;
  }
#line 15287 "parser.c" /* yacc.c:1646  */
    break;

  case 1283:
#line 9239 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = current_program->cb_return_code;
  }
#line 15295 "parser.c" /* yacc.c:1646  */
    break;

  case 1284:
#line 9243 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 15303 "parser.c" /* yacc.c:1646  */
    break;

  case 1285:
#line 9247 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        (yyval) = (yyvsp[0]);
    } else {
        (yyval) = cb_int1;
    }
  }
#line 15315 "parser.c" /* yacc.c:1646  */
    break;

  case 1286:
#line 9255 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        (yyval) = (yyvsp[0]);
    } else {
        (yyval) = cb_int0;
    }
  }
#line 15327 "parser.c" /* yacc.c:1646  */
    break;

  case 1287:
#line 9266 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 15335 "parser.c" /* yacc.c:1646  */
    break;

  case 1288:
#line 9270 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 15343 "parser.c" /* yacc.c:1646  */
    break;

  case 1289:
#line 9276 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 15349 "parser.c" /* yacc.c:1646  */
    break;

  case 1290:
#line 9277 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_space; }
#line 15355 "parser.c" /* yacc.c:1646  */
    break;

  case 1291:
#line 9278 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_zero; }
#line 15361 "parser.c" /* yacc.c:1646  */
    break;

  case 1292:
#line 9279 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_quote; }
#line 15367 "parser.c" /* yacc.c:1646  */
    break;

  case 1293:
#line 9286 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("STRING", TERM_STRING);
  }
#line 15375 "parser.c" /* yacc.c:1646  */
    break;

  case 1295:
#line 9295 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_string ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[-1]));
  }
#line 15383 "parser.c" /* yacc.c:1646  */
    break;

  case 1296:
#line 9301 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 15389 "parser.c" /* yacc.c:1646  */
    break;

  case 1297:
#line 9302 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 15395 "parser.c" /* yacc.c:1646  */
    break;

  case 1298:
#line 9306 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 15401 "parser.c" /* yacc.c:1646  */
    break;

  case 1299:
#line 9307 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_BUILD_PAIR (cb_int0, NULL); }
#line 15407 "parser.c" /* yacc.c:1646  */
    break;

  case 1300:
#line 9308 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_BUILD_PAIR ((yyvsp[0]), NULL); }
#line 15413 "parser.c" /* yacc.c:1646  */
    break;

  case 1301:
#line 9312 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 15419 "parser.c" /* yacc.c:1646  */
    break;

  case 1302:
#line 9313 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 15425 "parser.c" /* yacc.c:1646  */
    break;

  case 1303:
#line 9318 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), STRING);
  }
#line 15433 "parser.c" /* yacc.c:1646  */
    break;

  case 1304:
#line 9322 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), STRING);
  }
#line 15441 "parser.c" /* yacc.c:1646  */
    break;

  case 1305:
#line 9332 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("SUBTRACT", TERM_SUBTRACT);
  }
#line 15449 "parser.c" /* yacc.c:1646  */
    break;

  case 1307:
#line 9341 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), '-', cb_build_binary_list ((yyvsp[-3]), '+'));
  }
#line 15457 "parser.c" /* yacc.c:1646  */
    break;

  case 1308:
#line 9345 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_arithmetic ((yyvsp[-1]), 0, cb_build_binary_list (CB_BUILD_CHAIN ((yyvsp[-3]), (yyvsp[-5])), '-'));
  }
#line 15465 "parser.c" /* yacc.c:1646  */
    break;

  case 1309:
#line 9349 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_corresponding (cb_build_sub, (yyvsp[-2]), (yyvsp[-4]), (yyvsp[-1]));
  }
#line 15473 "parser.c" /* yacc.c:1646  */
    break;

  case 1310:
#line 9356 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), SUBTRACT);
  }
#line 15481 "parser.c" /* yacc.c:1646  */
    break;

  case 1311:
#line 9360 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), SUBTRACT);
  }
#line 15489 "parser.c" /* yacc.c:1646  */
    break;

  case 1312:
#line 9370 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("SUPPRESS", 0);
    if (!in_declaratives) {
        cb_error_x (CB_TREE (current_statement),
                _("SUPPRESS statement must be within DECLARATIVES"));
    }
    PENDING("SUPPRESS");
  }
#line 15502 "parser.c" /* yacc.c:1646  */
    break;

  case 1315:
#line 9388 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("TERMINATE", 0);
    PENDING("TERMINATE");
  }
#line 15511 "parser.c" /* yacc.c:1646  */
    break;

  case 1317:
#line 9397 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    if ((yyvsp[0]) != cb_error_node) {
    }
  }
#line 15521 "parser.c" /* yacc.c:1646  */
    break;

  case 1318:
#line 9403 "parser.y" /* yacc.c:1646  */
    {
    begin_implicit_statement ();
    if ((yyvsp[0]) != cb_error_node) {
    }
  }
#line 15531 "parser.c" /* yacc.c:1646  */
    break;

  case 1319:
#line 9414 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("TRANSFORM", 0);
  }
#line 15539 "parser.c" /* yacc.c:1646  */
    break;

  case 1321:
#line 9422 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;

    x = cb_build_converting ((yyvsp[-2]), (yyvsp[0]), cb_build_inspect_region_start ());
    cb_emit_inspect ((yyvsp[-4]), x, cb_int0, 2);
  }
#line 15550 "parser.c" /* yacc.c:1646  */
    break;

  case 1322:
#line 9435 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("UNLOCK", 0);
  }
#line 15558 "parser.c" /* yacc.c:1646  */
    break;

  case 1324:
#line 9443 "parser.y" /* yacc.c:1646  */
    {
    if (CB_VALID_TREE ((yyvsp[-1]))) {
        if (CB_FILE (cb_ref ((yyvsp[-1])))->organization == COB_ORG_SORT) {
            cb_error_x (CB_TREE (current_statement),
                    _("UNLOCK invalid for SORT files"));
        } else {
            cb_emit_unlock ((yyvsp[-1]));
        }
    }
  }
#line 15573 "parser.c" /* yacc.c:1646  */
    break;

  case 1325:
#line 9459 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("UNSTRING", TERM_UNSTRING);
  }
#line 15581 "parser.c" /* yacc.c:1646  */
    break;

  case 1327:
#line 9469 "parser.y" /* yacc.c:1646  */
    {
    cb_emit_unstring ((yyvsp[-5]), (yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]));
  }
#line 15589 "parser.c" /* yacc.c:1646  */
    break;

  case 1328:
#line 9475 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 15595 "parser.c" /* yacc.c:1646  */
    break;

  case 1329:
#line 9477 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 15601 "parser.c" /* yacc.c:1646  */
    break;

  case 1330:
#line 9481 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 15607 "parser.c" /* yacc.c:1646  */
    break;

  case 1331:
#line 9483 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0])); }
#line 15613 "parser.c" /* yacc.c:1646  */
    break;

  case 1332:
#line 9488 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_unstring_delimited ((yyvsp[-1]), (yyvsp[0]));
  }
#line 15621 "parser.c" /* yacc.c:1646  */
    break;

  case 1333:
#line 9494 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 15627 "parser.c" /* yacc.c:1646  */
    break;

  case 1334:
#line 9496 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 15633 "parser.c" /* yacc.c:1646  */
    break;

  case 1335:
#line 9501 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_unstring_into ((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]));
  }
#line 15641 "parser.c" /* yacc.c:1646  */
    break;

  case 1336:
#line 9507 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 15647 "parser.c" /* yacc.c:1646  */
    break;

  case 1337:
#line 9508 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 15653 "parser.c" /* yacc.c:1646  */
    break;

  case 1338:
#line 9512 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 15659 "parser.c" /* yacc.c:1646  */
    break;

  case 1339:
#line 9513 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 15665 "parser.c" /* yacc.c:1646  */
    break;

  case 1340:
#line 9517 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 15671 "parser.c" /* yacc.c:1646  */
    break;

  case 1341:
#line 9518 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 15677 "parser.c" /* yacc.c:1646  */
    break;

  case 1342:
#line 9523 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), UNSTRING);
  }
#line 15685 "parser.c" /* yacc.c:1646  */
    break;

  case 1343:
#line 9527 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), UNSTRING);
  }
#line 15693 "parser.c" /* yacc.c:1646  */
    break;

  case 1344:
#line 9537 "parser.y" /* yacc.c:1646  */
    {
    skip_statements = 0;
    in_debugging = 0;
  }
#line 15702 "parser.c" /* yacc.c:1646  */
    break;

  case 1351:
#line 9555 "parser.y" /* yacc.c:1646  */
    {
    if (!in_declaratives) {
        cb_error (_("USE statement must be within DECLARATIVES"));
    } else if (!current_section) {
        cb_error (_("SECTION header missing before USE statement"));
    } else {
        current_section->flag_begin = 1;
        current_section->flag_return = 1;
        current_section->flag_declarative_exit = 1;
        current_section->flag_real_label = 1;
        current_section->flag_skip_label = 0;
        CB_EXCEPTION_ENABLE (COB_EC_I_O) = 1;
        if (use_global_ind) {
            current_section->flag_global = 1;
            current_program->global_list =
                cb_list_add (current_program->global_list,
                         CB_TREE (current_section));
        }
        emit_statement (cb_build_comment ("USE AFTER ERROR"));
    }
  }
#line 15728 "parser.c" /* yacc.c:1646  */
    break;

  case 1352:
#line 9580 "parser.y" /* yacc.c:1646  */
    {
    use_global_ind = 0;
  }
#line 15736 "parser.c" /* yacc.c:1646  */
    break;

  case 1353:
#line 9584 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->prog_type == CB_FUNCTION_TYPE) {
        cb_error (_("%s is invalid in a user FUNCTION"), "GLOBAL");
    } else {
        use_global_ind = 1;
        current_program->flag_global_use = 1;
    }
  }
#line 15749 "parser.c" /* yacc.c:1646  */
    break;

  case 1354:
#line 9596 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     l;

    for (l = (yyvsp[0]); l; l = CB_CHAIN (l)) {
        if (CB_VALID_TREE (CB_VALUE (l))) {
            set_up_use_file (CB_FILE (cb_ref (CB_VALUE (l))));
        }
    }
  }
#line 15763 "parser.c" /* yacc.c:1646  */
    break;

  case 1355:
#line 9606 "parser.y" /* yacc.c:1646  */
    {
    current_program->global_handler[COB_OPEN_INPUT].handler_label = current_section;
    current_program->global_handler[COB_OPEN_INPUT].handler_prog = current_program;
  }
#line 15772 "parser.c" /* yacc.c:1646  */
    break;

  case 1356:
#line 9611 "parser.y" /* yacc.c:1646  */
    {
    current_program->global_handler[COB_OPEN_OUTPUT].handler_label = current_section;
    current_program->global_handler[COB_OPEN_OUTPUT].handler_prog = current_program;
  }
#line 15781 "parser.c" /* yacc.c:1646  */
    break;

  case 1357:
#line 9616 "parser.y" /* yacc.c:1646  */
    {
    current_program->global_handler[COB_OPEN_I_O].handler_label = current_section;
    current_program->global_handler[COB_OPEN_I_O].handler_prog = current_program;
  }
#line 15790 "parser.c" /* yacc.c:1646  */
    break;

  case 1358:
#line 9621 "parser.y" /* yacc.c:1646  */
    {
    current_program->global_handler[COB_OPEN_EXTEND].handler_label = current_section;
    current_program->global_handler[COB_OPEN_EXTEND].handler_prog = current_program;
  }
#line 15799 "parser.c" /* yacc.c:1646  */
    break;

  case 1359:
#line 9629 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     plabel;
    char        name[64];

    if (!in_declaratives) {
        cb_error (_("USE statement must be within DECLARATIVES"));
    } else if (current_program->nested_level) {
        cb_error (_("USE DEBUGGING not supported in contained program"));
    } else {
        in_debugging = 1;
        current_section->flag_begin = 1;
        current_section->flag_return = 1;
        current_section->flag_declarative_exit = 1;
        current_section->flag_real_label = 0;
        current_section->flag_is_debug_sect = 1;
        if (!needs_debug_item) {
            needs_debug_item = 1;
            cb_build_debug_item ();
        }
        if (!current_program->flag_debugging) {
            skip_statements = 1;
            current_section->flag_skip_label = 1;
        } else {
            current_program->flag_gen_debug = 1;
            sprintf (name, "EXIT SECTION %d", cb_id);
            plabel = cb_build_reference (name);
            plabel = cb_build_label (plabel, NULL);
            CB_LABEL (plabel)->flag_begin = 1;
            CB_LABEL (plabel)->flag_dummy_exit = 1;
            current_section->exit_label = plabel;
            emit_statement (cb_build_comment ("USE FOR DEBUGGING"));
        }
    }
  }
#line 15838 "parser.c" /* yacc.c:1646  */
    break;

  case 1362:
#line 9672 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     l;
    cb_tree     x;
    cb_tree     z;

    if (current_program->flag_debugging) {
        CB_REFERENCE ((yyvsp[0]))->debug_section = current_section;
        CB_REFERENCE ((yyvsp[0]))->flag_debug_code = 1;
        CB_REFERENCE ((yyvsp[0]))->flag_all_debug = 0;
        z = CB_LIST_INIT ((yyvsp[0]));
        current_program->debug_list =
            cb_list_append (current_program->debug_list, z);
        /* Check backward refs to file/data names */
        /* Label refs will be checked later (forward/backward ref) */
        if (CB_WORD_COUNT ((yyvsp[0])) > 0) {
            l = CB_VALUE(CB_WORD_ITEMS ((yyvsp[0])));
            switch (CB_TREE_TAG (l)) {
            case CB_TAG_FILE:
                CB_FILE (l)->debug_section = current_section;
                CB_FILE (l)->flag_fl_debug = 1;
                break;
            case CB_TAG_FIELD:
                {
                    x = cb_ref((yyvsp[0]));
                    if(CB_INVALID_TREE(x)) {
                        break;
                    }
                    needs_field_debug = 1;
                    CB_FIELD(x)->debug_section = current_section;
                    CB_FIELD(x)->flag_field_debug = 1;
                    CB_PURPOSE(z) = x;
                    break;
                }
            default:
                break;
            }
        }
    }
  }
#line 15882 "parser.c" /* yacc.c:1646  */
    break;

  case 1363:
#line 9712 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->flag_debugging) {
        if (current_program->all_procedure) {
            cb_error (_("Duplicate USE DEBUGGING ON ALL PROCEDURES"));
        } else {
            current_program->all_procedure = current_section;
        }
    }
  }
#line 15896 "parser.c" /* yacc.c:1646  */
    break;

  case 1364:
#line 9722 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;

    if (current_program->flag_debugging) {
        /* Reference must be a data item */
        x = cb_ref ((yyvsp[0]));
        if (CB_INVALID_TREE (x) || !CB_FIELD_P (x)) {
            cb_error (_("Invalid target for DEBUGGING ALL"));
        } else {
            needs_field_debug = 1;
            CB_FIELD (x)->debug_section = current_section;
            CB_FIELD (x)->flag_field_debug = 1;
            CB_FIELD (x)->flag_all_debug = 1;
            CB_REFERENCE ((yyvsp[0]))->debug_section = current_section;
            CB_REFERENCE ((yyvsp[0]))->flag_debug_code = 1;
            CB_REFERENCE ((yyvsp[0]))->flag_all_debug = 1;
            CB_CHAIN_PAIR (current_program->debug_list, x, (yyvsp[0]));
        }
    }
  }
#line 15921 "parser.c" /* yacc.c:1646  */
    break;

  case 1369:
#line 9752 "parser.y" /* yacc.c:1646  */
    {
    if (current_program->nested_level) {
        cb_error (_("%s is invalid in nested program"), "USE AT");
    }
  }
#line 15931 "parser.c" /* yacc.c:1646  */
    break;

  case 1370:
#line 9761 "parser.y" /* yacc.c:1646  */
    {
    emit_statement (cb_build_comment ("USE AT PROGRAM START"));
    /* emit_entry ("_START", 0, NULL); */
    PENDING ("USE AT PROGRAM START");
  }
#line 15941 "parser.c" /* yacc.c:1646  */
    break;

  case 1371:
#line 9767 "parser.y" /* yacc.c:1646  */
    {
    emit_statement (cb_build_comment ("USE AT PROGRAM END"));
    /* emit_entry ("_END", 0, NULL); */
    PENDING ("USE AT PROGRAM END");
  }
#line 15951 "parser.c" /* yacc.c:1646  */
    break;

  case 1372:
#line 9777 "parser.y" /* yacc.c:1646  */
    {
    current_section->flag_real_label = 1;
    emit_statement (cb_build_comment ("USE BEFORE REPORTING"));
    PENDING ("USE BEFORE REPORTING");
  }
#line 15961 "parser.c" /* yacc.c:1646  */
    break;

  case 1373:
#line 9786 "parser.y" /* yacc.c:1646  */
    {
    current_section->flag_real_label = 1;
    emit_statement (cb_build_comment ("USE AFTER EXCEPTION CONDITION"));
    PENDING ("USE AFTER EXCEPTION CONDITION");
  }
#line 15971 "parser.c" /* yacc.c:1646  */
    break;

  case 1376:
#line 9802 "parser.y" /* yacc.c:1646  */
    {
    begin_statement ("WRITE", TERM_WRITE);
    /* Special in debugging mode */
    save_debug = start_debug;
    start_debug = 0;
  }
#line 15982 "parser.c" /* yacc.c:1646  */
    break;

  case 1378:
#line 9814 "parser.y" /* yacc.c:1646  */
    {
    if (CB_VALID_TREE ((yyvsp[-4]))) {
        cb_emit_write ((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]), (yyvsp[-1]));
    }
    start_debug = save_debug;
  }
#line 15993 "parser.c" /* yacc.c:1646  */
    break;

  case 1379:
#line 9823 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 15999 "parser.c" /* yacc.c:1646  */
    break;

  case 1380:
#line 9824 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16005 "parser.c" /* yacc.c:1646  */
    break;

  case 1381:
#line 9829 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int0;
  }
#line 16013 "parser.c" /* yacc.c:1646  */
    break;

  case 1382:
#line 9833 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_write_advancing_lines ((yyvsp[-3]), (yyvsp[-1]));
  }
#line 16021 "parser.c" /* yacc.c:1646  */
    break;

  case 1383:
#line 9837 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_write_advancing_mnemonic ((yyvsp[-2]), (yyvsp[0]));
  }
#line 16029 "parser.c" /* yacc.c:1646  */
    break;

  case 1384:
#line 9841 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_write_advancing_page ((yyvsp[-2]));
  }
#line 16037 "parser.c" /* yacc.c:1646  */
    break;

  case 1385:
#line 9847 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_BEFORE; }
#line 16043 "parser.c" /* yacc.c:1646  */
    break;

  case 1386:
#line 9848 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_AFTER; }
#line 16049 "parser.c" /* yacc.c:1646  */
    break;

  case 1389:
#line 9858 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_WARNING ((yyvsp[(-2) - (0)]), WRITE);
  }
#line 16057 "parser.c" /* yacc.c:1646  */
    break;

  case 1390:
#line 9862 "parser.y" /* yacc.c:1646  */
    {
    TERMINATOR_CLEAR ((yyvsp[(-2) - (1)]), WRITE);
  }
#line 16065 "parser.c" /* yacc.c:1646  */
    break;

  case 1393:
#line 9879 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_IMP_ACCEPT;
    current_statement->handler1 = (yyvsp[0]);
  }
#line 16074 "parser.c" /* yacc.c:1646  */
    break;

  case 1397:
#line 9894 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_IMP_ACCEPT;
    current_statement->handler2 = (yyvsp[0]);
  }
#line 16083 "parser.c" /* yacc.c:1646  */
    break;

  case 1402:
#line 9912 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_IMP_DISPLAY;
    current_statement->handler1 = (yyvsp[0]);
  }
#line 16092 "parser.c" /* yacc.c:1646  */
    break;

  case 1404:
#line 9922 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_IMP_DISPLAY;
    current_statement->handler2 = (yyvsp[0]);
  }
#line 16101 "parser.c" /* yacc.c:1646  */
    break;

  case 1407:
#line 9937 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_SIZE;
    current_statement->handler1 = (yyvsp[0]);
  }
#line 16110 "parser.c" /* yacc.c:1646  */
    break;

  case 1409:
#line 9947 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_SIZE;
    current_statement->handler2 = (yyvsp[0]);
  }
#line 16119 "parser.c" /* yacc.c:1646  */
    break;

  case 1412:
#line 9964 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_OVERFLOW;
    current_statement->handler1 = (yyvsp[0]);
  }
#line 16128 "parser.c" /* yacc.c:1646  */
    break;

  case 1414:
#line 9975 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_OVERFLOW;
    current_statement->handler2 = (yyvsp[0]);
  }
#line 16137 "parser.c" /* yacc.c:1646  */
    break;

  case 1420:
#line 9998 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_I_O_AT_END;
    current_statement->handler1 = (yyvsp[0]);
  }
#line 16146 "parser.c" /* yacc.c:1646  */
    break;

  case 1421:
#line 10007 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_I_O_AT_END;
    current_statement->handler2 = (yyvsp[0]);
  }
#line 16155 "parser.c" /* yacc.c:1646  */
    break;

  case 1425:
#line 10024 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_I_O_EOP;
    current_statement->handler1 = (yyvsp[0]);
  }
#line 16164 "parser.c" /* yacc.c:1646  */
    break;

  case 1426:
#line 10033 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_I_O_EOP;
    current_statement->handler2 = (yyvsp[0]);
  }
#line 16173 "parser.c" /* yacc.c:1646  */
    break;

  case 1429:
#line 10050 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_I_O_INVALID_KEY;
    current_statement->handler1 = (yyvsp[0]);
  }
#line 16182 "parser.c" /* yacc.c:1646  */
    break;

  case 1431:
#line 10060 "parser.y" /* yacc.c:1646  */
    {
    current_statement->handler_id = COB_EC_I_O_INVALID_KEY;
    current_statement->handler2 = (yyvsp[0]);
  }
#line 16191 "parser.c" /* yacc.c:1646  */
    break;

  case 1432:
#line 10070 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_one;
  }
#line 16199 "parser.c" /* yacc.c:1646  */
    break;

  case 1433:
#line 10074 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-1]);
  }
#line 16207 "parser.c" /* yacc.c:1646  */
    break;

  case 1434:
#line 10084 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_cond ((yyvsp[0]));
  }
#line 16215 "parser.c" /* yacc.c:1646  */
    break;

  case 1435:
#line 10091 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_expr ((yyvsp[0]));
  }
#line 16223 "parser.c" /* yacc.c:1646  */
    break;

  case 1436:
#line 10097 "parser.y" /* yacc.c:1646  */
    {
    current_expr = NULL;
    cb_exp_line = cb_source_line;
  }
#line 16232 "parser.c" /* yacc.c:1646  */
    break;

  case 1437:
#line 10102 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_reverse (current_expr);
  }
#line 16240 "parser.c" /* yacc.c:1646  */
    break;

  case 1441:
#line 10115 "parser.y" /* yacc.c:1646  */
    {
    if (CB_REFERENCE_P ((yyvsp[0])) && CB_CLASS_NAME_P (cb_ref ((yyvsp[0])))) {
        push_expr ('C', (yyvsp[0]));
    } else {
        push_expr ('x', (yyvsp[0]));
    }
  }
#line 16252 "parser.c" /* yacc.c:1646  */
    break;

  case 1442:
#line 10123 "parser.y" /* yacc.c:1646  */
    { push_expr ('(', NULL); }
#line 16258 "parser.c" /* yacc.c:1646  */
    break;

  case 1443:
#line 10124 "parser.y" /* yacc.c:1646  */
    { push_expr (')', NULL); }
#line 16264 "parser.c" /* yacc.c:1646  */
    break;

  case 1444:
#line 10126 "parser.y" /* yacc.c:1646  */
    { push_expr ('+', NULL); }
#line 16270 "parser.c" /* yacc.c:1646  */
    break;

  case 1445:
#line 10127 "parser.y" /* yacc.c:1646  */
    { push_expr ('-', NULL); }
#line 16276 "parser.c" /* yacc.c:1646  */
    break;

  case 1446:
#line 10128 "parser.y" /* yacc.c:1646  */
    { push_expr ('*', NULL); }
#line 16282 "parser.c" /* yacc.c:1646  */
    break;

  case 1447:
#line 10129 "parser.y" /* yacc.c:1646  */
    { push_expr ('/', NULL); }
#line 16288 "parser.c" /* yacc.c:1646  */
    break;

  case 1448:
#line 10130 "parser.y" /* yacc.c:1646  */
    { push_expr ('^', NULL); }
#line 16294 "parser.c" /* yacc.c:1646  */
    break;

  case 1449:
#line 10132 "parser.y" /* yacc.c:1646  */
    { push_expr ('=', NULL); }
#line 16300 "parser.c" /* yacc.c:1646  */
    break;

  case 1450:
#line 10133 "parser.y" /* yacc.c:1646  */
    { push_expr ('>', NULL); }
#line 16306 "parser.c" /* yacc.c:1646  */
    break;

  case 1451:
#line 10134 "parser.y" /* yacc.c:1646  */
    { push_expr ('<', NULL); }
#line 16312 "parser.c" /* yacc.c:1646  */
    break;

  case 1452:
#line 10135 "parser.y" /* yacc.c:1646  */
    { push_expr (']', NULL); }
#line 16318 "parser.c" /* yacc.c:1646  */
    break;

  case 1453:
#line 10136 "parser.y" /* yacc.c:1646  */
    { push_expr ('[', NULL); }
#line 16324 "parser.c" /* yacc.c:1646  */
    break;

  case 1454:
#line 10137 "parser.y" /* yacc.c:1646  */
    { push_expr ('~', NULL); }
#line 16330 "parser.c" /* yacc.c:1646  */
    break;

  case 1455:
#line 10139 "parser.y" /* yacc.c:1646  */
    { push_expr ('!', NULL); }
#line 16336 "parser.c" /* yacc.c:1646  */
    break;

  case 1456:
#line 10140 "parser.y" /* yacc.c:1646  */
    { push_expr ('&', NULL); }
#line 16342 "parser.c" /* yacc.c:1646  */
    break;

  case 1457:
#line 10141 "parser.y" /* yacc.c:1646  */
    { push_expr ('|', NULL); }
#line 16348 "parser.c" /* yacc.c:1646  */
    break;

  case 1458:
#line 10143 "parser.y" /* yacc.c:1646  */
    { push_expr ('O', NULL); }
#line 16354 "parser.c" /* yacc.c:1646  */
    break;

  case 1459:
#line 10144 "parser.y" /* yacc.c:1646  */
    { push_expr ('9', NULL); }
#line 16360 "parser.c" /* yacc.c:1646  */
    break;

  case 1460:
#line 10145 "parser.y" /* yacc.c:1646  */
    { push_expr ('A', NULL); }
#line 16366 "parser.c" /* yacc.c:1646  */
    break;

  case 1461:
#line 10146 "parser.y" /* yacc.c:1646  */
    { push_expr ('L', NULL); }
#line 16372 "parser.c" /* yacc.c:1646  */
    break;

  case 1462:
#line 10147 "parser.y" /* yacc.c:1646  */
    { push_expr ('U', NULL); }
#line 16378 "parser.c" /* yacc.c:1646  */
    break;

  case 1463:
#line 10150 "parser.y" /* yacc.c:1646  */
    { push_expr ('P', NULL); }
#line 16384 "parser.c" /* yacc.c:1646  */
    break;

  case 1464:
#line 10151 "parser.y" /* yacc.c:1646  */
    { push_expr ('N', NULL); }
#line 16390 "parser.c" /* yacc.c:1646  */
    break;

  case 1473:
#line 10181 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 16398 "parser.c" /* yacc.c:1646  */
    break;

  case 1474:
#line 10185 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-2]), (yyvsp[0]));
  }
#line 16406 "parser.c" /* yacc.c:1646  */
    break;

  case 1478:
#line 10196 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_binary_op ((yyvsp[-2]), '+', (yyvsp[0])); }
#line 16412 "parser.c" /* yacc.c:1646  */
    break;

  case 1479:
#line 10197 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_binary_op ((yyvsp[-2]), '-', (yyvsp[0])); }
#line 16418 "parser.c" /* yacc.c:1646  */
    break;

  case 1480:
#line 10198 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16424 "parser.c" /* yacc.c:1646  */
    break;

  case 1481:
#line 10202 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_binary_op ((yyvsp[-2]), '*', (yyvsp[0])); }
#line 16430 "parser.c" /* yacc.c:1646  */
    break;

  case 1482:
#line 10203 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_binary_op ((yyvsp[-2]), '/', (yyvsp[0])); }
#line 16436 "parser.c" /* yacc.c:1646  */
    break;

  case 1483:
#line 10204 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16442 "parser.c" /* yacc.c:1646  */
    break;

  case 1484:
#line 10209 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_binary_op ((yyvsp[-2]), '^', (yyvsp[0]));
  }
#line 16450 "parser.c" /* yacc.c:1646  */
    break;

  case 1485:
#line 10212 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16456 "parser.c" /* yacc.c:1646  */
    break;

  case 1486:
#line 10216 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16462 "parser.c" /* yacc.c:1646  */
    break;

  case 1487:
#line 10217 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_binary_op (cb_zero, '-', (yyvsp[0])); }
#line 16468 "parser.c" /* yacc.c:1646  */
    break;

  case 1488:
#line 10218 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16474 "parser.c" /* yacc.c:1646  */
    break;

  case 1489:
#line 10221 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[-1]); }
#line 16480 "parser.c" /* yacc.c:1646  */
    break;

  case 1490:
#line 10222 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16486 "parser.c" /* yacc.c:1646  */
    break;

  case 1491:
#line 10233 "parser.y" /* yacc.c:1646  */
    {
    if (current_linage > 1) {
        cb_error (_("LINAGE-COUNTER must be qualified here"));
        (yyval) = cb_error_node;
    } else if (current_linage == 0) {
        cb_error (_("Invalid LINAGE-COUNTER usage"));
        (yyval) = cb_error_node;
    } else {
        (yyval) = linage_file->linage_ctr;
    }
  }
#line 16502 "parser.c" /* yacc.c:1646  */
    break;

  case 1492:
#line 10245 "parser.y" /* yacc.c:1646  */
    {
    if (CB_FILE_P (cb_ref ((yyvsp[0])))) {
        (yyval) = CB_FILE (cb_ref ((yyvsp[0])))->linage_ctr;
    } else {
        cb_error_x ((yyvsp[0]), _("'%s' is not a file name"), CB_NAME ((yyvsp[0])));
        (yyval) = cb_error_node;
    }
  }
#line 16515 "parser.c" /* yacc.c:1646  */
    break;

  case 1493:
#line 10254 "parser.y" /* yacc.c:1646  */
    {
    if (report_count > 1) {
        cb_error (_("LINE-COUNTER must be qualified here"));
        (yyval) = cb_error_node;
    } else if (report_count == 0) {
        cb_error (_("Invalid LINE-COUNTER usage"));
        (yyval) = cb_error_node;
    } else {
        (yyval) = report_instance->line_counter;
    }
  }
#line 16531 "parser.c" /* yacc.c:1646  */
    break;

  case 1494:
#line 10266 "parser.y" /* yacc.c:1646  */
    {
    if (CB_REPORT_P (cb_ref ((yyvsp[0])))) {
        (yyval) = CB_REPORT (cb_ref ((yyvsp[0])))->line_counter;
    } else {
        cb_error_x ((yyvsp[0]), _("'%s' is not a report name"), CB_NAME ((yyvsp[0])));
        (yyval) = cb_error_node;
    }
  }
#line 16544 "parser.c" /* yacc.c:1646  */
    break;

  case 1495:
#line 10275 "parser.y" /* yacc.c:1646  */
    {
    if (report_count > 1) {
        cb_error (_("PAGE-COUNTER must be qualified here"));
        (yyval) = cb_error_node;
    } else if (report_count == 0) {
        cb_error (_("Invalid PAGE-COUNTER usage"));
        (yyval) = cb_error_node;
    } else {
        (yyval) = report_instance->page_counter;
    }
  }
#line 16560 "parser.c" /* yacc.c:1646  */
    break;

  case 1496:
#line 10287 "parser.y" /* yacc.c:1646  */
    {
    if (CB_REPORT_P (cb_ref ((yyvsp[0])))) {
        (yyval) = CB_REPORT (cb_ref ((yyvsp[0])))->page_counter;
    } else {
        cb_error_x ((yyvsp[0]), _("'%s' is not a report name"), CB_NAME ((yyvsp[0])));
        (yyval) = cb_error_node;
    }
  }
#line 16573 "parser.c" /* yacc.c:1646  */
    break;

  case 1497:
#line 10301 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16579 "parser.c" /* yacc.c:1646  */
    break;

  case 1498:
#line 10303 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_append ((yyvsp[-1]), (yyvsp[0])); }
#line 16585 "parser.c" /* yacc.c:1646  */
    break;

  case 1499:
#line 10308 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_BUILD_PAIR ((yyvsp[0]), (yyvsp[-1]));
  }
#line 16593 "parser.c" /* yacc.c:1646  */
    break;

  case 1500:
#line 10316 "parser.y" /* yacc.c:1646  */
    { cb_build_identifier ((yyvsp[0]), 0); }
#line 16599 "parser.c" /* yacc.c:1646  */
    break;

  case 1501:
#line 10323 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = cb_ref ((yyvsp[0]));
    if (!CB_FIELD_P (x)) {
        (yyval) = cb_error_node;
    } else if (!CB_FIELD (x)->index_list) {
        cb_error_x ((yyvsp[0]), _("'%s' not indexed"), cb_name ((yyvsp[0])));
        cb_error_x (x, _("'%s' defined here"), cb_name (x));
        (yyval) = cb_error_node;
    } else {
        (yyval) = (yyvsp[0]);
    }
  }
#line 16618 "parser.c" /* yacc.c:1646  */
    break;

  case 1502:
#line 10343 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 16626 "parser.c" /* yacc.c:1646  */
    break;

  case 1503:
#line 10347 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     l;

    if (CB_VALID_TREE ((yyvsp[0]))) {
        for (l = (yyvsp[-1]); l; l = CB_CHAIN (l)) {
            if (CB_VALID_TREE (CB_VALUE (l)) &&
                !strcasecmp (CB_NAME ((yyvsp[0])), CB_NAME (CB_VALUE (l)))) {
                cb_error_x ((yyvsp[0]), _("Multiple reference to '%s' "),
                        CB_NAME ((yyvsp[0])));
                break;
            }
        }
        if (!l) {
            (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
        }
    }
  }
#line 16648 "parser.c" /* yacc.c:1646  */
    break;

  case 1504:
#line 10368 "parser.y" /* yacc.c:1646  */
    {
    if (CB_FILE_P (cb_ref ((yyvsp[0])))) {
        (yyval) = (yyvsp[0]);
    } else {
        cb_error_x ((yyvsp[0]), _("'%s' is not a file name"), CB_NAME ((yyvsp[0])));
        (yyval) = cb_error_node;
    }
  }
#line 16661 "parser.c" /* yacc.c:1646  */
    break;

  case 1505:
#line 10409 "parser.y" /* yacc.c:1646  */
    {
    if (CB_REPORT_P (cb_ref ((yyvsp[0])))) {
        (yyval) = (yyvsp[0]);
    } else {
        cb_error_x ((yyvsp[0]), _("'%s' is not a report name"), CB_NAME ((yyvsp[0])));
        (yyval) = cb_error_node;
    }
  }
#line 16674 "parser.c" /* yacc.c:1646  */
    break;

  case 1506:
#line 10422 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 16680 "parser.c" /* yacc.c:1646  */
    break;

  case 1507:
#line 10424 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 16686 "parser.c" /* yacc.c:1646  */
    break;

  case 1508:
#line 10428 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16692 "parser.c" /* yacc.c:1646  */
    break;

  case 1509:
#line 10434 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 16698 "parser.c" /* yacc.c:1646  */
    break;

  case 1510:
#line 10436 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 16704 "parser.c" /* yacc.c:1646  */
    break;

  case 1511:
#line 10441 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    CB_REFERENCE ((yyval))->offset = CB_TREE (current_section);
    CB_REFERENCE ((yyval))->flag_in_decl = !!in_declaratives;
    CB_REFERENCE ((yyval))->section = current_section;
    CB_REFERENCE ((yyval))->paragraph = current_paragraph;
    CB_ADD_TO_CHAIN ((yyval), current_program->label_list);
  }
#line 16717 "parser.c" /* yacc.c:1646  */
    break;

  case 1514:
#line 10455 "parser.y" /* yacc.c:1646  */
    {
    CB_REFERENCE ((yyvsp[-2]))->chain = (yyvsp[0]);
  }
#line 16725 "parser.c" /* yacc.c:1646  */
    break;

  case 1515:
#line 10462 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_reference ((char *)(CB_LITERAL ((yyvsp[0]))->data));
    (yyval)->source_file = (yyvsp[0])->source_file;
    (yyval)->source_line = (yyvsp[0])->source_line;
  }
#line 16735 "parser.c" /* yacc.c:1646  */
    break;

  case 1516:
#line 10472 "parser.y" /* yacc.c:1646  */
    { (yyval) = CB_LIST_INIT ((yyvsp[0])); }
#line 16741 "parser.c" /* yacc.c:1646  */
    break;

  case 1517:
#line 10473 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0])); }
#line 16747 "parser.c" /* yacc.c:1646  */
    break;

  case 1518:
#line 10478 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    CB_ADD_TO_CHAIN ((yyval), current_program->reference_list);
  }
#line 16756 "parser.c" /* yacc.c:1646  */
    break;

  case 1519:
#line 10486 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    CB_ADD_TO_CHAIN ((yyval), current_program->reference_list);
  }
#line 16765 "parser.c" /* yacc.c:1646  */
    break;

  case 1520:
#line 10494 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 16773 "parser.c" /* yacc.c:1646  */
    break;

  case 1521:
#line 10498 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
  }
#line 16781 "parser.c" /* yacc.c:1646  */
    break;

  case 1522:
#line 10505 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    CB_REFERENCE((yyval))->flag_optional = 1;
    CB_ADD_TO_CHAIN ((yyval), current_program->reference_list);
  }
#line 16791 "parser.c" /* yacc.c:1646  */
    break;

  case 1525:
#line 10521 "parser.y" /* yacc.c:1646  */
    {
    if (CB_WORD_COUNT ((yyvsp[0])) > 0) {
        redefinition_error ((yyvsp[0]));
        (yyval) = cb_error_node;
    } else {
        (yyval) = (yyvsp[0]);
    }
  }
#line 16804 "parser.c" /* yacc.c:1646  */
    break;

  case 1526:
#line 10530 "parser.y" /* yacc.c:1646  */
    {
      yyclearin;
      yyerrok;
      (yyval) = cb_error_node;
  }
#line 16814 "parser.c" /* yacc.c:1646  */
    break;

  case 1527:
#line 10541 "parser.y" /* yacc.c:1646  */
    {
    if (CB_REFERENCE ((yyvsp[0]))->flag_duped || CB_WORD_COUNT ((yyvsp[0])) > 0) {
        redefinition_error ((yyvsp[0]));
        (yyval) = NULL;
    } else {
        CB_WORD_COUNT ((yyvsp[0]))++;
        (yyval) = (yyvsp[0]);
    }
  }
#line 16828 "parser.c" /* yacc.c:1646  */
    break;

  case 1528:
#line 10558 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 16836 "parser.c" /* yacc.c:1646  */
    break;

  case 1529:
#line 10562 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
  }
#line 16844 "parser.c" /* yacc.c:1646  */
    break;

  case 1532:
#line 10571 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_address ((yyvsp[0]));
  }
#line 16852 "parser.c" /* yacc.c:1646  */
    break;

  case 1533:
#line 10577 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 16858 "parser.c" /* yacc.c:1646  */
    break;

  case 1534:
#line 10578 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 16864 "parser.c" /* yacc.c:1646  */
    break;

  case 1535:
#line 10583 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 16872 "parser.c" /* yacc.c:1646  */
    break;

  case 1536:
#line 10587 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
  }
#line 16880 "parser.c" /* yacc.c:1646  */
    break;

  case 1541:
#line 10598 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_length ((yyvsp[0]));
  }
#line 16888 "parser.c" /* yacc.c:1646  */
    break;

  case 1542:
#line 10602 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_length ((yyvsp[0]));
  }
#line 16896 "parser.c" /* yacc.c:1646  */
    break;

  case 1543:
#line 10606 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_length ((yyvsp[0]));
  }
#line 16904 "parser.c" /* yacc.c:1646  */
    break;

  case 1544:
#line 10610 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_ppointer ((yyvsp[0]));
  }
#line 16912 "parser.c" /* yacc.c:1646  */
    break;

  case 1545:
#line 10614 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_address ((yyvsp[0]));
  }
#line 16920 "parser.c" /* yacc.c:1646  */
    break;

  case 1546:
#line 10618 "parser.y" /* yacc.c:1646  */
    {
    cb_tree     x;
    cb_tree     switch_id;

    x = cb_ref ((yyvsp[0]));
    if (CB_VALID_TREE (x)) {
        if (CB_SYSTEM_NAME (x)->category != CB_SWITCH_NAME) {
            cb_error_x (x, _("Invalid mnemonic identifier"));
            (yyval) = cb_error_node;
        } else {
            switch_id = cb_int (CB_SYSTEM_NAME (x)->token);
            (yyval) = CB_BUILD_FUNCALL_1 ("cob_switch_value", switch_id);
        }
    } else {
        (yyval) = cb_error_node;
    }
  }
#line 16942 "parser.c" /* yacc.c:1646  */
    break;

  case 1547:
#line 10639 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_LIST_INIT ((yyvsp[0]));
  }
#line 16950 "parser.c" /* yacc.c:1646  */
    break;

  case 1548:
#line 10643 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[-1]), (yyvsp[0]));
  }
#line 16958 "parser.c" /* yacc.c:1646  */
    break;

  case 1556:
#line 10660 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_length ((yyvsp[0]));
  }
#line 16966 "parser.c" /* yacc.c:1646  */
    break;

  case 1557:
#line 10664 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_length ((yyvsp[0]));
  }
#line 16974 "parser.c" /* yacc.c:1646  */
    break;

  case 1558:
#line 10668 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_length ((yyvsp[0]));
  }
#line 16982 "parser.c" /* yacc.c:1646  */
    break;

  case 1567:
#line 10702 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));
  }
#line 16990 "parser.c" /* yacc.c:1646  */
    break;

  case 1569:
#line 10710 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));
  }
#line 16998 "parser.c" /* yacc.c:1646  */
    break;

  case 1572:
#line 10719 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));
  }
#line 17006 "parser.c" /* yacc.c:1646  */
    break;

  case 1574:
#line 10724 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_zero;
  }
#line 17014 "parser.c" /* yacc.c:1646  */
    break;

  case 1575:
#line 10731 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));
  }
#line 17022 "parser.c" /* yacc.c:1646  */
    break;

  case 1577:
#line 10739 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));
  }
#line 17030 "parser.c" /* yacc.c:1646  */
    break;

  case 1579:
#line 10747 "parser.y" /* yacc.c:1646  */
    {
    check_not_88_level ((yyvsp[0]));
  }
#line 17038 "parser.c" /* yacc.c:1646  */
    break;

  case 1582:
#line 10757 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_identifier ((yyvsp[0]), 0); }
#line 17044 "parser.c" /* yacc.c:1646  */
    break;

  case 1583:
#line 10761 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_identifier ((yyvsp[0]), 1); }
#line 17050 "parser.c" /* yacc.c:1646  */
    break;

  case 1584:
#line 10765 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 17056 "parser.c" /* yacc.c:1646  */
    break;

  case 1585:
#line 10766 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[-1]); }
#line 17062 "parser.c" /* yacc.c:1646  */
    break;

  case 1586:
#line 10770 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_build_identifier ((yyvsp[0]), 0); }
#line 17068 "parser.c" /* yacc.c:1646  */
    break;

  case 1587:
#line 10775 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-2]);
    if (start_debug) {
        cb_check_field_debug ((yyvsp[-2]));
    }
  }
#line 17079 "parser.c" /* yacc.c:1646  */
    break;

  case 1588:
#line 10782 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-1]);
    if (start_debug) {
        cb_check_field_debug ((yyvsp[-1]));
    }
  }
#line 17090 "parser.c" /* yacc.c:1646  */
    break;

  case 1589:
#line 10789 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-1]);
    if (start_debug) {
        cb_check_field_debug ((yyvsp[-1]));
    }
  }
#line 17101 "parser.c" /* yacc.c:1646  */
    break;

  case 1590:
#line 10796 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    if (start_debug) {
        cb_check_field_debug ((yyvsp[0]));
    }
  }
#line 17112 "parser.c" /* yacc.c:1646  */
    break;

  case 1591:
#line 10806 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_identifier ((yyvsp[0]), 0);
  }
#line 17120 "parser.c" /* yacc.c:1646  */
    break;

  case 1592:
#line 10813 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-2]);
    if (CB_REFERENCE_P ((yyvsp[-2]))) {
        CB_REFERENCE ((yyvsp[-2]))->flag_target = 1;
    }
    if (start_debug) {
        cb_check_field_debug ((yyvsp[-2]));
    }
  }
#line 17134 "parser.c" /* yacc.c:1646  */
    break;

  case 1593:
#line 10823 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-1]);
    if (CB_REFERENCE_P ((yyvsp[-1]))) {
        CB_REFERENCE ((yyvsp[-1]))->flag_target = 1;
    }
    if (start_debug) {
        cb_check_field_debug ((yyvsp[-1]));
    }
  }
#line 17148 "parser.c" /* yacc.c:1646  */
    break;

  case 1594:
#line 10833 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-1]);
    if (CB_REFERENCE_P ((yyvsp[-1]))) {
        CB_REFERENCE ((yyvsp[-1]))->flag_target = 1;
    }
    if (start_debug) {
        cb_check_field_debug ((yyvsp[-1]));
    }
  }
#line 17162 "parser.c" /* yacc.c:1646  */
    break;

  case 1595:
#line 10843 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    if (CB_REFERENCE_P ((yyvsp[0]))) {
        CB_REFERENCE ((yyvsp[0]))->flag_target = 1;
    }
    if (start_debug) {
        cb_check_field_debug ((yyvsp[0]));
    }
  }
#line 17176 "parser.c" /* yacc.c:1646  */
    break;

  case 1596:
#line 10856 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 17184 "parser.c" /* yacc.c:1646  */
    break;

  case 1597:
#line 10860 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-2]);
    CB_REFERENCE ((yyvsp[-2]))->chain = (yyvsp[0]);
  }
#line 17193 "parser.c" /* yacc.c:1646  */
    break;

  case 1598:
#line 10868 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-3]);
    CB_REFERENCE ((yyvsp[-3]))->subs = cb_list_reverse ((yyvsp[-1]));
  }
#line 17202 "parser.c" /* yacc.c:1646  */
    break;

  case 1599:
#line 10876 "parser.y" /* yacc.c:1646  */
    {
    CB_REFERENCE ((yyvsp[-4]))->offset = (yyvsp[-2]);
  }
#line 17210 "parser.c" /* yacc.c:1646  */
    break;

  case 1600:
#line 10880 "parser.y" /* yacc.c:1646  */
    {
    CB_REFERENCE ((yyvsp[-5]))->offset = (yyvsp[-3]);
    CB_REFERENCE ((yyvsp[-5]))->length = (yyvsp[-1]);
  }
#line 17219 "parser.c" /* yacc.c:1646  */
    break;

  case 1601:
#line 10890 "parser.y" /* yacc.c:1646  */
    {
    if (cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC
        || CB_LITERAL ((yyvsp[0]))->sign < 0
        || CB_LITERAL ((yyvsp[0]))->scale) {
        cb_error (_("Non-negative integer value expected"));
        (yyval) = cb_build_numeric_literal(-1, "1", 0);
    } else {
        (yyval) = (yyvsp[0]);
    }
  }
#line 17234 "parser.c" /* yacc.c:1646  */
    break;

  case 1602:
#line 10904 "parser.y" /* yacc.c:1646  */
    {
    int n;

    if (cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC) {
        cb_error (_("Integer value expected"));
        (yyval) = cb_int1;
    } else if (CB_LITERAL ((yyvsp[0]))->sign || CB_LITERAL ((yyvsp[0]))->scale) {
        cb_error (_("Integer value expected"));
        (yyval) = cb_int1;
    } else {
        n = cb_get_int ((yyvsp[0]));
        if (n < 1 || n > 256) {
            cb_error (_("Invalid SYMBOLIC integer"));
            (yyval) = cb_int1;
        } else {
            (yyval) = (yyvsp[0]);
        }
    }
  }
#line 17258 "parser.c" /* yacc.c:1646  */
    break;

  case 1603:
#line 10927 "parser.y" /* yacc.c:1646  */
    {
    int n;

    if (cb_tree_category ((yyvsp[0])) != CB_CATEGORY_NUMERIC
        || CB_LITERAL ((yyvsp[0]))->sign
        || CB_LITERAL ((yyvsp[0]))->scale) {
        cb_error (_("Unsigned positive integer value expected"));
        (yyval) = cb_int1;
    } else {
        n = cb_get_int ((yyvsp[0]));
        if (n < 1) {
            cb_error (_("Unsigned positive integer value expected"));
            (yyval) = cb_int1;
        } else {
            (yyval) = (yyvsp[0]);
        }
    }
  }
#line 17281 "parser.c" /* yacc.c:1646  */
    break;

  case 1604:
#line 10949 "parser.y" /* yacc.c:1646  */
    {
    int n;

    if (cb_tree_category ((yyvsp[0])) == CB_CATEGORY_NUMERIC) {
        if (CB_LITERAL ((yyvsp[0]))->sign || CB_LITERAL ((yyvsp[0]))->scale) {
            cb_error (_("Integer value expected"));
        } else {
            n = cb_get_int ((yyvsp[0]));
            if (n < 1 || n > 256) {
                cb_error (_("Invalid CLASS value"));
            }
        }
    }
    (yyval) = (yyvsp[0]);
  }
#line 17301 "parser.c" /* yacc.c:1646  */
    break;

  case 1605:
#line 10964 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_space; }
#line 17307 "parser.c" /* yacc.c:1646  */
    break;

  case 1606:
#line 10965 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_zero; }
#line 17313 "parser.c" /* yacc.c:1646  */
    break;

  case 1607:
#line 10966 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_quote; }
#line 17319 "parser.c" /* yacc.c:1646  */
    break;

  case 1608:
#line 10967 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_high; }
#line 17325 "parser.c" /* yacc.c:1646  */
    break;

  case 1609:
#line 10968 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_low; }
#line 17331 "parser.c" /* yacc.c:1646  */
    break;

  case 1610:
#line 10969 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_null; }
#line 17337 "parser.c" /* yacc.c:1646  */
    break;

  case 1611:
#line 10974 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 17345 "parser.c" /* yacc.c:1646  */
    break;

  case 1612:
#line 10978 "parser.y" /* yacc.c:1646  */
    {
    struct cb_literal   *l;

    if (CB_LITERAL_P ((yyvsp[0]))) {
        /* We must not alter the original definition */
        l = cobc_parse_malloc (sizeof(struct cb_literal));
        *l = *(CB_LITERAL((yyvsp[0])));
        l->all = 1;
        (yyval) = CB_TREE (l);
    } else {
        (yyval) = (yyvsp[0]);
    }
  }
#line 17363 "parser.c" /* yacc.c:1646  */
    break;

  case 1613:
#line 10995 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 17371 "parser.c" /* yacc.c:1646  */
    break;

  case 1614:
#line 10999 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_concat_literals ((yyvsp[-2]), (yyvsp[0]));
  }
#line 17379 "parser.c" /* yacc.c:1646  */
    break;

  case 1615:
#line 11005 "parser.y" /* yacc.c:1646  */
    { (yyval) = (yyvsp[0]); }
#line 17385 "parser.c" /* yacc.c:1646  */
    break;

  case 1616:
#line 11006 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_space; }
#line 17391 "parser.c" /* yacc.c:1646  */
    break;

  case 1617:
#line 11007 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_zero; }
#line 17397 "parser.c" /* yacc.c:1646  */
    break;

  case 1618:
#line 11008 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_quote; }
#line 17403 "parser.c" /* yacc.c:1646  */
    break;

  case 1619:
#line 11009 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_high; }
#line 17409 "parser.c" /* yacc.c:1646  */
    break;

  case 1620:
#line 11010 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_low; }
#line 17415 "parser.c" /* yacc.c:1646  */
    break;

  case 1621:
#line 11011 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_null; }
#line 17421 "parser.c" /* yacc.c:1646  */
    break;

  case 1622:
#line 11018 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-1]), NULL, (yyvsp[0]), 0);
  }
#line 17429 "parser.c" /* yacc.c:1646  */
    break;

  case 1623:
#line 11022 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-4]), CB_LIST_INIT ((yyvsp[-2])), (yyvsp[0]), 0);
  }
#line 17437 "parser.c" /* yacc.c:1646  */
    break;

  case 1624:
#line 11026 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
  }
#line 17445 "parser.c" /* yacc.c:1646  */
    break;

  case 1625:
#line 11030 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
  }
#line 17453 "parser.c" /* yacc.c:1646  */
    break;

  case 1626:
#line 11034 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-3]), (yyvsp[-1]), NULL, 0);
  }
#line 17461 "parser.c" /* yacc.c:1646  */
    break;

  case 1627:
#line 11038 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
  }
#line 17469 "parser.c" /* yacc.c:1646  */
    break;

  case 1628:
#line 11042 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
  }
#line 17477 "parser.c" /* yacc.c:1646  */
    break;

  case 1629:
#line 11046 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
  }
#line 17485 "parser.c" /* yacc.c:1646  */
    break;

  case 1630:
#line 11050 "parser.y" /* yacc.c:1646  */
    {
      (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
  }
#line 17493 "parser.c" /* yacc.c:1646  */
    break;

  case 1631:
#line 11054 "parser.y" /* yacc.c:1646  */
    {
      (yyval) = cb_build_intrinsic ((yyvsp[-4]), (yyvsp[-2]), (yyvsp[0]), 0);
  }
#line 17501 "parser.c" /* yacc.c:1646  */
    break;

  case 1632:
#line 11058 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-1]), (yyvsp[0]), NULL, 0);
  }
#line 17509 "parser.c" /* yacc.c:1646  */
    break;

  case 1633:
#line 11062 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_build_intrinsic ((yyvsp[-1]), (yyvsp[0]), NULL, 1);
  }
#line 17517 "parser.c" /* yacc.c:1646  */
    break;

  case 1643:
#line 11087 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 17525 "parser.c" /* yacc.c:1646  */
    break;

  case 1644:
#line 11091 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_BUILD_PAIR ((yyvsp[-2]), NULL);
  }
#line 17533 "parser.c" /* yacc.c:1646  */
    break;

  case 1645:
#line 11095 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = CB_BUILD_PAIR ((yyvsp[-3]), (yyvsp[-1]));
  }
#line 17541 "parser.c" /* yacc.c:1646  */
    break;

  case 1646:
#line 11102 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 17549 "parser.c" /* yacc.c:1646  */
    break;

  case 1647:
#line 11106 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[-1]);
  }
#line 17557 "parser.c" /* yacc.c:1646  */
    break;

  case 1648:
#line 11110 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 17565 "parser.c" /* yacc.c:1646  */
    break;

  case 1649:
#line 11117 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = CB_LIST_INIT ((yyvsp[0]));
    (yyval) = cb_list_add (x, cb_int0);
  }
#line 17576 "parser.c" /* yacc.c:1646  */
    break;

  case 1650:
#line 11124 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = CB_LIST_INIT ((yyvsp[-2]));
    (yyval) = cb_list_add (x, cb_int1);
  }
#line 17587 "parser.c" /* yacc.c:1646  */
    break;

  case 1651:
#line 11131 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = CB_LIST_INIT ((yyvsp[-2]));
    (yyval) = cb_list_add (x, cb_int2);
  }
#line 17598 "parser.c" /* yacc.c:1646  */
    break;

  case 1652:
#line 11141 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = CB_LIST_INIT ((yyvsp[0]));
    (yyval) = cb_list_add (x, cb_null);
  }
#line 17609 "parser.c" /* yacc.c:1646  */
    break;

  case 1653:
#line 11148 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = CB_LIST_INIT ((yyvsp[-2]));
    (yyval) = cb_list_add (x, (yyvsp[0]));
  }
#line 17620 "parser.c" /* yacc.c:1646  */
    break;

  case 1654:
#line 11158 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = CB_LIST_INIT ((yyvsp[0]));
    (yyval) = cb_list_add (x, cb_null);
  }
#line 17631 "parser.c" /* yacc.c:1646  */
    break;

  case 1655:
#line 11165 "parser.y" /* yacc.c:1646  */
    {
    cb_tree x;

    x = CB_LIST_INIT ((yyvsp[-2]));
    (yyval) = cb_list_add (x, cb_ref ((yyvsp[0])));
  }
#line 17642 "parser.c" /* yacc.c:1646  */
    break;

  case 1656:
#line 11175 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[0]), cb_int0);
  }
#line 17650 "parser.c" /* yacc.c:1646  */
    break;

  case 1657:
#line 11179 "parser.y" /* yacc.c:1646  */
    {
    const int   num_args = cb_list_length ((yyvsp[-2]));

    if (num_args == 4) {
        cb_error_x ((yyvsp[-2]), _("Cannot specify offset and SYSTEM-OFFSET at the same time."));
    }

    (yyval) = cb_list_add ((yyvsp[-2]), cb_int1);
  }
#line 17664 "parser.c" /* yacc.c:1646  */
    break;

  case 1658:
#line 11192 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_list_add ((yyvsp[0]), cb_int0);
  }
#line 17672 "parser.c" /* yacc.c:1646  */
    break;

  case 1659:
#line 11196 "parser.y" /* yacc.c:1646  */
    {
    const int   num_args = cb_list_length ((yyvsp[-2]));

    if (num_args == 3) {
        cb_error_x ((yyvsp[-2]), _("Cannot specify offset and SYSTEM-OFFSET at the same time."));
    }

    (yyval) = cb_list_add ((yyvsp[-2]), cb_int1);
  }
#line 17686 "parser.c" /* yacc.c:1646  */
    break;

  case 1660:
#line 11210 "parser.y" /* yacc.c:1646  */
    {
    non_const_word = 1;
  }
#line 17694 "parser.c" /* yacc.c:1646  */
    break;

  case 1661:
#line 11218 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 17700 "parser.c" /* yacc.c:1646  */
    break;

  case 1662:
#line 11219 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 17706 "parser.c" /* yacc.c:1646  */
    break;

  case 1663:
#line 11223 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 17712 "parser.c" /* yacc.c:1646  */
    break;

  case 1664:
#line 11224 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 17718 "parser.c" /* yacc.c:1646  */
    break;

  case 1665:
#line 11228 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 17724 "parser.c" /* yacc.c:1646  */
    break;

  case 1666:
#line 11229 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 17730 "parser.c" /* yacc.c:1646  */
    break;

  case 1667:
#line 11234 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 17738 "parser.c" /* yacc.c:1646  */
    break;

  case 1668:
#line 11238 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 17746 "parser.c" /* yacc.c:1646  */
    break;

  case 1669:
#line 11245 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
  }
#line 17754 "parser.c" /* yacc.c:1646  */
    break;

  case 1670:
#line 11249 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
  }
#line 17762 "parser.c" /* yacc.c:1646  */
    break;

  case 1671:
#line 11256 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 17768 "parser.c" /* yacc.c:1646  */
    break;

  case 1672:
#line 11257 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 17774 "parser.c" /* yacc.c:1646  */
    break;

  case 1673:
#line 11258 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int2; }
#line 17780 "parser.c" /* yacc.c:1646  */
    break;

  case 1674:
#line 11262 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 17786 "parser.c" /* yacc.c:1646  */
    break;

  case 1675:
#line 11263 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_true; }
#line 17792 "parser.c" /* yacc.c:1646  */
    break;

  case 1676:
#line 11267 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int (cb_flag_optional_file); }
#line 17798 "parser.c" /* yacc.c:1646  */
    break;

  case 1677:
#line 11268 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 17804 "parser.c" /* yacc.c:1646  */
    break;

  case 1678:
#line 11269 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int0; }
#line 17810 "parser.c" /* yacc.c:1646  */
    break;

  case 1679:
#line 11274 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int0;
  }
#line 17818 "parser.c" /* yacc.c:1646  */
    break;

  case 1680:
#line 11278 "parser.y" /* yacc.c:1646  */
    {
    if ((yyvsp[0])) {
        (yyval) = (yyvsp[0]);
    } else {
        (yyval) = cb_int (COB_STORE_ROUND);
    }
    cobc_cs_check = 0;
  }
#line 17831 "parser.c" /* yacc.c:1646  */
    break;

  case 1681:
#line 11290 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = NULL;
    cobc_cs_check = 0;
  }
#line 17840 "parser.c" /* yacc.c:1646  */
    break;

  case 1682:
#line 11295 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = (yyvsp[0]);
    cobc_cs_check = 0;
  }
#line 17849 "parser.c" /* yacc.c:1646  */
    break;

  case 1683:
#line 11303 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_AWAY_FROM_ZERO);
  }
#line 17857 "parser.c" /* yacc.c:1646  */
    break;

  case 1684:
#line 11307 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_AWAY_FROM_ZERO);
  }
#line 17865 "parser.c" /* yacc.c:1646  */
    break;

  case 1685:
#line 11311 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_EVEN);
  }
#line 17873 "parser.c" /* yacc.c:1646  */
    break;

  case 1686:
#line 11315 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_NEAR_TOWARD_ZERO);
  }
#line 17881 "parser.c" /* yacc.c:1646  */
    break;

  case 1687:
#line 11319 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_PROHIBITED);
  }
#line 17889 "parser.c" /* yacc.c:1646  */
    break;

  case 1688:
#line 11323 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_TOWARD_GREATER);
  }
#line 17897 "parser.c" /* yacc.c:1646  */
    break;

  case 1689:
#line 11327 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_TOWARD_LESSER);
  }
#line 17905 "parser.c" /* yacc.c:1646  */
    break;

  case 1690:
#line 11331 "parser.y" /* yacc.c:1646  */
    {
    (yyval) = cb_int (COB_STORE_ROUND | COB_STORE_TRUNCATION);
  }
#line 17913 "parser.c" /* yacc.c:1646  */
    break;

  case 1691:
#line 11337 "parser.y" /* yacc.c:1646  */
    { (yyval) = NULL; }
#line 17919 "parser.c" /* yacc.c:1646  */
    break;

  case 1692:
#line 11338 "parser.y" /* yacc.c:1646  */
    { (yyval) = cb_int1; }
#line 17925 "parser.c" /* yacc.c:1646  */
    break;


#line 17929 "parser.c" /* yacc.c:1646  */
      default: break;
    }
  /* User semantic actions sometimes alter yychar, and that requires
     that yytoken be updated with the new translation.  We take the
     approach of translating immediately before every use of yytoken.
     One alternative is translating here after every semantic action,
     but that translation would be missed if the semantic action invokes
     YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
     if it invokes YYBACKUP.  In the case of YYABORT or YYACCEPT, an
     incorrect destructor might then be invoked immediately.  In the
     case of YYERROR or YYBACKUP, subsequent parser actions might lead
     to an incorrect destructor call or verbose syntax error message
     before the lookahead is translated.  */
  YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);

  YYPOPSTACK (yylen);
  yylen = 0;
  YY_STACK_PRINT (yyss, yyssp);

  *++yyvsp = yyval;

  /* Now 'shift' the result of the reduction.  Determine what state
     that goes to, based on the state we popped back to and the rule
     number reduced by.  */

  yyn = yyr1[yyn];

  yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
  if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
    yystate = yytable[yystate];
  else
    yystate = yydefgoto[yyn - YYNTOKENS];

  goto yynewstate;


/*--------------------------------------.
| yyerrlab -- here on detecting error.  |
`--------------------------------------*/
yyerrlab:
  /* Make sure we have latest lookahead translation.  See comments at
     user semantic actions for why this is necessary.  */
  yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);

  /* If not already recovering from an error, report this error.  */
  if (!yyerrstatus)
    {
      ++yynerrs;
#if ! YYERROR_VERBOSE
      yyerror (YY_("syntax error"));
#else
# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
                                        yyssp, yytoken)
      {
        char const *yymsgp = YY_("syntax error");
        int yysyntax_error_status;
        yysyntax_error_status = YYSYNTAX_ERROR;
        if (yysyntax_error_status == 0)
          yymsgp = yymsg;
        else if (yysyntax_error_status == 1)
          {
            if (yymsg != yymsgbuf)
              YYSTACK_FREE (yymsg);
            yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
            if (!yymsg)
              {
                yymsg = yymsgbuf;
                yymsg_alloc = sizeof yymsgbuf;
                yysyntax_error_status = 2;
              }
            else
              {
                yysyntax_error_status = YYSYNTAX_ERROR;
                yymsgp = yymsg;
              }
          }
        yyerror (yymsgp);
        if (yysyntax_error_status == 2)
          goto yyexhaustedlab;
      }
# undef YYSYNTAX_ERROR
#endif
    }



  if (yyerrstatus == 3)
    {
      /* If just tried and failed to reuse lookahead token after an
         error, discard it.  */

      if (yychar <= YYEOF)
        {
          /* Return failure if at end of input.  */
          if (yychar == YYEOF)
            YYABORT;
        }
      else
        {
          yydestruct ("Error: discarding",
                      yytoken, &yylval);
          yychar = YYEMPTY;
        }
    }

  /* Else will try to reuse lookahead token after shifting the error
     token.  */
  goto yyerrlab1;


/*---------------------------------------------------.
| yyerrorlab -- error raised explicitly by YYERROR.  |
`---------------------------------------------------*/
yyerrorlab:

  /* Pacify compilers like GCC when the user code never invokes
     YYERROR and the label yyerrorlab therefore never appears in user
     code.  */
  if (/*CONSTCOND*/ 0)
     goto yyerrorlab;

  /* Do not reclaim the symbols of the rule whose action triggered
     this YYERROR.  */
  YYPOPSTACK (yylen);
  yylen = 0;
  YY_STACK_PRINT (yyss, yyssp);
  yystate = *yyssp;
  goto yyerrlab1;


/*-------------------------------------------------------------.
| yyerrlab1 -- common code for both syntax error and YYERROR.  |
`-------------------------------------------------------------*/
yyerrlab1:
  yyerrstatus = 3;      /* Each real token shifted decrements this.  */

  for (;;)
    {
      yyn = yypact[yystate];
      if (!yypact_value_is_default (yyn))
        {
          yyn += YYTERROR;
          if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
            {
              yyn = yytable[yyn];
              if (0 < yyn)
                break;
            }
        }

      /* Pop the current state because it cannot handle the error token.  */
      if (yyssp == yyss)
        YYABORT;


      yydestruct ("Error: popping",
                  yystos[yystate], yyvsp);
      YYPOPSTACK (1);
      yystate = *yyssp;
      YY_STACK_PRINT (yyss, yyssp);
    }

  YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
  *++yyvsp = yylval;
  YY_IGNORE_MAYBE_UNINITIALIZED_END


  /* Shift the error token.  */
  YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);

  yystate = yyn;
  goto yynewstate;


/*-------------------------------------.
| yyacceptlab -- YYACCEPT comes here.  |
`-------------------------------------*/
yyacceptlab:
  yyresult = 0;
  goto yyreturn;

/*-----------------------------------.
| yyabortlab -- YYABORT comes here.  |
`-----------------------------------*/
yyabortlab:
  yyresult = 1;
  goto yyreturn;

#if !defined yyoverflow || YYERROR_VERBOSE
/*-------------------------------------------------.
| yyexhaustedlab -- memory exhaustion comes here.  |
`-------------------------------------------------*/
yyexhaustedlab:
  yyerror (YY_("memory exhausted"));
  yyresult = 2;
  /* Fall through.  */
#endif

yyreturn:
  if (yychar != YYEMPTY)
    {
      /* Make sure we have latest lookahead translation.  See comments at
         user semantic actions for why this is necessary.  */
      yytoken = YYTRANSLATE (yychar);
      yydestruct ("Cleanup: discarding lookahead",
                  yytoken, &yylval);
    }
  /* Do not reclaim the symbols of the rule whose action triggered
     this YYABORT or YYACCEPT.  */
  YYPOPSTACK (yylen);
  YY_STACK_PRINT (yyss, yyssp);
  while (yyssp != yyss)
    {
      yydestruct ("Cleanup: popping",
                  yystos[*yyssp], yyvsp);
      YYPOPSTACK (1);
    }
#ifndef yyoverflow
  if (yyss != yyssa)
    YYSTACK_FREE (yyss);
#endif
#if YYERROR_VERBOSE
  if (yymsg != yymsgbuf)
    YYSTACK_FREE (yymsg);
#endif
  return yyresult;
}

Variable Documentation

YYSTYPE yylval