28194 lines
741 KiB
Plaintext
28194 lines
741 KiB
Plaintext
Terminals unused in grammar
|
|
|
|
LOW_PREC
|
|
ZERONUM
|
|
COMMENTING
|
|
END_OF_PAGE
|
|
ONLY
|
|
PADDING
|
|
PROCEED
|
|
TOKDUMMY
|
|
|
|
|
|
State 136 conflicts: 7 shift/reduce
|
|
State 151 conflicts: 2 shift/reduce
|
|
State 165 conflicts: 7 shift/reduce
|
|
State 172 conflicts: 1 shift/reduce
|
|
State 242 conflicts: 2 shift/reduce
|
|
State 288 conflicts: 2 shift/reduce
|
|
State 305 conflicts: 1 shift/reduce
|
|
State 391 conflicts: 1 shift/reduce
|
|
State 397 conflicts: 1 shift/reduce
|
|
State 408 conflicts: 1 shift/reduce
|
|
State 410 conflicts: 1 shift/reduce
|
|
State 414 conflicts: 1 shift/reduce
|
|
State 436 conflicts: 1 shift/reduce
|
|
State 456 conflicts: 1 shift/reduce
|
|
State 461 conflicts: 1 shift/reduce
|
|
State 471 conflicts: 2 reduce/reduce
|
|
State 474 conflicts: 2 shift/reduce
|
|
State 485 conflicts: 1 shift/reduce
|
|
State 495 conflicts: 1 shift/reduce
|
|
State 544 conflicts: 2 shift/reduce
|
|
State 567 conflicts: 1 shift/reduce
|
|
State 574 conflicts: 1 shift/reduce
|
|
State 609 conflicts: 1 shift/reduce
|
|
State 640 conflicts: 45 shift/reduce
|
|
State 649 conflicts: 1 shift/reduce
|
|
State 669 conflicts: 2 shift/reduce
|
|
State 695 conflicts: 1 shift/reduce
|
|
State 702 conflicts: 1 shift/reduce
|
|
State 717 conflicts: 1 shift/reduce
|
|
State 719 conflicts: 1 shift/reduce
|
|
State 720 conflicts: 1 shift/reduce
|
|
State 721 conflicts: 1 shift/reduce
|
|
State 736 conflicts: 1 shift/reduce
|
|
State 753 conflicts: 1 shift/reduce
|
|
State 756 conflicts: 2 shift/reduce
|
|
State 765 conflicts: 1 shift/reduce
|
|
State 784 conflicts: 1 shift/reduce
|
|
State 817 conflicts: 1 shift/reduce
|
|
State 832 conflicts: 1 shift/reduce
|
|
State 833 conflicts: 2 shift/reduce
|
|
State 848 conflicts: 1 shift/reduce
|
|
State 857 conflicts: 1 shift/reduce
|
|
State 859 conflicts: 1 shift/reduce
|
|
State 948 conflicts: 2 shift/reduce
|
|
State 952 conflicts: 1 shift/reduce
|
|
State 956 conflicts: 1 shift/reduce
|
|
State 988 conflicts: 1 shift/reduce
|
|
State 999 conflicts: 1 shift/reduce
|
|
State 1018 conflicts: 1 shift/reduce
|
|
State 1019 conflicts: 2 shift/reduce
|
|
State 1052 conflicts: 1 shift/reduce
|
|
State 1053 conflicts: 1 shift/reduce
|
|
State 1098 conflicts: 1 shift/reduce
|
|
State 1144 conflicts: 1 shift/reduce
|
|
State 1166 conflicts: 1 shift/reduce
|
|
State 1187 conflicts: 1 shift/reduce
|
|
State 1200 conflicts: 1 shift/reduce
|
|
State 1202 conflicts: 1 shift/reduce
|
|
State 1225 conflicts: 1 shift/reduce
|
|
State 1232 conflicts: 1 shift/reduce
|
|
State 1253 conflicts: 1 shift/reduce
|
|
State 1254 conflicts: 1 shift/reduce
|
|
State 1255 conflicts: 1 shift/reduce
|
|
State 1269 conflicts: 1 shift/reduce
|
|
State 1300 conflicts: 1 shift/reduce
|
|
State 1326 conflicts: 1 shift/reduce
|
|
State 1335 conflicts: 1 shift/reduce
|
|
State 1338 conflicts: 1 shift/reduce
|
|
State 1351 conflicts: 1 shift/reduce
|
|
State 1392 conflicts: 1 shift/reduce
|
|
State 1401 conflicts: 1 shift/reduce
|
|
State 1474 conflicts: 1 shift/reduce
|
|
State 1485 conflicts: 1 shift/reduce
|
|
State 1514 conflicts: 1 shift/reduce
|
|
State 1523 conflicts: 2 shift/reduce
|
|
State 1536 conflicts: 2 shift/reduce
|
|
State 1603 conflicts: 1 shift/reduce
|
|
State 1604 conflicts: 1 shift/reduce
|
|
State 1644 conflicts: 1 shift/reduce
|
|
State 1667 conflicts: 2 shift/reduce
|
|
State 1668 conflicts: 1 shift/reduce
|
|
State 1669 conflicts: 2 shift/reduce
|
|
State 1688 conflicts: 1 shift/reduce
|
|
State 1690 conflicts: 1 shift/reduce
|
|
State 1735 conflicts: 18 shift/reduce
|
|
State 1805 conflicts: 19 shift/reduce
|
|
State 1827 conflicts: 1 shift/reduce
|
|
State 1877 conflicts: 1 shift/reduce
|
|
|
|
|
|
Grammar
|
|
|
|
0 $accept: root_ $end
|
|
|
|
1 root_: program_sequences
|
|
|
|
2 program_sequences: program
|
|
3 | program_sequence
|
|
4 | program_sequence program
|
|
|
|
5 program_sequence: program end_program
|
|
|
|
6 $@1: /* empty */
|
|
|
|
7 program_sequence: program $@1 program_sequence end_program
|
|
8 | program_sequence program end_program
|
|
|
|
9 $@2: /* empty */
|
|
|
|
10 end_program: END PROGRAM $@2 IDSTRING
|
|
|
|
11 program: identification_division environment_division_opt data_division_opt procedure_division_opt
|
|
|
|
12 $@3: /* empty */
|
|
|
|
13 $@4: /* empty */
|
|
|
|
14 $@5: /* empty */
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
16 programid_opts_opt: /* empty */
|
|
17 | is_opt INITIAL_TOK programid_program_opt
|
|
18 | is_opt COMMON programid_program_opt
|
|
|
|
19 programid_program_opt: /* empty */
|
|
20 | PROGRAM
|
|
|
|
21 identification_division_options_opt: /* empty */
|
|
22 | identification_division_options_opt identification_division_option
|
|
|
|
23 identification_division_option: AUTHOR PERIOD_TOK
|
|
24 | DATE_WRITTEN PERIOD_TOK
|
|
25 | DATE_COMPILED PERIOD_TOK
|
|
26 | INSTALLATION PERIOD_TOK
|
|
27 | SECURITY PERIOD_TOK
|
|
|
|
28 $@6: /* empty */
|
|
|
|
29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt
|
|
30 | /* empty */
|
|
|
|
31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK configuration_section
|
|
32 | /* empty */
|
|
|
|
33 configuration_section: configuration_section configuration_option
|
|
34 | /* empty */
|
|
|
|
35 $@7: /* empty */
|
|
|
|
36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK
|
|
|
|
37 $@8: /* empty */
|
|
|
|
38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK
|
|
39 | SPECIAL_NAMES PERIOD_TOK special_names_opt
|
|
40 | error
|
|
|
|
41 program_collating_opt: PROGRAM collating_sequence
|
|
42 | /* empty */
|
|
|
|
43 collating_sequence: collating_opt SEQUENCE is_opt STRING
|
|
|
|
44 collating_opt: COLLATING
|
|
45 | /* empty */
|
|
|
|
46 debug_mode_opt: with_opt DEBUGGING MODE
|
|
47 | /* empty */
|
|
|
|
48 special_names_opt: /* empty */
|
|
49 | special_names PERIOD_TOK
|
|
50 | error
|
|
|
|
51 special_names: special_name
|
|
52 | special_names special_name
|
|
|
|
53 special_name: switches_details_list
|
|
54 | alphabet_details
|
|
55 | currency_details
|
|
56 | decimal_point_details
|
|
57 | screen_status_details
|
|
58 | cursor_details
|
|
59 | special_name_class
|
|
|
|
60 currency_details: CURRENCY sign_opt is_opt CLITERAL
|
|
|
|
61 sign_opt: SIGN
|
|
62 | /* empty */
|
|
|
|
63 special_name_class: CLASS STRING is_opt special_name_class_item_list
|
|
|
|
64 special_name_class_item_list: special_name_class_item
|
|
65 | special_name_class_item_list special_name_class_item
|
|
|
|
66 special_name_class_item: CLITERAL
|
|
67 | CLITERAL THRU CLITERAL
|
|
|
|
68 decimal_point_details: DECIMAL_POINT is_opt COMMA
|
|
|
|
69 screen_status_details: DISPLAY_SCREEN STATUS is_opt STRING
|
|
|
|
70 cursor_details: CURSOR is_opt STRING
|
|
|
|
71 switches_details_list: /* empty */
|
|
72 | switches_details_list switches_details
|
|
|
|
73 $@9: /* empty */
|
|
|
|
74 switches_details: STRING is_opt STRING $@9 switch_on_opt switch_off_opt
|
|
|
|
75 switch_on_opt: ON status_opt is_opt STRING
|
|
76 | /* empty */
|
|
|
|
77 switch_off_opt: OFF status_opt is_opt STRING
|
|
78 | /* empty */
|
|
|
|
79 status_opt: STATUS
|
|
80 | /* empty */
|
|
|
|
81 alphabet_details: ALPHABET STRING is_opt alphabet_type
|
|
|
|
82 alphabet_type: NATIVE
|
|
83 | STANDARD_1
|
|
84 | STANDARD_2
|
|
85 | alphabet_literal_list
|
|
|
|
86 alphabet_literal_list: alphabet_literal_item
|
|
87 | alphabet_literal_list alphabet_literal_item
|
|
|
|
88 alphabet_literal_item: without_all_literal
|
|
89 | without_all_literal THRU without_all_literal
|
|
90 | without_all_literal alphabet_also_list
|
|
|
|
91 alphabet_also_list: ALSO without_all_literal
|
|
92 | alphabet_also_list ALSO without_all_literal
|
|
|
|
93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK input_output_section
|
|
94 | /* empty */
|
|
|
|
95 input_output_section: file_control_paragraph i_o_control_paragraph
|
|
96 | error
|
|
|
|
97 file_control_paragraph: FILE_CONTROL PERIOD_TOK file_control
|
|
|
|
98 i_o_control_paragraph: /* empty */
|
|
99 | I_O_CONTROL PERIOD_TOK i_o_control_opt
|
|
|
|
100 file_control: file_select
|
|
101 | file_control file_select
|
|
|
|
102 $@10: /* empty */
|
|
|
|
103 file_select: SELECT optional_opt def_name $@10 select_clauses PERIOD_TOK
|
|
|
|
104 select_clauses: select_clauses select_clause
|
|
105 | /* empty */
|
|
|
|
106 select_clause: organization_opt is_opt organization_options
|
|
107 | ASSIGN to_opt assign_clause
|
|
108 | ACCESS mode_opt is_opt access_options
|
|
109 | file_opt STATUS is_opt STRING
|
|
110 | RECORD key_opt is_opt STRING
|
|
111 | RELATIVE key_opt is_opt STRING
|
|
112 | ALTERNATE RECORD key_opt is_opt STRING with_duplicates
|
|
113 | RESERVE NLITERAL areas_opt
|
|
114 | error
|
|
|
|
115 file_opt: FILE_TOK
|
|
116 | /* empty */
|
|
|
|
117 organization_opt: ORGANIZATION
|
|
118 | /* empty */
|
|
|
|
119 assign_clause: PORTNUM
|
|
120 | filename
|
|
121 | PORTNUM filename
|
|
122 | EXTERNAL filename
|
|
123 | error
|
|
|
|
124 with_duplicates: with_opt DUPLICATES
|
|
125 | /* empty */
|
|
|
|
126 optional_opt: OPTIONAL
|
|
127 | /* empty */
|
|
|
|
128 areas_opt: AREA
|
|
129 | AREAS
|
|
130 | /* empty */
|
|
|
|
131 is_opt: IS
|
|
132 | /* empty */
|
|
|
|
133 are_opt: ARE
|
|
134 | /* empty */
|
|
|
|
135 mode_opt: MODE
|
|
136 | /* empty */
|
|
|
|
137 organization_options: INDEXED
|
|
138 | SEQUENTIAL
|
|
139 | RELATIVE
|
|
140 | LINE SEQUENTIAL
|
|
141 | anystring
|
|
|
|
142 access_options: SEQUENTIAL
|
|
143 | DYNAMIC
|
|
144 | RANDOM
|
|
145 | anystring
|
|
|
|
146 i_o_control_opt: /* empty */
|
|
147 | i_o_control_list PERIOD_TOK
|
|
|
|
148 i_o_control_list: i_o_control_clause
|
|
149 | i_o_control_list i_o_control_clause
|
|
|
|
150 i_o_control_clause: i_o_control_same_clause
|
|
151 | i_o_control_multiple_file_tape_clause
|
|
|
|
152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt string_list
|
|
|
|
153 same_clause_options: /* empty */
|
|
154 | RECORD
|
|
155 | SORT
|
|
156 | SORT_MERGE
|
|
|
|
157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt contains_opt i_o_control_multiple_file_list
|
|
|
|
158 i_o_control_multiple_file_list: i_o_control_multiple_file
|
|
159 | i_o_control_multiple_file_list i_o_control_multiple_file
|
|
|
|
160 i_o_control_multiple_file: STRING i_o_control_multiple_file_position_opt
|
|
|
|
161 i_o_control_multiple_file_position_opt: /* empty */
|
|
162 | POSITION integer
|
|
|
|
163 tape_opt: TAPE
|
|
164 | /* empty */
|
|
|
|
165 are_opta: AREA
|
|
166 | /* empty */
|
|
|
|
167 for_opt: FOR
|
|
168 | /* empty */
|
|
|
|
169 string_list: STRING
|
|
170 | string_list STRING
|
|
171 | error
|
|
|
|
172 name_list: variable
|
|
173 | name_list variable
|
|
174 | error
|
|
|
|
175 $@11: /* empty */
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt
|
|
177 | /* empty */
|
|
|
|
178 $@12: /* empty */
|
|
|
|
179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 file_section
|
|
180 | /* empty */
|
|
|
|
181 $@13: /* empty */
|
|
|
|
182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 working_storage_section
|
|
183 | /* empty */
|
|
|
|
184 $@14: /* empty */
|
|
|
|
185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 linkage_section
|
|
186 | /* empty */
|
|
|
|
187 report_section_opt: REPORT SECTION PERIOD_TOK report_sections
|
|
188 | /* empty */
|
|
|
|
189 report_sections: report_sections report_section
|
|
190 | /* empty */
|
|
|
|
191 $@15: /* empty */
|
|
|
|
192 $@16: /* empty */
|
|
|
|
193 $@17: /* empty */
|
|
|
|
194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description
|
|
|
|
195 report_controls: /* empty */
|
|
196 | report_controls report_control
|
|
|
|
197 report_control: is_opt GLOBAL
|
|
198 | CODE gliteral
|
|
199 | report_controls_control
|
|
200 | report_controls_page
|
|
|
|
201 report_controls_control: control_is_are final_opt report_break_list
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt
|
|
|
|
203 heading_opt: /* empty */
|
|
204 | HEADING is_opt integer
|
|
|
|
205 line_lines_opt: lines_opt
|
|
206 | LINE
|
|
|
|
207 lines_opt: /* empty */
|
|
208 | LINES
|
|
|
|
209 control_is_are: CONTROL is_opt
|
|
210 | CONTROLS are_opt
|
|
|
|
211 limit_is_are_opt: /* empty */
|
|
212 | LIMIT IS
|
|
213 | LIMITS ARE
|
|
|
|
214 footing_opt: /* empty */
|
|
215 | FOOTING is_opt integer
|
|
|
|
216 last_detail_opt: /* empty */
|
|
217 | LAST DETAIL is_opt integer
|
|
|
|
218 first_detail_opt: /* empty */
|
|
219 | FIRST DETAIL is_opt integer
|
|
|
|
220 final_opt: /* empty */
|
|
221 | FINAL
|
|
|
|
222 report_break_list: /* empty */
|
|
223 | report_break_list name
|
|
|
|
224 report_description: report_item
|
|
225 | report_description report_item
|
|
|
|
226 $@18: /* empty */
|
|
|
|
227 report_item: integer def_name_opt $@18 report_clauses PERIOD_TOK
|
|
|
|
228 report_clauses: report_clause
|
|
229 | report_clauses report_clause
|
|
|
|
230 report_clause: report_clause_line
|
|
231 | report_clause_next_group
|
|
232 | report_clause_type
|
|
233 | report_clause_usage_display
|
|
234 | report_clause_picture
|
|
235 | report_clause_sign_is
|
|
236 | report_clause_justified
|
|
237 | report_clause_blank_zero
|
|
238 | report_clause_column
|
|
239 | report_clause_svs
|
|
240 | report_clause_group_indicate
|
|
|
|
241 report_clause_type: TYPE is_opt report_clause_type2
|
|
|
|
242 report_clause_type2: REPORT HEADING
|
|
243 | PAGE HEADING
|
|
|
|
244 $@19: /* empty */
|
|
|
|
245 report_clause_type2: CONTROL HEADING $@19 name_final_opt
|
|
246 | DETAIL
|
|
|
|
247 $@20: /* empty */
|
|
|
|
248 report_clause_type2: CONTROL FOOTING $@20 name_final_opt
|
|
249 | PAGE FOOTING
|
|
250 | REPORT FOOTING
|
|
251 | RH
|
|
252 | PH
|
|
|
|
253 $@21: /* empty */
|
|
|
|
254 report_clause_type2: CH $@21 name_final_opt
|
|
255 | DE
|
|
|
|
256 $@22: /* empty */
|
|
|
|
257 report_clause_type2: CF $@22 name_final_opt
|
|
258 | PF
|
|
259 | RF
|
|
|
|
260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE character_opt
|
|
261 | leading_trailing SEPARATE character_opt
|
|
|
|
262 $@23: /* empty */
|
|
|
|
263 report_clause_picture: PICTURE $@23 is_opt picture
|
|
|
|
264 report_clause_usage_display: USAGE is_opt DISPLAY
|
|
265 | DISPLAY
|
|
|
|
266 report_clause_justified: JUSTIFIED right_opt
|
|
|
|
267 report_clause_next_group: NEXT GROUP is_opt integer_on_next_page
|
|
|
|
268 report_clause_line: report_clause_line_is integer ON NEXT PAGE
|
|
269 | report_clause_line_is integer NEXT PAGE
|
|
270 | report_clause_line_is integer
|
|
271 | report_clause_line_is PLUS integer
|
|
|
|
272 report_clause_line_is: LINE is_are_opt
|
|
273 | LINE NUMBER is_opt
|
|
274 | LINE NUMBERS are_opt
|
|
275 | LINES are_opt
|
|
|
|
276 report_clause_column: report_clause_column_is integer
|
|
|
|
277 report_clause_column_is: COLUMN report_clause_column_orientation is_are_opt
|
|
278 | COLUMN NUMBER report_clause_column_orientation is_opt
|
|
279 | COLUMN NUMBERS report_clause_column_orientation are_opt
|
|
280 | COLUMNS report_clause_column_orientation are_opt
|
|
|
|
281 report_clause_column_orientation: /* empty */
|
|
282 | LEFT
|
|
283 | CENTER
|
|
284 | RIGHT
|
|
|
|
285 is_are_opt: /* empty */
|
|
286 | IS
|
|
287 | ARE
|
|
|
|
288 $@24: /* empty */
|
|
|
|
289 report_clause_svs: SOURCE $@24 is_opt gname_page_counter
|
|
290 | VALUE is_opt literal
|
|
|
|
291 $@25: /* empty */
|
|
|
|
292 $@26: /* empty */
|
|
|
|
293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt reset_opt
|
|
|
|
294 gname_page_counter: gname
|
|
295 | PAGE_COUNTER
|
|
|
|
296 report_clause_group_indicate: /* empty */
|
|
297 | GROUP indicate_opt
|
|
|
|
298 report_clause_blank_zero: BLANK when_opt ZERO
|
|
|
|
299 indicate_opt: /* empty */
|
|
300 | INDICATE
|
|
|
|
301 upon_opt: /* empty */
|
|
302 | UPON gname_list
|
|
|
|
303 reset_opt: /* empty */
|
|
304 | RESET gname
|
|
305 | RESET FINAL
|
|
|
|
306 number_opt: /* empty */
|
|
307 | NUMBER
|
|
|
|
308 leading_trailing: LEADING
|
|
309 | TRAILING
|
|
|
|
310 right_opt: /* empty */
|
|
311 | RIGHT
|
|
|
|
312 name_final_opt: gname
|
|
313 | FINAL
|
|
|
|
314 integer_on_next_page: integer
|
|
315 | PLUS integer
|
|
316 | NEXT PAGE
|
|
|
|
317 of_opt: OF
|
|
318 | /* empty */
|
|
|
|
319 $@27: /* empty */
|
|
|
|
320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 screen_section
|
|
321 | /* empty */
|
|
|
|
322 screen_section: screen_section screen_item
|
|
323 | /* empty */
|
|
|
|
324 $@28: /* empty */
|
|
|
|
325 screen_item: integer def_name_opt $@28 screen_clauses PERIOD_TOK
|
|
|
|
326 $@29: /* empty */
|
|
|
|
327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt name_or_lit
|
|
|
|
328 $@30: /* empty */
|
|
|
|
329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt name_or_lit
|
|
330 | screen_clauses with_opt screen_attrib
|
|
|
|
331 $@31: /* empty */
|
|
|
|
332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 name_or_lit
|
|
|
|
333 $@32: /* empty */
|
|
|
|
334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 name_or_lit
|
|
|
|
335 $@33: /* empty */
|
|
|
|
336 screen_clauses: screen_clauses with_opt COLOR $@33 name_or_lit
|
|
337 | screen_clauses screen_source_destination
|
|
338 | screen_clauses value_is_are gliteral
|
|
339 | screen_clauses pictures
|
|
|
|
340 $@34: /* empty */
|
|
|
|
341 screen_clauses: screen_clauses SIZE $@34 name_or_lit
|
|
342 | /* empty */
|
|
|
|
343 $@35: /* empty */
|
|
|
|
344 screen_source_destination: USING $@35 name_or_lit
|
|
|
|
345 $@36: /* empty */
|
|
|
|
346 screen_source_destination: FROM $@36 name_or_lit screen_to_name
|
|
|
|
347 $@37: /* empty */
|
|
|
|
348 screen_source_destination: TO $@37 name
|
|
|
|
349 screen_to_name: /* empty */
|
|
350 | TO name
|
|
|
|
351 screen_attrib: BLANK SCREEN
|
|
352 | BLANK LINE
|
|
353 | ERASE EOL
|
|
354 | ERASE EOS
|
|
355 | ERASE
|
|
356 | with_opt BELL
|
|
357 | sign_clause
|
|
358 | FULL
|
|
359 | REQUIRED
|
|
360 | SECURE
|
|
361 | AUTO
|
|
362 | JUSTIFIED RIGHT
|
|
363 | JUSTIFIED LEFT
|
|
364 | BLINK
|
|
365 | REVERSEVIDEO
|
|
366 | UNDERLINE
|
|
367 | LOWLIGHT
|
|
368 | HIGHLIGHT
|
|
369 | BLANK when_opt ZERO
|
|
370 | with_opt NOECHO
|
|
371 | with_opt UPDATE
|
|
372 | with_opt NO ADVANCING
|
|
373 | UPPER
|
|
374 | LOWER
|
|
|
|
375 screen_attribx: BLANK SCREEN
|
|
376 | BLANK LINE
|
|
377 | ERASE EOL
|
|
378 | ERASE EOS
|
|
379 | ERASE
|
|
380 | with_opt BELL
|
|
381 | sign_clause
|
|
382 | FULL
|
|
383 | REQUIRED
|
|
384 | SECURE
|
|
385 | AUTO
|
|
386 | JUSTIFIED RIGHT
|
|
387 | JUSTIFIED LEFT
|
|
388 | BLINK
|
|
389 | REVERSEVIDEO
|
|
390 | UNDERLINE
|
|
391 | LOWLIGHT
|
|
392 | HIGHLIGHT
|
|
393 | BLANK when_opt ZERO
|
|
394 | with_opt NOECHO
|
|
395 | with_opt UPDATE
|
|
396 | with_opt NO ADVANCING
|
|
397 | UPPER
|
|
398 | LOWER
|
|
399 | FOREGROUNDCOLOR integer
|
|
400 | BACKGROUNDCOLOR integer
|
|
|
|
401 sign_clause: sign_is_opt LEADING separate_opt
|
|
402 | sign_is_opt TRAILING separate_opt
|
|
|
|
403 separate_opt: SEPARATE character_opt
|
|
404 | /* empty */
|
|
|
|
405 character_opt: CHARACTER
|
|
406 | /* empty */
|
|
|
|
407 sign_is_opt: SIGN is_opt
|
|
408 | is_opt
|
|
|
|
409 plus_minus_opt: PLUS
|
|
410 | '+'
|
|
411 | MINUS
|
|
412 | '-'
|
|
413 | /* empty */
|
|
|
|
414 number_is_opt: NUMBER is_opt
|
|
415 | /* empty */
|
|
|
|
416 $@38: /* empty */
|
|
|
|
417 $@39: /* empty */
|
|
|
|
418 $@40: /* empty */
|
|
|
|
419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description
|
|
|
|
420 $@41: /* empty */
|
|
|
|
421 $@42: /* empty */
|
|
|
|
422 $@43: /* empty */
|
|
|
|
423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description
|
|
424 | error
|
|
425 | /* empty */
|
|
|
|
426 file_description: field_description
|
|
427 | file_description field_description
|
|
|
|
428 $@44: /* empty */
|
|
|
|
429 field_description: integer def_name_opt $@44 data_clauses PERIOD_TOK
|
|
|
|
430 data_clauses: /* empty */
|
|
431 | data_clauses data_clause
|
|
432 | data_clauses redefines_clause
|
|
|
|
433 $@45: /* empty */
|
|
|
|
434 redefines_clause: REDEFINES $@45 redefines_var
|
|
|
|
435 redefines_var: VARIABLE
|
|
436 | SUBSCVAR
|
|
|
|
437 data_clause: array_options
|
|
438 | pictures
|
|
439 | usage_option
|
|
440 | sign_clause
|
|
441 | value_option
|
|
442 | SYNCHRONIZED sync_options
|
|
443 | JUSTIFIED sync_options
|
|
444 | is_opt EXTERNAL
|
|
445 | is_opt GLOBAL
|
|
446 | BLANK when_opt ZERO
|
|
|
|
447 $@46: /* empty */
|
|
|
|
448 data_clause: RENAMES $@46 variable thru_gname_opt
|
|
|
|
449 sync_options: /* empty */
|
|
450 | LEFT
|
|
451 | RIGHT
|
|
|
|
452 thru_gname_opt: /* empty */
|
|
453 | THRU variable
|
|
|
|
454 $@47: /* empty */
|
|
|
|
455 array_options: OCCURS integer times_opt $@47 indexed_by_opt
|
|
|
|
456 $@48: /* empty */
|
|
|
|
457 $@49: /* empty */
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt
|
|
|
|
459 key_is_opt: DIRECTION key_opt is_opt STRING
|
|
460 | /* empty */
|
|
|
|
461 indexed_by_opt: key_is_opt INDEXED by_opt index_name_list
|
|
462 | /* empty */
|
|
|
|
463 index_name_list: def_name
|
|
464 | index_name_list def_name
|
|
|
|
465 usage_option: usage_opt is_opt usage
|
|
|
|
466 usage: USAGENUM
|
|
467 | DISPLAY
|
|
468 | POINTER
|
|
|
|
469 value_option: value_is_are value_list
|
|
|
|
470 value_is_are: VALUE is_opt
|
|
471 | VALUES are_opt
|
|
|
|
472 value_list: value
|
|
473 | value_list comma_opt value
|
|
|
|
474 value: gliteral
|
|
475 | gliteral THRU gliteral
|
|
|
|
476 $@50: /* empty */
|
|
|
|
477 pictures: PICTURE $@50 is_opt picture
|
|
|
|
478 picture: /* empty */
|
|
479 | picture pic_elem
|
|
|
|
480 pic_elem: CHAR multiplier_opt
|
|
|
|
481 multiplier_opt: /* empty */
|
|
482 | MULTIPLIER
|
|
|
|
483 file_description_fd_clauses: /* empty */
|
|
484 | file_description_fd_clauses file_description_fd_clause
|
|
|
|
485 file_description_sd_clauses: /* empty */
|
|
486 | file_description_sd_clauses file_description_sd_clause
|
|
|
|
487 file_description_fd_clause: is_opt EXTERNAL
|
|
488 | is_opt GLOBAL
|
|
489 | file_description_clause_block
|
|
490 | file_description_clause_record
|
|
491 | file_description_clause_label
|
|
492 | file_description_clause_value
|
|
493 | file_description_clause_data
|
|
494 | file_description_clause_report
|
|
495 | file_description_clause_linage
|
|
496 | file_description_clause_code_set
|
|
|
|
497 file_description_sd_clause: file_description_clause_record
|
|
498 | file_description_clause_data
|
|
|
|
499 file_description_clause_block: BLOCK contains_opt integer to_integer_opt chars_or_recs_opt
|
|
|
|
500 file_description_clause_record: RECORD contains_opt integer to_rec_varying character_opts
|
|
501 | RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying
|
|
|
|
502 file_description_clause_label: LABEL record_is_are std_or_omitt
|
|
|
|
503 file_description_clause_value: VALUE OF FILE_ID is_opt filename
|
|
|
|
504 file_description_clause_data: DATA record_is_are var_strings
|
|
|
|
505 file_description_clause_report: report_is_are STRING
|
|
|
|
506 file_description_clause_code_set: CODE_SET is_opt STRING
|
|
|
|
507 file_description_clause_linage: LINAGE is_opt data_name lines_opt file_description_clause_linage_footing file_description_clause_linage_top file_description_clause_linage_bottom
|
|
|
|
508 file_description_clause_linage_footing: /* empty */
|
|
509 | with_opt FOOTING at_opt data_name
|
|
|
|
510 file_description_clause_linage_top: /* empty */
|
|
511 | lines_at_opt TOP data_name
|
|
|
|
512 file_description_clause_linage_bottom: /* empty */
|
|
513 | lines_at_opt BOTTOM data_name
|
|
|
|
514 lines_at_opt: /* empty */
|
|
515 | LINES
|
|
516 | LINES AT
|
|
517 | AT
|
|
|
|
518 report_is_are: REPORT is_opt
|
|
519 | REPORTS are_opt
|
|
|
|
520 var_strings: STRING
|
|
521 | var_strings STRING
|
|
|
|
522 chars_or_recs_opt: /* empty */
|
|
523 | CHARACTERS
|
|
524 | RECORDS
|
|
|
|
525 to_integer_opt: /* empty */
|
|
526 | TO integer
|
|
|
|
527 depend_rec_varying: /* empty */
|
|
528 | DEPENDING on_opt STRING
|
|
|
|
529 from_rec_varying: /* empty */
|
|
530 | from_opt nliteral
|
|
|
|
531 from_opt: FROM
|
|
532 | /* empty */
|
|
|
|
533 to_rec_varying: /* empty */
|
|
534 | TO nliteral
|
|
|
|
535 record_is_are: RECORD is_opt
|
|
536 | RECORDS are_opt
|
|
|
|
537 std_or_omitt: STANDARD
|
|
538 | OMITTED
|
|
|
|
539 usage_opt: /* empty */
|
|
540 | USAGE
|
|
|
|
541 times_opt: /* empty */
|
|
542 | TIMES
|
|
|
|
543 when_opt: /* empty */
|
|
544 | WHEN
|
|
|
|
545 contains_opt: /* empty */
|
|
546 | CONTAINS
|
|
|
|
547 character_opts: /* empty */
|
|
548 | CHARACTERS
|
|
|
|
549 order_opt: /* empty */
|
|
550 | ORDER
|
|
|
|
551 data_opt: /* empty */
|
|
552 | DATA
|
|
|
|
553 working_storage_section: working_storage_section field_description
|
|
554 | /* empty */
|
|
|
|
555 linkage_section: /* empty */
|
|
556 | linkage_section field_description
|
|
|
|
557 $@51: /* empty */
|
|
|
|
558 $@52: /* empty */
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division
|
|
560 | /* empty */
|
|
|
|
561 procedure_division: /* empty */
|
|
562 | procedure_division procedure_decl
|
|
|
|
563 procedure_decl: procedure_section
|
|
564 | paragraph
|
|
|
|
565 $@53: /* empty */
|
|
|
|
566 procedure_decl: $@53 statements PERIOD_TOK
|
|
|
|
567 $@54: /* empty */
|
|
|
|
568 procedure_decl: error $@54 PERIOD_TOK
|
|
569 | PERIOD_TOK
|
|
|
|
570 $@55: /* empty */
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK
|
|
572 | /* empty */
|
|
|
|
573 declaratives_division: /* empty */
|
|
574 | declaratives_division declaratives_decl
|
|
|
|
575 declaratives_decl: declaratives_procedure
|
|
576 | paragraph
|
|
|
|
577 $@56: /* empty */
|
|
|
|
578 declaratives_decl: $@56 statements PERIOD_TOK
|
|
|
|
579 $@57: /* empty */
|
|
|
|
580 declaratives_decl: error $@57 PERIOD_TOK
|
|
|
|
581 $@58: /* empty */
|
|
|
|
582 declaratives_procedure: procedure_section $@58 use_phrase
|
|
583 | error
|
|
|
|
584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK
|
|
585 | error
|
|
|
|
586 use_phrase_exception_error: EXCEPTION
|
|
587 | ERROR_TOK
|
|
588 | STANDARD EXCEPTION
|
|
589 | STANDARD ERROR_TOK
|
|
|
|
590 use_phrase_option: gname_list
|
|
591 | open_mode
|
|
|
|
592 procedure_section: LABELSTR SECTION PERIOD_TOK
|
|
|
|
593 paragraph: LABELSTR dot_or_eos
|
|
|
|
594 dot_or_eos: '.'
|
|
595 | PERIOD_TOK
|
|
|
|
596 statement_list: statements
|
|
|
|
597 statements: statement
|
|
598 | statements statement
|
|
|
|
599 statement: move_statement
|
|
600 | initialize_statement
|
|
601 | compute_statement
|
|
602 | add_statement
|
|
603 | subtract_statement
|
|
604 | multiply_statement
|
|
605 | divide_statement
|
|
606 | accept_statement
|
|
607 | display_statement
|
|
608 | open_statement
|
|
609 | close_statement
|
|
610 | read_statement
|
|
611 | return_statement
|
|
612 | release_statement
|
|
613 | write_statement
|
|
614 | rewrite_statement
|
|
615 | delete_statement
|
|
616 | start_statement
|
|
617 | perform_statement
|
|
618 | goto_statement
|
|
619 | exit_statement
|
|
620 | stop_statement
|
|
621 | call_statement
|
|
622 | call_loadlib_statement
|
|
623 | chain_statement
|
|
624 | set_statement
|
|
625 | sort_statement
|
|
626 | merge_statement
|
|
627 | inspect_statement
|
|
628 | string_statement
|
|
629 | unstring_statement
|
|
630 | initiate_statement
|
|
631 | generate_statement
|
|
632 | terminate_statement
|
|
633 | proto_statement
|
|
634 | trace_statement
|
|
635 | goback_statement
|
|
636 | cancel_statement
|
|
637 | unlock_statement
|
|
638 | if_statement
|
|
639 | evaluate_statement
|
|
640 | search_statement
|
|
641 | CONTINUE
|
|
|
|
642 perform_statement: PERFORM perform_options
|
|
|
|
643 $@59: /* empty */
|
|
|
|
644 if_statement: if_part $@59 end_if_opt
|
|
|
|
645 @60: /* empty */
|
|
|
|
646 $@61: /* empty */
|
|
|
|
647 if_statement: if_part ELSE @60 conditional_statement $@61 end_if_opt
|
|
|
|
648 search_statement: SEARCH search end_search_opt
|
|
649 | SEARCH ALL search_all end_search_opt
|
|
|
|
650 @62: /* empty */
|
|
|
|
651 $@63: /* empty */
|
|
|
|
652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos
|
|
|
|
653 end_evaluate_or_eos: END_EVALUATE
|
|
654 | PERIOD_TOK
|
|
|
|
655 @64: /* empty */
|
|
|
|
656 selection_subject_set: @64 selection_subject
|
|
|
|
657 @65: /* empty */
|
|
|
|
658 selection_subject_set: selection_subject_set ALSO @65 selection_subject
|
|
|
|
659 selection_subject: expr
|
|
660 | condition
|
|
661 | TRUE_TOK
|
|
662 | FALSE_TOK
|
|
|
|
663 @66: /* empty */
|
|
|
|
664 @67: /* empty */
|
|
|
|
665 when_case_list: WHEN @66 @67 when_case sentence_or_nothing
|
|
|
|
666 @68: /* empty */
|
|
|
|
667 @69: /* empty */
|
|
|
|
668 $@70: /* empty */
|
|
|
|
669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 sentence_or_nothing
|
|
|
|
670 @71: /* empty */
|
|
|
|
671 when_case: @71 selection_object
|
|
|
|
672 @72: /* empty */
|
|
|
|
673 when_case: when_case ALSO @72 selection_object
|
|
674 | OTHER
|
|
|
|
675 selection_object: ANY
|
|
676 | TRUE_TOK
|
|
677 | FALSE_TOK
|
|
678 | not_opt expr
|
|
679 | not_opt expr THRU expr
|
|
680 | not_opt cond_name
|
|
|
|
681 sentence_or_nothing: /* empty */
|
|
682 | conditional_statement
|
|
|
|
683 @73: /* empty */
|
|
|
|
684 if_part: IF condition @73 end_then_opt conditional_statement
|
|
|
|
685 $@74: /* empty */
|
|
|
|
686 conditional_statement: $@74 statement_list
|
|
|
|
687 $@75: /* empty */
|
|
|
|
688 conditional_statement: $@75 NEXT SENTENCE
|
|
|
|
689 not_opt: /* empty */
|
|
690 | NOT
|
|
|
|
691 end_if_opt: /* empty */
|
|
692 | END_IF
|
|
|
|
693 end_then_opt: /* empty */
|
|
694 | THEN
|
|
|
|
695 @76: /* empty */
|
|
|
|
696 @77: /* empty */
|
|
|
|
697 @78: /* empty */
|
|
|
|
698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 search_when_list
|
|
|
|
699 @79: /* empty */
|
|
|
|
700 $@80: /* empty */
|
|
|
|
701 search_all: variable_indexed @79 search_at_end $@80 search_all_when_list
|
|
|
|
702 search_varying_opt: VARYING variable
|
|
703 | /* empty */
|
|
|
|
704 @81: /* empty */
|
|
|
|
705 search_at_end: at_opt END @81 statement_list
|
|
706 | /* empty */
|
|
|
|
707 search_when_list: search_when
|
|
708 | search_when_list search_when
|
|
|
|
709 @82: /* empty */
|
|
|
|
710 search_when: WHEN search_when_conditional @82 search_when_statement
|
|
|
|
711 search_when_statement: statement_list
|
|
712 | NEXT SENTENCE
|
|
|
|
713 search_when_conditional: name_or_lit extended_cond_op name_or_lit
|
|
|
|
714 search_all_when_list: search_all_when
|
|
715 | search_all_when_list search_all_when
|
|
|
|
716 $@83: /* empty */
|
|
|
|
717 @84: /* empty */
|
|
|
|
718 search_all_when: WHEN $@83 search_all_when_conditional @84 search_all_when_statement
|
|
|
|
719 search_all_when_statement: statement_list
|
|
720 | NEXT SENTENCE
|
|
|
|
721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt variable
|
|
722 | variable is_opt CONDITIONAL to_opt literal
|
|
|
|
723 @85: /* empty */
|
|
|
|
724 search_all_when_conditional: search_all_when_conditional AND @85 search_all_when_conditional
|
|
|
|
725 end_search_opt: /* empty */
|
|
726 | END_SEARCH
|
|
|
|
727 unlock_statement: UNLOCK name
|
|
|
|
728 proto_statement: TCOBPROTO1 gname
|
|
729 | TCOBPROTO2 gname gname
|
|
|
|
730 trace_statement: READY TRACE
|
|
731 | RESET TRACE
|
|
|
|
732 initiate_statement: INITIATE name
|
|
|
|
733 generate_statement: GENERATE name
|
|
|
|
734 terminate_statement: TERMINATE name
|
|
|
|
735 cancel_statement: CANCEL gname
|
|
736 | CANCEL ALL
|
|
|
|
737 $@86: /* empty */
|
|
|
|
738 $@87: /* empty */
|
|
|
|
739 $@88: /* empty */
|
|
|
|
740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output
|
|
|
|
741 merge_using: USING sort_file_list
|
|
|
|
742 sort_statement: sort_file
|
|
743 | sort_variable_indexed
|
|
|
|
744 $@89: /* empty */
|
|
|
|
745 $@90: /* empty */
|
|
|
|
746 $@91: /* empty */
|
|
|
|
747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output
|
|
|
|
748 $@92: /* empty */
|
|
|
|
749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt
|
|
|
|
750 sort_keys: sort_key
|
|
751 | sort_keys sort_key
|
|
|
|
752 sort_keys_idx: sort_key_idx
|
|
753 | sort_keys_idx sort_key_idx
|
|
|
|
754 sort_key: on_opt DIRECTION key_opt sort_keys_names
|
|
|
|
755 sort_key_idx: on_opt DIRECTION key_opt sort_keys_names_idx
|
|
|
|
756 sort_keys_names: name
|
|
757 | sort_keys_names name
|
|
|
|
758 sort_keys_names_idx: variable_indexed
|
|
759 | sort_keys_names_idx variable_indexed
|
|
|
|
760 sort_duplicates_opt: /* empty */
|
|
761 | with_opt DUPLICATES in_opt order_opt
|
|
|
|
762 sort_collating_opt: /* empty */
|
|
763 | collating_sequence
|
|
|
|
764 sort_input: INPUT PROCEDURE is_opt perform_range
|
|
765 | USING sort_file_list
|
|
|
|
766 sort_output: OUTPUT PROCEDURE is_opt perform_range
|
|
767 | GIVING sort_file_list
|
|
|
|
768 sort_file_list: name
|
|
769 | sort_file_list name
|
|
|
|
770 move_statement: MOVE gname TO name_var_list
|
|
771 | MOVE CORRESPONDING name_var TO name_var
|
|
772 | MOVE LENGTH OF gname TO name_var
|
|
773 | MOVE gname TO
|
|
|
|
774 initialize_statement: INITIALIZE gname_list initialize_replacing_opt
|
|
775 | INITIALIZE
|
|
|
|
776 initialize_replacing_opt: /* empty */
|
|
777 | REPLACING initialize_replacing_lists
|
|
|
|
778 initialize_replacing_lists: initialize_replacing_list
|
|
779 | initialize_replacing_lists initialize_replacing_list
|
|
|
|
780 initialize_replacing_list: initialize_type_list data_opt BY gname
|
|
|
|
781 initialize_type_list: ALPHABETIC
|
|
782 | ALPHANUMERIC
|
|
783 | NUMERIC
|
|
784 | ALPHANUMERIC_EDITED
|
|
785 | NUMERIC_EDITED
|
|
|
|
786 compute_statement: COMPUTE compute_body end_compute_opt
|
|
787 | COMPUTE
|
|
|
|
788 compute_body: var_list_name CONDITIONAL expr on_size_error_opt
|
|
|
|
789 end_compute_opt: /* empty */
|
|
790 | END_COMPUTE
|
|
|
|
791 add_statement: ADD add_body end_add_opt
|
|
792 | ADD
|
|
|
|
793 add_body: var_list_gname TO var_list_name on_size_error_opt
|
|
794 | var_list_gname add_to_opt GIVING var_list_name on_size_error_opt
|
|
795 | CORRESPONDING var_list_gname TO var_list_name rounded_opt on_size_error_opt
|
|
|
|
796 add_to_opt: /* empty */
|
|
797 | TO gname
|
|
|
|
798 end_add_opt: /* empty */
|
|
799 | END_ADD
|
|
|
|
800 subtract_statement: SUBTRACT subtract_body end_subtract_opt
|
|
801 | SUBTRACT
|
|
|
|
802 subtract_body: var_list_gname FROM var_list_name on_size_error_opt
|
|
803 | var_list_gname FROM gname GIVING var_list_name on_size_error_opt
|
|
804 | CORRESPONDING var_list_gname FROM var_list_name rounded_opt on_size_error_opt
|
|
|
|
805 end_subtract_opt: /* empty */
|
|
806 | END_SUBTRACT
|
|
|
|
807 multiply_statement: MULTIPLY multiply_body end_multiply_opt
|
|
808 | MULTIPLY
|
|
|
|
809 multiply_body: gname BY gname GIVING var_list_name on_size_error_opt
|
|
810 | gname BY var_list_name on_size_error_opt
|
|
|
|
811 end_multiply_opt: /* empty */
|
|
812 | END_MULTIPLY
|
|
|
|
813 divide_statement: DIVIDE divide_body end_divide_opt
|
|
814 | DIVIDE
|
|
|
|
815 divide_body: gname BY gname GIVING var_list_name on_size_error_opt
|
|
816 | gname BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
817 | gname INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
818 | gname INTO gname GIVING var_list_name on_size_error_opt
|
|
819 | gname INTO var_list_name on_size_error_opt
|
|
|
|
820 end_divide_opt: /* empty */
|
|
821 | END_DIVIDE
|
|
|
|
822 accept_statement: accept_hardware
|
|
823 | accept_chronological
|
|
824 | accept_screen
|
|
825 | ACCEPT
|
|
|
|
826 accept_hardware: ACCEPT name FROM INKEY end_accept_opt
|
|
827 | ACCEPT name FROM INPUT STATUS end_accept_opt
|
|
828 | ACCEPT name FROM CMD_LINE end_accept_opt
|
|
829 | ACCEPT name FROM ESCKEY end_accept_opt
|
|
830 | ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt
|
|
|
|
831 accept_chronological: ACCEPT name FROM DATE_TIME end_accept_opt
|
|
|
|
832 accept_screen: ACCEPT name accept_display_options end_accept_opt
|
|
|
|
833 $@93: /* empty */
|
|
|
|
834 @94: /* empty */
|
|
|
|
835 $@95: /* empty */
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt
|
|
|
|
837 end_accept_opt: /* empty */
|
|
838 | END_ACCEPT
|
|
|
|
839 display_statement: display_line
|
|
840 | display_screen
|
|
841 | DISPLAY
|
|
|
|
842 display_line: DISPLAY display_varlist display_upon display_line_options end_display_opt
|
|
|
|
843 display_screen: DISPLAY display_varlist accept_display_options end_display_opt
|
|
|
|
844 display_varlist: gname
|
|
845 | display_varlist sep_opt gname
|
|
|
|
846 display_upon: UPON CONSOLE
|
|
847 | UPON STD_OUTPUT
|
|
848 | UPON STD_ERROR
|
|
|
|
849 display_line_options: /* empty */
|
|
850 | display_line_options with_opt NO ADVANCING
|
|
851 | display_line_options with_opt ERASE
|
|
852 | display_line_options with_opt ERASE EOS
|
|
853 | display_line_options with_opt ERASE EOL
|
|
854 | display_line_options with_opt ERASE SCREEN
|
|
|
|
855 end_display_opt: /* empty */
|
|
856 | END_DISPLAY
|
|
|
|
857 scr_line: LINE number_opt expr
|
|
|
|
858 scr_position: COLUMN number_opt expr
|
|
859 | POSITION expr
|
|
|
|
860 scr_line_position: AT NLITERAL
|
|
861 | AT variable
|
|
|
|
862 accept_display_options: /* empty */
|
|
863 | accept_display_options accept_display_option
|
|
|
|
864 accept_display_option: with_opt screen_attribx
|
|
865 | scr_line
|
|
866 | scr_position
|
|
867 | scr_line_position
|
|
|
|
868 open_statement: OPEN open_options
|
|
869 | OPEN
|
|
|
|
870 open_options: open_mode open_varlist
|
|
871 | open_options open_mode open_varlist
|
|
|
|
872 open_mode: INPUT
|
|
873 | I_O
|
|
874 | OUTPUT
|
|
875 | EXTEND
|
|
876 | error
|
|
|
|
877 open_varlist: name
|
|
878 | open_varlist sep_opt name
|
|
|
|
879 close_statement: CLOSE close_files
|
|
880 | CLOSE
|
|
|
|
881 close_files: close_file
|
|
882 | close_files sep_opt close_file
|
|
|
|
883 close_file: name close_options_opt
|
|
|
|
884 close_options_opt: close_options
|
|
885 | with_lock_opt
|
|
|
|
886 close_options: with_opt NO REWIND
|
|
887 | REEL
|
|
888 | UNIT
|
|
889 | REEL for_opt REMOVAL
|
|
890 | UNIT for_opt REMOVAL
|
|
|
|
891 with_lock_opt: with_opt LOCK
|
|
892 | with_opt IGNORE LOCK
|
|
893 | /* empty */
|
|
|
|
894 return_statement: RETURN return_body end_return_opt
|
|
895 | RETURN
|
|
|
|
896 return_body: name record_opt read_into_opt
|
|
897 | name record_opt read_into_opt read_at_end_opt
|
|
|
|
898 read_statement: READ read_body end_read_opt
|
|
899 | READ
|
|
|
|
900 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt
|
|
901 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt
|
|
902 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt
|
|
|
|
903 read_next_opt: /* empty */
|
|
904 | NEXT
|
|
905 | PREVIOUS
|
|
|
|
906 read_into_opt: /* empty */
|
|
907 | INTO name
|
|
|
|
908 read_key_opt: /* empty */
|
|
909 | KEY is_opt name
|
|
|
|
910 read_at_end_opt: NOT at_opt on_end
|
|
911 | AT on_end
|
|
912 | on_end
|
|
|
|
913 $@96: /* empty */
|
|
|
|
914 read_at_end_opt: AT on_end NOT at_opt $@96 on_end
|
|
|
|
915 $@97: /* empty */
|
|
|
|
916 read_at_end_opt: on_end NOT at_opt $@97 on_end
|
|
|
|
917 @98: /* empty */
|
|
|
|
918 on_end: END @98 statement_list
|
|
|
|
919 read_invalid_key_opt: read_invalid_key
|
|
920 | read_not_invalid_key
|
|
921 | read_invalid_key read_not_invalid_key
|
|
|
|
922 @99: /* empty */
|
|
|
|
923 read_invalid_key: INVALID key_opt @99 statement_list
|
|
|
|
924 @100: /* empty */
|
|
|
|
925 read_not_invalid_key: NOT INVALID key_opt @100 statement_list
|
|
|
|
926 end_read_opt: /* empty */
|
|
927 | END_READ
|
|
|
|
928 end_return_opt: /* empty */
|
|
929 | END_RETURN
|
|
|
|
930 release_statement: RELEASE name release_from_opt
|
|
|
|
931 release_from_opt: /* empty */
|
|
932 | FROM gname
|
|
|
|
933 $@101: /* empty */
|
|
|
|
934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt end_write_opt
|
|
|
|
935 write_from_opt: /* empty */
|
|
936 | FROM gname
|
|
|
|
937 write_options: /* empty */
|
|
938 | before_after advancing_opt gname line_lines_opt
|
|
939 | before_after advancing_opt PAGE
|
|
|
|
940 end_write_opt: /* empty */
|
|
941 | END_WRITE
|
|
|
|
942 $@102: /* empty */
|
|
|
|
943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt end_rewrite_opt
|
|
|
|
944 end_rewrite_opt: /* empty */
|
|
945 | END_REWRITE
|
|
|
|
946 $@103: /* empty */
|
|
|
|
947 delete_statement: DELETE name record_opt $@103 invalid_key_opt end_delete_opt
|
|
|
|
948 end_delete_opt: /* empty */
|
|
949 | END_DELETE
|
|
|
|
950 $@104: /* empty */
|
|
|
|
951 start_statement: START start_body invalid_key_opt $@104 end_start_opt
|
|
|
|
952 start_body: name
|
|
953 | name KEY is_opt cond_op name
|
|
|
|
954 end_start_opt: /* empty */
|
|
955 | END_START
|
|
|
|
956 goto_statement: GO to_opt goto_label
|
|
957 | GO to_opt goto_label_list DEPENDING on_opt variable
|
|
|
|
958 goto_label: label
|
|
|
|
959 goto_label_list: label
|
|
960 | goto_label_list label
|
|
961 | goto_label_list LISTSEP label
|
|
|
|
962 $@105: /* empty */
|
|
|
|
963 @106: /* empty */
|
|
|
|
964 @107: /* empty */
|
|
|
|
965 @108: /* empty */
|
|
|
|
966 $@109: /* empty */
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
968 | CALL
|
|
|
|
969 call_convention_opt: /* empty */
|
|
970 | CALL_CONV_C
|
|
971 | CALL_CONV_STDCALL
|
|
|
|
972 $@110: /* empty */
|
|
|
|
973 call_loadlib_statement: CALL_LOADLIB gname $@110 end_call_loadlib_opt
|
|
974 | CALL_LOADLIB
|
|
|
|
975 end_call_loadlib_opt: END_CALL_LOADLIB
|
|
976 | /* empty */
|
|
|
|
977 $@111: /* empty */
|
|
|
|
978 @112: /* empty */
|
|
|
|
979 @113: /* empty */
|
|
|
|
980 $@114: /* empty */
|
|
|
|
981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt
|
|
982 | CHAIN
|
|
|
|
983 exit_statement: EXIT
|
|
984 | EXIT PARAGRAPH
|
|
985 | EXIT PROGRAM
|
|
|
|
986 stop_statement: STOP RUN
|
|
987 | STOP stop_literal
|
|
|
|
988 stop_literal: CLITERAL
|
|
989 | NLITERAL
|
|
|
|
990 goback_statement: GOBACK
|
|
|
|
991 var_list_name: name rounded_opt sep_opt
|
|
992 | var_list_name name rounded_opt sep_opt
|
|
|
|
993 var_list_gname: gname sep_opt
|
|
994 | var_list_gname gname sep_opt
|
|
|
|
995 rounded_opt: /* empty */
|
|
996 | ROUNDED
|
|
|
|
997 on_size_error_opt: /* empty */
|
|
998 | NOT on_opt SIZE on_size_error
|
|
999 | on_opt SIZE on_size_error
|
|
|
|
1000 $@115: /* empty */
|
|
|
|
1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 on_size_error
|
|
|
|
1002 @116: /* empty */
|
|
|
|
1003 on_size_error: ERROR_TOK @116 statement_list
|
|
|
|
1004 size_opt: /* empty */
|
|
1005 | SIZE
|
|
|
|
1006 end_call_opt: /* empty */
|
|
1007 | END_CALL
|
|
|
|
1008 end_chain_opt: /* empty */
|
|
1009 | END_CHAIN
|
|
|
|
1010 set_statement: SET set_list
|
|
|
|
1011 set_list: set_target TO address_of_opt set_variable_or_nlit
|
|
1012 | set_target UP BY var_or_nliteral
|
|
1013 | set_target DOWN BY var_or_nliteral
|
|
1014 | address_of_opt variable TO address_of_opt set_variable
|
|
|
|
1015 set_target: name_list
|
|
1016 | cond_name
|
|
|
|
1017 set_variable: variable
|
|
1018 | NULL_TOK
|
|
|
|
1019 set_variable_or_nlit: name_or_lit
|
|
1020 | ON
|
|
1021 | OFF
|
|
1022 | NULL_TOK
|
|
1023 | TRUE_TOK
|
|
|
|
1024 address_of_opt: /* empty */
|
|
1025 | ADDRESS of_opt
|
|
|
|
1026 $@117: /* empty */
|
|
|
|
1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt
|
|
|
|
1028 $@118: /* empty */
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt
|
|
|
|
1030 unstring_delimited: DELIMITED by_opt unstring_delimited_vars
|
|
1031 | /* empty */
|
|
|
|
1032 unstring_delimited_vars: all_opt gname
|
|
1033 | unstring_delimited_vars OR all_opt gname
|
|
|
|
1034 unstring_destinations: unstring_dest_var
|
|
1035 | unstring_destinations sep_opt unstring_dest_var
|
|
|
|
1036 unstring_dest_var: name unstring_delim_opt unstring_count_opt
|
|
|
|
1037 unstring_delim_opt: /* empty */
|
|
1038 | DELIMITER in_opt name
|
|
|
|
1039 unstring_count_opt: /* empty */
|
|
1040 | COUNT in_opt name
|
|
|
|
1041 unstring_tallying: /* empty */
|
|
1042 | TALLYING in_opt name
|
|
|
|
1043 all_opt: /* empty */
|
|
1044 | ALL
|
|
|
|
1045 $@119: /* empty */
|
|
|
|
1046 on_overflow_opt: $@119 on_overflow on_not_overflow
|
|
|
|
1047 @120: /* empty */
|
|
|
|
1048 on_exception_or_overflow: on_opt exception_or_overflow @120 statement_list
|
|
1049 | /* empty */
|
|
|
|
1050 exception_or_overflow: EXCEPTION
|
|
1051 | OVERFLOW_TOK
|
|
|
|
1052 @121: /* empty */
|
|
|
|
1053 on_not_exception: NOT on_opt EXCEPTION @121 statement_list
|
|
1054 | /* empty */
|
|
|
|
1055 @122: /* empty */
|
|
|
|
1056 on_overflow: on_opt OVERFLOW_TOK @122 statement_list
|
|
1057 | /* empty */
|
|
|
|
1058 @123: /* empty */
|
|
|
|
1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 statement_list
|
|
1060 | /* empty */
|
|
|
|
1061 invalid_key_opt: invalid_key_sentence
|
|
1062 | not_invalid_key_sentence
|
|
1063 | invalid_key_sentence not_invalid_key_sentence
|
|
1064 | /* empty */
|
|
|
|
1065 @124: /* empty */
|
|
|
|
1066 invalid_key_sentence: INVALID key_opt @124 statement_list
|
|
|
|
1067 @125: /* empty */
|
|
|
|
1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 statement_list
|
|
|
|
1069 not_excep: NOTEXCEP
|
|
1070 | NOT
|
|
|
|
1071 string_with_pointer: with_opt POINTER name
|
|
1072 | /* empty */
|
|
|
|
1073 string_from_list: string_from
|
|
1074 | string_from_list sep_opt string_from
|
|
1075 | error
|
|
|
|
1076 string_from: gname
|
|
1077 | gname DELIMITED by_opt delimited_by
|
|
|
|
1078 delimited_by: gname
|
|
1079 | SIZE
|
|
1080 | error
|
|
|
|
1081 end_stringcmd_opt: /* empty */
|
|
1082 | END_STRINGCMD
|
|
|
|
1083 end_unstring_opt: /* empty */
|
|
1084 | END_UNSTRING
|
|
|
|
1085 $@126: /* empty */
|
|
|
|
1086 inspect_statement: INSPECT name tallying_clause $@126 replacing_clause
|
|
1087 | INSPECT name converting_clause
|
|
|
|
1088 converting_clause: CONVERTING noallname TO noallname inspect_before_after
|
|
|
|
1089 tallying_clause: TALLYING tallying_list
|
|
1090 | /* empty */
|
|
|
|
1091 tallying_list: tallying_list name FOR tallying_for_list
|
|
1092 | /* empty */
|
|
|
|
1093 tallying_for_list: tallying_for_list CHARACTERS inspect_before_after
|
|
1094 | tallying_for_list ALL noallname inspect_before_after
|
|
1095 | tallying_for_list LEADING noallname inspect_before_after
|
|
1096 | /* empty */
|
|
|
|
1097 replacing_clause: REPLACING replacing_list
|
|
1098 | /* empty */
|
|
|
|
1099 replacing_list: replacing_list CHARACTERS BY noallname inspect_before_after
|
|
1100 | replacing_list replacing_kind replacing_by_list
|
|
1101 | /* empty */
|
|
|
|
1102 replacing_by_list: replacing_by_list noallname BY noallname inspect_before_after
|
|
1103 | /* empty */
|
|
|
|
1104 replacing_kind: ALL
|
|
1105 | LEADING
|
|
1106 | TRAILING
|
|
1107 | FIRST
|
|
|
|
1108 inspect_before_after: inspect_before_after BEFORE initial_opt noallname
|
|
1109 | inspect_before_after AFTER initial_opt noallname
|
|
1110 | /* empty */
|
|
|
|
1111 initial_opt: INITIAL_TOK
|
|
1112 | /* empty */
|
|
|
|
1113 expr: gname
|
|
1114 | expr '*' expr
|
|
1115 | expr '/' expr
|
|
1116 | expr '+' expr
|
|
1117 | expr '-' expr
|
|
1118 | expr POW_OP expr
|
|
1119 | '(' expr ')'
|
|
|
|
1120 expr_opt: /* empty */
|
|
1121 | expr
|
|
|
|
1122 using_options: /* empty */
|
|
|
|
1123 @127: /* empty */
|
|
|
|
1124 @128: /* empty */
|
|
|
|
1125 using_options: USING @127 dummy @128 parm_list
|
|
|
|
1126 returning_options: /* empty */
|
|
1127 | RETURNING variable
|
|
1128 | GIVING variable
|
|
|
|
1129 dummy: /* empty */
|
|
|
|
1130 using_parameters: /* empty */
|
|
1131 | USING gname_list
|
|
1132 | CHAINING gname_list
|
|
|
|
1133 parm_list: parm_list sep_opt parameter
|
|
1134 | parameter
|
|
|
|
1135 parameter: gname
|
|
1136 | by_opt parm_type gname
|
|
|
|
1137 parm_type: REFERENCE
|
|
1138 | VALUE
|
|
1139 | CONTENT
|
|
|
|
1140 intrinsic_parm_list: intrinsic_parm_list sep_opt intrinsic_parm
|
|
1141 | intrinsic_parm
|
|
|
|
1142 intrinsic_parm: gname
|
|
|
|
1143 perform_range: label perform_thru_opt
|
|
|
|
1144 perform_options: perform_statements END_PERFORM
|
|
|
|
1145 @129: /* empty */
|
|
|
|
1146 $@130: /* empty */
|
|
|
|
1147 perform_options: gname TIMES @129 perform_statements $@130 END_PERFORM
|
|
|
|
1148 @131: /* empty */
|
|
|
|
1149 @132: /* empty */
|
|
|
|
1150 $@133: /* empty */
|
|
|
|
1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 END_PERFORM
|
|
|
|
1152 @134: /* empty */
|
|
|
|
1153 @135: /* empty */
|
|
|
|
1154 $@136: /* empty */
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
1156 | label perform_thru_opt
|
|
|
|
1157 @137: /* empty */
|
|
|
|
1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 condition
|
|
1159 | label perform_thru_opt gname TIMES
|
|
|
|
1160 @138: /* empty */
|
|
|
|
1161 @139: /* empty */
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
1163 perform_thru_opt: /* empty */
|
|
1164 | THRU label
|
|
|
|
1165 with_test_opt: /* empty */
|
|
1166 | with_opt TEST before_after
|
|
|
|
1167 perform_after_opt: /* empty */
|
|
1168 | AFTER perform_after
|
|
1169 | AFTER perform_after AFTER perform_after
|
|
1170 | AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1171 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
|
|
1174 @140: /* empty */
|
|
|
|
1175 perform_after: name FROM gname by_opt gname UNTIL @140 condition
|
|
|
|
1176 $@141: /* empty */
|
|
|
|
1177 perform_statements: $@141 statement_list
|
|
|
|
1178 before_after: BEFORE
|
|
1179 | AFTER
|
|
|
|
1180 $@142: /* empty */
|
|
|
|
1181 condition: expr extended_cond_op $@142 expr_opt
|
|
1182 | NOT condition
|
|
|
|
1183 @143: /* empty */
|
|
|
|
1184 condition: condition AND @143 implied_op_condition
|
|
|
|
1185 @144: /* empty */
|
|
|
|
1186 condition: condition OR @144 implied_op_condition
|
|
1187 | '(' condition ')'
|
|
1188 | cond_name
|
|
|
|
1189 implied_op_condition: condition
|
|
1190 | cond_op expr
|
|
1191 | expr
|
|
|
|
1192 sign_condition: POSITIVE
|
|
1193 | NEGATIVE
|
|
1194 | ZERO
|
|
|
|
1195 class_condition: NUMERIC
|
|
1196 | ALPHABETIC
|
|
1197 | ALPHABETIC_LOWER
|
|
1198 | ALPHABETIC_UPPER
|
|
|
|
1199 extended_cond_op: IS ext_cond
|
|
1200 | IS NOT ext_cond
|
|
1201 | IS ext_cond OR ext_cond
|
|
1202 | ext_cond
|
|
1203 | NOT is_opt ext_cond
|
|
1204 | ext_cond OR ext_cond
|
|
|
|
1205 ext_cond: conditional
|
|
1206 | class_condition
|
|
1207 | sign_condition
|
|
|
|
1208 cond_op: conditional
|
|
1209 | NOT conditional
|
|
1210 | conditional OR conditional
|
|
|
|
1211 conditional: CONDITIONAL than_to_opt
|
|
|
|
1212 comma_opt: /* empty */
|
|
1213 | ','
|
|
|
|
1214 sep_opt: /* empty */
|
|
1215 | LISTSEP
|
|
|
|
1216 key_opt: /* empty */
|
|
1217 | KEY
|
|
|
|
1218 advancing_opt: /* empty */
|
|
1219 | ADVANCING
|
|
|
|
1220 than_to_opt: /* empty */
|
|
1221 | TO
|
|
1222 | THAN
|
|
|
|
1223 record_opt: /* empty */
|
|
1224 | RECORD
|
|
|
|
1225 at_opt: /* empty */
|
|
1226 | AT
|
|
|
|
1227 in_opt: /* empty */
|
|
1228 | IN
|
|
|
|
1229 in_of: IN
|
|
1230 | OF
|
|
|
|
1231 by_opt: /* empty */
|
|
1232 | BY
|
|
|
|
1233 with_opt: /* empty */
|
|
1234 | WITH
|
|
|
|
1235 on_opt: /* empty */
|
|
1236 | ON
|
|
|
|
1237 gname_opt: gname
|
|
1238 | /* empty */
|
|
|
|
1239 to_opt: /* empty */
|
|
1240 | TO
|
|
|
|
1241 name_var_list: name_var
|
|
1242 | name_var_list sep_opt name_var
|
|
|
|
1243 gname_list: gname
|
|
1244 | gname_list sep_opt gname
|
|
|
|
1245 gname: name
|
|
1246 | gliteral
|
|
|
|
1247 @145: /* empty */
|
|
|
|
1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list ')'
|
|
1249 | FUNCTION LABELSTR
|
|
|
|
1250 name_or_lit: name
|
|
1251 | literal
|
|
|
|
1252 noallname: name
|
|
1253 | without_all_literal
|
|
|
|
1254 gliteral: without_all_literal
|
|
1255 | all_literal
|
|
|
|
1256 without_all_literal: literal
|
|
1257 | special_literal
|
|
|
|
1258 all_literal: ALL literal
|
|
1259 | ALL special_literal
|
|
|
|
1260 special_literal: SPACES
|
|
1261 | ZERO
|
|
1262 | QUOTES
|
|
1263 | HIGHVALUES
|
|
1264 | LOWVALUES
|
|
|
|
1265 var_or_nliteral: variable
|
|
1266 | nliteral
|
|
|
|
1267 nliteral: signed_nliteral
|
|
|
|
1268 literal: signed_nliteral
|
|
1269 | CLITERAL
|
|
|
|
1270 signed_nliteral: NLITERAL
|
|
1271 | '+' NLITERAL
|
|
1272 | '-' NLITERAL
|
|
|
|
1273 def_name_opt: def_name
|
|
1274 | /* empty */
|
|
|
|
1275 def_name: STRING
|
|
1276 | FILLER
|
|
|
|
1277 variable_indexed: SUBSCVAR
|
|
|
|
1278 filename: literal
|
|
1279 | STRING
|
|
|
|
1280 data_name: literal
|
|
1281 | STRING
|
|
|
|
1282 $@146: /* empty */
|
|
|
|
1283 cond_name: VARCOND '(' $@146 subscripts ')'
|
|
1284 | VARCOND
|
|
|
|
1285 name: variable '(' gname ':' gname_opt ')'
|
|
1286 | variable
|
|
1287 | LABELSTR
|
|
|
|
1288 name_var: gname
|
|
|
|
1289 variable: qualified_var
|
|
|
|
1290 $@147: /* empty */
|
|
|
|
1291 variable: qualified_var LPAR $@147 subscripts ')'
|
|
|
|
1292 qualified_var: unqualified_var
|
|
1293 | unqualified_var in_of qualified_var
|
|
|
|
1294 unqualified_var: VARIABLE
|
|
1295 | SUBSCVAR
|
|
|
|
1296 subscripts: subscript
|
|
1297 | subscripts comma_opt subscript
|
|
|
|
1298 subscript: gname
|
|
1299 | subscript '+' gname
|
|
1300 | subscript '-' gname
|
|
|
|
1301 integer: signed_nliteral
|
|
|
|
1302 label: LABELSTR in_of LABELSTR
|
|
1303 | LABELSTR
|
|
1304 | NLITERAL
|
|
1305 | NLITERAL in_of NLITERAL
|
|
1306 | NLITERAL in_of LABELSTR
|
|
|
|
1307 anystring: STRING
|
|
1308 | LABELSTR
|
|
|
|
|
|
Terminals, with rules where they appear
|
|
|
|
$end (0) 0
|
|
'(' (40) 1119 1187 1248 1283 1285
|
|
')' (41) 1119 1187 1248 1283 1285 1291
|
|
'*' (42) 1114
|
|
'+' (43) 410 1116 1271 1299
|
|
',' (44) 1213
|
|
'-' (45) 412 1117 1272 1300
|
|
'.' (46) 594
|
|
'/' (47) 1115
|
|
':' (58) 1285
|
|
error (256) 40 50 96 114 123 171 174 424 568 580 583 585 876 1075 1080
|
|
LOW_PREC (258)
|
|
IDSTRING (259) 10 15
|
|
STRING (260) 36 38 43 63 69 70 74 75 77 81 109 110 111 112 160 169
|
|
170 194 419 423 459 505 506 520 521 528 1275 1279 1281 1307
|
|
VARIABLE (261) 435 1294
|
|
VARCOND (262) 1283 1284
|
|
SUBSCVAR (263) 436 1277 1295
|
|
LABELSTR (264) 592 593 1248 1249 1287 1302 1303 1306 1308
|
|
CMD_LINE (265) 828
|
|
ENVIRONMENT_VARIABLE (266) 830
|
|
INKEY (267) 826
|
|
ESCKEY (268) 829
|
|
CHAR (269) 480
|
|
MULTIPLIER (270) 482
|
|
USAGENUM (271) 466
|
|
ZERONUM (272)
|
|
CONDITIONAL (273) 721 722 788 1211
|
|
TO (274) 348 350 458 526 534 770 771 772 773 793 795 797 1011 1014
|
|
1088 1221 1240
|
|
IS (275) 131 212 286 1199 1200 1201
|
|
ARE (276) 133 213 287
|
|
THRU (277) 67 89 453 475 679 1164
|
|
THAN (278) 1222
|
|
NO (279) 372 396 850 886
|
|
COMMENTING (280)
|
|
DIRECTION (281) 459 754 755
|
|
READ (282) 898 899
|
|
WRITE (283) 934
|
|
INPUT_OUTPUT (284) 93
|
|
RELEASE (285) 930
|
|
NLITERAL (286) 113 860 989 1270 1271 1272 1304 1305 1306
|
|
CLITERAL (287) 60 66 67 830 988 1269
|
|
PORTNUM (288) 119 121
|
|
DATE_TIME (289) 831
|
|
POW_OP (290) 1118
|
|
OR (291) 1033 1186 1201 1204 1210
|
|
AND (292) 724 1184
|
|
NOT (293) 690 910 914 916 925 998 1001 1053 1070 1182 1200 1203 1209
|
|
ACCEPT (294) 825 826 827 828 829 830 831 832 836
|
|
ACCESS (295) 108
|
|
ADD (296) 791 792
|
|
ADDRESS (297) 1025
|
|
ADVANCING (298) 372 396 850 1219
|
|
AFTER (299) 584 1109 1168 1169 1170 1171 1172 1173 1179
|
|
ALL (300) 649 736 1044 1094 1104 1258 1259
|
|
ALPHABET (301) 81
|
|
ALPHABETIC (302) 781 1196
|
|
ALPHABETIC_LOWER (303) 1197
|
|
ALPHABETIC_UPPER (304) 1198
|
|
ALPHANUMERIC (305) 782
|
|
ALPHANUMERIC_EDITED (306) 784
|
|
ALSO (307) 91 92 658 673
|
|
ALTERNATE (308) 112
|
|
ANY (309) 675
|
|
AREA (310) 128 165
|
|
AREAS (311) 129
|
|
ASSIGN (312) 107
|
|
AT (313) 516 517 860 861 911 914 1226
|
|
AUTHOR (314) 23
|
|
AUTO (315) 361 385
|
|
BACKGROUNDCOLOR (316) 334 400
|
|
BEFORE (317) 1108 1178
|
|
BELL (318) 356 380
|
|
BLANK (319) 298 351 352 369 375 376 393 446
|
|
BLINK (320) 364 388
|
|
BLOCK (321) 499
|
|
BOTTOM (322) 513
|
|
BY (323) 780 809 810 815 816 1012 1013 1099 1102 1232
|
|
CALL (324) 967 968
|
|
CALL_CONV_C (325) 970
|
|
CALL_CONV_STDCALL (326) 971
|
|
CALL_LOADLIB (327) 973 974
|
|
CANCEL (328) 735 736
|
|
CENTER (329) 283
|
|
CF (330) 257
|
|
CH (331) 254
|
|
CHAIN (332) 981 982
|
|
CHAINING (333) 1132
|
|
CHARACTER (334) 405
|
|
CHARACTERS (335) 523 548 1093 1099
|
|
CLASS (336) 63
|
|
CLOSE (337) 879 880
|
|
CODE (338) 198
|
|
CODE_SET (339) 506
|
|
COLLATING (340) 44
|
|
COLOR (341) 336
|
|
COLUMN (342) 277 278 279 329 858
|
|
COLUMNS (343) 280
|
|
COMMA (344) 68
|
|
COMMON (345) 18
|
|
COMPUTE (346) 786 787
|
|
CONFIGURATION (347) 31
|
|
CONSOLE (348) 846
|
|
CONTAINS (349) 546
|
|
CONTENT (350) 1139
|
|
CONTINUE (351) 641
|
|
CONTROL (352) 209 245 248
|
|
CONTROLS (353) 210
|
|
CONVERTING (354) 1088
|
|
CORRESPONDING (355) 771 795 804
|
|
COUNT (356) 1040
|
|
CURRENCY (357) 60
|
|
CURSOR (358) 70
|
|
DATA (359) 176 504 552
|
|
DATE_COMPILED (360) 25
|
|
DATE_WRITTEN (361) 24
|
|
DE (362) 255
|
|
DEBUGGING (363) 46
|
|
DECIMAL_POINT (364) 68
|
|
DECLARATIVES (365) 571
|
|
DELETE (366) 947
|
|
DELIMITED (367) 1030 1077
|
|
DELIMITER (368) 1038
|
|
DEPENDING (369) 458 528 957
|
|
DETAIL (370) 217 219 246
|
|
DISPLAY (371) 264 265 467 841 842 843
|
|
DISPLAY_SCREEN (372) 69
|
|
DIVIDE (373) 813 814
|
|
DIVISION (374) 15 29 176 559
|
|
DOWN (375) 1013
|
|
DUPLICATES (376) 124 761
|
|
DYNAMIC (377) 143
|
|
ELSE (378) 647
|
|
END (379) 10 571 705 918
|
|
END_ACCEPT (380) 838
|
|
END_ADD (381) 799
|
|
END_CALL (382) 1007
|
|
END_CALL_LOADLIB (383) 975
|
|
END_CHAIN (384) 1009
|
|
END_COMPUTE (385) 790
|
|
END_DELETE (386) 949
|
|
END_DISPLAY (387) 856
|
|
END_DIVIDE (388) 821
|
|
END_EVALUATE (389) 653
|
|
END_IF (390) 692
|
|
END_MULTIPLY (391) 812
|
|
END_OF_PAGE (392)
|
|
END_PERFORM (393) 1144 1147 1151 1155
|
|
END_READ (394) 927
|
|
END_RETURN (395) 929
|
|
END_REWRITE (396) 945
|
|
END_SEARCH (397) 726
|
|
END_START (398) 955
|
|
END_STRINGCMD (399) 1082
|
|
END_SUBTRACT (400) 806
|
|
END_UNSTRING (401) 1084
|
|
END_WRITE (402) 941
|
|
ENVIRONMENT (403) 29
|
|
EOL (404) 353 377 853
|
|
EOS (405) 354 378 852
|
|
ERASE (406) 353 354 355 377 378 379 851 852 853 854
|
|
ERROR_TOK (407) 587 589 1003
|
|
EVALUATE (408) 652
|
|
EXCEPTION (409) 586 588 836 1050 1053
|
|
EXIT (410) 983 984 985
|
|
EXTEND (411) 875
|
|
EXTERNAL (412) 122 444 487
|
|
FALSE_TOK (413) 662 677
|
|
FD (414) 419
|
|
FILE_CONTROL (415) 97
|
|
FILE_ID (416) 503
|
|
FILE_TOK (417) 115 157 179
|
|
FILLER (418) 1276
|
|
FINAL (419) 221 305 313
|
|
FIRST (420) 219 1107
|
|
FOOTING (421) 215 248 249 250 509
|
|
FOR (422) 167 1091
|
|
FOREGROUNDCOLOR (423) 332 399
|
|
FROM (424) 346 531 802 803 804 826 827 828 829 830 831 932 936 1155
|
|
1162 1175
|
|
FULL (425) 358 382
|
|
FUNCTION (426) 1248 1249
|
|
GENERATE (427) 733
|
|
GIVING (428) 767 794 803 809 815 816 817 818 1128
|
|
GLOBAL (429) 197 445 488
|
|
GO (430) 956 957
|
|
GOBACK (431) 990
|
|
GROUP (432) 267 297
|
|
HEADING (433) 204 242 243 245
|
|
HIGHLIGHT (434) 368 392
|
|
HIGHVALUES (435) 1263
|
|
IDENTIFICATION (436) 15
|
|
IF (437) 684
|
|
IGNORE (438) 892
|
|
IN (439) 1228 1229
|
|
INDEXED (440) 137 461
|
|
INDICATE (441) 300
|
|
INITIALIZE (442) 774 775
|
|
INITIAL_TOK (443) 17 1111
|
|
INITIATE (444) 732
|
|
INPUT (445) 764 827 872
|
|
INSPECT (446) 1086 1087
|
|
INSTALLATION (447) 26
|
|
INTO (448) 817 818 819 907 1027 1029
|
|
INVALID (449) 923 925 1066 1068
|
|
I_O (450) 873
|
|
I_O_CONTROL (451) 99
|
|
JUSTIFIED (452) 266 362 363 386 387 443
|
|
KEY (453) 909 953 1217
|
|
LABEL (454) 502
|
|
LAST (455) 217
|
|
LEADING (456) 308 401 1095 1105
|
|
LEFT (457) 282 363 387 450
|
|
LENGTH (458) 772
|
|
LIMIT (459) 212
|
|
LIMITS (460) 213
|
|
LINAGE (461) 507
|
|
LINE (462) 140 206 272 273 274 327 352 376 857
|
|
LINES (463) 208 275 515 516
|
|
LINKAGE (464) 185
|
|
LISTSEP (465) 961 1215
|
|
LOCK (466) 891 892
|
|
LOWER (467) 374 398
|
|
LOWLIGHT (468) 367 391
|
|
LOWVALUES (469) 1264
|
|
LPAR (470) 1291
|
|
MERGE (471) 740
|
|
MINUS (472) 411
|
|
MODE (473) 46 135
|
|
MOVE (474) 770 771 772 773
|
|
MULTIPLE (475) 157
|
|
MULTIPLY (476) 807 808
|
|
NATIVE (477) 82
|
|
NEGATIVE (478) 1193
|
|
NEXT (479) 267 268 269 316 688 712 720 904
|
|
NOECHO (480) 370 394
|
|
NOTEXCEP (481) 1069
|
|
NULL_TOK (482) 1018 1022
|
|
NUMBER (483) 273 278 307 414
|
|
NUMBERS (484) 274 279
|
|
NUMERIC (485) 783 1195
|
|
NUMERIC_EDITED (486) 785
|
|
OBJECT_COMPUTER (487) 38
|
|
OCCURS (488) 455 458
|
|
OF (489) 317 503 772 1230
|
|
OFF (490) 77 1021
|
|
OMITTED (491) 538
|
|
ON (492) 75 268 1020 1236
|
|
ONLY (493)
|
|
OPEN (494) 868 869
|
|
OPTIONAL (495) 126
|
|
ORDER (496) 550
|
|
ORGANIZATION (497) 117
|
|
OTHER (498) 674
|
|
OUTPUT (499) 766 874
|
|
OVERFLOW_TOK (500) 1051 1056 1059
|
|
PADDING (501)
|
|
PAGE (502) 202 243 249 268 269 316 939
|
|
PAGE_COUNTER (503) 295
|
|
PARAGRAPH (504) 984
|
|
PERFORM (505) 642
|
|
PF (506) 258
|
|
PH (507) 252
|
|
PICTURE (508) 263 477
|
|
PLUS (509) 271 315 409
|
|
POINTER (510) 468 1071
|
|
POSITION (511) 162 859
|
|
POSITIVE (512) 1192
|
|
PREVIOUS (513) 905
|
|
PROCEDURE (514) 559 584 764 766
|
|
PROCEED (515)
|
|
PROGRAM (516) 10 20 41 985
|
|
PROGRAM_ID (517) 15
|
|
QUOTES (518) 1262
|
|
RANDOM (519) 144
|
|
RD (520) 194
|
|
READY (521) 730
|
|
RECORD (522) 110 112 154 500 501 535 1224
|
|
RECORDS (523) 524 536
|
|
REDEFINES (524) 434
|
|
REEL (525) 887 889
|
|
REFERENCE (526) 1137
|
|
RELATIVE (527) 111 139
|
|
REMAINDER (528) 816 817
|
|
REMOVAL (529) 889 890
|
|
RENAMES (530) 448
|
|
REPLACING (531) 777 1097
|
|
REPORT (532) 187 242 250 518
|
|
REPORTS (533) 519
|
|
REQUIRED (534) 359 383
|
|
RESERVE (535) 113
|
|
RESET (536) 304 305 731
|
|
RETURN (537) 894 895
|
|
RETURNING (538) 1127
|
|
REVERSEVIDEO (539) 365 389
|
|
REWIND (540) 886
|
|
REWRITE (541) 943
|
|
RF (542) 259
|
|
RH (543) 251
|
|
RIGHT (544) 284 311 362 386 451
|
|
ROUNDED (545) 996
|
|
RUN (546) 986
|
|
SAME (547) 152
|
|
SCREEN (548) 320 351 375 854
|
|
SD (549) 423
|
|
SEARCH (550) 648 649
|
|
SECTION (551) 31 93 179 182 185 187 320 592
|
|
SECURE (552) 360 384
|
|
SECURITY (553) 27
|
|
SELECT (554) 103
|
|
SENTENCE (555) 688 712 720
|
|
SEPARATE (556) 260 261 403
|
|
SEQUENCE (557) 43
|
|
SEQUENTIAL (558) 138 140 142
|
|
SET (559) 1010
|
|
SIGN (560) 61 260 407
|
|
SIZE (561) 341 998 999 1001 1005 1079
|
|
SORT (562) 155 747 749
|
|
SORT_MERGE (563) 156
|
|
SOURCE (564) 289
|
|
SOURCE_COMPUTER (565) 36
|
|
SPACES (566) 1260
|
|
SPECIAL_NAMES (567) 39
|
|
STANDARD (568) 537 588 589
|
|
STANDARD_1 (569) 83
|
|
STANDARD_2 (570) 84
|
|
START (571) 951
|
|
STATUS (572) 69 79 109 827
|
|
STD_ERROR (573) 848
|
|
STD_OUTPUT (574) 847
|
|
STOP (575) 986 987
|
|
STRINGCMD (576) 1027
|
|
SUBTRACT (577) 800 801
|
|
SUM (578) 293
|
|
SYNCHRONIZED (579) 442
|
|
TALLYING (580) 1042 1089
|
|
TAPE (581) 163
|
|
TCOBPROTO1 (582) 728
|
|
TCOBPROTO2 (583) 729
|
|
TERMINATE (584) 734
|
|
TEST (585) 1166
|
|
THEN (586) 694
|
|
TIMES (587) 542 1147 1159
|
|
TOKDUMMY (588)
|
|
TOP (589) 511
|
|
TRACE (590) 730 731
|
|
TRAILING (591) 309 402 1106
|
|
TRUE_TOK (592) 661 676 1023
|
|
TYPE (593) 241
|
|
UNDERLINE (594) 366 390
|
|
UNIT (595) 888 890
|
|
UNLOCK (596) 727
|
|
UNSTRING (597) 1029
|
|
UNTIL (598) 1151 1155 1158 1162 1175
|
|
UP (599) 1012
|
|
UPDATE (600) 371 395
|
|
UPON (601) 302 846 847 848
|
|
UPPER (602) 373 397
|
|
USAGE (603) 264 540
|
|
USE (604) 584
|
|
USING (605) 344 741 765 1125 1131
|
|
VALUE (606) 290 470 503 1138
|
|
VALUES (607) 471
|
|
VARYING (608) 501 702 1155 1162
|
|
WHEN (609) 544 665 669 710 718
|
|
WITH (610) 1234
|
|
WORKING_STORAGE (611) 182
|
|
ZERO (612) 298 369 393 446 1194 1261
|
|
PERIOD_TOK (613) 15 23 24 25 26 27 29 31 36 38 39 49 93 97 99 103 147
|
|
176 179 182 185 187 194 227 320 325 419 423 429 559 566 568 569
|
|
571 578 580 584 592 595 654
|
|
|
|
|
|
Nonterminals, with rules where they appear
|
|
|
|
$accept (368)
|
|
on left: 0
|
|
root_ (369)
|
|
on left: 1, on right: 0
|
|
program_sequences (370)
|
|
on left: 2 3 4, on right: 1
|
|
program_sequence (371)
|
|
on left: 5 7 8, on right: 3 4 7 8
|
|
$@1 (372)
|
|
on left: 6, on right: 7
|
|
end_program (373)
|
|
on left: 10, on right: 5 7 8
|
|
$@2 (374)
|
|
on left: 9, on right: 10
|
|
program (375)
|
|
on left: 11, on right: 2 4 5 7 8
|
|
identification_division (376)
|
|
on left: 15, on right: 11
|
|
$@3 (377)
|
|
on left: 12, on right: 15
|
|
$@4 (378)
|
|
on left: 13, on right: 15
|
|
$@5 (379)
|
|
on left: 14, on right: 15
|
|
programid_opts_opt (380)
|
|
on left: 16 17 18, on right: 15
|
|
programid_program_opt (381)
|
|
on left: 19 20, on right: 17 18
|
|
identification_division_options_opt (382)
|
|
on left: 21 22, on right: 15 22
|
|
identification_division_option (383)
|
|
on left: 23 24 25 26 27, on right: 22
|
|
environment_division_opt (384)
|
|
on left: 29 30, on right: 11
|
|
$@6 (385)
|
|
on left: 28, on right: 29
|
|
configuration_opt (386)
|
|
on left: 31 32, on right: 29
|
|
configuration_section (387)
|
|
on left: 33 34, on right: 31 33
|
|
configuration_option (388)
|
|
on left: 36 38 39 40, on right: 33
|
|
$@7 (389)
|
|
on left: 35, on right: 36
|
|
$@8 (390)
|
|
on left: 37, on right: 38
|
|
program_collating_opt (391)
|
|
on left: 41 42, on right: 38
|
|
collating_sequence (392)
|
|
on left: 43, on right: 41 763
|
|
collating_opt (393)
|
|
on left: 44 45, on right: 43
|
|
debug_mode_opt (394)
|
|
on left: 46 47, on right: 36
|
|
special_names_opt (395)
|
|
on left: 48 49 50, on right: 39
|
|
special_names (396)
|
|
on left: 51 52, on right: 49 52
|
|
special_name (397)
|
|
on left: 53 54 55 56 57 58 59, on right: 51 52
|
|
currency_details (398)
|
|
on left: 60, on right: 55
|
|
sign_opt (399)
|
|
on left: 61 62, on right: 60
|
|
special_name_class (400)
|
|
on left: 63, on right: 59
|
|
special_name_class_item_list (401)
|
|
on left: 64 65, on right: 63 65
|
|
special_name_class_item (402)
|
|
on left: 66 67, on right: 64 65
|
|
decimal_point_details (403)
|
|
on left: 68, on right: 56
|
|
screen_status_details (404)
|
|
on left: 69, on right: 57
|
|
cursor_details (405)
|
|
on left: 70, on right: 58
|
|
switches_details_list (406)
|
|
on left: 71 72, on right: 53 72
|
|
switches_details (407)
|
|
on left: 74, on right: 72
|
|
$@9 (408)
|
|
on left: 73, on right: 74
|
|
switch_on_opt (409)
|
|
on left: 75 76, on right: 74
|
|
switch_off_opt (410)
|
|
on left: 77 78, on right: 74
|
|
status_opt (411)
|
|
on left: 79 80, on right: 75 77
|
|
alphabet_details (412)
|
|
on left: 81, on right: 54
|
|
alphabet_type (413)
|
|
on left: 82 83 84 85, on right: 81
|
|
alphabet_literal_list (414)
|
|
on left: 86 87, on right: 85 87
|
|
alphabet_literal_item (415)
|
|
on left: 88 89 90, on right: 86 87
|
|
alphabet_also_list (416)
|
|
on left: 91 92, on right: 90 92
|
|
input_output_opt (417)
|
|
on left: 93 94, on right: 29
|
|
input_output_section (418)
|
|
on left: 95 96, on right: 93
|
|
file_control_paragraph (419)
|
|
on left: 97, on right: 95
|
|
i_o_control_paragraph (420)
|
|
on left: 98 99, on right: 95
|
|
file_control (421)
|
|
on left: 100 101, on right: 97 101
|
|
file_select (422)
|
|
on left: 103, on right: 100 101
|
|
$@10 (423)
|
|
on left: 102, on right: 103
|
|
select_clauses (424)
|
|
on left: 104 105, on right: 103 104
|
|
select_clause (425)
|
|
on left: 106 107 108 109 110 111 112 113 114, on right: 104
|
|
file_opt (426)
|
|
on left: 115 116, on right: 109
|
|
organization_opt (427)
|
|
on left: 117 118, on right: 106
|
|
assign_clause (428)
|
|
on left: 119 120 121 122 123, on right: 107
|
|
with_duplicates (429)
|
|
on left: 124 125, on right: 112
|
|
optional_opt (430)
|
|
on left: 126 127, on right: 103
|
|
areas_opt (431)
|
|
on left: 128 129 130, on right: 113
|
|
is_opt (432)
|
|
on left: 131 132, on right: 17 18 43 60 63 68 69 70 74 75 77 81
|
|
106 108 109 110 111 112 197 204 209 215 217 219 241 260 263 264
|
|
267 273 278 289 290 407 408 414 444 445 459 465 470 477 487 488
|
|
501 503 506 507 518 535 721 722 764 766 909 953 1203
|
|
are_opt (433)
|
|
on left: 133 134, on right: 210 274 275 279 280 471 519 536
|
|
mode_opt (434)
|
|
on left: 135 136, on right: 108
|
|
organization_options (435)
|
|
on left: 137 138 139 140 141, on right: 106
|
|
access_options (436)
|
|
on left: 142 143 144 145, on right: 108
|
|
i_o_control_opt (437)
|
|
on left: 146 147, on right: 99
|
|
i_o_control_list (438)
|
|
on left: 148 149, on right: 147 149
|
|
i_o_control_clause (439)
|
|
on left: 150 151, on right: 148 149
|
|
i_o_control_same_clause (440)
|
|
on left: 152, on right: 150
|
|
same_clause_options (441)
|
|
on left: 153 154 155 156, on right: 152
|
|
i_o_control_multiple_file_tape_clause (442)
|
|
on left: 157, on right: 151
|
|
i_o_control_multiple_file_list (443)
|
|
on left: 158 159, on right: 157 159
|
|
i_o_control_multiple_file (444)
|
|
on left: 160, on right: 158 159
|
|
i_o_control_multiple_file_position_opt (445)
|
|
on left: 161 162, on right: 160
|
|
tape_opt (446)
|
|
on left: 163 164, on right: 157
|
|
are_opta (447)
|
|
on left: 165 166, on right: 152
|
|
for_opt (448)
|
|
on left: 167 168, on right: 152 889 890
|
|
string_list (449)
|
|
on left: 169 170 171, on right: 152 170
|
|
name_list (450)
|
|
on left: 172 173 174, on right: 173 1015
|
|
data_division_opt (451)
|
|
on left: 176 177, on right: 11
|
|
$@11 (452)
|
|
on left: 175, on right: 176
|
|
file_section_opt (453)
|
|
on left: 179 180, on right: 176
|
|
$@12 (454)
|
|
on left: 178, on right: 179
|
|
working_storage_opt (455)
|
|
on left: 182 183, on right: 176
|
|
$@13 (456)
|
|
on left: 181, on right: 182
|
|
linkage_section_opt (457)
|
|
on left: 185 186, on right: 176
|
|
$@14 (458)
|
|
on left: 184, on right: 185
|
|
report_section_opt (459)
|
|
on left: 187 188, on right: 176
|
|
report_sections (460)
|
|
on left: 189 190, on right: 187 189
|
|
report_section (461)
|
|
on left: 194, on right: 189
|
|
$@15 (462)
|
|
on left: 191, on right: 194
|
|
$@16 (463)
|
|
on left: 192, on right: 194
|
|
$@17 (464)
|
|
on left: 193, on right: 194
|
|
report_controls (465)
|
|
on left: 195 196, on right: 194 196
|
|
report_control (466)
|
|
on left: 197 198 199 200, on right: 196
|
|
report_controls_control (467)
|
|
on left: 201, on right: 199
|
|
report_controls_page (468)
|
|
on left: 202, on right: 200
|
|
heading_opt (469)
|
|
on left: 203 204, on right: 202
|
|
line_lines_opt (470)
|
|
on left: 205 206, on right: 202 938
|
|
lines_opt (471)
|
|
on left: 207 208, on right: 205 507
|
|
control_is_are (472)
|
|
on left: 209 210, on right: 201
|
|
limit_is_are_opt (473)
|
|
on left: 211 212 213, on right: 202
|
|
footing_opt (474)
|
|
on left: 214 215, on right: 202
|
|
last_detail_opt (475)
|
|
on left: 216 217, on right: 202
|
|
first_detail_opt (476)
|
|
on left: 218 219, on right: 202
|
|
final_opt (477)
|
|
on left: 220 221, on right: 201
|
|
report_break_list (478)
|
|
on left: 222 223, on right: 201 223
|
|
report_description (479)
|
|
on left: 224 225, on right: 194 225
|
|
report_item (480)
|
|
on left: 227, on right: 224 225
|
|
$@18 (481)
|
|
on left: 226, on right: 227
|
|
report_clauses (482)
|
|
on left: 228 229, on right: 227 229
|
|
report_clause (483)
|
|
on left: 230 231 232 233 234 235 236 237 238 239 240, on right:
|
|
228 229
|
|
report_clause_type (484)
|
|
on left: 241, on right: 232
|
|
report_clause_type2 (485)
|
|
on left: 242 243 245 246 248 249 250 251 252 254 255 257 258 259,
|
|
on right: 241
|
|
$@19 (486)
|
|
on left: 244, on right: 245
|
|
$@20 (487)
|
|
on left: 247, on right: 248
|
|
$@21 (488)
|
|
on left: 253, on right: 254
|
|
$@22 (489)
|
|
on left: 256, on right: 257
|
|
report_clause_sign_is (490)
|
|
on left: 260 261, on right: 235
|
|
report_clause_picture (491)
|
|
on left: 263, on right: 234
|
|
$@23 (492)
|
|
on left: 262, on right: 263
|
|
report_clause_usage_display (493)
|
|
on left: 264 265, on right: 233
|
|
report_clause_justified (494)
|
|
on left: 266, on right: 236
|
|
report_clause_next_group (495)
|
|
on left: 267, on right: 231
|
|
report_clause_line (496)
|
|
on left: 268 269 270 271, on right: 230
|
|
report_clause_line_is (497)
|
|
on left: 272 273 274 275, on right: 268 269 270 271
|
|
report_clause_column (498)
|
|
on left: 276, on right: 238
|
|
report_clause_column_is (499)
|
|
on left: 277 278 279 280, on right: 276
|
|
report_clause_column_orientation (500)
|
|
on left: 281 282 283 284, on right: 277 278 279 280
|
|
is_are_opt (501)
|
|
on left: 285 286 287, on right: 272 277
|
|
report_clause_svs (502)
|
|
on left: 289 290 293, on right: 239
|
|
$@24 (503)
|
|
on left: 288, on right: 289
|
|
$@25 (504)
|
|
on left: 291, on right: 293
|
|
$@26 (505)
|
|
on left: 292, on right: 293
|
|
gname_page_counter (506)
|
|
on left: 294 295, on right: 289
|
|
report_clause_group_indicate (507)
|
|
on left: 296 297, on right: 240
|
|
report_clause_blank_zero (508)
|
|
on left: 298, on right: 237
|
|
indicate_opt (509)
|
|
on left: 299 300, on right: 297
|
|
upon_opt (510)
|
|
on left: 301 302, on right: 293
|
|
reset_opt (511)
|
|
on left: 303 304 305, on right: 293
|
|
number_opt (512)
|
|
on left: 306 307, on right: 857 858
|
|
leading_trailing (513)
|
|
on left: 308 309, on right: 260 261
|
|
right_opt (514)
|
|
on left: 310 311, on right: 266
|
|
name_final_opt (515)
|
|
on left: 312 313, on right: 245 248 254 257
|
|
integer_on_next_page (516)
|
|
on left: 314 315 316, on right: 267
|
|
of_opt (517)
|
|
on left: 317 318, on right: 1025
|
|
screen_section_opt (518)
|
|
on left: 320 321, on right: 176
|
|
$@27 (519)
|
|
on left: 319, on right: 320
|
|
screen_section (520)
|
|
on left: 322 323, on right: 320 322
|
|
screen_item (521)
|
|
on left: 325, on right: 322
|
|
$@28 (522)
|
|
on left: 324, on right: 325
|
|
screen_clauses (523)
|
|
on left: 327 329 330 332 334 336 337 338 339 341 342, on right:
|
|
325 327 329 330 332 334 336 337 338 339 341
|
|
$@29 (524)
|
|
on left: 326, on right: 327
|
|
$@30 (525)
|
|
on left: 328, on right: 329
|
|
$@31 (526)
|
|
on left: 331, on right: 332
|
|
$@32 (527)
|
|
on left: 333, on right: 334
|
|
$@33 (528)
|
|
on left: 335, on right: 336
|
|
$@34 (529)
|
|
on left: 340, on right: 341
|
|
screen_source_destination (530)
|
|
on left: 344 346 348, on right: 337
|
|
$@35 (531)
|
|
on left: 343, on right: 344
|
|
$@36 (532)
|
|
on left: 345, on right: 346
|
|
$@37 (533)
|
|
on left: 347, on right: 348
|
|
screen_to_name (534)
|
|
on left: 349 350, on right: 346
|
|
screen_attrib (535)
|
|
on left: 351 352 353 354 355 356 357 358 359 360 361 362 363 364
|
|
365 366 367 368 369 370 371 372 373 374, on right: 330
|
|
screen_attribx (536)
|
|
on left: 375 376 377 378 379 380 381 382 383 384 385 386 387 388
|
|
389 390 391 392 393 394 395 396 397 398 399 400, on right: 864
|
|
sign_clause (537)
|
|
on left: 401 402, on right: 357 381 440
|
|
separate_opt (538)
|
|
on left: 403 404, on right: 401 402
|
|
character_opt (539)
|
|
on left: 405 406, on right: 260 261 403
|
|
sign_is_opt (540)
|
|
on left: 407 408, on right: 401 402
|
|
plus_minus_opt (541)
|
|
on left: 409 410 411 412 413, on right: 327 329
|
|
number_is_opt (542)
|
|
on left: 414 415, on right: 327 329
|
|
file_section (543)
|
|
on left: 419 423 424 425, on right: 179 419 423
|
|
$@38 (544)
|
|
on left: 416, on right: 419
|
|
$@39 (545)
|
|
on left: 417, on right: 419
|
|
$@40 (546)
|
|
on left: 418, on right: 419
|
|
$@41 (547)
|
|
on left: 420, on right: 423
|
|
$@42 (548)
|
|
on left: 421, on right: 423
|
|
$@43 (549)
|
|
on left: 422, on right: 423
|
|
file_description (550)
|
|
on left: 426 427, on right: 419 423 427
|
|
field_description (551)
|
|
on left: 429, on right: 426 427 553 556
|
|
$@44 (552)
|
|
on left: 428, on right: 429
|
|
data_clauses (553)
|
|
on left: 430 431 432, on right: 429 431 432
|
|
redefines_clause (554)
|
|
on left: 434, on right: 432
|
|
$@45 (555)
|
|
on left: 433, on right: 434
|
|
redefines_var (556)
|
|
on left: 435 436, on right: 434
|
|
data_clause (557)
|
|
on left: 437 438 439 440 441 442 443 444 445 446 448, on right:
|
|
431
|
|
$@46 (558)
|
|
on left: 447, on right: 448
|
|
sync_options (559)
|
|
on left: 449 450 451, on right: 442 443
|
|
thru_gname_opt (560)
|
|
on left: 452 453, on right: 448
|
|
array_options (561)
|
|
on left: 455 458, on right: 437
|
|
$@47 (562)
|
|
on left: 454, on right: 455
|
|
$@48 (563)
|
|
on left: 456, on right: 458
|
|
$@49 (564)
|
|
on left: 457, on right: 458
|
|
key_is_opt (565)
|
|
on left: 459 460, on right: 461
|
|
indexed_by_opt (566)
|
|
on left: 461 462, on right: 455 458
|
|
index_name_list (567)
|
|
on left: 463 464, on right: 461 464
|
|
usage_option (568)
|
|
on left: 465, on right: 439
|
|
usage (569)
|
|
on left: 466 467 468, on right: 465
|
|
value_option (570)
|
|
on left: 469, on right: 441
|
|
value_is_are (571)
|
|
on left: 470 471, on right: 338 469
|
|
value_list (572)
|
|
on left: 472 473, on right: 469 473
|
|
value (573)
|
|
on left: 474 475, on right: 472 473
|
|
pictures (574)
|
|
on left: 477, on right: 339 438
|
|
$@50 (575)
|
|
on left: 476, on right: 477
|
|
picture (576)
|
|
on left: 478 479, on right: 263 477 479
|
|
pic_elem (577)
|
|
on left: 480, on right: 479
|
|
multiplier_opt (578)
|
|
on left: 481 482, on right: 480
|
|
file_description_fd_clauses (579)
|
|
on left: 483 484, on right: 419 484
|
|
file_description_sd_clauses (580)
|
|
on left: 485 486, on right: 423 486
|
|
file_description_fd_clause (581)
|
|
on left: 487 488 489 490 491 492 493 494 495 496, on right: 484
|
|
file_description_sd_clause (582)
|
|
on left: 497 498, on right: 486
|
|
file_description_clause_block (583)
|
|
on left: 499, on right: 489
|
|
file_description_clause_record (584)
|
|
on left: 500 501, on right: 490 497
|
|
file_description_clause_label (585)
|
|
on left: 502, on right: 491
|
|
file_description_clause_value (586)
|
|
on left: 503, on right: 492
|
|
file_description_clause_data (587)
|
|
on left: 504, on right: 493 498
|
|
file_description_clause_report (588)
|
|
on left: 505, on right: 494
|
|
file_description_clause_code_set (589)
|
|
on left: 506, on right: 496
|
|
file_description_clause_linage (590)
|
|
on left: 507, on right: 495
|
|
file_description_clause_linage_footing (591)
|
|
on left: 508 509, on right: 507
|
|
file_description_clause_linage_top (592)
|
|
on left: 510 511, on right: 507
|
|
file_description_clause_linage_bottom (593)
|
|
on left: 512 513, on right: 507
|
|
lines_at_opt (594)
|
|
on left: 514 515 516 517, on right: 511 513
|
|
report_is_are (595)
|
|
on left: 518 519, on right: 505
|
|
var_strings (596)
|
|
on left: 520 521, on right: 504 521
|
|
chars_or_recs_opt (597)
|
|
on left: 522 523 524, on right: 499
|
|
to_integer_opt (598)
|
|
on left: 525 526, on right: 499
|
|
depend_rec_varying (599)
|
|
on left: 527 528, on right: 501
|
|
from_rec_varying (600)
|
|
on left: 529 530, on right: 501
|
|
from_opt (601)
|
|
on left: 531 532, on right: 530
|
|
to_rec_varying (602)
|
|
on left: 533 534, on right: 500 501
|
|
record_is_are (603)
|
|
on left: 535 536, on right: 502 504
|
|
std_or_omitt (604)
|
|
on left: 537 538, on right: 502
|
|
usage_opt (605)
|
|
on left: 539 540, on right: 465
|
|
times_opt (606)
|
|
on left: 541 542, on right: 455 458
|
|
when_opt (607)
|
|
on left: 543 544, on right: 298 369 393 446
|
|
contains_opt (608)
|
|
on left: 545 546, on right: 157 499 500
|
|
character_opts (609)
|
|
on left: 547 548, on right: 500 501
|
|
order_opt (610)
|
|
on left: 549 550, on right: 761
|
|
data_opt (611)
|
|
on left: 551 552, on right: 780
|
|
working_storage_section (612)
|
|
on left: 553 554, on right: 182 553
|
|
linkage_section (613)
|
|
on left: 555 556, on right: 185 556
|
|
procedure_division_opt (614)
|
|
on left: 559 560, on right: 11
|
|
$@51 (615)
|
|
on left: 557, on right: 559
|
|
$@52 (616)
|
|
on left: 558, on right: 559
|
|
procedure_division (617)
|
|
on left: 561 562, on right: 559 562
|
|
procedure_decl (618)
|
|
on left: 563 564 566 568 569, on right: 562
|
|
$@53 (619)
|
|
on left: 565, on right: 566
|
|
$@54 (620)
|
|
on left: 567, on right: 568
|
|
declaratives_opt (621)
|
|
on left: 571 572, on right: 559
|
|
$@55 (622)
|
|
on left: 570, on right: 571
|
|
declaratives_division (623)
|
|
on left: 573 574, on right: 571 574
|
|
declaratives_decl (624)
|
|
on left: 575 576 578 580, on right: 574
|
|
$@56 (625)
|
|
on left: 577, on right: 578
|
|
$@57 (626)
|
|
on left: 579, on right: 580
|
|
declaratives_procedure (627)
|
|
on left: 582 583, on right: 571 575
|
|
$@58 (628)
|
|
on left: 581, on right: 582
|
|
use_phrase (629)
|
|
on left: 584 585, on right: 582
|
|
use_phrase_exception_error (630)
|
|
on left: 586 587 588 589, on right: 584
|
|
use_phrase_option (631)
|
|
on left: 590 591, on right: 584
|
|
procedure_section (632)
|
|
on left: 592, on right: 563 582
|
|
paragraph (633)
|
|
on left: 593, on right: 564 576
|
|
dot_or_eos (634)
|
|
on left: 594 595, on right: 593
|
|
statement_list (635)
|
|
on left: 596, on right: 686 705 711 719 836 918 923 925 1003 1048
|
|
1053 1056 1059 1066 1068 1177
|
|
statements (636)
|
|
on left: 597 598, on right: 566 578 596 598
|
|
statement (637)
|
|
on left: 599 600 601 602 603 604 605 606 607 608 609 610 611 612
|
|
613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628
|
|
629 630 631 632 633 634 635 636 637 638 639 640 641, on right:
|
|
597 598
|
|
perform_statement (638)
|
|
on left: 642, on right: 617
|
|
if_statement (639)
|
|
on left: 644 647, on right: 638
|
|
$@59 (640)
|
|
on left: 643, on right: 644
|
|
@60 (641)
|
|
on left: 645, on right: 647
|
|
$@61 (642)
|
|
on left: 646, on right: 647
|
|
search_statement (643)
|
|
on left: 648 649, on right: 640
|
|
evaluate_statement (644)
|
|
on left: 652, on right: 639
|
|
@62 (645)
|
|
on left: 650, on right: 652
|
|
$@63 (646)
|
|
on left: 651, on right: 652
|
|
end_evaluate_or_eos (647)
|
|
on left: 653 654, on right: 652
|
|
selection_subject_set (648)
|
|
on left: 656 658, on right: 652 658
|
|
@64 (649)
|
|
on left: 655, on right: 656
|
|
@65 (650)
|
|
on left: 657, on right: 658
|
|
selection_subject (651)
|
|
on left: 659 660 661 662, on right: 656 658
|
|
when_case_list (652)
|
|
on left: 665 669, on right: 652 669
|
|
@66 (653)
|
|
on left: 663, on right: 665
|
|
@67 (654)
|
|
on left: 664, on right: 665
|
|
@68 (655)
|
|
on left: 666, on right: 669
|
|
@69 (656)
|
|
on left: 667, on right: 669
|
|
$@70 (657)
|
|
on left: 668, on right: 669
|
|
when_case (658)
|
|
on left: 671 673 674, on right: 665 669 673
|
|
@71 (659)
|
|
on left: 670, on right: 671
|
|
@72 (660)
|
|
on left: 672, on right: 673
|
|
selection_object (661)
|
|
on left: 675 676 677 678 679 680, on right: 671 673
|
|
sentence_or_nothing (662)
|
|
on left: 681 682, on right: 665 669
|
|
if_part (663)
|
|
on left: 684, on right: 644 647
|
|
@73 (664)
|
|
on left: 683, on right: 684
|
|
conditional_statement (665)
|
|
on left: 686 688, on right: 647 682 684
|
|
$@74 (666)
|
|
on left: 685, on right: 686
|
|
$@75 (667)
|
|
on left: 687, on right: 688
|
|
not_opt (668)
|
|
on left: 689 690, on right: 678 679 680
|
|
end_if_opt (669)
|
|
on left: 691 692, on right: 644 647
|
|
end_then_opt (670)
|
|
on left: 693 694, on right: 684
|
|
search (671)
|
|
on left: 698, on right: 648
|
|
@76 (672)
|
|
on left: 695, on right: 698
|
|
@77 (673)
|
|
on left: 696, on right: 698
|
|
@78 (674)
|
|
on left: 697, on right: 698
|
|
search_all (675)
|
|
on left: 701, on right: 649
|
|
@79 (676)
|
|
on left: 699, on right: 701
|
|
$@80 (677)
|
|
on left: 700, on right: 701
|
|
search_varying_opt (678)
|
|
on left: 702 703, on right: 698
|
|
search_at_end (679)
|
|
on left: 705 706, on right: 698 701
|
|
@81 (680)
|
|
on left: 704, on right: 705
|
|
search_when_list (681)
|
|
on left: 707 708, on right: 698 708
|
|
search_when (682)
|
|
on left: 710, on right: 707 708
|
|
@82 (683)
|
|
on left: 709, on right: 710
|
|
search_when_statement (684)
|
|
on left: 711 712, on right: 710
|
|
search_when_conditional (685)
|
|
on left: 713, on right: 710
|
|
search_all_when_list (686)
|
|
on left: 714 715, on right: 701 715
|
|
search_all_when (687)
|
|
on left: 718, on right: 714 715
|
|
$@83 (688)
|
|
on left: 716, on right: 718
|
|
@84 (689)
|
|
on left: 717, on right: 718
|
|
search_all_when_statement (690)
|
|
on left: 719 720, on right: 718
|
|
search_all_when_conditional (691)
|
|
on left: 721 722 724, on right: 718 724
|
|
@85 (692)
|
|
on left: 723, on right: 724
|
|
end_search_opt (693)
|
|
on left: 725 726, on right: 648 649
|
|
unlock_statement (694)
|
|
on left: 727, on right: 637
|
|
proto_statement (695)
|
|
on left: 728 729, on right: 633
|
|
trace_statement (696)
|
|
on left: 730 731, on right: 634
|
|
initiate_statement (697)
|
|
on left: 732, on right: 630
|
|
generate_statement (698)
|
|
on left: 733, on right: 631
|
|
terminate_statement (699)
|
|
on left: 734, on right: 632
|
|
cancel_statement (700)
|
|
on left: 735 736, on right: 636
|
|
merge_statement (701)
|
|
on left: 740, on right: 626
|
|
$@86 (702)
|
|
on left: 737, on right: 740
|
|
$@87 (703)
|
|
on left: 738, on right: 740
|
|
$@88 (704)
|
|
on left: 739, on right: 740
|
|
merge_using (705)
|
|
on left: 741, on right: 740
|
|
sort_statement (706)
|
|
on left: 742 743, on right: 625
|
|
sort_file (707)
|
|
on left: 747, on right: 742
|
|
$@89 (708)
|
|
on left: 744, on right: 747
|
|
$@90 (709)
|
|
on left: 745, on right: 747
|
|
$@91 (710)
|
|
on left: 746, on right: 747
|
|
sort_variable_indexed (711)
|
|
on left: 749, on right: 743
|
|
$@92 (712)
|
|
on left: 748, on right: 749
|
|
sort_keys (713)
|
|
on left: 750 751, on right: 740 747 751
|
|
sort_keys_idx (714)
|
|
on left: 752 753, on right: 749 753
|
|
sort_key (715)
|
|
on left: 754, on right: 750 751
|
|
sort_key_idx (716)
|
|
on left: 755, on right: 752 753
|
|
sort_keys_names (717)
|
|
on left: 756 757, on right: 754 757
|
|
sort_keys_names_idx (718)
|
|
on left: 758 759, on right: 755 759
|
|
sort_duplicates_opt (719)
|
|
on left: 760 761, on right: 747 749
|
|
sort_collating_opt (720)
|
|
on left: 762 763, on right: 740 747 749
|
|
sort_input (721)
|
|
on left: 764 765, on right: 747
|
|
sort_output (722)
|
|
on left: 766 767, on right: 740 747
|
|
sort_file_list (723)
|
|
on left: 768 769, on right: 741 765 767 769
|
|
move_statement (724)
|
|
on left: 770 771 772 773, on right: 599
|
|
initialize_statement (725)
|
|
on left: 774 775, on right: 600
|
|
initialize_replacing_opt (726)
|
|
on left: 776 777, on right: 774
|
|
initialize_replacing_lists (727)
|
|
on left: 778 779, on right: 777 779
|
|
initialize_replacing_list (728)
|
|
on left: 780, on right: 778 779
|
|
initialize_type_list (729)
|
|
on left: 781 782 783 784 785, on right: 780
|
|
compute_statement (730)
|
|
on left: 786 787, on right: 601
|
|
compute_body (731)
|
|
on left: 788, on right: 786
|
|
end_compute_opt (732)
|
|
on left: 789 790, on right: 786
|
|
add_statement (733)
|
|
on left: 791 792, on right: 602
|
|
add_body (734)
|
|
on left: 793 794 795, on right: 791
|
|
add_to_opt (735)
|
|
on left: 796 797, on right: 794
|
|
end_add_opt (736)
|
|
on left: 798 799, on right: 791
|
|
subtract_statement (737)
|
|
on left: 800 801, on right: 603
|
|
subtract_body (738)
|
|
on left: 802 803 804, on right: 800
|
|
end_subtract_opt (739)
|
|
on left: 805 806, on right: 800
|
|
multiply_statement (740)
|
|
on left: 807 808, on right: 604
|
|
multiply_body (741)
|
|
on left: 809 810, on right: 807
|
|
end_multiply_opt (742)
|
|
on left: 811 812, on right: 807
|
|
divide_statement (743)
|
|
on left: 813 814, on right: 605
|
|
divide_body (744)
|
|
on left: 815 816 817 818 819, on right: 813
|
|
end_divide_opt (745)
|
|
on left: 820 821, on right: 813
|
|
accept_statement (746)
|
|
on left: 822 823 824 825, on right: 606
|
|
accept_hardware (747)
|
|
on left: 826 827 828 829 830, on right: 822
|
|
accept_chronological (748)
|
|
on left: 831, on right: 823
|
|
accept_screen (749)
|
|
on left: 832 836, on right: 824
|
|
$@93 (750)
|
|
on left: 833, on right: 836
|
|
@94 (751)
|
|
on left: 834, on right: 836
|
|
$@95 (752)
|
|
on left: 835, on right: 836
|
|
end_accept_opt (753)
|
|
on left: 837 838, on right: 826 827 828 829 830 831 832 836
|
|
display_statement (754)
|
|
on left: 839 840 841, on right: 607
|
|
display_line (755)
|
|
on left: 842, on right: 839
|
|
display_screen (756)
|
|
on left: 843, on right: 840
|
|
display_varlist (757)
|
|
on left: 844 845, on right: 842 843 845
|
|
display_upon (758)
|
|
on left: 846 847 848, on right: 842
|
|
display_line_options (759)
|
|
on left: 849 850 851 852 853 854, on right: 842 850 851 852 853
|
|
854
|
|
end_display_opt (760)
|
|
on left: 855 856, on right: 842 843
|
|
scr_line (761)
|
|
on left: 857, on right: 865
|
|
scr_position (762)
|
|
on left: 858 859, on right: 866
|
|
scr_line_position (763)
|
|
on left: 860 861, on right: 867
|
|
accept_display_options (764)
|
|
on left: 862 863, on right: 832 836 843 863
|
|
accept_display_option (765)
|
|
on left: 864 865 866 867, on right: 863
|
|
open_statement (766)
|
|
on left: 868 869, on right: 608
|
|
open_options (767)
|
|
on left: 870 871, on right: 868 871
|
|
open_mode (768)
|
|
on left: 872 873 874 875 876, on right: 591 870 871
|
|
open_varlist (769)
|
|
on left: 877 878, on right: 870 871 878
|
|
close_statement (770)
|
|
on left: 879 880, on right: 609
|
|
close_files (771)
|
|
on left: 881 882, on right: 879 882
|
|
close_file (772)
|
|
on left: 883, on right: 881 882
|
|
close_options_opt (773)
|
|
on left: 884 885, on right: 883
|
|
close_options (774)
|
|
on left: 886 887 888 889 890, on right: 884
|
|
with_lock_opt (775)
|
|
on left: 891 892 893, on right: 885 900 901 902
|
|
return_statement (776)
|
|
on left: 894 895, on right: 611
|
|
return_body (777)
|
|
on left: 896 897, on right: 894
|
|
read_statement (778)
|
|
on left: 898 899, on right: 610
|
|
read_body (779)
|
|
on left: 900 901 902, on right: 898
|
|
read_next_opt (780)
|
|
on left: 903 904 905, on right: 900 901 902
|
|
read_into_opt (781)
|
|
on left: 906 907, on right: 896 897 900 901 902
|
|
read_key_opt (782)
|
|
on left: 908 909, on right: 900 901 902
|
|
read_at_end_opt (783)
|
|
on left: 910 911 912 914 916, on right: 897 901
|
|
$@96 (784)
|
|
on left: 913, on right: 914
|
|
$@97 (785)
|
|
on left: 915, on right: 916
|
|
on_end (786)
|
|
on left: 918, on right: 910 911 912 914 916
|
|
@98 (787)
|
|
on left: 917, on right: 918
|
|
read_invalid_key_opt (788)
|
|
on left: 919 920 921, on right: 902
|
|
read_invalid_key (789)
|
|
on left: 923, on right: 919 921
|
|
@99 (790)
|
|
on left: 922, on right: 923
|
|
read_not_invalid_key (791)
|
|
on left: 925, on right: 920 921
|
|
@100 (792)
|
|
on left: 924, on right: 925
|
|
end_read_opt (793)
|
|
on left: 926 927, on right: 898
|
|
end_return_opt (794)
|
|
on left: 928 929, on right: 894
|
|
release_statement (795)
|
|
on left: 930, on right: 612
|
|
release_from_opt (796)
|
|
on left: 931 932, on right: 930
|
|
write_statement (797)
|
|
on left: 934, on right: 613
|
|
$@101 (798)
|
|
on left: 933, on right: 934
|
|
write_from_opt (799)
|
|
on left: 935 936, on right: 934 943
|
|
write_options (800)
|
|
on left: 937 938 939, on right: 934
|
|
end_write_opt (801)
|
|
on left: 940 941, on right: 934
|
|
rewrite_statement (802)
|
|
on left: 943, on right: 614
|
|
$@102 (803)
|
|
on left: 942, on right: 943
|
|
end_rewrite_opt (804)
|
|
on left: 944 945, on right: 943
|
|
delete_statement (805)
|
|
on left: 947, on right: 615
|
|
$@103 (806)
|
|
on left: 946, on right: 947
|
|
end_delete_opt (807)
|
|
on left: 948 949, on right: 947
|
|
start_statement (808)
|
|
on left: 951, on right: 616
|
|
$@104 (809)
|
|
on left: 950, on right: 951
|
|
start_body (810)
|
|
on left: 952 953, on right: 951
|
|
end_start_opt (811)
|
|
on left: 954 955, on right: 951
|
|
goto_statement (812)
|
|
on left: 956 957, on right: 618
|
|
goto_label (813)
|
|
on left: 958, on right: 956
|
|
goto_label_list (814)
|
|
on left: 959 960 961, on right: 957 960 961
|
|
call_statement (815)
|
|
on left: 967 968, on right: 621
|
|
$@105 (816)
|
|
on left: 962, on right: 967
|
|
@106 (817)
|
|
on left: 963, on right: 967
|
|
@107 (818)
|
|
on left: 964, on right: 967
|
|
@108 (819)
|
|
on left: 965, on right: 967
|
|
$@109 (820)
|
|
on left: 966, on right: 967
|
|
call_convention_opt (821)
|
|
on left: 969 970 971, on right: 967
|
|
call_loadlib_statement (822)
|
|
on left: 973 974, on right: 622
|
|
$@110 (823)
|
|
on left: 972, on right: 973
|
|
end_call_loadlib_opt (824)
|
|
on left: 975 976, on right: 973
|
|
chain_statement (825)
|
|
on left: 981 982, on right: 623
|
|
$@111 (826)
|
|
on left: 977, on right: 981
|
|
@112 (827)
|
|
on left: 978, on right: 981
|
|
@113 (828)
|
|
on left: 979, on right: 981
|
|
$@114 (829)
|
|
on left: 980, on right: 981
|
|
exit_statement (830)
|
|
on left: 983 984 985, on right: 619
|
|
stop_statement (831)
|
|
on left: 986 987, on right: 620
|
|
stop_literal (832)
|
|
on left: 988 989, on right: 987
|
|
goback_statement (833)
|
|
on left: 990, on right: 635
|
|
var_list_name (834)
|
|
on left: 991 992, on right: 788 793 794 795 802 803 804 809 810
|
|
815 818 819 992
|
|
var_list_gname (835)
|
|
on left: 993 994, on right: 793 794 795 802 803 804 994
|
|
rounded_opt (836)
|
|
on left: 995 996, on right: 795 804 816 817 991 992
|
|
on_size_error_opt (837)
|
|
on left: 997 998 999 1001, on right: 788 793 794 795 802 803 804
|
|
809 810 815 816 817 818 819
|
|
$@115 (838)
|
|
on left: 1000, on right: 1001
|
|
on_size_error (839)
|
|
on left: 1003, on right: 998 999 1001
|
|
@116 (840)
|
|
on left: 1002, on right: 1003
|
|
size_opt (841)
|
|
on left: 1004 1005, on right: 501
|
|
end_call_opt (842)
|
|
on left: 1006 1007, on right: 967
|
|
end_chain_opt (843)
|
|
on left: 1008 1009, on right: 981
|
|
set_statement (844)
|
|
on left: 1010, on right: 624
|
|
set_list (845)
|
|
on left: 1011 1012 1013 1014, on right: 1010
|
|
set_target (846)
|
|
on left: 1015 1016, on right: 1011 1012 1013
|
|
set_variable (847)
|
|
on left: 1017 1018, on right: 1014
|
|
set_variable_or_nlit (848)
|
|
on left: 1019 1020 1021 1022 1023, on right: 1011
|
|
address_of_opt (849)
|
|
on left: 1024 1025, on right: 1011 1014
|
|
string_statement (850)
|
|
on left: 1027, on right: 628
|
|
$@117 (851)
|
|
on left: 1026, on right: 1027
|
|
unstring_statement (852)
|
|
on left: 1029, on right: 629
|
|
$@118 (853)
|
|
on left: 1028, on right: 1029
|
|
unstring_delimited (854)
|
|
on left: 1030 1031, on right: 1029
|
|
unstring_delimited_vars (855)
|
|
on left: 1032 1033, on right: 1030 1033
|
|
unstring_destinations (856)
|
|
on left: 1034 1035, on right: 1029 1035
|
|
unstring_dest_var (857)
|
|
on left: 1036, on right: 1034 1035
|
|
unstring_delim_opt (858)
|
|
on left: 1037 1038, on right: 1036
|
|
unstring_count_opt (859)
|
|
on left: 1039 1040, on right: 1036
|
|
unstring_tallying (860)
|
|
on left: 1041 1042, on right: 1029
|
|
all_opt (861)
|
|
on left: 1043 1044, on right: 1032 1033
|
|
on_overflow_opt (862)
|
|
on left: 1046, on right: 1027 1029
|
|
$@119 (863)
|
|
on left: 1045, on right: 1046
|
|
on_exception_or_overflow (864)
|
|
on left: 1048 1049, on right: 967 981
|
|
@120 (865)
|
|
on left: 1047, on right: 1048
|
|
exception_or_overflow (866)
|
|
on left: 1050 1051, on right: 1048
|
|
on_not_exception (867)
|
|
on left: 1053 1054, on right: 967
|
|
@121 (868)
|
|
on left: 1052, on right: 1053
|
|
on_overflow (869)
|
|
on left: 1056 1057, on right: 1046
|
|
@122 (870)
|
|
on left: 1055, on right: 1056
|
|
on_not_overflow (871)
|
|
on left: 1059 1060, on right: 1046
|
|
@123 (872)
|
|
on left: 1058, on right: 1059
|
|
invalid_key_opt (873)
|
|
on left: 1061 1062 1063 1064, on right: 934 943 947 951
|
|
invalid_key_sentence (874)
|
|
on left: 1066, on right: 1061 1063
|
|
@124 (875)
|
|
on left: 1065, on right: 1066
|
|
not_invalid_key_sentence (876)
|
|
on left: 1068, on right: 1062 1063
|
|
@125 (877)
|
|
on left: 1067, on right: 1068
|
|
not_excep (878)
|
|
on left: 1069 1070, on right: 1059 1068
|
|
string_with_pointer (879)
|
|
on left: 1071 1072, on right: 1027 1029
|
|
string_from_list (880)
|
|
on left: 1073 1074 1075, on right: 1027 1074
|
|
string_from (881)
|
|
on left: 1076 1077, on right: 1073 1074
|
|
delimited_by (882)
|
|
on left: 1078 1079 1080, on right: 1077
|
|
end_stringcmd_opt (883)
|
|
on left: 1081 1082, on right: 1027
|
|
end_unstring_opt (884)
|
|
on left: 1083 1084, on right: 1029
|
|
inspect_statement (885)
|
|
on left: 1086 1087, on right: 627
|
|
$@126 (886)
|
|
on left: 1085, on right: 1086
|
|
converting_clause (887)
|
|
on left: 1088, on right: 1087
|
|
tallying_clause (888)
|
|
on left: 1089 1090, on right: 1086
|
|
tallying_list (889)
|
|
on left: 1091 1092, on right: 1089 1091
|
|
tallying_for_list (890)
|
|
on left: 1093 1094 1095 1096, on right: 1091 1093 1094 1095
|
|
replacing_clause (891)
|
|
on left: 1097 1098, on right: 1086
|
|
replacing_list (892)
|
|
on left: 1099 1100 1101, on right: 1097 1099 1100
|
|
replacing_by_list (893)
|
|
on left: 1102 1103, on right: 1100 1102
|
|
replacing_kind (894)
|
|
on left: 1104 1105 1106 1107, on right: 1100
|
|
inspect_before_after (895)
|
|
on left: 1108 1109 1110, on right: 1088 1093 1094 1095 1099 1102
|
|
1108 1109
|
|
initial_opt (896)
|
|
on left: 1111 1112, on right: 1108 1109
|
|
expr (897)
|
|
on left: 1113 1114 1115 1116 1117 1118 1119, on right: 659 678
|
|
679 788 857 858 859 1114 1115 1116 1117 1118 1119 1121 1181 1190
|
|
1191
|
|
expr_opt (898)
|
|
on left: 1120 1121, on right: 1181
|
|
using_options (899)
|
|
on left: 1122 1125, on right: 967 981
|
|
@127 (900)
|
|
on left: 1123, on right: 1125
|
|
@128 (901)
|
|
on left: 1124, on right: 1125
|
|
returning_options (902)
|
|
on left: 1126 1127 1128, on right: 967
|
|
dummy (903)
|
|
on left: 1129, on right: 1125
|
|
using_parameters (904)
|
|
on left: 1130 1131 1132, on right: 559
|
|
parm_list (905)
|
|
on left: 1133 1134, on right: 1125 1133
|
|
parameter (906)
|
|
on left: 1135 1136, on right: 1133 1134
|
|
parm_type (907)
|
|
on left: 1137 1138 1139, on right: 1136
|
|
intrinsic_parm_list (908)
|
|
on left: 1140 1141, on right: 1140 1248
|
|
intrinsic_parm (909)
|
|
on left: 1142, on right: 1140 1141
|
|
perform_range (910)
|
|
on left: 1143, on right: 764 766
|
|
perform_options (911)
|
|
on left: 1144 1147 1151 1155 1156 1158 1159 1162, on right: 642
|
|
@129 (912)
|
|
on left: 1145, on right: 1147
|
|
$@130 (913)
|
|
on left: 1146, on right: 1147
|
|
@131 (914)
|
|
on left: 1148, on right: 1151
|
|
@132 (915)
|
|
on left: 1149, on right: 1151
|
|
$@133 (916)
|
|
on left: 1150, on right: 1151
|
|
@134 (917)
|
|
on left: 1152, on right: 1155
|
|
@135 (918)
|
|
on left: 1153, on right: 1155
|
|
$@136 (919)
|
|
on left: 1154, on right: 1155
|
|
@137 (920)
|
|
on left: 1157, on right: 1158
|
|
@138 (921)
|
|
on left: 1160, on right: 1162
|
|
@139 (922)
|
|
on left: 1161, on right: 1162
|
|
perform_thru_opt (923)
|
|
on left: 1163 1164, on right: 1143 1156 1158 1159 1162
|
|
with_test_opt (924)
|
|
on left: 1165 1166, on right: 1151 1155 1158 1162
|
|
perform_after_opt (925)
|
|
on left: 1167 1168 1169 1170 1171 1172 1173, on right: 1155 1162
|
|
perform_after (926)
|
|
on left: 1175, on right: 1168 1169 1170 1171 1172 1173
|
|
@140 (927)
|
|
on left: 1174, on right: 1175
|
|
perform_statements (928)
|
|
on left: 1177, on right: 1144 1147 1151 1155
|
|
$@141 (929)
|
|
on left: 1176, on right: 1177
|
|
before_after (930)
|
|
on left: 1178 1179, on right: 938 939 1166
|
|
condition (931)
|
|
on left: 1181 1182 1184 1186 1187 1188, on right: 660 684 1151
|
|
1155 1158 1162 1175 1182 1184 1186 1187 1189
|
|
$@142 (932)
|
|
on left: 1180, on right: 1181
|
|
@143 (933)
|
|
on left: 1183, on right: 1184
|
|
@144 (934)
|
|
on left: 1185, on right: 1186
|
|
implied_op_condition (935)
|
|
on left: 1189 1190 1191, on right: 1184 1186
|
|
sign_condition (936)
|
|
on left: 1192 1193 1194, on right: 1207
|
|
class_condition (937)
|
|
on left: 1195 1196 1197 1198, on right: 1206
|
|
extended_cond_op (938)
|
|
on left: 1199 1200 1201 1202 1203 1204, on right: 713 1181
|
|
ext_cond (939)
|
|
on left: 1205 1206 1207, on right: 1199 1200 1201 1202 1203 1204
|
|
cond_op (940)
|
|
on left: 1208 1209 1210, on right: 953 1190
|
|
conditional (941)
|
|
on left: 1211, on right: 1205 1208 1209 1210
|
|
comma_opt (942)
|
|
on left: 1212 1213, on right: 473 1297
|
|
sep_opt (943)
|
|
on left: 1214 1215, on right: 845 878 882 991 992 993 994 1035
|
|
1074 1133 1140 1242 1244
|
|
key_opt (944)
|
|
on left: 1216 1217, on right: 110 111 112 459 754 755 923 925 1066
|
|
1068
|
|
advancing_opt (945)
|
|
on left: 1218 1219, on right: 938 939
|
|
than_to_opt (946)
|
|
on left: 1220 1221 1222, on right: 1211
|
|
record_opt (947)
|
|
on left: 1223 1224, on right: 896 897 900 901 902 947
|
|
at_opt (948)
|
|
on left: 1225 1226, on right: 509 705 910 914 916
|
|
in_opt (949)
|
|
on left: 1227 1228, on right: 501 761 1038 1040 1042
|
|
in_of (950)
|
|
on left: 1229 1230, on right: 1293 1302 1305 1306
|
|
by_opt (951)
|
|
on left: 1231 1232, on right: 461 1030 1077 1136 1155 1162 1175
|
|
with_opt (952)
|
|
on left: 1233 1234, on right: 46 124 330 332 334 336 356 370 371
|
|
372 380 394 395 396 509 761 850 851 852 853 854 864 886 891 892
|
|
1071 1166
|
|
on_opt (953)
|
|
on left: 1235 1236, on right: 458 528 584 754 755 836 957 998 999
|
|
1001 1048 1053 1056 1059
|
|
gname_opt (954)
|
|
on left: 1237 1238, on right: 1285
|
|
to_opt (955)
|
|
on left: 1239 1240, on right: 107 721 722 956 957
|
|
name_var_list (956)
|
|
on left: 1241 1242, on right: 770 1242
|
|
gname_list (957)
|
|
on left: 1243 1244, on right: 293 302 590 774 1131 1132 1244
|
|
gname (958)
|
|
on left: 1245 1246 1248 1249, on right: 294 304 312 458 728 729
|
|
735 770 772 773 780 797 803 809 810 815 816 817 818 819 844 845
|
|
932 936 938 967 973 981 993 994 1032 1033 1076 1077 1078 1113 1135
|
|
1136 1142 1147 1155 1159 1162 1175 1237 1243 1244 1285 1288 1298
|
|
1299 1300
|
|
@145 (959)
|
|
on left: 1247, on right: 1248
|
|
name_or_lit (960)
|
|
on left: 1250 1251, on right: 327 329 332 334 336 341 344 346 713
|
|
1019
|
|
noallname (961)
|
|
on left: 1252 1253, on right: 1088 1094 1095 1099 1102 1108 1109
|
|
gliteral (962)
|
|
on left: 1254 1255, on right: 198 338 474 475 1246
|
|
without_all_literal (963)
|
|
on left: 1256 1257, on right: 88 89 90 91 92 1253 1254
|
|
all_literal (964)
|
|
on left: 1258 1259, on right: 1255
|
|
special_literal (965)
|
|
on left: 1260 1261 1262 1263 1264, on right: 1257 1259
|
|
var_or_nliteral (966)
|
|
on left: 1265 1266, on right: 1012 1013
|
|
nliteral (967)
|
|
on left: 1267, on right: 530 534 1266
|
|
literal (968)
|
|
on left: 1268 1269, on right: 290 722 1251 1256 1258 1278 1280
|
|
signed_nliteral (969)
|
|
on left: 1270 1271 1272, on right: 1267 1268 1301
|
|
def_name_opt (970)
|
|
on left: 1273 1274, on right: 227 325 429
|
|
def_name (971)
|
|
on left: 1275 1276, on right: 103 463 464 1273
|
|
variable_indexed (972)
|
|
on left: 1277, on right: 698 701 749 758 759
|
|
filename (973)
|
|
on left: 1278 1279, on right: 120 121 122 503
|
|
data_name (974)
|
|
on left: 1280 1281, on right: 507 509 511 513
|
|
cond_name (975)
|
|
on left: 1283 1284, on right: 680 1016 1188
|
|
$@146 (976)
|
|
on left: 1282, on right: 1283
|
|
name (977)
|
|
on left: 1285 1286 1287, on right: 223 348 350 727 732 733 734
|
|
740 747 756 757 768 769 816 817 826 827 828 829 830 831 832 836
|
|
877 878 883 896 897 900 901 902 907 909 930 934 943 947 952 953
|
|
991 992 1027 1029 1036 1038 1040 1042 1071 1086 1087 1091 1155
|
|
1162 1175 1245 1250 1252
|
|
name_var (978)
|
|
on left: 1288, on right: 771 772 1241 1242
|
|
variable (979)
|
|
on left: 1289 1291, on right: 172 173 448 453 702 721 722 836 861
|
|
957 1014 1017 1127 1128 1265 1285 1286
|
|
$@147 (980)
|
|
on left: 1290, on right: 1291
|
|
qualified_var (981)
|
|
on left: 1292 1293, on right: 1289 1291 1293
|
|
unqualified_var (982)
|
|
on left: 1294 1295, on right: 1292 1293
|
|
subscripts (983)
|
|
on left: 1296 1297, on right: 1283 1291 1297
|
|
subscript (984)
|
|
on left: 1298 1299 1300, on right: 1296 1297 1299 1300
|
|
integer (985)
|
|
on left: 1301, on right: 162 202 204 215 217 219 227 268 269 270
|
|
271 276 314 315 325 399 400 429 455 458 499 500 526
|
|
label (986)
|
|
on left: 1302 1303 1304 1305 1306, on right: 958 959 960 961 1143
|
|
1156 1158 1159 1162 1164
|
|
anystring (987)
|
|
on left: 1307 1308, on right: 141 145
|
|
|
|
|
|
state 0
|
|
|
|
0 $accept: . root_ $end
|
|
|
|
IDENTIFICATION shift, and go to state 1
|
|
|
|
root_ go to state 2
|
|
program_sequences go to state 3
|
|
program_sequence go to state 4
|
|
program go to state 5
|
|
identification_division go to state 6
|
|
|
|
|
|
state 1
|
|
|
|
15 identification_division: IDENTIFICATION . DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
DIVISION shift, and go to state 7
|
|
|
|
|
|
state 2
|
|
|
|
0 $accept: root_ . $end
|
|
|
|
$end shift, and go to state 8
|
|
|
|
|
|
state 3
|
|
|
|
1 root_: program_sequences .
|
|
|
|
$default reduce using rule 1 (root_)
|
|
|
|
|
|
state 4
|
|
|
|
3 program_sequences: program_sequence .
|
|
4 | program_sequence . program
|
|
8 program_sequence: program_sequence . program end_program
|
|
|
|
IDENTIFICATION shift, and go to state 1
|
|
|
|
$default reduce using rule 3 (program_sequences)
|
|
|
|
program go to state 9
|
|
identification_division go to state 6
|
|
|
|
|
|
state 5
|
|
|
|
2 program_sequences: program .
|
|
5 program_sequence: program . end_program
|
|
7 | program . $@1 program_sequence end_program
|
|
|
|
END shift, and go to state 10
|
|
|
|
IDENTIFICATION reduce using rule 6 ($@1)
|
|
$default reduce using rule 2 (program_sequences)
|
|
|
|
$@1 go to state 11
|
|
end_program go to state 12
|
|
|
|
|
|
state 6
|
|
|
|
11 program: identification_division . environment_division_opt data_division_opt procedure_division_opt
|
|
|
|
ENVIRONMENT shift, and go to state 13
|
|
|
|
$default reduce using rule 30 (environment_division_opt)
|
|
|
|
environment_division_opt go to state 14
|
|
|
|
|
|
state 7
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION . PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
PERIOD_TOK shift, and go to state 15
|
|
|
|
|
|
state 8
|
|
|
|
0 $accept: root_ $end .
|
|
|
|
$default accept
|
|
|
|
|
|
state 9
|
|
|
|
4 program_sequences: program_sequence program .
|
|
8 program_sequence: program_sequence program . end_program
|
|
|
|
END shift, and go to state 10
|
|
|
|
$default reduce using rule 4 (program_sequences)
|
|
|
|
end_program go to state 16
|
|
|
|
|
|
state 10
|
|
|
|
10 end_program: END . PROGRAM $@2 IDSTRING
|
|
|
|
PROGRAM shift, and go to state 17
|
|
|
|
|
|
state 11
|
|
|
|
7 program_sequence: program $@1 . program_sequence end_program
|
|
|
|
IDENTIFICATION shift, and go to state 1
|
|
|
|
program_sequence go to state 18
|
|
program go to state 19
|
|
identification_division go to state 6
|
|
|
|
|
|
state 12
|
|
|
|
5 program_sequence: program end_program .
|
|
|
|
$default reduce using rule 5 (program_sequence)
|
|
|
|
|
|
state 13
|
|
|
|
29 environment_division_opt: ENVIRONMENT . DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt
|
|
|
|
DIVISION shift, and go to state 20
|
|
|
|
|
|
state 14
|
|
|
|
11 program: identification_division environment_division_opt . data_division_opt procedure_division_opt
|
|
|
|
DATA shift, and go to state 21
|
|
|
|
$default reduce using rule 177 (data_division_opt)
|
|
|
|
data_division_opt go to state 22
|
|
|
|
|
|
state 15
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK . PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
PROGRAM_ID shift, and go to state 23
|
|
|
|
|
|
state 16
|
|
|
|
8 program_sequence: program_sequence program end_program .
|
|
|
|
$default reduce using rule 8 (program_sequence)
|
|
|
|
|
|
state 17
|
|
|
|
10 end_program: END PROGRAM . $@2 IDSTRING
|
|
|
|
$default reduce using rule 9 ($@2)
|
|
|
|
$@2 go to state 24
|
|
|
|
|
|
state 18
|
|
|
|
7 program_sequence: program $@1 program_sequence . end_program
|
|
8 | program_sequence . program end_program
|
|
|
|
END shift, and go to state 10
|
|
IDENTIFICATION shift, and go to state 1
|
|
|
|
end_program go to state 25
|
|
program go to state 26
|
|
identification_division go to state 6
|
|
|
|
|
|
state 19
|
|
|
|
5 program_sequence: program . end_program
|
|
7 | program . $@1 program_sequence end_program
|
|
|
|
END shift, and go to state 10
|
|
|
|
$default reduce using rule 6 ($@1)
|
|
|
|
$@1 go to state 11
|
|
end_program go to state 12
|
|
|
|
|
|
state 20
|
|
|
|
29 environment_division_opt: ENVIRONMENT DIVISION . PERIOD_TOK $@6 configuration_opt input_output_opt
|
|
|
|
PERIOD_TOK shift, and go to state 27
|
|
|
|
|
|
state 21
|
|
|
|
176 data_division_opt: DATA . DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt
|
|
|
|
DIVISION shift, and go to state 28
|
|
|
|
|
|
state 22
|
|
|
|
11 program: identification_division environment_division_opt data_division_opt . procedure_division_opt
|
|
|
|
PROCEDURE shift, and go to state 29
|
|
|
|
$default reduce using rule 560 (procedure_division_opt)
|
|
|
|
procedure_division_opt go to state 30
|
|
|
|
|
|
state 23
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID . PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
PERIOD_TOK shift, and go to state 31
|
|
|
|
|
|
state 24
|
|
|
|
10 end_program: END PROGRAM $@2 . IDSTRING
|
|
|
|
IDSTRING shift, and go to state 32
|
|
|
|
|
|
state 25
|
|
|
|
7 program_sequence: program $@1 program_sequence end_program .
|
|
|
|
$default reduce using rule 7 (program_sequence)
|
|
|
|
|
|
state 26
|
|
|
|
8 program_sequence: program_sequence program . end_program
|
|
|
|
END shift, and go to state 10
|
|
|
|
end_program go to state 16
|
|
|
|
|
|
state 27
|
|
|
|
29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK . $@6 configuration_opt input_output_opt
|
|
|
|
$default reduce using rule 28 ($@6)
|
|
|
|
$@6 go to state 33
|
|
|
|
|
|
state 28
|
|
|
|
176 data_division_opt: DATA DIVISION . PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt
|
|
|
|
PERIOD_TOK shift, and go to state 34
|
|
|
|
|
|
state 29
|
|
|
|
559 procedure_division_opt: PROCEDURE . DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division
|
|
|
|
DIVISION shift, and go to state 35
|
|
|
|
|
|
state 30
|
|
|
|
11 program: identification_division environment_division_opt data_division_opt procedure_division_opt .
|
|
|
|
$default reduce using rule 11 (program)
|
|
|
|
|
|
state 31
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK . $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
$default reduce using rule 12 ($@3)
|
|
|
|
$@3 go to state 36
|
|
|
|
|
|
state 32
|
|
|
|
10 end_program: END PROGRAM $@2 IDSTRING .
|
|
|
|
$default reduce using rule 10 (end_program)
|
|
|
|
|
|
state 33
|
|
|
|
29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 . configuration_opt input_output_opt
|
|
|
|
CONFIGURATION shift, and go to state 37
|
|
|
|
$default reduce using rule 32 (configuration_opt)
|
|
|
|
configuration_opt go to state 38
|
|
|
|
|
|
state 34
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK . $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt
|
|
|
|
$default reduce using rule 175 ($@11)
|
|
|
|
$@11 go to state 39
|
|
|
|
|
|
state 35
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION . $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division
|
|
|
|
$default reduce using rule 557 ($@51)
|
|
|
|
$@51 go to state 40
|
|
|
|
|
|
state 36
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 . IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
IDSTRING shift, and go to state 41
|
|
|
|
|
|
state 37
|
|
|
|
31 configuration_opt: CONFIGURATION . SECTION PERIOD_TOK configuration_section
|
|
|
|
SECTION shift, and go to state 42
|
|
|
|
|
|
state 38
|
|
|
|
29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt . input_output_opt
|
|
|
|
INPUT_OUTPUT shift, and go to state 43
|
|
|
|
$default reduce using rule 94 (input_output_opt)
|
|
|
|
input_output_opt go to state 44
|
|
|
|
|
|
state 39
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 . file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt
|
|
|
|
FILE_TOK shift, and go to state 45
|
|
|
|
$default reduce using rule 180 (file_section_opt)
|
|
|
|
file_section_opt go to state 46
|
|
|
|
|
|
state 40
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION $@51 . using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division
|
|
|
|
CHAINING shift, and go to state 47
|
|
USING shift, and go to state 48
|
|
|
|
$default reduce using rule 1130 (using_parameters)
|
|
|
|
using_parameters go to state 49
|
|
|
|
|
|
state 41
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING . $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
$default reduce using rule 13 ($@4)
|
|
|
|
$@4 go to state 50
|
|
|
|
|
|
state 42
|
|
|
|
31 configuration_opt: CONFIGURATION SECTION . PERIOD_TOK configuration_section
|
|
|
|
PERIOD_TOK shift, and go to state 51
|
|
|
|
|
|
state 43
|
|
|
|
93 input_output_opt: INPUT_OUTPUT . SECTION PERIOD_TOK input_output_section
|
|
|
|
SECTION shift, and go to state 52
|
|
|
|
|
|
state 44
|
|
|
|
29 environment_division_opt: ENVIRONMENT DIVISION PERIOD_TOK $@6 configuration_opt input_output_opt .
|
|
|
|
$default reduce using rule 29 (environment_division_opt)
|
|
|
|
|
|
state 45
|
|
|
|
179 file_section_opt: FILE_TOK . SECTION PERIOD_TOK $@12 file_section
|
|
|
|
SECTION shift, and go to state 53
|
|
|
|
|
|
state 46
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt . working_storage_opt linkage_section_opt report_section_opt screen_section_opt
|
|
|
|
WORKING_STORAGE shift, and go to state 54
|
|
|
|
$default reduce using rule 183 (working_storage_opt)
|
|
|
|
working_storage_opt go to state 55
|
|
|
|
|
|
state 47
|
|
|
|
1132 using_parameters: CHAINING . gname_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname_list go to state 70
|
|
gname go to state 71
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 48
|
|
|
|
1131 using_parameters: USING . gname_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname_list go to state 82
|
|
gname go to state 71
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 49
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters . PERIOD_TOK $@52 declaratives_opt procedure_division
|
|
|
|
PERIOD_TOK shift, and go to state 83
|
|
|
|
|
|
state 50
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 . programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
PERIOD_TOK reduce using rule 16 (programid_opts_opt)
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
programid_opts_opt go to state 85
|
|
is_opt go to state 86
|
|
|
|
|
|
state 51
|
|
|
|
31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK . configuration_section
|
|
|
|
$default reduce using rule 34 (configuration_section)
|
|
|
|
configuration_section go to state 87
|
|
|
|
|
|
state 52
|
|
|
|
93 input_output_opt: INPUT_OUTPUT SECTION . PERIOD_TOK input_output_section
|
|
|
|
PERIOD_TOK shift, and go to state 88
|
|
|
|
|
|
state 53
|
|
|
|
179 file_section_opt: FILE_TOK SECTION . PERIOD_TOK $@12 file_section
|
|
|
|
PERIOD_TOK shift, and go to state 89
|
|
|
|
|
|
state 54
|
|
|
|
182 working_storage_opt: WORKING_STORAGE . SECTION PERIOD_TOK $@13 working_storage_section
|
|
|
|
SECTION shift, and go to state 90
|
|
|
|
|
|
state 55
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt . linkage_section_opt report_section_opt screen_section_opt
|
|
|
|
LINKAGE shift, and go to state 91
|
|
|
|
$default reduce using rule 186 (linkage_section_opt)
|
|
|
|
linkage_section_opt go to state 92
|
|
|
|
|
|
state 56
|
|
|
|
1294 unqualified_var: VARIABLE .
|
|
|
|
$default reduce using rule 1294 (unqualified_var)
|
|
|
|
|
|
state 57
|
|
|
|
1295 unqualified_var: SUBSCVAR .
|
|
|
|
$default reduce using rule 1295 (unqualified_var)
|
|
|
|
|
|
state 58
|
|
|
|
1287 name: LABELSTR .
|
|
|
|
$default reduce using rule 1287 (name)
|
|
|
|
|
|
state 59
|
|
|
|
1270 signed_nliteral: NLITERAL .
|
|
|
|
$default reduce using rule 1270 (signed_nliteral)
|
|
|
|
|
|
state 60
|
|
|
|
1269 literal: CLITERAL .
|
|
|
|
$default reduce using rule 1269 (literal)
|
|
|
|
|
|
state 61
|
|
|
|
1271 signed_nliteral: '+' . NLITERAL
|
|
|
|
NLITERAL shift, and go to state 93
|
|
|
|
|
|
state 62
|
|
|
|
1272 signed_nliteral: '-' . NLITERAL
|
|
|
|
NLITERAL shift, and go to state 94
|
|
|
|
|
|
state 63
|
|
|
|
1258 all_literal: ALL . literal
|
|
1259 | ALL . special_literal
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
special_literal go to state 95
|
|
literal go to state 96
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 64
|
|
|
|
1248 gname: FUNCTION . LABELSTR '(' @145 intrinsic_parm_list ')'
|
|
1249 | FUNCTION . LABELSTR
|
|
|
|
LABELSTR shift, and go to state 97
|
|
|
|
|
|
state 65
|
|
|
|
1263 special_literal: HIGHVALUES .
|
|
|
|
$default reduce using rule 1263 (special_literal)
|
|
|
|
|
|
state 66
|
|
|
|
1264 special_literal: LOWVALUES .
|
|
|
|
$default reduce using rule 1264 (special_literal)
|
|
|
|
|
|
state 67
|
|
|
|
1262 special_literal: QUOTES .
|
|
|
|
$default reduce using rule 1262 (special_literal)
|
|
|
|
|
|
state 68
|
|
|
|
1260 special_literal: SPACES .
|
|
|
|
$default reduce using rule 1260 (special_literal)
|
|
|
|
|
|
state 69
|
|
|
|
1261 special_literal: ZERO .
|
|
|
|
$default reduce using rule 1261 (special_literal)
|
|
|
|
|
|
state 70
|
|
|
|
1132 using_parameters: CHAINING gname_list .
|
|
1244 gname_list: gname_list . sep_opt gname
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
PERIOD_TOK reduce using rule 1132 (using_parameters)
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 99
|
|
|
|
|
|
state 71
|
|
|
|
1243 gname_list: gname .
|
|
|
|
$default reduce using rule 1243 (gname_list)
|
|
|
|
|
|
state 72
|
|
|
|
1246 gname: gliteral .
|
|
|
|
$default reduce using rule 1246 (gname)
|
|
|
|
|
|
state 73
|
|
|
|
1254 gliteral: without_all_literal .
|
|
|
|
$default reduce using rule 1254 (gliteral)
|
|
|
|
|
|
state 74
|
|
|
|
1255 gliteral: all_literal .
|
|
|
|
$default reduce using rule 1255 (gliteral)
|
|
|
|
|
|
state 75
|
|
|
|
1257 without_all_literal: special_literal .
|
|
|
|
$default reduce using rule 1257 (without_all_literal)
|
|
|
|
|
|
state 76
|
|
|
|
1256 without_all_literal: literal .
|
|
|
|
$default reduce using rule 1256 (without_all_literal)
|
|
|
|
|
|
state 77
|
|
|
|
1268 literal: signed_nliteral .
|
|
|
|
$default reduce using rule 1268 (literal)
|
|
|
|
|
|
state 78
|
|
|
|
1245 gname: name .
|
|
|
|
$default reduce using rule 1245 (gname)
|
|
|
|
|
|
state 79
|
|
|
|
1285 name: variable . '(' gname ':' gname_opt ')'
|
|
1286 | variable .
|
|
|
|
'(' shift, and go to state 100
|
|
|
|
$default reduce using rule 1286 (name)
|
|
|
|
|
|
state 80
|
|
|
|
1289 variable: qualified_var .
|
|
1291 | qualified_var . LPAR $@147 subscripts ')'
|
|
|
|
LPAR shift, and go to state 101
|
|
|
|
$default reduce using rule 1289 (variable)
|
|
|
|
|
|
state 81
|
|
|
|
1292 qualified_var: unqualified_var .
|
|
1293 | unqualified_var . in_of qualified_var
|
|
|
|
IN shift, and go to state 102
|
|
OF shift, and go to state 103
|
|
|
|
$default reduce using rule 1292 (qualified_var)
|
|
|
|
in_of go to state 104
|
|
|
|
|
|
state 82
|
|
|
|
1131 using_parameters: USING gname_list .
|
|
1244 gname_list: gname_list . sep_opt gname
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
PERIOD_TOK reduce using rule 1131 (using_parameters)
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 99
|
|
|
|
|
|
state 83
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK . $@52 declaratives_opt procedure_division
|
|
|
|
$default reduce using rule 558 ($@52)
|
|
|
|
$@52 go to state 105
|
|
|
|
|
|
state 84
|
|
|
|
131 is_opt: IS .
|
|
|
|
$default reduce using rule 131 (is_opt)
|
|
|
|
|
|
state 85
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt . PERIOD_TOK $@5 identification_division_options_opt
|
|
|
|
PERIOD_TOK shift, and go to state 106
|
|
|
|
|
|
state 86
|
|
|
|
17 programid_opts_opt: is_opt . INITIAL_TOK programid_program_opt
|
|
18 | is_opt . COMMON programid_program_opt
|
|
|
|
COMMON shift, and go to state 107
|
|
INITIAL_TOK shift, and go to state 108
|
|
|
|
|
|
state 87
|
|
|
|
31 configuration_opt: CONFIGURATION SECTION PERIOD_TOK configuration_section .
|
|
33 configuration_section: configuration_section . configuration_option
|
|
|
|
error shift, and go to state 109
|
|
OBJECT_COMPUTER shift, and go to state 110
|
|
SOURCE_COMPUTER shift, and go to state 111
|
|
SPECIAL_NAMES shift, and go to state 112
|
|
|
|
$end reduce using rule 31 (configuration_opt)
|
|
INPUT_OUTPUT reduce using rule 31 (configuration_opt)
|
|
DATA reduce using rule 31 (configuration_opt)
|
|
END reduce using rule 31 (configuration_opt)
|
|
IDENTIFICATION reduce using rule 31 (configuration_opt)
|
|
PROCEDURE reduce using rule 31 (configuration_opt)
|
|
|
|
configuration_option go to state 113
|
|
|
|
|
|
state 88
|
|
|
|
93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK . input_output_section
|
|
|
|
error shift, and go to state 114
|
|
FILE_CONTROL shift, and go to state 115
|
|
|
|
input_output_section go to state 116
|
|
file_control_paragraph go to state 117
|
|
|
|
|
|
state 89
|
|
|
|
179 file_section_opt: FILE_TOK SECTION PERIOD_TOK . $@12 file_section
|
|
|
|
$default reduce using rule 178 ($@12)
|
|
|
|
$@12 go to state 118
|
|
|
|
|
|
state 90
|
|
|
|
182 working_storage_opt: WORKING_STORAGE SECTION . PERIOD_TOK $@13 working_storage_section
|
|
|
|
PERIOD_TOK shift, and go to state 119
|
|
|
|
|
|
state 91
|
|
|
|
185 linkage_section_opt: LINKAGE . SECTION PERIOD_TOK $@14 linkage_section
|
|
|
|
SECTION shift, and go to state 120
|
|
|
|
|
|
state 92
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt . report_section_opt screen_section_opt
|
|
|
|
REPORT shift, and go to state 121
|
|
|
|
$default reduce using rule 188 (report_section_opt)
|
|
|
|
report_section_opt go to state 122
|
|
|
|
|
|
state 93
|
|
|
|
1271 signed_nliteral: '+' NLITERAL .
|
|
|
|
$default reduce using rule 1271 (signed_nliteral)
|
|
|
|
|
|
state 94
|
|
|
|
1272 signed_nliteral: '-' NLITERAL .
|
|
|
|
$default reduce using rule 1272 (signed_nliteral)
|
|
|
|
|
|
state 95
|
|
|
|
1259 all_literal: ALL special_literal .
|
|
|
|
$default reduce using rule 1259 (all_literal)
|
|
|
|
|
|
state 96
|
|
|
|
1258 all_literal: ALL literal .
|
|
|
|
$default reduce using rule 1258 (all_literal)
|
|
|
|
|
|
state 97
|
|
|
|
1248 gname: FUNCTION LABELSTR . '(' @145 intrinsic_parm_list ')'
|
|
1249 | FUNCTION LABELSTR .
|
|
|
|
'(' shift, and go to state 123
|
|
|
|
$default reduce using rule 1249 (gname)
|
|
|
|
|
|
state 98
|
|
|
|
1215 sep_opt: LISTSEP .
|
|
|
|
$default reduce using rule 1215 (sep_opt)
|
|
|
|
|
|
state 99
|
|
|
|
1244 gname_list: gname_list sep_opt . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 124
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 100
|
|
|
|
1285 name: variable '(' . gname ':' gname_opt ')'
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 125
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 101
|
|
|
|
1291 variable: qualified_var LPAR . $@147 subscripts ')'
|
|
|
|
$default reduce using rule 1290 ($@147)
|
|
|
|
$@147 go to state 126
|
|
|
|
|
|
state 102
|
|
|
|
1229 in_of: IN .
|
|
|
|
$default reduce using rule 1229 (in_of)
|
|
|
|
|
|
state 103
|
|
|
|
1230 in_of: OF .
|
|
|
|
$default reduce using rule 1230 (in_of)
|
|
|
|
|
|
state 104
|
|
|
|
1293 qualified_var: unqualified_var in_of . qualified_var
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
qualified_var go to state 127
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 105
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 . declaratives_opt procedure_division
|
|
|
|
DECLARATIVES shift, and go to state 128
|
|
|
|
$default reduce using rule 572 (declaratives_opt)
|
|
|
|
declaratives_opt go to state 129
|
|
|
|
|
|
state 106
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK . $@5 identification_division_options_opt
|
|
|
|
$default reduce using rule 14 ($@5)
|
|
|
|
$@5 go to state 130
|
|
|
|
|
|
state 107
|
|
|
|
18 programid_opts_opt: is_opt COMMON . programid_program_opt
|
|
|
|
PROGRAM shift, and go to state 131
|
|
|
|
$default reduce using rule 19 (programid_program_opt)
|
|
|
|
programid_program_opt go to state 132
|
|
|
|
|
|
state 108
|
|
|
|
17 programid_opts_opt: is_opt INITIAL_TOK . programid_program_opt
|
|
|
|
PROGRAM shift, and go to state 131
|
|
|
|
$default reduce using rule 19 (programid_program_opt)
|
|
|
|
programid_program_opt go to state 133
|
|
|
|
|
|
state 109
|
|
|
|
40 configuration_option: error .
|
|
|
|
$default reduce using rule 40 (configuration_option)
|
|
|
|
|
|
state 110
|
|
|
|
38 configuration_option: OBJECT_COMPUTER . PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 134
|
|
|
|
|
|
state 111
|
|
|
|
36 configuration_option: SOURCE_COMPUTER . PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 135
|
|
|
|
|
|
state 112
|
|
|
|
39 configuration_option: SPECIAL_NAMES . PERIOD_TOK special_names_opt
|
|
|
|
PERIOD_TOK shift, and go to state 136
|
|
|
|
|
|
state 113
|
|
|
|
33 configuration_section: configuration_section configuration_option .
|
|
|
|
$default reduce using rule 33 (configuration_section)
|
|
|
|
|
|
state 114
|
|
|
|
96 input_output_section: error .
|
|
|
|
$default reduce using rule 96 (input_output_section)
|
|
|
|
|
|
state 115
|
|
|
|
97 file_control_paragraph: FILE_CONTROL . PERIOD_TOK file_control
|
|
|
|
PERIOD_TOK shift, and go to state 137
|
|
|
|
|
|
state 116
|
|
|
|
93 input_output_opt: INPUT_OUTPUT SECTION PERIOD_TOK input_output_section .
|
|
|
|
$default reduce using rule 93 (input_output_opt)
|
|
|
|
|
|
state 117
|
|
|
|
95 input_output_section: file_control_paragraph . i_o_control_paragraph
|
|
|
|
I_O_CONTROL shift, and go to state 138
|
|
|
|
$default reduce using rule 98 (i_o_control_paragraph)
|
|
|
|
i_o_control_paragraph go to state 139
|
|
|
|
|
|
state 118
|
|
|
|
179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 . file_section
|
|
|
|
error shift, and go to state 140
|
|
|
|
$end reduce using rule 425 (file_section)
|
|
END reduce using rule 425 (file_section)
|
|
FD reduce using rule 425 (file_section)
|
|
IDENTIFICATION reduce using rule 425 (file_section)
|
|
LINKAGE reduce using rule 425 (file_section)
|
|
PROCEDURE reduce using rule 425 (file_section)
|
|
REPORT reduce using rule 425 (file_section)
|
|
SCREEN reduce using rule 425 (file_section)
|
|
SD reduce using rule 425 (file_section)
|
|
WORKING_STORAGE reduce using rule 425 (file_section)
|
|
|
|
file_section go to state 141
|
|
|
|
|
|
state 119
|
|
|
|
182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK . $@13 working_storage_section
|
|
|
|
$default reduce using rule 181 ($@13)
|
|
|
|
$@13 go to state 142
|
|
|
|
|
|
state 120
|
|
|
|
185 linkage_section_opt: LINKAGE SECTION . PERIOD_TOK $@14 linkage_section
|
|
|
|
PERIOD_TOK shift, and go to state 143
|
|
|
|
|
|
state 121
|
|
|
|
187 report_section_opt: REPORT . SECTION PERIOD_TOK report_sections
|
|
|
|
SECTION shift, and go to state 144
|
|
|
|
|
|
state 122
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt . screen_section_opt
|
|
|
|
SCREEN shift, and go to state 145
|
|
|
|
$default reduce using rule 321 (screen_section_opt)
|
|
|
|
screen_section_opt go to state 146
|
|
|
|
|
|
state 123
|
|
|
|
1248 gname: FUNCTION LABELSTR '(' . @145 intrinsic_parm_list ')'
|
|
|
|
$default reduce using rule 1247 (@145)
|
|
|
|
@145 go to state 147
|
|
|
|
|
|
state 124
|
|
|
|
1244 gname_list: gname_list sep_opt gname .
|
|
|
|
$default reduce using rule 1244 (gname_list)
|
|
|
|
|
|
state 125
|
|
|
|
1285 name: variable '(' gname . ':' gname_opt ')'
|
|
|
|
':' shift, and go to state 148
|
|
|
|
|
|
state 126
|
|
|
|
1291 variable: qualified_var LPAR $@147 . subscripts ')'
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 149
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
subscripts go to state 150
|
|
subscript go to state 151
|
|
|
|
|
|
state 127
|
|
|
|
1293 qualified_var: unqualified_var in_of qualified_var .
|
|
|
|
$default reduce using rule 1293 (qualified_var)
|
|
|
|
|
|
state 128
|
|
|
|
571 declaratives_opt: DECLARATIVES . PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 152
|
|
|
|
|
|
state 129
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt . procedure_division
|
|
|
|
$default reduce using rule 561 (procedure_division)
|
|
|
|
procedure_division go to state 153
|
|
|
|
|
|
state 130
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 . identification_division_options_opt
|
|
|
|
$default reduce using rule 21 (identification_division_options_opt)
|
|
|
|
identification_division_options_opt go to state 154
|
|
|
|
|
|
state 131
|
|
|
|
20 programid_program_opt: PROGRAM .
|
|
|
|
$default reduce using rule 20 (programid_program_opt)
|
|
|
|
|
|
state 132
|
|
|
|
18 programid_opts_opt: is_opt COMMON programid_program_opt .
|
|
|
|
$default reduce using rule 18 (programid_opts_opt)
|
|
|
|
|
|
state 133
|
|
|
|
17 programid_opts_opt: is_opt INITIAL_TOK programid_program_opt .
|
|
|
|
$default reduce using rule 17 (programid_opts_opt)
|
|
|
|
|
|
state 134
|
|
|
|
38 configuration_option: OBJECT_COMPUTER PERIOD_TOK . $@8 STRING program_collating_opt PERIOD_TOK
|
|
|
|
$default reduce using rule 37 ($@8)
|
|
|
|
$@8 go to state 155
|
|
|
|
|
|
state 135
|
|
|
|
36 configuration_option: SOURCE_COMPUTER PERIOD_TOK . $@7 STRING debug_mode_opt PERIOD_TOK
|
|
|
|
$default reduce using rule 35 ($@7)
|
|
|
|
$@7 go to state 156
|
|
|
|
|
|
state 136
|
|
|
|
39 configuration_option: SPECIAL_NAMES PERIOD_TOK . special_names_opt
|
|
|
|
error shift, and go to state 157
|
|
ALPHABET shift, and go to state 158
|
|
CLASS shift, and go to state 159
|
|
CURRENCY shift, and go to state 160
|
|
CURSOR shift, and go to state 161
|
|
DECIMAL_POINT shift, and go to state 162
|
|
DISPLAY_SCREEN shift, and go to state 163
|
|
|
|
$end reduce using rule 48 (special_names_opt)
|
|
error [reduce using rule 48 (special_names_opt)]
|
|
STRING reduce using rule 71 (switches_details_list)
|
|
INPUT_OUTPUT reduce using rule 48 (special_names_opt)
|
|
ALPHABET [reduce using rule 71 (switches_details_list)]
|
|
CLASS [reduce using rule 71 (switches_details_list)]
|
|
CURRENCY [reduce using rule 71 (switches_details_list)]
|
|
CURSOR [reduce using rule 71 (switches_details_list)]
|
|
DATA reduce using rule 48 (special_names_opt)
|
|
DECIMAL_POINT [reduce using rule 71 (switches_details_list)]
|
|
DISPLAY_SCREEN [reduce using rule 71 (switches_details_list)]
|
|
END reduce using rule 48 (special_names_opt)
|
|
IDENTIFICATION reduce using rule 48 (special_names_opt)
|
|
OBJECT_COMPUTER reduce using rule 48 (special_names_opt)
|
|
PROCEDURE reduce using rule 48 (special_names_opt)
|
|
SOURCE_COMPUTER reduce using rule 48 (special_names_opt)
|
|
SPECIAL_NAMES reduce using rule 48 (special_names_opt)
|
|
PERIOD_TOK reduce using rule 71 (switches_details_list)
|
|
|
|
special_names_opt go to state 164
|
|
special_names go to state 165
|
|
special_name go to state 166
|
|
currency_details go to state 167
|
|
special_name_class go to state 168
|
|
decimal_point_details go to state 169
|
|
screen_status_details go to state 170
|
|
cursor_details go to state 171
|
|
switches_details_list go to state 172
|
|
alphabet_details go to state 173
|
|
|
|
|
|
state 137
|
|
|
|
97 file_control_paragraph: FILE_CONTROL PERIOD_TOK . file_control
|
|
|
|
SELECT shift, and go to state 174
|
|
|
|
file_control go to state 175
|
|
file_select go to state 176
|
|
|
|
|
|
state 138
|
|
|
|
99 i_o_control_paragraph: I_O_CONTROL . PERIOD_TOK i_o_control_opt
|
|
|
|
PERIOD_TOK shift, and go to state 177
|
|
|
|
|
|
state 139
|
|
|
|
95 input_output_section: file_control_paragraph i_o_control_paragraph .
|
|
|
|
$default reduce using rule 95 (input_output_section)
|
|
|
|
|
|
state 140
|
|
|
|
424 file_section: error .
|
|
|
|
$default reduce using rule 424 (file_section)
|
|
|
|
|
|
state 141
|
|
|
|
179 file_section_opt: FILE_TOK SECTION PERIOD_TOK $@12 file_section .
|
|
419 file_section: file_section . FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description
|
|
423 | file_section . SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description
|
|
|
|
FD shift, and go to state 178
|
|
SD shift, and go to state 179
|
|
|
|
$default reduce using rule 179 (file_section_opt)
|
|
|
|
|
|
state 142
|
|
|
|
182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 . working_storage_section
|
|
|
|
$default reduce using rule 554 (working_storage_section)
|
|
|
|
working_storage_section go to state 180
|
|
|
|
|
|
state 143
|
|
|
|
185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK . $@14 linkage_section
|
|
|
|
$default reduce using rule 184 ($@14)
|
|
|
|
$@14 go to state 181
|
|
|
|
|
|
state 144
|
|
|
|
187 report_section_opt: REPORT SECTION . PERIOD_TOK report_sections
|
|
|
|
PERIOD_TOK shift, and go to state 182
|
|
|
|
|
|
state 145
|
|
|
|
320 screen_section_opt: SCREEN . SECTION PERIOD_TOK $@27 screen_section
|
|
|
|
SECTION shift, and go to state 183
|
|
|
|
|
|
state 146
|
|
|
|
176 data_division_opt: DATA DIVISION PERIOD_TOK $@11 file_section_opt working_storage_opt linkage_section_opt report_section_opt screen_section_opt .
|
|
|
|
$default reduce using rule 176 (data_division_opt)
|
|
|
|
|
|
state 147
|
|
|
|
1248 gname: FUNCTION LABELSTR '(' @145 . intrinsic_parm_list ')'
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
intrinsic_parm_list go to state 184
|
|
intrinsic_parm go to state 185
|
|
gname go to state 186
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 148
|
|
|
|
1285 name: variable '(' gname ':' . gname_opt ')'
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 1238 (gname_opt)
|
|
|
|
gname_opt go to state 187
|
|
gname go to state 188
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 149
|
|
|
|
1298 subscript: gname .
|
|
|
|
$default reduce using rule 1298 (subscript)
|
|
|
|
|
|
state 150
|
|
|
|
1291 variable: qualified_var LPAR $@147 subscripts . ')'
|
|
1297 subscripts: subscripts . comma_opt subscript
|
|
|
|
')' shift, and go to state 189
|
|
',' shift, and go to state 190
|
|
|
|
$default reduce using rule 1212 (comma_opt)
|
|
|
|
comma_opt go to state 191
|
|
|
|
|
|
state 151
|
|
|
|
1296 subscripts: subscript .
|
|
1299 subscript: subscript . '+' gname
|
|
1300 | subscript . '-' gname
|
|
|
|
'+' shift, and go to state 192
|
|
'-' shift, and go to state 193
|
|
|
|
'+' [reduce using rule 1296 (subscripts)]
|
|
'-' [reduce using rule 1296 (subscripts)]
|
|
$default reduce using rule 1296 (subscripts)
|
|
|
|
|
|
state 152
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK . $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK
|
|
|
|
$default reduce using rule 570 ($@55)
|
|
|
|
$@55 go to state 194
|
|
|
|
|
|
state 153
|
|
|
|
559 procedure_division_opt: PROCEDURE DIVISION $@51 using_parameters PERIOD_TOK $@52 declaratives_opt procedure_division .
|
|
562 procedure_division: procedure_division . procedure_decl
|
|
|
|
error shift, and go to state 195
|
|
LABELSTR shift, and go to state 196
|
|
PERIOD_TOK shift, and go to state 197
|
|
|
|
$end reduce using rule 559 (procedure_division_opt)
|
|
READ reduce using rule 565 ($@53)
|
|
WRITE reduce using rule 565 ($@53)
|
|
RELEASE reduce using rule 565 ($@53)
|
|
ACCEPT reduce using rule 565 ($@53)
|
|
ADD reduce using rule 565 ($@53)
|
|
CALL reduce using rule 565 ($@53)
|
|
CALL_LOADLIB reduce using rule 565 ($@53)
|
|
CANCEL reduce using rule 565 ($@53)
|
|
CHAIN reduce using rule 565 ($@53)
|
|
CLOSE reduce using rule 565 ($@53)
|
|
COMPUTE reduce using rule 565 ($@53)
|
|
CONTINUE reduce using rule 565 ($@53)
|
|
DELETE reduce using rule 565 ($@53)
|
|
DISPLAY reduce using rule 565 ($@53)
|
|
DIVIDE reduce using rule 565 ($@53)
|
|
END reduce using rule 559 (procedure_division_opt)
|
|
EVALUATE reduce using rule 565 ($@53)
|
|
EXIT reduce using rule 565 ($@53)
|
|
GENERATE reduce using rule 565 ($@53)
|
|
GO reduce using rule 565 ($@53)
|
|
GOBACK reduce using rule 565 ($@53)
|
|
IDENTIFICATION reduce using rule 559 (procedure_division_opt)
|
|
IF reduce using rule 565 ($@53)
|
|
INITIALIZE reduce using rule 565 ($@53)
|
|
INITIATE reduce using rule 565 ($@53)
|
|
INSPECT reduce using rule 565 ($@53)
|
|
MERGE reduce using rule 565 ($@53)
|
|
MOVE reduce using rule 565 ($@53)
|
|
MULTIPLY reduce using rule 565 ($@53)
|
|
OPEN reduce using rule 565 ($@53)
|
|
PERFORM reduce using rule 565 ($@53)
|
|
READY reduce using rule 565 ($@53)
|
|
RESET reduce using rule 565 ($@53)
|
|
RETURN reduce using rule 565 ($@53)
|
|
REWRITE reduce using rule 565 ($@53)
|
|
SEARCH reduce using rule 565 ($@53)
|
|
SET reduce using rule 565 ($@53)
|
|
SORT reduce using rule 565 ($@53)
|
|
START reduce using rule 565 ($@53)
|
|
STOP reduce using rule 565 ($@53)
|
|
STRINGCMD reduce using rule 565 ($@53)
|
|
SUBTRACT reduce using rule 565 ($@53)
|
|
TCOBPROTO1 reduce using rule 565 ($@53)
|
|
TCOBPROTO2 reduce using rule 565 ($@53)
|
|
TERMINATE reduce using rule 565 ($@53)
|
|
UNLOCK reduce using rule 565 ($@53)
|
|
UNSTRING reduce using rule 565 ($@53)
|
|
|
|
procedure_decl go to state 198
|
|
$@53 go to state 199
|
|
procedure_section go to state 200
|
|
paragraph go to state 201
|
|
|
|
|
|
state 154
|
|
|
|
15 identification_division: IDENTIFICATION DIVISION PERIOD_TOK PROGRAM_ID PERIOD_TOK $@3 IDSTRING $@4 programid_opts_opt PERIOD_TOK $@5 identification_division_options_opt .
|
|
22 identification_division_options_opt: identification_division_options_opt . identification_division_option
|
|
|
|
AUTHOR shift, and go to state 202
|
|
DATE_COMPILED shift, and go to state 203
|
|
DATE_WRITTEN shift, and go to state 204
|
|
INSTALLATION shift, and go to state 205
|
|
SECURITY shift, and go to state 206
|
|
|
|
$default reduce using rule 15 (identification_division)
|
|
|
|
identification_division_option go to state 207
|
|
|
|
|
|
state 155
|
|
|
|
38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 . STRING program_collating_opt PERIOD_TOK
|
|
|
|
STRING shift, and go to state 208
|
|
|
|
|
|
state 156
|
|
|
|
36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 . STRING debug_mode_opt PERIOD_TOK
|
|
|
|
STRING shift, and go to state 209
|
|
|
|
|
|
state 157
|
|
|
|
50 special_names_opt: error .
|
|
|
|
$default reduce using rule 50 (special_names_opt)
|
|
|
|
|
|
state 158
|
|
|
|
81 alphabet_details: ALPHABET . STRING is_opt alphabet_type
|
|
|
|
STRING shift, and go to state 210
|
|
|
|
|
|
state 159
|
|
|
|
63 special_name_class: CLASS . STRING is_opt special_name_class_item_list
|
|
|
|
STRING shift, and go to state 211
|
|
|
|
|
|
state 160
|
|
|
|
60 currency_details: CURRENCY . sign_opt is_opt CLITERAL
|
|
|
|
SIGN shift, and go to state 212
|
|
|
|
$default reduce using rule 62 (sign_opt)
|
|
|
|
sign_opt go to state 213
|
|
|
|
|
|
state 161
|
|
|
|
70 cursor_details: CURSOR . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 214
|
|
|
|
|
|
state 162
|
|
|
|
68 decimal_point_details: DECIMAL_POINT . is_opt COMMA
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 215
|
|
|
|
|
|
state 163
|
|
|
|
69 screen_status_details: DISPLAY_SCREEN . STATUS is_opt STRING
|
|
|
|
STATUS shift, and go to state 216
|
|
|
|
|
|
state 164
|
|
|
|
39 configuration_option: SPECIAL_NAMES PERIOD_TOK special_names_opt .
|
|
|
|
$default reduce using rule 39 (configuration_option)
|
|
|
|
|
|
state 165
|
|
|
|
49 special_names_opt: special_names . PERIOD_TOK
|
|
52 special_names: special_names . special_name
|
|
|
|
ALPHABET shift, and go to state 158
|
|
CLASS shift, and go to state 159
|
|
CURRENCY shift, and go to state 160
|
|
CURSOR shift, and go to state 161
|
|
DECIMAL_POINT shift, and go to state 162
|
|
DISPLAY_SCREEN shift, and go to state 163
|
|
PERIOD_TOK shift, and go to state 217
|
|
|
|
ALPHABET [reduce using rule 71 (switches_details_list)]
|
|
CLASS [reduce using rule 71 (switches_details_list)]
|
|
CURRENCY [reduce using rule 71 (switches_details_list)]
|
|
CURSOR [reduce using rule 71 (switches_details_list)]
|
|
DECIMAL_POINT [reduce using rule 71 (switches_details_list)]
|
|
DISPLAY_SCREEN [reduce using rule 71 (switches_details_list)]
|
|
PERIOD_TOK [reduce using rule 71 (switches_details_list)]
|
|
$default reduce using rule 71 (switches_details_list)
|
|
|
|
special_name go to state 218
|
|
currency_details go to state 167
|
|
special_name_class go to state 168
|
|
decimal_point_details go to state 169
|
|
screen_status_details go to state 170
|
|
cursor_details go to state 171
|
|
switches_details_list go to state 172
|
|
alphabet_details go to state 173
|
|
|
|
|
|
state 166
|
|
|
|
51 special_names: special_name .
|
|
|
|
$default reduce using rule 51 (special_names)
|
|
|
|
|
|
state 167
|
|
|
|
55 special_name: currency_details .
|
|
|
|
$default reduce using rule 55 (special_name)
|
|
|
|
|
|
state 168
|
|
|
|
59 special_name: special_name_class .
|
|
|
|
$default reduce using rule 59 (special_name)
|
|
|
|
|
|
state 169
|
|
|
|
56 special_name: decimal_point_details .
|
|
|
|
$default reduce using rule 56 (special_name)
|
|
|
|
|
|
state 170
|
|
|
|
57 special_name: screen_status_details .
|
|
|
|
$default reduce using rule 57 (special_name)
|
|
|
|
|
|
state 171
|
|
|
|
58 special_name: cursor_details .
|
|
|
|
$default reduce using rule 58 (special_name)
|
|
|
|
|
|
state 172
|
|
|
|
53 special_name: switches_details_list .
|
|
72 switches_details_list: switches_details_list . switches_details
|
|
|
|
STRING shift, and go to state 219
|
|
|
|
STRING [reduce using rule 53 (special_name)]
|
|
$default reduce using rule 53 (special_name)
|
|
|
|
switches_details go to state 220
|
|
|
|
|
|
state 173
|
|
|
|
54 special_name: alphabet_details .
|
|
|
|
$default reduce using rule 54 (special_name)
|
|
|
|
|
|
state 174
|
|
|
|
103 file_select: SELECT . optional_opt def_name $@10 select_clauses PERIOD_TOK
|
|
|
|
OPTIONAL shift, and go to state 221
|
|
|
|
$default reduce using rule 127 (optional_opt)
|
|
|
|
optional_opt go to state 222
|
|
|
|
|
|
state 175
|
|
|
|
97 file_control_paragraph: FILE_CONTROL PERIOD_TOK file_control .
|
|
101 file_control: file_control . file_select
|
|
|
|
SELECT shift, and go to state 174
|
|
|
|
$default reduce using rule 97 (file_control_paragraph)
|
|
|
|
file_select go to state 223
|
|
|
|
|
|
state 176
|
|
|
|
100 file_control: file_select .
|
|
|
|
$default reduce using rule 100 (file_control)
|
|
|
|
|
|
state 177
|
|
|
|
99 i_o_control_paragraph: I_O_CONTROL PERIOD_TOK . i_o_control_opt
|
|
|
|
MULTIPLE shift, and go to state 224
|
|
SAME shift, and go to state 225
|
|
|
|
$default reduce using rule 146 (i_o_control_opt)
|
|
|
|
i_o_control_opt go to state 226
|
|
i_o_control_list go to state 227
|
|
i_o_control_clause go to state 228
|
|
i_o_control_same_clause go to state 229
|
|
i_o_control_multiple_file_tape_clause go to state 230
|
|
|
|
|
|
state 178
|
|
|
|
419 file_section: file_section FD . $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description
|
|
|
|
$default reduce using rule 416 ($@38)
|
|
|
|
$@38 go to state 231
|
|
|
|
|
|
state 179
|
|
|
|
423 file_section: file_section SD . $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description
|
|
|
|
$default reduce using rule 420 ($@41)
|
|
|
|
$@41 go to state 232
|
|
|
|
|
|
state 180
|
|
|
|
182 working_storage_opt: WORKING_STORAGE SECTION PERIOD_TOK $@13 working_storage_section .
|
|
553 working_storage_section: working_storage_section . field_description
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
$default reduce using rule 182 (working_storage_opt)
|
|
|
|
field_description go to state 233
|
|
signed_nliteral go to state 234
|
|
integer go to state 235
|
|
|
|
|
|
state 181
|
|
|
|
185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 . linkage_section
|
|
|
|
$default reduce using rule 555 (linkage_section)
|
|
|
|
linkage_section go to state 236
|
|
|
|
|
|
state 182
|
|
|
|
187 report_section_opt: REPORT SECTION PERIOD_TOK . report_sections
|
|
|
|
$default reduce using rule 190 (report_sections)
|
|
|
|
report_sections go to state 237
|
|
|
|
|
|
state 183
|
|
|
|
320 screen_section_opt: SCREEN SECTION . PERIOD_TOK $@27 screen_section
|
|
|
|
PERIOD_TOK shift, and go to state 238
|
|
|
|
|
|
state 184
|
|
|
|
1140 intrinsic_parm_list: intrinsic_parm_list . sep_opt intrinsic_parm
|
|
1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list . ')'
|
|
|
|
LISTSEP shift, and go to state 98
|
|
')' shift, and go to state 239
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 240
|
|
|
|
|
|
state 185
|
|
|
|
1141 intrinsic_parm_list: intrinsic_parm .
|
|
|
|
$default reduce using rule 1141 (intrinsic_parm_list)
|
|
|
|
|
|
state 186
|
|
|
|
1142 intrinsic_parm: gname .
|
|
|
|
$default reduce using rule 1142 (intrinsic_parm)
|
|
|
|
|
|
state 187
|
|
|
|
1285 name: variable '(' gname ':' gname_opt . ')'
|
|
|
|
')' shift, and go to state 241
|
|
|
|
|
|
state 188
|
|
|
|
1237 gname_opt: gname .
|
|
|
|
$default reduce using rule 1237 (gname_opt)
|
|
|
|
|
|
state 189
|
|
|
|
1291 variable: qualified_var LPAR $@147 subscripts ')' .
|
|
|
|
$default reduce using rule 1291 (variable)
|
|
|
|
|
|
state 190
|
|
|
|
1213 comma_opt: ',' .
|
|
|
|
$default reduce using rule 1213 (comma_opt)
|
|
|
|
|
|
state 191
|
|
|
|
1297 subscripts: subscripts comma_opt . subscript
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 149
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
subscript go to state 242
|
|
|
|
|
|
state 192
|
|
|
|
1299 subscript: subscript '+' . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 243
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 193
|
|
|
|
1300 subscript: subscript '-' . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 244
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 194
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 . declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK
|
|
|
|
error shift, and go to state 245
|
|
LABELSTR shift, and go to state 246
|
|
|
|
declaratives_procedure go to state 247
|
|
procedure_section go to state 248
|
|
|
|
|
|
state 195
|
|
|
|
568 procedure_decl: error . $@54 PERIOD_TOK
|
|
|
|
$default reduce using rule 567 ($@54)
|
|
|
|
$@54 go to state 249
|
|
|
|
|
|
state 196
|
|
|
|
592 procedure_section: LABELSTR . SECTION PERIOD_TOK
|
|
593 paragraph: LABELSTR . dot_or_eos
|
|
|
|
SECTION shift, and go to state 250
|
|
PERIOD_TOK shift, and go to state 251
|
|
'.' shift, and go to state 252
|
|
|
|
dot_or_eos go to state 253
|
|
|
|
|
|
state 197
|
|
|
|
569 procedure_decl: PERIOD_TOK .
|
|
|
|
$default reduce using rule 569 (procedure_decl)
|
|
|
|
|
|
state 198
|
|
|
|
562 procedure_division: procedure_division procedure_decl .
|
|
|
|
$default reduce using rule 562 (procedure_division)
|
|
|
|
|
|
state 199
|
|
|
|
566 procedure_decl: $@53 . statements PERIOD_TOK
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statements go to state 299
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 200
|
|
|
|
563 procedure_decl: procedure_section .
|
|
|
|
$default reduce using rule 563 (procedure_decl)
|
|
|
|
|
|
state 201
|
|
|
|
564 procedure_decl: paragraph .
|
|
|
|
$default reduce using rule 564 (procedure_decl)
|
|
|
|
|
|
state 202
|
|
|
|
23 identification_division_option: AUTHOR . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 351
|
|
|
|
|
|
state 203
|
|
|
|
25 identification_division_option: DATE_COMPILED . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 352
|
|
|
|
|
|
state 204
|
|
|
|
24 identification_division_option: DATE_WRITTEN . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 353
|
|
|
|
|
|
state 205
|
|
|
|
26 identification_division_option: INSTALLATION . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 354
|
|
|
|
|
|
state 206
|
|
|
|
27 identification_division_option: SECURITY . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 355
|
|
|
|
|
|
state 207
|
|
|
|
22 identification_division_options_opt: identification_division_options_opt identification_division_option .
|
|
|
|
$default reduce using rule 22 (identification_division_options_opt)
|
|
|
|
|
|
state 208
|
|
|
|
38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING . program_collating_opt PERIOD_TOK
|
|
|
|
PROGRAM shift, and go to state 356
|
|
|
|
$default reduce using rule 42 (program_collating_opt)
|
|
|
|
program_collating_opt go to state 357
|
|
|
|
|
|
state 209
|
|
|
|
36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING . debug_mode_opt PERIOD_TOK
|
|
|
|
WITH shift, and go to state 358
|
|
|
|
DEBUGGING reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 47 (debug_mode_opt)
|
|
|
|
debug_mode_opt go to state 359
|
|
with_opt go to state 360
|
|
|
|
|
|
state 210
|
|
|
|
81 alphabet_details: ALPHABET STRING . is_opt alphabet_type
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 361
|
|
|
|
|
|
state 211
|
|
|
|
63 special_name_class: CLASS STRING . is_opt special_name_class_item_list
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 362
|
|
|
|
|
|
state 212
|
|
|
|
61 sign_opt: SIGN .
|
|
|
|
$default reduce using rule 61 (sign_opt)
|
|
|
|
|
|
state 213
|
|
|
|
60 currency_details: CURRENCY sign_opt . is_opt CLITERAL
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 363
|
|
|
|
|
|
state 214
|
|
|
|
70 cursor_details: CURSOR is_opt . STRING
|
|
|
|
STRING shift, and go to state 364
|
|
|
|
|
|
state 215
|
|
|
|
68 decimal_point_details: DECIMAL_POINT is_opt . COMMA
|
|
|
|
COMMA shift, and go to state 365
|
|
|
|
|
|
state 216
|
|
|
|
69 screen_status_details: DISPLAY_SCREEN STATUS . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 366
|
|
|
|
|
|
state 217
|
|
|
|
49 special_names_opt: special_names PERIOD_TOK .
|
|
|
|
$default reduce using rule 49 (special_names_opt)
|
|
|
|
|
|
state 218
|
|
|
|
52 special_names: special_names special_name .
|
|
|
|
$default reduce using rule 52 (special_names)
|
|
|
|
|
|
state 219
|
|
|
|
74 switches_details: STRING . is_opt STRING $@9 switch_on_opt switch_off_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 367
|
|
|
|
|
|
state 220
|
|
|
|
72 switches_details_list: switches_details_list switches_details .
|
|
|
|
$default reduce using rule 72 (switches_details_list)
|
|
|
|
|
|
state 221
|
|
|
|
126 optional_opt: OPTIONAL .
|
|
|
|
$default reduce using rule 126 (optional_opt)
|
|
|
|
|
|
state 222
|
|
|
|
103 file_select: SELECT optional_opt . def_name $@10 select_clauses PERIOD_TOK
|
|
|
|
STRING shift, and go to state 368
|
|
FILLER shift, and go to state 369
|
|
|
|
def_name go to state 370
|
|
|
|
|
|
state 223
|
|
|
|
101 file_control: file_control file_select .
|
|
|
|
$default reduce using rule 101 (file_control)
|
|
|
|
|
|
state 224
|
|
|
|
157 i_o_control_multiple_file_tape_clause: MULTIPLE . FILE_TOK tape_opt contains_opt i_o_control_multiple_file_list
|
|
|
|
FILE_TOK shift, and go to state 371
|
|
|
|
|
|
state 225
|
|
|
|
152 i_o_control_same_clause: SAME . same_clause_options are_opta for_opt string_list
|
|
|
|
RECORD shift, and go to state 372
|
|
SORT shift, and go to state 373
|
|
SORT_MERGE shift, and go to state 374
|
|
|
|
$default reduce using rule 153 (same_clause_options)
|
|
|
|
same_clause_options go to state 375
|
|
|
|
|
|
state 226
|
|
|
|
99 i_o_control_paragraph: I_O_CONTROL PERIOD_TOK i_o_control_opt .
|
|
|
|
$default reduce using rule 99 (i_o_control_paragraph)
|
|
|
|
|
|
state 227
|
|
|
|
147 i_o_control_opt: i_o_control_list . PERIOD_TOK
|
|
149 i_o_control_list: i_o_control_list . i_o_control_clause
|
|
|
|
MULTIPLE shift, and go to state 224
|
|
SAME shift, and go to state 225
|
|
PERIOD_TOK shift, and go to state 376
|
|
|
|
i_o_control_clause go to state 377
|
|
i_o_control_same_clause go to state 229
|
|
i_o_control_multiple_file_tape_clause go to state 230
|
|
|
|
|
|
state 228
|
|
|
|
148 i_o_control_list: i_o_control_clause .
|
|
|
|
$default reduce using rule 148 (i_o_control_list)
|
|
|
|
|
|
state 229
|
|
|
|
150 i_o_control_clause: i_o_control_same_clause .
|
|
|
|
$default reduce using rule 150 (i_o_control_clause)
|
|
|
|
|
|
state 230
|
|
|
|
151 i_o_control_clause: i_o_control_multiple_file_tape_clause .
|
|
|
|
$default reduce using rule 151 (i_o_control_clause)
|
|
|
|
|
|
state 231
|
|
|
|
419 file_section: file_section FD $@38 . STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description
|
|
|
|
STRING shift, and go to state 378
|
|
|
|
|
|
state 232
|
|
|
|
423 file_section: file_section SD $@41 . STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description
|
|
|
|
STRING shift, and go to state 379
|
|
|
|
|
|
state 233
|
|
|
|
553 working_storage_section: working_storage_section field_description .
|
|
|
|
$default reduce using rule 553 (working_storage_section)
|
|
|
|
|
|
state 234
|
|
|
|
1301 integer: signed_nliteral .
|
|
|
|
$default reduce using rule 1301 (integer)
|
|
|
|
|
|
state 235
|
|
|
|
429 field_description: integer . def_name_opt $@44 data_clauses PERIOD_TOK
|
|
|
|
STRING shift, and go to state 368
|
|
FILLER shift, and go to state 369
|
|
|
|
$default reduce using rule 1274 (def_name_opt)
|
|
|
|
def_name_opt go to state 380
|
|
def_name go to state 381
|
|
|
|
|
|
state 236
|
|
|
|
185 linkage_section_opt: LINKAGE SECTION PERIOD_TOK $@14 linkage_section .
|
|
556 linkage_section: linkage_section . field_description
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
$default reduce using rule 185 (linkage_section_opt)
|
|
|
|
field_description go to state 382
|
|
signed_nliteral go to state 234
|
|
integer go to state 235
|
|
|
|
|
|
state 237
|
|
|
|
187 report_section_opt: REPORT SECTION PERIOD_TOK report_sections .
|
|
189 report_sections: report_sections . report_section
|
|
|
|
RD shift, and go to state 383
|
|
|
|
$default reduce using rule 187 (report_section_opt)
|
|
|
|
report_section go to state 384
|
|
|
|
|
|
state 238
|
|
|
|
320 screen_section_opt: SCREEN SECTION PERIOD_TOK . $@27 screen_section
|
|
|
|
$default reduce using rule 319 ($@27)
|
|
|
|
$@27 go to state 385
|
|
|
|
|
|
state 239
|
|
|
|
1248 gname: FUNCTION LABELSTR '(' @145 intrinsic_parm_list ')' .
|
|
|
|
$default reduce using rule 1248 (gname)
|
|
|
|
|
|
state 240
|
|
|
|
1140 intrinsic_parm_list: intrinsic_parm_list sep_opt . intrinsic_parm
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
intrinsic_parm go to state 386
|
|
gname go to state 186
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 241
|
|
|
|
1285 name: variable '(' gname ':' gname_opt ')' .
|
|
|
|
$default reduce using rule 1285 (name)
|
|
|
|
|
|
state 242
|
|
|
|
1297 subscripts: subscripts comma_opt subscript .
|
|
1299 subscript: subscript . '+' gname
|
|
1300 | subscript . '-' gname
|
|
|
|
'+' shift, and go to state 192
|
|
'-' shift, and go to state 193
|
|
|
|
'+' [reduce using rule 1297 (subscripts)]
|
|
'-' [reduce using rule 1297 (subscripts)]
|
|
$default reduce using rule 1297 (subscripts)
|
|
|
|
|
|
state 243
|
|
|
|
1299 subscript: subscript '+' gname .
|
|
|
|
$default reduce using rule 1299 (subscript)
|
|
|
|
|
|
state 244
|
|
|
|
1300 subscript: subscript '-' gname .
|
|
|
|
$default reduce using rule 1300 (subscript)
|
|
|
|
|
|
state 245
|
|
|
|
583 declaratives_procedure: error .
|
|
|
|
$default reduce using rule 583 (declaratives_procedure)
|
|
|
|
|
|
state 246
|
|
|
|
592 procedure_section: LABELSTR . SECTION PERIOD_TOK
|
|
|
|
SECTION shift, and go to state 250
|
|
|
|
|
|
state 247
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure . declaratives_division END DECLARATIVES PERIOD_TOK
|
|
|
|
$default reduce using rule 573 (declaratives_division)
|
|
|
|
declaratives_division go to state 387
|
|
|
|
|
|
state 248
|
|
|
|
582 declaratives_procedure: procedure_section . $@58 use_phrase
|
|
|
|
$default reduce using rule 581 ($@58)
|
|
|
|
$@58 go to state 388
|
|
|
|
|
|
state 249
|
|
|
|
568 procedure_decl: error $@54 . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 389
|
|
|
|
|
|
state 250
|
|
|
|
592 procedure_section: LABELSTR SECTION . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 390
|
|
|
|
|
|
state 251
|
|
|
|
595 dot_or_eos: PERIOD_TOK .
|
|
|
|
$default reduce using rule 595 (dot_or_eos)
|
|
|
|
|
|
state 252
|
|
|
|
594 dot_or_eos: '.' .
|
|
|
|
$default reduce using rule 594 (dot_or_eos)
|
|
|
|
|
|
state 253
|
|
|
|
593 paragraph: LABELSTR dot_or_eos .
|
|
|
|
$default reduce using rule 593 (paragraph)
|
|
|
|
|
|
state 254
|
|
|
|
898 read_statement: READ . read_body end_read_opt
|
|
899 | READ .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 899 (read_statement)
|
|
|
|
read_body go to state 391
|
|
name go to state 392
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 255
|
|
|
|
934 write_statement: WRITE . name write_from_opt write_options $@101 invalid_key_opt end_write_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 393
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 256
|
|
|
|
930 release_statement: RELEASE . name release_from_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 394
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 257
|
|
|
|
825 accept_statement: ACCEPT .
|
|
826 accept_hardware: ACCEPT . name FROM INKEY end_accept_opt
|
|
827 | ACCEPT . name FROM INPUT STATUS end_accept_opt
|
|
828 | ACCEPT . name FROM CMD_LINE end_accept_opt
|
|
829 | ACCEPT . name FROM ESCKEY end_accept_opt
|
|
830 | ACCEPT . name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt
|
|
831 accept_chronological: ACCEPT . name FROM DATE_TIME end_accept_opt
|
|
832 accept_screen: ACCEPT . name accept_display_options end_accept_opt
|
|
836 | ACCEPT . name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 825 (accept_statement)
|
|
|
|
name go to state 395
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 258
|
|
|
|
791 add_statement: ADD . add_body end_add_opt
|
|
792 | ADD .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
CORRESPONDING shift, and go to state 396
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 792 (add_statement)
|
|
|
|
add_body go to state 397
|
|
var_list_gname go to state 398
|
|
gname go to state 399
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 259
|
|
|
|
967 call_statement: CALL . $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
968 | CALL .
|
|
|
|
VARIABLE reduce using rule 962 ($@105)
|
|
SUBSCVAR reduce using rule 962 ($@105)
|
|
LABELSTR reduce using rule 962 ($@105)
|
|
NLITERAL reduce using rule 962 ($@105)
|
|
CLITERAL reduce using rule 962 ($@105)
|
|
'+' reduce using rule 962 ($@105)
|
|
'-' reduce using rule 962 ($@105)
|
|
ALL reduce using rule 962 ($@105)
|
|
CALL_CONV_C reduce using rule 962 ($@105)
|
|
CALL_CONV_STDCALL reduce using rule 962 ($@105)
|
|
FUNCTION reduce using rule 962 ($@105)
|
|
HIGHVALUES reduce using rule 962 ($@105)
|
|
LOWVALUES reduce using rule 962 ($@105)
|
|
QUOTES reduce using rule 962 ($@105)
|
|
SPACES reduce using rule 962 ($@105)
|
|
ZERO reduce using rule 962 ($@105)
|
|
$default reduce using rule 968 (call_statement)
|
|
|
|
$@105 go to state 400
|
|
|
|
|
|
state 260
|
|
|
|
973 call_loadlib_statement: CALL_LOADLIB . gname $@110 end_call_loadlib_opt
|
|
974 | CALL_LOADLIB .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 974 (call_loadlib_statement)
|
|
|
|
gname go to state 401
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 261
|
|
|
|
735 cancel_statement: CANCEL . gname
|
|
736 | CANCEL . ALL
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 402
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 403
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 262
|
|
|
|
981 chain_statement: CHAIN . $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt
|
|
982 | CHAIN .
|
|
|
|
VARIABLE reduce using rule 977 ($@111)
|
|
SUBSCVAR reduce using rule 977 ($@111)
|
|
LABELSTR reduce using rule 977 ($@111)
|
|
NLITERAL reduce using rule 977 ($@111)
|
|
CLITERAL reduce using rule 977 ($@111)
|
|
'+' reduce using rule 977 ($@111)
|
|
'-' reduce using rule 977 ($@111)
|
|
ALL reduce using rule 977 ($@111)
|
|
FUNCTION reduce using rule 977 ($@111)
|
|
HIGHVALUES reduce using rule 977 ($@111)
|
|
LOWVALUES reduce using rule 977 ($@111)
|
|
QUOTES reduce using rule 977 ($@111)
|
|
SPACES reduce using rule 977 ($@111)
|
|
ZERO reduce using rule 977 ($@111)
|
|
$default reduce using rule 982 (chain_statement)
|
|
|
|
$@111 go to state 404
|
|
|
|
|
|
state 263
|
|
|
|
879 close_statement: CLOSE . close_files
|
|
880 | CLOSE .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 880 (close_statement)
|
|
|
|
close_files go to state 405
|
|
close_file go to state 406
|
|
name go to state 407
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 264
|
|
|
|
786 compute_statement: COMPUTE . compute_body end_compute_opt
|
|
787 | COMPUTE .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 787 (compute_statement)
|
|
|
|
compute_body go to state 408
|
|
var_list_name go to state 409
|
|
name go to state 410
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 265
|
|
|
|
641 statement: CONTINUE .
|
|
|
|
$default reduce using rule 641 (statement)
|
|
|
|
|
|
state 266
|
|
|
|
947 delete_statement: DELETE . name record_opt $@103 invalid_key_opt end_delete_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 411
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 267
|
|
|
|
841 display_statement: DISPLAY .
|
|
842 display_line: DISPLAY . display_varlist display_upon display_line_options end_display_opt
|
|
843 display_screen: DISPLAY . display_varlist accept_display_options end_display_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 841 (display_statement)
|
|
|
|
display_varlist go to state 412
|
|
gname go to state 413
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 268
|
|
|
|
813 divide_statement: DIVIDE . divide_body end_divide_opt
|
|
814 | DIVIDE .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 814 (divide_statement)
|
|
|
|
divide_body go to state 414
|
|
gname go to state 415
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 269
|
|
|
|
652 evaluate_statement: EVALUATE . @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos
|
|
|
|
$default reduce using rule 650 (@62)
|
|
|
|
@62 go to state 416
|
|
|
|
|
|
state 270
|
|
|
|
983 exit_statement: EXIT .
|
|
984 | EXIT . PARAGRAPH
|
|
985 | EXIT . PROGRAM
|
|
|
|
PARAGRAPH shift, and go to state 417
|
|
PROGRAM shift, and go to state 418
|
|
|
|
$default reduce using rule 983 (exit_statement)
|
|
|
|
|
|
state 271
|
|
|
|
733 generate_statement: GENERATE . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 419
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 272
|
|
|
|
956 goto_statement: GO . to_opt goto_label
|
|
957 | GO . to_opt goto_label_list DEPENDING on_opt variable
|
|
|
|
TO shift, and go to state 420
|
|
|
|
$default reduce using rule 1239 (to_opt)
|
|
|
|
to_opt go to state 421
|
|
|
|
|
|
state 273
|
|
|
|
990 goback_statement: GOBACK .
|
|
|
|
$default reduce using rule 990 (goback_statement)
|
|
|
|
|
|
state 274
|
|
|
|
684 if_part: IF . condition @73 end_then_opt conditional_statement
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 426
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 275
|
|
|
|
774 initialize_statement: INITIALIZE . gname_list initialize_replacing_opt
|
|
775 | INITIALIZE .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 775 (initialize_statement)
|
|
|
|
gname_list go to state 429
|
|
gname go to state 71
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 276
|
|
|
|
732 initiate_statement: INITIATE . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 430
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 277
|
|
|
|
1086 inspect_statement: INSPECT . name tallying_clause $@126 replacing_clause
|
|
1087 | INSPECT . name converting_clause
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 431
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 278
|
|
|
|
740 merge_statement: MERGE . name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 432
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 279
|
|
|
|
770 move_statement: MOVE . gname TO name_var_list
|
|
771 | MOVE . CORRESPONDING name_var TO name_var
|
|
772 | MOVE . LENGTH OF gname TO name_var
|
|
773 | MOVE . gname TO
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
CORRESPONDING shift, and go to state 433
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LENGTH shift, and go to state 434
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 435
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 280
|
|
|
|
807 multiply_statement: MULTIPLY . multiply_body end_multiply_opt
|
|
808 | MULTIPLY .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 808 (multiply_statement)
|
|
|
|
multiply_body go to state 436
|
|
gname go to state 437
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 281
|
|
|
|
868 open_statement: OPEN . open_options
|
|
869 | OPEN .
|
|
|
|
error shift, and go to state 438
|
|
EXTEND shift, and go to state 439
|
|
INPUT shift, and go to state 440
|
|
I_O shift, and go to state 441
|
|
OUTPUT shift, and go to state 442
|
|
|
|
READ reduce using rule 869 (open_statement)
|
|
WRITE reduce using rule 869 (open_statement)
|
|
RELEASE reduce using rule 869 (open_statement)
|
|
NOT reduce using rule 869 (open_statement)
|
|
ACCEPT reduce using rule 869 (open_statement)
|
|
ADD reduce using rule 869 (open_statement)
|
|
CALL reduce using rule 869 (open_statement)
|
|
CALL_LOADLIB reduce using rule 869 (open_statement)
|
|
CANCEL reduce using rule 869 (open_statement)
|
|
CHAIN reduce using rule 869 (open_statement)
|
|
CLOSE reduce using rule 869 (open_statement)
|
|
COMPUTE reduce using rule 869 (open_statement)
|
|
CONTINUE reduce using rule 869 (open_statement)
|
|
DELETE reduce using rule 869 (open_statement)
|
|
DISPLAY reduce using rule 869 (open_statement)
|
|
DIVIDE reduce using rule 869 (open_statement)
|
|
ELSE reduce using rule 869 (open_statement)
|
|
END_ACCEPT reduce using rule 869 (open_statement)
|
|
END_ADD reduce using rule 869 (open_statement)
|
|
END_CALL reduce using rule 869 (open_statement)
|
|
END_CHAIN reduce using rule 869 (open_statement)
|
|
END_COMPUTE reduce using rule 869 (open_statement)
|
|
END_DELETE reduce using rule 869 (open_statement)
|
|
END_DIVIDE reduce using rule 869 (open_statement)
|
|
END_EVALUATE reduce using rule 869 (open_statement)
|
|
END_IF reduce using rule 869 (open_statement)
|
|
END_MULTIPLY reduce using rule 869 (open_statement)
|
|
END_PERFORM reduce using rule 869 (open_statement)
|
|
END_READ reduce using rule 869 (open_statement)
|
|
END_RETURN reduce using rule 869 (open_statement)
|
|
END_REWRITE reduce using rule 869 (open_statement)
|
|
END_SEARCH reduce using rule 869 (open_statement)
|
|
END_START reduce using rule 869 (open_statement)
|
|
END_STRINGCMD reduce using rule 869 (open_statement)
|
|
END_SUBTRACT reduce using rule 869 (open_statement)
|
|
END_UNSTRING reduce using rule 869 (open_statement)
|
|
END_WRITE reduce using rule 869 (open_statement)
|
|
EVALUATE reduce using rule 869 (open_statement)
|
|
EXIT reduce using rule 869 (open_statement)
|
|
GENERATE reduce using rule 869 (open_statement)
|
|
GO reduce using rule 869 (open_statement)
|
|
GOBACK reduce using rule 869 (open_statement)
|
|
IF reduce using rule 869 (open_statement)
|
|
INITIALIZE reduce using rule 869 (open_statement)
|
|
INITIATE reduce using rule 869 (open_statement)
|
|
INSPECT reduce using rule 869 (open_statement)
|
|
MERGE reduce using rule 869 (open_statement)
|
|
MOVE reduce using rule 869 (open_statement)
|
|
MULTIPLY reduce using rule 869 (open_statement)
|
|
NOTEXCEP reduce using rule 869 (open_statement)
|
|
OPEN reduce using rule 869 (open_statement)
|
|
PERFORM reduce using rule 869 (open_statement)
|
|
READY reduce using rule 869 (open_statement)
|
|
RESET reduce using rule 869 (open_statement)
|
|
RETURN reduce using rule 869 (open_statement)
|
|
REWRITE reduce using rule 869 (open_statement)
|
|
SEARCH reduce using rule 869 (open_statement)
|
|
SET reduce using rule 869 (open_statement)
|
|
SORT reduce using rule 869 (open_statement)
|
|
START reduce using rule 869 (open_statement)
|
|
STOP reduce using rule 869 (open_statement)
|
|
STRINGCMD reduce using rule 869 (open_statement)
|
|
SUBTRACT reduce using rule 869 (open_statement)
|
|
TCOBPROTO1 reduce using rule 869 (open_statement)
|
|
TCOBPROTO2 reduce using rule 869 (open_statement)
|
|
TERMINATE reduce using rule 869 (open_statement)
|
|
UNLOCK reduce using rule 869 (open_statement)
|
|
UNSTRING reduce using rule 869 (open_statement)
|
|
WHEN reduce using rule 869 (open_statement)
|
|
PERIOD_TOK reduce using rule 869 (open_statement)
|
|
|
|
open_options go to state 443
|
|
open_mode go to state 444
|
|
|
|
|
|
state 282
|
|
|
|
642 perform_statement: PERFORM . perform_options
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 445
|
|
NLITERAL shift, and go to state 446
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
WITH shift, and go to state 358
|
|
ZERO shift, and go to state 69
|
|
|
|
TEST reduce using rule 1233 (with_opt)
|
|
UNTIL reduce using rule 1165 (with_test_opt)
|
|
VARYING reduce using rule 1165 (with_test_opt)
|
|
$default reduce using rule 1176 ($@141)
|
|
|
|
perform_options go to state 447
|
|
with_test_opt go to state 448
|
|
perform_statements go to state 449
|
|
$@141 go to state 450
|
|
with_opt go to state 451
|
|
gname go to state 452
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
label go to state 453
|
|
|
|
|
|
state 283
|
|
|
|
730 trace_statement: READY . TRACE
|
|
|
|
TRACE shift, and go to state 454
|
|
|
|
|
|
state 284
|
|
|
|
731 trace_statement: RESET . TRACE
|
|
|
|
TRACE shift, and go to state 455
|
|
|
|
|
|
state 285
|
|
|
|
894 return_statement: RETURN . return_body end_return_opt
|
|
895 | RETURN .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 895 (return_statement)
|
|
|
|
return_body go to state 456
|
|
name go to state 457
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 286
|
|
|
|
943 rewrite_statement: REWRITE . name write_from_opt $@102 invalid_key_opt end_rewrite_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 458
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 287
|
|
|
|
648 search_statement: SEARCH . search end_search_opt
|
|
649 | SEARCH . ALL search_all end_search_opt
|
|
|
|
SUBSCVAR shift, and go to state 459
|
|
ALL shift, and go to state 460
|
|
|
|
search go to state 461
|
|
variable_indexed go to state 462
|
|
|
|
|
|
state 288
|
|
|
|
1010 set_statement: SET . set_list
|
|
|
|
error shift, and go to state 463
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
ADDRESS shift, and go to state 464
|
|
|
|
VARIABLE [reduce using rule 1024 (address_of_opt)]
|
|
SUBSCVAR [reduce using rule 1024 (address_of_opt)]
|
|
|
|
name_list go to state 465
|
|
set_list go to state 466
|
|
set_target go to state 467
|
|
address_of_opt go to state 468
|
|
cond_name go to state 469
|
|
variable go to state 470
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 289
|
|
|
|
747 sort_file: SORT . name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output
|
|
749 sort_variable_indexed: SORT . variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 471
|
|
LABELSTR shift, and go to state 58
|
|
|
|
variable_indexed go to state 472
|
|
name go to state 473
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 290
|
|
|
|
951 start_statement: START . start_body invalid_key_opt $@104 end_start_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
start_body go to state 474
|
|
name go to state 475
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 291
|
|
|
|
986 stop_statement: STOP . RUN
|
|
987 | STOP . stop_literal
|
|
|
|
NLITERAL shift, and go to state 476
|
|
CLITERAL shift, and go to state 477
|
|
RUN shift, and go to state 478
|
|
|
|
stop_literal go to state 479
|
|
|
|
|
|
state 292
|
|
|
|
1027 string_statement: STRINGCMD . string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt
|
|
|
|
error shift, and go to state 480
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
string_from_list go to state 481
|
|
string_from go to state 482
|
|
gname go to state 483
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 293
|
|
|
|
800 subtract_statement: SUBTRACT . subtract_body end_subtract_opt
|
|
801 | SUBTRACT .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
CORRESPONDING shift, and go to state 484
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 801 (subtract_statement)
|
|
|
|
subtract_body go to state 485
|
|
var_list_gname go to state 486
|
|
gname go to state 399
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 294
|
|
|
|
728 proto_statement: TCOBPROTO1 . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 487
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 295
|
|
|
|
729 proto_statement: TCOBPROTO2 . gname gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 488
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 296
|
|
|
|
734 terminate_statement: TERMINATE . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 489
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 297
|
|
|
|
727 unlock_statement: UNLOCK . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 490
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 298
|
|
|
|
1029 unstring_statement: UNSTRING . name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 491
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 299
|
|
|
|
566 procedure_decl: $@53 statements . PERIOD_TOK
|
|
598 statements: statements . statement
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
PERIOD_TOK shift, and go to state 492
|
|
|
|
statement go to state 493
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 300
|
|
|
|
597 statements: statement .
|
|
|
|
$default reduce using rule 597 (statements)
|
|
|
|
|
|
state 301
|
|
|
|
617 statement: perform_statement .
|
|
|
|
$default reduce using rule 617 (statement)
|
|
|
|
|
|
state 302
|
|
|
|
638 statement: if_statement .
|
|
|
|
$default reduce using rule 638 (statement)
|
|
|
|
|
|
state 303
|
|
|
|
640 statement: search_statement .
|
|
|
|
$default reduce using rule 640 (statement)
|
|
|
|
|
|
state 304
|
|
|
|
639 statement: evaluate_statement .
|
|
|
|
$default reduce using rule 639 (statement)
|
|
|
|
|
|
state 305
|
|
|
|
644 if_statement: if_part . $@59 end_if_opt
|
|
647 | if_part . ELSE @60 conditional_statement $@61 end_if_opt
|
|
|
|
ELSE shift, and go to state 494
|
|
|
|
ELSE [reduce using rule 643 ($@59)]
|
|
$default reduce using rule 643 ($@59)
|
|
|
|
$@59 go to state 495
|
|
|
|
|
|
state 306
|
|
|
|
637 statement: unlock_statement .
|
|
|
|
$default reduce using rule 637 (statement)
|
|
|
|
|
|
state 307
|
|
|
|
633 statement: proto_statement .
|
|
|
|
$default reduce using rule 633 (statement)
|
|
|
|
|
|
state 308
|
|
|
|
634 statement: trace_statement .
|
|
|
|
$default reduce using rule 634 (statement)
|
|
|
|
|
|
state 309
|
|
|
|
630 statement: initiate_statement .
|
|
|
|
$default reduce using rule 630 (statement)
|
|
|
|
|
|
state 310
|
|
|
|
631 statement: generate_statement .
|
|
|
|
$default reduce using rule 631 (statement)
|
|
|
|
|
|
state 311
|
|
|
|
632 statement: terminate_statement .
|
|
|
|
$default reduce using rule 632 (statement)
|
|
|
|
|
|
state 312
|
|
|
|
636 statement: cancel_statement .
|
|
|
|
$default reduce using rule 636 (statement)
|
|
|
|
|
|
state 313
|
|
|
|
626 statement: merge_statement .
|
|
|
|
$default reduce using rule 626 (statement)
|
|
|
|
|
|
state 314
|
|
|
|
625 statement: sort_statement .
|
|
|
|
$default reduce using rule 625 (statement)
|
|
|
|
|
|
state 315
|
|
|
|
742 sort_statement: sort_file .
|
|
|
|
$default reduce using rule 742 (sort_statement)
|
|
|
|
|
|
state 316
|
|
|
|
743 sort_statement: sort_variable_indexed .
|
|
|
|
$default reduce using rule 743 (sort_statement)
|
|
|
|
|
|
state 317
|
|
|
|
599 statement: move_statement .
|
|
|
|
$default reduce using rule 599 (statement)
|
|
|
|
|
|
state 318
|
|
|
|
600 statement: initialize_statement .
|
|
|
|
$default reduce using rule 600 (statement)
|
|
|
|
|
|
state 319
|
|
|
|
601 statement: compute_statement .
|
|
|
|
$default reduce using rule 601 (statement)
|
|
|
|
|
|
state 320
|
|
|
|
602 statement: add_statement .
|
|
|
|
$default reduce using rule 602 (statement)
|
|
|
|
|
|
state 321
|
|
|
|
603 statement: subtract_statement .
|
|
|
|
$default reduce using rule 603 (statement)
|
|
|
|
|
|
state 322
|
|
|
|
604 statement: multiply_statement .
|
|
|
|
$default reduce using rule 604 (statement)
|
|
|
|
|
|
state 323
|
|
|
|
605 statement: divide_statement .
|
|
|
|
$default reduce using rule 605 (statement)
|
|
|
|
|
|
state 324
|
|
|
|
606 statement: accept_statement .
|
|
|
|
$default reduce using rule 606 (statement)
|
|
|
|
|
|
state 325
|
|
|
|
822 accept_statement: accept_hardware .
|
|
|
|
$default reduce using rule 822 (accept_statement)
|
|
|
|
|
|
state 326
|
|
|
|
823 accept_statement: accept_chronological .
|
|
|
|
$default reduce using rule 823 (accept_statement)
|
|
|
|
|
|
state 327
|
|
|
|
824 accept_statement: accept_screen .
|
|
|
|
$default reduce using rule 824 (accept_statement)
|
|
|
|
|
|
state 328
|
|
|
|
607 statement: display_statement .
|
|
|
|
$default reduce using rule 607 (statement)
|
|
|
|
|
|
state 329
|
|
|
|
839 display_statement: display_line .
|
|
|
|
$default reduce using rule 839 (display_statement)
|
|
|
|
|
|
state 330
|
|
|
|
840 display_statement: display_screen .
|
|
|
|
$default reduce using rule 840 (display_statement)
|
|
|
|
|
|
state 331
|
|
|
|
608 statement: open_statement .
|
|
|
|
$default reduce using rule 608 (statement)
|
|
|
|
|
|
state 332
|
|
|
|
609 statement: close_statement .
|
|
|
|
$default reduce using rule 609 (statement)
|
|
|
|
|
|
state 333
|
|
|
|
611 statement: return_statement .
|
|
|
|
$default reduce using rule 611 (statement)
|
|
|
|
|
|
state 334
|
|
|
|
610 statement: read_statement .
|
|
|
|
$default reduce using rule 610 (statement)
|
|
|
|
|
|
state 335
|
|
|
|
612 statement: release_statement .
|
|
|
|
$default reduce using rule 612 (statement)
|
|
|
|
|
|
state 336
|
|
|
|
613 statement: write_statement .
|
|
|
|
$default reduce using rule 613 (statement)
|
|
|
|
|
|
state 337
|
|
|
|
614 statement: rewrite_statement .
|
|
|
|
$default reduce using rule 614 (statement)
|
|
|
|
|
|
state 338
|
|
|
|
615 statement: delete_statement .
|
|
|
|
$default reduce using rule 615 (statement)
|
|
|
|
|
|
state 339
|
|
|
|
616 statement: start_statement .
|
|
|
|
$default reduce using rule 616 (statement)
|
|
|
|
|
|
state 340
|
|
|
|
618 statement: goto_statement .
|
|
|
|
$default reduce using rule 618 (statement)
|
|
|
|
|
|
state 341
|
|
|
|
621 statement: call_statement .
|
|
|
|
$default reduce using rule 621 (statement)
|
|
|
|
|
|
state 342
|
|
|
|
622 statement: call_loadlib_statement .
|
|
|
|
$default reduce using rule 622 (statement)
|
|
|
|
|
|
state 343
|
|
|
|
623 statement: chain_statement .
|
|
|
|
$default reduce using rule 623 (statement)
|
|
|
|
|
|
state 344
|
|
|
|
619 statement: exit_statement .
|
|
|
|
$default reduce using rule 619 (statement)
|
|
|
|
|
|
state 345
|
|
|
|
620 statement: stop_statement .
|
|
|
|
$default reduce using rule 620 (statement)
|
|
|
|
|
|
state 346
|
|
|
|
635 statement: goback_statement .
|
|
|
|
$default reduce using rule 635 (statement)
|
|
|
|
|
|
state 347
|
|
|
|
624 statement: set_statement .
|
|
|
|
$default reduce using rule 624 (statement)
|
|
|
|
|
|
state 348
|
|
|
|
628 statement: string_statement .
|
|
|
|
$default reduce using rule 628 (statement)
|
|
|
|
|
|
state 349
|
|
|
|
629 statement: unstring_statement .
|
|
|
|
$default reduce using rule 629 (statement)
|
|
|
|
|
|
state 350
|
|
|
|
627 statement: inspect_statement .
|
|
|
|
$default reduce using rule 627 (statement)
|
|
|
|
|
|
state 351
|
|
|
|
23 identification_division_option: AUTHOR PERIOD_TOK .
|
|
|
|
$default reduce using rule 23 (identification_division_option)
|
|
|
|
|
|
state 352
|
|
|
|
25 identification_division_option: DATE_COMPILED PERIOD_TOK .
|
|
|
|
$default reduce using rule 25 (identification_division_option)
|
|
|
|
|
|
state 353
|
|
|
|
24 identification_division_option: DATE_WRITTEN PERIOD_TOK .
|
|
|
|
$default reduce using rule 24 (identification_division_option)
|
|
|
|
|
|
state 354
|
|
|
|
26 identification_division_option: INSTALLATION PERIOD_TOK .
|
|
|
|
$default reduce using rule 26 (identification_division_option)
|
|
|
|
|
|
state 355
|
|
|
|
27 identification_division_option: SECURITY PERIOD_TOK .
|
|
|
|
$default reduce using rule 27 (identification_division_option)
|
|
|
|
|
|
state 356
|
|
|
|
41 program_collating_opt: PROGRAM . collating_sequence
|
|
|
|
COLLATING shift, and go to state 496
|
|
|
|
$default reduce using rule 45 (collating_opt)
|
|
|
|
collating_sequence go to state 497
|
|
collating_opt go to state 498
|
|
|
|
|
|
state 357
|
|
|
|
38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 499
|
|
|
|
|
|
state 358
|
|
|
|
1234 with_opt: WITH .
|
|
|
|
$default reduce using rule 1234 (with_opt)
|
|
|
|
|
|
state 359
|
|
|
|
36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 500
|
|
|
|
|
|
state 360
|
|
|
|
46 debug_mode_opt: with_opt . DEBUGGING MODE
|
|
|
|
DEBUGGING shift, and go to state 501
|
|
|
|
|
|
state 361
|
|
|
|
81 alphabet_details: ALPHABET STRING is_opt . alphabet_type
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
NATIVE shift, and go to state 502
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
STANDARD_1 shift, and go to state 503
|
|
STANDARD_2 shift, and go to state 504
|
|
ZERO shift, and go to state 69
|
|
|
|
alphabet_type go to state 505
|
|
alphabet_literal_list go to state 506
|
|
alphabet_literal_item go to state 507
|
|
without_all_literal go to state 508
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 362
|
|
|
|
63 special_name_class: CLASS STRING is_opt . special_name_class_item_list
|
|
|
|
CLITERAL shift, and go to state 509
|
|
|
|
special_name_class_item_list go to state 510
|
|
special_name_class_item go to state 511
|
|
|
|
|
|
state 363
|
|
|
|
60 currency_details: CURRENCY sign_opt is_opt . CLITERAL
|
|
|
|
CLITERAL shift, and go to state 512
|
|
|
|
|
|
state 364
|
|
|
|
70 cursor_details: CURSOR is_opt STRING .
|
|
|
|
$default reduce using rule 70 (cursor_details)
|
|
|
|
|
|
state 365
|
|
|
|
68 decimal_point_details: DECIMAL_POINT is_opt COMMA .
|
|
|
|
$default reduce using rule 68 (decimal_point_details)
|
|
|
|
|
|
state 366
|
|
|
|
69 screen_status_details: DISPLAY_SCREEN STATUS is_opt . STRING
|
|
|
|
STRING shift, and go to state 513
|
|
|
|
|
|
state 367
|
|
|
|
74 switches_details: STRING is_opt . STRING $@9 switch_on_opt switch_off_opt
|
|
|
|
STRING shift, and go to state 514
|
|
|
|
|
|
state 368
|
|
|
|
1275 def_name: STRING .
|
|
|
|
$default reduce using rule 1275 (def_name)
|
|
|
|
|
|
state 369
|
|
|
|
1276 def_name: FILLER .
|
|
|
|
$default reduce using rule 1276 (def_name)
|
|
|
|
|
|
state 370
|
|
|
|
103 file_select: SELECT optional_opt def_name . $@10 select_clauses PERIOD_TOK
|
|
|
|
$default reduce using rule 102 ($@10)
|
|
|
|
$@10 go to state 515
|
|
|
|
|
|
state 371
|
|
|
|
157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK . tape_opt contains_opt i_o_control_multiple_file_list
|
|
|
|
TAPE shift, and go to state 516
|
|
|
|
$default reduce using rule 164 (tape_opt)
|
|
|
|
tape_opt go to state 517
|
|
|
|
|
|
state 372
|
|
|
|
154 same_clause_options: RECORD .
|
|
|
|
$default reduce using rule 154 (same_clause_options)
|
|
|
|
|
|
state 373
|
|
|
|
155 same_clause_options: SORT .
|
|
|
|
$default reduce using rule 155 (same_clause_options)
|
|
|
|
|
|
state 374
|
|
|
|
156 same_clause_options: SORT_MERGE .
|
|
|
|
$default reduce using rule 156 (same_clause_options)
|
|
|
|
|
|
state 375
|
|
|
|
152 i_o_control_same_clause: SAME same_clause_options . are_opta for_opt string_list
|
|
|
|
AREA shift, and go to state 518
|
|
|
|
$default reduce using rule 166 (are_opta)
|
|
|
|
are_opta go to state 519
|
|
|
|
|
|
state 376
|
|
|
|
147 i_o_control_opt: i_o_control_list PERIOD_TOK .
|
|
|
|
$default reduce using rule 147 (i_o_control_opt)
|
|
|
|
|
|
state 377
|
|
|
|
149 i_o_control_list: i_o_control_list i_o_control_clause .
|
|
|
|
$default reduce using rule 149 (i_o_control_list)
|
|
|
|
|
|
state 378
|
|
|
|
419 file_section: file_section FD $@38 STRING . $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description
|
|
|
|
$default reduce using rule 417 ($@39)
|
|
|
|
$@39 go to state 520
|
|
|
|
|
|
state 379
|
|
|
|
423 file_section: file_section SD $@41 STRING . $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description
|
|
|
|
$default reduce using rule 421 ($@42)
|
|
|
|
$@42 go to state 521
|
|
|
|
|
|
state 380
|
|
|
|
429 field_description: integer def_name_opt . $@44 data_clauses PERIOD_TOK
|
|
|
|
$default reduce using rule 428 ($@44)
|
|
|
|
$@44 go to state 522
|
|
|
|
|
|
state 381
|
|
|
|
1273 def_name_opt: def_name .
|
|
|
|
$default reduce using rule 1273 (def_name_opt)
|
|
|
|
|
|
state 382
|
|
|
|
556 linkage_section: linkage_section field_description .
|
|
|
|
$default reduce using rule 556 (linkage_section)
|
|
|
|
|
|
state 383
|
|
|
|
194 report_section: RD . $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description
|
|
|
|
$default reduce using rule 191 ($@15)
|
|
|
|
$@15 go to state 523
|
|
|
|
|
|
state 384
|
|
|
|
189 report_sections: report_sections report_section .
|
|
|
|
$default reduce using rule 189 (report_sections)
|
|
|
|
|
|
state 385
|
|
|
|
320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 . screen_section
|
|
|
|
$default reduce using rule 323 (screen_section)
|
|
|
|
screen_section go to state 524
|
|
|
|
|
|
state 386
|
|
|
|
1140 intrinsic_parm_list: intrinsic_parm_list sep_opt intrinsic_parm .
|
|
|
|
$default reduce using rule 1140 (intrinsic_parm_list)
|
|
|
|
|
|
state 387
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division . END DECLARATIVES PERIOD_TOK
|
|
574 declaratives_division: declaratives_division . declaratives_decl
|
|
|
|
error shift, and go to state 525
|
|
LABELSTR shift, and go to state 196
|
|
END shift, and go to state 526
|
|
|
|
READ reduce using rule 577 ($@56)
|
|
WRITE reduce using rule 577 ($@56)
|
|
RELEASE reduce using rule 577 ($@56)
|
|
ACCEPT reduce using rule 577 ($@56)
|
|
ADD reduce using rule 577 ($@56)
|
|
CALL reduce using rule 577 ($@56)
|
|
CALL_LOADLIB reduce using rule 577 ($@56)
|
|
CANCEL reduce using rule 577 ($@56)
|
|
CHAIN reduce using rule 577 ($@56)
|
|
CLOSE reduce using rule 577 ($@56)
|
|
COMPUTE reduce using rule 577 ($@56)
|
|
CONTINUE reduce using rule 577 ($@56)
|
|
DELETE reduce using rule 577 ($@56)
|
|
DISPLAY reduce using rule 577 ($@56)
|
|
DIVIDE reduce using rule 577 ($@56)
|
|
EVALUATE reduce using rule 577 ($@56)
|
|
EXIT reduce using rule 577 ($@56)
|
|
GENERATE reduce using rule 577 ($@56)
|
|
GO reduce using rule 577 ($@56)
|
|
GOBACK reduce using rule 577 ($@56)
|
|
IF reduce using rule 577 ($@56)
|
|
INITIALIZE reduce using rule 577 ($@56)
|
|
INITIATE reduce using rule 577 ($@56)
|
|
INSPECT reduce using rule 577 ($@56)
|
|
MERGE reduce using rule 577 ($@56)
|
|
MOVE reduce using rule 577 ($@56)
|
|
MULTIPLY reduce using rule 577 ($@56)
|
|
OPEN reduce using rule 577 ($@56)
|
|
PERFORM reduce using rule 577 ($@56)
|
|
READY reduce using rule 577 ($@56)
|
|
RESET reduce using rule 577 ($@56)
|
|
RETURN reduce using rule 577 ($@56)
|
|
REWRITE reduce using rule 577 ($@56)
|
|
SEARCH reduce using rule 577 ($@56)
|
|
SET reduce using rule 577 ($@56)
|
|
SORT reduce using rule 577 ($@56)
|
|
START reduce using rule 577 ($@56)
|
|
STOP reduce using rule 577 ($@56)
|
|
STRINGCMD reduce using rule 577 ($@56)
|
|
SUBTRACT reduce using rule 577 ($@56)
|
|
TCOBPROTO1 reduce using rule 577 ($@56)
|
|
TCOBPROTO2 reduce using rule 577 ($@56)
|
|
TERMINATE reduce using rule 577 ($@56)
|
|
UNLOCK reduce using rule 577 ($@56)
|
|
UNSTRING reduce using rule 577 ($@56)
|
|
|
|
declaratives_decl go to state 527
|
|
$@56 go to state 528
|
|
declaratives_procedure go to state 529
|
|
procedure_section go to state 248
|
|
paragraph go to state 530
|
|
|
|
|
|
state 388
|
|
|
|
582 declaratives_procedure: procedure_section $@58 . use_phrase
|
|
|
|
error shift, and go to state 531
|
|
USE shift, and go to state 532
|
|
|
|
use_phrase go to state 533
|
|
|
|
|
|
state 389
|
|
|
|
568 procedure_decl: error $@54 PERIOD_TOK .
|
|
|
|
$default reduce using rule 568 (procedure_decl)
|
|
|
|
|
|
state 390
|
|
|
|
592 procedure_section: LABELSTR SECTION PERIOD_TOK .
|
|
|
|
$default reduce using rule 592 (procedure_section)
|
|
|
|
|
|
state 391
|
|
|
|
898 read_statement: READ read_body . end_read_opt
|
|
|
|
END_READ shift, and go to state 534
|
|
|
|
END_READ [reduce using rule 926 (end_read_opt)]
|
|
$default reduce using rule 926 (end_read_opt)
|
|
|
|
end_read_opt go to state 535
|
|
|
|
|
|
state 392
|
|
|
|
900 read_body: name . read_next_opt record_opt read_into_opt with_lock_opt read_key_opt
|
|
901 | name . read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt
|
|
902 | name . read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt
|
|
|
|
NEXT shift, and go to state 536
|
|
PREVIOUS shift, and go to state 537
|
|
|
|
$default reduce using rule 903 (read_next_opt)
|
|
|
|
read_next_opt go to state 538
|
|
|
|
|
|
state 393
|
|
|
|
934 write_statement: WRITE name . write_from_opt write_options $@101 invalid_key_opt end_write_opt
|
|
|
|
FROM shift, and go to state 539
|
|
|
|
$default reduce using rule 935 (write_from_opt)
|
|
|
|
write_from_opt go to state 540
|
|
|
|
|
|
state 394
|
|
|
|
930 release_statement: RELEASE name . release_from_opt
|
|
|
|
FROM shift, and go to state 541
|
|
|
|
$default reduce using rule 931 (release_from_opt)
|
|
|
|
release_from_opt go to state 542
|
|
|
|
|
|
state 395
|
|
|
|
826 accept_hardware: ACCEPT name . FROM INKEY end_accept_opt
|
|
827 | ACCEPT name . FROM INPUT STATUS end_accept_opt
|
|
828 | ACCEPT name . FROM CMD_LINE end_accept_opt
|
|
829 | ACCEPT name . FROM ESCKEY end_accept_opt
|
|
830 | ACCEPT name . FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt
|
|
831 accept_chronological: ACCEPT name . FROM DATE_TIME end_accept_opt
|
|
832 accept_screen: ACCEPT name . accept_display_options end_accept_opt
|
|
836 | ACCEPT name . accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt
|
|
|
|
FROM shift, and go to state 543
|
|
|
|
$default reduce using rule 862 (accept_display_options)
|
|
|
|
accept_display_options go to state 544
|
|
|
|
|
|
state 396
|
|
|
|
795 add_body: CORRESPONDING . var_list_gname TO var_list_name rounded_opt on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
var_list_gname go to state 545
|
|
gname go to state 399
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 397
|
|
|
|
791 add_statement: ADD add_body . end_add_opt
|
|
|
|
END_ADD shift, and go to state 546
|
|
|
|
END_ADD [reduce using rule 798 (end_add_opt)]
|
|
$default reduce using rule 798 (end_add_opt)
|
|
|
|
end_add_opt go to state 547
|
|
|
|
|
|
state 398
|
|
|
|
793 add_body: var_list_gname . TO var_list_name on_size_error_opt
|
|
794 | var_list_gname . add_to_opt GIVING var_list_name on_size_error_opt
|
|
994 var_list_gname: var_list_gname . gname sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
TO shift, and go to state 548
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 796 (add_to_opt)
|
|
|
|
add_to_opt go to state 549
|
|
gname go to state 550
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 399
|
|
|
|
993 var_list_gname: gname . sep_opt
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 551
|
|
|
|
|
|
state 400
|
|
|
|
967 call_statement: CALL $@105 . call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
CALL_CONV_C shift, and go to state 552
|
|
CALL_CONV_STDCALL shift, and go to state 553
|
|
|
|
$default reduce using rule 969 (call_convention_opt)
|
|
|
|
call_convention_opt go to state 554
|
|
|
|
|
|
state 401
|
|
|
|
973 call_loadlib_statement: CALL_LOADLIB gname . $@110 end_call_loadlib_opt
|
|
|
|
$default reduce using rule 972 ($@110)
|
|
|
|
$@110 go to state 555
|
|
|
|
|
|
state 402
|
|
|
|
736 cancel_statement: CANCEL ALL .
|
|
1258 all_literal: ALL . literal
|
|
1259 | ALL . special_literal
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 736 (cancel_statement)
|
|
|
|
special_literal go to state 95
|
|
literal go to state 96
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 403
|
|
|
|
735 cancel_statement: CANCEL gname .
|
|
|
|
$default reduce using rule 735 (cancel_statement)
|
|
|
|
|
|
state 404
|
|
|
|
981 chain_statement: CHAIN $@111 . gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 556
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 405
|
|
|
|
879 close_statement: CLOSE close_files .
|
|
882 close_files: close_files . sep_opt close_file
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 879 (close_statement)
|
|
|
|
sep_opt go to state 557
|
|
|
|
|
|
state 406
|
|
|
|
881 close_files: close_file .
|
|
|
|
$default reduce using rule 881 (close_files)
|
|
|
|
|
|
state 407
|
|
|
|
883 close_file: name . close_options_opt
|
|
|
|
REEL shift, and go to state 558
|
|
UNIT shift, and go to state 559
|
|
WITH shift, and go to state 358
|
|
|
|
NO reduce using rule 1233 (with_opt)
|
|
IGNORE reduce using rule 1233 (with_opt)
|
|
LOCK reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 893 (with_lock_opt)
|
|
|
|
close_options_opt go to state 560
|
|
close_options go to state 561
|
|
with_lock_opt go to state 562
|
|
with_opt go to state 563
|
|
|
|
|
|
state 408
|
|
|
|
786 compute_statement: COMPUTE compute_body . end_compute_opt
|
|
|
|
END_COMPUTE shift, and go to state 564
|
|
|
|
END_COMPUTE [reduce using rule 789 (end_compute_opt)]
|
|
$default reduce using rule 789 (end_compute_opt)
|
|
|
|
end_compute_opt go to state 565
|
|
|
|
|
|
state 409
|
|
|
|
788 compute_body: var_list_name . CONDITIONAL expr on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
CONDITIONAL shift, and go to state 566
|
|
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 410
|
|
|
|
991 var_list_name: name . rounded_opt sep_opt
|
|
|
|
ROUNDED shift, and go to state 568
|
|
|
|
ROUNDED [reduce using rule 995 (rounded_opt)]
|
|
$default reduce using rule 995 (rounded_opt)
|
|
|
|
rounded_opt go to state 569
|
|
|
|
|
|
state 411
|
|
|
|
947 delete_statement: DELETE name . record_opt $@103 invalid_key_opt end_delete_opt
|
|
|
|
RECORD shift, and go to state 570
|
|
|
|
$default reduce using rule 1223 (record_opt)
|
|
|
|
record_opt go to state 571
|
|
|
|
|
|
state 412
|
|
|
|
842 display_line: DISPLAY display_varlist . display_upon display_line_options end_display_opt
|
|
843 display_screen: DISPLAY display_varlist . accept_display_options end_display_opt
|
|
845 display_varlist: display_varlist . sep_opt gname
|
|
|
|
LISTSEP shift, and go to state 98
|
|
UPON shift, and go to state 572
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
NLITERAL reduce using rule 1214 (sep_opt)
|
|
CLITERAL reduce using rule 1214 (sep_opt)
|
|
'+' reduce using rule 1214 (sep_opt)
|
|
'-' reduce using rule 1214 (sep_opt)
|
|
ALL reduce using rule 1214 (sep_opt)
|
|
FUNCTION reduce using rule 1214 (sep_opt)
|
|
HIGHVALUES reduce using rule 1214 (sep_opt)
|
|
LOWVALUES reduce using rule 1214 (sep_opt)
|
|
QUOTES reduce using rule 1214 (sep_opt)
|
|
SPACES reduce using rule 1214 (sep_opt)
|
|
ZERO reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 862 (accept_display_options)
|
|
|
|
display_upon go to state 573
|
|
accept_display_options go to state 574
|
|
sep_opt go to state 575
|
|
|
|
|
|
state 413
|
|
|
|
844 display_varlist: gname .
|
|
|
|
$default reduce using rule 844 (display_varlist)
|
|
|
|
|
|
state 414
|
|
|
|
813 divide_statement: DIVIDE divide_body . end_divide_opt
|
|
|
|
END_DIVIDE shift, and go to state 576
|
|
|
|
END_DIVIDE [reduce using rule 820 (end_divide_opt)]
|
|
$default reduce using rule 820 (end_divide_opt)
|
|
|
|
end_divide_opt go to state 577
|
|
|
|
|
|
state 415
|
|
|
|
815 divide_body: gname . BY gname GIVING var_list_name on_size_error_opt
|
|
816 | gname . BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
817 | gname . INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
818 | gname . INTO gname GIVING var_list_name on_size_error_opt
|
|
819 | gname . INTO var_list_name on_size_error_opt
|
|
|
|
BY shift, and go to state 578
|
|
INTO shift, and go to state 579
|
|
|
|
|
|
state 416
|
|
|
|
652 evaluate_statement: EVALUATE @62 . selection_subject_set $@63 when_case_list end_evaluate_or_eos
|
|
|
|
$default reduce using rule 655 (@64)
|
|
|
|
selection_subject_set go to state 580
|
|
@64 go to state 581
|
|
|
|
|
|
state 417
|
|
|
|
984 exit_statement: EXIT PARAGRAPH .
|
|
|
|
$default reduce using rule 984 (exit_statement)
|
|
|
|
|
|
state 418
|
|
|
|
985 exit_statement: EXIT PROGRAM .
|
|
|
|
$default reduce using rule 985 (exit_statement)
|
|
|
|
|
|
state 419
|
|
|
|
733 generate_statement: GENERATE name .
|
|
|
|
$default reduce using rule 733 (generate_statement)
|
|
|
|
|
|
state 420
|
|
|
|
1240 to_opt: TO .
|
|
|
|
$default reduce using rule 1240 (to_opt)
|
|
|
|
|
|
state 421
|
|
|
|
956 goto_statement: GO to_opt . goto_label
|
|
957 | GO to_opt . goto_label_list DEPENDING on_opt variable
|
|
|
|
LABELSTR shift, and go to state 582
|
|
NLITERAL shift, and go to state 583
|
|
|
|
goto_label go to state 584
|
|
goto_label_list go to state 585
|
|
label go to state 586
|
|
|
|
|
|
state 422
|
|
|
|
1283 cond_name: VARCOND . '(' $@146 subscripts ')'
|
|
1284 | VARCOND .
|
|
|
|
'(' shift, and go to state 587
|
|
|
|
$default reduce using rule 1284 (cond_name)
|
|
|
|
|
|
state 423
|
|
|
|
1182 condition: NOT . condition
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 588
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 424
|
|
|
|
1119 expr: '(' . expr ')'
|
|
1187 condition: '(' . condition ')'
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 589
|
|
condition go to state 590
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 425
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1181 condition: expr . extended_cond_op $@142 expr_opt
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
IS shift, and go to state 592
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
NOT shift, and go to state 598
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
extended_cond_op go to state 608
|
|
ext_cond go to state 609
|
|
conditional go to state 610
|
|
|
|
|
|
state 426
|
|
|
|
684 if_part: IF condition . @73 end_then_opt conditional_statement
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
$default reduce using rule 683 (@73)
|
|
|
|
@73 go to state 613
|
|
|
|
|
|
state 427
|
|
|
|
1113 expr: gname .
|
|
|
|
$default reduce using rule 1113 (expr)
|
|
|
|
|
|
state 428
|
|
|
|
1188 condition: cond_name .
|
|
|
|
$default reduce using rule 1188 (condition)
|
|
|
|
|
|
state 429
|
|
|
|
774 initialize_statement: INITIALIZE gname_list . initialize_replacing_opt
|
|
1244 gname_list: gname_list . sep_opt gname
|
|
|
|
LISTSEP shift, and go to state 98
|
|
REPLACING shift, and go to state 614
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
NLITERAL reduce using rule 1214 (sep_opt)
|
|
CLITERAL reduce using rule 1214 (sep_opt)
|
|
'+' reduce using rule 1214 (sep_opt)
|
|
'-' reduce using rule 1214 (sep_opt)
|
|
ALL reduce using rule 1214 (sep_opt)
|
|
FUNCTION reduce using rule 1214 (sep_opt)
|
|
HIGHVALUES reduce using rule 1214 (sep_opt)
|
|
LOWVALUES reduce using rule 1214 (sep_opt)
|
|
QUOTES reduce using rule 1214 (sep_opt)
|
|
SPACES reduce using rule 1214 (sep_opt)
|
|
ZERO reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 776 (initialize_replacing_opt)
|
|
|
|
initialize_replacing_opt go to state 615
|
|
sep_opt go to state 99
|
|
|
|
|
|
state 430
|
|
|
|
732 initiate_statement: INITIATE name .
|
|
|
|
$default reduce using rule 732 (initiate_statement)
|
|
|
|
|
|
state 431
|
|
|
|
1086 inspect_statement: INSPECT name . tallying_clause $@126 replacing_clause
|
|
1087 | INSPECT name . converting_clause
|
|
|
|
CONVERTING shift, and go to state 616
|
|
TALLYING shift, and go to state 617
|
|
|
|
$default reduce using rule 1090 (tallying_clause)
|
|
|
|
converting_clause go to state 618
|
|
tallying_clause go to state 619
|
|
|
|
|
|
state 432
|
|
|
|
740 merge_statement: MERGE name . sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
sort_keys go to state 621
|
|
sort_key go to state 622
|
|
on_opt go to state 623
|
|
|
|
|
|
state 433
|
|
|
|
771 move_statement: MOVE CORRESPONDING . name_var TO name_var
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 624
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
name_var go to state 625
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 434
|
|
|
|
772 move_statement: MOVE LENGTH . OF gname TO name_var
|
|
|
|
OF shift, and go to state 626
|
|
|
|
|
|
state 435
|
|
|
|
770 move_statement: MOVE gname . TO name_var_list
|
|
773 | MOVE gname . TO
|
|
|
|
TO shift, and go to state 627
|
|
|
|
|
|
state 436
|
|
|
|
807 multiply_statement: MULTIPLY multiply_body . end_multiply_opt
|
|
|
|
END_MULTIPLY shift, and go to state 628
|
|
|
|
END_MULTIPLY [reduce using rule 811 (end_multiply_opt)]
|
|
$default reduce using rule 811 (end_multiply_opt)
|
|
|
|
end_multiply_opt go to state 629
|
|
|
|
|
|
state 437
|
|
|
|
809 multiply_body: gname . BY gname GIVING var_list_name on_size_error_opt
|
|
810 | gname . BY var_list_name on_size_error_opt
|
|
|
|
BY shift, and go to state 630
|
|
|
|
|
|
state 438
|
|
|
|
876 open_mode: error .
|
|
|
|
$default reduce using rule 876 (open_mode)
|
|
|
|
|
|
state 439
|
|
|
|
875 open_mode: EXTEND .
|
|
|
|
$default reduce using rule 875 (open_mode)
|
|
|
|
|
|
state 440
|
|
|
|
872 open_mode: INPUT .
|
|
|
|
$default reduce using rule 872 (open_mode)
|
|
|
|
|
|
state 441
|
|
|
|
873 open_mode: I_O .
|
|
|
|
$default reduce using rule 873 (open_mode)
|
|
|
|
|
|
state 442
|
|
|
|
874 open_mode: OUTPUT .
|
|
|
|
$default reduce using rule 874 (open_mode)
|
|
|
|
|
|
state 443
|
|
|
|
868 open_statement: OPEN open_options .
|
|
871 open_options: open_options . open_mode open_varlist
|
|
|
|
error shift, and go to state 438
|
|
EXTEND shift, and go to state 439
|
|
INPUT shift, and go to state 440
|
|
I_O shift, and go to state 441
|
|
OUTPUT shift, and go to state 442
|
|
|
|
READ reduce using rule 868 (open_statement)
|
|
WRITE reduce using rule 868 (open_statement)
|
|
RELEASE reduce using rule 868 (open_statement)
|
|
NOT reduce using rule 868 (open_statement)
|
|
ACCEPT reduce using rule 868 (open_statement)
|
|
ADD reduce using rule 868 (open_statement)
|
|
CALL reduce using rule 868 (open_statement)
|
|
CALL_LOADLIB reduce using rule 868 (open_statement)
|
|
CANCEL reduce using rule 868 (open_statement)
|
|
CHAIN reduce using rule 868 (open_statement)
|
|
CLOSE reduce using rule 868 (open_statement)
|
|
COMPUTE reduce using rule 868 (open_statement)
|
|
CONTINUE reduce using rule 868 (open_statement)
|
|
DELETE reduce using rule 868 (open_statement)
|
|
DISPLAY reduce using rule 868 (open_statement)
|
|
DIVIDE reduce using rule 868 (open_statement)
|
|
ELSE reduce using rule 868 (open_statement)
|
|
END_ACCEPT reduce using rule 868 (open_statement)
|
|
END_ADD reduce using rule 868 (open_statement)
|
|
END_CALL reduce using rule 868 (open_statement)
|
|
END_CHAIN reduce using rule 868 (open_statement)
|
|
END_COMPUTE reduce using rule 868 (open_statement)
|
|
END_DELETE reduce using rule 868 (open_statement)
|
|
END_DIVIDE reduce using rule 868 (open_statement)
|
|
END_EVALUATE reduce using rule 868 (open_statement)
|
|
END_IF reduce using rule 868 (open_statement)
|
|
END_MULTIPLY reduce using rule 868 (open_statement)
|
|
END_PERFORM reduce using rule 868 (open_statement)
|
|
END_READ reduce using rule 868 (open_statement)
|
|
END_RETURN reduce using rule 868 (open_statement)
|
|
END_REWRITE reduce using rule 868 (open_statement)
|
|
END_SEARCH reduce using rule 868 (open_statement)
|
|
END_START reduce using rule 868 (open_statement)
|
|
END_STRINGCMD reduce using rule 868 (open_statement)
|
|
END_SUBTRACT reduce using rule 868 (open_statement)
|
|
END_UNSTRING reduce using rule 868 (open_statement)
|
|
END_WRITE reduce using rule 868 (open_statement)
|
|
EVALUATE reduce using rule 868 (open_statement)
|
|
EXIT reduce using rule 868 (open_statement)
|
|
GENERATE reduce using rule 868 (open_statement)
|
|
GO reduce using rule 868 (open_statement)
|
|
GOBACK reduce using rule 868 (open_statement)
|
|
IF reduce using rule 868 (open_statement)
|
|
INITIALIZE reduce using rule 868 (open_statement)
|
|
INITIATE reduce using rule 868 (open_statement)
|
|
INSPECT reduce using rule 868 (open_statement)
|
|
MERGE reduce using rule 868 (open_statement)
|
|
MOVE reduce using rule 868 (open_statement)
|
|
MULTIPLY reduce using rule 868 (open_statement)
|
|
NOTEXCEP reduce using rule 868 (open_statement)
|
|
OPEN reduce using rule 868 (open_statement)
|
|
PERFORM reduce using rule 868 (open_statement)
|
|
READY reduce using rule 868 (open_statement)
|
|
RESET reduce using rule 868 (open_statement)
|
|
RETURN reduce using rule 868 (open_statement)
|
|
REWRITE reduce using rule 868 (open_statement)
|
|
SEARCH reduce using rule 868 (open_statement)
|
|
SET reduce using rule 868 (open_statement)
|
|
SORT reduce using rule 868 (open_statement)
|
|
START reduce using rule 868 (open_statement)
|
|
STOP reduce using rule 868 (open_statement)
|
|
STRINGCMD reduce using rule 868 (open_statement)
|
|
SUBTRACT reduce using rule 868 (open_statement)
|
|
TCOBPROTO1 reduce using rule 868 (open_statement)
|
|
TCOBPROTO2 reduce using rule 868 (open_statement)
|
|
TERMINATE reduce using rule 868 (open_statement)
|
|
UNLOCK reduce using rule 868 (open_statement)
|
|
UNSTRING reduce using rule 868 (open_statement)
|
|
WHEN reduce using rule 868 (open_statement)
|
|
PERIOD_TOK reduce using rule 868 (open_statement)
|
|
|
|
open_mode go to state 631
|
|
|
|
|
|
state 444
|
|
|
|
870 open_options: open_mode . open_varlist
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
open_varlist go to state 632
|
|
name go to state 633
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 445
|
|
|
|
1287 name: LABELSTR .
|
|
1302 label: LABELSTR . in_of LABELSTR
|
|
1303 | LABELSTR .
|
|
|
|
IN shift, and go to state 102
|
|
OF shift, and go to state 103
|
|
|
|
TIMES reduce using rule 1287 (name)
|
|
$default reduce using rule 1303 (label)
|
|
|
|
in_of go to state 634
|
|
|
|
|
|
state 446
|
|
|
|
1270 signed_nliteral: NLITERAL .
|
|
1304 label: NLITERAL .
|
|
1305 | NLITERAL . in_of NLITERAL
|
|
1306 | NLITERAL . in_of LABELSTR
|
|
|
|
IN shift, and go to state 102
|
|
OF shift, and go to state 103
|
|
|
|
TIMES reduce using rule 1270 (signed_nliteral)
|
|
$default reduce using rule 1304 (label)
|
|
|
|
in_of go to state 635
|
|
|
|
|
|
state 447
|
|
|
|
642 perform_statement: PERFORM perform_options .
|
|
|
|
$default reduce using rule 642 (perform_statement)
|
|
|
|
|
|
state 448
|
|
|
|
1151 perform_options: with_test_opt . UNTIL @131 condition @132 perform_statements $@133 END_PERFORM
|
|
1155 | with_test_opt . VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
UNTIL shift, and go to state 636
|
|
VARYING shift, and go to state 637
|
|
|
|
|
|
state 449
|
|
|
|
1144 perform_options: perform_statements . END_PERFORM
|
|
|
|
END_PERFORM shift, and go to state 638
|
|
|
|
|
|
state 450
|
|
|
|
1177 perform_statements: $@141 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 639
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 451
|
|
|
|
1166 with_test_opt: with_opt . TEST before_after
|
|
|
|
TEST shift, and go to state 641
|
|
|
|
|
|
state 452
|
|
|
|
1147 perform_options: gname . TIMES @129 perform_statements $@130 END_PERFORM
|
|
|
|
TIMES shift, and go to state 642
|
|
|
|
|
|
state 453
|
|
|
|
1156 perform_options: label . perform_thru_opt
|
|
1158 | label . perform_thru_opt with_test_opt UNTIL @137 condition
|
|
1159 | label . perform_thru_opt gname TIMES
|
|
1162 | label . perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
THRU shift, and go to state 643
|
|
|
|
$default reduce using rule 1163 (perform_thru_opt)
|
|
|
|
perform_thru_opt go to state 644
|
|
|
|
|
|
state 454
|
|
|
|
730 trace_statement: READY TRACE .
|
|
|
|
$default reduce using rule 730 (trace_statement)
|
|
|
|
|
|
state 455
|
|
|
|
731 trace_statement: RESET TRACE .
|
|
|
|
$default reduce using rule 731 (trace_statement)
|
|
|
|
|
|
state 456
|
|
|
|
894 return_statement: RETURN return_body . end_return_opt
|
|
|
|
END_RETURN shift, and go to state 645
|
|
|
|
END_RETURN [reduce using rule 928 (end_return_opt)]
|
|
$default reduce using rule 928 (end_return_opt)
|
|
|
|
end_return_opt go to state 646
|
|
|
|
|
|
state 457
|
|
|
|
896 return_body: name . record_opt read_into_opt
|
|
897 | name . record_opt read_into_opt read_at_end_opt
|
|
|
|
RECORD shift, and go to state 570
|
|
|
|
$default reduce using rule 1223 (record_opt)
|
|
|
|
record_opt go to state 647
|
|
|
|
|
|
state 458
|
|
|
|
943 rewrite_statement: REWRITE name . write_from_opt $@102 invalid_key_opt end_rewrite_opt
|
|
|
|
FROM shift, and go to state 539
|
|
|
|
$default reduce using rule 935 (write_from_opt)
|
|
|
|
write_from_opt go to state 648
|
|
|
|
|
|
state 459
|
|
|
|
1277 variable_indexed: SUBSCVAR .
|
|
|
|
$default reduce using rule 1277 (variable_indexed)
|
|
|
|
|
|
state 460
|
|
|
|
649 search_statement: SEARCH ALL . search_all end_search_opt
|
|
|
|
SUBSCVAR shift, and go to state 459
|
|
|
|
search_all go to state 649
|
|
variable_indexed go to state 650
|
|
|
|
|
|
state 461
|
|
|
|
648 search_statement: SEARCH search . end_search_opt
|
|
|
|
END_SEARCH shift, and go to state 651
|
|
|
|
END_SEARCH [reduce using rule 725 (end_search_opt)]
|
|
$default reduce using rule 725 (end_search_opt)
|
|
|
|
end_search_opt go to state 652
|
|
|
|
|
|
state 462
|
|
|
|
698 search: variable_indexed . @76 search_varying_opt @77 search_at_end @78 search_when_list
|
|
|
|
$default reduce using rule 695 (@76)
|
|
|
|
@76 go to state 653
|
|
|
|
|
|
state 463
|
|
|
|
174 name_list: error .
|
|
|
|
$default reduce using rule 174 (name_list)
|
|
|
|
|
|
state 464
|
|
|
|
1025 address_of_opt: ADDRESS . of_opt
|
|
|
|
OF shift, and go to state 654
|
|
|
|
$default reduce using rule 318 (of_opt)
|
|
|
|
of_opt go to state 655
|
|
|
|
|
|
state 465
|
|
|
|
173 name_list: name_list . variable
|
|
1015 set_target: name_list .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
$default reduce using rule 1015 (set_target)
|
|
|
|
variable go to state 656
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 466
|
|
|
|
1010 set_statement: SET set_list .
|
|
|
|
$default reduce using rule 1010 (set_statement)
|
|
|
|
|
|
state 467
|
|
|
|
1011 set_list: set_target . TO address_of_opt set_variable_or_nlit
|
|
1012 | set_target . UP BY var_or_nliteral
|
|
1013 | set_target . DOWN BY var_or_nliteral
|
|
|
|
TO shift, and go to state 657
|
|
DOWN shift, and go to state 658
|
|
UP shift, and go to state 659
|
|
|
|
|
|
state 468
|
|
|
|
1014 set_list: address_of_opt . variable TO address_of_opt set_variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 660
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 469
|
|
|
|
1016 set_target: cond_name .
|
|
|
|
$default reduce using rule 1016 (set_target)
|
|
|
|
|
|
state 470
|
|
|
|
172 name_list: variable .
|
|
|
|
$default reduce using rule 172 (name_list)
|
|
|
|
|
|
state 471
|
|
|
|
1277 variable_indexed: SUBSCVAR .
|
|
1295 unqualified_var: SUBSCVAR .
|
|
|
|
DIRECTION reduce using rule 1277 (variable_indexed)
|
|
DIRECTION [reduce using rule 1295 (unqualified_var)]
|
|
ON reduce using rule 1277 (variable_indexed)
|
|
ON [reduce using rule 1295 (unqualified_var)]
|
|
$default reduce using rule 1295 (unqualified_var)
|
|
|
|
|
|
state 472
|
|
|
|
749 sort_variable_indexed: SORT variable_indexed . sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
sort_keys_idx go to state 661
|
|
sort_key_idx go to state 662
|
|
on_opt go to state 663
|
|
|
|
|
|
state 473
|
|
|
|
747 sort_file: SORT name . sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
sort_keys go to state 664
|
|
sort_key go to state 622
|
|
on_opt go to state 623
|
|
|
|
|
|
state 474
|
|
|
|
951 start_statement: START start_body . invalid_key_opt $@104 end_start_opt
|
|
|
|
NOT shift, and go to state 665
|
|
INVALID shift, and go to state 666
|
|
NOTEXCEP shift, and go to state 667
|
|
|
|
NOT [reduce using rule 1064 (invalid_key_opt)]
|
|
NOTEXCEP [reduce using rule 1064 (invalid_key_opt)]
|
|
$default reduce using rule 1064 (invalid_key_opt)
|
|
|
|
invalid_key_opt go to state 668
|
|
invalid_key_sentence go to state 669
|
|
not_invalid_key_sentence go to state 670
|
|
not_excep go to state 671
|
|
|
|
|
|
state 475
|
|
|
|
952 start_body: name .
|
|
953 | name . KEY is_opt cond_op name
|
|
|
|
KEY shift, and go to state 672
|
|
|
|
$default reduce using rule 952 (start_body)
|
|
|
|
|
|
state 476
|
|
|
|
989 stop_literal: NLITERAL .
|
|
|
|
$default reduce using rule 989 (stop_literal)
|
|
|
|
|
|
state 477
|
|
|
|
988 stop_literal: CLITERAL .
|
|
|
|
$default reduce using rule 988 (stop_literal)
|
|
|
|
|
|
state 478
|
|
|
|
986 stop_statement: STOP RUN .
|
|
|
|
$default reduce using rule 986 (stop_statement)
|
|
|
|
|
|
state 479
|
|
|
|
987 stop_statement: STOP stop_literal .
|
|
|
|
$default reduce using rule 987 (stop_statement)
|
|
|
|
|
|
state 480
|
|
|
|
1075 string_from_list: error .
|
|
|
|
$default reduce using rule 1075 (string_from_list)
|
|
|
|
|
|
state 481
|
|
|
|
1027 string_statement: STRINGCMD string_from_list . INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt
|
|
1074 string_from_list: string_from_list . sep_opt string_from
|
|
|
|
INTO shift, and go to state 673
|
|
LISTSEP shift, and go to state 98
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 674
|
|
|
|
|
|
state 482
|
|
|
|
1073 string_from_list: string_from .
|
|
|
|
$default reduce using rule 1073 (string_from_list)
|
|
|
|
|
|
state 483
|
|
|
|
1076 string_from: gname .
|
|
1077 | gname . DELIMITED by_opt delimited_by
|
|
|
|
DELIMITED shift, and go to state 675
|
|
|
|
$default reduce using rule 1076 (string_from)
|
|
|
|
|
|
state 484
|
|
|
|
804 subtract_body: CORRESPONDING . var_list_gname FROM var_list_name rounded_opt on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
var_list_gname go to state 676
|
|
gname go to state 399
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 485
|
|
|
|
800 subtract_statement: SUBTRACT subtract_body . end_subtract_opt
|
|
|
|
END_SUBTRACT shift, and go to state 677
|
|
|
|
END_SUBTRACT [reduce using rule 805 (end_subtract_opt)]
|
|
$default reduce using rule 805 (end_subtract_opt)
|
|
|
|
end_subtract_opt go to state 678
|
|
|
|
|
|
state 486
|
|
|
|
802 subtract_body: var_list_gname . FROM var_list_name on_size_error_opt
|
|
803 | var_list_gname . FROM gname GIVING var_list_name on_size_error_opt
|
|
994 var_list_gname: var_list_gname . gname sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FROM shift, and go to state 679
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 550
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 487
|
|
|
|
728 proto_statement: TCOBPROTO1 gname .
|
|
|
|
$default reduce using rule 728 (proto_statement)
|
|
|
|
|
|
state 488
|
|
|
|
729 proto_statement: TCOBPROTO2 gname . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 680
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 489
|
|
|
|
734 terminate_statement: TERMINATE name .
|
|
|
|
$default reduce using rule 734 (terminate_statement)
|
|
|
|
|
|
state 490
|
|
|
|
727 unlock_statement: UNLOCK name .
|
|
|
|
$default reduce using rule 727 (unlock_statement)
|
|
|
|
|
|
state 491
|
|
|
|
1029 unstring_statement: UNSTRING name . unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt
|
|
|
|
DELIMITED shift, and go to state 681
|
|
|
|
$default reduce using rule 1031 (unstring_delimited)
|
|
|
|
unstring_delimited go to state 682
|
|
|
|
|
|
state 492
|
|
|
|
566 procedure_decl: $@53 statements PERIOD_TOK .
|
|
|
|
$default reduce using rule 566 (procedure_decl)
|
|
|
|
|
|
state 493
|
|
|
|
598 statements: statements statement .
|
|
|
|
$default reduce using rule 598 (statements)
|
|
|
|
|
|
state 494
|
|
|
|
647 if_statement: if_part ELSE . @60 conditional_statement $@61 end_if_opt
|
|
|
|
$default reduce using rule 645 (@60)
|
|
|
|
@60 go to state 683
|
|
|
|
|
|
state 495
|
|
|
|
644 if_statement: if_part $@59 . end_if_opt
|
|
|
|
END_IF shift, and go to state 684
|
|
|
|
END_IF [reduce using rule 691 (end_if_opt)]
|
|
$default reduce using rule 691 (end_if_opt)
|
|
|
|
end_if_opt go to state 685
|
|
|
|
|
|
state 496
|
|
|
|
44 collating_opt: COLLATING .
|
|
|
|
$default reduce using rule 44 (collating_opt)
|
|
|
|
|
|
state 497
|
|
|
|
41 program_collating_opt: PROGRAM collating_sequence .
|
|
|
|
$default reduce using rule 41 (program_collating_opt)
|
|
|
|
|
|
state 498
|
|
|
|
43 collating_sequence: collating_opt . SEQUENCE is_opt STRING
|
|
|
|
SEQUENCE shift, and go to state 686
|
|
|
|
|
|
state 499
|
|
|
|
38 configuration_option: OBJECT_COMPUTER PERIOD_TOK $@8 STRING program_collating_opt PERIOD_TOK .
|
|
|
|
$default reduce using rule 38 (configuration_option)
|
|
|
|
|
|
state 500
|
|
|
|
36 configuration_option: SOURCE_COMPUTER PERIOD_TOK $@7 STRING debug_mode_opt PERIOD_TOK .
|
|
|
|
$default reduce using rule 36 (configuration_option)
|
|
|
|
|
|
state 501
|
|
|
|
46 debug_mode_opt: with_opt DEBUGGING . MODE
|
|
|
|
MODE shift, and go to state 687
|
|
|
|
|
|
state 502
|
|
|
|
82 alphabet_type: NATIVE .
|
|
|
|
$default reduce using rule 82 (alphabet_type)
|
|
|
|
|
|
state 503
|
|
|
|
83 alphabet_type: STANDARD_1 .
|
|
|
|
$default reduce using rule 83 (alphabet_type)
|
|
|
|
|
|
state 504
|
|
|
|
84 alphabet_type: STANDARD_2 .
|
|
|
|
$default reduce using rule 84 (alphabet_type)
|
|
|
|
|
|
state 505
|
|
|
|
81 alphabet_details: ALPHABET STRING is_opt alphabet_type .
|
|
|
|
$default reduce using rule 81 (alphabet_details)
|
|
|
|
|
|
state 506
|
|
|
|
85 alphabet_type: alphabet_literal_list .
|
|
87 alphabet_literal_list: alphabet_literal_list . alphabet_literal_item
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 85 (alphabet_type)
|
|
|
|
alphabet_literal_item go to state 688
|
|
without_all_literal go to state 508
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 507
|
|
|
|
86 alphabet_literal_list: alphabet_literal_item .
|
|
|
|
$default reduce using rule 86 (alphabet_literal_list)
|
|
|
|
|
|
state 508
|
|
|
|
88 alphabet_literal_item: without_all_literal .
|
|
89 | without_all_literal . THRU without_all_literal
|
|
90 | without_all_literal . alphabet_also_list
|
|
|
|
THRU shift, and go to state 689
|
|
ALSO shift, and go to state 690
|
|
|
|
$default reduce using rule 88 (alphabet_literal_item)
|
|
|
|
alphabet_also_list go to state 691
|
|
|
|
|
|
state 509
|
|
|
|
66 special_name_class_item: CLITERAL .
|
|
67 | CLITERAL . THRU CLITERAL
|
|
|
|
THRU shift, and go to state 692
|
|
|
|
$default reduce using rule 66 (special_name_class_item)
|
|
|
|
|
|
state 510
|
|
|
|
63 special_name_class: CLASS STRING is_opt special_name_class_item_list .
|
|
65 special_name_class_item_list: special_name_class_item_list . special_name_class_item
|
|
|
|
CLITERAL shift, and go to state 509
|
|
|
|
$default reduce using rule 63 (special_name_class)
|
|
|
|
special_name_class_item go to state 693
|
|
|
|
|
|
state 511
|
|
|
|
64 special_name_class_item_list: special_name_class_item .
|
|
|
|
$default reduce using rule 64 (special_name_class_item_list)
|
|
|
|
|
|
state 512
|
|
|
|
60 currency_details: CURRENCY sign_opt is_opt CLITERAL .
|
|
|
|
$default reduce using rule 60 (currency_details)
|
|
|
|
|
|
state 513
|
|
|
|
69 screen_status_details: DISPLAY_SCREEN STATUS is_opt STRING .
|
|
|
|
$default reduce using rule 69 (screen_status_details)
|
|
|
|
|
|
state 514
|
|
|
|
74 switches_details: STRING is_opt STRING . $@9 switch_on_opt switch_off_opt
|
|
|
|
$default reduce using rule 73 ($@9)
|
|
|
|
$@9 go to state 694
|
|
|
|
|
|
state 515
|
|
|
|
103 file_select: SELECT optional_opt def_name $@10 . select_clauses PERIOD_TOK
|
|
|
|
$default reduce using rule 105 (select_clauses)
|
|
|
|
select_clauses go to state 695
|
|
|
|
|
|
state 516
|
|
|
|
163 tape_opt: TAPE .
|
|
|
|
$default reduce using rule 163 (tape_opt)
|
|
|
|
|
|
state 517
|
|
|
|
157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt . contains_opt i_o_control_multiple_file_list
|
|
|
|
CONTAINS shift, and go to state 696
|
|
|
|
$default reduce using rule 545 (contains_opt)
|
|
|
|
contains_opt go to state 697
|
|
|
|
|
|
state 518
|
|
|
|
165 are_opta: AREA .
|
|
|
|
$default reduce using rule 165 (are_opta)
|
|
|
|
|
|
state 519
|
|
|
|
152 i_o_control_same_clause: SAME same_clause_options are_opta . for_opt string_list
|
|
|
|
FOR shift, and go to state 698
|
|
|
|
$default reduce using rule 168 (for_opt)
|
|
|
|
for_opt go to state 699
|
|
|
|
|
|
state 520
|
|
|
|
419 file_section: file_section FD $@38 STRING $@39 . file_description_fd_clauses PERIOD_TOK $@40 file_description
|
|
|
|
$default reduce using rule 483 (file_description_fd_clauses)
|
|
|
|
file_description_fd_clauses go to state 700
|
|
|
|
|
|
state 521
|
|
|
|
423 file_section: file_section SD $@41 STRING $@42 . file_description_sd_clauses PERIOD_TOK $@43 file_description
|
|
|
|
$default reduce using rule 485 (file_description_sd_clauses)
|
|
|
|
file_description_sd_clauses go to state 701
|
|
|
|
|
|
state 522
|
|
|
|
429 field_description: integer def_name_opt $@44 . data_clauses PERIOD_TOK
|
|
|
|
$default reduce using rule 430 (data_clauses)
|
|
|
|
data_clauses go to state 702
|
|
|
|
|
|
state 523
|
|
|
|
194 report_section: RD $@15 . STRING $@16 report_controls PERIOD_TOK $@17 report_description
|
|
|
|
STRING shift, and go to state 703
|
|
|
|
|
|
state 524
|
|
|
|
320 screen_section_opt: SCREEN SECTION PERIOD_TOK $@27 screen_section .
|
|
322 screen_section: screen_section . screen_item
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
$default reduce using rule 320 (screen_section_opt)
|
|
|
|
screen_item go to state 704
|
|
signed_nliteral go to state 234
|
|
integer go to state 705
|
|
|
|
|
|
state 525
|
|
|
|
580 declaratives_decl: error . $@57 PERIOD_TOK
|
|
583 declaratives_procedure: error .
|
|
|
|
PERIOD_TOK reduce using rule 579 ($@57)
|
|
$default reduce using rule 583 (declaratives_procedure)
|
|
|
|
$@57 go to state 706
|
|
|
|
|
|
state 526
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END . DECLARATIVES PERIOD_TOK
|
|
|
|
DECLARATIVES shift, and go to state 707
|
|
|
|
|
|
state 527
|
|
|
|
574 declaratives_division: declaratives_division declaratives_decl .
|
|
|
|
$default reduce using rule 574 (declaratives_division)
|
|
|
|
|
|
state 528
|
|
|
|
578 declaratives_decl: $@56 . statements PERIOD_TOK
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statements go to state 708
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 529
|
|
|
|
575 declaratives_decl: declaratives_procedure .
|
|
|
|
$default reduce using rule 575 (declaratives_decl)
|
|
|
|
|
|
state 530
|
|
|
|
576 declaratives_decl: paragraph .
|
|
|
|
$default reduce using rule 576 (declaratives_decl)
|
|
|
|
|
|
state 531
|
|
|
|
585 use_phrase: error .
|
|
|
|
$default reduce using rule 585 (use_phrase)
|
|
|
|
|
|
state 532
|
|
|
|
584 use_phrase: USE . AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK
|
|
|
|
AFTER shift, and go to state 709
|
|
|
|
|
|
state 533
|
|
|
|
582 declaratives_procedure: procedure_section $@58 use_phrase .
|
|
|
|
$default reduce using rule 582 (declaratives_procedure)
|
|
|
|
|
|
state 534
|
|
|
|
927 end_read_opt: END_READ .
|
|
|
|
$default reduce using rule 927 (end_read_opt)
|
|
|
|
|
|
state 535
|
|
|
|
898 read_statement: READ read_body end_read_opt .
|
|
|
|
$default reduce using rule 898 (read_statement)
|
|
|
|
|
|
state 536
|
|
|
|
904 read_next_opt: NEXT .
|
|
|
|
$default reduce using rule 904 (read_next_opt)
|
|
|
|
|
|
state 537
|
|
|
|
905 read_next_opt: PREVIOUS .
|
|
|
|
$default reduce using rule 905 (read_next_opt)
|
|
|
|
|
|
state 538
|
|
|
|
900 read_body: name read_next_opt . record_opt read_into_opt with_lock_opt read_key_opt
|
|
901 | name read_next_opt . record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt
|
|
902 | name read_next_opt . record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt
|
|
|
|
RECORD shift, and go to state 570
|
|
|
|
$default reduce using rule 1223 (record_opt)
|
|
|
|
record_opt go to state 710
|
|
|
|
|
|
state 539
|
|
|
|
936 write_from_opt: FROM . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 711
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 540
|
|
|
|
934 write_statement: WRITE name write_from_opt . write_options $@101 invalid_key_opt end_write_opt
|
|
|
|
AFTER shift, and go to state 712
|
|
BEFORE shift, and go to state 713
|
|
|
|
$default reduce using rule 937 (write_options)
|
|
|
|
write_options go to state 714
|
|
before_after go to state 715
|
|
|
|
|
|
state 541
|
|
|
|
932 release_from_opt: FROM . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 716
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 542
|
|
|
|
930 release_statement: RELEASE name release_from_opt .
|
|
|
|
$default reduce using rule 930 (release_statement)
|
|
|
|
|
|
state 543
|
|
|
|
826 accept_hardware: ACCEPT name FROM . INKEY end_accept_opt
|
|
827 | ACCEPT name FROM . INPUT STATUS end_accept_opt
|
|
828 | ACCEPT name FROM . CMD_LINE end_accept_opt
|
|
829 | ACCEPT name FROM . ESCKEY end_accept_opt
|
|
830 | ACCEPT name FROM . ENVIRONMENT_VARIABLE CLITERAL end_accept_opt
|
|
831 accept_chronological: ACCEPT name FROM . DATE_TIME end_accept_opt
|
|
|
|
CMD_LINE shift, and go to state 717
|
|
ENVIRONMENT_VARIABLE shift, and go to state 718
|
|
INKEY shift, and go to state 719
|
|
ESCKEY shift, and go to state 720
|
|
DATE_TIME shift, and go to state 721
|
|
INPUT shift, and go to state 722
|
|
|
|
|
|
state 544
|
|
|
|
832 accept_screen: ACCEPT name accept_display_options . end_accept_opt
|
|
836 | ACCEPT name accept_display_options . on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt
|
|
863 accept_display_options: accept_display_options . accept_display_option
|
|
|
|
AT shift, and go to state 723
|
|
COLUMN shift, and go to state 724
|
|
END_ACCEPT shift, and go to state 725
|
|
LINE shift, and go to state 726
|
|
ON shift, and go to state 620
|
|
POSITION shift, and go to state 727
|
|
WITH shift, and go to state 358
|
|
|
|
IS reduce using rule 1233 (with_opt)
|
|
NO reduce using rule 1233 (with_opt)
|
|
AUTO reduce using rule 1233 (with_opt)
|
|
BACKGROUNDCOLOR reduce using rule 1233 (with_opt)
|
|
BELL reduce using rule 1233 (with_opt)
|
|
BLANK reduce using rule 1233 (with_opt)
|
|
BLINK reduce using rule 1233 (with_opt)
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
ERASE reduce using rule 1233 (with_opt)
|
|
EXCEPTION reduce using rule 1235 (on_opt)
|
|
FOREGROUNDCOLOR reduce using rule 1233 (with_opt)
|
|
FULL reduce using rule 1233 (with_opt)
|
|
HIGHLIGHT reduce using rule 1233 (with_opt)
|
|
JUSTIFIED reduce using rule 1233 (with_opt)
|
|
LEADING reduce using rule 1233 (with_opt)
|
|
LOWER reduce using rule 1233 (with_opt)
|
|
LOWLIGHT reduce using rule 1233 (with_opt)
|
|
NOECHO reduce using rule 1233 (with_opt)
|
|
REQUIRED reduce using rule 1233 (with_opt)
|
|
REVERSEVIDEO reduce using rule 1233 (with_opt)
|
|
SECURE reduce using rule 1233 (with_opt)
|
|
SIGN reduce using rule 1233 (with_opt)
|
|
TRAILING reduce using rule 1233 (with_opt)
|
|
UNDERLINE reduce using rule 1233 (with_opt)
|
|
UPDATE reduce using rule 1233 (with_opt)
|
|
UPPER reduce using rule 1233 (with_opt)
|
|
WITH [reduce using rule 1233 (with_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 728
|
|
scr_line go to state 729
|
|
scr_position go to state 730
|
|
scr_line_position go to state 731
|
|
accept_display_option go to state 732
|
|
with_opt go to state 733
|
|
on_opt go to state 734
|
|
|
|
|
|
state 545
|
|
|
|
795 add_body: CORRESPONDING var_list_gname . TO var_list_name rounded_opt on_size_error_opt
|
|
994 var_list_gname: var_list_gname . gname sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
TO shift, and go to state 735
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 550
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 546
|
|
|
|
799 end_add_opt: END_ADD .
|
|
|
|
$default reduce using rule 799 (end_add_opt)
|
|
|
|
|
|
state 547
|
|
|
|
791 add_statement: ADD add_body end_add_opt .
|
|
|
|
$default reduce using rule 791 (add_statement)
|
|
|
|
|
|
state 548
|
|
|
|
793 add_body: var_list_gname TO . var_list_name on_size_error_opt
|
|
797 add_to_opt: TO . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
var_list_name go to state 736
|
|
gname go to state 737
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 738
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 549
|
|
|
|
794 add_body: var_list_gname add_to_opt . GIVING var_list_name on_size_error_opt
|
|
|
|
GIVING shift, and go to state 739
|
|
|
|
|
|
state 550
|
|
|
|
994 var_list_gname: var_list_gname gname . sep_opt
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 740
|
|
|
|
|
|
state 551
|
|
|
|
993 var_list_gname: gname sep_opt .
|
|
|
|
$default reduce using rule 993 (var_list_gname)
|
|
|
|
|
|
state 552
|
|
|
|
970 call_convention_opt: CALL_CONV_C .
|
|
|
|
$default reduce using rule 970 (call_convention_opt)
|
|
|
|
|
|
state 553
|
|
|
|
971 call_convention_opt: CALL_CONV_STDCALL .
|
|
|
|
$default reduce using rule 971 (call_convention_opt)
|
|
|
|
|
|
state 554
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt . gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 741
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 555
|
|
|
|
973 call_loadlib_statement: CALL_LOADLIB gname $@110 . end_call_loadlib_opt
|
|
|
|
END_CALL_LOADLIB shift, and go to state 742
|
|
|
|
$default reduce using rule 976 (end_call_loadlib_opt)
|
|
|
|
end_call_loadlib_opt go to state 743
|
|
|
|
|
|
state 556
|
|
|
|
981 chain_statement: CHAIN $@111 gname . using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt
|
|
|
|
USING shift, and go to state 744
|
|
|
|
$default reduce using rule 1122 (using_options)
|
|
|
|
using_options go to state 745
|
|
|
|
|
|
state 557
|
|
|
|
882 close_files: close_files sep_opt . close_file
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
close_file go to state 746
|
|
name go to state 407
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 558
|
|
|
|
887 close_options: REEL .
|
|
889 | REEL . for_opt REMOVAL
|
|
|
|
FOR shift, and go to state 698
|
|
|
|
REMOVAL reduce using rule 168 (for_opt)
|
|
$default reduce using rule 887 (close_options)
|
|
|
|
for_opt go to state 747
|
|
|
|
|
|
state 559
|
|
|
|
888 close_options: UNIT .
|
|
890 | UNIT . for_opt REMOVAL
|
|
|
|
FOR shift, and go to state 698
|
|
|
|
REMOVAL reduce using rule 168 (for_opt)
|
|
$default reduce using rule 888 (close_options)
|
|
|
|
for_opt go to state 748
|
|
|
|
|
|
state 560
|
|
|
|
883 close_file: name close_options_opt .
|
|
|
|
$default reduce using rule 883 (close_file)
|
|
|
|
|
|
state 561
|
|
|
|
884 close_options_opt: close_options .
|
|
|
|
$default reduce using rule 884 (close_options_opt)
|
|
|
|
|
|
state 562
|
|
|
|
885 close_options_opt: with_lock_opt .
|
|
|
|
$default reduce using rule 885 (close_options_opt)
|
|
|
|
|
|
state 563
|
|
|
|
886 close_options: with_opt . NO REWIND
|
|
891 with_lock_opt: with_opt . LOCK
|
|
892 | with_opt . IGNORE LOCK
|
|
|
|
NO shift, and go to state 749
|
|
IGNORE shift, and go to state 750
|
|
LOCK shift, and go to state 751
|
|
|
|
|
|
state 564
|
|
|
|
790 end_compute_opt: END_COMPUTE .
|
|
|
|
$default reduce using rule 790 (end_compute_opt)
|
|
|
|
|
|
state 565
|
|
|
|
786 compute_statement: COMPUTE compute_body end_compute_opt .
|
|
|
|
$default reduce using rule 786 (compute_statement)
|
|
|
|
|
|
state 566
|
|
|
|
788 compute_body: var_list_name CONDITIONAL . expr on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 753
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 567
|
|
|
|
992 var_list_name: var_list_name name . rounded_opt sep_opt
|
|
|
|
ROUNDED shift, and go to state 568
|
|
|
|
ROUNDED [reduce using rule 995 (rounded_opt)]
|
|
$default reduce using rule 995 (rounded_opt)
|
|
|
|
rounded_opt go to state 754
|
|
|
|
|
|
state 568
|
|
|
|
996 rounded_opt: ROUNDED .
|
|
|
|
$default reduce using rule 996 (rounded_opt)
|
|
|
|
|
|
state 569
|
|
|
|
991 var_list_name: name rounded_opt . sep_opt
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 755
|
|
|
|
|
|
state 570
|
|
|
|
1224 record_opt: RECORD .
|
|
|
|
$default reduce using rule 1224 (record_opt)
|
|
|
|
|
|
state 571
|
|
|
|
947 delete_statement: DELETE name record_opt . $@103 invalid_key_opt end_delete_opt
|
|
|
|
$default reduce using rule 946 ($@103)
|
|
|
|
$@103 go to state 756
|
|
|
|
|
|
state 572
|
|
|
|
846 display_upon: UPON . CONSOLE
|
|
847 | UPON . STD_OUTPUT
|
|
848 | UPON . STD_ERROR
|
|
|
|
CONSOLE shift, and go to state 757
|
|
STD_ERROR shift, and go to state 758
|
|
STD_OUTPUT shift, and go to state 759
|
|
|
|
|
|
state 573
|
|
|
|
842 display_line: DISPLAY display_varlist display_upon . display_line_options end_display_opt
|
|
|
|
$default reduce using rule 849 (display_line_options)
|
|
|
|
display_line_options go to state 760
|
|
|
|
|
|
state 574
|
|
|
|
843 display_screen: DISPLAY display_varlist accept_display_options . end_display_opt
|
|
863 accept_display_options: accept_display_options . accept_display_option
|
|
|
|
AT shift, and go to state 723
|
|
COLUMN shift, and go to state 724
|
|
END_DISPLAY shift, and go to state 761
|
|
LINE shift, and go to state 726
|
|
POSITION shift, and go to state 727
|
|
WITH shift, and go to state 358
|
|
|
|
IS reduce using rule 1233 (with_opt)
|
|
NO reduce using rule 1233 (with_opt)
|
|
AUTO reduce using rule 1233 (with_opt)
|
|
BACKGROUNDCOLOR reduce using rule 1233 (with_opt)
|
|
BELL reduce using rule 1233 (with_opt)
|
|
BLANK reduce using rule 1233 (with_opt)
|
|
BLINK reduce using rule 1233 (with_opt)
|
|
ERASE reduce using rule 1233 (with_opt)
|
|
FOREGROUNDCOLOR reduce using rule 1233 (with_opt)
|
|
FULL reduce using rule 1233 (with_opt)
|
|
HIGHLIGHT reduce using rule 1233 (with_opt)
|
|
JUSTIFIED reduce using rule 1233 (with_opt)
|
|
LEADING reduce using rule 1233 (with_opt)
|
|
LOWER reduce using rule 1233 (with_opt)
|
|
LOWLIGHT reduce using rule 1233 (with_opt)
|
|
NOECHO reduce using rule 1233 (with_opt)
|
|
REQUIRED reduce using rule 1233 (with_opt)
|
|
REVERSEVIDEO reduce using rule 1233 (with_opt)
|
|
SECURE reduce using rule 1233 (with_opt)
|
|
SIGN reduce using rule 1233 (with_opt)
|
|
TRAILING reduce using rule 1233 (with_opt)
|
|
UNDERLINE reduce using rule 1233 (with_opt)
|
|
UPDATE reduce using rule 1233 (with_opt)
|
|
UPPER reduce using rule 1233 (with_opt)
|
|
WITH [reduce using rule 1233 (with_opt)]
|
|
$default reduce using rule 855 (end_display_opt)
|
|
|
|
end_display_opt go to state 762
|
|
scr_line go to state 729
|
|
scr_position go to state 730
|
|
scr_line_position go to state 731
|
|
accept_display_option go to state 732
|
|
with_opt go to state 733
|
|
|
|
|
|
state 575
|
|
|
|
845 display_varlist: display_varlist sep_opt . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 763
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 576
|
|
|
|
821 end_divide_opt: END_DIVIDE .
|
|
|
|
$default reduce using rule 821 (end_divide_opt)
|
|
|
|
|
|
state 577
|
|
|
|
813 divide_statement: DIVIDE divide_body end_divide_opt .
|
|
|
|
$default reduce using rule 813 (divide_statement)
|
|
|
|
|
|
state 578
|
|
|
|
815 divide_body: gname BY . gname GIVING var_list_name on_size_error_opt
|
|
816 | gname BY . gname GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 764
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 579
|
|
|
|
817 divide_body: gname INTO . gname GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
818 | gname INTO . gname GIVING var_list_name on_size_error_opt
|
|
819 | gname INTO . var_list_name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
var_list_name go to state 765
|
|
gname go to state 766
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 738
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 580
|
|
|
|
652 evaluate_statement: EVALUATE @62 selection_subject_set . $@63 when_case_list end_evaluate_or_eos
|
|
658 selection_subject_set: selection_subject_set . ALSO @65 selection_subject
|
|
|
|
ALSO shift, and go to state 767
|
|
|
|
$default reduce using rule 651 ($@63)
|
|
|
|
$@63 go to state 768
|
|
|
|
|
|
state 581
|
|
|
|
656 selection_subject_set: @64 . selection_subject
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FALSE_TOK shift, and go to state 769
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
TRUE_TOK shift, and go to state 770
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
selection_subject go to state 771
|
|
expr go to state 772
|
|
condition go to state 773
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 582
|
|
|
|
1302 label: LABELSTR . in_of LABELSTR
|
|
1303 | LABELSTR .
|
|
|
|
IN shift, and go to state 102
|
|
OF shift, and go to state 103
|
|
|
|
$default reduce using rule 1303 (label)
|
|
|
|
in_of go to state 634
|
|
|
|
|
|
state 583
|
|
|
|
1304 label: NLITERAL .
|
|
1305 | NLITERAL . in_of NLITERAL
|
|
1306 | NLITERAL . in_of LABELSTR
|
|
|
|
IN shift, and go to state 102
|
|
OF shift, and go to state 103
|
|
|
|
$default reduce using rule 1304 (label)
|
|
|
|
in_of go to state 635
|
|
|
|
|
|
state 584
|
|
|
|
956 goto_statement: GO to_opt goto_label .
|
|
|
|
$default reduce using rule 956 (goto_statement)
|
|
|
|
|
|
state 585
|
|
|
|
957 goto_statement: GO to_opt goto_label_list . DEPENDING on_opt variable
|
|
960 goto_label_list: goto_label_list . label
|
|
961 | goto_label_list . LISTSEP label
|
|
|
|
LABELSTR shift, and go to state 582
|
|
NLITERAL shift, and go to state 583
|
|
DEPENDING shift, and go to state 774
|
|
LISTSEP shift, and go to state 775
|
|
|
|
label go to state 776
|
|
|
|
|
|
state 586
|
|
|
|
958 goto_label: label .
|
|
959 goto_label_list: label .
|
|
|
|
LABELSTR reduce using rule 959 (goto_label_list)
|
|
NLITERAL reduce using rule 959 (goto_label_list)
|
|
DEPENDING reduce using rule 959 (goto_label_list)
|
|
LISTSEP reduce using rule 959 (goto_label_list)
|
|
$default reduce using rule 958 (goto_label)
|
|
|
|
|
|
state 587
|
|
|
|
1283 cond_name: VARCOND '(' . $@146 subscripts ')'
|
|
|
|
$default reduce using rule 1282 ($@146)
|
|
|
|
$@146 go to state 777
|
|
|
|
|
|
state 588
|
|
|
|
1182 condition: NOT condition .
|
|
1184 | condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
$default reduce using rule 1182 (condition)
|
|
|
|
|
|
state 589
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1119 | '(' expr . ')'
|
|
1181 condition: expr . extended_cond_op $@142 expr_opt
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
IS shift, and go to state 592
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
NOT shift, and go to state 598
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
')' shift, and go to state 778
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
extended_cond_op go to state 608
|
|
ext_cond go to state 609
|
|
conditional go to state 610
|
|
|
|
|
|
state 590
|
|
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
1187 | '(' condition . ')'
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
')' shift, and go to state 779
|
|
|
|
|
|
state 591
|
|
|
|
1211 conditional: CONDITIONAL . than_to_opt
|
|
|
|
TO shift, and go to state 780
|
|
THAN shift, and go to state 781
|
|
|
|
$default reduce using rule 1220 (than_to_opt)
|
|
|
|
than_to_opt go to state 782
|
|
|
|
|
|
state 592
|
|
|
|
1199 extended_cond_op: IS . ext_cond
|
|
1200 | IS . NOT ext_cond
|
|
1201 | IS . ext_cond OR ext_cond
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
NOT shift, and go to state 783
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
ext_cond go to state 784
|
|
conditional go to state 610
|
|
|
|
|
|
state 593
|
|
|
|
1116 expr: expr '+' . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 785
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 594
|
|
|
|
1117 expr: expr '-' . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 786
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 595
|
|
|
|
1114 expr: expr '*' . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 787
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 596
|
|
|
|
1115 expr: expr '/' . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 788
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 597
|
|
|
|
1118 expr: expr POW_OP . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 789
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 598
|
|
|
|
1203 extended_cond_op: NOT . is_opt ext_cond
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 790
|
|
|
|
|
|
state 599
|
|
|
|
1196 class_condition: ALPHABETIC .
|
|
|
|
$default reduce using rule 1196 (class_condition)
|
|
|
|
|
|
state 600
|
|
|
|
1197 class_condition: ALPHABETIC_LOWER .
|
|
|
|
$default reduce using rule 1197 (class_condition)
|
|
|
|
|
|
state 601
|
|
|
|
1198 class_condition: ALPHABETIC_UPPER .
|
|
|
|
$default reduce using rule 1198 (class_condition)
|
|
|
|
|
|
state 602
|
|
|
|
1193 sign_condition: NEGATIVE .
|
|
|
|
$default reduce using rule 1193 (sign_condition)
|
|
|
|
|
|
state 603
|
|
|
|
1195 class_condition: NUMERIC .
|
|
|
|
$default reduce using rule 1195 (class_condition)
|
|
|
|
|
|
state 604
|
|
|
|
1192 sign_condition: POSITIVE .
|
|
|
|
$default reduce using rule 1192 (sign_condition)
|
|
|
|
|
|
state 605
|
|
|
|
1194 sign_condition: ZERO .
|
|
|
|
$default reduce using rule 1194 (sign_condition)
|
|
|
|
|
|
state 606
|
|
|
|
1207 ext_cond: sign_condition .
|
|
|
|
$default reduce using rule 1207 (ext_cond)
|
|
|
|
|
|
state 607
|
|
|
|
1206 ext_cond: class_condition .
|
|
|
|
$default reduce using rule 1206 (ext_cond)
|
|
|
|
|
|
state 608
|
|
|
|
1181 condition: expr extended_cond_op . $@142 expr_opt
|
|
|
|
$default reduce using rule 1180 ($@142)
|
|
|
|
$@142 go to state 791
|
|
|
|
|
|
state 609
|
|
|
|
1202 extended_cond_op: ext_cond .
|
|
1204 | ext_cond . OR ext_cond
|
|
|
|
OR shift, and go to state 792
|
|
|
|
OR [reduce using rule 1202 (extended_cond_op)]
|
|
$default reduce using rule 1202 (extended_cond_op)
|
|
|
|
|
|
state 610
|
|
|
|
1205 ext_cond: conditional .
|
|
|
|
$default reduce using rule 1205 (ext_cond)
|
|
|
|
|
|
state 611
|
|
|
|
1186 condition: condition OR . @144 implied_op_condition
|
|
|
|
$default reduce using rule 1185 (@144)
|
|
|
|
@144 go to state 793
|
|
|
|
|
|
state 612
|
|
|
|
1184 condition: condition AND . @143 implied_op_condition
|
|
|
|
$default reduce using rule 1183 (@143)
|
|
|
|
@143 go to state 794
|
|
|
|
|
|
state 613
|
|
|
|
684 if_part: IF condition @73 . end_then_opt conditional_statement
|
|
|
|
THEN shift, and go to state 795
|
|
|
|
$default reduce using rule 693 (end_then_opt)
|
|
|
|
end_then_opt go to state 796
|
|
|
|
|
|
state 614
|
|
|
|
777 initialize_replacing_opt: REPLACING . initialize_replacing_lists
|
|
|
|
ALPHABETIC shift, and go to state 797
|
|
ALPHANUMERIC shift, and go to state 798
|
|
ALPHANUMERIC_EDITED shift, and go to state 799
|
|
NUMERIC shift, and go to state 800
|
|
NUMERIC_EDITED shift, and go to state 801
|
|
|
|
initialize_replacing_lists go to state 802
|
|
initialize_replacing_list go to state 803
|
|
initialize_type_list go to state 804
|
|
|
|
|
|
state 615
|
|
|
|
774 initialize_statement: INITIALIZE gname_list initialize_replacing_opt .
|
|
|
|
$default reduce using rule 774 (initialize_statement)
|
|
|
|
|
|
state 616
|
|
|
|
1088 converting_clause: CONVERTING . noallname TO noallname inspect_before_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 805
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 617
|
|
|
|
1089 tallying_clause: TALLYING . tallying_list
|
|
|
|
$default reduce using rule 1092 (tallying_list)
|
|
|
|
tallying_list go to state 808
|
|
|
|
|
|
state 618
|
|
|
|
1087 inspect_statement: INSPECT name converting_clause .
|
|
|
|
$default reduce using rule 1087 (inspect_statement)
|
|
|
|
|
|
state 619
|
|
|
|
1086 inspect_statement: INSPECT name tallying_clause . $@126 replacing_clause
|
|
|
|
$default reduce using rule 1085 ($@126)
|
|
|
|
$@126 go to state 809
|
|
|
|
|
|
state 620
|
|
|
|
1236 on_opt: ON .
|
|
|
|
$default reduce using rule 1236 (on_opt)
|
|
|
|
|
|
state 621
|
|
|
|
740 merge_statement: MERGE name sort_keys . $@86 sort_collating_opt $@87 merge_using $@88 sort_output
|
|
751 sort_keys: sort_keys . sort_key
|
|
|
|
ON shift, and go to state 620
|
|
|
|
DIRECTION reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 737 ($@86)
|
|
|
|
$@86 go to state 810
|
|
sort_key go to state 811
|
|
on_opt go to state 623
|
|
|
|
|
|
state 622
|
|
|
|
750 sort_keys: sort_key .
|
|
|
|
$default reduce using rule 750 (sort_keys)
|
|
|
|
|
|
state 623
|
|
|
|
754 sort_key: on_opt . DIRECTION key_opt sort_keys_names
|
|
|
|
DIRECTION shift, and go to state 812
|
|
|
|
|
|
state 624
|
|
|
|
1288 name_var: gname .
|
|
|
|
$default reduce using rule 1288 (name_var)
|
|
|
|
|
|
state 625
|
|
|
|
771 move_statement: MOVE CORRESPONDING name_var . TO name_var
|
|
|
|
TO shift, and go to state 813
|
|
|
|
|
|
state 626
|
|
|
|
772 move_statement: MOVE LENGTH OF . gname TO name_var
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 814
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 627
|
|
|
|
770 move_statement: MOVE gname TO . name_var_list
|
|
773 | MOVE gname TO .
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 773 (move_statement)
|
|
|
|
name_var_list go to state 815
|
|
gname go to state 624
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
name_var go to state 816
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 628
|
|
|
|
812 end_multiply_opt: END_MULTIPLY .
|
|
|
|
$default reduce using rule 812 (end_multiply_opt)
|
|
|
|
|
|
state 629
|
|
|
|
807 multiply_statement: MULTIPLY multiply_body end_multiply_opt .
|
|
|
|
$default reduce using rule 807 (multiply_statement)
|
|
|
|
|
|
state 630
|
|
|
|
809 multiply_body: gname BY . gname GIVING var_list_name on_size_error_opt
|
|
810 | gname BY . var_list_name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
var_list_name go to state 817
|
|
gname go to state 818
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 738
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 631
|
|
|
|
871 open_options: open_options open_mode . open_varlist
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
open_varlist go to state 819
|
|
name go to state 633
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 632
|
|
|
|
870 open_options: open_mode open_varlist .
|
|
878 open_varlist: open_varlist . sep_opt name
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 870 (open_options)
|
|
|
|
sep_opt go to state 820
|
|
|
|
|
|
state 633
|
|
|
|
877 open_varlist: name .
|
|
|
|
$default reduce using rule 877 (open_varlist)
|
|
|
|
|
|
state 634
|
|
|
|
1302 label: LABELSTR in_of . LABELSTR
|
|
|
|
LABELSTR shift, and go to state 821
|
|
|
|
|
|
state 635
|
|
|
|
1305 label: NLITERAL in_of . NLITERAL
|
|
1306 | NLITERAL in_of . LABELSTR
|
|
|
|
LABELSTR shift, and go to state 822
|
|
NLITERAL shift, and go to state 823
|
|
|
|
|
|
state 636
|
|
|
|
1151 perform_options: with_test_opt UNTIL . @131 condition @132 perform_statements $@133 END_PERFORM
|
|
|
|
$default reduce using rule 1148 (@131)
|
|
|
|
@131 go to state 824
|
|
|
|
|
|
state 637
|
|
|
|
1155 perform_options: with_test_opt VARYING . name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 825
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 638
|
|
|
|
1144 perform_options: perform_statements END_PERFORM .
|
|
|
|
$default reduce using rule 1144 (perform_options)
|
|
|
|
|
|
state 639
|
|
|
|
1177 perform_statements: $@141 statement_list .
|
|
|
|
$default reduce using rule 1177 (perform_statements)
|
|
|
|
|
|
state 640
|
|
|
|
596 statement_list: statements .
|
|
598 statements: statements . statement
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
READ [reduce using rule 596 (statement_list)]
|
|
WRITE [reduce using rule 596 (statement_list)]
|
|
RELEASE [reduce using rule 596 (statement_list)]
|
|
ACCEPT [reduce using rule 596 (statement_list)]
|
|
ADD [reduce using rule 596 (statement_list)]
|
|
CALL [reduce using rule 596 (statement_list)]
|
|
CALL_LOADLIB [reduce using rule 596 (statement_list)]
|
|
CANCEL [reduce using rule 596 (statement_list)]
|
|
CHAIN [reduce using rule 596 (statement_list)]
|
|
CLOSE [reduce using rule 596 (statement_list)]
|
|
COMPUTE [reduce using rule 596 (statement_list)]
|
|
CONTINUE [reduce using rule 596 (statement_list)]
|
|
DELETE [reduce using rule 596 (statement_list)]
|
|
DISPLAY [reduce using rule 596 (statement_list)]
|
|
DIVIDE [reduce using rule 596 (statement_list)]
|
|
EVALUATE [reduce using rule 596 (statement_list)]
|
|
EXIT [reduce using rule 596 (statement_list)]
|
|
GENERATE [reduce using rule 596 (statement_list)]
|
|
GO [reduce using rule 596 (statement_list)]
|
|
GOBACK [reduce using rule 596 (statement_list)]
|
|
IF [reduce using rule 596 (statement_list)]
|
|
INITIALIZE [reduce using rule 596 (statement_list)]
|
|
INITIATE [reduce using rule 596 (statement_list)]
|
|
INSPECT [reduce using rule 596 (statement_list)]
|
|
MERGE [reduce using rule 596 (statement_list)]
|
|
MOVE [reduce using rule 596 (statement_list)]
|
|
MULTIPLY [reduce using rule 596 (statement_list)]
|
|
OPEN [reduce using rule 596 (statement_list)]
|
|
PERFORM [reduce using rule 596 (statement_list)]
|
|
READY [reduce using rule 596 (statement_list)]
|
|
RESET [reduce using rule 596 (statement_list)]
|
|
RETURN [reduce using rule 596 (statement_list)]
|
|
REWRITE [reduce using rule 596 (statement_list)]
|
|
SEARCH [reduce using rule 596 (statement_list)]
|
|
SET [reduce using rule 596 (statement_list)]
|
|
SORT [reduce using rule 596 (statement_list)]
|
|
START [reduce using rule 596 (statement_list)]
|
|
STOP [reduce using rule 596 (statement_list)]
|
|
STRINGCMD [reduce using rule 596 (statement_list)]
|
|
SUBTRACT [reduce using rule 596 (statement_list)]
|
|
TCOBPROTO1 [reduce using rule 596 (statement_list)]
|
|
TCOBPROTO2 [reduce using rule 596 (statement_list)]
|
|
TERMINATE [reduce using rule 596 (statement_list)]
|
|
UNLOCK [reduce using rule 596 (statement_list)]
|
|
UNSTRING [reduce using rule 596 (statement_list)]
|
|
$default reduce using rule 596 (statement_list)
|
|
|
|
statement go to state 493
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 641
|
|
|
|
1166 with_test_opt: with_opt TEST . before_after
|
|
|
|
AFTER shift, and go to state 712
|
|
BEFORE shift, and go to state 713
|
|
|
|
before_after go to state 826
|
|
|
|
|
|
state 642
|
|
|
|
1147 perform_options: gname TIMES . @129 perform_statements $@130 END_PERFORM
|
|
|
|
$default reduce using rule 1145 (@129)
|
|
|
|
@129 go to state 827
|
|
|
|
|
|
state 643
|
|
|
|
1164 perform_thru_opt: THRU . label
|
|
|
|
LABELSTR shift, and go to state 582
|
|
NLITERAL shift, and go to state 583
|
|
|
|
label go to state 828
|
|
|
|
|
|
state 644
|
|
|
|
1156 perform_options: label perform_thru_opt .
|
|
1158 | label perform_thru_opt . with_test_opt UNTIL @137 condition
|
|
1159 | label perform_thru_opt . gname TIMES
|
|
1162 | label perform_thru_opt . with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
WITH shift, and go to state 358
|
|
ZERO shift, and go to state 69
|
|
|
|
TEST reduce using rule 1233 (with_opt)
|
|
UNTIL reduce using rule 1165 (with_test_opt)
|
|
VARYING reduce using rule 1165 (with_test_opt)
|
|
$default reduce using rule 1156 (perform_options)
|
|
|
|
with_test_opt go to state 829
|
|
with_opt go to state 451
|
|
gname go to state 830
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 645
|
|
|
|
929 end_return_opt: END_RETURN .
|
|
|
|
$default reduce using rule 929 (end_return_opt)
|
|
|
|
|
|
state 646
|
|
|
|
894 return_statement: RETURN return_body end_return_opt .
|
|
|
|
$default reduce using rule 894 (return_statement)
|
|
|
|
|
|
state 647
|
|
|
|
896 return_body: name record_opt . read_into_opt
|
|
897 | name record_opt . read_into_opt read_at_end_opt
|
|
|
|
INTO shift, and go to state 831
|
|
|
|
$default reduce using rule 906 (read_into_opt)
|
|
|
|
read_into_opt go to state 832
|
|
|
|
|
|
state 648
|
|
|
|
943 rewrite_statement: REWRITE name write_from_opt . $@102 invalid_key_opt end_rewrite_opt
|
|
|
|
$default reduce using rule 942 ($@102)
|
|
|
|
$@102 go to state 833
|
|
|
|
|
|
state 649
|
|
|
|
649 search_statement: SEARCH ALL search_all . end_search_opt
|
|
|
|
END_SEARCH shift, and go to state 651
|
|
|
|
END_SEARCH [reduce using rule 725 (end_search_opt)]
|
|
$default reduce using rule 725 (end_search_opt)
|
|
|
|
end_search_opt go to state 834
|
|
|
|
|
|
state 650
|
|
|
|
701 search_all: variable_indexed . @79 search_at_end $@80 search_all_when_list
|
|
|
|
$default reduce using rule 699 (@79)
|
|
|
|
@79 go to state 835
|
|
|
|
|
|
state 651
|
|
|
|
726 end_search_opt: END_SEARCH .
|
|
|
|
$default reduce using rule 726 (end_search_opt)
|
|
|
|
|
|
state 652
|
|
|
|
648 search_statement: SEARCH search end_search_opt .
|
|
|
|
$default reduce using rule 648 (search_statement)
|
|
|
|
|
|
state 653
|
|
|
|
698 search: variable_indexed @76 . search_varying_opt @77 search_at_end @78 search_when_list
|
|
|
|
VARYING shift, and go to state 836
|
|
|
|
$default reduce using rule 703 (search_varying_opt)
|
|
|
|
search_varying_opt go to state 837
|
|
|
|
|
|
state 654
|
|
|
|
317 of_opt: OF .
|
|
|
|
$default reduce using rule 317 (of_opt)
|
|
|
|
|
|
state 655
|
|
|
|
1025 address_of_opt: ADDRESS of_opt .
|
|
|
|
$default reduce using rule 1025 (address_of_opt)
|
|
|
|
|
|
state 656
|
|
|
|
173 name_list: name_list variable .
|
|
|
|
$default reduce using rule 173 (name_list)
|
|
|
|
|
|
state 657
|
|
|
|
1011 set_list: set_target TO . address_of_opt set_variable_or_nlit
|
|
|
|
ADDRESS shift, and go to state 464
|
|
|
|
$default reduce using rule 1024 (address_of_opt)
|
|
|
|
address_of_opt go to state 838
|
|
|
|
|
|
state 658
|
|
|
|
1013 set_list: set_target DOWN . BY var_or_nliteral
|
|
|
|
BY shift, and go to state 839
|
|
|
|
|
|
state 659
|
|
|
|
1012 set_list: set_target UP . BY var_or_nliteral
|
|
|
|
BY shift, and go to state 840
|
|
|
|
|
|
state 660
|
|
|
|
1014 set_list: address_of_opt variable . TO address_of_opt set_variable
|
|
|
|
TO shift, and go to state 841
|
|
|
|
|
|
state 661
|
|
|
|
749 sort_variable_indexed: SORT variable_indexed sort_keys_idx . $@92 sort_duplicates_opt sort_collating_opt
|
|
753 sort_keys_idx: sort_keys_idx . sort_key_idx
|
|
|
|
ON shift, and go to state 620
|
|
|
|
DIRECTION reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 748 ($@92)
|
|
|
|
$@92 go to state 842
|
|
sort_key_idx go to state 843
|
|
on_opt go to state 663
|
|
|
|
|
|
state 662
|
|
|
|
752 sort_keys_idx: sort_key_idx .
|
|
|
|
$default reduce using rule 752 (sort_keys_idx)
|
|
|
|
|
|
state 663
|
|
|
|
755 sort_key_idx: on_opt . DIRECTION key_opt sort_keys_names_idx
|
|
|
|
DIRECTION shift, and go to state 844
|
|
|
|
|
|
state 664
|
|
|
|
747 sort_file: SORT name sort_keys . $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output
|
|
751 sort_keys: sort_keys . sort_key
|
|
|
|
ON shift, and go to state 620
|
|
|
|
DIRECTION reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 744 ($@89)
|
|
|
|
$@89 go to state 845
|
|
sort_key go to state 811
|
|
on_opt go to state 623
|
|
|
|
|
|
state 665
|
|
|
|
1070 not_excep: NOT .
|
|
|
|
$default reduce using rule 1070 (not_excep)
|
|
|
|
|
|
state 666
|
|
|
|
1066 invalid_key_sentence: INVALID . key_opt @124 statement_list
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 847
|
|
|
|
|
|
state 667
|
|
|
|
1069 not_excep: NOTEXCEP .
|
|
|
|
$default reduce using rule 1069 (not_excep)
|
|
|
|
|
|
state 668
|
|
|
|
951 start_statement: START start_body invalid_key_opt . $@104 end_start_opt
|
|
|
|
$default reduce using rule 950 ($@104)
|
|
|
|
$@104 go to state 848
|
|
|
|
|
|
state 669
|
|
|
|
1061 invalid_key_opt: invalid_key_sentence .
|
|
1063 | invalid_key_sentence . not_invalid_key_sentence
|
|
|
|
NOT shift, and go to state 665
|
|
NOTEXCEP shift, and go to state 667
|
|
|
|
NOT [reduce using rule 1061 (invalid_key_opt)]
|
|
NOTEXCEP [reduce using rule 1061 (invalid_key_opt)]
|
|
$default reduce using rule 1061 (invalid_key_opt)
|
|
|
|
not_invalid_key_sentence go to state 849
|
|
not_excep go to state 671
|
|
|
|
|
|
state 670
|
|
|
|
1062 invalid_key_opt: not_invalid_key_sentence .
|
|
|
|
$default reduce using rule 1062 (invalid_key_opt)
|
|
|
|
|
|
state 671
|
|
|
|
1068 not_invalid_key_sentence: not_excep . INVALID key_opt @125 statement_list
|
|
|
|
INVALID shift, and go to state 850
|
|
|
|
|
|
state 672
|
|
|
|
953 start_body: name KEY . is_opt cond_op name
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 851
|
|
|
|
|
|
state 673
|
|
|
|
1027 string_statement: STRINGCMD string_from_list INTO . name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 852
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 674
|
|
|
|
1074 string_from_list: string_from_list sep_opt . string_from
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
string_from go to state 853
|
|
gname go to state 483
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 675
|
|
|
|
1077 string_from: gname DELIMITED . by_opt delimited_by
|
|
|
|
BY shift, and go to state 854
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
by_opt go to state 855
|
|
|
|
|
|
state 676
|
|
|
|
804 subtract_body: CORRESPONDING var_list_gname . FROM var_list_name rounded_opt on_size_error_opt
|
|
994 var_list_gname: var_list_gname . gname sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FROM shift, and go to state 856
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 550
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 677
|
|
|
|
806 end_subtract_opt: END_SUBTRACT .
|
|
|
|
$default reduce using rule 806 (end_subtract_opt)
|
|
|
|
|
|
state 678
|
|
|
|
800 subtract_statement: SUBTRACT subtract_body end_subtract_opt .
|
|
|
|
$default reduce using rule 800 (subtract_statement)
|
|
|
|
|
|
state 679
|
|
|
|
802 subtract_body: var_list_gname FROM . var_list_name on_size_error_opt
|
|
803 | var_list_gname FROM . gname GIVING var_list_name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
var_list_name go to state 857
|
|
gname go to state 858
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 738
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 680
|
|
|
|
729 proto_statement: TCOBPROTO2 gname gname .
|
|
|
|
$default reduce using rule 729 (proto_statement)
|
|
|
|
|
|
state 681
|
|
|
|
1030 unstring_delimited: DELIMITED . by_opt unstring_delimited_vars
|
|
|
|
BY shift, and go to state 854
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
by_opt go to state 859
|
|
|
|
|
|
state 682
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited . INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt
|
|
|
|
INTO shift, and go to state 860
|
|
|
|
|
|
state 683
|
|
|
|
647 if_statement: if_part ELSE @60 . conditional_statement $@61 end_if_opt
|
|
|
|
NEXT reduce using rule 687 ($@75)
|
|
$default reduce using rule 685 ($@74)
|
|
|
|
conditional_statement go to state 861
|
|
$@74 go to state 862
|
|
$@75 go to state 863
|
|
|
|
|
|
state 684
|
|
|
|
692 end_if_opt: END_IF .
|
|
|
|
$default reduce using rule 692 (end_if_opt)
|
|
|
|
|
|
state 685
|
|
|
|
644 if_statement: if_part $@59 end_if_opt .
|
|
|
|
$default reduce using rule 644 (if_statement)
|
|
|
|
|
|
state 686
|
|
|
|
43 collating_sequence: collating_opt SEQUENCE . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 864
|
|
|
|
|
|
state 687
|
|
|
|
46 debug_mode_opt: with_opt DEBUGGING MODE .
|
|
|
|
$default reduce using rule 46 (debug_mode_opt)
|
|
|
|
|
|
state 688
|
|
|
|
87 alphabet_literal_list: alphabet_literal_list alphabet_literal_item .
|
|
|
|
$default reduce using rule 87 (alphabet_literal_list)
|
|
|
|
|
|
state 689
|
|
|
|
89 alphabet_literal_item: without_all_literal THRU . without_all_literal
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
without_all_literal go to state 865
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 690
|
|
|
|
91 alphabet_also_list: ALSO . without_all_literal
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
without_all_literal go to state 866
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 691
|
|
|
|
90 alphabet_literal_item: without_all_literal alphabet_also_list .
|
|
92 alphabet_also_list: alphabet_also_list . ALSO without_all_literal
|
|
|
|
ALSO shift, and go to state 867
|
|
|
|
$default reduce using rule 90 (alphabet_literal_item)
|
|
|
|
|
|
state 692
|
|
|
|
67 special_name_class_item: CLITERAL THRU . CLITERAL
|
|
|
|
CLITERAL shift, and go to state 868
|
|
|
|
|
|
state 693
|
|
|
|
65 special_name_class_item_list: special_name_class_item_list special_name_class_item .
|
|
|
|
$default reduce using rule 65 (special_name_class_item_list)
|
|
|
|
|
|
state 694
|
|
|
|
74 switches_details: STRING is_opt STRING $@9 . switch_on_opt switch_off_opt
|
|
|
|
ON shift, and go to state 869
|
|
|
|
$default reduce using rule 76 (switch_on_opt)
|
|
|
|
switch_on_opt go to state 870
|
|
|
|
|
|
state 695
|
|
|
|
103 file_select: SELECT optional_opt def_name $@10 select_clauses . PERIOD_TOK
|
|
104 select_clauses: select_clauses . select_clause
|
|
|
|
error shift, and go to state 871
|
|
ACCESS shift, and go to state 872
|
|
ALTERNATE shift, and go to state 873
|
|
ASSIGN shift, and go to state 874
|
|
FILE_TOK shift, and go to state 875
|
|
ORGANIZATION shift, and go to state 876
|
|
RECORD shift, and go to state 877
|
|
RELATIVE shift, and go to state 878
|
|
RESERVE shift, and go to state 879
|
|
PERIOD_TOK shift, and go to state 880
|
|
|
|
STRING reduce using rule 118 (organization_opt)
|
|
LABELSTR reduce using rule 118 (organization_opt)
|
|
IS reduce using rule 118 (organization_opt)
|
|
INDEXED reduce using rule 118 (organization_opt)
|
|
LINE reduce using rule 118 (organization_opt)
|
|
RELATIVE [reduce using rule 118 (organization_opt)]
|
|
SEQUENTIAL reduce using rule 118 (organization_opt)
|
|
STATUS reduce using rule 116 (file_opt)
|
|
|
|
select_clause go to state 881
|
|
file_opt go to state 882
|
|
organization_opt go to state 883
|
|
|
|
|
|
state 696
|
|
|
|
546 contains_opt: CONTAINS .
|
|
|
|
$default reduce using rule 546 (contains_opt)
|
|
|
|
|
|
state 697
|
|
|
|
157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt contains_opt . i_o_control_multiple_file_list
|
|
|
|
STRING shift, and go to state 884
|
|
|
|
i_o_control_multiple_file_list go to state 885
|
|
i_o_control_multiple_file go to state 886
|
|
|
|
|
|
state 698
|
|
|
|
167 for_opt: FOR .
|
|
|
|
$default reduce using rule 167 (for_opt)
|
|
|
|
|
|
state 699
|
|
|
|
152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt . string_list
|
|
|
|
error shift, and go to state 887
|
|
STRING shift, and go to state 888
|
|
|
|
string_list go to state 889
|
|
|
|
|
|
state 700
|
|
|
|
419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses . PERIOD_TOK $@40 file_description
|
|
484 file_description_fd_clauses: file_description_fd_clauses . file_description_fd_clause
|
|
|
|
IS shift, and go to state 84
|
|
BLOCK shift, and go to state 890
|
|
CODE_SET shift, and go to state 891
|
|
DATA shift, and go to state 892
|
|
LABEL shift, and go to state 893
|
|
LINAGE shift, and go to state 894
|
|
RECORD shift, and go to state 895
|
|
REPORT shift, and go to state 896
|
|
REPORTS shift, and go to state 897
|
|
VALUE shift, and go to state 898
|
|
PERIOD_TOK shift, and go to state 899
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 900
|
|
file_description_fd_clause go to state 901
|
|
file_description_clause_block go to state 902
|
|
file_description_clause_record go to state 903
|
|
file_description_clause_label go to state 904
|
|
file_description_clause_value go to state 905
|
|
file_description_clause_data go to state 906
|
|
file_description_clause_report go to state 907
|
|
file_description_clause_code_set go to state 908
|
|
file_description_clause_linage go to state 909
|
|
report_is_are go to state 910
|
|
|
|
|
|
state 701
|
|
|
|
423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses . PERIOD_TOK $@43 file_description
|
|
486 file_description_sd_clauses: file_description_sd_clauses . file_description_sd_clause
|
|
|
|
DATA shift, and go to state 892
|
|
RECORD shift, and go to state 895
|
|
PERIOD_TOK shift, and go to state 911
|
|
|
|
file_description_sd_clause go to state 912
|
|
file_description_clause_record go to state 913
|
|
file_description_clause_data go to state 914
|
|
|
|
|
|
state 702
|
|
|
|
429 field_description: integer def_name_opt $@44 data_clauses . PERIOD_TOK
|
|
431 data_clauses: data_clauses . data_clause
|
|
432 | data_clauses . redefines_clause
|
|
|
|
IS shift, and go to state 84
|
|
BLANK shift, and go to state 915
|
|
JUSTIFIED shift, and go to state 916
|
|
OCCURS shift, and go to state 917
|
|
PICTURE shift, and go to state 918
|
|
REDEFINES shift, and go to state 919
|
|
RENAMES shift, and go to state 920
|
|
SIGN shift, and go to state 921
|
|
SYNCHRONIZED shift, and go to state 922
|
|
USAGE shift, and go to state 923
|
|
VALUE shift, and go to state 924
|
|
VALUES shift, and go to state 925
|
|
PERIOD_TOK shift, and go to state 926
|
|
|
|
USAGENUM reduce using rule 539 (usage_opt)
|
|
IS [reduce using rule 539 (usage_opt)]
|
|
DISPLAY reduce using rule 539 (usage_opt)
|
|
POINTER reduce using rule 539 (usage_opt)
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 927
|
|
sign_clause go to state 928
|
|
sign_is_opt go to state 929
|
|
redefines_clause go to state 930
|
|
data_clause go to state 931
|
|
array_options go to state 932
|
|
usage_option go to state 933
|
|
value_option go to state 934
|
|
value_is_are go to state 935
|
|
pictures go to state 936
|
|
usage_opt go to state 937
|
|
|
|
|
|
state 703
|
|
|
|
194 report_section: RD $@15 STRING . $@16 report_controls PERIOD_TOK $@17 report_description
|
|
|
|
$default reduce using rule 192 ($@16)
|
|
|
|
$@16 go to state 938
|
|
|
|
|
|
state 704
|
|
|
|
322 screen_section: screen_section screen_item .
|
|
|
|
$default reduce using rule 322 (screen_section)
|
|
|
|
|
|
state 705
|
|
|
|
325 screen_item: integer . def_name_opt $@28 screen_clauses PERIOD_TOK
|
|
|
|
STRING shift, and go to state 368
|
|
FILLER shift, and go to state 369
|
|
|
|
$default reduce using rule 1274 (def_name_opt)
|
|
|
|
def_name_opt go to state 939
|
|
def_name go to state 381
|
|
|
|
|
|
state 706
|
|
|
|
580 declaratives_decl: error $@57 . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 940
|
|
|
|
|
|
state 707
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 941
|
|
|
|
|
|
state 708
|
|
|
|
578 declaratives_decl: $@56 statements . PERIOD_TOK
|
|
598 statements: statements . statement
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
PERIOD_TOK shift, and go to state 942
|
|
|
|
statement go to state 493
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 709
|
|
|
|
584 use_phrase: USE AFTER . use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK
|
|
|
|
ERROR_TOK shift, and go to state 943
|
|
EXCEPTION shift, and go to state 944
|
|
STANDARD shift, and go to state 945
|
|
|
|
use_phrase_exception_error go to state 946
|
|
|
|
|
|
state 710
|
|
|
|
900 read_body: name read_next_opt record_opt . read_into_opt with_lock_opt read_key_opt
|
|
901 | name read_next_opt record_opt . read_into_opt with_lock_opt read_key_opt read_at_end_opt
|
|
902 | name read_next_opt record_opt . read_into_opt with_lock_opt read_key_opt read_invalid_key_opt
|
|
|
|
INTO shift, and go to state 831
|
|
|
|
$default reduce using rule 906 (read_into_opt)
|
|
|
|
read_into_opt go to state 947
|
|
|
|
|
|
state 711
|
|
|
|
936 write_from_opt: FROM gname .
|
|
|
|
$default reduce using rule 936 (write_from_opt)
|
|
|
|
|
|
state 712
|
|
|
|
1179 before_after: AFTER .
|
|
|
|
$default reduce using rule 1179 (before_after)
|
|
|
|
|
|
state 713
|
|
|
|
1178 before_after: BEFORE .
|
|
|
|
$default reduce using rule 1178 (before_after)
|
|
|
|
|
|
state 714
|
|
|
|
934 write_statement: WRITE name write_from_opt write_options . $@101 invalid_key_opt end_write_opt
|
|
|
|
$default reduce using rule 933 ($@101)
|
|
|
|
$@101 go to state 948
|
|
|
|
|
|
state 715
|
|
|
|
938 write_options: before_after . advancing_opt gname line_lines_opt
|
|
939 | before_after . advancing_opt PAGE
|
|
|
|
ADVANCING shift, and go to state 949
|
|
|
|
$default reduce using rule 1218 (advancing_opt)
|
|
|
|
advancing_opt go to state 950
|
|
|
|
|
|
state 716
|
|
|
|
932 release_from_opt: FROM gname .
|
|
|
|
$default reduce using rule 932 (release_from_opt)
|
|
|
|
|
|
state 717
|
|
|
|
828 accept_hardware: ACCEPT name FROM CMD_LINE . end_accept_opt
|
|
|
|
END_ACCEPT shift, and go to state 725
|
|
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 951
|
|
|
|
|
|
state 718
|
|
|
|
830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE . CLITERAL end_accept_opt
|
|
|
|
CLITERAL shift, and go to state 952
|
|
|
|
|
|
state 719
|
|
|
|
826 accept_hardware: ACCEPT name FROM INKEY . end_accept_opt
|
|
|
|
END_ACCEPT shift, and go to state 725
|
|
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 953
|
|
|
|
|
|
state 720
|
|
|
|
829 accept_hardware: ACCEPT name FROM ESCKEY . end_accept_opt
|
|
|
|
END_ACCEPT shift, and go to state 725
|
|
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 954
|
|
|
|
|
|
state 721
|
|
|
|
831 accept_chronological: ACCEPT name FROM DATE_TIME . end_accept_opt
|
|
|
|
END_ACCEPT shift, and go to state 725
|
|
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 955
|
|
|
|
|
|
state 722
|
|
|
|
827 accept_hardware: ACCEPT name FROM INPUT . STATUS end_accept_opt
|
|
|
|
STATUS shift, and go to state 956
|
|
|
|
|
|
state 723
|
|
|
|
860 scr_line_position: AT . NLITERAL
|
|
861 | AT . variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
NLITERAL shift, and go to state 957
|
|
|
|
variable go to state 958
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 724
|
|
|
|
858 scr_position: COLUMN . number_opt expr
|
|
|
|
NUMBER shift, and go to state 959
|
|
|
|
$default reduce using rule 306 (number_opt)
|
|
|
|
number_opt go to state 960
|
|
|
|
|
|
state 725
|
|
|
|
838 end_accept_opt: END_ACCEPT .
|
|
|
|
$default reduce using rule 838 (end_accept_opt)
|
|
|
|
|
|
state 726
|
|
|
|
857 scr_line: LINE . number_opt expr
|
|
|
|
NUMBER shift, and go to state 959
|
|
|
|
$default reduce using rule 306 (number_opt)
|
|
|
|
number_opt go to state 961
|
|
|
|
|
|
state 727
|
|
|
|
859 scr_position: POSITION . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 962
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 728
|
|
|
|
832 accept_screen: ACCEPT name accept_display_options end_accept_opt .
|
|
|
|
$default reduce using rule 832 (accept_screen)
|
|
|
|
|
|
state 729
|
|
|
|
865 accept_display_option: scr_line .
|
|
|
|
$default reduce using rule 865 (accept_display_option)
|
|
|
|
|
|
state 730
|
|
|
|
866 accept_display_option: scr_position .
|
|
|
|
$default reduce using rule 866 (accept_display_option)
|
|
|
|
|
|
state 731
|
|
|
|
867 accept_display_option: scr_line_position .
|
|
|
|
$default reduce using rule 867 (accept_display_option)
|
|
|
|
|
|
state 732
|
|
|
|
863 accept_display_options: accept_display_options accept_display_option .
|
|
|
|
$default reduce using rule 863 (accept_display_options)
|
|
|
|
|
|
state 733
|
|
|
|
864 accept_display_option: with_opt . screen_attribx
|
|
|
|
IS shift, and go to state 84
|
|
AUTO shift, and go to state 963
|
|
BACKGROUNDCOLOR shift, and go to state 964
|
|
BLANK shift, and go to state 965
|
|
BLINK shift, and go to state 966
|
|
ERASE shift, and go to state 967
|
|
FOREGROUNDCOLOR shift, and go to state 968
|
|
FULL shift, and go to state 969
|
|
HIGHLIGHT shift, and go to state 970
|
|
JUSTIFIED shift, and go to state 971
|
|
LOWER shift, and go to state 972
|
|
LOWLIGHT shift, and go to state 973
|
|
REQUIRED shift, and go to state 974
|
|
REVERSEVIDEO shift, and go to state 975
|
|
SECURE shift, and go to state 976
|
|
SIGN shift, and go to state 921
|
|
UNDERLINE shift, and go to state 977
|
|
UPPER shift, and go to state 978
|
|
WITH shift, and go to state 358
|
|
|
|
LEADING reduce using rule 132 (is_opt)
|
|
TRAILING reduce using rule 132 (is_opt)
|
|
$default reduce using rule 1233 (with_opt)
|
|
|
|
is_opt go to state 979
|
|
screen_attribx go to state 980
|
|
sign_clause go to state 981
|
|
sign_is_opt go to state 929
|
|
with_opt go to state 982
|
|
|
|
|
|
state 734
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt . EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt
|
|
|
|
EXCEPTION shift, and go to state 983
|
|
|
|
|
|
state 735
|
|
|
|
795 add_body: CORRESPONDING var_list_gname TO . var_list_name rounded_opt on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
var_list_name go to state 984
|
|
name go to state 410
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 736
|
|
|
|
793 add_body: var_list_gname TO var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 986
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 737
|
|
|
|
797 add_to_opt: TO gname .
|
|
|
|
$default reduce using rule 797 (add_to_opt)
|
|
|
|
|
|
state 738
|
|
|
|
991 var_list_name: name . rounded_opt sep_opt
|
|
1245 gname: name .
|
|
|
|
ROUNDED shift, and go to state 568
|
|
|
|
GIVING reduce using rule 1245 (gname)
|
|
$default reduce using rule 995 (rounded_opt)
|
|
|
|
rounded_opt go to state 569
|
|
|
|
|
|
state 739
|
|
|
|
794 add_body: var_list_gname add_to_opt GIVING . var_list_name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
var_list_name go to state 988
|
|
name go to state 410
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 740
|
|
|
|
994 var_list_gname: var_list_gname gname sep_opt .
|
|
|
|
$default reduce using rule 994 (var_list_gname)
|
|
|
|
|
|
state 741
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname . using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
USING shift, and go to state 744
|
|
|
|
$default reduce using rule 1122 (using_options)
|
|
|
|
using_options go to state 989
|
|
|
|
|
|
state 742
|
|
|
|
975 end_call_loadlib_opt: END_CALL_LOADLIB .
|
|
|
|
$default reduce using rule 975 (end_call_loadlib_opt)
|
|
|
|
|
|
state 743
|
|
|
|
973 call_loadlib_statement: CALL_LOADLIB gname $@110 end_call_loadlib_opt .
|
|
|
|
$default reduce using rule 973 (call_loadlib_statement)
|
|
|
|
|
|
state 744
|
|
|
|
1125 using_options: USING . @127 dummy @128 parm_list
|
|
|
|
$default reduce using rule 1123 (@127)
|
|
|
|
@127 go to state 990
|
|
|
|
|
|
state 745
|
|
|
|
981 chain_statement: CHAIN $@111 gname using_options . @112 @113 on_exception_or_overflow $@114 end_chain_opt
|
|
|
|
$default reduce using rule 978 (@112)
|
|
|
|
@112 go to state 991
|
|
|
|
|
|
state 746
|
|
|
|
882 close_files: close_files sep_opt close_file .
|
|
|
|
$default reduce using rule 882 (close_files)
|
|
|
|
|
|
state 747
|
|
|
|
889 close_options: REEL for_opt . REMOVAL
|
|
|
|
REMOVAL shift, and go to state 992
|
|
|
|
|
|
state 748
|
|
|
|
890 close_options: UNIT for_opt . REMOVAL
|
|
|
|
REMOVAL shift, and go to state 993
|
|
|
|
|
|
state 749
|
|
|
|
886 close_options: with_opt NO . REWIND
|
|
|
|
REWIND shift, and go to state 994
|
|
|
|
|
|
state 750
|
|
|
|
892 with_lock_opt: with_opt IGNORE . LOCK
|
|
|
|
LOCK shift, and go to state 995
|
|
|
|
|
|
state 751
|
|
|
|
891 with_lock_opt: with_opt LOCK .
|
|
|
|
$default reduce using rule 891 (with_lock_opt)
|
|
|
|
|
|
state 752
|
|
|
|
1119 expr: '(' . expr ')'
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 996
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 753
|
|
|
|
788 compute_body: var_list_name CONDITIONAL expr . on_size_error_opt
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 997
|
|
on_opt go to state 987
|
|
|
|
|
|
state 754
|
|
|
|
992 var_list_name: var_list_name name rounded_opt . sep_opt
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 998
|
|
|
|
|
|
state 755
|
|
|
|
991 var_list_name: name rounded_opt sep_opt .
|
|
|
|
$default reduce using rule 991 (var_list_name)
|
|
|
|
|
|
state 756
|
|
|
|
947 delete_statement: DELETE name record_opt $@103 . invalid_key_opt end_delete_opt
|
|
|
|
NOT shift, and go to state 665
|
|
INVALID shift, and go to state 666
|
|
NOTEXCEP shift, and go to state 667
|
|
|
|
NOT [reduce using rule 1064 (invalid_key_opt)]
|
|
NOTEXCEP [reduce using rule 1064 (invalid_key_opt)]
|
|
$default reduce using rule 1064 (invalid_key_opt)
|
|
|
|
invalid_key_opt go to state 999
|
|
invalid_key_sentence go to state 669
|
|
not_invalid_key_sentence go to state 670
|
|
not_excep go to state 671
|
|
|
|
|
|
state 757
|
|
|
|
846 display_upon: UPON CONSOLE .
|
|
|
|
$default reduce using rule 846 (display_upon)
|
|
|
|
|
|
state 758
|
|
|
|
848 display_upon: UPON STD_ERROR .
|
|
|
|
$default reduce using rule 848 (display_upon)
|
|
|
|
|
|
state 759
|
|
|
|
847 display_upon: UPON STD_OUTPUT .
|
|
|
|
$default reduce using rule 847 (display_upon)
|
|
|
|
|
|
state 760
|
|
|
|
842 display_line: DISPLAY display_varlist display_upon display_line_options . end_display_opt
|
|
850 display_line_options: display_line_options . with_opt NO ADVANCING
|
|
851 | display_line_options . with_opt ERASE
|
|
852 | display_line_options . with_opt ERASE EOS
|
|
853 | display_line_options . with_opt ERASE EOL
|
|
854 | display_line_options . with_opt ERASE SCREEN
|
|
|
|
END_DISPLAY shift, and go to state 761
|
|
WITH shift, and go to state 358
|
|
|
|
NO reduce using rule 1233 (with_opt)
|
|
ERASE reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 855 (end_display_opt)
|
|
|
|
end_display_opt go to state 1000
|
|
with_opt go to state 1001
|
|
|
|
|
|
state 761
|
|
|
|
856 end_display_opt: END_DISPLAY .
|
|
|
|
$default reduce using rule 856 (end_display_opt)
|
|
|
|
|
|
state 762
|
|
|
|
843 display_screen: DISPLAY display_varlist accept_display_options end_display_opt .
|
|
|
|
$default reduce using rule 843 (display_screen)
|
|
|
|
|
|
state 763
|
|
|
|
845 display_varlist: display_varlist sep_opt gname .
|
|
|
|
$default reduce using rule 845 (display_varlist)
|
|
|
|
|
|
state 764
|
|
|
|
815 divide_body: gname BY gname . GIVING var_list_name on_size_error_opt
|
|
816 | gname BY gname . GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
|
|
GIVING shift, and go to state 1002
|
|
|
|
|
|
state 765
|
|
|
|
819 divide_body: gname INTO var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1003
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 766
|
|
|
|
817 divide_body: gname INTO gname . GIVING name rounded_opt REMAINDER name on_size_error_opt
|
|
818 | gname INTO gname . GIVING var_list_name on_size_error_opt
|
|
|
|
GIVING shift, and go to state 1004
|
|
|
|
|
|
state 767
|
|
|
|
658 selection_subject_set: selection_subject_set ALSO . @65 selection_subject
|
|
|
|
$default reduce using rule 657 (@65)
|
|
|
|
@65 go to state 1005
|
|
|
|
|
|
state 768
|
|
|
|
652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 . when_case_list end_evaluate_or_eos
|
|
|
|
WHEN shift, and go to state 1006
|
|
|
|
when_case_list go to state 1007
|
|
|
|
|
|
state 769
|
|
|
|
662 selection_subject: FALSE_TOK .
|
|
|
|
$default reduce using rule 662 (selection_subject)
|
|
|
|
|
|
state 770
|
|
|
|
661 selection_subject: TRUE_TOK .
|
|
|
|
$default reduce using rule 661 (selection_subject)
|
|
|
|
|
|
state 771
|
|
|
|
656 selection_subject_set: @64 selection_subject .
|
|
|
|
$default reduce using rule 656 (selection_subject_set)
|
|
|
|
|
|
state 772
|
|
|
|
659 selection_subject: expr .
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1181 condition: expr . extended_cond_op $@142 expr_opt
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
IS shift, and go to state 592
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
NOT shift, and go to state 598
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
$default reduce using rule 659 (selection_subject)
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
extended_cond_op go to state 608
|
|
ext_cond go to state 609
|
|
conditional go to state 610
|
|
|
|
|
|
state 773
|
|
|
|
660 selection_subject: condition .
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
$default reduce using rule 660 (selection_subject)
|
|
|
|
|
|
state 774
|
|
|
|
957 goto_statement: GO to_opt goto_label_list DEPENDING . on_opt variable
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1008
|
|
|
|
|
|
state 775
|
|
|
|
961 goto_label_list: goto_label_list LISTSEP . label
|
|
|
|
LABELSTR shift, and go to state 582
|
|
NLITERAL shift, and go to state 583
|
|
|
|
label go to state 1009
|
|
|
|
|
|
state 776
|
|
|
|
960 goto_label_list: goto_label_list label .
|
|
|
|
$default reduce using rule 960 (goto_label_list)
|
|
|
|
|
|
state 777
|
|
|
|
1283 cond_name: VARCOND '(' $@146 . subscripts ')'
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 149
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
subscripts go to state 1010
|
|
subscript go to state 151
|
|
|
|
|
|
state 778
|
|
|
|
1119 expr: '(' expr ')' .
|
|
|
|
$default reduce using rule 1119 (expr)
|
|
|
|
|
|
state 779
|
|
|
|
1187 condition: '(' condition ')' .
|
|
|
|
$default reduce using rule 1187 (condition)
|
|
|
|
|
|
state 780
|
|
|
|
1221 than_to_opt: TO .
|
|
|
|
$default reduce using rule 1221 (than_to_opt)
|
|
|
|
|
|
state 781
|
|
|
|
1222 than_to_opt: THAN .
|
|
|
|
$default reduce using rule 1222 (than_to_opt)
|
|
|
|
|
|
state 782
|
|
|
|
1211 conditional: CONDITIONAL than_to_opt .
|
|
|
|
$default reduce using rule 1211 (conditional)
|
|
|
|
|
|
state 783
|
|
|
|
1200 extended_cond_op: IS NOT . ext_cond
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
ext_cond go to state 1011
|
|
conditional go to state 610
|
|
|
|
|
|
state 784
|
|
|
|
1199 extended_cond_op: IS ext_cond .
|
|
1201 | IS ext_cond . OR ext_cond
|
|
|
|
OR shift, and go to state 1012
|
|
|
|
OR [reduce using rule 1199 (extended_cond_op)]
|
|
$default reduce using rule 1199 (extended_cond_op)
|
|
|
|
|
|
state 785
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1116 | expr '+' expr .
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 1116 (expr)
|
|
|
|
|
|
state 786
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1117 | expr '-' expr .
|
|
1118 | expr . POW_OP expr
|
|
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 1117 (expr)
|
|
|
|
|
|
state 787
|
|
|
|
1114 expr: expr . '*' expr
|
|
1114 | expr '*' expr .
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 1114 (expr)
|
|
|
|
|
|
state 788
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1115 | expr '/' expr .
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 1115 (expr)
|
|
|
|
|
|
state 789
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1118 | expr POW_OP expr .
|
|
|
|
$default reduce using rule 1118 (expr)
|
|
|
|
|
|
state 790
|
|
|
|
1203 extended_cond_op: NOT is_opt . ext_cond
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
ext_cond go to state 1013
|
|
conditional go to state 610
|
|
|
|
|
|
state 791
|
|
|
|
1181 condition: expr extended_cond_op $@142 . expr_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
$default reduce using rule 1120 (expr_opt)
|
|
|
|
expr go to state 1014
|
|
expr_opt go to state 1015
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 792
|
|
|
|
1204 extended_cond_op: ext_cond OR . ext_cond
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
ext_cond go to state 1016
|
|
conditional go to state 610
|
|
|
|
|
|
state 793
|
|
|
|
1186 condition: condition OR @144 . implied_op_condition
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
CONDITIONAL shift, and go to state 591
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 1017
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 1018
|
|
condition go to state 1019
|
|
implied_op_condition go to state 1020
|
|
cond_op go to state 1021
|
|
conditional go to state 1022
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 794
|
|
|
|
1184 condition: condition AND @143 . implied_op_condition
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
CONDITIONAL shift, and go to state 591
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 1017
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 1018
|
|
condition go to state 1019
|
|
implied_op_condition go to state 1023
|
|
cond_op go to state 1021
|
|
conditional go to state 1022
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 795
|
|
|
|
694 end_then_opt: THEN .
|
|
|
|
$default reduce using rule 694 (end_then_opt)
|
|
|
|
|
|
state 796
|
|
|
|
684 if_part: IF condition @73 end_then_opt . conditional_statement
|
|
|
|
NEXT reduce using rule 687 ($@75)
|
|
$default reduce using rule 685 ($@74)
|
|
|
|
conditional_statement go to state 1024
|
|
$@74 go to state 862
|
|
$@75 go to state 863
|
|
|
|
|
|
state 797
|
|
|
|
781 initialize_type_list: ALPHABETIC .
|
|
|
|
$default reduce using rule 781 (initialize_type_list)
|
|
|
|
|
|
state 798
|
|
|
|
782 initialize_type_list: ALPHANUMERIC .
|
|
|
|
$default reduce using rule 782 (initialize_type_list)
|
|
|
|
|
|
state 799
|
|
|
|
784 initialize_type_list: ALPHANUMERIC_EDITED .
|
|
|
|
$default reduce using rule 784 (initialize_type_list)
|
|
|
|
|
|
state 800
|
|
|
|
783 initialize_type_list: NUMERIC .
|
|
|
|
$default reduce using rule 783 (initialize_type_list)
|
|
|
|
|
|
state 801
|
|
|
|
785 initialize_type_list: NUMERIC_EDITED .
|
|
|
|
$default reduce using rule 785 (initialize_type_list)
|
|
|
|
|
|
state 802
|
|
|
|
777 initialize_replacing_opt: REPLACING initialize_replacing_lists .
|
|
779 initialize_replacing_lists: initialize_replacing_lists . initialize_replacing_list
|
|
|
|
ALPHABETIC shift, and go to state 797
|
|
ALPHANUMERIC shift, and go to state 798
|
|
ALPHANUMERIC_EDITED shift, and go to state 799
|
|
NUMERIC shift, and go to state 800
|
|
NUMERIC_EDITED shift, and go to state 801
|
|
|
|
$default reduce using rule 777 (initialize_replacing_opt)
|
|
|
|
initialize_replacing_list go to state 1025
|
|
initialize_type_list go to state 804
|
|
|
|
|
|
state 803
|
|
|
|
778 initialize_replacing_lists: initialize_replacing_list .
|
|
|
|
$default reduce using rule 778 (initialize_replacing_lists)
|
|
|
|
|
|
state 804
|
|
|
|
780 initialize_replacing_list: initialize_type_list . data_opt BY gname
|
|
|
|
DATA shift, and go to state 1026
|
|
|
|
$default reduce using rule 551 (data_opt)
|
|
|
|
data_opt go to state 1027
|
|
|
|
|
|
state 805
|
|
|
|
1088 converting_clause: CONVERTING noallname . TO noallname inspect_before_after
|
|
|
|
TO shift, and go to state 1028
|
|
|
|
|
|
state 806
|
|
|
|
1253 noallname: without_all_literal .
|
|
|
|
$default reduce using rule 1253 (noallname)
|
|
|
|
|
|
state 807
|
|
|
|
1252 noallname: name .
|
|
|
|
$default reduce using rule 1252 (noallname)
|
|
|
|
|
|
state 808
|
|
|
|
1089 tallying_clause: TALLYING tallying_list .
|
|
1091 tallying_list: tallying_list . name FOR tallying_for_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 1089 (tallying_clause)
|
|
|
|
name go to state 1029
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 809
|
|
|
|
1086 inspect_statement: INSPECT name tallying_clause $@126 . replacing_clause
|
|
|
|
REPLACING shift, and go to state 1030
|
|
|
|
$default reduce using rule 1098 (replacing_clause)
|
|
|
|
replacing_clause go to state 1031
|
|
|
|
|
|
state 810
|
|
|
|
740 merge_statement: MERGE name sort_keys $@86 . sort_collating_opt $@87 merge_using $@88 sort_output
|
|
|
|
COLLATING shift, and go to state 496
|
|
|
|
USING reduce using rule 762 (sort_collating_opt)
|
|
$default reduce using rule 45 (collating_opt)
|
|
|
|
collating_sequence go to state 1032
|
|
collating_opt go to state 498
|
|
sort_collating_opt go to state 1033
|
|
|
|
|
|
state 811
|
|
|
|
751 sort_keys: sort_keys sort_key .
|
|
|
|
$default reduce using rule 751 (sort_keys)
|
|
|
|
|
|
state 812
|
|
|
|
754 sort_key: on_opt DIRECTION . key_opt sort_keys_names
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1034
|
|
|
|
|
|
state 813
|
|
|
|
771 move_statement: MOVE CORRESPONDING name_var TO . name_var
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 624
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
name_var go to state 1035
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 814
|
|
|
|
772 move_statement: MOVE LENGTH OF gname . TO name_var
|
|
|
|
TO shift, and go to state 1036
|
|
|
|
|
|
state 815
|
|
|
|
770 move_statement: MOVE gname TO name_var_list .
|
|
1242 name_var_list: name_var_list . sep_opt name_var
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
NLITERAL reduce using rule 1214 (sep_opt)
|
|
CLITERAL reduce using rule 1214 (sep_opt)
|
|
'+' reduce using rule 1214 (sep_opt)
|
|
'-' reduce using rule 1214 (sep_opt)
|
|
ALL reduce using rule 1214 (sep_opt)
|
|
FUNCTION reduce using rule 1214 (sep_opt)
|
|
HIGHVALUES reduce using rule 1214 (sep_opt)
|
|
LOWVALUES reduce using rule 1214 (sep_opt)
|
|
QUOTES reduce using rule 1214 (sep_opt)
|
|
SPACES reduce using rule 1214 (sep_opt)
|
|
ZERO reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 770 (move_statement)
|
|
|
|
sep_opt go to state 1037
|
|
|
|
|
|
state 816
|
|
|
|
1241 name_var_list: name_var .
|
|
|
|
$default reduce using rule 1241 (name_var_list)
|
|
|
|
|
|
state 817
|
|
|
|
810 multiply_body: gname BY var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1038
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 818
|
|
|
|
809 multiply_body: gname BY gname . GIVING var_list_name on_size_error_opt
|
|
|
|
GIVING shift, and go to state 1039
|
|
|
|
|
|
state 819
|
|
|
|
871 open_options: open_options open_mode open_varlist .
|
|
878 open_varlist: open_varlist . sep_opt name
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 871 (open_options)
|
|
|
|
sep_opt go to state 820
|
|
|
|
|
|
state 820
|
|
|
|
878 open_varlist: open_varlist sep_opt . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1040
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 821
|
|
|
|
1302 label: LABELSTR in_of LABELSTR .
|
|
|
|
$default reduce using rule 1302 (label)
|
|
|
|
|
|
state 822
|
|
|
|
1306 label: NLITERAL in_of LABELSTR .
|
|
|
|
$default reduce using rule 1306 (label)
|
|
|
|
|
|
state 823
|
|
|
|
1305 label: NLITERAL in_of NLITERAL .
|
|
|
|
$default reduce using rule 1305 (label)
|
|
|
|
|
|
state 824
|
|
|
|
1151 perform_options: with_test_opt UNTIL @131 . condition @132 perform_statements $@133 END_PERFORM
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 1041
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 825
|
|
|
|
1155 perform_options: with_test_opt VARYING name . FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
FROM shift, and go to state 1042
|
|
|
|
|
|
state 826
|
|
|
|
1166 with_test_opt: with_opt TEST before_after .
|
|
|
|
$default reduce using rule 1166 (with_test_opt)
|
|
|
|
|
|
state 827
|
|
|
|
1147 perform_options: gname TIMES @129 . perform_statements $@130 END_PERFORM
|
|
|
|
$default reduce using rule 1176 ($@141)
|
|
|
|
perform_statements go to state 1043
|
|
$@141 go to state 450
|
|
|
|
|
|
state 828
|
|
|
|
1164 perform_thru_opt: THRU label .
|
|
|
|
$default reduce using rule 1164 (perform_thru_opt)
|
|
|
|
|
|
state 829
|
|
|
|
1158 perform_options: label perform_thru_opt with_test_opt . UNTIL @137 condition
|
|
1162 | label perform_thru_opt with_test_opt . VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
UNTIL shift, and go to state 1044
|
|
VARYING shift, and go to state 1045
|
|
|
|
|
|
state 830
|
|
|
|
1159 perform_options: label perform_thru_opt gname . TIMES
|
|
|
|
TIMES shift, and go to state 1046
|
|
|
|
|
|
state 831
|
|
|
|
907 read_into_opt: INTO . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1047
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 832
|
|
|
|
896 return_body: name record_opt read_into_opt .
|
|
897 | name record_opt read_into_opt . read_at_end_opt
|
|
|
|
NOT shift, and go to state 1048
|
|
AT shift, and go to state 1049
|
|
END shift, and go to state 1050
|
|
|
|
NOT [reduce using rule 896 (return_body)]
|
|
$default reduce using rule 896 (return_body)
|
|
|
|
read_at_end_opt go to state 1051
|
|
on_end go to state 1052
|
|
|
|
|
|
state 833
|
|
|
|
943 rewrite_statement: REWRITE name write_from_opt $@102 . invalid_key_opt end_rewrite_opt
|
|
|
|
NOT shift, and go to state 665
|
|
INVALID shift, and go to state 666
|
|
NOTEXCEP shift, and go to state 667
|
|
|
|
NOT [reduce using rule 1064 (invalid_key_opt)]
|
|
NOTEXCEP [reduce using rule 1064 (invalid_key_opt)]
|
|
$default reduce using rule 1064 (invalid_key_opt)
|
|
|
|
invalid_key_opt go to state 1053
|
|
invalid_key_sentence go to state 669
|
|
not_invalid_key_sentence go to state 670
|
|
not_excep go to state 671
|
|
|
|
|
|
state 834
|
|
|
|
649 search_statement: SEARCH ALL search_all end_search_opt .
|
|
|
|
$default reduce using rule 649 (search_statement)
|
|
|
|
|
|
state 835
|
|
|
|
701 search_all: variable_indexed @79 . search_at_end $@80 search_all_when_list
|
|
|
|
AT shift, and go to state 1054
|
|
|
|
END reduce using rule 1225 (at_opt)
|
|
$default reduce using rule 706 (search_at_end)
|
|
|
|
search_at_end go to state 1055
|
|
at_opt go to state 1056
|
|
|
|
|
|
state 836
|
|
|
|
702 search_varying_opt: VARYING . variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 1057
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 837
|
|
|
|
698 search: variable_indexed @76 search_varying_opt . @77 search_at_end @78 search_when_list
|
|
|
|
$default reduce using rule 696 (@77)
|
|
|
|
@77 go to state 1058
|
|
|
|
|
|
state 838
|
|
|
|
1011 set_list: set_target TO address_of_opt . set_variable_or_nlit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NULL_TOK shift, and go to state 1059
|
|
OFF shift, and go to state 1060
|
|
ON shift, and go to state 1061
|
|
TRUE_TOK shift, and go to state 1062
|
|
|
|
set_variable_or_nlit go to state 1063
|
|
name_or_lit go to state 1064
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 839
|
|
|
|
1013 set_list: set_target DOWN BY . var_or_nliteral
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
var_or_nliteral go to state 1067
|
|
nliteral go to state 1068
|
|
signed_nliteral go to state 1069
|
|
variable go to state 1070
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 840
|
|
|
|
1012 set_list: set_target UP BY . var_or_nliteral
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
var_or_nliteral go to state 1071
|
|
nliteral go to state 1068
|
|
signed_nliteral go to state 1069
|
|
variable go to state 1070
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 841
|
|
|
|
1014 set_list: address_of_opt variable TO . address_of_opt set_variable
|
|
|
|
ADDRESS shift, and go to state 464
|
|
|
|
$default reduce using rule 1024 (address_of_opt)
|
|
|
|
address_of_opt go to state 1072
|
|
|
|
|
|
state 842
|
|
|
|
749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 . sort_duplicates_opt sort_collating_opt
|
|
|
|
WITH shift, and go to state 358
|
|
|
|
DUPLICATES reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 760 (sort_duplicates_opt)
|
|
|
|
sort_duplicates_opt go to state 1073
|
|
with_opt go to state 1074
|
|
|
|
|
|
state 843
|
|
|
|
753 sort_keys_idx: sort_keys_idx sort_key_idx .
|
|
|
|
$default reduce using rule 753 (sort_keys_idx)
|
|
|
|
|
|
state 844
|
|
|
|
755 sort_key_idx: on_opt DIRECTION . key_opt sort_keys_names_idx
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1075
|
|
|
|
|
|
state 845
|
|
|
|
747 sort_file: SORT name sort_keys $@89 . sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output
|
|
|
|
WITH shift, and go to state 358
|
|
|
|
DUPLICATES reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 760 (sort_duplicates_opt)
|
|
|
|
sort_duplicates_opt go to state 1076
|
|
with_opt go to state 1074
|
|
|
|
|
|
state 846
|
|
|
|
1217 key_opt: KEY .
|
|
|
|
$default reduce using rule 1217 (key_opt)
|
|
|
|
|
|
state 847
|
|
|
|
1066 invalid_key_sentence: INVALID key_opt . @124 statement_list
|
|
|
|
$default reduce using rule 1065 (@124)
|
|
|
|
@124 go to state 1077
|
|
|
|
|
|
state 848
|
|
|
|
951 start_statement: START start_body invalid_key_opt $@104 . end_start_opt
|
|
|
|
END_START shift, and go to state 1078
|
|
|
|
END_START [reduce using rule 954 (end_start_opt)]
|
|
$default reduce using rule 954 (end_start_opt)
|
|
|
|
end_start_opt go to state 1079
|
|
|
|
|
|
state 849
|
|
|
|
1063 invalid_key_opt: invalid_key_sentence not_invalid_key_sentence .
|
|
|
|
$default reduce using rule 1063 (invalid_key_opt)
|
|
|
|
|
|
state 850
|
|
|
|
1068 not_invalid_key_sentence: not_excep INVALID . key_opt @125 statement_list
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1080
|
|
|
|
|
|
state 851
|
|
|
|
953 start_body: name KEY is_opt . cond_op name
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
NOT shift, and go to state 1081
|
|
|
|
cond_op go to state 1082
|
|
conditional go to state 1022
|
|
|
|
|
|
state 852
|
|
|
|
1027 string_statement: STRINGCMD string_from_list INTO name . string_with_pointer $@117 on_overflow_opt end_stringcmd_opt
|
|
|
|
WITH shift, and go to state 358
|
|
|
|
POINTER reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 1072 (string_with_pointer)
|
|
|
|
string_with_pointer go to state 1083
|
|
with_opt go to state 1084
|
|
|
|
|
|
state 853
|
|
|
|
1074 string_from_list: string_from_list sep_opt string_from .
|
|
|
|
$default reduce using rule 1074 (string_from_list)
|
|
|
|
|
|
state 854
|
|
|
|
1232 by_opt: BY .
|
|
|
|
$default reduce using rule 1232 (by_opt)
|
|
|
|
|
|
state 855
|
|
|
|
1077 string_from: gname DELIMITED by_opt . delimited_by
|
|
|
|
error shift, and go to state 1085
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SIZE shift, and go to state 1086
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
delimited_by go to state 1087
|
|
gname go to state 1088
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 856
|
|
|
|
804 subtract_body: CORRESPONDING var_list_gname FROM . var_list_name rounded_opt on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
var_list_name go to state 1089
|
|
name go to state 410
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 857
|
|
|
|
802 subtract_body: var_list_gname FROM var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1090
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 858
|
|
|
|
803 subtract_body: var_list_gname FROM gname . GIVING var_list_name on_size_error_opt
|
|
|
|
GIVING shift, and go to state 1091
|
|
|
|
|
|
state 859
|
|
|
|
1030 unstring_delimited: DELIMITED by_opt . unstring_delimited_vars
|
|
|
|
ALL shift, and go to state 1092
|
|
|
|
ALL [reduce using rule 1043 (all_opt)]
|
|
$default reduce using rule 1043 (all_opt)
|
|
|
|
unstring_delimited_vars go to state 1093
|
|
all_opt go to state 1094
|
|
|
|
|
|
state 860
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO . unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
unstring_destinations go to state 1095
|
|
unstring_dest_var go to state 1096
|
|
name go to state 1097
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 861
|
|
|
|
647 if_statement: if_part ELSE @60 conditional_statement . $@61 end_if_opt
|
|
|
|
$default reduce using rule 646 ($@61)
|
|
|
|
$@61 go to state 1098
|
|
|
|
|
|
state 862
|
|
|
|
686 conditional_statement: $@74 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1099
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 863
|
|
|
|
688 conditional_statement: $@75 . NEXT SENTENCE
|
|
|
|
NEXT shift, and go to state 1100
|
|
|
|
|
|
state 864
|
|
|
|
43 collating_sequence: collating_opt SEQUENCE is_opt . STRING
|
|
|
|
STRING shift, and go to state 1101
|
|
|
|
|
|
state 865
|
|
|
|
89 alphabet_literal_item: without_all_literal THRU without_all_literal .
|
|
|
|
$default reduce using rule 89 (alphabet_literal_item)
|
|
|
|
|
|
state 866
|
|
|
|
91 alphabet_also_list: ALSO without_all_literal .
|
|
|
|
$default reduce using rule 91 (alphabet_also_list)
|
|
|
|
|
|
state 867
|
|
|
|
92 alphabet_also_list: alphabet_also_list ALSO . without_all_literal
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
without_all_literal go to state 1102
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 868
|
|
|
|
67 special_name_class_item: CLITERAL THRU CLITERAL .
|
|
|
|
$default reduce using rule 67 (special_name_class_item)
|
|
|
|
|
|
state 869
|
|
|
|
75 switch_on_opt: ON . status_opt is_opt STRING
|
|
|
|
STATUS shift, and go to state 1103
|
|
|
|
$default reduce using rule 80 (status_opt)
|
|
|
|
status_opt go to state 1104
|
|
|
|
|
|
state 870
|
|
|
|
74 switches_details: STRING is_opt STRING $@9 switch_on_opt . switch_off_opt
|
|
|
|
OFF shift, and go to state 1105
|
|
|
|
$default reduce using rule 78 (switch_off_opt)
|
|
|
|
switch_off_opt go to state 1106
|
|
|
|
|
|
state 871
|
|
|
|
114 select_clause: error .
|
|
|
|
$default reduce using rule 114 (select_clause)
|
|
|
|
|
|
state 872
|
|
|
|
108 select_clause: ACCESS . mode_opt is_opt access_options
|
|
|
|
MODE shift, and go to state 1107
|
|
|
|
$default reduce using rule 136 (mode_opt)
|
|
|
|
mode_opt go to state 1108
|
|
|
|
|
|
state 873
|
|
|
|
112 select_clause: ALTERNATE . RECORD key_opt is_opt STRING with_duplicates
|
|
|
|
RECORD shift, and go to state 1109
|
|
|
|
|
|
state 874
|
|
|
|
107 select_clause: ASSIGN . to_opt assign_clause
|
|
|
|
TO shift, and go to state 420
|
|
|
|
$default reduce using rule 1239 (to_opt)
|
|
|
|
to_opt go to state 1110
|
|
|
|
|
|
state 875
|
|
|
|
115 file_opt: FILE_TOK .
|
|
|
|
$default reduce using rule 115 (file_opt)
|
|
|
|
|
|
state 876
|
|
|
|
117 organization_opt: ORGANIZATION .
|
|
|
|
$default reduce using rule 117 (organization_opt)
|
|
|
|
|
|
state 877
|
|
|
|
110 select_clause: RECORD . key_opt is_opt STRING
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1111
|
|
|
|
|
|
state 878
|
|
|
|
111 select_clause: RELATIVE . key_opt is_opt STRING
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1112
|
|
|
|
|
|
state 879
|
|
|
|
113 select_clause: RESERVE . NLITERAL areas_opt
|
|
|
|
NLITERAL shift, and go to state 1113
|
|
|
|
|
|
state 880
|
|
|
|
103 file_select: SELECT optional_opt def_name $@10 select_clauses PERIOD_TOK .
|
|
|
|
$default reduce using rule 103 (file_select)
|
|
|
|
|
|
state 881
|
|
|
|
104 select_clauses: select_clauses select_clause .
|
|
|
|
$default reduce using rule 104 (select_clauses)
|
|
|
|
|
|
state 882
|
|
|
|
109 select_clause: file_opt . STATUS is_opt STRING
|
|
|
|
STATUS shift, and go to state 1114
|
|
|
|
|
|
state 883
|
|
|
|
106 select_clause: organization_opt . is_opt organization_options
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1115
|
|
|
|
|
|
state 884
|
|
|
|
160 i_o_control_multiple_file: STRING . i_o_control_multiple_file_position_opt
|
|
|
|
POSITION shift, and go to state 1116
|
|
|
|
$default reduce using rule 161 (i_o_control_multiple_file_position_opt)
|
|
|
|
i_o_control_multiple_file_position_opt go to state 1117
|
|
|
|
|
|
state 885
|
|
|
|
157 i_o_control_multiple_file_tape_clause: MULTIPLE FILE_TOK tape_opt contains_opt i_o_control_multiple_file_list .
|
|
159 i_o_control_multiple_file_list: i_o_control_multiple_file_list . i_o_control_multiple_file
|
|
|
|
STRING shift, and go to state 884
|
|
|
|
$default reduce using rule 157 (i_o_control_multiple_file_tape_clause)
|
|
|
|
i_o_control_multiple_file go to state 1118
|
|
|
|
|
|
state 886
|
|
|
|
158 i_o_control_multiple_file_list: i_o_control_multiple_file .
|
|
|
|
$default reduce using rule 158 (i_o_control_multiple_file_list)
|
|
|
|
|
|
state 887
|
|
|
|
171 string_list: error .
|
|
|
|
$default reduce using rule 171 (string_list)
|
|
|
|
|
|
state 888
|
|
|
|
169 string_list: STRING .
|
|
|
|
$default reduce using rule 169 (string_list)
|
|
|
|
|
|
state 889
|
|
|
|
152 i_o_control_same_clause: SAME same_clause_options are_opta for_opt string_list .
|
|
170 string_list: string_list . STRING
|
|
|
|
STRING shift, and go to state 1119
|
|
|
|
$default reduce using rule 152 (i_o_control_same_clause)
|
|
|
|
|
|
state 890
|
|
|
|
499 file_description_clause_block: BLOCK . contains_opt integer to_integer_opt chars_or_recs_opt
|
|
|
|
CONTAINS shift, and go to state 696
|
|
|
|
$default reduce using rule 545 (contains_opt)
|
|
|
|
contains_opt go to state 1120
|
|
|
|
|
|
state 891
|
|
|
|
506 file_description_clause_code_set: CODE_SET . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1121
|
|
|
|
|
|
state 892
|
|
|
|
504 file_description_clause_data: DATA . record_is_are var_strings
|
|
|
|
RECORD shift, and go to state 1122
|
|
RECORDS shift, and go to state 1123
|
|
|
|
record_is_are go to state 1124
|
|
|
|
|
|
state 893
|
|
|
|
502 file_description_clause_label: LABEL . record_is_are std_or_omitt
|
|
|
|
RECORD shift, and go to state 1122
|
|
RECORDS shift, and go to state 1123
|
|
|
|
record_is_are go to state 1125
|
|
|
|
|
|
state 894
|
|
|
|
507 file_description_clause_linage: LINAGE . is_opt data_name lines_opt file_description_clause_linage_footing file_description_clause_linage_top file_description_clause_linage_bottom
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1126
|
|
|
|
|
|
state 895
|
|
|
|
500 file_description_clause_record: RECORD . contains_opt integer to_rec_varying character_opts
|
|
501 | RECORD . is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying
|
|
|
|
IS shift, and go to state 84
|
|
CONTAINS shift, and go to state 696
|
|
|
|
VARYING reduce using rule 132 (is_opt)
|
|
$default reduce using rule 545 (contains_opt)
|
|
|
|
is_opt go to state 1127
|
|
contains_opt go to state 1128
|
|
|
|
|
|
state 896
|
|
|
|
518 report_is_are: REPORT . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1129
|
|
|
|
|
|
state 897
|
|
|
|
519 report_is_are: REPORTS . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1131
|
|
|
|
|
|
state 898
|
|
|
|
503 file_description_clause_value: VALUE . OF FILE_ID is_opt filename
|
|
|
|
OF shift, and go to state 1132
|
|
|
|
|
|
state 899
|
|
|
|
419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK . $@40 file_description
|
|
|
|
$default reduce using rule 418 ($@40)
|
|
|
|
$@40 go to state 1133
|
|
|
|
|
|
state 900
|
|
|
|
487 file_description_fd_clause: is_opt . EXTERNAL
|
|
488 | is_opt . GLOBAL
|
|
|
|
EXTERNAL shift, and go to state 1134
|
|
GLOBAL shift, and go to state 1135
|
|
|
|
|
|
state 901
|
|
|
|
484 file_description_fd_clauses: file_description_fd_clauses file_description_fd_clause .
|
|
|
|
$default reduce using rule 484 (file_description_fd_clauses)
|
|
|
|
|
|
state 902
|
|
|
|
489 file_description_fd_clause: file_description_clause_block .
|
|
|
|
$default reduce using rule 489 (file_description_fd_clause)
|
|
|
|
|
|
state 903
|
|
|
|
490 file_description_fd_clause: file_description_clause_record .
|
|
|
|
$default reduce using rule 490 (file_description_fd_clause)
|
|
|
|
|
|
state 904
|
|
|
|
491 file_description_fd_clause: file_description_clause_label .
|
|
|
|
$default reduce using rule 491 (file_description_fd_clause)
|
|
|
|
|
|
state 905
|
|
|
|
492 file_description_fd_clause: file_description_clause_value .
|
|
|
|
$default reduce using rule 492 (file_description_fd_clause)
|
|
|
|
|
|
state 906
|
|
|
|
493 file_description_fd_clause: file_description_clause_data .
|
|
|
|
$default reduce using rule 493 (file_description_fd_clause)
|
|
|
|
|
|
state 907
|
|
|
|
494 file_description_fd_clause: file_description_clause_report .
|
|
|
|
$default reduce using rule 494 (file_description_fd_clause)
|
|
|
|
|
|
state 908
|
|
|
|
496 file_description_fd_clause: file_description_clause_code_set .
|
|
|
|
$default reduce using rule 496 (file_description_fd_clause)
|
|
|
|
|
|
state 909
|
|
|
|
495 file_description_fd_clause: file_description_clause_linage .
|
|
|
|
$default reduce using rule 495 (file_description_fd_clause)
|
|
|
|
|
|
state 910
|
|
|
|
505 file_description_clause_report: report_is_are . STRING
|
|
|
|
STRING shift, and go to state 1136
|
|
|
|
|
|
state 911
|
|
|
|
423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK . $@43 file_description
|
|
|
|
$default reduce using rule 422 ($@43)
|
|
|
|
$@43 go to state 1137
|
|
|
|
|
|
state 912
|
|
|
|
486 file_description_sd_clauses: file_description_sd_clauses file_description_sd_clause .
|
|
|
|
$default reduce using rule 486 (file_description_sd_clauses)
|
|
|
|
|
|
state 913
|
|
|
|
497 file_description_sd_clause: file_description_clause_record .
|
|
|
|
$default reduce using rule 497 (file_description_sd_clause)
|
|
|
|
|
|
state 914
|
|
|
|
498 file_description_sd_clause: file_description_clause_data .
|
|
|
|
$default reduce using rule 498 (file_description_sd_clause)
|
|
|
|
|
|
state 915
|
|
|
|
446 data_clause: BLANK . when_opt ZERO
|
|
|
|
WHEN shift, and go to state 1138
|
|
|
|
$default reduce using rule 543 (when_opt)
|
|
|
|
when_opt go to state 1139
|
|
|
|
|
|
state 916
|
|
|
|
443 data_clause: JUSTIFIED . sync_options
|
|
|
|
LEFT shift, and go to state 1140
|
|
RIGHT shift, and go to state 1141
|
|
|
|
$default reduce using rule 449 (sync_options)
|
|
|
|
sync_options go to state 1142
|
|
|
|
|
|
state 917
|
|
|
|
455 array_options: OCCURS . integer times_opt $@47 indexed_by_opt
|
|
458 | OCCURS . integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1143
|
|
|
|
|
|
state 918
|
|
|
|
477 pictures: PICTURE . $@50 is_opt picture
|
|
|
|
$default reduce using rule 476 ($@50)
|
|
|
|
$@50 go to state 1144
|
|
|
|
|
|
state 919
|
|
|
|
434 redefines_clause: REDEFINES . $@45 redefines_var
|
|
|
|
$default reduce using rule 433 ($@45)
|
|
|
|
$@45 go to state 1145
|
|
|
|
|
|
state 920
|
|
|
|
448 data_clause: RENAMES . $@46 variable thru_gname_opt
|
|
|
|
$default reduce using rule 447 ($@46)
|
|
|
|
$@46 go to state 1146
|
|
|
|
|
|
state 921
|
|
|
|
407 sign_is_opt: SIGN . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1147
|
|
|
|
|
|
state 922
|
|
|
|
442 data_clause: SYNCHRONIZED . sync_options
|
|
|
|
LEFT shift, and go to state 1140
|
|
RIGHT shift, and go to state 1141
|
|
|
|
$default reduce using rule 449 (sync_options)
|
|
|
|
sync_options go to state 1148
|
|
|
|
|
|
state 923
|
|
|
|
540 usage_opt: USAGE .
|
|
|
|
$default reduce using rule 540 (usage_opt)
|
|
|
|
|
|
state 924
|
|
|
|
470 value_is_are: VALUE . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1149
|
|
|
|
|
|
state 925
|
|
|
|
471 value_is_are: VALUES . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1150
|
|
|
|
|
|
state 926
|
|
|
|
429 field_description: integer def_name_opt $@44 data_clauses PERIOD_TOK .
|
|
|
|
$default reduce using rule 429 (field_description)
|
|
|
|
|
|
state 927
|
|
|
|
408 sign_is_opt: is_opt .
|
|
444 data_clause: is_opt . EXTERNAL
|
|
445 | is_opt . GLOBAL
|
|
|
|
EXTERNAL shift, and go to state 1151
|
|
GLOBAL shift, and go to state 1152
|
|
|
|
$default reduce using rule 408 (sign_is_opt)
|
|
|
|
|
|
state 928
|
|
|
|
440 data_clause: sign_clause .
|
|
|
|
$default reduce using rule 440 (data_clause)
|
|
|
|
|
|
state 929
|
|
|
|
401 sign_clause: sign_is_opt . LEADING separate_opt
|
|
402 | sign_is_opt . TRAILING separate_opt
|
|
|
|
LEADING shift, and go to state 1153
|
|
TRAILING shift, and go to state 1154
|
|
|
|
|
|
state 930
|
|
|
|
432 data_clauses: data_clauses redefines_clause .
|
|
|
|
$default reduce using rule 432 (data_clauses)
|
|
|
|
|
|
state 931
|
|
|
|
431 data_clauses: data_clauses data_clause .
|
|
|
|
$default reduce using rule 431 (data_clauses)
|
|
|
|
|
|
state 932
|
|
|
|
437 data_clause: array_options .
|
|
|
|
$default reduce using rule 437 (data_clause)
|
|
|
|
|
|
state 933
|
|
|
|
439 data_clause: usage_option .
|
|
|
|
$default reduce using rule 439 (data_clause)
|
|
|
|
|
|
state 934
|
|
|
|
441 data_clause: value_option .
|
|
|
|
$default reduce using rule 441 (data_clause)
|
|
|
|
|
|
state 935
|
|
|
|
469 value_option: value_is_are . value_list
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
value_list go to state 1155
|
|
value go to state 1156
|
|
gliteral go to state 1157
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 936
|
|
|
|
438 data_clause: pictures .
|
|
|
|
$default reduce using rule 438 (data_clause)
|
|
|
|
|
|
state 937
|
|
|
|
465 usage_option: usage_opt . is_opt usage
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1158
|
|
|
|
|
|
state 938
|
|
|
|
194 report_section: RD $@15 STRING $@16 . report_controls PERIOD_TOK $@17 report_description
|
|
|
|
$default reduce using rule 195 (report_controls)
|
|
|
|
report_controls go to state 1159
|
|
|
|
|
|
state 939
|
|
|
|
325 screen_item: integer def_name_opt . $@28 screen_clauses PERIOD_TOK
|
|
|
|
$default reduce using rule 324 ($@28)
|
|
|
|
$@28 go to state 1160
|
|
|
|
|
|
state 940
|
|
|
|
580 declaratives_decl: error $@57 PERIOD_TOK .
|
|
|
|
$default reduce using rule 580 (declaratives_decl)
|
|
|
|
|
|
state 941
|
|
|
|
571 declaratives_opt: DECLARATIVES PERIOD_TOK $@55 declaratives_procedure declaratives_division END DECLARATIVES PERIOD_TOK .
|
|
|
|
$default reduce using rule 571 (declaratives_opt)
|
|
|
|
|
|
state 942
|
|
|
|
578 declaratives_decl: $@56 statements PERIOD_TOK .
|
|
|
|
$default reduce using rule 578 (declaratives_decl)
|
|
|
|
|
|
state 943
|
|
|
|
587 use_phrase_exception_error: ERROR_TOK .
|
|
|
|
$default reduce using rule 587 (use_phrase_exception_error)
|
|
|
|
|
|
state 944
|
|
|
|
586 use_phrase_exception_error: EXCEPTION .
|
|
|
|
$default reduce using rule 586 (use_phrase_exception_error)
|
|
|
|
|
|
state 945
|
|
|
|
588 use_phrase_exception_error: STANDARD . EXCEPTION
|
|
589 | STANDARD . ERROR_TOK
|
|
|
|
ERROR_TOK shift, and go to state 1161
|
|
EXCEPTION shift, and go to state 1162
|
|
|
|
|
|
state 946
|
|
|
|
584 use_phrase: USE AFTER use_phrase_exception_error . PROCEDURE on_opt use_phrase_option PERIOD_TOK
|
|
|
|
PROCEDURE shift, and go to state 1163
|
|
|
|
|
|
state 947
|
|
|
|
900 read_body: name read_next_opt record_opt read_into_opt . with_lock_opt read_key_opt
|
|
901 | name read_next_opt record_opt read_into_opt . with_lock_opt read_key_opt read_at_end_opt
|
|
902 | name read_next_opt record_opt read_into_opt . with_lock_opt read_key_opt read_invalid_key_opt
|
|
|
|
WITH shift, and go to state 358
|
|
|
|
IGNORE reduce using rule 1233 (with_opt)
|
|
LOCK reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 893 (with_lock_opt)
|
|
|
|
with_lock_opt go to state 1164
|
|
with_opt go to state 1165
|
|
|
|
|
|
state 948
|
|
|
|
934 write_statement: WRITE name write_from_opt write_options $@101 . invalid_key_opt end_write_opt
|
|
|
|
NOT shift, and go to state 665
|
|
INVALID shift, and go to state 666
|
|
NOTEXCEP shift, and go to state 667
|
|
|
|
NOT [reduce using rule 1064 (invalid_key_opt)]
|
|
NOTEXCEP [reduce using rule 1064 (invalid_key_opt)]
|
|
$default reduce using rule 1064 (invalid_key_opt)
|
|
|
|
invalid_key_opt go to state 1166
|
|
invalid_key_sentence go to state 669
|
|
not_invalid_key_sentence go to state 670
|
|
not_excep go to state 671
|
|
|
|
|
|
state 949
|
|
|
|
1219 advancing_opt: ADVANCING .
|
|
|
|
$default reduce using rule 1219 (advancing_opt)
|
|
|
|
|
|
state 950
|
|
|
|
938 write_options: before_after advancing_opt . gname line_lines_opt
|
|
939 | before_after advancing_opt . PAGE
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
PAGE shift, and go to state 1167
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1168
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 951
|
|
|
|
828 accept_hardware: ACCEPT name FROM CMD_LINE end_accept_opt .
|
|
|
|
$default reduce using rule 828 (accept_hardware)
|
|
|
|
|
|
state 952
|
|
|
|
830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL . end_accept_opt
|
|
|
|
END_ACCEPT shift, and go to state 725
|
|
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 1169
|
|
|
|
|
|
state 953
|
|
|
|
826 accept_hardware: ACCEPT name FROM INKEY end_accept_opt .
|
|
|
|
$default reduce using rule 826 (accept_hardware)
|
|
|
|
|
|
state 954
|
|
|
|
829 accept_hardware: ACCEPT name FROM ESCKEY end_accept_opt .
|
|
|
|
$default reduce using rule 829 (accept_hardware)
|
|
|
|
|
|
state 955
|
|
|
|
831 accept_chronological: ACCEPT name FROM DATE_TIME end_accept_opt .
|
|
|
|
$default reduce using rule 831 (accept_chronological)
|
|
|
|
|
|
state 956
|
|
|
|
827 accept_hardware: ACCEPT name FROM INPUT STATUS . end_accept_opt
|
|
|
|
END_ACCEPT shift, and go to state 725
|
|
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 1170
|
|
|
|
|
|
state 957
|
|
|
|
860 scr_line_position: AT NLITERAL .
|
|
|
|
$default reduce using rule 860 (scr_line_position)
|
|
|
|
|
|
state 958
|
|
|
|
861 scr_line_position: AT variable .
|
|
|
|
$default reduce using rule 861 (scr_line_position)
|
|
|
|
|
|
state 959
|
|
|
|
307 number_opt: NUMBER .
|
|
|
|
$default reduce using rule 307 (number_opt)
|
|
|
|
|
|
state 960
|
|
|
|
858 scr_position: COLUMN number_opt . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 1171
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 961
|
|
|
|
857 scr_line: LINE number_opt . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 1172
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 962
|
|
|
|
859 scr_position: POSITION expr .
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 859 (scr_position)
|
|
|
|
|
|
state 963
|
|
|
|
385 screen_attribx: AUTO .
|
|
|
|
$default reduce using rule 385 (screen_attribx)
|
|
|
|
|
|
state 964
|
|
|
|
400 screen_attribx: BACKGROUNDCOLOR . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1173
|
|
|
|
|
|
state 965
|
|
|
|
375 screen_attribx: BLANK . SCREEN
|
|
376 | BLANK . LINE
|
|
393 | BLANK . when_opt ZERO
|
|
|
|
LINE shift, and go to state 1174
|
|
SCREEN shift, and go to state 1175
|
|
WHEN shift, and go to state 1138
|
|
|
|
$default reduce using rule 543 (when_opt)
|
|
|
|
when_opt go to state 1176
|
|
|
|
|
|
state 966
|
|
|
|
388 screen_attribx: BLINK .
|
|
|
|
$default reduce using rule 388 (screen_attribx)
|
|
|
|
|
|
state 967
|
|
|
|
377 screen_attribx: ERASE . EOL
|
|
378 | ERASE . EOS
|
|
379 | ERASE .
|
|
|
|
EOL shift, and go to state 1177
|
|
EOS shift, and go to state 1178
|
|
|
|
$default reduce using rule 379 (screen_attribx)
|
|
|
|
|
|
state 968
|
|
|
|
399 screen_attribx: FOREGROUNDCOLOR . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1179
|
|
|
|
|
|
state 969
|
|
|
|
382 screen_attribx: FULL .
|
|
|
|
$default reduce using rule 382 (screen_attribx)
|
|
|
|
|
|
state 970
|
|
|
|
392 screen_attribx: HIGHLIGHT .
|
|
|
|
$default reduce using rule 392 (screen_attribx)
|
|
|
|
|
|
state 971
|
|
|
|
386 screen_attribx: JUSTIFIED . RIGHT
|
|
387 | JUSTIFIED . LEFT
|
|
|
|
LEFT shift, and go to state 1180
|
|
RIGHT shift, and go to state 1181
|
|
|
|
|
|
state 972
|
|
|
|
398 screen_attribx: LOWER .
|
|
|
|
$default reduce using rule 398 (screen_attribx)
|
|
|
|
|
|
state 973
|
|
|
|
391 screen_attribx: LOWLIGHT .
|
|
|
|
$default reduce using rule 391 (screen_attribx)
|
|
|
|
|
|
state 974
|
|
|
|
383 screen_attribx: REQUIRED .
|
|
|
|
$default reduce using rule 383 (screen_attribx)
|
|
|
|
|
|
state 975
|
|
|
|
389 screen_attribx: REVERSEVIDEO .
|
|
|
|
$default reduce using rule 389 (screen_attribx)
|
|
|
|
|
|
state 976
|
|
|
|
384 screen_attribx: SECURE .
|
|
|
|
$default reduce using rule 384 (screen_attribx)
|
|
|
|
|
|
state 977
|
|
|
|
390 screen_attribx: UNDERLINE .
|
|
|
|
$default reduce using rule 390 (screen_attribx)
|
|
|
|
|
|
state 978
|
|
|
|
397 screen_attribx: UPPER .
|
|
|
|
$default reduce using rule 397 (screen_attribx)
|
|
|
|
|
|
state 979
|
|
|
|
408 sign_is_opt: is_opt .
|
|
|
|
$default reduce using rule 408 (sign_is_opt)
|
|
|
|
|
|
state 980
|
|
|
|
864 accept_display_option: with_opt screen_attribx .
|
|
|
|
$default reduce using rule 864 (accept_display_option)
|
|
|
|
|
|
state 981
|
|
|
|
381 screen_attribx: sign_clause .
|
|
|
|
$default reduce using rule 381 (screen_attribx)
|
|
|
|
|
|
state 982
|
|
|
|
380 screen_attribx: with_opt . BELL
|
|
394 | with_opt . NOECHO
|
|
395 | with_opt . UPDATE
|
|
396 | with_opt . NO ADVANCING
|
|
|
|
NO shift, and go to state 1182
|
|
BELL shift, and go to state 1183
|
|
NOECHO shift, and go to state 1184
|
|
UPDATE shift, and go to state 1185
|
|
|
|
|
|
state 983
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION . $@93 variable @94 statement_list $@95 end_accept_opt
|
|
|
|
$default reduce using rule 833 ($@93)
|
|
|
|
$@93 go to state 1186
|
|
|
|
|
|
state 984
|
|
|
|
795 add_body: CORRESPONDING var_list_gname TO var_list_name . rounded_opt on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
ROUNDED shift, and go to state 568
|
|
|
|
$default reduce using rule 995 (rounded_opt)
|
|
|
|
rounded_opt go to state 1187
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 985
|
|
|
|
998 on_size_error_opt: NOT . on_opt SIZE on_size_error
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1188
|
|
|
|
|
|
state 986
|
|
|
|
793 add_body: var_list_gname TO var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 793 (add_body)
|
|
|
|
|
|
state 987
|
|
|
|
999 on_size_error_opt: on_opt . SIZE on_size_error
|
|
1001 | on_opt . SIZE on_size_error NOT on_opt SIZE $@115 on_size_error
|
|
|
|
SIZE shift, and go to state 1189
|
|
|
|
|
|
state 988
|
|
|
|
794 add_body: var_list_gname add_to_opt GIVING var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1190
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 989
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options . returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
GIVING shift, and go to state 1191
|
|
RETURNING shift, and go to state 1192
|
|
|
|
$default reduce using rule 1126 (returning_options)
|
|
|
|
returning_options go to state 1193
|
|
|
|
|
|
state 990
|
|
|
|
1125 using_options: USING @127 . dummy @128 parm_list
|
|
|
|
$default reduce using rule 1129 (dummy)
|
|
|
|
dummy go to state 1194
|
|
|
|
|
|
state 991
|
|
|
|
981 chain_statement: CHAIN $@111 gname using_options @112 . @113 on_exception_or_overflow $@114 end_chain_opt
|
|
|
|
$default reduce using rule 979 (@113)
|
|
|
|
@113 go to state 1195
|
|
|
|
|
|
state 992
|
|
|
|
889 close_options: REEL for_opt REMOVAL .
|
|
|
|
$default reduce using rule 889 (close_options)
|
|
|
|
|
|
state 993
|
|
|
|
890 close_options: UNIT for_opt REMOVAL .
|
|
|
|
$default reduce using rule 890 (close_options)
|
|
|
|
|
|
state 994
|
|
|
|
886 close_options: with_opt NO REWIND .
|
|
|
|
$default reduce using rule 886 (close_options)
|
|
|
|
|
|
state 995
|
|
|
|
892 with_lock_opt: with_opt IGNORE LOCK .
|
|
|
|
$default reduce using rule 892 (with_lock_opt)
|
|
|
|
|
|
state 996
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1119 | '(' expr . ')'
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
')' shift, and go to state 778
|
|
|
|
|
|
state 997
|
|
|
|
788 compute_body: var_list_name CONDITIONAL expr on_size_error_opt .
|
|
|
|
$default reduce using rule 788 (compute_body)
|
|
|
|
|
|
state 998
|
|
|
|
992 var_list_name: var_list_name name rounded_opt sep_opt .
|
|
|
|
$default reduce using rule 992 (var_list_name)
|
|
|
|
|
|
state 999
|
|
|
|
947 delete_statement: DELETE name record_opt $@103 invalid_key_opt . end_delete_opt
|
|
|
|
END_DELETE shift, and go to state 1196
|
|
|
|
END_DELETE [reduce using rule 948 (end_delete_opt)]
|
|
$default reduce using rule 948 (end_delete_opt)
|
|
|
|
end_delete_opt go to state 1197
|
|
|
|
|
|
state 1000
|
|
|
|
842 display_line: DISPLAY display_varlist display_upon display_line_options end_display_opt .
|
|
|
|
$default reduce using rule 842 (display_line)
|
|
|
|
|
|
state 1001
|
|
|
|
850 display_line_options: display_line_options with_opt . NO ADVANCING
|
|
851 | display_line_options with_opt . ERASE
|
|
852 | display_line_options with_opt . ERASE EOS
|
|
853 | display_line_options with_opt . ERASE EOL
|
|
854 | display_line_options with_opt . ERASE SCREEN
|
|
|
|
NO shift, and go to state 1198
|
|
ERASE shift, and go to state 1199
|
|
|
|
|
|
state 1002
|
|
|
|
815 divide_body: gname BY gname GIVING . var_list_name on_size_error_opt
|
|
816 | gname BY gname GIVING . name rounded_opt REMAINDER name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
var_list_name go to state 1200
|
|
name go to state 1201
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1003
|
|
|
|
819 divide_body: gname INTO var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 819 (divide_body)
|
|
|
|
|
|
state 1004
|
|
|
|
817 divide_body: gname INTO gname GIVING . name rounded_opt REMAINDER name on_size_error_opt
|
|
818 | gname INTO gname GIVING . var_list_name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
var_list_name go to state 1202
|
|
name go to state 1203
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1005
|
|
|
|
658 selection_subject_set: selection_subject_set ALSO @65 . selection_subject
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FALSE_TOK shift, and go to state 769
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
TRUE_TOK shift, and go to state 770
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
selection_subject go to state 1204
|
|
expr go to state 772
|
|
condition go to state 773
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1006
|
|
|
|
665 when_case_list: WHEN . @66 @67 when_case sentence_or_nothing
|
|
|
|
$default reduce using rule 663 (@66)
|
|
|
|
@66 go to state 1205
|
|
|
|
|
|
state 1007
|
|
|
|
652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list . end_evaluate_or_eos
|
|
669 when_case_list: when_case_list . WHEN @68 @69 when_case $@70 sentence_or_nothing
|
|
|
|
END_EVALUATE shift, and go to state 1206
|
|
WHEN shift, and go to state 1207
|
|
PERIOD_TOK shift, and go to state 1208
|
|
|
|
end_evaluate_or_eos go to state 1209
|
|
|
|
|
|
state 1008
|
|
|
|
957 goto_statement: GO to_opt goto_label_list DEPENDING on_opt . variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 1210
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1009
|
|
|
|
961 goto_label_list: goto_label_list LISTSEP label .
|
|
|
|
$default reduce using rule 961 (goto_label_list)
|
|
|
|
|
|
state 1010
|
|
|
|
1283 cond_name: VARCOND '(' $@146 subscripts . ')'
|
|
1297 subscripts: subscripts . comma_opt subscript
|
|
|
|
')' shift, and go to state 1211
|
|
',' shift, and go to state 190
|
|
|
|
$default reduce using rule 1212 (comma_opt)
|
|
|
|
comma_opt go to state 191
|
|
|
|
|
|
state 1011
|
|
|
|
1200 extended_cond_op: IS NOT ext_cond .
|
|
|
|
$default reduce using rule 1200 (extended_cond_op)
|
|
|
|
|
|
state 1012
|
|
|
|
1201 extended_cond_op: IS ext_cond OR . ext_cond
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
ext_cond go to state 1212
|
|
conditional go to state 610
|
|
|
|
|
|
state 1013
|
|
|
|
1203 extended_cond_op: NOT is_opt ext_cond .
|
|
|
|
$default reduce using rule 1203 (extended_cond_op)
|
|
|
|
|
|
state 1014
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1121 expr_opt: expr .
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 1121 (expr_opt)
|
|
|
|
|
|
state 1015
|
|
|
|
1181 condition: expr extended_cond_op $@142 expr_opt .
|
|
|
|
$default reduce using rule 1181 (condition)
|
|
|
|
|
|
state 1016
|
|
|
|
1204 extended_cond_op: ext_cond OR ext_cond .
|
|
|
|
$default reduce using rule 1204 (extended_cond_op)
|
|
|
|
|
|
state 1017
|
|
|
|
1182 condition: NOT . condition
|
|
1209 cond_op: NOT . conditional
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
CONDITIONAL shift, and go to state 591
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 588
|
|
conditional go to state 1213
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1018
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1181 condition: expr . extended_cond_op $@142 expr_opt
|
|
1191 implied_op_condition: expr .
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
IS shift, and go to state 592
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
NOT shift, and go to state 598
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
NOT [reduce using rule 1191 (implied_op_condition)]
|
|
$default reduce using rule 1191 (implied_op_condition)
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
extended_cond_op go to state 608
|
|
ext_cond go to state 609
|
|
conditional go to state 610
|
|
|
|
|
|
state 1019
|
|
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
1189 implied_op_condition: condition .
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
OR [reduce using rule 1189 (implied_op_condition)]
|
|
AND [reduce using rule 1189 (implied_op_condition)]
|
|
$default reduce using rule 1189 (implied_op_condition)
|
|
|
|
|
|
state 1020
|
|
|
|
1186 condition: condition OR @144 implied_op_condition .
|
|
|
|
$default reduce using rule 1186 (condition)
|
|
|
|
|
|
state 1021
|
|
|
|
1190 implied_op_condition: cond_op . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 1214
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1022
|
|
|
|
1208 cond_op: conditional .
|
|
1210 | conditional . OR conditional
|
|
|
|
OR shift, and go to state 1215
|
|
|
|
$default reduce using rule 1208 (cond_op)
|
|
|
|
|
|
state 1023
|
|
|
|
1184 condition: condition AND @143 implied_op_condition .
|
|
|
|
$default reduce using rule 1184 (condition)
|
|
|
|
|
|
state 1024
|
|
|
|
684 if_part: IF condition @73 end_then_opt conditional_statement .
|
|
|
|
$default reduce using rule 684 (if_part)
|
|
|
|
|
|
state 1025
|
|
|
|
779 initialize_replacing_lists: initialize_replacing_lists initialize_replacing_list .
|
|
|
|
$default reduce using rule 779 (initialize_replacing_lists)
|
|
|
|
|
|
state 1026
|
|
|
|
552 data_opt: DATA .
|
|
|
|
$default reduce using rule 552 (data_opt)
|
|
|
|
|
|
state 1027
|
|
|
|
780 initialize_replacing_list: initialize_type_list data_opt . BY gname
|
|
|
|
BY shift, and go to state 1216
|
|
|
|
|
|
state 1028
|
|
|
|
1088 converting_clause: CONVERTING noallname TO . noallname inspect_before_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 1217
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1029
|
|
|
|
1091 tallying_list: tallying_list name . FOR tallying_for_list
|
|
|
|
FOR shift, and go to state 1218
|
|
|
|
|
|
state 1030
|
|
|
|
1097 replacing_clause: REPLACING . replacing_list
|
|
|
|
$default reduce using rule 1101 (replacing_list)
|
|
|
|
replacing_list go to state 1219
|
|
|
|
|
|
state 1031
|
|
|
|
1086 inspect_statement: INSPECT name tallying_clause $@126 replacing_clause .
|
|
|
|
$default reduce using rule 1086 (inspect_statement)
|
|
|
|
|
|
state 1032
|
|
|
|
763 sort_collating_opt: collating_sequence .
|
|
|
|
$default reduce using rule 763 (sort_collating_opt)
|
|
|
|
|
|
state 1033
|
|
|
|
740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt . $@87 merge_using $@88 sort_output
|
|
|
|
$default reduce using rule 738 ($@87)
|
|
|
|
$@87 go to state 1220
|
|
|
|
|
|
state 1034
|
|
|
|
754 sort_key: on_opt DIRECTION key_opt . sort_keys_names
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
sort_keys_names go to state 1221
|
|
name go to state 1222
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1035
|
|
|
|
771 move_statement: MOVE CORRESPONDING name_var TO name_var .
|
|
|
|
$default reduce using rule 771 (move_statement)
|
|
|
|
|
|
state 1036
|
|
|
|
772 move_statement: MOVE LENGTH OF gname TO . name_var
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 624
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
name_var go to state 1223
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1037
|
|
|
|
1242 name_var_list: name_var_list sep_opt . name_var
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 624
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
name_var go to state 1224
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1038
|
|
|
|
810 multiply_body: gname BY var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 810 (multiply_body)
|
|
|
|
|
|
state 1039
|
|
|
|
809 multiply_body: gname BY gname GIVING . var_list_name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
var_list_name go to state 1225
|
|
name go to state 410
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1040
|
|
|
|
878 open_varlist: open_varlist sep_opt name .
|
|
|
|
$default reduce using rule 878 (open_varlist)
|
|
|
|
|
|
state 1041
|
|
|
|
1151 perform_options: with_test_opt UNTIL @131 condition . @132 perform_statements $@133 END_PERFORM
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
$default reduce using rule 1149 (@132)
|
|
|
|
@132 go to state 1226
|
|
|
|
|
|
state 1042
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM . gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1227
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1043
|
|
|
|
1147 perform_options: gname TIMES @129 perform_statements . $@130 END_PERFORM
|
|
|
|
$default reduce using rule 1146 ($@130)
|
|
|
|
$@130 go to state 1228
|
|
|
|
|
|
state 1044
|
|
|
|
1158 perform_options: label perform_thru_opt with_test_opt UNTIL . @137 condition
|
|
|
|
$default reduce using rule 1157 (@137)
|
|
|
|
@137 go to state 1229
|
|
|
|
|
|
state 1045
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING . name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1230
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1046
|
|
|
|
1159 perform_options: label perform_thru_opt gname TIMES .
|
|
|
|
$default reduce using rule 1159 (perform_options)
|
|
|
|
|
|
state 1047
|
|
|
|
907 read_into_opt: INTO name .
|
|
|
|
$default reduce using rule 907 (read_into_opt)
|
|
|
|
|
|
state 1048
|
|
|
|
910 read_at_end_opt: NOT . at_opt on_end
|
|
|
|
AT shift, and go to state 1054
|
|
|
|
$default reduce using rule 1225 (at_opt)
|
|
|
|
at_opt go to state 1231
|
|
|
|
|
|
state 1049
|
|
|
|
911 read_at_end_opt: AT . on_end
|
|
914 | AT . on_end NOT at_opt $@96 on_end
|
|
|
|
END shift, and go to state 1050
|
|
|
|
on_end go to state 1232
|
|
|
|
|
|
state 1050
|
|
|
|
918 on_end: END . @98 statement_list
|
|
|
|
$default reduce using rule 917 (@98)
|
|
|
|
@98 go to state 1233
|
|
|
|
|
|
state 1051
|
|
|
|
897 return_body: name record_opt read_into_opt read_at_end_opt .
|
|
|
|
$default reduce using rule 897 (return_body)
|
|
|
|
|
|
state 1052
|
|
|
|
912 read_at_end_opt: on_end .
|
|
916 | on_end . NOT at_opt $@97 on_end
|
|
|
|
NOT shift, and go to state 1234
|
|
|
|
NOT [reduce using rule 912 (read_at_end_opt)]
|
|
$default reduce using rule 912 (read_at_end_opt)
|
|
|
|
|
|
state 1053
|
|
|
|
943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt . end_rewrite_opt
|
|
|
|
END_REWRITE shift, and go to state 1235
|
|
|
|
END_REWRITE [reduce using rule 944 (end_rewrite_opt)]
|
|
$default reduce using rule 944 (end_rewrite_opt)
|
|
|
|
end_rewrite_opt go to state 1236
|
|
|
|
|
|
state 1054
|
|
|
|
1226 at_opt: AT .
|
|
|
|
$default reduce using rule 1226 (at_opt)
|
|
|
|
|
|
state 1055
|
|
|
|
701 search_all: variable_indexed @79 search_at_end . $@80 search_all_when_list
|
|
|
|
$default reduce using rule 700 ($@80)
|
|
|
|
$@80 go to state 1237
|
|
|
|
|
|
state 1056
|
|
|
|
705 search_at_end: at_opt . END @81 statement_list
|
|
|
|
END shift, and go to state 1238
|
|
|
|
|
|
state 1057
|
|
|
|
702 search_varying_opt: VARYING variable .
|
|
|
|
$default reduce using rule 702 (search_varying_opt)
|
|
|
|
|
|
state 1058
|
|
|
|
698 search: variable_indexed @76 search_varying_opt @77 . search_at_end @78 search_when_list
|
|
|
|
AT shift, and go to state 1054
|
|
|
|
END reduce using rule 1225 (at_opt)
|
|
$default reduce using rule 706 (search_at_end)
|
|
|
|
search_at_end go to state 1239
|
|
at_opt go to state 1056
|
|
|
|
|
|
state 1059
|
|
|
|
1022 set_variable_or_nlit: NULL_TOK .
|
|
|
|
$default reduce using rule 1022 (set_variable_or_nlit)
|
|
|
|
|
|
state 1060
|
|
|
|
1021 set_variable_or_nlit: OFF .
|
|
|
|
$default reduce using rule 1021 (set_variable_or_nlit)
|
|
|
|
|
|
state 1061
|
|
|
|
1020 set_variable_or_nlit: ON .
|
|
|
|
$default reduce using rule 1020 (set_variable_or_nlit)
|
|
|
|
|
|
state 1062
|
|
|
|
1023 set_variable_or_nlit: TRUE_TOK .
|
|
|
|
$default reduce using rule 1023 (set_variable_or_nlit)
|
|
|
|
|
|
state 1063
|
|
|
|
1011 set_list: set_target TO address_of_opt set_variable_or_nlit .
|
|
|
|
$default reduce using rule 1011 (set_list)
|
|
|
|
|
|
state 1064
|
|
|
|
1019 set_variable_or_nlit: name_or_lit .
|
|
|
|
$default reduce using rule 1019 (set_variable_or_nlit)
|
|
|
|
|
|
state 1065
|
|
|
|
1251 name_or_lit: literal .
|
|
|
|
$default reduce using rule 1251 (name_or_lit)
|
|
|
|
|
|
state 1066
|
|
|
|
1250 name_or_lit: name .
|
|
|
|
$default reduce using rule 1250 (name_or_lit)
|
|
|
|
|
|
state 1067
|
|
|
|
1013 set_list: set_target DOWN BY var_or_nliteral .
|
|
|
|
$default reduce using rule 1013 (set_list)
|
|
|
|
|
|
state 1068
|
|
|
|
1266 var_or_nliteral: nliteral .
|
|
|
|
$default reduce using rule 1266 (var_or_nliteral)
|
|
|
|
|
|
state 1069
|
|
|
|
1267 nliteral: signed_nliteral .
|
|
|
|
$default reduce using rule 1267 (nliteral)
|
|
|
|
|
|
state 1070
|
|
|
|
1265 var_or_nliteral: variable .
|
|
|
|
$default reduce using rule 1265 (var_or_nliteral)
|
|
|
|
|
|
state 1071
|
|
|
|
1012 set_list: set_target UP BY var_or_nliteral .
|
|
|
|
$default reduce using rule 1012 (set_list)
|
|
|
|
|
|
state 1072
|
|
|
|
1014 set_list: address_of_opt variable TO address_of_opt . set_variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
NULL_TOK shift, and go to state 1240
|
|
|
|
set_variable go to state 1241
|
|
variable go to state 1242
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1073
|
|
|
|
749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt . sort_collating_opt
|
|
|
|
COLLATING shift, and go to state 496
|
|
|
|
SEQUENCE reduce using rule 45 (collating_opt)
|
|
$default reduce using rule 762 (sort_collating_opt)
|
|
|
|
collating_sequence go to state 1032
|
|
collating_opt go to state 498
|
|
sort_collating_opt go to state 1243
|
|
|
|
|
|
state 1074
|
|
|
|
761 sort_duplicates_opt: with_opt . DUPLICATES in_opt order_opt
|
|
|
|
DUPLICATES shift, and go to state 1244
|
|
|
|
|
|
state 1075
|
|
|
|
755 sort_key_idx: on_opt DIRECTION key_opt . sort_keys_names_idx
|
|
|
|
SUBSCVAR shift, and go to state 459
|
|
|
|
sort_keys_names_idx go to state 1245
|
|
variable_indexed go to state 1246
|
|
|
|
|
|
state 1076
|
|
|
|
747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt . sort_collating_opt $@90 sort_input $@91 sort_output
|
|
|
|
COLLATING shift, and go to state 496
|
|
|
|
SEQUENCE reduce using rule 45 (collating_opt)
|
|
$default reduce using rule 762 (sort_collating_opt)
|
|
|
|
collating_sequence go to state 1032
|
|
collating_opt go to state 498
|
|
sort_collating_opt go to state 1247
|
|
|
|
|
|
state 1077
|
|
|
|
1066 invalid_key_sentence: INVALID key_opt @124 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1248
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1078
|
|
|
|
955 end_start_opt: END_START .
|
|
|
|
$default reduce using rule 955 (end_start_opt)
|
|
|
|
|
|
state 1079
|
|
|
|
951 start_statement: START start_body invalid_key_opt $@104 end_start_opt .
|
|
|
|
$default reduce using rule 951 (start_statement)
|
|
|
|
|
|
state 1080
|
|
|
|
1068 not_invalid_key_sentence: not_excep INVALID key_opt . @125 statement_list
|
|
|
|
$default reduce using rule 1067 (@125)
|
|
|
|
@125 go to state 1249
|
|
|
|
|
|
state 1081
|
|
|
|
1209 cond_op: NOT . conditional
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
|
|
conditional go to state 1213
|
|
|
|
|
|
state 1082
|
|
|
|
953 start_body: name KEY is_opt cond_op . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1250
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1083
|
|
|
|
1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer . $@117 on_overflow_opt end_stringcmd_opt
|
|
|
|
$default reduce using rule 1026 ($@117)
|
|
|
|
$@117 go to state 1251
|
|
|
|
|
|
state 1084
|
|
|
|
1071 string_with_pointer: with_opt . POINTER name
|
|
|
|
POINTER shift, and go to state 1252
|
|
|
|
|
|
state 1085
|
|
|
|
1080 delimited_by: error .
|
|
|
|
$default reduce using rule 1080 (delimited_by)
|
|
|
|
|
|
state 1086
|
|
|
|
1079 delimited_by: SIZE .
|
|
|
|
$default reduce using rule 1079 (delimited_by)
|
|
|
|
|
|
state 1087
|
|
|
|
1077 string_from: gname DELIMITED by_opt delimited_by .
|
|
|
|
$default reduce using rule 1077 (string_from)
|
|
|
|
|
|
state 1088
|
|
|
|
1078 delimited_by: gname .
|
|
|
|
$default reduce using rule 1078 (delimited_by)
|
|
|
|
|
|
state 1089
|
|
|
|
804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name . rounded_opt on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
ROUNDED shift, and go to state 568
|
|
|
|
$default reduce using rule 995 (rounded_opt)
|
|
|
|
rounded_opt go to state 1253
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1090
|
|
|
|
802 subtract_body: var_list_gname FROM var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 802 (subtract_body)
|
|
|
|
|
|
state 1091
|
|
|
|
803 subtract_body: var_list_gname FROM gname GIVING . var_list_name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
var_list_name go to state 1254
|
|
name go to state 410
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1092
|
|
|
|
1044 all_opt: ALL .
|
|
|
|
$default reduce using rule 1044 (all_opt)
|
|
|
|
|
|
state 1093
|
|
|
|
1030 unstring_delimited: DELIMITED by_opt unstring_delimited_vars .
|
|
1033 unstring_delimited_vars: unstring_delimited_vars . OR all_opt gname
|
|
|
|
OR shift, and go to state 1255
|
|
|
|
$default reduce using rule 1030 (unstring_delimited)
|
|
|
|
|
|
state 1094
|
|
|
|
1032 unstring_delimited_vars: all_opt . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1256
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1095
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations . string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt
|
|
1035 unstring_destinations: unstring_destinations . sep_opt unstring_dest_var
|
|
|
|
LISTSEP shift, and go to state 98
|
|
WITH shift, and go to state 358
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
POINTER reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 1072 (string_with_pointer)
|
|
|
|
string_with_pointer go to state 1257
|
|
sep_opt go to state 1258
|
|
with_opt go to state 1084
|
|
|
|
|
|
state 1096
|
|
|
|
1034 unstring_destinations: unstring_dest_var .
|
|
|
|
$default reduce using rule 1034 (unstring_destinations)
|
|
|
|
|
|
state 1097
|
|
|
|
1036 unstring_dest_var: name . unstring_delim_opt unstring_count_opt
|
|
|
|
DELIMITER shift, and go to state 1259
|
|
|
|
$default reduce using rule 1037 (unstring_delim_opt)
|
|
|
|
unstring_delim_opt go to state 1260
|
|
|
|
|
|
state 1098
|
|
|
|
647 if_statement: if_part ELSE @60 conditional_statement $@61 . end_if_opt
|
|
|
|
END_IF shift, and go to state 684
|
|
|
|
END_IF [reduce using rule 691 (end_if_opt)]
|
|
$default reduce using rule 691 (end_if_opt)
|
|
|
|
end_if_opt go to state 1261
|
|
|
|
|
|
state 1099
|
|
|
|
686 conditional_statement: $@74 statement_list .
|
|
|
|
$default reduce using rule 686 (conditional_statement)
|
|
|
|
|
|
state 1100
|
|
|
|
688 conditional_statement: $@75 NEXT . SENTENCE
|
|
|
|
SENTENCE shift, and go to state 1262
|
|
|
|
|
|
state 1101
|
|
|
|
43 collating_sequence: collating_opt SEQUENCE is_opt STRING .
|
|
|
|
$default reduce using rule 43 (collating_sequence)
|
|
|
|
|
|
state 1102
|
|
|
|
92 alphabet_also_list: alphabet_also_list ALSO without_all_literal .
|
|
|
|
$default reduce using rule 92 (alphabet_also_list)
|
|
|
|
|
|
state 1103
|
|
|
|
79 status_opt: STATUS .
|
|
|
|
$default reduce using rule 79 (status_opt)
|
|
|
|
|
|
state 1104
|
|
|
|
75 switch_on_opt: ON status_opt . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1263
|
|
|
|
|
|
state 1105
|
|
|
|
77 switch_off_opt: OFF . status_opt is_opt STRING
|
|
|
|
STATUS shift, and go to state 1103
|
|
|
|
$default reduce using rule 80 (status_opt)
|
|
|
|
status_opt go to state 1264
|
|
|
|
|
|
state 1106
|
|
|
|
74 switches_details: STRING is_opt STRING $@9 switch_on_opt switch_off_opt .
|
|
|
|
$default reduce using rule 74 (switches_details)
|
|
|
|
|
|
state 1107
|
|
|
|
135 mode_opt: MODE .
|
|
|
|
$default reduce using rule 135 (mode_opt)
|
|
|
|
|
|
state 1108
|
|
|
|
108 select_clause: ACCESS mode_opt . is_opt access_options
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1265
|
|
|
|
|
|
state 1109
|
|
|
|
112 select_clause: ALTERNATE RECORD . key_opt is_opt STRING with_duplicates
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1266
|
|
|
|
|
|
state 1110
|
|
|
|
107 select_clause: ASSIGN to_opt . assign_clause
|
|
|
|
error shift, and go to state 1267
|
|
STRING shift, and go to state 1268
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
PORTNUM shift, and go to state 1269
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
EXTERNAL shift, and go to state 1270
|
|
|
|
assign_clause go to state 1271
|
|
literal go to state 1272
|
|
signed_nliteral go to state 77
|
|
filename go to state 1273
|
|
|
|
|
|
state 1111
|
|
|
|
110 select_clause: RECORD key_opt . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1274
|
|
|
|
|
|
state 1112
|
|
|
|
111 select_clause: RELATIVE key_opt . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1275
|
|
|
|
|
|
state 1113
|
|
|
|
113 select_clause: RESERVE NLITERAL . areas_opt
|
|
|
|
AREA shift, and go to state 1276
|
|
AREAS shift, and go to state 1277
|
|
|
|
$default reduce using rule 130 (areas_opt)
|
|
|
|
areas_opt go to state 1278
|
|
|
|
|
|
state 1114
|
|
|
|
109 select_clause: file_opt STATUS . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1279
|
|
|
|
|
|
state 1115
|
|
|
|
106 select_clause: organization_opt is_opt . organization_options
|
|
|
|
STRING shift, and go to state 1280
|
|
LABELSTR shift, and go to state 1281
|
|
INDEXED shift, and go to state 1282
|
|
LINE shift, and go to state 1283
|
|
RELATIVE shift, and go to state 1284
|
|
SEQUENTIAL shift, and go to state 1285
|
|
|
|
organization_options go to state 1286
|
|
anystring go to state 1287
|
|
|
|
|
|
state 1116
|
|
|
|
162 i_o_control_multiple_file_position_opt: POSITION . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1288
|
|
|
|
|
|
state 1117
|
|
|
|
160 i_o_control_multiple_file: STRING i_o_control_multiple_file_position_opt .
|
|
|
|
$default reduce using rule 160 (i_o_control_multiple_file)
|
|
|
|
|
|
state 1118
|
|
|
|
159 i_o_control_multiple_file_list: i_o_control_multiple_file_list i_o_control_multiple_file .
|
|
|
|
$default reduce using rule 159 (i_o_control_multiple_file_list)
|
|
|
|
|
|
state 1119
|
|
|
|
170 string_list: string_list STRING .
|
|
|
|
$default reduce using rule 170 (string_list)
|
|
|
|
|
|
state 1120
|
|
|
|
499 file_description_clause_block: BLOCK contains_opt . integer to_integer_opt chars_or_recs_opt
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1289
|
|
|
|
|
|
state 1121
|
|
|
|
506 file_description_clause_code_set: CODE_SET is_opt . STRING
|
|
|
|
STRING shift, and go to state 1290
|
|
|
|
|
|
state 1122
|
|
|
|
535 record_is_are: RECORD . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1291
|
|
|
|
|
|
state 1123
|
|
|
|
536 record_is_are: RECORDS . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1292
|
|
|
|
|
|
state 1124
|
|
|
|
504 file_description_clause_data: DATA record_is_are . var_strings
|
|
|
|
STRING shift, and go to state 1293
|
|
|
|
var_strings go to state 1294
|
|
|
|
|
|
state 1125
|
|
|
|
502 file_description_clause_label: LABEL record_is_are . std_or_omitt
|
|
|
|
OMITTED shift, and go to state 1295
|
|
STANDARD shift, and go to state 1296
|
|
|
|
std_or_omitt go to state 1297
|
|
|
|
|
|
state 1126
|
|
|
|
507 file_description_clause_linage: LINAGE is_opt . data_name lines_opt file_description_clause_linage_footing file_description_clause_linage_top file_description_clause_linage_bottom
|
|
|
|
STRING shift, and go to state 1298
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1299
|
|
signed_nliteral go to state 77
|
|
data_name go to state 1300
|
|
|
|
|
|
state 1127
|
|
|
|
501 file_description_clause_record: RECORD is_opt . VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying
|
|
|
|
VARYING shift, and go to state 1301
|
|
|
|
|
|
state 1128
|
|
|
|
500 file_description_clause_record: RECORD contains_opt . integer to_rec_varying character_opts
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1302
|
|
|
|
|
|
state 1129
|
|
|
|
518 report_is_are: REPORT is_opt .
|
|
|
|
$default reduce using rule 518 (report_is_are)
|
|
|
|
|
|
state 1130
|
|
|
|
133 are_opt: ARE .
|
|
|
|
$default reduce using rule 133 (are_opt)
|
|
|
|
|
|
state 1131
|
|
|
|
519 report_is_are: REPORTS are_opt .
|
|
|
|
$default reduce using rule 519 (report_is_are)
|
|
|
|
|
|
state 1132
|
|
|
|
503 file_description_clause_value: VALUE OF . FILE_ID is_opt filename
|
|
|
|
FILE_ID shift, and go to state 1303
|
|
|
|
|
|
state 1133
|
|
|
|
419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 . file_description
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
file_description go to state 1304
|
|
field_description go to state 1305
|
|
signed_nliteral go to state 234
|
|
integer go to state 235
|
|
|
|
|
|
state 1134
|
|
|
|
487 file_description_fd_clause: is_opt EXTERNAL .
|
|
|
|
$default reduce using rule 487 (file_description_fd_clause)
|
|
|
|
|
|
state 1135
|
|
|
|
488 file_description_fd_clause: is_opt GLOBAL .
|
|
|
|
$default reduce using rule 488 (file_description_fd_clause)
|
|
|
|
|
|
state 1136
|
|
|
|
505 file_description_clause_report: report_is_are STRING .
|
|
|
|
$default reduce using rule 505 (file_description_clause_report)
|
|
|
|
|
|
state 1137
|
|
|
|
423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 . file_description
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
file_description go to state 1306
|
|
field_description go to state 1305
|
|
signed_nliteral go to state 234
|
|
integer go to state 235
|
|
|
|
|
|
state 1138
|
|
|
|
544 when_opt: WHEN .
|
|
|
|
$default reduce using rule 544 (when_opt)
|
|
|
|
|
|
state 1139
|
|
|
|
446 data_clause: BLANK when_opt . ZERO
|
|
|
|
ZERO shift, and go to state 1307
|
|
|
|
|
|
state 1140
|
|
|
|
450 sync_options: LEFT .
|
|
|
|
$default reduce using rule 450 (sync_options)
|
|
|
|
|
|
state 1141
|
|
|
|
451 sync_options: RIGHT .
|
|
|
|
$default reduce using rule 451 (sync_options)
|
|
|
|
|
|
state 1142
|
|
|
|
443 data_clause: JUSTIFIED sync_options .
|
|
|
|
$default reduce using rule 443 (data_clause)
|
|
|
|
|
|
state 1143
|
|
|
|
455 array_options: OCCURS integer . times_opt $@47 indexed_by_opt
|
|
458 | OCCURS integer . TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt
|
|
|
|
TO shift, and go to state 1308
|
|
TIMES shift, and go to state 1309
|
|
|
|
$default reduce using rule 541 (times_opt)
|
|
|
|
times_opt go to state 1310
|
|
|
|
|
|
state 1144
|
|
|
|
477 pictures: PICTURE $@50 . is_opt picture
|
|
|
|
IS shift, and go to state 84
|
|
|
|
IS [reduce using rule 132 (is_opt)]
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1311
|
|
|
|
|
|
state 1145
|
|
|
|
434 redefines_clause: REDEFINES $@45 . redefines_var
|
|
|
|
VARIABLE shift, and go to state 1312
|
|
SUBSCVAR shift, and go to state 1313
|
|
|
|
redefines_var go to state 1314
|
|
|
|
|
|
state 1146
|
|
|
|
448 data_clause: RENAMES $@46 . variable thru_gname_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 1315
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1147
|
|
|
|
407 sign_is_opt: SIGN is_opt .
|
|
|
|
$default reduce using rule 407 (sign_is_opt)
|
|
|
|
|
|
state 1148
|
|
|
|
442 data_clause: SYNCHRONIZED sync_options .
|
|
|
|
$default reduce using rule 442 (data_clause)
|
|
|
|
|
|
state 1149
|
|
|
|
470 value_is_are: VALUE is_opt .
|
|
|
|
$default reduce using rule 470 (value_is_are)
|
|
|
|
|
|
state 1150
|
|
|
|
471 value_is_are: VALUES are_opt .
|
|
|
|
$default reduce using rule 471 (value_is_are)
|
|
|
|
|
|
state 1151
|
|
|
|
444 data_clause: is_opt EXTERNAL .
|
|
|
|
$default reduce using rule 444 (data_clause)
|
|
|
|
|
|
state 1152
|
|
|
|
445 data_clause: is_opt GLOBAL .
|
|
|
|
$default reduce using rule 445 (data_clause)
|
|
|
|
|
|
state 1153
|
|
|
|
401 sign_clause: sign_is_opt LEADING . separate_opt
|
|
|
|
SEPARATE shift, and go to state 1316
|
|
|
|
$default reduce using rule 404 (separate_opt)
|
|
|
|
separate_opt go to state 1317
|
|
|
|
|
|
state 1154
|
|
|
|
402 sign_clause: sign_is_opt TRAILING . separate_opt
|
|
|
|
SEPARATE shift, and go to state 1316
|
|
|
|
$default reduce using rule 404 (separate_opt)
|
|
|
|
separate_opt go to state 1318
|
|
|
|
|
|
state 1155
|
|
|
|
469 value_option: value_is_are value_list .
|
|
473 value_list: value_list . comma_opt value
|
|
|
|
',' shift, and go to state 190
|
|
|
|
NLITERAL reduce using rule 1212 (comma_opt)
|
|
CLITERAL reduce using rule 1212 (comma_opt)
|
|
'+' reduce using rule 1212 (comma_opt)
|
|
'-' reduce using rule 1212 (comma_opt)
|
|
ALL reduce using rule 1212 (comma_opt)
|
|
HIGHVALUES reduce using rule 1212 (comma_opt)
|
|
LOWVALUES reduce using rule 1212 (comma_opt)
|
|
QUOTES reduce using rule 1212 (comma_opt)
|
|
SPACES reduce using rule 1212 (comma_opt)
|
|
ZERO reduce using rule 1212 (comma_opt)
|
|
$default reduce using rule 469 (value_option)
|
|
|
|
comma_opt go to state 1319
|
|
|
|
|
|
state 1156
|
|
|
|
472 value_list: value .
|
|
|
|
$default reduce using rule 472 (value_list)
|
|
|
|
|
|
state 1157
|
|
|
|
474 value: gliteral .
|
|
475 | gliteral . THRU gliteral
|
|
|
|
THRU shift, and go to state 1320
|
|
|
|
$default reduce using rule 474 (value)
|
|
|
|
|
|
state 1158
|
|
|
|
465 usage_option: usage_opt is_opt . usage
|
|
|
|
USAGENUM shift, and go to state 1321
|
|
DISPLAY shift, and go to state 1322
|
|
POINTER shift, and go to state 1323
|
|
|
|
usage go to state 1324
|
|
|
|
|
|
state 1159
|
|
|
|
194 report_section: RD $@15 STRING $@16 report_controls . PERIOD_TOK $@17 report_description
|
|
196 report_controls: report_controls . report_control
|
|
|
|
IS shift, and go to state 84
|
|
CODE shift, and go to state 1325
|
|
CONTROL shift, and go to state 1326
|
|
CONTROLS shift, and go to state 1327
|
|
PAGE shift, and go to state 1328
|
|
PERIOD_TOK shift, and go to state 1329
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1330
|
|
report_control go to state 1331
|
|
report_controls_control go to state 1332
|
|
report_controls_page go to state 1333
|
|
control_is_are go to state 1334
|
|
|
|
|
|
state 1160
|
|
|
|
325 screen_item: integer def_name_opt $@28 . screen_clauses PERIOD_TOK
|
|
|
|
$default reduce using rule 342 (screen_clauses)
|
|
|
|
screen_clauses go to state 1335
|
|
|
|
|
|
state 1161
|
|
|
|
589 use_phrase_exception_error: STANDARD ERROR_TOK .
|
|
|
|
$default reduce using rule 589 (use_phrase_exception_error)
|
|
|
|
|
|
state 1162
|
|
|
|
588 use_phrase_exception_error: STANDARD EXCEPTION .
|
|
|
|
$default reduce using rule 588 (use_phrase_exception_error)
|
|
|
|
|
|
state 1163
|
|
|
|
584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE . on_opt use_phrase_option PERIOD_TOK
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1336
|
|
|
|
|
|
state 1164
|
|
|
|
900 read_body: name read_next_opt record_opt read_into_opt with_lock_opt . read_key_opt
|
|
901 | name read_next_opt record_opt read_into_opt with_lock_opt . read_key_opt read_at_end_opt
|
|
902 | name read_next_opt record_opt read_into_opt with_lock_opt . read_key_opt read_invalid_key_opt
|
|
|
|
KEY shift, and go to state 1337
|
|
|
|
$default reduce using rule 908 (read_key_opt)
|
|
|
|
read_key_opt go to state 1338
|
|
|
|
|
|
state 1165
|
|
|
|
891 with_lock_opt: with_opt . LOCK
|
|
892 | with_opt . IGNORE LOCK
|
|
|
|
IGNORE shift, and go to state 750
|
|
LOCK shift, and go to state 751
|
|
|
|
|
|
state 1166
|
|
|
|
934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt . end_write_opt
|
|
|
|
END_WRITE shift, and go to state 1339
|
|
|
|
END_WRITE [reduce using rule 940 (end_write_opt)]
|
|
$default reduce using rule 940 (end_write_opt)
|
|
|
|
end_write_opt go to state 1340
|
|
|
|
|
|
state 1167
|
|
|
|
939 write_options: before_after advancing_opt PAGE .
|
|
|
|
$default reduce using rule 939 (write_options)
|
|
|
|
|
|
state 1168
|
|
|
|
938 write_options: before_after advancing_opt gname . line_lines_opt
|
|
|
|
LINE shift, and go to state 1341
|
|
LINES shift, and go to state 1342
|
|
|
|
$default reduce using rule 207 (lines_opt)
|
|
|
|
line_lines_opt go to state 1343
|
|
lines_opt go to state 1344
|
|
|
|
|
|
state 1169
|
|
|
|
830 accept_hardware: ACCEPT name FROM ENVIRONMENT_VARIABLE CLITERAL end_accept_opt .
|
|
|
|
$default reduce using rule 830 (accept_hardware)
|
|
|
|
|
|
state 1170
|
|
|
|
827 accept_hardware: ACCEPT name FROM INPUT STATUS end_accept_opt .
|
|
|
|
$default reduce using rule 827 (accept_hardware)
|
|
|
|
|
|
state 1171
|
|
|
|
858 scr_position: COLUMN number_opt expr .
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 858 (scr_position)
|
|
|
|
|
|
state 1172
|
|
|
|
857 scr_line: LINE number_opt expr .
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 857 (scr_line)
|
|
|
|
|
|
state 1173
|
|
|
|
400 screen_attribx: BACKGROUNDCOLOR integer .
|
|
|
|
$default reduce using rule 400 (screen_attribx)
|
|
|
|
|
|
state 1174
|
|
|
|
376 screen_attribx: BLANK LINE .
|
|
|
|
$default reduce using rule 376 (screen_attribx)
|
|
|
|
|
|
state 1175
|
|
|
|
375 screen_attribx: BLANK SCREEN .
|
|
|
|
$default reduce using rule 375 (screen_attribx)
|
|
|
|
|
|
state 1176
|
|
|
|
393 screen_attribx: BLANK when_opt . ZERO
|
|
|
|
ZERO shift, and go to state 1345
|
|
|
|
|
|
state 1177
|
|
|
|
377 screen_attribx: ERASE EOL .
|
|
|
|
$default reduce using rule 377 (screen_attribx)
|
|
|
|
|
|
state 1178
|
|
|
|
378 screen_attribx: ERASE EOS .
|
|
|
|
$default reduce using rule 378 (screen_attribx)
|
|
|
|
|
|
state 1179
|
|
|
|
399 screen_attribx: FOREGROUNDCOLOR integer .
|
|
|
|
$default reduce using rule 399 (screen_attribx)
|
|
|
|
|
|
state 1180
|
|
|
|
387 screen_attribx: JUSTIFIED LEFT .
|
|
|
|
$default reduce using rule 387 (screen_attribx)
|
|
|
|
|
|
state 1181
|
|
|
|
386 screen_attribx: JUSTIFIED RIGHT .
|
|
|
|
$default reduce using rule 386 (screen_attribx)
|
|
|
|
|
|
state 1182
|
|
|
|
396 screen_attribx: with_opt NO . ADVANCING
|
|
|
|
ADVANCING shift, and go to state 1346
|
|
|
|
|
|
state 1183
|
|
|
|
380 screen_attribx: with_opt BELL .
|
|
|
|
$default reduce using rule 380 (screen_attribx)
|
|
|
|
|
|
state 1184
|
|
|
|
394 screen_attribx: with_opt NOECHO .
|
|
|
|
$default reduce using rule 394 (screen_attribx)
|
|
|
|
|
|
state 1185
|
|
|
|
395 screen_attribx: with_opt UPDATE .
|
|
|
|
$default reduce using rule 395 (screen_attribx)
|
|
|
|
|
|
state 1186
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 . variable @94 statement_list $@95 end_accept_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 1347
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1187
|
|
|
|
795 add_body: CORRESPONDING var_list_gname TO var_list_name rounded_opt . on_size_error_opt
|
|
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1348
|
|
on_opt go to state 987
|
|
|
|
|
|
state 1188
|
|
|
|
998 on_size_error_opt: NOT on_opt . SIZE on_size_error
|
|
|
|
SIZE shift, and go to state 1349
|
|
|
|
|
|
state 1189
|
|
|
|
999 on_size_error_opt: on_opt SIZE . on_size_error
|
|
1001 | on_opt SIZE . on_size_error NOT on_opt SIZE $@115 on_size_error
|
|
|
|
ERROR_TOK shift, and go to state 1350
|
|
|
|
on_size_error go to state 1351
|
|
|
|
|
|
state 1190
|
|
|
|
794 add_body: var_list_gname add_to_opt GIVING var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 794 (add_body)
|
|
|
|
|
|
state 1191
|
|
|
|
1128 returning_options: GIVING . variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 1352
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1192
|
|
|
|
1127 returning_options: RETURNING . variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 1353
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1193
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options . @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
$default reduce using rule 963 (@106)
|
|
|
|
@106 go to state 1354
|
|
|
|
|
|
state 1194
|
|
|
|
1125 using_options: USING @127 dummy . @128 parm_list
|
|
|
|
$default reduce using rule 1124 (@128)
|
|
|
|
@128 go to state 1355
|
|
|
|
|
|
state 1195
|
|
|
|
981 chain_statement: CHAIN $@111 gname using_options @112 @113 . on_exception_or_overflow $@114 end_chain_opt
|
|
|
|
ON shift, and go to state 620
|
|
|
|
EXCEPTION reduce using rule 1235 (on_opt)
|
|
OVERFLOW_TOK reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 1049 (on_exception_or_overflow)
|
|
|
|
on_exception_or_overflow go to state 1356
|
|
on_opt go to state 1357
|
|
|
|
|
|
state 1196
|
|
|
|
949 end_delete_opt: END_DELETE .
|
|
|
|
$default reduce using rule 949 (end_delete_opt)
|
|
|
|
|
|
state 1197
|
|
|
|
947 delete_statement: DELETE name record_opt $@103 invalid_key_opt end_delete_opt .
|
|
|
|
$default reduce using rule 947 (delete_statement)
|
|
|
|
|
|
state 1198
|
|
|
|
850 display_line_options: display_line_options with_opt NO . ADVANCING
|
|
|
|
ADVANCING shift, and go to state 1358
|
|
|
|
|
|
state 1199
|
|
|
|
851 display_line_options: display_line_options with_opt ERASE .
|
|
852 | display_line_options with_opt ERASE . EOS
|
|
853 | display_line_options with_opt ERASE . EOL
|
|
854 | display_line_options with_opt ERASE . SCREEN
|
|
|
|
EOL shift, and go to state 1359
|
|
EOS shift, and go to state 1360
|
|
SCREEN shift, and go to state 1361
|
|
|
|
$default reduce using rule 851 (display_line_options)
|
|
|
|
|
|
state 1200
|
|
|
|
815 divide_body: gname BY gname GIVING var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1362
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1201
|
|
|
|
816 divide_body: gname BY gname GIVING name . rounded_opt REMAINDER name on_size_error_opt
|
|
991 var_list_name: name . rounded_opt sep_opt
|
|
|
|
ROUNDED shift, and go to state 568
|
|
|
|
$default reduce using rule 995 (rounded_opt)
|
|
|
|
rounded_opt go to state 1363
|
|
|
|
|
|
state 1202
|
|
|
|
818 divide_body: gname INTO gname GIVING var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1364
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1203
|
|
|
|
817 divide_body: gname INTO gname GIVING name . rounded_opt REMAINDER name on_size_error_opt
|
|
991 var_list_name: name . rounded_opt sep_opt
|
|
|
|
ROUNDED shift, and go to state 568
|
|
|
|
$default reduce using rule 995 (rounded_opt)
|
|
|
|
rounded_opt go to state 1365
|
|
|
|
|
|
state 1204
|
|
|
|
658 selection_subject_set: selection_subject_set ALSO @65 selection_subject .
|
|
|
|
$default reduce using rule 658 (selection_subject_set)
|
|
|
|
|
|
state 1205
|
|
|
|
665 when_case_list: WHEN @66 . @67 when_case sentence_or_nothing
|
|
|
|
$default reduce using rule 664 (@67)
|
|
|
|
@67 go to state 1366
|
|
|
|
|
|
state 1206
|
|
|
|
653 end_evaluate_or_eos: END_EVALUATE .
|
|
|
|
$default reduce using rule 653 (end_evaluate_or_eos)
|
|
|
|
|
|
state 1207
|
|
|
|
669 when_case_list: when_case_list WHEN . @68 @69 when_case $@70 sentence_or_nothing
|
|
|
|
$default reduce using rule 666 (@68)
|
|
|
|
@68 go to state 1367
|
|
|
|
|
|
state 1208
|
|
|
|
654 end_evaluate_or_eos: PERIOD_TOK .
|
|
|
|
$default reduce using rule 654 (end_evaluate_or_eos)
|
|
|
|
|
|
state 1209
|
|
|
|
652 evaluate_statement: EVALUATE @62 selection_subject_set $@63 when_case_list end_evaluate_or_eos .
|
|
|
|
$default reduce using rule 652 (evaluate_statement)
|
|
|
|
|
|
state 1210
|
|
|
|
957 goto_statement: GO to_opt goto_label_list DEPENDING on_opt variable .
|
|
|
|
$default reduce using rule 957 (goto_statement)
|
|
|
|
|
|
state 1211
|
|
|
|
1283 cond_name: VARCOND '(' $@146 subscripts ')' .
|
|
|
|
$default reduce using rule 1283 (cond_name)
|
|
|
|
|
|
state 1212
|
|
|
|
1201 extended_cond_op: IS ext_cond OR ext_cond .
|
|
|
|
$default reduce using rule 1201 (extended_cond_op)
|
|
|
|
|
|
state 1213
|
|
|
|
1209 cond_op: NOT conditional .
|
|
|
|
$default reduce using rule 1209 (cond_op)
|
|
|
|
|
|
state 1214
|
|
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
1190 implied_op_condition: cond_op expr .
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 1190 (implied_op_condition)
|
|
|
|
|
|
state 1215
|
|
|
|
1210 cond_op: conditional OR . conditional
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
|
|
conditional go to state 1368
|
|
|
|
|
|
state 1216
|
|
|
|
780 initialize_replacing_list: initialize_type_list data_opt BY . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1369
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1217
|
|
|
|
1088 converting_clause: CONVERTING noallname TO noallname . inspect_before_after
|
|
|
|
$default reduce using rule 1110 (inspect_before_after)
|
|
|
|
inspect_before_after go to state 1370
|
|
|
|
|
|
state 1218
|
|
|
|
1091 tallying_list: tallying_list name FOR . tallying_for_list
|
|
|
|
$default reduce using rule 1096 (tallying_for_list)
|
|
|
|
tallying_for_list go to state 1371
|
|
|
|
|
|
state 1219
|
|
|
|
1097 replacing_clause: REPLACING replacing_list .
|
|
1099 replacing_list: replacing_list . CHARACTERS BY noallname inspect_before_after
|
|
1100 | replacing_list . replacing_kind replacing_by_list
|
|
|
|
ALL shift, and go to state 1372
|
|
CHARACTERS shift, and go to state 1373
|
|
FIRST shift, and go to state 1374
|
|
LEADING shift, and go to state 1375
|
|
TRAILING shift, and go to state 1376
|
|
|
|
$default reduce using rule 1097 (replacing_clause)
|
|
|
|
replacing_kind go to state 1377
|
|
|
|
|
|
state 1220
|
|
|
|
740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 . merge_using $@88 sort_output
|
|
|
|
USING shift, and go to state 1378
|
|
|
|
merge_using go to state 1379
|
|
|
|
|
|
state 1221
|
|
|
|
754 sort_key: on_opt DIRECTION key_opt sort_keys_names .
|
|
757 sort_keys_names: sort_keys_names . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 754 (sort_key)
|
|
|
|
name go to state 1380
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1222
|
|
|
|
756 sort_keys_names: name .
|
|
|
|
$default reduce using rule 756 (sort_keys_names)
|
|
|
|
|
|
state 1223
|
|
|
|
772 move_statement: MOVE LENGTH OF gname TO name_var .
|
|
|
|
$default reduce using rule 772 (move_statement)
|
|
|
|
|
|
state 1224
|
|
|
|
1242 name_var_list: name_var_list sep_opt name_var .
|
|
|
|
$default reduce using rule 1242 (name_var_list)
|
|
|
|
|
|
state 1225
|
|
|
|
809 multiply_body: gname BY gname GIVING var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1381
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1226
|
|
|
|
1151 perform_options: with_test_opt UNTIL @131 condition @132 . perform_statements $@133 END_PERFORM
|
|
|
|
$default reduce using rule 1176 ($@141)
|
|
|
|
perform_statements go to state 1382
|
|
$@141 go to state 450
|
|
|
|
|
|
state 1227
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname . by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
BY shift, and go to state 854
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
by_opt go to state 1383
|
|
|
|
|
|
state 1228
|
|
|
|
1147 perform_options: gname TIMES @129 perform_statements $@130 . END_PERFORM
|
|
|
|
END_PERFORM shift, and go to state 1384
|
|
|
|
|
|
state 1229
|
|
|
|
1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 . condition
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 1385
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1230
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name . FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
FROM shift, and go to state 1386
|
|
|
|
|
|
state 1231
|
|
|
|
910 read_at_end_opt: NOT at_opt . on_end
|
|
|
|
END shift, and go to state 1050
|
|
|
|
on_end go to state 1387
|
|
|
|
|
|
state 1232
|
|
|
|
911 read_at_end_opt: AT on_end .
|
|
914 | AT on_end . NOT at_opt $@96 on_end
|
|
|
|
NOT shift, and go to state 1388
|
|
|
|
NOT [reduce using rule 911 (read_at_end_opt)]
|
|
$default reduce using rule 911 (read_at_end_opt)
|
|
|
|
|
|
state 1233
|
|
|
|
918 on_end: END @98 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1389
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1234
|
|
|
|
916 read_at_end_opt: on_end NOT . at_opt $@97 on_end
|
|
|
|
AT shift, and go to state 1054
|
|
|
|
$default reduce using rule 1225 (at_opt)
|
|
|
|
at_opt go to state 1390
|
|
|
|
|
|
state 1235
|
|
|
|
945 end_rewrite_opt: END_REWRITE .
|
|
|
|
$default reduce using rule 945 (end_rewrite_opt)
|
|
|
|
|
|
state 1236
|
|
|
|
943 rewrite_statement: REWRITE name write_from_opt $@102 invalid_key_opt end_rewrite_opt .
|
|
|
|
$default reduce using rule 943 (rewrite_statement)
|
|
|
|
|
|
state 1237
|
|
|
|
701 search_all: variable_indexed @79 search_at_end $@80 . search_all_when_list
|
|
|
|
WHEN shift, and go to state 1391
|
|
|
|
search_all_when_list go to state 1392
|
|
search_all_when go to state 1393
|
|
|
|
|
|
state 1238
|
|
|
|
705 search_at_end: at_opt END . @81 statement_list
|
|
|
|
$default reduce using rule 704 (@81)
|
|
|
|
@81 go to state 1394
|
|
|
|
|
|
state 1239
|
|
|
|
698 search: variable_indexed @76 search_varying_opt @77 search_at_end . @78 search_when_list
|
|
|
|
$default reduce using rule 697 (@78)
|
|
|
|
@78 go to state 1395
|
|
|
|
|
|
state 1240
|
|
|
|
1018 set_variable: NULL_TOK .
|
|
|
|
$default reduce using rule 1018 (set_variable)
|
|
|
|
|
|
state 1241
|
|
|
|
1014 set_list: address_of_opt variable TO address_of_opt set_variable .
|
|
|
|
$default reduce using rule 1014 (set_list)
|
|
|
|
|
|
state 1242
|
|
|
|
1017 set_variable: variable .
|
|
|
|
$default reduce using rule 1017 (set_variable)
|
|
|
|
|
|
state 1243
|
|
|
|
749 sort_variable_indexed: SORT variable_indexed sort_keys_idx $@92 sort_duplicates_opt sort_collating_opt .
|
|
|
|
$default reduce using rule 749 (sort_variable_indexed)
|
|
|
|
|
|
state 1244
|
|
|
|
761 sort_duplicates_opt: with_opt DUPLICATES . in_opt order_opt
|
|
|
|
IN shift, and go to state 1396
|
|
|
|
$default reduce using rule 1227 (in_opt)
|
|
|
|
in_opt go to state 1397
|
|
|
|
|
|
state 1245
|
|
|
|
755 sort_key_idx: on_opt DIRECTION key_opt sort_keys_names_idx .
|
|
759 sort_keys_names_idx: sort_keys_names_idx . variable_indexed
|
|
|
|
SUBSCVAR shift, and go to state 459
|
|
|
|
$default reduce using rule 755 (sort_key_idx)
|
|
|
|
variable_indexed go to state 1398
|
|
|
|
|
|
state 1246
|
|
|
|
758 sort_keys_names_idx: variable_indexed .
|
|
|
|
$default reduce using rule 758 (sort_keys_names_idx)
|
|
|
|
|
|
state 1247
|
|
|
|
747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt . $@90 sort_input $@91 sort_output
|
|
|
|
$default reduce using rule 745 ($@90)
|
|
|
|
$@90 go to state 1399
|
|
|
|
|
|
state 1248
|
|
|
|
1066 invalid_key_sentence: INVALID key_opt @124 statement_list .
|
|
|
|
$default reduce using rule 1066 (invalid_key_sentence)
|
|
|
|
|
|
state 1249
|
|
|
|
1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1400
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1250
|
|
|
|
953 start_body: name KEY is_opt cond_op name .
|
|
|
|
$default reduce using rule 953 (start_body)
|
|
|
|
|
|
state 1251
|
|
|
|
1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 . on_overflow_opt end_stringcmd_opt
|
|
|
|
$default reduce using rule 1045 ($@119)
|
|
|
|
on_overflow_opt go to state 1401
|
|
$@119 go to state 1402
|
|
|
|
|
|
state 1252
|
|
|
|
1071 string_with_pointer: with_opt POINTER . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1403
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1253
|
|
|
|
804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name rounded_opt . on_size_error_opt
|
|
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1404
|
|
on_opt go to state 987
|
|
|
|
|
|
state 1254
|
|
|
|
803 subtract_body: var_list_gname FROM gname GIVING var_list_name . on_size_error_opt
|
|
992 var_list_name: var_list_name . name rounded_opt sep_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1405
|
|
on_opt go to state 987
|
|
name go to state 567
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1255
|
|
|
|
1033 unstring_delimited_vars: unstring_delimited_vars OR . all_opt gname
|
|
|
|
ALL shift, and go to state 1092
|
|
|
|
ALL [reduce using rule 1043 (all_opt)]
|
|
$default reduce using rule 1043 (all_opt)
|
|
|
|
all_opt go to state 1406
|
|
|
|
|
|
state 1256
|
|
|
|
1032 unstring_delimited_vars: all_opt gname .
|
|
|
|
$default reduce using rule 1032 (unstring_delimited_vars)
|
|
|
|
|
|
state 1257
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer . unstring_tallying $@118 on_overflow_opt end_unstring_opt
|
|
|
|
TALLYING shift, and go to state 1407
|
|
|
|
$default reduce using rule 1041 (unstring_tallying)
|
|
|
|
unstring_tallying go to state 1408
|
|
|
|
|
|
state 1258
|
|
|
|
1035 unstring_destinations: unstring_destinations sep_opt . unstring_dest_var
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
unstring_dest_var go to state 1409
|
|
name go to state 1097
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1259
|
|
|
|
1038 unstring_delim_opt: DELIMITER . in_opt name
|
|
|
|
IN shift, and go to state 1396
|
|
|
|
$default reduce using rule 1227 (in_opt)
|
|
|
|
in_opt go to state 1410
|
|
|
|
|
|
state 1260
|
|
|
|
1036 unstring_dest_var: name unstring_delim_opt . unstring_count_opt
|
|
|
|
COUNT shift, and go to state 1411
|
|
|
|
$default reduce using rule 1039 (unstring_count_opt)
|
|
|
|
unstring_count_opt go to state 1412
|
|
|
|
|
|
state 1261
|
|
|
|
647 if_statement: if_part ELSE @60 conditional_statement $@61 end_if_opt .
|
|
|
|
$default reduce using rule 647 (if_statement)
|
|
|
|
|
|
state 1262
|
|
|
|
688 conditional_statement: $@75 NEXT SENTENCE .
|
|
|
|
$default reduce using rule 688 (conditional_statement)
|
|
|
|
|
|
state 1263
|
|
|
|
75 switch_on_opt: ON status_opt is_opt . STRING
|
|
|
|
STRING shift, and go to state 1413
|
|
|
|
|
|
state 1264
|
|
|
|
77 switch_off_opt: OFF status_opt . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1414
|
|
|
|
|
|
state 1265
|
|
|
|
108 select_clause: ACCESS mode_opt is_opt . access_options
|
|
|
|
STRING shift, and go to state 1280
|
|
LABELSTR shift, and go to state 1281
|
|
DYNAMIC shift, and go to state 1415
|
|
RANDOM shift, and go to state 1416
|
|
SEQUENTIAL shift, and go to state 1417
|
|
|
|
access_options go to state 1418
|
|
anystring go to state 1419
|
|
|
|
|
|
state 1266
|
|
|
|
112 select_clause: ALTERNATE RECORD key_opt . is_opt STRING with_duplicates
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1420
|
|
|
|
|
|
state 1267
|
|
|
|
123 assign_clause: error .
|
|
|
|
$default reduce using rule 123 (assign_clause)
|
|
|
|
|
|
state 1268
|
|
|
|
1279 filename: STRING .
|
|
|
|
$default reduce using rule 1279 (filename)
|
|
|
|
|
|
state 1269
|
|
|
|
119 assign_clause: PORTNUM .
|
|
121 | PORTNUM . filename
|
|
|
|
STRING shift, and go to state 1268
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
STRING [reduce using rule 119 (assign_clause)]
|
|
$default reduce using rule 119 (assign_clause)
|
|
|
|
literal go to state 1272
|
|
signed_nliteral go to state 77
|
|
filename go to state 1421
|
|
|
|
|
|
state 1270
|
|
|
|
122 assign_clause: EXTERNAL . filename
|
|
|
|
STRING shift, and go to state 1268
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1272
|
|
signed_nliteral go to state 77
|
|
filename go to state 1422
|
|
|
|
|
|
state 1271
|
|
|
|
107 select_clause: ASSIGN to_opt assign_clause .
|
|
|
|
$default reduce using rule 107 (select_clause)
|
|
|
|
|
|
state 1272
|
|
|
|
1278 filename: literal .
|
|
|
|
$default reduce using rule 1278 (filename)
|
|
|
|
|
|
state 1273
|
|
|
|
120 assign_clause: filename .
|
|
|
|
$default reduce using rule 120 (assign_clause)
|
|
|
|
|
|
state 1274
|
|
|
|
110 select_clause: RECORD key_opt is_opt . STRING
|
|
|
|
STRING shift, and go to state 1423
|
|
|
|
|
|
state 1275
|
|
|
|
111 select_clause: RELATIVE key_opt is_opt . STRING
|
|
|
|
STRING shift, and go to state 1424
|
|
|
|
|
|
state 1276
|
|
|
|
128 areas_opt: AREA .
|
|
|
|
$default reduce using rule 128 (areas_opt)
|
|
|
|
|
|
state 1277
|
|
|
|
129 areas_opt: AREAS .
|
|
|
|
$default reduce using rule 129 (areas_opt)
|
|
|
|
|
|
state 1278
|
|
|
|
113 select_clause: RESERVE NLITERAL areas_opt .
|
|
|
|
$default reduce using rule 113 (select_clause)
|
|
|
|
|
|
state 1279
|
|
|
|
109 select_clause: file_opt STATUS is_opt . STRING
|
|
|
|
STRING shift, and go to state 1425
|
|
|
|
|
|
state 1280
|
|
|
|
1307 anystring: STRING .
|
|
|
|
$default reduce using rule 1307 (anystring)
|
|
|
|
|
|
state 1281
|
|
|
|
1308 anystring: LABELSTR .
|
|
|
|
$default reduce using rule 1308 (anystring)
|
|
|
|
|
|
state 1282
|
|
|
|
137 organization_options: INDEXED .
|
|
|
|
$default reduce using rule 137 (organization_options)
|
|
|
|
|
|
state 1283
|
|
|
|
140 organization_options: LINE . SEQUENTIAL
|
|
|
|
SEQUENTIAL shift, and go to state 1426
|
|
|
|
|
|
state 1284
|
|
|
|
139 organization_options: RELATIVE .
|
|
|
|
$default reduce using rule 139 (organization_options)
|
|
|
|
|
|
state 1285
|
|
|
|
138 organization_options: SEQUENTIAL .
|
|
|
|
$default reduce using rule 138 (organization_options)
|
|
|
|
|
|
state 1286
|
|
|
|
106 select_clause: organization_opt is_opt organization_options .
|
|
|
|
$default reduce using rule 106 (select_clause)
|
|
|
|
|
|
state 1287
|
|
|
|
141 organization_options: anystring .
|
|
|
|
$default reduce using rule 141 (organization_options)
|
|
|
|
|
|
state 1288
|
|
|
|
162 i_o_control_multiple_file_position_opt: POSITION integer .
|
|
|
|
$default reduce using rule 162 (i_o_control_multiple_file_position_opt)
|
|
|
|
|
|
state 1289
|
|
|
|
499 file_description_clause_block: BLOCK contains_opt integer . to_integer_opt chars_or_recs_opt
|
|
|
|
TO shift, and go to state 1427
|
|
|
|
$default reduce using rule 525 (to_integer_opt)
|
|
|
|
to_integer_opt go to state 1428
|
|
|
|
|
|
state 1290
|
|
|
|
506 file_description_clause_code_set: CODE_SET is_opt STRING .
|
|
|
|
$default reduce using rule 506 (file_description_clause_code_set)
|
|
|
|
|
|
state 1291
|
|
|
|
535 record_is_are: RECORD is_opt .
|
|
|
|
$default reduce using rule 535 (record_is_are)
|
|
|
|
|
|
state 1292
|
|
|
|
536 record_is_are: RECORDS are_opt .
|
|
|
|
$default reduce using rule 536 (record_is_are)
|
|
|
|
|
|
state 1293
|
|
|
|
520 var_strings: STRING .
|
|
|
|
$default reduce using rule 520 (var_strings)
|
|
|
|
|
|
state 1294
|
|
|
|
504 file_description_clause_data: DATA record_is_are var_strings .
|
|
521 var_strings: var_strings . STRING
|
|
|
|
STRING shift, and go to state 1429
|
|
|
|
$default reduce using rule 504 (file_description_clause_data)
|
|
|
|
|
|
state 1295
|
|
|
|
538 std_or_omitt: OMITTED .
|
|
|
|
$default reduce using rule 538 (std_or_omitt)
|
|
|
|
|
|
state 1296
|
|
|
|
537 std_or_omitt: STANDARD .
|
|
|
|
$default reduce using rule 537 (std_or_omitt)
|
|
|
|
|
|
state 1297
|
|
|
|
502 file_description_clause_label: LABEL record_is_are std_or_omitt .
|
|
|
|
$default reduce using rule 502 (file_description_clause_label)
|
|
|
|
|
|
state 1298
|
|
|
|
1281 data_name: STRING .
|
|
|
|
$default reduce using rule 1281 (data_name)
|
|
|
|
|
|
state 1299
|
|
|
|
1280 data_name: literal .
|
|
|
|
$default reduce using rule 1280 (data_name)
|
|
|
|
|
|
state 1300
|
|
|
|
507 file_description_clause_linage: LINAGE is_opt data_name . lines_opt file_description_clause_linage_footing file_description_clause_linage_top file_description_clause_linage_bottom
|
|
|
|
LINES shift, and go to state 1342
|
|
|
|
LINES [reduce using rule 207 (lines_opt)]
|
|
$default reduce using rule 207 (lines_opt)
|
|
|
|
lines_opt go to state 1430
|
|
|
|
|
|
state 1301
|
|
|
|
501 file_description_clause_record: RECORD is_opt VARYING . in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying
|
|
|
|
IN shift, and go to state 1396
|
|
|
|
$default reduce using rule 1227 (in_opt)
|
|
|
|
in_opt go to state 1431
|
|
|
|
|
|
state 1302
|
|
|
|
500 file_description_clause_record: RECORD contains_opt integer . to_rec_varying character_opts
|
|
|
|
TO shift, and go to state 1432
|
|
|
|
$default reduce using rule 533 (to_rec_varying)
|
|
|
|
to_rec_varying go to state 1433
|
|
|
|
|
|
state 1303
|
|
|
|
503 file_description_clause_value: VALUE OF FILE_ID . is_opt filename
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1434
|
|
|
|
|
|
state 1304
|
|
|
|
419 file_section: file_section FD $@38 STRING $@39 file_description_fd_clauses PERIOD_TOK $@40 file_description .
|
|
427 file_description: file_description . field_description
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
$default reduce using rule 419 (file_section)
|
|
|
|
field_description go to state 1435
|
|
signed_nliteral go to state 234
|
|
integer go to state 235
|
|
|
|
|
|
state 1305
|
|
|
|
426 file_description: field_description .
|
|
|
|
$default reduce using rule 426 (file_description)
|
|
|
|
|
|
state 1306
|
|
|
|
423 file_section: file_section SD $@41 STRING $@42 file_description_sd_clauses PERIOD_TOK $@43 file_description .
|
|
427 file_description: file_description . field_description
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
$default reduce using rule 423 (file_section)
|
|
|
|
field_description go to state 1435
|
|
signed_nliteral go to state 234
|
|
integer go to state 235
|
|
|
|
|
|
state 1307
|
|
|
|
446 data_clause: BLANK when_opt ZERO .
|
|
|
|
$default reduce using rule 446 (data_clause)
|
|
|
|
|
|
state 1308
|
|
|
|
458 array_options: OCCURS integer TO . integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1436
|
|
|
|
|
|
state 1309
|
|
|
|
542 times_opt: TIMES .
|
|
|
|
$default reduce using rule 542 (times_opt)
|
|
|
|
|
|
state 1310
|
|
|
|
455 array_options: OCCURS integer times_opt . $@47 indexed_by_opt
|
|
|
|
$default reduce using rule 454 ($@47)
|
|
|
|
$@47 go to state 1437
|
|
|
|
|
|
state 1311
|
|
|
|
477 pictures: PICTURE $@50 is_opt . picture
|
|
|
|
$default reduce using rule 478 (picture)
|
|
|
|
picture go to state 1438
|
|
|
|
|
|
state 1312
|
|
|
|
435 redefines_var: VARIABLE .
|
|
|
|
$default reduce using rule 435 (redefines_var)
|
|
|
|
|
|
state 1313
|
|
|
|
436 redefines_var: SUBSCVAR .
|
|
|
|
$default reduce using rule 436 (redefines_var)
|
|
|
|
|
|
state 1314
|
|
|
|
434 redefines_clause: REDEFINES $@45 redefines_var .
|
|
|
|
$default reduce using rule 434 (redefines_clause)
|
|
|
|
|
|
state 1315
|
|
|
|
448 data_clause: RENAMES $@46 variable . thru_gname_opt
|
|
|
|
THRU shift, and go to state 1439
|
|
|
|
$default reduce using rule 452 (thru_gname_opt)
|
|
|
|
thru_gname_opt go to state 1440
|
|
|
|
|
|
state 1316
|
|
|
|
403 separate_opt: SEPARATE . character_opt
|
|
|
|
CHARACTER shift, and go to state 1441
|
|
|
|
$default reduce using rule 406 (character_opt)
|
|
|
|
character_opt go to state 1442
|
|
|
|
|
|
state 1317
|
|
|
|
401 sign_clause: sign_is_opt LEADING separate_opt .
|
|
|
|
$default reduce using rule 401 (sign_clause)
|
|
|
|
|
|
state 1318
|
|
|
|
402 sign_clause: sign_is_opt TRAILING separate_opt .
|
|
|
|
$default reduce using rule 402 (sign_clause)
|
|
|
|
|
|
state 1319
|
|
|
|
473 value_list: value_list comma_opt . value
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
value go to state 1443
|
|
gliteral go to state 1157
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 1320
|
|
|
|
475 value: gliteral THRU . gliteral
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gliteral go to state 1444
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 1321
|
|
|
|
466 usage: USAGENUM .
|
|
|
|
$default reduce using rule 466 (usage)
|
|
|
|
|
|
state 1322
|
|
|
|
467 usage: DISPLAY .
|
|
|
|
$default reduce using rule 467 (usage)
|
|
|
|
|
|
state 1323
|
|
|
|
468 usage: POINTER .
|
|
|
|
$default reduce using rule 468 (usage)
|
|
|
|
|
|
state 1324
|
|
|
|
465 usage_option: usage_opt is_opt usage .
|
|
|
|
$default reduce using rule 465 (usage_option)
|
|
|
|
|
|
state 1325
|
|
|
|
198 report_control: CODE . gliteral
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gliteral go to state 1445
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 1326
|
|
|
|
209 control_is_are: CONTROL . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
IS [reduce using rule 132 (is_opt)]
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1446
|
|
|
|
|
|
state 1327
|
|
|
|
210 control_is_are: CONTROLS . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1447
|
|
|
|
|
|
state 1328
|
|
|
|
202 report_controls_page: PAGE . limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt
|
|
|
|
LIMIT shift, and go to state 1448
|
|
LIMITS shift, and go to state 1449
|
|
|
|
$default reduce using rule 211 (limit_is_are_opt)
|
|
|
|
limit_is_are_opt go to state 1450
|
|
|
|
|
|
state 1329
|
|
|
|
194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK . $@17 report_description
|
|
|
|
$default reduce using rule 193 ($@17)
|
|
|
|
$@17 go to state 1451
|
|
|
|
|
|
state 1330
|
|
|
|
197 report_control: is_opt . GLOBAL
|
|
|
|
GLOBAL shift, and go to state 1452
|
|
|
|
|
|
state 1331
|
|
|
|
196 report_controls: report_controls report_control .
|
|
|
|
$default reduce using rule 196 (report_controls)
|
|
|
|
|
|
state 1332
|
|
|
|
199 report_control: report_controls_control .
|
|
|
|
$default reduce using rule 199 (report_control)
|
|
|
|
|
|
state 1333
|
|
|
|
200 report_control: report_controls_page .
|
|
|
|
$default reduce using rule 200 (report_control)
|
|
|
|
|
|
state 1334
|
|
|
|
201 report_controls_control: control_is_are . final_opt report_break_list
|
|
|
|
FINAL shift, and go to state 1453
|
|
|
|
$default reduce using rule 220 (final_opt)
|
|
|
|
final_opt go to state 1454
|
|
|
|
|
|
state 1335
|
|
|
|
325 screen_item: integer def_name_opt $@28 screen_clauses . PERIOD_TOK
|
|
327 screen_clauses: screen_clauses . LINE $@29 number_is_opt plus_minus_opt name_or_lit
|
|
329 | screen_clauses . COLUMN $@30 number_is_opt plus_minus_opt name_or_lit
|
|
330 | screen_clauses . with_opt screen_attrib
|
|
332 | screen_clauses . with_opt FOREGROUNDCOLOR $@31 name_or_lit
|
|
334 | screen_clauses . with_opt BACKGROUNDCOLOR $@32 name_or_lit
|
|
336 | screen_clauses . with_opt COLOR $@33 name_or_lit
|
|
337 | screen_clauses . screen_source_destination
|
|
338 | screen_clauses . value_is_are gliteral
|
|
339 | screen_clauses . pictures
|
|
341 | screen_clauses . SIZE $@34 name_or_lit
|
|
|
|
TO shift, and go to state 1455
|
|
COLUMN shift, and go to state 1456
|
|
FROM shift, and go to state 1457
|
|
LINE shift, and go to state 1458
|
|
PICTURE shift, and go to state 918
|
|
SIZE shift, and go to state 1459
|
|
USING shift, and go to state 1460
|
|
VALUE shift, and go to state 924
|
|
VALUES shift, and go to state 925
|
|
WITH shift, and go to state 358
|
|
PERIOD_TOK shift, and go to state 1461
|
|
|
|
WITH [reduce using rule 1233 (with_opt)]
|
|
$default reduce using rule 1233 (with_opt)
|
|
|
|
screen_source_destination go to state 1462
|
|
value_is_are go to state 1463
|
|
pictures go to state 1464
|
|
with_opt go to state 1465
|
|
|
|
|
|
state 1336
|
|
|
|
584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt . use_phrase_option PERIOD_TOK
|
|
|
|
error shift, and go to state 438
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
EXTEND shift, and go to state 439
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
INPUT shift, and go to state 440
|
|
I_O shift, and go to state 441
|
|
LOWVALUES shift, and go to state 66
|
|
OUTPUT shift, and go to state 442
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
use_phrase_option go to state 1466
|
|
open_mode go to state 1467
|
|
gname_list go to state 1468
|
|
gname go to state 71
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1337
|
|
|
|
909 read_key_opt: KEY . is_opt name
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1469
|
|
|
|
|
|
state 1338
|
|
|
|
900 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt .
|
|
901 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt . read_at_end_opt
|
|
902 | name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt . read_invalid_key_opt
|
|
|
|
NOT shift, and go to state 1470
|
|
AT shift, and go to state 1049
|
|
END shift, and go to state 1050
|
|
INVALID shift, and go to state 1471
|
|
|
|
NOT [reduce using rule 900 (read_body)]
|
|
$default reduce using rule 900 (read_body)
|
|
|
|
read_at_end_opt go to state 1472
|
|
on_end go to state 1052
|
|
read_invalid_key_opt go to state 1473
|
|
read_invalid_key go to state 1474
|
|
read_not_invalid_key go to state 1475
|
|
|
|
|
|
state 1339
|
|
|
|
941 end_write_opt: END_WRITE .
|
|
|
|
$default reduce using rule 941 (end_write_opt)
|
|
|
|
|
|
state 1340
|
|
|
|
934 write_statement: WRITE name write_from_opt write_options $@101 invalid_key_opt end_write_opt .
|
|
|
|
$default reduce using rule 934 (write_statement)
|
|
|
|
|
|
state 1341
|
|
|
|
206 line_lines_opt: LINE .
|
|
|
|
$default reduce using rule 206 (line_lines_opt)
|
|
|
|
|
|
state 1342
|
|
|
|
208 lines_opt: LINES .
|
|
|
|
$default reduce using rule 208 (lines_opt)
|
|
|
|
|
|
state 1343
|
|
|
|
938 write_options: before_after advancing_opt gname line_lines_opt .
|
|
|
|
$default reduce using rule 938 (write_options)
|
|
|
|
|
|
state 1344
|
|
|
|
205 line_lines_opt: lines_opt .
|
|
|
|
$default reduce using rule 205 (line_lines_opt)
|
|
|
|
|
|
state 1345
|
|
|
|
393 screen_attribx: BLANK when_opt ZERO .
|
|
|
|
$default reduce using rule 393 (screen_attribx)
|
|
|
|
|
|
state 1346
|
|
|
|
396 screen_attribx: with_opt NO ADVANCING .
|
|
|
|
$default reduce using rule 396 (screen_attribx)
|
|
|
|
|
|
state 1347
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable . @94 statement_list $@95 end_accept_opt
|
|
|
|
$default reduce using rule 834 (@94)
|
|
|
|
@94 go to state 1476
|
|
|
|
|
|
state 1348
|
|
|
|
795 add_body: CORRESPONDING var_list_gname TO var_list_name rounded_opt on_size_error_opt .
|
|
|
|
$default reduce using rule 795 (add_body)
|
|
|
|
|
|
state 1349
|
|
|
|
998 on_size_error_opt: NOT on_opt SIZE . on_size_error
|
|
|
|
ERROR_TOK shift, and go to state 1350
|
|
|
|
on_size_error go to state 1477
|
|
|
|
|
|
state 1350
|
|
|
|
1003 on_size_error: ERROR_TOK . @116 statement_list
|
|
|
|
$default reduce using rule 1002 (@116)
|
|
|
|
@116 go to state 1478
|
|
|
|
|
|
state 1351
|
|
|
|
999 on_size_error_opt: on_opt SIZE on_size_error .
|
|
1001 | on_opt SIZE on_size_error . NOT on_opt SIZE $@115 on_size_error
|
|
|
|
NOT shift, and go to state 1479
|
|
|
|
NOT [reduce using rule 999 (on_size_error_opt)]
|
|
$default reduce using rule 999 (on_size_error_opt)
|
|
|
|
|
|
state 1352
|
|
|
|
1128 returning_options: GIVING variable .
|
|
|
|
$default reduce using rule 1128 (returning_options)
|
|
|
|
|
|
state 1353
|
|
|
|
1127 returning_options: RETURNING variable .
|
|
|
|
$default reduce using rule 1127 (returning_options)
|
|
|
|
|
|
state 1354
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 . @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
$default reduce using rule 964 (@107)
|
|
|
|
@107 go to state 1480
|
|
|
|
|
|
state 1355
|
|
|
|
1125 using_options: USING @127 dummy @128 . parm_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
BY shift, and go to state 854
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
parm_list go to state 1481
|
|
parameter go to state 1482
|
|
by_opt go to state 1483
|
|
gname go to state 1484
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1356
|
|
|
|
981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow . $@114 end_chain_opt
|
|
|
|
$default reduce using rule 980 ($@114)
|
|
|
|
$@114 go to state 1485
|
|
|
|
|
|
state 1357
|
|
|
|
1048 on_exception_or_overflow: on_opt . exception_or_overflow @120 statement_list
|
|
|
|
EXCEPTION shift, and go to state 1486
|
|
OVERFLOW_TOK shift, and go to state 1487
|
|
|
|
exception_or_overflow go to state 1488
|
|
|
|
|
|
state 1358
|
|
|
|
850 display_line_options: display_line_options with_opt NO ADVANCING .
|
|
|
|
$default reduce using rule 850 (display_line_options)
|
|
|
|
|
|
state 1359
|
|
|
|
853 display_line_options: display_line_options with_opt ERASE EOL .
|
|
|
|
$default reduce using rule 853 (display_line_options)
|
|
|
|
|
|
state 1360
|
|
|
|
852 display_line_options: display_line_options with_opt ERASE EOS .
|
|
|
|
$default reduce using rule 852 (display_line_options)
|
|
|
|
|
|
state 1361
|
|
|
|
854 display_line_options: display_line_options with_opt ERASE SCREEN .
|
|
|
|
$default reduce using rule 854 (display_line_options)
|
|
|
|
|
|
state 1362
|
|
|
|
815 divide_body: gname BY gname GIVING var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 815 (divide_body)
|
|
|
|
|
|
state 1363
|
|
|
|
816 divide_body: gname BY gname GIVING name rounded_opt . REMAINDER name on_size_error_opt
|
|
991 var_list_name: name rounded_opt . sep_opt
|
|
|
|
LISTSEP shift, and go to state 98
|
|
REMAINDER shift, and go to state 1489
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 755
|
|
|
|
|
|
state 1364
|
|
|
|
818 divide_body: gname INTO gname GIVING var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 818 (divide_body)
|
|
|
|
|
|
state 1365
|
|
|
|
817 divide_body: gname INTO gname GIVING name rounded_opt . REMAINDER name on_size_error_opt
|
|
991 var_list_name: name rounded_opt . sep_opt
|
|
|
|
LISTSEP shift, and go to state 98
|
|
REMAINDER shift, and go to state 1490
|
|
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 755
|
|
|
|
|
|
state 1366
|
|
|
|
665 when_case_list: WHEN @66 @67 . when_case sentence_or_nothing
|
|
|
|
OTHER shift, and go to state 1491
|
|
|
|
$default reduce using rule 670 (@71)
|
|
|
|
when_case go to state 1492
|
|
@71 go to state 1493
|
|
|
|
|
|
state 1367
|
|
|
|
669 when_case_list: when_case_list WHEN @68 . @69 when_case $@70 sentence_or_nothing
|
|
|
|
$default reduce using rule 667 (@69)
|
|
|
|
@69 go to state 1494
|
|
|
|
|
|
state 1368
|
|
|
|
1210 cond_op: conditional OR conditional .
|
|
|
|
$default reduce using rule 1210 (cond_op)
|
|
|
|
|
|
state 1369
|
|
|
|
780 initialize_replacing_list: initialize_type_list data_opt BY gname .
|
|
|
|
$default reduce using rule 780 (initialize_replacing_list)
|
|
|
|
|
|
state 1370
|
|
|
|
1088 converting_clause: CONVERTING noallname TO noallname inspect_before_after .
|
|
1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname
|
|
1109 | inspect_before_after . AFTER initial_opt noallname
|
|
|
|
AFTER shift, and go to state 1495
|
|
BEFORE shift, and go to state 1496
|
|
|
|
$default reduce using rule 1088 (converting_clause)
|
|
|
|
|
|
state 1371
|
|
|
|
1091 tallying_list: tallying_list name FOR tallying_for_list .
|
|
1093 tallying_for_list: tallying_for_list . CHARACTERS inspect_before_after
|
|
1094 | tallying_for_list . ALL noallname inspect_before_after
|
|
1095 | tallying_for_list . LEADING noallname inspect_before_after
|
|
|
|
ALL shift, and go to state 1497
|
|
CHARACTERS shift, and go to state 1498
|
|
LEADING shift, and go to state 1499
|
|
|
|
$default reduce using rule 1091 (tallying_list)
|
|
|
|
|
|
state 1372
|
|
|
|
1104 replacing_kind: ALL .
|
|
|
|
$default reduce using rule 1104 (replacing_kind)
|
|
|
|
|
|
state 1373
|
|
|
|
1099 replacing_list: replacing_list CHARACTERS . BY noallname inspect_before_after
|
|
|
|
BY shift, and go to state 1500
|
|
|
|
|
|
state 1374
|
|
|
|
1107 replacing_kind: FIRST .
|
|
|
|
$default reduce using rule 1107 (replacing_kind)
|
|
|
|
|
|
state 1375
|
|
|
|
1105 replacing_kind: LEADING .
|
|
|
|
$default reduce using rule 1105 (replacing_kind)
|
|
|
|
|
|
state 1376
|
|
|
|
1106 replacing_kind: TRAILING .
|
|
|
|
$default reduce using rule 1106 (replacing_kind)
|
|
|
|
|
|
state 1377
|
|
|
|
1100 replacing_list: replacing_list replacing_kind . replacing_by_list
|
|
|
|
$default reduce using rule 1103 (replacing_by_list)
|
|
|
|
replacing_by_list go to state 1501
|
|
|
|
|
|
state 1378
|
|
|
|
741 merge_using: USING . sort_file_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
sort_file_list go to state 1502
|
|
name go to state 1503
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1379
|
|
|
|
740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using . $@88 sort_output
|
|
|
|
$default reduce using rule 739 ($@88)
|
|
|
|
$@88 go to state 1504
|
|
|
|
|
|
state 1380
|
|
|
|
757 sort_keys_names: sort_keys_names name .
|
|
|
|
$default reduce using rule 757 (sort_keys_names)
|
|
|
|
|
|
state 1381
|
|
|
|
809 multiply_body: gname BY gname GIVING var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 809 (multiply_body)
|
|
|
|
|
|
state 1382
|
|
|
|
1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements . $@133 END_PERFORM
|
|
|
|
$default reduce using rule 1150 ($@133)
|
|
|
|
$@133 go to state 1505
|
|
|
|
|
|
state 1383
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt . gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1506
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1384
|
|
|
|
1147 perform_options: gname TIMES @129 perform_statements $@130 END_PERFORM .
|
|
|
|
$default reduce using rule 1147 (perform_options)
|
|
|
|
|
|
state 1385
|
|
|
|
1158 perform_options: label perform_thru_opt with_test_opt UNTIL @137 condition .
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
$default reduce using rule 1158 (perform_options)
|
|
|
|
|
|
state 1386
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM . gname by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1507
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1387
|
|
|
|
910 read_at_end_opt: NOT at_opt on_end .
|
|
|
|
$default reduce using rule 910 (read_at_end_opt)
|
|
|
|
|
|
state 1388
|
|
|
|
914 read_at_end_opt: AT on_end NOT . at_opt $@96 on_end
|
|
|
|
AT shift, and go to state 1054
|
|
|
|
$default reduce using rule 1225 (at_opt)
|
|
|
|
at_opt go to state 1508
|
|
|
|
|
|
state 1389
|
|
|
|
918 on_end: END @98 statement_list .
|
|
|
|
$default reduce using rule 918 (on_end)
|
|
|
|
|
|
state 1390
|
|
|
|
916 read_at_end_opt: on_end NOT at_opt . $@97 on_end
|
|
|
|
$default reduce using rule 915 ($@97)
|
|
|
|
$@97 go to state 1509
|
|
|
|
|
|
state 1391
|
|
|
|
718 search_all_when: WHEN . $@83 search_all_when_conditional @84 search_all_when_statement
|
|
|
|
$default reduce using rule 716 ($@83)
|
|
|
|
$@83 go to state 1510
|
|
|
|
|
|
state 1392
|
|
|
|
701 search_all: variable_indexed @79 search_at_end $@80 search_all_when_list .
|
|
715 search_all_when_list: search_all_when_list . search_all_when
|
|
|
|
WHEN shift, and go to state 1391
|
|
|
|
WHEN [reduce using rule 701 (search_all)]
|
|
$default reduce using rule 701 (search_all)
|
|
|
|
search_all_when go to state 1511
|
|
|
|
|
|
state 1393
|
|
|
|
714 search_all_when_list: search_all_when .
|
|
|
|
$default reduce using rule 714 (search_all_when_list)
|
|
|
|
|
|
state 1394
|
|
|
|
705 search_at_end: at_opt END @81 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1512
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1395
|
|
|
|
698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 . search_when_list
|
|
|
|
WHEN shift, and go to state 1513
|
|
|
|
search_when_list go to state 1514
|
|
search_when go to state 1515
|
|
|
|
|
|
state 1396
|
|
|
|
1228 in_opt: IN .
|
|
|
|
$default reduce using rule 1228 (in_opt)
|
|
|
|
|
|
state 1397
|
|
|
|
761 sort_duplicates_opt: with_opt DUPLICATES in_opt . order_opt
|
|
|
|
ORDER shift, and go to state 1516
|
|
|
|
$default reduce using rule 549 (order_opt)
|
|
|
|
order_opt go to state 1517
|
|
|
|
|
|
state 1398
|
|
|
|
759 sort_keys_names_idx: sort_keys_names_idx variable_indexed .
|
|
|
|
$default reduce using rule 759 (sort_keys_names_idx)
|
|
|
|
|
|
state 1399
|
|
|
|
747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 . sort_input $@91 sort_output
|
|
|
|
INPUT shift, and go to state 1518
|
|
USING shift, and go to state 1519
|
|
|
|
sort_input go to state 1520
|
|
|
|
|
|
state 1400
|
|
|
|
1068 not_invalid_key_sentence: not_excep INVALID key_opt @125 statement_list .
|
|
|
|
$default reduce using rule 1068 (not_invalid_key_sentence)
|
|
|
|
|
|
state 1401
|
|
|
|
1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt . end_stringcmd_opt
|
|
|
|
END_STRINGCMD shift, and go to state 1521
|
|
|
|
END_STRINGCMD [reduce using rule 1081 (end_stringcmd_opt)]
|
|
$default reduce using rule 1081 (end_stringcmd_opt)
|
|
|
|
end_stringcmd_opt go to state 1522
|
|
|
|
|
|
state 1402
|
|
|
|
1046 on_overflow_opt: $@119 . on_overflow on_not_overflow
|
|
|
|
ON shift, and go to state 620
|
|
|
|
OVERFLOW_TOK reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 1057 (on_overflow)
|
|
|
|
on_overflow go to state 1523
|
|
on_opt go to state 1524
|
|
|
|
|
|
state 1403
|
|
|
|
1071 string_with_pointer: with_opt POINTER name .
|
|
|
|
$default reduce using rule 1071 (string_with_pointer)
|
|
|
|
|
|
state 1404
|
|
|
|
804 subtract_body: CORRESPONDING var_list_gname FROM var_list_name rounded_opt on_size_error_opt .
|
|
|
|
$default reduce using rule 804 (subtract_body)
|
|
|
|
|
|
state 1405
|
|
|
|
803 subtract_body: var_list_gname FROM gname GIVING var_list_name on_size_error_opt .
|
|
|
|
$default reduce using rule 803 (subtract_body)
|
|
|
|
|
|
state 1406
|
|
|
|
1033 unstring_delimited_vars: unstring_delimited_vars OR all_opt . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1525
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1407
|
|
|
|
1042 unstring_tallying: TALLYING . in_opt name
|
|
|
|
IN shift, and go to state 1396
|
|
|
|
$default reduce using rule 1227 (in_opt)
|
|
|
|
in_opt go to state 1526
|
|
|
|
|
|
state 1408
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying . $@118 on_overflow_opt end_unstring_opt
|
|
|
|
$default reduce using rule 1028 ($@118)
|
|
|
|
$@118 go to state 1527
|
|
|
|
|
|
state 1409
|
|
|
|
1035 unstring_destinations: unstring_destinations sep_opt unstring_dest_var .
|
|
|
|
$default reduce using rule 1035 (unstring_destinations)
|
|
|
|
|
|
state 1410
|
|
|
|
1038 unstring_delim_opt: DELIMITER in_opt . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1528
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1411
|
|
|
|
1040 unstring_count_opt: COUNT . in_opt name
|
|
|
|
IN shift, and go to state 1396
|
|
|
|
$default reduce using rule 1227 (in_opt)
|
|
|
|
in_opt go to state 1529
|
|
|
|
|
|
state 1412
|
|
|
|
1036 unstring_dest_var: name unstring_delim_opt unstring_count_opt .
|
|
|
|
$default reduce using rule 1036 (unstring_dest_var)
|
|
|
|
|
|
state 1413
|
|
|
|
75 switch_on_opt: ON status_opt is_opt STRING .
|
|
|
|
$default reduce using rule 75 (switch_on_opt)
|
|
|
|
|
|
state 1414
|
|
|
|
77 switch_off_opt: OFF status_opt is_opt . STRING
|
|
|
|
STRING shift, and go to state 1530
|
|
|
|
|
|
state 1415
|
|
|
|
143 access_options: DYNAMIC .
|
|
|
|
$default reduce using rule 143 (access_options)
|
|
|
|
|
|
state 1416
|
|
|
|
144 access_options: RANDOM .
|
|
|
|
$default reduce using rule 144 (access_options)
|
|
|
|
|
|
state 1417
|
|
|
|
142 access_options: SEQUENTIAL .
|
|
|
|
$default reduce using rule 142 (access_options)
|
|
|
|
|
|
state 1418
|
|
|
|
108 select_clause: ACCESS mode_opt is_opt access_options .
|
|
|
|
$default reduce using rule 108 (select_clause)
|
|
|
|
|
|
state 1419
|
|
|
|
145 access_options: anystring .
|
|
|
|
$default reduce using rule 145 (access_options)
|
|
|
|
|
|
state 1420
|
|
|
|
112 select_clause: ALTERNATE RECORD key_opt is_opt . STRING with_duplicates
|
|
|
|
STRING shift, and go to state 1531
|
|
|
|
|
|
state 1421
|
|
|
|
121 assign_clause: PORTNUM filename .
|
|
|
|
$default reduce using rule 121 (assign_clause)
|
|
|
|
|
|
state 1422
|
|
|
|
122 assign_clause: EXTERNAL filename .
|
|
|
|
$default reduce using rule 122 (assign_clause)
|
|
|
|
|
|
state 1423
|
|
|
|
110 select_clause: RECORD key_opt is_opt STRING .
|
|
|
|
$default reduce using rule 110 (select_clause)
|
|
|
|
|
|
state 1424
|
|
|
|
111 select_clause: RELATIVE key_opt is_opt STRING .
|
|
|
|
$default reduce using rule 111 (select_clause)
|
|
|
|
|
|
state 1425
|
|
|
|
109 select_clause: file_opt STATUS is_opt STRING .
|
|
|
|
$default reduce using rule 109 (select_clause)
|
|
|
|
|
|
state 1426
|
|
|
|
140 organization_options: LINE SEQUENTIAL .
|
|
|
|
$default reduce using rule 140 (organization_options)
|
|
|
|
|
|
state 1427
|
|
|
|
526 to_integer_opt: TO . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1532
|
|
|
|
|
|
state 1428
|
|
|
|
499 file_description_clause_block: BLOCK contains_opt integer to_integer_opt . chars_or_recs_opt
|
|
|
|
CHARACTERS shift, and go to state 1533
|
|
RECORDS shift, and go to state 1534
|
|
|
|
$default reduce using rule 522 (chars_or_recs_opt)
|
|
|
|
chars_or_recs_opt go to state 1535
|
|
|
|
|
|
state 1429
|
|
|
|
521 var_strings: var_strings STRING .
|
|
|
|
$default reduce using rule 521 (var_strings)
|
|
|
|
|
|
state 1430
|
|
|
|
507 file_description_clause_linage: LINAGE is_opt data_name lines_opt . file_description_clause_linage_footing file_description_clause_linage_top file_description_clause_linage_bottom
|
|
|
|
WITH shift, and go to state 358
|
|
|
|
FOOTING reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 508 (file_description_clause_linage_footing)
|
|
|
|
file_description_clause_linage_footing go to state 1536
|
|
with_opt go to state 1537
|
|
|
|
|
|
state 1431
|
|
|
|
501 file_description_clause_record: RECORD is_opt VARYING in_opt . size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying
|
|
|
|
SIZE shift, and go to state 1538
|
|
|
|
$default reduce using rule 1004 (size_opt)
|
|
|
|
size_opt go to state 1539
|
|
|
|
|
|
state 1432
|
|
|
|
534 to_rec_varying: TO . nliteral
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
nliteral go to state 1540
|
|
signed_nliteral go to state 1069
|
|
|
|
|
|
state 1433
|
|
|
|
500 file_description_clause_record: RECORD contains_opt integer to_rec_varying . character_opts
|
|
|
|
CHARACTERS shift, and go to state 1541
|
|
|
|
$default reduce using rule 547 (character_opts)
|
|
|
|
character_opts go to state 1542
|
|
|
|
|
|
state 1434
|
|
|
|
503 file_description_clause_value: VALUE OF FILE_ID is_opt . filename
|
|
|
|
STRING shift, and go to state 1268
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1272
|
|
signed_nliteral go to state 77
|
|
filename go to state 1543
|
|
|
|
|
|
state 1435
|
|
|
|
427 file_description: file_description field_description .
|
|
|
|
$default reduce using rule 427 (file_description)
|
|
|
|
|
|
state 1436
|
|
|
|
458 array_options: OCCURS integer TO integer . times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt
|
|
|
|
TIMES shift, and go to state 1309
|
|
|
|
$default reduce using rule 541 (times_opt)
|
|
|
|
times_opt go to state 1544
|
|
|
|
|
|
state 1437
|
|
|
|
455 array_options: OCCURS integer times_opt $@47 . indexed_by_opt
|
|
|
|
DIRECTION shift, and go to state 1545
|
|
|
|
INDEXED reduce using rule 460 (key_is_opt)
|
|
$default reduce using rule 462 (indexed_by_opt)
|
|
|
|
key_is_opt go to state 1546
|
|
indexed_by_opt go to state 1547
|
|
|
|
|
|
state 1438
|
|
|
|
477 pictures: PICTURE $@50 is_opt picture .
|
|
479 picture: picture . pic_elem
|
|
|
|
CHAR shift, and go to state 1548
|
|
|
|
$default reduce using rule 477 (pictures)
|
|
|
|
pic_elem go to state 1549
|
|
|
|
|
|
state 1439
|
|
|
|
453 thru_gname_opt: THRU . variable
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
variable go to state 1550
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1440
|
|
|
|
448 data_clause: RENAMES $@46 variable thru_gname_opt .
|
|
|
|
$default reduce using rule 448 (data_clause)
|
|
|
|
|
|
state 1441
|
|
|
|
405 character_opt: CHARACTER .
|
|
|
|
$default reduce using rule 405 (character_opt)
|
|
|
|
|
|
state 1442
|
|
|
|
403 separate_opt: SEPARATE character_opt .
|
|
|
|
$default reduce using rule 403 (separate_opt)
|
|
|
|
|
|
state 1443
|
|
|
|
473 value_list: value_list comma_opt value .
|
|
|
|
$default reduce using rule 473 (value_list)
|
|
|
|
|
|
state 1444
|
|
|
|
475 value: gliteral THRU gliteral .
|
|
|
|
$default reduce using rule 475 (value)
|
|
|
|
|
|
state 1445
|
|
|
|
198 report_control: CODE gliteral .
|
|
|
|
$default reduce using rule 198 (report_control)
|
|
|
|
|
|
state 1446
|
|
|
|
209 control_is_are: CONTROL is_opt .
|
|
|
|
$default reduce using rule 209 (control_is_are)
|
|
|
|
|
|
state 1447
|
|
|
|
210 control_is_are: CONTROLS are_opt .
|
|
|
|
$default reduce using rule 210 (control_is_are)
|
|
|
|
|
|
state 1448
|
|
|
|
212 limit_is_are_opt: LIMIT . IS
|
|
|
|
IS shift, and go to state 1551
|
|
|
|
|
|
state 1449
|
|
|
|
213 limit_is_are_opt: LIMITS . ARE
|
|
|
|
ARE shift, and go to state 1552
|
|
|
|
|
|
state 1450
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt . integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1553
|
|
|
|
|
|
state 1451
|
|
|
|
194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 . report_description
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
report_description go to state 1554
|
|
report_item go to state 1555
|
|
signed_nliteral go to state 234
|
|
integer go to state 1556
|
|
|
|
|
|
state 1452
|
|
|
|
197 report_control: is_opt GLOBAL .
|
|
|
|
$default reduce using rule 197 (report_control)
|
|
|
|
|
|
state 1453
|
|
|
|
221 final_opt: FINAL .
|
|
|
|
$default reduce using rule 221 (final_opt)
|
|
|
|
|
|
state 1454
|
|
|
|
201 report_controls_control: control_is_are final_opt . report_break_list
|
|
|
|
$default reduce using rule 222 (report_break_list)
|
|
|
|
report_break_list go to state 1557
|
|
|
|
|
|
state 1455
|
|
|
|
348 screen_source_destination: TO . $@37 name
|
|
|
|
$default reduce using rule 347 ($@37)
|
|
|
|
$@37 go to state 1558
|
|
|
|
|
|
state 1456
|
|
|
|
329 screen_clauses: screen_clauses COLUMN . $@30 number_is_opt plus_minus_opt name_or_lit
|
|
|
|
$default reduce using rule 328 ($@30)
|
|
|
|
$@30 go to state 1559
|
|
|
|
|
|
state 1457
|
|
|
|
346 screen_source_destination: FROM . $@36 name_or_lit screen_to_name
|
|
|
|
$default reduce using rule 345 ($@36)
|
|
|
|
$@36 go to state 1560
|
|
|
|
|
|
state 1458
|
|
|
|
327 screen_clauses: screen_clauses LINE . $@29 number_is_opt plus_minus_opt name_or_lit
|
|
|
|
$default reduce using rule 326 ($@29)
|
|
|
|
$@29 go to state 1561
|
|
|
|
|
|
state 1459
|
|
|
|
341 screen_clauses: screen_clauses SIZE . $@34 name_or_lit
|
|
|
|
$default reduce using rule 340 ($@34)
|
|
|
|
$@34 go to state 1562
|
|
|
|
|
|
state 1460
|
|
|
|
344 screen_source_destination: USING . $@35 name_or_lit
|
|
|
|
$default reduce using rule 343 ($@35)
|
|
|
|
$@35 go to state 1563
|
|
|
|
|
|
state 1461
|
|
|
|
325 screen_item: integer def_name_opt $@28 screen_clauses PERIOD_TOK .
|
|
|
|
$default reduce using rule 325 (screen_item)
|
|
|
|
|
|
state 1462
|
|
|
|
337 screen_clauses: screen_clauses screen_source_destination .
|
|
|
|
$default reduce using rule 337 (screen_clauses)
|
|
|
|
|
|
state 1463
|
|
|
|
338 screen_clauses: screen_clauses value_is_are . gliteral
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gliteral go to state 1564
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 1464
|
|
|
|
339 screen_clauses: screen_clauses pictures .
|
|
|
|
$default reduce using rule 339 (screen_clauses)
|
|
|
|
|
|
state 1465
|
|
|
|
330 screen_clauses: screen_clauses with_opt . screen_attrib
|
|
332 | screen_clauses with_opt . FOREGROUNDCOLOR $@31 name_or_lit
|
|
334 | screen_clauses with_opt . BACKGROUNDCOLOR $@32 name_or_lit
|
|
336 | screen_clauses with_opt . COLOR $@33 name_or_lit
|
|
|
|
IS shift, and go to state 84
|
|
AUTO shift, and go to state 1565
|
|
BACKGROUNDCOLOR shift, and go to state 1566
|
|
BLANK shift, and go to state 1567
|
|
BLINK shift, and go to state 1568
|
|
COLOR shift, and go to state 1569
|
|
ERASE shift, and go to state 1570
|
|
FOREGROUNDCOLOR shift, and go to state 1571
|
|
FULL shift, and go to state 1572
|
|
HIGHLIGHT shift, and go to state 1573
|
|
JUSTIFIED shift, and go to state 1574
|
|
LOWER shift, and go to state 1575
|
|
LOWLIGHT shift, and go to state 1576
|
|
REQUIRED shift, and go to state 1577
|
|
REVERSEVIDEO shift, and go to state 1578
|
|
SECURE shift, and go to state 1579
|
|
SIGN shift, and go to state 921
|
|
UNDERLINE shift, and go to state 1580
|
|
UPPER shift, and go to state 1581
|
|
WITH shift, and go to state 358
|
|
|
|
LEADING reduce using rule 132 (is_opt)
|
|
TRAILING reduce using rule 132 (is_opt)
|
|
$default reduce using rule 1233 (with_opt)
|
|
|
|
is_opt go to state 979
|
|
screen_attrib go to state 1582
|
|
sign_clause go to state 1583
|
|
sign_is_opt go to state 929
|
|
with_opt go to state 1584
|
|
|
|
|
|
state 1466
|
|
|
|
584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option . PERIOD_TOK
|
|
|
|
PERIOD_TOK shift, and go to state 1585
|
|
|
|
|
|
state 1467
|
|
|
|
591 use_phrase_option: open_mode .
|
|
|
|
$default reduce using rule 591 (use_phrase_option)
|
|
|
|
|
|
state 1468
|
|
|
|
590 use_phrase_option: gname_list .
|
|
1244 gname_list: gname_list . sep_opt gname
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
PERIOD_TOK reduce using rule 590 (use_phrase_option)
|
|
$default reduce using rule 1214 (sep_opt)
|
|
|
|
sep_opt go to state 99
|
|
|
|
|
|
state 1469
|
|
|
|
909 read_key_opt: KEY is_opt . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1586
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1470
|
|
|
|
910 read_at_end_opt: NOT . at_opt on_end
|
|
925 read_not_invalid_key: NOT . INVALID key_opt @100 statement_list
|
|
|
|
AT shift, and go to state 1054
|
|
INVALID shift, and go to state 1587
|
|
|
|
$default reduce using rule 1225 (at_opt)
|
|
|
|
at_opt go to state 1231
|
|
|
|
|
|
state 1471
|
|
|
|
923 read_invalid_key: INVALID . key_opt @99 statement_list
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1588
|
|
|
|
|
|
state 1472
|
|
|
|
901 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_at_end_opt .
|
|
|
|
$default reduce using rule 901 (read_body)
|
|
|
|
|
|
state 1473
|
|
|
|
902 read_body: name read_next_opt record_opt read_into_opt with_lock_opt read_key_opt read_invalid_key_opt .
|
|
|
|
$default reduce using rule 902 (read_body)
|
|
|
|
|
|
state 1474
|
|
|
|
919 read_invalid_key_opt: read_invalid_key .
|
|
921 | read_invalid_key . read_not_invalid_key
|
|
|
|
NOT shift, and go to state 1589
|
|
|
|
NOT [reduce using rule 919 (read_invalid_key_opt)]
|
|
$default reduce using rule 919 (read_invalid_key_opt)
|
|
|
|
read_not_invalid_key go to state 1590
|
|
|
|
|
|
state 1475
|
|
|
|
920 read_invalid_key_opt: read_not_invalid_key .
|
|
|
|
$default reduce using rule 920 (read_invalid_key_opt)
|
|
|
|
|
|
state 1476
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 . statement_list $@95 end_accept_opt
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1591
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1477
|
|
|
|
998 on_size_error_opt: NOT on_opt SIZE on_size_error .
|
|
|
|
$default reduce using rule 998 (on_size_error_opt)
|
|
|
|
|
|
state 1478
|
|
|
|
1003 on_size_error: ERROR_TOK @116 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1592
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1479
|
|
|
|
1001 on_size_error_opt: on_opt SIZE on_size_error NOT . on_opt SIZE $@115 on_size_error
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1593
|
|
|
|
|
|
state 1480
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 . @108 on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
$default reduce using rule 965 (@108)
|
|
|
|
@108 go to state 1594
|
|
|
|
|
|
state 1481
|
|
|
|
1125 using_options: USING @127 dummy @128 parm_list .
|
|
1133 parm_list: parm_list . sep_opt parameter
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
NLITERAL reduce using rule 1214 (sep_opt)
|
|
CLITERAL reduce using rule 1214 (sep_opt)
|
|
'+' reduce using rule 1214 (sep_opt)
|
|
'-' reduce using rule 1214 (sep_opt)
|
|
ALL reduce using rule 1214 (sep_opt)
|
|
BY reduce using rule 1214 (sep_opt)
|
|
CONTENT reduce using rule 1214 (sep_opt)
|
|
FUNCTION reduce using rule 1214 (sep_opt)
|
|
HIGHVALUES reduce using rule 1214 (sep_opt)
|
|
LOWVALUES reduce using rule 1214 (sep_opt)
|
|
QUOTES reduce using rule 1214 (sep_opt)
|
|
REFERENCE reduce using rule 1214 (sep_opt)
|
|
SPACES reduce using rule 1214 (sep_opt)
|
|
VALUE reduce using rule 1214 (sep_opt)
|
|
ZERO reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 1125 (using_options)
|
|
|
|
sep_opt go to state 1595
|
|
|
|
|
|
state 1482
|
|
|
|
1134 parm_list: parameter .
|
|
|
|
$default reduce using rule 1134 (parm_list)
|
|
|
|
|
|
state 1483
|
|
|
|
1136 parameter: by_opt . parm_type gname
|
|
|
|
CONTENT shift, and go to state 1596
|
|
REFERENCE shift, and go to state 1597
|
|
VALUE shift, and go to state 1598
|
|
|
|
parm_type go to state 1599
|
|
|
|
|
|
state 1484
|
|
|
|
1135 parameter: gname .
|
|
|
|
$default reduce using rule 1135 (parameter)
|
|
|
|
|
|
state 1485
|
|
|
|
981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 . end_chain_opt
|
|
|
|
END_CHAIN shift, and go to state 1600
|
|
|
|
END_CHAIN [reduce using rule 1008 (end_chain_opt)]
|
|
$default reduce using rule 1008 (end_chain_opt)
|
|
|
|
end_chain_opt go to state 1601
|
|
|
|
|
|
state 1486
|
|
|
|
1050 exception_or_overflow: EXCEPTION .
|
|
|
|
$default reduce using rule 1050 (exception_or_overflow)
|
|
|
|
|
|
state 1487
|
|
|
|
1051 exception_or_overflow: OVERFLOW_TOK .
|
|
|
|
$default reduce using rule 1051 (exception_or_overflow)
|
|
|
|
|
|
state 1488
|
|
|
|
1048 on_exception_or_overflow: on_opt exception_or_overflow . @120 statement_list
|
|
|
|
$default reduce using rule 1047 (@120)
|
|
|
|
@120 go to state 1602
|
|
|
|
|
|
state 1489
|
|
|
|
816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER . name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1603
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1490
|
|
|
|
817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER . name on_size_error_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1604
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1491
|
|
|
|
674 when_case: OTHER .
|
|
|
|
$default reduce using rule 674 (when_case)
|
|
|
|
|
|
state 1492
|
|
|
|
665 when_case_list: WHEN @66 @67 when_case . sentence_or_nothing
|
|
673 when_case: when_case . ALSO @72 selection_object
|
|
|
|
ALSO shift, and go to state 1605
|
|
|
|
END_EVALUATE reduce using rule 681 (sentence_or_nothing)
|
|
NEXT reduce using rule 687 ($@75)
|
|
WHEN reduce using rule 681 (sentence_or_nothing)
|
|
PERIOD_TOK reduce using rule 681 (sentence_or_nothing)
|
|
$default reduce using rule 685 ($@74)
|
|
|
|
sentence_or_nothing go to state 1606
|
|
conditional_statement go to state 1607
|
|
$@74 go to state 862
|
|
$@75 go to state 863
|
|
|
|
|
|
state 1493
|
|
|
|
671 when_case: @71 . selection_object
|
|
|
|
NOT shift, and go to state 1608
|
|
ANY shift, and go to state 1609
|
|
FALSE_TOK shift, and go to state 1610
|
|
TRUE_TOK shift, and go to state 1611
|
|
|
|
$default reduce using rule 689 (not_opt)
|
|
|
|
selection_object go to state 1612
|
|
not_opt go to state 1613
|
|
|
|
|
|
state 1494
|
|
|
|
669 when_case_list: when_case_list WHEN @68 @69 . when_case $@70 sentence_or_nothing
|
|
|
|
OTHER shift, and go to state 1491
|
|
|
|
$default reduce using rule 670 (@71)
|
|
|
|
when_case go to state 1614
|
|
@71 go to state 1493
|
|
|
|
|
|
state 1495
|
|
|
|
1109 inspect_before_after: inspect_before_after AFTER . initial_opt noallname
|
|
|
|
INITIAL_TOK shift, and go to state 1615
|
|
|
|
$default reduce using rule 1112 (initial_opt)
|
|
|
|
initial_opt go to state 1616
|
|
|
|
|
|
state 1496
|
|
|
|
1108 inspect_before_after: inspect_before_after BEFORE . initial_opt noallname
|
|
|
|
INITIAL_TOK shift, and go to state 1615
|
|
|
|
$default reduce using rule 1112 (initial_opt)
|
|
|
|
initial_opt go to state 1617
|
|
|
|
|
|
state 1497
|
|
|
|
1094 tallying_for_list: tallying_for_list ALL . noallname inspect_before_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 1618
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1498
|
|
|
|
1093 tallying_for_list: tallying_for_list CHARACTERS . inspect_before_after
|
|
|
|
$default reduce using rule 1110 (inspect_before_after)
|
|
|
|
inspect_before_after go to state 1619
|
|
|
|
|
|
state 1499
|
|
|
|
1095 tallying_for_list: tallying_for_list LEADING . noallname inspect_before_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 1620
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1500
|
|
|
|
1099 replacing_list: replacing_list CHARACTERS BY . noallname inspect_before_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 1621
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1501
|
|
|
|
1100 replacing_list: replacing_list replacing_kind replacing_by_list .
|
|
1102 replacing_by_list: replacing_by_list . noallname BY noallname inspect_before_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 1100 (replacing_list)
|
|
|
|
noallname go to state 1622
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1502
|
|
|
|
741 merge_using: USING sort_file_list .
|
|
769 sort_file_list: sort_file_list . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 741 (merge_using)
|
|
|
|
name go to state 1623
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1503
|
|
|
|
768 sort_file_list: name .
|
|
|
|
$default reduce using rule 768 (sort_file_list)
|
|
|
|
|
|
state 1504
|
|
|
|
740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 . sort_output
|
|
|
|
GIVING shift, and go to state 1624
|
|
OUTPUT shift, and go to state 1625
|
|
|
|
sort_output go to state 1626
|
|
|
|
|
|
state 1505
|
|
|
|
1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 . END_PERFORM
|
|
|
|
END_PERFORM shift, and go to state 1627
|
|
|
|
|
|
state 1506
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname . UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
UNTIL shift, and go to state 1628
|
|
|
|
|
|
state 1507
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname . by_opt gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
BY shift, and go to state 854
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
by_opt go to state 1629
|
|
|
|
|
|
state 1508
|
|
|
|
914 read_at_end_opt: AT on_end NOT at_opt . $@96 on_end
|
|
|
|
$default reduce using rule 913 ($@96)
|
|
|
|
$@96 go to state 1630
|
|
|
|
|
|
state 1509
|
|
|
|
916 read_at_end_opt: on_end NOT at_opt $@97 . on_end
|
|
|
|
END shift, and go to state 1050
|
|
|
|
on_end go to state 1631
|
|
|
|
|
|
state 1510
|
|
|
|
718 search_all_when: WHEN $@83 . search_all_when_conditional @84 search_all_when_statement
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
search_all_when_conditional go to state 1632
|
|
variable go to state 1633
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1511
|
|
|
|
715 search_all_when_list: search_all_when_list search_all_when .
|
|
|
|
$default reduce using rule 715 (search_all_when_list)
|
|
|
|
|
|
state 1512
|
|
|
|
705 search_at_end: at_opt END @81 statement_list .
|
|
|
|
$default reduce using rule 705 (search_at_end)
|
|
|
|
|
|
state 1513
|
|
|
|
710 search_when: WHEN . search_when_conditional @82 search_when_statement
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
search_when_conditional go to state 1634
|
|
name_or_lit go to state 1635
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1514
|
|
|
|
698 search: variable_indexed @76 search_varying_opt @77 search_at_end @78 search_when_list .
|
|
708 search_when_list: search_when_list . search_when
|
|
|
|
WHEN shift, and go to state 1513
|
|
|
|
WHEN [reduce using rule 698 (search)]
|
|
$default reduce using rule 698 (search)
|
|
|
|
search_when go to state 1636
|
|
|
|
|
|
state 1515
|
|
|
|
707 search_when_list: search_when .
|
|
|
|
$default reduce using rule 707 (search_when_list)
|
|
|
|
|
|
state 1516
|
|
|
|
550 order_opt: ORDER .
|
|
|
|
$default reduce using rule 550 (order_opt)
|
|
|
|
|
|
state 1517
|
|
|
|
761 sort_duplicates_opt: with_opt DUPLICATES in_opt order_opt .
|
|
|
|
$default reduce using rule 761 (sort_duplicates_opt)
|
|
|
|
|
|
state 1518
|
|
|
|
764 sort_input: INPUT . PROCEDURE is_opt perform_range
|
|
|
|
PROCEDURE shift, and go to state 1637
|
|
|
|
|
|
state 1519
|
|
|
|
765 sort_input: USING . sort_file_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
sort_file_list go to state 1638
|
|
name go to state 1503
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1520
|
|
|
|
747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input . $@91 sort_output
|
|
|
|
$default reduce using rule 746 ($@91)
|
|
|
|
$@91 go to state 1639
|
|
|
|
|
|
state 1521
|
|
|
|
1082 end_stringcmd_opt: END_STRINGCMD .
|
|
|
|
$default reduce using rule 1082 (end_stringcmd_opt)
|
|
|
|
|
|
state 1522
|
|
|
|
1027 string_statement: STRINGCMD string_from_list INTO name string_with_pointer $@117 on_overflow_opt end_stringcmd_opt .
|
|
|
|
$default reduce using rule 1027 (string_statement)
|
|
|
|
|
|
state 1523
|
|
|
|
1046 on_overflow_opt: $@119 on_overflow . on_not_overflow
|
|
|
|
NOT shift, and go to state 665
|
|
NOTEXCEP shift, and go to state 667
|
|
|
|
NOT [reduce using rule 1060 (on_not_overflow)]
|
|
NOTEXCEP [reduce using rule 1060 (on_not_overflow)]
|
|
$default reduce using rule 1060 (on_not_overflow)
|
|
|
|
on_not_overflow go to state 1640
|
|
not_excep go to state 1641
|
|
|
|
|
|
state 1524
|
|
|
|
1056 on_overflow: on_opt . OVERFLOW_TOK @122 statement_list
|
|
|
|
OVERFLOW_TOK shift, and go to state 1642
|
|
|
|
|
|
state 1525
|
|
|
|
1033 unstring_delimited_vars: unstring_delimited_vars OR all_opt gname .
|
|
|
|
$default reduce using rule 1033 (unstring_delimited_vars)
|
|
|
|
|
|
state 1526
|
|
|
|
1042 unstring_tallying: TALLYING in_opt . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1643
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1527
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 . on_overflow_opt end_unstring_opt
|
|
|
|
$default reduce using rule 1045 ($@119)
|
|
|
|
on_overflow_opt go to state 1644
|
|
$@119 go to state 1402
|
|
|
|
|
|
state 1528
|
|
|
|
1038 unstring_delim_opt: DELIMITER in_opt name .
|
|
|
|
$default reduce using rule 1038 (unstring_delim_opt)
|
|
|
|
|
|
state 1529
|
|
|
|
1040 unstring_count_opt: COUNT in_opt . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1645
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1530
|
|
|
|
77 switch_off_opt: OFF status_opt is_opt STRING .
|
|
|
|
$default reduce using rule 77 (switch_off_opt)
|
|
|
|
|
|
state 1531
|
|
|
|
112 select_clause: ALTERNATE RECORD key_opt is_opt STRING . with_duplicates
|
|
|
|
WITH shift, and go to state 358
|
|
|
|
DUPLICATES reduce using rule 1233 (with_opt)
|
|
$default reduce using rule 125 (with_duplicates)
|
|
|
|
with_duplicates go to state 1646
|
|
with_opt go to state 1647
|
|
|
|
|
|
state 1532
|
|
|
|
526 to_integer_opt: TO integer .
|
|
|
|
$default reduce using rule 526 (to_integer_opt)
|
|
|
|
|
|
state 1533
|
|
|
|
523 chars_or_recs_opt: CHARACTERS .
|
|
|
|
$default reduce using rule 523 (chars_or_recs_opt)
|
|
|
|
|
|
state 1534
|
|
|
|
524 chars_or_recs_opt: RECORDS .
|
|
|
|
$default reduce using rule 524 (chars_or_recs_opt)
|
|
|
|
|
|
state 1535
|
|
|
|
499 file_description_clause_block: BLOCK contains_opt integer to_integer_opt chars_or_recs_opt .
|
|
|
|
$default reduce using rule 499 (file_description_clause_block)
|
|
|
|
|
|
state 1536
|
|
|
|
507 file_description_clause_linage: LINAGE is_opt data_name lines_opt file_description_clause_linage_footing . file_description_clause_linage_top file_description_clause_linage_bottom
|
|
|
|
AT shift, and go to state 1648
|
|
LINES shift, and go to state 1649
|
|
|
|
AT [reduce using rule 510 (file_description_clause_linage_top)]
|
|
LINES [reduce using rule 510 (file_description_clause_linage_top)]
|
|
TOP reduce using rule 514 (lines_at_opt)
|
|
$default reduce using rule 510 (file_description_clause_linage_top)
|
|
|
|
file_description_clause_linage_top go to state 1650
|
|
lines_at_opt go to state 1651
|
|
|
|
|
|
state 1537
|
|
|
|
509 file_description_clause_linage_footing: with_opt . FOOTING at_opt data_name
|
|
|
|
FOOTING shift, and go to state 1652
|
|
|
|
|
|
state 1538
|
|
|
|
1005 size_opt: SIZE .
|
|
|
|
$default reduce using rule 1005 (size_opt)
|
|
|
|
|
|
state 1539
|
|
|
|
501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt . from_rec_varying to_rec_varying character_opts depend_rec_varying
|
|
|
|
FROM shift, and go to state 1653
|
|
|
|
NLITERAL reduce using rule 532 (from_opt)
|
|
'+' reduce using rule 532 (from_opt)
|
|
'-' reduce using rule 532 (from_opt)
|
|
$default reduce using rule 529 (from_rec_varying)
|
|
|
|
from_rec_varying go to state 1654
|
|
from_opt go to state 1655
|
|
|
|
|
|
state 1540
|
|
|
|
534 to_rec_varying: TO nliteral .
|
|
|
|
$default reduce using rule 534 (to_rec_varying)
|
|
|
|
|
|
state 1541
|
|
|
|
548 character_opts: CHARACTERS .
|
|
|
|
$default reduce using rule 548 (character_opts)
|
|
|
|
|
|
state 1542
|
|
|
|
500 file_description_clause_record: RECORD contains_opt integer to_rec_varying character_opts .
|
|
|
|
$default reduce using rule 500 (file_description_clause_record)
|
|
|
|
|
|
state 1543
|
|
|
|
503 file_description_clause_value: VALUE OF FILE_ID is_opt filename .
|
|
|
|
$default reduce using rule 503 (file_description_clause_value)
|
|
|
|
|
|
state 1544
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt . DEPENDING $@48 on_opt gname $@49 indexed_by_opt
|
|
|
|
DEPENDING shift, and go to state 1656
|
|
|
|
|
|
state 1545
|
|
|
|
459 key_is_opt: DIRECTION . key_opt is_opt STRING
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1657
|
|
|
|
|
|
state 1546
|
|
|
|
461 indexed_by_opt: key_is_opt . INDEXED by_opt index_name_list
|
|
|
|
INDEXED shift, and go to state 1658
|
|
|
|
|
|
state 1547
|
|
|
|
455 array_options: OCCURS integer times_opt $@47 indexed_by_opt .
|
|
|
|
$default reduce using rule 455 (array_options)
|
|
|
|
|
|
state 1548
|
|
|
|
480 pic_elem: CHAR . multiplier_opt
|
|
|
|
MULTIPLIER shift, and go to state 1659
|
|
|
|
$default reduce using rule 481 (multiplier_opt)
|
|
|
|
multiplier_opt go to state 1660
|
|
|
|
|
|
state 1549
|
|
|
|
479 picture: picture pic_elem .
|
|
|
|
$default reduce using rule 479 (picture)
|
|
|
|
|
|
state 1550
|
|
|
|
453 thru_gname_opt: THRU variable .
|
|
|
|
$default reduce using rule 453 (thru_gname_opt)
|
|
|
|
|
|
state 1551
|
|
|
|
212 limit_is_are_opt: LIMIT IS .
|
|
|
|
$default reduce using rule 212 (limit_is_are_opt)
|
|
|
|
|
|
state 1552
|
|
|
|
213 limit_is_are_opt: LIMITS ARE .
|
|
|
|
$default reduce using rule 213 (limit_is_are_opt)
|
|
|
|
|
|
state 1553
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt integer . line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt
|
|
|
|
LINE shift, and go to state 1341
|
|
LINES shift, and go to state 1342
|
|
|
|
$default reduce using rule 207 (lines_opt)
|
|
|
|
line_lines_opt go to state 1661
|
|
lines_opt go to state 1344
|
|
|
|
|
|
state 1554
|
|
|
|
194 report_section: RD $@15 STRING $@16 report_controls PERIOD_TOK $@17 report_description .
|
|
225 report_description: report_description . report_item
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
$default reduce using rule 194 (report_section)
|
|
|
|
report_item go to state 1662
|
|
signed_nliteral go to state 234
|
|
integer go to state 1556
|
|
|
|
|
|
state 1555
|
|
|
|
224 report_description: report_item .
|
|
|
|
$default reduce using rule 224 (report_description)
|
|
|
|
|
|
state 1556
|
|
|
|
227 report_item: integer . def_name_opt $@18 report_clauses PERIOD_TOK
|
|
|
|
STRING shift, and go to state 368
|
|
FILLER shift, and go to state 369
|
|
|
|
$default reduce using rule 1274 (def_name_opt)
|
|
|
|
def_name_opt go to state 1663
|
|
def_name go to state 381
|
|
|
|
|
|
state 1557
|
|
|
|
201 report_controls_control: control_is_are final_opt report_break_list .
|
|
223 report_break_list: report_break_list . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 201 (report_controls_control)
|
|
|
|
name go to state 1664
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1558
|
|
|
|
348 screen_source_destination: TO $@37 . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1665
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1559
|
|
|
|
329 screen_clauses: screen_clauses COLUMN $@30 . number_is_opt plus_minus_opt name_or_lit
|
|
|
|
NUMBER shift, and go to state 1666
|
|
|
|
$default reduce using rule 415 (number_is_opt)
|
|
|
|
number_is_opt go to state 1667
|
|
|
|
|
|
state 1560
|
|
|
|
346 screen_source_destination: FROM $@36 . name_or_lit screen_to_name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1668
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1561
|
|
|
|
327 screen_clauses: screen_clauses LINE $@29 . number_is_opt plus_minus_opt name_or_lit
|
|
|
|
NUMBER shift, and go to state 1666
|
|
|
|
$default reduce using rule 415 (number_is_opt)
|
|
|
|
number_is_opt go to state 1669
|
|
|
|
|
|
state 1562
|
|
|
|
341 screen_clauses: screen_clauses SIZE $@34 . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1670
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1563
|
|
|
|
344 screen_source_destination: USING $@35 . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1671
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1564
|
|
|
|
338 screen_clauses: screen_clauses value_is_are gliteral .
|
|
|
|
$default reduce using rule 338 (screen_clauses)
|
|
|
|
|
|
state 1565
|
|
|
|
361 screen_attrib: AUTO .
|
|
|
|
$default reduce using rule 361 (screen_attrib)
|
|
|
|
|
|
state 1566
|
|
|
|
334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR . $@32 name_or_lit
|
|
|
|
$default reduce using rule 333 ($@32)
|
|
|
|
$@32 go to state 1672
|
|
|
|
|
|
state 1567
|
|
|
|
351 screen_attrib: BLANK . SCREEN
|
|
352 | BLANK . LINE
|
|
369 | BLANK . when_opt ZERO
|
|
|
|
LINE shift, and go to state 1673
|
|
SCREEN shift, and go to state 1674
|
|
WHEN shift, and go to state 1138
|
|
|
|
$default reduce using rule 543 (when_opt)
|
|
|
|
when_opt go to state 1675
|
|
|
|
|
|
state 1568
|
|
|
|
364 screen_attrib: BLINK .
|
|
|
|
$default reduce using rule 364 (screen_attrib)
|
|
|
|
|
|
state 1569
|
|
|
|
336 screen_clauses: screen_clauses with_opt COLOR . $@33 name_or_lit
|
|
|
|
$default reduce using rule 335 ($@33)
|
|
|
|
$@33 go to state 1676
|
|
|
|
|
|
state 1570
|
|
|
|
353 screen_attrib: ERASE . EOL
|
|
354 | ERASE . EOS
|
|
355 | ERASE .
|
|
|
|
EOL shift, and go to state 1677
|
|
EOS shift, and go to state 1678
|
|
|
|
$default reduce using rule 355 (screen_attrib)
|
|
|
|
|
|
state 1571
|
|
|
|
332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR . $@31 name_or_lit
|
|
|
|
$default reduce using rule 331 ($@31)
|
|
|
|
$@31 go to state 1679
|
|
|
|
|
|
state 1572
|
|
|
|
358 screen_attrib: FULL .
|
|
|
|
$default reduce using rule 358 (screen_attrib)
|
|
|
|
|
|
state 1573
|
|
|
|
368 screen_attrib: HIGHLIGHT .
|
|
|
|
$default reduce using rule 368 (screen_attrib)
|
|
|
|
|
|
state 1574
|
|
|
|
362 screen_attrib: JUSTIFIED . RIGHT
|
|
363 | JUSTIFIED . LEFT
|
|
|
|
LEFT shift, and go to state 1680
|
|
RIGHT shift, and go to state 1681
|
|
|
|
|
|
state 1575
|
|
|
|
374 screen_attrib: LOWER .
|
|
|
|
$default reduce using rule 374 (screen_attrib)
|
|
|
|
|
|
state 1576
|
|
|
|
367 screen_attrib: LOWLIGHT .
|
|
|
|
$default reduce using rule 367 (screen_attrib)
|
|
|
|
|
|
state 1577
|
|
|
|
359 screen_attrib: REQUIRED .
|
|
|
|
$default reduce using rule 359 (screen_attrib)
|
|
|
|
|
|
state 1578
|
|
|
|
365 screen_attrib: REVERSEVIDEO .
|
|
|
|
$default reduce using rule 365 (screen_attrib)
|
|
|
|
|
|
state 1579
|
|
|
|
360 screen_attrib: SECURE .
|
|
|
|
$default reduce using rule 360 (screen_attrib)
|
|
|
|
|
|
state 1580
|
|
|
|
366 screen_attrib: UNDERLINE .
|
|
|
|
$default reduce using rule 366 (screen_attrib)
|
|
|
|
|
|
state 1581
|
|
|
|
373 screen_attrib: UPPER .
|
|
|
|
$default reduce using rule 373 (screen_attrib)
|
|
|
|
|
|
state 1582
|
|
|
|
330 screen_clauses: screen_clauses with_opt screen_attrib .
|
|
|
|
$default reduce using rule 330 (screen_clauses)
|
|
|
|
|
|
state 1583
|
|
|
|
357 screen_attrib: sign_clause .
|
|
|
|
$default reduce using rule 357 (screen_attrib)
|
|
|
|
|
|
state 1584
|
|
|
|
356 screen_attrib: with_opt . BELL
|
|
370 | with_opt . NOECHO
|
|
371 | with_opt . UPDATE
|
|
372 | with_opt . NO ADVANCING
|
|
|
|
NO shift, and go to state 1682
|
|
BELL shift, and go to state 1683
|
|
NOECHO shift, and go to state 1684
|
|
UPDATE shift, and go to state 1685
|
|
|
|
|
|
state 1585
|
|
|
|
584 use_phrase: USE AFTER use_phrase_exception_error PROCEDURE on_opt use_phrase_option PERIOD_TOK .
|
|
|
|
$default reduce using rule 584 (use_phrase)
|
|
|
|
|
|
state 1586
|
|
|
|
909 read_key_opt: KEY is_opt name .
|
|
|
|
$default reduce using rule 909 (read_key_opt)
|
|
|
|
|
|
state 1587
|
|
|
|
925 read_not_invalid_key: NOT INVALID . key_opt @100 statement_list
|
|
|
|
KEY shift, and go to state 846
|
|
|
|
$default reduce using rule 1216 (key_opt)
|
|
|
|
key_opt go to state 1686
|
|
|
|
|
|
state 1588
|
|
|
|
923 read_invalid_key: INVALID key_opt . @99 statement_list
|
|
|
|
$default reduce using rule 922 (@99)
|
|
|
|
@99 go to state 1687
|
|
|
|
|
|
state 1589
|
|
|
|
925 read_not_invalid_key: NOT . INVALID key_opt @100 statement_list
|
|
|
|
INVALID shift, and go to state 1587
|
|
|
|
|
|
state 1590
|
|
|
|
921 read_invalid_key_opt: read_invalid_key read_not_invalid_key .
|
|
|
|
$default reduce using rule 921 (read_invalid_key_opt)
|
|
|
|
|
|
state 1591
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list . $@95 end_accept_opt
|
|
|
|
$default reduce using rule 835 ($@95)
|
|
|
|
$@95 go to state 1688
|
|
|
|
|
|
state 1592
|
|
|
|
1003 on_size_error: ERROR_TOK @116 statement_list .
|
|
|
|
$default reduce using rule 1003 (on_size_error)
|
|
|
|
|
|
state 1593
|
|
|
|
1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt . SIZE $@115 on_size_error
|
|
|
|
SIZE shift, and go to state 1689
|
|
|
|
|
|
state 1594
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 . on_exception_or_overflow on_not_exception $@109 end_call_opt
|
|
|
|
ON shift, and go to state 620
|
|
|
|
EXCEPTION reduce using rule 1235 (on_opt)
|
|
OVERFLOW_TOK reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 1049 (on_exception_or_overflow)
|
|
|
|
on_exception_or_overflow go to state 1690
|
|
on_opt go to state 1357
|
|
|
|
|
|
state 1595
|
|
|
|
1133 parm_list: parm_list sep_opt . parameter
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
BY shift, and go to state 854
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
parameter go to state 1691
|
|
by_opt go to state 1483
|
|
gname go to state 1484
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1596
|
|
|
|
1139 parm_type: CONTENT .
|
|
|
|
$default reduce using rule 1139 (parm_type)
|
|
|
|
|
|
state 1597
|
|
|
|
1137 parm_type: REFERENCE .
|
|
|
|
$default reduce using rule 1137 (parm_type)
|
|
|
|
|
|
state 1598
|
|
|
|
1138 parm_type: VALUE .
|
|
|
|
$default reduce using rule 1138 (parm_type)
|
|
|
|
|
|
state 1599
|
|
|
|
1136 parameter: by_opt parm_type . gname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1692
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1600
|
|
|
|
1009 end_chain_opt: END_CHAIN .
|
|
|
|
$default reduce using rule 1009 (end_chain_opt)
|
|
|
|
|
|
state 1601
|
|
|
|
981 chain_statement: CHAIN $@111 gname using_options @112 @113 on_exception_or_overflow $@114 end_chain_opt .
|
|
|
|
$default reduce using rule 981 (chain_statement)
|
|
|
|
|
|
state 1602
|
|
|
|
1048 on_exception_or_overflow: on_opt exception_or_overflow @120 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1693
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1603
|
|
|
|
816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER name . on_size_error_opt
|
|
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1694
|
|
on_opt go to state 987
|
|
|
|
|
|
state 1604
|
|
|
|
817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER name . on_size_error_opt
|
|
|
|
NOT shift, and go to state 985
|
|
ON shift, and go to state 620
|
|
|
|
NOT [reduce using rule 997 (on_size_error_opt)]
|
|
SIZE reduce using rule 1235 (on_opt)
|
|
$default reduce using rule 997 (on_size_error_opt)
|
|
|
|
on_size_error_opt go to state 1695
|
|
on_opt go to state 987
|
|
|
|
|
|
state 1605
|
|
|
|
673 when_case: when_case ALSO . @72 selection_object
|
|
|
|
$default reduce using rule 672 (@72)
|
|
|
|
@72 go to state 1696
|
|
|
|
|
|
state 1606
|
|
|
|
665 when_case_list: WHEN @66 @67 when_case sentence_or_nothing .
|
|
|
|
$default reduce using rule 665 (when_case_list)
|
|
|
|
|
|
state 1607
|
|
|
|
682 sentence_or_nothing: conditional_statement .
|
|
|
|
$default reduce using rule 682 (sentence_or_nothing)
|
|
|
|
|
|
state 1608
|
|
|
|
690 not_opt: NOT .
|
|
|
|
$default reduce using rule 690 (not_opt)
|
|
|
|
|
|
state 1609
|
|
|
|
675 selection_object: ANY .
|
|
|
|
$default reduce using rule 675 (selection_object)
|
|
|
|
|
|
state 1610
|
|
|
|
677 selection_object: FALSE_TOK .
|
|
|
|
$default reduce using rule 677 (selection_object)
|
|
|
|
|
|
state 1611
|
|
|
|
676 selection_object: TRUE_TOK .
|
|
|
|
$default reduce using rule 676 (selection_object)
|
|
|
|
|
|
state 1612
|
|
|
|
671 when_case: @71 selection_object .
|
|
|
|
$default reduce using rule 671 (when_case)
|
|
|
|
|
|
state 1613
|
|
|
|
678 selection_object: not_opt . expr
|
|
679 | not_opt . expr THRU expr
|
|
680 | not_opt . cond_name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 1697
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 1698
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1614
|
|
|
|
669 when_case_list: when_case_list WHEN @68 @69 when_case . $@70 sentence_or_nothing
|
|
673 when_case: when_case . ALSO @72 selection_object
|
|
|
|
ALSO shift, and go to state 1605
|
|
|
|
$default reduce using rule 668 ($@70)
|
|
|
|
$@70 go to state 1699
|
|
|
|
|
|
state 1615
|
|
|
|
1111 initial_opt: INITIAL_TOK .
|
|
|
|
$default reduce using rule 1111 (initial_opt)
|
|
|
|
|
|
state 1616
|
|
|
|
1109 inspect_before_after: inspect_before_after AFTER initial_opt . noallname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 1700
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1617
|
|
|
|
1108 inspect_before_after: inspect_before_after BEFORE initial_opt . noallname
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 1701
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1618
|
|
|
|
1094 tallying_for_list: tallying_for_list ALL noallname . inspect_before_after
|
|
|
|
$default reduce using rule 1110 (inspect_before_after)
|
|
|
|
inspect_before_after go to state 1702
|
|
|
|
|
|
state 1619
|
|
|
|
1093 tallying_for_list: tallying_for_list CHARACTERS inspect_before_after .
|
|
1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname
|
|
1109 | inspect_before_after . AFTER initial_opt noallname
|
|
|
|
AFTER shift, and go to state 1495
|
|
BEFORE shift, and go to state 1496
|
|
|
|
$default reduce using rule 1093 (tallying_for_list)
|
|
|
|
|
|
state 1620
|
|
|
|
1095 tallying_for_list: tallying_for_list LEADING noallname . inspect_before_after
|
|
|
|
$default reduce using rule 1110 (inspect_before_after)
|
|
|
|
inspect_before_after go to state 1703
|
|
|
|
|
|
state 1621
|
|
|
|
1099 replacing_list: replacing_list CHARACTERS BY noallname . inspect_before_after
|
|
|
|
$default reduce using rule 1110 (inspect_before_after)
|
|
|
|
inspect_before_after go to state 1704
|
|
|
|
|
|
state 1622
|
|
|
|
1102 replacing_by_list: replacing_by_list noallname . BY noallname inspect_before_after
|
|
|
|
BY shift, and go to state 1705
|
|
|
|
|
|
state 1623
|
|
|
|
769 sort_file_list: sort_file_list name .
|
|
|
|
$default reduce using rule 769 (sort_file_list)
|
|
|
|
|
|
state 1624
|
|
|
|
767 sort_output: GIVING . sort_file_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
sort_file_list go to state 1706
|
|
name go to state 1503
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1625
|
|
|
|
766 sort_output: OUTPUT . PROCEDURE is_opt perform_range
|
|
|
|
PROCEDURE shift, and go to state 1707
|
|
|
|
|
|
state 1626
|
|
|
|
740 merge_statement: MERGE name sort_keys $@86 sort_collating_opt $@87 merge_using $@88 sort_output .
|
|
|
|
$default reduce using rule 740 (merge_statement)
|
|
|
|
|
|
state 1627
|
|
|
|
1151 perform_options: with_test_opt UNTIL @131 condition @132 perform_statements $@133 END_PERFORM .
|
|
|
|
$default reduce using rule 1151 (perform_options)
|
|
|
|
|
|
state 1628
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL . @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
$default reduce using rule 1152 (@134)
|
|
|
|
@134 go to state 1708
|
|
|
|
|
|
state 1629
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt . gname UNTIL @138 condition @139 perform_after_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1709
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1630
|
|
|
|
914 read_at_end_opt: AT on_end NOT at_opt $@96 . on_end
|
|
|
|
END shift, and go to state 1050
|
|
|
|
on_end go to state 1710
|
|
|
|
|
|
state 1631
|
|
|
|
916 read_at_end_opt: on_end NOT at_opt $@97 on_end .
|
|
|
|
$default reduce using rule 916 (read_at_end_opt)
|
|
|
|
|
|
state 1632
|
|
|
|
718 search_all_when: WHEN $@83 search_all_when_conditional . @84 search_all_when_statement
|
|
724 search_all_when_conditional: search_all_when_conditional . AND @85 search_all_when_conditional
|
|
|
|
AND shift, and go to state 1711
|
|
|
|
$default reduce using rule 717 (@84)
|
|
|
|
@84 go to state 1712
|
|
|
|
|
|
state 1633
|
|
|
|
721 search_all_when_conditional: variable . is_opt CONDITIONAL to_opt variable
|
|
722 | variable . is_opt CONDITIONAL to_opt literal
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1713
|
|
|
|
|
|
state 1634
|
|
|
|
710 search_when: WHEN search_when_conditional . @82 search_when_statement
|
|
|
|
$default reduce using rule 709 (@82)
|
|
|
|
@82 go to state 1714
|
|
|
|
|
|
state 1635
|
|
|
|
713 search_when_conditional: name_or_lit . extended_cond_op name_or_lit
|
|
|
|
CONDITIONAL shift, and go to state 591
|
|
IS shift, and go to state 592
|
|
NOT shift, and go to state 598
|
|
ALPHABETIC shift, and go to state 599
|
|
ALPHABETIC_LOWER shift, and go to state 600
|
|
ALPHABETIC_UPPER shift, and go to state 601
|
|
NEGATIVE shift, and go to state 602
|
|
NUMERIC shift, and go to state 603
|
|
POSITIVE shift, and go to state 604
|
|
ZERO shift, and go to state 605
|
|
|
|
sign_condition go to state 606
|
|
class_condition go to state 607
|
|
extended_cond_op go to state 1715
|
|
ext_cond go to state 609
|
|
conditional go to state 610
|
|
|
|
|
|
state 1636
|
|
|
|
708 search_when_list: search_when_list search_when .
|
|
|
|
$default reduce using rule 708 (search_when_list)
|
|
|
|
|
|
state 1637
|
|
|
|
764 sort_input: INPUT PROCEDURE . is_opt perform_range
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1716
|
|
|
|
|
|
state 1638
|
|
|
|
765 sort_input: USING sort_file_list .
|
|
769 sort_file_list: sort_file_list . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 765 (sort_input)
|
|
|
|
name go to state 1623
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1639
|
|
|
|
747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 . sort_output
|
|
|
|
GIVING shift, and go to state 1624
|
|
OUTPUT shift, and go to state 1625
|
|
|
|
sort_output go to state 1717
|
|
|
|
|
|
state 1640
|
|
|
|
1046 on_overflow_opt: $@119 on_overflow on_not_overflow .
|
|
|
|
$default reduce using rule 1046 (on_overflow_opt)
|
|
|
|
|
|
state 1641
|
|
|
|
1059 on_not_overflow: not_excep . on_opt OVERFLOW_TOK @123 statement_list
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1718
|
|
|
|
|
|
state 1642
|
|
|
|
1056 on_overflow: on_opt OVERFLOW_TOK . @122 statement_list
|
|
|
|
$default reduce using rule 1055 (@122)
|
|
|
|
@122 go to state 1719
|
|
|
|
|
|
state 1643
|
|
|
|
1042 unstring_tallying: TALLYING in_opt name .
|
|
|
|
$default reduce using rule 1042 (unstring_tallying)
|
|
|
|
|
|
state 1644
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt . end_unstring_opt
|
|
|
|
END_UNSTRING shift, and go to state 1720
|
|
|
|
END_UNSTRING [reduce using rule 1083 (end_unstring_opt)]
|
|
$default reduce using rule 1083 (end_unstring_opt)
|
|
|
|
end_unstring_opt go to state 1721
|
|
|
|
|
|
state 1645
|
|
|
|
1040 unstring_count_opt: COUNT in_opt name .
|
|
|
|
$default reduce using rule 1040 (unstring_count_opt)
|
|
|
|
|
|
state 1646
|
|
|
|
112 select_clause: ALTERNATE RECORD key_opt is_opt STRING with_duplicates .
|
|
|
|
$default reduce using rule 112 (select_clause)
|
|
|
|
|
|
state 1647
|
|
|
|
124 with_duplicates: with_opt . DUPLICATES
|
|
|
|
DUPLICATES shift, and go to state 1722
|
|
|
|
|
|
state 1648
|
|
|
|
517 lines_at_opt: AT .
|
|
|
|
$default reduce using rule 517 (lines_at_opt)
|
|
|
|
|
|
state 1649
|
|
|
|
515 lines_at_opt: LINES .
|
|
516 | LINES . AT
|
|
|
|
AT shift, and go to state 1723
|
|
|
|
$default reduce using rule 515 (lines_at_opt)
|
|
|
|
|
|
state 1650
|
|
|
|
507 file_description_clause_linage: LINAGE is_opt data_name lines_opt file_description_clause_linage_footing file_description_clause_linage_top . file_description_clause_linage_bottom
|
|
|
|
AT shift, and go to state 1648
|
|
LINES shift, and go to state 1649
|
|
|
|
BOTTOM reduce using rule 514 (lines_at_opt)
|
|
$default reduce using rule 512 (file_description_clause_linage_bottom)
|
|
|
|
file_description_clause_linage_bottom go to state 1724
|
|
lines_at_opt go to state 1725
|
|
|
|
|
|
state 1651
|
|
|
|
511 file_description_clause_linage_top: lines_at_opt . TOP data_name
|
|
|
|
TOP shift, and go to state 1726
|
|
|
|
|
|
state 1652
|
|
|
|
509 file_description_clause_linage_footing: with_opt FOOTING . at_opt data_name
|
|
|
|
AT shift, and go to state 1054
|
|
|
|
$default reduce using rule 1225 (at_opt)
|
|
|
|
at_opt go to state 1727
|
|
|
|
|
|
state 1653
|
|
|
|
531 from_opt: FROM .
|
|
|
|
$default reduce using rule 531 (from_opt)
|
|
|
|
|
|
state 1654
|
|
|
|
501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying . to_rec_varying character_opts depend_rec_varying
|
|
|
|
TO shift, and go to state 1432
|
|
|
|
$default reduce using rule 533 (to_rec_varying)
|
|
|
|
to_rec_varying go to state 1728
|
|
|
|
|
|
state 1655
|
|
|
|
530 from_rec_varying: from_opt . nliteral
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
nliteral go to state 1729
|
|
signed_nliteral go to state 1069
|
|
|
|
|
|
state 1656
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt DEPENDING . $@48 on_opt gname $@49 indexed_by_opt
|
|
|
|
$default reduce using rule 456 ($@48)
|
|
|
|
$@48 go to state 1730
|
|
|
|
|
|
state 1657
|
|
|
|
459 key_is_opt: DIRECTION key_opt . is_opt STRING
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1731
|
|
|
|
|
|
state 1658
|
|
|
|
461 indexed_by_opt: key_is_opt INDEXED . by_opt index_name_list
|
|
|
|
BY shift, and go to state 854
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
by_opt go to state 1732
|
|
|
|
|
|
state 1659
|
|
|
|
482 multiplier_opt: MULTIPLIER .
|
|
|
|
$default reduce using rule 482 (multiplier_opt)
|
|
|
|
|
|
state 1660
|
|
|
|
480 pic_elem: CHAR multiplier_opt .
|
|
|
|
$default reduce using rule 480 (pic_elem)
|
|
|
|
|
|
state 1661
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt . heading_opt first_detail_opt last_detail_opt footing_opt
|
|
|
|
HEADING shift, and go to state 1733
|
|
|
|
$default reduce using rule 203 (heading_opt)
|
|
|
|
heading_opt go to state 1734
|
|
|
|
|
|
state 1662
|
|
|
|
225 report_description: report_description report_item .
|
|
|
|
$default reduce using rule 225 (report_description)
|
|
|
|
|
|
state 1663
|
|
|
|
227 report_item: integer def_name_opt . $@18 report_clauses PERIOD_TOK
|
|
|
|
$default reduce using rule 226 ($@18)
|
|
|
|
$@18 go to state 1735
|
|
|
|
|
|
state 1664
|
|
|
|
223 report_break_list: report_break_list name .
|
|
|
|
$default reduce using rule 223 (report_break_list)
|
|
|
|
|
|
state 1665
|
|
|
|
348 screen_source_destination: TO $@37 name .
|
|
|
|
$default reduce using rule 348 (screen_source_destination)
|
|
|
|
|
|
state 1666
|
|
|
|
414 number_is_opt: NUMBER . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1736
|
|
|
|
|
|
state 1667
|
|
|
|
329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt . plus_minus_opt name_or_lit
|
|
|
|
'+' shift, and go to state 1737
|
|
'-' shift, and go to state 1738
|
|
MINUS shift, and go to state 1739
|
|
PLUS shift, and go to state 1740
|
|
|
|
'+' [reduce using rule 413 (plus_minus_opt)]
|
|
'-' [reduce using rule 413 (plus_minus_opt)]
|
|
$default reduce using rule 413 (plus_minus_opt)
|
|
|
|
plus_minus_opt go to state 1741
|
|
|
|
|
|
state 1668
|
|
|
|
346 screen_source_destination: FROM $@36 name_or_lit . screen_to_name
|
|
|
|
TO shift, and go to state 1742
|
|
|
|
TO [reduce using rule 349 (screen_to_name)]
|
|
$default reduce using rule 349 (screen_to_name)
|
|
|
|
screen_to_name go to state 1743
|
|
|
|
|
|
state 1669
|
|
|
|
327 screen_clauses: screen_clauses LINE $@29 number_is_opt . plus_minus_opt name_or_lit
|
|
|
|
'+' shift, and go to state 1737
|
|
'-' shift, and go to state 1738
|
|
MINUS shift, and go to state 1739
|
|
PLUS shift, and go to state 1740
|
|
|
|
'+' [reduce using rule 413 (plus_minus_opt)]
|
|
'-' [reduce using rule 413 (plus_minus_opt)]
|
|
$default reduce using rule 413 (plus_minus_opt)
|
|
|
|
plus_minus_opt go to state 1744
|
|
|
|
|
|
state 1670
|
|
|
|
341 screen_clauses: screen_clauses SIZE $@34 name_or_lit .
|
|
|
|
$default reduce using rule 341 (screen_clauses)
|
|
|
|
|
|
state 1671
|
|
|
|
344 screen_source_destination: USING $@35 name_or_lit .
|
|
|
|
$default reduce using rule 344 (screen_source_destination)
|
|
|
|
|
|
state 1672
|
|
|
|
334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1745
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1673
|
|
|
|
352 screen_attrib: BLANK LINE .
|
|
|
|
$default reduce using rule 352 (screen_attrib)
|
|
|
|
|
|
state 1674
|
|
|
|
351 screen_attrib: BLANK SCREEN .
|
|
|
|
$default reduce using rule 351 (screen_attrib)
|
|
|
|
|
|
state 1675
|
|
|
|
369 screen_attrib: BLANK when_opt . ZERO
|
|
|
|
ZERO shift, and go to state 1746
|
|
|
|
|
|
state 1676
|
|
|
|
336 screen_clauses: screen_clauses with_opt COLOR $@33 . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1747
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1677
|
|
|
|
353 screen_attrib: ERASE EOL .
|
|
|
|
$default reduce using rule 353 (screen_attrib)
|
|
|
|
|
|
state 1678
|
|
|
|
354 screen_attrib: ERASE EOS .
|
|
|
|
$default reduce using rule 354 (screen_attrib)
|
|
|
|
|
|
state 1679
|
|
|
|
332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1748
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1680
|
|
|
|
363 screen_attrib: JUSTIFIED LEFT .
|
|
|
|
$default reduce using rule 363 (screen_attrib)
|
|
|
|
|
|
state 1681
|
|
|
|
362 screen_attrib: JUSTIFIED RIGHT .
|
|
|
|
$default reduce using rule 362 (screen_attrib)
|
|
|
|
|
|
state 1682
|
|
|
|
372 screen_attrib: with_opt NO . ADVANCING
|
|
|
|
ADVANCING shift, and go to state 1749
|
|
|
|
|
|
state 1683
|
|
|
|
356 screen_attrib: with_opt BELL .
|
|
|
|
$default reduce using rule 356 (screen_attrib)
|
|
|
|
|
|
state 1684
|
|
|
|
370 screen_attrib: with_opt NOECHO .
|
|
|
|
$default reduce using rule 370 (screen_attrib)
|
|
|
|
|
|
state 1685
|
|
|
|
371 screen_attrib: with_opt UPDATE .
|
|
|
|
$default reduce using rule 371 (screen_attrib)
|
|
|
|
|
|
state 1686
|
|
|
|
925 read_not_invalid_key: NOT INVALID key_opt . @100 statement_list
|
|
|
|
$default reduce using rule 924 (@100)
|
|
|
|
@100 go to state 1750
|
|
|
|
|
|
state 1687
|
|
|
|
923 read_invalid_key: INVALID key_opt @99 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1751
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1688
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 . end_accept_opt
|
|
|
|
END_ACCEPT shift, and go to state 725
|
|
|
|
END_ACCEPT [reduce using rule 837 (end_accept_opt)]
|
|
$default reduce using rule 837 (end_accept_opt)
|
|
|
|
end_accept_opt go to state 1752
|
|
|
|
|
|
state 1689
|
|
|
|
1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE . $@115 on_size_error
|
|
|
|
$default reduce using rule 1000 ($@115)
|
|
|
|
$@115 go to state 1753
|
|
|
|
|
|
state 1690
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow . on_not_exception $@109 end_call_opt
|
|
|
|
NOT shift, and go to state 1754
|
|
|
|
NOT [reduce using rule 1054 (on_not_exception)]
|
|
$default reduce using rule 1054 (on_not_exception)
|
|
|
|
on_not_exception go to state 1755
|
|
|
|
|
|
state 1691
|
|
|
|
1133 parm_list: parm_list sep_opt parameter .
|
|
|
|
$default reduce using rule 1133 (parm_list)
|
|
|
|
|
|
state 1692
|
|
|
|
1136 parameter: by_opt parm_type gname .
|
|
|
|
$default reduce using rule 1136 (parameter)
|
|
|
|
|
|
state 1693
|
|
|
|
1048 on_exception_or_overflow: on_opt exception_or_overflow @120 statement_list .
|
|
|
|
$default reduce using rule 1048 (on_exception_or_overflow)
|
|
|
|
|
|
state 1694
|
|
|
|
816 divide_body: gname BY gname GIVING name rounded_opt REMAINDER name on_size_error_opt .
|
|
|
|
$default reduce using rule 816 (divide_body)
|
|
|
|
|
|
state 1695
|
|
|
|
817 divide_body: gname INTO gname GIVING name rounded_opt REMAINDER name on_size_error_opt .
|
|
|
|
$default reduce using rule 817 (divide_body)
|
|
|
|
|
|
state 1696
|
|
|
|
673 when_case: when_case ALSO @72 . selection_object
|
|
|
|
NOT shift, and go to state 1608
|
|
ANY shift, and go to state 1609
|
|
FALSE_TOK shift, and go to state 1610
|
|
TRUE_TOK shift, and go to state 1611
|
|
|
|
$default reduce using rule 689 (not_opt)
|
|
|
|
selection_object go to state 1756
|
|
not_opt go to state 1613
|
|
|
|
|
|
state 1697
|
|
|
|
678 selection_object: not_opt expr .
|
|
679 | not_opt expr . THRU expr
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
THRU shift, and go to state 1757
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 678 (selection_object)
|
|
|
|
|
|
state 1698
|
|
|
|
680 selection_object: not_opt cond_name .
|
|
|
|
$default reduce using rule 680 (selection_object)
|
|
|
|
|
|
state 1699
|
|
|
|
669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 . sentence_or_nothing
|
|
|
|
END_EVALUATE reduce using rule 681 (sentence_or_nothing)
|
|
NEXT reduce using rule 687 ($@75)
|
|
WHEN reduce using rule 681 (sentence_or_nothing)
|
|
PERIOD_TOK reduce using rule 681 (sentence_or_nothing)
|
|
$default reduce using rule 685 ($@74)
|
|
|
|
sentence_or_nothing go to state 1758
|
|
conditional_statement go to state 1607
|
|
$@74 go to state 862
|
|
$@75 go to state 863
|
|
|
|
|
|
state 1700
|
|
|
|
1109 inspect_before_after: inspect_before_after AFTER initial_opt noallname .
|
|
|
|
$default reduce using rule 1109 (inspect_before_after)
|
|
|
|
|
|
state 1701
|
|
|
|
1108 inspect_before_after: inspect_before_after BEFORE initial_opt noallname .
|
|
|
|
$default reduce using rule 1108 (inspect_before_after)
|
|
|
|
|
|
state 1702
|
|
|
|
1094 tallying_for_list: tallying_for_list ALL noallname inspect_before_after .
|
|
1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname
|
|
1109 | inspect_before_after . AFTER initial_opt noallname
|
|
|
|
AFTER shift, and go to state 1495
|
|
BEFORE shift, and go to state 1496
|
|
|
|
$default reduce using rule 1094 (tallying_for_list)
|
|
|
|
|
|
state 1703
|
|
|
|
1095 tallying_for_list: tallying_for_list LEADING noallname inspect_before_after .
|
|
1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname
|
|
1109 | inspect_before_after . AFTER initial_opt noallname
|
|
|
|
AFTER shift, and go to state 1495
|
|
BEFORE shift, and go to state 1496
|
|
|
|
$default reduce using rule 1095 (tallying_for_list)
|
|
|
|
|
|
state 1704
|
|
|
|
1099 replacing_list: replacing_list CHARACTERS BY noallname inspect_before_after .
|
|
1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname
|
|
1109 | inspect_before_after . AFTER initial_opt noallname
|
|
|
|
AFTER shift, and go to state 1495
|
|
BEFORE shift, and go to state 1496
|
|
|
|
$default reduce using rule 1099 (replacing_list)
|
|
|
|
|
|
state 1705
|
|
|
|
1102 replacing_by_list: replacing_by_list noallname BY . noallname inspect_before_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
noallname go to state 1759
|
|
without_all_literal go to state 806
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 807
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1706
|
|
|
|
767 sort_output: GIVING sort_file_list .
|
|
769 sort_file_list: sort_file_list . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
$default reduce using rule 767 (sort_output)
|
|
|
|
name go to state 1623
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1707
|
|
|
|
766 sort_output: OUTPUT PROCEDURE . is_opt perform_range
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1760
|
|
|
|
|
|
state 1708
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 . condition @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 1761
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1709
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname . UNTIL @138 condition @139 perform_after_opt
|
|
|
|
UNTIL shift, and go to state 1762
|
|
|
|
|
|
state 1710
|
|
|
|
914 read_at_end_opt: AT on_end NOT at_opt $@96 on_end .
|
|
|
|
$default reduce using rule 914 (read_at_end_opt)
|
|
|
|
|
|
state 1711
|
|
|
|
724 search_all_when_conditional: search_all_when_conditional AND . @85 search_all_when_conditional
|
|
|
|
$default reduce using rule 723 (@85)
|
|
|
|
@85 go to state 1763
|
|
|
|
|
|
state 1712
|
|
|
|
718 search_all_when: WHEN $@83 search_all_when_conditional @84 . search_all_when_statement
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
NEXT shift, and go to state 1764
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1765
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
search_all_when_statement go to state 1766
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1713
|
|
|
|
721 search_all_when_conditional: variable is_opt . CONDITIONAL to_opt variable
|
|
722 | variable is_opt . CONDITIONAL to_opt literal
|
|
|
|
CONDITIONAL shift, and go to state 1767
|
|
|
|
|
|
state 1714
|
|
|
|
710 search_when: WHEN search_when_conditional @82 . search_when_statement
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
NEXT shift, and go to state 1768
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1769
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
search_when_statement go to state 1770
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1715
|
|
|
|
713 search_when_conditional: name_or_lit extended_cond_op . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1771
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1716
|
|
|
|
764 sort_input: INPUT PROCEDURE is_opt . perform_range
|
|
|
|
LABELSTR shift, and go to state 582
|
|
NLITERAL shift, and go to state 583
|
|
|
|
perform_range go to state 1772
|
|
label go to state 1773
|
|
|
|
|
|
state 1717
|
|
|
|
747 sort_file: SORT name sort_keys $@89 sort_duplicates_opt sort_collating_opt $@90 sort_input $@91 sort_output .
|
|
|
|
$default reduce using rule 747 (sort_file)
|
|
|
|
|
|
state 1718
|
|
|
|
1059 on_not_overflow: not_excep on_opt . OVERFLOW_TOK @123 statement_list
|
|
|
|
OVERFLOW_TOK shift, and go to state 1774
|
|
|
|
|
|
state 1719
|
|
|
|
1056 on_overflow: on_opt OVERFLOW_TOK @122 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1775
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1720
|
|
|
|
1084 end_unstring_opt: END_UNSTRING .
|
|
|
|
$default reduce using rule 1084 (end_unstring_opt)
|
|
|
|
|
|
state 1721
|
|
|
|
1029 unstring_statement: UNSTRING name unstring_delimited INTO unstring_destinations string_with_pointer unstring_tallying $@118 on_overflow_opt end_unstring_opt .
|
|
|
|
$default reduce using rule 1029 (unstring_statement)
|
|
|
|
|
|
state 1722
|
|
|
|
124 with_duplicates: with_opt DUPLICATES .
|
|
|
|
$default reduce using rule 124 (with_duplicates)
|
|
|
|
|
|
state 1723
|
|
|
|
516 lines_at_opt: LINES AT .
|
|
|
|
$default reduce using rule 516 (lines_at_opt)
|
|
|
|
|
|
state 1724
|
|
|
|
507 file_description_clause_linage: LINAGE is_opt data_name lines_opt file_description_clause_linage_footing file_description_clause_linage_top file_description_clause_linage_bottom .
|
|
|
|
$default reduce using rule 507 (file_description_clause_linage)
|
|
|
|
|
|
state 1725
|
|
|
|
513 file_description_clause_linage_bottom: lines_at_opt . BOTTOM data_name
|
|
|
|
BOTTOM shift, and go to state 1776
|
|
|
|
|
|
state 1726
|
|
|
|
511 file_description_clause_linage_top: lines_at_opt TOP . data_name
|
|
|
|
STRING shift, and go to state 1298
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1299
|
|
signed_nliteral go to state 77
|
|
data_name go to state 1777
|
|
|
|
|
|
state 1727
|
|
|
|
509 file_description_clause_linage_footing: with_opt FOOTING at_opt . data_name
|
|
|
|
STRING shift, and go to state 1298
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1299
|
|
signed_nliteral go to state 77
|
|
data_name go to state 1778
|
|
|
|
|
|
state 1728
|
|
|
|
501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying . character_opts depend_rec_varying
|
|
|
|
CHARACTERS shift, and go to state 1541
|
|
|
|
$default reduce using rule 547 (character_opts)
|
|
|
|
character_opts go to state 1779
|
|
|
|
|
|
state 1729
|
|
|
|
530 from_rec_varying: from_opt nliteral .
|
|
|
|
$default reduce using rule 530 (from_rec_varying)
|
|
|
|
|
|
state 1730
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 . on_opt gname $@49 indexed_by_opt
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1780
|
|
|
|
|
|
state 1731
|
|
|
|
459 key_is_opt: DIRECTION key_opt is_opt . STRING
|
|
|
|
STRING shift, and go to state 1781
|
|
|
|
|
|
state 1732
|
|
|
|
461 indexed_by_opt: key_is_opt INDEXED by_opt . index_name_list
|
|
|
|
STRING shift, and go to state 368
|
|
FILLER shift, and go to state 369
|
|
|
|
index_name_list go to state 1782
|
|
def_name go to state 1783
|
|
|
|
|
|
state 1733
|
|
|
|
204 heading_opt: HEADING . is_opt integer
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1784
|
|
|
|
|
|
state 1734
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt . first_detail_opt last_detail_opt footing_opt
|
|
|
|
FIRST shift, and go to state 1785
|
|
|
|
$default reduce using rule 218 (first_detail_opt)
|
|
|
|
first_detail_opt go to state 1786
|
|
|
|
|
|
state 1735
|
|
|
|
227 report_item: integer def_name_opt $@18 . report_clauses PERIOD_TOK
|
|
|
|
BLANK shift, and go to state 1787
|
|
COLUMN shift, and go to state 1788
|
|
COLUMNS shift, and go to state 1789
|
|
DISPLAY shift, and go to state 1790
|
|
GROUP shift, and go to state 1791
|
|
JUSTIFIED shift, and go to state 1792
|
|
LEADING shift, and go to state 1793
|
|
LINE shift, and go to state 1794
|
|
LINES shift, and go to state 1795
|
|
NEXT shift, and go to state 1796
|
|
PICTURE shift, and go to state 1797
|
|
SIGN shift, and go to state 1798
|
|
SOURCE shift, and go to state 1799
|
|
SUM shift, and go to state 1800
|
|
TRAILING shift, and go to state 1801
|
|
TYPE shift, and go to state 1802
|
|
USAGE shift, and go to state 1803
|
|
VALUE shift, and go to state 1804
|
|
|
|
BLANK [reduce using rule 296 (report_clause_group_indicate)]
|
|
COLUMN [reduce using rule 296 (report_clause_group_indicate)]
|
|
COLUMNS [reduce using rule 296 (report_clause_group_indicate)]
|
|
DISPLAY [reduce using rule 296 (report_clause_group_indicate)]
|
|
GROUP [reduce using rule 296 (report_clause_group_indicate)]
|
|
JUSTIFIED [reduce using rule 296 (report_clause_group_indicate)]
|
|
LEADING [reduce using rule 296 (report_clause_group_indicate)]
|
|
LINE [reduce using rule 296 (report_clause_group_indicate)]
|
|
LINES [reduce using rule 296 (report_clause_group_indicate)]
|
|
NEXT [reduce using rule 296 (report_clause_group_indicate)]
|
|
PICTURE [reduce using rule 296 (report_clause_group_indicate)]
|
|
SIGN [reduce using rule 296 (report_clause_group_indicate)]
|
|
SOURCE [reduce using rule 296 (report_clause_group_indicate)]
|
|
SUM [reduce using rule 296 (report_clause_group_indicate)]
|
|
TRAILING [reduce using rule 296 (report_clause_group_indicate)]
|
|
TYPE [reduce using rule 296 (report_clause_group_indicate)]
|
|
USAGE [reduce using rule 296 (report_clause_group_indicate)]
|
|
VALUE [reduce using rule 296 (report_clause_group_indicate)]
|
|
$default reduce using rule 296 (report_clause_group_indicate)
|
|
|
|
report_clauses go to state 1805
|
|
report_clause go to state 1806
|
|
report_clause_type go to state 1807
|
|
report_clause_sign_is go to state 1808
|
|
report_clause_picture go to state 1809
|
|
report_clause_usage_display go to state 1810
|
|
report_clause_justified go to state 1811
|
|
report_clause_next_group go to state 1812
|
|
report_clause_line go to state 1813
|
|
report_clause_line_is go to state 1814
|
|
report_clause_column go to state 1815
|
|
report_clause_column_is go to state 1816
|
|
report_clause_svs go to state 1817
|
|
report_clause_group_indicate go to state 1818
|
|
report_clause_blank_zero go to state 1819
|
|
leading_trailing go to state 1820
|
|
|
|
|
|
state 1736
|
|
|
|
414 number_is_opt: NUMBER is_opt .
|
|
|
|
$default reduce using rule 414 (number_is_opt)
|
|
|
|
|
|
state 1737
|
|
|
|
410 plus_minus_opt: '+' .
|
|
|
|
$default reduce using rule 410 (plus_minus_opt)
|
|
|
|
|
|
state 1738
|
|
|
|
412 plus_minus_opt: '-' .
|
|
|
|
$default reduce using rule 412 (plus_minus_opt)
|
|
|
|
|
|
state 1739
|
|
|
|
411 plus_minus_opt: MINUS .
|
|
|
|
$default reduce using rule 411 (plus_minus_opt)
|
|
|
|
|
|
state 1740
|
|
|
|
409 plus_minus_opt: PLUS .
|
|
|
|
$default reduce using rule 409 (plus_minus_opt)
|
|
|
|
|
|
state 1741
|
|
|
|
329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1821
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1742
|
|
|
|
350 screen_to_name: TO . name
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
name go to state 1822
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1743
|
|
|
|
346 screen_source_destination: FROM $@36 name_or_lit screen_to_name .
|
|
|
|
$default reduce using rule 346 (screen_source_destination)
|
|
|
|
|
|
state 1744
|
|
|
|
327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt . name_or_lit
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
name_or_lit go to state 1823
|
|
literal go to state 1065
|
|
signed_nliteral go to state 77
|
|
name go to state 1066
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1745
|
|
|
|
334 screen_clauses: screen_clauses with_opt BACKGROUNDCOLOR $@32 name_or_lit .
|
|
|
|
$default reduce using rule 334 (screen_clauses)
|
|
|
|
|
|
state 1746
|
|
|
|
369 screen_attrib: BLANK when_opt ZERO .
|
|
|
|
$default reduce using rule 369 (screen_attrib)
|
|
|
|
|
|
state 1747
|
|
|
|
336 screen_clauses: screen_clauses with_opt COLOR $@33 name_or_lit .
|
|
|
|
$default reduce using rule 336 (screen_clauses)
|
|
|
|
|
|
state 1748
|
|
|
|
332 screen_clauses: screen_clauses with_opt FOREGROUNDCOLOR $@31 name_or_lit .
|
|
|
|
$default reduce using rule 332 (screen_clauses)
|
|
|
|
|
|
state 1749
|
|
|
|
372 screen_attrib: with_opt NO ADVANCING .
|
|
|
|
$default reduce using rule 372 (screen_attrib)
|
|
|
|
|
|
state 1750
|
|
|
|
925 read_not_invalid_key: NOT INVALID key_opt @100 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1824
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1751
|
|
|
|
923 read_invalid_key: INVALID key_opt @99 statement_list .
|
|
|
|
$default reduce using rule 923 (read_invalid_key)
|
|
|
|
|
|
state 1752
|
|
|
|
836 accept_screen: ACCEPT name accept_display_options on_opt EXCEPTION $@93 variable @94 statement_list $@95 end_accept_opt .
|
|
|
|
$default reduce using rule 836 (accept_screen)
|
|
|
|
|
|
state 1753
|
|
|
|
1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 . on_size_error
|
|
|
|
ERROR_TOK shift, and go to state 1350
|
|
|
|
on_size_error go to state 1825
|
|
|
|
|
|
state 1754
|
|
|
|
1053 on_not_exception: NOT . on_opt EXCEPTION @121 statement_list
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1826
|
|
|
|
|
|
state 1755
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception . $@109 end_call_opt
|
|
|
|
$default reduce using rule 966 ($@109)
|
|
|
|
$@109 go to state 1827
|
|
|
|
|
|
state 1756
|
|
|
|
673 when_case: when_case ALSO @72 selection_object .
|
|
|
|
$default reduce using rule 673 (when_case)
|
|
|
|
|
|
state 1757
|
|
|
|
679 selection_object: not_opt expr THRU . expr
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 752
|
|
|
|
expr go to state 1828
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1758
|
|
|
|
669 when_case_list: when_case_list WHEN @68 @69 when_case $@70 sentence_or_nothing .
|
|
|
|
$default reduce using rule 669 (when_case_list)
|
|
|
|
|
|
state 1759
|
|
|
|
1102 replacing_by_list: replacing_by_list noallname BY noallname . inspect_before_after
|
|
|
|
$default reduce using rule 1110 (inspect_before_after)
|
|
|
|
inspect_before_after go to state 1829
|
|
|
|
|
|
state 1760
|
|
|
|
766 sort_output: OUTPUT PROCEDURE is_opt . perform_range
|
|
|
|
LABELSTR shift, and go to state 582
|
|
NLITERAL shift, and go to state 583
|
|
|
|
perform_range go to state 1830
|
|
label go to state 1773
|
|
|
|
|
|
state 1761
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition . @135 perform_after_opt perform_statements $@136 END_PERFORM
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
$default reduce using rule 1153 (@135)
|
|
|
|
@135 go to state 1831
|
|
|
|
|
|
state 1762
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL . @138 condition @139 perform_after_opt
|
|
|
|
$default reduce using rule 1160 (@138)
|
|
|
|
@138 go to state 1832
|
|
|
|
|
|
state 1763
|
|
|
|
724 search_all_when_conditional: search_all_when_conditional AND @85 . search_all_when_conditional
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
|
|
search_all_when_conditional go to state 1833
|
|
variable go to state 1633
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1764
|
|
|
|
720 search_all_when_statement: NEXT . SENTENCE
|
|
|
|
SENTENCE shift, and go to state 1834
|
|
|
|
|
|
state 1765
|
|
|
|
719 search_all_when_statement: statement_list .
|
|
|
|
$default reduce using rule 719 (search_all_when_statement)
|
|
|
|
|
|
state 1766
|
|
|
|
718 search_all_when: WHEN $@83 search_all_when_conditional @84 search_all_when_statement .
|
|
|
|
$default reduce using rule 718 (search_all_when)
|
|
|
|
|
|
state 1767
|
|
|
|
721 search_all_when_conditional: variable is_opt CONDITIONAL . to_opt variable
|
|
722 | variable is_opt CONDITIONAL . to_opt literal
|
|
|
|
TO shift, and go to state 420
|
|
|
|
$default reduce using rule 1239 (to_opt)
|
|
|
|
to_opt go to state 1835
|
|
|
|
|
|
state 1768
|
|
|
|
712 search_when_statement: NEXT . SENTENCE
|
|
|
|
SENTENCE shift, and go to state 1836
|
|
|
|
|
|
state 1769
|
|
|
|
711 search_when_statement: statement_list .
|
|
|
|
$default reduce using rule 711 (search_when_statement)
|
|
|
|
|
|
state 1770
|
|
|
|
710 search_when: WHEN search_when_conditional @82 search_when_statement .
|
|
|
|
$default reduce using rule 710 (search_when)
|
|
|
|
|
|
state 1771
|
|
|
|
713 search_when_conditional: name_or_lit extended_cond_op name_or_lit .
|
|
|
|
$default reduce using rule 713 (search_when_conditional)
|
|
|
|
|
|
state 1772
|
|
|
|
764 sort_input: INPUT PROCEDURE is_opt perform_range .
|
|
|
|
$default reduce using rule 764 (sort_input)
|
|
|
|
|
|
state 1773
|
|
|
|
1143 perform_range: label . perform_thru_opt
|
|
|
|
THRU shift, and go to state 643
|
|
|
|
$default reduce using rule 1163 (perform_thru_opt)
|
|
|
|
perform_thru_opt go to state 1837
|
|
|
|
|
|
state 1774
|
|
|
|
1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK . @123 statement_list
|
|
|
|
$default reduce using rule 1058 (@123)
|
|
|
|
@123 go to state 1838
|
|
|
|
|
|
state 1775
|
|
|
|
1056 on_overflow: on_opt OVERFLOW_TOK @122 statement_list .
|
|
|
|
$default reduce using rule 1056 (on_overflow)
|
|
|
|
|
|
state 1776
|
|
|
|
513 file_description_clause_linage_bottom: lines_at_opt BOTTOM . data_name
|
|
|
|
STRING shift, and go to state 1298
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1299
|
|
signed_nliteral go to state 77
|
|
data_name go to state 1839
|
|
|
|
|
|
state 1777
|
|
|
|
511 file_description_clause_linage_top: lines_at_opt TOP data_name .
|
|
|
|
$default reduce using rule 511 (file_description_clause_linage_top)
|
|
|
|
|
|
state 1778
|
|
|
|
509 file_description_clause_linage_footing: with_opt FOOTING at_opt data_name .
|
|
|
|
$default reduce using rule 509 (file_description_clause_linage_footing)
|
|
|
|
|
|
state 1779
|
|
|
|
501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts . depend_rec_varying
|
|
|
|
DEPENDING shift, and go to state 1840
|
|
|
|
$default reduce using rule 527 (depend_rec_varying)
|
|
|
|
depend_rec_varying go to state 1841
|
|
|
|
|
|
state 1780
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt . gname $@49 indexed_by_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1842
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1781
|
|
|
|
459 key_is_opt: DIRECTION key_opt is_opt STRING .
|
|
|
|
$default reduce using rule 459 (key_is_opt)
|
|
|
|
|
|
state 1782
|
|
|
|
461 indexed_by_opt: key_is_opt INDEXED by_opt index_name_list .
|
|
464 index_name_list: index_name_list . def_name
|
|
|
|
STRING shift, and go to state 368
|
|
FILLER shift, and go to state 369
|
|
|
|
$default reduce using rule 461 (indexed_by_opt)
|
|
|
|
def_name go to state 1843
|
|
|
|
|
|
state 1783
|
|
|
|
463 index_name_list: def_name .
|
|
|
|
$default reduce using rule 463 (index_name_list)
|
|
|
|
|
|
state 1784
|
|
|
|
204 heading_opt: HEADING is_opt . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1844
|
|
|
|
|
|
state 1785
|
|
|
|
219 first_detail_opt: FIRST . DETAIL is_opt integer
|
|
|
|
DETAIL shift, and go to state 1845
|
|
|
|
|
|
state 1786
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt . last_detail_opt footing_opt
|
|
|
|
LAST shift, and go to state 1846
|
|
|
|
$default reduce using rule 216 (last_detail_opt)
|
|
|
|
last_detail_opt go to state 1847
|
|
|
|
|
|
state 1787
|
|
|
|
298 report_clause_blank_zero: BLANK . when_opt ZERO
|
|
|
|
WHEN shift, and go to state 1138
|
|
|
|
$default reduce using rule 543 (when_opt)
|
|
|
|
when_opt go to state 1848
|
|
|
|
|
|
state 1788
|
|
|
|
277 report_clause_column_is: COLUMN . report_clause_column_orientation is_are_opt
|
|
278 | COLUMN . NUMBER report_clause_column_orientation is_opt
|
|
279 | COLUMN . NUMBERS report_clause_column_orientation are_opt
|
|
|
|
CENTER shift, and go to state 1849
|
|
LEFT shift, and go to state 1850
|
|
NUMBER shift, and go to state 1851
|
|
NUMBERS shift, and go to state 1852
|
|
RIGHT shift, and go to state 1853
|
|
|
|
$default reduce using rule 281 (report_clause_column_orientation)
|
|
|
|
report_clause_column_orientation go to state 1854
|
|
|
|
|
|
state 1789
|
|
|
|
280 report_clause_column_is: COLUMNS . report_clause_column_orientation are_opt
|
|
|
|
CENTER shift, and go to state 1849
|
|
LEFT shift, and go to state 1850
|
|
RIGHT shift, and go to state 1853
|
|
|
|
$default reduce using rule 281 (report_clause_column_orientation)
|
|
|
|
report_clause_column_orientation go to state 1855
|
|
|
|
|
|
state 1790
|
|
|
|
265 report_clause_usage_display: DISPLAY .
|
|
|
|
$default reduce using rule 265 (report_clause_usage_display)
|
|
|
|
|
|
state 1791
|
|
|
|
297 report_clause_group_indicate: GROUP . indicate_opt
|
|
|
|
INDICATE shift, and go to state 1856
|
|
|
|
$default reduce using rule 299 (indicate_opt)
|
|
|
|
indicate_opt go to state 1857
|
|
|
|
|
|
state 1792
|
|
|
|
266 report_clause_justified: JUSTIFIED . right_opt
|
|
|
|
RIGHT shift, and go to state 1858
|
|
|
|
$default reduce using rule 310 (right_opt)
|
|
|
|
right_opt go to state 1859
|
|
|
|
|
|
state 1793
|
|
|
|
308 leading_trailing: LEADING .
|
|
|
|
$default reduce using rule 308 (leading_trailing)
|
|
|
|
|
|
state 1794
|
|
|
|
272 report_clause_line_is: LINE . is_are_opt
|
|
273 | LINE . NUMBER is_opt
|
|
274 | LINE . NUMBERS are_opt
|
|
|
|
IS shift, and go to state 1860
|
|
ARE shift, and go to state 1861
|
|
NUMBER shift, and go to state 1862
|
|
NUMBERS shift, and go to state 1863
|
|
|
|
$default reduce using rule 285 (is_are_opt)
|
|
|
|
is_are_opt go to state 1864
|
|
|
|
|
|
state 1795
|
|
|
|
275 report_clause_line_is: LINES . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1865
|
|
|
|
|
|
state 1796
|
|
|
|
267 report_clause_next_group: NEXT . GROUP is_opt integer_on_next_page
|
|
|
|
GROUP shift, and go to state 1866
|
|
|
|
|
|
state 1797
|
|
|
|
263 report_clause_picture: PICTURE . $@23 is_opt picture
|
|
|
|
$default reduce using rule 262 ($@23)
|
|
|
|
$@23 go to state 1867
|
|
|
|
|
|
state 1798
|
|
|
|
260 report_clause_sign_is: SIGN . is_opt leading_trailing SEPARATE character_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1868
|
|
|
|
|
|
state 1799
|
|
|
|
289 report_clause_svs: SOURCE . $@24 is_opt gname_page_counter
|
|
|
|
$default reduce using rule 288 ($@24)
|
|
|
|
$@24 go to state 1869
|
|
|
|
|
|
state 1800
|
|
|
|
293 report_clause_svs: SUM . $@25 gname_list $@26 upon_opt reset_opt
|
|
|
|
$default reduce using rule 291 ($@25)
|
|
|
|
$@25 go to state 1870
|
|
|
|
|
|
state 1801
|
|
|
|
309 leading_trailing: TRAILING .
|
|
|
|
$default reduce using rule 309 (leading_trailing)
|
|
|
|
|
|
state 1802
|
|
|
|
241 report_clause_type: TYPE . is_opt report_clause_type2
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1871
|
|
|
|
|
|
state 1803
|
|
|
|
264 report_clause_usage_display: USAGE . is_opt DISPLAY
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1872
|
|
|
|
|
|
state 1804
|
|
|
|
290 report_clause_svs: VALUE . is_opt literal
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1873
|
|
|
|
|
|
state 1805
|
|
|
|
227 report_item: integer def_name_opt $@18 report_clauses . PERIOD_TOK
|
|
229 report_clauses: report_clauses . report_clause
|
|
|
|
BLANK shift, and go to state 1787
|
|
COLUMN shift, and go to state 1788
|
|
COLUMNS shift, and go to state 1789
|
|
DISPLAY shift, and go to state 1790
|
|
GROUP shift, and go to state 1791
|
|
JUSTIFIED shift, and go to state 1792
|
|
LEADING shift, and go to state 1793
|
|
LINE shift, and go to state 1794
|
|
LINES shift, and go to state 1795
|
|
NEXT shift, and go to state 1796
|
|
PICTURE shift, and go to state 1797
|
|
SIGN shift, and go to state 1798
|
|
SOURCE shift, and go to state 1799
|
|
SUM shift, and go to state 1800
|
|
TRAILING shift, and go to state 1801
|
|
TYPE shift, and go to state 1802
|
|
USAGE shift, and go to state 1803
|
|
VALUE shift, and go to state 1804
|
|
PERIOD_TOK shift, and go to state 1874
|
|
|
|
BLANK [reduce using rule 296 (report_clause_group_indicate)]
|
|
COLUMN [reduce using rule 296 (report_clause_group_indicate)]
|
|
COLUMNS [reduce using rule 296 (report_clause_group_indicate)]
|
|
DISPLAY [reduce using rule 296 (report_clause_group_indicate)]
|
|
GROUP [reduce using rule 296 (report_clause_group_indicate)]
|
|
JUSTIFIED [reduce using rule 296 (report_clause_group_indicate)]
|
|
LEADING [reduce using rule 296 (report_clause_group_indicate)]
|
|
LINE [reduce using rule 296 (report_clause_group_indicate)]
|
|
LINES [reduce using rule 296 (report_clause_group_indicate)]
|
|
NEXT [reduce using rule 296 (report_clause_group_indicate)]
|
|
PICTURE [reduce using rule 296 (report_clause_group_indicate)]
|
|
SIGN [reduce using rule 296 (report_clause_group_indicate)]
|
|
SOURCE [reduce using rule 296 (report_clause_group_indicate)]
|
|
SUM [reduce using rule 296 (report_clause_group_indicate)]
|
|
TRAILING [reduce using rule 296 (report_clause_group_indicate)]
|
|
TYPE [reduce using rule 296 (report_clause_group_indicate)]
|
|
USAGE [reduce using rule 296 (report_clause_group_indicate)]
|
|
VALUE [reduce using rule 296 (report_clause_group_indicate)]
|
|
PERIOD_TOK [reduce using rule 296 (report_clause_group_indicate)]
|
|
|
|
report_clause go to state 1875
|
|
report_clause_type go to state 1807
|
|
report_clause_sign_is go to state 1808
|
|
report_clause_picture go to state 1809
|
|
report_clause_usage_display go to state 1810
|
|
report_clause_justified go to state 1811
|
|
report_clause_next_group go to state 1812
|
|
report_clause_line go to state 1813
|
|
report_clause_line_is go to state 1814
|
|
report_clause_column go to state 1815
|
|
report_clause_column_is go to state 1816
|
|
report_clause_svs go to state 1817
|
|
report_clause_group_indicate go to state 1818
|
|
report_clause_blank_zero go to state 1819
|
|
leading_trailing go to state 1820
|
|
|
|
|
|
state 1806
|
|
|
|
228 report_clauses: report_clause .
|
|
|
|
$default reduce using rule 228 (report_clauses)
|
|
|
|
|
|
state 1807
|
|
|
|
232 report_clause: report_clause_type .
|
|
|
|
$default reduce using rule 232 (report_clause)
|
|
|
|
|
|
state 1808
|
|
|
|
235 report_clause: report_clause_sign_is .
|
|
|
|
$default reduce using rule 235 (report_clause)
|
|
|
|
|
|
state 1809
|
|
|
|
234 report_clause: report_clause_picture .
|
|
|
|
$default reduce using rule 234 (report_clause)
|
|
|
|
|
|
state 1810
|
|
|
|
233 report_clause: report_clause_usage_display .
|
|
|
|
$default reduce using rule 233 (report_clause)
|
|
|
|
|
|
state 1811
|
|
|
|
236 report_clause: report_clause_justified .
|
|
|
|
$default reduce using rule 236 (report_clause)
|
|
|
|
|
|
state 1812
|
|
|
|
231 report_clause: report_clause_next_group .
|
|
|
|
$default reduce using rule 231 (report_clause)
|
|
|
|
|
|
state 1813
|
|
|
|
230 report_clause: report_clause_line .
|
|
|
|
$default reduce using rule 230 (report_clause)
|
|
|
|
|
|
state 1814
|
|
|
|
268 report_clause_line: report_clause_line_is . integer ON NEXT PAGE
|
|
269 | report_clause_line_is . integer NEXT PAGE
|
|
270 | report_clause_line_is . integer
|
|
271 | report_clause_line_is . PLUS integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
PLUS shift, and go to state 1876
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1877
|
|
|
|
|
|
state 1815
|
|
|
|
238 report_clause: report_clause_column .
|
|
|
|
$default reduce using rule 238 (report_clause)
|
|
|
|
|
|
state 1816
|
|
|
|
276 report_clause_column: report_clause_column_is . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1878
|
|
|
|
|
|
state 1817
|
|
|
|
239 report_clause: report_clause_svs .
|
|
|
|
$default reduce using rule 239 (report_clause)
|
|
|
|
|
|
state 1818
|
|
|
|
240 report_clause: report_clause_group_indicate .
|
|
|
|
$default reduce using rule 240 (report_clause)
|
|
|
|
|
|
state 1819
|
|
|
|
237 report_clause: report_clause_blank_zero .
|
|
|
|
$default reduce using rule 237 (report_clause)
|
|
|
|
|
|
state 1820
|
|
|
|
261 report_clause_sign_is: leading_trailing . SEPARATE character_opt
|
|
|
|
SEPARATE shift, and go to state 1879
|
|
|
|
|
|
state 1821
|
|
|
|
329 screen_clauses: screen_clauses COLUMN $@30 number_is_opt plus_minus_opt name_or_lit .
|
|
|
|
$default reduce using rule 329 (screen_clauses)
|
|
|
|
|
|
state 1822
|
|
|
|
350 screen_to_name: TO name .
|
|
|
|
$default reduce using rule 350 (screen_to_name)
|
|
|
|
|
|
state 1823
|
|
|
|
327 screen_clauses: screen_clauses LINE $@29 number_is_opt plus_minus_opt name_or_lit .
|
|
|
|
$default reduce using rule 327 (screen_clauses)
|
|
|
|
|
|
state 1824
|
|
|
|
925 read_not_invalid_key: NOT INVALID key_opt @100 statement_list .
|
|
|
|
$default reduce using rule 925 (read_not_invalid_key)
|
|
|
|
|
|
state 1825
|
|
|
|
1001 on_size_error_opt: on_opt SIZE on_size_error NOT on_opt SIZE $@115 on_size_error .
|
|
|
|
$default reduce using rule 1001 (on_size_error_opt)
|
|
|
|
|
|
state 1826
|
|
|
|
1053 on_not_exception: NOT on_opt . EXCEPTION @121 statement_list
|
|
|
|
EXCEPTION shift, and go to state 1880
|
|
|
|
|
|
state 1827
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 . end_call_opt
|
|
|
|
END_CALL shift, and go to state 1881
|
|
|
|
END_CALL [reduce using rule 1006 (end_call_opt)]
|
|
$default reduce using rule 1006 (end_call_opt)
|
|
|
|
end_call_opt go to state 1882
|
|
|
|
|
|
state 1828
|
|
|
|
679 selection_object: not_opt expr THRU expr .
|
|
1114 expr: expr . '*' expr
|
|
1115 | expr . '/' expr
|
|
1116 | expr . '+' expr
|
|
1117 | expr . '-' expr
|
|
1118 | expr . POW_OP expr
|
|
|
|
'+' shift, and go to state 593
|
|
'-' shift, and go to state 594
|
|
'*' shift, and go to state 595
|
|
'/' shift, and go to state 596
|
|
POW_OP shift, and go to state 597
|
|
|
|
$default reduce using rule 679 (selection_object)
|
|
|
|
|
|
state 1829
|
|
|
|
1102 replacing_by_list: replacing_by_list noallname BY noallname inspect_before_after .
|
|
1108 inspect_before_after: inspect_before_after . BEFORE initial_opt noallname
|
|
1109 | inspect_before_after . AFTER initial_opt noallname
|
|
|
|
AFTER shift, and go to state 1495
|
|
BEFORE shift, and go to state 1496
|
|
|
|
$default reduce using rule 1102 (replacing_by_list)
|
|
|
|
|
|
state 1830
|
|
|
|
766 sort_output: OUTPUT PROCEDURE is_opt perform_range .
|
|
|
|
$default reduce using rule 766 (sort_output)
|
|
|
|
|
|
state 1831
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 . perform_after_opt perform_statements $@136 END_PERFORM
|
|
|
|
AFTER shift, and go to state 1883
|
|
|
|
$default reduce using rule 1167 (perform_after_opt)
|
|
|
|
perform_after_opt go to state 1884
|
|
|
|
|
|
state 1832
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 . condition @139 perform_after_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 1885
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1833
|
|
|
|
724 search_all_when_conditional: search_all_when_conditional . AND @85 search_all_when_conditional
|
|
724 | search_all_when_conditional AND @85 search_all_when_conditional .
|
|
|
|
$default reduce using rule 724 (search_all_when_conditional)
|
|
|
|
|
|
state 1834
|
|
|
|
720 search_all_when_statement: NEXT SENTENCE .
|
|
|
|
$default reduce using rule 720 (search_all_when_statement)
|
|
|
|
|
|
state 1835
|
|
|
|
721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt . variable
|
|
722 | variable is_opt CONDITIONAL to_opt . literal
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1886
|
|
signed_nliteral go to state 77
|
|
variable go to state 1887
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1836
|
|
|
|
712 search_when_statement: NEXT SENTENCE .
|
|
|
|
$default reduce using rule 712 (search_when_statement)
|
|
|
|
|
|
state 1837
|
|
|
|
1143 perform_range: label perform_thru_opt .
|
|
|
|
$default reduce using rule 1143 (perform_range)
|
|
|
|
|
|
state 1838
|
|
|
|
1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1888
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1839
|
|
|
|
513 file_description_clause_linage_bottom: lines_at_opt BOTTOM data_name .
|
|
|
|
$default reduce using rule 513 (file_description_clause_linage_bottom)
|
|
|
|
|
|
state 1840
|
|
|
|
528 depend_rec_varying: DEPENDING . on_opt STRING
|
|
|
|
ON shift, and go to state 620
|
|
|
|
$default reduce using rule 1235 (on_opt)
|
|
|
|
on_opt go to state 1889
|
|
|
|
|
|
state 1841
|
|
|
|
501 file_description_clause_record: RECORD is_opt VARYING in_opt size_opt from_rec_varying to_rec_varying character_opts depend_rec_varying .
|
|
|
|
$default reduce using rule 501 (file_description_clause_record)
|
|
|
|
|
|
state 1842
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname . $@49 indexed_by_opt
|
|
|
|
$default reduce using rule 457 ($@49)
|
|
|
|
$@49 go to state 1890
|
|
|
|
|
|
state 1843
|
|
|
|
464 index_name_list: index_name_list def_name .
|
|
|
|
$default reduce using rule 464 (index_name_list)
|
|
|
|
|
|
state 1844
|
|
|
|
204 heading_opt: HEADING is_opt integer .
|
|
|
|
$default reduce using rule 204 (heading_opt)
|
|
|
|
|
|
state 1845
|
|
|
|
219 first_detail_opt: FIRST DETAIL . is_opt integer
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1891
|
|
|
|
|
|
state 1846
|
|
|
|
217 last_detail_opt: LAST . DETAIL is_opt integer
|
|
|
|
DETAIL shift, and go to state 1892
|
|
|
|
|
|
state 1847
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt . footing_opt
|
|
|
|
FOOTING shift, and go to state 1893
|
|
|
|
$default reduce using rule 214 (footing_opt)
|
|
|
|
footing_opt go to state 1894
|
|
|
|
|
|
state 1848
|
|
|
|
298 report_clause_blank_zero: BLANK when_opt . ZERO
|
|
|
|
ZERO shift, and go to state 1895
|
|
|
|
|
|
state 1849
|
|
|
|
283 report_clause_column_orientation: CENTER .
|
|
|
|
$default reduce using rule 283 (report_clause_column_orientation)
|
|
|
|
|
|
state 1850
|
|
|
|
282 report_clause_column_orientation: LEFT .
|
|
|
|
$default reduce using rule 282 (report_clause_column_orientation)
|
|
|
|
|
|
state 1851
|
|
|
|
278 report_clause_column_is: COLUMN NUMBER . report_clause_column_orientation is_opt
|
|
|
|
CENTER shift, and go to state 1849
|
|
LEFT shift, and go to state 1850
|
|
RIGHT shift, and go to state 1853
|
|
|
|
$default reduce using rule 281 (report_clause_column_orientation)
|
|
|
|
report_clause_column_orientation go to state 1896
|
|
|
|
|
|
state 1852
|
|
|
|
279 report_clause_column_is: COLUMN NUMBERS . report_clause_column_orientation are_opt
|
|
|
|
CENTER shift, and go to state 1849
|
|
LEFT shift, and go to state 1850
|
|
RIGHT shift, and go to state 1853
|
|
|
|
$default reduce using rule 281 (report_clause_column_orientation)
|
|
|
|
report_clause_column_orientation go to state 1897
|
|
|
|
|
|
state 1853
|
|
|
|
284 report_clause_column_orientation: RIGHT .
|
|
|
|
$default reduce using rule 284 (report_clause_column_orientation)
|
|
|
|
|
|
state 1854
|
|
|
|
277 report_clause_column_is: COLUMN report_clause_column_orientation . is_are_opt
|
|
|
|
IS shift, and go to state 1860
|
|
ARE shift, and go to state 1861
|
|
|
|
$default reduce using rule 285 (is_are_opt)
|
|
|
|
is_are_opt go to state 1898
|
|
|
|
|
|
state 1855
|
|
|
|
280 report_clause_column_is: COLUMNS report_clause_column_orientation . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1899
|
|
|
|
|
|
state 1856
|
|
|
|
300 indicate_opt: INDICATE .
|
|
|
|
$default reduce using rule 300 (indicate_opt)
|
|
|
|
|
|
state 1857
|
|
|
|
297 report_clause_group_indicate: GROUP indicate_opt .
|
|
|
|
$default reduce using rule 297 (report_clause_group_indicate)
|
|
|
|
|
|
state 1858
|
|
|
|
311 right_opt: RIGHT .
|
|
|
|
$default reduce using rule 311 (right_opt)
|
|
|
|
|
|
state 1859
|
|
|
|
266 report_clause_justified: JUSTIFIED right_opt .
|
|
|
|
$default reduce using rule 266 (report_clause_justified)
|
|
|
|
|
|
state 1860
|
|
|
|
286 is_are_opt: IS .
|
|
|
|
$default reduce using rule 286 (is_are_opt)
|
|
|
|
|
|
state 1861
|
|
|
|
287 is_are_opt: ARE .
|
|
|
|
$default reduce using rule 287 (is_are_opt)
|
|
|
|
|
|
state 1862
|
|
|
|
273 report_clause_line_is: LINE NUMBER . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1900
|
|
|
|
|
|
state 1863
|
|
|
|
274 report_clause_line_is: LINE NUMBERS . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1901
|
|
|
|
|
|
state 1864
|
|
|
|
272 report_clause_line_is: LINE is_are_opt .
|
|
|
|
$default reduce using rule 272 (report_clause_line_is)
|
|
|
|
|
|
state 1865
|
|
|
|
275 report_clause_line_is: LINES are_opt .
|
|
|
|
$default reduce using rule 275 (report_clause_line_is)
|
|
|
|
|
|
state 1866
|
|
|
|
267 report_clause_next_group: NEXT GROUP . is_opt integer_on_next_page
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1902
|
|
|
|
|
|
state 1867
|
|
|
|
263 report_clause_picture: PICTURE $@23 . is_opt picture
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1903
|
|
|
|
|
|
state 1868
|
|
|
|
260 report_clause_sign_is: SIGN is_opt . leading_trailing SEPARATE character_opt
|
|
|
|
LEADING shift, and go to state 1793
|
|
TRAILING shift, and go to state 1801
|
|
|
|
leading_trailing go to state 1904
|
|
|
|
|
|
state 1869
|
|
|
|
289 report_clause_svs: SOURCE $@24 . is_opt gname_page_counter
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1905
|
|
|
|
|
|
state 1870
|
|
|
|
293 report_clause_svs: SUM $@25 . gname_list $@26 upon_opt reset_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname_list go to state 1906
|
|
gname go to state 71
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1871
|
|
|
|
241 report_clause_type: TYPE is_opt . report_clause_type2
|
|
|
|
CF shift, and go to state 1907
|
|
CH shift, and go to state 1908
|
|
CONTROL shift, and go to state 1909
|
|
DE shift, and go to state 1910
|
|
DETAIL shift, and go to state 1911
|
|
PAGE shift, and go to state 1912
|
|
PF shift, and go to state 1913
|
|
PH shift, and go to state 1914
|
|
REPORT shift, and go to state 1915
|
|
RF shift, and go to state 1916
|
|
RH shift, and go to state 1917
|
|
|
|
report_clause_type2 go to state 1918
|
|
|
|
|
|
state 1872
|
|
|
|
264 report_clause_usage_display: USAGE is_opt . DISPLAY
|
|
|
|
DISPLAY shift, and go to state 1919
|
|
|
|
|
|
state 1873
|
|
|
|
290 report_clause_svs: VALUE is_opt . literal
|
|
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
literal go to state 1920
|
|
signed_nliteral go to state 77
|
|
|
|
|
|
state 1874
|
|
|
|
227 report_item: integer def_name_opt $@18 report_clauses PERIOD_TOK .
|
|
|
|
$default reduce using rule 227 (report_item)
|
|
|
|
|
|
state 1875
|
|
|
|
229 report_clauses: report_clauses report_clause .
|
|
|
|
$default reduce using rule 229 (report_clauses)
|
|
|
|
|
|
state 1876
|
|
|
|
271 report_clause_line: report_clause_line_is PLUS . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1921
|
|
|
|
|
|
state 1877
|
|
|
|
268 report_clause_line: report_clause_line_is integer . ON NEXT PAGE
|
|
269 | report_clause_line_is integer . NEXT PAGE
|
|
270 | report_clause_line_is integer .
|
|
|
|
NEXT shift, and go to state 1922
|
|
ON shift, and go to state 1923
|
|
|
|
NEXT [reduce using rule 270 (report_clause_line)]
|
|
$default reduce using rule 270 (report_clause_line)
|
|
|
|
|
|
state 1878
|
|
|
|
276 report_clause_column: report_clause_column_is integer .
|
|
|
|
$default reduce using rule 276 (report_clause_column)
|
|
|
|
|
|
state 1879
|
|
|
|
261 report_clause_sign_is: leading_trailing SEPARATE . character_opt
|
|
|
|
CHARACTER shift, and go to state 1441
|
|
|
|
$default reduce using rule 406 (character_opt)
|
|
|
|
character_opt go to state 1924
|
|
|
|
|
|
state 1880
|
|
|
|
1053 on_not_exception: NOT on_opt EXCEPTION . @121 statement_list
|
|
|
|
$default reduce using rule 1052 (@121)
|
|
|
|
@121 go to state 1925
|
|
|
|
|
|
state 1881
|
|
|
|
1007 end_call_opt: END_CALL .
|
|
|
|
$default reduce using rule 1007 (end_call_opt)
|
|
|
|
|
|
state 1882
|
|
|
|
967 call_statement: CALL $@105 call_convention_opt gname using_options returning_options @106 @107 @108 on_exception_or_overflow on_not_exception $@109 end_call_opt .
|
|
|
|
$default reduce using rule 967 (call_statement)
|
|
|
|
|
|
state 1883
|
|
|
|
1168 perform_after_opt: AFTER . perform_after
|
|
1169 | AFTER . perform_after AFTER perform_after
|
|
1170 | AFTER . perform_after AFTER perform_after AFTER perform_after
|
|
1171 | AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1172 | AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1173 | AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
perform_after go to state 1926
|
|
name go to state 1927
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1884
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt . perform_statements $@136 END_PERFORM
|
|
|
|
$default reduce using rule 1176 ($@141)
|
|
|
|
perform_statements go to state 1928
|
|
$@141 go to state 450
|
|
|
|
|
|
state 1885
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition . @139 perform_after_opt
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
$default reduce using rule 1161 (@139)
|
|
|
|
@139 go to state 1929
|
|
|
|
|
|
state 1886
|
|
|
|
722 search_all_when_conditional: variable is_opt CONDITIONAL to_opt literal .
|
|
|
|
$default reduce using rule 722 (search_all_when_conditional)
|
|
|
|
|
|
state 1887
|
|
|
|
721 search_all_when_conditional: variable is_opt CONDITIONAL to_opt variable .
|
|
|
|
$default reduce using rule 721 (search_all_when_conditional)
|
|
|
|
|
|
state 1888
|
|
|
|
1059 on_not_overflow: not_excep on_opt OVERFLOW_TOK @123 statement_list .
|
|
|
|
$default reduce using rule 1059 (on_not_overflow)
|
|
|
|
|
|
state 1889
|
|
|
|
528 depend_rec_varying: DEPENDING on_opt . STRING
|
|
|
|
STRING shift, and go to state 1930
|
|
|
|
|
|
state 1890
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 . indexed_by_opt
|
|
|
|
DIRECTION shift, and go to state 1545
|
|
|
|
INDEXED reduce using rule 460 (key_is_opt)
|
|
$default reduce using rule 462 (indexed_by_opt)
|
|
|
|
key_is_opt go to state 1546
|
|
indexed_by_opt go to state 1931
|
|
|
|
|
|
state 1891
|
|
|
|
219 first_detail_opt: FIRST DETAIL is_opt . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1932
|
|
|
|
|
|
state 1892
|
|
|
|
217 last_detail_opt: LAST DETAIL . is_opt integer
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1933
|
|
|
|
|
|
state 1893
|
|
|
|
215 footing_opt: FOOTING . is_opt integer
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1934
|
|
|
|
|
|
state 1894
|
|
|
|
202 report_controls_page: PAGE limit_is_are_opt integer line_lines_opt heading_opt first_detail_opt last_detail_opt footing_opt .
|
|
|
|
$default reduce using rule 202 (report_controls_page)
|
|
|
|
|
|
state 1895
|
|
|
|
298 report_clause_blank_zero: BLANK when_opt ZERO .
|
|
|
|
$default reduce using rule 298 (report_clause_blank_zero)
|
|
|
|
|
|
state 1896
|
|
|
|
278 report_clause_column_is: COLUMN NUMBER report_clause_column_orientation . is_opt
|
|
|
|
IS shift, and go to state 84
|
|
|
|
$default reduce using rule 132 (is_opt)
|
|
|
|
is_opt go to state 1935
|
|
|
|
|
|
state 1897
|
|
|
|
279 report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation . are_opt
|
|
|
|
ARE shift, and go to state 1130
|
|
|
|
$default reduce using rule 134 (are_opt)
|
|
|
|
are_opt go to state 1936
|
|
|
|
|
|
state 1898
|
|
|
|
277 report_clause_column_is: COLUMN report_clause_column_orientation is_are_opt .
|
|
|
|
$default reduce using rule 277 (report_clause_column_is)
|
|
|
|
|
|
state 1899
|
|
|
|
280 report_clause_column_is: COLUMNS report_clause_column_orientation are_opt .
|
|
|
|
$default reduce using rule 280 (report_clause_column_is)
|
|
|
|
|
|
state 1900
|
|
|
|
273 report_clause_line_is: LINE NUMBER is_opt .
|
|
|
|
$default reduce using rule 273 (report_clause_line_is)
|
|
|
|
|
|
state 1901
|
|
|
|
274 report_clause_line_is: LINE NUMBERS are_opt .
|
|
|
|
$default reduce using rule 274 (report_clause_line_is)
|
|
|
|
|
|
state 1902
|
|
|
|
267 report_clause_next_group: NEXT GROUP is_opt . integer_on_next_page
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NEXT shift, and go to state 1937
|
|
PLUS shift, and go to state 1938
|
|
|
|
integer_on_next_page go to state 1939
|
|
signed_nliteral go to state 234
|
|
integer go to state 1940
|
|
|
|
|
|
state 1903
|
|
|
|
263 report_clause_picture: PICTURE $@23 is_opt . picture
|
|
|
|
$default reduce using rule 478 (picture)
|
|
|
|
picture go to state 1941
|
|
|
|
|
|
state 1904
|
|
|
|
260 report_clause_sign_is: SIGN is_opt leading_trailing . SEPARATE character_opt
|
|
|
|
SEPARATE shift, and go to state 1942
|
|
|
|
|
|
state 1905
|
|
|
|
289 report_clause_svs: SOURCE $@24 is_opt . gname_page_counter
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
PAGE_COUNTER shift, and go to state 1943
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname_page_counter go to state 1944
|
|
gname go to state 1945
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1906
|
|
|
|
293 report_clause_svs: SUM $@25 gname_list . $@26 upon_opt reset_opt
|
|
1244 gname_list: gname_list . sep_opt gname
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
NLITERAL reduce using rule 1214 (sep_opt)
|
|
CLITERAL reduce using rule 1214 (sep_opt)
|
|
'+' reduce using rule 1214 (sep_opt)
|
|
'-' reduce using rule 1214 (sep_opt)
|
|
ALL reduce using rule 1214 (sep_opt)
|
|
FUNCTION reduce using rule 1214 (sep_opt)
|
|
HIGHVALUES reduce using rule 1214 (sep_opt)
|
|
LOWVALUES reduce using rule 1214 (sep_opt)
|
|
QUOTES reduce using rule 1214 (sep_opt)
|
|
SPACES reduce using rule 1214 (sep_opt)
|
|
ZERO reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 292 ($@26)
|
|
|
|
$@26 go to state 1946
|
|
sep_opt go to state 99
|
|
|
|
|
|
state 1907
|
|
|
|
257 report_clause_type2: CF . $@22 name_final_opt
|
|
|
|
$default reduce using rule 256 ($@22)
|
|
|
|
$@22 go to state 1947
|
|
|
|
|
|
state 1908
|
|
|
|
254 report_clause_type2: CH . $@21 name_final_opt
|
|
|
|
$default reduce using rule 253 ($@21)
|
|
|
|
$@21 go to state 1948
|
|
|
|
|
|
state 1909
|
|
|
|
245 report_clause_type2: CONTROL . HEADING $@19 name_final_opt
|
|
248 | CONTROL . FOOTING $@20 name_final_opt
|
|
|
|
FOOTING shift, and go to state 1949
|
|
HEADING shift, and go to state 1950
|
|
|
|
|
|
state 1910
|
|
|
|
255 report_clause_type2: DE .
|
|
|
|
$default reduce using rule 255 (report_clause_type2)
|
|
|
|
|
|
state 1911
|
|
|
|
246 report_clause_type2: DETAIL .
|
|
|
|
$default reduce using rule 246 (report_clause_type2)
|
|
|
|
|
|
state 1912
|
|
|
|
243 report_clause_type2: PAGE . HEADING
|
|
249 | PAGE . FOOTING
|
|
|
|
FOOTING shift, and go to state 1951
|
|
HEADING shift, and go to state 1952
|
|
|
|
|
|
state 1913
|
|
|
|
258 report_clause_type2: PF .
|
|
|
|
$default reduce using rule 258 (report_clause_type2)
|
|
|
|
|
|
state 1914
|
|
|
|
252 report_clause_type2: PH .
|
|
|
|
$default reduce using rule 252 (report_clause_type2)
|
|
|
|
|
|
state 1915
|
|
|
|
242 report_clause_type2: REPORT . HEADING
|
|
250 | REPORT . FOOTING
|
|
|
|
FOOTING shift, and go to state 1953
|
|
HEADING shift, and go to state 1954
|
|
|
|
|
|
state 1916
|
|
|
|
259 report_clause_type2: RF .
|
|
|
|
$default reduce using rule 259 (report_clause_type2)
|
|
|
|
|
|
state 1917
|
|
|
|
251 report_clause_type2: RH .
|
|
|
|
$default reduce using rule 251 (report_clause_type2)
|
|
|
|
|
|
state 1918
|
|
|
|
241 report_clause_type: TYPE is_opt report_clause_type2 .
|
|
|
|
$default reduce using rule 241 (report_clause_type)
|
|
|
|
|
|
state 1919
|
|
|
|
264 report_clause_usage_display: USAGE is_opt DISPLAY .
|
|
|
|
$default reduce using rule 264 (report_clause_usage_display)
|
|
|
|
|
|
state 1920
|
|
|
|
290 report_clause_svs: VALUE is_opt literal .
|
|
|
|
$default reduce using rule 290 (report_clause_svs)
|
|
|
|
|
|
state 1921
|
|
|
|
271 report_clause_line: report_clause_line_is PLUS integer .
|
|
|
|
$default reduce using rule 271 (report_clause_line)
|
|
|
|
|
|
state 1922
|
|
|
|
269 report_clause_line: report_clause_line_is integer NEXT . PAGE
|
|
|
|
PAGE shift, and go to state 1955
|
|
|
|
|
|
state 1923
|
|
|
|
268 report_clause_line: report_clause_line_is integer ON . NEXT PAGE
|
|
|
|
NEXT shift, and go to state 1956
|
|
|
|
|
|
state 1924
|
|
|
|
261 report_clause_sign_is: leading_trailing SEPARATE character_opt .
|
|
|
|
$default reduce using rule 261 (report_clause_sign_is)
|
|
|
|
|
|
state 1925
|
|
|
|
1053 on_not_exception: NOT on_opt EXCEPTION @121 . statement_list
|
|
|
|
READ shift, and go to state 254
|
|
WRITE shift, and go to state 255
|
|
RELEASE shift, and go to state 256
|
|
ACCEPT shift, and go to state 257
|
|
ADD shift, and go to state 258
|
|
CALL shift, and go to state 259
|
|
CALL_LOADLIB shift, and go to state 260
|
|
CANCEL shift, and go to state 261
|
|
CHAIN shift, and go to state 262
|
|
CLOSE shift, and go to state 263
|
|
COMPUTE shift, and go to state 264
|
|
CONTINUE shift, and go to state 265
|
|
DELETE shift, and go to state 266
|
|
DISPLAY shift, and go to state 267
|
|
DIVIDE shift, and go to state 268
|
|
EVALUATE shift, and go to state 269
|
|
EXIT shift, and go to state 270
|
|
GENERATE shift, and go to state 271
|
|
GO shift, and go to state 272
|
|
GOBACK shift, and go to state 273
|
|
IF shift, and go to state 274
|
|
INITIALIZE shift, and go to state 275
|
|
INITIATE shift, and go to state 276
|
|
INSPECT shift, and go to state 277
|
|
MERGE shift, and go to state 278
|
|
MOVE shift, and go to state 279
|
|
MULTIPLY shift, and go to state 280
|
|
OPEN shift, and go to state 281
|
|
PERFORM shift, and go to state 282
|
|
READY shift, and go to state 283
|
|
RESET shift, and go to state 284
|
|
RETURN shift, and go to state 285
|
|
REWRITE shift, and go to state 286
|
|
SEARCH shift, and go to state 287
|
|
SET shift, and go to state 288
|
|
SORT shift, and go to state 289
|
|
START shift, and go to state 290
|
|
STOP shift, and go to state 291
|
|
STRINGCMD shift, and go to state 292
|
|
SUBTRACT shift, and go to state 293
|
|
TCOBPROTO1 shift, and go to state 294
|
|
TCOBPROTO2 shift, and go to state 295
|
|
TERMINATE shift, and go to state 296
|
|
UNLOCK shift, and go to state 297
|
|
UNSTRING shift, and go to state 298
|
|
|
|
statement_list go to state 1957
|
|
statements go to state 640
|
|
statement go to state 300
|
|
perform_statement go to state 301
|
|
if_statement go to state 302
|
|
search_statement go to state 303
|
|
evaluate_statement go to state 304
|
|
if_part go to state 305
|
|
unlock_statement go to state 306
|
|
proto_statement go to state 307
|
|
trace_statement go to state 308
|
|
initiate_statement go to state 309
|
|
generate_statement go to state 310
|
|
terminate_statement go to state 311
|
|
cancel_statement go to state 312
|
|
merge_statement go to state 313
|
|
sort_statement go to state 314
|
|
sort_file go to state 315
|
|
sort_variable_indexed go to state 316
|
|
move_statement go to state 317
|
|
initialize_statement go to state 318
|
|
compute_statement go to state 319
|
|
add_statement go to state 320
|
|
subtract_statement go to state 321
|
|
multiply_statement go to state 322
|
|
divide_statement go to state 323
|
|
accept_statement go to state 324
|
|
accept_hardware go to state 325
|
|
accept_chronological go to state 326
|
|
accept_screen go to state 327
|
|
display_statement go to state 328
|
|
display_line go to state 329
|
|
display_screen go to state 330
|
|
open_statement go to state 331
|
|
close_statement go to state 332
|
|
return_statement go to state 333
|
|
read_statement go to state 334
|
|
release_statement go to state 335
|
|
write_statement go to state 336
|
|
rewrite_statement go to state 337
|
|
delete_statement go to state 338
|
|
start_statement go to state 339
|
|
goto_statement go to state 340
|
|
call_statement go to state 341
|
|
call_loadlib_statement go to state 342
|
|
chain_statement go to state 343
|
|
exit_statement go to state 344
|
|
stop_statement go to state 345
|
|
goback_statement go to state 346
|
|
set_statement go to state 347
|
|
string_statement go to state 348
|
|
unstring_statement go to state 349
|
|
inspect_statement go to state 350
|
|
|
|
|
|
state 1926
|
|
|
|
1168 perform_after_opt: AFTER perform_after .
|
|
1169 | AFTER perform_after . AFTER perform_after
|
|
1170 | AFTER perform_after . AFTER perform_after AFTER perform_after
|
|
1171 | AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1172 | AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1173 | AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
|
|
AFTER shift, and go to state 1958
|
|
|
|
$default reduce using rule 1168 (perform_after_opt)
|
|
|
|
|
|
state 1927
|
|
|
|
1175 perform_after: name . FROM gname by_opt gname UNTIL @140 condition
|
|
|
|
FROM shift, and go to state 1959
|
|
|
|
|
|
state 1928
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements . $@136 END_PERFORM
|
|
|
|
$default reduce using rule 1154 ($@136)
|
|
|
|
$@136 go to state 1960
|
|
|
|
|
|
state 1929
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 . perform_after_opt
|
|
|
|
AFTER shift, and go to state 1883
|
|
|
|
$default reduce using rule 1167 (perform_after_opt)
|
|
|
|
perform_after_opt go to state 1961
|
|
|
|
|
|
state 1930
|
|
|
|
528 depend_rec_varying: DEPENDING on_opt STRING .
|
|
|
|
$default reduce using rule 528 (depend_rec_varying)
|
|
|
|
|
|
state 1931
|
|
|
|
458 array_options: OCCURS integer TO integer times_opt DEPENDING $@48 on_opt gname $@49 indexed_by_opt .
|
|
|
|
$default reduce using rule 458 (array_options)
|
|
|
|
|
|
state 1932
|
|
|
|
219 first_detail_opt: FIRST DETAIL is_opt integer .
|
|
|
|
$default reduce using rule 219 (first_detail_opt)
|
|
|
|
|
|
state 1933
|
|
|
|
217 last_detail_opt: LAST DETAIL is_opt . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1962
|
|
|
|
|
|
state 1934
|
|
|
|
215 footing_opt: FOOTING is_opt . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1963
|
|
|
|
|
|
state 1935
|
|
|
|
278 report_clause_column_is: COLUMN NUMBER report_clause_column_orientation is_opt .
|
|
|
|
$default reduce using rule 278 (report_clause_column_is)
|
|
|
|
|
|
state 1936
|
|
|
|
279 report_clause_column_is: COLUMN NUMBERS report_clause_column_orientation are_opt .
|
|
|
|
$default reduce using rule 279 (report_clause_column_is)
|
|
|
|
|
|
state 1937
|
|
|
|
316 integer_on_next_page: NEXT . PAGE
|
|
|
|
PAGE shift, and go to state 1964
|
|
|
|
|
|
state 1938
|
|
|
|
315 integer_on_next_page: PLUS . integer
|
|
|
|
NLITERAL shift, and go to state 59
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
|
|
signed_nliteral go to state 234
|
|
integer go to state 1965
|
|
|
|
|
|
state 1939
|
|
|
|
267 report_clause_next_group: NEXT GROUP is_opt integer_on_next_page .
|
|
|
|
$default reduce using rule 267 (report_clause_next_group)
|
|
|
|
|
|
state 1940
|
|
|
|
314 integer_on_next_page: integer .
|
|
|
|
$default reduce using rule 314 (integer_on_next_page)
|
|
|
|
|
|
state 1941
|
|
|
|
263 report_clause_picture: PICTURE $@23 is_opt picture .
|
|
479 picture: picture . pic_elem
|
|
|
|
CHAR shift, and go to state 1548
|
|
|
|
$default reduce using rule 263 (report_clause_picture)
|
|
|
|
pic_elem go to state 1549
|
|
|
|
|
|
state 1942
|
|
|
|
260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE . character_opt
|
|
|
|
CHARACTER shift, and go to state 1441
|
|
|
|
$default reduce using rule 406 (character_opt)
|
|
|
|
character_opt go to state 1966
|
|
|
|
|
|
state 1943
|
|
|
|
295 gname_page_counter: PAGE_COUNTER .
|
|
|
|
$default reduce using rule 295 (gname_page_counter)
|
|
|
|
|
|
state 1944
|
|
|
|
289 report_clause_svs: SOURCE $@24 is_opt gname_page_counter .
|
|
|
|
$default reduce using rule 289 (report_clause_svs)
|
|
|
|
|
|
state 1945
|
|
|
|
294 gname_page_counter: gname .
|
|
|
|
$default reduce using rule 294 (gname_page_counter)
|
|
|
|
|
|
state 1946
|
|
|
|
293 report_clause_svs: SUM $@25 gname_list $@26 . upon_opt reset_opt
|
|
|
|
UPON shift, and go to state 1967
|
|
|
|
$default reduce using rule 301 (upon_opt)
|
|
|
|
upon_opt go to state 1968
|
|
|
|
|
|
state 1947
|
|
|
|
257 report_clause_type2: CF $@22 . name_final_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FINAL shift, and go to state 1969
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
name_final_opt go to state 1970
|
|
gname go to state 1971
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1948
|
|
|
|
254 report_clause_type2: CH $@21 . name_final_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FINAL shift, and go to state 1969
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
name_final_opt go to state 1972
|
|
gname go to state 1971
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1949
|
|
|
|
248 report_clause_type2: CONTROL FOOTING . $@20 name_final_opt
|
|
|
|
$default reduce using rule 247 ($@20)
|
|
|
|
$@20 go to state 1973
|
|
|
|
|
|
state 1950
|
|
|
|
245 report_clause_type2: CONTROL HEADING . $@19 name_final_opt
|
|
|
|
$default reduce using rule 244 ($@19)
|
|
|
|
$@19 go to state 1974
|
|
|
|
|
|
state 1951
|
|
|
|
249 report_clause_type2: PAGE FOOTING .
|
|
|
|
$default reduce using rule 249 (report_clause_type2)
|
|
|
|
|
|
state 1952
|
|
|
|
243 report_clause_type2: PAGE HEADING .
|
|
|
|
$default reduce using rule 243 (report_clause_type2)
|
|
|
|
|
|
state 1953
|
|
|
|
250 report_clause_type2: REPORT FOOTING .
|
|
|
|
$default reduce using rule 250 (report_clause_type2)
|
|
|
|
|
|
state 1954
|
|
|
|
242 report_clause_type2: REPORT HEADING .
|
|
|
|
$default reduce using rule 242 (report_clause_type2)
|
|
|
|
|
|
state 1955
|
|
|
|
269 report_clause_line: report_clause_line_is integer NEXT PAGE .
|
|
|
|
$default reduce using rule 269 (report_clause_line)
|
|
|
|
|
|
state 1956
|
|
|
|
268 report_clause_line: report_clause_line_is integer ON NEXT . PAGE
|
|
|
|
PAGE shift, and go to state 1975
|
|
|
|
|
|
state 1957
|
|
|
|
1053 on_not_exception: NOT on_opt EXCEPTION @121 statement_list .
|
|
|
|
$default reduce using rule 1053 (on_not_exception)
|
|
|
|
|
|
state 1958
|
|
|
|
1169 perform_after_opt: AFTER perform_after AFTER . perform_after
|
|
1170 | AFTER perform_after AFTER . perform_after AFTER perform_after
|
|
1171 | AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after
|
|
1172 | AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1173 | AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
perform_after go to state 1976
|
|
name go to state 1927
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1959
|
|
|
|
1175 perform_after: name FROM . gname by_opt gname UNTIL @140 condition
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1977
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1960
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 . END_PERFORM
|
|
|
|
END_PERFORM shift, and go to state 1978
|
|
|
|
|
|
state 1961
|
|
|
|
1162 perform_options: label perform_thru_opt with_test_opt VARYING name FROM gname by_opt gname UNTIL @138 condition @139 perform_after_opt .
|
|
|
|
$default reduce using rule 1162 (perform_options)
|
|
|
|
|
|
state 1962
|
|
|
|
217 last_detail_opt: LAST DETAIL is_opt integer .
|
|
|
|
$default reduce using rule 217 (last_detail_opt)
|
|
|
|
|
|
state 1963
|
|
|
|
215 footing_opt: FOOTING is_opt integer .
|
|
|
|
$default reduce using rule 215 (footing_opt)
|
|
|
|
|
|
state 1964
|
|
|
|
316 integer_on_next_page: NEXT PAGE .
|
|
|
|
$default reduce using rule 316 (integer_on_next_page)
|
|
|
|
|
|
state 1965
|
|
|
|
315 integer_on_next_page: PLUS integer .
|
|
|
|
$default reduce using rule 315 (integer_on_next_page)
|
|
|
|
|
|
state 1966
|
|
|
|
260 report_clause_sign_is: SIGN is_opt leading_trailing SEPARATE character_opt .
|
|
|
|
$default reduce using rule 260 (report_clause_sign_is)
|
|
|
|
|
|
state 1967
|
|
|
|
302 upon_opt: UPON . gname_list
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname_list go to state 1979
|
|
gname go to state 71
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1968
|
|
|
|
293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt . reset_opt
|
|
|
|
RESET shift, and go to state 1980
|
|
|
|
$default reduce using rule 303 (reset_opt)
|
|
|
|
reset_opt go to state 1981
|
|
|
|
|
|
state 1969
|
|
|
|
313 name_final_opt: FINAL .
|
|
|
|
$default reduce using rule 313 (name_final_opt)
|
|
|
|
|
|
state 1970
|
|
|
|
257 report_clause_type2: CF $@22 name_final_opt .
|
|
|
|
$default reduce using rule 257 (report_clause_type2)
|
|
|
|
|
|
state 1971
|
|
|
|
312 name_final_opt: gname .
|
|
|
|
$default reduce using rule 312 (name_final_opt)
|
|
|
|
|
|
state 1972
|
|
|
|
254 report_clause_type2: CH $@21 name_final_opt .
|
|
|
|
$default reduce using rule 254 (report_clause_type2)
|
|
|
|
|
|
state 1973
|
|
|
|
248 report_clause_type2: CONTROL FOOTING $@20 . name_final_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FINAL shift, and go to state 1969
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
name_final_opt go to state 1982
|
|
gname go to state 1971
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1974
|
|
|
|
245 report_clause_type2: CONTROL HEADING $@19 . name_final_opt
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FINAL shift, and go to state 1969
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
name_final_opt go to state 1983
|
|
gname go to state 1971
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1975
|
|
|
|
268 report_clause_line: report_clause_line_is integer ON NEXT PAGE .
|
|
|
|
$default reduce using rule 268 (report_clause_line)
|
|
|
|
|
|
state 1976
|
|
|
|
1169 perform_after_opt: AFTER perform_after AFTER perform_after .
|
|
1170 | AFTER perform_after AFTER perform_after . AFTER perform_after
|
|
1171 | AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after
|
|
1172 | AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after
|
|
1173 | AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
|
|
AFTER shift, and go to state 1984
|
|
|
|
$default reduce using rule 1169 (perform_after_opt)
|
|
|
|
|
|
state 1977
|
|
|
|
1175 perform_after: name FROM gname . by_opt gname UNTIL @140 condition
|
|
|
|
BY shift, and go to state 854
|
|
|
|
$default reduce using rule 1231 (by_opt)
|
|
|
|
by_opt go to state 1985
|
|
|
|
|
|
state 1978
|
|
|
|
1155 perform_options: with_test_opt VARYING name FROM gname by_opt gname UNTIL @134 condition @135 perform_after_opt perform_statements $@136 END_PERFORM .
|
|
|
|
$default reduce using rule 1155 (perform_options)
|
|
|
|
|
|
state 1979
|
|
|
|
302 upon_opt: UPON gname_list .
|
|
1244 gname_list: gname_list . sep_opt gname
|
|
|
|
LISTSEP shift, and go to state 98
|
|
|
|
VARIABLE reduce using rule 1214 (sep_opt)
|
|
SUBSCVAR reduce using rule 1214 (sep_opt)
|
|
LABELSTR reduce using rule 1214 (sep_opt)
|
|
NLITERAL reduce using rule 1214 (sep_opt)
|
|
CLITERAL reduce using rule 1214 (sep_opt)
|
|
'+' reduce using rule 1214 (sep_opt)
|
|
'-' reduce using rule 1214 (sep_opt)
|
|
ALL reduce using rule 1214 (sep_opt)
|
|
FUNCTION reduce using rule 1214 (sep_opt)
|
|
HIGHVALUES reduce using rule 1214 (sep_opt)
|
|
LOWVALUES reduce using rule 1214 (sep_opt)
|
|
QUOTES reduce using rule 1214 (sep_opt)
|
|
SPACES reduce using rule 1214 (sep_opt)
|
|
ZERO reduce using rule 1214 (sep_opt)
|
|
$default reduce using rule 302 (upon_opt)
|
|
|
|
sep_opt go to state 99
|
|
|
|
|
|
state 1980
|
|
|
|
304 reset_opt: RESET . gname
|
|
305 | RESET . FINAL
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FINAL shift, and go to state 1986
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1987
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1981
|
|
|
|
293 report_clause_svs: SUM $@25 gname_list $@26 upon_opt reset_opt .
|
|
|
|
$default reduce using rule 293 (report_clause_svs)
|
|
|
|
|
|
state 1982
|
|
|
|
248 report_clause_type2: CONTROL FOOTING $@20 name_final_opt .
|
|
|
|
$default reduce using rule 248 (report_clause_type2)
|
|
|
|
|
|
state 1983
|
|
|
|
245 report_clause_type2: CONTROL HEADING $@19 name_final_opt .
|
|
|
|
$default reduce using rule 245 (report_clause_type2)
|
|
|
|
|
|
state 1984
|
|
|
|
1170 perform_after_opt: AFTER perform_after AFTER perform_after AFTER . perform_after
|
|
1171 | AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after
|
|
1172 | AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after
|
|
1173 | AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after AFTER perform_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
perform_after go to state 1988
|
|
name go to state 1927
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1985
|
|
|
|
1175 perform_after: name FROM gname by_opt . gname UNTIL @140 condition
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
|
|
gname go to state 1989
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1986
|
|
|
|
305 reset_opt: RESET FINAL .
|
|
|
|
$default reduce using rule 305 (reset_opt)
|
|
|
|
|
|
state 1987
|
|
|
|
304 reset_opt: RESET gname .
|
|
|
|
$default reduce using rule 304 (reset_opt)
|
|
|
|
|
|
state 1988
|
|
|
|
1170 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after .
|
|
1171 | AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after
|
|
1172 | AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after
|
|
1173 | AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after AFTER perform_after
|
|
|
|
AFTER shift, and go to state 1990
|
|
|
|
$default reduce using rule 1170 (perform_after_opt)
|
|
|
|
|
|
state 1989
|
|
|
|
1175 perform_after: name FROM gname by_opt gname . UNTIL @140 condition
|
|
|
|
UNTIL shift, and go to state 1991
|
|
|
|
|
|
state 1990
|
|
|
|
1171 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after
|
|
1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after
|
|
1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after AFTER perform_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
perform_after go to state 1992
|
|
name go to state 1927
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1991
|
|
|
|
1175 perform_after: name FROM gname by_opt gname UNTIL . @140 condition
|
|
|
|
$default reduce using rule 1174 (@140)
|
|
|
|
@140 go to state 1993
|
|
|
|
|
|
state 1992
|
|
|
|
1171 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after .
|
|
1172 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after
|
|
1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after AFTER perform_after
|
|
|
|
AFTER shift, and go to state 1994
|
|
|
|
$default reduce using rule 1171 (perform_after_opt)
|
|
|
|
|
|
state 1993
|
|
|
|
1175 perform_after: name FROM gname by_opt gname UNTIL @140 . condition
|
|
|
|
VARIABLE shift, and go to state 56
|
|
VARCOND shift, and go to state 422
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
NLITERAL shift, and go to state 59
|
|
CLITERAL shift, and go to state 60
|
|
'+' shift, and go to state 61
|
|
'-' shift, and go to state 62
|
|
NOT shift, and go to state 423
|
|
ALL shift, and go to state 63
|
|
FUNCTION shift, and go to state 64
|
|
HIGHVALUES shift, and go to state 65
|
|
LOWVALUES shift, and go to state 66
|
|
QUOTES shift, and go to state 67
|
|
SPACES shift, and go to state 68
|
|
ZERO shift, and go to state 69
|
|
'(' shift, and go to state 424
|
|
|
|
expr go to state 425
|
|
condition go to state 1995
|
|
gname go to state 427
|
|
gliteral go to state 72
|
|
without_all_literal go to state 73
|
|
all_literal go to state 74
|
|
special_literal go to state 75
|
|
literal go to state 76
|
|
signed_nliteral go to state 77
|
|
cond_name go to state 428
|
|
name go to state 78
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1994
|
|
|
|
1172 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after
|
|
1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after AFTER perform_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
perform_after go to state 1996
|
|
name go to state 1927
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1995
|
|
|
|
1175 perform_after: name FROM gname by_opt gname UNTIL @140 condition .
|
|
1184 condition: condition . AND @143 implied_op_condition
|
|
1186 | condition . OR @144 implied_op_condition
|
|
|
|
OR shift, and go to state 611
|
|
AND shift, and go to state 612
|
|
|
|
$default reduce using rule 1175 (perform_after)
|
|
|
|
|
|
state 1996
|
|
|
|
1172 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after .
|
|
1173 | AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after . AFTER perform_after
|
|
|
|
AFTER shift, and go to state 1997
|
|
|
|
$default reduce using rule 1172 (perform_after_opt)
|
|
|
|
|
|
state 1997
|
|
|
|
1173 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER . perform_after
|
|
|
|
VARIABLE shift, and go to state 56
|
|
SUBSCVAR shift, and go to state 57
|
|
LABELSTR shift, and go to state 58
|
|
|
|
perform_after go to state 1998
|
|
name go to state 1927
|
|
variable go to state 79
|
|
qualified_var go to state 80
|
|
unqualified_var go to state 81
|
|
|
|
|
|
state 1998
|
|
|
|
1173 perform_after_opt: AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after AFTER perform_after .
|
|
|
|
$default reduce using rule 1173 (perform_after_opt)
|