7 val condition_names
:(string list ref
) = ref
[]
11 (*hojfeld defunctorised
*)
12 structure Cobol
= struct
14 type pos
= unit (*hojfeld
*)
18 datatype figurative_constant
=
41 | ALL_NONNUMERICLITERAL
of string
44 LITERAL_IS_NONNUMERICLITERAL
of string * pos
* pos
45 | LITERAL_IS_INTEGER
of string * pos
* pos
46 | LITERAL_IS_DECIMALNUMBER
of string * pos
* pos
47 | LITERAL_IS_BOOLEANLITERAL
of bool * pos
* pos
48 | LITERAL_IS_FIGURATIVECONSTANT
of figurative_constant
* pos
* pos
50 datatype data_name_or_literal
=
51 DATA_NAME_OR_LITERAL_IS_DATA_NAME
of string
52 | DATA_NAME_OR_LITERAL_IS_LITERAL
of literal
55 DATA_NAMES
of data_names
* string
56 | ONE_DATA_NAME
of string
58 datatype data_name_or_integer
=
59 DATA_NAME_OR_INTEGER_IS_DATA_NAME
of string
60 | DATA_NAME_OR_INTEGER_IS_INTEGER
of string
62 type qualification
= string
64 datatype qualifications
=
65 SEVERAL_QUALIFICATIONS
of qualifications
* qualification
68 type subscript_phrase
= unit (* TODO
*)
70 datatype special_register
=
75 QUALIFIED_IDENTIFIER
of string * qualifications
* subscript_phrase
77 | SPECIAL_REGISTER
of special_register
* pos
* pos
79 datatype identifiers
=
80 SEVERAL_IDENTIFIERS
of identifiers
* identifier
81 | ONE_IDENTIFIER
of identifier
83 datatype identifier_or_literal
=
84 IDENTIFIER_OR_LITERAL_IS_IDENTIFIER
of identifier
85 | IDENTIFIER_OR_LITERAL_IS_LITERAL
of literal
87 datatype identifier_or_literals
=
88 SEVERAL_IDENTIFIER_OR_LITERALS
of identifier_or_literals
89 * identifier_or_literal
90 | ONE_IDENTIFIER_OR_LITERAL
of identifier_or_literal
96 datatype identifier_rounded
=
97 IDENTIFIER_ROUNDED
of identifier
* rounded
99 datatype identifier_roundeds
=
100 SEVERAL_IDENTIFIER_ROUNDEDS
of identifier_roundeds
* identifier_rounded
101 | ONE_IDENTIFIER_ROUNDED
of identifier_rounded
107 datatype data_class
=
108 DATA_CLASS_IS_NUMERIC
109 | DATA_CLASS_IS_ALPHABETIC
111 datatype relational_operator
=
118 datatype sign_specification
=
119 SIGN_SPECIFICATION_IS_POSITIVE
120 | SIGN_SPECIFICATION_IS_NEGATIVE
121 | SIGN_SPECIFICATION_IS_ZERO
123 (* END OF BASIC STUFF
*)
125 (* ENVIRONMENT DIVISION
*)
127 type source_computer_paragraph
= unit
128 type object_computer_paragraph
= unit
130 datatype currency_sign_clause
=
133 datatype decimal_clause
=
134 DECIMALPOINT_IS_COMMA
136 datatype special_names_clause
=
139 | CURRENCY_SIGN_CLAUSE
of currency_sign_clause
140 | DECIMAL_CLAUSE
of decimal_clause
142 datatype special_names_clauses
=
143 SEVERAL_SPECIAL_NAMES_CLAUSES
of special_names_clauses
144 * special_names_clause
145 | NO_SPECIAL_NAMES_CLAUSES
147 datatype special_names_paragraph
=
148 SPECIAL_NAMES_PARAGRAPH
of special_names_clauses
149 | NO_SPECIAL_NAMES_PARAGRAPH
151 datatype configuration_section
=
152 CONFIGURATION_SECTION
of
153 source_computer_paragraph
154 * object_computer_paragraph
155 * special_names_paragraph
157 type input_output_section
= unit
159 (* END OF ENVIRONMENT DIVISION
*)
161 (* WORKINGSTORAGE
and LINKAGE SECTION
*)
163 datatype left_right
=
167 datatype through_data_name
=
168 THROUGH_DATA_NAME
of string
169 | NOT_THROUGH_DATA_NAME
171 datatype separate_character
=
175 datatype leading_trailing
=
176 LEADING_TRAILING_IS_LEADING
177 | LEADING_TRAILING_IS_TRAILING
178 datatype table_length_description
=
179 FIXED_LENGTH_TABLE
of string (* integer
-2 *)
180 | VARIABLE_LENGTH_TABLE
of string (* integer
-1 *)
181 * string (* integer
-2 *)
182 * string (* data
-name
-1 *)
184 datatype ascending_descending
=
188 datatype ascending_descending_key_phrase
=
189 ASCENDING_DESCENDING_KEY_PHRASE
of ascending_descending
*
192 datatype ascending_descending_key_phrases
=
193 ASCENDING_DESCENDING_KEY_PHRASES
of ascending_descending_key_phrases
*
194 ascending_descending_key_phrase
195 | NO_ASCENDING_DESCENDING_KEY_PHRASES
197 datatype index_names
=
198 SEVERAL_INDEX_NAMES
of index_names
* string
199 | ONE_INDEX_NAME
of string
201 datatype indexed_by_phrase
=
202 INDEXED_BY_PHRASE
of index_names
203 | NO_INDEXED_BY_PHRASE
205 datatype usage_specifier
=
212 datatype through_literal
=
213 THROUGH_LITERAL
of literal
216 datatype literal_range
=
217 LITERAL_RANGE
of literal
* through_literal
219 datatype literal_ranges
=
220 SEVERAL_LITERAL_RANGES
of literal_ranges
* literal_range
221 | ONE_LITERAL_RANGE
of literal_range
223 datatype data_description_clause
=
224 DATA_DESCRIPTION_CLAUSE_IS_USAGE_CLAUSE
of usage_specifier
226 | DATA_DESCRIPTION_CLAUSE_IS_SIGN_CLAUSE
of leading_trailing
*
229 | DATA_DESCRIPTION_CLAUSE_IS_OCCURS_CLAUSE
230 of table_length_description
*
231 ascending_descending_key_phrases
*
234 | DATA_DESCRIPTION_CLAUSE_IS_SYNCHRONIZED_CLAUSE
of left_right
236 | DATA_DESCRIPTION_CLAUSE_IS_JUSTIFIED_CLAUSE
of
238 | DATA_DESCRIPTION_CLAUSE_IS_BLANK_WHEN_ZERO_CLAUSE
of
240 | DATA_DESCRIPTION_CLAUSE_IS_VALUE_CLAUSE
of literal_ranges
242 | DATA_DESCRIPTION_CLAUSE_IS_PICTURE_CLAUSE
of string
244 | DATA_DESCRIPTION_CLAUSE_IS_INDICATOR_CLAUSE
of string
247 datatype data_description_clauses
=
248 DATA_DESCRIPTION_CLAUSES
of data_description_clauses
*
249 data_description_clause
250 | NO_DATA_DESCRIPTION_CLAUSES
252 datatype redefines_clause
=
253 REDEFINES_CLAUSE
of string
254 | NO_REDEFINES_CLAUSE
260 datatype data_name_or_filler
=
261 DATA_NAME_OR_FILLER_IS_DATA_NAME
of string
262 | DATA_NAME_OR_FILLER_IS_FILLER
of filler
264 datatype record_description_entry
=
265 DATA_DESCRIPTION_ENTRY_134
of string (* levelnumber
*)
266 * data_name_or_filler
268 * data_description_clauses
270 | RENAMES_CLAUSE
of string (* levelnumber
*)
271 * string (* data
-name
*)
272 * string (* data
-name
*)
275 | TS2K_NOARROW
of ts2k
* pos
* pos
276 | TS2K_ARROW
of ts2k
* ts2k
* pos
* pos
277 | TS2K_ALL
of ts2k
* ts2k
* pos
* pos
278 | TS2K_END
of pos
* pos
279 | TS2K_ASSUME_SEPARATE
of pos
* pos
281 (* CHANGED
-MHS
: the
4 TS2K constructors were
:
282 | TS2K
of ts2k
* pos
* pos
283 | TS2K_EXPANDS
of identifier
* pos
* pos
284 | TS2K_FIRST_OR_FINAL
287 datatype record_description_entries
=
288 RECORD_DESCRIPTION_ENTRIES
of record_description_entries
*
289 record_description_entry
290 | NO_RECORD_DESCRIPTION_ENTRIES
292 datatype record_description_entries_opt
=
293 RECORD_DESCRIPTION_ENTRIES_OPT
of record_description_entries
294 | NO_RECORD_DESCRIPTION_ENTRIES_OPT
296 datatype working_storage_section
=
297 WORKINGSTORAGE_SECTION
of record_description_entries_opt
* pos
* pos
298 | NO_WORKINGSTORAGE_SECTION
300 datatype linkage_section
=
301 LINKAGE_SECTION
of record_description_entries_opt
* pos
* pos
304 (* END OF WORKINGSTORAGE
and LINKAGE SECTION
*)
308 datatype integer_range
=
309 SIMPLE_RANGE
of string
310 | INTEGER_TO_INTEGER
of string * string
312 datatype record_contains_clause
=
313 RECORD_CONTAINS
of integer_range
315 datatype data_records_clause
=
316 DATA_RECORD_IS
of data_names
318 datatype sort_description_clause
=
319 SORT_DESCRIPTION_CLAUSE_IS_RECORD
of record_contains_clause
321 | SORT_DESCRIPTION_CLAUSE_IS_DATA
of data_records_clause
324 datatype sort_description_clauses
=
325 SORT_DESCRIPTION_CLAUSES
of sort_description_clauses
*
326 sort_description_clause
327 | NO_SORT_DESCRIPTION_CLAUSE
329 datatype sort_description_entry
=
330 SD
of string * sort_description_clauses
332 datatype footing_specification
=
333 FOOTING
of data_name_or_integer
336 datatype top_bottom_specification
=
340 datatype top_bottom_specifications
=
341 TOP_BOTTOM_SPECIFICATIONS
of top_bottom_specifications
*
342 top_bottom_specification
343 | NO_TOP_BOTTOM_SPECIFICATION
345 datatype value_of_phrase
=
346 VALUE_OF
of string * data_name_or_literal
348 datatype value_of_phrases
=
349 VALUE_OF_PHRASES
of value_of_phrases
* value_of_phrase
350 | VALUE_OF_PHRASE
of value_of_phrase
352 datatype characters_or_records
=
356 datatype file_description_clause
=
357 BLOCK
of integer_range
* characters_or_records
359 | FILE_DESCRIPTION_CLAUSE_IS_RECORD
of record_contains_clause
363 | VALUE_OF_CLAUSE
of value_of_phrases
365 | FILE_DESCRIPTION_CLAUSE_IS_DATA
of data_records_clause
367 | LINAGE_CLAUSE
of data_name_or_integer
*
368 footing_specification
*
369 top_bottom_specifications
371 | CODE_SET_CLAUSE
of string
374 datatype file_description_clauses
=
375 FILE_DESCRIPTION_CLAUSES
of file_description_clauses
*
376 file_description_clause
377 | NO_FILE_DESCRIPTION_CLAUSES
379 datatype file_description_entry
=
380 FD
of string * file_description_clauses
* pos
* pos
382 datatype file_and_sort_description_entry
=
383 FILE_DESCRIPTION_ENTRY
of file_description_entry
384 | SORT_DESCRIPTION_ENTRY
of sort_description_entry
386 datatype file_description_paragraph
=
387 FILE_DESCRIPTION_PARAGRAPH
of file_and_sort_description_entry
*
388 record_description_entries
390 datatype file_description_paragraphs
=
391 FILE_DESCRIPTION_PARAGRAPHS
of file_description_paragraphs
*
392 file_description_paragraph
393 | NO_FILE_DESCRIPTION_PARAGRAPHS
395 datatype file_section
=
396 FILE_SECTION
of file_description_paragraphs
* pos
* pos
399 (* END OF FILESECTION
*)
403 datatype arithmetic_expression
=
404 ARITHMETIC_EXPRESSION_IS_INTEGER
of string * pos
* pos
405 | ARITHMETIC_EXPRESSION_IS_DECIMALNUMBER
of string * pos
* pos
406 | ARITHMETIC_EXPRESSION_IS_NONNUMERICLITERAL
of string * pos
* pos
407 | ARITHMETIC_EXPRESSION_IS_BOOLEANLITERAL
of bool * pos
* pos
408 | ARITHMETIC_EXPRESSION_IS_FIGURATIVE_CONSTANT
of figurative_constant
*
410 | ARITHMETIC_EXPRESSION_IS_IDENTIFIER
of identifier
411 | ARITHMETIC_EXPRESSION_IS_PLUS_SIGN
of arithmetic_expression
412 | ARITHMETIC_EXPRESSION_IS_MINUS_SIGN
of arithmetic_expression
413 | ARITHMETIC_EXPRESSION_IS_EXPONENTIATION
of arithmetic_expression
*
414 arithmetic_expression
415 | ARITHMETIC_EXPRESSION_IS_MULTIPLY
of arithmetic_expression
*
416 arithmetic_expression
417 | ARITHMETIC_EXPRESSION_IS_DIVIDE
of arithmetic_expression
*
418 arithmetic_expression
419 | ARITHMETIC_EXPRESSION_IS_ADD
of arithmetic_expression
*
420 arithmetic_expression
421 | ARITHMETIC_EXPRESSION_IS_SUBTRACT
of arithmetic_expression
*
422 arithmetic_expression
424 datatype simple_condition
=
425 CLASS_CONDITION
of identifier
* is_not
* data_class
426 | CONDITION_NAME
of identifier
427 | RELATION_CONDITION
of arithmetic_expression
*
429 relational_operator
*
430 arithmetic_expression
* pos
* pos
431 (* Unclear
if TRUE
and FALSE are allowed
in conditions
*)
432 (* at
all (TRUE is reserved
word but not FALSE
) *)
433 | SIMPLE_CONDITION_IS_TRUE
of pos
* pos
434 | SIMPLE_CONDITION_IS_FALSE
of pos
* pos
435 | SIGN_CONDITION
of arithmetic_expression
* is_not
* sign_specification
436 (* SWITCH_STATUS_CONDITION is SYSTEM
-SHUT
-DOWN or UPSI
-i
*)
437 (* Don
't think we need to know
*)
438 | SWITCH_STATUS_CONDITION
of pos
* pos
440 datatype conditional_expression
=
441 SIMPLE_CONDITION
of simple_condition
442 | NEGATED_CONDITION
of conditional_expression
443 (* the manual says NOT simple_expression
, but example
in fig
11-12 *)
444 (* tells a different story
!! *)
445 | AND_CONDITION
of conditional_expression
* conditional_expression
446 | OR_CONDITION
of conditional_expression
* conditional_expression
448 datatype add_or_subtract
= ADD | SUBTRACT
450 datatype date_day_time
=
455 datatype identifier_or_literal_or_ddt
=
456 IDENTIFIER_OR_LITERAL_OR_DDT_IS_IDENTIFIER_OR_LITERAL
of identifier_or_literal
457 | IDENTIFIER_OR_LITERAL_OR_DDT_IS_DDT
of date_day_time
459 datatype annotation_statement
=
460 TS2K_ASSUME
of identifier_or_literal_or_ddt
* ts2k
* pos
* pos
461 | TS2K_COERCE
of identifier_or_literal_or_ddt
* ts2k
* pos
* pos
* identifier
463 datatype move_statement
=
464 MOVE
of identifier_or_literal
* identifiers
* pos
* pos
465 | MOVECORRESPONDING
of identifier
* identifier
* pos
* pos
467 datatype from_environment
=
469 | FROM
of string * pos
* pos
471 datatype accept_statement
=
472 ACCEPT_ENVIRONMENT
of identifier
* from_environment
* pos
* pos
473 | ACCEPT_DATE_DAY_TIME
of identifier
* date_day_time
* pos
* pos
475 datatype statements
=
476 SEVERAL_STATEMENTS
of statements
* statement
477 | ONE_STATEMENT
of statement
480 MOVE_STATEMENT
of move_statement
481 | COMPUTE_STATEMENT
of compute_statement
482 | ADD_OR_SUBTRACT_STATEMENT
of add_or_subtract_statement
483 | MULTIPLY_STATEMENT
of multiply_statement
484 | DIVIDE_STATEMENT
of divide_statement
485 | IF_STATEMENT
of if_statement
486 | ANNOTATION_STATEMENT
of annotation_statement
487 | ACCEPT_STATEMENT
of accept_statement
488 |
OTHER_STATEMENT (* TODO
*)
490 and add_or_subtract_statement
=
491 ADD_OR_SUBTRACT
of add_or_subtract
* identifier_or_literals
492 * identifier_roundeds
493 * size_error_clause
* pos
* pos
494 | ADD_OR_SUBTRACT_GIVING
of add_or_subtract
* identifier_or_literals
495 * identifier_or_literal
496 * identifier_roundeds
497 * size_error_clause
* pos
* pos
498 | ADD_OR_SUBTRACT_CORRESPONDING
of add_or_subtract
* identifier
501 * size_error_clause
* pos
* pos
503 and compute_statement
=
504 COMPUTE
of identifier_roundeds
*
505 arithmetic_expression
*
506 size_error_clause
* pos
* pos
508 and multiply_statement
=
509 MULTIPLY
of identifier_or_literal
510 * identifier_roundeds
511 * size_error_clause
* pos
* pos
512 | MULTIPLY_GIVING
of identifier_or_literal
513 * identifier_or_literal
514 * identifier_roundeds
515 * size_error_clause
* pos
* pos
517 (* NOTE
: the following is not checked against the manual
*)
518 (* neither is it tested
*)
519 and divide_statement
=
520 (* DIVIDE a INTO b
[[ON
] SIZE ERROR c
] *)
521 DIVIDE_INTO
of identifier_or_literal (* a
*)
522 * identifier_roundeds (* b
*)
523 * size_error_clause (* c
*)
525 (* DIVIDE a INTO b GIVING c
[[ON
] SIZE ERROR d
] *)
526 | DIVIDE_INTO_GIVING
of identifier_or_literal (* a
*)
527 * identifier_or_literal (* b
*)
528 * identifier_roundeds (* c
*)
529 * size_error_clause (* d
*)
531 (* DIVIDE a INTO b GIVING c REMAINDER d
[[ON
] SIZE ERROR e
] *)
532 | DIVIDE_INTO_GIVING_REMAINDER
of identifier_or_literal (* a
*)
533 * identifier_or_literal (* b
*)
534 * identifier_roundeds (* c
*)
536 * size_error_clause (* e
*)
538 (* DIVIDE a BY b GIVING c
[[ON
] SIZE ERROR d
] *)
539 | DIVIDE_BY_GIVING
of identifier_or_literal (* a
*)
540 * identifier_or_literal (* b
*)
541 * identifier_roundeds (* c
*)
542 * size_error_clause (* d
*)
544 (* DIVIDE a BY b GIVING c REMAINDER d
[[ON
] SIZE ERROR e
] *)
545 | DIVIDE_BY_GIVING_REMAINDER
of identifier_or_literal (* a
*)
546 * identifier_or_literal (* b
*)
547 * identifier_roundeds (* c
*)
549 * size_error_clause (* e
*)
552 and size_error_clause
=
553 SIZE_ERROR
of statements
557 IF
of conditional_expression
* then_statements
* else_statements
560 and then_statements
=
561 THEN_STATEMENTS
of statements
564 and else_statements
=
571 (* PROCEDURE DIVISION
*)
573 type section_name
= string
574 type paragraph_name
= string
576 datatype sentence
= SENTENCE
of statements
579 SENTENCES
of sentences
* sentence
583 PARAGRAPH
of paragraph_name
* sentences
585 datatype paragraphs
=
586 SEVERAL_PARAGRAPHS
of paragraphs
* paragraph
587 | ONE_PARAGRAPH
of paragraph
589 datatype segment_number_opt
=
590 SEGMENT_NUMBER
of string
594 NO_BODY_SECTION
of section_name
* segment_number_opt
595 | NO_BODY_SECTION_FOLLOWED_BY_SECTION
of section_name
*
598 | SECTION
of section_name
*
600 paragraphs_and_sections
602 and paragraphs_and_sections
=
603 SEVERAL_PARAGRAPHS_AND_SECTIONS
of paragraph
* paragraphs_and_sections
604 | SINGLE_PARAGRAPH_AND_SECTIONS
of paragraph
* sections
605 | SINGLE_PARAGRAPH
of paragraph
608 type using_clause
= unit (* TODO
*)
609 type declaratives_section
= unit (* TODO
*)
611 datatype procedure_division
=
612 PROCEDURE_DIVISION_FORMAT_1_DECLARATIVES
of using_clause
*
613 declaratives_section
*
616 | PROCEDURE_DIVISION_FORMAT_1_NO_DECLARATIVES
of using_clause
*
619 | PROCEDURE_DIVISION_FORMAT_2
of using_clause
*
622 | EMPTY_PROCEDURE_DIVISION
623 (* no procedure division allowed by our parser though mandatory
in S
/36 *)
625 (* END OF PROCEDURE DIVISION
*)
627 (* PROGRAM STRUCTURE
*)
629 datatype data_division
=
630 DATA_DIVISION
of file_section
*
631 working_storage_section
*
635 datatype environment_division
=
636 ENVIRONMENT_DIVISION
of
637 configuration_section
*
639 | NO_ENVIRONMENT_DIVISION
641 type identification_division
= unit
643 datatype cobol_program
=
644 PROGRAM
of identification_division
*
645 environment_division
*
649 datatype test_cobol_programs
=
650 TEST_COBOL_PROGRAMS
of test_cobol_programs
* cobol_program
651 | TEST_COBOL_PROGRAM
of cobol_program
653 datatype test_cobol
=
654 TEST
of test_cobol_programs
655 | COBOL_PROGRAM
of cobol_program
661 datatype cexpression
=
662 CE_AE
of Cobol
.arithmetic_expression
* Cobol
.pos
* Cobol
.pos
663 | CE_SINGLE_REL
of Cobol
.relational_operator
* Cobol
.arithmetic_expression
*
664 Cobol
.pos
* Cobol
.pos
665 | CE_REL
of Cobol
.arithmetic_expression
*
667 Cobol
.relational_operator
*
668 Cobol
.arithmetic_expression
* Cobol
.pos
* Cobol
.pos
669 | CE_DC
of Cobol
.arithmetic_expression
*
672 | CE_SIGN
of Cobol
.arithmetic_expression
*
674 Cobol
.sign_specification
675 | CE_SWITCH
of Cobol
.pos
* Cobol
.pos
676 | CE_TRUE
of Cobol
.pos
* Cobol
.pos
677 | CE_FALSE
of Cobol
.pos
* Cobol
.pos
678 | CE_NOT
of cexpression
679 | CE_AND
of cexpression
* cexpression
680 | CE_OR
of cexpression
* cexpression
690 datatype svalue
= VOID | ntVOID
of unit | PSEUDOTEXT
of (string)
691 | USERDEFINEDWORD
of (string) | PICTURESTRING
of (string)
692 | BOOLEANLITERAL
of (bool) | INTEGER
of (string)
693 | DECIMALNUMBER
of (string) | NONNUMERICLITERAL
of (string)
694 | identifier_or_literal_or_ddt
of (Cobol
.identifier_or_literal_or_ddt
)
695 | ts2k
of (Cobol
.ts2k
)
696 | annotation_statement
of (Cobol
.annotation_statement
)
697 | data_description_annotation
of (Cobol
.record_description_entry
)
698 | working_storage_section
of (Cobol
.working_storage_section
)
699 | variable_length_tables_clause
of (Cobol
.table_length_description
*Cobol
.ascending_descending_key_phrases
*Cobol
.indexed_by_phrase
)
700 | value_of_phrases
of (Cobol
.value_of_phrases
)
701 | value_of_phrase
of (Cobol
.value_of_phrase
)
702 | value_of_clause
of (Cobol
.file_description_clause
)
703 | value_clause
of (Cobol
.literal_ranges
)
704 | using_clause
of (Cobol
.using_clause
)
705 | usage_specifier
of (Cobol
.usage_specifier
)
706 | usage_clause
of (Cobol
.usage_specifier
)
707 | top_bottom_specifications
of (Cobol
.top_bottom_specifications
)
708 | top_bottom_specification
of (Cobol
.top_bottom_specification
)
709 | top_bottom
of (Cobol
.top_bottom_specification
)
710 | filler
of (Cobol
.filler
)
711 | through_literal
of (Cobol
.through_literal
)
712 | through_data_name
of (Cobol
.through_data_name
)
713 | then_statements
of (Cobol
.then_statements
)
714 | text_name
of (string) | system_name
of (string)
715 | conditional_expression
of (Cobol
.conditional_expression
)
716 | arithmetic_expression
of (Cobol
.arithmetic_expression
)
717 | synchronized_clause
of (Cobol
.left_right
)
718 | subtract_statement
of (Cobol
.add_or_subtract_statement
)
719 | subscript_phrase
of (Cobol
.subscript_phrase
)
720 | statements
of (Cobol
.statements
) | statement
of (Cobol
.statement
)
721 | standard_or_omitted
of (Cobol
.file_description_clause
)
722 | special_names_paragraph
of (Cobol
.special_names_paragraph
)
723 | source_computer_paragraph
of (Cobol
.source_computer_paragraph
)
724 | sort_description_entry
of (Cobol
.sort_description_entry
)
725 | sort_description_clauses
of (Cobol
.sort_description_clauses
)
726 | sort_description_clause
of (Cobol
.sort_description_clause
)
727 | size_error_clauses
of (Cobol
.size_error_clause
)
728 | size_error_clause
of (Cobol
.size_error_clause
)
729 | sign_clause
of (Cobol
.leading_trailing
*Cobol
.separate_character
)
730 | separate_character
of (Cobol
.separate_character
)
731 | sentences
of (Cobol
.sentences
) | sentence
of (Cobol
.sentence
)
732 | segment_number_opt
of (Cobol
.segment_number_opt
)
733 | sections
of (Cobol
.sections
) | section_name
of (string)
734 | rounded
of (Cobol
.rounded
)
735 | renames_clause
of (Cobol
.record_description_entry
)
736 | redefines_clause
of (Cobol
.redefines_clause
)
737 | record_description_entry
of (Cobol
.record_description_entry
)
738 | record_description_entries
of (Cobol
.record_description_entries
)
739 | record_description_entries_opt
of (Cobol
.record_description_entries_opt
)
740 | record_contains_clause
of (Cobol
.record_contains_clause
)
741 | qualifications
of (Cobol
.qualifications
)
742 | qualification
of (Cobol
.qualification
)
743 | procedure_division
of (Cobol
.procedure_division
)
744 | data_name_or_filler
of (Cobol
.data_name_or_filler
)
745 | picture_clause
of (string)
746 | paragraphs_and_sections
of (Cobol
.paragraphs_and_sections
)
747 | paragraphs
of (Cobol
.paragraphs
) | paragraph_name
of (string)
748 | paragraph
of (Cobol
.paragraph
)
749 | occurs_clause
of (Cobol
.table_length_description
*Cobol
.ascending_descending_key_phrases
*Cobol
.indexed_by_phrase
)
750 | object_computer_paragraph
of (Cobol
.object_computer_paragraph
)
751 | multiply_statement
of (Cobol
.multiply_statement
)
752 | move_statement
of (Cobol
.move_statement
)
753 | mnemonic_name
of (string)
754 | literal_ranges
of (Cobol
.literal_ranges
)
755 | literal_range
of (Cobol
.literal_range
)
756 | literal
of (Cobol
.literal
)
757 | linkage_section
of (Cobol
.linkage_section
)
758 | linage_clause
of (Cobol
.file_description_clause
)
759 | level_number
of (string) | left_right
of (Cobol
.left_right
)
760 | figurative_constant
of (Cobol
.figurative_constant
)
761 | leading_trailing
of (Cobol
.leading_trailing
)
762 | label_records_clause
of (Cobol
.file_description_clause
)
763 | is_not
of (Cobol
.is_not
) | integer_range
of (Cobol
.integer_range
)
764 | input_output_section
of (Cobol
.input_output_section
)
765 | indicator_clause
of (string)
766 | indexed_by_phrase
of (Cobol
.indexed_by_phrase
)
767 | index_names
of (Cobol
.index_names
) | index_name
of (string)
768 | imperative_statement
of (Cobol
.statements
)
769 | if_statement
of (Cobol
.if_statement
)
770 | identifiers
of (Cobol
.identifiers
)
771 | identifier_roundeds
of (Cobol
.identifier_roundeds
)
772 | identifier_rounded
of (Cobol
.identifier_rounded
)
773 | identifier_or_literals
of (Cobol
.identifier_or_literals
)
774 | identifier_or_literal
of (Cobol
.identifier_or_literal
)
775 | identifier
of (Cobol
.identifier
)
776 | identification_division
of (Cobol
.identification_division
)
777 | from_environment
of (Cobol
.from_environment
)
778 | footing_specification
of (Cobol
.footing_specification
)
779 | fixed_length_tables_clause
of (Cobol
.table_length_description
*Cobol
.ascending_descending_key_phrases
*Cobol
.indexed_by_phrase
)
780 | file_section
of (Cobol
.file_section
) | file_name
of (string)
781 | file_description_paragraphs
of (Cobol
.file_description_paragraphs
)
782 | file_description_paragraph
of (Cobol
.file_description_paragraph
)
783 | file_description_entry
of (Cobol
.file_description_entry
)
784 | file_description_clauses
of (Cobol
.file_description_clauses
)
785 | file_description_clause
of (Cobol
.file_description_clause
)
786 | file_and_sort_description_entry
of (Cobol
.file_and_sort_description_entry
)
787 | special_register
of (Cobol
.special_register
)
788 | environment_division
of (Cobol
.environment_division
)
789 | else_statements
of (Cobol
.else_statements
)
790 | divide_statement
of (Cobol
.divide_statement
)
791 | sign_specification
of (Cobol
.sign_specification
)
792 | data_class
of (Cobol
.data_class
)
793 | relational_operator
of (Cobol
.relational_operator
)
794 | declaratives_section
of (Cobol
.declaratives_section
)
795 | decimal_clause
of (Cobol
.decimal_clause
)
796 | date_day_time
of (Cobol
.date_day_time
)
797 | data_records_clause
of (Cobol
.data_records_clause
)
798 | data_name_or_literal
of (Cobol
.data_name_or_literal
)
799 | special_names_clause
of (Cobol
.special_names_clause
)
800 | special_names_clauses
of (Cobol
.special_names_clauses
)
801 | data_name_or_integer
of (Cobol
.data_name_or_integer
)
802 | data_names
of (Cobol
.data_names
) | data_name
of (string)
803 | data_division
of (Cobol
.data_division
)
804 | data_description_entry_134
of (Cobol
.record_description_entry
)
805 | data_description_entry
of (Cobol
.record_description_entry
)
806 | data_description_clauses
of (Cobol
.data_description_clauses
)
807 | data_description_clause
of (Cobol
.data_description_clause
)
808 | currency_sign_clause
of (Cobol
.currency_sign_clause
)
809 | configuration_section
of (Cobol
.configuration_section
)
810 | compute_statement
of (Cobol
.compute_statement
)
811 | code_set_clause
of (Cobol
.file_description_clause
)
812 | characters_or_records
of (Cobol
.characters_or_records
)
813 | character_string
of (string)
814 | block_contains_clause
of (Cobol
.file_description_clause
)
815 | ascending_descending_key_phrases
of (Cobol
.ascending_descending_key_phrases
)
816 | ascending_descending_key_phrase
of (Cobol
.ascending_descending_key_phrase
)
817 | ascending_descending
of (Cobol
.ascending_descending
)
818 | expression
of (cexpression
) | alphabet_name
of (string)
819 | add_statement
of (Cobol
.add_or_subtract_statement
)
820 | accept_statement
of (Cobol
.accept_statement
)
821 | test_cobol
of (Cobol
.test_cobol
)
822 | test_cobol_program
of (Cobol
.cobol_program
)
823 | test_cobol_programs
of (Cobol
.test_cobol_programs
)
824 | cobol_program
of (Cobol
.cobol_program
)
826 type svalue
= MlyValue
.svalue
827 (*TODO
13/01/1998 14:54. hojfeld
.: mine erklringer
:*)
830 datatype nonterm
= hojfelds_NT
of int
831 exception Hojfeld
of string
832 (*og s
: LrTable
.NT |
-> hojfelds_NT
*)
834 (*TODO
13/01/1998 14:54. hojfeld
.: mine erklringer slut
*)
836 fun actions(i392
:int, defaultPos
:pos
, stack
:(unit (*LrTable
.state
*) * (svalue
* pos
* pos
)) list
,
839 case (i392
, stack
) of
840 (0, _
) => raise Hojfeld
"0" (*act0(stack
)*)
841 |
(1, _
) => raise Hojfeld
"1" (*act1(stack
)*)
842 |
(2, _
) => raise Hojfeld
"2" (*act2(stack
)*)
843 |
(3, _
) => raise Hojfeld
"3" (*act3(stack
)*)
844 |
(4, _
) => raise Hojfeld
"4" (*act4(stack
)*)
845 |
(5, _
) => raise Hojfeld
"5" (*act5(stack
)*)
846 |
(6, _
) => raise Hojfeld
"6" (*act6(stack
)*)
847 |
(7, _
) => raise Hojfeld
"7" (*act7(stack
)*)
848 |
(8, _
) => raise Hojfeld
"8" (*act8(stack
,defaultPos
)*)
849 |
(9, _
) => raise Hojfeld
"9" (*act9(stack
)*)
850 |
(10,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
851 let val result
=MlyValue
.ntVOID(())
852 in (hojfelds_NT
76,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
)
854 |
(11,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
855 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
856 result
=MlyValue
.data_name((USERDEFINEDWORD
))
857 in (hojfelds_NT
96,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
)
859 |
(12,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
860 let val result
=MlyValue
.ntVOID(())
861 in (hojfelds_NT
98,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
)
864 |
(13,(_
,(_
,_
,qdata_name1right
))::_
::(_
,(_
,USERDEFINEDWORD1left
,_
))::
865 rest671
) => let val result
=MlyValue
.ntVOID(())
866 in (hojfelds_NT
98,(result
,USERDEFINEDWORD1left
,qdata_name1right
),
868 |
(14,(_
,(_
,_
,qdata_name1right
))::_
::(_
,(_
,USERDEFINEDWORD1left
,_
))::
869 rest671
) => let val result
=MlyValue
.ntVOID(())
870 in (hojfelds_NT
98,(result
,USERDEFINEDWORD1left
,qdata_name1right
),
872 |
(15,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
873 let val result
=MlyValue
.ntVOID(())
874 in (hojfelds_NT
389,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
876 |
(16,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
877 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
878 result
=MlyValue
.file_name((USERDEFINEDWORD
))
879 in (hojfelds_NT
200,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
881 |
(17,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
882 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
883 result
=MlyValue
.index_name((USERDEFINEDWORD
))
884 in (hojfelds_NT
244,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
886 |
(18,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
887 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
888 result
=MlyValue
.mnemonic_name((USERDEFINEDWORD
))
889 in (hojfelds_NT
309,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
891 |
(19,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
892 let val result
=MlyValue
.ntVOID(())
893 in (hojfelds_NT
415,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
895 |
(20,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
896 let val result
=MlyValue
.ntVOID(())
897 in (hojfelds_NT
291,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
899 |
(21,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
900 let val result
=MlyValue
.ntVOID(())
901 in (hojfelds_NT
374,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
903 |
(22,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
904 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
905 result
=MlyValue
.text_name((USERDEFINEDWORD
))
906 in (hojfelds_NT
486,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
908 |
(23,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
909 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
910 result
=MlyValue
.paragraph_name((USERDEFINEDWORD
))
911 in (hojfelds_NT
357,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
913 |
(24,(_
,(MlyValue
.INTEGER INTEGER
,INTEGER1left
,INTEGER1right
))::
914 rest671
) => let val result
=MlyValue
.paragraph_name((INTEGER
))
915 in (hojfelds_NT
357,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
916 |
(25,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
917 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
918 result
=MlyValue
.section_name((USERDEFINEDWORD
))
919 in (hojfelds_NT
422,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
921 |
(26,(_
,(MlyValue
.INTEGER INTEGER
,INTEGER1left
,INTEGER1right
))::
922 rest671
) => let val result
=MlyValue
.section_name((INTEGER
))
923 in (hojfelds_NT
422,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
924 |
(27,(_
,(MlyValue
.INTEGER INTEGER
,INTEGER1left
,INTEGER1right
))::
925 rest671
) => let val result
=MlyValue
.level_number((INTEGER
))
926 in (hojfelds_NT
290,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
927 |
(28,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,
928 USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) => let val
929 result
=MlyValue
.system_name((USERDEFINEDWORD
))
930 in (hojfelds_NT
478,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
932 |
(29,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
933 let val result
=MlyValue
.ntVOID(())
934 in (hojfelds_NT
74,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
)
936 |
(30,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
937 let val result
=MlyValue
.ntVOID(())
938 in (hojfelds_NT
286,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
940 |
(31,(_
,(_
,ZERO1left
,ZERO1right
))::rest671
) => let val result
=
941 MlyValue
.figurative_constant((Cobol
.ZERO
))
942 in (hojfelds_NT
288,(result
,ZERO1left
,ZERO1right
),rest671
) end
943 |
(32,(_
,(_
,ZEROS1left
,ZEROS1right
))::rest671
) => let val result
=
944 MlyValue
.figurative_constant((Cobol
.ZERO
))
945 in (hojfelds_NT
288,(result
,ZEROS1left
,ZEROS1right
),rest671
) end
946 |
(33,(_
,(_
,ZEROES1left
,ZEROES1right
))::rest671
) => let val result
=
947 MlyValue
.figurative_constant((Cobol
.ZERO
))
948 in (hojfelds_NT
288,(result
,ZEROES1left
,ZEROES1right
),rest671
) end
949 |
(34,(_
,(_
,SPACE1left
,SPACE1right
))::rest671
) => let val result
=
950 MlyValue
.figurative_constant((Cobol
.SPACE
))
951 in (hojfelds_NT
288,(result
,SPACE1left
,SPACE1right
),rest671
) end
952 |
(35,(_
,(_
,SPACES1left
,SPACES1right
))::rest671
) => let val result
=
953 MlyValue
.figurative_constant((Cobol
.SPACE
))
954 in (hojfelds_NT
288,(result
,SPACES1left
,SPACES1right
),rest671
) end
955 |
(36,(_
,(_
,HIGHVALUE1left
,HIGHVALUE1right
))::rest671
) => let val
956 result
=MlyValue
.figurative_constant((Cobol
.HIGHVALUE
))
957 in (hojfelds_NT
288,(result
,HIGHVALUE1left
,HIGHVALUE1right
),rest671
)
959 |
(37,(_
,(_
,HIGHVALUES1left
,HIGHVALUES1right
))::rest671
) => let val
960 result
=MlyValue
.figurative_constant((Cobol
.HIGHVALUE
))
961 in (hojfelds_NT
288,(result
,HIGHVALUES1left
,HIGHVALUES1right
),rest671
)
963 |
(38,(_
,(_
,LOWVALUE1left
,LOWVALUE1right
))::rest671
) => let val result
964 =MlyValue
.figurative_constant((Cobol
.LOWVALUE
))
965 in (hojfelds_NT
288,(result
,LOWVALUE1left
,LOWVALUE1right
),rest671
) end
966 |
(39,(_
,(_
,LOWVALUES1left
,LOWVALUES1right
))::rest671
) => let val
967 result
=MlyValue
.figurative_constant((Cobol
.LOWVALUE
))
968 in (hojfelds_NT
288,(result
,LOWVALUES1left
,LOWVALUES1right
),rest671
)
970 |
(40,(_
,(_
,QUOTE1left
,QUOTE1right
))::rest671
) => let val result
=
971 MlyValue
.figurative_constant((Cobol
.QUOTE
))
972 in (hojfelds_NT
288,(result
,QUOTE1left
,QUOTE1right
),rest671
) end
973 |
(41,(_
,(_
,QUOTES1left
,QUOTES1right
))::rest671
) => let val result
=
974 MlyValue
.figurative_constant((Cobol
.QUOTE
))
975 in (hojfelds_NT
288,(result
,QUOTES1left
,QUOTES1right
),rest671
) end
976 |
(42,(_
,(_
,_
,ZERO1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
977 result
=MlyValue
.figurative_constant((Cobol
.ALL_ZERO
))
978 in (hojfelds_NT
288,(result
,ALL1left
,ZERO1right
),rest671
) end
979 |
(43,(_
,(_
,_
,ZEROS1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
980 result
=MlyValue
.figurative_constant((Cobol
.ALL_ZERO
))
981 in (hojfelds_NT
288,(result
,ALL1left
,ZEROS1right
),rest671
) end
982 |
(44,(_
,(_
,_
,ZEROES1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
983 result
=MlyValue
.figurative_constant((Cobol
.ALL_ZERO
))
984 in (hojfelds_NT
288,(result
,ALL1left
,ZEROES1right
),rest671
) end
985 |
(45,(_
,(_
,_
,SPACE1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
986 result
=MlyValue
.figurative_constant((Cobol
.ALL_SPACE
))
987 in (hojfelds_NT
288,(result
,ALL1left
,SPACE1right
),rest671
) end
988 |
(46,(_
,(_
,_
,SPACES1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
989 result
=MlyValue
.figurative_constant((Cobol
.ALL_SPACE
))
990 in (hojfelds_NT
288,(result
,ALL1left
,SPACES1right
),rest671
) end
991 |
(47,(_
,(_
,_
,HIGHVALUE1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let
992 val result
=MlyValue
.figurative_constant((Cobol
.ALL_HIGHVALUE
))
993 in (hojfelds_NT
288,(result
,ALL1left
,HIGHVALUE1right
),rest671
) end
994 |
(48,(_
,(_
,_
,HIGHVALUES1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let
995 val result
=MlyValue
.figurative_constant((Cobol
.ALL_HIGHVALUE
))
996 in (hojfelds_NT
288,(result
,ALL1left
,HIGHVALUES1right
),rest671
) end
997 |
(49,(_
,(_
,_
,LOWVALUE1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let
998 val result
=MlyValue
.figurative_constant((Cobol
.ALL_LOWVALUE
))
999 in (hojfelds_NT
288,(result
,ALL1left
,LOWVALUE1right
),rest671
) end
1000 |
(50,(_
,(_
,_
,LOWVALUES1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let
1001 val result
=MlyValue
.figurative_constant((Cobol
.ALL_LOWVALUE
))
1002 in (hojfelds_NT
288,(result
,ALL1left
,LOWVALUES1right
),rest671
) end
1003 |
(51,(_
,(_
,_
,QUOTE1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
1004 result
=MlyValue
.figurative_constant((Cobol
.ALL_QUOTE
))
1005 in (hojfelds_NT
288,(result
,ALL1left
,QUOTE1right
),rest671
) end
1006 |
(52,(_
,(_
,_
,QUOTES1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
1007 result
=MlyValue
.figurative_constant((Cobol
.ALL_QUOTE
))
1008 in (hojfelds_NT
288,(result
,ALL1left
,QUOTES1right
),rest671
) end
1009 |
(53,(_
,(MlyValue
.NONNUMERICLITERAL NONNUMERICLITERAL
,_
,
1010 NONNUMERICLITERAL1right
))::(_
,(_
,ALL1left
,_
))::rest671
) => let val
1011 result
=MlyValue
.figurative_constant((
1012 Cobol
.ALL_NONNUMERICLITERAL(NONNUMERICLITERAL
)))
1013 in (hojfelds_NT
288,(result
,ALL1left
,NONNUMERICLITERAL1right
),rest671
)
1015 |
(54,(_
,(_
,LINAGECOUNTER1left
,LINAGECOUNTER1right
))::rest671
) => let
1016 val result
=MlyValue
.special_register((Cobol
.LINAGECOUNTER
))
1017 in (hojfelds_NT
181,(result
,LINAGECOUNTER1left
,LINAGECOUNTER1right
),
1019 |
(55,(_
,(_
,DEBUGITEM1left
,DEBUGITEM1right
))::rest671
) => let val
1020 result
=MlyValue
.special_register((Cobol
.DEBUGITEM
))
1021 in (hojfelds_NT
181,(result
,DEBUGITEM1left
,DEBUGITEM1right
),rest671
)
1023 |
(56,(_
,(_
,PERIOD1left
,PERIOD1right
))::rest671
) => let val result
=
1025 in (hojfelds_NT
361,(result
,PERIOD1left
,PERIOD1right
),rest671
) end
1026 |
(57,rest671
) => let val result
=MlyValue
.ntVOID(())
1027 in (hojfelds_NT
361,(result
,defaultPos
,defaultPos
),rest671
) end
1028 |
(58,(_
,(_
,data_name1left
,data_name1right
))::rest671
) => let val
1029 result
=MlyValue
.ntVOID(())
1030 in (hojfelds_NT
100,(result
,data_name1left
,data_name1right
),rest671
)
1032 |
(59,rest671
) => let val result
=MlyValue
.ntVOID(())
1033 in (hojfelds_NT
100,(result
,defaultPos
,defaultPos
),rest671
) end
1034 |
(60,(_
,(_
,procedure_name1left
,procedure_name1right
))::rest671
) =>
1035 let val result
=MlyValue
.ntVOID(())
1036 in (hojfelds_NT
369,(result
,procedure_name1left
,procedure_name1right
),
1038 |
(61,rest671
) => let val result
=MlyValue
.ntVOID(())
1039 in (hojfelds_NT
369,(result
,defaultPos
,defaultPos
),rest671
) end
1040 |
(62,(_
,(_
,routine_name1left
,routine_name1right
))::rest671
) => let
1041 val result
=MlyValue
.ntVOID(())
1042 in (hojfelds_NT
183,(result
,routine_name1left
,routine_name1right
),
1044 |
(63,rest671
) => let val result
=MlyValue
.ntVOID(())
1045 in (hojfelds_NT
183,(result
,defaultPos
,defaultPos
),rest671
) end
1046 |
(64,(_
,(MlyValue
.INTEGER INTEGER
,INTEGER1left
,INTEGER1right
))::
1047 rest671
) => let val result
=MlyValue
.segment_number_opt((
1048 Cobol
.SEGMENT_NUMBER(INTEGER
)))
1049 in (hojfelds_NT
428,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
1050 |
(65,rest671
) => let val result
=MlyValue
.segment_number_opt((
1051 Cobol
.NOSEGMENT_NUMBER
))
1052 in (hojfelds_NT
428,(result
,defaultPos
,defaultPos
),rest671
) end
1053 |
(66,(_
,(MlyValue
.data_name data_name
,_
,data_name1right
))::(_
,(
1054 MlyValue
.data_names data_names
,data_names1left
,_
))::rest671
) => let
1055 val result
=MlyValue
.data_names((
1056 Cobol
.DATA_NAMES(data_names
,data_name
)))
1057 in (hojfelds_NT
97,(result
,data_names1left
,data_name1right
),rest671
)
1059 |
(67,(_
,(MlyValue
.data_name data_name
,data_name1left
,data_name1right
)
1060 )::rest671
) => let val result
=MlyValue
.data_names((
1061 Cobol
.ONE_DATA_NAME(data_name
)))
1062 in (hojfelds_NT
97,(result
,data_name1left
,data_name1right
),rest671
)
1064 |
(68,(_
,(_
,_
,qdata_name1right
))::(_
,(_
,qdata_names1left
,_
))::rest671
)
1065 => let val result
=MlyValue
.ntVOID(())
1066 in (hojfelds_NT
99,(result
,qdata_names1left
,qdata_name1right
),rest671
)
1068 |
(69,(_
,(_
,qdata_name1left
,qdata_name1right
))::rest671
) => let val
1069 result
=MlyValue
.ntVOID(())
1070 in (hojfelds_NT
99,(result
,qdata_name1left
,qdata_name1right
),rest671
)
1072 |
(70,(_
,(_
,_
,file_name1right
))::(_
,(_
,file_names1left
,_
))::rest671
)
1073 => let val result
=MlyValue
.ntVOID(())
1074 in (hojfelds_NT
203,(result
,file_names1left
,file_name1right
),rest671
)
1076 |
(71,(_
,(_
,file_name1left
,file_name1right
))::rest671
) => let val
1077 result
=MlyValue
.ntVOID(())
1078 in (hojfelds_NT
203,(result
,file_name1left
,file_name1right
),rest671
)
1080 |
(72,(_
,(MlyValue
.index_name index_name
,_
,index_name1right
))::(_
,(
1081 MlyValue
.index_names index_names
,index_names1left
,_
))::rest671
) =>
1082 let val result
=MlyValue
.index_names((
1083 Cobol
.SEVERAL_INDEX_NAMES(index_names
,index_name
)))
1084 in (hojfelds_NT
245,(result
,index_names1left
,index_name1right
),rest671
1086 |
(73,(_
,(MlyValue
.index_name index_name
,index_name1left
,
1087 index_name1right
))::rest671
) => let val result
=MlyValue
.index_names((
1088 Cobol
.ONE_INDEX_NAME(index_name
)))
1089 in (hojfelds_NT
245,(result
,index_name1left
,index_name1right
),rest671
)
1091 |
(74,(_
,(_
,_
,procedure_name1right
))::(_
,(_
,procedure_names1left
,_
))::
1092 rest671
) => let val result
=MlyValue
.ntVOID(())
1093 in (hojfelds_NT
370,(result
,procedure_names1left
,procedure_name1right
)
1095 |
(75,(_
,(_
,procedure_name1left
,procedure_name1right
))::rest671
) =>
1096 let val result
=MlyValue
.ntVOID(())
1097 in (hojfelds_NT
370,(result
,procedure_name1left
,procedure_name1right
),
1099 |
(76,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
1100 let val result
=MlyValue
.ntVOID(())
1101 in (hojfelds_NT
106,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
1103 |
(77,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
1104 let val result
=MlyValue
.ntVOID(())
1105 in (hojfelds_NT
368,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
1107 |
(78,(_
,(_
,INTEGER1left
,INTEGER1right
))::rest671
) => let val result
=
1109 in (hojfelds_NT
368,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
1110 |
(79,(_
,(_
,SYSTEMCONSOLE1left
,SYSTEMCONSOLE1right
))::rest671
) => let
1111 val result
=MlyValue
.ntVOID(())
1112 in (hojfelds_NT
154,(result
,SYSTEMCONSOLE1left
,SYSTEMCONSOLE1right
),
1114 |
(80,(_
,(_
,REQUESTOR1left
,REQUESTOR1right
))::rest671
) => let val
1115 result
=MlyValue
.ntVOID(())
1116 in (hojfelds_NT
154,(result
,REQUESTOR1left
,REQUESTOR1right
),rest671
)
1118 |
(81,(_
,(_
,LOCALDATA1left
,LOCALDATA1right
))::rest671
) => let val
1119 result
=MlyValue
.ntVOID(())
1120 in (hojfelds_NT
154,(result
,LOCALDATA1left
,LOCALDATA1right
),rest671
)
1122 |
(82,(_
,(_
,ATTRIBUTEDATA1left
,ATTRIBUTEDATA1right
))::rest671
) => let
1123 val result
=MlyValue
.ntVOID(())
1124 in (hojfelds_NT
154,(result
,ATTRIBUTEDATA1left
,ATTRIBUTEDATA1right
),
1126 |
(83,(_
,(_
,C011left
,C011right
))::rest671
) => let val result
=
1128 in (hojfelds_NT
154,(result
,C011left
,C011right
),rest671
) end
1129 |
(84,(_
,(_
,CSP1left
,CSP1right
))::rest671
) => let val result
=
1131 in (hojfelds_NT
154,(result
,CSP1left
,CSP1right
),rest671
) end
1132 |
(85,(_
,(_
,SYSTEMSHUTDOWN1left
,SYSTEMSHUTDOWN1right
))::rest671
) =>
1133 let val result
=MlyValue
.ntVOID(())
1134 in (hojfelds_NT
155,(result
,SYSTEMSHUTDOWN1left
,SYSTEMSHUTDOWN1right
),
1136 |
(86,(_
,(_
,UPSI01left
,UPSI01right
))::rest671
) => let val result
=
1138 in (hojfelds_NT
155,(result
,UPSI01left
,UPSI01right
),rest671
) end
1139 |
(87,(_
,(_
,UPSI11left
,UPSI11right
))::rest671
) => let val result
=
1141 in (hojfelds_NT
155,(result
,UPSI11left
,UPSI11right
),rest671
) end
1142 |
(88,(_
,(_
,UPSI21left
,UPSI21right
))::rest671
) => let val result
=
1144 in (hojfelds_NT
155,(result
,UPSI21left
,UPSI21right
),rest671
) end
1145 |
(89,(_
,(_
,UPSI31left
,UPSI31right
))::rest671
) => let val result
=
1147 in (hojfelds_NT
155,(result
,UPSI31left
,UPSI31right
),rest671
) end
1148 |
(90,(_
,(_
,UPSI41left
,UPSI41right
))::rest671
) => let val result
=
1150 in (hojfelds_NT
155,(result
,UPSI41left
,UPSI41right
),rest671
) end
1151 |
(91,(_
,(_
,UPSI51left
,UPSI51right
))::rest671
) => let val result
=
1153 in (hojfelds_NT
155,(result
,UPSI51left
,UPSI51right
),rest671
) end
1154 |
(92,(_
,(_
,UPSI61left
,UPSI61right
))::rest671
) => let val result
=
1156 in (hojfelds_NT
155,(result
,UPSI61left
,UPSI61right
),rest671
) end
1157 |
(93,(_
,(_
,UPSI71left
,UPSI71right
))::rest671
) => let val result
=
1159 in (hojfelds_NT
155,(result
,UPSI71left
,UPSI71right
),rest671
) end
1160 |
(94,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
) =>
1161 let val result
=MlyValue
.ntVOID(())
1162 in (hojfelds_NT
47,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
)
1164 |
(95,(_
,(_
,ADVANCING1left
,ADVANCING1right
))::rest671
) => let val
1165 result
=MlyValue
.ntVOID(())
1166 in (hojfelds_NT
11,(result
,ADVANCING1left
,ADVANCING1right
),rest671
)
1168 |
(96,rest671
) => let val result
=MlyValue
.ntVOID(())
1169 in (hojfelds_NT
11,(result
,defaultPos
,defaultPos
),rest671
) end
1170 |
(97,(_
,(_
,ALL1left
,ALL1right
))::rest671
) => let val result
=
1172 in (hojfelds_NT
15,(result
,ALL1left
,ALL1right
),rest671
) end
1173 |
(98,rest671
) => let val result
=MlyValue
.ntVOID(())
1174 in (hojfelds_NT
15,(result
,defaultPos
,defaultPos
),rest671
) end
1175 |
(99,(_
,(_
,ARE1left
,ARE1right
))::rest671
) => let val result
=
1177 in (hojfelds_NT
38,(result
,ARE1left
,ARE1right
),rest671
) end
1178 |
(100,rest671
) => let val result
=MlyValue
.ntVOID(())
1179 in (hojfelds_NT
38,(result
,defaultPos
,defaultPos
),rest671
) end
1180 |
(101,(_
,(_
,AREA1left
,AREA1right
))::rest671
) => let val result
=
1182 in (hojfelds_NT
39,(result
,AREA1left
,AREA1right
),rest671
) end
1183 |
(102,rest671
) => let val result
=MlyValue
.ntVOID(())
1184 in (hojfelds_NT
39,(result
,defaultPos
,defaultPos
),rest671
) end
1185 |
(103,(_
,(_
,AREAS1left
,AREAS1right
))::rest671
) => let val result
=
1187 in (hojfelds_NT
41,(result
,AREAS1left
,AREAS1right
),rest671
) end
1188 |
(104,(_
,(_
,AREA1left
,AREA1right
))::rest671
) => let val result
=
1190 in (hojfelds_NT
41,(result
,AREA1left
,AREA1right
),rest671
) end
1191 |
(105,rest671
) => let val result
=MlyValue
.ntVOID(())
1192 in (hojfelds_NT
41,(result
,defaultPos
,defaultPos
),rest671
) end
1193 |
(106,(_
,(_
,_
,for_opt1right
))::(_
,(_
,area1left
,_
))::rest671
) => let
1194 val result
=MlyValue
.ntVOID(())
1195 in (hojfelds_NT
40,(result
,area1left
,for_opt1right
),rest671
) end
1196 |
(107,(_
,(_
,AT1left
,AT1right
))::rest671
) => let val result
=
1198 in (hojfelds_NT
48,(result
,AT1left
,AT1right
),rest671
) end
1199 |
(108,rest671
) => let val result
=MlyValue
.ntVOID(())
1200 in (hojfelds_NT
48,(result
,defaultPos
,defaultPos
),rest671
) end
1201 |
(109,(_
,(_
,BY1left
,BY1right
))::rest671
) => let val result
=
1203 in (hojfelds_NT
54,(result
,BY1left
,BY1right
),rest671
) end
1204 |
(110,rest671
) => let val result
=MlyValue
.ntVOID(())
1205 in (hojfelds_NT
54,(result
,defaultPos
,defaultPos
),rest671
) end
1206 |
(111,(_
,(_
,CHARACTER1left
,CHARACTER1right
))::rest671
) => let val
1207 result
=MlyValue
.ntVOID(())
1208 in (hojfelds_NT
59,(result
,CHARACTER1left
,CHARACTER1right
),rest671
)
1210 |
(112,rest671
) => let val result
=MlyValue
.ntVOID(())
1211 in (hojfelds_NT
59,(result
,defaultPos
,defaultPos
),rest671
) end
1212 |
(113,(_
,(_
,CHARACTERS1left
,CHARACTERS1right
))::rest671
) => let val
1213 result
=MlyValue
.ntVOID(())
1214 in (hojfelds_NT
61,(result
,CHARACTERS1left
,CHARACTERS1right
),rest671
)
1216 |
(114,rest671
) => let val result
=MlyValue
.ntVOID(())
1217 in (hojfelds_NT
61,(result
,defaultPos
,defaultPos
),rest671
) end
1218 |
(115,(_
,(_
,COLLATING1left
,COLLATING1right
))::rest671
) => let val
1219 result
=MlyValue
.ntVOID(())
1220 in (hojfelds_NT
66,(result
,COLLATING1left
,COLLATING1right
),rest671
)
1222 |
(116,rest671
) => let val result
=MlyValue
.ntVOID(())
1223 in (hojfelds_NT
66,(result
,defaultPos
,defaultPos
),rest671
) end
1224 |
(117,(_
,(_
,CONTAINS1left
,CONTAINS1right
))::rest671
) => let val
1225 result
=MlyValue
.ntVOID(())
1226 in (hojfelds_NT
78,(result
,CONTAINS1left
,CONTAINS1right
),rest671
) end
1227 |
(118,rest671
) => let val result
=MlyValue
.ntVOID(())
1228 in (hojfelds_NT
78,(result
,defaultPos
,defaultPos
),rest671
) end
1229 |
(119,(_
,(_
,EVERY1left
,EVERY1right
))::rest671
) => let val result
=
1231 in (hojfelds_NT
159,(result
,EVERY1left
,EVERY1right
),rest671
) end
1232 |
(120,rest671
) => let val result
=MlyValue
.ntVOID(())
1233 in (hojfelds_NT
159,(result
,defaultPos
,defaultPos
),rest671
) end
1234 |
(121,(_
,(_
,FILE1left
,FILE1right
))::rest671
) => let val result
=
1236 in (hojfelds_NT
166,(result
,FILE1left
,FILE1right
),rest671
) end
1237 |
(122,rest671
) => let val result
=MlyValue
.ntVOID(())
1238 in (hojfelds_NT
166,(result
,defaultPos
,defaultPos
),rest671
) end
1239 |
(123,(_
,(_
,FILLER1left
,FILLER1right
))::rest671
) => let val result
=
1240 MlyValue
.filler((Cobol
.FILLER
))
1241 in (hojfelds_NT
496,(result
,FILLER1left
,FILLER1right
),rest671
) end
1242 |
(124,rest671
) => let val result
=MlyValue
.filler((Cobol
.NO_FILLER
))
1243 in (hojfelds_NT
496,(result
,defaultPos
,defaultPos
),rest671
) end
1244 |
(125,(_
,(_
,FOR1left
,FOR1right
))::rest671
) => let val result
=
1246 in (hojfelds_NT
213,(result
,FOR1left
,FOR1right
),rest671
) end
1247 |
(126,rest671
) => let val result
=MlyValue
.ntVOID(())
1248 in (hojfelds_NT
213,(result
,defaultPos
,defaultPos
),rest671
) end
1249 |
(127,(_
,(_
,_
,REMOVAL1right
))::(_
,(_
,for_opt1left
,_
))::rest671
) =>
1250 let val result
=MlyValue
.ntVOID(())
1251 in (hojfelds_NT
214,(result
,for_opt1left
,REMOVAL1right
),rest671
) end
1252 |
(128,rest671
) => let val result
=MlyValue
.ntVOID(())
1253 in (hojfelds_NT
214,(result
,defaultPos
,defaultPos
),rest671
) end
1254 |
(129,(_
,(_
,INITIAL1left
,INITIAL1right
))::rest671
) => let val result
=
1256 in (hojfelds_NT
253,(result
,INITIAL1left
,INITIAL1right
),rest671
) end
1257 |
(130,rest671
) => let val result
=MlyValue
.ntVOID(())
1258 in (hojfelds_NT
253,(result
,defaultPos
,defaultPos
),rest671
) end
1259 |
(131,(_
,(_
,IN1left
,IN1right
))::rest671
) => let val result
=
1261 in (hojfelds_NT
242,(result
,IN1left
,IN1right
),rest671
) end
1262 |
(132,rest671
) => let val result
=MlyValue
.ntVOID(())
1263 in (hojfelds_NT
242,(result
,defaultPos
,defaultPos
),rest671
) end
1264 |
(133,(_
,(_
,IS1left
,IS1right
))::rest671
) => let val result
=
1266 in (hojfelds_NT
278,(result
,IS1left
,IS1right
),rest671
) end
1267 |
(134,rest671
) => let val result
=MlyValue
.ntVOID(())
1268 in (hojfelds_NT
278,(result
,defaultPos
,defaultPos
),rest671
) end
1269 |
(135,(_
,(_
,_
,NOT1right
))::(_
,(_
,IS1left
,_
))::rest671
) => let val
1270 result
=MlyValue
.is_not((Cobol
.IS_NOT_NOT
))
1271 in (hojfelds_NT
279,(result
,IS1left
,NOT1right
),rest671
) end
1272 |
(136,(_
,(_
,IS1left
,IS1right
))::rest671
) => let val result
=
1273 MlyValue
.is_not((Cobol
.IS_NOT_IS
))
1274 in (hojfelds_NT
279,(result
,IS1left
,IS1right
),rest671
) end
1275 |
(137,(_
,(_
,NOT1left
,NOT1right
))::rest671
) => let val result
=
1276 MlyValue
.is_not((Cobol
.IS_NOT_NOT
))
1277 in (hojfelds_NT
279,(result
,NOT1left
,NOT1right
),rest671
) end
1278 |
(138,rest671
) => let val result
=MlyValue
.is_not((Cobol
.IS_NOT_IS
))
1279 in (hojfelds_NT
279,(result
,defaultPos
,defaultPos
),rest671
) end
1280 |
(139,(_
,(_
,KEY1left
,KEY1right
))::rest671
) => let val result
=
1282 in (hojfelds_NT
282,(result
,KEY1left
,KEY1right
),rest671
) end
1283 |
(140,rest671
) => let val result
=MlyValue
.ntVOID(())
1284 in (hojfelds_NT
282,(result
,defaultPos
,defaultPos
),rest671
) end
1285 |
(141,(_
,(_
,LINE1left
,LINE1right
))::rest671
) => let val result
=
1287 in (hojfelds_NT
294,(result
,LINE1left
,LINE1right
),rest671
) end
1288 |
(142,(_
,(_
,lines1left
,lines1right
))::rest671
) => let val result
=
1290 in (hojfelds_NT
294,(result
,lines1left
,lines1right
),rest671
) end
1291 |
(143,(_
,(_
,LINES1left
,LINES1right
))::rest671
) => let val result
=
1293 in (hojfelds_NT
295,(result
,LINES1left
,LINES1right
),rest671
) end
1294 |
(144,rest671
) => let val result
=MlyValue
.ntVOID(())
1295 in (hojfelds_NT
295,(result
,defaultPos
,defaultPos
),rest671
) end
1296 |
(145,(_
,(_
,_
,is1right
))::(_
,(_
,MODE1left
,_
))::rest671
) => let val
1297 result
=MlyValue
.ntVOID(())
1298 in (hojfelds_NT
313,(result
,MODE1left
,is1right
),rest671
) end
1299 |
(146,(_
,(_
,is1left
,is1right
))::rest671
) => let val result
=
1301 in (hojfelds_NT
313,(result
,is1left
,is1right
),rest671
) end
1302 |
(147,(_
,(_
,NEXT1left
,NEXT1right
))::rest671
) => let val result
=
1304 in (hojfelds_NT
148,(result
,NEXT1left
,NEXT1right
),rest671
) end
1305 |
(148,(_
,(_
,FIRST1left
,FIRST1right
))::rest671
) => let val result
=
1307 in (hojfelds_NT
148,(result
,FIRST1left
,FIRST1right
),rest671
) end
1308 |
(149,(_
,(_
,LAST1left
,LAST1right
))::rest671
) => let val result
=
1310 in (hojfelds_NT
148,(result
,LAST1left
,LAST1right
),rest671
) end
1311 |
(150,(_
,(_
,PRIOR1left
,PRIOR1right
))::rest671
) => let val result
=
1313 in (hojfelds_NT
148,(result
,PRIOR1left
,PRIOR1right
),rest671
) end
1314 |
(151,rest671
) => let val result
=MlyValue
.ntVOID(())
1315 in (hojfelds_NT
148,(result
,defaultPos
,defaultPos
),rest671
) end
1316 |
(152,(_
,(_
,OF1left
,OF1right
))::rest671
) => let val result
=
1318 in (hojfelds_NT
331,(result
,OF1left
,OF1right
),rest671
) end
1319 |
(153,rest671
) => let val result
=MlyValue
.ntVOID(())
1320 in (hojfelds_NT
331,(result
,defaultPos
,defaultPos
),rest671
) end
1321 |
(154,(_
,(_
,ON1left
,ON1right
))::rest671
) => let val result
=
1323 in (hojfelds_NT
335,(result
,ON1left
,ON1right
),rest671
) end
1324 |
(155,rest671
) => let val result
=MlyValue
.ntVOID(())
1325 in (hojfelds_NT
335,(result
,defaultPos
,defaultPos
),rest671
) end
1326 |
(156,(_
,(_
,OPTIONAL1left
,OPTIONAL1right
))::rest671
) => let val
1327 result
=MlyValue
.ntVOID(())
1328 in (hojfelds_NT
348,(result
,OPTIONAL1left
,OPTIONAL1right
),rest671
) end
1329 |
(157,rest671
) => let val result
=MlyValue
.ntVOID(())
1330 in (hojfelds_NT
348,(result
,defaultPos
,defaultPos
),rest671
) end
1331 |
(158,(_
,(_
,_
,is1right
))::(_
,(_
,ORGANIZATION1left
,_
))::rest671
) =>
1332 let val result
=MlyValue
.ntVOID(())
1333 in (hojfelds_NT
352,(result
,ORGANIZATION1left
,is1right
),rest671
) end
1334 |
(159,(_
,(_
,_
,TO1right
))::(_
,(_
,PROCEED1left
,_
))::rest671
) => let
1335 val result
=MlyValue
.ntVOID(())
1336 in (hojfelds_NT
371,(result
,PROCEED1left
,TO1right
),rest671
) end
1337 |
(160,rest671
) => let val result
=MlyValue
.ntVOID(())
1338 in (hojfelds_NT
371,(result
,defaultPos
,defaultPos
),rest671
) end
1339 |
(161,(_
,(_
,_
,COLLATING1right
))::(_
,(_
,PROGRAM1left
,_
))::rest671
) =>
1340 let val result
=MlyValue
.ntVOID(())
1341 in (hojfelds_NT
373,(result
,PROGRAM1left
,COLLATING1right
),rest671
) end
1342 |
(162,(_
,(_
,PROGRAM1left
,PROGRAM1right
))::rest671
) => let val result
=
1344 in (hojfelds_NT
373,(result
,PROGRAM1left
,PROGRAM1right
),rest671
) end
1345 |
(163,(_
,(_
,COLLATING1left
,COLLATING1right
))::rest671
) => let val
1346 result
=MlyValue
.ntVOID(())
1347 in (hojfelds_NT
373,(result
,COLLATING1left
,COLLATING1right
),rest671
)
1349 |
(164,rest671
) => let val result
=MlyValue
.ntVOID(())
1350 in (hojfelds_NT
373,(result
,defaultPos
,defaultPos
),rest671
) end
1351 |
(165,(_
,(_
,RECORD1left
,RECORD1right
))::rest671
) => let val result
=
1353 in (hojfelds_NT
378,(result
,RECORD1left
,RECORD1right
),rest671
) end
1354 |
(166,rest671
) => let val result
=MlyValue
.ntVOID(())
1355 in (hojfelds_NT
378,(result
,defaultPos
,defaultPos
),rest671
) end
1356 |
(167,(_
,(_
,RIGHT1left
,RIGHT1right
))::rest671
) => let val result
=
1358 in (hojfelds_NT
413,(result
,RIGHT1left
,RIGHT1right
),rest671
) end
1359 |
(168,rest671
) => let val result
=MlyValue
.ntVOID(())
1360 in (hojfelds_NT
413,(result
,defaultPos
,defaultPos
),rest671
) end
1361 |
(169,(_
,(_
,ROUNDED1left
,ROUNDED1right
))::rest671
) => let val result
=
1362 MlyValue
.rounded((Cobol
.ROUNDED
))
1363 in (hojfelds_NT
414,(result
,ROUNDED1left
,ROUNDED1right
),rest671
) end
1364 |
(170,rest671
) => let val result
=MlyValue
.rounded((Cobol
.NOT_ROUNDED
)
1366 in (hojfelds_NT
414,(result
,defaultPos
,defaultPos
),rest671
) end
1367 |
(171,(_
,(_
,_
,character1right
))::(_
,(_
,SEPARATE1left
,_
))::rest671
)
1368 => let val result
=MlyValue
.separate_character((Cobol
.SEPARATE
))
1369 in (hojfelds_NT
431,(result
,SEPARATE1left
,character1right
),rest671
)
1371 |
(172,rest671
) => let val result
=MlyValue
.separate_character((
1373 in (hojfelds_NT
431,(result
,defaultPos
,defaultPos
),rest671
) end
1374 |
(173,(_
,(_
,_
,IS1right
))::(_
,(_
,SIGN1left
,_
))::rest671
) => let val
1375 result
=MlyValue
.ntVOID(())
1376 in (hojfelds_NT
437,(result
,SIGN1left
,IS1right
),rest671
) end
1377 |
(174,(_
,(_
,IS1left
,IS1right
))::rest671
) => let val result
=
1379 in (hojfelds_NT
437,(result
,IS1left
,IS1right
),rest671
) end
1380 |
(175,(_
,(_
,_
,is1right
))::(_
,(_
,SIGN1left
,_
))::rest671
) => let val
1381 result
=MlyValue
.ntVOID(())
1382 in (hojfelds_NT
438,(result
,SIGN1left
,is1right
),rest671
) end
1383 |
(176,rest671
) => let val result
=MlyValue
.ntVOID(())
1384 in (hojfelds_NT
438,(result
,defaultPos
,defaultPos
),rest671
) end
1385 |
(177,(_
,(_
,SIZE1left
,SIZE1right
))::rest671
) => let val result
=
1387 in (hojfelds_NT
440,(result
,SIZE1left
,SIZE1right
),rest671
) end
1388 |
(178,rest671
) => let val result
=MlyValue
.ntVOID(())
1389 in (hojfelds_NT
440,(result
,defaultPos
,defaultPos
),rest671
) end
1390 |
(179,(_
,(_
,STANDARD1left
,STANDARD1right
))::rest671
) => let val
1391 result
=MlyValue
.ntVOID(())
1392 in (hojfelds_NT
455,(result
,STANDARD1left
,STANDARD1right
),rest671
) end
1393 |
(180,rest671
) => let val result
=MlyValue
.ntVOID(())
1394 in (hojfelds_NT
455,(result
,defaultPos
,defaultPos
),rest671
) end
1395 |
(181,(_
,(_
,_
,IS1right
))::(_
,(_
,STATUS1left
,_
))::rest671
) => let val
1396 result
=MlyValue
.ntVOID(())
1397 in (hojfelds_NT
464,(result
,STATUS1left
,IS1right
),rest671
) end
1398 |
(182,(_
,(_
,IS1left
,IS1right
))::rest671
) => let val result
=
1400 in (hojfelds_NT
464,(result
,IS1left
,IS1right
),rest671
) end
1401 |
(183,(_
,(_
,_
,CONTAINS1right
))::(_
,(_
,TAPE1left
,_
))::rest671
) => let
1402 val result
=MlyValue
.ntVOID(())
1403 in (hojfelds_NT
483,(result
,TAPE1left
,CONTAINS1right
),rest671
) end
1404 |
(184,(_
,(_
,TAPE1left
,TAPE1right
))::rest671
) => let val result
=
1406 in (hojfelds_NT
483,(result
,TAPE1left
,TAPE1right
),rest671
) end
1407 |
(185,(_
,(_
,CONTAINS1left
,CONTAINS1right
))::rest671
) => let val
1408 result
=MlyValue
.ntVOID(())
1409 in (hojfelds_NT
483,(result
,CONTAINS1left
,CONTAINS1right
),rest671
) end
1410 |
(186,rest671
) => let val result
=MlyValue
.ntVOID(())
1411 in (hojfelds_NT
483,(result
,defaultPos
,defaultPos
),rest671
) end
1412 |
(187,(_
,(_
,THAN1left
,THAN1right
))::rest671
) => let val result
=
1414 in (hojfelds_NT
487,(result
,THAN1left
,THAN1right
),rest671
) end
1415 |
(188,rest671
) => let val result
=MlyValue
.ntVOID(())
1416 in (hojfelds_NT
487,(result
,defaultPos
,defaultPos
),rest671
) end
1417 |
(189,(_
,(_
,THEN1left
,THEN1right
))::rest671
) => let val result
=
1419 in (hojfelds_NT
488,(result
,THEN1left
,THEN1right
),rest671
) end
1420 |
(190,rest671
) => let val result
=MlyValue
.ntVOID(())
1421 in (hojfelds_NT
488,(result
,defaultPos
,defaultPos
),rest671
) end
1422 |
(191,(_
,(_
,TIMES1left
,TIMES1right
))::rest671
) => let val result
=
1424 in (hojfelds_NT
497,(result
,TIMES1left
,TIMES1right
),rest671
) end
1425 |
(192,rest671
) => let val result
=MlyValue
.ntVOID(())
1426 in (hojfelds_NT
497,(result
,defaultPos
,defaultPos
),rest671
) end
1427 |
(193,(_
,(_
,TO1left
,TO1right
))::rest671
) => let val result
=
1429 in (hojfelds_NT
499,(result
,TO1left
,TO1right
),rest671
) end
1430 |
(194,rest671
) => let val result
=MlyValue
.ntVOID(())
1431 in (hojfelds_NT
499,(result
,defaultPos
,defaultPos
),rest671
) end
1432 |
(195,(_
,(_
,_
,is1right
))::(_
,(_
,USAGE1left
,_
))::rest671
) => let val
1433 result
=MlyValue
.ntVOID(())
1434 in (hojfelds_NT
508,(result
,USAGE1left
,is1right
),rest671
) end
1435 |
(196,rest671
) => let val result
=MlyValue
.ntVOID(())
1436 in (hojfelds_NT
508,(result
,defaultPos
,defaultPos
),rest671
) end
1437 |
(197,(_
,(_
,WHEN1left
,WHEN1right
))::rest671
) => let val result
=
1439 in (hojfelds_NT
524,(result
,WHEN1left
,WHEN1right
),rest671
) end
1440 |
(198,rest671
) => let val result
=MlyValue
.ntVOID(())
1441 in (hojfelds_NT
524,(result
,defaultPos
,defaultPos
),rest671
) end
1442 |
(199,(_
,(_
,WITH1left
,WITH1right
))::rest671
) => let val result
=
1444 in (hojfelds_NT
528,(result
,WITH1left
,WITH1right
),rest671
) end
1445 |
(200,rest671
) => let val result
=MlyValue
.ntVOID(())
1446 in (hojfelds_NT
528,(result
,defaultPos
,defaultPos
),rest671
) end
1447 |
(201,(_
,(_
,CORRESPONDING1left
,CORRESPONDING1right
))::rest671
) =>
1448 let val result
=MlyValue
.ntVOID(())
1449 in (hojfelds_NT
82,(result
,CORRESPONDING1left
,CORRESPONDING1right
),
1451 |
(202,(_
,(_
,CORR1left
,CORR1right
))::rest671
) => let val result
=
1453 in (hojfelds_NT
82,(result
,CORR1left
,CORR1right
),rest671
) end
1454 |
(203,(_
,(_
,JUSTIFIED1left
,JUSTIFIED1right
))::rest671
) => let val
1455 result
=MlyValue
.ntVOID(())
1456 in (hojfelds_NT
280,(result
,JUSTIFIED1left
,JUSTIFIED1right
),rest671
)
1458 |
(204,(_
,(_
,JUST1left
,JUST1right
))::rest671
) => let val result
=
1460 in (hojfelds_NT
280,(result
,JUST1left
,JUST1right
),rest671
) end
1461 |
(205,(_
,(_
,PICTURE1left
,PICTURE1right
))::rest671
) => let val result
=
1463 in (hojfelds_NT
362,(result
,PICTURE1left
,PICTURE1right
),rest671
) end
1464 |
(206,(_
,(_
,PIC1left
,PIC1right
))::rest671
) => let val result
=
1466 in (hojfelds_NT
362,(result
,PIC1left
,PIC1right
),rest671
) end
1467 |
(207,(_
,(_
,SYNCHRONIZED1left
,SYNCHRONIZED1right
))::rest671
) => let
1468 val result
=MlyValue
.ntVOID(())
1469 in (hojfelds_NT
474,(result
,SYNCHRONIZED1left
,SYNCHRONIZED1right
),
1471 |
(208,(_
,(_
,SYNC1left
,SYNC1right
))::rest671
) => let val result
=
1473 in (hojfelds_NT
474,(result
,SYNC1left
,SYNC1right
),rest671
) end
1474 |
(209,(_
,(_
,THROUGH1left
,THROUGH1right
))::rest671
) => let val result
=
1476 in (hojfelds_NT
491,(result
,THROUGH1left
,THROUGH1right
),rest671
) end
1477 |
(210,(_
,(_
,THRU1left
,THRU1right
))::rest671
) => let val result
=
1479 in (hojfelds_NT
491,(result
,THRU1left
,THRU1right
),rest671
) end
1480 |
(211,(_
,(_
,ENDADD1left
,ENDADD1right
))::rest671
) => let val result
=
1482 in (hojfelds_NT
131,(result
,ENDADD1left
,ENDADD1right
),rest671
) end
1483 |
(212,rest671
) => let val result
=MlyValue
.ntVOID(())
1484 in (hojfelds_NT
131,(result
,defaultPos
,defaultPos
),rest671
) end
1485 |
(213,(_
,(_
,ENDCALL1left
,ENDCALL1right
))::rest671
) => let val result
=
1487 in (hojfelds_NT
132,(result
,ENDCALL1left
,ENDCALL1right
),rest671
) end
1488 |
(214,rest671
) => let val result
=MlyValue
.ntVOID(())
1489 in (hojfelds_NT
132,(result
,defaultPos
,defaultPos
),rest671
) end
1490 |
(215,(_
,(_
,ENDCOMPUTE1left
,ENDCOMPUTE1right
))::rest671
) => let val
1491 result
=MlyValue
.ntVOID(())
1492 in (hojfelds_NT
133,(result
,ENDCOMPUTE1left
,ENDCOMPUTE1right
),rest671
)
1494 |
(216,rest671
) => let val result
=MlyValue
.ntVOID(())
1495 in (hojfelds_NT
133,(result
,defaultPos
,defaultPos
),rest671
) end
1496 |
(217,(_
,(_
,ENDDELETE1left
,ENDDELETE1right
))::rest671
) => let val
1497 result
=MlyValue
.ntVOID(())
1498 in (hojfelds_NT
134,(result
,ENDDELETE1left
,ENDDELETE1right
),rest671
)
1500 |
(218,rest671
) => let val result
=MlyValue
.ntVOID(())
1501 in (hojfelds_NT
134,(result
,defaultPos
,defaultPos
),rest671
) end
1502 |
(219,(_
,(_
,ENDDIVIDE1left
,ENDDIVIDE1right
))::rest671
) => let val
1503 result
=MlyValue
.ntVOID(())
1504 in (hojfelds_NT
135,(result
,ENDDIVIDE1left
,ENDDIVIDE1right
),rest671
)
1506 |
(220,rest671
) => let val result
=MlyValue
.ntVOID(())
1507 in (hojfelds_NT
135,(result
,defaultPos
,defaultPos
),rest671
) end
1508 |
(221,(_
,(_
,ENDIF1left
,ENDIF1right
))::rest671
) => let val result
=
1510 in (hojfelds_NT
138,(result
,ENDIF1left
,ENDIF1right
),rest671
) end
1511 |
(222,rest671
) => let val result
=MlyValue
.ntVOID(())
1512 in (hojfelds_NT
138,(result
,defaultPos
,defaultPos
),rest671
) end
1513 |
(223,(_
,(_
,ENDMULTIPLY1left
,ENDMULTIPLY1right
))::rest671
) => let
1514 val result
=MlyValue
.ntVOID(())
1515 in (hojfelds_NT
139,(result
,ENDMULTIPLY1left
,ENDMULTIPLY1right
),
1517 |
(224,rest671
) => let val result
=MlyValue
.ntVOID(())
1518 in (hojfelds_NT
139,(result
,defaultPos
,defaultPos
),rest671
) end
1519 |
(225,(_
,(_
,ENDREAD1left
,ENDREAD1right
))::rest671
) => let val result
=
1521 in (hojfelds_NT
142,(result
,ENDREAD1left
,ENDREAD1right
),rest671
) end
1522 |
(226,rest671
) => let val result
=MlyValue
.ntVOID(())
1523 in (hojfelds_NT
142,(result
,defaultPos
,defaultPos
),rest671
) end
1524 |
(227,(_
,(_
,ENDRETURN1left
,ENDRETURN1right
))::rest671
) => let val
1525 result
=MlyValue
.ntVOID(())
1526 in (hojfelds_NT
143,(result
,ENDRETURN1left
,ENDRETURN1right
),rest671
)
1528 |
(228,rest671
) => let val result
=MlyValue
.ntVOID(())
1529 in (hojfelds_NT
143,(result
,defaultPos
,defaultPos
),rest671
) end
1530 |
(229,(_
,(_
,ENDREWRITE1left
,ENDREWRITE1right
))::rest671
) => let val
1531 result
=MlyValue
.ntVOID(())
1532 in (hojfelds_NT
144,(result
,ENDREWRITE1left
,ENDREWRITE1right
),rest671
)
1534 |
(230,rest671
) => let val result
=MlyValue
.ntVOID(())
1535 in (hojfelds_NT
144,(result
,defaultPos
,defaultPos
),rest671
) end
1536 |
(231,(_
,(_
,ENDSEARCH1left
,ENDSEARCH1right
))::rest671
) => let val
1537 result
=MlyValue
.ntVOID(())
1538 in (hojfelds_NT
145,(result
,ENDSEARCH1left
,ENDSEARCH1right
),rest671
)
1540 |
(232,rest671
) => let val result
=MlyValue
.ntVOID(())
1541 in (hojfelds_NT
145,(result
,defaultPos
,defaultPos
),rest671
) end
1542 |
(233,(_
,(_
,ENDSTART1left
,ENDSTART1right
))::rest671
) => let val
1543 result
=MlyValue
.ntVOID(())
1544 in (hojfelds_NT
182,(result
,ENDSTART1left
,ENDSTART1right
),rest671
) end
1545 |
(234,rest671
) => let val result
=MlyValue
.ntVOID(())
1546 in (hojfelds_NT
182,(result
,defaultPos
,defaultPos
),rest671
) end
1547 |
(235,(_
,(_
,ENDSTRING1left
,ENDSTRING1right
))::rest671
) => let val
1548 result
=MlyValue
.ntVOID(())
1549 in (hojfelds_NT
146,(result
,ENDSTRING1left
,ENDSTRING1right
),rest671
)
1551 |
(236,rest671
) => let val result
=MlyValue
.ntVOID(())
1552 in (hojfelds_NT
146,(result
,defaultPos
,defaultPos
),rest671
) end
1553 |
(237,(_
,(_
,ENDSUBTRACT1left
,ENDSUBTRACT1right
))::rest671
) => let
1554 val result
=MlyValue
.ntVOID(())
1555 in (hojfelds_NT
147,(result
,ENDSUBTRACT1left
,ENDSUBTRACT1right
),
1557 |
(238,rest671
) => let val result
=MlyValue
.ntVOID(())
1558 in (hojfelds_NT
147,(result
,defaultPos
,defaultPos
),rest671
) end
1559 |
(239,(_
,(_
,ENDUNSTRING1left
,ENDUNSTRING1right
))::rest671
) => let
1560 val result
=MlyValue
.ntVOID(())
1561 in (hojfelds_NT
149,(result
,ENDUNSTRING1left
,ENDUNSTRING1right
),
1563 |
(240,rest671
) => let val result
=MlyValue
.ntVOID(())
1564 in (hojfelds_NT
149,(result
,defaultPos
,defaultPos
),rest671
) end
1565 |
(241,(_
,(_
,ENDWRITE1left
,ENDWRITE1right
))::rest671
) => let val
1566 result
=MlyValue
.ntVOID(())
1567 in (hojfelds_NT
150,(result
,ENDWRITE1left
,ENDWRITE1right
),rest671
) end
1568 |
(242,rest671
) => let val result
=MlyValue
.ntVOID(())
1569 in (hojfelds_NT
150,(result
,defaultPos
,defaultPos
),rest671
) end
1570 |
(243,(_
,(MlyValue
.identifier identifier
,_
,identifier1right
))::(_
,(
1571 MlyValue
.identifiers identifiers
,identifiers1left
,_
))::rest671
) =>
1572 let val result
=MlyValue
.identifiers((
1573 Cobol
.SEVERAL_IDENTIFIERS(identifiers
,identifier
)))
1574 in (hojfelds_NT
239,(result
,identifiers1left
,identifier1right
),rest671
1576 |
(244,(_
,(MlyValue
.identifier identifier
,identifier1left
,
1577 identifier1right
))::rest671
) => let val result
=MlyValue
.identifiers((
1578 Cobol
.ONE_IDENTIFIER(identifier
)))
1579 in (hojfelds_NT
239,(result
,identifier1left
,identifier1right
),rest671
)
1581 |
(245,(_
,(MlyValue
.subscript_phrase subscript_phrase
,_
,
1582 subscript_phraseright
as subscript_phrase1right
))::(_
,(
1583 MlyValue
.qualifications qualifications
,_
,_
))::(_
,(
1584 MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,USERDEFINEDWORDleft
as
1585 USERDEFINEDWORD1left
,_
))::rest671
) => let val result
=
1586 MlyValue
.identifier((
1587 Cobol
.QUALIFIED_IDENTIFIER(USERDEFINEDWORD
,
1590 USERDEFINEDWORDleft
,
1591 subscript_phraseright
)
1593 in (hojfelds_NT
228,(result
,USERDEFINEDWORD1left
,
1594 subscript_phrase1right
),rest671
) end
1595 |
(246,(_
,(MlyValue
.special_register special_register
,
1596 special_registerleft
as special_register1left
,special_registerright
1597 as special_register1right
))::rest671
) => let val result
=
1598 MlyValue
.identifier((
1599 Cobol
.SPECIAL_REGISTER(special_register
,special_registerleft
,special_registerright
)
1601 in (hojfelds_NT
228,(result
,special_register1left
,
1602 special_register1right
),rest671
) end
1603 |
(247,(_
,(MlyValue
.qualification qualification
,_
,qualification1right
)
1604 )::(_
,(MlyValue
.qualifications qualifications
,qualifications1left
,_
))
1605 ::rest671
) => let val result
=MlyValue
.qualifications((
1606 Cobol
.SEVERAL_QUALIFICATIONS(qualifications
,qualification
)))
1607 in (hojfelds_NT
376,(result
,qualifications1left
,qualification1right
),
1609 |
(248,rest671
) => let val result
=MlyValue
.qualifications((
1610 Cobol
.NO_QUALIFICATIONS
))
1611 in (hojfelds_NT
376,(result
,defaultPos
,defaultPos
),rest671
) end
1612 |
(249,(_
,(MlyValue
.USERDEFINEDWORD USERDEFINEDWORD
,_
,
1613 USERDEFINEDWORD1right
))::(_
,(_
,of_in1left
,_
))::rest671
) => let val
1614 result
=MlyValue
.qualification((USERDEFINEDWORD
))
1615 in (hojfelds_NT
375,(result
,of_in1left
,USERDEFINEDWORD1right
),rest671
)
1617 |
(250,(_
,(_
,OF1left
,OF1right
))::rest671
) => let val result
=
1619 in (hojfelds_NT
330,(result
,OF1left
,OF1right
),rest671
) end
1620 |
(251,(_
,(_
,IN1left
,IN1right
))::rest671
) => let val result
=
1622 in (hojfelds_NT
330,(result
,IN1left
,IN1right
),rest671
) end
1623 |
(252,(_
,(_
,_
,RPAR1right
))::_
::(_
,(_
,LPAR1left
,_
))::rest671
) => let
1624 val result
=MlyValue
.subscript_phrase(())
1625 in (hojfelds_NT
471,(result
,LPAR1left
,RPAR1right
),rest671
) end
1626 |
(253,rest671
) => let val result
=MlyValue
.subscript_phrase(())
1627 in (hojfelds_NT
471,(result
,defaultPos
,defaultPos
),rest671
) end
1628 |
(254,(_
,(_
,_
,subscript1right
))::(_
,(_
,subscripts1left
,_
))::rest671
)
1629 => let val result
=MlyValue
.ntVOID(())
1630 in (hojfelds_NT
472,(result
,subscripts1left
,subscript1right
),rest671
)
1632 |
(255,(_
,(_
,subscript1left
,subscript1right
))::rest671
) => let val
1633 result
=MlyValue
.ntVOID(())
1634 in (hojfelds_NT
472,(result
,subscript1left
,subscript1right
),rest671
)
1636 |
(256,(_
,(_
,INTEGER1left
,INTEGER1right
))::rest671
) => let val result
=
1638 in (hojfelds_NT
470,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
1639 |
(257,(_
,(_
,_
,offset1right
))::(_
,(_
,data_or_index_name1left
,_
))::
1640 rest671
) => let val result
=MlyValue
.ntVOID(())
1641 in (hojfelds_NT
470,(result
,data_or_index_name1left
,offset1right
),
1643 |
(258,(_
,(_
,_
,INTEGER1right
))::(_
,(_
,PLUSSYMBOL1left
,_
))::rest671
)
1644 => let val result
=MlyValue
.ntVOID(())
1645 in (hojfelds_NT
334,(result
,PLUSSYMBOL1left
,INTEGER1right
),rest671
)
1647 |
(259,(_
,(_
,_
,INTEGER1right
))::(_
,(_
,MINUSSYMBOL1left
,_
))::rest671
)
1648 => let val result
=MlyValue
.ntVOID(())
1649 in (hojfelds_NT
334,(result
,MINUSSYMBOL1left
,INTEGER1right
),rest671
)
1651 |
(260,rest671
) => let val result
=MlyValue
.ntVOID(())
1652 in (hojfelds_NT
334,(result
,defaultPos
,defaultPos
),rest671
) end
1653 |
(261,(_
,(MlyValue
.data_name data_name
,data_name1left
,data_name1right
1654 ))::rest671
) => let val result
=MlyValue
.data_name_or_literal((
1655 Cobol
.DATA_NAME_OR_LITERAL_IS_DATA_NAME(data_name
)))
1656 in (hojfelds_NT
105,(result
,data_name1left
,data_name1right
),rest671
)
1658 |
(262,(_
,(MlyValue
.literal literal
,literal1left
,literal1right
))::
1659 rest671
) => let val result
=MlyValue
.data_name_or_literal((
1660 Cobol
.DATA_NAME_OR_LITERAL_IS_LITERAL(literal
)))
1661 in (hojfelds_NT
105,(result
,literal1left
,literal1right
),rest671
) end
1662 |
(263,(_
,(MlyValue
.data_name data_name
,data_name1left
,data_name1right
1663 ))::rest671
) => let val result
=MlyValue
.data_name_or_integer((
1664 Cobol
.DATA_NAME_OR_INTEGER_IS_DATA_NAME(data_name
)))
1665 in (hojfelds_NT
101,(result
,data_name1left
,data_name1right
),rest671
)
1667 |
(264,(_
,(MlyValue
.INTEGER INTEGER
,INTEGER1left
,INTEGER1right
))::
1668 rest671
) => let val result
=MlyValue
.data_name_or_integer((
1669 Cobol
.DATA_NAME_OR_INTEGER_IS_INTEGER(INTEGER
)))
1670 in (hojfelds_NT
101,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
1671 |
(265,(_
,(MlyValue
.data_name data_name
,data_name1left
,data_name1right
1672 ))::rest671
) => let val result
=MlyValue
.data_name_or_filler((
1673 Cobol
.DATA_NAME_OR_FILLER_IS_DATA_NAME(data_name
)))
1674 in (hojfelds_NT
366,(result
,data_name1left
,data_name1right
),rest671
)
1676 |
(266,(_
,(MlyValue
.filler filler
,filler1left
,filler1right
))::rest671
)
1677 => let val result
=MlyValue
.data_name_or_filler((
1678 Cobol
.DATA_NAME_OR_FILLER_IS_FILLER(filler
)))
1679 in (hojfelds_NT
366,(result
,filler1left
,filler1right
),rest671
) end
1680 |
(267,(_
,(MlyValue
.identifier_or_literal identifier_or_literal
,_
,
1681 identifier_or_literal1right
))::(_
,(MlyValue
.identifier_or_literals
1682 identifier_or_literals
,identifier_or_literals1left
,_
))::rest671
) =>
1683 let val result
=MlyValue
.identifier_or_literals((
1684 Cobol
.SEVERAL_IDENTIFIER_OR_LITERALS(identifier_or_literals
,
1685 identifier_or_literal
)
1687 in (hojfelds_NT
234,(result
,identifier_or_literals1left
,
1688 identifier_or_literal1right
),rest671
) end
1689 |
(268,(_
,(MlyValue
.identifier_or_literal identifier_or_literal
,
1690 identifier_or_literal1left
,identifier_or_literal1right
))::rest671
) =>
1691 let val result
=MlyValue
.identifier_or_literals((
1692 Cobol
.ONE_IDENTIFIER_OR_LITERAL(identifier_or_literal
)))
1693 in (hojfelds_NT
234,(result
,identifier_or_literal1left
,
1694 identifier_or_literal1right
),rest671
) end
1695 |
(269,(_
,(MlyValue
.identifier identifier
,identifier1left
,
1696 identifier1right
))::rest671
) => let val result
=
1697 MlyValue
.identifier_or_literal((
1698 Cobol
.IDENTIFIER_OR_LITERAL_IS_IDENTIFIER(identifier
)))
1699 in (hojfelds_NT
233,(result
,identifier1left
,identifier1right
),rest671
)
1701 |
(270,(_
,(MlyValue
.literal literal
,literal1left
,literal1right
))::
1702 rest671
) => let val result
=MlyValue
.identifier_or_literal((
1703 Cobol
.IDENTIFIER_OR_LITERAL_IS_LITERAL(literal
)))
1704 in (hojfelds_NT
233,(result
,literal1left
,literal1right
),rest671
) end
1706 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
1708 identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left
,
1709 _
))::rest671
) => let val result
=MlyValue
.ntVOID(())
1710 in (hojfelds_NT
94,(result
,
1711 identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left
,
1712 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
1715 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,
1716 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
1717 )::rest671
) => let val result
=MlyValue
.ntVOID(())
1718 in (hojfelds_NT
94,(result
,
1719 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,
1720 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
1722 |
(273,(_
,(_
,identifier1left
,identifier1right
))::rest671
) => let val
1723 result
=MlyValue
.ntVOID(())
1724 in (hojfelds_NT
93,(result
,identifier1left
,identifier1right
),rest671
)
1726 |
(274,(_
,(_
,nonnumeric_literal1left
,nonnumeric_literal1right
))::
1727 rest671
) => let val result
=MlyValue
.ntVOID(())
1728 in (hojfelds_NT
93,(result
,nonnumeric_literal1left
,
1729 nonnumeric_literal1right
),rest671
) end
1730 |
(275,(_
,(_
,ZERO1left
,ZERO1right
))::rest671
) => let val result
=
1732 in (hojfelds_NT
93,(result
,ZERO1left
,ZERO1right
),rest671
) end
1733 |
(276,(_
,(_
,ZEROS1left
,ZEROS1right
))::rest671
) => let val result
=
1735 in (hojfelds_NT
93,(result
,ZEROS1left
,ZEROS1right
),rest671
) end
1736 |
(277,(_
,(_
,ZEROES1left
,ZEROES1right
))::rest671
) => let val result
=
1738 in (hojfelds_NT
93,(result
,ZEROES1left
,ZEROES1right
),rest671
) end
1739 |
(278,(_
,(_
,SPACE1left
,SPACE1right
))::rest671
) => let val result
=
1741 in (hojfelds_NT
93,(result
,SPACE1left
,SPACE1right
),rest671
) end
1742 |
(279,(_
,(_
,SPACES1left
,SPACES1right
))::rest671
) => let val result
=
1744 in (hojfelds_NT
93,(result
,SPACES1left
,SPACES1right
),rest671
) end
1745 |
(280,(_
,(_
,HIGHVALUE1left
,HIGHVALUE1right
))::rest671
) => let val
1746 result
=MlyValue
.ntVOID(())
1747 in (hojfelds_NT
93,(result
,HIGHVALUE1left
,HIGHVALUE1right
),rest671
)
1749 |
(281,(_
,(_
,HIGHVALUES1left
,HIGHVALUES1right
))::rest671
) => let val
1750 result
=MlyValue
.ntVOID(())
1751 in (hojfelds_NT
93,(result
,HIGHVALUES1left
,HIGHVALUES1right
),rest671
)
1753 |
(282,(_
,(_
,LOWVALUE1left
,LOWVALUE1right
))::rest671
) => let val
1754 result
=MlyValue
.ntVOID(())
1755 in (hojfelds_NT
93,(result
,LOWVALUE1left
,LOWVALUE1right
),rest671
) end
1756 |
(283,(_
,(_
,LOWVALUES1left
,LOWVALUES1right
))::rest671
) => let val
1757 result
=MlyValue
.ntVOID(())
1758 in (hojfelds_NT
93,(result
,LOWVALUES1left
,LOWVALUES1right
),rest671
)
1760 |
(284,(_
,(_
,QUOTE1left
,QUOTE1right
))::rest671
) => let val result
=
1762 in (hojfelds_NT
93,(result
,QUOTE1left
,QUOTE1right
),rest671
) end
1763 |
(285,(_
,(_
,QUOTES1left
,QUOTES1right
))::rest671
) => let val result
=
1765 in (hojfelds_NT
93,(result
,QUOTES1left
,QUOTES1right
),rest671
) end
1766 |
(286,(_
,(_
,identifier1left
,identifier1right
))::rest671
) => let val
1767 result
=MlyValue
.ntVOID(())
1768 in (hojfelds_NT
232,(result
,identifier1left
,identifier1right
),rest671
)
1770 |
(287,(_
,(_
,INTEGER1left
,INTEGER1right
))::rest671
) => let val result
=
1772 in (hojfelds_NT
232,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
1773 |
(288,(_
,(MlyValue
.test_cobol_programs test_cobol_programs
,
1774 test_cobol_programs1left
,test_cobol_programs1right
))::rest671
) => let
1775 val result
=MlyValue
.test_cobol(( Cobol
.TEST(test_cobol_programs
) ))
1776 in (hojfelds_NT
3,(result
,test_cobol_programs1left
,
1777 test_cobol_programs1right
),rest671
) end
1778 |
(289,(_
,(MlyValue
.cobol_program cobol_program
,cobol_program1left
,
1779 cobol_program1right
))::rest671
) => let val result
=MlyValue
.test_cobol(
1780 ( Cobol
.COBOL_PROGRAM(cobol_program
)))
1781 in (hojfelds_NT
3,(result
,cobol_program1left
,cobol_program1right
),
1783 |
(290,(_
,(MlyValue
.test_cobol_program test_cobol_program
,_
,
1784 test_cobol_program1right
))::(_
,(MlyValue
.test_cobol_programs
1785 test_cobol_programs
,test_cobol_programs1left
,_
))::rest671
) => let val
1786 result
=MlyValue
.test_cobol_programs((
1787 Cobol
.TEST_COBOL_PROGRAMS(test_cobol_programs
, test_cobol_program
)))
1788 in (hojfelds_NT
1,(result
,test_cobol_programs1left
,
1789 test_cobol_program1right
),rest671
) end
1790 |
(291,(_
,(MlyValue
.test_cobol_program test_cobol_program
,
1791 test_cobol_program1left
,test_cobol_program1right
))::rest671
) => let
1792 val result
=MlyValue
.test_cobol_programs((
1793 Cobol
.TEST_COBOL_PROGRAM(test_cobol_program
)))
1794 in (hojfelds_NT
1,(result
,test_cobol_program1left
,
1795 test_cobol_program1right
),rest671
) end
1796 |
(292,(_
,(_
,_
,PROGEND1right
))::(_
,(MlyValue
.cobol_program
1797 cobol_program
,_
,_
))::(_
,(_
,PROGBEGIN1left
,_
))::rest671
) => let val
1798 result
=MlyValue
.test_cobol_program((cobol_program
))
1799 in (hojfelds_NT
2,(result
,PROGBEGIN1left
,PROGEND1right
),rest671
) end
1800 |
(293,(_
,(MlyValue
.procedure_division procedure_division
,_
,
1801 procedure_division1right
))::(_
,(MlyValue
.data_division data_division
,_
1802 ,_
))::(_
,(MlyValue
.environment_division environment_division
,_
,_
))::(_
1803 ,(MlyValue
.identification_division identification_division
,_
,_
))::(_
,(
1804 _
,process_statement1left
,_
))::rest671
) => let val result
=
1805 MlyValue
.cobol_program((
1806 condition_names
:= [];
1807 Cobol
.PROGRAM(identification_division
,
1808 environment_division
,
1812 in (hojfelds_NT
0,(result
,process_statement1left
,
1813 procedure_division1right
),rest671
) end
1814 |
(294,rest671
) => let val result
=MlyValue
.ntVOID(())
1815 in (hojfelds_NT
4,(result
,defaultPos
,defaultPos
),rest671
) end
1816 |
(295,(_
,(_
,_
,process_options1right
))::(_
,(_
,PROCESS1left
,_
))::
1817 rest671
) => let val result
=MlyValue
.ntVOID(())
1818 in (hojfelds_NT
4,(result
,PROCESS1left
,process_options1right
),rest671
)
1820 |
(296,(_
,(_
,_
,process_option1right
))::(_
,(_
,process_options1left
,_
))
1821 ::rest671
) => let val result
=MlyValue
.ntVOID(())
1822 in (hojfelds_NT
5,(result
,process_options1left
,process_option1right
),
1824 |
(297,(_
,(_
,process_option1left
,process_option1right
))::rest671
) =>
1825 let val result
=MlyValue
.ntVOID(())
1826 in (hojfelds_NT
5,(result
,process_option1left
,process_option1right
),
1828 |
(298,(_
,(_
,SLASHSYMBOL1left
,SLASHSYMBOL1right
))::rest671
) => let
1829 val result
=MlyValue
.ntVOID(())
1830 in (hojfelds_NT
6,(result
,SLASHSYMBOL1left
,SLASHSYMBOL1right
),rest671
)
1832 |
(299,(_
,(_
,SORT1left
,SORT1right
))::rest671
) => let val result
=
1834 in (hojfelds_NT
6,(result
,SORT1left
,SORT1right
),rest671
) end
1835 |
(300,(_
,(_
,SOURCE1left
,SOURCE1right
))::rest671
) => let val result
=
1837 in (hojfelds_NT
6,(result
,SOURCE1left
,SOURCE1right
),rest671
) end
1838 |
(301,(_
,(_
,QUOTE1left
,QUOTE1right
))::rest671
) => let val result
=
1840 in (hojfelds_NT
6,(result
,QUOTE1left
,QUOTE1right
),rest671
) end
1841 |
(302,(_
,(_
,PERIOD1left
,PERIOD1right
))::rest671
) => let val result
=
1843 in (hojfelds_NT
6,(result
,PERIOD1left
,PERIOD1right
),rest671
) end
1844 |
(303,(_
,(_
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
))::rest671
)
1845 => let val result
=MlyValue
.ntVOID(())
1846 in (hojfelds_NT
6,(result
,USERDEFINEDWORD1left
,USERDEFINEDWORD1right
),
1848 |
(304,(_
,(_
,COMP1left
,COMP1right
))::rest671
) => let val result
=
1850 in (hojfelds_NT
6,(result
,COMP1left
,COMP1right
),rest671
) end
1851 |
(305,(_
,(_
,LPAR1left
,LPAR1right
))::rest671
) => let val result
=
1853 in (hojfelds_NT
6,(result
,LPAR1left
,LPAR1right
),rest671
) end
1854 |
(306,(_
,(_
,RPAR1left
,RPAR1right
))::rest671
) => let val result
=
1856 in (hojfelds_NT
6,(result
,RPAR1left
,RPAR1right
),rest671
) end
1857 |
(307,(_
,(_
,_
,identification_paragraphs1right
))::_
::_
::_
::(_
,(_
,
1858 IDENTIFICATION1left
,_
))::rest671
) => let val result
=
1859 MlyValue
.identification_division(())
1860 in (hojfelds_NT
225,(result
,IDENTIFICATION1left
,
1861 identification_paragraphs1right
),rest671
) end
1862 |
(308,(_
,(_
,_
,PERIOD2right
))::_
::_
::(_
,(_
,PROGRAMID1left
,_
))::rest671
1863 ) => let val result
=MlyValue
.ntVOID(())
1864 in (hojfelds_NT
104,(result
,PROGRAMID1left
,PERIOD2right
),rest671
) end
1865 |
(309,rest671
) => let val result
=MlyValue
.ntVOID(())
1866 in (hojfelds_NT
104,(result
,defaultPos
,defaultPos
),rest671
) end
1867 |
(310,(_
,(_
,_
,identification_paragraph1right
))::(_
,(_
,
1868 identification_paragraphs1left
,_
))::rest671
) => let val result
=
1870 in (hojfelds_NT
227,(result
,identification_paragraphs1left
,
1871 identification_paragraph1right
),rest671
) end
1872 |
(311,rest671
) => let val result
=MlyValue
.ntVOID(())
1873 in (hojfelds_NT
227,(result
,defaultPos
,defaultPos
),rest671
) end
1874 |
(312,(_
,(_
,author_paragraph1left
,author_paragraph1right
))::rest671
)
1875 => let val result
=MlyValue
.ntVOID(())
1876 in (hojfelds_NT
226,(result
,author_paragraph1left
,
1877 author_paragraph1right
),rest671
) end
1878 |
(313,(_
,(_
,installation_paragraph1left
,installation_paragraph1right
)
1879 )::rest671
) => let val result
=MlyValue
.ntVOID(())
1880 in (hojfelds_NT
226,(result
,installation_paragraph1left
,
1881 installation_paragraph1right
),rest671
) end
1882 |
(314,(_
,(_
,date_written_paragraph1left
,date_written_paragraph1right
)
1883 )::rest671
) => let val result
=MlyValue
.ntVOID(())
1884 in (hojfelds_NT
226,(result
,date_written_paragraph1left
,
1885 date_written_paragraph1right
),rest671
) end
1886 |
(315,(_
,(_
,date_compiled_paragraph1left
,
1887 date_compiled_paragraph1right
))::rest671
) => let val result
=
1889 in (hojfelds_NT
226,(result
,date_compiled_paragraph1left
,
1890 date_compiled_paragraph1right
),rest671
) end
1891 |
(316,(_
,(_
,security_paragraph1left
,security_paragraph1right
))::
1892 rest671
) => let val result
=MlyValue
.ntVOID(())
1893 in (hojfelds_NT
226,(result
,security_paragraph1left
,
1894 security_paragraph1right
),rest671
) end
1895 |
(317,(_
,(_
,_
,comment_entry1right
))::(_
,(_
,AUTHOR1left
,_
))::rest671
)
1896 => let val result
=MlyValue
.ntVOID(())
1897 in (hojfelds_NT
50,(result
,AUTHOR1left
,comment_entry1right
),rest671
)
1899 |
(318,(_
,(_
,_
,comment_entry1right
))::(_
,(_
,INSTALLATION1left
,_
))::
1900 rest671
) => let val result
=MlyValue
.ntVOID(())
1901 in (hojfelds_NT
264,(result
,INSTALLATION1left
,comment_entry1right
),
1903 |
(319,(_
,(_
,_
,comment_entry1right
))::(_
,(_
,DATEWRITTEN1left
,_
))::
1904 rest671
) => let val result
=MlyValue
.ntVOID(())
1905 in (hojfelds_NT
114,(result
,DATEWRITTEN1left
,comment_entry1right
),
1907 |
(320,(_
,(_
,_
,comment_entry1right
))::(_
,(_
,DATECOMPILED1left
,_
))::
1908 rest671
) => let val result
=MlyValue
.ntVOID(())
1909 in (hojfelds_NT
111,(result
,DATECOMPILED1left
,comment_entry1right
),
1911 |
(321,(_
,(_
,_
,comment_entry1right
))::(_
,(_
,SECURITY1left
,_
))::rest671
1912 ) => let val result
=MlyValue
.ntVOID(())
1913 in (hojfelds_NT
426,(result
,SECURITY1left
,comment_entry1right
),rest671
1915 |
(322,(_
,(MlyValue
.input_output_section input_output_section
,_
,
1916 input_output_section1right
))::(_
,(MlyValue
.configuration_section
1917 configuration_section
,_
,_
))::_
::_
::(_
,(_
,ENVIRONMENT1left
,_
))::rest671
1918 ) => let val result
=MlyValue
.environment_division((
1919 Cobol
.ENVIRONMENT_DIVISION
1920 (configuration_section
,input_output_section
)
1922 in (hojfelds_NT
153,(result
,ENVIRONMENT1left
,
1923 input_output_section1right
),rest671
) end
1924 |
(323,rest671
) => let val result
=MlyValue
.environment_division((
1925 Cobol
.NO_ENVIRONMENT_DIVISION
))
1926 in (hojfelds_NT
153,(result
,defaultPos
,defaultPos
),rest671
) end
1927 |
(324,(_
,(MlyValue
.special_names_paragraph special_names_paragraph
,_
,
1928 special_names_paragraph1right
))::(_
,(
1929 MlyValue
.object_computer_paragraph object_computer_paragraph
,_
,_
))::(_
1930 ,(MlyValue
.source_computer_paragraph source_computer_paragraph
,_
,_
))::
1931 _
::_
::(_
,(_
,CONFIGURATION1left
,_
))::rest671
) => let val result
=
1932 MlyValue
.configuration_section((
1933 Cobol
.CONFIGURATION_SECTION
1934 (source_computer_paragraph
,object_computer_paragraph
1935 ,special_names_paragraph
)
1937 in (hojfelds_NT
77,(result
,CONFIGURATION1left
,
1938 special_names_paragraph1right
),rest671
) end
1939 |
(325,(_
,(_
,_
,source_computer_entry1right
))::_
::(_
,(_
,
1940 SOURCECOMPUTER1left
,_
))::rest671
) => let val result
=
1941 MlyValue
.source_computer_paragraph(())
1942 in (hojfelds_NT
451,(result
,SOURCECOMPUTER1left
,
1943 source_computer_entry1right
),rest671
) end
1944 |
(326,rest671
) => let val result
=MlyValue
.source_computer_paragraph((
1946 in (hojfelds_NT
451,(result
,defaultPos
,defaultPos
),rest671
) end
1947 |
(327,(_
,(_
,_
,PERIOD1right
))::_
::(_
,(_
,computer_name1left
,_
))::
1948 rest671
) => let val result
=MlyValue
.ntVOID(())
1949 in (hojfelds_NT
450,(result
,computer_name1left
,PERIOD1right
),rest671
)
1951 |
(328,rest671
) => let val result
=MlyValue
.ntVOID(())
1952 in (hojfelds_NT
450,(result
,defaultPos
,defaultPos
),rest671
) end
1953 |
(329,(_
,(_
,_
,MODE1right
))::_
::(_
,(_
,with1left
,_
))::rest671
) => let
1954 val result
=MlyValue
.ntVOID(())
1955 in (hojfelds_NT
115,(result
,with1left
,MODE1right
),rest671
) end
1956 |
(330,rest671
) => let val result
=MlyValue
.ntVOID(())
1957 in (hojfelds_NT
115,(result
,defaultPos
,defaultPos
),rest671
) end
1958 |
(331,(_
,(_
,_
,object_computer_entry1right
))::_
::(_
,(_
,
1959 OBJECTCOMPUTER1left
,_
))::rest671
) => let val result
=
1960 MlyValue
.object_computer_paragraph(())
1961 in (hojfelds_NT
328,(result
,OBJECTCOMPUTER1left
,
1962 object_computer_entry1right
),rest671
) end
1963 |
(332,rest671
) => let val result
=MlyValue
.object_computer_paragraph((
1965 in (hojfelds_NT
328,(result
,defaultPos
,defaultPos
),rest671
) end
1966 |
(333,(_
,(_
,_
,PERIOD1right
))::_
::_
::_
::(_
,(_
,computer_name1left
,_
))::
1967 rest671
) => let val result
=MlyValue
.ntVOID(())
1968 in (hojfelds_NT
327,(result
,computer_name1left
,PERIOD1right
),rest671
)
1970 |
(334,rest671
) => let val result
=MlyValue
.ntVOID(())
1971 in (hojfelds_NT
327,(result
,defaultPos
,defaultPos
),rest671
) end
1972 |
(335,(_
,(_
,_
,size_unit1right
))::_
::_
::(_
,(_
,MEMORY1left
,_
))::rest671
1973 ) => let val result
=MlyValue
.ntVOID(())
1974 in (hojfelds_NT
307,(result
,MEMORY1left
,size_unit1right
),rest671
) end
1975 |
(336,rest671
) => let val result
=MlyValue
.ntVOID(())
1976 in (hojfelds_NT
307,(result
,defaultPos
,defaultPos
),rest671
) end
1977 |
(337,(_
,(_
,WORDS1left
,WORDS1right
))::rest671
) => let val result
=
1979 in (hojfelds_NT
443,(result
,WORDS1left
,WORDS1right
),rest671
) end
1980 |
(338,(_
,(_
,CHARACTERS1left
,CHARACTERS1right
))::rest671
) => let val
1981 result
=MlyValue
.ntVOID(())
1982 in (hojfelds_NT
443,(result
,CHARACTERS1left
,CHARACTERS1right
),rest671
)
1984 |
(339,(_
,(_
,MODULES1left
,MODULES1right
))::rest671
) => let val result
=
1986 in (hojfelds_NT
443,(result
,MODULES1left
,MODULES1right
),rest671
) end
1987 |
(340,(_
,(_
,_
,alphabet_name1right
))::_
::_
::(_
,(_
,
1988 program_collating1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID
1990 in (hojfelds_NT
67,(result
,program_collating1left
,alphabet_name1right
)
1992 |
(341,rest671
) => let val result
=MlyValue
.ntVOID(())
1993 in (hojfelds_NT
67,(result
,defaultPos
,defaultPos
),rest671
) end
1994 |
(342,(_
,(_
,_
,INTEGER1right
))::_
::(_
,(_
,SEGMENTLIMIT1left
,_
))::
1995 rest671
) => let val result
=MlyValue
.ntVOID(())
1996 in (hojfelds_NT
427,(result
,SEGMENTLIMIT1left
,INTEGER1right
),rest671
)
1998 |
(343,rest671
) => let val result
=MlyValue
.ntVOID(())
1999 in (hojfelds_NT
427,(result
,defaultPos
,defaultPos
),rest671
) end
2000 |
(344,(_
,(_
,_
,period1right
))::(_
,(MlyValue
.special_names_clauses
2001 special_names_clauses
,_
,_
))::_
::(_
,(_
,SPECIALNAMES1left
,_
))::rest671
)
2002 => let val result
=MlyValue
.special_names_paragraph((
2003 Cobol
.SPECIAL_NAMES_PARAGRAPH(special_names_clauses
)))
2004 in (hojfelds_NT
453,(result
,SPECIALNAMES1left
,period1right
),rest671
)
2006 |
(345,rest671
) => let val result
=MlyValue
.special_names_paragraph((
2007 Cobol
.NO_SPECIAL_NAMES_PARAGRAPH
))
2008 in (hojfelds_NT
453,(result
,defaultPos
,defaultPos
),rest671
) end
2009 |
(346,(_
,(MlyValue
.special_names_clause special_names_clause
,_
,
2010 special_names_clause1right
))::(_
,(MlyValue
.special_names_clauses
2011 special_names_clauses
,special_names_clauses1left
,_
))::rest671
) => let
2012 val result
=MlyValue
.special_names_clauses((
2013 Cobol
.SEVERAL_SPECIAL_NAMES_CLAUSES(special_names_clauses
,
2014 special_names_clause
)
2016 in (hojfelds_NT
102,(result
,special_names_clauses1left
,
2017 special_names_clause1right
),rest671
) end
2018 |
(347,rest671
) => let val result
=MlyValue
.special_names_clauses((
2019 Cobol
.NO_SPECIAL_NAMES_CLAUSES
))
2020 in (hojfelds_NT
102,(result
,defaultPos
,defaultPos
),rest671
) end
2021 |
(348,(_
,(_
,environment_clause1left
,environment_clause1right
))::
2022 rest671
) => let val result
=MlyValue
.special_names_clause((
2023 Cobol
.ENVIRONMENT_CLAUSE
))
2024 in (hojfelds_NT
103,(result
,environment_clause1left
,
2025 environment_clause1right
),rest671
) end
2026 |
(349,(_
,(_
,alphabet_clause1left
,alphabet_clause1right
))::rest671
)
2027 => let val result
=MlyValue
.special_names_clause((
2028 Cobol
.ALPHABET_CLAUSE
))
2029 in (hojfelds_NT
103,(result
,alphabet_clause1left
,alphabet_clause1right
2031 |
(350,(_
,(MlyValue
.currency_sign_clause currency_sign_clause
,
2032 currency_sign_clause1left
,currency_sign_clause1right
))::rest671
) =>
2033 let val result
=MlyValue
.special_names_clause((
2034 Cobol
.CURRENCY_SIGN_CLAUSE(currency_sign_clause
)))
2035 in (hojfelds_NT
103,(result
,currency_sign_clause1left
,
2036 currency_sign_clause1right
),rest671
) end
2037 |
(351,(_
,(MlyValue
.decimal_clause decimal_clause
,decimal_clause1left
,
2038 decimal_clause1right
))::rest671
) => let val result
=
2039 MlyValue
.special_names_clause((Cobol
.DECIMAL_CLAUSE(decimal_clause
)))
2040 in (hojfelds_NT
103,(result
,decimal_clause1left
,decimal_clause1right
),
2042 |
(352,(_
,(_
,_
,mnemonic_name1right
))::_
::(_
,(_
,environment_name_11left
2043 ,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
2044 in (hojfelds_NT
152,(result
,environment_name_11left
,
2045 mnemonic_name1right
),rest671
) end
2046 |
(353,(_
,(_
,_
,status_cond_phrase_opt1right
))::_
::_
::(_
,(_
,
2047 environment_name_21left
,_
))::rest671
) => let val result
=
2049 in (hojfelds_NT
152,(result
,environment_name_21left
,
2050 status_cond_phrase_opt1right
),rest671
) end
2051 |
(354,(_
,(_
,_
,status_cond_phrase_opt1right
))::(_
,(_
,
2052 environment_name_21left
,_
))::rest671
) => let val result
=
2054 in (hojfelds_NT
152,(result
,environment_name_21left
,
2055 status_cond_phrase_opt1right
),rest671
) end
2056 |
(355,(_
,(_
,status_cond_phrase1left
,status_cond_phrase1right
))::
2057 rest671
) => let val result
=MlyValue
.ntVOID(())
2058 in (hojfelds_NT
463,(result
,status_cond_phrase1left
,
2059 status_cond_phrase1right
),rest671
) end
2060 |
(356,rest671
) => let val result
=MlyValue
.ntVOID(())
2061 in (hojfelds_NT
463,(result
,defaultPos
,defaultPos
),rest671
) end
2062 |
(357,(_
,(_
,_
,off_status_opt1right
))::(_
,(_
,on_status1left
,_
))::
2063 rest671
) => let val result
=MlyValue
.ntVOID(())
2064 in (hojfelds_NT
462,(result
,on_status1left
,off_status_opt1right
),
2066 |
(358,(_
,(_
,_
,on_status_opt1right
))::(_
,(_
,off_status1left
,_
))::
2067 rest671
) => let val result
=MlyValue
.ntVOID(())
2068 in (hojfelds_NT
462,(result
,off_status1left
,on_status_opt1right
),
2070 |
(359,(_
,(_
,on_status1left
,on_status1right
))::rest671
) => let val
2071 result
=MlyValue
.ntVOID(())
2072 in (hojfelds_NT
340,(result
,on_status1left
,on_status1right
),rest671
)
2074 |
(360,rest671
) => let val result
=MlyValue
.ntVOID(())
2075 in (hojfelds_NT
340,(result
,defaultPos
,defaultPos
),rest671
) end
2076 |
(361,(_
,(_
,off_status1left
,off_status1right
))::rest671
) => let val
2077 result
=MlyValue
.ntVOID(())
2078 in (hojfelds_NT
333,(result
,off_status1left
,off_status1right
),rest671
)
2080 |
(362,rest671
) => let val result
=MlyValue
.ntVOID(())
2081 in (hojfelds_NT
333,(result
,defaultPos
,defaultPos
),rest671
) end
2082 |
(363,(_
,(_
,_
,condition_name1right
))::_
::(_
,(_
,ON1left
,_
))::rest671
)
2083 => let val result
=MlyValue
.ntVOID(())
2084 in (hojfelds_NT
339,(result
,ON1left
,condition_name1right
),rest671
) end
2085 |
(364,(_
,(_
,_
,condition_name1right
))::_
::(_
,(_
,OFF1left
,_
))::rest671
)
2086 => let val result
=MlyValue
.ntVOID(())
2087 in (hojfelds_NT
332,(result
,OFF1left
,condition_name1right
),rest671
)
2089 |
(365,(_
,(_
,_
,alphabet_specifier1right
))::_
::(_
,(_
,alphabet_name1left
2090 ,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
2091 in (hojfelds_NT
23,(result
,alphabet_name1left
,alphabet_specifier1right
2093 |
(366,(_
,(_
,STANDARD11left
,STANDARD11right
))::rest671
) => let val
2094 result
=MlyValue
.ntVOID(())
2095 in (hojfelds_NT
25,(result
,STANDARD11left
,STANDARD11right
),rest671
)
2097 |
(367,(_
,(_
,NATIVE1left
,NATIVE1right
))::rest671
) => let val result
=
2099 in (hojfelds_NT
25,(result
,NATIVE1left
,NATIVE1right
),rest671
) end
2100 |
(368,(_
,(_
,literal_also_ranges1left
,literal_also_ranges1right
))::
2101 rest671
) => let val result
=MlyValue
.ntVOID(())
2102 in (hojfelds_NT
25,(result
,literal_also_ranges1left
,
2103 literal_also_ranges1right
),rest671
) end
2104 |
(369,(_
,(_
,_
,literal_also_range1right
))::(_
,(_
,
2105 literal_also_ranges1left
,_
))::rest671
) => let val result
=
2107 in (hojfelds_NT
300,(result
,literal_also_ranges1left
,
2108 literal_also_range1right
),rest671
) end
2109 |
(370,(_
,(_
,literal_also_range1left
,literal_also_range1right
))::
2110 rest671
) => let val result
=MlyValue
.ntVOID(())
2111 in (hojfelds_NT
300,(result
,literal_also_range1left
,
2112 literal_also_range1right
),rest671
) end
2113 |
(371,(_
,(_
,_
,literal_boundary1right
))::(_
,(_
,literal1left
,_
))::
2114 rest671
) => let val result
=MlyValue
.ntVOID(())
2115 in (hojfelds_NT
299,(result
,literal1left
,literal_boundary1right
),
2117 |
(372,(_
,(_
,_
,literal1right
))::(_
,(_
,through1left
,_
))::rest671
) =>
2118 let val result
=MlyValue
.ntVOID(())
2119 in (hojfelds_NT
301,(result
,through1left
,literal1right
),rest671
) end
2120 |
(373,(_
,(_
,also_literals1left
,also_literals1right
))::rest671
) =>
2121 let val result
=MlyValue
.ntVOID(())
2122 in (hojfelds_NT
301,(result
,also_literals1left
,also_literals1right
),
2124 |
(374,(_
,(_
,_
,also_literal1right
))::(_
,(_
,also_literals1left
,_
))::
2125 rest671
) => let val result
=MlyValue
.ntVOID(())
2126 in (hojfelds_NT
27,(result
,also_literals1left
,also_literal1right
),
2128 |
(375,rest671
) => let val result
=MlyValue
.ntVOID(())
2129 in (hojfelds_NT
27,(result
,defaultPos
,defaultPos
),rest671
) end
2130 |
(376,(_
,(_
,_
,literal1right
))::(_
,(_
,ALSO1left
,_
))::rest671
) => let
2131 val result
=MlyValue
.ntVOID(())
2132 in (hojfelds_NT
26,(result
,ALSO1left
,literal1right
),rest671
) end
2133 |
(377,(_
,(MlyValue
.literal_range literal_range
,_
,literal_range1right
)
2134 )::(_
,(MlyValue
.literal_ranges literal_ranges
,literal_ranges1left
,_
))
2135 ::rest671
) => let val result
=MlyValue
.literal_ranges((
2136 Cobol
.SEVERAL_LITERAL_RANGES(literal_ranges
,literal_range
)))
2137 in (hojfelds_NT
303,(result
,literal_ranges1left
,literal_range1right
),
2139 |
(378,(_
,(MlyValue
.literal_range literal_range
,literal_range1left
,
2140 literal_range1right
))::rest671
) => let val result
=
2141 MlyValue
.literal_ranges((Cobol
.ONE_LITERAL_RANGE(literal_range
)))
2142 in (hojfelds_NT
303,(result
,literal_range1left
,literal_range1right
),
2144 |
(379,(_
,(MlyValue
.through_literal through_literal
,_
,
2145 through_literal1right
))::(_
,(MlyValue
.literal literal
,literal1left
,_
))
2146 ::rest671
) => let val result
=MlyValue
.literal_range((
2147 Cobol
.LITERAL_RANGE(literal
,through_literal
)))
2148 in (hojfelds_NT
302,(result
,literal1left
,through_literal1right
),
2150 |
(380,(_
,(MlyValue
.literal literal
,_
,literal1right
))::(_
,(_
,
2151 through1left
,_
))::rest671
) => let val result
=MlyValue
.through_literal(
2152 (Cobol
.THROUGH_LITERAL(literal
)))
2153 in (hojfelds_NT
493,(result
,through1left
,literal1right
),rest671
) end
2154 |
(381,rest671
) => let val result
=MlyValue
.through_literal((
2155 Cobol
.NO_THROUGH_LITERAL
))
2156 in (hojfelds_NT
493,(result
,defaultPos
,defaultPos
),rest671
) end
2157 |
(382,(_
,(MlyValue
.NONNUMERICLITERAL NONNUMERICLITERAL
,_
,
2158 NONNUMERICLITERAL1right
))::_
::(_
,(_
,CURRENCY1left
,_
))::rest671
) =>
2159 let val result
=MlyValue
.currency_sign_clause((
2160 Cobol
.CURRENCY(NONNUMERICLITERAL
)))
2161 in (hojfelds_NT
85,(result
,CURRENCY1left
,NONNUMERICLITERAL1right
),
2163 |
(383,(_
,(_
,_
,COMMA1right
))::_
::(_
,(_
,DECIMALPOINT1left
,_
))::rest671
)
2164 => let val result
=MlyValue
.decimal_clause((
2165 Cobol
.DECIMALPOINT_IS_COMMA
))
2166 in (hojfelds_NT
116,(result
,DECIMALPOINT1left
,COMMA1right
),rest671
)
2168 |
(384,(_
,(_
,_
,i_o_control_paragraph1right
))::_
::_
::_
::(_
,(_
,
2169 INPUTOUTPUT1left
,_
))::rest671
) => let val result
=
2170 MlyValue
.input_output_section(())
2171 in (hojfelds_NT
260,(result
,INPUTOUTPUT1left
,
2172 i_o_control_paragraph1right
),rest671
) end
2173 |
(385,rest671
) => let val result
=MlyValue
.input_output_section(())
2174 in (hojfelds_NT
260,(result
,defaultPos
,defaultPos
),rest671
) end
2175 |
(386,(_
,(_
,_
,file_control_entries1right
))::_
::(_
,(_
,FILECONTROL1left
2176 ,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
2177 in (hojfelds_NT
189,(result
,FILECONTROL1left
,
2178 file_control_entries1right
),rest671
) end
2179 |
(387,(_
,(_
,_
,file_control_entry1right
))::(_
,(_
,
2180 file_control_entries1left
,_
))::rest671
) => let val result
=
2182 in (hojfelds_NT
187,(result
,file_control_entries1left
,
2183 file_control_entry1right
),rest671
) end
2184 |
(388,(_
,(_
,file_control_entry1left
,file_control_entry1right
))::
2185 rest671
) => let val result
=MlyValue
.ntVOID(())
2186 in (hojfelds_NT
187,(result
,file_control_entry1left
,
2187 file_control_entry1right
),rest671
) end
2188 |
(389,(_
,(_
,_
,PERIOD1right
))::_
::_
::_
::(_
,(_
,SELECT1left
,_
))::rest671
2189 ) => let val result
=MlyValue
.ntVOID(())
2190 in (hojfelds_NT
188,(result
,SELECT1left
,PERIOD1right
),rest671
) end
2191 |
(390,(_
,(_
,_
,file_control_clause1right
))::(_
,(_
,
2192 file_control_clauses1left
,_
))::rest671
) => let val result
=
2194 in (hojfelds_NT
186,(result
,file_control_clauses1left
,
2195 file_control_clause1right
),rest671
) end
2196 |
(391,(_
,(_
,file_control_clause1left
,file_control_clause1right
))::
2197 rest671
) => let val result
=MlyValue
.ntVOID(())
2198 in (hojfelds_NT
186,(result
,file_control_clause1left
,
2199 file_control_clause1right
),rest671
) end
2200 |
(392,(_
,(_
,assign_clause1left
,assign_clause1right
))::rest671
) =>
2201 let val result
=MlyValue
.ntVOID(())
2202 in (hojfelds_NT
185,(result
,assign_clause1left
,assign_clause1right
),
2204 |
(393,(_
,(_
,reserve_clause1left
,reserve_clause1right
))::rest671
) =>
2205 let val result
=MlyValue
.ntVOID(())
2206 in (hojfelds_NT
185,(result
,reserve_clause1left
,reserve_clause1right
),
2208 |
(394,(_
,(_
,organization_clause1left
,organization_clause1right
))::
2209 rest671
) => let val result
=MlyValue
.ntVOID(())
2210 in (hojfelds_NT
185,(result
,organization_clause1left
,
2211 organization_clause1right
),rest671
) end
2212 |
(395,(_
,(_
,record_key_clause1left
,record_key_clause1right
))::rest671
2213 ) => let val result
=MlyValue
.ntVOID(())
2214 in (hojfelds_NT
185,(result
,record_key_clause1left
,
2215 record_key_clause1right
),rest671
) end
2216 |
(396,(_
,(_
,access_mode_clause1left
,access_mode_clause1right
))::
2217 rest671
) => let val result
=MlyValue
.ntVOID(())
2218 in (hojfelds_NT
185,(result
,access_mode_clause1left
,
2219 access_mode_clause1right
),rest671
) end
2220 |
(397,(_
,(_
,file_status_clause1left
,file_status_clause1right
))::
2221 rest671
) => let val result
=MlyValue
.ntVOID(())
2222 in (hojfelds_NT
185,(result
,file_status_clause1left
,
2223 file_status_clause1right
),rest671
) end
2224 |
(398,(_
,(_
,control_clause1left
,control_clause1right
))::rest671
) =>
2225 let val result
=MlyValue
.ntVOID(())
2226 in (hojfelds_NT
185,(result
,control_clause1left
,control_clause1right
),
2228 |
(399,(_
,(_
,_
,external_data_sets1right
))::_
::(_
,(_
,ASSIGN1left
,_
))::
2229 rest671
) => let val result
=MlyValue
.ntVOID(())
2230 in (hojfelds_NT
46,(result
,ASSIGN1left
,external_data_sets1right
),
2232 |
(400,(_
,(_
,_
,external_data_set1right
))::(_
,(_
,
2233 external_data_sets1left
,_
))::rest671
) => let val result
=
2235 in (hojfelds_NT
165,(result
,external_data_sets1left
,
2236 external_data_set1right
),rest671
) end
2237 |
(401,(_
,(_
,external_data_set1left
,external_data_set1right
))::rest671
2238 ) => let val result
=MlyValue
.ntVOID(())
2239 in (hojfelds_NT
165,(result
,external_data_set1left
,
2240 external_data_set1right
),rest671
) end
2241 |
(402,(_
,(_
,assignment_name1left
,assignment_name1right
))::rest671
)
2242 => let val result
=MlyValue
.ntVOID(())
2243 in (hojfelds_NT
164,(result
,assignment_name1left
,assignment_name1right
2245 |
(403,(_
,(_
,NONNUMERICLITERAL1left
,NONNUMERICLITERAL1right
))::rest671
2246 ) => let val result
=MlyValue
.ntVOID(())
2247 in (hojfelds_NT
164,(result
,NONNUMERICLITERAL1left
,
2248 NONNUMERICLITERAL1right
),rest671
) end
2249 |
(404,(_
,(_
,_
,areas1right
))::_
::(_
,(_
,RESERVE1left
,_
))::rest671
) =>
2250 let val result
=MlyValue
.ntVOID(())
2251 in (hojfelds_NT
410,(result
,RESERVE1left
,areas1right
),rest671
) end
2252 |
(405,(_
,(_
,_
,data_organization1right
))::(_
,(_
,organization_is1left
,_
2253 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
2254 in (hojfelds_NT
351,(result
,organization_is1left
,
2255 data_organization1right
),rest671
) end
2256 |
(406,(_
,(_
,SEQUENTIAL1left
,SEQUENTIAL1right
))::rest671
) => let val
2257 result
=MlyValue
.ntVOID(())
2258 in (hojfelds_NT
107,(result
,SEQUENTIAL1left
,SEQUENTIAL1right
),rest671
)
2260 |
(407,(_
,(_
,INDEXED1left
,INDEXED1right
))::rest671
) => let val result
=
2262 in (hojfelds_NT
107,(result
,INDEXED1left
,INDEXED1right
),rest671
) end
2263 |
(408,(_
,(_
,RELATIVE1left
,RELATIVE1right
))::rest671
) => let val
2264 result
=MlyValue
.ntVOID(())
2265 in (hojfelds_NT
107,(result
,RELATIVE1left
,RELATIVE1right
),rest671
) end
2266 |
(409,(_
,(_
,TRANSACTION1left
,TRANSACTION1right
))::rest671
) => let
2267 val result
=MlyValue
.ntVOID(())
2268 in (hojfelds_NT
107,(result
,TRANSACTION1left
,TRANSACTION1right
),
2270 |
(410,(_
,(_
,_
,relative_key_clause1right
))::_
::_
::(_
,(_
,ACCESS1left
,_
)
2271 )::rest671
) => let val result
=MlyValue
.ntVOID(())
2272 in (hojfelds_NT
8,(result
,ACCESS1left
,relative_key_clause1right
),
2274 |
(411,(_
,(_
,SEQUENTIAL1left
,SEQUENTIAL1right
))::rest671
) => let val
2275 result
=MlyValue
.ntVOID(())
2276 in (hojfelds_NT
9,(result
,SEQUENTIAL1left
,SEQUENTIAL1right
),rest671
)
2278 |
(412,(_
,(_
,RANDOM1left
,RANDOM1right
))::rest671
) => let val result
=
2280 in (hojfelds_NT
9,(result
,RANDOM1left
,RANDOM1right
),rest671
) end
2281 |
(413,(_
,(_
,DYNAMIC1left
,DYNAMIC1right
))::rest671
) => let val result
=
2283 in (hojfelds_NT
9,(result
,DYNAMIC1left
,DYNAMIC1right
),rest671
) end
2284 |
(414,(_
,(_
,_
,data_name1right
))::_
::_
::(_
,(_
,RELATIVE1left
,_
))::
2285 rest671
) => let val result
=MlyValue
.ntVOID(())
2286 in (hojfelds_NT
396,(result
,RELATIVE1left
,data_name1right
),rest671
)
2288 |
(415,rest671
) => let val result
=MlyValue
.ntVOID(())
2289 in (hojfelds_NT
396,(result
,defaultPos
,defaultPos
),rest671
) end
2290 |
(416,(_
,(_
,_
,duplicates_phrase1right
))::_
::_
::_
::(_
,(_
,RECORD1left
,_
2291 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
2292 in (hojfelds_NT
388,(result
,RECORD1left
,duplicates_phrase1right
),
2294 |
(417,(_
,(_
,_
,DUPLICATES1right
))::(_
,(_
,with1left
,_
))::rest671
) =>
2295 let val result
=MlyValue
.ntVOID(())
2296 in (hojfelds_NT
128,(result
,with1left
,DUPLICATES1right
),rest671
) end
2297 |
(418,rest671
) => let val result
=MlyValue
.ntVOID(())
2298 in (hojfelds_NT
128,(result
,defaultPos
,defaultPos
),rest671
) end
2299 |
(419,(_
,(_
,_
,data_name_opt1right
))::_
::_
::_
::(_
,(_
,file1left
,_
))::
2300 rest671
) => let val result
=MlyValue
.ntVOID(())
2301 in (hojfelds_NT
210,(result
,file1left
,data_name_opt1right
),rest671
)
2303 |
(420,(_
,(_
,_
,data_name1right
))::_
::(_
,(_
,CONTROLAREA1left
,_
))::
2304 rest671
) => let val result
=MlyValue
.ntVOID(())
2305 in (hojfelds_NT
79,(result
,CONTROLAREA1left
,data_name1right
),rest671
)
2307 |
(421,(_
,(_
,_
,i_o_control_entries1right
))::_
::(_
,(_
,IOCONTROL1left
,_
)
2308 )::rest671
) => let val result
=MlyValue
.ntVOID(())
2309 in (hojfelds_NT
223,(result
,IOCONTROL1left
,i_o_control_entries1right
),
2311 |
(422,rest671
) => let val result
=MlyValue
.ntVOID(())
2312 in (hojfelds_NT
223,(result
,defaultPos
,defaultPos
),rest671
) end
2313 |
(423,(_
,(_
,_
,PERIOD1right
))::(_
,(_
,i_o_control_clauses1left
,_
))::
2314 rest671
) => let val result
=MlyValue
.ntVOID(())
2315 in (hojfelds_NT
222,(result
,i_o_control_clauses1left
,PERIOD1right
),
2317 |
(424,rest671
) => let val result
=MlyValue
.ntVOID(())
2318 in (hojfelds_NT
222,(result
,defaultPos
,defaultPos
),rest671
) end
2319 |
(425,(_
,(_
,_
,i_o_control_clause1right
))::(_
,(_
,
2320 i_o_control_clauses1left
,_
))::rest671
) => let val result
=
2322 in (hojfelds_NT
221,(result
,i_o_control_clauses1left
,
2323 i_o_control_clause1right
),rest671
) end
2324 |
(426,(_
,(_
,i_o_control_clause1left
,i_o_control_clause1right
))::
2325 rest671
) => let val result
=MlyValue
.ntVOID(())
2326 in (hojfelds_NT
221,(result
,i_o_control_clause1left
,
2327 i_o_control_clause1right
),rest671
) end
2328 |
(427,(_
,(_
,rerun_clause1left
,rerun_clause1right
))::rest671
) => let
2329 val result
=MlyValue
.ntVOID(())
2330 in (hojfelds_NT
220,(result
,rerun_clause1left
,rerun_clause1right
),
2332 |
(428,(_
,(_
,same_area_clause1left
,same_area_clause1right
))::rest671
)
2333 => let val result
=MlyValue
.ntVOID(())
2334 in (hojfelds_NT
220,(result
,same_area_clause1left
,
2335 same_area_clause1right
),rest671
) end
2336 |
(429,(_
,(_
,same_record_area_clause1left
,
2337 same_record_area_clause1right
))::rest671
) => let val result
=
2339 in (hojfelds_NT
220,(result
,same_record_area_clause1left
,
2340 same_record_area_clause1right
),rest671
) end
2341 |
(430,(_
,(_
,same_sort_area_clause1left
,same_sort_area_clause1right
))
2342 ::rest671
) => let val result
=MlyValue
.ntVOID(())
2343 in (hojfelds_NT
220,(result
,same_sort_area_clause1left
,
2344 same_sort_area_clause1right
),rest671
) end
2345 |
(431,(_
,(_
,same_sort_merge_area_clause1left
,
2346 same_sort_merge_area_clause1right
))::rest671
) => let val result
=
2348 in (hojfelds_NT
220,(result
,same_sort_merge_area_clause1left
,
2349 same_sort_merge_area_clause1right
),rest671
) end
2350 |
(432,(_
,(_
,apply_core_index_clause1left
,
2351 apply_core_index_clause1right
))::rest671
) => let val result
=
2353 in (hojfelds_NT
220,(result
,apply_core_index_clause1left
,
2354 apply_core_index_clause1right
),rest671
) end
2355 |
(433,(_
,(_
,multiple_file_tape_clause1left
,
2356 multiple_file_tape_clause1right
))::rest671
) => let val result
=
2358 in (hojfelds_NT
220,(result
,multiple_file_tape_clause1left
,
2359 multiple_file_tape_clause1right
),rest671
) end
2360 |
(434,(_
,(_
,_
,file_name2right
))::_
::_
::_
::_
::_
::_
::(_
,(_
,RERUN1left
,_
2361 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
2362 in (hojfelds_NT
409,(result
,RERUN1left
,file_name2right
),rest671
) end
2363 |
(435,(_
,(_
,_
,file_names1right
))::_
::_
::(_
,(_
,SAME1left
,_
))::rest671
)
2364 => let val result
=MlyValue
.ntVOID(())
2365 in (hojfelds_NT
416,(result
,SAME1left
,file_names1right
),rest671
) end
2366 |
(436,(_
,(_
,_
,file_names1right
))::_
::_
::_
::(_
,(_
,SAME1left
,_
))::
2367 rest671
) => let val result
=MlyValue
.ntVOID(())
2368 in (hojfelds_NT
417,(result
,SAME1left
,file_names1right
),rest671
) end
2369 |
(437,(_
,(_
,_
,file_names1right
))::_
::_
::_
::(_
,(_
,SAME1left
,_
))::
2370 rest671
) => let val result
=MlyValue
.ntVOID(())
2371 in (hojfelds_NT
419,(result
,SAME1left
,file_names1right
),rest671
) end
2372 |
(438,(_
,(_
,_
,file_names1right
))::_
::_
::_
::(_
,(_
,SAME1left
,_
))::
2373 rest671
) => let val result
=MlyValue
.ntVOID(())
2374 in (hojfelds_NT
420,(result
,SAME1left
,file_names1right
),rest671
) end
2375 |
(439,(_
,(_
,_
,file_names1right
))::_
::_
::_
::_
::(_
,(_
,APPLY1left
,_
))::
2376 rest671
) => let val result
=MlyValue
.ntVOID(())
2377 in (hojfelds_NT
37,(result
,APPLY1left
,file_names1right
),rest671
) end
2378 |
(440,(_
,(_
,_
,file_positions1right
))::_
::_
::(_
,(_
,MULTIPLE1left
,_
))::
2379 rest671
) => let val result
=MlyValue
.ntVOID(())
2380 in (hojfelds_NT
316,(result
,MULTIPLE1left
,file_positions1right
),
2382 |
(441,(_
,(_
,_
,file_position1right
))::(_
,(_
,file_positions1left
,_
))::
2383 rest671
) => let val result
=MlyValue
.ntVOID(())
2384 in (hojfelds_NT
208,(result
,file_positions1left
,file_position1right
),
2386 |
(442,(_
,(_
,file_position1left
,file_position1right
))::rest671
) =>
2387 let val result
=MlyValue
.ntVOID(())
2388 in (hojfelds_NT
208,(result
,file_position1left
,file_position1right
),
2390 |
(443,(_
,(_
,_
,position_integer1right
))::(_
,(_
,file_name1left
,_
))::
2391 rest671
) => let val result
=MlyValue
.ntVOID(())
2392 in (hojfelds_NT
207,(result
,file_name1left
,position_integer1right
),
2394 |
(444,(_
,(_
,_
,INTEGER1right
))::(_
,(_
,POSITION1left
,_
))::rest671
) =>
2395 let val result
=MlyValue
.ntVOID(())
2396 in (hojfelds_NT
365,(result
,POSITION1left
,INTEGER1right
),rest671
) end
2397 |
(445,rest671
) => let val result
=MlyValue
.ntVOID(())
2398 in (hojfelds_NT
365,(result
,defaultPos
,defaultPos
),rest671
) end
2399 |
(446,(_
,(MlyValue
.linkage_section linkage_section
,_
,
2400 linkage_section1right
))::(_
,(MlyValue
.working_storage_section
2401 working_storage_section
,_
,_
))::(_
,(MlyValue
.file_section file_section
,
2402 _
,_
))::_
::_
::(_
,(_
,DATA1left
,_
))::rest671
) => let val result
=
2403 MlyValue
.data_division((
2404 Cobol
.DATA_DIVISION(file_section
,
2405 working_storage_section
,
2408 in (hojfelds_NT
91,(result
,DATA1left
,linkage_section1right
),rest671
)
2410 |
(447,rest671
) => let val result
=MlyValue
.data_division((
2411 Cobol
.NO_DATA_DIVISION
))
2412 in (hojfelds_NT
91,(result
,defaultPos
,defaultPos
),rest671
) end
2413 |
(448,(_
,(MlyValue
.file_description_paragraphs
2414 file_description_paragraphs
,_
,file_description_paragraphsright
as
2415 file_description_paragraphs1right
))::_
::_
::(_
,(_
,FILEleft
as FILE1left
2416 ,_
))::rest671
) => let val result
=MlyValue
.file_section((
2417 Cobol
.FILE_SECTION(file_description_paragraphs
,FILEleft
,file_description_paragraphsright
)
2419 in (hojfelds_NT
209,(result
,FILE1left
,
2420 file_description_paragraphs1right
),rest671
) end
2421 |
(449,rest671
) => let val result
=MlyValue
.file_section((
2422 Cobol
.NO_FILE_SECTION
))
2423 in (hojfelds_NT
209,(result
,defaultPos
,defaultPos
),rest671
) end
2424 |
(450,(_
,(MlyValue
.file_description_paragraph
2425 file_description_paragraph
,_
,file_description_paragraph1right
))::(_
,(
2426 MlyValue
.file_description_paragraphs file_description_paragraphs
,
2427 file_description_paragraphs1left
,_
))::rest671
) => let val result
=
2428 MlyValue
.file_description_paragraphs((
2429 Cobol
.FILE_DESCRIPTION_PARAGRAPHS(file_description_paragraphs
,
2430 file_description_paragraph
)
2432 in (hojfelds_NT
195,(result
,file_description_paragraphs1left
,
2433 file_description_paragraph1right
),rest671
) end
2434 |
(451,rest671
) => let val result
=MlyValue
.file_description_paragraphs
2435 ((Cobol
.NO_FILE_DESCRIPTION_PARAGRAPHS
))
2436 in (hojfelds_NT
195,(result
,defaultPos
,defaultPos
),rest671
) end
2437 |
(452,(_
,(MlyValue
.record_description_entries
2438 record_description_entries
,_
,record_description_entries1right
))::(_
,(
2439 MlyValue
.file_and_sort_description_entry
2440 file_and_sort_description_entry
,file_and_sort_description_entry1left
,_
2441 ))::rest671
) => let val result
=MlyValue
.file_description_paragraph((
2442 Cobol
.FILE_DESCRIPTION_PARAGRAPH(file_and_sort_description_entry
,
2443 record_description_entries
)
2445 in (hojfelds_NT
194,(result
,file_and_sort_description_entry1left
,
2446 record_description_entries1right
),rest671
) end
2447 |
(453,(_
,(MlyValue
.file_description_entry file_description_entry
,
2448 file_description_entry1left
,file_description_entry1right
))::rest671
)
2449 => let val result
=MlyValue
.file_and_sort_description_entry((
2450 Cobol
.FILE_DESCRIPTION_ENTRY(file_description_entry
)))
2451 in (hojfelds_NT
184,(result
,file_description_entry1left
,
2452 file_description_entry1right
),rest671
) end
2453 |
(454,(_
,(MlyValue
.sort_description_entry sort_description_entry
,
2454 sort_description_entry1left
,sort_description_entry1right
))::rest671
)
2455 => let val result
=MlyValue
.file_and_sort_description_entry((
2456 Cobol
.SORT_DESCRIPTION_ENTRY(sort_description_entry
)))
2457 in (hojfelds_NT
184,(result
,sort_description_entry1left
,
2458 sort_description_entry1right
),rest671
) end
2459 |
(455,(_
,(_
,_
,PERIODright
as PERIOD1right
))::(_
,(
2460 MlyValue
.file_description_clauses file_description_clauses
,_
,_
))::(_
,(
2461 MlyValue
.file_name file_name
,_
,_
))::(_
,(_
,FDleft
as FD1left
,_
))::
2462 rest671
) => let val result
=MlyValue
.file_description_entry((
2463 Cobol
.FD(file_name
,file_description_clauses
,FDleft
,PERIODright
)))
2464 in (hojfelds_NT
193,(result
,FD1left
,PERIOD1right
),rest671
) end
2465 |
(456,(_
,(MlyValue
.file_description_clause file_description_clause
,_
,
2466 file_description_clause1right
))::(_
,(MlyValue
.file_description_clauses
2467 file_description_clauses
,file_description_clauses1left
,_
))::rest671
)
2468 => let val result
=MlyValue
.file_description_clauses((
2469 Cobol
.FILE_DESCRIPTION_CLAUSES(file_description_clauses
,
2470 file_description_clause
)
2472 in (hojfelds_NT
192,(result
,file_description_clauses1left
,
2473 file_description_clause1right
),rest671
) end
2474 |
(457,rest671
) => let val result
=MlyValue
.file_description_clauses((
2475 Cobol
.NO_FILE_DESCRIPTION_CLAUSES
))
2476 in (hojfelds_NT
192,(result
,defaultPos
,defaultPos
),rest671
) end
2477 |
(458,(_
,(MlyValue
.block_contains_clause block_contains_clause
,
2478 block_contains_clause1left
,block_contains_clause1right
))::rest671
) =>
2479 let val result
=MlyValue
.file_description_clause((block_contains_clause
2481 in (hojfelds_NT
191,(result
,block_contains_clause1left
,
2482 block_contains_clause1right
),rest671
) end
2483 |
(459,(_
,(MlyValue
.record_contains_clause record_contains_clause
,
2484 record_contains_clauseleft
as record_contains_clause1left
,
2485 record_contains_clauseright
as record_contains_clause1right
))::rest671
2486 ) => let val result
=MlyValue
.file_description_clause((
2487 Cobol
.FILE_DESCRIPTION_CLAUSE_IS_RECORD(record_contains_clause
,
2488 record_contains_clauseleft
,
2489 record_contains_clauseright
)
2491 in (hojfelds_NT
191,(result
,record_contains_clause1left
,
2492 record_contains_clause1right
),rest671
) end
2493 |
(460,(_
,(MlyValue
.label_records_clause label_records_clause
,
2494 label_records_clause1left
,label_records_clause1right
))::rest671
) =>
2495 let val result
=MlyValue
.file_description_clause((label_records_clause
)
2497 in (hojfelds_NT
191,(result
,label_records_clause1left
,
2498 label_records_clause1right
),rest671
) end
2499 |
(461,(_
,(MlyValue
.value_of_clause value_of_clause
,
2500 value_of_clause1left
,value_of_clause1right
))::rest671
) => let val
2501 result
=MlyValue
.file_description_clause((value_of_clause
))
2502 in (hojfelds_NT
191,(result
,value_of_clause1left
,value_of_clause1right
2504 |
(462,(_
,(MlyValue
.data_records_clause data_records_clause
,
2505 data_records_clauseleft
as data_records_clause1left
,
2506 data_records_clauseright
as data_records_clause1right
))::rest671
) =>
2507 let val result
=MlyValue
.file_description_clause((
2508 Cobol
.FILE_DESCRIPTION_CLAUSE_IS_DATA(data_records_clause
,
2509 data_records_clauseleft
,
2510 data_records_clauseright
)
2512 in (hojfelds_NT
191,(result
,data_records_clause1left
,
2513 data_records_clause1right
),rest671
) end
2514 |
(463,(_
,(MlyValue
.linage_clause linage_clause
,linage_clause1left
,
2515 linage_clause1right
))::rest671
) => let val result
=
2516 MlyValue
.file_description_clause((linage_clause
))
2517 in (hojfelds_NT
191,(result
,linage_clause1left
,linage_clause1right
),
2519 |
(464,(_
,(MlyValue
.code_set_clause code_set_clause
,
2520 code_set_clause1left
,code_set_clause1right
))::rest671
) => let val
2521 result
=MlyValue
.file_description_clause((code_set_clause
))
2522 in (hojfelds_NT
191,(result
,code_set_clause1left
,code_set_clause1right
2524 |
(465,(_
,(MlyValue
.characters_or_records characters_or_records
,_
,
2525 characters_or_recordsright
as characters_or_records1right
))::(_
,(
2526 MlyValue
.integer_range integer_range
,_
,_
))::_
::(_
,(_
,BLOCKleft
as
2527 BLOCK1left
,_
))::rest671
) => let val result
=
2528 MlyValue
.block_contains_clause((
2529 Cobol
.BLOCK(integer_range
,
2530 characters_or_records
,
2532 characters_or_recordsright
)
2534 in (hojfelds_NT
53,(result
,BLOCK1left
,characters_or_records1right
),
2536 |
(466,(_
,(MlyValue
.INTEGER INTEGER
,INTEGER1left
,INTEGER1right
))::
2537 rest671
) => let val result
=MlyValue
.integer_range((
2538 Cobol
.SIMPLE_RANGE(INTEGER
)))
2539 in (hojfelds_NT
265,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
2540 |
(467,(_
,(MlyValue
.INTEGER INTEGER2
,_
,INTEGER2right
))::_
::(_
,(
2541 MlyValue
.INTEGER INTEGER1
,INTEGER1left
,_
))::rest671
) => let val result
2542 =MlyValue
.integer_range((Cobol
.INTEGER_TO_INTEGER(INTEGER1
,INTEGER2
)))
2543 in (hojfelds_NT
265,(result
,INTEGER1left
,INTEGER2right
),rest671
) end
2544 |
(468,(_
,(_
,characters1left
,characters1right
))::rest671
) => let val
2545 result
=MlyValue
.characters_or_records((Cobol
.CHARACTERS
))
2546 in (hojfelds_NT
62,(result
,characters1left
,characters1right
),rest671
)
2548 |
(469,(_
,(_
,RECORDS1left
,RECORDS1right
))::rest671
) => let val result
=
2549 MlyValue
.characters_or_records((Cobol
.RECORDS
))
2550 in (hojfelds_NT
62,(result
,RECORDS1left
,RECORDS1right
),rest671
) end
2551 |
(470,(_
,(_
,_
,characters1right
))::(_
,(MlyValue
.integer_range
2552 integer_range
,_
,_
))::_
::(_
,(_
,RECORD1left
,_
))::rest671
) => let val
2553 result
=MlyValue
.record_contains_clause((
2554 Cobol
.RECORD_CONTAINS(integer_range
)))
2555 in (hojfelds_NT
381,(result
,RECORD1left
,characters1right
),rest671
) end
2556 |
(471,(_
,(MlyValue
.standard_or_omitted standard_or_omitted
,_
,
2557 standard_or_omitted1right
))::_
::(_
,(_
,LABEL1left
,_
))::rest671
) => let
2558 val result
=MlyValue
.label_records_clause((standard_or_omitted
))
2559 in (hojfelds_NT
285,(result
,LABEL1left
,standard_or_omitted1right
),
2561 |
(472,(_
,(_
,_
,is1right
))::(_
,(_
,RECORD1left
,_
))::rest671
) => let val
2562 result
=MlyValue
.ntVOID(())
2563 in (hojfelds_NT
387,(result
,RECORD1left
,is1right
),rest671
) end
2564 |
(473,(_
,(_
,_
,are1right
))::(_
,(_
,RECORDS1left
,_
))::rest671
) => let
2565 val result
=MlyValue
.ntVOID(())
2566 in (hojfelds_NT
387,(result
,RECORDS1left
,are1right
),rest671
) end
2567 |
(474,(_
,(_
,STANDARD1left
,STANDARD1right
))::rest671
) => let val
2568 result
=MlyValue
.standard_or_omitted((Cobol
.LABEL_STANDARD
))
2569 in (hojfelds_NT
456,(result
,STANDARD1left
,STANDARD1right
),rest671
) end
2570 |
(475,(_
,(_
,OMITTED1left
,OMITTED1right
))::rest671
) => let val result
=
2571 MlyValue
.standard_or_omitted((Cobol
.LABEL_OMITTED
))
2572 in (hojfelds_NT
456,(result
,OMITTED1left
,OMITTED1right
),rest671
) end
2573 |
(476,(_
,(MlyValue
.value_of_phrases value_of_phrases
,_
,
2574 value_of_phrasesright
as value_of_phrases1right
))::_
::(_
,(_
,VALUEleft
2575 as VALUE1left
,_
))::rest671
) => let val result
=
2576 MlyValue
.value_of_clause((
2577 Cobol
.VALUE_OF_CLAUSE(value_of_phrases
,
2579 value_of_phrasesright
)
2581 in (hojfelds_NT
518,(result
,VALUE1left
,value_of_phrases1right
),rest671
2583 |
(477,(_
,(MlyValue
.value_of_phrase value_of_phrase
,_
,
2584 value_of_phrase1right
))::(_
,(MlyValue
.value_of_phrases
2585 value_of_phrases
,value_of_phrases1left
,_
))::rest671
) => let val result
2586 =MlyValue
.value_of_phrases((
2587 Cobol
.VALUE_OF_PHRASES(value_of_phrases
, value_of_phrase
)))
2588 in (hojfelds_NT
521,(result
,value_of_phrases1left
,
2589 value_of_phrase1right
),rest671
) end
2590 |
(478,(_
,(MlyValue
.value_of_phrase value_of_phrase
,
2591 value_of_phrase1left
,value_of_phrase1right
))::rest671
) => let val
2592 result
=MlyValue
.value_of_phrases((
2593 Cobol
.VALUE_OF_PHRASE(value_of_phrase
)))
2594 in (hojfelds_NT
521,(result
,value_of_phrase1left
,value_of_phrase1right
2596 |
(479,(_
,(MlyValue
.data_name_or_literal data_name_or_literal
,_
,
2597 data_name_or_literal1right
))::_
::(_
,(MlyValue
.system_name system_name
,
2598 system_name1left
,_
))::rest671
) => let val result
=
2599 MlyValue
.value_of_phrase((
2600 Cobol
.VALUE_OF(system_name
, data_name_or_literal
)))
2601 in (hojfelds_NT
520,(result
,system_name1left
,
2602 data_name_or_literal1right
),rest671
) end
2603 |
(480,(_
,(MlyValue
.data_names data_names
,_
,data_names1right
))::_
::(_
,
2604 (_
,DATA1left
,_
))::rest671
) => let val result
=
2605 MlyValue
.data_records_clause((Cobol
.DATA_RECORD_IS(data_names
)))
2606 in (hojfelds_NT
108,(result
,DATA1left
,data_names1right
),rest671
) end
2607 |
(481,(_
,(MlyValue
.top_bottom_specifications
2608 top_bottom_specifications
,_
,top_bottom_specificationsright
as
2609 top_bottom_specifications1right
))::(_
,(MlyValue
.footing_specification
2610 footing_specification
,_
,_
))::_
::(_
,(MlyValue
.data_name_or_integer
2611 data_name_or_integer
,_
,_
))::_
::(_
,(_
,LINAGEleft
as LINAGE1left
,_
))::
2612 rest671
) => let val result
=MlyValue
.linage_clause((
2613 Cobol
.LINAGE_CLAUSE(data_name_or_integer
,
2614 footing_specification
,
2615 top_bottom_specifications
,
2617 top_bottom_specificationsright
)
2619 in (hojfelds_NT
293,(result
,LINAGE1left
,
2620 top_bottom_specifications1right
),rest671
) end
2621 |
(482,(_
,(MlyValue
.data_name_or_integer data_name_or_integer
,_
,
2622 data_name_or_integer1right
))::_
::_
::(_
,(_
,with1left
,_
))::rest671
) =>
2623 let val result
=MlyValue
.footing_specification((
2624 Cobol
.FOOTING(data_name_or_integer
)))
2625 in (hojfelds_NT
212,(result
,with1left
,data_name_or_integer1right
),
2627 |
(483,rest671
) => let val result
=MlyValue
.footing_specification((
2629 in (hojfelds_NT
212,(result
,defaultPos
,defaultPos
),rest671
) end
2630 |
(484,(_
,(MlyValue
.top_bottom_specification top_bottom_specification
,
2631 _
,top_bottom_specification1right
))::(_
,(
2632 MlyValue
.top_bottom_specifications top_bottom_specifications
,
2633 top_bottom_specifications1left
,_
))::rest671
) => let val result
=
2634 MlyValue
.top_bottom_specifications((
2635 Cobol
.TOP_BOTTOM_SPECIFICATIONS(top_bottom_specifications
,
2636 top_bottom_specification
)
2638 in (hojfelds_NT
502,(result
,top_bottom_specifications1left
,
2639 top_bottom_specification1right
),rest671
) end
2640 |
(485,rest671
) => let val result
=MlyValue
.top_bottom_specifications((
2641 Cobol
.NO_TOP_BOTTOM_SPECIFICATION
))
2642 in (hojfelds_NT
502,(result
,defaultPos
,defaultPos
),rest671
) end
2643 |
(486,(_
,(_
,_
,data_name_or_integer1right
))::(_
,(MlyValue
.top_bottom
2644 top_bottom
,_
,_
))::_
::(_
,(_
,lines1left
,_
))::rest671
) => let val result
=
2645 MlyValue
.top_bottom_specification((top_bottom
))
2646 in (hojfelds_NT
501,(result
,lines1left
,data_name_or_integer1right
),
2648 |
(487,(_
,(_
,TOP1left
,TOP1right
))::rest671
) => let val result
=
2649 MlyValue
.top_bottom((Cobol
.TOP
))
2650 in (hojfelds_NT
500,(result
,TOP1left
,TOP1right
),rest671
) end
2651 |
(488,(_
,(_
,BOTTOM1left
,BOTTOM1right
))::rest671
) => let val result
=
2652 MlyValue
.top_bottom((Cobol
.BOTTOM
))
2653 in (hojfelds_NT
500,(result
,BOTTOM1left
,BOTTOM1right
),rest671
) end
2654 |
(489,(_
,(MlyValue
.alphabet_name alphabet_name
,_
,alphabet_nameright
2655 as alphabet_name1right
))::_
::(_
,(_
,CODESETleft
as CODESET1left
,_
))::
2656 rest671
) => let val result
=MlyValue
.code_set_clause((
2657 Cobol
.CODE_SET_CLAUSE(alphabet_name
,
2661 in (hojfelds_NT
65,(result
,CODESET1left
,alphabet_name1right
),rest671
)
2663 |
(490,(_
,(_
,_
,PERIOD1right
))::(_
,(MlyValue
.sort_description_clauses
2664 sort_description_clauses
,_
,_
))::(_
,(MlyValue
.file_name file_name
,_
,_
))
2665 ::(_
,(_
,SD1left
,_
))::rest671
) => let val result
=
2666 MlyValue
.sort_description_entry((
2667 Cobol
.SD(file_name
,sort_description_clauses
)))
2668 in (hojfelds_NT
447,(result
,SD1left
,PERIOD1right
),rest671
) end
2669 |
(491,(_
,(MlyValue
.sort_description_clause sort_description_clause
,_
,
2670 sort_description_clause1right
))::(_
,(MlyValue
.sort_description_clauses
2671 sort_description_clauses
,sort_description_clauses1left
,_
))::rest671
)
2672 => let val result
=MlyValue
.sort_description_clauses((
2673 Cobol
.SORT_DESCRIPTION_CLAUSES(sort_description_clauses
,
2674 sort_description_clause
)
2676 in (hojfelds_NT
446,(result
,sort_description_clauses1left
,
2677 sort_description_clause1right
),rest671
) end
2678 |
(492,rest671
) => let val result
=MlyValue
.sort_description_clauses((
2679 Cobol
.NO_SORT_DESCRIPTION_CLAUSE
))
2680 in (hojfelds_NT
446,(result
,defaultPos
,defaultPos
),rest671
) end
2681 |
(493,(_
,(MlyValue
.record_contains_clause record_contains_clause
,
2682 record_contains_clauseleft
as record_contains_clause1left
,
2683 record_contains_clauseright
as record_contains_clause1right
))::rest671
2684 ) => let val result
=MlyValue
.sort_description_clause((
2685 Cobol
.SORT_DESCRIPTION_CLAUSE_IS_RECORD
2686 (record_contains_clause
,
2687 record_contains_clauseleft
,
2688 record_contains_clauseright
)
2690 in (hojfelds_NT
445,(result
,record_contains_clause1left
,
2691 record_contains_clause1right
),rest671
) end
2692 |
(494,(_
,(MlyValue
.data_records_clause data_records_clause
,
2693 data_records_clauseleft
as data_records_clause1left
,
2694 data_records_clauseright
as data_records_clause1right
))::rest671
) =>
2695 let val result
=MlyValue
.sort_description_clause((
2696 Cobol
.SORT_DESCRIPTION_CLAUSE_IS_DATA(data_records_clause
,
2697 data_records_clauseleft
,
2698 data_records_clauseright
)
2700 in (hojfelds_NT
445,(result
,data_records_clause1left
,
2701 data_records_clause1right
),rest671
) end
2702 |
(495,(_
,(MlyValue
.record_description_entry record_description_entry
,
2703 _
,record_description_entry1right
))::(_
,(
2704 MlyValue
.record_description_entries record_description_entries
,
2705 record_description_entries1left
,_
))::rest671
) => let val result
=
2706 MlyValue
.record_description_entries((
2707 Cobol
.RECORD_DESCRIPTION_ENTRIES(record_description_entries
,
2708 record_description_entry
)
2710 in (hojfelds_NT
385,(result
,record_description_entries1left
,
2711 record_description_entry1right
),rest671
) end
2712 |
(496,(_
,(MlyValue
.record_description_entry record_description_entry
,
2713 record_description_entry1left
,record_description_entry1right
))::
2714 rest671
) => let val result
=MlyValue
.record_description_entries((
2715 Cobol
.RECORD_DESCRIPTION_ENTRIES(Cobol
.NO_RECORD_DESCRIPTION_ENTRIES
,
2716 record_description_entry
)
2718 in (hojfelds_NT
385,(result
,record_description_entry1left
,
2719 record_description_entry1right
),rest671
) end
2720 |
(497,(_
,(MlyValue
.record_description_entries
2721 record_description_entries
,record_description_entries1left
,
2722 record_description_entries1right
))::rest671
) => let val result
=
2723 MlyValue
.record_description_entries_opt((
2724 Cobol
.RECORD_DESCRIPTION_ENTRIES_OPT(record_description_entries
)))
2725 in (hojfelds_NT
384,(result
,record_description_entries1left
,
2726 record_description_entries1right
),rest671
) end
2727 |
(498,rest671
) => let val result
=
2728 MlyValue
.record_description_entries_opt((
2729 Cobol
.NO_RECORD_DESCRIPTION_ENTRIES_OPT
))
2730 in (hojfelds_NT
384,(result
,defaultPos
,defaultPos
),rest671
) end
2731 |
(499,(_
,(MlyValue
.data_description_entry data_description_entry
,
2732 data_description_entry1left
,data_description_entry1right
))::rest671
)
2733 => let val result
=MlyValue
.record_description_entry((
2734 data_description_entry
))
2735 in (hojfelds_NT
386,(result
,data_description_entry1left
,
2736 data_description_entry1right
),rest671
) end
2737 |
(500,(_
,(MlyValue
.data_description_entry_134
2738 data_description_entry_134
,data_description_entry_1341left
,
2739 data_description_entry_1341right
))::rest671
) => let val result
=
2740 MlyValue
.data_description_entry((data_description_entry_134
))
2741 in (hojfelds_NT
89,(result
,data_description_entry_1341left
,
2742 data_description_entry_1341right
),rest671
) end
2743 |
(501,(_
,(MlyValue
.renames_clause renames_clause
,renames_clause1left
,
2744 renames_clause1right
))::rest671
) => let val result
=
2745 MlyValue
.data_description_entry((renames_clause
))
2746 in (hojfelds_NT
89,(result
,renames_clause1left
,renames_clause1right
),
2748 |
(502,(_
,(MlyValue
.data_description_annotation
2749 data_description_annotation
,data_description_annotation1left
,
2750 data_description_annotation1right
))::rest671
) => let val result
=
2751 MlyValue
.data_description_entry((data_description_annotation
))
2752 in (hojfelds_NT
89,(result
,data_description_annotation1left
,
2753 data_description_annotation1right
),rest671
) end
2754 |
(503,(_
,(MlyValue
.ts2k ts2k
,_
,ts2kright
as ts2k1right
))::(_
,(_
,
2755 TS2Kleft
as TS2K1left
,_
))::rest671
) => let val result
=
2756 MlyValue
.data_description_annotation((
2757 Cobol
.TS2K_NOARROW(ts2k
,TS2Kleft
,ts2kright
)))
2758 in (hojfelds_NT
541,(result
,TS2K1left
,ts2k1right
),rest671
) end
2759 |
(504,(_
,(MlyValue
.ts2k ts2k2
,_
,ts2k2right
))::_
::(_
,(MlyValue
.ts2k
2760 ts2k1
,_
,_
))::(_
,(_
,TS2Kleft
as TS2K1left
,_
))::rest671
) => let val
2761 result
=MlyValue
.data_description_annotation((
2762 Cobol
.TS2K_ARROW(ts2k1
,ts2k2
,TS2Kleft
,ts2k2right
)))
2763 in (hojfelds_NT
541,(result
,TS2K1left
,ts2k2right
),rest671
) end
2764 |
(505,(_
,(MlyValue
.ts2k ts2k2
,_
,ts2k2right
))::_
::(_
,(MlyValue
.ts2k
2765 ts2k1
,_
,_
))::_
::(_
,(_
,TS2Kleft
as TS2K1left
,_
))::rest671
) => let val
2766 result
=MlyValue
.data_description_annotation((
2767 Cobol
.TS2K_ALL(ts2k1
,ts2k2
,TS2Kleft
,ts2k2right
)))
2768 in (hojfelds_NT
541,(result
,TS2K1left
,ts2k2right
),rest671
) end
2769 |
(506,(_
,(_
,_
,ENDright
as END1right
))::(_
,(_
,TS2Kleft
as TS2K1left
,_
)
2770 )::rest671
) => let val result
=MlyValue
.data_description_annotation((
2771 Cobol
.TS2K_END(TS2Kleft
,ENDright
)))
2772 in (hojfelds_NT
541,(result
,TS2K1left
,END1right
),rest671
) end
2773 |
(507,(_
,(_
,_
,SEPARATEright
as SEPARATE1right
))::_
::(_
,(_
,TS2Kleft
2774 as TS2K1left
,_
))::rest671
) => let val result
=
2775 MlyValue
.data_description_annotation((
2776 Cobol
.TS2K_ASSUME_SEPARATE(TS2Kleft
,SEPARATEright
)))
2777 in (hojfelds_NT
541,(result
,TS2K1left
,SEPARATE1right
),rest671
) end
2778 |
(508,(_
,(_
,_
,PERIODright
as PERIOD1right
))::(_
,(
2779 MlyValue
.data_description_clauses data_description_clauses
,_
,_
))::(_
,(
2780 MlyValue
.redefines_clause redefines_clause
,_
,_
))::(_
,(
2781 MlyValue
.data_name_or_filler data_name_or_filler
,_
,_
))::(_
,(
2782 MlyValue
.level_number level_number
,level_numberleft
as
2783 level_number1left
,_
))::rest671
) => let val result
=
2784 MlyValue
.data_description_entry_134((
2785 (if (level_number
= "88")
2786 then (case data_name_or_filler
of
2787 Cobol
.DATA_NAME_OR_FILLER_IS_DATA_NAME(data_name
)
2788 => condition_names
:= data_name
:: (!condition_names
)
2791 Cobol
.DATA_DESCRIPTION_ENTRY_134(level_number
,
2792 data_name_or_filler
,
2794 data_description_clauses
,
2798 in (hojfelds_NT
90,(result
,level_number1left
,PERIOD1right
),rest671
)
2800 |
(509,(_
,(MlyValue
.data_name data_name
,_
,data_name1right
))::(_
,(_
,
2801 REDEFINES1left
,_
))::rest671
) => let val result
=
2802 MlyValue
.redefines_clause((Cobol
.REDEFINES_CLAUSE(data_name
)))
2803 in (hojfelds_NT
391,(result
,REDEFINES1left
,data_name1right
),rest671
)
2805 |
(510,rest671
) => let val result
=MlyValue
.redefines_clause((
2806 Cobol
.NO_REDEFINES_CLAUSE
))
2807 in (hojfelds_NT
391,(result
,defaultPos
,defaultPos
),rest671
) end
2808 |
(511,(_
,(MlyValue
.data_description_clause data_description_clause
,_
,
2809 data_description_clause1right
))::(_
,(MlyValue
.data_description_clauses
2810 data_description_clauses
,data_description_clauses1left
,_
))::rest671
)
2811 => let val result
=MlyValue
.data_description_clauses((
2812 Cobol
.DATA_DESCRIPTION_CLAUSES(data_description_clauses
,
2813 data_description_clause
)
2815 in (hojfelds_NT
88,(result
,data_description_clauses1left
,
2816 data_description_clause1right
),rest671
) end
2817 |
(512,rest671
) => let val result
=MlyValue
.data_description_clauses((
2818 Cobol
.NO_DATA_DESCRIPTION_CLAUSES
))
2819 in (hojfelds_NT
88,(result
,defaultPos
,defaultPos
),rest671
) end
2820 |
(513,(_
,(MlyValue
.usage_clause usage_clause
,usage_clauseleft
as
2821 usage_clause1left
,usage_clauseright
as usage_clause1right
))::rest671
)
2822 => let val result
=MlyValue
.data_description_clause((
2823 Cobol
.DATA_DESCRIPTION_CLAUSE_IS_USAGE_CLAUSE(usage_clause
,
2827 in (hojfelds_NT
87,(result
,usage_clause1left
,usage_clause1right
),
2829 |
(514,(_
,(MlyValue
.sign_clause sign_clause
,sign_clauseleft
as
2830 sign_clause1left
,sign_clauseright
as sign_clause1right
))::rest671
) =>
2831 let val result
=MlyValue
.data_description_clause((
2832 let val (lt
,sc
) = sign_clause
2833 in Cobol
.DATA_DESCRIPTION_CLAUSE_IS_SIGN_CLAUSE
2834 (lt
,sc
,sign_clauseleft
,sign_clauseright
)
2837 in (hojfelds_NT
87,(result
,sign_clause1left
,sign_clause1right
),rest671
2839 |
(515,(_
,(MlyValue
.occurs_clause occurs_clause
,occurs_clauseleft
as
2840 occurs_clause1left
,occurs_clauseright
as occurs_clause1right
))::
2841 rest671
) => let val result
=MlyValue
.data_description_clause((
2842 let val (tld
, adkp
, ibp
) = occurs_clause
2843 in Cobol
.DATA_DESCRIPTION_CLAUSE_IS_OCCURS_CLAUSE
2844 (tld
, adkp
, ibp
, occurs_clauseleft
, occurs_clauseright
)
2847 in (hojfelds_NT
87,(result
,occurs_clause1left
,occurs_clause1right
),
2849 |
(516,(_
,(MlyValue
.synchronized_clause synchronized_clause
,
2850 synchronized_clauseleft
as synchronized_clause1left
,
2851 synchronized_clauseright
as synchronized_clause1right
))::rest671
) =>
2852 let val result
=MlyValue
.data_description_clause((
2853 Cobol
.DATA_DESCRIPTION_CLAUSE_IS_SYNCHRONIZED_CLAUSE
2854 (synchronized_clause
,
2855 synchronized_clauseleft
,
2856 synchronized_clauseright
)
2858 in (hojfelds_NT
87,(result
,synchronized_clause1left
,
2859 synchronized_clause1right
),rest671
) end
2860 |
(517,(_
,(_
,justified_clauseleft
as justified_clause1left
,
2861 justified_clauseright
as justified_clause1right
))::rest671
) => let
2862 val result
=MlyValue
.data_description_clause((
2863 Cobol
.DATA_DESCRIPTION_CLAUSE_IS_JUSTIFIED_CLAUSE
2864 (justified_clauseleft
,
2865 justified_clauseright
)
2867 in (hojfelds_NT
87,(result
,justified_clause1left
,
2868 justified_clause1right
),rest671
) end
2869 |
(518,(_
,(_
,blank_when_zero_clauseleft
as blank_when_zero_clause1left
2870 ,blank_when_zero_clauseright
as blank_when_zero_clause1right
))::
2871 rest671
) => let val result
=MlyValue
.data_description_clause((
2872 Cobol
.DATA_DESCRIPTION_CLAUSE_IS_BLANK_WHEN_ZERO_CLAUSE
2873 (blank_when_zero_clauseleft
,
2874 blank_when_zero_clauseright
)
2876 in (hojfelds_NT
87,(result
,blank_when_zero_clause1left
,
2877 blank_when_zero_clause1right
),rest671
) end
2878 |
(519,(_
,(MlyValue
.value_clause value_clause
,value_clauseleft
as
2879 value_clause1left
,value_clauseright
as value_clause1right
))::rest671
)
2880 => let val result
=MlyValue
.data_description_clause((
2881 Cobol
.DATA_DESCRIPTION_CLAUSE_IS_VALUE_CLAUSE(value_clause
,
2885 in (hojfelds_NT
87,(result
,value_clause1left
,value_clause1right
),
2887 |
(520,(_
,(MlyValue
.picture_clause picture_clause
,picture_clauseleft
2888 as picture_clause1left
,picture_clauseright
as picture_clause1right
))
2889 ::rest671
) => let val result
=MlyValue
.data_description_clause((
2890 Cobol
.DATA_DESCRIPTION_CLAUSE_IS_PICTURE_CLAUSE(picture_clause
,
2892 picture_clauseright
)
2894 in (hojfelds_NT
87,(result
,picture_clause1left
,picture_clause1right
),
2896 |
(521,(_
,(MlyValue
.indicator_clause indicator_clause
,
2897 indicator_clauseleft
as indicator_clause1left
,indicator_clauseright
2898 as indicator_clause1right
))::rest671
) => let val result
=
2899 MlyValue
.data_description_clause((
2900 Cobol
.DATA_DESCRIPTION_CLAUSE_IS_INDICATOR_CLAUSE
2902 indicator_clauseleft
,
2903 indicator_clauseright
)
2905 in (hojfelds_NT
87,(result
,indicator_clause1left
,
2906 indicator_clause1right
),rest671
) end
2907 |
(522,(_
,(MlyValue
.INTEGER INTEGER
,_
,INTEGER1right
))::(_
,(_
,
2908 indicator1left
,_
))::rest671
) => let val result
=
2909 MlyValue
.indicator_clause((INTEGER
))
2910 in (hojfelds_NT
251,(result
,indicator1left
,INTEGER1right
),rest671
) end
2911 |
(523,(_
,(_
,INDICATOR1left
,INDICATOR1right
))::rest671
) => let val
2912 result
=MlyValue
.ntVOID(())
2913 in (hojfelds_NT
252,(result
,INDICATOR1left
,INDICATOR1right
),rest671
)
2915 |
(524,(_
,(_
,INDICATORS1left
,INDICATORS1right
))::rest671
) => let val
2916 result
=MlyValue
.ntVOID(())
2917 in (hojfelds_NT
252,(result
,INDICATORS1left
,INDICATORS1right
),rest671
)
2919 |
(525,(_
,(_
,INDIC1left
,INDIC1right
))::rest671
) => let val result
=
2921 in (hojfelds_NT
252,(result
,INDIC1left
,INDIC1right
),rest671
) end
2922 |
(526,(_
,(_
,_
,ZERO1right
))::_
::(_
,(_
,BLANK1left
,_
))::rest671
) => let
2923 val result
=MlyValue
.ntVOID(())
2924 in (hojfelds_NT
52,(result
,BLANK1left
,ZERO1right
),rest671
) end
2925 |
(527,(_
,(_
,_
,right1right
))::(_
,(_
,justified1left
,_
))::rest671
) =>
2926 let val result
=MlyValue
.ntVOID(())
2927 in (hojfelds_NT
281,(result
,justified1left
,right1right
),rest671
) end
2928 |
(528,(_
,(MlyValue
.fixed_length_tables_clause
2929 fixed_length_tables_clause
,fixed_length_tables_clause1left
,
2930 fixed_length_tables_clause1right
))::rest671
) => let val result
=
2931 MlyValue
.occurs_clause((fixed_length_tables_clause
))
2932 in (hojfelds_NT
329,(result
,fixed_length_tables_clause1left
,
2933 fixed_length_tables_clause1right
),rest671
) end
2934 |
(529,(_
,(MlyValue
.variable_length_tables_clause
2935 variable_length_tables_clause
,variable_length_tables_clause1left
,
2936 variable_length_tables_clause1right
))::rest671
) => let val result
=
2937 MlyValue
.occurs_clause((variable_length_tables_clause
))
2938 in (hojfelds_NT
329,(result
,variable_length_tables_clause1left
,
2939 variable_length_tables_clause1right
),rest671
) end
2940 |
(530,(_
,(MlyValue
.indexed_by_phrase indexed_by_phrase
,_
,
2941 indexed_by_phrase1right
))::(_
,(
2942 MlyValue
.ascending_descending_key_phrases
2943 ascending_descending_key_phrases
,_
,_
))::_
::(_
,(MlyValue
.INTEGER
2944 INTEGER
,_
,_
))::(_
,(_
,OCCURS1left
,_
))::rest671
) => let val result
=
2945 MlyValue
.fixed_length_tables_clause((
2946 (Cobol
.FIXED_LENGTH_TABLE(INTEGER
),
2947 ascending_descending_key_phrases
,
2950 in (hojfelds_NT
211,(result
,OCCURS1left
,indexed_by_phrase1right
),
2952 |
(531,(_
,(MlyValue
.ascending_descending_key_phrase
2953 ascending_descending_key_phrase
,_
,
2954 ascending_descending_key_phrase1right
))::(_
,(
2955 MlyValue
.ascending_descending_key_phrases
2956 ascending_descending_key_phrases
,ascending_descending_key_phrases1left
2957 ,_
))::rest671
) => let val result
=
2958 MlyValue
.ascending_descending_key_phrases((
2959 Cobol
.ASCENDING_DESCENDING_KEY_PHRASES
2960 (ascending_descending_key_phrases
,
2961 ascending_descending_key_phrase
)
2963 in (hojfelds_NT
45,(result
,ascending_descending_key_phrases1left
,
2964 ascending_descending_key_phrase1right
),rest671
) end
2965 |
(532,rest671
) => let val result
=
2966 MlyValue
.ascending_descending_key_phrases((
2967 Cobol
.NO_ASCENDING_DESCENDING_KEY_PHRASES
))
2968 in (hojfelds_NT
45,(result
,defaultPos
,defaultPos
),rest671
) end
2969 |
(533,(_
,(MlyValue
.data_names data_names
,_
,data_names1right
))::_
::_
::
2970 (_
,(MlyValue
.ascending_descending ascending_descending
,
2971 ascending_descending1left
,_
))::rest671
) => let val result
=
2972 MlyValue
.ascending_descending_key_phrase((
2973 Cobol
.ASCENDING_DESCENDING_KEY_PHRASE(ascending_descending
,
2976 in (hojfelds_NT
44,(result
,ascending_descending1left
,data_names1right
)
2978 |
(534,(_
,(_
,ASCENDING1left
,ASCENDING1right
))::rest671
) => let val
2979 result
=MlyValue
.ascending_descending((Cobol
.ASCENDING
))
2980 in (hojfelds_NT
43,(result
,ASCENDING1left
,ASCENDING1right
),rest671
)
2982 |
(535,(_
,(_
,DESCENDING1left
,DESCENDING1right
))::rest671
) => let val
2983 result
=MlyValue
.ascending_descending((Cobol
.DESCENDING
))
2984 in (hojfelds_NT
43,(result
,DESCENDING1left
,DESCENDING1right
),rest671
)
2986 |
(536,(_
,(MlyValue
.index_names index_names
,_
,index_names1right
))::_
::
2987 (_
,(_
,INDEXED1left
,_
))::rest671
) => let val result
=
2988 MlyValue
.indexed_by_phrase((Cobol
.INDEXED_BY_PHRASE(index_names
)))
2989 in (hojfelds_NT
248,(result
,INDEXED1left
,index_names1right
),rest671
)
2991 |
(537,rest671
) => let val result
=MlyValue
.indexed_by_phrase((
2992 Cobol
.NO_INDEXED_BY_PHRASE
))
2993 in (hojfelds_NT
248,(result
,defaultPos
,defaultPos
),rest671
) end
2994 |
(538,(_
,(MlyValue
.indexed_by_phrase indexed_by_phrase
,_
,
2995 indexed_by_phrase1right
))::(_
,(
2996 MlyValue
.ascending_descending_key_phrases
2997 ascending_descending_key_phrases
,_
,_
))::(_
,(MlyValue
.data_name
2998 data_name
,_
,_
))::_
::_
::_
::(_
,(MlyValue
.INTEGER INTEGER2
,_
,_
))::_
::(_
,(
2999 MlyValue
.INTEGER INTEGER1
,_
,_
))::(_
,(_
,OCCURS1left
,_
))::rest671
) =>
3000 let val result
=MlyValue
.variable_length_tables_clause((
3001 (Cobol
.VARIABLE_LENGTH_TABLE(INTEGER1
,INTEGER2
,data_name
),
3002 ascending_descending_key_phrases
,
3005 in (hojfelds_NT
522,(result
,OCCURS1left
,indexed_by_phrase1right
),
3007 |
(539,(_
,(MlyValue
.character_string character_string
,_
,
3008 character_string1right
))::_
::(_
,(_
,picture1left
,_
))::rest671
) => let
3009 val result
=MlyValue
.picture_clause((character_string
))
3010 in (hojfelds_NT
363,(result
,picture1left
,character_string1right
),
3012 |
(540,(_
,(MlyValue
.separate_character separate_character
,_
,
3013 separate_character1right
))::(_
,(MlyValue
.leading_trailing
3014 leading_trailing
,_
,_
))::(_
,(_
,sign_is_opt1left
,_
))::rest671
) => let
3015 val result
=MlyValue
.sign_clause((
3016 (leading_trailing
, separate_character
)))
3017 in (hojfelds_NT
436,(result
,sign_is_opt1left
,separate_character1right
)
3019 |
(541,(_
,(_
,LEADING1left
,LEADING1right
))::rest671
) => let val result
=
3020 MlyValue
.leading_trailing((Cobol
.LEADING_TRAILING_IS_LEADING
))
3021 in (hojfelds_NT
287,(result
,LEADING1left
,LEADING1right
),rest671
) end
3022 |
(542,(_
,(_
,TRAILING1left
,TRAILING1right
))::rest671
) => let val
3023 result
=MlyValue
.leading_trailing((Cobol
.LEADING_TRAILING_IS_TRAILING
))
3024 in (hojfelds_NT
287,(result
,TRAILING1left
,TRAILING1right
),rest671
) end
3025 |
(543,(_
,(MlyValue
.left_right left_right
,_
,left_right1right
))::(_
,(_
,
3026 synchronized1left
,_
))::rest671
) => let val result
=
3027 MlyValue
.synchronized_clause((left_right
))
3028 in (hojfelds_NT
475,(result
,synchronized1left
,left_right1right
),
3030 |
(544,(_
,(_
,LEFT1left
,LEFT1right
))::rest671
) => let val result
=
3031 MlyValue
.left_right((Cobol
.LEFT
))
3032 in (hojfelds_NT
289,(result
,LEFT1left
,LEFT1right
),rest671
) end
3033 |
(545,(_
,(_
,RIGHT1left
,RIGHT1right
))::rest671
) => let val result
=
3034 MlyValue
.left_right((Cobol
.RIGHT
))
3035 in (hojfelds_NT
289,(result
,RIGHT1left
,RIGHT1right
),rest671
) end
3036 |
(546,(_
,(MlyValue
.usage_specifier usage_specifier
,_
,
3037 usage_specifier1right
))::(_
,(_
,usage_is1left
,_
))::rest671
) => let val
3038 result
=MlyValue
.usage_clause((usage_specifier
))
3039 in (hojfelds_NT
507,(result
,usage_is1left
,usage_specifier1right
),
3041 |
(547,(_
,(_
,DISPLAY1left
,DISPLAY1right
))::rest671
) => let val result
=
3042 MlyValue
.usage_specifier((Cobol
.USAGE_IS_DISPLAY
))
3043 in (hojfelds_NT
509,(result
,DISPLAY1left
,DISPLAY1right
),rest671
) end
3044 |
(548,(_
,(_
,INDEX1left
,INDEX1right
))::rest671
) => let val result
=
3045 MlyValue
.usage_specifier((Cobol
.USAGE_IS_INDEX
))
3046 in (hojfelds_NT
509,(result
,INDEX1left
,INDEX1right
),rest671
) end
3047 |
(549,(_
,(_
,COMPUTATIONAL31left
,COMPUTATIONAL31right
))::rest671
) =>
3048 let val result
=MlyValue
.usage_specifier((Cobol
.USAGE_IS_COMP3
))
3049 in (hojfelds_NT
509,(result
,COMPUTATIONAL31left
,COMPUTATIONAL31right
),
3051 |
(550,(_
,(_
,COMP31left
,COMP31right
))::rest671
) => let val result
=
3052 MlyValue
.usage_specifier((Cobol
.USAGE_IS_COMP3
))
3053 in (hojfelds_NT
509,(result
,COMP31left
,COMP31right
),rest671
) end
3054 |
(551,(_
,(_
,COMPUTATIONAL41left
,COMPUTATIONAL41right
))::rest671
) =>
3055 let val result
=MlyValue
.usage_specifier((Cobol
.USAGE_IS_COMP4
))
3056 in (hojfelds_NT
509,(result
,COMPUTATIONAL41left
,COMPUTATIONAL41right
),
3058 |
(552,(_
,(_
,COMP41left
,COMP41right
))::rest671
) => let val result
=
3059 MlyValue
.usage_specifier((Cobol
.USAGE_IS_COMP4
))
3060 in (hojfelds_NT
509,(result
,COMP41left
,COMP41right
),rest671
) end
3061 |
(553,(_
,(_
,COMPUTATIONAL1left
,COMPUTATIONAL1right
))::rest671
) =>
3062 let val result
=MlyValue
.usage_specifier((Cobol
.USAGE_IS_COMP
))
3063 in (hojfelds_NT
509,(result
,COMPUTATIONAL1left
,COMPUTATIONAL1right
),
3065 |
(554,(_
,(_
,COMP1left
,COMP1right
))::rest671
) => let val result
=
3066 MlyValue
.usage_specifier((Cobol
.USAGE_IS_COMP
))
3067 in (hojfelds_NT
509,(result
,COMP1left
,COMP1right
),rest671
) end
3068 |
(555,(_
,(MlyValue
.literal_ranges literal_ranges
,_
,
3069 literal_ranges1right
))::(_
,(_
,value_is1left
,_
))::rest671
) => let val
3070 result
=MlyValue
.value_clause((literal_ranges
))
3071 in (hojfelds_NT
516,(result
,value_is1left
,literal_ranges1right
),
3073 |
(556,(_
,(_
,_
,is1right
))::(_
,(_
,VALUE1left
,_
))::rest671
) => let val
3074 result
=MlyValue
.ntVOID(())
3075 in (hojfelds_NT
517,(result
,VALUE1left
,is1right
),rest671
) end
3076 |
(557,(_
,(_
,_
,are1right
))::(_
,(_
,VALUES1left
,_
))::rest671
) => let
3077 val result
=MlyValue
.ntVOID(())
3078 in (hojfelds_NT
517,(result
,VALUES1left
,are1right
),rest671
) end
3079 |
(558,(_
,(_
,_
,PERIODright
as PERIOD1right
))::(_
,(
3080 MlyValue
.through_data_name through_data_name
,_
,_
))::(_
,(
3081 MlyValue
.data_name data_name2
,_
,_
))::_
::(_
,(MlyValue
.data_name
3082 data_name1
,_
,_
))::(_
,(MlyValue
.level_number level_number
,
3083 level_numberleft
as level_number1left
,_
))::rest671
) => let val result
=
3084 MlyValue
.renames_clause((
3085 Cobol
.RENAMES_CLAUSE(level_number
,
3092 in (hojfelds_NT
401,(result
,level_number1left
,PERIOD1right
),rest671
)
3094 |
(559,(_
,(MlyValue
.data_name data_name
,_
,data_name1right
))::(_
,(_
,
3095 through1left
,_
))::rest671
) => let val result
=
3096 MlyValue
.through_data_name((Cobol
.THROUGH_DATA_NAME(data_name
)))
3097 in (hojfelds_NT
492,(result
,through1left
,data_name1right
),rest671
) end
3098 |
(560,rest671
) => let val result
=MlyValue
.through_data_name((
3099 Cobol
.NOT_THROUGH_DATA_NAME
))
3100 in (hojfelds_NT
492,(result
,defaultPos
,defaultPos
),rest671
) end
3101 |
(561,(_
,(MlyValue
.record_description_entries_opt
3102 record_description_entries_opt
,_
,record_description_entries_optright
3103 as record_description_entries_opt1right
))::_
::_
::(_
,(_
,
3104 WORKINGSTORAGEleft
as WORKINGSTORAGE1left
,_
))::rest671
) => let val
3105 result
=MlyValue
.working_storage_section((
3106 Cobol
.WORKINGSTORAGE_SECTION(record_description_entries_opt
,
3107 WORKINGSTORAGEleft
,record_description_entries_optright
)
3109 in (hojfelds_NT
529,(result
,WORKINGSTORAGE1left
,
3110 record_description_entries_opt1right
),rest671
) end
3111 |
(562,rest671
) => let val result
=MlyValue
.working_storage_section((
3112 Cobol
.NO_WORKINGSTORAGE_SECTION
))
3113 in (hojfelds_NT
529,(result
,defaultPos
,defaultPos
),rest671
) end
3114 |
(563,(_
,(MlyValue
.record_description_entries_opt
3115 record_description_entries_opt
,_
,record_description_entries_optright
3116 as record_description_entries_opt1right
))::_
::_
::(_
,(_
,LINKAGEleft
3117 as LINKAGE1left
,_
))::rest671
) => let val result
=
3118 MlyValue
.linkage_section((
3119 Cobol
.LINKAGE_SECTION(record_description_entries_opt
,
3120 LINKAGEleft
,record_description_entries_optright
)
3122 in (hojfelds_NT
297,(result
,LINKAGE1left
,
3123 record_description_entries_opt1right
),rest671
) end
3124 |
(564,rest671
) => let val result
=MlyValue
.linkage_section((
3125 Cobol
.NO_LINKAGE_SECTION
))
3126 in (hojfelds_NT
297,(result
,defaultPos
,defaultPos
),rest671
) end
3127 |
(565,(_
,(MlyValue
.sections sections
,_
,sectionsright
as
3128 sections1right
))::(_
,(MlyValue
.declaratives_section
3129 declaratives_section
,_
,_
))::_
::(_
,(MlyValue
.using_clause using_clause
,
3130 _
,_
))::_
::(_
,(_
,PROCEDUREleft
as PROCEDURE1left
,_
))::rest671
) => let
3131 val result
=MlyValue
.procedure_division((
3132 Cobol
.PROCEDURE_DIVISION_FORMAT_1_DECLARATIVES(using_clause
,
3133 declaratives_section
,
3138 in (hojfelds_NT
367,(result
,PROCEDURE1left
,sections1right
),rest671
)
3140 |
(566,(_
,(MlyValue
.sections sections
,_
,sectionsright
as
3141 sections1right
))::_
::(_
,(MlyValue
.using_clause using_clause
,_
,_
))::_
::
3142 (_
,(_
,PROCEDUREleft
as PROCEDURE1left
,_
))::rest671
) => let val result
=
3143 MlyValue
.procedure_division((
3144 Cobol
.PROCEDURE_DIVISION_FORMAT_1_NO_DECLARATIVES(using_clause
,
3149 in (hojfelds_NT
367,(result
,PROCEDURE1left
,sections1right
),rest671
)
3151 |
(567,(_
,(MlyValue
.paragraphs paragraphs
,_
,paragraphsright
as
3152 paragraphs1right
))::_
::(_
,(MlyValue
.using_clause using_clause
,_
,_
))::_
3153 ::(_
,(_
,PROCEDUREleft
as PROCEDURE1left
,_
))::rest671
) => let val
3154 result
=MlyValue
.procedure_division((
3155 Cobol
.PROCEDURE_DIVISION_FORMAT_2(using_clause
,
3160 in (hojfelds_NT
367,(result
,PROCEDURE1left
,paragraphs1right
),rest671
)
3162 |
(568,rest671
) => let val result
=MlyValue
.procedure_division((
3163 Cobol
.EMPTY_PROCEDURE_DIVISION
))
3164 in (hojfelds_NT
367,(result
,defaultPos
,defaultPos
),rest671
) end
3165 |
(569,(_
,(_
,_
,data_names1right
))::(_
,(_
,USING1left
,_
))::rest671
) =>
3166 let val result
=MlyValue
.using_clause(())
3167 in (hojfelds_NT
512,(result
,USING1left
,data_names1right
),rest671
) end
3168 |
(570,rest671
) => let val result
=MlyValue
.using_clause(())
3169 in (hojfelds_NT
512,(result
,defaultPos
,defaultPos
),rest671
) end
3170 |
(571,(_
,(_
,_
,PERIOD2right
))::_
::_
::_
::_
::(_
,(_
,DECLARATIVES1left
,_
))
3171 ::rest671
) => let val result
=MlyValue
.declaratives_section(())
3172 in (hojfelds_NT
118,(result
,DECLARATIVES1left
,PERIOD2right
),rest671
)
3174 |
(572,(_
,(_
,_
,PERIOD2right
))::_
::_
::_
::_
::(_
,(_
,section_name1left
,_
))
3175 ::rest671
) => let val result
=MlyValue
.ntVOID(())
3176 in (hojfelds_NT
119,(result
,section_name1left
,PERIOD2right
),rest671
)
3178 |
(573,(_
,(_
,_
,declaratives_sections1right
))::_
::_
::_
::_
::_
::(_
,(_
,
3179 section_name1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
3180 in (hojfelds_NT
119,(result
,section_name1left
,
3181 declaratives_sections1right
),rest671
) end
3182 |
(574,(_
,(_
,_
,declaratives_paragraphs1right
))::_
::_
::_
::_
::_
::(_
,(_
,
3183 section_name1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
3184 in (hojfelds_NT
119,(result
,section_name1left
,
3185 declaratives_paragraphs1right
),rest671
) end
3186 |
(575,(_
,(_
,_
,declaratives_paragraphs1right
))::_
::_
::(_
,(_
,
3187 paragraph_name1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(()
3189 in (hojfelds_NT
117,(result
,paragraph_name1left
,
3190 declaratives_paragraphs1right
),rest671
) end
3191 |
(576,(_
,(_
,_
,declaratives_sections1right
))::_
::_
::(_
,(_
,
3192 paragraph_name1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(()
3194 in (hojfelds_NT
117,(result
,paragraph_name1left
,
3195 declaratives_sections1right
),rest671
) end
3196 |
(577,(_
,(_
,_
,sentences1right
))::_
::(_
,(_
,paragraph_name1left
,_
))::
3197 rest671
) => let val result
=MlyValue
.ntVOID(())
3198 in (hojfelds_NT
117,(result
,paragraph_name1left
,sentences1right
),
3200 |
(578,(_
,(_
,_
,PERIOD1right
))::(_
,(MlyValue
.segment_number_opt
3201 segment_number_opt
,_
,_
))::_
::(_
,(MlyValue
.section_name section_name
,
3202 section_name1left
,_
))::rest671
) => let val result
=MlyValue
.sections((
3203 Cobol
.NO_BODY_SECTION(section_name
,segment_number_opt
)))
3204 in (hojfelds_NT
424,(result
,section_name1left
,PERIOD1right
),rest671
)
3206 |
(579,(_
,(MlyValue
.sections sections
,_
,sections1right
))::_
::(_
,(
3207 MlyValue
.segment_number_opt segment_number_opt
,_
,_
))::_
::(_
,(
3208 MlyValue
.section_name section_name
,section_name1left
,_
))::rest671
) =>
3209 let val result
=MlyValue
.sections((
3210 Cobol
.NO_BODY_SECTION_FOLLOWED_BY_SECTION(section_name
,
3214 in (hojfelds_NT
424,(result
,section_name1left
,sections1right
),rest671
)
3216 |
(580,(_
,(MlyValue
.paragraphs_and_sections paragraphs_and_sections
,_
,
3217 paragraphs_and_sections1right
))::_
::(_
,(MlyValue
.segment_number_opt
3218 segment_number_opt
,_
,_
))::_
::(_
,(MlyValue
.section_name section_name
,
3219 section_name1left
,_
))::rest671
) => let val result
=MlyValue
.sections((
3220 Cobol
.SECTION(section_name
,
3222 paragraphs_and_sections
)
3224 in (hojfelds_NT
424,(result
,section_name1left
,
3225 paragraphs_and_sections1right
),rest671
) end
3226 |
(581,(_
,(MlyValue
.paragraphs_and_sections paragraphs_and_sections
,_
,
3227 paragraphs_and_sections1right
))::(_
,(MlyValue
.paragraph paragraph
,
3228 paragraph1left
,_
))::rest671
) => let val result
=
3229 MlyValue
.paragraphs_and_sections((
3230 Cobol
.SEVERAL_PARAGRAPHS_AND_SECTIONS(paragraph
,
3231 paragraphs_and_sections
)
3233 in (hojfelds_NT
359,(result
,paragraph1left
,
3234 paragraphs_and_sections1right
),rest671
) end
3235 |
(582,(_
,(MlyValue
.sections sections
,_
,sections1right
))::(_
,(
3236 MlyValue
.paragraph paragraph
,paragraph1left
,_
))::rest671
) => let val
3237 result
=MlyValue
.paragraphs_and_sections((
3238 Cobol
.SINGLE_PARAGRAPH_AND_SECTIONS(paragraph
,sections
)))
3239 in (hojfelds_NT
359,(result
,paragraph1left
,sections1right
),rest671
)
3241 |
(583,(_
,(MlyValue
.paragraph paragraph
,paragraph1left
,paragraph1right
3242 ))::rest671
) => let val result
=MlyValue
.paragraphs_and_sections((
3243 Cobol
.SINGLE_PARAGRAPH(paragraph
)))
3244 in (hojfelds_NT
359,(result
,paragraph1left
,paragraph1right
),rest671
)
3246 |
(584,(_
,(MlyValue
.paragraph paragraph
,_
,paragraph1right
))::(_
,(
3247 MlyValue
.paragraphs paragraphs
,paragraphs1left
,_
))::rest671
) => let
3248 val result
=MlyValue
.paragraphs((
3249 Cobol
.SEVERAL_PARAGRAPHS(paragraphs
,paragraph
)))
3250 in (hojfelds_NT
358,(result
,paragraphs1left
,paragraph1right
),rest671
)
3252 |
(585,(_
,(MlyValue
.paragraph paragraph
,paragraph1left
,paragraph1right
3253 ))::rest671
) => let val result
=MlyValue
.paragraphs((
3254 Cobol
.ONE_PARAGRAPH(paragraph
)))
3255 in (hojfelds_NT
358,(result
,paragraph1left
,paragraph1right
),rest671
)
3257 |
(586,(_
,(MlyValue
.sentences sentences
,_
,sentences1right
))::_
::(_
,(
3258 MlyValue
.paragraph_name paragraph_name
,paragraph_name1left
,_
))::
3259 rest671
) => let val result
=MlyValue
.paragraph((
3260 Cobol
.PARAGRAPH(paragraph_name
,sentences
)))
3261 in (hojfelds_NT
356,(result
,paragraph_name1left
,sentences1right
),
3263 |
(587,(_
,(MlyValue
.sentence sentence
,_
,sentence1right
))::(_
,(
3264 MlyValue
.sentences sentences
,sentences1left
,_
))::rest671
) => let val
3265 result
=MlyValue
.sentences((Cobol
.SENTENCES(sentences
,sentence
)))
3266 in (hojfelds_NT
430,(result
,sentences1left
,sentence1right
),rest671
)
3268 |
(588,rest671
) => let val result
=MlyValue
.sentences((
3269 Cobol
.NO_SENTENCES
))
3270 in (hojfelds_NT
430,(result
,defaultPos
,defaultPos
),rest671
) end
3271 |
(589,(_
,(_
,_
,PERIOD1right
))::(_
,(MlyValue
.statements statements
,
3272 statements1left
,_
))::rest671
) => let val result
=MlyValue
.sentence((
3273 Cobol
.SENTENCE(statements
)))
3274 in (hojfelds_NT
429,(result
,statements1left
,PERIOD1right
),rest671
) end
3275 |
(590,(_
,(MlyValue
.statement statement
,_
,statement1right
))::(_
,(
3276 MlyValue
.statements statements
,statements1left
,_
))::rest671
) => let
3277 val result
=MlyValue
.statements((
3278 Cobol
.SEVERAL_STATEMENTS(statements
,statement
)))
3279 in (hojfelds_NT
459,(result
,statements1left
,statement1right
),rest671
)
3281 |
(591,(_
,(MlyValue
.statement statement
,statement1left
,statement1right
3282 ))::rest671
) => let val result
=MlyValue
.statements((
3283 Cobol
.ONE_STATEMENT(statement
)))
3284 in (hojfelds_NT
459,(result
,statement1left
,statement1right
),rest671
)
3286 |
(592,(_
,(MlyValue
.statements statements
,statements1left
,
3287 statements1right
))::rest671
) => let val result
=
3288 MlyValue
.imperative_statement((statements
))
3289 in (hojfelds_NT
241,(result
,statements1left
,statements1right
),rest671
)
3291 |
(593,(_
,(MlyValue
.INTEGER INTEGER
,INTEGERleft
as INTEGER1left
,
3292 INTEGERright
as INTEGER1right
))::rest671
) => let val result
=
3293 MlyValue
.arithmetic_expression((
3294 Cobol
.ARITHMETIC_EXPRESSION_IS_INTEGER(INTEGER
,INTEGERleft
,INTEGERright
)
3296 in (hojfelds_NT
476,(result
,INTEGER1left
,INTEGER1right
),rest671
) end
3297 |
(594,(_
,(MlyValue
.DECIMALNUMBER DECIMALNUMBER
,DECIMALNUMBERleft
as
3298 DECIMALNUMBER1left
,DECIMALNUMBERright
as DECIMALNUMBER1right
))::
3299 rest671
) => let val result
=MlyValue
.arithmetic_expression((
3300 Cobol
.ARITHMETIC_EXPRESSION_IS_DECIMALNUMBER
3301 (DECIMALNUMBER
,DECIMALNUMBERleft
,DECIMALNUMBERright
)
3303 in (hojfelds_NT
476,(result
,DECIMALNUMBER1left
,DECIMALNUMBER1right
),
3305 |
(595,(_
,(MlyValue
.NONNUMERICLITERAL NONNUMERICLITERAL
,
3306 NONNUMERICLITERALleft
as NONNUMERICLITERAL1left
,NONNUMERICLITERALright
3307 as NONNUMERICLITERAL1right
))::rest671
) => let val result
=
3308 MlyValue
.arithmetic_expression((
3309 Cobol
.ARITHMETIC_EXPRESSION_IS_NONNUMERICLITERAL(NONNUMERICLITERAL
,
3310 NONNUMERICLITERALleft
,
3311 NONNUMERICLITERALright
)
3313 in (hojfelds_NT
476,(result
,NONNUMERICLITERAL1left
,
3314 NONNUMERICLITERAL1right
),rest671
) end
3315 |
(596,(_
,(MlyValue
.BOOLEANLITERAL BOOLEANLITERAL
,BOOLEANLITERALleft
3316 as BOOLEANLITERAL1left
,BOOLEANLITERALright
as BOOLEANLITERAL1right
))
3317 ::rest671
) => let val result
=MlyValue
.arithmetic_expression((
3318 Cobol
.ARITHMETIC_EXPRESSION_IS_BOOLEANLITERAL
3319 (BOOLEANLITERAL
,BOOLEANLITERALleft
,BOOLEANLITERALright
)
3321 in (hojfelds_NT
476,(result
,BOOLEANLITERAL1left
,BOOLEANLITERAL1right
),
3323 |
(597,(_
,(MlyValue
.figurative_constant figurative_constant
,
3324 figurative_constantleft
as figurative_constant1left
,
3325 figurative_constantright
as figurative_constant1right
))::rest671
) =>
3326 let val result
=MlyValue
.arithmetic_expression((
3327 Cobol
.ARITHMETIC_EXPRESSION_IS_FIGURATIVE_CONSTANT
3328 (figurative_constant
,figurative_constantleft
,figurative_constantright
)
3330 in (hojfelds_NT
476,(result
,figurative_constant1left
,
3331 figurative_constant1right
),rest671
) end
3332 |
(598,(_
,(MlyValue
.identifier identifier
,identifier1left
,
3333 identifier1right
))::rest671
) => let val result
=
3334 MlyValue
.arithmetic_expression((
3335 Cobol
.ARITHMETIC_EXPRESSION_IS_IDENTIFIER(identifier
)))
3336 in (hojfelds_NT
476,(result
,identifier1left
,identifier1right
),rest671
)
3338 |
(599,(_
,(MlyValue
.arithmetic_expression arithmetic_expression
,_
,
3339 arithmetic_expression1right
))::(_
,(_
,PLUSSYMBOL1left
,_
))::rest671
) =>
3340 let val result
=MlyValue
.arithmetic_expression((
3341 Cobol
.ARITHMETIC_EXPRESSION_IS_PLUS_SIGN(arithmetic_expression
)))
3342 in (hojfelds_NT
476,(result
,PLUSSYMBOL1left
,
3343 arithmetic_expression1right
),rest671
) end
3344 |
(600,(_
,(MlyValue
.arithmetic_expression arithmetic_expression
,_
,
3345 arithmetic_expression1right
))::(_
,(_
,MINUSSYMBOL1left
,_
))::rest671
)
3346 => let val result
=MlyValue
.arithmetic_expression((
3347 Cobol
.ARITHMETIC_EXPRESSION_IS_MINUS_SIGN(arithmetic_expression
)))
3348 in (hojfelds_NT
476,(result
,MINUSSYMBOL1left
,
3349 arithmetic_expression1right
),rest671
) end
3350 |
(601,(_
,(MlyValue
.arithmetic_expression arithmetic_expression2
,_
,
3351 arithmetic_expression2right
))::_
::(_
,(MlyValue
.arithmetic_expression
3352 arithmetic_expression1
,arithmetic_expression1left
,_
))::rest671
) =>
3353 let val result
=MlyValue
.arithmetic_expression((
3354 Cobol
.ARITHMETIC_EXPRESSION_IS_EXPONENTIATION
3355 (arithmetic_expression1
,arithmetic_expression2
)
3357 in (hojfelds_NT
476,(result
,arithmetic_expression1left
,
3358 arithmetic_expression2right
),rest671
) end
3359 |
(602,(_
,(MlyValue
.arithmetic_expression arithmetic_expression2
,_
,
3360 arithmetic_expression2right
))::_
::(_
,(MlyValue
.arithmetic_expression
3361 arithmetic_expression1
,arithmetic_expression1left
,_
))::rest671
) =>
3362 let val result
=MlyValue
.arithmetic_expression((
3363 Cobol
.ARITHMETIC_EXPRESSION_IS_MULTIPLY
3364 (arithmetic_expression1
,arithmetic_expression2
)
3366 in (hojfelds_NT
476,(result
,arithmetic_expression1left
,
3367 arithmetic_expression2right
),rest671
) end
3368 |
(603,(_
,(MlyValue
.arithmetic_expression arithmetic_expression2
,_
,
3369 arithmetic_expression2right
))::_
::(_
,(MlyValue
.arithmetic_expression
3370 arithmetic_expression1
,arithmetic_expression1left
,_
))::rest671
) =>
3371 let val result
=MlyValue
.arithmetic_expression((
3372 Cobol
.ARITHMETIC_EXPRESSION_IS_DIVIDE
3373 (arithmetic_expression1
,arithmetic_expression2
)
3375 in (hojfelds_NT
476,(result
,arithmetic_expression1left
,
3376 arithmetic_expression2right
),rest671
) end
3377 |
(604,(_
,(MlyValue
.arithmetic_expression arithmetic_expression2
,_
,
3378 arithmetic_expression2right
))::_
::(_
,(MlyValue
.arithmetic_expression
3379 arithmetic_expression1
,arithmetic_expression1left
,_
))::rest671
) =>
3380 let val result
=MlyValue
.arithmetic_expression((
3381 Cobol
.ARITHMETIC_EXPRESSION_IS_ADD
3382 (arithmetic_expression1
,arithmetic_expression2
)
3384 in (hojfelds_NT
476,(result
,arithmetic_expression1left
,
3385 arithmetic_expression2right
),rest671
) end
3386 |
(605,(_
,(MlyValue
.arithmetic_expression arithmetic_expression2
,_
,
3387 arithmetic_expression2right
))::_
::(_
,(MlyValue
.arithmetic_expression
3388 arithmetic_expression1
,arithmetic_expression1left
,_
))::rest671
) =>
3389 let val result
=MlyValue
.arithmetic_expression((
3390 Cobol
.ARITHMETIC_EXPRESSION_IS_SUBTRACT
3391 (arithmetic_expression1
,arithmetic_expression2
)
3393 in (hojfelds_NT
476,(result
,arithmetic_expression1left
,
3394 arithmetic_expression2right
),rest671
) end
3395 |
(606,(_
,(_
,_
,RPAR1right
))::(_
,(MlyValue
.arithmetic_expression
3396 arithmetic_expression
,_
,_
))::(_
,(_
,LPAR1left
,_
))::rest671
) => let val
3397 result
=MlyValue
.arithmetic_expression((arithmetic_expression
))
3398 in (hojfelds_NT
476,(result
,LPAR1left
,RPAR1right
),rest671
) end
3399 |
(607,(_
,(MlyValue
.expression expression
,expression1left
,
3400 expression1right
))::rest671
) => raise Hojfeld
"607"
3403 MlyValue
.conditional_expression((convertCE(expression
)))
3404 in (hojfelds_NT
477,(result
,expression1left
,expression1right
),rest671
)
3407 |
(608,(_
,(MlyValue
.arithmetic_expression arithmetic_expression
,
3408 arithmetic_expressionleft
as arithmetic_expression1left
,
3409 arithmetic_expressionright
as arithmetic_expression1right
))::rest671
)
3410 => let val result
=MlyValue
.expression((
3411 CE_AE(arithmetic_expression
,
3412 arithmetic_expressionleft
,
3413 arithmetic_expressionright
)
3415 in (hojfelds_NT
42,(result
,arithmetic_expression1left
,
3416 arithmetic_expression1right
),rest671
) end
3417 |
(609,(_
,(MlyValue
.arithmetic_expression arithmetic_expression
,_
,
3418 arithmetic_expressionright
as arithmetic_expression1right
))::(_
,(
3419 MlyValue
.relational_operator relational_operator
,
3420 relational_operatorleft
as relational_operator1left
,_
))::rest671
) =>
3421 let val result
=MlyValue
.expression((
3422 CE_SINGLE_REL(relational_operator
,
3423 arithmetic_expression
,
3424 relational_operatorleft
,
3425 arithmetic_expressionright
)
3427 in (hojfelds_NT
42,(result
,relational_operator1left
,
3428 arithmetic_expression1right
),rest671
) end
3429 |
(610,(_
,(MlyValue
.arithmetic_expression arithmetic_expression2
,_
,
3430 arithmetic_expression2right
))::(_
,(MlyValue
.relational_operator
3431 relational_operator
,_
,_
))::(_
,(MlyValue
.is_not is_not
,_
,_
))::(_
,(
3432 MlyValue
.arithmetic_expression arithmetic_expression1
,
3433 arithmetic_expression1left
,_
))::rest671
) => let val result
=
3434 MlyValue
.expression((
3435 CE_REL(arithmetic_expression1
,
3437 relational_operator
,
3438 arithmetic_expression2
,
3439 arithmetic_expression1left
,
3440 arithmetic_expression2right
)
3442 in (hojfelds_NT
42,(result
,arithmetic_expression1left
,
3443 arithmetic_expression2right
),rest671
) end
3444 |
(611,(_
,(MlyValue
.data_class data_class
,_
,data_class1right
))::(_
,(
3445 MlyValue
.is_not is_not
,_
,_
))::(_
,(MlyValue
.arithmetic_expression
3446 arithmetic_expression
,arithmetic_expression1left
,_
))::rest671
) => let
3447 val result
=MlyValue
.expression((
3448 CE_DC(arithmetic_expression
,is_not
,data_class
)))
3449 in (hojfelds_NT
42,(result
,arithmetic_expression1left
,data_class1right
3451 |
(612,(_
,(MlyValue
.sign_specification sign_specification
,_
,
3452 sign_specification1right
))::(_
,(MlyValue
.is_not is_not
,_
,_
))::(_
,(
3453 MlyValue
.arithmetic_expression arithmetic_expression
,
3454 arithmetic_expression1left
,_
))::rest671
) => let val result
=
3455 MlyValue
.expression((
3456 CE_SIGN(arithmetic_expression
,is_not
,sign_specification
)))
3457 in (hojfelds_NT
42,(result
,arithmetic_expression1left
,
3458 sign_specification1right
),rest671
) end
3459 |
(613,(_
,(_
,TRUEleft
as TRUE1left
,TRUEright
as TRUE1right
))::rest671
)
3460 => let val result
=MlyValue
.expression((CE_TRUE(TRUEleft
,TRUEright
)))
3461 in (hojfelds_NT
42,(result
,TRUE1left
,TRUE1right
),rest671
) end
3462 |
(614,(_
,(_
,FALSEleft
as FALSE1left
,FALSEright
as FALSE1right
))::
3463 rest671
) => let val result
=MlyValue
.expression((
3464 CE_FALSE(FALSEleft
,FALSEright
)))
3465 in (hojfelds_NT
42,(result
,FALSE1left
,FALSE1right
),rest671
) end
3466 |
(615,(_
,(_
,environment_name_2left
as environment_name_21left
,
3467 environment_name_2right
as environment_name_21right
))::rest671
) =>
3468 let val result
=MlyValue
.expression((
3469 CE_SWITCH(environment_name_2left
,environment_name_2right
)))
3470 in (hojfelds_NT
42,(result
,environment_name_21left
,
3471 environment_name_21right
),rest671
) end
3472 |
(616,(_
,(MlyValue
.expression expression
,_
,expression1right
))::(_
,(_
,
3473 NOT1left
,_
))::rest671
) => let val result
=MlyValue
.expression((
3474 CE_NOT(expression
)))
3475 in (hojfelds_NT
42,(result
,NOT1left
,expression1right
),rest671
) end
3476 |
(617,(_
,(MlyValue
.expression expression2
,_
,expression2right
))::_
::(_
3477 ,(MlyValue
.expression expression1
,expression1left
,_
))::rest671
) =>
3478 let val result
=MlyValue
.expression((CE_AND(expression1
,expression2
)))
3479 in (hojfelds_NT
42,(result
,expression1left
,expression2right
),rest671
)
3481 |
(618,(_
,(MlyValue
.expression expression2
,_
,expression2right
))::_
::(_
3482 ,(MlyValue
.expression expression1
,expression1left
,_
))::rest671
) =>
3483 let val result
=MlyValue
.expression((CE_OR(expression1
,expression2
)))
3484 in (hojfelds_NT
42,(result
,expression1left
,expression2right
),rest671
)
3486 |
(619,(_
,(_
,_
,RPAR1right
))::(_
,(MlyValue
.expression expression
,_
,_
))
3487 ::(_
,(_
,LPAR1left
,_
))::rest671
) => let val result
=MlyValue
.expression(
3489 in (hojfelds_NT
42,(result
,LPAR1left
,RPAR1right
),rest671
) end
3490 |
(620,(_
,(_
,NUMERIC1left
,NUMERIC1right
))::rest671
) => let val result
=
3491 MlyValue
.data_class((Cobol
.DATA_CLASS_IS_NUMERIC
))
3492 in (hojfelds_NT
122,(result
,NUMERIC1left
,NUMERIC1right
),rest671
) end
3493 |
(621,(_
,(_
,ALPHABETIC1left
,ALPHABETIC1right
))::rest671
) => let val
3494 result
=MlyValue
.data_class((Cobol
.DATA_CLASS_IS_ALPHABETIC
))
3495 in (hojfelds_NT
122,(result
,ALPHABETIC1left
,ALPHABETIC1right
),rest671
)
3497 |
(622,(_
,(_
,_
,than1right
))::(_
,(_
,GREATER1left
,_
))::rest671
) => let
3498 val result
=MlyValue
.relational_operator((Cobol
.GREATER
))
3499 in (hojfelds_NT
121,(result
,GREATER1left
,than1right
),rest671
) end
3500 |
(623,(_
,(_
,GREATERSYMBOL1left
,GREATERSYMBOL1right
))::rest671
) =>
3501 let val result
=MlyValue
.relational_operator((Cobol
.GREATER
))
3502 in (hojfelds_NT
121,(result
,GREATERSYMBOL1left
,GREATERSYMBOL1right
),
3504 |
(624,(_
,(_
,_
,than1right
))::(_
,(_
,LESS1left
,_
))::rest671
) => let val
3505 result
=MlyValue
.relational_operator((Cobol
.LESS
))
3506 in (hojfelds_NT
121,(result
,LESS1left
,than1right
),rest671
) end
3507 |
(625,(_
,(_
,LESSSYMBOL1left
,LESSSYMBOL1right
))::rest671
) => let val
3508 result
=MlyValue
.relational_operator((Cobol
.LESS
))
3509 in (hojfelds_NT
121,(result
,LESSSYMBOL1left
,LESSSYMBOL1right
),rest671
)
3511 |
(626,(_
,(_
,_
,to1right
))::(_
,(_
,EQUAL1left
,_
))::rest671
) => let val
3512 result
=MlyValue
.relational_operator((Cobol
.EQUAL
))
3513 in (hojfelds_NT
121,(result
,EQUAL1left
,to1right
),rest671
) end
3514 |
(627,(_
,(_
,EQSYMBOL1left
,EQSYMBOL1right
))::rest671
) => let val
3515 result
=MlyValue
.relational_operator((Cobol
.EQUAL
))
3516 in (hojfelds_NT
121,(result
,EQSYMBOL1left
,EQSYMBOL1right
),rest671
) end
3517 |
(628,(_
,(_
,POSITIVE1left
,POSITIVE1right
))::rest671
) => let val
3518 result
=MlyValue
.sign_specification((
3519 Cobol
.SIGN_SPECIFICATION_IS_POSITIVE
))
3520 in (hojfelds_NT
123,(result
,POSITIVE1left
,POSITIVE1right
),rest671
) end
3521 |
(629,(_
,(_
,NEGATIVE1left
,NEGATIVE1right
))::rest671
) => let val
3522 result
=MlyValue
.sign_specification((
3523 Cobol
.SIGN_SPECIFICATION_IS_NEGATIVE
))
3524 in (hojfelds_NT
123,(result
,NEGATIVE1left
,NEGATIVE1right
),rest671
) end
3525 |
(630,(_
,(_
,ZERO1left
,ZERO1right
))::rest671
) => let val result
=
3526 MlyValue
.sign_specification((Cobol
.SIGN_SPECIFICATION_IS_ZERO
))
3527 in (hojfelds_NT
123,(result
,ZERO1left
,ZERO1right
),rest671
) end
3528 |
(631,(_
,(MlyValue
.accept_statement accept_statement
,
3529 accept_statement1left
,accept_statement1right
))::rest671
) => let val
3530 result
=MlyValue
.statement((Cobol
.ACCEPT_STATEMENT(accept_statement
)))
3531 in (hojfelds_NT
458,(result
,accept_statement1left
,
3532 accept_statement1right
),rest671
) end
3533 |
(632,(_
,(MlyValue
.add_statement add_statement
,add_statement1left
,
3534 add_statement1right
))::rest671
) => let val result
=MlyValue
.statement((
3535 Cobol
.ADD_OR_SUBTRACT_STATEMENT(add_statement
)))
3536 in (hojfelds_NT
458,(result
,add_statement1left
,add_statement1right
),
3538 |
(633,(_
,(_
,alter_statement1left
,alter_statement1right
))::rest671
)
3539 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3540 in (hojfelds_NT
458,(result
,alter_statement1left
,alter_statement1right
3542 |
(634,(_
,(_
,call_statement1left
,call_statement1right
))::rest671
) =>
3543 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3544 in (hojfelds_NT
458,(result
,call_statement1left
,call_statement1right
),
3546 |
(635,(_
,(_
,cancel_statement1left
,cancel_statement1right
))::rest671
)
3547 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3548 in (hojfelds_NT
458,(result
,cancel_statement1left
,
3549 cancel_statement1right
),rest671
) end
3550 |
(636,(_
,(_
,close_statement1left
,close_statement1right
))::rest671
)
3551 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3552 in (hojfelds_NT
458,(result
,close_statement1left
,close_statement1right
3554 |
(637,(_
,(MlyValue
.compute_statement compute_statement
,
3555 compute_statement1left
,compute_statement1right
))::rest671
) => let val
3556 result
=MlyValue
.statement((Cobol
.COMPUTE_STATEMENT(compute_statement
))
3558 in (hojfelds_NT
458,(result
,compute_statement1left
,
3559 compute_statement1right
),rest671
) end
3560 |
(638,(_
,(_
,delete_statement1left
,delete_statement1right
))::rest671
)
3561 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3562 in (hojfelds_NT
458,(result
,delete_statement1left
,
3563 delete_statement1right
),rest671
) end
3564 |
(639,(_
,(_
,display_statement1left
,display_statement1right
))::rest671
3565 ) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3566 in (hojfelds_NT
458,(result
,display_statement1left
,
3567 display_statement1right
),rest671
) end
3568 |
(640,(_
,(MlyValue
.divide_statement divide_statement
,
3569 divide_statement1left
,divide_statement1right
))::rest671
) => let val
3570 result
=MlyValue
.statement((Cobol
.DIVIDE_STATEMENT(divide_statement
)))
3571 in (hojfelds_NT
458,(result
,divide_statement1left
,
3572 divide_statement1right
),rest671
) end
3573 |
(641,(_
,(_
,enter_statement1left
,enter_statement1right
))::rest671
)
3574 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3575 in (hojfelds_NT
458,(result
,enter_statement1left
,enter_statement1right
3577 |
(642,(_
,(_
,exit_statement1left
,exit_statement1right
))::rest671
) =>
3578 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3579 in (hojfelds_NT
458,(result
,exit_statement1left
,exit_statement1right
),
3581 |
(643,(_
,(_
,exit_program_statement1left
,exit_program_statement1right
)
3582 )::rest671
) => let val result
=MlyValue
.statement((
3583 Cobol
.OTHER_STATEMENT
))
3584 in (hojfelds_NT
458,(result
,exit_program_statement1left
,
3585 exit_program_statement1right
),rest671
) end
3586 |
(644,(_
,(_
,goback_statement1left
,goback_statement1right
))::rest671
)
3587 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3588 in (hojfelds_NT
458,(result
,goback_statement1left
,
3589 goback_statement1right
),rest671
) end
3590 |
(645,(_
,(_
,go_to_statement1left
,go_to_statement1right
))::rest671
)
3591 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3592 in (hojfelds_NT
458,(result
,go_to_statement1left
,go_to_statement1right
3594 |
(646,(_
,(MlyValue
.if_statement if_statement
,if_statement1left
,
3595 if_statement1right
))::rest671
) => let val result
=MlyValue
.statement((
3596 Cobol
.IF_STATEMENT(if_statement
)))
3597 in (hojfelds_NT
458,(result
,if_statement1left
,if_statement1right
),
3599 |
(647,(_
,(_
,initialize_statement1left
,initialize_statement1right
))::
3600 rest671
) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3601 in (hojfelds_NT
458,(result
,initialize_statement1left
,
3602 initialize_statement1right
),rest671
) end
3603 |
(648,(_
,(_
,inspect_statement1left
,inspect_statement1right
))::rest671
3604 ) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3605 in (hojfelds_NT
458,(result
,inspect_statement1left
,
3606 inspect_statement1right
),rest671
) end
3607 |
(649,(_
,(_
,merge_statement1left
,merge_statement1right
))::rest671
)
3608 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3609 in (hojfelds_NT
458,(result
,merge_statement1left
,merge_statement1right
3611 |
(650,(_
,(MlyValue
.move_statement move_statement
,move_statement1left
,
3612 move_statement1right
))::rest671
) => let val result
=MlyValue
.statement(
3613 (Cobol
.MOVE_STATEMENT(move_statement
)))
3614 in (hojfelds_NT
458,(result
,move_statement1left
,move_statement1right
),
3616 |
(651,(_
,(MlyValue
.multiply_statement multiply_statement
,
3617 multiply_statement1left
,multiply_statement1right
))::rest671
) => let
3618 val result
=MlyValue
.statement((
3619 Cobol
.MULTIPLY_STATEMENT(multiply_statement
)))
3620 in (hojfelds_NT
458,(result
,multiply_statement1left
,
3621 multiply_statement1right
),rest671
) end
3622 |
(652,(_
,(_
,open_statement1left
,open_statement1right
))::rest671
) =>
3623 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3624 in (hojfelds_NT
458,(result
,open_statement1left
,open_statement1right
),
3626 |
(653,(_
,(_
,perform_statement1left
,perform_statement1right
))::rest671
3627 ) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3628 in (hojfelds_NT
458,(result
,perform_statement1left
,
3629 perform_statement1right
),rest671
) end
3630 |
(654,(_
,(_
,read_statement1left
,read_statement1right
))::rest671
) =>
3631 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3632 in (hojfelds_NT
458,(result
,read_statement1left
,read_statement1right
),
3634 |
(655,(_
,(_
,release_statement1left
,release_statement1right
))::rest671
3635 ) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3636 in (hojfelds_NT
458,(result
,release_statement1left
,
3637 release_statement1right
),rest671
) end
3638 |
(656,(_
,(_
,return_statement1left
,return_statement1right
))::rest671
)
3639 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3640 in (hojfelds_NT
458,(result
,return_statement1left
,
3641 return_statement1right
),rest671
) end
3642 |
(657,(_
,(_
,rewrite_statement1left
,rewrite_statement1right
))::rest671
3643 ) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3644 in (hojfelds_NT
458,(result
,rewrite_statement1left
,
3645 rewrite_statement1right
),rest671
) end
3646 |
(658,(_
,(_
,search_statement1left
,search_statement1right
))::rest671
)
3647 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3648 in (hojfelds_NT
458,(result
,search_statement1left
,
3649 search_statement1right
),rest671
) end
3650 |
(659,(_
,(_
,set_statement1left
,set_statement1right
))::rest671
) =>
3651 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3652 in (hojfelds_NT
458,(result
,set_statement1left
,set_statement1right
),
3654 |
(660,(_
,(_
,sort_statement1left
,sort_statement1right
))::rest671
) =>
3655 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3656 in (hojfelds_NT
458,(result
,sort_statement1left
,sort_statement1right
),
3658 |
(661,(_
,(_
,start_statement1left
,start_statement1right
))::rest671
)
3659 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3660 in (hojfelds_NT
458,(result
,start_statement1left
,start_statement1right
3662 |
(662,(_
,(_
,stop_statement1left
,stop_statement1right
))::rest671
) =>
3663 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3664 in (hojfelds_NT
458,(result
,stop_statement1left
,stop_statement1right
),
3666 |
(663,(_
,(_
,string_statement1left
,string_statement1right
))::rest671
)
3667 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3668 in (hojfelds_NT
458,(result
,string_statement1left
,
3669 string_statement1right
),rest671
) end
3670 |
(664,(_
,(MlyValue
.subtract_statement subtract_statement
,
3671 subtract_statement1left
,subtract_statement1right
))::rest671
) => let
3672 val result
=MlyValue
.statement((
3673 Cobol
.ADD_OR_SUBTRACT_STATEMENT(subtract_statement
)))
3674 in (hojfelds_NT
458,(result
,subtract_statement1left
,
3675 subtract_statement1right
),rest671
) end
3676 |
(665,(_
,(_
,unstring_statement1left
,unstring_statement1right
))::
3677 rest671
) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3678 in (hojfelds_NT
458,(result
,unstring_statement1left
,
3679 unstring_statement1right
),rest671
) end
3680 |
(666,(_
,(_
,use_statement1left
,use_statement1right
))::rest671
) =>
3681 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3682 in (hojfelds_NT
458,(result
,use_statement1left
,use_statement1right
),
3684 |
(667,(_
,(_
,write_statement1left
,write_statement1right
))::rest671
)
3685 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3686 in (hojfelds_NT
458,(result
,write_statement1left
,write_statement1right
3688 |
(668,(_
,(_
,copy_statement1left
,copy_statement1right
))::rest671
) =>
3689 let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3690 in (hojfelds_NT
458,(result
,copy_statement1left
,copy_statement1right
),
3692 |
(669,(_
,(_
,eject_statement1left
,eject_statement1right
))::rest671
)
3693 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3694 in (hojfelds_NT
458,(result
,eject_statement1left
,eject_statement1right
3696 |
(670,(_
,(_
,exhibit_statement1left
,exhibit_statement1right
))::rest671
3697 ) => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3698 in (hojfelds_NT
458,(result
,exhibit_statement1left
,
3699 exhibit_statement1right
),rest671
) end
3700 |
(671,(_
,(_
,trace_statement1left
,trace_statement1right
))::rest671
)
3701 => let val result
=MlyValue
.statement((Cobol
.OTHER_STATEMENT
))
3702 in (hojfelds_NT
458,(result
,trace_statement1left
,trace_statement1right
3704 |
(672,(_
,(MlyValue
.annotation_statement annotation_statement
,
3705 annotation_statement1left
,annotation_statement1right
))::rest671
) =>
3706 let val result
=MlyValue
.statement((
3707 Cobol
.ANNOTATION_STATEMENT(annotation_statement
)))
3708 in (hojfelds_NT
458,(result
,annotation_statement1left
,
3709 annotation_statement1right
),rest671
) end
3710 |
(673,(_
,(MlyValue
.identifier_or_literal identifier_or_literal
,
3711 identifier_or_literal1left
,identifier_or_literal1right
))::rest671
) =>
3712 let val result
=MlyValue
.identifier_or_literal_or_ddt((
3713 Cobol
.IDENTIFIER_OR_LITERAL_OR_DDT_IS_IDENTIFIER_OR_LITERAL(identifier_or_literal
)
3715 in (hojfelds_NT
544,(result
,identifier_or_literal1left
,
3716 identifier_or_literal1right
),rest671
) end
3717 |
(674,(_
,(MlyValue
.date_day_time date_day_time
,date_day_time1left
,
3718 date_day_time1right
))::rest671
) => let val result
=
3719 MlyValue
.identifier_or_literal_or_ddt((
3720 Cobol
.IDENTIFIER_OR_LITERAL_OR_DDT_IS_DDT(date_day_time
)))
3721 in (hojfelds_NT
544,(result
,date_day_time1left
,date_day_time1right
),
3723 |
(675,(_
,(MlyValue
.identifier identifier
,_
,identifierright
as
3724 identifier1right
))::_
::(_
,(MlyValue
.ts2k ts2k
,_
,_
))::_
::(_
,(
3725 MlyValue
.identifier_or_literal_or_ddt identifier_or_literal_or_ddt
,_
,_
3726 ))::_
::(_
,(_
,TS2Kleft
as TS2K1left
,_
))::rest671
) => let val result
=
3727 MlyValue
.annotation_statement((
3728 Cobol
.TS2K_COERCE(identifier_or_literal_or_ddt
, ts2k
, TS2Kleft
,identifierright
,identifier
)
3730 in (hojfelds_NT
542,(result
,TS2K1left
,identifier1right
),rest671
) end
3731 |
(676,(_
,(MlyValue
.ts2k ts2k
,_
,ts2kright
as ts2k1right
))::_
::(_
,(
3732 MlyValue
.identifier_or_literal_or_ddt identifier_or_literal_or_ddt
,_
,_
3733 ))::_
::(_
,(_
,TS2Kleft
as TS2K1left
,_
))::rest671
) => let val result
=
3734 MlyValue
.annotation_statement((
3735 Cobol
.TS2K_ASSUME(identifier_or_literal_or_ddt
,ts2k
,TS2Kleft
,ts2kright
)
3737 in (hojfelds_NT
542,(result
,TS2K1left
,ts2k1right
),rest671
) end
3738 |
(677,(_
,(MlyValue
.from_environment from_environment
,_
,
3739 from_environmentright
as from_environment1right
))::(_
,(
3740 MlyValue
.identifier identifier
,_
,_
))::(_
,(_
,ACCEPTleft
as ACCEPT1left
,
3741 _
))::rest671
) => let val result
=MlyValue
.accept_statement((
3742 Cobol
.ACCEPT_ENVIRONMENT(identifier
, from_environment
,ACCEPTleft
,from_environmentright
)
3744 in (hojfelds_NT
7,(result
,ACCEPT1left
,from_environment1right
),rest671
)
3746 |
(678,(_
,(MlyValue
.date_day_time date_day_time
,_
,date_day_timeright
3747 as date_day_time1right
))::_
::(_
,(MlyValue
.identifier identifier
,_
,_
))
3748 ::(_
,(_
,ACCEPTleft
as ACCEPT1left
,_
))::rest671
) => let val result
=
3749 MlyValue
.accept_statement((
3750 Cobol
.ACCEPT_DATE_DAY_TIME(identifier
, date_day_time
,ACCEPTleft
,date_day_timeright
)
3752 in (hojfelds_NT
7,(result
,ACCEPT1left
,date_day_time1right
),rest671
)
3754 |
(679,(_
,(MlyValue
.mnemonic_name mnemonic_name
,_
,mnemonic_nameright
3755 as mnemonic_name1right
))::(_
,(_
,FROMleft
as FROM1left
,_
))::rest671
)
3756 => let val result
=MlyValue
.from_environment((
3757 Cobol
.FROM(mnemonic_name
,FROMleft
,mnemonic_nameright
)))
3758 in (hojfelds_NT
215,(result
,FROM1left
,mnemonic_name1right
),rest671
)
3760 |
(680,rest671
) => let val result
=MlyValue
.from_environment((
3762 in (hojfelds_NT
215,(result
,defaultPos
,defaultPos
),rest671
) end
3763 |
(681,(_
,(_
,DATEleft
as DATE1left
,DATEright
as DATE1right
))::rest671
)
3764 => let val result
=MlyValue
.date_day_time((
3765 Cobol
.DATE(DATEleft
,DATEright
)))
3766 in (hojfelds_NT
112,(result
,DATE1left
,DATE1right
),rest671
) end
3767 |
(682,(_
,(_
,DAYleft
as DAY1left
,DAYright
as DAY1right
))::rest671
) =>
3768 let val result
=MlyValue
.date_day_time((Cobol
.DAY(DAYleft
,DAYright
)))
3769 in (hojfelds_NT
112,(result
,DAY1left
,DAY1right
),rest671
) end
3770 |
(683,(_
,(_
,TIMEleft
as TIME1left
,TIMEright
as TIME1right
))::rest671
)
3771 => let val result
=MlyValue
.date_day_time((
3772 Cobol
.TIME(TIMEleft
,TIMEright
)))
3773 in (hojfelds_NT
112,(result
,TIME1left
,TIME1right
),rest671
) end
3774 |
(684,(_
,(_
,_
,end_addright
as end_add1right
))::(_
,(
3775 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3776 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
3777 MlyValue
.identifier_or_literals identifier_or_literals
,_
,_
))::(_
,(_
,
3778 ADDleft
as ADD1left
,_
))::rest671
) => let val result
=
3779 MlyValue
.add_statement((
3780 Cobol
.ADD_OR_SUBTRACT
3781 (Cobol
.ADD
,identifier_or_literals
,identifier_roundeds
,
3783 ADDleft
,end_addright
)
3785 in (hojfelds_NT
10,(result
,ADD1left
,end_add1right
),rest671
) end
3786 |
(685,(_
,(_
,_
,end_addright
as end_add1right
))::(_
,(
3787 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3788 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
3789 MlyValue
.identifier_or_literal identifier_or_literal
,_
,_
))::(_
,(
3790 MlyValue
.identifier_or_literals identifier_or_literals
,_
,_
))::(_
,(_
,
3791 ADDleft
as ADD1left
,_
))::rest671
) => let val result
=
3792 MlyValue
.add_statement((
3793 Cobol
.ADD_OR_SUBTRACT_GIVING
3794 (Cobol
.ADD
,identifier_or_literals
,identifier_or_literal
,
3795 identifier_roundeds
,
3796 size_error_clauses
,ADDleft
,end_addright
)
3798 in (hojfelds_NT
10,(result
,ADD1left
,end_add1right
),rest671
) end
3799 |
(686,(_
,(_
,_
,end_addright
as end_add1right
))::(_
,(
3800 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3801 MlyValue
.rounded rounded
,_
,_
))::(_
,(MlyValue
.identifier identifier2
,_
,
3802 _
))::_
::(_
,(MlyValue
.identifier identifier1
,_
,_
))::_
::(_
,(_
,ADDleft
3803 as ADD1left
,_
))::rest671
) => let val result
=MlyValue
.add_statement((
3804 Cobol
.ADD_OR_SUBTRACT_CORRESPONDING
3805 (Cobol
.ADD
,identifier1
,identifier2
,rounded
,
3806 size_error_clauses
,ADDleft
,end_addright
)
3808 in (hojfelds_NT
10,(result
,ADD1left
,end_add1right
),rest671
) end
3809 |
(687,(_
,(MlyValue
.identifier_rounded identifier_rounded
,_
,
3810 identifier_rounded1right
))::(_
,(MlyValue
.identifier_roundeds
3811 identifier_roundeds
,identifier_roundeds1left
,_
))::rest671
) => let val
3812 result
=MlyValue
.identifier_roundeds((
3813 Cobol
.SEVERAL_IDENTIFIER_ROUNDEDS(identifier_roundeds
,
3816 in (hojfelds_NT
236,(result
,identifier_roundeds1left
,
3817 identifier_rounded1right
),rest671
) end
3818 |
(688,(_
,(MlyValue
.identifier_rounded identifier_rounded
,
3819 identifier_rounded1left
,identifier_rounded1right
))::rest671
) => let
3820 val result
=MlyValue
.identifier_roundeds((
3821 Cobol
.ONE_IDENTIFIER_ROUNDED(identifier_rounded
)))
3822 in (hojfelds_NT
236,(result
,identifier_rounded1left
,
3823 identifier_rounded1right
),rest671
) end
3824 |
(689,(_
,(MlyValue
.rounded rounded
,_
,rounded1right
))::(_
,(
3825 MlyValue
.identifier identifier
,identifier1left
,_
))::rest671
) => let
3826 val result
=MlyValue
.identifier_rounded((
3827 Cobol
.IDENTIFIER_ROUNDED(identifier
,rounded
)))
3828 in (hojfelds_NT
235,(result
,identifier1left
,rounded1right
),rest671
)
3830 |
(690,(_
,(MlyValue
.size_error_clause size_error_clause
,
3831 size_error_clause1left
,size_error_clause1right
))::rest671
) => let val
3832 result
=MlyValue
.size_error_clauses((size_error_clause
))
3833 in (hojfelds_NT
442,(result
,size_error_clause1left
,
3834 size_error_clause1right
),rest671
) end
3835 |
(691,(_
,(MlyValue
.imperative_statement imperative_statement
,_
,
3836 imperative_statement1right
))::_
::_
::(_
,(_
,on1left
,_
))::rest671
) =>
3837 let val result
=MlyValue
.size_error_clause((
3838 Cobol
.SIZE_ERROR(imperative_statement
)))
3839 in (hojfelds_NT
441,(result
,on1left
,imperative_statement1right
),
3841 |
(692,rest671
) => let val result
=MlyValue
.size_error_clause((
3842 Cobol
.NO_SIZE_ERROR
))
3843 in (hojfelds_NT
441,(result
,defaultPos
,defaultPos
),rest671
) end
3844 |
(693,(_
,(_
,_
,alterations1right
))::(_
,(_
,ALTER1left
,_
))::rest671
) =>
3845 let val result
=MlyValue
.ntVOID(())
3846 in (hojfelds_NT
32,(result
,ALTER1left
,alterations1right
),rest671
) end
3847 |
(694,(_
,(_
,_
,alteration1right
))::(_
,(_
,alterations1left
,_
))::rest671
3848 ) => let val result
=MlyValue
.ntVOID(())
3849 in (hojfelds_NT
34,(result
,alterations1left
,alteration1right
),rest671
)
3851 |
(695,(_
,(_
,alteration1left
,alteration1right
))::rest671
) => let val
3852 result
=MlyValue
.ntVOID(())
3853 in (hojfelds_NT
34,(result
,alteration1left
,alteration1right
),rest671
)
3855 |
(696,(_
,(_
,_
,procedure_name2right
))::_
::_
::(_
,(_
,procedure_name1left
3856 ,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
3857 in (hojfelds_NT
33,(result
,procedure_name1left
,procedure_name2right
),
3859 |
(697,(_
,(_
,_
,end_call1right
))::_
::_
::_
::(_
,(_
,CALL1left
,_
))::rest671
3860 ) => let val result
=MlyValue
.ntVOID(())
3861 in (hojfelds_NT
55,(result
,CALL1left
,end_call1right
),rest671
) end
3862 |
(698,(_
,(_
,_
,identifiers1right
))::(_
,(_
,USING1left
,_
))::rest671
) =>
3863 let val result
=MlyValue
.ntVOID(())
3864 in (hojfelds_NT
513,(result
,USING1left
,identifiers1right
),rest671
) end
3865 |
(699,rest671
) => let val result
=MlyValue
.ntVOID(())
3866 in (hojfelds_NT
513,(result
,defaultPos
,defaultPos
),rest671
) end
3867 |
(700,(_
,(_
,_
,identifier_or_literals1right
))::(_
,(_
,CANCEL1left
,_
))::
3868 rest671
) => let val result
=MlyValue
.ntVOID(())
3869 in (hojfelds_NT
56,(result
,CANCEL1left
,identifier_or_literals1right
),
3871 |
(701,(_
,(_
,_
,file_name_specifications1right
))::(_
,(_
,CLOSE1left
,_
))
3872 ::rest671
) => let val result
=MlyValue
.ntVOID(())
3873 in (hojfelds_NT
63,(result
,CLOSE1left
,file_name_specifications1right
),
3875 |
(702,(_
,(_
,_
,file_name_specification1right
))::(_
,(_
,
3876 file_name_specifications1left
,_
))::rest671
) => let val result
=
3878 in (hojfelds_NT
202,(result
,file_name_specifications1left
,
3879 file_name_specification1right
),rest671
) end
3880 |
(703,(_
,(_
,file_name_specification1left
,
3881 file_name_specification1right
))::rest671
) => let val result
=
3883 in (hojfelds_NT
202,(result
,file_name_specification1left
,
3884 file_name_specification1right
),rest671
) end
3885 |
(704,(_
,(_
,_
,closing_specification1right
))::(_
,(_
,file_name1left
,_
))
3886 ::rest671
) => let val result
=MlyValue
.ntVOID(())
3887 in (hojfelds_NT
201,(result
,file_name1left
,closing_specification1right
3889 |
(705,(_
,(_
,_
,for_removal1right
))::(_
,(_
,reel_or_unit1left
,_
))::
3890 rest671
) => let val result
=MlyValue
.ntVOID(())
3891 in (hojfelds_NT
64,(result
,reel_or_unit1left
,for_removal1right
),
3893 |
(706,(_
,(_
,_
,no_rewind_or_lock1right
))::(_
,(_
,with1left
,_
))::rest671
3894 ) => let val result
=MlyValue
.ntVOID(())
3895 in (hojfelds_NT
64,(result
,with1left
,no_rewind_or_lock1right
),rest671
)
3897 |
(707,rest671
) => let val result
=MlyValue
.ntVOID(())
3898 in (hojfelds_NT
64,(result
,defaultPos
,defaultPos
),rest671
) end
3899 |
(708,(_
,(_
,REEL1left
,REEL1right
))::rest671
) => let val result
=
3901 in (hojfelds_NT
392,(result
,REEL1left
,REEL1right
),rest671
) end
3902 |
(709,(_
,(_
,UNIT1left
,UNIT1right
))::rest671
) => let val result
=
3904 in (hojfelds_NT
392,(result
,UNIT1left
,UNIT1right
),rest671
) end
3905 |
(710,(_
,(_
,_
,REWIND1right
))::(_
,(_
,NO1left
,_
))::rest671
) => let val
3906 result
=MlyValue
.ntVOID(())
3907 in (hojfelds_NT
320,(result
,NO1left
,REWIND1right
),rest671
) end
3908 |
(711,(_
,(_
,LOCK1left
,LOCK1right
))::rest671
) => let val result
=
3910 in (hojfelds_NT
320,(result
,LOCK1left
,LOCK1right
),rest671
) end
3911 |
(712,(_
,(_
,_
,end_computeright
as end_compute1right
))::(_
,(
3912 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3913 MlyValue
.arithmetic_expression arithmetic_expression
,_
,_
))::_
::(_
,(
3914 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::(_
,(_
,
3915 COMPUTEleft
as COMPUTE1left
,_
))::rest671
) => let val result
=
3916 MlyValue
.compute_statement((
3917 Cobol
.COMPUTE(identifier_roundeds
,
3918 arithmetic_expression
,
3920 COMPUTEleft
,end_computeright
)
3922 in (hojfelds_NT
72,(result
,COMPUTE1left
,end_compute1right
),rest671
)
3924 |
(713,(_
,(_
,_
,end_delete1right
))::_
::_
::_
::(_
,(_
,DELETE1left
,_
))::
3925 rest671
) => let val result
=MlyValue
.ntVOID(())
3926 in (hojfelds_NT
120,(result
,DELETE1left
,end_delete1right
),rest671
) end
3927 |
(714,(_
,(_
,_
,not_invalid_key_error_clause1right
))::(_
,(_
,
3928 invalid_key_error_clause1left
,_
))::rest671
) => let val result
=
3930 in (hojfelds_NT
272,(result
,invalid_key_error_clause1left
,
3931 not_invalid_key_error_clause1right
),rest671
) end
3932 |
(715,(_
,(_
,_
,imperative_statement1right
))::_
::(_
,(_
,INVALID1left
,_
))
3933 ::rest671
) => let val result
=MlyValue
.ntVOID(())
3934 in (hojfelds_NT
270,(result
,INVALID1left
,imperative_statement1right
),
3936 |
(716,rest671
) => let val result
=MlyValue
.ntVOID(())
3937 in (hojfelds_NT
270,(result
,defaultPos
,defaultPos
),rest671
) end
3938 |
(717,(_
,(_
,_
,imperative_statement1right
))::_
::_
::(_
,(_
,NOT1left
,_
))
3939 ::rest671
) => let val result
=MlyValue
.ntVOID(())
3940 in (hojfelds_NT
324,(result
,NOT1left
,imperative_statement1right
),
3942 |
(718,rest671
) => let val result
=MlyValue
.ntVOID(())
3943 in (hojfelds_NT
324,(result
,defaultPos
,defaultPos
),rest671
) end
3944 |
(719,(_
,(_
,_
,upon_mnemonic_name1right
))::_
::(_
,(_
,DISPLAY1left
,_
))::
3945 rest671
) => let val result
=MlyValue
.ntVOID(())
3946 in (hojfelds_NT
126,(result
,DISPLAY1left
,upon_mnemonic_name1right
),
3948 |
(720,(_
,(_
,_
,mnemonic_name1right
))::(_
,(_
,UPON1left
,_
))::rest671
)
3949 => let val result
=MlyValue
.ntVOID(())
3950 in (hojfelds_NT
506,(result
,UPON1left
,mnemonic_name1right
),rest671
)
3952 |
(721,rest671
) => let val result
=MlyValue
.ntVOID(())
3953 in (hojfelds_NT
506,(result
,defaultPos
,defaultPos
),rest671
) end
3954 |
(722,(_
,(_
,_
,end_divideright
as end_divide1right
))::(_
,(
3955 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3956 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
3957 MlyValue
.identifier_or_literal identifier_or_literal
,_
,_
))::(_
,(_
,
3958 DIVIDEleft
as DIVIDE1left
,_
))::rest671
) => let val result
=
3959 MlyValue
.divide_statement((
3960 Cobol
.DIVIDE_INTO(identifier_or_literal
,identifier_roundeds
,
3961 size_error_clauses
,DIVIDEleft
,end_divideright
)
3963 in (hojfelds_NT
127,(result
,DIVIDE1left
,end_divide1right
),rest671
) end
3964 |
(723,(_
,(_
,_
,end_divideright
as end_divide1right
))::(_
,(
3965 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3966 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
3967 MlyValue
.identifier_or_literal identifier_or_literal2
,_
,_
))::_
::(_
,(
3968 MlyValue
.identifier_or_literal identifier_or_literal1
,_
,_
))::(_
,(_
,
3969 DIVIDEleft
as DIVIDE1left
,_
))::rest671
) => let val result
=
3970 MlyValue
.divide_statement((
3971 Cobol
.DIVIDE_INTO_GIVING
3972 (identifier_or_literal1
,identifier_or_literal2
,
3973 identifier_roundeds
, size_error_clauses
,
3974 DIVIDEleft
,end_divideright
)
3976 in (hojfelds_NT
127,(result
,DIVIDE1left
,end_divide1right
),rest671
) end
3977 |
(724,(_
,(_
,_
,end_divideright
as end_divide1right
))::(_
,(
3978 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3979 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
3980 MlyValue
.identifier_or_literal identifier_or_literal2
,_
,_
))::_
::(_
,(
3981 MlyValue
.identifier_or_literal identifier_or_literal1
,_
,_
))::(_
,(_
,
3982 DIVIDEleft
as DIVIDE1left
,_
))::rest671
) => let val result
=
3983 MlyValue
.divide_statement((
3984 Cobol
.DIVIDE_BY_GIVING
3985 (identifier_or_literal1
,identifier_or_literal2
,
3986 identifier_roundeds
,size_error_clauses
,
3987 DIVIDEleft
,end_divideright
)
3989 in (hojfelds_NT
127,(result
,DIVIDE1left
,end_divide1right
),rest671
) end
3990 |
(725,(_
,(_
,_
,end_divideright
as end_divide1right
))::(_
,(
3991 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
3992 MlyValue
.identifier identifier
,_
,_
))::_
::(_
,(
3993 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
3994 MlyValue
.identifier_or_literal identifier_or_literal2
,_
,_
))::_
::(_
,(
3995 MlyValue
.identifier_or_literal identifier_or_literal1
,_
,_
))::(_
,(_
,
3996 DIVIDEleft
as DIVIDE1left
,_
))::rest671
) => let val result
=
3997 MlyValue
.divide_statement((
3998 Cobol
.DIVIDE_INTO_GIVING_REMAINDER
3999 (identifier_or_literal1
,identifier_or_literal2
,
4000 identifier_roundeds
,identifier
,size_error_clauses
,
4001 DIVIDEleft
,end_divideright
)
4003 in (hojfelds_NT
127,(result
,DIVIDE1left
,end_divide1right
),rest671
) end
4004 |
(726,(_
,(_
,_
,end_divideright
as end_divide1right
))::(_
,(
4005 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
4006 MlyValue
.identifier identifier
,_
,_
))::_
::(_
,(
4007 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
4008 MlyValue
.identifier_or_literal identifier_or_literal2
,_
,_
))::_
::(_
,(
4009 MlyValue
.identifier_or_literal identifier_or_literal1
,_
,_
))::(_
,(_
,
4010 DIVIDEleft
as DIVIDE1left
,_
))::rest671
) => let val result
=
4011 MlyValue
.divide_statement((
4012 Cobol
.DIVIDE_BY_GIVING_REMAINDER
4013 (identifier_or_literal1
,identifier_or_literal2
,
4014 identifier_roundeds
,identifier
,size_error_clauses
,
4015 DIVIDEleft
,end_divideright
)
4017 in (hojfelds_NT
127,(result
,DIVIDE1left
,end_divide1right
),rest671
) end
4018 |
(727,(_
,(_
,_
,routine_name_opt1right
))::_
::(_
,(_
,ENTER1left
,_
))::
4019 rest671
) => let val result
=MlyValue
.ntVOID(())
4020 in (hojfelds_NT
151,(result
,ENTER1left
,routine_name_opt1right
),rest671
4022 |
(728,(_
,(_
,_
,identifiers1right
))::_
::(_
,(_
,EXHIBIT1left
,_
))::rest671
4023 ) => let val result
=MlyValue
.ntVOID(())
4024 in (hojfelds_NT
161,(result
,EXHIBIT1left
,identifiers1right
),rest671
)
4026 |
(729,(_
,(_
,NAMED1left
,NAMED1right
))::rest671
) => let val result
=
4028 in (hojfelds_NT
58,(result
,NAMED1left
,NAMED1right
),rest671
) end
4029 |
(730,(_
,(_
,_
,NAMED1right
))::(_
,(_
,CHANGED1left
,_
))::rest671
) => let
4030 val result
=MlyValue
.ntVOID(())
4031 in (hojfelds_NT
58,(result
,CHANGED1left
,NAMED1right
),rest671
) end
4032 |
(731,(_
,(_
,EXIT1left
,EXIT1right
))::rest671
) => let val result
=
4034 in (hojfelds_NT
163,(result
,EXIT1left
,EXIT1right
),rest671
) end
4035 |
(732,(_
,(_
,_
,PROGRAM1right
))::(_
,(_
,EXIT1left
,_
))::rest671
) => let
4036 val result
=MlyValue
.ntVOID(())
4037 in (hojfelds_NT
162,(result
,EXIT1left
,PROGRAM1right
),rest671
) end
4038 |
(733,(_
,(_
,_
,procedure_name_opt1right
))::_
::(_
,(_
,GO1left
,_
))::
4039 rest671
) => let val result
=MlyValue
.ntVOID(())
4040 in (hojfelds_NT
218,(result
,GO1left
,procedure_name_opt1right
),rest671
)
4042 |
(734,(_
,(_
,_
,identifier1right
))::_
::_
::_
::_
::(_
,(_
,GO1left
,_
))::
4043 rest671
) => let val result
=MlyValue
.ntVOID(())
4044 in (hojfelds_NT
218,(result
,GO1left
,identifier1right
),rest671
) end
4045 |
(735,(_
,(MlyValue
.else_statements else_statements
,_
,
4046 else_statements1right
))::(_
,(MlyValue
.then_statements then_statements
,
4047 _
,_
))::(_
,(_
,_
,thenright
))::(_
,(MlyValue
.conditional_expression
4048 conditional_expression
,_
,_
))::(_
,(_
,IFleft
as IF1left
,_
))::rest671
)
4049 => let val result
=MlyValue
.if_statement((
4050 Cobol
.IF(conditional_expression
,then_statements
,else_statements
,
4053 in (hojfelds_NT
240,(result
,IF1left
,else_statements1right
),rest671
)
4055 |
(736,(_
,(MlyValue
.imperative_statement imperative_statement
,
4056 imperative_statement1left
,imperative_statement1right
))::rest671
) =>
4057 let val result
=MlyValue
.then_statements((
4058 Cobol
.THEN_STATEMENTS(imperative_statement
)))
4059 in (hojfelds_NT
490,(result
,imperative_statement1left
,
4060 imperative_statement1right
),rest671
) end
4061 |
(737,(_
,(_
,_
,SENTENCE1right
))::(_
,(_
,NEXT1left
,_
))::rest671
) => let
4062 val result
=MlyValue
.then_statements((Cobol
.NEXT_SENTENCE
))
4063 in (hojfelds_NT
490,(result
,NEXT1left
,SENTENCE1right
),rest671
) end
4064 |
(738,(_
,(_
,_
,end_if1right
))::(_
,(MlyValue
.statements statements
,_
,_
)
4065 )::(_
,(_
,ELSE1left
,_
))::rest671
) => let val result
=
4066 MlyValue
.else_statements((Cobol
.ELSE(statements
)))
4067 in (hojfelds_NT
130,(result
,ELSE1left
,end_if1right
),rest671
) end
4068 |
(739,(_
,(_
,_
,SENTENCE1right
))::_
::(_
,(_
,ELSE1left
,_
))::rest671
) =>
4069 let val result
=MlyValue
.else_statements((Cobol
.ELSE_NEXT_SENTENCE
))
4070 in (hojfelds_NT
130,(result
,ELSE1left
,SENTENCE1right
),rest671
) end
4071 |
(740,(_
,(_
,end_if1left
,end_if1right
))::rest671
) => let val result
=
4072 MlyValue
.else_statements((Cobol
.NO_ELSE
))
4073 in (hojfelds_NT
130,(result
,end_if1left
,end_if1right
),rest671
) end
4074 |
(741,(_
,(_
,_
,identifier_tallying_specifications1right
))::_
::_
::(_
,(_
4075 ,INSPECT1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4076 in (hojfelds_NT
262,(result
,INSPECT1left
,
4077 identifier_tallying_specifications1right
),rest671
) end
4078 |
(742,(_
,(_
,_
,inspect_replacing_specifications1right
))::_
::_
::(_
,(_
,
4079 INSPECT1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4080 in (hojfelds_NT
262,(result
,INSPECT1left
,
4081 inspect_replacing_specifications1right
),rest671
) end
4082 |
(743,(_
,(_
,_
,inspect_replacing_specifications1right
))::_
::_
::_
::_
::(
4083 _
,(_
,INSPECT1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4084 in (hojfelds_NT
262,(result
,INSPECT1left
,
4085 inspect_replacing_specifications1right
),rest671
) end
4086 |
(744,(_
,(_
,_
,tallying_specifications1right
))::_
::(_
,(_
,
4087 identifier1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4088 in (hojfelds_NT
238,(result
,identifier1left
,
4089 tallying_specifications1right
),rest671
) end
4090 |
(745,(_
,(_
,_
,before_after_phrase1right
))::(_
,(_
,CHARACTERS1left
,_
))
4091 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4092 in (hojfelds_NT
482,(result
,CHARACTERS1left
,before_after_phrase1right
)
4094 |
(746,(_
,(_
,_
,all_or_leading_specifications1right
))::(_
,(_
,
4095 all_or_leading1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(()
4097 in (hojfelds_NT
482,(result
,all_or_leading1left
,
4098 all_or_leading_specifications1right
),rest671
) end
4099 |
(747,(_
,(_
,_
,tallying_specifications1right
))::_
::(_
,(_
,
4100 CHARACTERS1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4101 in (hojfelds_NT
482,(result
,CHARACTERS1left
,
4102 tallying_specifications1right
),rest671
) end
4103 |
(748,(_
,(_
,_
,tallying_specifications1right
))::_
::(_
,(_
,
4104 all_or_leading1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(()
4106 in (hojfelds_NT
482,(result
,all_or_leading1left
,
4107 tallying_specifications1right
),rest671
) end
4108 |
(749,(_
,(_
,_
,identifier_tallying_specifications1right
))::_
::(_
,(_
,
4109 CHARACTERS1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4110 in (hojfelds_NT
482,(result
,CHARACTERS1left
,
4111 identifier_tallying_specifications1right
),rest671
) end
4112 |
(750,(_
,(_
,_
,identifier_tallying_specifications1right
))::_
::(_
,(_
,
4113 all_or_leading1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(()
4115 in (hojfelds_NT
482,(result
,all_or_leading1left
,
4116 identifier_tallying_specifications1right
),rest671
) end
4118 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
4119 )::_
::(_
,(_
,before_after1left
,_
))::rest671
) => let val result
=
4121 in (hojfelds_NT
168,(result
,before_after1left
,
4122 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
4124 |
(752,rest671
) => let val result
=MlyValue
.ntVOID(())
4125 in (hojfelds_NT
168,(result
,defaultPos
,defaultPos
),rest671
) end
4126 |
(753,(_
,(_
,BEFORE1left
,BEFORE1right
))::rest671
) => let val result
=
4128 in (hojfelds_NT
51,(result
,BEFORE1left
,BEFORE1right
),rest671
) end
4129 |
(754,(_
,(_
,AFTER1left
,AFTER1right
))::rest671
) => let val result
=
4131 in (hojfelds_NT
51,(result
,AFTER1left
,AFTER1right
),rest671
) end
4132 |
(755,(_
,(_
,ALL1left
,ALL1right
))::rest671
) => let val result
=
4134 in (hojfelds_NT
19,(result
,ALL1left
,ALL1right
),rest671
) end
4135 |
(756,(_
,(_
,LEADING1left
,LEADING1right
))::rest671
) => let val result
=
4137 in (hojfelds_NT
19,(result
,LEADING1left
,LEADING1right
),rest671
) end
4138 |
(757,(_
,(_
,_
,all_or_leading_specification1right
))::(_
,(_
,
4139 all_or_leading_specifications1left
,_
))::rest671
) => let val result
=
4141 in (hojfelds_NT
22,(result
,all_or_leading_specifications1left
,
4142 all_or_leading_specification1right
),rest671
) end
4143 |
(758,(_
,(_
,all_or_leading_specification1left
,
4144 all_or_leading_specification1right
))::rest671
) => let val result
=
4146 in (hojfelds_NT
22,(result
,all_or_leading_specification1left
,
4147 all_or_leading_specification1right
),rest671
) end
4148 |
(759,(_
,(_
,_
,before_after_phrase1right
))::(_
,(_
,
4149 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,_
4150 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
4151 in (hojfelds_NT
21,(result
,
4152 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,
4153 before_after_phrase1right
),rest671
) end
4154 |
(760,(_
,(_
,_
,inspect_replacing_specification1right
))::(_
,(_
,
4155 inspect_replacing_specifications1left
,_
))::rest671
) => let val result
=
4157 in (hojfelds_NT
167,(result
,inspect_replacing_specifications1left
,
4158 inspect_replacing_specification1right
),rest671
) end
4159 |
(761,(_
,(_
,inspect_replacing_specification1left
,
4160 inspect_replacing_specification1right
))::rest671
) => let val result
=
4162 in (hojfelds_NT
167,(result
,inspect_replacing_specification1left
,
4163 inspect_replacing_specification1right
),rest671
) end
4164 |
(762,(_
,(_
,_
,before_after_phrase1right
))::_
::_
::(_
,(_
,
4165 CHARACTERS1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4166 in (hojfelds_NT
169,(result
,CHARACTERS1left
,before_after_phrase1right
)
4168 |
(763,(_
,(_
,_
,all_leading_first_specifications1right
))::(_
,(_
,
4169 all_or_leading_or_first1left
,_
))::rest671
) => let val result
=
4171 in (hojfelds_NT
169,(result
,all_or_leading_or_first1left
,
4172 all_leading_first_specifications1right
),rest671
) end
4173 |
(764,(_
,(_
,ALL1left
,ALL1right
))::rest671
) => let val result
=
4175 in (hojfelds_NT
20,(result
,ALL1left
,ALL1right
),rest671
) end
4176 |
(765,(_
,(_
,LEADING1left
,LEADING1right
))::rest671
) => let val result
=
4178 in (hojfelds_NT
20,(result
,LEADING1left
,LEADING1right
),rest671
) end
4179 |
(766,(_
,(_
,FIRST1left
,FIRST1right
))::rest671
) => let val result
=
4181 in (hojfelds_NT
20,(result
,FIRST1left
,FIRST1right
),rest671
) end
4182 |
(767,(_
,(_
,_
,all_leading_first_specification1right
))::(_
,(_
,
4183 all_leading_first_specifications1left
,_
))::rest671
) => let val result
=
4185 in (hojfelds_NT
17,(result
,all_leading_first_specifications1left
,
4186 all_leading_first_specification1right
),rest671
) end
4187 |
(768,(_
,(_
,all_leading_first_specification1left
,
4188 all_leading_first_specification1right
))::rest671
) => let val result
=
4190 in (hojfelds_NT
17,(result
,all_leading_first_specification1left
,
4191 all_leading_first_specification1right
),rest671
) end
4192 |
(769,(_
,(_
,_
,before_after_phrase1right
))::_
::_
::(_
,(_
,
4193 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,_
4194 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
4195 in (hojfelds_NT
16,(result
,
4196 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,
4197 before_after_phrase1right
),rest671
) end
4198 |
(770,(_
,(_
,_
,output_procedure_or_giving_phrase1right
))::_
::_
::_
::_
::
4199 (_
,(_
,MERGE1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4200 in (hojfelds_NT
308,(result
,MERGE1left
,
4201 output_procedure_or_giving_phrase1right
),rest671
) end
4202 |
(771,(_
,(_
,_
,on_ascending_descending_key_phrase1right
))::(_
,(_
,
4203 on_ascending_descending_key_phrases1left
,_
))::rest671
) => let val
4204 result
=MlyValue
.ntVOID(())
4205 in (hojfelds_NT
337,(result
,on_ascending_descending_key_phrases1left
,
4206 on_ascending_descending_key_phrase1right
),rest671
) end
4207 |
(772,(_
,(_
,on_ascending_descending_key_phrase1left
,
4208 on_ascending_descending_key_phrase1right
))::rest671
) => let val result
4209 =MlyValue
.ntVOID(())
4210 in (hojfelds_NT
337,(result
,on_ascending_descending_key_phrase1left
,
4211 on_ascending_descending_key_phrase1right
),rest671
) end
4212 |
(773,(_
,(_
,_
,data_names1right
))::_
::_
::(_
,(_
,on1left
,_
))::rest671
)
4213 => let val result
=MlyValue
.ntVOID(())
4214 in (hojfelds_NT
336,(result
,on1left
,data_names1right
),rest671
) end
4215 |
(774,(_
,(_
,_
,alphabet_name1right
))::_
::_
::(_
,(_
,collating1left
,_
))::
4216 rest671
) => let val result
=MlyValue
.ntVOID(())
4217 in (hojfelds_NT
68,(result
,collating1left
,alphabet_name1right
),rest671
4219 |
(775,rest671
) => let val result
=MlyValue
.ntVOID(())
4220 in (hojfelds_NT
68,(result
,defaultPos
,defaultPos
),rest671
) end
4221 |
(776,(_
,(_
,_
,file_names1right
))::_
::(_
,(_
,USING1left
,_
))::rest671
)
4222 => let val result
=MlyValue
.ntVOID(())
4223 in (hojfelds_NT
515,(result
,USING1left
,file_names1right
),rest671
) end
4224 |
(777,(_
,(_
,output_procedure_phrase1left
,
4225 output_procedure_phrase1right
))::rest671
) => let val result
=
4227 in (hojfelds_NT
353,(result
,output_procedure_phrase1left
,
4228 output_procedure_phrase1right
),rest671
) end
4229 |
(778,(_
,(_
,giving_phrase1left
,giving_phrase1right
))::rest671
) =>
4230 let val result
=MlyValue
.ntVOID(())
4231 in (hojfelds_NT
353,(result
,giving_phrase1left
,giving_phrase1right
),
4233 |
(779,(_
,(_
,_
,procedure_range1right
))::_
::_
::(_
,(_
,OUTPUT1left
,_
))::
4234 rest671
) => let val result
=MlyValue
.ntVOID(())
4235 in (hojfelds_NT
354,(result
,OUTPUT1left
,procedure_range1right
),rest671
4237 |
(780,(_
,(_
,procedure_name1left
,procedure_name1right
))::rest671
) =>
4238 let val result
=MlyValue
.ntVOID(())
4239 in (hojfelds_NT
170,(result
,procedure_name1left
,procedure_name1right
),
4241 |
(781,(_
,(_
,_
,procedure_name2right
))::_
::(_
,(_
,procedure_name1left
,_
)
4242 )::rest671
) => let val result
=MlyValue
.ntVOID(())
4243 in (hojfelds_NT
170,(result
,procedure_name1left
,procedure_name2right
),
4245 |
(782,(_
,(_
,_
,file_names1right
))::(_
,(_
,GIVING1left
,_
))::rest671
) =>
4246 let val result
=MlyValue
.ntVOID(())
4247 in (hojfelds_NT
217,(result
,GIVING1left
,file_names1right
),rest671
) end
4248 |
(783,(_
,(MlyValue
.identifiers identifiers
,_
,identifiersright
as
4249 identifiers1right
))::_
::(_
,(MlyValue
.identifier_or_literal
4250 identifier_or_literal
,_
,_
))::(_
,(_
,MOVEleft
as MOVE1left
,_
))::rest671
)
4251 => let val result
=MlyValue
.move_statement((
4252 Cobol
.MOVE(identifier_or_literal
,identifiers
,
4253 MOVEleft
,identifiersright
)
4255 in (hojfelds_NT
314,(result
,MOVE1left
,identifiers1right
),rest671
) end
4256 |
(784,(_
,(MlyValue
.identifier identifier2
,_
,identifier2right
))::_
::(_
4257 ,(MlyValue
.identifier identifier1
,_
,identifierright
))::_
::(_
,(_
,
4258 MOVEleft
as MOVE1left
,_
))::rest671
) => let val result
=
4259 MlyValue
.move_statement((
4260 Cobol
.MOVECORRESPONDING(identifier1
,identifier2
,
4261 MOVEleft
,identifierright
)
4263 in (hojfelds_NT
314,(result
,MOVE1left
,identifier2right
),rest671
) end
4264 |
(785,(_
,(_
,_
,end_multiplyright
as end_multiply1right
))::(_
,(
4265 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
4266 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
4267 MlyValue
.identifier_or_literal identifier_or_literal
,_
,_
))::(_
,(_
,
4268 MULTIPLYleft
as MULTIPLY1left
,_
))::rest671
) => let val result
=
4269 MlyValue
.multiply_statement((
4270 Cobol
.MULTIPLY(identifier_or_literal
,identifier_roundeds
4271 ,size_error_clauses
,MULTIPLYleft
,end_multiplyright
)
4273 in (hojfelds_NT
317,(result
,MULTIPLY1left
,end_multiply1right
),rest671
)
4275 |
(786,(_
,(_
,_
,end_multiplyright
as end_multiply1right
))::(_
,(
4276 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
4277 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
4278 MlyValue
.identifier_or_literal identifier_or_literal2
,_
,_
))::_
::(_
,(
4279 MlyValue
.identifier_or_literal identifier_or_literal1
,_
,_
))::(_
,(_
,
4280 MULTIPLYleft
as MULTIPLY1left
,_
))::rest671
) => let val result
=
4281 MlyValue
.multiply_statement((
4282 Cobol
.MULTIPLY_GIVING(identifier_or_literal1
,identifier_or_literal2
4283 ,identifier_roundeds
,size_error_clauses
4284 ,MULTIPLYleft
,end_multiplyright
)
4286 in (hojfelds_NT
317,(result
,MULTIPLY1left
,end_multiply1right
),rest671
)
4288 |
(787,(_
,(_
,_
,io_phrases1right
))::(_
,(_
,OPEN1left
,_
))::rest671
) =>
4289 let val result
=MlyValue
.ntVOID(())
4290 in (hojfelds_NT
341,(result
,OPEN1left
,io_phrases1right
),rest671
) end
4291 |
(788,(_
,(_
,_
,io_phrase1right
))::(_
,(_
,io_phrases1left
,_
))::rest671
)
4292 => let val result
=MlyValue
.ntVOID(())
4293 in (hojfelds_NT
274,(result
,io_phrases1left
,io_phrase1right
),rest671
)
4295 |
(789,(_
,(_
,io_phrase1left
,io_phrase1right
))::rest671
) => let val
4296 result
=MlyValue
.ntVOID(())
4297 in (hojfelds_NT
274,(result
,io_phrase1left
,io_phrase1right
),rest671
)
4299 |
(790,(_
,(_
,_
,file_input_specifications1right
))::(_
,(_
,INPUT1left
,_
))
4300 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4301 in (hojfelds_NT
273,(result
,INPUT1left
,file_input_specifications1right
4303 |
(791,(_
,(_
,_
,file_output_specifications1right
))::(_
,(_
,OUTPUT1left
,_
4304 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
4305 in (hojfelds_NT
273,(result
,OUTPUT1left
,
4306 file_output_specifications1right
),rest671
) end
4307 |
(792,(_
,(_
,_
,file_names1right
))::(_
,(_
,IO1left
,_
))::rest671
) => let
4308 val result
=MlyValue
.ntVOID(())
4309 in (hojfelds_NT
273,(result
,IO1left
,file_names1right
),rest671
) end
4310 |
(793,(_
,(_
,_
,file_names1right
))::(_
,(_
,EXTEND1left
,_
))::rest671
) =>
4311 let val result
=MlyValue
.ntVOID(())
4312 in (hojfelds_NT
273,(result
,EXTEND1left
,file_names1right
),rest671
) end
4313 |
(794,(_
,(_
,_
,file_input_specification1right
))::(_
,(_
,
4314 file_input_specifications1left
,_
))::rest671
) => let val result
=
4316 in (hojfelds_NT
199,(result
,file_input_specifications1left
,
4317 file_input_specification1right
),rest671
) end
4318 |
(795,(_
,(_
,file_input_specification1left
,
4319 file_input_specification1right
))::rest671
) => let val result
=
4321 in (hojfelds_NT
199,(result
,file_input_specification1left
,
4322 file_input_specification1right
),rest671
) end
4323 |
(796,(_
,(_
,_
,file_input_specification_attribute1right
))::(_
,(_
,
4324 file_name1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4325 in (hojfelds_NT
197,(result
,file_name1left
,
4326 file_input_specification_attribute1right
),rest671
) end
4327 |
(797,(_
,(_
,REVERSED1left
,REVERSED1right
))::rest671
) => let val
4328 result
=MlyValue
.ntVOID(())
4329 in (hojfelds_NT
198,(result
,REVERSED1left
,REVERSED1right
),rest671
) end
4330 |
(798,(_
,(_
,_
,REWIND1right
))::_
::(_
,(_
,with1left
,_
))::rest671
) =>
4331 let val result
=MlyValue
.ntVOID(())
4332 in (hojfelds_NT
198,(result
,with1left
,REWIND1right
),rest671
) end
4333 |
(799,rest671
) => let val result
=MlyValue
.ntVOID(())
4334 in (hojfelds_NT
198,(result
,defaultPos
,defaultPos
),rest671
) end
4335 |
(800,(_
,(_
,_
,file_output_specification1right
))::(_
,(_
,
4336 file_output_specifications1left
,_
))::rest671
) => let val result
=
4338 in (hojfelds_NT
206,(result
,file_output_specifications1left
,
4339 file_output_specification1right
),rest671
) end
4340 |
(801,(_
,(_
,file_output_specification1left
,
4341 file_output_specification1right
))::rest671
) => let val result
=
4343 in (hojfelds_NT
206,(result
,file_output_specification1left
,
4344 file_output_specification1right
),rest671
) end
4345 |
(802,(_
,(_
,_
,file_output_specification_attribute1right
))::(_
,(_
,
4346 file_name1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4347 in (hojfelds_NT
204,(result
,file_name1left
,
4348 file_output_specification_attribute1right
),rest671
) end
4349 |
(803,(_
,(_
,_
,REWIND1right
))::_
::(_
,(_
,with1left
,_
))::rest671
) =>
4350 let val result
=MlyValue
.ntVOID(())
4351 in (hojfelds_NT
205,(result
,with1left
,REWIND1right
),rest671
) end
4352 |
(804,rest671
) => let val result
=MlyValue
.ntVOID(())
4353 in (hojfelds_NT
205,(result
,defaultPos
,defaultPos
),rest671
) end
4354 |
(805,(_
,(_
,_
,procedure_range1right
))::(_
,(_
,PERFORM1left
,_
))::
4355 rest671
) => let val result
=MlyValue
.ntVOID(())
4356 in (hojfelds_NT
360,(result
,PERFORM1left
,procedure_range1right
),
4358 |
(806,(_
,(_
,_
,times_phrase1right
))::_
::(_
,(_
,PERFORM1left
,_
))::
4359 rest671
) => let val result
=MlyValue
.ntVOID(())
4360 in (hojfelds_NT
360,(result
,PERFORM1left
,times_phrase1right
),rest671
)
4362 |
(807,(_
,(_
,_
,until_phrase1right
))::_
::(_
,(_
,PERFORM1left
,_
))::
4363 rest671
) => let val result
=MlyValue
.ntVOID(())
4364 in (hojfelds_NT
360,(result
,PERFORM1left
,until_phrase1right
),rest671
)
4366 |
(808,(_
,(_
,_
,test_varying_phrase1right
))::_
::(_
,(_
,PERFORM1left
,_
))
4367 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4368 in (hojfelds_NT
360,(result
,PERFORM1left
,test_varying_phrase1right
),
4370 |
(809,(_
,(_
,_
,TIMES1right
))::(_
,(_
,identifier_or_integer1left
,_
))::
4371 rest671
) => let val result
=MlyValue
.ntVOID(())
4372 in (hojfelds_NT
498,(result
,identifier_or_integer1left
,TIMES1right
),
4374 |
(810,(_
,(_
,_
,conditional_expression1right
))::(_
,(_
,UNTIL1left
,_
))::
4375 rest671
) => let val result
=MlyValue
.ntVOID(())
4376 in (hojfelds_NT
484,(result
,UNTIL1left
,conditional_expression1right
),
4378 |
(811,(_
,(_
,_
,after_phrases1right
))::_
::_
::_
::_
::_
::_
::_
::(_
,(_
,
4379 VARYING1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4380 in (hojfelds_NT
485,(result
,VARYING1left
,after_phrases1right
),rest671
)
4382 |
(812,(_
,(_
,_
,after_phrase1right
))::(_
,(_
,after_phrases1left
,_
))::
4383 rest671
) => let val result
=MlyValue
.ntVOID(())
4384 in (hojfelds_NT
14,(result
,after_phrases1left
,after_phrase1right
),
4386 |
(813,rest671
) => let val result
=MlyValue
.ntVOID(())
4387 in (hojfelds_NT
14,(result
,defaultPos
,defaultPos
),rest671
) end
4388 |
(814,(_
,(_
,_
,conditional_expression1right
))::_
::_
::_
::_
::_
::_
::(_
,(_
4389 ,AFTER1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4390 in (hojfelds_NT
13,(result
,AFTER1left
,conditional_expression1right
),
4392 |
(815,(_
,(_
,_
,end_read1right
))::_
::_
::_
::_
::_
::_
::(_
,(_
,READ1left
,_
))
4393 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4394 in (hojfelds_NT
377,(result
,READ1left
,end_read1right
),rest671
) end
4395 |
(816,(_
,(_
,_
,identifier1right
))::(_
,(_
,INTO1left
,_
))::rest671
) =>
4396 let val result
=MlyValue
.ntVOID(())
4397 in (hojfelds_NT
266,(result
,INTO1left
,identifier1right
),rest671
) end
4398 |
(817,rest671
) => let val result
=MlyValue
.ntVOID(())
4399 in (hojfelds_NT
266,(result
,defaultPos
,defaultPos
),rest671
) end
4400 |
(818,(_
,(_
,_
,data_name1right
))::_
::(_
,(_
,KEY1left
,_
))::rest671
) =>
4401 let val result
=MlyValue
.ntVOID(())
4402 in (hojfelds_NT
283,(result
,KEY1left
,data_name1right
),rest671
) end
4403 |
(819,rest671
) => let val result
=MlyValue
.ntVOID(())
4404 in (hojfelds_NT
283,(result
,defaultPos
,defaultPos
),rest671
) end
4405 |
(820,(_
,(_
,end_error_clauses1left
,end_error_clauses1right
))::rest671
4406 ) => let val result
=MlyValue
.ntVOID(())
4407 in (hojfelds_NT
141,(result
,end_error_clauses1left
,
4408 end_error_clauses1right
),rest671
) end
4409 |
(821,(_
,(_
,invalid_key_error_clauses1left
,
4410 invalid_key_error_clauses1right
))::rest671
) => let val result
=
4412 in (hojfelds_NT
141,(result
,invalid_key_error_clauses1left
,
4413 invalid_key_error_clauses1right
),rest671
) end
4414 |
(822,(_
,(_
,_
,not_end_error_clause1right
))::(_
,(_
,
4415 end_error_clause1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(
4417 in (hojfelds_NT
137,(result
,end_error_clause1left
,
4418 not_end_error_clause1right
),rest671
) end
4419 |
(823,(_
,(_
,_
,imperative_statement1right
))::_
::(_
,(_
,at1left
,_
))::
4420 rest671
) => let val result
=MlyValue
.ntVOID(())
4421 in (hojfelds_NT
136,(result
,at1left
,imperative_statement1right
),
4423 |
(824,(_
,(_
,_
,imperative_statement1right
))::_
::_
::(_
,(_
,NOT1left
,_
))
4424 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4425 in (hojfelds_NT
321,(result
,NOT1left
,imperative_statement1right
),
4427 |
(825,rest671
) => let val result
=MlyValue
.ntVOID(())
4428 in (hojfelds_NT
321,(result
,defaultPos
,defaultPos
),rest671
) end
4429 |
(826,(_
,(_
,_
,from_identifier1right
))::_
::(_
,(_
,RELEASE1left
,_
))::
4430 rest671
) => let val result
=MlyValue
.ntVOID(())
4431 in (hojfelds_NT
400,(result
,RELEASE1left
,from_identifier1right
),
4433 |
(827,(_
,(_
,_
,identifier1right
))::(_
,(_
,FROM1left
,_
))::rest671
) =>
4434 let val result
=MlyValue
.ntVOID(())
4435 in (hojfelds_NT
216,(result
,FROM1left
,identifier1right
),rest671
) end
4436 |
(828,rest671
) => let val result
=MlyValue
.ntVOID(())
4437 in (hojfelds_NT
216,(result
,defaultPos
,defaultPos
),rest671
) end
4438 |
(829,(_
,(_
,_
,end_return1right
))::_
::_
::_
::_
::(_
,(_
,RETURN1left
,_
))::
4439 rest671
) => let val result
=MlyValue
.ntVOID(())
4440 in (hojfelds_NT
411,(result
,RETURN1left
,end_return1right
),rest671
) end
4441 |
(830,(_
,(_
,_
,end_rewrite1right
))::_
::_
::_
::(_
,(_
,REWRITE1left
,_
))::
4442 rest671
) => let val result
=MlyValue
.ntVOID(())
4443 in (hojfelds_NT
412,(result
,REWRITE1left
,end_rewrite1right
),rest671
)
4445 |
(831,(_
,(_
,_
,end_search1right
))::_
::_
::_
::_
::(_
,(_
,SEARCH1left
,_
))::
4446 rest671
) => let val result
=MlyValue
.ntVOID(())
4447 in (hojfelds_NT
421,(result
,SEARCH1left
,end_search1right
),rest671
) end
4448 |
(832,(_
,(_
,_
,end_search1right
))::_
::_
::_
::_
::_
::_
::(_
,(_
,SEARCH1left
4449 ,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4450 in (hojfelds_NT
421,(result
,SEARCH1left
,end_search1right
),rest671
) end
4451 |
(833,(_
,(_
,_
,identifier1right
))::(_
,(_
,VARYING1left
,_
))::rest671
)
4452 => let val result
=MlyValue
.ntVOID(())
4453 in (hojfelds_NT
523,(result
,VARYING1left
,identifier1right
),rest671
)
4455 |
(834,rest671
) => let val result
=MlyValue
.ntVOID(())
4456 in (hojfelds_NT
523,(result
,defaultPos
,defaultPos
),rest671
) end
4457 |
(835,(_
,(_
,end_error_clause1left
,end_error_clause1right
))::rest671
)
4458 => let val result
=MlyValue
.ntVOID(())
4459 in (hojfelds_NT
173,(result
,end_error_clause1left
,
4460 end_error_clause1right
),rest671
) end
4461 |
(836,rest671
) => let val result
=MlyValue
.ntVOID(())
4462 in (hojfelds_NT
173,(result
,defaultPos
,defaultPos
),rest671
) end
4463 |
(837,(_
,(_
,_
,search_when_phrase1right
))::(_
,(_
,
4464 search_when_phrases1left
,_
))::rest671
) => let val result
=
4466 in (hojfelds_NT
172,(result
,search_when_phrases1left
,
4467 search_when_phrase1right
),rest671
) end
4468 |
(838,(_
,(_
,search_when_phrase1left
,search_when_phrase1right
))::
4469 rest671
) => let val result
=MlyValue
.ntVOID(())
4470 in (hojfelds_NT
172,(result
,search_when_phrase1left
,
4471 search_when_phrase1right
),rest671
) end
4472 |
(839,(_
,(_
,_
,then_statement1right
))::_
::(_
,(_
,WHEN1left
,_
))::rest671
4473 ) => let val result
=MlyValue
.ntVOID(())
4474 in (hojfelds_NT
174,(result
,WHEN1left
,then_statement1right
),rest671
)
4476 |
(840,(_
,(_
,_
,identifier_or_integer1right
))::_
::_
::(_
,(_
,SET1left
,_
))
4477 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4478 in (hojfelds_NT
435,(result
,SET1left
,identifier_or_integer1right
),
4480 |
(841,(_
,(_
,_
,identifier_or_integer1right
))::_
::_
::(_
,(_
,SET1left
,_
))
4481 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4482 in (hojfelds_NT
435,(result
,SET1left
,identifier_or_integer1right
),
4484 |
(842,(_
,(_
,_
,mnemonic_switches1right
))::(_
,(_
,SET1left
,_
))::rest671
)
4485 => let val result
=MlyValue
.ntVOID(())
4486 in (hojfelds_NT
435,(result
,SET1left
,mnemonic_switches1right
),rest671
)
4488 |
(843,(_
,(_
,_
,TRUE1right
))::_
::_
::(_
,(_
,SET1left
,_
))::rest671
) =>
4489 let val result
=MlyValue
.ntVOID(())
4490 in (hojfelds_NT
435,(result
,SET1left
,TRUE1right
),rest671
) end
4491 |
(844,(_
,(_
,_
,BY1right
))::(_
,(_
,UP1left
,_
))::rest671
) => let val
4492 result
=MlyValue
.ntVOID(())
4493 in (hojfelds_NT
505,(result
,UP1left
,BY1right
),rest671
) end
4494 |
(845,(_
,(_
,_
,BY1right
))::(_
,(_
,DOWN1left
,_
))::rest671
) => let val
4495 result
=MlyValue
.ntVOID(())
4496 in (hojfelds_NT
505,(result
,DOWN1left
,BY1right
),rest671
) end
4497 |
(846,(_
,(_
,_
,mnemonic_switch1right
))::(_
,(_
,mnemonic_switches1left
,_
4498 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
4499 in (hojfelds_NT
312,(result
,mnemonic_switches1left
,
4500 mnemonic_switch1right
),rest671
) end
4501 |
(847,(_
,(_
,mnemonic_switch1left
,mnemonic_switch1right
))::rest671
)
4502 => let val result
=MlyValue
.ntVOID(())
4503 in (hojfelds_NT
312,(result
,mnemonic_switch1left
,mnemonic_switch1right
4505 |
(848,(_
,(_
,_
,on_off1right
))::_
::(_
,(_
,identifiers1left
,_
))::rest671
)
4506 => let val result
=MlyValue
.ntVOID(())
4507 in (hojfelds_NT
311,(result
,identifiers1left
,on_off1right
),rest671
)
4509 |
(849,(_
,(_
,ON1left
,ON1right
))::rest671
) => let val result
=
4511 in (hojfelds_NT
338,(result
,ON1left
,ON1right
),rest671
) end
4512 |
(850,(_
,(_
,OFF1left
,OFF1right
))::rest671
) => let val result
=
4514 in (hojfelds_NT
338,(result
,OFF1left
,OFF1right
),rest671
) end
4515 |
(851,(_
,(_
,_
,output_procedure_or_giving_phrase1right
))::_
::_
::_
::_
::
4516 (_
,(_
,SORT1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4517 in (hojfelds_NT
448,(result
,SORT1left
,
4518 output_procedure_or_giving_phrase1right
),rest671
) end
4519 |
(852,(_
,(_
,input_procedure_phrase1left
,input_procedure_phrase1right
)
4520 )::rest671
) => let val result
=MlyValue
.ntVOID(())
4521 in (hojfelds_NT
176,(result
,input_procedure_phrase1left
,
4522 input_procedure_phrase1right
),rest671
) end
4523 |
(853,(_
,(_
,sort_using_phrase1left
,sort_using_phrase1right
))::rest671
4524 ) => let val result
=MlyValue
.ntVOID(())
4525 in (hojfelds_NT
176,(result
,sort_using_phrase1left
,
4526 sort_using_phrase1right
),rest671
) end
4527 |
(854,(_
,(_
,_
,procedure_range1right
))::_
::_
::(_
,(_
,INPUT1left
,_
))::
4528 rest671
) => let val result
=MlyValue
.ntVOID(())
4529 in (hojfelds_NT
261,(result
,INPUT1left
,procedure_range1right
),rest671
)
4531 |
(855,(_
,(_
,_
,file_names1right
))::(_
,(_
,USING1left
,_
))::rest671
) =>
4532 let val result
=MlyValue
.ntVOID(())
4533 in (hojfelds_NT
175,(result
,USING1left
,file_names1right
),rest671
) end
4534 |
(856,(_
,(_
,_
,end_start1right
))::_
::_
::_
::(_
,(_
,START1left
,_
))::
4535 rest671
) => let val result
=MlyValue
.ntVOID(())
4536 in (hojfelds_NT
457,(result
,START1left
,end_start1right
),rest671
) end
4537 |
(857,(_
,(_
,_
,qdata_names1right
))::_
::_
::(_
,(_
,KEY1left
,_
))::rest671
)
4538 => let val result
=MlyValue
.ntVOID(())
4539 in (hojfelds_NT
284,(result
,KEY1left
,qdata_names1right
),rest671
) end
4540 |
(858,rest671
) => let val result
=MlyValue
.ntVOID(())
4541 in (hojfelds_NT
284,(result
,defaultPos
,defaultPos
),rest671
) end
4542 |
(859,(_
,(_
,_
,RUN1right
))::(_
,(_
,STOP1left
,_
))::rest671
) => let val
4543 result
=MlyValue
.ntVOID(())
4544 in (hojfelds_NT
466,(result
,STOP1left
,RUN1right
),rest671
) end
4545 |
(860,(_
,(_
,_
,literal1right
))::(_
,(_
,STOP1left
,_
))::rest671
) => let
4546 val result
=MlyValue
.ntVOID(())
4547 in (hojfelds_NT
466,(result
,STOP1left
,literal1right
),rest671
) end
4548 |
(861,(_
,(_
,_
,end_string1right
))::_
::_
::_
::_
::_
::(_
,(_
,STRING1left
,_
)
4549 )::rest671
) => let val result
=MlyValue
.ntVOID(())
4550 in (hojfelds_NT
469,(result
,STRING1left
,end_string1right
),rest671
) end
4551 |
(862,(_
,(_
,_
,string_specification1right
))::(_
,(_
,
4552 string_specifications1left
,_
))::rest671
) => let val result
=
4554 in (hojfelds_NT
468,(result
,string_specifications1left
,
4555 string_specification1right
),rest671
) end
4556 |
(863,(_
,(_
,string_specification1left
,string_specification1right
))::
4557 rest671
) => let val result
=MlyValue
.ntVOID(())
4558 in (hojfelds_NT
468,(result
,string_specification1left
,
4559 string_specification1right
),rest671
) end
4560 |
(864,(_
,(_
,_
,identifier_literal_size1right
))::_
::_
::(_
,(_
,
4561 identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left
,
4562 _
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4563 in (hojfelds_NT
467,(result
,
4564 identifier_or_nonnumeric_literal_or_not_all_figurative_constants1left
,
4565 identifier_literal_size1right
),rest671
) end
4567 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,
4568 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
4569 )::rest671
) => let val result
=MlyValue
.ntVOID(())
4570 in (hojfelds_NT
231,(result
,
4571 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1left
,
4572 identifier_or_nonnumeric_literal_or_not_all_figurative_constant1right
)
4574 |
(866,(_
,(_
,SIZE1left
,SIZE1right
))::rest671
) => let val result
=
4576 in (hojfelds_NT
231,(result
,SIZE1left
,SIZE1right
),rest671
) end
4577 |
(867,(_
,(_
,_
,identifier1right
))::_
::(_
,(_
,with1left
,_
))::rest671
)
4578 => let val result
=MlyValue
.ntVOID(())
4579 in (hojfelds_NT
364,(result
,with1left
,identifier1right
),rest671
) end
4580 |
(868,rest671
) => let val result
=MlyValue
.ntVOID(())
4581 in (hojfelds_NT
364,(result
,defaultPos
,defaultPos
),rest671
) end
4582 |
(869,(_
,(_
,_
,imperative_statement1right
))::_
::(_
,(_
,on1left
,_
))::
4583 rest671
) => let val result
=MlyValue
.ntVOID(())
4584 in (hojfelds_NT
355,(result
,on1left
,imperative_statement1right
),
4586 |
(870,rest671
) => let val result
=MlyValue
.ntVOID(())
4587 in (hojfelds_NT
355,(result
,defaultPos
,defaultPos
),rest671
) end
4588 |
(871,(_
,(_
,_
,end_subtractright
as end_subtract1right
))::(_
,(
4589 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
4590 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
4591 MlyValue
.identifier_or_literals identifier_or_literals
,_
,_
))::(_
,(_
,
4592 SUBTRACTleft
as SUBTRACT1left
,_
))::rest671
) => let val result
=
4593 MlyValue
.subtract_statement((
4594 Cobol
.ADD_OR_SUBTRACT
4595 (Cobol
.SUBTRACT
,identifier_or_literals
,identifier_roundeds
,
4597 SUBTRACTleft
,end_subtractright
)
4599 in (hojfelds_NT
473,(result
,SUBTRACT1left
,end_subtract1right
),rest671
)
4601 |
(872,(_
,(_
,_
,end_subtractright
as end_subtract1right
))::(_
,(
4602 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
4603 MlyValue
.identifier_roundeds identifier_roundeds
,_
,_
))::_
::(_
,(
4604 MlyValue
.identifier_or_literal identifier_or_literal
,_
,_
))::_
::(_
,(
4605 MlyValue
.identifier_or_literals identifier_or_literals
,_
,_
))::(_
,(_
,
4606 SUBTRACTleft
as SUBTRACT1left
,_
))::rest671
) => let val result
=
4607 MlyValue
.subtract_statement((
4608 Cobol
.ADD_OR_SUBTRACT_GIVING
4609 (Cobol
.SUBTRACT
,identifier_or_literals
,identifier_or_literal
,
4610 identifier_roundeds
,
4611 size_error_clauses
,SUBTRACTleft
,end_subtractright
)
4613 in (hojfelds_NT
473,(result
,SUBTRACT1left
,end_subtract1right
),rest671
)
4615 |
(873,(_
,(_
,_
,end_subtractright
as end_subtract1right
))::(_
,(
4616 MlyValue
.size_error_clauses size_error_clauses
,_
,_
))::(_
,(
4617 MlyValue
.rounded rounded
,_
,_
))::(_
,(MlyValue
.identifier identifier2
,_
,
4618 _
))::_
::(_
,(MlyValue
.identifier identifier1
,_
,_
))::_
::(_
,(_
,
4619 SUBTRACTleft
as SUBTRACT1left
,_
))::rest671
) => let val result
=
4620 MlyValue
.subtract_statement((
4621 Cobol
.ADD_OR_SUBTRACT_CORRESPONDING
4622 (Cobol
.SUBTRACT
,identifier1
,identifier2
,rounded
,
4623 size_error_clauses
,SUBTRACTleft
,end_subtractright
)
4625 in (hojfelds_NT
473,(result
,SUBTRACT1left
,end_subtract1right
),rest671
)
4627 |
(874,(_
,(_
,_
,TRACE1right
))::(_
,(_
,READY1left
,_
))::rest671
) => let
4628 val result
=MlyValue
.ntVOID(())
4629 in (hojfelds_NT
503,(result
,READY1left
,TRACE1right
),rest671
) end
4630 |
(875,(_
,(_
,_
,TRACE1right
))::(_
,(_
,RESET1left
,_
))::rest671
) => let
4631 val result
=MlyValue
.ntVOID(())
4632 in (hojfelds_NT
503,(result
,RESET1left
,TRACE1right
),rest671
) end
4633 |
(876,(_
,(_
,_
,end_unstring1right
))::_
::_
::_
::_
::_
::_
::(_
,(_
,
4634 UNSTRING1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4635 in (hojfelds_NT
504,(result
,UNSTRING1left
,end_unstring1right
),rest671
)
4637 |
(877,(_
,(_
,_
,delimited_by_specifications1right
))::_
::(_
,(_
,
4638 DELIMITED1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4639 in (hojfelds_NT
124,(result
,DELIMITED1left
,
4640 delimited_by_specifications1right
),rest671
) end
4641 |
(878,rest671
) => let val result
=MlyValue
.ntVOID(())
4642 in (hojfelds_NT
124,(result
,defaultPos
,defaultPos
),rest671
) end
4643 |
(879,(_
,(_
,_
,delimited_by_specifications2right
))::_
::(_
,(_
,
4644 delimited_by_specifications1left
,_
))::rest671
) => let val result
=
4646 in (hojfelds_NT
177,(result
,delimited_by_specifications1left
,
4647 delimited_by_specifications2right
),rest671
) end
4648 |
(880,(_
,(_
,_
,identifier_or_literal1right
))::(_
,(_
,all1left
,_
))::
4649 rest671
) => let val result
=MlyValue
.ntVOID(())
4650 in (hojfelds_NT
177,(result
,all1left
,identifier_or_literal1right
),
4652 |
(881,(_
,(_
,_
,into_specifications1right
))::(_
,(_
,INTO1left
,_
))::
4653 rest671
) => let val result
=MlyValue
.ntVOID(())
4654 in (hojfelds_NT
267,(result
,INTO1left
,into_specifications1right
),
4656 |
(882,(_
,(_
,_
,into_specification1right
))::(_
,(_
,
4657 into_specifications1left
,_
))::rest671
) => let val result
=
4659 in (hojfelds_NT
269,(result
,into_specifications1left
,
4660 into_specification1right
),rest671
) end
4661 |
(883,(_
,(_
,into_specification1left
,into_specification1right
))::
4662 rest671
) => let val result
=MlyValue
.ntVOID(())
4663 in (hojfelds_NT
269,(result
,into_specification1left
,
4664 into_specification1right
),rest671
) end
4665 |
(884,(_
,(_
,_
,count_specification1right
))::_
::(_
,(_
,identifier1left
,_
4666 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
4667 in (hojfelds_NT
268,(result
,identifier1left
,count_specification1right
)
4669 |
(885,(_
,(_
,_
,identifier1right
))::_
::(_
,(_
,DELIMITER1left
,_
))::
4670 rest671
) => let val result
=MlyValue
.ntVOID(())
4671 in (hojfelds_NT
125,(result
,DELIMITER1left
,identifier1right
),rest671
)
4673 |
(886,rest671
) => let val result
=MlyValue
.ntVOID(())
4674 in (hojfelds_NT
125,(result
,defaultPos
,defaultPos
),rest671
) end
4675 |
(887,(_
,(_
,_
,identifier1right
))::_
::(_
,(_
,COUNT1left
,_
))::rest671
)
4676 => let val result
=MlyValue
.ntVOID(())
4677 in (hojfelds_NT
83,(result
,COUNT1left
,identifier1right
),rest671
) end
4678 |
(888,rest671
) => let val result
=MlyValue
.ntVOID(())
4679 in (hojfelds_NT
83,(result
,defaultPos
,defaultPos
),rest671
) end
4680 |
(889,(_
,(_
,_
,identifier1right
))::_
::(_
,(_
,TALLYING1left
,_
))::rest671
4681 ) => let val result
=MlyValue
.ntVOID(())
4682 in (hojfelds_NT
479,(result
,TALLYING1left
,identifier1right
),rest671
)
4684 |
(890,rest671
) => let val result
=MlyValue
.ntVOID(())
4685 in (hojfelds_NT
479,(result
,defaultPos
,defaultPos
),rest671
) end
4686 |
(891,(_
,(_
,_
,io_specification1right
))::_
::_
::_
::_
::_
::(_
,(_
,USE1left
4687 ,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4688 in (hojfelds_NT
511,(result
,USE1left
,io_specification1right
),rest671
)
4690 |
(892,(_
,(_
,_
,procedure_specification1right
))::_
::_
::_
::(_
,(_
,
4691 USE1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4692 in (hojfelds_NT
511,(result
,USE1left
,procedure_specification1right
),
4694 |
(893,(_
,(_
,_
,PROCEDURES1right
))::(_
,(_
,ALL1left
,_
))::rest671
) =>
4695 let val result
=MlyValue
.ntVOID(())
4696 in (hojfelds_NT
171,(result
,ALL1left
,PROCEDURES1right
),rest671
) end
4697 |
(894,(_
,(_
,_
,procedure_names1right
))::_
::(_
,(_
,ALL1left
,_
))::rest671
4698 ) => let val result
=MlyValue
.ntVOID(())
4699 in (hojfelds_NT
171,(result
,ALL1left
,procedure_names1right
),rest671
)
4701 |
(895,(_
,(_
,procedure_names1left
,procedure_names1right
))::rest671
)
4702 => let val result
=MlyValue
.ntVOID(())
4703 in (hojfelds_NT
171,(result
,procedure_names1left
,procedure_names1right
4705 |
(896,(_
,(_
,EXCEPTION1left
,EXCEPTION1right
))::rest671
) => let val
4706 result
=MlyValue
.ntVOID(())
4707 in (hojfelds_NT
160,(result
,EXCEPTION1left
,EXCEPTION1right
),rest671
)
4709 |
(897,(_
,(_
,ERROR1left
,ERROR1right
))::rest671
) => let val result
=
4711 in (hojfelds_NT
160,(result
,ERROR1left
,ERROR1right
),rest671
) end
4712 |
(898,(_
,(_
,file_names1left
,file_names1right
))::rest671
) => let val
4713 result
=MlyValue
.ntVOID(())
4714 in (hojfelds_NT
275,(result
,file_names1left
,file_names1right
),rest671
)
4716 |
(899,(_
,(_
,INPUT1left
,INPUT1right
))::rest671
) => let val result
=
4718 in (hojfelds_NT
275,(result
,INPUT1left
,INPUT1right
),rest671
) end
4719 |
(900,(_
,(_
,OUTPUT1left
,OUTPUT1right
))::rest671
) => let val result
=
4721 in (hojfelds_NT
275,(result
,OUTPUT1left
,OUTPUT1right
),rest671
) end
4722 |
(901,(_
,(_
,IO1left
,IO1right
))::rest671
) => let val result
=
4724 in (hojfelds_NT
275,(result
,IO1left
,IO1right
),rest671
) end
4725 |
(902,(_
,(_
,EXTEND1left
,EXTEND1right
))::rest671
) => let val result
=
4727 in (hojfelds_NT
275,(result
,EXTEND1left
,EXTEND1right
),rest671
) end
4728 |
(903,(_
,(_
,_
,end_write1right
))::_
::_
::_
::_
::_
::_
::_
::_
::(_
,(_
,
4729 WRITE1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4730 in (hojfelds_NT
530,(result
,WRITE1left
,end_write1right
),rest671
) end
4731 |
(904,(_
,(_
,_
,end_write1right
))::_
::_
::_
::_
::_
::(_
,(_
,WRITE1left
,_
))
4732 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4733 in (hojfelds_NT
530,(result
,WRITE1left
,end_write1right
),rest671
) end
4734 |
(905,(_
,(_
,_
,identifier_or_literal1right
))::_
::(_
,(_
,FORMAT1left
,_
))
4735 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4736 in (hojfelds_NT
531,(result
,FORMAT1left
,identifier_or_literal1right
),
4738 |
(906,rest671
) => let val result
=MlyValue
.ntVOID(())
4739 in (hojfelds_NT
531,(result
,defaultPos
,defaultPos
),rest671
) end
4740 |
(907,(_
,(_
,_
,identifier_or_literal1right
))::_
::(_
,(_
,TERMINAL1left
,_
4741 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
4742 in (hojfelds_NT
532,(result
,TERMINAL1left
,identifier_or_literal1right
)
4744 |
(908,rest671
) => let val result
=MlyValue
.ntVOID(())
4745 in (hojfelds_NT
532,(result
,defaultPos
,defaultPos
),rest671
) end
4746 |
(909,(_
,(_
,_
,identifier_or_literal1right
))::_
::(_
,(_
,STARTING1left
,_
4747 ))::rest671
) => let val result
=MlyValue
.ntVOID(())
4748 in (hojfelds_NT
533,(result
,STARTING1left
,identifier_or_literal1right
)
4750 |
(910,rest671
) => let val result
=MlyValue
.ntVOID(())
4751 in (hojfelds_NT
533,(result
,defaultPos
,defaultPos
),rest671
) end
4752 |
(911,(_
,(_
,AT1left
,AT1right
))::rest671
) => let val result
=
4754 in (hojfelds_NT
536,(result
,AT1left
,AT1right
),rest671
) end
4755 |
(912,(_
,(_
,LINE1left
,LINE1right
))::rest671
) => let val result
=
4757 in (hojfelds_NT
536,(result
,LINE1left
,LINE1right
),rest671
) end
4758 |
(913,(_
,(_
,_
,LINE1right
))::(_
,(_
,AT1left
,_
))::rest671
) => let val
4759 result
=MlyValue
.ntVOID(())
4760 in (hojfelds_NT
536,(result
,AT1left
,LINE1right
),rest671
) end
4761 |
(914,rest671
) => let val result
=MlyValue
.ntVOID(())
4762 in (hojfelds_NT
536,(result
,defaultPos
,defaultPos
),rest671
) end
4763 |
(915,(_
,(_
,_
,lines_pages_specification1right
))::(_
,(_
,advancing1left
4764 ,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4765 in (hojfelds_NT
12,(result
,advancing1left
,
4766 lines_pages_specification1right
),rest671
) end
4767 |
(916,rest671
) => let val result
=MlyValue
.ntVOID(())
4768 in (hojfelds_NT
12,(result
,defaultPos
,defaultPos
),rest671
) end
4769 |
(917,(_
,(_
,_
,line_or_lines2right
))::_
::_
::_
::_
::_
::_
::(_
,(_
,
4770 ROLLING1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4771 in (hojfelds_NT
534,(result
,ROLLING1left
,line_or_lines2right
),rest671
)
4773 |
(918,rest671
) => let val result
=MlyValue
.ntVOID(())
4774 in (hojfelds_NT
534,(result
,defaultPos
,defaultPos
),rest671
) end
4775 |
(919,(_
,(_
,_
,rolling_phrase1right
))::_
::(_
,(_
,before_after1left
,_
))
4776 ::rest671
) => let val result
=MlyValue
.ntVOID(())
4777 in (hojfelds_NT
540,(result
,before_after1left
,rolling_phrase1right
),
4779 |
(920,rest671
) => let val result
=MlyValue
.ntVOID(())
4780 in (hojfelds_NT
540,(result
,defaultPos
,defaultPos
),rest671
) end
4781 |
(921,(_
,(_
,_
,identifier1right
))::_
::(_
,(_
,indicator1left
,_
))::
4782 rest671
) => let val result
=MlyValue
.ntVOID(())
4783 in (hojfelds_NT
535,(result
,indicator1left
,identifier1right
),rest671
)
4785 |
(922,rest671
) => let val result
=MlyValue
.ntVOID(())
4786 in (hojfelds_NT
535,(result
,defaultPos
,defaultPos
),rest671
) end
4787 |
(923,(_
,(_
,IS1left
,IS1right
))::rest671
) => let val result
=
4789 in (hojfelds_NT
538,(result
,IS1left
,IS1right
),rest671
) end
4790 |
(924,(_
,(_
,ARE1left
,ARE1right
))::rest671
) => let val result
=
4792 in (hojfelds_NT
538,(result
,ARE1left
,ARE1right
),rest671
) end
4793 |
(925,rest671
) => let val result
=MlyValue
.ntVOID(())
4794 in (hojfelds_NT
538,(result
,defaultPos
,defaultPos
),rest671
) end
4795 |
(926,(_
,(_
,through1left
,through1right
))::rest671
) => let val result
=
4797 in (hojfelds_NT
537,(result
,through1left
,through1right
),rest671
) end
4798 |
(927,rest671
) => let val result
=MlyValue
.ntVOID(())
4799 in (hojfelds_NT
537,(result
,defaultPos
,defaultPos
),rest671
) end
4800 |
(928,(_
,(_
,_
,line_or_lines1right
))::(_
,(_
,identifier1left
,_
))::
4801 rest671
) => let val result
=MlyValue
.ntVOID(())
4802 in (hojfelds_NT
296,(result
,identifier1left
,line_or_lines1right
),
4804 |
(929,(_
,(_
,_
,line_or_lines1right
))::(_
,(_
,INTEGER1left
,_
))::rest671
)
4805 => let val result
=MlyValue
.ntVOID(())
4806 in (hojfelds_NT
296,(result
,INTEGER1left
,line_or_lines1right
),rest671
)
4808 |
(930,(_
,(_
,PAGE1left
,PAGE1right
))::rest671
) => let val result
=
4810 in (hojfelds_NT
296,(result
,PAGE1left
,PAGE1right
),rest671
) end
4811 |
(931,(_
,(_
,_
,imperative_statement1right
))::_
::(_
,(_
,AT1left
,_
))::
4812 rest671
) => let val result
=MlyValue
.ntVOID(())
4813 in (hojfelds_NT
156,(result
,AT1left
,imperative_statement1right
),
4815 |
(932,rest671
) => let val result
=MlyValue
.ntVOID(())
4816 in (hojfelds_NT
156,(result
,defaultPos
,defaultPos
),rest671
) end
4817 |
(933,(_
,(_
,ENDOFPAGE1left
,ENDOFPAGE1right
))::rest671
) => let val
4818 result
=MlyValue
.ntVOID(())
4819 in (hojfelds_NT
140,(result
,ENDOFPAGE1left
,ENDOFPAGE1right
),rest671
)
4821 |
(934,(_
,(_
,EOP1left
,EOP1right
))::rest671
) => let val result
=
4823 in (hojfelds_NT
140,(result
,EOP1left
,EOP1right
),rest671
) end
4824 |
(935,(_
,(_
,_
,copy_replacing_phrase1right
))::_
::_
::(_
,(_
,COPY1left
,_
)
4825 )::rest671
) => let val result
=MlyValue
.ntVOID(())
4826 in (hojfelds_NT
81,(result
,COPY1left
,copy_replacing_phrase1right
),
4828 |
(936,(_
,(_
,_
,library_name1right
))::(_
,(_
,OF1left
,_
))::rest671
) =>
4829 let val result
=MlyValue
.ntVOID(())
4830 in (hojfelds_NT
292,(result
,OF1left
,library_name1right
),rest671
) end
4831 |
(937,(_
,(_
,_
,library_name1right
))::(_
,(_
,IN1left
,_
))::rest671
) =>
4832 let val result
=MlyValue
.ntVOID(())
4833 in (hojfelds_NT
292,(result
,IN1left
,library_name1right
),rest671
) end
4834 |
(938,rest671
) => let val result
=MlyValue
.ntVOID(())
4835 in (hojfelds_NT
292,(result
,defaultPos
,defaultPos
),rest671
) end
4836 |
(939,(_
,(_
,_
,copy_replacing_specifications1right
))::(_
,(_
,
4837 REPLACING1left
,_
))::rest671
) => let val result
=MlyValue
.ntVOID(())
4838 in (hojfelds_NT
178,(result
,REPLACING1left
,
4839 copy_replacing_specifications1right
),rest671
) end
4840 |
(940,rest671
) => let val result
=MlyValue
.ntVOID(())
4841 in (hojfelds_NT
178,(result
,defaultPos
,defaultPos
),rest671
) end
4842 |
(941,(_
,(_
,_
,copy_replacing_specification1right
))::(_
,(_
,
4843 copy_replacing_specifications1left
,_
))::rest671
) => let val result
=
4845 in (hojfelds_NT
179,(result
,copy_replacing_specifications1left
,
4846 copy_replacing_specification1right
),rest671
) end
4847 |
(942,(_
,(_
,copy_replacing_specification1left
,
4848 copy_replacing_specification1right
))::rest671
) => let val result
=
4850 in (hojfelds_NT
179,(result
,copy_replacing_specification1left
,
4851 copy_replacing_specification1right
),rest671
) end
4852 |
(943,(_
,(_
,_
,operand2right
))::_
::(_
,(_
,operand1left
,_
))::rest671
)
4853 => let val result
=MlyValue
.ntVOID(())
4854 in (hojfelds_NT
180,(result
,operand1left
,operand2right
),rest671
) end
4855 |
(944,(_
,(_
,identifier1left
,identifier1right
))::rest671
) => let val
4856 result
=MlyValue
.ntVOID(())
4857 in (hojfelds_NT
342,(result
,identifier1left
,identifier1right
),rest671
)
4859 |
(945,(_
,(_
,literal1left
,literal1right
))::rest671
) => let val result
=
4861 in (hojfelds_NT
342,(result
,literal1left
,literal1right
),rest671
) end
4862 |
(946,(_
,(_
,PSEUDOTEXT1left
,PSEUDOTEXT1right
))::rest671
) => let val
4863 result
=MlyValue
.ntVOID(())
4864 in (hojfelds_NT
342,(result
,PSEUDOTEXT1left
,PSEUDOTEXT1right
),rest671
)
4866 | _
=> raise Hojfeld
"_" (*(mlyAction i392
)*)
4868 val void
= MlyValue
.VOID
4869 val extract
= fn a
=> (fn MlyValue
.test_cobol x
=> x
4870 | _
=> let exception ParseInternal
4871 in raise ParseInternal
end) a
HCoop / hcoop / debian / mlton.git / blob