diff --git a/test/output-tests/configuration.expected b/test/output-tests/configuration.expected new file mode 100644 index 000000000..2c49d09e4 --- /dev/null +++ b/test/output-tests/configuration.expected @@ -0,0 +1,582 @@ +Considering: import/gnucobol/tests/testsuite.src/configuration.at:36:0 +configuration.at-36-prog.cob:4.7-4.22: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > AUTHOR. tester. +---- ^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:56:0 +configuration.at-56-prog.cob:4.7-4.22: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > AUTHOR. tester. +---- ^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:167:0 +configuration.at-167-prog.cob:4.7-4.22: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > AUTHOR. tester. +---- ^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:167:0 +configuration.at-167-test.conf:2.6-2.7: + 1 + 2 > include "default.conf" +---- ^ + 3 name: "Sample Conf" + 4 comment-paragraphs: ok +>> Error: Unexpected indicator: `e' + +configuration.at-167-test.conf:3.6-3.7: + 1 + 2 include "default.conf" + 3 > name: "Sample Conf" +---- ^ + 4 comment-paragraphs: ok +>> Error: Unexpected indicator: `"' + +configuration.at-167-test.conf:4.6-4.7: + 1 + 2 include "default.conf" + 3 name: "Sample Conf" + 4 > comment-paragraphs: ok +---- ^ +>> Error: Unexpected indicator: `t' + +configuration.at-167-test.conf:3.18-3.72: + 1 + 2 include "default.conf" + 3 > name: "Sample Conf" +---- ^ + 4 comment-paragraphs: ok +>> Error: Missing continuation of ` ' + +configuration.at-167-test.conf:2.8-2.22: + 1 + 2 > include "default.conf" +---- ^^^^^^^^^^^^^^ + 3 name: "Sample Conf" + 4 comment-paragraphs: ok +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:234:0 +configuration.at-234-prog.cob:4.7-4.22: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > AUTHOR. tester. +---- ^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:234:0 +configuration.at-234-test.conf:2.6-2.7: + 1 + 2 > include "mf.conf" +---- ^ + 3 name: "Sample Conf" + 4 comment-paragraphs: ok +>> Error: Unexpected indicator: `e' + +configuration.at-234-test.conf:3.6-3.7: + 1 + 2 include "mf.conf" + 3 > name: "Sample Conf" +---- ^ + 4 comment-paragraphs: ok +>> Error: Unexpected indicator: `"' + +configuration.at-234-test.conf:4.6-4.7: + 1 + 2 include "mf.conf" + 3 name: "Sample Conf" + 4 > comment-paragraphs: ok +---- ^ +>> Error: Unexpected indicator: `t' + +configuration.at-234-test.conf:3.18-3.72: + 1 + 2 include "mf.conf" + 3 > name: "Sample Conf" +---- ^ + 4 comment-paragraphs: ok +>> Error: Missing continuation of ` ' + +configuration.at-234-test.conf:2.8-2.17: + 1 + 2 > include "mf.conf" +---- ^^^^^^^^^ + 3 name: "Sample Conf" + 4 comment-paragraphs: ok +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:254:0 +configuration.at-254-prog.cob:4.7-4.22: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > AUTHOR. tester. +---- ^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:280:0 +configuration.at-280-prog.cob:4.7-4.22: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > AUTHOR. tester. +---- ^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:284:0 +configuration.at-284-test.conf:2.6-2.7: + 1 + 2 > include "default.conf" +---- ^ + 3 name: "Sample Conf" + 4 comment-paragraphs: unconformable +>> Error: Unexpected indicator: `e' + +configuration.at-284-test.conf:3.6-3.7: + 1 + 2 include "default.conf" + 3 > name: "Sample Conf" +---- ^ + 4 comment-paragraphs: unconformable +>> Error: Unexpected indicator: `"' + +configuration.at-284-test.conf:4.6-4.7: + 1 + 2 include "default.conf" + 3 name: "Sample Conf" + 4 > comment-paragraphs: unconformable +---- ^ +>> Error: Unexpected indicator: `t' + +configuration.at-284-test.conf:3.18-3.72: + 1 + 2 include "default.conf" + 3 > name: "Sample Conf" +---- ^ + 4 comment-paragraphs: unconformable +>> Error: Missing continuation of ` ' + +configuration.at-284-test.conf:2.8-2.22: + 1 + 2 > include "default.conf" +---- ^^^^^^^^^^^^^^ + 3 name: "Sample Conf" + 4 comment-paragraphs: unconformable +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:316:0 +Considering: import/gnucobol/tests/testsuite.src/configuration.at:396:0 +configuration.at-396-defunc.conf:2.6-2.7: + 1 + 2 > include "default.conf" +---- ^ + 3 includeif "notthere.conf" +>> Error: Unexpected indicator: `e' + +configuration.at-396-defunc.conf:3.6-3.7: + 1 + 2 include "default.conf" + 3 > includeif "notthere.conf" +---- ^ +>> Error: Unexpected indicator: `e' + +configuration.at-396-defunc.conf:2.8-2.22: + 1 + 2 > include "default.conf" +---- ^^^^^^^^^^^^^^ + 3 includeif "notthere.conf" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:396:0 +configuration.at-396-prog.cob:4.7-4.22: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > AUTHOR. tester. +---- ^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:399:0 +configuration.at-399-test.conf:2.6-2.7: + 1 + 2 > include "default.conf" +---- ^ + 3 include "test2.conf" +>> Error: Unexpected indicator: `e' + +configuration.at-399-test.conf:3.6-3.7: + 1 + 2 include "default.conf" + 3 > include "test2.conf" +---- ^ +>> Error: Unexpected indicator: `e' + +configuration.at-399-test.conf:2.8-2.22: + 1 + 2 > include "default.conf" +---- ^^^^^^^^^^^^^^ + 3 include "test2.conf" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:588:0 +configuration.at-588-test.cfg:2.6-2.7: + 1 + 2 > include "test2.cfg" +---- ^ +>> Error: Unexpected indicator: `e' + +configuration.at-588-test.cfg:2.8-2.19: + 1 + 2 > include "test2.cfg" +---- ^^^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:586:0 +configuration.at-586-test2.cfg:2.6-2.7: + 1 + 2 > physical_cancel true +---- ^ +>> Error: Unexpected indicator: `a' + +configuration.at-586-test2.cfg:2.7-2.15: + 1 + 2 > physical_cancel true +---- ^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:590:0 +configuration.at-590-test3.cfg:2.7-2.26: + 1 + 2 > setenv COB_PHYSICAL_CANCEL=true +---- ^^^^^^^^^^^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:644:0 +configuration.at-644-test.cfg:2.6-2.7: + 1 + 2 > physical_cancel true +---- ^ +>> Error: Unexpected indicator: `a' + +configuration.at-644-test.cfg:2.7-2.15: + 1 + 2 > physical_cancel true +---- ^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:768:0 +configuration.at-768-defunc.cfg:2.6-2.7: + 1 + 2 > include "runtime_empty.cfg" +---- ^ + 3 includeif "notthere.cfg" +>> Error: Unexpected indicator: `e' + +configuration.at-768-defunc.cfg:3.6-3.7: + 1 + 2 include "runtime_empty.cfg" + 3 > includeif "notthere.cfg" +---- ^ +>> Error: Unexpected indicator: `e' + +configuration.at-768-defunc.cfg:2.8-2.27: + 1 + 2 > include "runtime_empty.cfg" +---- ^^^^^^^^^^^^^^^^^^^ + 3 includeif "notthere.cfg" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:851:0 +configuration.at-851-fixed.cob:4.18: + 1 + 2 *Example prog in fixed format (the default) + 3 IDENTIFICATION DIVISION. + 4 > PROGRAM-ID. fixed. +---- ^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Hint: Missing + +configuration.at-851-fixed.cob:4.24-4.29: + 1 + 2 *Example prog in fixed format (the default) + 3 IDENTIFICATION DIVISION. + 4 > PROGRAM-ID. fixed. +---- ^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:880:0 +configuration.at-880-wide.cob:9.19-9.72: + 6 WORKING-STORAGE SECTION. + 7 / + 8 PROCEDURE DIVISION. + 9 > DISPLAY ' 20 30 40 50 60 70 ' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 DISPLAY ' 20 30 40 50 60 70 + 11 - ' 80' +>> Error: Missing continuation of ` 20 30 40 50 60 ' + +configuration.at-880-wide.cob:9.18: + 6 WORKING-STORAGE SECTION. + 7 / + 8 PROCEDURE DIVISION. + 9 > DISPLAY ' 20 30 40 50 60 70 ' +---- ^ + 10 DISPLAY ' 20 30 40 50 60 70 + 11 - ' 80' +>> Hint: Missing + +configuration.at-880-wide.cob:9.19-9.72: + 6 WORKING-STORAGE SECTION. + 7 / + 8 PROCEDURE DIVISION. + 9 > DISPLAY ' 20 30 40 50 60 70 ' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 DISPLAY ' 20 30 40 50 60 70 + 11 - ' 80' +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:903:0 +configuration.at-903-prog.cob:7.13-7.20: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 OBJECT-COMPUTER. + 7 > PROGRAM COLLATING SEQUENCE IS an-ebcdic. +---- ^^^^^^^ + 8 SPECIAL-NAMES. + 9 ALPHABET an-ebcdic IS EBCDIC. +>> Error: Invalid syntax + +configuration.at-903-prog.cob:9.33-9.39: + 6 OBJECT-COMPUTER. + 7 PROGRAM COLLATING SEQUENCE IS an-ebcdic. + 8 SPECIAL-NAMES. + 9 > ALPHABET an-ebcdic IS EBCDIC. +---- ^^^^^^ + 10 PROCEDURE DIVISION. + 11 STOP RUN. +>> Error: Invalid syntax + +configuration.at-903-prog.cob:9.39: + 6 OBJECT-COMPUTER. + 7 PROGRAM COLLATING SEQUENCE IS an-ebcdic. + 8 SPECIAL-NAMES. + 9 > ALPHABET an-ebcdic IS EBCDIC. +---- ^ + 10 PROCEDURE DIVISION. + 11 STOP RUN. +>> Hint: Missing IS + +configuration.at-903-prog.cob:9.39-9.40: + 6 OBJECT-COMPUTER. + 7 PROGRAM COLLATING SEQUENCE IS an-ebcdic. + 8 SPECIAL-NAMES. + 9 > ALPHABET an-ebcdic IS EBCDIC. +---- ^ + 10 PROCEDURE DIVISION. + 11 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:940:0 +configuration.at-940-valid.ttbl:2.6-2.7: + 1 + 2 > 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B +---- ^ + 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 + 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF +>> Error: Unexpected indicator: `0' + +configuration.at-940-valid.ttbl:3.6-3.7: + 1 + 2 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B + 3 > 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 +---- ^ + 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF + 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 +>> Error: Unexpected indicator: `8' + +configuration.at-940-valid.ttbl:4.6-4.7: + 1 + 2 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B + 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 + 4 > 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF +---- ^ + 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 + 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 +>> Error: Unexpected indicator: `E' + +configuration.at-940-valid.ttbl:5.6-5.7: + 2 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B + 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 + 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF + 5 > CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 +---- ^ + 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 + 7 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 +>> Error: Unexpected indicator: `2' + +configuration.at-940-valid.ttbl:6.6-6.7: + 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 + 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF + 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 + 6 > B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 +---- ^ + 7 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 + 8 30313233343536373839B3DBDCD9DA9F +>> Error: Unexpected indicator: `7' + +configuration.at-940-valid.ttbl:7.6-7.7: + 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF + 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 + 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 + 7 > 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 +---- ^ + 8 30313233343536373839B3DBDCD9DA9F +>> Error: Unexpected indicator: `F' + +configuration.at-940-valid.ttbl:8.6-8.7: + 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 + 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 + 7 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 + 8 > 30313233343536373839B3DBDCD9DA9F +---- ^ +>> Error: Unexpected indicator: `3' + +configuration.at-940-valid.ttbl:2.7-2.72: + 1 + 2 > 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 + 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/configuration.at:941:0 +configuration.at-941-valid2.ttbl:2.6-2.7: + 1 + 2 > # we may have any comments in here +---- ^ + 3 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 + 4 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 +>> Error: Unexpected indicator: `a' + +configuration.at-941-valid2.ttbl:3.6-3.7: + 1 + 2 # we may have any comments in here + 3 > 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 +---- ^ + 4 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 + 5 +>> Error: Unexpected indicator: `0' + +configuration.at-941-valid2.ttbl:4.6-4.7: + 1 + 2 # we may have any comments in here + 3 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 + 4 > 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 +---- ^ + 5 + 6 # even within +>> Error: Unexpected indicator: `1' + +configuration.at-941-valid2.ttbl:8.6-8.7: + 5 + 6 # even within + 7 + 8 > 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 +---- ^ + 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C + 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 +>> Error: Unexpected indicator: `9' + +configuration.at-941-valid2.ttbl:9.6-9.7: + 6 # even within + 7 + 8 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 + 9 > E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C +---- ^ + 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 + 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E +>> Error: Unexpected indicator: `E' + +configuration.at-941-valid2.ttbl:10.6-10.7: + 7 + 8 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 + 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C + 10 > 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 +---- ^ + 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E + 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF +>> Error: Unexpected indicator: `3' + +configuration.at-941-valid2.ttbl:11.6-11.7: + 8 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 + 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C + 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 + 11 > 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E +---- ^ + 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF + 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 +>> Error: Unexpected indicator: `6' + +configuration.at-941-valid2.ttbl:12.6-12.7: + 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C + 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 + 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E + 12 > 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF +---- ^ + 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 + 14 51 52 B9 FB FC F9 FA FF 5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5 30 31 32 +>> Error: Unexpected indicator: `7' + +configuration.at-941-valid2.ttbl:14.6-14.7: + 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E + 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF + 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 + 14 > 51 52 B9 FB FC F9 FA FF 5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5 30 31 32 +---- ^ + 15 33 34 35 36 37 38 39 B3 DB DC D9 DA 9F +>> Error: Unexpected indicator: `B' + +configuration.at-941-valid2.ttbl:15.6-15.7: + 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF + 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 + 14 51 52 B9 FB FC F9 FA FF 5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5 30 31 32 + 15 > 33 34 35 36 37 38 39 B3 DB DC D9 DA 9F +---- ^ +>> Error: Unexpected indicator: `3' + +configuration.at-941-valid2.ttbl:2.7-2.8: + 1 + 2 > # we may have any comments in here +---- ^ + 3 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 + 4 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 +>> Error: Invalid syntax + diff --git a/test/output-tests/data_binary.expected b/test/output-tests/data_binary.expected new file mode 100644 index 000000000..76fbce4a9 --- /dev/null +++ b/test/output-tests/data_binary.expected @@ -0,0 +1,321 @@ +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:41:0 +data_binary.at-41-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data) + 7 { +>> Error: Unexpected indicator: `T' + +data_binary.at-41-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data) +---- ^ + 7 { + 8 int i; +>> Error: Unexpected indicator: `u' + +data_binary.at-41-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data) + 7 { + 8 > int i; +---- ^ + 9 for (i = 0; i < 8; i++) + 10 printf ("%02x", data[i]); +>> Error: Unexpected indicator: `i' + +data_binary.at-41-dump.c:9.6-9.7: + 6 dump (unsigned char *data) + 7 { + 8 int i; + 9 > for (i = 0; i < 8; i++) +---- ^ + 10 printf ("%02x", data[i]); + 11 puts (""); +>> Error: Unexpected indicator: `(' + +data_binary.at-41-dump.c:10.6-10.7: + 7 { + 8 int i; + 9 for (i = 0; i < 8; i++) + 10 > printf ("%02x", data[i]); +---- ^ + 11 puts (""); + 12 return 0; +>> Error: Unexpected indicator: `i' + +data_binary.at-41-dump.c:12.6-12.7: + 9 for (i = 0; i < 8; i++) + 10 printf ("%02x", data[i]); + 11 puts (""); + 12 > return 0; +---- ^ + 13 } +>> Error: Unexpected indicator: `r' + +data_binary.at-41-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:411:0 +data_binary.at-411-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data) + 7 { +>> Error: Unexpected indicator: `T' + +data_binary.at-411-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data) +---- ^ + 7 { + 8 int i; +>> Error: Unexpected indicator: `u' + +data_binary.at-411-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data) + 7 { + 8 > int i; +---- ^ + 9 for (i = 0; i < 8; i++) + 10 printf ("%02x", data[i]); +>> Error: Unexpected indicator: `i' + +data_binary.at-411-dump.c:9.6-9.7: + 6 dump (unsigned char *data) + 7 { + 8 int i; + 9 > for (i = 0; i < 8; i++) +---- ^ + 10 printf ("%02x", data[i]); + 11 puts (""); +>> Error: Unexpected indicator: `(' + +data_binary.at-411-dump.c:10.6-10.7: + 7 { + 8 int i; + 9 for (i = 0; i < 8; i++) + 10 > printf ("%02x", data[i]); +---- ^ + 11 puts (""); + 12 return 0; +>> Error: Unexpected indicator: `i' + +data_binary.at-411-dump.c:12.6-12.7: + 9 for (i = 0; i < 8; i++) + 10 printf ("%02x", data[i]); + 11 puts (""); + 12 > return 0; +---- ^ + 13 } +>> Error: Unexpected indicator: `r' + +data_binary.at-411-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:781:0 +data_binary.at-781-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data) + 7 { +>> Error: Unexpected indicator: `T' + +data_binary.at-781-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data) +---- ^ + 7 { + 8 int i; +>> Error: Unexpected indicator: `u' + +data_binary.at-781-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data) + 7 { + 8 > int i; +---- ^ + 9 for (i = 0; i < 8; i++) + 10 printf ("%02x", data[i]); +>> Error: Unexpected indicator: `i' + +data_binary.at-781-dump.c:9.6-9.7: + 6 dump (unsigned char *data) + 7 { + 8 int i; + 9 > for (i = 0; i < 8; i++) +---- ^ + 10 printf ("%02x", data[i]); + 11 puts (""); +>> Error: Unexpected indicator: `(' + +data_binary.at-781-dump.c:10.6-10.7: + 7 { + 8 int i; + 9 for (i = 0; i < 8; i++) + 10 > printf ("%02x", data[i]); +---- ^ + 11 puts (""); + 12 return 0; +>> Error: Unexpected indicator: `i' + +data_binary.at-781-dump.c:12.6-12.7: + 9 for (i = 0; i < 8; i++) + 10 printf ("%02x", data[i]); + 11 puts (""); + 12 > return 0; +---- ^ + 13 } +>> Error: Unexpected indicator: `r' + +data_binary.at-781-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1207:0 +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1232:0 +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1256:0 +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1313:0 +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1398:0 +data_binary.at-1398-prog.cob:20.7-20.34: + 17 MAIN. + 18 * Test with DISPLAY on error + 19 PERFORM DO-CHECK. + 20 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 21 SET NO-DISP TO TRUE + 22 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_binary.at-1398-prog.cob:24.7-24.16: + 21 SET NO-DISP TO TRUE + 22 * some performance checks on the way... + 23 PERFORM DO-CHECK 30000 TIMES. + 24 > >> END-IF +---- ^^^^^^^^^ + 25 GOBACK. + 26 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1589:0 +data_binary.at-1589-prog.cob:30.7-30.34: + 27 MAIN. + 28 * Test with DISPLAY on error + 29 PERFORM DO-CHECK. + 30 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 31 SET NO-DISP TO TRUE + 32 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_binary.at-1589-prog.cob:34.7-34.16: + 31 SET NO-DISP TO TRUE + 32 * some performance checks on the way... + 33 PERFORM DO-CHECK 20000 TIMES. + 34 > >> END-IF +---- ^^^^^^^^^ + 35 GOBACK. + 36 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1775:0 +data_binary.at-1775-prog.cob:30.7-30.34: + 27 MAIN. + 28 * Test with DISPLAY on error + 29 PERFORM DO-CHECK. + 30 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 31 SET NO-DISP TO TRUE + 32 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_binary.at-1775-prog.cob:34.7-34.16: + 31 SET NO-DISP TO TRUE + 32 * some performance checks on the way... + 33 PERFORM DO-CHECK 20000 TIMES. + 34 > >> END-IF +---- ^^^^^^^^^ + 35 GOBACK. + 36 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1955:0 +data_binary.at-1955-prog.cob:28.7-28.34: + 25 MAIN. + 26 * Test with DISPLAY on error + 27 PERFORM DO-CHECK. + 28 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_binary.at-1955-prog.cob:32.7-32.16: + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... + 31 PERFORM DO-CHECK 20000 TIMES. + 32 > >> END-IF +---- ^^^^^^^^^ + 33 GOBACK. + 34 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2137:0 +data_binary.at-2137-prog.cob:28.7-28.34: + 25 MAIN. + 26 * Test with DISPLAY on error + 27 PERFORM DO-CHECK. + 28 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_binary.at-2137-prog.cob:32.7-32.16: + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... + 31 PERFORM DO-CHECK 20000 TIMES. + 32 > >> END-IF +---- ^^^^^^^^^ + 33 GOBACK. + 34 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2196:0 +Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2264:0 diff --git a/test/output-tests/data_display.expected b/test/output-tests/data_display.expected new file mode 100644 index 000000000..049e11cd6 --- /dev/null +++ b/test/output-tests/data_display.expected @@ -0,0 +1,131 @@ +Considering: import/gnucobol/tests/testsuite.src/data_display.at:64:0 +Considering: import/gnucobol/tests/testsuite.src/data_display.at:121:0 +Considering: import/gnucobol/tests/testsuite.src/data_display.at:167:0 +Considering: import/gnucobol/tests/testsuite.src/data_display.at:205:0 +data_display.at-205-prog.cob:11.24-11.38: + 8 01 X-BIU BINARY-INT UNSIGNED. + 9 01 X-BLU BINARY-LONG UNSIGNED. + 10 01 X-BDU BINARY-DOUBLE UNSIGNED. + 11 > 01 X-US UNSIGNED-SHORT. +---- ^^^^^^^^^^^^^^ + 12 01 X-UI UNSIGNED-INT. + 13 PROCEDURE DIVISION. +>> Error: Invalid syntax + +data_display.at-205-prog.cob:12.24-12.36: + 9 01 X-BLU BINARY-LONG UNSIGNED. + 10 01 X-BDU BINARY-DOUBLE UNSIGNED. + 11 01 X-US UNSIGNED-SHORT. + 12 > 01 X-UI UNSIGNED-INT. +---- ^^^^^^^^^^^^ + 13 PROCEDURE DIVISION. + 14 MOVE 127 TO X-BCU. DISPLAY X-BCU END-DISPLAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_display.at:402:0 +data_display.at-402-prog.cob:28.7-28.34: + 25 MAIN. + 26 * Test with DISPLAY on error + 27 PERFORM DO-CHECK. + 28 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_display.at-402-prog.cob:32.7-32.16: + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... + 31 PERFORM DO-CHECK 20000 TIMES. + 32 > >> END-IF +---- ^^^^^^^^^ + 33 GOBACK. + 34 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_display.at:462:0 +Considering: import/gnucobol/tests/testsuite.src/data_display.at:527:0 +Considering: import/gnucobol/tests/testsuite.src/data_display.at:8730:0 +data_display.at-8730-prog.cob:4513.7-4513.34: +4510 MAIN. +4511 * Test with DISPLAY on error +4512 PERFORM DO-CHECK. +4513 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +4514 SET NO-DISP TO TRUE +4515 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_display.at-8730-prog.cob:4517.7-4517.16: +4514 SET NO-DISP TO TRUE +4515 * some performance checks on the way... +4516 PERFORM DO-CHECK 10000 TIMES. +4517 > >> END-IF +---- ^^^^^^^^^ +4518 GOBACK. +4519 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_display.at:16934:0 +data_display.at-16934-prog2.cob:4520.7-4520.34: +4517 MAIN. +4518 * Test with DISPLAY on error +4519 PERFORM DO-CHECK. +4520 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +4521 SET NO-DISP TO TRUE +4522 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_display.at-16934-prog2.cob:4524.7-4524.16: +4521 SET NO-DISP TO TRUE +4522 * some performance checks on the way... +4523 PERFORM DO-CHECK 10000 TIMES. +4524 > >> END-IF +---- ^^^^^^^^^ +4525 GOBACK. +4526 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_display.at:22976:0 +data_display.at-22976-prog.cob:3515.7-3515.34: +3512 MAIN. +3513 * Test with DISPLAY on error +3514 PERFORM DO-CHECK. +3515 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +3516 SET NO-DISP TO TRUE +3517 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_display.at-22976-prog.cob:3519.7-3519.16: +3516 SET NO-DISP TO TRUE +3517 * some performance checks on the way... +3518 PERFORM DO-CHECK 10000 TIMES. +3519 > >> END-IF +---- ^^^^^^^^^ +3520 GOBACK. +3521 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_display.at:29024:0 +data_display.at-29024-prog2.cob:3528.7-3528.34: +3525 MAIN. +3526 * Test with DISPLAY on error +3527 PERFORM DO-CHECK. +3528 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +3529 SET NO-DISP TO TRUE +3530 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_display.at-29024-prog2.cob:3532.7-3532.16: +3529 SET NO-DISP TO TRUE +3530 * some performance checks on the way... +3531 PERFORM DO-CHECK 10000 TIMES. +3532 > >> END-IF +---- ^^^^^^^^^ +3533 GOBACK. +3534 +>> Error: Malformed or unknown compiler directive + diff --git a/test/output-tests/data_packed.expected b/test/output-tests/data_packed.expected new file mode 100644 index 000000000..8c57eb389 --- /dev/null +++ b/test/output-tests/data_packed.expected @@ -0,0 +1,1045 @@ +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:47:0 +data_packed.at-47-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data) + 7 { +>> Error: Unexpected indicator: `T' + +data_packed.at-47-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data) +---- ^ + 7 { + 8 int i; +>> Error: Unexpected indicator: `u' + +data_packed.at-47-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data) + 7 { + 8 > int i; +---- ^ + 9 for (i = 0; i < 10; i++) + 10 printf ("%02x", data[i]); +>> Error: Unexpected indicator: `i' + +data_packed.at-47-dump.c:9.6-9.7: + 6 dump (unsigned char *data) + 7 { + 8 int i; + 9 > for (i = 0; i < 10; i++) +---- ^ + 10 printf ("%02x", data[i]); + 11 puts (""); +>> Error: Unexpected indicator: `(' + +data_packed.at-47-dump.c:10.6-10.7: + 7 { + 8 int i; + 9 for (i = 0; i < 10; i++) + 10 > printf ("%02x", data[i]); +---- ^ + 11 puts (""); + 12 return 0; +>> Error: Unexpected indicator: `i' + +data_packed.at-47-dump.c:12.6-12.7: + 9 for (i = 0; i < 10; i++) + 10 printf ("%02x", data[i]); + 11 puts (""); + 12 > return 0; +---- ^ + 13 } +>> Error: Unexpected indicator: `r' + +data_packed.at-47-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:203:0 +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:432:0 +data_packed.at-432-prog.cob:6.30-6.31: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 78 FENCE VALUE x'ABBAAB'. +---- ^ + 7 01 FILLER. + 8 05 FENCE-1 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-432-prog.cob:8.37: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-1 PIC XXX VALUE FENCE. +---- ^ + 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. + 10 05 FENCE-2 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-432-prog.cob:8.38-8.43: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-1 PIC XXX VALUE FENCE. +---- ^^^^^ + 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. + 10 05 FENCE-2 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-432-prog.cob:10.37: + 7 01 FILLER. + 8 05 FENCE-1 PIC XXX VALUE FENCE. + 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. + 10 > 05 FENCE-2 PIC XXX VALUE FENCE. +---- ^ + 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. + 12 05 FENCE-3 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-432-prog.cob:10.38-10.43: + 7 01 FILLER. + 8 05 FENCE-1 PIC XXX VALUE FENCE. + 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. + 10 > 05 FENCE-2 PIC XXX VALUE FENCE. +---- ^^^^^ + 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. + 12 05 FENCE-3 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-432-prog.cob:12.37: + 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. + 10 05 FENCE-2 PIC XXX VALUE FENCE. + 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. + 12 > 05 FENCE-3 PIC XXX VALUE FENCE. +---- ^ + 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. + 14 05 FENCE-4 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-432-prog.cob:12.38-12.43: + 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. + 10 05 FENCE-2 PIC XXX VALUE FENCE. + 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. + 12 > 05 FENCE-3 PIC XXX VALUE FENCE. +---- ^^^^^ + 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. + 14 05 FENCE-4 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-432-prog.cob:14.37: + 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. + 12 05 FENCE-3 PIC XXX VALUE FENCE. + 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. + 14 > 05 FENCE-4 PIC XXX VALUE FENCE. +---- ^ + 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. + 16 05 FENCE-5 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-432-prog.cob:14.38-14.43: + 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. + 12 05 FENCE-3 PIC XXX VALUE FENCE. + 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. + 14 > 05 FENCE-4 PIC XXX VALUE FENCE. +---- ^^^^^ + 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. + 16 05 FENCE-5 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-432-prog.cob:16.37: + 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. + 14 05 FENCE-4 PIC XXX VALUE FENCE. + 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. + 16 > 05 FENCE-5 PIC XXX VALUE FENCE. +---- ^ + 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. + 18 05 FENCE-6 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-432-prog.cob:16.38-16.43: + 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. + 14 05 FENCE-4 PIC XXX VALUE FENCE. + 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. + 16 > 05 FENCE-5 PIC XXX VALUE FENCE. +---- ^^^^^ + 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. + 18 05 FENCE-6 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-432-prog.cob:18.37: + 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. + 16 05 FENCE-5 PIC XXX VALUE FENCE. + 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. + 18 > 05 FENCE-6 PIC XXX VALUE FENCE. +---- ^ + 19 01 C-P234 PIC 999 VALUE 234. + 20 01 C-N234 PIC S999 VALUE -234. +>> Hint: Missing + +data_packed.at-432-prog.cob:18.38-18.43: + 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. + 16 05 FENCE-5 PIC XXX VALUE FENCE. + 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. + 18 > 05 FENCE-6 PIC XXX VALUE FENCE. +---- ^^^^^ + 19 01 C-P234 PIC 999 VALUE 234. + 20 01 C-N234 PIC S999 VALUE -234. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:633:0 +data_packed.at-633-prog.cob:28.7-28.34: + 25 MAIN. + 26 * Test with DISPLAY on error + 27 PERFORM DO-CHECK. + 28 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-633-prog.cob:32.7-32.16: + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... + 31 PERFORM DO-CHECK 20000 TIMES. + 32 > >> END-IF +---- ^^^^^^^^^ + 33 GOBACK. + 34 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:819:0 +data_packed.at-819-prog.cob:30.7-30.34: + 27 MAIN. + 28 * Test with DISPLAY on error + 29 PERFORM DO-CHECK. + 30 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 31 SET NO-DISP TO TRUE + 32 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-819-prog.cob:34.7-34.16: + 31 SET NO-DISP TO TRUE + 32 * some performance checks on the way... + 33 PERFORM DO-CHECK 20000 TIMES. + 34 > >> END-IF +---- ^^^^^^^^^ + 35 GOBACK. + 36 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1020:0 +data_packed.at-1020-prog.cob:49.7-49.34: + 46 MAIN. + 47 * Test with DISPLAY on error + 48 PERFORM DO-CHECK. + 49 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 50 SET NO-DISP TO TRUE + 51 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-1020-prog.cob:53.7-53.16: + 50 SET NO-DISP TO TRUE + 51 * some performance checks on the way... + 52 PERFORM DO-CHECK 20000 TIMES. + 53 > >> END-IF +---- ^^^^^^^^^ + 54 GOBACK. + 55 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1052:0 +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1181:0 +data_packed.at-1181-prog.cob:6.30-6.31: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 78 FENCE VALUE x'ABBAAB'. +---- ^ + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1181-prog.cob:8.37: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^ + 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1181-prog.cob:8.38-8.43: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^^^^^ + 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1181-prog.cob:10.37: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^ + 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. + 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. +>> Hint: Missing + +data_packed.at-1181-prog.cob:10.38-10.43: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^^^^^ + 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. + 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. +>> Error: Invalid syntax + +data_packed.at-1181-prog.cob:14.37: + 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. + 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. + 13 01 FILLER. + 14 > 05 FENCE-1 PIC XXX VALUE FENCE. +---- ^ + 15 05 X-9 PIC 9 USAGE COMP-6. + 16 05 FENCE-2 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1181-prog.cob:14.38-14.43: + 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. + 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. + 13 01 FILLER. + 14 > 05 FENCE-1 PIC XXX VALUE FENCE. +---- ^^^^^ + 15 05 X-9 PIC 9 USAGE COMP-6. + 16 05 FENCE-2 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1181-prog.cob:16.37: + 13 01 FILLER. + 14 05 FENCE-1 PIC XXX VALUE FENCE. + 15 05 X-9 PIC 9 USAGE COMP-6. + 16 > 05 FENCE-2 PIC XXX VALUE FENCE. +---- ^ + 17 05 X-99 PIC 99 USAGE COMP-6. + 18 05 FENCE-3 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1181-prog.cob:16.38-16.43: + 13 01 FILLER. + 14 05 FENCE-1 PIC XXX VALUE FENCE. + 15 05 X-9 PIC 9 USAGE COMP-6. + 16 > 05 FENCE-2 PIC XXX VALUE FENCE. +---- ^^^^^ + 17 05 X-99 PIC 99 USAGE COMP-6. + 18 05 FENCE-3 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1181-prog.cob:18.37: + 15 05 X-9 PIC 9 USAGE COMP-6. + 16 05 FENCE-2 PIC XXX VALUE FENCE. + 17 05 X-99 PIC 99 USAGE COMP-6. + 18 > 05 FENCE-3 PIC XXX VALUE FENCE. +---- ^ + 19 05 X-920 PIC 9(20) USAGE COMP-6. + 20 05 FENCE-4 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1181-prog.cob:18.38-18.43: + 15 05 X-9 PIC 9 USAGE COMP-6. + 16 05 FENCE-2 PIC XXX VALUE FENCE. + 17 05 X-99 PIC 99 USAGE COMP-6. + 18 > 05 FENCE-3 PIC XXX VALUE FENCE. +---- ^^^^^ + 19 05 X-920 PIC 9(20) USAGE COMP-6. + 20 05 FENCE-4 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1181-prog.cob:20.37: + 17 05 X-99 PIC 99 USAGE COMP-6. + 18 05 FENCE-3 PIC XXX VALUE FENCE. + 19 05 X-920 PIC 9(20) USAGE COMP-6. + 20 > 05 FENCE-4 PIC XXX VALUE FENCE. +---- ^ + 21 05 X-921 PIC 9(21) USAGE COMP-6. + 22 05 FENCE-5 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1181-prog.cob:20.38-20.43: + 17 05 X-99 PIC 99 USAGE COMP-6. + 18 05 FENCE-3 PIC XXX VALUE FENCE. + 19 05 X-920 PIC 9(20) USAGE COMP-6. + 20 > 05 FENCE-4 PIC XXX VALUE FENCE. +---- ^^^^^ + 21 05 X-921 PIC 9(21) USAGE COMP-6. + 22 05 FENCE-5 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1181-prog.cob:22.37: + 19 05 X-920 PIC 9(20) USAGE COMP-6. + 20 05 FENCE-4 PIC XXX VALUE FENCE. + 21 05 X-921 PIC 9(21) USAGE COMP-6. + 22 > 05 FENCE-5 PIC XXX VALUE FENCE. +---- ^ + 23 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. + 24 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. +>> Hint: Missing + +data_packed.at-1181-prog.cob:22.38-22.43: + 19 05 X-920 PIC 9(20) USAGE COMP-6. + 20 05 FENCE-4 PIC XXX VALUE FENCE. + 21 05 X-921 PIC 9(21) USAGE COMP-6. + 22 > 05 FENCE-5 PIC XXX VALUE FENCE. +---- ^^^^^ + 23 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. + 24 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1257:0 +data_packed.at-1257-prog.cob:42.7-42.34: + 39 MAIN. + 40 * Test with DISPLAY on error + 41 PERFORM DO-CHECK. + 42 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 43 SET NO-DISP TO TRUE + 44 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-1257-prog.cob:46.7-46.16: + 43 SET NO-DISP TO TRUE + 44 * some performance checks on the way... + 45 PERFORM DO-CHECK 30000 TIMES. + 46 > >> END-IF +---- ^^^^^^^^^ + 47 GOBACK. + 48 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1327:0 +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1393:0 +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1421:0 +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1462:0 +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1557:0 +data_packed.at-1557-prog.cob:6.30-6.31: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 78 FENCE VALUE x'ABBAAB'. +---- ^ + 7 01 FILLER. + 8 05 FENCE-1 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1557-prog.cob:8.37: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-1 PIC XXX VALUE FENCE. +---- ^ + 9 05 X-9 PIC 9 USAGE COMP-6. + 10 05 FENCE-2 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1557-prog.cob:8.38-8.43: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-1 PIC XXX VALUE FENCE. +---- ^^^^^ + 9 05 X-9 PIC 9 USAGE COMP-6. + 10 05 FENCE-2 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1557-prog.cob:10.37: + 7 01 FILLER. + 8 05 FENCE-1 PIC XXX VALUE FENCE. + 9 05 X-9 PIC 9 USAGE COMP-6. + 10 > 05 FENCE-2 PIC XXX VALUE FENCE. +---- ^ + 11 05 X-99 PIC 99 USAGE COMP-6. + 12 05 FENCE-3 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1557-prog.cob:10.38-10.43: + 7 01 FILLER. + 8 05 FENCE-1 PIC XXX VALUE FENCE. + 9 05 X-9 PIC 9 USAGE COMP-6. + 10 > 05 FENCE-2 PIC XXX VALUE FENCE. +---- ^^^^^ + 11 05 X-99 PIC 99 USAGE COMP-6. + 12 05 FENCE-3 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1557-prog.cob:12.37: + 9 05 X-9 PIC 9 USAGE COMP-6. + 10 05 FENCE-2 PIC XXX VALUE FENCE. + 11 05 X-99 PIC 99 USAGE COMP-6. + 12 > 05 FENCE-3 PIC XXX VALUE FENCE. +---- ^ + 13 05 X-920 PIC 9(20) USAGE COMP-6. + 14 05 FENCE-4 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1557-prog.cob:12.38-12.43: + 9 05 X-9 PIC 9 USAGE COMP-6. + 10 05 FENCE-2 PIC XXX VALUE FENCE. + 11 05 X-99 PIC 99 USAGE COMP-6. + 12 > 05 FENCE-3 PIC XXX VALUE FENCE. +---- ^^^^^ + 13 05 X-920 PIC 9(20) USAGE COMP-6. + 14 05 FENCE-4 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1557-prog.cob:14.37: + 11 05 X-99 PIC 99 USAGE COMP-6. + 12 05 FENCE-3 PIC XXX VALUE FENCE. + 13 05 X-920 PIC 9(20) USAGE COMP-6. + 14 > 05 FENCE-4 PIC XXX VALUE FENCE. +---- ^ + 15 05 X-921 PIC 9(21) USAGE COMP-6. + 16 05 FENCE-5 PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-1557-prog.cob:14.38-14.43: + 11 05 X-99 PIC 99 USAGE COMP-6. + 12 05 FENCE-3 PIC XXX VALUE FENCE. + 13 05 X-920 PIC 9(20) USAGE COMP-6. + 14 > 05 FENCE-4 PIC XXX VALUE FENCE. +---- ^^^^^ + 15 05 X-921 PIC 9(21) USAGE COMP-6. + 16 05 FENCE-5 PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-1557-prog.cob:16.37: + 13 05 X-920 PIC 9(20) USAGE COMP-6. + 14 05 FENCE-4 PIC XXX VALUE FENCE. + 15 05 X-921 PIC 9(21) USAGE COMP-6. + 16 > 05 FENCE-5 PIC XXX VALUE FENCE. +---- ^ + 17 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. + 18 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. +>> Hint: Missing + +data_packed.at-1557-prog.cob:16.38-16.43: + 13 05 X-920 PIC 9(20) USAGE COMP-6. + 14 05 FENCE-4 PIC XXX VALUE FENCE. + 15 05 X-921 PIC 9(21) USAGE COMP-6. + 16 > 05 FENCE-5 PIC XXX VALUE FENCE. +---- ^^^^^ + 17 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. + 18 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1603:0 +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1659:0 +data_packed.at-1659-prog.cob:28.7-28.34: + 25 MAIN. + 26 * Test with DISPLAY on error + 27 PERFORM DO-CHECK. + 28 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-1659-prog.cob:32.7-32.16: + 29 SET NO-DISP TO TRUE + 30 * some performance checks on the way... + 31 PERFORM DO-CHECK 30000 TIMES. + 32 > >> END-IF +---- ^^^^^^^^^ + 33 GOBACK. + 34 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1959:0 +data_packed.at-1959-prog.cob:108.7-108.34: + 105 MAIN. + 106 * Test with DISPLAY on error + 107 PERFORM DO-CHECK. + 108 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 109 SET NO-DISP TO TRUE + 110 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-1959-prog.cob:112.7-112.16: + 109 SET NO-DISP TO TRUE + 110 * some performance checks on the way... + 111 PERFORM DO-CHECK 10000 TIMES. + 112 > >> END-IF +---- ^^^^^^^^^ + 113 GOBACK. + 114 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:2063:0 +data_packed.at-2063-prog.cob:6.30-6.31: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 78 FENCE VALUE x'ABBAAB'. +---- ^ + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2063-prog.cob:8.42: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^ + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-2063-prog.cob:8.43-8.48: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^^^^^ + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2063-prog.cob:10.42: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^ + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-2063-prog.cob:10.43-10.48: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^^^^^ + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2063-prog.cob:12.42: + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 > 05 FENCE-C PIC XXX VALUE FENCE. +---- ^ + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-2063-prog.cob:12.43-12.48: + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 > 05 FENCE-C PIC XXX VALUE FENCE. +---- ^^^^^ + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2063-prog.cob:14.42: + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 > 05 FENCE-D PIC XXX VALUE FENCE. +---- ^ + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. +>> Hint: Missing + +data_packed.at-2063-prog.cob:14.43-14.48: + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 > 05 FENCE-D PIC XXX VALUE FENCE. +---- ^^^^^ + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. +>> Error: Invalid syntax + +data_packed.at-2063-prog.cob:15.42: + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. + 15 > 01 FENCE-1 PIC XXX VALUE FENCE. +---- ^ + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. +>> Hint: Missing + +data_packed.at-2063-prog.cob:15.43-15.48: + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. + 15 > 01 FENCE-1 PIC XXX VALUE FENCE. +---- ^^^^^ + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. +>> Error: Invalid syntax + +data_packed.at-2063-prog.cob:18.42: + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. + 18 > 01 FENCE-2 PIC XXX VALUE FENCE. +---- ^ + 19 01 WRK-DS-LS-1P17-1 PIC S9P(17) SIGN LEADING SEPARATE + 20 CHARACTER VALUE -100000000000000000. +>> Hint: Missing + +data_packed.at-2063-prog.cob:18.43-18.48: + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. + 18 > 01 FENCE-2 PIC XXX VALUE FENCE. +---- ^^^^^ + 19 01 WRK-DS-LS-1P17-1 PIC S9P(17) SIGN LEADING SEPARATE + 20 CHARACTER VALUE -100000000000000000. +>> Error: Invalid syntax + +data_packed.at-2063-prog.cob:36.22-36.28: + 33 DISPLAY "MOVE AE-EDIT failed: " GRP-AE-0002 ".". + 34 MOVE WRK-DS-LS-1P17-1 TO WRK-AE-3. + 35 DISPLAY "MOVE 1P17: " WRK-DS-LS-1P17-1 " : " + 36 > LENGTH OF WRK-DS-LS-1P17-1 ".". +---- ^^^^^^ + 37 DISPLAY "MOVE A-E : " WRK-AE-3 ".". + 38 IF WRK-AE-3 NOT EQUAL TO "1 000/000/000/000/000 00" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:2156:0 +data_packed.at-2156-prog.cob:6.30-6.31: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 78 FENCE VALUE x'ABBAAB'. +---- ^ + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2156-prog.cob:8.42: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^ + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-2156-prog.cob:8.43-8.48: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^^^^^ + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2156-prog.cob:10.42: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^ + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-2156-prog.cob:10.43-10.48: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^^^^^ + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2156-prog.cob:12.42: + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 > 05 FENCE-C PIC XXX VALUE FENCE. +---- ^ + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-2156-prog.cob:12.43-12.48: + 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. + 10 05 FENCE-B PIC XXX VALUE FENCE. + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 > 05 FENCE-C PIC XXX VALUE FENCE. +---- ^^^^^ + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2156-prog.cob:14.42: + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 > 05 FENCE-D PIC XXX VALUE FENCE. +---- ^ + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. +>> Hint: Missing + +data_packed.at-2156-prog.cob:14.43-14.48: + 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 > 05 FENCE-D PIC XXX VALUE FENCE. +---- ^^^^^ + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. +>> Error: Invalid syntax + +data_packed.at-2156-prog.cob:15.42: + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. + 15 > 01 FENCE-1 PIC XXX VALUE FENCE. +---- ^ + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. +>> Hint: Missing + +data_packed.at-2156-prog.cob:15.43-15.48: + 12 05 FENCE-C PIC XXX VALUE FENCE. + 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. + 14 05 FENCE-D PIC XXX VALUE FENCE. + 15 > 01 FENCE-1 PIC XXX VALUE FENCE. +---- ^^^^^ + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. +>> Error: Invalid syntax + +data_packed.at-2156-prog.cob:18.42: + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. + 18 > 01 FENCE-2 PIC XXX VALUE FENCE. +---- ^ + 19 PROCEDURE DIVISION. + 20 DISPLAY "INIT X-1 : " X-1 " .". +>> Hint: Missing + +data_packed.at-2156-prog.cob:18.43-18.48: + 15 01 FENCE-1 PIC XXX VALUE FENCE. + 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. + 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. + 18 > 01 FENCE-2 PIC XXX VALUE FENCE. +---- ^^^^^ + 19 PROCEDURE DIVISION. + 20 DISPLAY "INIT X-1 : " X-1 " .". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:2230:0 +data_packed.at-2230-prog.cob:6.30-6.31: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 78 FENCE VALUE x'ABBAAB'. +---- ^ + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2230-prog.cob:8.37: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^ + 9 05 RESULT PIC 9(03) PACKED-DECIMAL. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Hint: Missing + +data_packed.at-2230-prog.cob:8.38-8.43: + 5 WORKING-STORAGE SECTION. + 6 78 FENCE VALUE x'ABBAAB'. + 7 01 FILLER. + 8 > 05 FENCE-A PIC XXX VALUE FENCE. +---- ^^^^^ + 9 05 RESULT PIC 9(03) PACKED-DECIMAL. + 10 05 FENCE-B PIC XXX VALUE FENCE. +>> Error: Invalid syntax + +data_packed.at-2230-prog.cob:10.37: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 RESULT PIC 9(03) PACKED-DECIMAL. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^ + 11 PROCEDURE DIVISION. + 12 MAIN. +>> Hint: Missing + +data_packed.at-2230-prog.cob:10.38-10.43: + 7 01 FILLER. + 8 05 FENCE-A PIC XXX VALUE FENCE. + 9 05 RESULT PIC 9(03) PACKED-DECIMAL. + 10 > 05 FENCE-B PIC XXX VALUE FENCE. +---- ^^^^^ + 11 PROCEDURE DIVISION. + 12 MAIN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:7277:0 +data_packed.at-7277-prog.cob:3020.7-3020.34: +3017 MAIN. +3018 * Test with DISPLAY on error +3019 PERFORM DO-CHECK. +3020 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +3021 SET NO-DISP TO TRUE +3022 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-7277-prog.cob:3024.7-3024.16: +3021 SET NO-DISP TO TRUE +3022 * some performance checks on the way... +3023 PERFORM DO-CHECK 10000 TIMES. +3024 > >> END-IF +---- ^^^^^^^^^ +3025 GOBACK. +3026 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:12320:0 +data_packed.at-12320-prog2.cob:3026.7-3026.34: +3023 MAIN. +3024 * Test with DISPLAY on error +3025 PERFORM DO-CHECK. +3026 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +3027 SET NO-DISP TO TRUE +3028 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-12320-prog2.cob:3030.7-3030.16: +3027 SET NO-DISP TO TRUE +3028 * some performance checks on the way... +3029 PERFORM DO-CHECK 10000 TIMES. +3030 > >> END-IF +---- ^^^^^^^^^ +3031 GOBACK. +3032 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:20531:0 +data_packed.at-20531-prog.cob:4517.7-4517.34: +4514 MAIN. +4515 * Test with DISPLAY on error +4516 PERFORM DO-CHECK. +4517 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +4518 SET NO-DISP TO TRUE +4519 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-20531-prog.cob:4521.7-4521.16: +4518 SET NO-DISP TO TRUE +4519 * some performance checks on the way... +4520 PERFORM DO-CHECK 10000 TIMES. +4521 > >> END-IF +---- ^^^^^^^^^ +4522 GOBACK. +4523 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:28740:0 +data_packed.at-28740-prog2.cob:4525.7-4525.34: +4522 MAIN. +4523 * Test with DISPLAY on error +4524 PERFORM DO-CHECK. +4525 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +4526 SET NO-DISP TO TRUE +4527 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-28740-prog2.cob:4529.7-4529.16: +4526 SET NO-DISP TO TRUE +4527 * some performance checks on the way... +4528 PERFORM DO-CHECK 10000 TIMES. +4529 > >> END-IF +---- ^^^^^^^^^ +4530 GOBACK. +4531 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:34793:0 +data_packed.at-34793-prog.cob:3520.7-3520.34: +3517 MAIN. +3518 * Test with DISPLAY on error +3519 PERFORM DO-CHECK. +3520 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +3521 SET NO-DISP TO TRUE +3522 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-34793-prog.cob:3524.7-3524.16: +3521 SET NO-DISP TO TRUE +3522 * some performance checks on the way... +3523 PERFORM DO-CHECK 10000 TIMES. +3524 > >> END-IF +---- ^^^^^^^^^ +3525 GOBACK. +3526 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/data_packed.at:40840:0 +data_packed.at-40840-prog2.cob:3527.7-3527.34: +3524 MAIN. +3525 * Test with DISPLAY on error +3526 PERFORM DO-CHECK. +3527 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ +3528 SET NO-DISP TO TRUE +3529 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +data_packed.at-40840-prog2.cob:3531.7-3531.16: +3528 SET NO-DISP TO TRUE +3529 * some performance checks on the way... +3530 PERFORM DO-CHECK 10000 TIMES. +3531 > >> END-IF +---- ^^^^^^^^^ +3532 GOBACK. +3533 +>> Error: Malformed or unknown compiler directive + diff --git a/test/output-tests/data_pointer.expected b/test/output-tests/data_pointer.expected new file mode 100644 index 000000000..20f467a82 --- /dev/null +++ b/test/output-tests/data_pointer.expected @@ -0,0 +1,21 @@ +Considering: import/gnucobol/tests/testsuite.src/data_pointer.at:41:0 +data_pointer.at-41-prog.cob:6.43: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 PTR USAGE POINTER VALUE NULL. +---- ^ + 7 PROCEDURE DIVISION. + 8 DISPLAY PTR +>> Hint: Missing + +data_pointer.at-41-prog.cob:6.44-6.48: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 PTR USAGE POINTER VALUE NULL. +---- ^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY PTR +>> Error: Invalid syntax + diff --git a/test/output-tests/dune b/test/output-tests/dune index 04b40e7c8..739b5ced6 100644 --- a/test/output-tests/dune +++ b/test/output-tests/dune @@ -1,32 +1,15 @@ ; if you modify this file, add 'test' to the 'skip' field in drom.toml -; a first example where we would test the behavior of one of the executables -; that we generate else-where - -; (rule -; (deps test1.expected) -; (action -; (with-stdout-to -; test1.output -; (run cat test1.expected)))) - -; (rule -; (alias runtest) -; (action -; (diff test1.expected test1.output))) - -; a second example where we generate a file and test its output - (executable (name preproc) (modules Preproc) - (libraries cobol_preproc) ; add your own library here + (libraries cobol_preproc) ) (executable (name gnucobol) (modules Gnucobol) - (libraries autofonce_lib superbol_testutils cobol_parser) ; add your own library here + (libraries autofonce_lib superbol_testutils cobol_parser) ) (alias @@ -45,13 +28,4 @@ (action (diff preproc.expected preproc.output))) -(rule - (with-stdout-to - gnucobol.output - (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" - (run %{exe:gnucobol.exe})))) - -(rule - (alias runtest) - (action - (diff gnucobol.expected gnucobol.output))) +(include gnucobol-tests.inc) diff --git a/test/output-tests/gnucobol-tests-gen.ml b/test/output-tests/gnucobol-tests-gen.ml new file mode 100644 index 000000000..b00910d4d --- /dev/null +++ b/test/output-tests/gnucobol-tests-gen.ml @@ -0,0 +1,51 @@ +(* -*- tuareg -*- *) +let at_files = [ + "used_binaries.at"; + "configuration.at"; + "syn_copy.at"; + "syn_definition.at"; + "syn_subscripts.at"; + "syn_occurs.at"; + "syn_redefines.at"; + "syn_value.at"; + "syn_file.at"; + "syn_reportwriter.at"; + "syn_refmod.at"; + "syn_misc.at"; + "syn_move.at"; + "syn_multiply.at"; + "syn_screen.at"; + "syn_set.at"; + "syn_functions.at"; + "syn_literals.at"; + "listings.at"; + "run_fundamental.at"; + "run_subscripts.at"; + "run_refmod.at"; + "run_accept.at"; + "run_initialize.at"; + "run_misc.at"; + "run_file.at"; + "run_reportwriter.at"; + "run_returncode.at"; + "run_functions.at"; + "run_extensions.at"; + "run_ml.at"; + "data_binary.at"; + "data_display.at"; + "data_packed.at"; + "data_pointer.at"; +];; + +List.iter begin fun at_file -> + let basename = Filename.chop_extension at_file in + Printf.printf " +(rule + (with-stdout-to %s.output + (setenv COB_CONFIG_DIR \"%%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config\" + (run %%{exe:gnucobol.exe} %s.at)))) +(rule + (alias runtest) + (action (diff %s.expected %s.output))) +" basename basename basename basename +end at_files diff --git a/test/output-tests/gnucobol-tests.inc b/test/output-tests/gnucobol-tests.inc new file mode 100644 index 000000000..6b11dce50 --- /dev/null +++ b/test/output-tests/gnucobol-tests.inc @@ -0,0 +1,280 @@ + +(rule + (with-stdout-to used_binaries.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} used_binaries.at)))) +(rule + (alias runtest) + (action (diff used_binaries.expected used_binaries.output))) + +(rule + (with-stdout-to configuration.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} configuration.at)))) +(rule + (alias runtest) + (action (diff configuration.expected configuration.output))) + +(rule + (with-stdout-to syn_copy.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_copy.at)))) +(rule + (alias runtest) + (action (diff syn_copy.expected syn_copy.output))) + +(rule + (with-stdout-to syn_definition.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_definition.at)))) +(rule + (alias runtest) + (action (diff syn_definition.expected syn_definition.output))) + +(rule + (with-stdout-to syn_subscripts.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_subscripts.at)))) +(rule + (alias runtest) + (action (diff syn_subscripts.expected syn_subscripts.output))) + +(rule + (with-stdout-to syn_occurs.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_occurs.at)))) +(rule + (alias runtest) + (action (diff syn_occurs.expected syn_occurs.output))) + +(rule + (with-stdout-to syn_redefines.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_redefines.at)))) +(rule + (alias runtest) + (action (diff syn_redefines.expected syn_redefines.output))) + +(rule + (with-stdout-to syn_value.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_value.at)))) +(rule + (alias runtest) + (action (diff syn_value.expected syn_value.output))) + +(rule + (with-stdout-to syn_file.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_file.at)))) +(rule + (alias runtest) + (action (diff syn_file.expected syn_file.output))) + +(rule + (with-stdout-to syn_reportwriter.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_reportwriter.at)))) +(rule + (alias runtest) + (action (diff syn_reportwriter.expected syn_reportwriter.output))) + +(rule + (with-stdout-to syn_refmod.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_refmod.at)))) +(rule + (alias runtest) + (action (diff syn_refmod.expected syn_refmod.output))) + +(rule + (with-stdout-to syn_misc.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_misc.at)))) +(rule + (alias runtest) + (action (diff syn_misc.expected syn_misc.output))) + +(rule + (with-stdout-to syn_move.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_move.at)))) +(rule + (alias runtest) + (action (diff syn_move.expected syn_move.output))) + +(rule + (with-stdout-to syn_multiply.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_multiply.at)))) +(rule + (alias runtest) + (action (diff syn_multiply.expected syn_multiply.output))) + +(rule + (with-stdout-to syn_screen.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_screen.at)))) +(rule + (alias runtest) + (action (diff syn_screen.expected syn_screen.output))) + +(rule + (with-stdout-to syn_set.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_set.at)))) +(rule + (alias runtest) + (action (diff syn_set.expected syn_set.output))) + +(rule + (with-stdout-to syn_functions.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_functions.at)))) +(rule + (alias runtest) + (action (diff syn_functions.expected syn_functions.output))) + +(rule + (with-stdout-to syn_literals.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} syn_literals.at)))) +(rule + (alias runtest) + (action (diff syn_literals.expected syn_literals.output))) + +(rule + (with-stdout-to listings.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} listings.at)))) +(rule + (alias runtest) + (action (diff listings.expected listings.output))) + +(rule + (with-stdout-to run_fundamental.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_fundamental.at)))) +(rule + (alias runtest) + (action (diff run_fundamental.expected run_fundamental.output))) + +(rule + (with-stdout-to run_subscripts.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_subscripts.at)))) +(rule + (alias runtest) + (action (diff run_subscripts.expected run_subscripts.output))) + +(rule + (with-stdout-to run_refmod.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_refmod.at)))) +(rule + (alias runtest) + (action (diff run_refmod.expected run_refmod.output))) + +(rule + (with-stdout-to run_accept.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_accept.at)))) +(rule + (alias runtest) + (action (diff run_accept.expected run_accept.output))) + +(rule + (with-stdout-to run_initialize.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_initialize.at)))) +(rule + (alias runtest) + (action (diff run_initialize.expected run_initialize.output))) + +(rule + (with-stdout-to run_misc.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_misc.at)))) +(rule + (alias runtest) + (action (diff run_misc.expected run_misc.output))) + +(rule + (with-stdout-to run_file.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_file.at)))) +(rule + (alias runtest) + (action (diff run_file.expected run_file.output))) + +(rule + (with-stdout-to run_reportwriter.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_reportwriter.at)))) +(rule + (alias runtest) + (action (diff run_reportwriter.expected run_reportwriter.output))) + +(rule + (with-stdout-to run_returncode.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_returncode.at)))) +(rule + (alias runtest) + (action (diff run_returncode.expected run_returncode.output))) + +(rule + (with-stdout-to run_functions.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_functions.at)))) +(rule + (alias runtest) + (action (diff run_functions.expected run_functions.output))) + +(rule + (with-stdout-to run_extensions.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_extensions.at)))) +(rule + (alias runtest) + (action (diff run_extensions.expected run_extensions.output))) + +(rule + (with-stdout-to run_ml.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} run_ml.at)))) +(rule + (alias runtest) + (action (diff run_ml.expected run_ml.output))) + +(rule + (with-stdout-to data_binary.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} data_binary.at)))) +(rule + (alias runtest) + (action (diff data_binary.expected data_binary.output))) + +(rule + (with-stdout-to data_display.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} data_display.at)))) +(rule + (alias runtest) + (action (diff data_display.expected data_display.output))) + +(rule + (with-stdout-to data_packed.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} data_packed.at)))) +(rule + (alias runtest) + (action (diff data_packed.expected data_packed.output))) + +(rule + (with-stdout-to data_pointer.output + (setenv COB_CONFIG_DIR "%{env:DUNE_SOURCEROOT=.}/import/gnucobol/config" + (run %{exe:gnucobol.exe} data_pointer.at)))) +(rule + (alias runtest) + (action (diff data_pointer.expected data_pointer.output))) diff --git a/test/output-tests/gnucobol.expected b/test/output-tests/gnucobol.expected deleted file mode 100644 index 8dd67bfab..000000000 --- a/test/output-tests/gnucobol.expected +++ /dev/null @@ -1,64818 +0,0 @@ -Considering: import/gnucobol/tests/testsuite.src/configuration.at:36:0 -configuration.at-36-prog.cob:4.7-4.22: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > AUTHOR. tester. ----- ^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:56:0 -configuration.at-56-prog.cob:4.7-4.22: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > AUTHOR. tester. ----- ^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:167:0 -configuration.at-167-prog.cob:4.7-4.22: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > AUTHOR. tester. ----- ^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:167:0 -configuration.at-167-test.conf:2.6-2.7: - 1 - 2 > include "default.conf" ----- ^ - 3 name: "Sample Conf" - 4 comment-paragraphs: ok ->> Error: Unexpected indicator: `e' - -configuration.at-167-test.conf:3.6-3.7: - 1 - 2 include "default.conf" - 3 > name: "Sample Conf" ----- ^ - 4 comment-paragraphs: ok ->> Error: Unexpected indicator: `"' - -configuration.at-167-test.conf:4.6-4.7: - 1 - 2 include "default.conf" - 3 name: "Sample Conf" - 4 > comment-paragraphs: ok ----- ^ ->> Error: Unexpected indicator: `t' - -configuration.at-167-test.conf:3.18-3.72: - 1 - 2 include "default.conf" - 3 > name: "Sample Conf" ----- ^ - 4 comment-paragraphs: ok ->> Error: Missing continuation of ` ' - -configuration.at-167-test.conf:2.8-2.22: - 1 - 2 > include "default.conf" ----- ^^^^^^^^^^^^^^ - 3 name: "Sample Conf" - 4 comment-paragraphs: ok ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:234:0 -configuration.at-234-prog.cob:4.7-4.22: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > AUTHOR. tester. ----- ^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:234:0 -configuration.at-234-test.conf:2.6-2.7: - 1 - 2 > include "mf.conf" ----- ^ - 3 name: "Sample Conf" - 4 comment-paragraphs: ok ->> Error: Unexpected indicator: `e' - -configuration.at-234-test.conf:3.6-3.7: - 1 - 2 include "mf.conf" - 3 > name: "Sample Conf" ----- ^ - 4 comment-paragraphs: ok ->> Error: Unexpected indicator: `"' - -configuration.at-234-test.conf:4.6-4.7: - 1 - 2 include "mf.conf" - 3 name: "Sample Conf" - 4 > comment-paragraphs: ok ----- ^ ->> Error: Unexpected indicator: `t' - -configuration.at-234-test.conf:3.18-3.72: - 1 - 2 include "mf.conf" - 3 > name: "Sample Conf" ----- ^ - 4 comment-paragraphs: ok ->> Error: Missing continuation of ` ' - -configuration.at-234-test.conf:2.8-2.17: - 1 - 2 > include "mf.conf" ----- ^^^^^^^^^ - 3 name: "Sample Conf" - 4 comment-paragraphs: ok ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:254:0 -configuration.at-254-prog.cob:4.7-4.22: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > AUTHOR. tester. ----- ^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:280:0 -configuration.at-280-prog.cob:4.7-4.22: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > AUTHOR. tester. ----- ^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:284:0 -configuration.at-284-test.conf:2.6-2.7: - 1 - 2 > include "default.conf" ----- ^ - 3 name: "Sample Conf" - 4 comment-paragraphs: unconformable ->> Error: Unexpected indicator: `e' - -configuration.at-284-test.conf:3.6-3.7: - 1 - 2 include "default.conf" - 3 > name: "Sample Conf" ----- ^ - 4 comment-paragraphs: unconformable ->> Error: Unexpected indicator: `"' - -configuration.at-284-test.conf:4.6-4.7: - 1 - 2 include "default.conf" - 3 name: "Sample Conf" - 4 > comment-paragraphs: unconformable ----- ^ ->> Error: Unexpected indicator: `t' - -configuration.at-284-test.conf:3.18-3.72: - 1 - 2 include "default.conf" - 3 > name: "Sample Conf" ----- ^ - 4 comment-paragraphs: unconformable ->> Error: Missing continuation of ` ' - -configuration.at-284-test.conf:2.8-2.22: - 1 - 2 > include "default.conf" ----- ^^^^^^^^^^^^^^ - 3 name: "Sample Conf" - 4 comment-paragraphs: unconformable ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:316:0 -Considering: import/gnucobol/tests/testsuite.src/configuration.at:396:0 -configuration.at-396-defunc.conf:2.6-2.7: - 1 - 2 > include "default.conf" ----- ^ - 3 includeif "notthere.conf" ->> Error: Unexpected indicator: `e' - -configuration.at-396-defunc.conf:3.6-3.7: - 1 - 2 include "default.conf" - 3 > includeif "notthere.conf" ----- ^ ->> Error: Unexpected indicator: `e' - -configuration.at-396-defunc.conf:2.8-2.22: - 1 - 2 > include "default.conf" ----- ^^^^^^^^^^^^^^ - 3 includeif "notthere.conf" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:396:0 -configuration.at-396-prog.cob:4.7-4.22: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > AUTHOR. tester. ----- ^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:399:0 -configuration.at-399-test.conf:2.6-2.7: - 1 - 2 > include "default.conf" ----- ^ - 3 include "test2.conf" ->> Error: Unexpected indicator: `e' - -configuration.at-399-test.conf:3.6-3.7: - 1 - 2 include "default.conf" - 3 > include "test2.conf" ----- ^ ->> Error: Unexpected indicator: `e' - -configuration.at-399-test.conf:2.8-2.22: - 1 - 2 > include "default.conf" ----- ^^^^^^^^^^^^^^ - 3 include "test2.conf" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:588:0 -configuration.at-588-test.cfg:2.6-2.7: - 1 - 2 > include "test2.cfg" ----- ^ ->> Error: Unexpected indicator: `e' - -configuration.at-588-test.cfg:2.8-2.19: - 1 - 2 > include "test2.cfg" ----- ^^^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:586:0 -configuration.at-586-test2.cfg:2.6-2.7: - 1 - 2 > physical_cancel true ----- ^ ->> Error: Unexpected indicator: `a' - -configuration.at-586-test2.cfg:2.7-2.15: - 1 - 2 > physical_cancel true ----- ^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:590:0 -configuration.at-590-test3.cfg:2.7-2.26: - 1 - 2 > setenv COB_PHYSICAL_CANCEL=true ----- ^^^^^^^^^^^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:644:0 -configuration.at-644-test.cfg:2.6-2.7: - 1 - 2 > physical_cancel true ----- ^ ->> Error: Unexpected indicator: `a' - -configuration.at-644-test.cfg:2.7-2.15: - 1 - 2 > physical_cancel true ----- ^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:768:0 -configuration.at-768-defunc.cfg:2.6-2.7: - 1 - 2 > include "runtime_empty.cfg" ----- ^ - 3 includeif "notthere.cfg" ->> Error: Unexpected indicator: `e' - -configuration.at-768-defunc.cfg:3.6-3.7: - 1 - 2 include "runtime_empty.cfg" - 3 > includeif "notthere.cfg" ----- ^ ->> Error: Unexpected indicator: `e' - -configuration.at-768-defunc.cfg:2.8-2.27: - 1 - 2 > include "runtime_empty.cfg" ----- ^^^^^^^^^^^^^^^^^^^ - 3 includeif "notthere.cfg" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:851:0 -configuration.at-851-fixed.cob:4.18: - 1 - 2 *Example prog in fixed format (the default) - 3 IDENTIFICATION DIVISION. - 4 > PROGRAM-ID. fixed. ----- ^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Hint: Missing - -configuration.at-851-fixed.cob:4.24-4.29: - 1 - 2 *Example prog in fixed format (the default) - 3 IDENTIFICATION DIVISION. - 4 > PROGRAM-ID. fixed. ----- ^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:880:0 -configuration.at-880-wide.cob:9.19-9.72: - 6 WORKING-STORAGE SECTION. - 7 / - 8 PROCEDURE DIVISION. - 9 > DISPLAY ' 20 30 40 50 60 70 ' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 DISPLAY ' 20 30 40 50 60 70 - 11 - ' 80' ->> Error: Missing continuation of ` 20 30 40 50 60 ' - -configuration.at-880-wide.cob:9.18: - 6 WORKING-STORAGE SECTION. - 7 / - 8 PROCEDURE DIVISION. - 9 > DISPLAY ' 20 30 40 50 60 70 ' ----- ^ - 10 DISPLAY ' 20 30 40 50 60 70 - 11 - ' 80' ->> Hint: Missing - -configuration.at-880-wide.cob:9.19-9.72: - 6 WORKING-STORAGE SECTION. - 7 / - 8 PROCEDURE DIVISION. - 9 > DISPLAY ' 20 30 40 50 60 70 ' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 DISPLAY ' 20 30 40 50 60 70 - 11 - ' 80' ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:903:0 -configuration.at-903-prog.cob:7.13-7.20: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 OBJECT-COMPUTER. - 7 > PROGRAM COLLATING SEQUENCE IS an-ebcdic. ----- ^^^^^^^ - 8 SPECIAL-NAMES. - 9 ALPHABET an-ebcdic IS EBCDIC. ->> Error: Invalid syntax - -configuration.at-903-prog.cob:9.33-9.39: - 6 OBJECT-COMPUTER. - 7 PROGRAM COLLATING SEQUENCE IS an-ebcdic. - 8 SPECIAL-NAMES. - 9 > ALPHABET an-ebcdic IS EBCDIC. ----- ^^^^^^ - 10 PROCEDURE DIVISION. - 11 STOP RUN. ->> Error: Invalid syntax - -configuration.at-903-prog.cob:9.39: - 6 OBJECT-COMPUTER. - 7 PROGRAM COLLATING SEQUENCE IS an-ebcdic. - 8 SPECIAL-NAMES. - 9 > ALPHABET an-ebcdic IS EBCDIC. ----- ^ - 10 PROCEDURE DIVISION. - 11 STOP RUN. ->> Hint: Missing IS - -configuration.at-903-prog.cob:9.39-9.40: - 6 OBJECT-COMPUTER. - 7 PROGRAM COLLATING SEQUENCE IS an-ebcdic. - 8 SPECIAL-NAMES. - 9 > ALPHABET an-ebcdic IS EBCDIC. ----- ^ - 10 PROCEDURE DIVISION. - 11 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:940:0 -configuration.at-940-valid.ttbl:2.6-2.7: - 1 - 2 > 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B ----- ^ - 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 - 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF ->> Error: Unexpected indicator: `0' - -configuration.at-940-valid.ttbl:3.6-3.7: - 1 - 2 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B - 3 > 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 ----- ^ - 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF - 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 ->> Error: Unexpected indicator: `8' - -configuration.at-940-valid.ttbl:4.6-4.7: - 1 - 2 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B - 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 - 4 > 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF ----- ^ - 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 - 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 ->> Error: Unexpected indicator: `E' - -configuration.at-940-valid.ttbl:5.6-5.7: - 2 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B - 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 - 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF - 5 > CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 ----- ^ - 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 - 7 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 ->> Error: Unexpected indicator: `2' - -configuration.at-940-valid.ttbl:6.6-6.7: - 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 - 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF - 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 - 6 > B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 ----- ^ - 7 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 - 8 30313233343536373839B3DBDCD9DA9F ->> Error: Unexpected indicator: `7' - -configuration.at-940-valid.ttbl:7.6-7.7: - 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF - 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 - 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 - 7 > 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 ----- ^ - 8 30313233343536373839B3DBDCD9DA9F ->> Error: Unexpected indicator: `F' - -configuration.at-940-valid.ttbl:8.6-8.7: - 5 CC603A2340273D22D8616263646566676869ABBBF0FDFEB1B06A6B6C6D6E6F707172AABAE6B8C6A4 - 6 B57E737475767778797AA1BFD0DDDEAEA2A3A5B7A9A7B6BCBDBEAC7CAFA8B4D77B41424344454647 - 7 4849ADF4F6F2F3F57D4A4B4C4D4E4F505152B9FBFCF9FAFF5CF7535455565758595AB2D4D6D2D3D5 - 8 > 30313233343536373839B3DBDCD9DA9F ----- ^ ->> Error: Unexpected indicator: `3' - -configuration.at-940-valid.ttbl:2.7-2.72: - 1 - 2 > 000102039C09867F978D8E0B0C0D0E0F101112139D8508871819928F1C1D1E1F80818283840A171B ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 88898A8B8C050607909116939495960498999A9B14159E1A20A0E2E4E0E1E3E5E7F15B2E3C282B21 - 4 26E9EAEBE8EDEEEFECDF5D242A293B5E2D2FC2C4C0C1C3C5C7D1A62C255F3E3FF8C9CACBC8CDCECF ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/configuration.at:941:0 -configuration.at-941-valid2.ttbl:2.6-2.7: - 1 - 2 > # we may have any comments in here ----- ^ - 3 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 - 4 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 ->> Error: Unexpected indicator: `a' - -configuration.at-941-valid2.ttbl:3.6-3.7: - 1 - 2 # we may have any comments in here - 3 > 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 ----- ^ - 4 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 - 5 ->> Error: Unexpected indicator: `0' - -configuration.at-941-valid2.ttbl:4.6-4.7: - 1 - 2 # we may have any comments in here - 3 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 - 4 > 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 ----- ^ - 5 - 6 # even within ->> Error: Unexpected indicator: `1' - -configuration.at-941-valid2.ttbl:8.6-8.7: - 5 - 6 # even within - 7 - 8 > 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 ----- ^ - 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C - 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 ->> Error: Unexpected indicator: `9' - -configuration.at-941-valid2.ttbl:9.6-9.7: - 6 # even within - 7 - 8 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 - 9 > E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C ----- ^ - 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 - 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E ->> Error: Unexpected indicator: `E' - -configuration.at-941-valid2.ttbl:10.6-10.7: - 7 - 8 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 - 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C - 10 > 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 ----- ^ - 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E - 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF ->> Error: Unexpected indicator: `3' - -configuration.at-941-valid2.ttbl:11.6-11.7: - 8 96 04 98 99 9A 9B 14 15 9E 1A 20 A0 E2 E4 E0 E1 E3 E5 E7 F1 5B 2E 3C 28 2B 21 26 - 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C - 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 - 11 > 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E ----- ^ - 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF - 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 ->> Error: Unexpected indicator: `6' - -configuration.at-941-valid2.ttbl:12.6-12.7: - 9 E9 EA EB E8 ED EE EF EC DF 5D 24 2A 29 3B 5E 2D 2F C2 C4 C0 C1 C3 C5 C7 D1 A6 2C - 10 25 5F 3E 3F F8 C9 CA CB C8 CD CE CF CC 60 3A 23 40 27 3D 22 D8 61 62 63 64 65 66 - 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E - 12 > 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF ----- ^ - 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 - 14 51 52 B9 FB FC F9 FA FF 5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5 30 31 32 ->> Error: Unexpected indicator: `7' - -configuration.at-941-valid2.ttbl:14.6-14.7: - 11 67 68 69 AB BB F0 FD FE B1 B0 6A 6B 6C 6D 6E 6F 70 71 72 AA BA E6 B8 C6 A4 B5 7E - 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF - 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 - 14 > 51 52 B9 FB FC F9 FA FF 5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5 30 31 32 ----- ^ - 15 33 34 35 36 37 38 39 B3 DB DC D9 DA 9F ->> Error: Unexpected indicator: `B' - -configuration.at-941-valid2.ttbl:15.6-15.7: - 12 73 74 75 76 77 78 79 7A A1 BF D0 DD DE AE A2 A3 A5 B7 A9 A7 B6 BC BD BE AC 7C AF - 13 A8 B4 D7 7B 41 42 43 44 45 46 47 48 49 AD F4 F6 F2 F3 F5 7D 4A 4B 4C 4D 4E 4F 50 - 14 51 52 B9 FB FC F9 FA FF 5C F7 53 54 55 56 57 58 59 5A B2 D4 D6 D2 D3 D5 30 31 32 - 15 > 33 34 35 36 37 38 39 B3 DB DC D9 DA 9F ----- ^ ->> Error: Unexpected indicator: `3' - -configuration.at-941-valid2.ttbl:2.7-2.8: - 1 - 2 > # we may have any comments in here ----- ^ - 3 00 01 02 03 9C 09 86 7F 97 8D 8E 0B 0C 0D 0E 0F 10 11 12 13 9D 85 08 87 18 19 92 - 4 8F 1C 1D 1E 1F 80 81 82 83 84 0A 17 1B 88 89 8A 8B 8C 05 06 07 90 91 16 93 94 95 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:43:0 -data_binary.at-43-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data) - 7 { ->> Error: Unexpected indicator: `T' - -data_binary.at-43-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data) ----- ^ - 7 { - 8 int i; ->> Error: Unexpected indicator: `u' - -data_binary.at-43-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data) - 7 { - 8 > int i; ----- ^ - 9 for (i = 0; i < 8; i++) - 10 printf ("%02x", data[i]); ->> Error: Unexpected indicator: `i' - -data_binary.at-43-dump.c:9.6-9.7: - 6 dump (unsigned char *data) - 7 { - 8 int i; - 9 > for (i = 0; i < 8; i++) ----- ^ - 10 printf ("%02x", data[i]); - 11 puts (""); ->> Error: Unexpected indicator: `(' - -data_binary.at-43-dump.c:10.6-10.7: - 7 { - 8 int i; - 9 for (i = 0; i < 8; i++) - 10 > printf ("%02x", data[i]); ----- ^ - 11 puts (""); - 12 return 0; ->> Error: Unexpected indicator: `i' - -data_binary.at-43-dump.c:12.6-12.7: - 9 for (i = 0; i < 8; i++) - 10 printf ("%02x", data[i]); - 11 puts (""); - 12 > return 0; ----- ^ - 13 } ->> Error: Unexpected indicator: `r' - -data_binary.at-43-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:411:0 -data_binary.at-411-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data) - 7 { ->> Error: Unexpected indicator: `T' - -data_binary.at-411-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data) ----- ^ - 7 { - 8 int i; ->> Error: Unexpected indicator: `u' - -data_binary.at-411-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data) - 7 { - 8 > int i; ----- ^ - 9 for (i = 0; i < 8; i++) - 10 printf ("%02x", data[i]); ->> Error: Unexpected indicator: `i' - -data_binary.at-411-dump.c:9.6-9.7: - 6 dump (unsigned char *data) - 7 { - 8 int i; - 9 > for (i = 0; i < 8; i++) ----- ^ - 10 printf ("%02x", data[i]); - 11 puts (""); ->> Error: Unexpected indicator: `(' - -data_binary.at-411-dump.c:10.6-10.7: - 7 { - 8 int i; - 9 for (i = 0; i < 8; i++) - 10 > printf ("%02x", data[i]); ----- ^ - 11 puts (""); - 12 return 0; ->> Error: Unexpected indicator: `i' - -data_binary.at-411-dump.c:12.6-12.7: - 9 for (i = 0; i < 8; i++) - 10 printf ("%02x", data[i]); - 11 puts (""); - 12 > return 0; ----- ^ - 13 } ->> Error: Unexpected indicator: `r' - -data_binary.at-411-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:781:0 -data_binary.at-781-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data) - 7 { ->> Error: Unexpected indicator: `T' - -data_binary.at-781-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data) ----- ^ - 7 { - 8 int i; ->> Error: Unexpected indicator: `u' - -data_binary.at-781-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data) - 7 { - 8 > int i; ----- ^ - 9 for (i = 0; i < 8; i++) - 10 printf ("%02x", data[i]); ->> Error: Unexpected indicator: `i' - -data_binary.at-781-dump.c:9.6-9.7: - 6 dump (unsigned char *data) - 7 { - 8 int i; - 9 > for (i = 0; i < 8; i++) ----- ^ - 10 printf ("%02x", data[i]); - 11 puts (""); ->> Error: Unexpected indicator: `(' - -data_binary.at-781-dump.c:10.6-10.7: - 7 { - 8 int i; - 9 for (i = 0; i < 8; i++) - 10 > printf ("%02x", data[i]); ----- ^ - 11 puts (""); - 12 return 0; ->> Error: Unexpected indicator: `i' - -data_binary.at-781-dump.c:12.6-12.7: - 9 for (i = 0; i < 8; i++) - 10 printf ("%02x", data[i]); - 11 puts (""); - 12 > return 0; ----- ^ - 13 } ->> Error: Unexpected indicator: `r' - -data_binary.at-781-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1202:0 -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1232:0 -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1256:0 -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1313:0 -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1398:0 -data_binary.at-1398-prog.cob:20.7-20.34: - 17 MAIN. - 18 * Test with DISPLAY on error - 19 PERFORM DO-CHECK. - 20 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 21 SET NO-DISP TO TRUE - 22 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_binary.at-1398-prog.cob:24.7-24.16: - 21 SET NO-DISP TO TRUE - 22 * some performance checks on the way... - 23 PERFORM DO-CHECK 30000 TIMES. - 24 > >> END-IF ----- ^^^^^^^^^ - 25 GOBACK. - 26 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1589:0 -data_binary.at-1589-prog.cob:30.7-30.34: - 27 MAIN. - 28 * Test with DISPLAY on error - 29 PERFORM DO-CHECK. - 30 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 31 SET NO-DISP TO TRUE - 32 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_binary.at-1589-prog.cob:34.7-34.16: - 31 SET NO-DISP TO TRUE - 32 * some performance checks on the way... - 33 PERFORM DO-CHECK 20000 TIMES. - 34 > >> END-IF ----- ^^^^^^^^^ - 35 GOBACK. - 36 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1775:0 -data_binary.at-1775-prog.cob:30.7-30.34: - 27 MAIN. - 28 * Test with DISPLAY on error - 29 PERFORM DO-CHECK. - 30 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 31 SET NO-DISP TO TRUE - 32 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_binary.at-1775-prog.cob:34.7-34.16: - 31 SET NO-DISP TO TRUE - 32 * some performance checks on the way... - 33 PERFORM DO-CHECK 20000 TIMES. - 34 > >> END-IF ----- ^^^^^^^^^ - 35 GOBACK. - 36 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1955:0 -data_binary.at-1955-prog.cob:28.7-28.34: - 25 MAIN. - 26 * Test with DISPLAY on error - 27 PERFORM DO-CHECK. - 28 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_binary.at-1955-prog.cob:32.7-32.16: - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... - 31 PERFORM DO-CHECK 20000 TIMES. - 32 > >> END-IF ----- ^^^^^^^^^ - 33 GOBACK. - 34 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2137:0 -data_binary.at-2137-prog.cob:28.7-28.34: - 25 MAIN. - 26 * Test with DISPLAY on error - 27 PERFORM DO-CHECK. - 28 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_binary.at-2137-prog.cob:32.7-32.16: - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... - 31 PERFORM DO-CHECK 20000 TIMES. - 32 > >> END-IF ----- ^^^^^^^^^ - 33 GOBACK. - 34 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2196:0 -Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2264:0 -Considering: import/gnucobol/tests/testsuite.src/data_display.at:64:0 -Considering: import/gnucobol/tests/testsuite.src/data_display.at:121:0 -Considering: import/gnucobol/tests/testsuite.src/data_display.at:167:0 -Considering: import/gnucobol/tests/testsuite.src/data_display.at:205:0 -data_display.at-205-prog.cob:11.24-11.38: - 8 01 X-BIU BINARY-INT UNSIGNED. - 9 01 X-BLU BINARY-LONG UNSIGNED. - 10 01 X-BDU BINARY-DOUBLE UNSIGNED. - 11 > 01 X-US UNSIGNED-SHORT. ----- ^^^^^^^^^^^^^^ - 12 01 X-UI UNSIGNED-INT. - 13 PROCEDURE DIVISION. ->> Error: Invalid syntax - -data_display.at-205-prog.cob:12.24-12.36: - 9 01 X-BLU BINARY-LONG UNSIGNED. - 10 01 X-BDU BINARY-DOUBLE UNSIGNED. - 11 01 X-US UNSIGNED-SHORT. - 12 > 01 X-UI UNSIGNED-INT. ----- ^^^^^^^^^^^^ - 13 PROCEDURE DIVISION. - 14 MOVE 127 TO X-BCU. DISPLAY X-BCU END-DISPLAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_display.at:402:0 -data_display.at-402-prog.cob:28.7-28.34: - 25 MAIN. - 26 * Test with DISPLAY on error - 27 PERFORM DO-CHECK. - 28 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_display.at-402-prog.cob:32.7-32.16: - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... - 31 PERFORM DO-CHECK 20000 TIMES. - 32 > >> END-IF ----- ^^^^^^^^^ - 33 GOBACK. - 34 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_display.at:462:0 -Considering: import/gnucobol/tests/testsuite.src/data_display.at:527:0 -Considering: import/gnucobol/tests/testsuite.src/data_display.at:8730:0 -data_display.at-8730-prog.cob:4513.7-4513.34: -4510 MAIN. -4511 * Test with DISPLAY on error -4512 PERFORM DO-CHECK. -4513 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -4514 SET NO-DISP TO TRUE -4515 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_display.at-8730-prog.cob:4517.7-4517.16: -4514 SET NO-DISP TO TRUE -4515 * some performance checks on the way... -4516 PERFORM DO-CHECK 10000 TIMES. -4517 > >> END-IF ----- ^^^^^^^^^ -4518 GOBACK. -4519 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_display.at:16934:0 -data_display.at-16934-prog2.cob:4520.7-4520.34: -4517 MAIN. -4518 * Test with DISPLAY on error -4519 PERFORM DO-CHECK. -4520 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -4521 SET NO-DISP TO TRUE -4522 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_display.at-16934-prog2.cob:4524.7-4524.16: -4521 SET NO-DISP TO TRUE -4522 * some performance checks on the way... -4523 PERFORM DO-CHECK 10000 TIMES. -4524 > >> END-IF ----- ^^^^^^^^^ -4525 GOBACK. -4526 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_display.at:22976:0 -data_display.at-22976-prog.cob:3515.7-3515.34: -3512 MAIN. -3513 * Test with DISPLAY on error -3514 PERFORM DO-CHECK. -3515 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3516 SET NO-DISP TO TRUE -3517 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_display.at-22976-prog.cob:3519.7-3519.16: -3516 SET NO-DISP TO TRUE -3517 * some performance checks on the way... -3518 PERFORM DO-CHECK 10000 TIMES. -3519 > >> END-IF ----- ^^^^^^^^^ -3520 GOBACK. -3521 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_display.at:29024:0 -data_display.at-29024-prog2.cob:3528.7-3528.34: -3525 MAIN. -3526 * Test with DISPLAY on error -3527 PERFORM DO-CHECK. -3528 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3529 SET NO-DISP TO TRUE -3530 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_display.at-29024-prog2.cob:3532.7-3532.16: -3529 SET NO-DISP TO TRUE -3530 * some performance checks on the way... -3531 PERFORM DO-CHECK 10000 TIMES. -3532 > >> END-IF ----- ^^^^^^^^^ -3533 GOBACK. -3534 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:45:0 -data_packed.at-45-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data) - 7 { ->> Error: Unexpected indicator: `T' - -data_packed.at-45-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data) ----- ^ - 7 { - 8 int i; ->> Error: Unexpected indicator: `u' - -data_packed.at-45-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data) - 7 { - 8 > int i; ----- ^ - 9 for (i = 0; i < 10; i++) - 10 printf ("%02x", data[i]); ->> Error: Unexpected indicator: `i' - -data_packed.at-45-dump.c:9.6-9.7: - 6 dump (unsigned char *data) - 7 { - 8 int i; - 9 > for (i = 0; i < 10; i++) ----- ^ - 10 printf ("%02x", data[i]); - 11 puts (""); ->> Error: Unexpected indicator: `(' - -data_packed.at-45-dump.c:10.6-10.7: - 7 { - 8 int i; - 9 for (i = 0; i < 10; i++) - 10 > printf ("%02x", data[i]); ----- ^ - 11 puts (""); - 12 return 0; ->> Error: Unexpected indicator: `i' - -data_packed.at-45-dump.c:12.6-12.7: - 9 for (i = 0; i < 10; i++) - 10 printf ("%02x", data[i]); - 11 puts (""); - 12 > return 0; ----- ^ - 13 } ->> Error: Unexpected indicator: `r' - -data_packed.at-45-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:203:0 -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:432:0 -data_packed.at-432-prog.cob:6.30-6.31: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 78 FENCE VALUE x'ABBAAB'. ----- ^ - 7 01 FILLER. - 8 05 FENCE-1 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-432-prog.cob:8.37: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-1 PIC XXX VALUE FENCE. ----- ^ - 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. - 10 05 FENCE-2 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-432-prog.cob:8.38-8.43: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-1 PIC XXX VALUE FENCE. ----- ^^^^^ - 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. - 10 05 FENCE-2 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-432-prog.cob:10.37: - 7 01 FILLER. - 8 05 FENCE-1 PIC XXX VALUE FENCE. - 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. - 10 > 05 FENCE-2 PIC XXX VALUE FENCE. ----- ^ - 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. - 12 05 FENCE-3 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-432-prog.cob:10.38-10.43: - 7 01 FILLER. - 8 05 FENCE-1 PIC XXX VALUE FENCE. - 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. - 10 > 05 FENCE-2 PIC XXX VALUE FENCE. ----- ^^^^^ - 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. - 12 05 FENCE-3 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-432-prog.cob:12.37: - 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. - 10 05 FENCE-2 PIC XXX VALUE FENCE. - 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. - 12 > 05 FENCE-3 PIC XXX VALUE FENCE. ----- ^ - 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. - 14 05 FENCE-4 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-432-prog.cob:12.38-12.43: - 9 05 X-99 PIC 99 USAGE PACKED-DECIMAL. - 10 05 FENCE-2 PIC XXX VALUE FENCE. - 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. - 12 > 05 FENCE-3 PIC XXX VALUE FENCE. ----- ^^^^^ - 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. - 14 05 FENCE-4 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-432-prog.cob:14.37: - 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. - 12 05 FENCE-3 PIC XXX VALUE FENCE. - 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. - 14 > 05 FENCE-4 PIC XXX VALUE FENCE. ----- ^ - 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. - 16 05 FENCE-5 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-432-prog.cob:14.38-14.43: - 11 05 X-S99 PIC S99 USAGE PACKED-DECIMAL. - 12 05 FENCE-3 PIC XXX VALUE FENCE. - 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. - 14 > 05 FENCE-4 PIC XXX VALUE FENCE. ----- ^^^^^ - 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. - 16 05 FENCE-5 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-432-prog.cob:16.37: - 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. - 14 05 FENCE-4 PIC XXX VALUE FENCE. - 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. - 16 > 05 FENCE-5 PIC XXX VALUE FENCE. ----- ^ - 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. - 18 05 FENCE-6 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-432-prog.cob:16.38-16.43: - 13 05 X-999 PIC 999 USAGE PACKED-DECIMAL. - 14 05 FENCE-4 PIC XXX VALUE FENCE. - 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. - 16 > 05 FENCE-5 PIC XXX VALUE FENCE. ----- ^^^^^ - 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. - 18 05 FENCE-6 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-432-prog.cob:18.37: - 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. - 16 05 FENCE-5 PIC XXX VALUE FENCE. - 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. - 18 > 05 FENCE-6 PIC XXX VALUE FENCE. ----- ^ - 19 01 C-P234 PIC 999 VALUE 234. - 20 01 C-N234 PIC S999 VALUE -234. ->> Hint: Missing - -data_packed.at-432-prog.cob:18.38-18.43: - 15 05 X-S999 PIC S999 USAGE PACKED-DECIMAL. - 16 05 FENCE-5 PIC XXX VALUE FENCE. - 17 05 X-CALC PIC S9(09)V9(09) USAGE PACKED-DECIMAL. - 18 > 05 FENCE-6 PIC XXX VALUE FENCE. ----- ^^^^^ - 19 01 C-P234 PIC 999 VALUE 234. - 20 01 C-N234 PIC S999 VALUE -234. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:633:0 -data_packed.at-633-prog.cob:28.7-28.34: - 25 MAIN. - 26 * Test with DISPLAY on error - 27 PERFORM DO-CHECK. - 28 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-633-prog.cob:32.7-32.16: - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... - 31 PERFORM DO-CHECK 20000 TIMES. - 32 > >> END-IF ----- ^^^^^^^^^ - 33 GOBACK. - 34 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:819:0 -data_packed.at-819-prog.cob:30.7-30.34: - 27 MAIN. - 28 * Test with DISPLAY on error - 29 PERFORM DO-CHECK. - 30 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 31 SET NO-DISP TO TRUE - 32 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-819-prog.cob:34.7-34.16: - 31 SET NO-DISP TO TRUE - 32 * some performance checks on the way... - 33 PERFORM DO-CHECK 20000 TIMES. - 34 > >> END-IF ----- ^^^^^^^^^ - 35 GOBACK. - 36 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1020:0 -data_packed.at-1020-prog.cob:49.7-49.34: - 46 MAIN. - 47 * Test with DISPLAY on error - 48 PERFORM DO-CHECK. - 49 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 50 SET NO-DISP TO TRUE - 51 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-1020-prog.cob:53.7-53.16: - 50 SET NO-DISP TO TRUE - 51 * some performance checks on the way... - 52 PERFORM DO-CHECK 20000 TIMES. - 53 > >> END-IF ----- ^^^^^^^^^ - 54 GOBACK. - 55 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1052:0 -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1181:0 -data_packed.at-1181-prog.cob:6.30-6.31: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 78 FENCE VALUE x'ABBAAB'. ----- ^ - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1181-prog.cob:8.37: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^ - 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1181-prog.cob:8.38-8.43: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^^^^^ - 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1181-prog.cob:10.37: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^ - 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. - 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. ->> Hint: Missing - -data_packed.at-1181-prog.cob:10.38-10.43: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 X PIC 99 USAGE PACKED-DECIMAL VALUE 0. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^^^^^ - 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. - 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. ->> Error: Invalid syntax - -data_packed.at-1181-prog.cob:14.37: - 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. - 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. - 13 01 FILLER. - 14 > 05 FENCE-1 PIC XXX VALUE FENCE. ----- ^ - 15 05 X-9 PIC 9 USAGE COMP-6. - 16 05 FENCE-2 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1181-prog.cob:14.38-14.43: - 11 05 Y PIC 99 USAGE PACKED-DECIMAL VALUE 9. - 12 05 Z PIC s9(20) USAGE PACKED-DECIMAL VALUE -55. - 13 01 FILLER. - 14 > 05 FENCE-1 PIC XXX VALUE FENCE. ----- ^^^^^ - 15 05 X-9 PIC 9 USAGE COMP-6. - 16 05 FENCE-2 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1181-prog.cob:16.37: - 13 01 FILLER. - 14 05 FENCE-1 PIC XXX VALUE FENCE. - 15 05 X-9 PIC 9 USAGE COMP-6. - 16 > 05 FENCE-2 PIC XXX VALUE FENCE. ----- ^ - 17 05 X-99 PIC 99 USAGE COMP-6. - 18 05 FENCE-3 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1181-prog.cob:16.38-16.43: - 13 01 FILLER. - 14 05 FENCE-1 PIC XXX VALUE FENCE. - 15 05 X-9 PIC 9 USAGE COMP-6. - 16 > 05 FENCE-2 PIC XXX VALUE FENCE. ----- ^^^^^ - 17 05 X-99 PIC 99 USAGE COMP-6. - 18 05 FENCE-3 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1181-prog.cob:18.37: - 15 05 X-9 PIC 9 USAGE COMP-6. - 16 05 FENCE-2 PIC XXX VALUE FENCE. - 17 05 X-99 PIC 99 USAGE COMP-6. - 18 > 05 FENCE-3 PIC XXX VALUE FENCE. ----- ^ - 19 05 X-920 PIC 9(20) USAGE COMP-6. - 20 05 FENCE-4 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1181-prog.cob:18.38-18.43: - 15 05 X-9 PIC 9 USAGE COMP-6. - 16 05 FENCE-2 PIC XXX VALUE FENCE. - 17 05 X-99 PIC 99 USAGE COMP-6. - 18 > 05 FENCE-3 PIC XXX VALUE FENCE. ----- ^^^^^ - 19 05 X-920 PIC 9(20) USAGE COMP-6. - 20 05 FENCE-4 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1181-prog.cob:20.37: - 17 05 X-99 PIC 99 USAGE COMP-6. - 18 05 FENCE-3 PIC XXX VALUE FENCE. - 19 05 X-920 PIC 9(20) USAGE COMP-6. - 20 > 05 FENCE-4 PIC XXX VALUE FENCE. ----- ^ - 21 05 X-921 PIC 9(21) USAGE COMP-6. - 22 05 FENCE-5 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1181-prog.cob:20.38-20.43: - 17 05 X-99 PIC 99 USAGE COMP-6. - 18 05 FENCE-3 PIC XXX VALUE FENCE. - 19 05 X-920 PIC 9(20) USAGE COMP-6. - 20 > 05 FENCE-4 PIC XXX VALUE FENCE. ----- ^^^^^ - 21 05 X-921 PIC 9(21) USAGE COMP-6. - 22 05 FENCE-5 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1181-prog.cob:22.37: - 19 05 X-920 PIC 9(20) USAGE COMP-6. - 20 05 FENCE-4 PIC XXX VALUE FENCE. - 21 05 X-921 PIC 9(21) USAGE COMP-6. - 22 > 05 FENCE-5 PIC XXX VALUE FENCE. ----- ^ - 23 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. - 24 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. ->> Hint: Missing - -data_packed.at-1181-prog.cob:22.38-22.43: - 19 05 X-920 PIC 9(20) USAGE COMP-6. - 20 05 FENCE-4 PIC XXX VALUE FENCE. - 21 05 X-921 PIC 9(21) USAGE COMP-6. - 22 > 05 FENCE-5 PIC XXX VALUE FENCE. ----- ^^^^^ - 23 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. - 24 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1257:0 -data_packed.at-1257-prog.cob:42.7-42.34: - 39 MAIN. - 40 * Test with DISPLAY on error - 41 PERFORM DO-CHECK. - 42 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 43 SET NO-DISP TO TRUE - 44 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-1257-prog.cob:46.7-46.16: - 43 SET NO-DISP TO TRUE - 44 * some performance checks on the way... - 45 PERFORM DO-CHECK 30000 TIMES. - 46 > >> END-IF ----- ^^^^^^^^^ - 47 GOBACK. - 48 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1327:0 -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1393:0 -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1421:0 -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1462:0 -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1557:0 -data_packed.at-1557-prog.cob:6.30-6.31: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 78 FENCE VALUE x'ABBAAB'. ----- ^ - 7 01 FILLER. - 8 05 FENCE-1 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1557-prog.cob:8.37: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-1 PIC XXX VALUE FENCE. ----- ^ - 9 05 X-9 PIC 9 USAGE COMP-6. - 10 05 FENCE-2 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1557-prog.cob:8.38-8.43: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-1 PIC XXX VALUE FENCE. ----- ^^^^^ - 9 05 X-9 PIC 9 USAGE COMP-6. - 10 05 FENCE-2 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1557-prog.cob:10.37: - 7 01 FILLER. - 8 05 FENCE-1 PIC XXX VALUE FENCE. - 9 05 X-9 PIC 9 USAGE COMP-6. - 10 > 05 FENCE-2 PIC XXX VALUE FENCE. ----- ^ - 11 05 X-99 PIC 99 USAGE COMP-6. - 12 05 FENCE-3 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1557-prog.cob:10.38-10.43: - 7 01 FILLER. - 8 05 FENCE-1 PIC XXX VALUE FENCE. - 9 05 X-9 PIC 9 USAGE COMP-6. - 10 > 05 FENCE-2 PIC XXX VALUE FENCE. ----- ^^^^^ - 11 05 X-99 PIC 99 USAGE COMP-6. - 12 05 FENCE-3 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1557-prog.cob:12.37: - 9 05 X-9 PIC 9 USAGE COMP-6. - 10 05 FENCE-2 PIC XXX VALUE FENCE. - 11 05 X-99 PIC 99 USAGE COMP-6. - 12 > 05 FENCE-3 PIC XXX VALUE FENCE. ----- ^ - 13 05 X-920 PIC 9(20) USAGE COMP-6. - 14 05 FENCE-4 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1557-prog.cob:12.38-12.43: - 9 05 X-9 PIC 9 USAGE COMP-6. - 10 05 FENCE-2 PIC XXX VALUE FENCE. - 11 05 X-99 PIC 99 USAGE COMP-6. - 12 > 05 FENCE-3 PIC XXX VALUE FENCE. ----- ^^^^^ - 13 05 X-920 PIC 9(20) USAGE COMP-6. - 14 05 FENCE-4 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1557-prog.cob:14.37: - 11 05 X-99 PIC 99 USAGE COMP-6. - 12 05 FENCE-3 PIC XXX VALUE FENCE. - 13 05 X-920 PIC 9(20) USAGE COMP-6. - 14 > 05 FENCE-4 PIC XXX VALUE FENCE. ----- ^ - 15 05 X-921 PIC 9(21) USAGE COMP-6. - 16 05 FENCE-5 PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-1557-prog.cob:14.38-14.43: - 11 05 X-99 PIC 99 USAGE COMP-6. - 12 05 FENCE-3 PIC XXX VALUE FENCE. - 13 05 X-920 PIC 9(20) USAGE COMP-6. - 14 > 05 FENCE-4 PIC XXX VALUE FENCE. ----- ^^^^^ - 15 05 X-921 PIC 9(21) USAGE COMP-6. - 16 05 FENCE-5 PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-1557-prog.cob:16.37: - 13 05 X-920 PIC 9(20) USAGE COMP-6. - 14 05 FENCE-4 PIC XXX VALUE FENCE. - 15 05 X-921 PIC 9(21) USAGE COMP-6. - 16 > 05 FENCE-5 PIC XXX VALUE FENCE. ----- ^ - 17 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. - 18 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. ->> Hint: Missing - -data_packed.at-1557-prog.cob:16.38-16.43: - 13 05 X-920 PIC 9(20) USAGE COMP-6. - 14 05 FENCE-4 PIC XXX VALUE FENCE. - 15 05 X-921 PIC 9(21) USAGE COMP-6. - 16 > 05 FENCE-5 PIC XXX VALUE FENCE. ----- ^^^^^ - 17 01 B-99 USAGE BINARY-LONG UNSIGNED VALUE 99. - 18 01 B-999 USAGE BINARY-LONG UNSIGNED VALUE 123. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1603:0 -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1664:0 -data_packed.at-1664-prog.cob:28.7-28.34: - 25 MAIN. - 26 * Test with DISPLAY on error - 27 PERFORM DO-CHECK. - 28 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-1664-prog.cob:32.7-32.16: - 29 SET NO-DISP TO TRUE - 30 * some performance checks on the way... - 31 PERFORM DO-CHECK 30000 TIMES. - 32 > >> END-IF ----- ^^^^^^^^^ - 33 GOBACK. - 34 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:1959:0 -data_packed.at-1959-prog.cob:108.7-108.34: - 105 MAIN. - 106 * Test with DISPLAY on error - 107 PERFORM DO-CHECK. - 108 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 109 SET NO-DISP TO TRUE - 110 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-1959-prog.cob:112.7-112.16: - 109 SET NO-DISP TO TRUE - 110 * some performance checks on the way... - 111 PERFORM DO-CHECK 10000 TIMES. - 112 > >> END-IF ----- ^^^^^^^^^ - 113 GOBACK. - 114 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:2063:0 -data_packed.at-2063-prog.cob:6.30-6.31: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 78 FENCE VALUE x'ABBAAB'. ----- ^ - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2063-prog.cob:8.42: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^ - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-2063-prog.cob:8.43-8.48: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^^^^^ - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2063-prog.cob:10.42: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^ - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-2063-prog.cob:10.43-10.48: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^^^^^ - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2063-prog.cob:12.42: - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 > 05 FENCE-C PIC XXX VALUE FENCE. ----- ^ - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-2063-prog.cob:12.43-12.48: - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 > 05 FENCE-C PIC XXX VALUE FENCE. ----- ^^^^^ - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2063-prog.cob:14.42: - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 > 05 FENCE-D PIC XXX VALUE FENCE. ----- ^ - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. ->> Hint: Missing - -data_packed.at-2063-prog.cob:14.43-14.48: - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 > 05 FENCE-D PIC XXX VALUE FENCE. ----- ^^^^^ - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. ->> Error: Invalid syntax - -data_packed.at-2063-prog.cob:15.42: - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. - 15 > 01 FENCE-1 PIC XXX VALUE FENCE. ----- ^ - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. ->> Hint: Missing - -data_packed.at-2063-prog.cob:15.43-15.48: - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. - 15 > 01 FENCE-1 PIC XXX VALUE FENCE. ----- ^^^^^ - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. ->> Error: Invalid syntax - -data_packed.at-2063-prog.cob:18.42: - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. - 18 > 01 FENCE-2 PIC XXX VALUE FENCE. ----- ^ - 19 01 WRK-DS-LS-1P17-1 PIC S9P(17) SIGN LEADING SEPARATE - 20 CHARACTER VALUE -100000000000000000. ->> Hint: Missing - -data_packed.at-2063-prog.cob:18.43-18.48: - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. - 18 > 01 FENCE-2 PIC XXX VALUE FENCE. ----- ^^^^^ - 19 01 WRK-DS-LS-1P17-1 PIC S9P(17) SIGN LEADING SEPARATE - 20 CHARACTER VALUE -100000000000000000. ->> Error: Invalid syntax - -data_packed.at-2063-prog.cob:36.22-36.28: - 33 DISPLAY "MOVE AE-EDIT failed: " GRP-AE-0002 ".". - 34 MOVE WRK-DS-LS-1P17-1 TO WRK-AE-3. - 35 DISPLAY "MOVE 1P17: " WRK-DS-LS-1P17-1 " : " - 36 > LENGTH OF WRK-DS-LS-1P17-1 ".". ----- ^^^^^^ - 37 DISPLAY "MOVE A-E : " WRK-AE-3 ".". - 38 IF WRK-AE-3 NOT EQUAL TO "1 000/000/000/000/000 00" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:2156:0 -data_packed.at-2156-prog.cob:6.30-6.31: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 78 FENCE VALUE x'ABBAAB'. ----- ^ - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2156-prog.cob:8.42: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^ - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-2156-prog.cob:8.43-8.48: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^^^^^ - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2156-prog.cob:10.42: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^ - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-2156-prog.cob:10.43-10.48: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^^^^^ - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2156-prog.cob:12.42: - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 > 05 FENCE-C PIC XXX VALUE FENCE. ----- ^ - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-2156-prog.cob:12.43-12.48: - 9 05 X-1 PIC 999PPP COMP-6 VALUE 91000. - 10 05 FENCE-B PIC XXX VALUE FENCE. - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 > 05 FENCE-C PIC XXX VALUE FENCE. ----- ^^^^^ - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2156-prog.cob:14.42: - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 > 05 FENCE-D PIC XXX VALUE FENCE. ----- ^ - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. ->> Hint: Missing - -data_packed.at-2156-prog.cob:14.43-14.48: - 11 05 X-2 PIC 999PPP COMP-6 VALUE 92000. - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 > 05 FENCE-D PIC XXX VALUE FENCE. ----- ^^^^^ - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. ->> Error: Invalid syntax - -data_packed.at-2156-prog.cob:15.42: - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. - 15 > 01 FENCE-1 PIC XXX VALUE FENCE. ----- ^ - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. ->> Hint: Missing - -data_packed.at-2156-prog.cob:15.43-15.48: - 12 05 FENCE-C PIC XXX VALUE FENCE. - 13 05 X-4 PIC VPPP999 COMP-6 VALUE 0.000128. - 14 05 FENCE-D PIC XXX VALUE FENCE. - 15 > 01 FENCE-1 PIC XXX VALUE FENCE. ----- ^^^^^ - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. ->> Error: Invalid syntax - -data_packed.at-2156-prog.cob:18.42: - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. - 18 > 01 FENCE-2 PIC XXX VALUE FENCE. ----- ^ - 19 PROCEDURE DIVISION. - 20 DISPLAY "INIT X-1 : " X-1 " .". ->> Hint: Missing - -data_packed.at-2156-prog.cob:18.43-18.48: - 15 01 FENCE-1 PIC XXX VALUE FENCE. - 16 01 D-1 PIC 999PPP COMP-6 VALUE 95000. - 17 01 D-2 PIC 9999PP COMP-6 VALUE 193000. - 18 > 01 FENCE-2 PIC XXX VALUE FENCE. ----- ^^^^^ - 19 PROCEDURE DIVISION. - 20 DISPLAY "INIT X-1 : " X-1 " .". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:2230:0 -data_packed.at-2230-prog.cob:6.30-6.31: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 78 FENCE VALUE x'ABBAAB'. ----- ^ - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2230-prog.cob:8.37: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^ - 9 05 RESULT PIC 9(03) PACKED-DECIMAL. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Hint: Missing - -data_packed.at-2230-prog.cob:8.38-8.43: - 5 WORKING-STORAGE SECTION. - 6 78 FENCE VALUE x'ABBAAB'. - 7 01 FILLER. - 8 > 05 FENCE-A PIC XXX VALUE FENCE. ----- ^^^^^ - 9 05 RESULT PIC 9(03) PACKED-DECIMAL. - 10 05 FENCE-B PIC XXX VALUE FENCE. ->> Error: Invalid syntax - -data_packed.at-2230-prog.cob:10.37: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 RESULT PIC 9(03) PACKED-DECIMAL. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^ - 11 PROCEDURE DIVISION. - 12 MAIN. ->> Hint: Missing - -data_packed.at-2230-prog.cob:10.38-10.43: - 7 01 FILLER. - 8 05 FENCE-A PIC XXX VALUE FENCE. - 9 05 RESULT PIC 9(03) PACKED-DECIMAL. - 10 > 05 FENCE-B PIC XXX VALUE FENCE. ----- ^^^^^ - 11 PROCEDURE DIVISION. - 12 MAIN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:7277:0 -data_packed.at-7277-prog.cob:3020.7-3020.34: -3017 MAIN. -3018 * Test with DISPLAY on error -3019 PERFORM DO-CHECK. -3020 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3021 SET NO-DISP TO TRUE -3022 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-7277-prog.cob:3024.7-3024.16: -3021 SET NO-DISP TO TRUE -3022 * some performance checks on the way... -3023 PERFORM DO-CHECK 10000 TIMES. -3024 > >> END-IF ----- ^^^^^^^^^ -3025 GOBACK. -3026 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:12320:0 -data_packed.at-12320-prog2.cob:3026.7-3026.34: -3023 MAIN. -3024 * Test with DISPLAY on error -3025 PERFORM DO-CHECK. -3026 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3027 SET NO-DISP TO TRUE -3028 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-12320-prog2.cob:3030.7-3030.16: -3027 SET NO-DISP TO TRUE -3028 * some performance checks on the way... -3029 PERFORM DO-CHECK 10000 TIMES. -3030 > >> END-IF ----- ^^^^^^^^^ -3031 GOBACK. -3032 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:20531:0 -data_packed.at-20531-prog.cob:4517.7-4517.34: -4514 MAIN. -4515 * Test with DISPLAY on error -4516 PERFORM DO-CHECK. -4517 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -4518 SET NO-DISP TO TRUE -4519 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-20531-prog.cob:4521.7-4521.16: -4518 SET NO-DISP TO TRUE -4519 * some performance checks on the way... -4520 PERFORM DO-CHECK 10000 TIMES. -4521 > >> END-IF ----- ^^^^^^^^^ -4522 GOBACK. -4523 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:28740:0 -data_packed.at-28740-prog2.cob:4525.7-4525.34: -4522 MAIN. -4523 * Test with DISPLAY on error -4524 PERFORM DO-CHECK. -4525 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -4526 SET NO-DISP TO TRUE -4527 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-28740-prog2.cob:4529.7-4529.16: -4526 SET NO-DISP TO TRUE -4527 * some performance checks on the way... -4528 PERFORM DO-CHECK 10000 TIMES. -4529 > >> END-IF ----- ^^^^^^^^^ -4530 GOBACK. -4531 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:34793:0 -data_packed.at-34793-prog.cob:3520.7-3520.34: -3517 MAIN. -3518 * Test with DISPLAY on error -3519 PERFORM DO-CHECK. -3520 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3521 SET NO-DISP TO TRUE -3522 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-34793-prog.cob:3524.7-3524.16: -3521 SET NO-DISP TO TRUE -3522 * some performance checks on the way... -3523 PERFORM DO-CHECK 10000 TIMES. -3524 > >> END-IF ----- ^^^^^^^^^ -3525 GOBACK. -3526 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_packed.at:40840:0 -data_packed.at-40840-prog2.cob:3527.7-3527.34: -3524 MAIN. -3525 * Test with DISPLAY on error -3526 PERFORM DO-CHECK. -3527 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ -3528 SET NO-DISP TO TRUE -3529 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -data_packed.at-40840-prog2.cob:3531.7-3531.16: -3528 SET NO-DISP TO TRUE -3529 * some performance checks on the way... -3530 PERFORM DO-CHECK 10000 TIMES. -3531 > >> END-IF ----- ^^^^^^^^^ -3532 GOBACK. -3533 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/data_pointer.at:41:0 -data_pointer.at-41-prog.cob:6.43: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 PTR USAGE POINTER VALUE NULL. ----- ^ - 7 PROCEDURE DIVISION. - 8 DISPLAY PTR ->> Hint: Missing - -data_pointer.at-41-prog.cob:6.44-6.48: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 PTR USAGE POINTER VALUE NULL. ----- ^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY PTR ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:80:0 -listings.at-80-expected.lst:1.6-1.7: - 1 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Unexpected indicator: `O' - -listings.at-80-expected.lst:1.7-1.8: - 1 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Invalid syntax - -listings.at-80-expected.lst:22.6-22.7: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Error: Unexpected indicator: `B' - -listings.at-80-expected.lst:24.6-24.7: - 21 - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 > 0 warnings in compilation group ----- ^ - 25 0 errors in compilation group ->> Error: Unexpected indicator: `i' - -listings.at-80-expected.lst:25.6-25.7: - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 0 warnings in compilation group - 25 > 0 errors in compilation group ----- ^ ->> Error: Unexpected indicator: `r' - -listings.at-80-expected.lst:22.9: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.10-22.15: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.15: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.25-22.33: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^^^^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.33: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.46-22.49: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.49: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.50-22.53: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.53: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.54-22.56: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.56: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.57-22.65: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^^^^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.65: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.59-22.65: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.65: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.62-22.65: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.65: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:22.66-22.70: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^^^^ - 23 - 24 0 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:22.70: - 19 000015 END-DISPLAY. - 20 000016 STOP RUN. - 21 - 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 ----- ^ - 23 - 24 0 warnings in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:24.7-24.10: - 21 - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 > 0 warnings in compilation group ----- ^^^ - 25 0 errors in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:24.10: - 21 - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 > 0 warnings in compilation group ----- ^ - 25 0 errors in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:24.11-24.13: - 21 - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 > 0 warnings in compilation group ----- ^^ - 25 0 errors in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:24.25: - 21 - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 > 0 warnings in compilation group ----- ^ - 25 0 errors in compilation group ->> Hint: Missing . - -listings.at-80-expected.lst:24.26-24.31: - 21 - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 > 0 warnings in compilation group ----- ^^^^^ - 25 0 errors in compilation group ->> Warning: Invalid syntax - -listings.at-80-expected.lst:25.8: - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 0 warnings in compilation group - 25 > 0 errors in compilation group ----- ^ ->> Hint: Missing . - -listings.at-80-expected.lst:25.9-25.11: - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 0 warnings in compilation group - 25 > 0 errors in compilation group ----- ^^ ->> Warning: Invalid syntax - -listings.at-80-expected.lst:25.23: - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 0 warnings in compilation group - 25 > 0 errors in compilation group ----- ^ ->> Hint: Missing . - -listings.at-80-expected.lst:25.24-25.29: - 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 - 23 - 24 0 warnings in compilation group - 25 > 0 errors in compilation group ----- ^^^^^ ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:75:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:98:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:127:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:169:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:232:0 -listings.at-232-prog.cob:13.34-13.40: - 10 3 ZZ PIC X(2) VALUE "ZZ". - 11 3 Y PIC X(1) VALUE "Y". - 12 PROCEDURE DIVISION. - 13 > REPLACE LEADING "X" BY SPACES ----- ^^^^^^ - 14 TRAILING "Z" BY SPACES - 15 LEADING "Y" BY "X". ->> Error: Malformed REPLACE statement - -Considering: import/gnucobol/tests/testsuite.src/listings.at:289:0 -listings.at-289-prog.cob:7.7-8.70: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy.inc" REPLACING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > == 02 TEST-EE == BY == 02 TEST-FF ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY TEST-AVR. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:349:0 -listings.at-349-prog.cob:7.7-12.48: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy.inc" REPLACING ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > LEADING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > == 02 TEST-OK == BY == 02 TEST-KO == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > ==TEST-CC== BY ==TEST-DD== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > == 02 TEST-EE == BY == 02 TEST-FF == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > == PIC == BY == pic ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 PROCEDURE DIVISION. - 14 DISPLAY TEST-AVR. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:413:0 -listings.at-413-prog2.cob:7.7-12.55: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy2.inc" ----- ^^^^^^^^^^^^^^^^ - 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > == 02 TEST-OK == BY == 02 TEST-KO == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > == TEST-CC == BY == TEST-DD == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > == 02 TEST-EE == BY == 02 TEST-FF == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > == PIC == BY == pic ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 PROCEDURE DIVISION. - 14 DISPLAY TEST-AVR. ->> Error: Library `copy2.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:477:0 -listings.at-477-prog3.cob:7.7-12.55: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy3.inc" ----- ^^^^^^^^^^^^^^^^ - 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > == 02 TEST-OK == BY == 02 TEST-KO == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > ==TEST-CC== BY ==TEST-DD== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > == 02 TEST-EE == BY == 02 TEST-FF == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > == PIC == BY == pic ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 PROCEDURE DIVISION. - 14 DISPLAY TEST-AVR. ->> Error: Library `copy3.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:569:0 -listings.at-569-prog.cob:6.7-8.53: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING ==TEST-VAR== BY ==FIRST-MATCH== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > ==TEST-VAR== BY ==SECOND-MATCH==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY FIRST-MATCH NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:631:0 -listings.at-631-prog.cob:6.7-10.55: - 3 PROGRAM-ID. prog. PROG002 - 4 DATA DIVISION. PROG003 - 5 WORKING-STORAGE SECTION. PROG004 - 6 > COPY "copy.inc" PROG005 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 > REPLACING ==TEST-VAR==, BY ==FIRST-MATCH==, PROG006 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > , ==TEST-VAR==; BY ==SECOND-MATCH==; PROG007 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > ; ==TEST-VAR== , BY ==THIRD-MATCH== PROG008 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > ==TEST-VAR== ; BY ==FOURTH-MATCH==. PROG009 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 PROCEDURE DIVISION. PROG010 - 12 DISPLAY FIRST-MATCH NO ADVANCING PROG011 ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:691:0 -listings.at-691-prog.cob:6.7-8.44: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING ==:TEST:== BY ==COLON== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > ==(TEST)== BY ==PAREN==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY COLON-VAR NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:774:0 -listings.at-774-prog1.cob:11.10-13.52: - 8 - 9 01 xx pic x(02). - 10 - 11 > copy 'copy1.inc' replacing 'YYY-' by a10- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > 'yy1-' by a11- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 > 'yy2-' by a12-. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 - 15 copy 'copy1.inc' replacing 'YYY-' by a20- ->> Error: Library `copy1.inc' not found in search path (search path: ) - -listings.at-774-prog1.cob:15.10-17.52: - 12 'yy1-' by a11- - 13 'yy2-' by a12-. - 14 - 15 > copy 'copy1.inc' replacing 'YYY-' by a20- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 16 > 'yy1-' by a21- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 17 > 'yy2-' by a22-. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 18 - 19 copy 'copy1.inc' replacing 'YYY-' by a30- ->> Error: Library `copy1.inc' not found in search path (search path: ) - -listings.at-774-prog1.cob:19.10-21.52: - 16 'yy1-' by a21- - 17 'yy2-' by a22-. - 18 - 19 > copy 'copy1.inc' replacing 'YYY-' by a30- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 20 > 'yy1-' by a31- ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 21 > 'yy2-' by a32-. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 22 - 23 procedure division. ->> Error: Library `copy1.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:893:0 -listings.at-893-prog.cob:6.7-8.53: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING LEADING ==TEST== BY ==FIRST== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > LEADING ==NORM== BY ==SECOND==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY FIRST-VAR NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:957:0 -listings.at-957-prog.cob:6.7-8.54: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING TRAILING ==FIRST== BY ==VAR1== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > TRAILING ==SECOND== BY ==VAR2==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY TEST-VAR1 NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:1020:0 -listings.at-1020-prog.cob:6.7-7.50: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy-1.inc" ----- ^^^^^^^^^^^^^^^^^ - 7 > REPLACING ==TEST-VAR== BY ==COPY-VAR==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 PROCEDURE DIVISION. - 9 DISPLAY COPY-VAR NO ADVANCING ->> Error: Library `copy-1.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:1146:0 -listings.at-1146-tstcpybk.cob:13.11-13.32: - 10 - 11 INPUT-OUTPUT SECTION. - 12 FILE-CONTROL. - 13 > COPY "copy-sl-1.inc". ----- ^^^^^^^^^^^^^^^^^^^^^ - 14 COPY "copy-sl-2.inc". - 15 ->> Error: Library `copy-sl-1.inc' not found in search path (search path: ) - -listings.at-1146-tstcpybk.cob:14.11-14.32: - 11 INPUT-OUTPUT SECTION. - 12 FILE-CONTROL. - 13 COPY "copy-sl-1.inc". - 14 > COPY "copy-sl-2.inc". ----- ^^^^^^^^^^^^^^^^^^^^^ - 15 - 16 DATA DIVISION. ->> Error: Library `copy-sl-2.inc' not found in search path (search path: ) - -listings.at-1146-tstcpybk.cob:18.11-18.32: - 15 - 16 DATA DIVISION. - 17 FILE SECTION. - 18 > COPY "copy-fd-1.inc". ----- ^^^^^^^^^^^^^^^^^^^^^ - 19 COPY "copy-fd-2.inc". - 20 ->> Error: Library `copy-fd-1.inc' not found in search path (search path: ) - -listings.at-1146-tstcpybk.cob:19.11-19.32: - 16 DATA DIVISION. - 17 FILE SECTION. - 18 COPY "copy-fd-1.inc". - 19 > COPY "copy-fd-2.inc". ----- ^^^^^^^^^^^^^^^^^^^^^ - 20 - 21 WORKING-STORAGE SECTION. ->> Error: Library `copy-fd-2.inc' not found in search path (search path: ) - -listings.at-1146-tstcpybk.cob:30.11-30.32: - 27 * - 28 77 GLOB PIC 99 GLOBAL. - 29 * - 30 > COPY "copy-ws-1.inc". ----- ^^^^^^^^^^^^^^^^^^^^^ - 31 COPY "copy-ws-2.inc". - 32 ->> Error: Library `copy-ws-1.inc' not found in search path (search path: ) - -listings.at-1146-tstcpybk.cob:31.11-31.32: - 28 77 GLOB PIC 99 GLOBAL. - 29 * - 30 COPY "copy-ws-1.inc". - 31 > COPY "copy-ws-2.inc". ----- ^^^^^^^^^^^^^^^^^^^^^ - 32 - 33 PROCEDURE DIVISION. ->> Error: Library `copy-ws-2.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:1394:0 -listings.at-1394-prog.cob:4.7-4.23: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > COPY "copy.inc". ----- ^^^^^^^^^^^^^^^^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/listings.at:1613:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:1613:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:1711:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:1712:0 -listings.at-1712-prog20.lst:1.6-1.7: - 1 > GnuCOBOL V.R.P prog.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Unexpected indicator: `O' - -listings.at-1712-prog20.lst:1.7-1.8: - 1 > GnuCOBOL V.R.P prog.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Invalid syntax - -listings.at-1712-prog20.lst:18.6-18.7: - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 000013 END PROGRAM prog-2. - 18 > GnuCOBOL V.R.P prog.cob Page 0002 ----- ^ - 19 - 20 SIZE TYPE LVL NAME PICTURE ->> Error: Unexpected indicator: `B' - -listings.at-1712-prog20.lst:20.6-20.7: - 17 000013 END PROGRAM prog-2. - 18 GnuCOBOL V.R.P prog.cob Page 0002 - 19 - 20 > SIZE TYPE LVL NAME PICTURE ----- ^ - 21 - 22 PROGRAM prog-1 ->> Error: Unexpected indicator: `T' - -listings.at-1712-prog20.lst:22.6-22.7: - 19 - 20 SIZE TYPE LVL NAME PICTURE - 21 - 22 > PROGRAM prog-1 ----- ^ - 23 - 24 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `P' - -listings.at-1712-prog20.lst:24.6-24.7: - 21 - 22 PROGRAM prog-1 - 23 - 24 > WORKING-STORAGE SECTION ----- ^ - 25 - 26 00001 ALPHANUMERIC 01 blah X ->> Error: Unexpected indicator: `W' - -listings.at-1712-prog20.lst:26.6-26.7: - 23 - 24 WORKING-STORAGE SECTION - 25 - 26 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 27 - 28 PROGRAM prog-2 ->> Error: Unexpected indicator: `A' - -listings.at-1712-prog20.lst:28.6-28.7: - 25 - 26 00001 ALPHANUMERIC 01 blah X - 27 - 28 > PROGRAM prog-2 ----- ^ - 29 - 30 No fields defined. ->> Error: Unexpected indicator: `P' - -listings.at-1712-prog20.lst:30.6-30.7: - 27 - 28 PROGRAM prog-2 - 29 - 30 > No fields defined. ----- ^ - 31 - 32 ->> Error: Unexpected indicator: `N' - -listings.at-1712-prog20.lst:33.6-33.7: - 30 No fields defined. - 31 - 32 - 33 > 0 warnings in compilation group ----- ^ - 34 0 errors in compilation group ->> Error: Unexpected indicator: `i' - -listings.at-1712-prog20.lst:34.6-34.7: - 31 - 32 - 33 0 warnings in compilation group - 34 > 0 errors in compilation group ----- ^ ->> Error: Unexpected indicator: `r' - -listings.at-1712-prog20.lst:18.7-18.9: - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 000013 END PROGRAM prog-2. - 18 > GnuCOBOL V.R.P prog.cob Page 0002 ----- ^^ - 19 - 20 SIZE TYPE LVL NAME PICTURE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:1779:0 -listings.at-1779-prog20b.lst:1.6-1.7: - 1 > GnuCOBOL V.R.P progb.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Unexpected indicator: `O' - -listings.at-1779-prog20b.lst:1.7-1.8: - 1 > GnuCOBOL V.R.P progb.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Invalid syntax - -listings.at-1779-prog20b.lst:21.6-21.7: - 18 000014 END PROGRAM prog-2. - 19 000015 - 20 000016 END PROGRAM prog-1. - 21 > GnuCOBOL V.R.P progb.cob Page 0002 ----- ^ - 22 - 23 SIZE TYPE LVL NAME PICTURE ->> Error: Unexpected indicator: `B' - -listings.at-1779-prog20b.lst:23.6-23.7: - 20 000016 END PROGRAM prog-1. - 21 GnuCOBOL V.R.P progb.cob Page 0002 - 22 - 23 > SIZE TYPE LVL NAME PICTURE ----- ^ - 24 - 25 PROGRAM prog-1 ->> Error: Unexpected indicator: `T' - -listings.at-1779-prog20b.lst:25.6-25.7: - 22 - 23 SIZE TYPE LVL NAME PICTURE - 24 - 25 > PROGRAM prog-1 ----- ^ - 26 - 27 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `P' - -listings.at-1779-prog20b.lst:27.6-27.7: - 24 - 25 PROGRAM prog-1 - 26 - 27 > WORKING-STORAGE SECTION ----- ^ - 28 - 29 00001 ALPHANUMERIC 01 blah X ->> Error: Unexpected indicator: `W' - -listings.at-1779-prog20b.lst:29.6-29.7: - 26 - 27 WORKING-STORAGE SECTION - 28 - 29 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 30 - 31 PROGRAM prog-2 ->> Error: Unexpected indicator: `A' - -listings.at-1779-prog20b.lst:31.6-31.7: - 28 - 29 00001 ALPHANUMERIC 01 blah X - 30 - 31 > PROGRAM prog-2 ----- ^ - 32 - 33 No fields defined. ->> Error: Unexpected indicator: `P' - -listings.at-1779-prog20b.lst:33.6-33.7: - 30 - 31 PROGRAM prog-2 - 32 - 33 > No fields defined. ----- ^ - 34 - 35 ->> Error: Unexpected indicator: `N' - -listings.at-1779-prog20b.lst:36.6-36.7: - 33 No fields defined. - 34 - 35 - 36 > 0 warnings in compilation group ----- ^ - 37 0 errors in compilation group ->> Error: Unexpected indicator: `i' - -listings.at-1779-prog20b.lst:37.6-37.7: - 34 - 35 - 36 0 warnings in compilation group - 37 > 0 errors in compilation group ----- ^ ->> Error: Unexpected indicator: `r' - -listings.at-1779-prog20b.lst:21.7-21.9: - 18 000014 END PROGRAM prog-2. - 19 000015 - 20 000016 END PROGRAM prog-1. - 21 > GnuCOBOL V.R.P progb.cob Page 0002 ----- ^^ - 22 - 23 SIZE TYPE LVL NAME PICTURE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:1853:0 -listings.at-1853-prog20c.lst:1.6-1.7: - 1 > GnuCOBOL V.R.P progc.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Unexpected indicator: `O' - -listings.at-1853-prog20c.lst:1.7-1.8: - 1 > GnuCOBOL V.R.P progc.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Invalid syntax - -listings.at-1853-prog20c.lst:17.24: - 14 000010 - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 > 000013 PROCEDURE. ----- ^ - 18 error: syntax error, unexpected ., expecting DIVISION - 19 000014 END PROGRAM prog-2. ->> Hint: Missing DIVISION - -listings.at-1853-prog20c.lst:17.24-17.25: - 14 000010 - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 > 000013 PROCEDURE. ----- ^ - 18 error: syntax error, unexpected ., expecting DIVISION - 19 000014 END PROGRAM prog-2. ->> Error: Invalid syntax - -listings.at-1853-prog20c.lst:18.13: - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 000013 PROCEDURE. - 18 > error: syntax error, unexpected ., expecting DIVISION ----- ^ - 19 000014 END PROGRAM prog-2. - 20 000015 ->> Hint: Missing . - -listings.at-1853-prog20c.lst:18.14-18.19: - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 000013 PROCEDURE. - 18 > error: syntax error, unexpected ., expecting DIVISION ----- ^^^^^ - 19 000014 END PROGRAM prog-2. - 20 000015 ->> Warning: Invalid syntax - -listings.at-1853-prog20c.lst:18.44: - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 000013 PROCEDURE. - 18 > error: syntax error, unexpected ., expecting DIVISION ----- ^ - 19 000014 END PROGRAM prog-2. - 20 000015 ->> Hint: Missing . - -listings.at-1853-prog20c.lst:18.45-18.53: - 15 000011 IDENTIFICATION DIVISION. - 16 000012 PROGRAM-ID. prog-2. - 17 000013 PROCEDURE. - 18 > error: syntax error, unexpected ., expecting DIVISION ----- ^^^^^^^^ - 19 000014 END PROGRAM prog-2. - 20 000015 ->> Warning: Invalid syntax - -listings.at-1853-prog20c.lst:22.6-22.7: - 19 000014 END PROGRAM prog-2. - 20 000015 - 21 000016 END PROGRAM prog-1. - 22 > GnuCOBOL V.R.P progc.cob Page 0002 ----- ^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Error: Unexpected indicator: `B' - -listings.at-1853-prog20c.lst:24.6-24.7: - 21 000016 END PROGRAM prog-1. - 22 GnuCOBOL V.R.P progc.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^ - 25 - 26 PROGRAM prog-1 ->> Error: Unexpected indicator: `T' - -listings.at-1853-prog20c.lst:26.6-26.7: - 23 - 24 SIZE TYPE LVL NAME PICTURE - 25 - 26 > PROGRAM prog-1 ----- ^ - 27 - 28 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `P' - -listings.at-1853-prog20c.lst:28.6-28.7: - 25 - 26 PROGRAM prog-1 - 27 - 28 > WORKING-STORAGE SECTION ----- ^ - 29 - 30 00001 ALPHANUMERIC 01 blah X ->> Error: Unexpected indicator: `W' - -listings.at-1853-prog20c.lst:30.6-30.7: - 27 - 28 WORKING-STORAGE SECTION - 29 - 30 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 31 - 32 PROGRAM prog-2 ->> Error: Unexpected indicator: `A' - -listings.at-1853-prog20c.lst:32.6-32.7: - 29 - 30 00001 ALPHANUMERIC 01 blah X - 31 - 32 > PROGRAM prog-2 ----- ^ - 33 - 34 No fields defined. ->> Error: Unexpected indicator: `P' - -listings.at-1853-prog20c.lst:34.6-34.7: - 31 - 32 PROGRAM prog-2 - 33 - 34 > No fields defined. ----- ^ - 35 - 36 ->> Error: Unexpected indicator: `N' - -listings.at-1853-prog20c.lst:37.6-37.7: - 34 No fields defined. - 35 - 36 - 37 > GnuCOBOL V.R.P progc.cob Page 0003 ----- ^ - 38 - 39 Error/Warning summary: ->> Error: Unexpected indicator: `B' - -listings.at-1853-prog20c.lst:39.6-39.7: - 36 - 37 GnuCOBOL V.R.P progc.cob Page 0003 - 38 - 39 > Error/Warning summary: ----- ^ - 40 - 41 progc.cob:13: error: syntax error, unexpected ., expecting DIVISION ->> Error: Unexpected indicator: `W' - -listings.at-1853-prog20c.lst:41.6-41.7: - 38 - 39 Error/Warning summary: - 40 - 41 > progc.cob:13: error: syntax error, unexpected ., expecting DIVISION ----- ^ - 42 - 43 0 warnings in compilation group ->> Error: Unexpected indicator: `c' - -listings.at-1853-prog20c.lst:43.6-43.7: - 40 - 41 progc.cob:13: error: syntax error, unexpected ., expecting DIVISION - 42 - 43 > 0 warnings in compilation group ----- ^ - 44 1 error in compilation group ->> Error: Unexpected indicator: `i' - -listings.at-1853-prog20c.lst:44.6-44.7: - 41 progc.cob:13: error: syntax error, unexpected ., expecting DIVISION - 42 - 43 0 warnings in compilation group - 44 > 1 error in compilation group ----- ^ ->> Error: Unexpected indicator: `r' - -listings.at-1853-prog20c.lst:22.7-22.9: - 19 000014 END PROGRAM prog-2. - 20 000015 - 21 000016 END PROGRAM prog-1. - 22 > GnuCOBOL V.R.P progc.cob Page 0002 ----- ^^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:1778:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2030:0 -listings.at-2030-expected.lst:1.6-1.7: - 1 > GnuCOBOL V.R.P prog-1.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Unexpected indicator: `O' - -listings.at-2030-expected.lst:1.7-1.8: - 1 > GnuCOBOL V.R.P prog-1.cob Page 0001 ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Invalid syntax - -listings.at-2030-expected.lst:19.6-19.7: - 16 000012 GO TO EX - 17 000013 - 18 000014 DISPLAY blah. - 19 > warning: unreachable statement 'DISPLAY' ----- ^ - 20 000015 - 21 000016 EX. STOP RUN. ->> Error: Unexpected indicator: `g' - -listings.at-2030-expected.lst:19.7-19.8: - 16 000012 GO TO EX - 17 000013 - 18 000014 DISPLAY blah. - 19 > warning: unreachable statement 'DISPLAY' ----- ^ - 20 000015 - 21 000016 EX. STOP RUN. ->> Error: Invalid syntax - -listings.at-2030-expected.lst:19.20: - 16 000012 GO TO EX - 17 000013 - 18 000014 DISPLAY blah. - 19 > warning: unreachable statement 'DISPLAY' ----- ^ - 20 000015 - 21 000016 EX. STOP RUN. ->> Hint: Missing . - -listings.at-2030-expected.lst:19.21-19.30: - 16 000012 GO TO EX - 17 000013 - 18 000014 DISPLAY blah. - 19 > warning: unreachable statement 'DISPLAY' ----- ^^^^^^^^^ - 20 000015 - 21 000016 EX. STOP RUN. ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:19.30: - 16 000012 GO TO EX - 17 000013 - 18 000014 DISPLAY blah. - 19 > warning: unreachable statement 'DISPLAY' ----- ^ - 20 000015 - 21 000016 EX. STOP RUN. ->> Hint: Missing . - -listings.at-2030-expected.lst:19.31-19.40: - 16 000012 GO TO EX - 17 000013 - 18 000014 DISPLAY blah. - 19 > warning: unreachable statement 'DISPLAY' ----- ^^^^^^^^^ - 20 000015 - 21 000016 EX. STOP RUN. ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:22.6-22.7: - 19 warning: unreachable statement 'DISPLAY' - 20 000015 - 21 000016 EX. STOP RUN. - 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 ----- ^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:24.6-24.7: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^ - 25 - 26 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `T' - -listings.at-2030-expected.lst:26.6-26.7: - 23 - 24 SIZE TYPE LVL NAME PICTURE - 25 - 26 > WORKING-STORAGE SECTION ----- ^ - 27 - 28 00001 ALPHANUMERIC 01 blah X ->> Error: Unexpected indicator: `W' - -listings.at-2030-expected.lst:28.6-28.7: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Error: Unexpected indicator: `A' - -listings.at-2030-expected.lst:30.6-30.7: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^ - 31 - 32 NAME DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:36.6-36.7: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^ - 37 - 38 LABEL DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:40.6-40.7: - 37 - 38 LABEL DEFINED REFERENCES - 39 - 40 > E prog__1 10 ----- ^ - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 ->> Error: Unexpected indicator: `_' - -listings.at-2030-expected.lst:42.6-42.7: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:44.6-44.7: - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 - 44 > FUNCTION TYPE REFERENCES ----- ^ - 45 - 46 L prog-2 EXTERN 11 x1 ->> Error: Unexpected indicator: `O' - -listings.at-2030-expected.lst:46.7-46.11: - 43 - 44 FUNCTION TYPE REFERENCES - 45 - 46 > L prog-2 EXTERN 11 x1 ----- ^^^^ - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 ->> Warning: Unexpected non-blank area A on continuation line - -listings.at-2030-expected.lst:48.6-48.7: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^ - 49 - 50 Error/Warning summary: ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:50.6-50.7: - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 - 49 - 50 > Error/Warning summary: ----- ^ - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' ->> Error: Unexpected indicator: `W' - -listings.at-2030-expected.lst:52.6-52.7: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Error: Unexpected indicator: `.' - -listings.at-2030-expected.lst:54.6-54.7: - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 > 1 warning in compilation group ----- ^ - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 ->> Error: Unexpected indicator: `i' - -listings.at-2030-expected.lst:55.6-55.7: - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 1 warning in compilation group - 55 > 0 errors in compilation group ----- ^ - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 ->> Error: Unexpected indicator: `r' - -listings.at-2030-expected.lst:56.6-56.7: - 53 - 54 1 warning in compilation group - 55 0 errors in compilation group - 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 ----- ^ - 57 - 58 LINE PG/LN A...B............................................................ ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:22.9: - 19 warning: unreachable statement 'DISPLAY' - 20 000015 - 21 000016 EX. STOP RUN. - 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 ----- ^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Hint: Missing . - -listings.at-2030-expected.lst:22.10-22.15: - 19 warning: unreachable statement 'DISPLAY' - 20 000015 - 21 000016 EX. STOP RUN. - 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 ----- ^^^^^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:22.15: - 19 warning: unreachable statement 'DISPLAY' - 20 000015 - 21 000016 EX. STOP RUN. - 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 ----- ^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Hint: Missing . - -listings.at-2030-expected.lst:22.25-22.35: - 19 warning: unreachable statement 'DISPLAY' - 20 000015 - 21 000016 EX. STOP RUN. - 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 ----- ^^^^^^^^^^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:22.35: - 19 warning: unreachable statement 'DISPLAY' - 20 000015 - 21 000016 EX. STOP RUN. - 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 ----- ^ - 23 - 24 SIZE TYPE LVL NAME PICTURE ->> Hint: Missing . - -listings.at-2030-expected.lst:24.7-24.10: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^^^ - 25 - 26 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:24.10: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^ - 25 - 26 WORKING-STORAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:24.21-24.24: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^^^ - 25 - 26 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:24.24: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^ - 25 - 26 WORKING-STORAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:24.26-24.30: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^^^^ - 25 - 26 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:24.57-24.64: - 21 000016 EX. STOP RUN. - 22 GnuCOBOL V.R.P prog-1.cob Page 0002 - 23 - 24 > SIZE TYPE LVL NAME PICTURE ----- ^^^^^^^ - 25 - 26 WORKING-STORAGE SECTION ->> Error: Invalid syntax - -listings.at-2030-expected.lst:26.29: - 23 - 24 SIZE TYPE LVL NAME PICTURE - 25 - 26 > WORKING-STORAGE SECTION ----- ^ - 27 - 28 00001 ALPHANUMERIC 01 blah X ->> Hint: Missing . - -listings.at-2030-expected.lst:28.7-28.18: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^^^^^^^^^^^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Error: Invalid syntax - -listings.at-2030-expected.lst:28.18: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:28.21-28.23: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:28.23: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:28.26-28.30: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^^^^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:28.30: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:28.57-28.58: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:28.58: - 25 - 26 WORKING-STORAGE SECTION - 27 - 28 > 00001 ALPHANUMERIC 01 blah X ----- ^ - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:30.7-30.9: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^^ - 31 - 32 NAME DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:30.9: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^ - 31 - 32 NAME DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:30.10-30.15: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^^^^^ - 31 - 32 NAME DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:30.15: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^ - 31 - 32 NAME DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:30.25-30.35: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^^^^^^^^^^ - 31 - 32 NAME DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:30.35: - 27 - 28 00001 ALPHANUMERIC 01 blah X - 29 - 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 ----- ^ - 31 - 32 NAME DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:32.31-32.38: - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 - 31 - 32 > NAME DEFINED REFERENCES ----- ^^^^^^^ - 33 - 34 blah 7 *10 11 14 x3 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:32.38: - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 - 31 - 32 > NAME DEFINED REFERENCES ----- ^ - 33 - 34 blah 7 *10 11 14 x3 ->> Hint: Missing . - -listings.at-2030-expected.lst:32.54-32.64: - 29 - 30 GnuCOBOL V.R.P prog-1.cob Page 0003 - 31 - 32 > NAME DEFINED REFERENCES ----- ^^^^^^^^^^ - 33 - 34 blah 7 *10 11 14 x3 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:34.32: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:34.39-34.42: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^^^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:34.42: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:34.48-34.50: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:34.50: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:34.56-34.58: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:34.58: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:34.71-34.72: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:34.72: - 31 - 32 NAME DEFINED REFERENCES - 33 - 34 > blah 7 *10 11 14 x3 ----- ^ - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:36.7-36.9: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^^ - 37 - 38 LABEL DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:36.9: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^ - 37 - 38 LABEL DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:36.10-36.15: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^^^^^ - 37 - 38 LABEL DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:36.15: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^ - 37 - 38 LABEL DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:36.25-36.35: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^^^^^^^^^^ - 37 - 38 LABEL DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:36.35: - 33 - 34 blah 7 *10 11 14 x3 - 35 - 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 ----- ^ - 37 - 38 LABEL DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:38.31-38.38: - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 - 37 - 38 > LABEL DEFINED REFERENCES ----- ^^^^^^^ - 39 - 40 E prog__1 10 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:38.38: - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 - 37 - 38 > LABEL DEFINED REFERENCES ----- ^ - 39 - 40 E prog__1 10 ->> Hint: Missing . - -listings.at-2030-expected.lst:38.54-38.64: - 35 - 36 GnuCOBOL V.R.P prog-1.cob Page 0004 - 37 - 38 > LABEL DEFINED REFERENCES ----- ^^^^^^^^^^ - 39 - 40 E prog__1 10 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:40.9: - 37 - 38 LABEL DEFINED REFERENCES - 39 - 40 > E prog__1 10 ----- ^ - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 ->> Hint: Missing . - -listings.at-2030-expected.lst:40.31-40.33: - 37 - 38 LABEL DEFINED REFERENCES - 39 - 40 > E prog__1 10 ----- ^^ - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:40.33: - 37 - 38 LABEL DEFINED REFERENCES - 39 - 40 > E prog__1 10 ----- ^ - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 ->> Hint: Missing . - -listings.at-2030-expected.lst:41.31-41.33: - 38 LABEL DEFINED REFERENCES - 39 - 40 E prog__1 10 - 41 > P EX 16 12 x1 ----- ^^ - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:41.33: - 38 LABEL DEFINED REFERENCES - 39 - 40 E prog__1 10 - 41 > P EX 16 12 x1 ----- ^ - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 ->> Hint: Missing . - -listings.at-2030-expected.lst:41.40-41.42: - 38 LABEL DEFINED REFERENCES - 39 - 40 E prog__1 10 - 41 > P EX 16 12 x1 ----- ^^ - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:41.42: - 38 LABEL DEFINED REFERENCES - 39 - 40 E prog__1 10 - 41 > P EX 16 12 x1 ----- ^ - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 ->> Hint: Missing . - -listings.at-2030-expected.lst:41.71-41.72: - 38 LABEL DEFINED REFERENCES - 39 - 40 E prog__1 10 - 41 > P EX 16 12 x1 ----- ^ - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:41.72: - 38 LABEL DEFINED REFERENCES - 39 - 40 E prog__1 10 - 41 > P EX 16 12 x1 ----- ^ - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 ->> Hint: Missing . - -listings.at-2030-expected.lst:42.7-42.9: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:42.9: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:42.10-42.15: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^^^^^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:42.15: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:42.25-42.35: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^^^^^^^^^^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:42.35: - 39 - 40 E prog__1 10 - 41 P EX 16 12 x1 - 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 ----- ^ - 43 - 44 FUNCTION TYPE REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:44.7-44.8: - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 - 44 > FUNCTION TYPE REFERENCES ----- ^ - 45 - 46 L prog-2 EXTERN 11 x1 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:44.8: - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 - 44 > FUNCTION TYPE REFERENCES ----- ^ - 45 - 46 L prog-2 EXTERN 11 x1 ->> Hint: Missing . - -listings.at-2030-expected.lst:44.31-44.35: - 41 P EX 16 12 x1 - 42 GnuCOBOL V.R.P prog-1.cob Page 0005 - 43 - 44 > FUNCTION TYPE REFERENCES ----- ^^^^ - 45 - 46 L prog-2 EXTERN 11 x1 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:46.37: - 43 - 44 FUNCTION TYPE REFERENCES - 45 - 46 > L prog-2 EXTERN 11 x1 ----- ^ - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 ->> Hint: Missing . - -listings.at-2030-expected.lst:46.40-46.42: - 43 - 44 FUNCTION TYPE REFERENCES - 45 - 46 > L prog-2 EXTERN 11 x1 ----- ^^ - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:46.42: - 43 - 44 FUNCTION TYPE REFERENCES - 45 - 46 > L prog-2 EXTERN 11 x1 ----- ^ - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 ->> Hint: Missing . - -listings.at-2030-expected.lst:46.71-46.72: - 43 - 44 FUNCTION TYPE REFERENCES - 45 - 46 > L prog-2 EXTERN 11 x1 ----- ^ - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:46.72: - 43 - 44 FUNCTION TYPE REFERENCES - 45 - 46 > L prog-2 EXTERN 11 x1 ----- ^ - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 ->> Hint: Missing . - -listings.at-2030-expected.lst:48.7-48.9: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^^ - 49 - 50 Error/Warning summary: ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:48.9: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^ - 49 - 50 Error/Warning summary: ->> Hint: Missing . - -listings.at-2030-expected.lst:48.10-48.15: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^^^^^ - 49 - 50 Error/Warning summary: ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:48.15: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^ - 49 - 50 Error/Warning summary: ->> Hint: Missing . - -listings.at-2030-expected.lst:48.25-48.35: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^^^^^^^^^^ - 49 - 50 Error/Warning summary: ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:48.35: - 45 - 46 L prog-2 EXTERN 11 x1 - 47 - 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 ----- ^ - 49 - 50 Error/Warning summary: ->> Hint: Missing . - -listings.at-2030-expected.lst:50.7-50.13: - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 - 49 - 50 > Error/Warning summary: ----- ^^^^^^ - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:50.13: - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 - 49 - 50 > Error/Warning summary: ----- ^ - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' ->> Hint: Missing . - -listings.at-2030-expected.lst:50.14-50.22: - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 - 49 - 50 > Error/Warning summary: ----- ^^^^^^^^ - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:50.22: - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 - 49 - 50 > Error/Warning summary: ----- ^ - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' ->> Hint: Missing . - -listings.at-2030-expected.lst:50.21-50.22: - 47 - 48 GnuCOBOL V.R.P prog-1.cob Page 0006 - 49 - 50 > Error/Warning summary: ----- ^ - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:52.14: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:52.10-52.14: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^^^^ - 53 - 54 1 warning in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:52.14: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:52.13-52.14: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:52.23: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:52.22-52.23: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:52.35: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:52.36-52.45: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^^^^^^^^^ - 53 - 54 1 warning in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:52.45: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^ - 53 - 54 1 warning in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:52.46-52.55: - 49 - 50 Error/Warning summary: - 51 - 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' ----- ^^^^^^^^^ - 53 - 54 1 warning in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:54.9: - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 > 1 warning in compilation group ----- ^ - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 ->> Hint: Missing . - -listings.at-2030-expected.lst:54.10-54.12: - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 > 1 warning in compilation group ----- ^^ - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:54.24: - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 > 1 warning in compilation group ----- ^ - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 ->> Hint: Missing . - -listings.at-2030-expected.lst:54.25-54.30: - 51 - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 > 1 warning in compilation group ----- ^^^^^ - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:55.8: - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 1 warning in compilation group - 55 > 0 errors in compilation group ----- ^ - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 ->> Hint: Missing . - -listings.at-2030-expected.lst:55.9-55.11: - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 1 warning in compilation group - 55 > 0 errors in compilation group ----- ^^ - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:55.23: - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 1 warning in compilation group - 55 > 0 errors in compilation group ----- ^ - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 ->> Hint: Missing . - -listings.at-2030-expected.lst:55.24-55.29: - 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' - 53 - 54 1 warning in compilation group - 55 > 0 errors in compilation group ----- ^^^^^ - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:56.9: - 53 - 54 1 warning in compilation group - 55 0 errors in compilation group - 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 ----- ^ - 57 - 58 LINE PG/LN A...B............................................................ ->> Hint: Missing . - -listings.at-2030-expected.lst:56.10-56.15: - 53 - 54 1 warning in compilation group - 55 0 errors in compilation group - 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 ----- ^^^^^ - 57 - 58 LINE PG/LN A...B............................................................ ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:56.15: - 53 - 54 1 warning in compilation group - 55 0 errors in compilation group - 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 ----- ^ - 57 - 58 LINE PG/LN A...B............................................................ ->> Hint: Missing . - -listings.at-2030-expected.lst:56.25-56.35: - 53 - 54 1 warning in compilation group - 55 0 errors in compilation group - 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 ----- ^^^^^^^^^^ - 57 - 58 LINE PG/LN A...B............................................................ ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:56.35: - 53 - 54 1 warning in compilation group - 55 0 errors in compilation group - 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 ----- ^ - 57 - 58 LINE PG/LN A...B............................................................ ->> Hint: Missing . - -listings.at-2030-expected.lst:58.8-58.13: - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 - 58 > LINE PG/LN A...B............................................................ ----- ^^^^^ - 59 - 60 000001 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:58.13: - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 - 58 > LINE PG/LN A...B............................................................ ----- ^ - 59 - 60 000001 ->> Hint: Missing . - -listings.at-2030-expected.lst:58.10-58.13: - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 - 58 > LINE PG/LN A...B............................................................ ----- ^^^ - 59 - 60 000001 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:58.13: - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 - 58 > LINE PG/LN A...B............................................................ ----- ^ - 59 - 60 000001 ->> Hint: Missing . - -listings.at-2030-expected.lst:58.15-58.71: - 55 0 errors in compilation group - 56 GnuCOBOL V.R.P prog-2.cob Page 0001 - 57 - 58 > LINE PG/LN A...B............................................................ ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 59 - 60 000001 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:76.6-76.7: - 73 000014 GO TO EX - 74 000015 - 75 000016 ACCEPT stuff. - 76 > warning: unreachable statement 'ACCEPT' ----- ^ - 77 000017 - 78 000018 EX. STOP RUN. ->> Error: Unexpected indicator: `g' - -listings.at-2030-expected.lst:76.7-76.8: - 73 000014 GO TO EX - 74 000015 - 75 000016 ACCEPT stuff. - 76 > warning: unreachable statement 'ACCEPT' ----- ^ - 77 000017 - 78 000018 EX. STOP RUN. ->> Error: Invalid syntax - -listings.at-2030-expected.lst:76.20: - 73 000014 GO TO EX - 74 000015 - 75 000016 ACCEPT stuff. - 76 > warning: unreachable statement 'ACCEPT' ----- ^ - 77 000017 - 78 000018 EX. STOP RUN. ->> Hint: Missing . - -listings.at-2030-expected.lst:76.21-76.30: - 73 000014 GO TO EX - 74 000015 - 75 000016 ACCEPT stuff. - 76 > warning: unreachable statement 'ACCEPT' ----- ^^^^^^^^^ - 77 000017 - 78 000018 EX. STOP RUN. ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:76.30: - 73 000014 GO TO EX - 74 000015 - 75 000016 ACCEPT stuff. - 76 > warning: unreachable statement 'ACCEPT' ----- ^ - 77 000017 - 78 000018 EX. STOP RUN. ->> Hint: Missing . - -listings.at-2030-expected.lst:76.31-76.39: - 73 000014 GO TO EX - 74 000015 - 75 000016 ACCEPT stuff. - 76 > warning: unreachable statement 'ACCEPT' ----- ^^^^^^^^ - 77 000017 - 78 000018 EX. STOP RUN. ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:80.6-80.7: - 77 000017 - 78 000018 EX. STOP RUN. - 79 000019 - 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 ----- ^ - 81 - 82 SIZE TYPE LVL NAME PICTURE ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:82.6-82.7: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^ - 83 - 84 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `T' - -listings.at-2030-expected.lst:84.6-84.7: - 81 - 82 SIZE TYPE LVL NAME PICTURE - 83 - 84 > WORKING-STORAGE SECTION ----- ^ - 85 - 86 00001 NUMERIC 01 data-b 9 ->> Error: Unexpected indicator: `W' - -listings.at-2030-expected.lst:86.6-86.7: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^ - 87 - 88 LINKAGE SECTION ->> Error: Unexpected indicator: `N' - -listings.at-2030-expected.lst:88.6-88.7: - 85 - 86 00001 NUMERIC 01 data-b 9 - 87 - 88 > LINKAGE SECTION ----- ^ - 89 - 90 00001 ALPHANUMERIC 01 stuff X ->> Error: Unexpected indicator: `L' - -listings.at-2030-expected.lst:90.6-90.7: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Error: Unexpected indicator: `A' - -listings.at-2030-expected.lst:92.6-92.7: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^ - 93 - 94 NAME DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:100.6-100.7: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^ - 101 - 102 LABEL DEFINED REFERENCES ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:104.6-104.7: - 101 - 102 LABEL DEFINED REFERENCES - 103 - 104 > E prog__2 11 ----- ^ - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 ->> Error: Unexpected indicator: `_' - -listings.at-2030-expected.lst:108.6-108.7: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^ - 109 - 110 Error/Warning summary: ->> Error: Unexpected indicator: `B' - -listings.at-2030-expected.lst:110.6-110.7: - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 - 109 - 110 > Error/Warning summary: ----- ^ - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' ->> Error: Unexpected indicator: `W' - -listings.at-2030-expected.lst:112.6-112.7: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Error: Unexpected indicator: `.' - -listings.at-2030-expected.lst:114.6-114.7: - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 > 2 warnings in compilation group ----- ^ - 115 0 errors in compilation group ->> Error: Unexpected indicator: `i' - -listings.at-2030-expected.lst:115.6-115.7: - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 2 warnings in compilation group - 115 > 0 errors in compilation group ----- ^ ->> Error: Unexpected indicator: `r' - -listings.at-2030-expected.lst:80.9: - 77 000017 - 78 000018 EX. STOP RUN. - 79 000019 - 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 ----- ^ - 81 - 82 SIZE TYPE LVL NAME PICTURE ->> Hint: Missing . - -listings.at-2030-expected.lst:80.10-80.15: - 77 000017 - 78 000018 EX. STOP RUN. - 79 000019 - 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 ----- ^^^^^ - 81 - 82 SIZE TYPE LVL NAME PICTURE ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:80.15: - 77 000017 - 78 000018 EX. STOP RUN. - 79 000019 - 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 ----- ^ - 81 - 82 SIZE TYPE LVL NAME PICTURE ->> Hint: Missing . - -listings.at-2030-expected.lst:80.25-80.35: - 77 000017 - 78 000018 EX. STOP RUN. - 79 000019 - 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 ----- ^^^^^^^^^^ - 81 - 82 SIZE TYPE LVL NAME PICTURE ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:80.35: - 77 000017 - 78 000018 EX. STOP RUN. - 79 000019 - 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 ----- ^ - 81 - 82 SIZE TYPE LVL NAME PICTURE ->> Hint: Missing . - -listings.at-2030-expected.lst:82.7-82.10: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^^^ - 83 - 84 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:82.10: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^ - 83 - 84 WORKING-STORAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:82.21-82.24: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^^^ - 83 - 84 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:82.24: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^ - 83 - 84 WORKING-STORAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:82.26-82.30: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^^^^ - 83 - 84 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:82.57-82.64: - 79 000019 - 80 GnuCOBOL V.R.P prog-2.cob Page 0002 - 81 - 82 > SIZE TYPE LVL NAME PICTURE ----- ^^^^^^^ - 83 - 84 WORKING-STORAGE SECTION ->> Error: Invalid syntax - -listings.at-2030-expected.lst:84.29: - 81 - 82 SIZE TYPE LVL NAME PICTURE - 83 - 84 > WORKING-STORAGE SECTION ----- ^ - 85 - 86 00001 NUMERIC 01 data-b 9 ->> Hint: Missing . - -listings.at-2030-expected.lst:86.7-86.13: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^^^^^^ - 87 - 88 LINKAGE SECTION ->> Error: Invalid syntax - -listings.at-2030-expected.lst:86.13: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^ - 87 - 88 LINKAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:86.21-86.23: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^^ - 87 - 88 LINKAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:86.23: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^ - 87 - 88 LINKAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:86.26-86.32: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^^^^^^ - 87 - 88 LINKAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:86.32: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^ - 87 - 88 LINKAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:86.57-86.58: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^ - 87 - 88 LINKAGE SECTION ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:86.58: - 83 - 84 WORKING-STORAGE SECTION - 85 - 86 > 00001 NUMERIC 01 data-b 9 ----- ^ - 87 - 88 LINKAGE SECTION ->> Hint: Missing . - -listings.at-2030-expected.lst:88.7-88.13: - 85 - 86 00001 NUMERIC 01 data-b 9 - 87 - 88 > LINKAGE SECTION ----- ^^^^^^ - 89 - 90 00001 ALPHANUMERIC 01 stuff X ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:88.21: - 85 - 86 00001 NUMERIC 01 data-b 9 - 87 - 88 > LINKAGE SECTION ----- ^ - 89 - 90 00001 ALPHANUMERIC 01 stuff X ->> Hint: Missing . - -listings.at-2030-expected.lst:90.7-90.18: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^^^^^^^^^^^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Error: Invalid syntax - -listings.at-2030-expected.lst:90.18: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:90.21-90.23: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:90.23: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:90.26-90.31: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^^^^^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:90.31: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:90.57-90.58: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:90.58: - 87 - 88 LINKAGE SECTION - 89 - 90 > 00001 ALPHANUMERIC 01 stuff X ----- ^ - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 ->> Hint: Missing . - -listings.at-2030-expected.lst:92.7-92.9: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^^ - 93 - 94 NAME DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:92.9: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^ - 93 - 94 NAME DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:92.10-92.15: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^^^^^ - 93 - 94 NAME DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:92.15: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^ - 93 - 94 NAME DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:92.25-92.35: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^^^^^^^^^^ - 93 - 94 NAME DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:92.35: - 89 - 90 00001 ALPHANUMERIC 01 stuff X - 91 - 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 ----- ^ - 93 - 94 NAME DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:94.31-94.38: - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 - 93 - 94 > NAME DEFINED REFERENCES ----- ^^^^^^^ - 95 - 96 data-b 7 *12 13 x2 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:94.38: - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 - 93 - 94 > NAME DEFINED REFERENCES ----- ^ - 95 - 96 data-b 7 *12 13 x2 ->> Hint: Missing . - -listings.at-2030-expected.lst:94.54-94.64: - 91 - 92 GnuCOBOL V.R.P prog-2.cob Page 0003 - 93 - 94 > NAME DEFINED REFERENCES ----- ^^^^^^^^^^ - 95 - 96 data-b 7 *12 13 x2 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:96.32: - 93 - 94 NAME DEFINED REFERENCES - 95 - 96 > data-b 7 *12 13 x2 ----- ^ - 97 - 98 stuff 9 *10 12 *16 x3 ->> Hint: Missing . - -listings.at-2030-expected.lst:96.39-96.42: - 93 - 94 NAME DEFINED REFERENCES - 95 - 96 > data-b 7 *12 13 x2 ----- ^^^ - 97 - 98 stuff 9 *10 12 *16 x3 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:96.42: - 93 - 94 NAME DEFINED REFERENCES - 95 - 96 > data-b 7 *12 13 x2 ----- ^ - 97 - 98 stuff 9 *10 12 *16 x3 ->> Hint: Missing . - -listings.at-2030-expected.lst:96.48-96.50: - 93 - 94 NAME DEFINED REFERENCES - 95 - 96 > data-b 7 *12 13 x2 ----- ^^ - 97 - 98 stuff 9 *10 12 *16 x3 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:96.50: - 93 - 94 NAME DEFINED REFERENCES - 95 - 96 > data-b 7 *12 13 x2 ----- ^ - 97 - 98 stuff 9 *10 12 *16 x3 ->> Hint: Missing . - -listings.at-2030-expected.lst:96.71-96.72: - 93 - 94 NAME DEFINED REFERENCES - 95 - 96 > data-b 7 *12 13 x2 ----- ^ - 97 - 98 stuff 9 *10 12 *16 x3 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:96.72: - 93 - 94 NAME DEFINED REFERENCES - 95 - 96 > data-b 7 *12 13 x2 ----- ^ - 97 - 98 stuff 9 *10 12 *16 x3 ->> Hint: Missing . - -listings.at-2030-expected.lst:98.31-98.32: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:98.32: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:98.39-98.42: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^^^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:98.42: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:98.48-98.50: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:98.50: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:98.55-98.58: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^^^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:98.58: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:98.71-98.72: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:98.72: - 95 - 96 data-b 7 *12 13 x2 - 97 - 98 > stuff 9 *10 12 *16 x3 ----- ^ - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 ->> Hint: Missing . - -listings.at-2030-expected.lst:100.7-100.9: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^^ - 101 - 102 LABEL DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:100.9: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^ - 101 - 102 LABEL DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:100.10-100.15: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^^^^^ - 101 - 102 LABEL DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:100.15: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^ - 101 - 102 LABEL DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:100.25-100.35: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^^^^^^^^^^ - 101 - 102 LABEL DEFINED REFERENCES ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:100.35: - 97 - 98 stuff 9 *10 12 *16 x3 - 99 - 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 ----- ^ - 101 - 102 LABEL DEFINED REFERENCES ->> Hint: Missing . - -listings.at-2030-expected.lst:102.31-102.38: - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 - 101 - 102 > LABEL DEFINED REFERENCES ----- ^^^^^^^ - 103 - 104 E prog__2 11 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:102.38: - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 - 101 - 102 > LABEL DEFINED REFERENCES ----- ^ - 103 - 104 E prog__2 11 ->> Hint: Missing . - -listings.at-2030-expected.lst:102.54-102.64: - 99 - 100 GnuCOBOL V.R.P prog-2.cob Page 0004 - 101 - 102 > LABEL DEFINED REFERENCES ----- ^^^^^^^^^^ - 103 - 104 E prog__2 11 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:104.9: - 101 - 102 LABEL DEFINED REFERENCES - 103 - 104 > E prog__2 11 ----- ^ - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 ->> Hint: Missing . - -listings.at-2030-expected.lst:104.31-104.33: - 101 - 102 LABEL DEFINED REFERENCES - 103 - 104 > E prog__2 11 ----- ^^ - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:104.33: - 101 - 102 LABEL DEFINED REFERENCES - 103 - 104 > E prog__2 11 ----- ^ - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 ->> Hint: Missing . - -listings.at-2030-expected.lst:105.31-105.33: - 102 LABEL DEFINED REFERENCES - 103 - 104 E prog__2 11 - 105 > P MAIN 11 not referenced ----- ^^ - 106 P EX 18 14 x1 - 107 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:105.33: - 102 LABEL DEFINED REFERENCES - 103 - 104 E prog__2 11 - 105 > P MAIN 11 not referenced ----- ^ - 106 P EX 18 14 x1 - 107 ->> Hint: Missing . - -listings.at-2030-expected.lst:105.38-105.41: - 102 LABEL DEFINED REFERENCES - 103 - 104 E prog__2 11 - 105 > P MAIN 11 not referenced ----- ^^^ - 106 P EX 18 14 x1 - 107 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:105.52: - 102 LABEL DEFINED REFERENCES - 103 - 104 E prog__2 11 - 105 > P MAIN 11 not referenced ----- ^ - 106 P EX 18 14 x1 - 107 ->> Hint: Missing . - -listings.at-2030-expected.lst:106.31-106.33: - 103 - 104 E prog__2 11 - 105 P MAIN 11 not referenced - 106 > P EX 18 14 x1 ----- ^^ - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:106.33: - 103 - 104 E prog__2 11 - 105 P MAIN 11 not referenced - 106 > P EX 18 14 x1 ----- ^ - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 ->> Hint: Missing . - -listings.at-2030-expected.lst:106.40-106.42: - 103 - 104 E prog__2 11 - 105 P MAIN 11 not referenced - 106 > P EX 18 14 x1 ----- ^^ - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:106.42: - 103 - 104 E prog__2 11 - 105 P MAIN 11 not referenced - 106 > P EX 18 14 x1 ----- ^ - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 ->> Hint: Missing . - -listings.at-2030-expected.lst:106.71-106.72: - 103 - 104 E prog__2 11 - 105 P MAIN 11 not referenced - 106 > P EX 18 14 x1 ----- ^ - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:106.72: - 103 - 104 E prog__2 11 - 105 P MAIN 11 not referenced - 106 > P EX 18 14 x1 ----- ^ - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 ->> Hint: Missing . - -listings.at-2030-expected.lst:108.7-108.9: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^^ - 109 - 110 Error/Warning summary: ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:108.9: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^ - 109 - 110 Error/Warning summary: ->> Hint: Missing . - -listings.at-2030-expected.lst:108.10-108.15: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^^^^^ - 109 - 110 Error/Warning summary: ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:108.15: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^ - 109 - 110 Error/Warning summary: ->> Hint: Missing . - -listings.at-2030-expected.lst:108.25-108.35: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^^^^^^^^^^ - 109 - 110 Error/Warning summary: ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:108.35: - 105 P MAIN 11 not referenced - 106 P EX 18 14 x1 - 107 - 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 ----- ^ - 109 - 110 Error/Warning summary: ->> Hint: Missing . - -listings.at-2030-expected.lst:110.7-110.13: - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 - 109 - 110 > Error/Warning summary: ----- ^^^^^^ - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:110.13: - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 - 109 - 110 > Error/Warning summary: ----- ^ - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' ->> Hint: Missing . - -listings.at-2030-expected.lst:110.14-110.22: - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 - 109 - 110 > Error/Warning summary: ----- ^^^^^^^^ - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:110.22: - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 - 109 - 110 > Error/Warning summary: ----- ^ - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' ->> Hint: Missing . - -listings.at-2030-expected.lst:110.21-110.22: - 107 - 108 GnuCOBOL V.R.P prog-2.cob Page 0005 - 109 - 110 > Error/Warning summary: ----- ^ - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:112.14: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:112.10-112.14: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^^^^ - 113 - 114 2 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:112.14: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:112.13-112.14: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:112.23: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:112.22-112.23: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:112.35: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:112.36-112.45: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^^^^^^^^^ - 113 - 114 2 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:112.45: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^ - 113 - 114 2 warnings in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:112.46-112.54: - 109 - 110 Error/Warning summary: - 111 - 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' ----- ^^^^^^^^ - 113 - 114 2 warnings in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:114.10: - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 > 2 warnings in compilation group ----- ^ - 115 0 errors in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:114.11-114.13: - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 > 2 warnings in compilation group ----- ^^ - 115 0 errors in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:114.25: - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 > 2 warnings in compilation group ----- ^ - 115 0 errors in compilation group ->> Hint: Missing . - -listings.at-2030-expected.lst:114.26-114.31: - 111 - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 > 2 warnings in compilation group ----- ^^^^^ - 115 0 errors in compilation group ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:115.8: - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 2 warnings in compilation group - 115 > 0 errors in compilation group ----- ^ ->> Hint: Missing . - -listings.at-2030-expected.lst:115.9-115.11: - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 2 warnings in compilation group - 115 > 0 errors in compilation group ----- ^^ ->> Warning: Invalid syntax - -listings.at-2030-expected.lst:115.23: - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 2 warnings in compilation group - 115 > 0 errors in compilation group ----- ^ ->> Hint: Missing . END PROGRAM . END PROGRAM . - -listings.at-2030-expected.lst:115.24-115.29: - 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' - 113 - 114 2 warnings in compilation group - 115 > 0 errors in compilation group ----- ^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:2029:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2029:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2055:0 -listings.at-2055-prog.cob:9.11-9.14: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Error: Invalid syntax - -listings.at-2055-prog.cob:9.16: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Hint: Missing . - -listings.at-2055-prog.cob:9.17-9.19: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Warning: Invalid syntax - -listings.at-2055-prog.cob:9.26: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Hint: Missing . - -listings.at-2055-prog.cob:9.27-9.33: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Warning: Invalid syntax - -listings.at-2055-prog.cob:9.42-9.49: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^^^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:2115:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2150:0 -listings.at-2150-prog2.cob:6.2-6.30: - 3 PROGRAM-ID. prog2. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > >> PAGE page feed comment ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/listings.at:2199:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2310:0 -listings.at-2310-prog15-1.lst:1.6-1.7: - 1 > GnuCOBOL V.R.P prog3.cob ----- ^ - 2 - 3 SIZE TYPE LVL NAME PICTURE ->> Error: Unexpected indicator: `O' - -listings.at-2310-prog15-1.lst:3.6-3.7: - 1 GnuCOBOL V.R.P prog3.cob - 2 - 3 > SIZE TYPE LVL NAME PICTURE ----- ^ - 4 - 5 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `T' - -listings.at-2310-prog15-1.lst:5.6-5.7: - 2 - 3 SIZE TYPE LVL NAME PICTURE - 4 - 5 > WORKING-STORAGE SECTION ----- ^ - 6 - 7 00004 NUMERIC 01 WS-ONE 9(4) ->> Error: Unexpected indicator: `W' - -listings.at-2310-prog15-1.lst:7.6-7.7: - 4 - 5 WORKING-STORAGE SECTION - 6 - 7 > 00004 NUMERIC 01 WS-ONE 9(4) ----- ^ - 8 - 9 00004 ALPHABETIC 01 WS-TWO A(4) ->> Error: Unexpected indicator: `N' - -listings.at-2310-prog15-1.lst:9.6-9.7: - 6 - 7 00004 NUMERIC 01 WS-ONE 9(4) - 8 - 9 > 00004 ALPHABETIC 01 WS-TWO A(4) ----- ^ - 10 - 11 00004 ALPHANUMERIC 01 WS-THREE X(4) ->> Error: Unexpected indicator: `A' - -listings.at-2310-prog15-1.lst:11.6-11.7: - 8 - 9 00004 ALPHABETIC 01 WS-TWO A(4) - 10 - 11 > 00004 ALPHANUMERIC 01 WS-THREE X(4) ----- ^ - 12 - 13 00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1 ->> Error: Unexpected indicator: `A' - -listings.at-2310-prog15-1.lst:13.6-13.7: - 10 - 11 00004 ALPHANUMERIC 01 WS-THREE X(4) - 12 - 13 > 00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1 ----- ^ - 14 - 15 00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2 ->> Error: Unexpected indicator: `N' - -listings.at-2310-prog15-1.lst:15.6-15.7: - 12 - 13 00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1 - 14 - 15 > 00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2 ----- ^ - 16 - 17 00002 NUMERIC 01 WS-SIX S999 COMP-3 ->> Error: Unexpected indicator: `N' - -listings.at-2310-prog15-1.lst:17.6-17.7: - 14 - 15 00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2 - 16 - 17 > 00002 NUMERIC 01 WS-SIX S999 COMP-3 ----- ^ - 18 - 19 00013 NUMERIC 01 WS-SEVEN $$,$$$,$$9.99 ->> Error: Unexpected indicator: `N' - -listings.at-2310-prog15-1.lst:19.6-19.7: - 16 - 17 00002 NUMERIC 01 WS-SIX S999 COMP-3 - 18 - 19 > 00013 NUMERIC 01 WS-SEVEN $$,$$$,$$9.99 ----- ^ - 20 - 21 ->> Error: Unexpected indicator: `N' - -listings.at-2310-prog15-1.lst:1.7-1.8: - 1 > GnuCOBOL V.R.P prog3.cob ----- ^ - 2 - 3 SIZE TYPE LVL NAME PICTURE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:2252:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2284:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2372:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:2643:0 -listings.at-2643-prog.cob:9.11-9.14: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Error: Invalid syntax - -listings.at-2643-prog.cob:9.16: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Hint: Missing . - -listings.at-2643-prog.cob:9.17-9.19: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Warning: Invalid syntax - -listings.at-2643-prog.cob:9.26: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Hint: Missing . - -listings.at-2643-prog.cob:9.27-9.33: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Warning: Invalid syntax - -listings.at-2643-prog.cob:9.42-9.49: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^^^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Error: Invalid syntax - -listings.at-2643-prog.cob:19.11-19.15: - 16 LINKAGE SECTION. - 17 01 PAR PIC 9. - 18 PROCEDURE DIVISION RETURNING PAR. - 19 > MOVE 1 TO PAR. ----- ^^^^ - 20 GOBACK. - 21 END FUNCTION WITHOUTPAR. ->> Error: Invalid syntax - -listings.at-2643-prog.cob:19.17: - 16 LINKAGE SECTION. - 17 01 PAR PIC 9. - 18 PROCEDURE DIVISION RETURNING PAR. - 19 > MOVE 1 TO PAR. ----- ^ - 20 GOBACK. - 21 END FUNCTION WITHOUTPAR. ->> Hint: Missing . - -listings.at-2643-prog.cob:19.18-19.20: - 16 LINKAGE SECTION. - 17 01 PAR PIC 9. - 18 PROCEDURE DIVISION RETURNING PAR. - 19 > MOVE 1 TO PAR. ----- ^^ - 20 GOBACK. - 21 END FUNCTION WITHOUTPAR. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:2762:0 -listings.at-2762-prog.cob:22.29: - 19 05 FL8 PIC X(04). - 20 05 FL9 REDEFINES FL8 PIC 9(04). - 21 05 FLA. - 22 > 10 FLB OCCURS I TIMES. ----- ^ - 23 15 FLC PIC X(02). - 24 10 FLD PIC X(20). ->> Hint: Missing - -listings.at-2762-prog.cob:22.30-22.31: - 19 05 FL8 PIC X(04). - 20 05 FL9 REDEFINES FL8 PIC 9(04). - 21 05 FLA. - 22 > 10 FLB OCCURS I TIMES. ----- ^ - 23 15 FLC PIC X(02). - 24 10 FLD PIC X(20). ->> Error: Invalid syntax - -listings.at-2762-prog.cob:26.26: - 23 15 FLC PIC X(02). - 24 10 FLD PIC X(20). - 25 05 FLD1 PIC X(100). - 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. ----- ^ - 27 10 FILLER PIC X(01). - 28 05 FLD3 PIC X(3). ->> Hint: Missing - -listings.at-2762-prog.cob:26.27-26.28: - 23 15 FLC PIC X(02). - 24 10 FLD PIC X(20). - 25 05 FLD1 PIC X(100). - 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. ----- ^ - 27 10 FILLER PIC X(01). - 28 05 FLD3 PIC X(3). ->> Error: Invalid syntax - -listings.at-2762-prog.cob:26.31: - 23 15 FLC PIC X(02). - 24 10 FLD PIC X(20). - 25 05 FLD1 PIC X(100). - 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. ----- ^ - 27 10 FILLER PIC X(01). - 28 05 FLD3 PIC X(3). ->> Hint: Missing - -listings.at-2762-prog.cob:26.32-26.33: - 23 15 FLC PIC X(02). - 24 10 FLD PIC X(20). - 25 05 FLD1 PIC X(100). - 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. ----- ^ - 27 10 FILLER PIC X(01). - 28 05 FLD3 PIC X(3). ->> Error: Invalid syntax - -listings.at-2762-prog.cob:31.27: - 28 05 FLD3 PIC X(3). - 29 05 FLD4 PIC X(4). - 30 LINKAGE SECTION. - 31 > 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. ----- ^ - 32 01 O2. - 33 05 O-START PIC X(42). ->> Hint: Missing - -listings.at-2762-prog.cob:31.28-31.37: - 28 05 FLD3 PIC X(3). - 29 05 FLD4 PIC X(4). - 30 LINKAGE SECTION. - 31 > 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. ----- ^^^^^^^^^ - 32 01 O2. - 33 05 O-START PIC X(42). ->> Error: Invalid syntax - -listings.at-2762-prog.cob:34.31: - 31 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. - 32 01 O2. - 33 05 O-START PIC X(42). - 34 > 05 FILLER OCCURS UNBOUNDED DEPENDING ON FL9. ----- ^ - 35 07 O-ENTRY. - 36 10 O-E1 PIC 9(24). ->> Hint: Missing - -listings.at-2762-prog.cob:34.32-34.41: - 31 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. - 32 01 O2. - 33 05 O-START PIC X(42). - 34 > 05 FILLER OCCURS UNBOUNDED DEPENDING ON FL9. ----- ^^^^^^^^^ - 35 07 O-ENTRY. - 36 10 O-E1 PIC 9(24). ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:2848:0 -listings.at-2848-prog.cob:7.7-7.28: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > >>IF ACTIVATE DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^ - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY ->> Error: Malformed or unknown compiler directive - -listings.at-2848-prog.cob:9.22: - 6 PROCEDURE DIVISION. - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 > END-DISPLAY ----- ^ - 10 >>ELIF ACTIVATE2 DEFINED - 11 DISPLAY "OK" NO ADVANCING ->> Hint: Missing . - -listings.at-2848-prog.cob:10.7-10.13: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^^^^^^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Warning: Invalid syntax - -listings.at-2848-prog.cob:10.23: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Hint: Missing . - -listings.at-2848-prog.cob:10.24-10.31: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^^^^^^^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Warning: Invalid syntax - -listings.at-2848-prog.cob:10.31: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Hint: Missing . - -listings.at-2848-prog.cob:11.11-11.18: - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 >>ELIF ACTIVATE2 DEFINED - 11 > DISPLAY "OK" NO ADVANCING ----- ^^^^^^^ - 12 END-DISPLAY - 13 >>ELSE ->> Warning: Invalid syntax - -listings.at-2848-prog.cob:13.7-13.13: - 10 >>ELIF ACTIVATE2 DEFINED - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY - 13 > >>ELSE ----- ^^^^^^ - 14 DISPLAY "NOTOK" NO ADVANCING - 15 END-DISPLAY ->> Error: Invalid syntax - -listings.at-2848-prog.cob:16.7-16.15: - 13 >>ELSE - 14 DISPLAY "NOTOK" NO ADVANCING - 15 END-DISPLAY - 16 > >>END-IF ----- ^^^^^^^^ - 17 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:2876:0 -listings.at-2876-prog2.cob:7.7-7.26: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > $IF ACTIVATE DEFINED ----- ^^^^^^^^^^^^^^^^^^^ - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY ->> Error: Unexpected characters - -listings.at-2876-prog2.cob:10.7-10.29: - 7 $IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > $ELIF ACTIVATE2 DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Error: Unexpected characters - -listings.at-2876-prog2.cob:13.7-13.11: - 10 $ELIF ACTIVATE2 DEFINED - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY - 13 > $ELSE ----- ^^^^ - 14 DISPLAY "NOTOK" NO ADVANCING - 15 END-DISPLAY ->> Error: Unexpected characters - -listings.at-2876-prog2.cob:16.7-16.10: - 13 $ELSE - 14 DISPLAY "NOTOK" NO ADVANCING - 15 END-DISPLAY - 16 > $END ----- ^^^ - 17 STOP RUN. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/listings.at:3684:0 -listings.at-3684-expected.lst:1.6-1.7: - 1 > GnuCOBOL V.R.P prog.cob ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Unexpected indicator: `O' - -listings.at-3684-expected.lst:1.7-1.8: - 1 > GnuCOBOL V.R.P prog.cob ----- ^ - 2 - 3 LINE PG/LN A...B............................................................ ->> Error: Invalid syntax - -listings.at-3684-expected.lst:12.7-12.14: - 9 000005 DATA DIVISION. - 10 000006 WORKING-STORAGE SECTION. - 11 000007 01 empty-pic PIC. - 12 > error: missing PICTURE string ----- ^^^^^^^ - 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:12.29: - 9 000005 DATA DIVISION. - 10 000006 WORKING-STORAGE SECTION. - 11 000007 01 empty-pic PIC. - 12 > error: missing PICTURE string ----- ^ - 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ->> Hint: Missing . - -listings.at-3684-expected.lst:13.15-13.17: - 10 000006 WORKING-STORAGE SECTION. - 11 000007 01 empty-pic PIC. - 12 error: missing PICTURE string - 13 > 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ----- ^^ - 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. - 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ->> Error: Invalid syntax - -listings.at-3684-expected.lst:14.14-14.48: - 11 000007 01 empty-pic PIC. - 12 error: missing PICTURE string - 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 14 > 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 16 error: PICTURE string may not contain more than 255 characters; contains 301 ->> Error: Invalid syntax - -listings.at-3684-expected.lst:16.21: - 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. - 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 16 > error: PICTURE string may not contain more than 255 characters; contains 301 ----- ^ - 17 + characters - 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ->> Hint: Missing . - -listings.at-3684-expected.lst:16.22-16.25: - 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. - 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 16 > error: PICTURE string may not contain more than 255 characters; contains 301 ----- ^^^ - 17 + characters - 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ->> Error: Invalid syntax - -listings.at-3684-expected.lst:16.52-16.62: - 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. - 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 16 > error: PICTURE string may not contain more than 255 characters; contains 301 ----- ^^^^^^^^^^ - 17 + characters - 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ->> Error: Invalid syntax - -listings.at-3684-expected.lst:18.72: - 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 16 error: PICTURE string may not contain more than 255 characters; contains 301 - 17 + characters - 18 > 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ----- ^ - 19 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 20 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ->> Hint: Missing RENAMES - -listings.at-3684-expected.lst:19.14-19.72: - 16 error: PICTURE string may not contain more than 255 characters; contains 301 - 17 + characters - 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 19 > 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 20 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:19.72: - 16 error: PICTURE string may not contain more than 255 characters; contains 301 - 17 + characters - 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 19 > 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ----- ^ - 20 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. ->> Hint: Missing . - -listings.at-3684-expected.lst:20.14-20.72: - 17 + characters - 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 19 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX - 20 > 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. - 22 000015 01 multiple-symbols. ->> Warning: Invalid syntax - -listings.at-3684-expected.lst:24.7-24.9: - 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. - 22 000015 01 multiple-symbols. - 23 000016 03 PIC 9CRCR. - 24 > error: CR or DB may only occur once in a PICTURE string ----- ^^ - 25 000017 03 PIC 9DBDB. - 26 error: CR or DB may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:26.7-26.9: - 23 000016 03 PIC 9CRCR. - 24 error: CR or DB may only occur once in a PICTURE string - 25 000017 03 PIC 9DBDB. - 26 > error: CR or DB may only occur once in a PICTURE string ----- ^^ - 27 000018 03 PIC SS99S. - 28 error: S may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:28.7-28.8: - 25 000017 03 PIC 9DBDB. - 26 error: CR or DB may only occur once in a PICTURE string - 27 000018 03 PIC SS99S. - 28 > error: S may only occur once in a PICTURE string ----- ^ - 29 error: S must be at start of PICTURE string - 30 000019 03 PIC 99..9. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:31.7-31.8: - 28 error: S may only occur once in a PICTURE string - 29 error: S must be at start of PICTURE string - 30 000019 03 PIC 99..9. - 31 > error: . may only occur once in a PICTURE string ----- ^ - 32 000020 03 PIC 99VV9. - 33 error: V may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:33.7-33.8: - 30 000019 03 PIC 99..9. - 31 error: . may only occur once in a PICTURE string - 32 000020 03 PIC 99VV9. - 33 > error: V may only occur once in a PICTURE string ----- ^ - 34 000021 03 PIC +$99+. - 35 error: a trailing +/- sign cannot follow a leading +/- sign ->> Error: Invalid syntax - -listings.at-3684-expected.lst:35.7-35.8: - 32 000020 03 PIC 99VV9. - 33 error: V may only occur once in a PICTURE string - 34 000021 03 PIC +$99+. - 35 > error: a trailing +/- sign cannot follow a leading +/- sign ----- ^ - 36 000022 03 PIC $+99$-. - 37 error: a leading +/- sign cannot follow a leading currency symbol ->> Error: Invalid syntax - -listings.at-3684-expected.lst:37.7-37.8: - 34 000021 03 PIC +$99+. - 35 error: a trailing +/- sign cannot follow a leading +/- sign - 36 000022 03 PIC $+99$-. - 37 > error: a leading +/- sign cannot follow a leading currency symbol ----- ^ - 38 error: a trailing currency symbol cannot follow a leading currency symbol - 39 error: a trailing +/- sign cannot follow a leading +/- sign ->> Error: Invalid syntax - -listings.at-3684-expected.lst:42.7-42.14: - 39 error: a trailing +/- sign cannot follow a leading +/- sign - 40 000023 01 non-symbols. - 41 000024 03 PIC 9K. - 42 > error: invalid PICTURE character 'K' ----- ^^^^^^^ - 43 000025 03 PIC 999C. - 44 error: C must be followed by R ->> Error: Invalid syntax - -listings.at-3684-expected.lst:44.7-44.8: - 41 000024 03 PIC 9K. - 42 error: invalid PICTURE character 'K' - 43 000025 03 PIC 999C. - 44 > error: C must be followed by R ----- ^ - 45 000026 03 PIC 999D. - 46 error: D must be followed by B ->> Error: Invalid syntax - -listings.at-3684-expected.lst:46.7-46.8: - 43 000025 03 PIC 999C. - 44 error: C must be followed by R - 45 000026 03 PIC 999D. - 46 > error: D must be followed by B ----- ^ - 47 000027 01 too-many-digits PIC 9(50). - 48 error: numeric field cannot be larger than 38 digits ->> Error: Invalid syntax - -listings.at-3684-expected.lst:48.7-48.14: - 45 000026 03 PIC 999D. - 46 error: D must be followed by B - 47 000027 01 too-many-digits PIC 9(50). - 48 > error: numeric field cannot be larger than 38 digits ----- ^^^^^^^ - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 error: only up to 10 significant digits are permitted within parentheses ->> Error: Invalid syntax - -listings.at-3684-expected.lst:48.52: - 45 000026 03 PIC 999D. - 46 error: D must be followed by B - 47 000027 01 too-many-digits PIC 9(50). - 48 > error: numeric field cannot be larger than 38 digits ----- ^ - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 error: only up to 10 significant digits are permitted within parentheses ->> Hint: Missing RENAMES . - -listings.at-3684-expected.lst:49.15-49.17: - 46 error: D must be followed by B - 47 000027 01 too-many-digits PIC 9(50). - 48 error: numeric field cannot be larger than 38 digits - 49 > 000028 01 too-long-number-in-parens PIC 9(11111111111111). ----- ^^ - 50 error: only up to 10 significant digits are permitted within parentheses - 51 000029 01 nested-parens PIC 9((100)). ->> Error: Invalid syntax - -listings.at-3684-expected.lst:50.7-50.11: - 47 000027 01 too-many-digits PIC 9(50). - 48 error: numeric field cannot be larger than 38 digits - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 > error: only up to 10 significant digits are permitted within parentheses ----- ^^^^ - 51 000029 01 nested-parens PIC 9((100)). - 52 error: parentheses must be preceded by a picture symbol ->> Error: Invalid syntax - -listings.at-3684-expected.lst:50.32: - 47 000027 01 too-many-digits PIC 9(50). - 48 error: numeric field cannot be larger than 38 digits - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 > error: only up to 10 significant digits are permitted within parentheses ----- ^ - 51 000029 01 nested-parens PIC 9((100)). - 52 error: parentheses must be preceded by a picture symbol ->> Hint: Missing RENAMES - -listings.at-3684-expected.lst:50.33-50.39: - 47 000027 01 too-many-digits PIC 9(50). - 48 error: numeric field cannot be larger than 38 digits - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 > error: only up to 10 significant digits are permitted within parentheses ----- ^^^^^^ - 51 000029 01 nested-parens PIC 9((100)). - 52 error: parentheses must be preceded by a picture symbol ->> Error: Invalid syntax - -listings.at-3684-expected.lst:50.39: - 47 000027 01 too-many-digits PIC 9(50). - 48 error: numeric field cannot be larger than 38 digits - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 > error: only up to 10 significant digits are permitted within parentheses ----- ^ - 51 000029 01 nested-parens PIC 9((100)). - 52 error: parentheses must be preceded by a picture symbol ->> Hint: Missing . - -listings.at-3684-expected.lst:50.40-50.43: - 47 000027 01 too-many-digits PIC 9(50). - 48 error: numeric field cannot be larger than 38 digits - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 > error: only up to 10 significant digits are permitted within parentheses ----- ^^^ - 51 000029 01 nested-parens PIC 9((100)). - 52 error: parentheses must be preceded by a picture symbol ->> Warning: Invalid syntax - -listings.at-3684-expected.lst:52.7-52.18: - 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). - 50 error: only up to 10 significant digits are permitted within parentheses - 51 000029 01 nested-parens PIC 9((100)). - 52 > error: parentheses must be preceded by a picture symbol ----- ^^^^^^^^^^^ - 53 000030 01 unbalanced-parens PIC 9(. - 54 error: unbalanced parentheses ->> Error: Invalid syntax - -listings.at-3684-expected.lst:54.7-54.17: - 51 000029 01 nested-parens PIC 9((100)). - 52 error: parentheses must be preceded by a picture symbol - 53 000030 01 unbalanced-parens PIC 9(. - 54 > error: unbalanced parentheses ----- ^^^^^^^^^^ - 55 000031 01 multiple-pairs-of-parens PIC 9(5)(3). - 56 error: parentheses must be preceded by a picture symbol ->> Error: Invalid syntax - -listings.at-3684-expected.lst:56.7-56.18: - 53 000030 01 unbalanced-parens PIC 9(. - 54 error: unbalanced parentheses - 55 000031 01 multiple-pairs-of-parens PIC 9(5)(3). - 56 > error: parentheses must be preceded by a picture symbol ----- ^^^^^^^^^^^ - 57 000032 01 no-digit-in-parens PIC 9(). - 58 error: parentheses must contain an unsigned integer ->> Error: Invalid syntax - -listings.at-3684-expected.lst:58.7-58.18: - 55 000031 01 multiple-pairs-of-parens PIC 9(5)(3). - 56 error: parentheses must be preceded by a picture symbol - 57 000032 01 no-digit-in-parens PIC 9(). - 58 > error: parentheses must contain an unsigned integer ----- ^^^^^^^^^^^ - 59 000033 01 mutually-exclusive-symbols. - 60 000034 03 PIC P(3)9.9. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:61.7-61.8: - 58 error: parentheses must contain an unsigned integer - 59 000033 01 mutually-exclusive-symbols. - 60 000034 03 PIC P(3)9.9. - 61 > error: . cannot follow a P which is after the decimal point ----- ^ - 62 000035 03 PIC 9V.9. - 63 error: . cannot follow V ->> Error: Invalid syntax - -listings.at-3684-expected.lst:63.7-63.8: - 60 000034 03 PIC P(3)9.9. - 61 error: . cannot follow a P which is after the decimal point - 62 000035 03 PIC 9V.9. - 63 > error: . cannot follow V ----- ^ - 64 000036 03 PIC Z*. - 65 error: cannot have both Z and * in PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:65.7-65.13: - 62 000035 03 PIC 9V.9. - 63 error: . cannot follow V - 64 000036 03 PIC Z*. - 65 > error: cannot have both Z and * in PICTURE string ----- ^^^^^^ - 66 000037 03 PIC +(5)--. - 67 error: a trailing +/- sign cannot follow a floating +/- string which is before ->> Error: Invalid syntax - -listings.at-3684-expected.lst:67.7-67.8: - 64 000036 03 PIC Z*. - 65 error: cannot have both Z and * in PICTURE string - 66 000037 03 PIC +(5)--. - 67 > error: a trailing +/- sign cannot follow a floating +/- string which is before ----- ^ - 68 + the decimal point - 69 error: a trailing +/- sign may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:71.7-71.8: - 68 + the decimal point - 69 error: a trailing +/- sign may only occur once in a PICTURE string - 70 000038 03 PIC $(4)Z(9). - 71 > error: a Z or * which is before the decimal point cannot follow a floating ----- ^ - 72 + currency symbol string which is before the decimal point - 73 000039 03 PIC $$B*(4). ->> Error: Invalid syntax - -listings.at-3684-expected.lst:74.7-74.8: - 71 error: a Z or * which is before the decimal point cannot follow a floating - 72 + currency symbol string which is before the decimal point - 73 000039 03 PIC $$B*(4). - 74 > error: a Z or * which is before the decimal point cannot follow a floating ----- ^ - 75 + currency symbol string which is before the decimal point - 76 000040 03 PIC NX. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:77.7-77.8: - 74 error: a Z or * which is before the decimal point cannot follow a floating - 75 + currency symbol string which is before the decimal point - 76 000040 03 PIC NX. - 77 > error: A or X cannot follow N ----- ^ - 78 000041 03 PIC AN. - 79 error: N cannot follow A or X ->> Error: Invalid syntax - -listings.at-3684-expected.lst:79.7-79.8: - 76 000040 03 PIC NX. - 77 error: A or X cannot follow N - 78 000041 03 PIC AN. - 79 > error: N cannot follow A or X ----- ^ - 80 000042 03 PIC AZ(3). - 81 error: a Z or * which is before the decimal point cannot follow A or X ->> Error: Invalid syntax - -listings.at-3684-expected.lst:81.7-81.8: - 78 000041 03 PIC AN. - 79 error: N cannot follow A or X - 80 000042 03 PIC AZ(3). - 81 > error: a Z or * which is before the decimal point cannot follow A or X ----- ^ - 82 000043 03 PIC 99.99XXXXX. - 83 error: A or X cannot follow . ->> Error: Invalid syntax - -listings.at-3684-expected.lst:83.7-83.8: - 80 000042 03 PIC AZ(3). - 81 error: a Z or * which is before the decimal point cannot follow A or X - 82 000043 03 PIC 99.99XXXXX. - 83 > error: A or X cannot follow . ----- ^ - 84 000044 03 PIC SA. - 85 error: A or X cannot follow S ->> Error: Invalid syntax - -listings.at-3684-expected.lst:85.7-85.8: - 82 000043 03 PIC 99.99XXXXX. - 83 error: A or X cannot follow . - 84 000044 03 PIC SA. - 85 > error: A or X cannot follow S ----- ^ - 86 000045 03 PIC $$$B+++B---. - 87 error: a leading +/- sign cannot follow B, 0 or / ->> Error: Invalid syntax - -listings.at-3684-expected.lst:87.7-87.8: - 84 000044 03 PIC SA. - 85 error: A or X cannot follow S - 86 000045 03 PIC $$$B+++B---. - 87 > error: a leading +/- sign cannot follow B, 0 or / ----- ^ - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point ->> Error: Invalid syntax - -listings.at-3684-expected.lst:87.45-87.47: - 84 000044 03 PIC SA. - 85 error: A or X cannot follow S - 86 000045 03 PIC $$$B+++B---. - 87 > error: a leading +/- sign cannot follow B, 0 or / ----- ^^ - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point ->> Error: Invalid syntax - -listings.at-3684-expected.lst:88.17-88.20: - 85 error: A or X cannot follow S - 86 000045 03 PIC $$$B+++B---. - 87 error: a leading +/- sign cannot follow B, 0 or / - 88 > error: a leading +/- sign cannot follow a floating currency symbol string ----- ^^^ - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:88.26-88.32: - 85 error: A or X cannot follow S - 86 000045 03 PIC $$$B+++B---. - 87 error: a leading +/- sign cannot follow B, 0 or / - 88 > error: a leading +/- sign cannot follow a floating currency symbol string ----- ^^^^^^ - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:89.16-89.22: - 86 000045 03 PIC $$$B+++B---. - 87 error: a leading +/- sign cannot follow B, 0 or / - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 > + which is before the decimal point ----- ^^^^^^ - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 error: a trailing +/- sign cannot follow a leading +/- sign ->> Error: Invalid syntax - -listings.at-3684-expected.lst:90.17-90.20: - 87 error: a leading +/- sign cannot follow B, 0 or / - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point - 90 > error: a leading +/- sign may only occur once in a PICTURE string ----- ^^^ - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 error: a trailing +/- sign may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:90.25: - 87 error: a leading +/- sign cannot follow B, 0 or / - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point - 90 > error: a leading +/- sign may only occur once in a PICTURE string ----- ^ - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 error: a trailing +/- sign may only occur once in a PICTURE string ->> Hint: Missing LEADING - -listings.at-3684-expected.lst:90.26-90.29: - 87 error: a leading +/- sign cannot follow B, 0 or / - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point - 90 > error: a leading +/- sign may only occur once in a PICTURE string ----- ^^^ - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 error: a trailing +/- sign may only occur once in a PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:91.7-91.8: - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 > error: a trailing +/- sign cannot follow a leading +/- sign ----- ^ - 92 error: a trailing +/- sign may only occur once in a PICTURE string - 93 000046 03 PIC +++9+. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:91.18-91.21: - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 > error: a trailing +/- sign cannot follow a leading +/- sign ----- ^^^ - 92 error: a trailing +/- sign may only occur once in a PICTURE string - 93 000046 03 PIC +++9+. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:91.27-91.33: - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 > error: a trailing +/- sign cannot follow a leading +/- sign ----- ^^^^^^ - 92 error: a trailing +/- sign may only occur once in a PICTURE string - 93 000046 03 PIC +++9+. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:91.51-91.54: - 88 error: a leading +/- sign cannot follow a floating currency symbol string - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 > error: a trailing +/- sign cannot follow a leading +/- sign ----- ^^^ - 92 error: a trailing +/- sign may only occur once in a PICTURE string - 93 000046 03 PIC +++9+. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:92.7-92.8: - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 > error: a trailing +/- sign may only occur once in a PICTURE string ----- ^ - 93 000046 03 PIC +++9+. - 94 error: a trailing +/- sign cannot follow a floating +/- string which is before ->> Error: Invalid syntax - -listings.at-3684-expected.lst:92.18-92.21: - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 > error: a trailing +/- sign may only occur once in a PICTURE string ----- ^^^ - 93 000046 03 PIC +++9+. - 94 error: a trailing +/- sign cannot follow a floating +/- string which is before ->> Error: Invalid syntax - -listings.at-3684-expected.lst:92.26: - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 > error: a trailing +/- sign may only occur once in a PICTURE string ----- ^ - 93 000046 03 PIC +++9+. - 94 error: a trailing +/- sign cannot follow a floating +/- string which is before ->> Hint: Missing LEADING - -listings.at-3684-expected.lst:92.27-92.30: - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 > error: a trailing +/- sign may only occur once in a PICTURE string ----- ^^^ - 93 000046 03 PIC +++9+. - 94 error: a trailing +/- sign cannot follow a floating +/- string which is before ->> Error: Invalid syntax - -listings.at-3684-expected.lst:92.66: - 89 + which is before the decimal point - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 > error: a trailing +/- sign may only occur once in a PICTURE string ----- ^ - 93 000046 03 PIC +++9+. - 94 error: a trailing +/- sign cannot follow a floating +/- string which is before ->> Hint: Missing . - -listings.at-3684-expected.lst:93.19-93.21: - 90 error: a leading +/- sign may only occur once in a PICTURE string - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 error: a trailing +/- sign may only occur once in a PICTURE string - 93 > 000046 03 PIC +++9+. ----- ^^ - 94 error: a trailing +/- sign cannot follow a floating +/- string which is before - 95 + the decimal point ->> Error: Invalid syntax - -listings.at-3684-expected.lst:94.7-94.8: - 91 error: a trailing +/- sign cannot follow a leading +/- sign - 92 error: a trailing +/- sign may only occur once in a PICTURE string - 93 000046 03 PIC +++9+. - 94 > error: a trailing +/- sign cannot follow a floating +/- string which is before ----- ^ - 95 + the decimal point - 96 000047 03 PIC +9(5)CR. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:97.7-97.9: - 94 error: a trailing +/- sign cannot follow a floating +/- string which is before - 95 + the decimal point - 96 000047 03 PIC +9(5)CR. - 97 > error: CR or DB cannot follow a leading +/- sign ----- ^^ - 98 000048 03 PIC -9(5)DB. - 99 error: CR or DB cannot follow a leading +/- sign ->> Error: Invalid syntax - -listings.at-3684-expected.lst:99.7-99.9: - 96 000047 03 PIC +9(5)CR. - 97 error: CR or DB cannot follow a leading +/- sign - 98 000048 03 PIC -9(5)DB. - 99 > error: CR or DB cannot follow a leading +/- sign ----- ^^ - 100 000049 01 non-rightmost-leftmost-symbols. - 101 000050 03 PIC BBB+BB99. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:102.7-102.8: - 99 error: CR or DB cannot follow a leading +/- sign - 100 000049 01 non-rightmost-leftmost-symbols. - 101 000050 03 PIC BBB+BB99. - 102 > error: a leading +/- sign cannot follow B, 0 or / ----- ^ - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 ->> Error: Invalid syntax - -listings.at-3684-expected.lst:102.44: - 99 error: CR or DB cannot follow a leading +/- sign - 100 000049 01 non-rightmost-leftmost-symbols. - 101 000050 03 PIC BBB+BB99. - 102 > error: a leading +/- sign cannot follow B, 0 or / ----- ^ - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 ->> Hint: Missing . - -listings.at-3684-expected.lst:102.45-102.47: - 99 error: CR or DB cannot follow a leading +/- sign - 100 000049 01 non-rightmost-leftmost-symbols. - 101 000050 03 PIC BBB+BB99. - 102 > error: a leading +/- sign cannot follow B, 0 or / ----- ^^ - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 ->> Error: Invalid syntax - -listings.at-3684-expected.lst:104.7-104.8: - 101 000050 03 PIC BBB+BB99. - 102 error: a leading +/- sign cannot follow B, 0 or / - 103 000051 03 PIC 99-B. - 104 > error: a leading +/- sign cannot follow 9 ----- ^ - 105 000052 03 PIC 9CRB. - 106 error: B, 0 or / cannot follow CR or DB ->> Error: Invalid syntax - -listings.at-3684-expected.lst:104.41: - 101 000050 03 PIC BBB+BB99. - 102 error: a leading +/- sign cannot follow B, 0 or / - 103 000051 03 PIC 99-B. - 104 > error: a leading +/- sign cannot follow 9 ----- ^ - 105 000052 03 PIC 9CRB. - 106 error: B, 0 or / cannot follow CR or DB ->> Hint: Missing . - -listings.at-3684-expected.lst:105.19-105.21: - 102 error: a leading +/- sign cannot follow B, 0 or / - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 - 105 > 000052 03 PIC 9CRB. ----- ^^ - 106 error: B, 0 or / cannot follow CR or DB - 107 000053 03 PIC DB9(5). ->> Error: Invalid syntax - -listings.at-3684-expected.lst:106.7-106.8: - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 - 105 000052 03 PIC 9CRB. - 106 > error: B, 0 or / cannot follow CR or DB ----- ^ - 107 000053 03 PIC DB9(5). - 108 error: 9 cannot follow CR or DB ->> Error: Invalid syntax - -listings.at-3684-expected.lst:106.12-106.14: - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 - 105 000052 03 PIC 9CRB. - 106 > error: B, 0 or / cannot follow CR or DB ----- ^^ - 107 000053 03 PIC DB9(5). - 108 error: 9 cannot follow CR or DB ->> Error: Invalid syntax - -listings.at-3684-expected.lst:106.23: - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 - 105 000052 03 PIC 9CRB. - 106 > error: B, 0 or / cannot follow CR or DB ----- ^ - 107 000053 03 PIC DB9(5). - 108 error: 9 cannot follow CR or DB ->> Hint: Missing RENAMES - -listings.at-3684-expected.lst:106.24-106.30: - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 - 105 000052 03 PIC 9CRB. - 106 > error: B, 0 or / cannot follow CR or DB ----- ^^^^^^ - 107 000053 03 PIC DB9(5). - 108 error: 9 cannot follow CR or DB ->> Error: Invalid syntax - -listings.at-3684-expected.lst:106.30: - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 - 105 000052 03 PIC 9CRB. - 106 > error: B, 0 or / cannot follow CR or DB ----- ^ - 107 000053 03 PIC DB9(5). - 108 error: 9 cannot follow CR or DB ->> Hint: Missing . - -listings.at-3684-expected.lst:106.31-106.33: - 103 000051 03 PIC 99-B. - 104 error: a leading +/- sign cannot follow 9 - 105 000052 03 PIC 9CRB. - 106 > error: B, 0 or / cannot follow CR or DB ----- ^^ - 107 000053 03 PIC DB9(5). - 108 error: 9 cannot follow CR or DB ->> Warning: Invalid syntax - -listings.at-3684-expected.lst:108.15: - 105 000052 03 PIC 9CRB. - 106 error: B, 0 or / cannot follow CR or DB - 107 000053 03 PIC DB9(5). - 108 > error: 9 cannot follow CR or DB ----- ^ - 109 000054 03 PIC 99$$$. - 110 error: a floating currency symbol string which is before the decimal point ->> Hint: Missing RENAMES - -listings.at-3684-expected.lst:108.16-108.22: - 105 000052 03 PIC 9CRB. - 106 error: B, 0 or / cannot follow CR or DB - 107 000053 03 PIC DB9(5). - 108 > error: 9 cannot follow CR or DB ----- ^^^^^^ - 109 000054 03 PIC 99$$$. - 110 error: a floating currency symbol string which is before the decimal point ->> Error: Invalid syntax - -listings.at-3684-expected.lst:108.22: - 105 000052 03 PIC 9CRB. - 106 error: B, 0 or / cannot follow CR or DB - 107 000053 03 PIC DB9(5). - 108 > error: 9 cannot follow CR or DB ----- ^ - 109 000054 03 PIC 99$$$. - 110 error: a floating currency symbol string which is before the decimal point ->> Hint: Missing . - -listings.at-3684-expected.lst:108.23-108.25: - 105 000052 03 PIC 9CRB. - 106 error: B, 0 or / cannot follow CR or DB - 107 000053 03 PIC DB9(5). - 108 > error: 9 cannot follow CR or DB ----- ^^ - 109 000054 03 PIC 99$$$. - 110 error: a floating currency symbol string which is before the decimal point ->> Warning: Invalid syntax - -listings.at-3684-expected.lst:110.7-110.8: - 107 000053 03 PIC DB9(5). - 108 error: 9 cannot follow CR or DB - 109 000054 03 PIC 99$$$. - 110 > error: a floating currency symbol string which is before the decimal point ----- ^ - 111 + cannot follow 9 - 112 000055 03 PIC 99$B. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:111.22: - 108 error: 9 cannot follow CR or DB - 109 000054 03 PIC 99$$$. - 110 error: a floating currency symbol string which is before the decimal point - 111 > + cannot follow 9 ----- ^ - 112 000055 03 PIC 99$B. - 113 error: a leading currency symbol cannot follow 9 ->> Hint: Missing . - -listings.at-3684-expected.lst:112.19-112.21: - 109 000054 03 PIC 99$$$. - 110 error: a floating currency symbol string which is before the decimal point - 111 + cannot follow 9 - 112 > 000055 03 PIC 99$B. ----- ^^ - 113 error: a leading currency symbol cannot follow 9 - 114 000056 03 PIC 0$99. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:113.7-113.8: - 110 error: a floating currency symbol string which is before the decimal point - 111 + cannot follow 9 - 112 000055 03 PIC 99$B. - 113 > error: a leading currency symbol cannot follow 9 ----- ^ - 114 000056 03 PIC 0$99. - 115 error: a leading currency symbol cannot follow B, 0 or / ->> Error: Invalid syntax - -listings.at-3684-expected.lst:113.48: - 110 error: a floating currency symbol string which is before the decimal point - 111 + cannot follow 9 - 112 000055 03 PIC 99$B. - 113 > error: a leading currency symbol cannot follow 9 ----- ^ - 114 000056 03 PIC 0$99. - 115 error: a leading currency symbol cannot follow B, 0 or / ->> Hint: Missing . - -listings.at-3684-expected.lst:114.19-114.21: - 111 + cannot follow 9 - 112 000055 03 PIC 99$B. - 113 error: a leading currency symbol cannot follow 9 - 114 > 000056 03 PIC 0$99. ----- ^^ - 115 error: a leading currency symbol cannot follow B, 0 or / - 116 000057 03 PIC PPPVP9. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:115.7-115.8: - 112 000055 03 PIC 99$B. - 113 error: a leading currency symbol cannot follow 9 - 114 000056 03 PIC 0$99. - 115 > error: a leading currency symbol cannot follow B, 0 or / ----- ^ - 116 000057 03 PIC PPPVP9. - 117 error: P must be at start or end of PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:115.51: - 112 000055 03 PIC 99$B. - 113 error: a leading currency symbol cannot follow 9 - 114 000056 03 PIC 0$99. - 115 > error: a leading currency symbol cannot follow B, 0 or / ----- ^ - 116 000057 03 PIC PPPVP9. - 117 error: P must be at start or end of PICTURE string ->> Hint: Missing . - -listings.at-3684-expected.lst:115.52-115.54: - 112 000055 03 PIC 99$B. - 113 error: a leading currency symbol cannot follow 9 - 114 000056 03 PIC 0$99. - 115 > error: a leading currency symbol cannot follow B, 0 or / ----- ^^ - 116 000057 03 PIC PPPVP9. - 117 error: P must be at start or end of PICTURE string ->> Error: Invalid syntax - -listings.at-3684-expected.lst:117.7-117.8: - 114 000056 03 PIC 0$99. - 115 error: a leading currency symbol cannot follow B, 0 or / - 116 000057 03 PIC PPPVP9. - 117 > error: P must be at start or end of PICTURE string ----- ^ - 118 error: V cannot follow a P which is after the decimal point - 119 000058 01 missing-symbols. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:117.32: - 114 000056 03 PIC 0$99. - 115 error: a leading currency symbol cannot follow B, 0 or / - 116 000057 03 PIC PPPVP9. - 117 > error: P must be at start or end of PICTURE string ----- ^ - 118 error: V cannot follow a P which is after the decimal point - 119 000058 01 missing-symbols. ->> Hint: Missing PROGRAM - -listings.at-3684-expected.lst:117.33-117.35: - 114 000056 03 PIC 0$99. - 115 error: a leading currency symbol cannot follow B, 0 or / - 116 000057 03 PIC PPPVP9. - 117 > error: P must be at start or end of PICTURE string ----- ^^ - 118 error: V cannot follow a P which is after the decimal point - 119 000058 01 missing-symbols. ->> Error: Invalid syntax - -listings.at-3684-expected.lst:118.16-118.22: - 115 error: a leading currency symbol cannot follow B, 0 or / - 116 000057 03 PIC PPPVP9. - 117 error: P must be at start or end of PICTURE string - 118 > error: V cannot follow a P which is after the decimal point ----- ^^^^^^ - 119 000058 01 missing-symbols. - 120 000059 03 PIC B(5). ->> Error: Invalid syntax - -listings.at-3684-expected.lst:153.6-153.7: - 150 000079 03 PIC ++.++. - 151 000080 03 PIC $(integer-constant). - 152 000081 03 PIC $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ - 153 > warning: uncommon parentheses ----- ^ - 154 000082 -(integer-constant). *> CHECKME: should this be really valid? - 155 000083 ->> Error: Unexpected indicator: `g' - -listings.at-3684-expected.lst:158.68-158.72: - 155 000083 - 156 000084 - 157 000085 01 PC-COLOR-BACKGROUND-TABLE. - 158 > 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". ----- ^^^^ - 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". - 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". ->> Error: Missing continuation of `00' - -listings.at-3684-expected.lst:159.68-159.72: - 156 000084 - 157 000085 01 PC-COLOR-BACKGROUND-TABLE. - 158 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". - 159 > 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". ----- ^^^^ - 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". - 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". ->> Error: Missing continuation of `00' - -listings.at-3684-expected.lst:160.68-160.72: - 157 000085 01 PC-COLOR-BACKGROUND-TABLE. - 158 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". - 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". - 160 > 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". ----- ^^^^ - 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". - 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". ->> Error: Missing continuation of `00' - -listings.at-3684-expected.lst:161.68-161.72: - 158 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". - 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". - 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". - 161 > 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". ----- ^^^^ - 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". - 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". ->> Error: Missing continuation of `00' - -listings.at-3684-expected.lst:162.68-162.72: - 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". - 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". - 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". - 162 > 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". ----- ^^^^ - 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". - 164 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". ->> Error: Missing continuation of `01' - -listings.at-3684-expected.lst:163.68-163.72: - 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". - 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". - 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". - 163 > 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". ----- ^^^^ - 164 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". - 165 000093 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000". ->> Error: Missing continuation of `01' - -listings.at-3684-expected.lst:164.68-164.72: - 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". - 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". - 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". - 164 > 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". ----- ^^^^ - 165 000093 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000". - 166 000094 01 FILLER REDEFINES PC-COLOR-BACKGROUND-TABLE. ->> Error: Missing continuation of `01' - -listings.at-3684-expected.lst:165.68-165.72: - 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". - 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". - 164 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". - 165 > 000093 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000". ----- ^^^^ - 166 000094 01 FILLER REDEFINES PC-COLOR-BACKGROUND-TABLE. - 167 000095 05 COLOR-BACKGROUND ->> Error: Missing continuation of `01' - -listings.at-3684-expected.lst:170.6-170.7: - 167 000095 05 COLOR-BACKGROUND - 168 000096 OCCURS 8 TIMES PIC 1(8) BIT. - 169 - 170 > SIZE TYPE LVL NAME PICTURE ----- ^ - 171 - 172 WORKING-STORAGE SECTION ->> Error: Unexpected indicator: `T' - -listings.at-3684-expected.lst:172.6-172.7: - 169 - 170 SIZE TYPE LVL NAME PICTURE - 171 - 172 > WORKING-STORAGE SECTION ----- ^ - 173 - 174 00000 ALPHANUMERIC 01 empty-pic INVALID ->> Error: Unexpected indicator: `W' - -listings.at-3684-expected.lst:174.6-174.7: - 171 - 172 WORKING-STORAGE SECTION - 173 - 174 > 00000 ALPHANUMERIC 01 empty-pic INVALID ----- ^ - 175 - 176 00077 ALPHANUMERIC 01 too-long-pic XXXXXXXXXXXXXXXXXXXX... ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:176.6-176.7: - 173 - 174 00000 ALPHANUMERIC 01 empty-pic INVALID - 175 - 176 > 00077 ALPHANUMERIC 01 too-long-pic XXXXXXXXXXXXXXXXXXXX... ----- ^ - 177 - 178 00000 ALPHANUMERIC 01 too-long-pic2 INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:178.6-178.7: - 175 - 176 00077 ALPHANUMERIC 01 too-long-pic XXXXXXXXXXXXXXXXXXXX... - 177 - 178 > 00000 ALPHANUMERIC 01 too-long-pic2 INVALID ----- ^ - 179 - 180 00000 GROUP 01 multiple-symbols ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:180.6-180.7: - 177 - 178 00000 ALPHANUMERIC 01 too-long-pic2 INVALID - 179 - 180 > 00000 GROUP 01 multiple-symbols ----- ^ - 181 00000 ALPHANUMERIC 03 FILLER INVALID - 182 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:181.6-181.7: - 178 00000 ALPHANUMERIC 01 too-long-pic2 INVALID - 179 - 180 00000 GROUP 01 multiple-symbols - 181 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 182 00000 ALPHANUMERIC 03 FILLER INVALID - 183 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:182.6-182.7: - 179 - 180 00000 GROUP 01 multiple-symbols - 181 00000 ALPHANUMERIC 03 FILLER INVALID - 182 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 183 00000 ALPHANUMERIC 03 FILLER INVALID - 184 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:183.6-183.7: - 180 00000 GROUP 01 multiple-symbols - 181 00000 ALPHANUMERIC 03 FILLER INVALID - 182 00000 ALPHANUMERIC 03 FILLER INVALID - 183 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 184 00000 ALPHANUMERIC 03 FILLER INVALID - 185 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:184.6-184.7: - 181 00000 ALPHANUMERIC 03 FILLER INVALID - 182 00000 ALPHANUMERIC 03 FILLER INVALID - 183 00000 ALPHANUMERIC 03 FILLER INVALID - 184 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 185 00000 ALPHANUMERIC 03 FILLER INVALID - 186 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:185.6-185.7: - 182 00000 ALPHANUMERIC 03 FILLER INVALID - 183 00000 ALPHANUMERIC 03 FILLER INVALID - 184 00000 ALPHANUMERIC 03 FILLER INVALID - 185 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 186 00000 ALPHANUMERIC 03 FILLER INVALID - 187 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:186.6-186.7: - 183 00000 ALPHANUMERIC 03 FILLER INVALID - 184 00000 ALPHANUMERIC 03 FILLER INVALID - 185 00000 ALPHANUMERIC 03 FILLER INVALID - 186 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 187 00000 ALPHANUMERIC 03 FILLER INVALID - 188 ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:187.6-187.7: - 184 00000 ALPHANUMERIC 03 FILLER INVALID - 185 00000 ALPHANUMERIC 03 FILLER INVALID - 186 00000 ALPHANUMERIC 03 FILLER INVALID - 187 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 188 - 189 00000 GROUP 01 non-symbols ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:189.6-189.7: - 186 00000 ALPHANUMERIC 03 FILLER INVALID - 187 00000 ALPHANUMERIC 03 FILLER INVALID - 188 - 189 > 00000 GROUP 01 non-symbols ----- ^ - 190 00000 ALPHANUMERIC 03 FILLER INVALID - 191 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:190.6-190.7: - 187 00000 ALPHANUMERIC 03 FILLER INVALID - 188 - 189 00000 GROUP 01 non-symbols - 190 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 191 00000 ALPHANUMERIC 03 FILLER INVALID - 192 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:191.6-191.7: - 188 - 189 00000 GROUP 01 non-symbols - 190 00000 ALPHANUMERIC 03 FILLER INVALID - 191 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 192 00000 ALPHANUMERIC 03 FILLER INVALID - 193 ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:192.6-192.7: - 189 00000 GROUP 01 non-symbols - 190 00000 ALPHANUMERIC 03 FILLER INVALID - 191 00000 ALPHANUMERIC 03 FILLER INVALID - 192 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 193 - 194 00050 NUMERIC 01 too-many-digits 9(50) ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:194.6-194.7: - 191 00000 ALPHANUMERIC 03 FILLER INVALID - 192 00000 ALPHANUMERIC 03 FILLER INVALID - 193 - 194 > 00050 NUMERIC 01 too-many-digits 9(50) ----- ^ - 195 - 196 00000 ALPHANUMERIC 01 too-long-number-in-parens INVALID ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:196.6-196.7: - 193 - 194 00050 NUMERIC 01 too-many-digits 9(50) - 195 - 196 > 00000 ALPHANUMERIC 01 too-long-number-in-parens INVALID ----- ^ - 197 - 198 00000 ALPHANUMERIC 01 nested-parens INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:198.6-198.7: - 195 - 196 00000 ALPHANUMERIC 01 too-long-number-in-parens INVALID - 197 - 198 > 00000 ALPHANUMERIC 01 nested-parens INVALID ----- ^ - 199 - 200 00000 ALPHANUMERIC 01 unbalanced-parens INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:200.6-200.7: - 197 - 198 00000 ALPHANUMERIC 01 nested-parens INVALID - 199 - 200 > 00000 ALPHANUMERIC 01 unbalanced-parens INVALID ----- ^ - 201 - 202 00000 ALPHANUMERIC 01 multiple-pairs-of-parens INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:202.6-202.7: - 199 - 200 00000 ALPHANUMERIC 01 unbalanced-parens INVALID - 201 - 202 > 00000 ALPHANUMERIC 01 multiple-pairs-of-parens INVALID ----- ^ - 203 - 204 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:204.6-204.7: - 201 - 202 00000 ALPHANUMERIC 01 multiple-pairs-of-parens INVALID - 203 - 204 > 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID ----- ^ - 205 - 206 00000 GROUP 01 mutually-exclusive-symbols ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:206.6-206.7: - 203 - 204 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID - 205 - 206 > 00000 GROUP 01 mutually-exclusive-symbols ----- ^ - 207 00000 ALPHANUMERIC 03 FILLER INVALID - 208 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:207.6-207.7: - 204 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID - 205 - 206 00000 GROUP 01 mutually-exclusive-symbols - 207 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 208 00000 ALPHANUMERIC 03 FILLER INVALID - 209 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:208.6-208.7: - 205 - 206 00000 GROUP 01 mutually-exclusive-symbols - 207 00000 ALPHANUMERIC 03 FILLER INVALID - 208 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 209 00000 ALPHANUMERIC 03 FILLER INVALID - 210 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:209.6-209.7: - 206 00000 GROUP 01 mutually-exclusive-symbols - 207 00000 ALPHANUMERIC 03 FILLER INVALID - 208 00000 ALPHANUMERIC 03 FILLER INVALID - 209 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 210 00000 ALPHANUMERIC 03 FILLER INVALID - 211 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:210.6-210.7: - 207 00000 ALPHANUMERIC 03 FILLER INVALID - 208 00000 ALPHANUMERIC 03 FILLER INVALID - 209 00000 ALPHANUMERIC 03 FILLER INVALID - 210 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 211 00000 ALPHANUMERIC 03 FILLER INVALID - 212 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:211.6-211.7: - 208 00000 ALPHANUMERIC 03 FILLER INVALID - 209 00000 ALPHANUMERIC 03 FILLER INVALID - 210 00000 ALPHANUMERIC 03 FILLER INVALID - 211 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 212 00000 ALPHANUMERIC 03 FILLER INVALID - 213 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:212.6-212.7: - 209 00000 ALPHANUMERIC 03 FILLER INVALID - 210 00000 ALPHANUMERIC 03 FILLER INVALID - 211 00000 ALPHANUMERIC 03 FILLER INVALID - 212 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 213 00000 ALPHANUMERIC 03 FILLER INVALID - 214 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:213.6-213.7: - 210 00000 ALPHANUMERIC 03 FILLER INVALID - 211 00000 ALPHANUMERIC 03 FILLER INVALID - 212 00000 ALPHANUMERIC 03 FILLER INVALID - 213 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 214 00000 ALPHANUMERIC 03 FILLER INVALID - 215 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:214.6-214.7: - 211 00000 ALPHANUMERIC 03 FILLER INVALID - 212 00000 ALPHANUMERIC 03 FILLER INVALID - 213 00000 ALPHANUMERIC 03 FILLER INVALID - 214 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 215 00000 ALPHANUMERIC 03 FILLER INVALID - 216 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:215.6-215.7: - 212 00000 ALPHANUMERIC 03 FILLER INVALID - 213 00000 ALPHANUMERIC 03 FILLER INVALID - 214 00000 ALPHANUMERIC 03 FILLER INVALID - 215 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 216 00000 ALPHANUMERIC 03 FILLER INVALID - 217 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:216.6-216.7: - 213 00000 ALPHANUMERIC 03 FILLER INVALID - 214 00000 ALPHANUMERIC 03 FILLER INVALID - 215 00000 ALPHANUMERIC 03 FILLER INVALID - 216 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 217 00000 ALPHANUMERIC 03 FILLER INVALID - 218 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:217.6-217.7: - 214 00000 ALPHANUMERIC 03 FILLER INVALID - 215 00000 ALPHANUMERIC 03 FILLER INVALID - 216 00000 ALPHANUMERIC 03 FILLER INVALID - 217 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 218 00000 ALPHANUMERIC 03 FILLER INVALID - 219 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:218.6-218.7: - 215 00000 ALPHANUMERIC 03 FILLER INVALID - 216 00000 ALPHANUMERIC 03 FILLER INVALID - 217 00000 ALPHANUMERIC 03 FILLER INVALID - 218 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 219 00000 ALPHANUMERIC 03 FILLER INVALID - 220 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:219.6-219.7: - 216 00000 ALPHANUMERIC 03 FILLER INVALID - 217 00000 ALPHANUMERIC 03 FILLER INVALID - 218 00000 ALPHANUMERIC 03 FILLER INVALID - 219 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 220 00000 ALPHANUMERIC 03 FILLER INVALID - 221 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:220.6-220.7: - 217 00000 ALPHANUMERIC 03 FILLER INVALID - 218 00000 ALPHANUMERIC 03 FILLER INVALID - 219 00000 ALPHANUMERIC 03 FILLER INVALID - 220 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 221 00000 ALPHANUMERIC 03 FILLER INVALID - 222 ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:221.6-221.7: - 218 00000 ALPHANUMERIC 03 FILLER INVALID - 219 00000 ALPHANUMERIC 03 FILLER INVALID - 220 00000 ALPHANUMERIC 03 FILLER INVALID - 221 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 222 - 223 00000 GROUP 01 non-rightmost-leftmost-symbols ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:223.6-223.7: - 220 00000 ALPHANUMERIC 03 FILLER INVALID - 221 00000 ALPHANUMERIC 03 FILLER INVALID - 222 - 223 > 00000 GROUP 01 non-rightmost-leftmost-symbols ----- ^ - 224 00000 ALPHANUMERIC 03 FILLER INVALID - 225 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:224.6-224.7: - 221 00000 ALPHANUMERIC 03 FILLER INVALID - 222 - 223 00000 GROUP 01 non-rightmost-leftmost-symbols - 224 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 225 00000 ALPHANUMERIC 03 FILLER INVALID - 226 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:225.6-225.7: - 222 - 223 00000 GROUP 01 non-rightmost-leftmost-symbols - 224 00000 ALPHANUMERIC 03 FILLER INVALID - 225 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 226 00000 ALPHANUMERIC 03 FILLER INVALID - 227 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:226.6-226.7: - 223 00000 GROUP 01 non-rightmost-leftmost-symbols - 224 00000 ALPHANUMERIC 03 FILLER INVALID - 225 00000 ALPHANUMERIC 03 FILLER INVALID - 226 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 227 00000 ALPHANUMERIC 03 FILLER INVALID - 228 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:227.6-227.7: - 224 00000 ALPHANUMERIC 03 FILLER INVALID - 225 00000 ALPHANUMERIC 03 FILLER INVALID - 226 00000 ALPHANUMERIC 03 FILLER INVALID - 227 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 228 00000 ALPHANUMERIC 03 FILLER INVALID - 229 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:228.6-228.7: - 225 00000 ALPHANUMERIC 03 FILLER INVALID - 226 00000 ALPHANUMERIC 03 FILLER INVALID - 227 00000 ALPHANUMERIC 03 FILLER INVALID - 228 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 229 00000 ALPHANUMERIC 03 FILLER INVALID - 230 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:229.6-229.7: - 226 00000 ALPHANUMERIC 03 FILLER INVALID - 227 00000 ALPHANUMERIC 03 FILLER INVALID - 228 00000 ALPHANUMERIC 03 FILLER INVALID - 229 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 230 00000 ALPHANUMERIC 03 FILLER INVALID - 231 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:230.6-230.7: - 227 00000 ALPHANUMERIC 03 FILLER INVALID - 228 00000 ALPHANUMERIC 03 FILLER INVALID - 229 00000 ALPHANUMERIC 03 FILLER INVALID - 230 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 231 00000 ALPHANUMERIC 03 FILLER INVALID - 232 ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:231.6-231.7: - 228 00000 ALPHANUMERIC 03 FILLER INVALID - 229 00000 ALPHANUMERIC 03 FILLER INVALID - 230 00000 ALPHANUMERIC 03 FILLER INVALID - 231 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 232 - 233 00000 GROUP 01 missing-symbols ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:233.6-233.7: - 230 00000 ALPHANUMERIC 03 FILLER INVALID - 231 00000 ALPHANUMERIC 03 FILLER INVALID - 232 - 233 > 00000 GROUP 01 missing-symbols ----- ^ - 234 00000 ALPHANUMERIC 03 FILLER INVALID - 235 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:234.6-234.7: - 231 00000 ALPHANUMERIC 03 FILLER INVALID - 232 - 233 00000 GROUP 01 missing-symbols - 234 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 235 00000 ALPHANUMERIC 03 FILLER INVALID - 236 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:235.6-235.7: - 232 - 233 00000 GROUP 01 missing-symbols - 234 00000 ALPHANUMERIC 03 FILLER INVALID - 235 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 236 00000 ALPHANUMERIC 03 FILLER INVALID - 237 ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:236.6-236.7: - 233 00000 GROUP 01 missing-symbols - 234 00000 ALPHANUMERIC 03 FILLER INVALID - 235 00000 ALPHANUMERIC 03 FILLER INVALID - 236 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 237 - 238 00000 GROUP 01 invalid-constant ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:238.6-238.7: - 235 00000 ALPHANUMERIC 03 FILLER INVALID - 236 00000 ALPHANUMERIC 03 FILLER INVALID - 237 - 238 > 00000 GROUP 01 invalid-constant ----- ^ - 239 00000 ALPHANUMERIC 03 FILLER INVALID - 240 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:239.6-239.7: - 236 00000 ALPHANUMERIC 03 FILLER INVALID - 237 - 238 00000 GROUP 01 invalid-constant - 239 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 240 00000 ALPHANUMERIC 03 FILLER INVALID - 241 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:240.6-240.7: - 237 - 238 00000 GROUP 01 invalid-constant - 239 00000 ALPHANUMERIC 03 FILLER INVALID - 240 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 241 00000 ALPHANUMERIC 03 FILLER INVALID - 242 00000 ALPHANUMERIC 03 FILLER INVALID ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:241.6-241.7: - 238 00000 GROUP 01 invalid-constant - 239 00000 ALPHANUMERIC 03 FILLER INVALID - 240 00000 ALPHANUMERIC 03 FILLER INVALID - 241 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 242 00000 ALPHANUMERIC 03 FILLER INVALID - 243 ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:242.6-242.7: - 239 00000 ALPHANUMERIC 03 FILLER INVALID - 240 00000 ALPHANUMERIC 03 FILLER INVALID - 241 00000 ALPHANUMERIC 03 FILLER INVALID - 242 > 00000 ALPHANUMERIC 03 FILLER INVALID ----- ^ - 243 - 244 00086 GROUP 01 valid-pics ->> Error: Unexpected indicator: `A' - -listings.at-3684-expected.lst:244.6-244.7: - 241 00000 ALPHANUMERIC 03 FILLER INVALID - 242 00000 ALPHANUMERIC 03 FILLER INVALID - 243 - 244 > 00086 GROUP 01 valid-pics ----- ^ - 245 00002 NUMERIC 03 FILLER VP9B - 246 00002 NUMERIC 03 FILLER B9P(3) ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:245.6-245.7: - 242 00000 ALPHANUMERIC 03 FILLER INVALID - 243 - 244 00086 GROUP 01 valid-pics - 245 > 00002 NUMERIC 03 FILLER VP9B ----- ^ - 246 00002 NUMERIC 03 FILLER B9P(3) - 247 00004 NUMERIC 03 FILLER B$$$ ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:246.6-246.7: - 243 - 244 00086 GROUP 01 valid-pics - 245 00002 NUMERIC 03 FILLER VP9B - 246 > 00002 NUMERIC 03 FILLER B9P(3) ----- ^ - 247 00004 NUMERIC 03 FILLER B$$$ - 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:247.6-247.7: - 244 00086 GROUP 01 valid-pics - 245 00002 NUMERIC 03 FILLER VP9B - 246 00002 NUMERIC 03 FILLER B9P(3) - 247 > 00004 NUMERIC 03 FILLER B$$$ ----- ^ - 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ - 249 00005 NUMERIC 03 FILLER +(5)P(3) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:248.6-248.7: - 245 00002 NUMERIC 03 FILLER VP9B - 246 00002 NUMERIC 03 FILLER B9P(3) - 247 00004 NUMERIC 03 FILLER B$$$ - 248 > 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ ----- ^ - 249 00005 NUMERIC 03 FILLER +(5)P(3) - 250 00005 NUMERIC 03 FILLER ++.++ ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:249.6-249.7: - 246 00002 NUMERIC 03 FILLER B9P(3) - 247 00004 NUMERIC 03 FILLER B$$$ - 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ - 249 > 00005 NUMERIC 03 FILLER +(5)P(3) ----- ^ - 250 00005 NUMERIC 03 FILLER ++.++ - 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:250.6-250.7: - 247 00004 NUMERIC 03 FILLER B$$$ - 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ - 249 00005 NUMERIC 03 FILLER +(5)P(3) - 250 > 00005 NUMERIC 03 FILLER ++.++ ----- ^ - 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) - 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:251.6-251.7: - 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ - 249 00005 NUMERIC 03 FILLER +(5)P(3) - 250 00005 NUMERIC 03 FILLER ++.++ - 251 > 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) ----- ^ - 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... - 253 ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:252.6-252.7: - 249 00005 NUMERIC 03 FILLER +(5)P(3) - 250 00005 NUMERIC 03 FILLER ++.++ - 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) - 252 > 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... ----- ^ - 253 - 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:254.6-254.7: - 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) - 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... - 253 - 254 > 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE ----- ^ - 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) - 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:255.6-255.7: - 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... - 253 - 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE - 255 > 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) ----- ^ - 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) - 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:256.6-256.7: - 253 - 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE - 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) - 256 > 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) ----- ^ - 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) - 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:257.6-257.7: - 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE - 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) - 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) - 257 > 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) ----- ^ - 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) - 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:258.6-258.7: - 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) - 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) - 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) - 258 > 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) ----- ^ - 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) - 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:259.6-259.7: - 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) - 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) - 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) - 259 > 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) ----- ^ - 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) - 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:260.6-260.7: - 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) - 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) - 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) - 260 > 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) ----- ^ - 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) - 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:261.6-261.7: - 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) - 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) - 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) - 261 > 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) ----- ^ - 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) - 263 ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:262.6-262.7: - 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) - 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) - 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) - 262 > 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) ----- ^ - 263 - 264 00008 GROUP 01 FILLER, REDEFINES PC-COLOR-BACKGROUND-TABLE ->> Error: Unexpected indicator: `N' - -listings.at-3684-expected.lst:264.6-264.7: - 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) - 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) - 263 - 264 > 00008 GROUP 01 FILLER, REDEFINES PC-COLOR-BACKGROUND-TABLE ----- ^ - 265 00001 BOOLEAN 05 COLOR-BACKGROUND 1(8), OCCURS 8 - 266 ->> Error: Unexpected indicator: `G' - -listings.at-3684-expected.lst:265.6-265.7: - 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) - 263 - 264 00008 GROUP 01 FILLER, REDEFINES PC-COLOR-BACKGROUND-TABLE - 265 > 00001 BOOLEAN 05 COLOR-BACKGROUND 1(8), OCCURS 8 ----- ^ - 266 - 267 ->> Error: Unexpected indicator: `B' - -listings.at-3684-expected.lst:269.6-269.7: - 266 - 267 - 268 - 269 > Error/Warning summary: ----- ^ - 270 - 271 prog.cob:7: error: missing PICTURE string ->> Error: Unexpected indicator: `W' - -listings.at-3684-expected.lst:271.6-271.7: - 268 - 269 Error/Warning summary: - 270 - 271 > prog.cob:7: error: missing PICTURE string ----- ^ - 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters - 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:272.6-272.7: - 269 Error/Warning summary: - 270 - 271 prog.cob:7: error: missing PICTURE string - 272 > prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters ----- ^ - 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string - 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:273.6-273.7: - 270 - 271 prog.cob:7: error: missing PICTURE string - 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters - 273 > prog.cob:16: error: CR or DB may only occur once in a PICTURE string ----- ^ - 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string - 275 prog.cob:18: error: S may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:274.6-274.7: - 271 prog.cob:7: error: missing PICTURE string - 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters - 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string - 274 > prog.cob:17: error: CR or DB may only occur once in a PICTURE string ----- ^ - 275 prog.cob:18: error: S may only occur once in a PICTURE string - 276 prog.cob:18: error: S must be at start of PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:275.6-275.7: - 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters - 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string - 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string - 275 > prog.cob:18: error: S may only occur once in a PICTURE string ----- ^ - 276 prog.cob:18: error: S must be at start of PICTURE string - 277 prog.cob:19: error: . may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:276.6-276.7: - 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string - 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string - 275 prog.cob:18: error: S may only occur once in a PICTURE string - 276 > prog.cob:18: error: S must be at start of PICTURE string ----- ^ - 277 prog.cob:19: error: . may only occur once in a PICTURE string - 278 prog.cob:20: error: V may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:277.6-277.7: - 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string - 275 prog.cob:18: error: S may only occur once in a PICTURE string - 276 prog.cob:18: error: S must be at start of PICTURE string - 277 > prog.cob:19: error: . may only occur once in a PICTURE string ----- ^ - 278 prog.cob:20: error: V may only occur once in a PICTURE string - 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:278.6-278.7: - 275 prog.cob:18: error: S may only occur once in a PICTURE string - 276 prog.cob:18: error: S must be at start of PICTURE string - 277 prog.cob:19: error: . may only occur once in a PICTURE string - 278 > prog.cob:20: error: V may only occur once in a PICTURE string ----- ^ - 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign - 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:279.6-279.7: - 276 prog.cob:18: error: S must be at start of PICTURE string - 277 prog.cob:19: error: . may only occur once in a PICTURE string - 278 prog.cob:20: error: V may only occur once in a PICTURE string - 279 > prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign ----- ^ - 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol - 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:280.6-280.7: - 277 prog.cob:19: error: . may only occur once in a PICTURE string - 278 prog.cob:20: error: V may only occur once in a PICTURE string - 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign - 280 > prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol ----- ^ - 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol - 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:281.6-281.7: - 278 prog.cob:20: error: V may only occur once in a PICTURE string - 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign - 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol - 281 > prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol ----- ^ - 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign - 283 prog.cob:24: error: invalid PICTURE character 'K' ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:282.6-282.7: - 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign - 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol - 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol - 282 > prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign ----- ^ - 283 prog.cob:24: error: invalid PICTURE character 'K' - 284 prog.cob:25: error: C must be followed by R ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:283.6-283.7: - 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol - 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol - 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign - 283 > prog.cob:24: error: invalid PICTURE character 'K' ----- ^ - 284 prog.cob:25: error: C must be followed by R - 285 prog.cob:26: error: D must be followed by B ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:284.6-284.7: - 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol - 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign - 283 prog.cob:24: error: invalid PICTURE character 'K' - 284 > prog.cob:25: error: C must be followed by R ----- ^ - 285 prog.cob:26: error: D must be followed by B - 286 prog.cob:27: error: numeric field cannot be larger than 38 digits ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:285.6-285.7: - 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign - 283 prog.cob:24: error: invalid PICTURE character 'K' - 284 prog.cob:25: error: C must be followed by R - 285 > prog.cob:26: error: D must be followed by B ----- ^ - 286 prog.cob:27: error: numeric field cannot be larger than 38 digits - 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:286.6-286.7: - 283 prog.cob:24: error: invalid PICTURE character 'K' - 284 prog.cob:25: error: C must be followed by R - 285 prog.cob:26: error: D must be followed by B - 286 > prog.cob:27: error: numeric field cannot be larger than 38 digits ----- ^ - 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses - 288 prog.cob:29: error: parentheses must be preceded by a picture symbol ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:287.6-287.7: - 284 prog.cob:25: error: C must be followed by R - 285 prog.cob:26: error: D must be followed by B - 286 prog.cob:27: error: numeric field cannot be larger than 38 digits - 287 > prog.cob:28: error: only up to 10 significant digits are permitted within parentheses ----- ^ - 288 prog.cob:29: error: parentheses must be preceded by a picture symbol - 289 prog.cob:30: error: unbalanced parentheses ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:288.6-288.7: - 285 prog.cob:26: error: D must be followed by B - 286 prog.cob:27: error: numeric field cannot be larger than 38 digits - 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses - 288 > prog.cob:29: error: parentheses must be preceded by a picture symbol ----- ^ - 289 prog.cob:30: error: unbalanced parentheses - 290 prog.cob:31: error: parentheses must be preceded by a picture symbol ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:289.6-289.7: - 286 prog.cob:27: error: numeric field cannot be larger than 38 digits - 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses - 288 prog.cob:29: error: parentheses must be preceded by a picture symbol - 289 > prog.cob:30: error: unbalanced parentheses ----- ^ - 290 prog.cob:31: error: parentheses must be preceded by a picture symbol - 291 prog.cob:32: error: parentheses must contain an unsigned integer ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:290.6-290.7: - 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses - 288 prog.cob:29: error: parentheses must be preceded by a picture symbol - 289 prog.cob:30: error: unbalanced parentheses - 290 > prog.cob:31: error: parentheses must be preceded by a picture symbol ----- ^ - 291 prog.cob:32: error: parentheses must contain an unsigned integer - 292 prog.cob:34: error: . cannot follow a P which is after the decimal point ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:291.6-291.7: - 288 prog.cob:29: error: parentheses must be preceded by a picture symbol - 289 prog.cob:30: error: unbalanced parentheses - 290 prog.cob:31: error: parentheses must be preceded by a picture symbol - 291 > prog.cob:32: error: parentheses must contain an unsigned integer ----- ^ - 292 prog.cob:34: error: . cannot follow a P which is after the decimal point - 293 prog.cob:35: error: . cannot follow V ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:292.6-292.7: - 289 prog.cob:30: error: unbalanced parentheses - 290 prog.cob:31: error: parentheses must be preceded by a picture symbol - 291 prog.cob:32: error: parentheses must contain an unsigned integer - 292 > prog.cob:34: error: . cannot follow a P which is after the decimal point ----- ^ - 293 prog.cob:35: error: . cannot follow V - 294 prog.cob:36: error: cannot have both Z and * in PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:293.6-293.7: - 290 prog.cob:31: error: parentheses must be preceded by a picture symbol - 291 prog.cob:32: error: parentheses must contain an unsigned integer - 292 prog.cob:34: error: . cannot follow a P which is after the decimal point - 293 > prog.cob:35: error: . cannot follow V ----- ^ - 294 prog.cob:36: error: cannot have both Z and * in PICTURE string - 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:294.6-294.7: - 291 prog.cob:32: error: parentheses must contain an unsigned integer - 292 prog.cob:34: error: . cannot follow a P which is after the decimal point - 293 prog.cob:35: error: . cannot follow V - 294 > prog.cob:36: error: cannot have both Z and * in PICTURE string ----- ^ - 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:295.6-295.7: - 292 prog.cob:34: error: . cannot follow a P which is after the decimal point - 293 prog.cob:35: error: . cannot follow V - 294 prog.cob:36: error: cannot have both Z and * in PICTURE string - 295 > prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point ----- ^ - 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string - 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:296.6-296.7: - 293 prog.cob:35: error: . cannot follow V - 294 prog.cob:36: error: cannot have both Z and * in PICTURE string - 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 296 > prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string ----- ^ - 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:297.6-297.7: - 294 prog.cob:36: error: cannot have both Z and * in PICTURE string - 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string - 297 > prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point ----- ^ - 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 299 prog.cob:40: error: A or X cannot follow N ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:298.6-298.7: - 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string - 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 298 > prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point ----- ^ - 299 prog.cob:40: error: A or X cannot follow N - 300 prog.cob:41: error: N cannot follow A or X ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:299.6-299.7: - 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string - 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 299 > prog.cob:40: error: A or X cannot follow N ----- ^ - 300 prog.cob:41: error: N cannot follow A or X - 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:300.6-300.7: - 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 299 prog.cob:40: error: A or X cannot follow N - 300 > prog.cob:41: error: N cannot follow A or X ----- ^ - 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X - 302 prog.cob:43: error: A or X cannot follow . ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:301.6-301.7: - 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point - 299 prog.cob:40: error: A or X cannot follow N - 300 prog.cob:41: error: N cannot follow A or X - 301 > prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X ----- ^ - 302 prog.cob:43: error: A or X cannot follow . - 303 prog.cob:44: error: A or X cannot follow S ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:302.6-302.7: - 299 prog.cob:40: error: A or X cannot follow N - 300 prog.cob:41: error: N cannot follow A or X - 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X - 302 > prog.cob:43: error: A or X cannot follow . ----- ^ - 303 prog.cob:44: error: A or X cannot follow S - 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:303.6-303.7: - 300 prog.cob:41: error: N cannot follow A or X - 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X - 302 prog.cob:43: error: A or X cannot follow . - 303 > prog.cob:44: error: A or X cannot follow S ----- ^ - 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / - 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:304.6-304.7: - 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X - 302 prog.cob:43: error: A or X cannot follow . - 303 prog.cob:44: error: A or X cannot follow S - 304 > prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / ----- ^ - 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point - 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:305.6-305.7: - 302 prog.cob:43: error: A or X cannot follow . - 303 prog.cob:44: error: A or X cannot follow S - 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / - 305 > prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point ----- ^ - 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string - 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:306.6-306.7: - 303 prog.cob:44: error: A or X cannot follow S - 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / - 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point - 306 > prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string ----- ^ - 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign - 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:307.6-307.7: - 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / - 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point - 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string - 307 > prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign ----- ^ - 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string - 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:308.6-308.7: - 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point - 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string - 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign - 308 > prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string ----- ^ - 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:309.6-309.7: - 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string - 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign - 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string - 309 > prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point ----- ^ - 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign - 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:310.6-310.7: - 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign - 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string - 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 310 > prog.cob:47: error: CR or DB cannot follow a leading +/- sign ----- ^ - 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign - 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:311.6-311.7: - 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string - 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign - 311 > prog.cob:48: error: CR or DB cannot follow a leading +/- sign ----- ^ - 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / - 313 prog.cob:51: error: a leading +/- sign cannot follow 9 ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:312.6-312.7: - 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point - 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign - 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign - 312 > prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / ----- ^ - 313 prog.cob:51: error: a leading +/- sign cannot follow 9 - 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:313.6-313.7: - 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign - 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign - 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / - 313 > prog.cob:51: error: a leading +/- sign cannot follow 9 ----- ^ - 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB - 315 prog.cob:53: error: 9 cannot follow CR or DB ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:314.6-314.7: - 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign - 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / - 313 prog.cob:51: error: a leading +/- sign cannot follow 9 - 314 > prog.cob:52: error: B, 0 or / cannot follow CR or DB ----- ^ - 315 prog.cob:53: error: 9 cannot follow CR or DB - 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:315.6-315.7: - 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / - 313 prog.cob:51: error: a leading +/- sign cannot follow 9 - 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB - 315 > prog.cob:53: error: 9 cannot follow CR or DB ----- ^ - 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 - 317 prog.cob:55: error: a leading currency symbol cannot follow 9 ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:316.6-316.7: - 313 prog.cob:51: error: a leading +/- sign cannot follow 9 - 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB - 315 prog.cob:53: error: 9 cannot follow CR or DB - 316 > prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 ----- ^ - 317 prog.cob:55: error: a leading currency symbol cannot follow 9 - 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:317.6-317.7: - 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB - 315 prog.cob:53: error: 9 cannot follow CR or DB - 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 - 317 > prog.cob:55: error: a leading currency symbol cannot follow 9 ----- ^ - 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / - 319 prog.cob:57: error: P must be at start or end of PICTURE string ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:318.6-318.7: - 315 prog.cob:53: error: 9 cannot follow CR or DB - 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 - 317 prog.cob:55: error: a leading currency symbol cannot follow 9 - 318 > prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / ----- ^ - 319 prog.cob:57: error: P must be at start or end of PICTURE string - 320 prog.cob:57: error: V cannot follow a P which is after the decimal point ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:319.6-319.7: - 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 - 317 prog.cob:55: error: a leading currency symbol cannot follow 9 - 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / - 319 > prog.cob:57: error: P must be at start or end of PICTURE string ----- ^ - 320 prog.cob:57: error: V cannot follow a P which is after the decimal point - 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:320.6-320.7: - 317 prog.cob:55: error: a leading currency symbol cannot follow 9 - 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / - 319 prog.cob:57: error: P must be at start or end of PICTURE string - 320 > prog.cob:57: error: V cannot follow a P which is after the decimal point ----- ^ - 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:321.6-321.7: - 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / - 319 prog.cob:57: error: P must be at start or end of PICTURE string - 320 prog.cob:57: error: V cannot follow a P which is after the decimal point - 321 > prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol ----- ^ - 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:322.6-322.7: - 319 prog.cob:57: error: P must be at start or end of PICTURE string - 320 prog.cob:57: error: V cannot follow a P which is after the decimal point - 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 322 > prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol ----- ^ - 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:323.6-323.7: - 320 prog.cob:57: error: V cannot follow a P which is after the decimal point - 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 323 > prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol ----- ^ - 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer - 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:324.6-324.7: - 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 324 > prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer ----- ^ - 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer - 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:325.6-325.7: - 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer - 325 > prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer ----- ^ - 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer - 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:326.6-326.7: - 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol - 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer - 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer - 326 > prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer ----- ^ - 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined - 328 prog.cob:81: warning: uncommon parentheses ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:327.6-327.7: - 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer - 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer - 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer - 327 > prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined ----- ^ - 328 prog.cob:81: warning: uncommon parentheses - 329 ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:328.6-328.7: - 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer - 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer - 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined - 328 > prog.cob:81: warning: uncommon parentheses ----- ^ - 329 - 330 1 warning in compilation group ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:330.6-330.7: - 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined - 328 prog.cob:81: warning: uncommon parentheses - 329 - 330 > 1 warning in compilation group ----- ^ - 331 57 errors in compilation group ->> Error: Unexpected indicator: `i' - -listings.at-3684-expected.lst:331.6-331.7: - 328 prog.cob:81: warning: uncommon parentheses - 329 - 330 1 warning in compilation group - 331 > 57 errors in compilation group ----- ^ ->> Error: Unexpected indicator: `o' - -listings.at-3684-expected.lst:120.19-120.21: - 117 error: P must be at start or end of PICTURE string - 118 error: V cannot follow a P which is after the decimal point - 119 000058 01 missing-symbols. - 120 > 000059 03 PIC B(5). ----- ^^ - 121 error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 - 122 + and *; or at least two of the set +, - and the currency symbol ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:3703:0 -listings.at-3703-prog.cob:1.7-1.11: - 1 > 000001 $SET SOURCEFORMAT "VARIABLE" ----- ^^^^ - 2 000010 IDENTIFICATION DIVISION. - 3 000020 PROGRAM-ID. prog. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:3763:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:3825:0 -listings.at-3825-prog.cob:6.7-6.23: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc". ----- ^^^^^^^^^^^^^^^^ - 7 COPY "copy2.inc". - 8 PROCEDURE DIVISION. ->> Error: Library `copy.inc' not found in search path (search path: ) - -listings.at-3825-prog.cob:7.7-7.24: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 COPY "copy.inc". - 7 > COPY "copy2.inc". ----- ^^^^^^^^^^^^^^^^^ - 8 PROCEDURE DIVISION. - 9 >>LISTING OFF ->> Error: Library `copy2.inc' not found in search path (search path: ) - -listings.at-3825-prog.cob:9.7-9.20: - 6 COPY "copy.inc". - 7 COPY "copy2.inc". - 8 PROCEDURE DIVISION. - 9 > >>LISTING OFF ----- ^^^^^^^^^^^^^ - 10 DISPLAY TEST1-VAR NO ADVANCING - 11 END-DISPLAY. ->> Error: Malformed or unknown compiler directive - -listings.at-3825-prog.cob:12.7-12.20: - 9 >>LISTING OFF - 10 DISPLAY TEST1-VAR NO ADVANCING - 11 END-DISPLAY. - 12 > >> LISTING ON ----- ^^^^^^^^^^^^^ - 13 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/listings.at:3921:0 -listings.at-3921-prog.cob:6.7-6.23: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc". ----- ^^^^^^^^^^^^^^^^ - 7 COPY "copy2.inc". - 8 PROCEDURE DIVISION. ->> Error: Library `copy.inc' not found in search path (search path: ) - -listings.at-3921-prog.cob:7.7-7.24: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 COPY "copy.inc". - 7 > COPY "copy2.inc". ----- ^^^^^^^^^^^^^^^^^ - 8 PROCEDURE DIVISION. - 9 >>LISTING OFF ->> Error: Library `copy2.inc' not found in search path (search path: ) - -listings.at-3921-prog.cob:9.0-9.13: - 6 COPY "copy.inc". - 7 COPY "copy2.inc". - 8 PROCEDURE DIVISION. - 9 > >>LISTING OFF ----- ^^^^^^^^^^^^^ - 10 DISPLAY TEST1-VAR NO ADVANCING - 11 END-DISPLAY. ->> Error: Malformed or unknown compiler directive - -listings.at-3921-prog.cob:12.0-12.13: - 9 >>LISTING OFF - 10 DISPLAY TEST1-VAR NO ADVANCING - 11 END-DISPLAY. - 12 > >> LISTING ON ----- ^^^^^^^^^^^^^ - 13 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/listings.at:4001:0 -listings.at-4001-prog.cob:1.11-1.16: - 1 > TITLE "GnuCOBOL lists IBM" ----- ^^^^^ - 2 IDENTIFICATION DIVISION. - 3 SKIP1 ->> Error: Invalid syntax - -listings.at-4001-prog.cob:3.11-3.16: - 1 TITLE "GnuCOBOL lists IBM" - 2 IDENTIFICATION DIVISION. - 3 > SKIP1 ----- ^^^^^ - 4 PROGRAM-ID. prog. - 5 SKIP2 ->> Error: Invalid syntax - -listings.at-4001-prog.cob:5.11-5.16: - 2 IDENTIFICATION DIVISION. - 3 SKIP1 - 4 PROGRAM-ID. prog. - 5 > SKIP2 ----- ^^^^^ - 6 DATA DIVISION. - 7 SKIP3 ->> Error: Invalid syntax - -listings.at-4001-prog.cob:7.11-7.16: - 4 PROGRAM-ID. prog. - 5 SKIP2 - 6 DATA DIVISION. - 7 > SKIP3 ----- ^^^^^ - 8 WORKING-STORAGE SECTION. - 9 01 TITLE-01 PIC X(2). ->> Error: Invalid syntax - -listings.at-4001-prog.cob:11.11-11.16: - 8 WORKING-STORAGE SECTION. - 9 01 TITLE-01 PIC X(2). - 10 01 TITLE-02 PIC X(2). - 11 > TITLE "here goes the code" ----- ^^^^^ - 12 PROCEDURE DIVISION. - 13 EJECT ->> Error: Invalid syntax - -listings.at-4001-prog.cob:13.12: - 10 01 TITLE-02 PIC X(2). - 11 TITLE "here goes the code" - 12 PROCEDURE DIVISION. - 13 > EJECT ----- ^ - 14 MOVE SPACE TO TITLE-01 - 15 TITLE-02. ->> Hint: Missing . - -listings.at-4001-prog.cob:14.11-14.15: - 11 TITLE "here goes the code" - 12 PROCEDURE DIVISION. - 13 EJECT - 14 > MOVE SPACE TO TITLE-01 ----- ^^^^ - 15 TITLE-02. - 16 STOP RUN. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:4057:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:4091:0 -listings.at-4091-prog2.cob:6.0-6.6: - 3 PROGRAM-ID. prog2. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > >>PAGE ----- ^^^^^^ - 7 PROCEDURE DIVISION. - 8 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/listings.at:4139:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:5827:0 -listings.at-5827-prog.cob:16.25-16.33: - 13 FILE-CONTROL. - 14 - 15 SELECT TRANSACTION-DATA - 16 > ASSIGN TO EXTERNAL DATAIN ----- ^^^^^^^^ - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 ->> Warning: Ignored EXTERNAL (implementation pending) - -listings.at-5827-prog.cob:20.25-20.33: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^ - 21 - 22 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -listings.at-5827-prog.cob:20.34-20.38: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^ - 21 - 22 DATA DIVISION. ->> Error: Invalid syntax - -listings.at-5827-prog.cob:20.38: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^ - 21 - 22 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -listings.at-5827-prog.cob:20.39-20.48: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^^ - 21 - 22 DATA DIVISION. ->> Error: Invalid syntax - -listings.at-5827-prog.cob:48.26: - 45 88 END-OF-FILE VALUE 'Y'. - 46 - 47 REPORT SECTION. - 48 > RD CUSTOMER-REPORT ----- ^ - 49 PAGE LIMIT IS 66 LINES - 50 HEADING 1 ->> Hint: Missing . - -listings.at-5827-prog.cob:49.11-49.15: - 46 - 47 REPORT SECTION. - 48 RD CUSTOMER-REPORT - 49 > PAGE LIMIT IS 66 LINES ----- ^^^^ - 50 HEADING 1 - 51 FIRST DETAIL 5 ->> Error: Invalid syntax - -listings.at-5827-prog.cob:49.33: - 46 - 47 REPORT SECTION. - 48 RD CUSTOMER-REPORT - 49 > PAGE LIMIT IS 66 LINES ----- ^ - 50 HEADING 1 - 51 FIRST DETAIL 5 ->> Hint: Missing ARE - -listings.at-5827-prog.cob:50.11-50.18: - 47 REPORT SECTION. - 48 RD CUSTOMER-REPORT - 49 PAGE LIMIT IS 66 LINES - 50 > HEADING 1 ----- ^^^^^^^ - 51 FIRST DETAIL 5 - 52 LAST DETAIL 58. ->> Error: Invalid syntax - -listings.at-5827-prog.cob:51.11-51.16: - 48 RD CUSTOMER-REPORT - 49 PAGE LIMIT IS 66 LINES - 50 HEADING 1 - 51 > FIRST DETAIL 5 ----- ^^^^^ - 52 LAST DETAIL 58. - 53 ->> Error: Invalid syntax - -listings.at-5827-prog.cob:52.11-52.15: - 49 PAGE LIMIT IS 66 LINES - 50 HEADING 1 - 51 FIRST DETAIL 5 - 52 > LAST DETAIL 58. ----- ^^^^ - 53 - 54 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ->> Error: Invalid syntax - -listings.at-5827-prog.cob:54.31: - 51 FIRST DETAIL 5 - 52 LAST DETAIL 58. - 53 - 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^ - 55 02 LINE 1. - 56 03 COLUMN 27 PIC X(41) VALUE ->> Hint: Missing DETAIL - -listings.at-5827-prog.cob:54.32-54.36: - 51 FIRST DETAIL 5 - 52 LAST DETAIL 58. - 53 - 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^^^^ - 55 02 LINE 1. - 56 03 COLUMN 27 PIC X(41) VALUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/listings.at:6143:0 -Considering: import/gnucobol/tests/testsuite.src/listings.at:6955:0 -listings.at-6955-prog.cob:3.0-3.2: - 1 - 2 >>SOURCE FORMAT IS FREE - 3 > ID DIVISION. ----- ^^ - 4 PROGRAM-ID. ED000MAIN IS INITIAL. - 5 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:43:0 -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:42:0 -run_accept.at-42-prog.cob:5.17: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > ACCEPT OMITTED. ----- ^ ->> Hint: Missing - -run_accept.at-42-prog.cob:5.18-5.25: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > ACCEPT OMITTED. ----- ^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:112:0 -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:260:0 -run_accept.at-260-prog.cob:43.7-43.34: - 40 PROCEDURE DIVISION. - 41 PERFORM RUN-TEST. - 42 PERFORM RUN-VALIDATION. - 43 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 44 *> included performance check - 45 PERFORM RUN-TEST 50000 TIMES ->> Error: Malformed or unknown compiler directive - -run_accept.at-260-prog.cob:46.7-46.16: - 43 >> IF CHECK-PERF IS DEFINED - 44 *> included performance check - 45 PERFORM RUN-TEST 50000 TIMES - 46 > >> END-IF ----- ^^^^^^^^^ - 47 GOBACK. - 48 ->> Error: Invalid syntax - -run_accept.at-260-prog.cob:63.36: - 60 MOVE WS-NOW-MM TO WS-TIME-MM - 61 MOVE WS-NOW-SS TO WS-TIME-SS - 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 63 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 64 END-DISPLAY - 65 DISPLAY ' MICROSECOND-TIME ' ->> Hint: Missing . - -run_accept.at-260-prog.cob:63.37-63.41: - 60 MOVE WS-NOW-MM TO WS-TIME-MM - 61 MOVE WS-NOW-SS TO WS-TIME-SS - 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 63 > WITH NO ADVANCING UPON SYSOUT ----- ^^^^ - 64 END-DISPLAY - 65 DISPLAY ' MICROSECOND-TIME ' ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:63.48: - 60 MOVE WS-NOW-MM TO WS-TIME-MM - 61 MOVE WS-NOW-SS TO WS-TIME-SS - 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 63 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 64 END-DISPLAY - 65 DISPLAY ' MICROSECOND-TIME ' ->> Hint: Missing . - -run_accept.at-260-prog.cob:64.11-64.22: - 61 MOVE WS-NOW-SS TO WS-TIME-SS - 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 63 WITH NO ADVANCING UPON SYSOUT - 64 > END-DISPLAY ----- ^^^^^^^^^^^ - 65 DISPLAY ' MICROSECOND-TIME ' - 66 WITH NO ADVANCING UPON SYSOUT ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:66.36: - 63 WITH NO ADVANCING UPON SYSOUT - 64 END-DISPLAY - 65 DISPLAY ' MICROSECOND-TIME ' - 66 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 67 END-DISPLAY - 68 DISPLAY WS-MICROSECOND-TIME ->> Hint: Missing . - -run_accept.at-260-prog.cob:66.37-66.41: - 63 WITH NO ADVANCING UPON SYSOUT - 64 END-DISPLAY - 65 DISPLAY ' MICROSECOND-TIME ' - 66 > WITH NO ADVANCING UPON SYSOUT ----- ^^^^ - 67 END-DISPLAY - 68 DISPLAY WS-MICROSECOND-TIME ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:66.48: - 63 WITH NO ADVANCING UPON SYSOUT - 64 END-DISPLAY - 65 DISPLAY ' MICROSECOND-TIME ' - 66 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 67 END-DISPLAY - 68 DISPLAY WS-MICROSECOND-TIME ->> Hint: Missing . - -run_accept.at-260-prog.cob:67.11-67.22: - 64 END-DISPLAY - 65 DISPLAY ' MICROSECOND-TIME ' - 66 WITH NO ADVANCING UPON SYSOUT - 67 > END-DISPLAY ----- ^^^^^^^^^^^ - 68 DISPLAY WS-MICROSECOND-TIME - 69 WITH NO ADVANCING UPON SYSOUT ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:69.36: - 66 WITH NO ADVANCING UPON SYSOUT - 67 END-DISPLAY - 68 DISPLAY WS-MICROSECOND-TIME - 69 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 70 END-DISPLAY - 71 DISPLAY '.' UPON SYSOUT. ->> Hint: Missing . - -run_accept.at-260-prog.cob:69.37-69.41: - 66 WITH NO ADVANCING UPON SYSOUT - 67 END-DISPLAY - 68 DISPLAY WS-MICROSECOND-TIME - 69 > WITH NO ADVANCING UPON SYSOUT ----- ^^^^ - 70 END-DISPLAY - 71 DISPLAY '.' UPON SYSOUT. ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:69.48: - 66 WITH NO ADVANCING UPON SYSOUT - 67 END-DISPLAY - 68 DISPLAY WS-MICROSECOND-TIME - 69 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 70 END-DISPLAY - 71 DISPLAY '.' UPON SYSOUT. ->> Hint: Missing . - -run_accept.at-260-prog.cob:70.11-70.22: - 67 END-DISPLAY - 68 DISPLAY WS-MICROSECOND-TIME - 69 WITH NO ADVANCING UPON SYSOUT - 70 > END-DISPLAY ----- ^^^^^^^^^^^ - 71 DISPLAY '.' UPON SYSOUT. - 72 *> Bigger fields return 8/12 depending on std ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:76.36: - 73 *> CHECKME: we may should limit to 6 depending on std, too - 74 ACCEPT WS-TIME-MICRO FROM TIME - 75 DISPLAY 'PROCESS BIG TIME : ' - 76 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 77 DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. - 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD ->> Hint: Missing . - -run_accept.at-260-prog.cob:76.37-76.41: - 73 *> CHECKME: we may should limit to 6 depending on std, too - 74 ACCEPT WS-TIME-MICRO FROM TIME - 75 DISPLAY 'PROCESS BIG TIME : ' - 76 > WITH NO ADVANCING UPON SYSOUT ----- ^^^^ - 77 DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. - 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:76.48: - 73 *> CHECKME: we may should limit to 6 depending on std, too - 74 ACCEPT WS-TIME-MICRO FROM TIME - 75 DISPLAY 'PROCESS BIG TIME : ' - 76 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 77 DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. - 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD ->> Hint: Missing . - -run_accept.at-260-prog.cob:77.11-77.18: - 74 ACCEPT WS-TIME-MICRO FROM TIME - 75 DISPLAY 'PROCESS BIG TIME : ' - 76 WITH NO ADVANCING UPON SYSOUT - 77 > DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. ----- ^^^^^^^ - 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD - 79 IF WS-YYYYMMDD not = "20150405" ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:106.36: - 103 MOVE WS-NOW-MM TO WS-TIME-MM - 104 MOVE WS-NOW-SS TO WS-TIME-SS - 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 106 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 107 END-DISPLAY - 108 DISPLAY ' MICROSECOND-TIME ' ->> Hint: Missing . - -run_accept.at-260-prog.cob:106.37-106.41: - 103 MOVE WS-NOW-MM TO WS-TIME-MM - 104 MOVE WS-NOW-SS TO WS-TIME-SS - 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 106 > WITH NO ADVANCING UPON SYSOUT ----- ^^^^ - 107 END-DISPLAY - 108 DISPLAY ' MICROSECOND-TIME ' ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:106.48: - 103 MOVE WS-NOW-MM TO WS-TIME-MM - 104 MOVE WS-NOW-SS TO WS-TIME-SS - 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 106 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 107 END-DISPLAY - 108 DISPLAY ' MICROSECOND-TIME ' ->> Hint: Missing . - -run_accept.at-260-prog.cob:107.11-107.22: - 104 MOVE WS-NOW-SS TO WS-TIME-SS - 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME - 106 WITH NO ADVANCING UPON SYSOUT - 107 > END-DISPLAY ----- ^^^^^^^^^^^ - 108 DISPLAY ' MICROSECOND-TIME ' - 109 WITH NO ADVANCING UPON SYSOUT ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:109.36: - 106 WITH NO ADVANCING UPON SYSOUT - 107 END-DISPLAY - 108 DISPLAY ' MICROSECOND-TIME ' - 109 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 110 END-DISPLAY - 111 DISPLAY WS-MICROSECOND-TIME ->> Hint: Missing . - -run_accept.at-260-prog.cob:109.37-109.41: - 106 WITH NO ADVANCING UPON SYSOUT - 107 END-DISPLAY - 108 DISPLAY ' MICROSECOND-TIME ' - 109 > WITH NO ADVANCING UPON SYSOUT ----- ^^^^ - 110 END-DISPLAY - 111 DISPLAY WS-MICROSECOND-TIME ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:109.48: - 106 WITH NO ADVANCING UPON SYSOUT - 107 END-DISPLAY - 108 DISPLAY ' MICROSECOND-TIME ' - 109 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 110 END-DISPLAY - 111 DISPLAY WS-MICROSECOND-TIME ->> Hint: Missing . - -run_accept.at-260-prog.cob:110.11-110.22: - 107 END-DISPLAY - 108 DISPLAY ' MICROSECOND-TIME ' - 109 WITH NO ADVANCING UPON SYSOUT - 110 > END-DISPLAY ----- ^^^^^^^^^^^ - 111 DISPLAY WS-MICROSECOND-TIME - 112 WITH NO ADVANCING UPON SYSOUT ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:112.36: - 109 WITH NO ADVANCING UPON SYSOUT - 110 END-DISPLAY - 111 DISPLAY WS-MICROSECOND-TIME - 112 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 113 END-DISPLAY - 114 DISPLAY '.' UPON SYSOUT. ->> Hint: Missing . - -run_accept.at-260-prog.cob:112.37-112.41: - 109 WITH NO ADVANCING UPON SYSOUT - 110 END-DISPLAY - 111 DISPLAY WS-MICROSECOND-TIME - 112 > WITH NO ADVANCING UPON SYSOUT ----- ^^^^ - 113 END-DISPLAY - 114 DISPLAY '.' UPON SYSOUT. ->> Warning: Invalid syntax - -run_accept.at-260-prog.cob:112.48: - 109 WITH NO ADVANCING UPON SYSOUT - 110 END-DISPLAY - 111 DISPLAY WS-MICROSECOND-TIME - 112 > WITH NO ADVANCING UPON SYSOUT ----- ^ - 113 END-DISPLAY - 114 DISPLAY '.' UPON SYSOUT. ->> Hint: Missing . - -run_accept.at-260-prog.cob:113.11-113.22: - 110 END-DISPLAY - 111 DISPLAY WS-MICROSECOND-TIME - 112 WITH NO ADVANCING UPON SYSOUT - 113 > END-DISPLAY ----- ^^^^^^^^^^^ - 114 DISPLAY '.' UPON SYSOUT. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:316:0 -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:355:0 -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:390:0 -Considering: import/gnucobol/tests/testsuite.src/run_accept.at:389:0 -run_accept.at-389-prog.cob:11.17: - 8 03 VALUE "Hello!" LINE 3 COL 3. - 9 - 10 PROCEDURE DIVISION. - 11 > ACCEPT OMITTED ----- ^ - 12 END-ACCEPT. ->> Hint: Missing - -run_accept.at-389-prog.cob:11.18-11.25: - 8 03 VALUE "Hello!" LINE 3 COL 3. - 9 - 10 PROCEDURE DIVISION. - 11 > ACCEPT OMITTED ----- ^^^^^^^ - 12 END-ACCEPT. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:62:0 -run_extensions.at-62-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data, int *p) - 7 { ->> Error: Unexpected indicator: `T' - -run_extensions.at-62-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data, int *p) ----- ^ - 7 { - 8 int i; ->> Error: Unexpected indicator: `u' - -run_extensions.at-62-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data, int *p) - 7 { - 8 > int i; ----- ^ - 9 if ( *p == 1 ) { - 10 for (i = 0; i < 4; i++) ->> Error: Unexpected indicator: `i' - -run_extensions.at-62-dump.c:10.6-10.7: - 7 { - 8 int i; - 9 if ( *p == 1 ) { - 10 > for (i = 0; i < 4; i++) ----- ^ - 11 printf ("%02x", data[i]); - 12 } else { ->> Error: Unexpected indicator: `o' - -run_extensions.at-62-dump.c:12.6-12.7: - 9 if ( *p == 1 ) { - 10 for (i = 0; i < 4; i++) - 11 printf ("%02x", data[i]); - 12 > } else { ----- ^ - 13 printf ("%8.8d", *((int *)data)); - 14 } ->> Error: Unexpected indicator: `s' - -run_extensions.at-62-dump.c:16.6-16.7: - 13 printf ("%8.8d", *((int *)data)); - 14 } - 15 puts (""); - 16 > return 0; ----- ^ - 17 } ->> Error: Unexpected indicator: `r' - -run_extensions.at-62-dump.c:9.10-18.0: - 6 dump (unsigned char *data, int *p) - 7 { - 8 int i; - 9 > if ( *p == 1 ) { ----- - 10 > for (i = 0; i < 4; i++) ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > printf ("%02x", data[i]); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > } else { ----- ^^^^^^^^^^^ - 13 > printf ("%8.8d", *((int *)data)); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 > } ----- ^^^^ - 15 > puts (""); ----- ^^^^^^^^^^^^^ - 16 > return 0; ----- ^^^^^^^^^^^^ - 17 > } ----- ^^ ->> Error: Unterminated pseudotext - -run_extensions.at-62-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data, int *p) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:63:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:92:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:116:0 -run_extensions.at-116-prog.cob:5.20-5.24: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > DISPLAY B#101 UPON STDOUT ----- ^^^^ - 6 DISPLAY O#17777777777 UPON STDOUT - 7 DISPLAY X#ffFFFFff UPON STDOUT ->> Error: Invalid syntax - -run_extensions.at-116-prog.cob:6.20-6.32: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY B#101 UPON STDOUT - 6 > DISPLAY O#17777777777 UPON STDOUT ----- ^^^^^^^^^^^^ - 7 DISPLAY X#ffFFFFff UPON STDOUT - 8 DISPLAY H#ffFFFFff UPON STDOUT ->> Error: Invalid syntax - -run_extensions.at-116-prog.cob:7.20-7.29: - 4 PROCEDURE DIVISION. - 5 DISPLAY B#101 UPON STDOUT - 6 DISPLAY O#17777777777 UPON STDOUT - 7 > DISPLAY X#ffFFFFff UPON STDOUT ----- ^^^^^^^^^ - 8 DISPLAY H#ffFFFFff UPON STDOUT - 9 ->> Error: Invalid syntax - -run_extensions.at-116-prog.cob:8.20-8.29: - 5 DISPLAY B#101 UPON STDOUT - 6 DISPLAY O#17777777777 UPON STDOUT - 7 DISPLAY X#ffFFFFff UPON STDOUT - 8 > DISPLAY H#ffFFFFff UPON STDOUT ----- ^^^^^^^^^ - 9 - 10 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:180:0 -run_extensions.at-180-prog.cob:7.46-7.52: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 *> Octal literal is "AB" in ASCII. - 7 > 01 ITEM-ALPHA PIC XX VALUE %40502. ----- ^^^^^^ - 8 *> Octal literal is 39. - 9 01 ITEM-NUMERIC PIC 99 BINARY VALUE %47. ->> Error: Invalid syntax - -run_extensions.at-180-prog.cob:9.46-9.49: - 6 *> Octal literal is "AB" in ASCII. - 7 01 ITEM-ALPHA PIC XX VALUE %40502. - 8 *> Octal literal is 39. - 9 > 01 ITEM-NUMERIC PIC 99 BINARY VALUE %47. ----- ^^^ - 10 *> Octal literal is ASCII 12. - 11 01 ITEM-NUM PIC 99 VALUE %30462. ->> Error: Invalid syntax - -run_extensions.at-180-prog.cob:11.46-11.52: - 8 *> Octal literal is 39. - 9 01 ITEM-NUMERIC PIC 99 BINARY VALUE %47. - 10 *> Octal literal is ASCII 12. - 11 > 01 ITEM-NUM PIC 99 VALUE %30462. ----- ^^^^^^ - 12 PROCEDURE DIVISION. - 13 *> Octal literal is "XY". ->> Error: Invalid syntax - -run_extensions.at-180-prog.cob:14.19-14.25: - 11 01 ITEM-NUM PIC 99 VALUE %30462. - 12 PROCEDURE DIVISION. - 13 *> Octal literal is "XY". - 14 > DISPLAY %54131. ----- ^^^^^^ - 15 IF ITEM-ALPHA NOT = "AB" - 16 DISPLAY "VALUE %40502 is not ""AB"" (ASCII) but " ->> Error: Invalid syntax - -run_extensions.at-180-prog.cob:26.15-26.18: - 23 DISPLAY "VALUE %30462 is not 12 (ASCII) but " ITEM-NUM - 24 END-IF - 25 *> Adds octal 23 (decimal 19, as it is an arithmetic expression). - 26 > ADD %23 TO ITEM-NUM. ----- ^^^ - 27 IF ITEM-NUM NOT = 31 - 28 DISPLAY "12 + %23 (19) is not 31 but " ITEM-NUM ->> Error: Invalid syntax - -run_extensions.at-180-prog.cob:31.16-31.22: - 28 DISPLAY "12 + %23 (19) is not 31 but " ITEM-NUM - 29 END-IF - 30 *> Sets the data to octal 30462 (ASCII 12). - 31 > MOVE %30462 TO ITEM-NUM ----- ^^^^^^ - 32 IF ITEM-NUM NOT = 12 - 33 DISPLAY "%30462 is not 12 (ASCII) but " ITEM-NUM ->> Error: Invalid syntax - -run_extensions.at-180-prog.cob:36.16-36.20: - 33 DISPLAY "%30462 is not 12 (ASCII) but " ITEM-NUM - 34 END-IF - 35 *> Sets the data to x'4100' (octal 101 -> ASCII A + right-pad NULL) - 36 > MOVE %101 TO ITEM-ALPHA ----- ^^^^ - 37 IF ITEM-ALPHA NOT = x"4100" - 38 DISPLAY "%101 is not x""4100"" = Anull (ASCII) but " ->> Error: Invalid syntax - -run_extensions.at-180-prog.cob:37.32-37.38: - 34 END-IF - 35 *> Sets the data to x'4100' (octal 101 -> ASCII A + right-pad NULL) - 36 MOVE %101 TO ITEM-ALPHA - 37 > IF ITEM-ALPHA NOT = x"4100" ----- ^^^^^^ - 38 DISPLAY "%101 is not x""4100"" = Anull (ASCII) but " - 39 ITEM-ALPHA ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:206:0 -run_extensions.at-206-prog.cob:6.39-6.40: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 X-1 PIC 9(8) VALUE H"012345". ----- ^ - 7 01 X-2 PIC 9(8) VALUE H"FFFFFF". - 8 PROCEDURE DIVISION. ->> Error: Invalid syntax - -run_extensions.at-206-prog.cob:7.39-7.40: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 X-1 PIC 9(8) VALUE H"012345". - 7 > 01 X-2 PIC 9(8) VALUE H"FFFFFF". ----- ^ - 8 PROCEDURE DIVISION. - 9 DISPLAY X-1 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:231:0 -run_extensions.at-231-prog.cob:5.20: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > IF 1 = (1 OR 2) ----- ^ - 6 DISPLAY "OK" NO ADVANCING - 7 END-DISPLAY ->> Hint: Missing ) - -run_extensions.at-231-prog.cob:5.21-5.23: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > IF 1 = (1 OR 2) ----- ^^ - 6 DISPLAY "OK" NO ADVANCING - 7 END-DISPLAY ->> Error: Invalid syntax - -run_extensions.at-231-prog.cob:5.25-5.26: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > IF 1 = (1 OR 2) ----- ^ - 6 DISPLAY "OK" NO ADVANCING - 7 END-DISPLAY ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:281:0 -run_extensions.at-281-prog.cob:9.43: - 6 01 X-1 PIC X(3) VALUE "X-1". - 7 01 X-2 PIC X(3) VALUE "X-2". - 8 01 G. - 9 > 02 PTR-1 USAGE POINTER VALUE NULL. ----- ^ - 10 02 PTR-2 USAGE POINTER VALUE NULL. - 11 LINKAGE SECTION. ->> Hint: Missing - -run_extensions.at-281-prog.cob:9.44-9.48: - 6 01 X-1 PIC X(3) VALUE "X-1". - 7 01 X-2 PIC X(3) VALUE "X-2". - 8 01 G. - 9 > 02 PTR-1 USAGE POINTER VALUE NULL. ----- ^^^^ - 10 02 PTR-2 USAGE POINTER VALUE NULL. - 11 LINKAGE SECTION. ->> Error: Invalid syntax - -run_extensions.at-281-prog.cob:10.43: - 7 01 X-2 PIC X(3) VALUE "X-2". - 8 01 G. - 9 02 PTR-1 USAGE POINTER VALUE NULL. - 10 > 02 PTR-2 USAGE POINTER VALUE NULL. ----- ^ - 11 LINKAGE SECTION. - 12 01 Y PIC X(3). ->> Hint: Missing - -run_extensions.at-281-prog.cob:10.44-10.48: - 7 01 X-2 PIC X(3) VALUE "X-2". - 8 01 G. - 9 02 PTR-1 USAGE POINTER VALUE NULL. - 10 > 02 PTR-2 USAGE POINTER VALUE NULL. ----- ^^^^ - 11 LINKAGE SECTION. - 12 01 Y PIC X(3). ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:445:0 -run_extensions.at-445-prog.cob:21.29: - 18 66 RENAME-G RENAMES G. - 19 01 L PIC s9(4)v99. - 20 01 I PIC 9(2) VALUE 10. - 21 > 78 I-LEN VALUE LENGTH OF I. ----- ^ - 22 * TODO: check size of FILLER here - 23 01 TSTDISP. ->> Hint: Missing - -run_extensions.at-445-prog.cob:21.30-21.36: - 18 66 RENAME-G RENAMES G. - 19 01 L PIC s9(4)v99. - 20 01 I PIC 9(2) VALUE 10. - 21 > 78 I-LEN VALUE LENGTH OF I. ----- ^^^^^^ - 22 * TODO: check size of FILLER here - 23 01 TSTDISP. ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:27.34-27.40: - 24 02 FILLER OCCURS 5000. - 25 10 T1 PIC X(11). - 26 10 T2 PIC X(22). - 27 > 78 var-length-l value length of '00128'. ----- ^^^^^^ - 28 78 var-length-x value length of x'a0'. - 29 78 var-length-z value length of z'a0'. ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:28.34-28.40: - 25 10 T1 PIC X(11). - 26 10 T2 PIC X(22). - 27 78 var-length-l value length of '00128'. - 28 > 78 var-length-x value length of x'a0'. ----- ^^^^^^ - 29 78 var-length-z value length of z'a0'. - 30 *78 var-length-n value length of n'001'. ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:29.34-29.40: - 26 10 T2 PIC X(22). - 27 78 var-length-l value length of '00128'. - 28 78 var-length-x value length of x'a0'. - 29 > 78 var-length-z value length of z'a0'. ----- ^^^^^^ - 30 *78 var-length-n value length of n'001'. - 31 PROCEDURE DIVISION. ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:53.16-53.22: - 50 *> DISPLAY "Length n'001'" L - 51 *> END-DISPLAY - 52 *> END-IF - 53 > MOVE LENGTH OF X TO L ----- ^^^^^^ - 54 IF L NOT = 2 - 55 DISPLAY "Length 1 " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:58.16-58.22: - 55 DISPLAY "Length 1 " L - 56 END-DISPLAY - 57 END-IF - 58 > MOVE LENGTH OF X TO L ----- ^^^^^^ - 59 IF L NOT = 2 - 60 DISPLAY "Length 1a " L LENGTH X ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:60.37-60.43: - 57 END-IF - 58 MOVE LENGTH OF X TO L - 59 IF L NOT = 2 - 60 > DISPLAY "Length 1a " L LENGTH X ----- ^^^^^^ - 61 END-DISPLAY - 62 END-IF ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:63.16-63.22: - 60 DISPLAY "Length 1a " L LENGTH X - 61 END-DISPLAY - 62 END-IF - 63 > MOVE LENGTH OF Y TO L ----- ^^^^^^ - 64 IF L NOT = 2 - 65 DISPLAY "Length 2 " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:69.37-69.43: - 66 END-DISPLAY - 67 END-IF - 68 IF L NOT = 2 - 69 > DISPLAY "Length 2a " L LENGTH OF Y ----- ^^^^^^ - 70 END-DISPLAY - 71 END-IF ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:72.16-72.22: - 69 DISPLAY "Length 2a " L LENGTH OF Y - 70 END-DISPLAY - 71 END-IF - 72 > MOVE LENGTH OF Y(1) TO L ----- ^^^^^^ - 73 IF L NOT = 2 - 74 DISPLAY "Length 3 " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:77.16-77.22: - 74 DISPLAY "Length 3 " L - 75 END-DISPLAY - 76 END-IF - 77 > MOVE LENGTH Y(1) TO L ----- ^^^^^^ - 78 IF L NOT = 2 - 79 DISPLAY "Length 3a " L LENGTH OF Y(1) ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:79.37-79.43: - 76 END-IF - 77 MOVE LENGTH Y(1) TO L - 78 IF L NOT = 2 - 79 > DISPLAY "Length 3a " L LENGTH OF Y(1) ----- ^^^^^^ - 80 END-DISPLAY - 81 END-IF ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:86.14-86.20: - 83 DISPLAY "Length 4 " I-LEN - 84 END-DISPLAY - 85 END-IF - 86 > IF LENGTH OF L + 2 NOT = 8 ----- ^^^^^^ - 87 ADD 2 TO LENGTH OF L GIVING L - 88 DISPLAY "Length 5 + 2" L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:87.23-87.29: - 84 END-DISPLAY - 85 END-IF - 86 IF LENGTH OF L + 2 NOT = 8 - 87 > ADD 2 TO LENGTH OF L GIVING L ----- ^^^^^^ - 88 DISPLAY "Length 5 + 2" L - 89 END-DISPLAY ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:91.14-91.20: - 88 DISPLAY "Length 5 + 2" L - 89 END-DISPLAY - 90 END-IF - 91 > IF LENGTH L + 2 NOT = 8 ----- ^^^^^^ - 92 ADD 2 TO LENGTH L GIVING L - 93 DISPLAY "Length 5a + 2 " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:92.23-92.29: - 89 END-DISPLAY - 90 END-IF - 91 IF LENGTH L + 2 NOT = 8 - 92 > ADD 2 TO LENGTH L GIVING L ----- ^^^^^^ - 93 DISPLAY "Length 5a + 2 " L - 94 END-DISPLAY ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:97.19-97.25: - 94 END-DISPLAY - 95 END-IF - 96 MOVE 0 TO L - 97 > PERFORM LENGTH OF L TIMES ----- ^^^^^^ - 98 ADD 1 TO L - 99 END-PERFORM ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:100.19-100.25: - 97 PERFORM LENGTH OF L TIMES - 98 ADD 1 TO L - 99 END-PERFORM - 100 > PERFORM LENGTH L TIMES ----- ^^^^^^ - 101 ADD 1 TO L - 102 END-PERFORM ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:109.34-109.40: - 106 END-IF - 107 MOVE 0 TO L - 108 PERFORM VARME - 109 > VARYING I FROM LENGTH OF I ----- ^^^^^^ - 110 BY LENGTH OF X - 111 UNTIL I > LENGTH OF L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:110.34-110.40: - 107 MOVE 0 TO L - 108 PERFORM VARME - 109 VARYING I FROM LENGTH OF I - 110 > BY LENGTH OF X ----- ^^^^^^ - 111 UNTIL I > LENGTH OF L - 112 IF ((L NOT = 3) OR ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:111.31-111.37: - 108 PERFORM VARME - 109 VARYING I FROM LENGTH OF I - 110 BY LENGTH OF X - 111 > UNTIL I > LENGTH OF L ----- ^^^^^^ - 112 IF ((L NOT = 3) OR - 113 (I NOT = 8) ) ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:119.34-119.40: - 116 END-IF - 117 MOVE 0 TO L - 118 PERFORM VARME - 119 > VARYING I FROM LENGTH I ----- ^^^^^^ - 120 BY LENGTH X - 121 UNTIL I > LENGTH L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:120.34-120.40: - 117 MOVE 0 TO L - 118 PERFORM VARME - 119 VARYING I FROM LENGTH I - 120 > BY LENGTH X ----- ^^^^^^ - 121 UNTIL I > LENGTH L - 122 IF ((L NOT = 3) OR ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:121.31-121.37: - 118 PERFORM VARME - 119 VARYING I FROM LENGTH I - 120 BY LENGTH X - 121 > UNTIL I > LENGTH L ----- ^^^^^^ - 122 IF ((L NOT = 3) OR - 123 (I NOT = 8) ) ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:127.16-127.22: - 124 DISPLAY "Length 7a " L " - " I - 125 END-DISPLAY - 126 END-IF - 127 > MOVE LENGTH OF RENAME-STD-SG TO L ----- ^^^^^^ - 128 IF L NOT = 33 - 129 DISPLAY "Length 8a " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:132.16-132.22: - 129 DISPLAY "Length 8a " L - 130 END-DISPLAY - 131 END-IF - 132 > MOVE LENGTH OF RENAME-STD-G TO L ----- ^^^^^^ - 133 IF L NOT = 43 - 134 DISPLAY "Length 8b " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:137.16-137.22: - 134 DISPLAY "Length 8b " L - 135 END-DISPLAY - 136 END-IF - 137 > MOVE LENGTH OF RENAME-STD TO L ----- ^^^^^^ - 138 IF L NOT = 33 - 139 DISPLAY "Length 8c " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:142.16-142.22: - 139 DISPLAY "Length 8c " L - 140 END-DISPLAY - 141 END-IF - 142 > MOVE LENGTH OF RENAME-G TO L ----- ^^^^^^ - 143 IF L NOT = 63 - 144 DISPLAY "Length 8d " L ->> Error: Invalid syntax - -run_extensions.at-445-prog.cob:148.19-148.25: - 145 END-DISPLAY - 146 END-IF - 147 *> one display test - 148 > DISPLAY LENGTH OF TSTDISP WITH NO ADVANCING ----- ^^^^^^ - 149 END-DISPLAY - 150 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:482:0 -run_extensions.at-482-prog.cob:16.21-16.25: - 13 01 LN PIC 9(06). - 14 - 15 PROCEDURE DIVISION. - 16 > SET LN TO SIZE OF TST ----- ^^^^ - 17 IF LN NOT = 10 - 18 DISPLAY "SIZE OF TST is " LN UPON SYSERR ->> Error: Invalid syntax - -run_extensions.at-482-prog.cob:21.21-21.25: - 18 DISPLAY "SIZE OF TST is " LN UPON SYSERR - 19 END-DISPLAY - 20 END-IF - 21 > SET LN TO SIZE OF TST2 ----- ^^^^ - 22 IF LN NOT = 165000 - 23 DISPLAY "SIZE OF TST2 is " LN UPON SYSERR ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:510:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:540:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:600:0 -run_extensions.at-600-prog.cob:26.19-26.25: - 23 MOVE '1' TO VXX (1). - 24 MOVE '22' TO VYY (1). - 25 MOVE '333' TO VZZ (1). - 26 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 27 DISPLAY VLEN NO ADVANCING - 28 END-DISPLAY. ->> Error: Invalid syntax - -run_extensions.at-600-prog.cob:41.19-41.25: - 38 MOVE '3' TO VXX (3). - 39 MOVE '22' TO VYY (2). - 40 MOVE '111' TO VZZ (1). - 41 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 42 DISPLAY VLEN NO ADVANCING - 43 END-DISPLAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:664:0 -run_extensions.at-664-prog.cob:26.19-26.25: - 23 MOVE '1' TO VXX (1). - 24 MOVE '22' TO VYY (1). - 25 MOVE '333' TO VZZ (1). - 26 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 27 DISPLAY VLEN NO ADVANCING - 28 END-DISPLAY. ->> Error: Invalid syntax - -run_extensions.at-664-prog.cob:41.19-41.25: - 38 MOVE '3' TO VXX (3). - 39 MOVE '22' TO VYY (2). - 40 MOVE '111' TO VZZ (1). - 41 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 42 DISPLAY VLEN NO ADVANCING - 43 END-DISPLAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:730:0 -run_extensions.at-730-prog.cob:28.19-28.25: - 25 MOVE '22' TO VYY (1). - 26 MOVE '333' TO VZZ (1). - 27 MOVE '444' TO VFIX. - 28 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 29 DISPLAY VLEN NO ADVANCING - 30 END-DISPLAY. ->> Error: Invalid syntax - -run_extensions.at-730-prog.cob:44.19-44.25: - 41 MOVE '22' TO VYY (2). - 42 MOVE '111' TO VZZ (1). - 43 MOVE '000' TO VFIX. - 44 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 45 DISPLAY VLEN NO ADVANCING - 46 END-DISPLAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:796:0 -run_extensions.at-796-prog.cob:28.19-28.25: - 25 MOVE '22' TO VYY (1). - 26 MOVE '333' TO VZZ (1). - 27 MOVE '444' TO VFIX. - 28 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 29 DISPLAY VLEN NO ADVANCING - 30 END-DISPLAY. ->> Error: Invalid syntax - -run_extensions.at-796-prog.cob:44.19-44.25: - 41 MOVE '22' TO VYY (2). - 42 MOVE '111' TO VZZ (1). - 43 MOVE '000' TO VFIX. - 44 > MOVE LENGTH OF VGROUP TO VLEN. ----- ^^^^^^ - 45 DISPLAY VLEN NO ADVANCING - 46 END-DISPLAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:840:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:900:0 -run_extensions.at-900-prog.cob:17.35: - 14 - 15 LINKAGE SECTION. - 16 01 A-TABLE. - 17 > 03 ROWS OCCURS 0 TO UNBOUNDED TIMES ----- ^ - 18 DEPENDING ON N. - 19 05 COL1 PIC X. ->> Hint: Missing - -run_extensions.at-900-prog.cob:17.36-17.45: - 14 - 15 LINKAGE SECTION. - 16 01 A-TABLE. - 17 > 03 ROWS OCCURS 0 TO UNBOUNDED TIMES ----- ^^^^^^^^^ - 18 DEPENDING ON N. - 19 05 COL1 PIC X. ->> Error: Invalid syntax - -run_extensions.at-900-prog.cob:32.32-32.34: - 29 END-DISPLAY - 30 END-IF - 31 ALLOCATE FUNCTION LENGTH (A-TABLE) CHARACTERS - 32 > INITIALIZED TO ALL "ABCDE" ----- ^^ - 33 RETURNING P - 34 SET ADDRESS OF A-TABLE TO P ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1034:0 -run_extensions.at-1034-ALLOC.cob:2.7-2.9: - 1 - 2 > ID DIVISION. ----- ^^ - 3 PROGRAM-ID. ALLOC. - 4 ENVIRONMENT DIVISION. ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:18.34: - 15 01 VARGRP. - 16 02 OBJ PIC 9(4) COMP. - 17 02 TABGRP. - 18 > 03 VARTAB OCCURS 1 TO UNBOUNDED DEPENDING ON OBJ. ----- ^ - 19 04 T1 PIC 9(4). - 20 04 T2 PIC X(8). ->> Hint: Missing - -run_extensions.at-1034-ALLOC.cob:18.35-18.44: - 15 01 VARGRP. - 16 02 OBJ PIC 9(4) COMP. - 17 02 TABGRP. - 18 > 03 VARTAB OCCURS 1 TO UNBOUNDED DEPENDING ON OBJ. ----- ^^^^^^^^^ - 19 04 T1 PIC 9(4). - 20 04 T2 PIC X(8). ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:69.35-69.41: - 66 ALLOC-VARGRP. - 67 - 68 If VPTR = NULL Then *> If first time, allocate the table - 69 > COMPUTE SIZE-NEEDED = LENGTH OF OBJ + ----- ^^^^^^ - 70 LENGTH OF VARTAB * NUM-ELEMENTS - 71 display 'First allocation, using ' size-needed ' bytes.' ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:70.33-70.39: - 67 - 68 If VPTR = NULL Then *> If first time, allocate the table - 69 COMPUTE SIZE-NEEDED = LENGTH OF OBJ + - 70 > LENGTH OF VARTAB * NUM-ELEMENTS ----- ^^^^^^ - 71 display 'First allocation, using ' size-needed ' bytes.' - 72 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:89.35-89.41: - 86 ********************************************************************* - 87 * Calculate new size from NUM-ElEMENTS - 88 ********************************************************************* - 89 > COMPUTE SIZE-NEEDED = LENGTH OF OBJ + ----- ^^^^^^ - 90 LENGTH OF VARTAB * NUM-ELEMENTS - 91 ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:90.35-90.41: - 87 * Calculate new size from NUM-ElEMENTS - 88 ********************************************************************* - 89 COMPUTE SIZE-NEEDED = LENGTH OF OBJ + - 90 > LENGTH OF VARTAB * NUM-ELEMENTS ----- ^^^^^^ - 91 - 92 display 'Re-allocation, using ' size-needed ' bytes.' ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:95.59: - 92 display 'Re-allocation, using ' size-needed ' bytes.' - 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR - 94 if size-needed < 2097152 - 95 > ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED ----- ^ - 96 loc 24 - 97 RETURNING VPTR ->> Hint: Missing RETURNING . - -run_extensions.at-1034-ALLOC.cob:96.48-96.51: - 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR - 94 if size-needed < 2097152 - 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 96 > loc 24 ----- ^^^ - 97 RETURNING VPTR - 98 else ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:96.51: - 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR - 94 if size-needed < 2097152 - 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 96 > loc 24 ----- ^ - 97 RETURNING VPTR - 98 else ->> Hint: Missing . - -run_extensions.at-1034-ALLOC.cob:96.52-96.54: - 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR - 94 if size-needed < 2097152 - 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 96 > loc 24 ----- ^^ - 97 RETURNING VPTR - 98 else ->> Warning: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:96.54: - 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR - 94 if size-needed < 2097152 - 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 96 > loc 24 ----- ^ - 97 RETURNING VPTR - 98 else ->> Hint: Missing . - -run_extensions.at-1034-ALLOC.cob:97.48-97.57: - 94 if size-needed < 2097152 - 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 96 loc 24 - 97 > RETURNING VPTR ----- ^^^^^^^^^ - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED ->> Warning: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:97.62: - 94 if size-needed < 2097152 - 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 96 loc 24 - 97 > RETURNING VPTR ----- ^ - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED ->> Hint: Missing . - -run_extensions.at-1034-ALLOC.cob:98.13-98.17: - 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 96 loc 24 - 97 RETURNING VPTR - 98 > else ----- ^^^^ - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 loc 31 ->> Warning: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:99.59: - 96 loc 24 - 97 RETURNING VPTR - 98 else - 99 > ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED ----- ^ - 100 loc 31 - 101 RETURNING VPTR ->> Hint: Missing RETURNING . - -run_extensions.at-1034-ALLOC.cob:100.48-100.51: - 97 RETURNING VPTR - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 > loc 31 ----- ^^^ - 101 RETURNING VPTR - 102 end-if ->> Error: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:100.51: - 97 RETURNING VPTR - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 > loc 31 ----- ^ - 101 RETURNING VPTR - 102 end-if ->> Hint: Missing . - -run_extensions.at-1034-ALLOC.cob:100.52-100.54: - 97 RETURNING VPTR - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 > loc 31 ----- ^^ - 101 RETURNING VPTR - 102 end-if ->> Warning: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:100.54: - 97 RETURNING VPTR - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 > loc 31 ----- ^ - 101 RETURNING VPTR - 102 end-if ->> Hint: Missing . - -run_extensions.at-1034-ALLOC.cob:101.48-101.57: - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 loc 31 - 101 > RETURNING VPTR ----- ^^^^^^^^^ - 102 end-if - 103 ->> Warning: Invalid syntax - -run_extensions.at-1034-ALLOC.cob:101.62: - 98 else - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 loc 31 - 101 > RETURNING VPTR ----- ^ - 102 end-if - 103 ->> Hint: Missing . - -run_extensions.at-1034-ALLOC.cob:102.13-102.19: - 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED - 100 loc 31 - 101 RETURNING VPTR - 102 > end-if ----- ^^^^^^ - 103 - 104 ************************************************************* ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1142:0 -run_extensions.at-1142-prog.cob:15.35: - 12 03 prefix. - 13 05 n PIC 9(03) VALUE 123. - 14 03 table-data value all "ABCDE". - 15 > 04 rows OCCURS 0 TO UNBOUNDED TIMES ----- ^ - 16 DEPENDING ON n. - 17 05 col1 PIC X. ->> Hint: Missing - -run_extensions.at-1142-prog.cob:15.36-15.45: - 12 03 prefix. - 13 05 n PIC 9(03) VALUE 123. - 14 03 table-data value all "ABCDE". - 15 > 04 rows OCCURS 0 TO UNBOUNDED TIMES ----- ^^^^^^^^^ - 16 DEPENDING ON n. - 17 05 col1 PIC X. ->> Error: Invalid syntax - -run_extensions.at-1142-prog.cob:21.19: - 18 05 col2 PIC X(02). - 19 - 20 PROCEDURE DIVISION. - 21 > ALLOCATE LENGTH OF prefix CHARACTERS ----- ^ - 22 RETURNING p - 23 SET ADDRESS OF a-table TO p ->> Hint: Missing - -run_extensions.at-1142-prog.cob:21.20-21.26: - 18 05 col2 PIC X(02). - 19 - 20 PROCEDURE DIVISION. - 21 > ALLOCATE LENGTH OF prefix CHARACTERS ----- ^^^^^^ - 22 RETURNING p - 23 SET ADDRESS OF a-table TO p ->> Error: Invalid syntax - -run_extensions.at-1142-prog.cob:34.14-34.20: - 31 - 32 INITIALIZE prefix ALL TO VALUE - 33 - 34 > IF LENGTH OF a-table NOT = 372 ----- ^^^^^^ - 35 MOVE LENGTH OF a-table TO dlen - 36 DISPLAY "BAD SIZE: " dlen. ->> Error: Invalid syntax - -run_extensions.at-1142-prog.cob:35.19-35.25: - 32 INITIALIZE prefix ALL TO VALUE - 33 - 34 IF LENGTH OF a-table NOT = 372 - 35 > MOVE LENGTH OF a-table TO dlen ----- ^^^^^^ - 36 DISPLAY "BAD SIZE: " dlen. - 37 ->> Error: Invalid syntax - -run_extensions.at-1142-prog.cob:47.43-47.49: - 44 - 45 *> check if ref-mod also works as expected - 46 MOVE 2 TO n - 47 > MOVE ALL ZEROES TO a-table (1: (LENGTH OF a-table)) ----- ^^^^^^ - 48 MOVE 7 TO n - 49 IF rows(2) NOT = "000" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1235:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1418:0 -run_extensions.at-1418-prog.cob:108.16-108.22: - 105 - 106 WRITE-REC SECTION. - 107 ADD 1 TO SEQ. - 108 > MOVE LENGTH OF TSTREC TO LN. ----- ^^^^^^ - 109 DISPLAY "Write SEQ " SEQ ", DEP-X = " DEP-X - 110 " & DEP-Y = " DEP-Y ->> Error: Invalid syntax - -run_extensions.at-1418-prog.cob:118.16-118.22: - 115 UNTIL IX > DEP-X - 116 MOVE IX TO TSTG-1 (IX) - 117 END-PERFORM. - 118 > MOVE LENGTH OF TSTGRP1 TO LN. ----- ^^^^^^ - 119 DISPLAY "Group1: '" TSTGRP1 "' len:" LN. - 120 PERFORM VARYING IX FROM 1 BY 1 ->> Error: Invalid syntax - -run_extensions.at-1418-prog.cob:148.16-148.22: - 145 MOVE IX TO TSTG2-1 (IX) - 146 END-PERFORM. - 147 MOVE "<>" TO TST2TAIL1. - 148 > MOVE LENGTH OF TSTGRP2 TO LN. ----- ^^^^^^ - 149 DISPLAY "Group2: '" TSTGRP2 "' len:" LN. - 150 WRITE TSTREC. ->> Error: Invalid syntax - -run_extensions.at-1418-prog.cob:155.16-155.22: - 152 READ-REC SECTION. - 153 READ-10. - 154 READ FLATFILE AT END GO TO READ-99. - 155 > MOVE LENGTH OF TSTREC TO LN. ----- ^^^^^^ - 156 DISPLAY "Read SEQ " SEQ ", DEP-X = " DEP-X - 157 " & DEP-Y = " DEP-Y ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1458:0 -run_extensions.at-1458-reference:1.6-1.7: - 1 > 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> ----- ^ - 2 020102Howdy 1<> 01***Ab. 3<> - 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> ->> Error: Unexpected indicator: `H' - -run_extensions.at-1458-reference:2.6-2.7: - 1 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> - 2 > 020102Howdy 1<> 01***Ab. 3<> ----- ^ - 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> - 4 040310Howdy 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<> ->> Error: Unexpected indicator: `H' - -run_extensions.at-1458-reference:3.6-3.7: - 1 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> - 2 020102Howdy 1<> 01***Ab. 3<> - 3 > 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> ----- ^ - 4 040310Howdy 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<> ->> Error: Unexpected indicator: `H' - -run_extensions.at-1458-reference:4.6-4.7: - 1 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> - 2 020102Howdy 1<> 01***Ab. 3<> - 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> - 4 > 040310Howdy 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<> ----- ^ ->> Error: Unexpected indicator: `H' - -run_extensions.at-1458-reference:1.7-1.11: - 1 > 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> ----- ^^^^ - 2 020102Howdy 1<> 01***Ab. 3<> - 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1556:0 -run_extensions.at-1556-prog.cob:59.38-59.47: - 56 10 ARRAY OCCURS 2 TIMES. - 57 20 L1-1. - 58 25 L1-1-1 PIC X(3). - 59 > 25 L1-1-2 OCCURS 4 TIMES DEPENDING ON L1-1-2-S. ----- ^^^^^^^^^ - 60 30 L1-1-2-1 OCCURS 5 TIMES DEPENDING ON L1-1-2-1-S - 61 PIC XXX. ->> Error: Invalid syntax - -run_extensions.at-1556-prog.cob:60.42-60.51: - 57 20 L1-1. - 58 25 L1-1-1 PIC X(3). - 59 25 L1-1-2 OCCURS 4 TIMES DEPENDING ON L1-1-2-S. - 60 > 30 L1-1-2-1 OCCURS 5 TIMES DEPENDING ON L1-1-2-1-S ----- ^^^^^^^^^ - 61 PIC XXX. - 62 20 L1-2 OCCURS 0 TO 1 TIMES DEPENDING ON L1-2-S PIC XX. ->> Error: Invalid syntax - -run_extensions.at-1556-prog.cob:76.32-76.38: - 73 L1-2-S - 74 L1-3-S - 75 L1-3-2-S. - 76 > DISPLAY "Length is " LENGTH OF BASE ----- ^^^^^^ - 77 " with " L1-1-2-S - 78 ", " L1-1-2-1-S ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1619:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1695:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1754:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1753:0 -run_extensions.at-1753-setfilename.c:6.6-6.7: - 3 #include - 4 #include - 5 - 6 > COB_EXT_EXPORT int ----- ^ - 7 setfilename (cob_file *f, unsigned char *name) - 8 { ->> Error: Unexpected indicator: `T' - -run_extensions.at-1753-setfilename.c:7.6-7.7: - 4 #include - 5 - 6 COB_EXT_EXPORT int - 7 > setfilename (cob_file *f, unsigned char *name) ----- ^ - 8 { - 9 memcpy (f->assign->data, name, strlen ((char *)name)); ->> Error: Unexpected indicator: `e' - -run_extensions.at-1753-setfilename.c:9.6-9.7: - 6 COB_EXT_EXPORT int - 7 setfilename (cob_file *f, unsigned char *name) - 8 { - 9 > memcpy (f->assign->data, name, strlen ((char *)name)); ----- ^ - 10 return 0; - 11 } ->> Error: Unexpected indicator: `p' - -run_extensions.at-1753-setfilename.c:10.6-10.7: - 7 setfilename (cob_file *f, unsigned char *name) - 8 { - 9 memcpy (f->assign->data, name, strlen ((char *)name)); - 10 > return 0; ----- ^ - 11 } ->> Error: Unexpected indicator: `r' - -run_extensions.at-1753-setfilename.c:6.7-6.14: - 3 #include - 4 #include - 5 - 6 > COB_EXT_EXPORT int ----- ^^^^^^^ - 7 setfilename (cob_file *f, unsigned char *name) - 8 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1816:0 -run_extensions.at-1816-A#B.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A#B". ----- ^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P2" NO ADVANCING ->> Hint: Missing - -run_extensions.at-1816-A#B.cob:3.24-3.29: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A#B". ----- ^^^^^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P2" NO ADVANCING ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1817:0 -run_extensions.at-1817-A-B.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A-B". ----- ^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P3" NO ADVANCING ->> Hint: Missing - -run_extensions.at-1817-A-B.cob:3.24-3.29: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A-B". ----- ^^^^^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P3" NO ADVANCING ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1815:0 -run_extensions.at-1815-A@B.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A@B". ----- ^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P1" NO ADVANCING ->> Hint: Missing - -run_extensions.at-1815-A@B.cob:3.24-3.29: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A@B". ----- ^^^^^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P1" NO ADVANCING ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1818:0 -run_extensions.at-1818-A_B.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A_B". ----- ^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P4" NO ADVANCING ->> Hint: Missing - -run_extensions.at-1818-A_B.cob:3.24-3.29: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "A_B". ----- ^^^^^ - 4 PROCEDURE DIVISION. - 5 DISPLAY "P4" NO ADVANCING ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1819:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1866:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1867:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1905:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1999:0 -run_extensions.at-1999-prog.cob:12.41-12.45: - 9 END-CALL - 10 - 11 *> Test of explicit SIZE syntax - 12 > CALL "prog2" USING BY VALUE 1 SIZE 1 2 0 0 0 ----- ^^^^ - 13 END-CALL - 14 CALL "prog2" USING BY VALUE 2 0 SIZE 2 3 0 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:14.43-14.47: - 11 *> Test of explicit SIZE syntax - 12 CALL "prog2" USING BY VALUE 1 SIZE 1 2 0 0 0 - 13 END-CALL - 14 > CALL "prog2" USING BY VALUE 2 0 SIZE 2 3 0 0 ----- ^^^^ - 15 END-CALL - 16 CALL "prog2" USING BY VALUE 4 0 0 SIZE 4 4 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:16.45-16.49: - 13 END-CALL - 14 CALL "prog2" USING BY VALUE 2 0 SIZE 2 3 0 0 - 15 END-CALL - 16 > CALL "prog2" USING BY VALUE 4 0 0 SIZE 4 4 0 ----- ^^^^ - 17 END-CALL - 18 CALL "prog2" USING BY VALUE 8 0 0 0 SIZE 8 5 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:18.47-18.51: - 15 END-CALL - 16 CALL "prog2" USING BY VALUE 4 0 0 SIZE 4 4 0 - 17 END-CALL - 18 > CALL "prog2" USING BY VALUE 8 0 0 0 SIZE 8 5 ----- ^^^^ - 19 END-CALL - 20 CALL "prog2" USING BY VALUE 4 0 0 SIZE DEFAULT 6 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:20.45-20.49: - 17 END-CALL - 18 CALL "prog2" USING BY VALUE 8 0 0 0 SIZE 8 5 - 19 END-CALL - 20 > CALL "prog2" USING BY VALUE 4 0 0 SIZE DEFAULT 6 0 ----- ^^^^ - 21 END-CALL - 22 CALL "prog2" USING BY VALUE 4 0 0 SIZE AUTO 7 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:22.45-22.49: - 19 END-CALL - 20 CALL "prog2" USING BY VALUE 4 0 0 SIZE DEFAULT 6 0 - 21 END-CALL - 22 > CALL "prog2" USING BY VALUE 4 0 0 SIZE AUTO 7 0 ----- ^^^^ - 23 END-CALL - 24 *> test for SIZE AUTO with VALUE > INT_MAX is non-portable ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:27.50-27.54: - 24 *> test for SIZE AUTO with VALUE > INT_MAX is non-portable - 25 - 26 *> Test of explicit UNSIGNED SIZE syntax - 27 > CALL "prog2" USING BY VALUE 1 UNSIGNED SIZE 1 2 0 0 0 ----- ^^^^ - 28 END-CALL - 29 CALL "prog2" USING BY VALUE 2 0 UNSIGNED SIZE 2 3 0 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:29.52-29.56: - 26 *> Test of explicit UNSIGNED SIZE syntax - 27 CALL "prog2" USING BY VALUE 1 UNSIGNED SIZE 1 2 0 0 0 - 28 END-CALL - 29 > CALL "prog2" USING BY VALUE 2 0 UNSIGNED SIZE 2 3 0 0 ----- ^^^^ - 30 END-CALL - 31 CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE 4 4 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:31.54-31.58: - 28 END-CALL - 29 CALL "prog2" USING BY VALUE 2 0 UNSIGNED SIZE 2 3 0 0 - 30 END-CALL - 31 > CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE 4 4 0 ----- ^^^^ - 32 END-CALL - 33 CALL "prog2" USING BY VALUE 8 0 0 0 UNSIGNED SIZE 8 5 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:33.56-33.60: - 30 END-CALL - 31 CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE 4 4 0 - 32 END-CALL - 33 > CALL "prog2" USING BY VALUE 8 0 0 0 UNSIGNED SIZE 8 5 0 ----- ^^^^ - 34 END-CALL - 35 CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE AUTO 6 0 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:35.54-35.58: - 32 END-CALL - 33 CALL "prog2" USING BY VALUE 8 0 0 0 UNSIGNED SIZE 8 5 0 - 34 END-CALL - 35 > CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE AUTO 6 0 ----- ^^^^ - 36 END-CALL - 37 *> test for SIZE AUTO with VALUE > INT_MAX is non-portable ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:60.51: - 57 01 VAR-2 USAGE BINARY-SHORT. - 58 01 VAR-4 USAGE BINARY-LONG. - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 > PROCEDURE DIVISION USING BY VALUE LEN ----- ^ - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:61.48-61.52: - 58 01 VAR-4 USAGE BINARY-LONG. - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 > SIZE 1 VAR-1 ----- ^^^^ - 62 SIZE 2 VAR-2 - 63 SIZE 4 VAR-4 ->> Error: Invalid syntax - -run_extensions.at-1999-prog.cob:61.54: - 58 01 VAR-4 USAGE BINARY-LONG. - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 > SIZE 1 VAR-1 ----- ^ - 62 SIZE 2 VAR-2 - 63 SIZE 4 VAR-4 ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:61.55-61.60: - 58 01 VAR-4 USAGE BINARY-LONG. - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 > SIZE 1 VAR-1 ----- ^^^^^ - 62 SIZE 2 VAR-2 - 63 SIZE 4 VAR-4 ->> Warning: Invalid syntax - -run_extensions.at-1999-prog.cob:61.60: - 58 01 VAR-4 USAGE BINARY-LONG. - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 > SIZE 1 VAR-1 ----- ^ - 62 SIZE 2 VAR-2 - 63 SIZE 4 VAR-4 ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:62.48-62.52: - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 > SIZE 2 VAR-2 ----- ^^^^ - 63 SIZE 4 VAR-4 - 64 SIZE 8 VAR-8. ->> Warning: Invalid syntax - -run_extensions.at-1999-prog.cob:62.54: - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 > SIZE 2 VAR-2 ----- ^ - 63 SIZE 4 VAR-4 - 64 SIZE 8 VAR-8. ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:62.55-62.60: - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 > SIZE 2 VAR-2 ----- ^^^^^ - 63 SIZE 4 VAR-4 - 64 SIZE 8 VAR-8. ->> Warning: Invalid syntax - -run_extensions.at-1999-prog.cob:62.60: - 59 01 VAR-8 USAGE BINARY-DOUBLE. - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 > SIZE 2 VAR-2 ----- ^ - 63 SIZE 4 VAR-4 - 64 SIZE 8 VAR-8. ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:63.48-63.52: - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 - 63 > SIZE 4 VAR-4 ----- ^^^^ - 64 SIZE 8 VAR-8. - 65 EVALUATE len ->> Warning: Invalid syntax - -run_extensions.at-1999-prog.cob:63.54: - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 - 63 > SIZE 4 VAR-4 ----- ^ - 64 SIZE 8 VAR-8. - 65 EVALUATE len ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:63.55-63.60: - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 - 63 > SIZE 4 VAR-4 ----- ^^^^^ - 64 SIZE 8 VAR-8. - 65 EVALUATE len ->> Warning: Invalid syntax - -run_extensions.at-1999-prog.cob:63.60: - 60 PROCEDURE DIVISION USING BY VALUE LEN - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 - 63 > SIZE 4 VAR-4 ----- ^ - 64 SIZE 8 VAR-8. - 65 EVALUATE len ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:64.48-64.52: - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 - 63 SIZE 4 VAR-4 - 64 > SIZE 8 VAR-8. ----- ^^^^ - 65 EVALUATE len - 66 WHEN 1 ->> Warning: Invalid syntax - -run_extensions.at-1999-prog.cob:64.54: - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 - 63 SIZE 4 VAR-4 - 64 > SIZE 8 VAR-8. ----- ^ - 65 EVALUATE len - 66 WHEN 1 ->> Hint: Missing . - -run_extensions.at-1999-prog.cob:64.55-64.60: - 61 SIZE 1 VAR-1 - 62 SIZE 2 VAR-2 - 63 SIZE 4 VAR-4 - 64 > SIZE 8 VAR-8. ----- ^^^^^ - 65 EVALUATE len - 66 WHEN 1 ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2086:0 -run_extensions.at-2086-callee32.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 callee32(cob_s32_t val) - 7 { ->> Error: Unexpected indicator: `T' - -run_extensions.at-2086-callee32.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > callee32(cob_s32_t val) ----- ^ - 7 { - 8 printf("VAL received: %d\n", val); ->> Error: Unexpected indicator: `3' - -run_extensions.at-2086-callee32.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 callee32(cob_s32_t val) - 7 { - 8 > printf("VAL received: %d\n", val); ----- ^ - 9 return 0; - 10 } ->> Error: Unexpected indicator: `t' - -run_extensions.at-2086-callee32.c:9.6-9.7: - 6 callee32(cob_s32_t val) - 7 { - 8 printf("VAL received: %d\n", val); - 9 > return 0; ----- ^ - 10 } ->> Error: Unexpected indicator: `r' - -run_extensions.at-2086-callee32.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 callee32(cob_s32_t val) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2086:0 -run_extensions.at-2086-callee64.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 callee64(cob_s64_t val) - 7 { ->> Error: Unexpected indicator: `T' - -run_extensions.at-2086-callee64.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > callee64(cob_s64_t val) ----- ^ - 7 { - 8 printf("VAL received: " CB_FMT_LLD "\n", val); ->> Error: Unexpected indicator: `6' - -run_extensions.at-2086-callee64.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 callee64(cob_s64_t val) - 7 { - 8 > printf("VAL received: " CB_FMT_LLD "\n", val); ----- ^ - 9 return 0; - 10 } ->> Error: Unexpected indicator: `t' - -run_extensions.at-2086-callee64.c:9.6-9.7: - 6 callee64(cob_s64_t val) - 7 { - 8 printf("VAL received: " CB_FMT_LLD "\n", val); - 9 > return 0; ----- ^ - 10 } ->> Error: Unexpected indicator: `r' - -run_extensions.at-2086-callee64.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 callee64(cob_s64_t val) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2060:0 -run_extensions.at-2060-caller.cob:12.32: - 9 03 ADR-PTR USAGE POINTER. - 10 03 ADR-BUFFER REDEFINES ADR-PTR USAGE COMP-5 PIC S9(8). - 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. - 12 > PROCEDURE DIVISION CHAINING CALL-NAME. ----- ^ - 13 - 14 >> IF P64 DEFINED ->> Hint: Missing . - -run_extensions.at-2060-caller.cob:12.34-12.42: - 9 03 ADR-PTR USAGE POINTER. - 10 03 ADR-BUFFER REDEFINES ADR-PTR USAGE COMP-5 PIC S9(8). - 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. - 12 > PROCEDURE DIVISION CHAINING CALL-NAME. ----- ^^^^^^^^ - 13 - 14 >> IF P64 DEFINED ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:14.6-14.7: - 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. - 12 PROCEDURE DIVISION CHAINING CALL-NAME. - 13 - 14 > >> IF P64 DEFINED ----- ^ - 15 MOVE "callee64" TO CALL-NAME - 16 >> ELSE ->> Error: Unexpected indicator: `>' - -run_extensions.at-2060-caller.cob:16.6-16.7: - 13 - 14 >> IF P64 DEFINED - 15 MOVE "callee64" TO CALL-NAME - 16 > >> ELSE ----- ^ - 17 MOVE "callee32" TO CALL-NAME - 18 >> END-IF ->> Error: Unexpected indicator: `>' - -run_extensions.at-2060-caller.cob:18.6-18.7: - 15 MOVE "callee64" TO CALL-NAME - 16 >> ELSE - 17 MOVE "callee32" TO CALL-NAME - 18 > >> END-IF ----- ^ - 19 - 20 MOVE 12345678 TO ADR-BUFFER ->> Error: Unexpected indicator: `>' - -run_extensions.at-2060-caller.cob:28.6-28.7: - 25 CALL CALL-NAME USING BY VALUE LENGTH OF SOME-FILL - 26 - 27 MOVE -42 TO ADR-BUFFER - 28 > >> IF P64 DEFINED ----- ^ - 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER - 30 CALL "callee64" USING BY VALUE BIG-BUFF ->> Error: Unexpected indicator: `>' - -run_extensions.at-2060-caller.cob:31.6-31.7: - 28 >> IF P64 DEFINED - 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER - 30 CALL "callee64" USING BY VALUE BIG-BUFF - 31 > >> ELSE ----- ^ - 32 CALL "callee32" USING BY VALUE ADR-BUFFER - 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF ->> Error: Unexpected indicator: `>' - -run_extensions.at-2060-caller.cob:34.6-34.7: - 31 >> ELSE - 32 CALL "callee32" USING BY VALUE ADR-BUFFER - 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF - 34 > >> END-IF ----- ^ - 35 - 36 GOBACK. ->> Error: Unexpected indicator: `>' - -run_extensions.at-2060-caller.cob:14.7-14.8: - 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. - 12 PROCEDURE DIVISION CHAINING CALL-NAME. - 13 - 14 > >> IF P64 DEFINED ----- ^ - 15 MOVE "callee64" TO CALL-NAME - 16 >> ELSE ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:16.7-16.8: - 13 - 14 >> IF P64 DEFINED - 15 MOVE "callee64" TO CALL-NAME - 16 > >> ELSE ----- ^ - 17 MOVE "callee32" TO CALL-NAME - 18 >> END-IF ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:18.7-18.8: - 15 MOVE "callee64" TO CALL-NAME - 16 >> ELSE - 17 MOVE "callee32" TO CALL-NAME - 18 > >> END-IF ----- ^ - 19 - 20 MOVE 12345678 TO ADR-BUFFER ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:25.41-25.47: - 22 - 23 CALL CALL-NAME USING BY VALUE ADR-BUFFER - 24 - 25 > CALL CALL-NAME USING BY VALUE LENGTH OF SOME-FILL ----- ^^^^^^ - 26 - 27 MOVE -42 TO ADR-BUFFER ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:28.7-28.8: - 25 CALL CALL-NAME USING BY VALUE LENGTH OF SOME-FILL - 26 - 27 MOVE -42 TO ADR-BUFFER - 28 > >> IF P64 DEFINED ----- ^ - 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER - 30 CALL "callee64" USING BY VALUE BIG-BUFF ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:29.42-29.46: - 26 - 27 MOVE -42 TO ADR-BUFFER - 28 >> IF P64 DEFINED - 29 > CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER ----- ^^^^ - 30 CALL "callee64" USING BY VALUE BIG-BUFF - 31 >> ELSE ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:31.7-31.8: - 28 >> IF P64 DEFINED - 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER - 30 CALL "callee64" USING BY VALUE BIG-BUFF - 31 > >> ELSE ----- ^ - 32 CALL "callee32" USING BY VALUE ADR-BUFFER - 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:33.42-33.46: - 30 CALL "callee64" USING BY VALUE BIG-BUFF - 31 >> ELSE - 32 CALL "callee32" USING BY VALUE ADR-BUFFER - 33 > CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF ----- ^^^^ - 34 >> END-IF - 35 ->> Error: Invalid syntax - -run_extensions.at-2060-caller.cob:34.7-34.8: - 31 >> ELSE - 32 CALL "callee32" USING BY VALUE ADR-BUFFER - 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF - 34 > >> END-IF ----- ^ - 35 - 36 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2118:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2143:0 -run_extensions.at-2143-prog.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "caller". ----- ^ - 4 PROCEDURE DIVISION. - 5 CALL "callee" ->> Hint: Missing - -run_extensions.at-2143-prog.cob:3.24-3.32: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "caller". ----- ^^^^^^^^ - 4 PROCEDURE DIVISION. - 5 CALL "callee" ->> Error: Invalid syntax - -run_extensions.at-2143-prog.cob:8.18: - 5 CALL "callee" - 6 END-CALL. - 7 STOP RUN. - 8 > PROGRAM-ID. "callee". ----- ^ - 9 PROCEDURE DIVISION. - 10 EXIT PROGRAM. ->> Hint: Missing - -run_extensions.at-2143-prog.cob:8.24-8.32: - 5 CALL "callee" - 6 END-CALL. - 7 STOP RUN. - 8 > PROGRAM-ID. "callee". ----- ^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 EXIT PROGRAM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2166:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2213:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2210:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2279:0 -run_extensions.at-2279-prog.cob:10.18: - 7 STOP RUN. - 8 - 9 IDENTIFICATION DIVISION. - 10 > PROGRAM-ID. nested. ----- ^ - 11 PROCEDURE DIVISION. - 12 DISPLAY tally WITH NO ADVANCING. ->> Hint: Missing - -run_extensions.at-2279-prog.cob:10.24-10.30: - 7 STOP RUN. - 8 - 9 IDENTIFICATION DIVISION. - 10 > PROGRAM-ID. nested. ----- ^^^^^^ - 11 PROCEDURE DIVISION. - 12 DISPLAY tally WITH NO ADVANCING. ->> Error: Invalid syntax - -run_extensions.at-2279-prog.cob:14.18: - 11 PROCEDURE DIVISION. - 12 DISPLAY tally WITH NO ADVANCING. - 13 GOBACK. - 14 > END PROGRAM nested. ----- ^ ->> Hint: Missing - -run_extensions.at-2279-prog.cob:14.24-14.30: - 11 PROCEDURE DIVISION. - 12 DISPLAY tally WITH NO ADVANCING. - 13 GOBACK. - 14 > END PROGRAM nested. ----- ^^^^^^ ->> Error: Invalid syntax - -run_extensions.at-2279-prog.cob:14.31: - 11 PROCEDURE DIVISION. - 12 DISPLAY tally WITH NO ADVANCING. - 13 GOBACK. - 14 > END PROGRAM nested. ----- ^ ->> Hint: Missing END PROGRAM . - -run_extensions.at-2279-prog.cob:15.0: - 12 DISPLAY tally WITH NO ADVANCING. - 13 GOBACK. - 14 END PROGRAM nested. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2306:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2366:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2365:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2486:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2491:0 -run_extensions.at-2491-init.cob:11.32: - 8 03 ABCD PIC X(4). - 9 03 NUM PIC 9 VALUE 7. - 10 77 NUM2 PIC 99 VALUE 2. - 11 > PROCEDURE DIVISION ----- ^ - 12 CHAINING VAR. - 13 DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING ->> Hint: Missing . - -run_extensions.at-2491-init.cob:12.24-12.32: - 9 03 NUM PIC 9 VALUE 7. - 10 77 NUM2 PIC 99 VALUE 2. - 11 PROCEDURE DIVISION - 12 > CHAINING VAR. ----- ^^^^^^^^ - 13 DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING - 14 END-DISPLAY ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2476:0 -run_extensions.at-2476-prog.cob:9.32: - 6 01 X PIC X. - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 > PROCEDURE DIVISION ----- ^ - 10 CHAINING X ABCD NUM. - 11 IF X NOT = "X" OR ->> Hint: Missing . - -run_extensions.at-2476-prog.cob:10.24-10.32: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^^^^^^^^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Error: Invalid syntax - -run_extensions.at-2476-prog.cob:10.34: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Hint: Missing . - -run_extensions.at-2476-prog.cob:10.35-10.39: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^^^^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Warning: Invalid syntax - -run_extensions.at-2476-prog.cob:10.39: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Hint: Missing . - -run_extensions.at-2476-prog.cob:10.40-10.43: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^^^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2479:0 -run_extensions.at-2479-prog2.cob:10.32: - 7 03 X PIC X VALUE 'a'. - 8 03 ABCD PIC X(4). - 9 03 NUM PIC 9 VALUE 7. - 10 > PROCEDURE DIVISION ----- ^ - 11 CHAINING VAR. - 12 DISPLAY '-' VAR '-' WITH NO ADVANCING ->> Hint: Missing . - -run_extensions.at-2479-prog2.cob:11.24-11.32: - 8 03 ABCD PIC X(4). - 9 03 NUM PIC 9 VALUE 7. - 10 PROCEDURE DIVISION - 11 > CHAINING VAR. ----- ^^^^^^^^ - 12 DISPLAY '-' VAR '-' WITH NO ADVANCING - 13 END-DISPLAY ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2483:0 -run_extensions.at-2483-prog3.cob:9.32: - 6 01 X PIC X. - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 > PROCEDURE DIVISION ----- ^ - 10 CHAINING X ABCD NUM. - 11 IF X NOT = "X" OR ->> Hint: Missing . - -run_extensions.at-2483-prog3.cob:10.24-10.32: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^^^^^^^^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Error: Invalid syntax - -run_extensions.at-2483-prog3.cob:10.34: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Hint: Missing . - -run_extensions.at-2483-prog3.cob:10.35-10.39: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^^^^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Warning: Invalid syntax - -run_extensions.at-2483-prog3.cob:10.39: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Hint: Missing . - -run_extensions.at-2483-prog3.cob:10.40-10.43: - 7 01 ABCD PIC X(4). - 8 01 NUM PIC 9 VALUE 7. - 9 PROCEDURE DIVISION - 10 > CHAINING X ABCD NUM. ----- ^^^ - 11 IF X NOT = "X" OR - 12 ABCD NOT = "ABCD" ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2538:0 -run_extensions.at-2538-prog1.cob:9.19: - 6 77 RET PIC 99 USAGE DISPLAY. - 7 PROCEDURE DIVISION. - 8 MOVE 11 TO RET - 9 > STOP RUN RETURNING RET. ----- ^ ->> Hint: Missing . - -run_extensions.at-2538-prog1.cob:9.20-9.29: - 6 77 RET PIC 99 USAGE DISPLAY. - 7 PROCEDURE DIVISION. - 8 MOVE 11 TO RET - 9 > STOP RUN RETURNING RET. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2541:0 -run_extensions.at-2541-prog2.cob:9.19: - 6 77 RET PIC 99 USAGE PACKED-DECIMAL. - 7 PROCEDURE DIVISION. - 8 MOVE 22 TO RET - 9 > STOP RUN GIVING RET. ----- ^ ->> Hint: Missing . - -run_extensions.at-2541-prog2.cob:9.20-9.26: - 6 77 RET PIC 99 USAGE PACKED-DECIMAL. - 7 PROCEDURE DIVISION. - 8 MOVE 22 TO RET - 9 > STOP RUN GIVING RET. ----- ^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2544:0 -run_extensions.at-2544-prog3.cob:7.19: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > STOP RUN 33. ----- ^ ->> Hint: Missing . - -run_extensions.at-2544-prog3.cob:7.20-7.22: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > STOP RUN 33. ----- ^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2547:0 -run_extensions.at-2547-prog4.cob:5.19: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog4. - 4 PROCEDURE DIVISION. - 5 > STOP RUN RETURNING 44. ----- ^ ->> Hint: Missing . - -run_extensions.at-2547-prog4.cob:5.20-5.29: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog4. - 4 PROCEDURE DIVISION. - 5 > STOP RUN RETURNING 44. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2595:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2595:0 -run_extensions.at-2595-prog1.cob:5.24-5.33: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog1. - 4 PROCEDURE DIVISION. - 5 > EXIT PROGRAM RETURNING -1. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2595:0 -run_extensions.at-2595-prog2.cob:5.17: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog2. - 4 PROCEDURE DIVISION. - 5 > GOBACK GIVING 2. ----- ^ ->> Hint: Missing . - -run_extensions.at-2595-prog2.cob:5.18-5.24: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog2. - 4 PROCEDURE DIVISION. - 5 > GOBACK GIVING 2. ----- ^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2638:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2639:0 -run_extensions.at-2639-hello.cob:14.7-14.12: - 11 PROCEDURE DIVISION USING X. - 12 DISPLAY MSG-HELLO X "!". - 13 * verifies that this does not generate an exception - 14 > ENTRY "unused" USING Y. ----- ^^^^^ - 15 EXIT PROGRAM. - 16 ->> Error: Invalid syntax - -run_extensions.at-2639-hello.cob:17.7-17.12: - 14 ENTRY "unused" USING Y. - 15 EXIT PROGRAM. - 16 - 17 > ENTRY "bye" USING Y. ----- ^^^^^ - 18 DISPLAY MSG-BYE Y "!". - 19 EXIT PROGRAM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2700:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2699:0 -run_extensions.at-2699-prog.cob:9.30: - 6 FILE-CONTROL. - 7 SELECT TEST-FILE ASSIGN KEYBOARD - 8 ORGANIZATION IS LINE SEQUENTIAL. - 9 > SELECT TEST-OUT ASSIGN DISPLAY ----- ^ - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 DATA DIVISION. ->> Hint: Missing USING - -run_extensions.at-2699-prog.cob:9.32-9.39: - 6 FILE-CONTROL. - 7 SELECT TEST-FILE ASSIGN KEYBOARD - 8 ORGANIZATION IS LINE SEQUENTIAL. - 9 > SELECT TEST-OUT ASSIGN DISPLAY ----- ^^^^^^^ - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2761:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2760:0 -run_extensions.at-2760-prog.cob:9.30: - 6 FILE-CONTROL. - 7 SELECT TEST-FILE ASSIGN KEYBOARD - 8 ORGANIZATION IS LINE SEQUENTIAL. - 9 > SELECT TEST-OUT ASSIGN DISPLAY ----- ^ - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 SELECT SORT-FILE. ->> Hint: Missing USING - -run_extensions.at-2760-prog.cob:9.32-9.39: - 6 FILE-CONTROL. - 7 SELECT TEST-FILE ASSIGN KEYBOARD - 8 ORGANIZATION IS LINE SEQUENTIAL. - 9 > SELECT TEST-OUT ASSIGN DISPLAY ----- ^^^^^^^ - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 SELECT SORT-FILE. ->> Error: Invalid syntax - -run_extensions.at-2760-prog.cob:11.23-11.24: - 8 ORGANIZATION IS LINE SEQUENTIAL. - 9 SELECT TEST-OUT ASSIGN DISPLAY - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 > SELECT SORT-FILE. ----- ^ - 12 DATA DIVISION. - 13 FILE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2809:0 -run_extensions.at-2809-prog.cob:12.24: - 9 PROCEDURE DIVISION. - 10 DISPLAY "TEST_ENV" UPON ENVIRONMENT-NAME - 11 END-DISPLAY. - 12 > ACCEPT X FROM ENVIRONMENT-VALUE ----- ^ - 13 END-ACCEPT. - 14 DISPLAY "(" X ")" ->> Hint: Missing - -run_extensions.at-2809-prog.cob:12.25-12.42: - 9 PROCEDURE DIVISION. - 10 DISPLAY "TEST_ENV" UPON ENVIRONMENT-NAME - 11 END-DISPLAY. - 12 > ACCEPT X FROM ENVIRONMENT-VALUE ----- ^^^^^^^^^^^^^^^^^ - 13 END-ACCEPT. - 14 DISPLAY "(" X ")" ->> Error: Invalid syntax - -run_extensions.at-2809-prog.cob:18.24: - 15 END-DISPLAY. - 16 DISPLAY "RXW" UPON ENVIRONMENT-VALUE - 17 END-DISPLAY. - 18 > ACCEPT X FROM ENVIRONMENT-VALUE ----- ^ - 19 END-ACCEPT. - 20 DISPLAY "(" X ")" ->> Hint: Missing - -run_extensions.at-2809-prog.cob:18.25-18.42: - 15 END-DISPLAY. - 16 DISPLAY "RXW" UPON ENVIRONMENT-VALUE - 17 END-DISPLAY. - 18 > ACCEPT X FROM ENVIRONMENT-VALUE ----- ^^^^^^^^^^^^^^^^^ - 19 END-ACCEPT. - 20 DISPLAY "(" X ")" ->> Error: Invalid syntax - -run_extensions.at-2809-prog.cob:22.24: - 19 END-ACCEPT. - 20 DISPLAY "(" X ")" - 21 END-DISPLAY. - 22 > ACCEPT Y FROM ARGUMENT-VALUE ----- ^ - 23 END-ACCEPT. - 24 DISPLAY "(" Y ")" ->> Hint: Missing - -run_extensions.at-2809-prog.cob:22.25-22.39: - 19 END-ACCEPT. - 20 DISPLAY "(" X ")" - 21 END-DISPLAY. - 22 > ACCEPT Y FROM ARGUMENT-VALUE ----- ^^^^^^^^^^^^^^ - 23 END-ACCEPT. - 24 DISPLAY "(" Y ")" ->> Error: Invalid syntax - -run_extensions.at-2809-prog.cob:26.24: - 23 END-ACCEPT. - 24 DISPLAY "(" Y ")" - 25 END-DISPLAY. - 26 > ACCEPT Z FROM ARGUMENT-NUMBER ----- ^ - 27 END-ACCEPT. - 28 DISPLAY "(" Z ")" ->> Hint: Missing - -run_extensions.at-2809-prog.cob:26.25-26.40: - 23 END-ACCEPT. - 24 DISPLAY "(" Y ")" - 25 END-DISPLAY. - 26 > ACCEPT Z FROM ARGUMENT-NUMBER ----- ^^^^^^^^^^^^^^^ - 27 END-ACCEPT. - 28 DISPLAY "(" Z ")" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2835:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2861:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2885:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2998:0 -run_extensions.at-2998-prog.cob:11.11-11.17: - 8 ON IS SWIT1-ON - 9 OFF IS SWIT1-OFF - 10 . - 11 > SWITCH B IS SWITCH-B ----- ^^^^^^ - 12 ON IS SWIT2-ON - 13 OFF IS SWIT2-OFF ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3066:0 -run_extensions.at-3066-prog.cob:36.19-36.25: - 33 10 SECOND-VARIANT-B REDEFINES SECOND-HEADER. - 34 20 PART-B-SECOND PIC X(3879). - 35 PROCEDURE DIVISION. - 36 > MOVE LENGTH OF XMAIN TO Z. ----- ^^^^^^ - 37 IF Z NOT = 8 - 38 DISPLAY "Test 1 " Z. ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:39.19-39.25: - 36 MOVE LENGTH OF XMAIN TO Z. - 37 IF Z NOT = 8 - 38 DISPLAY "Test 1 " Z. - 39 > MOVE LENGTH OF XMAINRED TO Z. ----- ^^^^^^ - 40 IF Z NOT = 9 - 41 DISPLAY "Test 2 " Z. ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:42.19-42.25: - 39 MOVE LENGTH OF XMAINRED TO Z. - 40 IF Z NOT = 9 - 41 DISPLAY "Test 2 " Z. - 42 > MOVE LENGTH OF XMAIN03 TO Z. ----- ^^^^^^ - 43 IF Z NOT = 5 - 44 DISPLAY "Test 3 " Z. ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:45.19-45.25: - 42 MOVE LENGTH OF XMAIN03 TO Z. - 43 IF Z NOT = 5 - 44 DISPLAY "Test 3 " Z. - 45 > MOVE LENGTH OF XMAIN0501 TO Z. ----- ^^^^^^ - 46 IF Z NOT = 4 - 47 DISPLAY "Test 4 " Z. ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:48.19-48.25: - 45 MOVE LENGTH OF XMAIN0501 TO Z. - 46 IF Z NOT = 4 - 47 DISPLAY "Test 4 " Z. - 48 > MOVE LENGTH OF XMAIN0502 TO Z. ----- ^^^^^^ - 49 IF Z NOT = 5 - 50 DISPLAY "Test 5 " Z. ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:51.14-51.20: - 48 MOVE LENGTH OF XMAIN0502 TO Z. - 49 IF Z NOT = 5 - 50 DISPLAY "Test 5 " Z. - 51 > IF LENGTH OF USE-FIRST NOT = 33211 ----- ^^^^^^ - 52 DISPLAY LENGTH OF USE-FIRST END-DISPLAY. - 53 IF LENGTH OF USE-SECOND NOT = 27241 ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:52.22-52.28: - 49 IF Z NOT = 5 - 50 DISPLAY "Test 5 " Z. - 51 IF LENGTH OF USE-FIRST NOT = 33211 - 52 > DISPLAY LENGTH OF USE-FIRST END-DISPLAY. ----- ^^^^^^ - 53 IF LENGTH OF USE-SECOND NOT = 27241 - 54 DISPLAY LENGTH OF USE-SECOND END-DISPLAY. ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:53.14-53.20: - 50 DISPLAY "Test 5 " Z. - 51 IF LENGTH OF USE-FIRST NOT = 33211 - 52 DISPLAY LENGTH OF USE-FIRST END-DISPLAY. - 53 > IF LENGTH OF USE-SECOND NOT = 27241 ----- ^^^^^^ - 54 DISPLAY LENGTH OF USE-SECOND END-DISPLAY. - 55 STOP RUN. ->> Error: Invalid syntax - -run_extensions.at-3066-prog.cob:54.22-54.28: - 51 IF LENGTH OF USE-FIRST NOT = 33211 - 52 DISPLAY LENGTH OF USE-FIRST END-DISPLAY. - 53 IF LENGTH OF USE-SECOND NOT = 27241 - 54 > DISPLAY LENGTH OF USE-SECOND END-DISPLAY. ----- ^^^^^^ - 55 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3092:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3117:0 -run_extensions.at-3117-prog.cob:7.11-7.15: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 TERMINAL PIC XX VALUE "OK". - 7 > 01 SEND PIC XX VALUE "OK". ----- ^^^^ - 8 PROCEDURE DIVISION. - 9 DISPLAY TERMINAL SEND. ->> Error: Invalid syntax - -run_extensions.at-3117-prog.cob:9.32: - 6 01 TERMINAL PIC XX VALUE "OK". - 7 01 SEND PIC XX VALUE "OK". - 8 PROCEDURE DIVISION. - 9 > DISPLAY TERMINAL SEND. ----- ^ - 10 STOP RUN. ->> Hint: Missing FROM - -run_extensions.at-3117-prog.cob:9.32-9.33: - 6 01 TERMINAL PIC XX VALUE "OK". - 7 01 SEND PIC XX VALUE "OK". - 8 PROCEDURE DIVISION. - 9 > DISPLAY TERMINAL SEND. ----- ^ - 10 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3162:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3238:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3237:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3240:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3283:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3282:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3329:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3328:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3354:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3383:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3403:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3429:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3454:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3479:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3506:0 -run_extensions.at-3506-prog.cob:10.25-10.31: - 7 01 Z PIC X(4) VALUE X"01010101". - 8 PROCEDURE DIVISION. - 9 CALL "CBL_OR" USING X Z - 10 > BY VALUE LENGTH OF Z ----- ^^^^^^ - 11 END-CALL. - 12 IF Z NOT = "1111" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3533:0 -run_extensions.at-3533-prog.cob:10.25-10.31: - 7 01 Z PIC X(4) VALUE X"05050505". - 8 PROCEDURE DIVISION. - 9 CALL "CBL_NOR" USING X Z - 10 > BY VALUE LENGTH OF Z ----- ^^^^^^ - 11 END-CALL. - 12 IF Z NOT = X"F8F8F8F8" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3560:0 -run_extensions.at-3560-prog.cob:10.25-10.31: - 7 01 Z PIC X(4) VALUE "5555". - 8 PROCEDURE DIVISION. - 9 CALL "CBL_AND" USING X Z - 10 > BY VALUE LENGTH OF Z ----- ^^^^^^ - 11 END-CALL. - 12 IF Z NOT = "1111" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3587:0 -run_extensions.at-3587-prog.cob:10.25-10.31: - 7 01 Z PIC X(4) VALUE X"02020202". - 8 PROCEDURE DIVISION. - 9 CALL "CBL_XOR" USING X Z - 10 > BY VALUE LENGTH OF Z ----- ^^^^^^ - 11 END-CALL. - 12 IF Z NOT = "1111" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3614:0 -run_extensions.at-3614-prog.cob:10.25-10.31: - 7 01 Z PIC X(4) VALUE "1111". - 8 PROCEDURE DIVISION. - 9 CALL "CBL_IMP" USING X Z - 10 > BY VALUE LENGTH OF Z ----- ^^^^^^ - 11 END-CALL. - 12 IF Z NOT = "1111" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3641:0 -run_extensions.at-3641-prog.cob:10.25-10.31: - 7 01 Z PIC X(4) VALUE LOW-VALUE. - 8 PROCEDURE DIVISION. - 9 CALL "CBL_NIMP" USING X Z - 10 > BY VALUE LENGTH OF Z ----- ^^^^^^ - 11 END-CALL. - 12 IF Z NOT = "1111" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3667:0 -run_extensions.at-3667-prog.cob:9.25-9.31: - 6 01 X PIC X(4) VALUE HIGH-VALUE. - 7 PROCEDURE DIVISION. - 8 CALL "CBL_NOT" USING X - 9 > BY VALUE LENGTH OF X ----- ^^^^^^ - 10 END-CALL. - 11 IF X NOT = LOW-VALUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3694:0 -run_extensions.at-3694-prog.cob:10.25-10.31: - 7 01 Z PIC X(4) VALUE "1111". - 8 PROCEDURE DIVISION. - 9 CALL "CBL_EQ" USING X Z - 10 > BY VALUE LENGTH OF Z ----- ^^^^^^ - 11 END-CALL. - 12 IF Z NOT = "1111" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4117:0 -run_extensions.at-4117-prog.cob:11.53: - 8 05 OPTIONRECORD OCCURS 2 TIMES. - 9 10 ONAME PIC X(25). - 10 10 HAS-VALUE PIC 9. - 11 > 10 VALPOINT POINTER VALUE NULL. ----- ^ - 12 10 VAL PIC X(4). - 13 ->> Hint: Missing - -run_extensions.at-4117-prog.cob:11.54-11.58: - 8 05 OPTIONRECORD OCCURS 2 TIMES. - 9 10 ONAME PIC X(25). - 10 10 HAS-VALUE PIC 9. - 11 > 10 VALPOINT POINTER VALUE NULL. ----- ^^^^ - 12 10 VAL PIC X(4). - 13 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4119:0 -run_extensions.at-4119-prog2.cob:14.53: - 11 05 OPTIONRECORD OCCURS 3 TIMES. - 12 10 ONAME PIC X(25). - 13 10 HAS-VALUE PIC 9. - 14 > 10 VALPOINT POINTER VALUE NULL. ----- ^ - 15 10 VAL PIC X(4). - 16 ->> Hint: Missing - -run_extensions.at-4119-prog2.cob:14.54-14.58: - 11 05 OPTIONRECORD OCCURS 3 TIMES. - 12 10 ONAME PIC X(25). - 13 10 HAS-VALUE PIC 9. - 14 > 10 VALPOINT POINTER VALUE NULL. ----- ^^^^ - 15 10 VAL PIC X(4). - 16 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4123:0 -run_extensions.at-4123-prog3.cob:12.53: - 9 05 OPTIONRECORD OCCURS 3 TIMES. - 10 10 ONAME PIC X(25). - 11 10 HAS-VALUE PIC 9. - 12 > 10 VALPOINT POINTER VALUE NULL. ----- ^ - 13 10 VAL PIC X(4). - 14 01 LONGIND PIC 99. ->> Hint: Missing - -run_extensions.at-4123-prog3.cob:12.54-12.58: - 9 05 OPTIONRECORD OCCURS 3 TIMES. - 10 10 ONAME PIC X(25). - 11 10 HAS-VALUE PIC 9. - 12 > 10 VALPOINT POINTER VALUE NULL. ----- ^^^^ - 13 10 VAL PIC X(4). - 14 01 LONGIND PIC 99. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4125:0 -run_extensions.at-4125-prog4.cob:12.53: - 9 05 OPTIONRECORD OCCURS 3 TIMES. - 10 10 ONAME PIC X(25). - 11 10 HAS-VALUE PIC 9. - 12 > 10 VALPOINT POINTER VALUE NULL. ----- ^ - 13 10 VAL PIC X(4). - 14 01 LONGIND PIC 99. ->> Hint: Missing - -run_extensions.at-4125-prog4.cob:12.54-12.58: - 9 05 OPTIONRECORD OCCURS 3 TIMES. - 10 10 ONAME PIC X(25). - 11 10 HAS-VALUE PIC 9. - 12 > 10 VALPOINT POINTER VALUE NULL. ----- ^^^^ - 13 10 VAL PIC X(4). - 14 01 LONGIND PIC 99. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4129:0 -run_extensions.at-4129-prog5.cob:12.53: - 9 05 OPTIONRECORD OCCURS 2 TIMES. - 10 10 ONAME PIC X(45). - 11 10 HAS-VALUE PIC 9. - 12 > 10 VALPOINT POINTER VALUE NULL. ----- ^ - 13 10 VAL PIC X(4). - 14 01 LONGIND PIC 99. ->> Hint: Missing - -run_extensions.at-4129-prog5.cob:12.54-12.58: - 9 05 OPTIONRECORD OCCURS 2 TIMES. - 10 10 ONAME PIC X(45). - 11 10 HAS-VALUE PIC 9. - 12 > 10 VALPOINT POINTER VALUE NULL. ----- ^^^^ - 13 10 VAL PIC X(4). - 14 01 LONGIND PIC 99. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4192:0 -run_extensions.at-4192-prog.cob:16.25: - 13 WHEN ZERO - 14 PERFORM CHILD-CODE - 15 WHEN -1 - 16 > STOP RUN RETURNING 77 *> skip test ----- ^ - 17 WHEN OTHER - 18 PERFORM PARENT-CODE ->> Hint: Missing . - -run_extensions.at-4192-prog.cob:16.26-16.35: - 13 WHEN ZERO - 14 PERFORM CHILD-CODE - 15 WHEN -1 - 16 > STOP RUN RETURNING 77 *> skip test ----- ^^^^^^^^^ - 17 WHEN OTHER - 18 PERFORM PARENT-CODE ->> Error: Invalid syntax - -run_extensions.at-4192-prog.cob:16.38: - 13 WHEN ZERO - 14 PERFORM CHILD-CODE - 15 WHEN -1 - 16 > STOP RUN RETURNING 77 *> skip test ----- ^ - 17 WHEN OTHER - 18 PERFORM PARENT-CODE ->> Hint: Missing . - -run_extensions.at-4192-prog.cob:17.14-17.18: - 14 PERFORM CHILD-CODE - 15 WHEN -1 - 16 STOP RUN RETURNING 77 *> skip test - 17 > WHEN OTHER ----- ^^^^ - 18 PERFORM PARENT-CODE - 19 END-EVALUATE ->> Warning: Invalid syntax - -run_extensions.at-4192-prog.cob:19.11-19.23: - 16 STOP RUN RETURNING 77 *> skip test - 17 WHEN OTHER - 18 PERFORM PARENT-CODE - 19 > END-EVALUATE ----- ^^^^^^^^^^^^ - 20 - 21 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4247:0 -run_extensions.at-4247-prog.cob:15.25: - 12 WHEN ZERO - 13 PERFORM CHILD-CODE - 14 WHEN -1 - 15 > STOP RUN RETURNING 77 *> skip test ----- ^ - 16 WHEN OTHER - 17 PERFORM PARENT-CODE ->> Hint: Missing . - -run_extensions.at-4247-prog.cob:15.26-15.35: - 12 WHEN ZERO - 13 PERFORM CHILD-CODE - 14 WHEN -1 - 15 > STOP RUN RETURNING 77 *> skip test ----- ^^^^^^^^^ - 16 WHEN OTHER - 17 PERFORM PARENT-CODE ->> Error: Invalid syntax - -run_extensions.at-4247-prog.cob:15.38: - 12 WHEN ZERO - 13 PERFORM CHILD-CODE - 14 WHEN -1 - 15 > STOP RUN RETURNING 77 *> skip test ----- ^ - 16 WHEN OTHER - 17 PERFORM PARENT-CODE ->> Hint: Missing . - -run_extensions.at-4247-prog.cob:16.14-16.18: - 13 PERFORM CHILD-CODE - 14 WHEN -1 - 15 STOP RUN RETURNING 77 *> skip test - 16 > WHEN OTHER ----- ^^^^ - 17 PERFORM PARENT-CODE - 18 END-EVALUATE. ->> Warning: Invalid syntax - -run_extensions.at-4247-prog.cob:18.11-18.23: - 15 STOP RUN RETURNING 77 *> skip test - 16 WHEN OTHER - 17 PERFORM PARENT-CODE - 18 > END-EVALUATE. ----- ^^^^^^^^^^^^ - 19 - 20 STOP RUN. ->> Error: Invalid syntax - -run_extensions.at-4247-prog.cob:34.22: - 31 END-CALL - 32 MOVE 0 TO RETURN-CODE - 33 IF WAIT-STS = -1 - 34 > STOP RUN RETURNING 77 *> skip test ----- ^ - 35 END-IF - 36 DISPLAY "Child ended status " WAIT-STS ->> Hint: Missing . - -run_extensions.at-4247-prog.cob:34.23-34.32: - 31 END-CALL - 32 MOVE 0 TO RETURN-CODE - 33 IF WAIT-STS = -1 - 34 > STOP RUN RETURNING 77 *> skip test ----- ^^^^^^^^^ - 35 END-IF - 36 DISPLAY "Child ended status " WAIT-STS ->> Error: Invalid syntax - -run_extensions.at-4247-prog.cob:34.35: - 31 END-CALL - 32 MOVE 0 TO RETURN-CODE - 33 IF WAIT-STS = -1 - 34 > STOP RUN RETURNING 77 *> skip test ----- ^ - 35 END-IF - 36 DISPLAY "Child ended status " WAIT-STS ->> Hint: Missing . - -run_extensions.at-4247-prog.cob:35.11-35.17: - 32 MOVE 0 TO RETURN-CODE - 33 IF WAIT-STS = -1 - 34 STOP RUN RETURNING 77 *> skip test - 35 > END-IF ----- ^^^^^^ - 36 DISPLAY "Child ended status " WAIT-STS - 37 END-DISPLAY. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4381:0 -run_extensions.at-4381-prog.cob:18.24: - 15 01 TZNAME USAGE POINTER. - 16 01 TZNAMES USAGE POINTER BASED. - 17 05 TZS USAGE POINTER OCCURS 2 TIMES. - 18 > 01 TIMEZONE USAGE BINARY-C-LONG. ----- ^ - 19 01 DAYLIGHT USAGE BINARY-LONG. - 20 01 EXTPTR USAGE POINTER. *> only for the check, otherwise unused ->> Hint: Missing BINARY - -run_extensions.at-4381-prog.cob:18.25-18.38: - 15 01 TZNAME USAGE POINTER. - 16 01 TZNAMES USAGE POINTER BASED. - 17 05 TZS USAGE POINTER OCCURS 2 TIMES. - 18 > 01 TIMEZONE USAGE BINARY-C-LONG. ----- ^^^^^^^^^^^^^ - 19 01 DAYLIGHT USAGE BINARY-LONG. - 20 01 EXTPTR USAGE POINTER. *> only for the check, otherwise unused ->> Error: Invalid syntax - -run_extensions.at-4381-prog.cob:67.14: - 64 DISPLAY "UNK CELL " CELL - 65 END-IF - 66 - 67 > SET ENVIRONMENT "TZ" TO "PST8PDT" ----- ^ - 68 CALL "tzset" RETURNING OMITTED - 69 ON EXCEPTION CONTINUE ->> Hint: Missing rnell_rev___anonymous_88_ - -run_extensions.at-4381-prog.cob:67.15-67.26: - 64 DISPLAY "UNK CELL " CELL - 65 END-IF - 66 - 67 > SET ENVIRONMENT "TZ" TO "PST8PDT" ----- ^^^^^^^^^^^ - 68 CALL "tzset" RETURNING OMITTED - 69 ON EXCEPTION CONTINUE ->> Error: Invalid syntax - -run_extensions.at-4381-prog.cob:68.33: - 65 END-IF - 66 - 67 SET ENVIRONMENT "TZ" TO "PST8PDT" - 68 > CALL "tzset" RETURNING OMITTED ----- ^ - 69 ON EXCEPTION CONTINUE - 70 END-CALL ->> Hint: Missing - -run_extensions.at-4381-prog.cob:68.34-68.41: - 65 END-IF - 66 - 67 SET ENVIRONMENT "TZ" TO "PST8PDT" - 68 > CALL "tzset" RETURNING OMITTED ----- ^^^^^^^ - 69 ON EXCEPTION CONTINUE - 70 END-CALL ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4379:0 -run_extensions.at-4379-test_errno.c:7.6-7.7: - 4 - 5 #include - 6 - 7 > COB_EXT_EXPORT int ----- ^ - 8 test_errno(void) - 9 { ->> Error: Unexpected indicator: `T' - -run_extensions.at-4379-test_errno.c:8.6-8.7: - 5 #include - 6 - 7 COB_EXT_EXPORT int - 8 > test_errno(void) ----- ^ - 9 { - 10 FILE *fail; ->> Error: Unexpected indicator: `r' - -run_extensions.at-4379-test_errno.c:10.6-10.7: - 7 COB_EXT_EXPORT int - 8 test_errno(void) - 9 { - 10 > FILE *fail; ----- ^ - 11 fail = fopen("file-not-to-be-found", "r"); - 12 if (errno != 2) { ->> Error: Unexpected indicator: `L' - -run_extensions.at-4379-test_errno.c:11.6-11.7: - 8 test_errno(void) - 9 { - 10 FILE *fail; - 11 > fail = fopen("file-not-to-be-found", "r"); ----- ^ - 12 if (errno != 2) { - 13 printf("BAD ERRNO %d", errno); ->> Error: Unexpected indicator: `i' - -run_extensions.at-4379-test_errno.c:14.6-14.7: - 11 fail = fopen("file-not-to-be-found", "r"); - 12 if (errno != 2) { - 13 printf("BAD ERRNO %d", errno); - 14 > } else { ----- ^ - 15 if (fail) fclose(fail); - 16 } ->> Error: Unexpected indicator: `e' - -run_extensions.at-4379-test_errno.c:17.6-17.7: - 14 } else { - 15 if (fail) fclose(fail); - 16 } - 17 > return 0; ----- ^ - 18 } ->> Error: Unexpected indicator: `t' - -run_extensions.at-4379-test_errno.c:7.7-7.14: - 4 - 5 #include - 6 - 7 > COB_EXT_EXPORT int ----- ^^^^^^^ - 8 test_errno(void) - 9 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4380:0 -run_extensions.at-4380-test_stdio.c:5.6-5.7: - 2 #include - 3 - 4 #include - 5 > COB_EXT_EXPORT int ----- ^ - 6 test_stdio(FILE *si, FILE *so, FILE *se) - 7 { ->> Error: Unexpected indicator: `T' - -run_extensions.at-4380-test_stdio.c:6.6-6.7: - 3 - 4 #include - 5 COB_EXT_EXPORT int - 6 > test_stdio(FILE *si, FILE *so, FILE *se) ----- ^ - 7 { - 8 if (feof(si)) { ->> Error: Unexpected indicator: `t' - -run_extensions.at-4380-test_stdio.c:11.6-11.7: - 8 if (feof(si)) { - 9 fprintf(se, "BAD STDIN EOF\n"); - 10 } - 11 > fprintf(so, "OUT"); ----- ^ - 12 return fprintf(se, "ERR"); - 13 } ->> Error: Unexpected indicator: `r' - -run_extensions.at-4380-test_stdio.c:12.6-12.7: - 9 fprintf(se, "BAD STDIN EOF\n"); - 10 } - 11 fprintf(so, "OUT"); - 12 > return fprintf(se, "ERR"); ----- ^ - 13 } ->> Error: Unexpected indicator: `t' - -run_extensions.at-4380-test_stdio.c:5.7-5.14: - 2 #include - 3 - 4 #include - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 test_stdio(FILE *si, FILE *so, FILE *se) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4454:0 -run_extensions.at-4454-prog.cob:12.25: - 9 77 chaining-param PIC X(20). - 10 77 chaining-param-2 PIC X(20). - 11 * - 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. ----- ^ - 13 * - 14 main. ->> Hint: Missing . - -run_extensions.at-4454-prog.cob:12.26-12.34: - 9 77 chaining-param PIC X(20). - 10 77 chaining-param-2 PIC X(20). - 11 * - 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. ----- ^^^^^^^^ - 13 * - 14 main. ->> Error: Invalid syntax - -run_extensions.at-4454-prog.cob:12.49: - 9 77 chaining-param PIC X(20). - 10 77 chaining-param-2 PIC X(20). - 11 * - 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. ----- ^ - 13 * - 14 main. ->> Hint: Missing . - -run_extensions.at-4454-prog.cob:12.51-12.67: - 9 77 chaining-param PIC X(20). - 10 77 chaining-param-2 PIC X(20). - 11 * - 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. ----- ^^^^^^^^^^^^^^^^ - 13 * - 14 main. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4597:0 -run_extensions.at-4597-prog.cob:7.44: - 4 ENVIRONMENT DIVISION. - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > 77 Ext-Proc-Address USAGE PROCEDURE-POINTER. ----- ^ - 8 77 install-flag USAGE BINARY-CHAR. - 9 88 install-default VALUE 0. ->> Hint: Missing BINARY - -run_extensions.at-4597-prog.cob:7.45-7.62: - 4 ENVIRONMENT DIVISION. - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > 77 Ext-Proc-Address USAGE PROCEDURE-POINTER. ----- ^^^^^^^^^^^^^^^^^ - 8 77 install-flag USAGE BINARY-CHAR. - 9 88 install-default VALUE 0. ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:14.44: - 11 88 query-priority VALUE 2. - 12 88 install-priority VALUE 3. - 13 01 exit-params. - 14 > 02 proc-addrs USAGE PROCEDURE-POINTER. ----- ^ - 15 02 ppriority USAGE BINARY-CHAR. - 16 PROCEDURE DIVISION. ->> Hint: Missing BINARY - -run_extensions.at-4597-prog.cob:14.45-14.62: - 11 88 query-priority VALUE 2. - 12 88 install-priority VALUE 3. - 13 01 exit-params. - 14 > 02 proc-addrs USAGE PROCEDURE-POINTER. ----- ^^^^^^^^^^^^^^^^^ - 15 02 ppriority USAGE BINARY-CHAR. - 16 PROCEDURE DIVISION. ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:21.35-21.40: - 18 DISPLAY 'Program is starting' - 19 *> Do this for the ACU test later - 20 *> CALL 'CBL_EXIT_PROC' USING 0, "ExtProc-internal" - 21 > SET Ext-Proc-Address TO ENTRY 'ExtProc' ----- ^^^^^ - 22 *> GC "simple variant" - 23 CALL 'CBL_EXIT_PROC' USING 0, Ext-Proc-Address ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:27.35-27.40: - 24 *> Support for MF variant, - 25 *> storing but otherwise ignoring the priority for now - 26 SET install-default TO TRUE - 27 > SET proc-addrs TO ENTRY 'ExtProc-internal' ----- ^^^^^ - 28 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params - 29 *> Ensure subsequent CALLs with the same one are seen as error (MF!) ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:30.35-30.40: - 27 SET proc-addrs TO ENTRY 'ExtProc-internal' - 28 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params - 29 *> Ensure subsequent CALLs with the same one are seen as error (MF!) - 30 > SET proc-addrs TO ENTRY 'ExtProc' ----- ^^^^^ - 31 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params - 32 IF RETURN-CODE = 0 ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:41.35-41.40: - 38 IF RETURN-CODE NOT = 0 - 39 DISPLAY 'Unexpected RETURN-CODE with subsequent call, ' - 40 'different priority ' RETURN-CODE. - 41 > SET proc-addrs TO ENTRY 'ExtProc-internal2' ----- ^^^^^ - 42 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params - 43 IF RETURN-CODE NOT = 0 ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:50.7-50.12: - 47 DISPLAY 'Program is stopping' - 48 STOP RUN - 49 . - 50 > ENTRY 'ExtProc-internal2'. ----- ^^^^^ - 51 DISPLAY 'Exit procedure from ' FUNCTION MODULE-ID () - 52 SET Ext-Proc-Address TO ENTRY 'ExtProc' ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:52.35-52.40: - 49 . - 50 ENTRY 'ExtProc-internal2'. - 51 DISPLAY 'Exit procedure from ' FUNCTION MODULE-ID () - 52 > SET Ext-Proc-Address TO ENTRY 'ExtProc' ----- ^^^^^ - 53 SET query-priority TO TRUE - 54 MOVE 0 TO ppriority ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:61.35-61.40: - 58 RETURN-CODE - 59 ELSE IF ppriority NOT = 127 - 60 DISPLAY 'Unexpected priority external ' ppriority. - 61 > SET proc-addrs TO ENTRY 'ExtProc-internal' ----- ^^^^^ - 62 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params - 63 IF RETURN-CODE NOT = ZERO ->> Error: Invalid syntax - -run_extensions.at-4597-prog.cob:80.7-80.12: - 77 MOVE 0 TO RETURN-CODE - 78 GOBACK - 79 . - 80 > ENTRY 'ExtProc-internal'. ----- ^^^^^ - 81 DISPLAY 'should have been removed' - 82 GOBACK ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4672:0 -run_extensions.at-4672-prog.cob:17.35-17.40: - 14 *> Do this for the ACU test, where second call moves top front - 15 *> SET Err-Proc-Address TO ENTRY 'ErrProc-internal' - 16 *> CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 17 > SET Err-Proc-Address TO ENTRY 'ErrProc' ----- ^^^^^ - 18 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 19 SET Err-Proc-Address TO ENTRY 'ErrProc-internal' ->> Error: Invalid syntax - -run_extensions.at-4672-prog.cob:19.35-19.40: - 16 *> CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 17 SET Err-Proc-Address TO ENTRY 'ErrProc' - 18 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 19 > SET Err-Proc-Address TO ENTRY 'ErrProc-internal' ----- ^^^^^ - 20 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 21 *> Ensure subsequent CALLs with the same one are ignored (MF!) ->> Error: Invalid syntax - -run_extensions.at-4672-prog.cob:22.35-22.40: - 19 SET Err-Proc-Address TO ENTRY 'ErrProc-internal' - 20 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 21 *> Ensure subsequent CALLs with the same one are ignored (MF!) - 22 > SET Err-Proc-Address TO ENTRY 'ErrProc' ----- ^^^^^ - 23 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 24 SET Err-Proc-Address TO NULL ->> Error: Invalid syntax - -run_extensions.at-4672-prog.cob:29.7-29.12: - 26 DISPLAY 'Program is stopping' - 27 STOP RUN - 28 . - 29 > ENTRY 'ErrProc-internal' USING Err-Message-From-Runtime. ----- ^^^^^ - 30 DISPLAY 'Error (internal): ' FUNCTION EXCEPTION-LOCATION '-' - 31 DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-' ->> Error: Invalid syntax - -run_extensions.at-4672-prog.cob:36.62-36.66: - 33 *> NOTE: the error message is *EXPLICIT* specified to end with x'00' - 34 MOVE 0 TO Err-Message-Len - 35 INSPECT Err-Message-From-Runtime - 36 > TALLYING Err-Message-Len FOR CHARACTERS BEFORE x'00' ----- ^^^^ - 37 DISPLAY 'Error-Message: ' Err-Message-From-Runtime - 38 (1:Err-Message-Len) ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4767:0 -run_extensions.at-4767-prog.cob:15.35-15.40: - 12 PROCEDURE DIVISION. - 13 S1. - 14 DISPLAY 'Program is starting' - 15 > SET Err-Proc-Address TO ENTRY 'ErrProc' ----- ^^^^^ - 16 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 17 SET Err-Proc-Address TO ENTRY 'ErrProc-internal' ->> Error: Invalid syntax - -run_extensions.at-4767-prog.cob:17.35-17.40: - 14 DISPLAY 'Program is starting' - 15 SET Err-Proc-Address TO ENTRY 'ErrProc' - 16 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 17 > SET Err-Proc-Address TO ENTRY 'ErrProc-internal' ----- ^^^^^ - 18 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address - 19 SET Err-Proc-Address TO NULL ->> Error: Invalid syntax - -run_extensions.at-4767-prog.cob:24.7-24.12: - 21 DISPLAY 'Program is stopping' - 22 STOP RUN - 23 . - 24 > ENTRY 'ErrProc-internal' USING Err-Message-From-Runtime. ----- ^^^^^ - 25 DISPLAY 'Error (interal): ' FUNCTION EXCEPTION-LOCATION '-' - 26 DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-' ->> Error: Invalid syntax - -run_extensions.at-4767-prog.cob:31.62-31.66: - 28 *> NOTE: the error message is *EXPLICIT* specified to end with x'00' - 29 MOVE 0 TO Err-Message-Len - 30 INSPECT Err-Message-From-Runtime - 31 > TALLYING Err-Message-Len FOR CHARACTERS BEFORE x'00' ----- ^^^^ - 32 DISPLAY 'Error-Message: ' Err-Message-From-Runtime - 33 (1:Err-Message-Len) ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4796:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4823:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4853:0 -run_extensions.at-4853-progc.cob:12.7-12.25: - 9 IF first-call NOT = SPACE - 10 GOBACK. - 11 MOVE 'X' TO first-call - 12 > COPY "cllprg.cpy". ----- ^^^^^^^^^^^^^^^^^^ - 13 GOBACK. ->> Error: Library `cllprg.cpy' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4892:0 -run_extensions.at-4892-prog.cob:7.7-7.15: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 var1 pic x. - 7 > $DISPLAY MF compile time text # A.0-B;C *> without comment ----- ^^^^^^^^ - 8 01 var2 pic x. - 9 >> DISPLAY some.text-here ->> Error: Invalid syntax - -run_extensions.at-4892-prog.cob:9.7-9.32: - 6 01 var1 pic x. - 7 $DISPLAY MF compile time text # A.0-B;C *> without comment - 8 01 var2 pic x. - 9 > >> DISPLAY some.text-here ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 01 var3 pic x. - 11 PROCEDURE DIVISION. ->> Error: Malformed or unknown compiler directive - -run_extensions.at-4892-prog.cob:12.7-12.34: - 9 >> DISPLAY some.text-here - 10 01 var3 pic x. - 11 PROCEDURE DIVISION. - 12 > >> DISPLAY other text #2 *> comment ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 >> DISPLAY "literal text... *> no comment" - 14 $DISPLAY "MF compile time text" ->> Error: Malformed or unknown compiler directive - -run_extensions.at-4892-prog.cob:13.7-13.51: - 10 01 var3 pic x. - 11 PROCEDURE DIVISION. - 12 >> DISPLAY other text #2 *> comment - 13 > >> DISPLAY "literal text... *> no comment" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 $DISPLAY "MF compile time text" - 15 GOBACK. ->> Error: Malformed or unknown compiler directive - -run_extensions.at-4892-prog.cob:14.7-14.15: - 11 PROCEDURE DIVISION. - 12 >> DISPLAY other text #2 *> comment - 13 >> DISPLAY "literal text... *> no comment" - 14 > $DISPLAY "MF compile time text" ----- ^^^^^^^^ - 15 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4921:0 -run_extensions.at-4921-prog.cob:7.7-7.32: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > >>IF ACTIVATE NOT DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 DISPLAY "OK" NO ADVANCING - 9 END-DISPLAY ->> Error: Malformed or unknown compiler directive - -run_extensions.at-4921-prog.cob:10.7-10.13: - 7 >>IF ACTIVATE NOT DEFINED - 8 DISPLAY "OK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELSE ----- ^^^^^^ - 11 DISPLAY "NOTOK" NO ADVANCING - 12 END-DISPLAY ->> Error: Invalid syntax - -run_extensions.at-4921-prog.cob:13.7-13.15: - 10 >>ELSE - 11 DISPLAY "NOTOK" NO ADVANCING - 12 END-DISPLAY - 13 > >>END-IF ----- ^^^^^^^^ - 14 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4946:0 -run_extensions.at-4946-prog.cob:7.7-7.28: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > >>IF ACTIVATE DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^ - 8 DISPLAY "OK" NO ADVANCING - 9 END-DISPLAY ->> Error: Malformed or unknown compiler directive - -run_extensions.at-4946-prog.cob:10.7-10.13: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "OK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELSE ----- ^^^^^^ - 11 DISPLAY "NOTOK" NO ADVANCING - 12 END-DISPLAY ->> Error: Invalid syntax - -run_extensions.at-4946-prog.cob:13.7-13.15: - 10 >>ELSE - 11 DISPLAY "NOTOK" NO ADVANCING - 12 END-DISPLAY - 13 > >>END-IF ----- ^^^^^^^^ - 14 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4974:0 -run_extensions.at-4974-prog.cob:7.7-7.28: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > >>IF ACTIVATE DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^ - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY ->> Error: Malformed or unknown compiler directive - -run_extensions.at-4974-prog.cob:9.22: - 6 PROCEDURE DIVISION. - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 > END-DISPLAY ----- ^ - 10 >>ELIF ACTIVATE2 DEFINED - 11 DISPLAY "OK" NO ADVANCING ->> Hint: Missing . - -run_extensions.at-4974-prog.cob:10.7-10.13: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^^^^^^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Warning: Invalid syntax - -run_extensions.at-4974-prog.cob:10.23: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Hint: Missing . - -run_extensions.at-4974-prog.cob:10.24-10.31: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^^^^^^^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Warning: Invalid syntax - -run_extensions.at-4974-prog.cob:10.31: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^ - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY ->> Hint: Missing . - -run_extensions.at-4974-prog.cob:11.11-11.18: - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 >>ELIF ACTIVATE2 DEFINED - 11 > DISPLAY "OK" NO ADVANCING ----- ^^^^^^^ - 12 END-DISPLAY - 13 >>ELSE ->> Warning: Invalid syntax - -run_extensions.at-4974-prog.cob:13.7-13.13: - 10 >>ELIF ACTIVATE2 DEFINED - 11 DISPLAY "OK" NO ADVANCING - 12 END-DISPLAY - 13 > >>ELSE ----- ^^^^^^ - 14 DISPLAY "NOTOK" NO ADVANCING - 15 END-DISPLAY ->> Error: Invalid syntax - -run_extensions.at-4974-prog.cob:16.7-16.15: - 13 >>ELSE - 14 DISPLAY "NOTOK" NO ADVANCING - 15 END-DISPLAY - 16 > >>END-IF ----- ^^^^^^^^ - 17 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5000:0 -run_extensions.at-5000-prog.cob:7.7-7.28: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > >>IF ACTIVATE DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^ - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY ->> Error: Malformed or unknown compiler directive - -run_extensions.at-5000-prog.cob:9.22: - 6 PROCEDURE DIVISION. - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 > END-DISPLAY ----- ^ - 10 >>ELIF ACTIVATE2 DEFINED - 11 >>ELSE ->> Hint: Missing . - -run_extensions.at-5000-prog.cob:10.7-10.13: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^^^^^^ - 11 >>ELSE - 12 DISPLAY "NOTOK" NO ADVANCING ->> Warning: Invalid syntax - -run_extensions.at-5000-prog.cob:10.23: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^ - 11 >>ELSE - 12 DISPLAY "NOTOK" NO ADVANCING ->> Hint: Missing . - -run_extensions.at-5000-prog.cob:10.24-10.31: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^^^^^^^ - 11 >>ELSE - 12 DISPLAY "NOTOK" NO ADVANCING ->> Warning: Invalid syntax - -run_extensions.at-5000-prog.cob:11.7-11.13: - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 >>ELIF ACTIVATE2 DEFINED - 11 > >>ELSE ----- ^^^^^^ - 12 DISPLAY "NOTOK" NO ADVANCING - 13 END-DISPLAY ->> Error: Malformed or unknown compiler directive - -run_extensions.at-5000-prog.cob:10.31: - 7 >>IF ACTIVATE DEFINED - 8 DISPLAY "NOTOK" NO ADVANCING - 9 END-DISPLAY - 10 > >>ELIF ACTIVATE2 DEFINED ----- ^ - 11 >>ELSE - 12 DISPLAY "NOTOK" NO ADVANCING ->> Hint: Missing . - -run_extensions.at-5000-prog.cob:12.11-12.18: - 9 END-DISPLAY - 10 >>ELIF ACTIVATE2 DEFINED - 11 >>ELSE - 12 > DISPLAY "NOTOK" NO ADVANCING ----- ^^^^^^^ - 13 END-DISPLAY - 14 >>END-IF ->> Warning: Invalid syntax - -run_extensions.at-5000-prog.cob:14.7-14.15: - 11 >>ELSE - 12 DISPLAY "NOTOK" NO ADVANCING - 13 END-DISPLAY - 14 > >>END-IF ----- ^^^^^^^^ - 15 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5065:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5049:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5101:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5149:0 -run_extensions.at-5149-fit.cob:2.6-2.7: - 1 - 2 > * Sample program in X/Open format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5149-fit.cob:4.6-4.7: - 1 - 2 * Sample program in X/Open format, and with longer lines and truncated literals. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5149-fit.cob:5.6-5.7: - 2 * Sample program in X/Open format, and with longer lines and truncated literals. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. fit. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5149-fit.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 > WORKING-STORAGE SECTION. ----- ^ - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' ->> Error: Unexpected indicator: `G' - -run_extensions.at-5149-fit.cob:8.6-8.7: - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > PROCEDURE DIVISION. ----- ^ - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 D DISPLAY ' 20 30 40 50 60 70 79' ->> Error: Unexpected indicator: `U' - -run_extensions.at-5149-fit.cob:9.6-9.7: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 > DISPLAY ' 20 30 40 50 60 70 79' ----- ^ - 10 D DISPLAY ' 20 30 40 50 60 70 79' - 11 STOP RUN. ->> Error: Unexpected indicator: `Y' - -run_extensions.at-5149-fit.cob:10.6-10.7: - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 > D DISPLAY ' 20 30 40 50 60 70 79' ----- ^ - 11 STOP RUN. ->> Error: Unexpected indicator: `L' - -run_extensions.at-5149-fit.cob:11.6-11.7: - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 D DISPLAY ' 20 30 40 50 60 70 79' - 11 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `U' - -run_extensions.at-5149-fit.cob:9.8-9.72: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 > DISPLAY ' 20 30 40 50 60 70 79' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 D DISPLAY ' 20 30 40 50 60 70 79' - 11 STOP RUN. ->> Error: Missing continuation of ` 20 30 40 50 60 70 ' - -run_extensions.at-5149-fit.cob:10.10-10.72: - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 79' - 10 > D DISPLAY ' 20 30 40 50 60 70 79' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 STOP RUN. ->> Error: Missing continuation of ` 20 30 40 50 60 70 ' - -run_extensions.at-5149-fit.cob:2.7-2.8: - 1 - 2 > * Sample program in X/Open format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5131:0 -run_extensions.at-5131-prog.cob:2.6-2.7: - 1 - 2 > * Sample program in X/Open free-form format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5131-prog.cob:4.6-4.7: - 1 - 2 * Sample program in X/Open free-form format. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5131-prog.cob:5.6-5.7: - 2 * Sample program in X/Open free-form format. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. prog. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5131-prog.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 > WORKING-STORAGE SECTION. ----- ^ - 8 PROCEDURE DIVISION. - 9 / Beginning of the code ->> Error: Unexpected indicator: `G' - -run_extensions.at-5131-prog.cob:8.6-8.7: - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > PROCEDURE DIVISION. ----- ^ - 9 / Beginning of the code - 10 DISPLAY "OK" NO ADVANCING ->> Error: Unexpected indicator: `U' - -run_extensions.at-5131-prog.cob:9.6-9.7: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 > / Beginning of the code ----- ^ - 10 DISPLAY "OK" NO ADVANCING - 11 * If debug: ->> Error: Unexpected indicator: `n' - -run_extensions.at-5131-prog.cob:10.6-10.7: - 7 WORKING-STORAGE SECTION. - 8 PROCEDURE DIVISION. - 9 / Beginning of the code - 10 > DISPLAY "OK" NO ADVANCING ----- ^ - 11 * If debug: - 12 D DISPLAY "KO" NO ADVANCING ->> Error: Unexpected indicator: `Y' - -run_extensions.at-5131-prog.cob:11.6-11.7: - 8 PROCEDURE DIVISION. - 9 / Beginning of the code - 10 DISPLAY "OK" NO ADVANCING - 11 > * If debug: ----- ^ - 12 D DISPLAY "KO" NO ADVANCING - 13 STOP RUN. ->> Error: Unexpected indicator: `e' - -run_extensions.at-5131-prog.cob:12.6-12.7: - 9 / Beginning of the code - 10 DISPLAY "OK" NO ADVANCING - 11 * If debug: - 12 > D DISPLAY "KO" NO ADVANCING ----- ^ - 13 STOP RUN. ->> Error: Unexpected indicator: `L' - -run_extensions.at-5131-prog.cob:13.6-13.7: - 10 DISPLAY "OK" NO ADVANCING - 11 * If debug: - 12 D DISPLAY "KO" NO ADVANCING - 13 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `U' - -run_extensions.at-5131-prog.cob:2.7-2.8: - 1 - 2 > * Sample program in X/Open free-form format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5231:0 -run_extensions.at-5231-fit.cob:2.6-2.7: - 1 - 2 > * Sample program in ACU terminal format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5231-fit.cob:4.6-4.7: - 1 - 2 * Sample program in ACU terminal format, and with longer lines and truncated literals. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5231-fit.cob:5.6-5.7: - 2 * Sample program in ACU terminal format, and with longer lines and truncated literals. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. fit. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5231-fit.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 > WORKING-STORAGE SECTION. ----- ^ - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ->> Error: Unexpected indicator: `G' - -run_extensions.at-5231-fit.cob:8.6-8.7: - 5 PROGRAM-ID. fit. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > PROCEDURE DIVISION. ----- ^ - 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ->> Error: Unexpected indicator: `U' - -run_extensions.at-5231-fit.cob:11.6-11.7: - 8 PROCEDURE DIVISION. - 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 11 > \D END-DISPLAY. ----- ^ - 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 - 13 - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ->> Error: Unexpected indicator: `E' - -run_extensions.at-5231-fit.cob:14.6-14.7: - 11 \D END-DISPLAY. - 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 - 13 - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 14 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `S' - -run_extensions.at-5231-fit.cob:13.14-13.72: - 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' - 11 \D END-DISPLAY. - 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 - 13 > - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 STOP RUN. ->> Error: Missing continuation of ` 140 150 160 170 180 ' - -run_extensions.at-5231-fit.cob:2.7-2.8: - 1 - 2 > * Sample program in ACU terminal format, and with longer lines and truncated literals. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5188:0 -run_extensions.at-5188-prog.cob:2.6-2.7: - 1 - 2 > * Sample program in ACU terminal format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `l' - -run_extensions.at-5188-prog.cob:4.6-4.7: - 1 - 2 * Sample program in ACU terminal format. - 3 - 4 > IDENTIFICATION DIVISION. ----- ^ - 5 PROGRAM-ID. prog. - 6 AUTHOR. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5188-prog.cob:5.6-5.7: - 2 * Sample program in ACU terminal format. - 3 - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. prog. ----- ^ - 6 AUTHOR. - 7 Somebody. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5188-prog.cob:6.6-6.7: - 3 - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog. - 6 > AUTHOR. ----- ^ - 7 Somebody. - 8 \D Somebody else. ->> Error: Unexpected indicator: `.' - -run_extensions.at-5188-prog.cob:7.6-7.7: - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog. - 6 AUTHOR. - 7 > Somebody. ----- ^ - 8 \D Somebody else. - 9 One last author. ->> Error: Unexpected indicator: `m' - -run_extensions.at-5188-prog.cob:8.6-8.7: - 5 PROGRAM-ID. prog. - 6 AUTHOR. - 7 Somebody. - 8 > \D Somebody else. ----- ^ - 9 One last author. - 10 DATA DIVISION. ->> Error: Unexpected indicator: `S' - -run_extensions.at-5188-prog.cob:9.6-9.7: - 6 AUTHOR. - 7 Somebody. - 8 \D Somebody else. - 9 > One last author. ----- ^ - 10 DATA DIVISION. - 11 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `e' - -run_extensions.at-5188-prog.cob:11.6-11.7: - 8 \D Somebody else. - 9 One last author. - 10 DATA DIVISION. - 11 > WORKING-STORAGE SECTION. ----- ^ - 12 PROCEDURE DIVISION. - 13 DISPLAY "OK" NO ADVANCING ->> Error: Unexpected indicator: `G' - -run_extensions.at-5188-prog.cob:9.13-10.26: - 6 AUTHOR. - 7 Somebody. - 8 \D Somebody else. - 9 > One last author. ----- ^^^^^^^ - 10 > DATA DIVISION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 WORKING-STORAGE SECTION. - 12 PROCEDURE DIVISION. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -run_extensions.at-5188-prog.cob:12.6-12.7: - 9 One last author. - 10 DATA DIVISION. - 11 WORKING-STORAGE SECTION. - 12 > PROCEDURE DIVISION. ----- ^ - 13 DISPLAY "OK" NO ADVANCING - 14 END-DISPLAY. ->> Error: Unexpected indicator: `U' - -run_extensions.at-5188-prog.cob:14.6-14.7: - 11 WORKING-STORAGE SECTION. - 12 PROCEDURE DIVISION. - 13 DISPLAY "OK" NO ADVANCING - 14 > END-DISPLAY. ----- ^ - 15 \D DISPLAY "KO" NO ADVANCING - 16 \D END-DISPLAY. ->> Error: Unexpected indicator: `E' - -run_extensions.at-5188-prog.cob:16.6-16.7: - 13 DISPLAY "OK" NO ADVANCING - 14 END-DISPLAY. - 15 \D DISPLAY "KO" NO ADVANCING - 16 > \D END-DISPLAY. ----- ^ - 17 STOP RUN. ->> Error: Unexpected indicator: `E' - -run_extensions.at-5188-prog.cob:17.6-17.7: - 14 END-DISPLAY. - 15 \D DISPLAY "KO" NO ADVANCING - 16 \D END-DISPLAY. - 17 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `S' - -run_extensions.at-5188-prog.cob:2.7-2.8: - 1 - 2 > * Sample program in ACU terminal format. ----- ^ - 3 - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5263:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5287:0 -run_extensions.at-5287-prog2.cob:2.7-2.29: - 1 - 2 > $SET SOURCEFORMAT"FREE" ----- ^^^^^^^^^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. ->> Error: Unexpected characters - -run_extensions.at-5287-prog2.cob:3.6-3.7: - 1 - 2 $SET SOURCEFORMAT"FREE" - 3 > IDENTIFICATION DIVISION. ----- ^ - 4 PROGRAM-ID. prog. - 5 DATA DIVISION. ->> Error: Unexpected indicator: `F' - -run_extensions.at-5287-prog2.cob:4.6-4.7: - 1 - 2 $SET SOURCEFORMAT"FREE" - 3 IDENTIFICATION DIVISION. - 4 > PROGRAM-ID. prog. ----- ^ - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. ->> Error: Unexpected indicator: `M' - -run_extensions.at-5287-prog2.cob:5.6-5.7: - 2 $SET SOURCEFORMAT"FREE" - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. - 5 > DATA DIVISION. ----- ^ - 6 WORKING-STORAGE SECTION. - 7 1 X PIC 99. ->> Error: Unexpected indicator: `I' - -run_extensions.at-5287-prog2.cob:6.6-6.7: - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. - 5 DATA DIVISION. - 6 > WORKING-STORAGE SECTION. ----- ^ - 7 1 X PIC 99. - 8 PROCEDURE DIVISION. ->> Error: Unexpected indicator: `G' - -run_extensions.at-5287-prog2.cob:7.6-7.7: - 4 PROGRAM-ID. prog. - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > 1 X PIC 99. ----- ^ - 8 PROCEDURE DIVISION. - 9 MAIN. ->> Error: Unexpected indicator: `C' - -run_extensions.at-5287-prog2.cob:8.6-8.7: - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 1 X PIC 99. - 8 > PROCEDURE DIVISION. ----- ^ - 9 MAIN. - 10 COMPUTE X = 6 ->> Error: Unexpected indicator: `U' - -run_extensions.at-5287-prog2.cob:10.6-10.7: - 7 1 X PIC 99. - 8 PROCEDURE DIVISION. - 9 MAIN. - 10 > COMPUTE X = 6 ----- ^ - 11 * 7 - 12 DISPLAY X NO ADVANCING ->> Error: Unexpected indicator: `E' - -run_extensions.at-5287-prog2.cob:12.6-12.7: - 9 MAIN. - 10 COMPUTE X = 6 - 11 * 7 - 12 > DISPLAY X NO ADVANCING ----- ^ - 13 STOP RUN. ->> Error: Unexpected indicator: `Y' - -run_extensions.at-5287-prog2.cob:13.6-13.7: - 10 COMPUTE X = 6 - 11 * 7 - 12 DISPLAY X NO ADVANCING - 13 > STOP RUN. ----- ^ ->> Error: Unexpected indicator: `U' - -run_extensions.at-5287-prog2.cob:3.7-3.14: - 1 - 2 $SET SOURCEFORMAT"FREE" - 3 > IDENTIFICATION DIVISION. ----- ^^^^^^^ - 4 PROGRAM-ID. prog. - 5 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5315:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5355:0 -run_extensions.at-5355-prog.cob:2.7-2.36: - 1 - 2 > >>IF BINARY-COMP-1 IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 $SET COMP-1(BINARY) - 4 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_extensions.at-5355-prog.cob:3.11-3.15: - 1 - 2 >>IF BINARY-COMP-1 IS DEFINED - 3 > $SET COMP-1(BINARY) ----- ^^^^ - 4 >>ELSE - 5 $SET COMP1 "float" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5383:0 -run_extensions.at-5383-prog.cob:9.11-9.18: - 6 77 VAR-1 PIC X(8) VALUE SPACES. - 7 77 VAR-2 PIC 999. - 8 PROCEDURE DIVISION. - 9 > EXHIBIT CHANGED VAR-1 'X' ----- ^^^^^^^ - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 ->> Error: Invalid syntax - -run_extensions.at-5383-prog.cob:9.26: - 6 77 VAR-1 PIC X(8) VALUE SPACES. - 7 77 VAR-2 PIC 999. - 8 PROCEDURE DIVISION. - 9 > EXHIBIT CHANGED VAR-1 'X' ----- ^ - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:9.27-9.32: - 6 77 VAR-1 PIC X(8) VALUE SPACES. - 7 77 VAR-2 PIC 999. - 8 PROCEDURE DIVISION. - 9 > EXHIBIT CHANGED VAR-1 'X' ----- ^^^^^ - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:9.32: - 6 77 VAR-1 PIC X(8) VALUE SPACES. - 7 77 VAR-2 PIC 999. - 8 PROCEDURE DIVISION. - 9 > EXHIBIT CHANGED VAR-1 'X' ----- ^ - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:9.33-9.36: - 6 77 VAR-1 PIC X(8) VALUE SPACES. - 7 77 VAR-2 PIC 999. - 8 PROCEDURE DIVISION. - 9 > EXHIBIT CHANGED VAR-1 'X' ----- ^^^ - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:11.52: - 8 PROCEDURE DIVISION. - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 > STRING "123" DELIMITED BY SIZE INTO VAR-1 ----- ^ - 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' - 13 EXHIBIT VAR-2 ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:12.11-12.18: - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' ----- ^^^^^^^ - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:12.24: - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' ----- ^ - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:12.25-12.30: - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' ----- ^^^^^ - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:12.30: - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' ----- ^ - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:12.31-12.36: - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' ----- ^^^^^ - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:12.36: - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' ----- ^ - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:12.37-12.40: - 9 EXHIBIT CHANGED VAR-1 'X' - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' ----- ^^^ - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:13.24: - 10 MOVE ALL 'X' TO VAR-1 - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' - 13 > EXHIBIT VAR-2 ----- ^ - 14 EXHIBIT SORT-RETURN TALLY - 15 STOP RUN. ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:14.11-14.18: - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' - 13 EXHIBIT VAR-2 - 14 > EXHIBIT SORT-RETURN TALLY ----- ^^^^^^^ - 15 STOP RUN. ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:14.30: - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' - 13 EXHIBIT VAR-2 - 14 > EXHIBIT SORT-RETURN TALLY ----- ^ - 15 STOP RUN. ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:14.31-14.36: - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' - 13 EXHIBIT VAR-2 - 14 > EXHIBIT SORT-RETURN TALLY ----- ^^^^^ - 15 STOP RUN. ->> Warning: Invalid syntax - -run_extensions.at-5383-prog.cob:14.36: - 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 - 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' - 13 EXHIBIT VAR-2 - 14 > EXHIBIT SORT-RETURN TALLY ----- ^ - 15 STOP RUN. ->> Hint: Missing . - -run_extensions.at-5383-prog.cob:15.11-15.15: - 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' - 13 EXHIBIT VAR-2 - 14 EXHIBIT SORT-RETURN TALLY - 15 > STOP RUN. ----- ^^^^ ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5468:0 -run_extensions.at-5468-prog.cob:33.21: - 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 > MOVE x#09 TO XX3. ----- ^ - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . ->> Hint: Missing TO . - -run_extensions.at-5468-prog.cob:33.18-33.21: - 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 > MOVE x#09 TO XX3. ----- ^^^ - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . ->> Error: Invalid syntax - -run_extensions.at-5468-prog.cob:33.21: - 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 > MOVE x#09 TO XX3. ----- ^ - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:33.22-33.24: - 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 > MOVE x#09 TO XX3. ----- ^^ - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . ->> Warning: Invalid syntax - -run_extensions.at-5468-prog.cob:34.21: - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 MOVE x#09 TO XX3. - 34 > MOVE x#0E TO XX2. ----- ^ - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. ->> Hint: Missing TO - -run_extensions.at-5468-prog.cob:34.18-34.21: - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 MOVE x#09 TO XX3. - 34 > MOVE x#0E TO XX2. ----- ^^^ - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. ->> Error: Invalid syntax - -run_extensions.at-5468-prog.cob:34.21: - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 MOVE x#09 TO XX3. - 34 > MOVE x#0E TO XX2. ----- ^ - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:34.22-34.24: - 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). - 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. - 33 MOVE x#09 TO XX3. - 34 > MOVE x#0E TO XX2. ----- ^^ - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. ->> Warning: Invalid syntax - -run_extensions.at-5468-prog.cob:37.30: - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. - 37 > COMPUTE XX1 = (x#05 B-OR x#22). ----- ^ - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . ->> Hint: Missing ) . - -run_extensions.at-5468-prog.cob:37.27-37.30: - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. - 37 > COMPUTE XX1 = (x#05 B-OR x#22). ----- ^^^ - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . ->> Error: Invalid syntax - -run_extensions.at-5468-prog.cob:37.30: - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. - 37 > COMPUTE XX1 = (x#05 B-OR x#22). ----- ^ - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:37.31-37.35: - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. - 37 > COMPUTE XX1 = (x#05 B-OR x#22). ----- ^^^^ - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . ->> Warning: Invalid syntax - -run_extensions.at-5468-prog.cob:37.41: - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. - 37 > COMPUTE XX1 = (x#05 B-OR x#22). ----- ^ - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:37.37-37.41: - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. - 37 > COMPUTE XX1 = (x#05 B-OR x#22). ----- ^^^^ - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . ->> Warning: Invalid syntax - -run_extensions.at-5468-prog.cob:37.40-37.41: - 34 MOVE x#0E TO XX2. - 35 COMPUTE XX1 = XX2 B-AND XX3 . - 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. - 37 > COMPUTE XX1 = (x#05 B-OR x#22). ----- ^ - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . ->> Error: Invalid syntax - -run_extensions.at-5468-prog.cob:41.35: - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . - 40 DISPLAY "B-NOT " XX2 " is " XX1. - 41 > COMPUTE XX1 = B-NOT x#22 . ----- ^ - 42 DISPLAY "B-NOT x#22 is " XX1. - 43 ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:41.32-41.35: - 38 DISPLAY "x#05 B-OR x#22 is " XX1. - 39 COMPUTE XX1 = B-NOT XX2 . - 40 DISPLAY "B-NOT " XX2 " is " XX1. - 41 > COMPUTE XX1 = B-NOT x#22 . ----- ^^^ - 42 DISPLAY "B-NOT x#22 is " XX1. - 43 ->> Warning: Invalid syntax - -run_extensions.at-5468-prog.cob:62.21: - 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 > MOVE x#09 TO X3. ----- ^ - 63 MOVE x#0E TO X2. - 64 COMPUTE X1 = X2 B-AND X3 . ->> Hint: Missing TO . - -run_extensions.at-5468-prog.cob:62.18-62.21: - 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 > MOVE x#09 TO X3. ----- ^^^ - 63 MOVE x#0E TO X2. - 64 COMPUTE X1 = X2 B-AND X3 . ->> Error: Invalid syntax - -run_extensions.at-5468-prog.cob:62.21: - 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 > MOVE x#09 TO X3. ----- ^ - 63 MOVE x#0E TO X2. - 64 COMPUTE X1 = X2 B-AND X3 . ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:62.22-62.24: - 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 > MOVE x#09 TO X3. ----- ^^ - 63 MOVE x#0E TO X2. - 64 COMPUTE X1 = X2 B-AND X3 . ->> Warning: Invalid syntax - -run_extensions.at-5468-prog.cob:63.21: - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 MOVE x#09 TO X3. - 63 > MOVE x#0E TO X2. ----- ^ - 64 COMPUTE X1 = X2 B-AND X3 . - 65 DISPLAY X2 " B-AND " X3 " is " X1. ->> Hint: Missing TO - -run_extensions.at-5468-prog.cob:63.18-63.21: - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 MOVE x#09 TO X3. - 63 > MOVE x#0E TO X2. ----- ^^^ - 64 COMPUTE X1 = X2 B-AND X3 . - 65 DISPLAY X2 " B-AND " X3 " is " X1. ->> Error: Invalid syntax - -run_extensions.at-5468-prog.cob:63.21: - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 MOVE x#09 TO X3. - 63 > MOVE x#0E TO X2. ----- ^ - 64 COMPUTE X1 = X2 B-AND X3 . - 65 DISPLAY X2 " B-AND " X3 " is " X1. ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:63.22-63.24: - 60 COMPUTE X1 = X2 B-XOR (X3 + 1). - 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. - 62 MOVE x#09 TO X3. - 63 > MOVE x#0E TO X2. ----- ^^ - 64 COMPUTE X1 = X2 B-AND X3 . - 65 DISPLAY X2 " B-AND " X3 " is " X1. ->> Warning: Invalid syntax - -run_extensions.at-5468-prog.cob:68.34: - 65 DISPLAY X2 " B-AND " X3 " is " X1. - 66 COMPUTE X1 = B-NOT X2 . - 67 DISPLAY "B-NOT " X2 " is " X1. - 68 > COMPUTE X1 = B-NOT x#22 . ----- ^ - 69 DISPLAY "B-NOT x#22 is " X1. - 70 STOP RUN. ->> Hint: Missing . - -run_extensions.at-5468-prog.cob:68.31-68.34: - 65 DISPLAY X2 " B-AND " X3 " is " X1. - 66 COMPUTE X1 = B-NOT X2 . - 67 DISPLAY "B-NOT " X2 " is " X1. - 68 > COMPUTE X1 = B-NOT x#22 . ----- ^^^ - 69 DISPLAY "B-NOT x#22 is " X1. - 70 STOP RUN. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5547:0 -run_extensions.at-5547-prog.cob:11.21: - 8 01 N1 PIC 9(4) COMP-5 VALUE 0. - 9 01 N2 PIC 9(4) COMP-5 VALUE 0. - 10 PROCEDURE DIVISION. - 11 > MOVE x#0A TO X2. ----- ^ - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). ->> Hint: Missing TO - -run_extensions.at-5547-prog.cob:11.18-11.21: - 8 01 N1 PIC 9(4) COMP-5 VALUE 0. - 9 01 N2 PIC 9(4) COMP-5 VALUE 0. - 10 PROCEDURE DIVISION. - 11 > MOVE x#0A TO X2. ----- ^^^ - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:11.21: - 8 01 N1 PIC 9(4) COMP-5 VALUE 0. - 9 01 N2 PIC 9(4) COMP-5 VALUE 0. - 10 PROCEDURE DIVISION. - 11 > MOVE x#0A TO X2. ----- ^ - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:11.22-11.24: - 8 01 N1 PIC 9(4) COMP-5 VALUE 0. - 9 01 N2 PIC 9(4) COMP-5 VALUE 0. - 10 PROCEDURE DIVISION. - 11 > MOVE x#0A TO X2. ----- ^^ - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:13.29: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:13.26-13.29: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^^^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:13.29: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:13.30-13.36: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^^^^^^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:13.36: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:13.37-13.42: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^^^^^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:13.42: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:13.38-13.42: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^^^^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:13.41-13.42: - 10 PROCEDURE DIVISION. - 11 MOVE x#0A TO X2. - 12 DISPLAY "Using PIC XX COMP-X" - 13 > COMPUTE X1 = (x#22 B-LEFT x#05). ----- ^ - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:15.29: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:15.26-15.29: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^^^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:15.29: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:15.30-15.37: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^^^^^^^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:15.37: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:15.38-15.43: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^^^^^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:15.43: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:15.39-15.43: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^^^^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:15.42-15.43: - 12 DISPLAY "Using PIC XX COMP-X" - 13 COMPUTE X1 = (x#22 B-LEFT x#05). - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). ----- ^ - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:17.29: - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). ----- ^ - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:17.26-17.29: - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). ----- ^^^ - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:17.29: - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). ----- ^ - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:17.30-17.39: - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). ----- ^^^^^^^^^ - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:17.45: - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). ----- ^ - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:17.41-17.45: - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). ----- ^^^^ - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:17.44-17.45: - 14 DISPLAY " x#22 B-LEFT x#05 is " X1. - 15 COMPUTE X1 = (x#22 B-RIGHT x#02). - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). ----- ^ - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:19.29: - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). ----- ^ - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:19.26-19.29: - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). ----- ^^^ - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:19.29: - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). ----- ^ - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:19.30-19.39: - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). ----- ^^^^^^^^^ - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:19.45: - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). ----- ^ - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:19.41-19.45: - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). ----- ^^^^ - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:19.44-19.45: - 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. - 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). ----- ^ - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:21.27: - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 > COMPUTE X1 = (X2 B-LEFT x#05). ----- ^ - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:21.28-21.34: - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 > COMPUTE X1 = (X2 B-LEFT x#05). ----- ^^^^^^ - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:21.34: - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 > COMPUTE X1 = (X2 B-LEFT x#05). ----- ^ - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:21.35-21.40: - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 > COMPUTE X1 = (X2 B-LEFT x#05). ----- ^^^^^ - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:21.40: - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 > COMPUTE X1 = (X2 B-LEFT x#05). ----- ^ - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:21.36-21.40: - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 > COMPUTE X1 = (X2 B-LEFT x#05). ----- ^^^^ - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:21.39-21.40: - 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. - 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 > COMPUTE X1 = (X2 B-LEFT x#05). ----- ^ - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:23.27: - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 > COMPUTE X1 = (X2 B-RIGHT x#02). ----- ^ - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:23.28-23.35: - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 > COMPUTE X1 = (X2 B-RIGHT x#02). ----- ^^^^^^^ - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:23.35: - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 > COMPUTE X1 = (X2 B-RIGHT x#02). ----- ^ - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:23.36-23.41: - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 > COMPUTE X1 = (X2 B-RIGHT x#02). ----- ^^^^^ - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:23.41: - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 > COMPUTE X1 = (X2 B-RIGHT x#02). ----- ^ - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:23.37-23.41: - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 > COMPUTE X1 = (X2 B-RIGHT x#02). ----- ^^^^ - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:23.40-23.41: - 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. - 21 COMPUTE X1 = (X2 B-LEFT x#05). - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 > COMPUTE X1 = (X2 B-RIGHT x#02). ----- ^ - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:25.23: - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 > MOVE x#7573 TO X2. ----- ^ - 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. ->> Hint: Missing TO . - -run_extensions.at-5547-prog.cob:25.18-25.23: - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 > MOVE x#7573 TO X2. ----- ^^^^^ - 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:25.23: - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 > MOVE x#7573 TO X2. ----- ^ - 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:25.24-25.26: - 22 DISPLAY X2 " B-LEFT x#05 is " X1. - 23 COMPUTE X1 = (X2 B-RIGHT x#02). - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 > MOVE x#7573 TO X2. ----- ^^ - 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:26.27: - 23 COMPUTE X1 = (X2 B-RIGHT x#02). - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. - 26 > COMPUTE X1 = (X2 B-SHIFT-LC 4). ----- ^ - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. - 28 COMPUTE X1 = (X2 B-SHIFT-RC 4). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:26.28-26.38: - 23 COMPUTE X1 = (X2 B-RIGHT x#02). - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. - 26 > COMPUTE X1 = (X2 B-SHIFT-LC 4). ----- ^^^^^^^^^^ - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. - 28 COMPUTE X1 = (X2 B-SHIFT-RC 4). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:26.40-26.41: - 23 COMPUTE X1 = (X2 B-RIGHT x#02). - 24 DISPLAY X2 " B-RIGHT x#02 is " X1. - 25 MOVE x#7573 TO X2. - 26 > COMPUTE X1 = (X2 B-SHIFT-LC 4). ----- ^ - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. - 28 COMPUTE X1 = (X2 B-SHIFT-RC 4). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:28.27: - 25 MOVE x#7573 TO X2. - 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. - 28 > COMPUTE X1 = (X2 B-SHIFT-RC 4). ----- ^ - 29 DISPLAY X2 " B-SHIFT-RC 4 is " X1. - 30 ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:28.28-28.38: - 25 MOVE x#7573 TO X2. - 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. - 28 > COMPUTE X1 = (X2 B-SHIFT-RC 4). ----- ^^^^^^^^^^ - 29 DISPLAY X2 " B-SHIFT-RC 4 is " X1. - 30 ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:28.40-28.41: - 25 MOVE x#7573 TO X2. - 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). - 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. - 28 > COMPUTE X1 = (X2 B-SHIFT-RC 4). ----- ^ - 29 DISPLAY X2 " B-SHIFT-RC 4 is " X1. - 30 ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:33.29: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:33.26-33.29: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^^^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:33.29: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:33.30-33.36: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^^^^^^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:33.36: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:33.37-33.42: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^^^^^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:33.42: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:33.38-33.42: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^^^^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:33.41-33.42: - 30 - 31 MOVE 10 TO N2. - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 > COMPUTE N1 = (x#22 B-LEFT x#05). ----- ^ - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:35.29: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:35.26-35.29: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^^^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:35.29: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:35.30-35.37: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^^^^^^^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:35.37: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:35.38-35.43: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^^^^^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:35.43: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:35.39-35.43: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^^^^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:35.42-35.43: - 32 DISPLAY "Using PIC 9(4) COMP-5" - 33 COMPUTE N1 = (x#22 B-LEFT x#05). - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). ----- ^ - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:37.29: - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). ----- ^ - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:37.26-37.29: - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). ----- ^^^ - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:37.29: - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). ----- ^ - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:37.30-37.39: - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). ----- ^^^^^^^^^ - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:37.45: - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). ----- ^ - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:37.41-37.45: - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). ----- ^^^^ - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:37.44-37.45: - 34 DISPLAY " x#22 B-LEFT x#05 is " N1. - 35 COMPUTE N1 = (x#22 B-RIGHT x#02). - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). ----- ^ - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:39.29: - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). ----- ^ - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:39.26-39.29: - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). ----- ^^^ - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:39.29: - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). ----- ^ - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:39.30-39.39: - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). ----- ^^^^^^^^^ - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:39.45: - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). ----- ^ - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:39.41-39.45: - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). ----- ^^^^ - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:39.44-39.45: - 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. - 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). ----- ^ - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:41.27: - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 > COMPUTE N1 = (N2 B-LEFT x#05). ----- ^ - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 COMPUTE N1 = (N2 B-RIGHT x#02). ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:41.28-41.34: - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 > COMPUTE N1 = (N2 B-LEFT x#05). ----- ^^^^^^ - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 COMPUTE N1 = (N2 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:41.34: - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 > COMPUTE N1 = (N2 B-LEFT x#05). ----- ^ - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 COMPUTE N1 = (N2 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:41.35-41.40: - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 > COMPUTE N1 = (N2 B-LEFT x#05). ----- ^^^^^ - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 COMPUTE N1 = (N2 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:41.40: - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 > COMPUTE N1 = (N2 B-LEFT x#05). ----- ^ - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 COMPUTE N1 = (N2 B-RIGHT x#02). ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:41.36-41.40: - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 > COMPUTE N1 = (N2 B-LEFT x#05). ----- ^^^^ - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 COMPUTE N1 = (N2 B-RIGHT x#02). ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:41.39-41.40: - 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. - 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 > COMPUTE N1 = (N2 B-LEFT x#05). ----- ^ - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 COMPUTE N1 = (N2 B-RIGHT x#02). ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:43.27: - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 > COMPUTE N1 = (N2 B-RIGHT x#02). ----- ^ - 44 DISPLAY N2 " B-RIGHT x#02 is " N1. - 45 STOP RUN. ->> Hint: Missing ) . - -run_extensions.at-5547-prog.cob:43.28-43.35: - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 > COMPUTE N1 = (N2 B-RIGHT x#02). ----- ^^^^^^^ - 44 DISPLAY N2 " B-RIGHT x#02 is " N1. - 45 STOP RUN. ->> Error: Invalid syntax - -run_extensions.at-5547-prog.cob:43.35: - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 > COMPUTE N1 = (N2 B-RIGHT x#02). ----- ^ - 44 DISPLAY N2 " B-RIGHT x#02 is " N1. - 45 STOP RUN. ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:43.36-43.41: - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 > COMPUTE N1 = (N2 B-RIGHT x#02). ----- ^^^^^ - 44 DISPLAY N2 " B-RIGHT x#02 is " N1. - 45 STOP RUN. ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:43.41: - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 > COMPUTE N1 = (N2 B-RIGHT x#02). ----- ^ - 44 DISPLAY N2 " B-RIGHT x#02 is " N1. - 45 STOP RUN. ->> Hint: Missing . - -run_extensions.at-5547-prog.cob:43.37-43.41: - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 > COMPUTE N1 = (N2 B-RIGHT x#02). ----- ^^^^ - 44 DISPLAY N2 " B-RIGHT x#02 is " N1. - 45 STOP RUN. ->> Warning: Invalid syntax - -run_extensions.at-5547-prog.cob:43.40-43.41: - 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. - 41 COMPUTE N1 = (N2 B-LEFT x#05). - 42 DISPLAY N2 " B-LEFT x#05 is " N1. - 43 > COMPUTE N1 = (N2 B-RIGHT x#02). ----- ^ - 44 DISPLAY N2 " B-RIGHT x#02 is " N1. - 45 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5599:0 -run_extensions.at-5599-prog.cob:7.34: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 FLOATS. - 7 > 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. ----- ^ - 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. - 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. ->> Hint: Missing BINARY - -run_extensions.at-5599-prog.cob:7.35-7.50: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 FLOATS. - 7 > 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. ----- ^^^^^^^^^^^^^^^ - 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. - 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:8.34: - 5 WORKING-STORAGE SECTION. - 6 01 FLOATS. - 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. - 8 > 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. ----- ^ - 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. - 10 ->> Hint: Missing BINARY - -run_extensions.at-5599-prog.cob:8.35-8.51: - 5 WORKING-STORAGE SECTION. - 6 01 FLOATS. - 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. - 8 > 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. ----- ^^^^^^^^^^^^^^^^ - 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. - 10 ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:9.34: - 6 01 FLOATS. - 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. - 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. - 9 > 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. ----- ^ - 10 - 11 PROCEDURE DIVISION. ->> Hint: Missing BINARY - -run_extensions.at-5599-prog.cob:9.35-9.51: - 6 01 FLOATS. - 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. - 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. - 9 > 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. ----- ^^^^^^^^^^^^^^^^ - 10 - 11 PROCEDURE DIVISION. ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:12.18: - 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. - 10 - 11 PROCEDURE DIVISION. - 12 > DISPLAY FLOAT-BINARY-32 ----- ^ - 13 - 14 DISPLAY FLOAT-BINARY-64 ->> Hint: Missing - -run_extensions.at-5599-prog.cob:12.19-12.34: - 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. - 10 - 11 PROCEDURE DIVISION. - 12 > DISPLAY FLOAT-BINARY-32 ----- ^^^^^^^^^^^^^^^ - 13 - 14 DISPLAY FLOAT-BINARY-64 ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:14.18: - 11 PROCEDURE DIVISION. - 12 DISPLAY FLOAT-BINARY-32 - 13 - 14 > DISPLAY FLOAT-BINARY-64 ----- ^ - 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 - 16 DISPLAY FLOAT-BINARY-64 ->> Hint: Missing - -run_extensions.at-5599-prog.cob:14.19-14.34: - 11 PROCEDURE DIVISION. - 12 DISPLAY FLOAT-BINARY-32 - 13 - 14 > DISPLAY FLOAT-BINARY-64 ----- ^^^^^^^^^^^^^^^ - 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 - 16 DISPLAY FLOAT-BINARY-64 ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:15.38: - 12 DISPLAY FLOAT-BINARY-32 - 13 - 14 DISPLAY FLOAT-BINARY-64 - 15 > MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 ----- ^ - 16 DISPLAY FLOAT-BINARY-64 - 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 ->> Hint: Missing - -run_extensions.at-5599-prog.cob:15.39-15.54: - 12 DISPLAY FLOAT-BINARY-32 - 13 - 14 DISPLAY FLOAT-BINARY-64 - 15 > MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 ----- ^^^^^^^^^^^^^^^ - 16 DISPLAY FLOAT-BINARY-64 - 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:16.18: - 13 - 14 DISPLAY FLOAT-BINARY-64 - 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 - 16 > DISPLAY FLOAT-BINARY-64 ----- ^ - 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 - 18 DISPLAY FLOAT-BINARY-64 ->> Hint: Missing - -run_extensions.at-5599-prog.cob:16.19-16.34: - 13 - 14 DISPLAY FLOAT-BINARY-64 - 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 - 16 > DISPLAY FLOAT-BINARY-64 ----- ^^^^^^^^^^^^^^^ - 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 - 18 DISPLAY FLOAT-BINARY-64 ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:17.38-17.53: - 14 DISPLAY FLOAT-BINARY-64 - 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 - 16 DISPLAY FLOAT-BINARY-64 - 17 > ADD -1.111111111011E302 TO FLOAT-BINARY-64 ----- ^^^^^^^^^^^^^^^ - 18 DISPLAY FLOAT-BINARY-64 - 19 ->> Error: Invalid syntax - -run_extensions.at-5599-prog.cob:18.18: - 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 - 16 DISPLAY FLOAT-BINARY-64 - 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 - 18 > DISPLAY FLOAT-BINARY-64 ----- ^ - 19 - 20 *> NOTE: FLOAT-BINARY-128 is only syntax-checked as support for ->> Hint: Missing - -run_extensions.at-5599-prog.cob:18.19-18.34: - 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 - 16 DISPLAY FLOAT-BINARY-64 - 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 - 18 > DISPLAY FLOAT-BINARY-64 ----- ^^^^^^^^^^^^^^^ - 19 - 20 *> NOTE: FLOAT-BINARY-128 is only syntax-checked as support for ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5732:0 -run_extensions.at-5732-prog.cob:77.27-77.33: - 74 PERFORM SHOW-VARS - 75 END-IF - 76 MOVE 1 TO LGX - 77 > COMPUTE W-LEN = LENGTH OF X-DAT ----- ^^^^^^ - 78 IF W-LEN NOT EQUAL 10 - 79 DISPLAY "UNEXPECTED RESULT FOR 'LENGTH OF X-DAT': " ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5786:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5757:0 -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5865:0 -run_extensions.at-5865-corr.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. corr. ----- ^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Hint: Missing - -run_extensions.at-5865-corr.cob:3.24-3.28: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. corr. ----- ^^^^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5934:0 -run_extensions.at-5934-nested.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. nested. ----- ^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Hint: Missing - -run_extensions.at-5934-nested.cob:3.24-3.30: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. nested. ----- ^^^^^^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6022:0 -run_extensions.at-6022-redefines.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. redefines. ----- ^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Hint: Missing - -run_extensions.at-6022-redefines.cob:3.24-3.33: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. redefines. ----- ^^^^^^^^^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6094:0 -run_extensions.at-6094-prog.cob:15.42-15.50: - 12 *> - 13 MOVE 0 TO W01-INDEX. - 14 INSPECT W01-STRING - 15 > TALLYING W01-INDEX FOR TRAILING SPACE. ----- ^^^^^^^^ - 16 IF W01-INDEX NOT = 10 - 17 THEN ->> Error: Invalid syntax - -run_extensions.at-6094-prog.cob:21.40-21.48: - 18 DISPLAY 'Bad Result for Inspect Trailing Case 1' - 19 END-IF. - 20 *> - 21 > INSPECT W01-STRING REPLACING TRAILING SPACE BY 'A'. ----- ^^^^^^^^ - 22 IF W01-STRING NOT = '0123456789AAAAAAAAAA' - 23 THEN ->> Error: Invalid syntax - -run_extensions.at-6094-prog.cob:29.42-29.50: - 26 *> - 27 MOVE 0 TO W01-INDEX. - 28 INSPECT W01-STRING - 29 > TALLYING W01-INDEX FOR TRAILING SPACE ----- ^^^^^^^^ - 30 REPLACING TRAILING 'A' BY 'B'. - 31 *> ->> Error: Invalid syntax - -run_extensions.at-6094-prog.cob:30.29-30.37: - 27 MOVE 0 TO W01-INDEX. - 28 INSPECT W01-STRING - 29 TALLYING W01-INDEX FOR TRAILING SPACE - 30 > REPLACING TRAILING 'A' BY 'B'. ----- ^^^^^^^^ - 31 *> - 32 IF W01-STRING NOT = '0123456789BBBBBBBBBB' ->> Error: Invalid syntax - -run_extensions.at-6094-prog.cob:40.42-40.50: - 37 MOVE 0 TO W01-INDEX. - 38 MOVE SPACES TO W01-STRING. - 39 INSPECT W01-STRING - 40 > TALLYING W01-INDEX FOR TRAILING 'A'. ----- ^^^^^^^^ - 41 *> - 42 IF W01-INDEX NOT = 0 ->> Error: Invalid syntax - -run_extensions.at-6094-prog.cob:51.42-51.50: - 48 MOVE 0 TO W01-INDEX. - 49 MOVE SPACES TO W01-STRING. - 50 INSPECT W01-STRING - 51 > TALLYING W01-INDEX FOR TRAILING SPACES. ----- ^^^^^^^^ - 52 *> - 53 IF W01-INDEX NOT = 20 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6116:0 -run_extensions.at-6116-prog.cob:8.31-8.39: - 5 WORKING-STORAGE SECTION. - 6 01 X PIC X(4) VALUE "1000". - 7 PROCEDURE DIVISION. - 8 > INSPECT X REPLACING TRAILING ZEROS BY SPACES. ----- ^^^^^^^^ - 9 IF X NOT = "1 " - 10 DISPLAY X. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6151:0 -run_extensions.at-6151-prog.cob:12.13-12.21: - 9 ALL "A" BY "Z" - 10 "B" BY "Y" - 11 "Z" BY "0" - 12 > TRAILING "C" BY "X" ----- ^^^^^^^^ - 13 IF X NOT = "Z0ZYYCDCCEXX" - 14 DISPLAY "1 - " X. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6210:0 -run_extensions.at-6210-prog.cob:10.18: - 7 01 N PIC S9(5)V9(2) VALUE -11122.55. - 8 01 T PIC X(10) VALUE " 8 ". - 9 PROCEDURE DIVISION. - 10 > EXAMINE X TALLYING ALL "A" ----- ^ - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:10.19-10.20: - 7 01 N PIC S9(5)V9(2) VALUE -11122.55. - 8 01 T PIC X(10) VALUE " 8 ". - 9 PROCEDURE DIVISION. - 10 > EXAMINE X TALLYING ALL "A" ----- ^ - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:10.20: - 7 01 N PIC S9(5)V9(2) VALUE -11122.55. - 8 01 T PIC X(10) VALUE " 8 ". - 9 PROCEDURE DIVISION. - 10 > EXAMINE X TALLYING ALL "A" ----- ^ - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:10.21-10.29: - 7 01 N PIC S9(5)V9(2) VALUE -11122.55. - 8 01 T PIC X(10) VALUE " 8 ". - 9 PROCEDURE DIVISION. - 10 > EXAMINE X TALLYING ALL "A" ----- ^^^^^^^^ - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:13.18: - 10 EXAMINE X TALLYING ALL "A" - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. - 13 > EXAMINE X TALLYING LEADING "A" ----- ^ - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:13.19-13.20: - 10 EXAMINE X TALLYING ALL "A" - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. - 13 > EXAMINE X TALLYING LEADING "A" ----- ^ - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:13.20: - 10 EXAMINE X TALLYING ALL "A" - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. - 13 > EXAMINE X TALLYING LEADING "A" ----- ^ - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:13.21-13.29: - 10 EXAMINE X TALLYING ALL "A" - 11 IF TALLY NOT = 4 - 12 DISPLAY "Should be 4 but is " TALLY. - 13 > EXAMINE X TALLYING LEADING "A" ----- ^^^^^^^^ - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:16.18: - 13 EXAMINE X TALLYING LEADING "A" - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. - 16 > EXAMINE X TALLYING UNTIL FIRST "C" ----- ^ - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:16.19-16.20: - 13 EXAMINE X TALLYING LEADING "A" - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. - 16 > EXAMINE X TALLYING UNTIL FIRST "C" ----- ^ - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:16.20: - 13 EXAMINE X TALLYING LEADING "A" - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. - 16 > EXAMINE X TALLYING UNTIL FIRST "C" ----- ^ - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:16.21-16.29: - 13 EXAMINE X TALLYING LEADING "A" - 14 IF TALLY NOT = 2 - 15 DISPLAY "Should be 2 but is " TALLY. - 16 > EXAMINE X TALLYING UNTIL FIRST "C" ----- ^^^^^^^^ - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:19.18: - 16 EXAMINE X TALLYING UNTIL FIRST "C" - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. - 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" ----- ^ - 20 IF TALLY NOT = 4 - 21 DISPLAY "Should be 4 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:19.19-19.20: - 16 EXAMINE X TALLYING UNTIL FIRST "C" - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. - 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" ----- ^ - 20 IF TALLY NOT = 4 - 21 DISPLAY "Should be 4 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:19.20: - 16 EXAMINE X TALLYING UNTIL FIRST "C" - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. - 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" ----- ^ - 20 IF TALLY NOT = 4 - 21 DISPLAY "Should be 4 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:19.21-19.29: - 16 EXAMINE X TALLYING UNTIL FIRST "C" - 17 IF TALLY NOT = 5 - 18 DISPLAY "Should be 5 but is " TALLY. - 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" ----- ^^^^^^^^ - 20 IF TALLY NOT = 4 - 21 DISPLAY "Should be 4 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:24.18: - 21 DISPLAY "Should be 4 but is " TALLY. - 22 IF X NOT = "ZZBZBCZB" - 23 DISPLAY "Should be ZZBZBCZB but is " X. - 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" ----- ^ - 25 IF TALLY NOT = 2 - 26 DISPLAY "Should be 2 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:24.19-24.20: - 21 DISPLAY "Should be 4 but is " TALLY. - 22 IF X NOT = "ZZBZBCZB" - 23 DISPLAY "Should be ZZBZBCZB but is " X. - 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" ----- ^ - 25 IF TALLY NOT = 2 - 26 DISPLAY "Should be 2 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:24.20: - 21 DISPLAY "Should be 4 but is " TALLY. - 22 IF X NOT = "ZZBZBCZB" - 23 DISPLAY "Should be ZZBZBCZB but is " X. - 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" ----- ^ - 25 IF TALLY NOT = 2 - 26 DISPLAY "Should be 2 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:24.21-24.29: - 21 DISPLAY "Should be 4 but is " TALLY. - 22 IF X NOT = "ZZBZBCZB" - 23 DISPLAY "Should be ZZBZBCZB but is " X. - 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" ----- ^^^^^^^^ - 25 IF TALLY NOT = 2 - 26 DISPLAY "Should be 2 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:29.18: - 26 DISPLAY "Should be 2 but is " TALLY. - 27 IF X NOT = "AABZBCZB" - 28 DISPLAY "Should be AABZBCZB but is " X. - 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" ----- ^ - 30 IF TALLY NOT = 5 - 31 DISPLAY "Should be 5 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:29.19-29.20: - 26 DISPLAY "Should be 2 but is " TALLY. - 27 IF X NOT = "AABZBCZB" - 28 DISPLAY "Should be AABZBCZB but is " X. - 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" ----- ^ - 30 IF TALLY NOT = 5 - 31 DISPLAY "Should be 5 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:29.20: - 26 DISPLAY "Should be 2 but is " TALLY. - 27 IF X NOT = "AABZBCZB" - 28 DISPLAY "Should be AABZBCZB but is " X. - 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" ----- ^ - 30 IF TALLY NOT = 5 - 31 DISPLAY "Should be 5 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:29.21-29.29: - 26 DISPLAY "Should be 2 but is " TALLY. - 27 IF X NOT = "AABZBCZB" - 28 DISPLAY "Should be AABZBCZB but is " X. - 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" ----- ^^^^^^^^ - 30 IF TALLY NOT = 5 - 31 DISPLAY "Should be 5 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:34.18: - 31 DISPLAY "Should be 5 but is " TALLY. - 32 IF X NOT = "XXXXXCZB" - 33 DISPLAY "Should be XXXXXCZB but is " X. - 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" ----- ^ - 35 IF TALLY NOT = 8 - 36 DISPLAY "Should be 8 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:34.19-34.20: - 31 DISPLAY "Should be 5 but is " TALLY. - 32 IF X NOT = "XXXXXCZB" - 33 DISPLAY "Should be XXXXXCZB but is " X. - 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" ----- ^ - 35 IF TALLY NOT = 8 - 36 DISPLAY "Should be 8 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:34.20: - 31 DISPLAY "Should be 5 but is " TALLY. - 32 IF X NOT = "XXXXXCZB" - 33 DISPLAY "Should be XXXXXCZB but is " X. - 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" ----- ^ - 35 IF TALLY NOT = 8 - 36 DISPLAY "Should be 8 but is " TALLY. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:34.21-34.29: - 31 DISPLAY "Should be 5 but is " TALLY. - 32 IF X NOT = "XXXXXCZB" - 33 DISPLAY "Should be XXXXXCZB but is " X. - 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" ----- ^^^^^^^^ - 35 IF TALLY NOT = 8 - 36 DISPLAY "Should be 8 but is " TALLY. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:39.18: - 36 DISPLAY "Should be 8 but is " TALLY. - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 ----- ^ - 40 IF N NOT = -88888.55 - 41 DISPLAY "Should be -88888.55 but is " N. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:39.19-39.20: - 36 DISPLAY "Should be 8 but is " TALLY. - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 ----- ^ - 40 IF N NOT = -88888.55 - 41 DISPLAY "Should be -88888.55 but is " N. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:39.20: - 36 DISPLAY "Should be 8 but is " TALLY. - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 ----- ^ - 40 IF N NOT = -88888.55 - 41 DISPLAY "Should be -88888.55 but is " N. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:39.21-39.29: - 36 DISPLAY "Should be 8 but is " TALLY. - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 ----- ^^^^^^^^ - 40 IF N NOT = -88888.55 - 41 DISPLAY "Should be -88888.55 but is " N. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:39.43: - 36 DISPLAY "Should be 8 but is " TALLY. - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 ----- ^ - 40 IF N NOT = -88888.55 - 41 DISPLAY "Should be -88888.55 but is " N. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:39.44-39.53: - 36 DISPLAY "Should be 8 but is " TALLY. - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 ----- ^^^^^^^^^ - 40 IF N NOT = -88888.55 - 41 DISPLAY "Should be -88888.55 but is " N. ->> Warning: Invalid syntax - -run_extensions.at-6210-prog.cob:39.58: - 36 DISPLAY "Should be 8 but is " TALLY. - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 ----- ^ - 40 IF N NOT = -88888.55 - 41 DISPLAY "Should be -88888.55 but is " N. ->> Hint: Missing . - -run_extensions.at-6210-prog.cob:40.11-40.13: - 37 IF X NOT = "YYYYYYYY" - 38 DISPLAY "Should be YYYYYYYY but is " X. - 39 EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 - 40 > IF N NOT = -88888.55 ----- ^^ - 41 DISPLAY "Should be -88888.55 but is " N. - 42 * Re-mod is forbidden here (at least on GCOS): ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6246:0 -run_extensions.at-6246-prog.cob:10.18: - 7 01 Y PIC X VALUE "Y". - 8 01 N PIC S9(5) VALUE -11122. - 9 PROCEDURE DIVISION. - 10 > EXAMINE X REPLACING ALL "A" BY "X" ----- ^ - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:10.19-10.20: - 7 01 Y PIC X VALUE "Y". - 8 01 N PIC S9(5) VALUE -11122. - 9 PROCEDURE DIVISION. - 10 > EXAMINE X REPLACING ALL "A" BY "X" ----- ^ - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:10.20: - 7 01 Y PIC X VALUE "Y". - 8 01 N PIC S9(5) VALUE -11122. - 9 PROCEDURE DIVISION. - 10 > EXAMINE X REPLACING ALL "A" BY "X" ----- ^ - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:10.21-10.30: - 7 01 Y PIC X VALUE "Y". - 8 01 N PIC S9(5) VALUE -11122. - 9 PROCEDURE DIVISION. - 10 > EXAMINE X REPLACING ALL "A" BY "X" ----- ^^^^^^^^^ - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:13.18: - 10 EXAMINE X REPLACING ALL "A" BY "X" - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. - 13 > EXAMINE X REPLACING LEADING "X" BY "Y" ----- ^ - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:13.19-13.20: - 10 EXAMINE X REPLACING ALL "A" BY "X" - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. - 13 > EXAMINE X REPLACING LEADING "X" BY "Y" ----- ^ - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:13.20: - 10 EXAMINE X REPLACING ALL "A" BY "X" - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. - 13 > EXAMINE X REPLACING LEADING "X" BY "Y" ----- ^ - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:13.21-13.30: - 10 EXAMINE X REPLACING ALL "A" BY "X" - 11 IF X NOT = "XXBXBCXB" - 12 DISPLAY "Should be XXBXBCXB but is " X. - 13 > EXAMINE X REPLACING LEADING "X" BY "Y" ----- ^^^^^^^^^ - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:16.18: - 13 EXAMINE X REPLACING LEADING "X" BY "Y" - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. - 16 > EXAMINE X REPLACING FIRST "B" BY "C" ----- ^ - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:16.19-16.20: - 13 EXAMINE X REPLACING LEADING "X" BY "Y" - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. - 16 > EXAMINE X REPLACING FIRST "B" BY "C" ----- ^ - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:16.20: - 13 EXAMINE X REPLACING LEADING "X" BY "Y" - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. - 16 > EXAMINE X REPLACING FIRST "B" BY "C" ----- ^ - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:16.21-16.30: - 13 EXAMINE X REPLACING LEADING "X" BY "Y" - 14 IF X NOT = "YYBXBCXB" - 15 DISPLAY "Should be YYBXBCXB but is " X. - 16 > EXAMINE X REPLACING FIRST "B" BY "C" ----- ^^^^^^^^^ - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:19.18: - 16 EXAMINE X REPLACING FIRST "B" BY "C" - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. - 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" ----- ^ - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:19.19-19.20: - 16 EXAMINE X REPLACING FIRST "B" BY "C" - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. - 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" ----- ^ - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:19.20: - 16 EXAMINE X REPLACING FIRST "B" BY "C" - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. - 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" ----- ^ - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:19.21-19.30: - 16 EXAMINE X REPLACING FIRST "B" BY "C" - 17 IF X NOT = "YYCXBCXB" - 18 DISPLAY "Should be YYCXBCXB but is " X. - 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" ----- ^^^^^^^^^ - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:22.18: - 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 > EXAMINE N REPLACING ALL 1 BY 3 ----- ^ - 23 IF N NOT = -33322 - 24 DISPLAY "Should be -33322 but is " N. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:22.19-22.20: - 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 > EXAMINE N REPLACING ALL 1 BY 3 ----- ^ - 23 IF N NOT = -33322 - 24 DISPLAY "Should be -33322 but is " N. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:22.20: - 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 > EXAMINE N REPLACING ALL 1 BY 3 ----- ^ - 23 IF N NOT = -33322 - 24 DISPLAY "Should be -33322 but is " N. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:22.21-22.30: - 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 > EXAMINE N REPLACING ALL 1 BY 3 ----- ^^^^^^^^^ - 23 IF N NOT = -33322 - 24 DISPLAY "Should be -33322 but is " N. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:22.36: - 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 > EXAMINE N REPLACING ALL 1 BY 3 ----- ^ - 23 IF N NOT = -33322 - 24 DISPLAY "Should be -33322 but is " N. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:22.37-22.39: - 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 > EXAMINE N REPLACING ALL 1 BY 3 ----- ^^ - 23 IF N NOT = -33322 - 24 DISPLAY "Should be -33322 but is " N. ->> Warning: Invalid syntax - -run_extensions.at-6246-prog.cob:22.41: - 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 > EXAMINE N REPLACING ALL 1 BY 3 ----- ^ - 23 IF N NOT = -33322 - 24 DISPLAY "Should be -33322 but is " N. ->> Hint: Missing . - -run_extensions.at-6246-prog.cob:23.11-23.13: - 20 IF X NOT = "ZZZZBCXB" - 21 DISPLAY "Should be ZZZZBCXB but is " X. - 22 EXAMINE N REPLACING ALL 1 BY 3 - 23 > IF N NOT = -33322 ----- ^^ - 24 DISPLAY "Should be -33322 but is " N. - 25 STOP RUN. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6286:0 -run_extensions.at-6286-prog.cob:26.19: - 23 MOVE ""75,80,91"" TO X - 24 IF X NOT EQUAL "[!]" PERFORM SHOW. - 25 - 26 > STOP RUN S. ----- ^ - 27 SHOW. - 28 DISPLAY "EBCDIC LIT " T " FAILED: X = """ X """" ->> Hint: Missing . - -run_extensions.at-6286-prog.cob:26.20-26.21: - 23 MOVE ""75,80,91"" TO X - 24 IF X NOT EQUAL "[!]" PERFORM SHOW. - 25 - 26 > STOP RUN S. ----- ^ - 27 SHOW. - 28 DISPLAY "EBCDIC LIT " T " FAILED: X = """ X """" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:83:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:145:0 -run_file.at-145-TEST1:1.6-1.7: - 1 > ----- ^ - 2 - 3 ->> Error: Unexpected indicator: `v' - -run_file.at-145-TEST1:2.6-2.7: - 1 - 2 > ----- ^ - 3 - 4 ->> Error: Unexpected indicator: `e' - -run_file.at-145-TEST1:3.6-3.7: - 1 - 2 - 3 > ----- ^ - 4 - 5 ->> Error: Unexpected indicator: `i' - -run_file.at-145-TEST1:12.6-12.7: - 9 - 10 - 11 - 12 > ----- ^ - 13 ->> Error: Unexpected indicator: `L' - -run_file.at-145-TEST1:13.6-13.7: - 10 - 11 - 12 - 13 > ----- ^ ->> Error: Unexpected indicator: `l' - -run_file.at-145-TEST1:1.7-1.13: - 1 > ----- ^^^^^^ - 2 - 3 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:144:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:218:0 -run_file.at-218-prog.cob:38.18-38.22: - 35 OPEN I-O FILE-OPT - 36 IF WSFS NOT = "00" - 37 DISPLAY "STATUS I-O, empty file:" WSFS. - 38 > DELETE FILE FILE-OPT ----- ^^^^ - 39 *> ON EXCEPTION - 40 IF WSFS NOT = "41" ->> Error: Invalid syntax - -run_file.at-218-prog.cob:49.18-49.22: - 46 CLOSE FILE-OPT - 47 IF WSFS NOT = "00" - 48 DISPLAY "STATUS CLOSE #2:" WSFS. - 49 > DELETE FILE FILE-OPT ----- ^^^^ - 50 *> ON EXCEPTION - 51 *> DISPLAY "STATUS DELETE FILE (closed) - EXCEPTION:" WSFS ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:252:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:327:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:400:0 -run_file.at-400-prog.cob:39.18-39.22: - 36 OPEN I-O FILE-OPT - 37 IF WSFS NOT = "00" - 38 DISPLAY "STATUS I-O, empty file: " WSFS. - 39 > DELETE FILE FILE-OPT ----- ^^^^ - 40 *> ON EXCEPTION - 41 IF WSFS NOT = "41" ->> Error: Invalid syntax - -run_file.at-400-prog.cob:50.18-50.22: - 47 CLOSE FILE-OPT - 48 IF WSFS NOT = "00" - 49 DISPLAY "STATUS CLOSE #2: " WSFS. - 50 > DELETE FILE FILE-OPT ----- ^^^^ - 51 *> ON EXCEPTION - 52 *> DISPLAY "STATUS DELETE FILE (closed) - EXCEPTION: " WSFS ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:437:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:477:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:517:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:595:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:662:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:699:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:705:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:744:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:790:0 -run_file.at-790-prog.cob:10.7-10.28: - 7 FILE-CONTROL. - 8 SELECT f ASSIGN whatever - 9 ORGANIZATION LINE SEQUENTIAL. - 10 > $SET ASSIGN "EXTERNAL" ----- ^^^^^^^^^^^^^^^^^^^^^ - 11 SELECT g ASSIGN whatever - 12 ORGANIZATION LINE SEQUENTIAL. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:816:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:860:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:865:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:912:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:987:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1019:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1067:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1107:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1181:0 -run_file.at-1181-prog.cob:16.32: - 13 WORKING-STORAGE SECTION. - 14 01 path BASED PIC X(10). - 15 01 x PIC X. - 16 > PROCEDURE DIVISION CHAINING x. ----- ^ - 17 IF x NOT = SPACES - 18 ALLOCATE path ->> Hint: Missing . - -run_file.at-1181-prog.cob:16.33-16.41: - 13 WORKING-STORAGE SECTION. - 14 01 path BASED PIC X(10). - 15 01 x PIC X. - 16 > PROCEDURE DIVISION CHAINING x. ----- ^^^^^^^^ - 17 IF x NOT = SPACES - 18 ALLOCATE path ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1193:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1350:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1362:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1400:0 -run_file.at-1400-prog.cob:16.32: - 13 WORKING-STORAGE SECTION. - 14 01 path PIC X(10). - 15 01 x PIC X. - 16 > PROCEDURE DIVISION CHAINING x. ----- ^ - 17 IF X = SPACE - 18 MOVE SPACES TO path ->> Hint: Missing . - -run_file.at-1400-prog.cob:16.33-16.41: - 13 WORKING-STORAGE SECTION. - 14 01 path PIC X(10). - 15 01 x PIC X. - 16 > PROCEDURE DIVISION CHAINING x. ----- ^^^^^^^^ - 17 IF X = SPACE - 18 MOVE SPACES TO path ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1432:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1479:0 -run_file.at-1479-prog.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "test". ----- ^ - 4 ENVIRONMENT DIVISION. - 5 INPUT-OUTPUT SECTION. ->> Hint: Missing - -run_file.at-1479-prog.cob:3.19-3.25: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "test". ----- ^^^^^^ - 4 ENVIRONMENT DIVISION. - 5 INPUT-OUTPUT SECTION. ->> Error: Invalid syntax - -run_file.at-1479-prog.cob:10.35-10.36: - 7 SELECT TEST-FILE ASSIGN "FILE" - 8 ORGANIZATION IS INDEXED - 9 ACCESS IS DYNAMIC - 10 > RECORD KEY IS KEY01 = QQINDEX. ----- ^ - 11 DATA DIVISION. - 12 FILE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:1956:0 -run_file.at-1956-prog.cob:22.16-22.24: - 19 - 20 ALTERNATE RECORD KEY IS SPLIT-KEY3 - 21 SOURCE IS CM-DISK,CM-TAPE WITH DUPLICATES - 22 > SUPPRESS WHEN ALL "*" ----- ^^^^^^^^ - 23 FILE STATUS IS CUST-STAT - 24 . ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:80.54: - 77 05 FILLER PIC X(8) VALUE "PRE00000". - 78 - 79 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 80 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 81 02 DATA-COMPANY-TBL. - 82 ->> Hint: Missing - -run_file.at-1956-prog.cob:80.55-80.62: - 77 05 FILLER PIC X(8) VALUE "PRE00000". - 78 - 79 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 80 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 81 02 DATA-COMPANY-TBL. - 82 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:101.55: - 98 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 99 - 100 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 101 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 102 02 DATA-ADDRESS-1-TBL. - 103 ->> Hint: Missing - -run_file.at-1956-prog.cob:101.56-101.63: - 98 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 99 - 100 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 101 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 102 02 DATA-ADDRESS-1-TBL. - 103 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:122.55: - 119 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 120 - 121 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 122 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 123 02 DATA-ADDRESS-2-TBL. - 124 ->> Hint: Missing - -run_file.at-1956-prog.cob:122.56-122.63: - 119 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 120 - 121 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 122 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 123 02 DATA-ADDRESS-2-TBL. - 124 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:143.55: - 140 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 141 - 142 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 143 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 144 02 DATA-ADDRESS-3-TBL. - 145 ->> Hint: Missing - -run_file.at-1956-prog.cob:143.56-143.63: - 140 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 141 - 142 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 143 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 144 02 DATA-ADDRESS-3-TBL. - 145 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:164.55: - 161 05 FILLER PIC X(10) VALUE "N.Y. ". - 162 - 163 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 164 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 165 02 DATA-TELEPHONE-TBL. - 166 ->> Hint: Missing - -run_file.at-1956-prog.cob:164.56-164.63: - 161 05 FILLER PIC X(10) VALUE "N.Y. ". - 162 - 163 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 164 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 165 02 DATA-TELEPHONE-TBL. - 166 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:185.55: - 182 05 FILLER PIC 9(10) VALUE 4169898509. - 183 - 184 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 185 > PIC 9(10) OCCURS MAX-SUB. ----- ^ - 186 02 DATA-DP-MGR-TBL. - 187 ->> Hint: Missing - -run_file.at-1956-prog.cob:185.56-185.63: - 182 05 FILLER PIC 9(10) VALUE 4169898509. - 183 - 184 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 185 > PIC 9(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 186 02 DATA-DP-MGR-TBL. - 187 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:206.55: - 203 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 204 - 205 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 206 > PIC X(20) OCCURS MAX-SUB. ----- ^ - 207 02 DATA-MACHINE-TBL. - 208 ->> Hint: Missing - -run_file.at-1956-prog.cob:206.56-206.63: - 203 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 204 - 205 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 206 > PIC X(20) OCCURS MAX-SUB. ----- ^^^^^^^ - 207 02 DATA-MACHINE-TBL. - 208 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:227.54: - 224 05 FILLER PIC X(8) VALUE "UNI-9040". - 225 - 226 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 227 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 228 02 DATA-NO-TERMINALS-TBL. - 229 ->> Hint: Missing - -run_file.at-1956-prog.cob:227.55-227.62: - 224 05 FILLER PIC X(8) VALUE "UNI-9040". - 225 - 226 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 227 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 228 02 DATA-NO-TERMINALS-TBL. - 229 ->> Error: Invalid syntax - -run_file.at-1956-prog.cob:248.61: - 245 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 246 - 247 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 248 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^ - 249 - 250 78 REC-MAX VALUE 10. ->> Hint: Missing - -run_file.at-1956-prog.cob:248.62-248.69: - 245 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 246 - 247 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 248 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^^^^^^^ - 249 - 250 78 REC-MAX VALUE 10. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:2159:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:2398:0 -run_file.at-2398-prog.cob:16.19-16.27: - 13 access mode is dynamic - 14 record key is tbw-key - 15 alternate record key is tbw-alt - 16 > suppress when space ----- ^^^^^^^^ - 17 sharing with no other - 18 file status is fs-file-status. ->> Error: Invalid syntax - -run_file.at-2398-prog.cob:206.18-206.22: - 203 Perform tbw-Close thru tbw-Close-exit. - 204 Move "xx" to fs-file-status. - 205 Display "delete file". - 206 > Delete file tbw. ----- ^^^^ - 207 Display "delete file done". - 208 Go to tbw-exit. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:2774:0 -run_file.at-2774-prog.cob:4.18: - 1 - 2 - 3 identification division. - 4 > program-id. linage. ----- ^ - 5 - 6 environment division. ->> Hint: Missing - -run_file.at-2774-prog.cob:4.19-4.25: - 1 - 2 - 3 identification division. - 4 > program-id. linage. ----- ^^^^^^ - 5 - 6 environment division. ->> Error: Invalid syntax - -run_file.at-2774-prog.cob:79.21: - 76 open i-o indexed-file - 77 perform indexing-check - 78 if not indexing-ok - 79 > stop run returning 1 ----- ^ - 80 end-if - 81 ->> Hint: Missing . - -run_file.at-2774-prog.cob:79.22-79.31: - 76 open i-o indexed-file - 77 perform indexing-check - 78 if not indexing-ok - 79 > stop run returning 1 ----- ^^^^^^^^^ - 80 end-if - 81 ->> Error: Invalid syntax - -run_file.at-2774-prog.cob:79.33: - 76 open i-o indexed-file - 77 perform indexing-check - 78 if not indexing-ok - 79 > stop run returning 1 ----- ^ - 80 end-if - 81 ->> Hint: Missing . - -run_file.at-2774-prog.cob:80.11-80.17: - 77 perform indexing-check - 78 if not indexing-ok - 79 stop run returning 1 - 80 > end-if ----- ^^^^^^ - 81 - 82 *> read all the duplicate 00b02 keys ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3089:0 -run_file.at-3089-prog.cob:9.34-9.42: - 6 - 7 INPUT-OUTPUT SECTION. - 8 FILE-CONTROL. - 9 > SELECT FLATFILE ASSIGN EXTERNAL RELFIX ----- ^^^^^^^^ - 10 ORGANIZATION RELATIVE - 11 ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-3089-prog.cob:14.35-14.43: - 11 ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM - 12 FILE STATUS IS CUST-STAT. - 13 - 14 > SELECT FLATFILE2 ASSIGN EXTERNAL RELFIX ----- ^^^^^^^^ - 15 ORGANIZATION RELATIVE - 16 ACCESS IS RANDOM RELATIVE KEY IS REC-NUM ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-3089-prog.cob:57.54: - 54 05 FILLER PIC X(8) VALUE "GAM00000". - 55 - 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 57 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 58 02 DATA-COMPANY-TBL. - 59 ->> Hint: Missing - -run_file.at-3089-prog.cob:57.55-57.62: - 54 05 FILLER PIC X(8) VALUE "GAM00000". - 55 - 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 57 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 58 02 DATA-COMPANY-TBL. - 59 ->> Error: Invalid syntax - -run_file.at-3089-prog.cob:67.55: - 64 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 65 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". - 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 67 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 68 02 DATA-ADDRESS-2-TBL. - 69 ->> Hint: Missing - -run_file.at-3089-prog.cob:67.56-67.63: - 64 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 65 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". - 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 67 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 68 02 DATA-ADDRESS-2-TBL. - 69 ->> Error: Invalid syntax - -run_file.at-3089-prog.cob:77.55: - 74 05 FILLER PIC X(10) VALUE "WASHINGTON". - 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 76 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 77 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 78 - 79 02 DATA-NO-TERMINALS-TBL. ->> Hint: Missing - -run_file.at-3089-prog.cob:77.56-77.63: - 74 05 FILLER PIC X(10) VALUE "WASHINGTON". - 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 76 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 77 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 78 - 79 02 DATA-NO-TERMINALS-TBL. ->> Error: Invalid syntax - -run_file.at-3089-prog.cob:89.61: - 86 05 FILLER PIC 9(3) COMP-3 VALUE 254. - 87 - 88 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 89 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^ - 90 01 WORK-AREA. - 91 05 SUB BINARY-SHORT UNSIGNED. ->> Hint: Missing - -run_file.at-3089-prog.cob:89.62-89.69: - 86 05 FILLER PIC 9(3) COMP-3 VALUE 254. - 87 - 88 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 89 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^^^^^^^ - 90 01 WORK-AREA. - 91 05 SUB BINARY-SHORT UNSIGNED. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3152:0 -run_file.at-3152-prog.cob:23.18-23.22: - 20 01 TESTSTAT PIC XX. - 21 88 V-OK VALUE "00" "05". - 22 PROCEDURE DIVISION. - 23 > DELETE FILE TEST-FILE. ----- ^^^^ - 24 OPEN I-O TEST-FILE. - 25 IF NOT V-OK ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3228:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3305:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3416:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3476:0 -run_file.at-3476-prog.cob:22.18-22.22: - 19 01 f-status PIC XX. - 20 - 21 PROCEDURE DIVISION. - 22 > DELETE FILE file1. ----- ^^^^ - 23 OPEN INPUT file1. - 24 IF (f-status <> "05") ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3539:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3540:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3580:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3624:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3665:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3763:0 -run_file.at-3763-prog.cob:83.20-83.26: - 80 * DISPLAY "FAILED 10: CBL_DELETE_DIR (res=" RETURN-CODE ")" - 81 * END-IF - 82 - 83 > STOP RUN NORMAL ----- ^^^^^^ - 84 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3953:0 -run_file.at-3953-prog.cob:22.36: - 19 END-IF - 20 MOVE 0 TO RETURN-CODE - 21 - 22 > CALL 'CBL_CREATE_FILE' USING ----- ^ - 23 FNAME ACCESS-MODE 0 0 FHANDLE - 24 END-CALL ->> Hint: Missing . - -run_file.at-3953-prog.cob:23.8-23.13: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^^^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Error: Invalid syntax - -run_file.at-3953-prog.cob:23.13: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:23.14-23.25: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^^^^^^^^^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:23.25: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:23.26-23.27: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:23.27: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:23.28-23.29: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:23.29: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:23.30-23.37: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^^^^^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:23.37: - 20 MOVE 0 TO RETURN-CODE - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 > FNAME ACCESS-MODE 0 0 FHANDLE ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:24.8-24.16: - 21 - 22 CALL 'CBL_CREATE_FILE' USING - 23 FNAME ACCESS-MODE 0 0 FHANDLE - 24 > END-CALL ----- ^^^^^^^^ - 25 IF RETURN-CODE NOT = 0 - 26 DISPLAY 'error creating file ...' END-DISPLAY ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:34.35: - 31 MOVE 0 TO OFFSET. - 32 MOVE 9 TO NBYTES. - 33 - 34 > CALL 'CBL_WRITE_FILE' USING ----- ^ - 35 FHANDLE OFFSET NBYTES '0' WRITE-BUFFER - 36 END-CALL ->> Hint: Missing . - -run_file.at-3953-prog.cob:35.8-35.15: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^^^^^^^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Error: Invalid syntax - -run_file.at-3953-prog.cob:35.15: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:35.16-35.22: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^^^^^^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:35.22: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:35.23-35.29: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^^^^^^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:35.29: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:35.30-35.33: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^^^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3953-prog.cob:35.46: - 32 MOVE 9 TO NBYTES. - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER ----- ^ - 36 END-CALL - 37 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3953-prog.cob:36.8-36.16: - 33 - 34 CALL 'CBL_WRITE_FILE' USING - 35 FHANDLE OFFSET NBYTES '0' WRITE-BUFFER - 36 > END-CALL ----- ^^^^^^^^ - 37 IF RETURN-CODE NOT = 0 - 38 DISPLAY 'error writing file ...' END-DISPLAY ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:3960:0 -run_file.at-3960-prog2.cob:22.34: - 19 GOBACK - 20 END-IF - 21 - 22 > CALL 'CBL_READ_FILE' USING ----- ^ - 23 FHANDLE OFFSET NBYTES 128 READ-BUFFER - 24 END-CALL ->> Hint: Missing . - -run_file.at-3960-prog2.cob:23.8-23.15: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^^^^^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Error: Invalid syntax - -run_file.at-3960-prog2.cob:23.15: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:23.16-23.22: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^^^^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:23.22: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:23.23-23.29: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^^^^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:23.29: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:23.30-23.33: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:23.33: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:23.34-23.45: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^^^^^^^^^^^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:23.45: - 20 END-IF - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER ----- ^ - 24 END-CALL - 25 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:24.8-24.16: - 21 - 22 CALL 'CBL_READ_FILE' USING - 23 FHANDLE OFFSET NBYTES 128 READ-BUFFER - 24 > END-CALL ----- ^^^^^^^^ - 25 IF RETURN-CODE NOT = 0 - 26 DISPLAY 'error getting file size...' ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:52.34: - 49 MOVE 2 TO OFFSET. - 50 MOVE 9 TO NBYTES. - 51 - 52 > CALL 'CBL_READ_FILE' USING ----- ^ - 53 FHANDLE OFFSET NBYTES 0 READ-BUFFER - 54 END-CALL ->> Hint: Missing . - -run_file.at-3960-prog2.cob:53.8-53.15: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^^^^^^^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Error: Invalid syntax - -run_file.at-3960-prog2.cob:53.15: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:53.16-53.22: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^^^^^^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:53.22: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:53.23-53.29: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^^^^^^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:53.29: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:53.30-53.31: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:53.31: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:53.32-53.43: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^^^^^^^^^^^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Warning: Invalid syntax - -run_file.at-3960-prog2.cob:53.43: - 50 MOVE 9 TO NBYTES. - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER ----- ^ - 54 END-CALL - 55 IF RETURN-CODE NOT = 0 ->> Hint: Missing . - -run_file.at-3960-prog2.cob:54.8-54.16: - 51 - 52 CALL 'CBL_READ_FILE' USING - 53 FHANDLE OFFSET NBYTES 0 READ-BUFFER - 54 > END-CALL ----- ^^^^^^^^ - 55 IF RETURN-CODE NOT = 0 - 56 DISPLAY 'error reading file ...' ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4000:0 -run_file.at-4000-prog.cob:14.26: - 11 01 NBYTES PIC X(4) USAGE COMP-X. - 12 01 READ-BUFFER PIC X(10). - 13 - 14 > PROCEDURE DIVISION CHAINING FNAME. ----- ^ - 15 DISPLAY 'RUN WITH ' FUNCTION TRIM (FNAME TRAILING). - 16 CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE. ->> Hint: Missing . - -run_file.at-4000-prog.cob:14.27-14.35: - 11 01 NBYTES PIC X(4) USAGE COMP-X. - 12 01 READ-BUFFER PIC X(10). - 13 - 14 > PROCEDURE DIVISION CHAINING FNAME. ----- ^^^^^^^^ - 15 DISPLAY 'RUN WITH ' FUNCTION TRIM (FNAME TRAILING). - 16 CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE. ->> Error: Invalid syntax - -run_file.at-4000-prog.cob:15.49-15.58: - 12 01 READ-BUFFER PIC X(10). - 13 - 14 PROCEDURE DIVISION CHAINING FNAME. - 15 > DISPLAY 'RUN WITH ' FUNCTION TRIM (FNAME TRAILING). ----- ^^^^^^^^^ - 16 CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE. - 17 IF RETURN-CODE NOT = 0 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4113:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4111:0 -run_file.at-4111-prog2.cob:10.34: - 7 01 FILE2 PIC X(9) VALUE 'prog3.cob'. - 8 - 9 PROCEDURE DIVISION. - 10 > CALL 'CBL_COPY_FILE' USING ----- ^ - 11 FILE1 FILE2 - 12 END-CALL ->> Hint: Missing . - -run_file.at-4111-prog2.cob:11.8-11.13: - 8 - 9 PROCEDURE DIVISION. - 10 CALL 'CBL_COPY_FILE' USING - 11 > FILE1 FILE2 ----- ^^^^^ - 12 END-CALL - 13 STOP RUN. ->> Error: Invalid syntax - -run_file.at-4111-prog2.cob:11.13: - 8 - 9 PROCEDURE DIVISION. - 10 CALL 'CBL_COPY_FILE' USING - 11 > FILE1 FILE2 ----- ^ - 12 END-CALL - 13 STOP RUN. ->> Hint: Missing . - -run_file.at-4111-prog2.cob:11.14-11.19: - 8 - 9 PROCEDURE DIVISION. - 10 CALL 'CBL_COPY_FILE' USING - 11 > FILE1 FILE2 ----- ^^^^^ - 12 END-CALL - 13 STOP RUN. ->> Warning: Invalid syntax - -run_file.at-4111-prog2.cob:11.19: - 8 - 9 PROCEDURE DIVISION. - 10 CALL 'CBL_COPY_FILE' USING - 11 > FILE1 FILE2 ----- ^ - 12 END-CALL - 13 STOP RUN. ->> Hint: Missing . - -run_file.at-4111-prog2.cob:12.8-12.16: - 9 PROCEDURE DIVISION. - 10 CALL 'CBL_COPY_FILE' USING - 11 FILE1 FILE2 - 12 > END-CALL ----- ^^^^^^^^ - 13 STOP RUN. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4183:0 -run_file.at-4183-fexists_signed.c:9.6-9.7: - 6 #include - 7 - 8 /* - 9 > * Check file is present and correct by comparing ----- ^ - 10 * its content to a given signature. - 11 */ ->> Error: Unexpected indicator: `c' - -run_file.at-4183-fexists_signed.c:12.6-12.7: - 9 * Check file is present and correct by comparing - 10 * its content to a given signature. - 11 */ - 12 > COB_EXT_EXPORT int ----- ^ - 13 fexists_signed (char *fid, char *signature, int signature_size) - 14 { ->> Error: Unexpected indicator: `T' - -run_file.at-4183-fexists_signed.c:13.6-13.7: - 10 * its content to a given signature. - 11 */ - 12 COB_EXT_EXPORT int - 13 > fexists_signed (char *fid, char *signature, int signature_size) ----- ^ - 14 { - 15 char *bfr; ->> Error: Unexpected indicator: `s' - -run_file.at-4183-fexists_signed.c:22.9-31.0: - 19 f = fopen (fid, "r"); - 20 if (f != NULL) { - 21 bfr = (char *) cob_malloc (signature_size); - 22 > if (1 == fread (bfr, signature_size, 1, f)) { ----- - 23 > if (!memcmp (signature, bfr, signature_size)) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 24 > res = 0; ----- ^^^^^^^^^^^^^^^ - 25 > } ----- ^^^^^^ - 26 > } ----- ^^^^^ - 27 > free (bfr); ----- ^^^^^^^^^^^^^^^ - 28 > } ----- ^^^ - 29 > return res; ----- ^^^^^^^^^^^^^ - 30 > } ----- ^^ ->> Error: Unterminated pseudotext - -run_file.at-4183-fexists_signed.c:9.7-9.8: - 6 #include - 7 - 8 /* - 9 > * Check file is present and correct by comparing ----- ^ - 10 * its content to a given signature. - 11 */ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4184:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4230:0 -run_file.at-4230-prog.cob:13.18-13.22: - 10 FD file1. - 11 1 file1-rec pic x. - 12 PROCEDURE DIVISION. - 13 > DELETE FILE file1. ----- ^^^^ - 14 OPEN OUTPUT file1. - 15 MOVE "A" TO file1-rec. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4301:0 -run_file.at-4301-prog.cob:16.18-16.22: - 13 FD file2. - 14 1 file2-rec pic xx. - 15 PROCEDURE DIVISION. - 16 > DELETE FILE file1, file2 ----- ^^^^ - 17 OPEN OUTPUT file1, file2 - 18 MOVE "A" TO file1-rec, file2-rec ->> Error: Invalid syntax - -run_file.at-4301-prog.cob:16.28: - 13 FD file2. - 14 1 file2-rec pic xx. - 15 PROCEDURE DIVISION. - 16 > DELETE FILE file1, file2 ----- ^ - 17 OPEN OUTPUT file1, file2 - 18 MOVE "A" TO file1-rec, file2-rec ->> Hint: Missing . - -run_file.at-4301-prog.cob:16.30-16.35: - 13 FD file2. - 14 1 file2-rec pic xx. - 15 PROCEDURE DIVISION. - 16 > DELETE FILE file1, file2 ----- ^^^^^ - 17 OPEN OUTPUT file1, file2 - 18 MOVE "A" TO file1-rec, file2-rec ->> Error: Invalid syntax - -run_file.at-4301-prog.cob:16.35: - 13 FD file2. - 14 1 file2-rec pic xx. - 15 PROCEDURE DIVISION. - 16 > DELETE FILE file1, file2 ----- ^ - 17 OPEN OUTPUT file1, file2 - 18 MOVE "A" TO file1-rec, file2-rec ->> Hint: Missing . - -run_file.at-4301-prog.cob:17.11-17.15: - 14 1 file2-rec pic xx. - 15 PROCEDURE DIVISION. - 16 DELETE FILE file1, file2 - 17 > OPEN OUTPUT file1, file2 ----- ^^^^ - 18 MOVE "A" TO file1-rec, file2-rec - 19 WRITE file1-rec ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4340:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4390:0 -run_file.at-4390-prog.cob:15.24: - 12 01 TEST-REC PIC X(4). - 13 PROCEDURE DIVISION. - 14 OPEN INPUT TEST-FILE - 15 > PERFORM UNTIL EXIT ----- ^ - 16 READ TEST-FILE - 17 AT END EXIT PERFORM ->> Hint: Missing - -run_file.at-4390-prog.cob:15.25-15.29: - 12 01 TEST-REC PIC X(4). - 13 PROCEDURE DIVISION. - 14 OPEN INPUT TEST-FILE - 15 > PERFORM UNTIL EXIT ----- ^^^^ - 16 READ TEST-FILE - 17 AT END EXIT PERFORM ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4429:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4556:0 -run_file.at-4556-inp_data:1.7-1.47: - 1 > Record 1................................X....... ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 2 Record 2.....................X - 3 Record 3................................X... ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4554:0 -run_file.at-4554-prog.cob:7.39-7.47: - 4 ENVIRONMENT DIVISION. - 5 INPUT-OUTPUT SECTION. - 6 FILE-CONTROL. - 7 > SELECT INFILE ASSIGN TO EXTERNAL INFILE ----- ^^^^^^^^ - 8 ORGANIZATION IS LINE SEQUENTIAL - 9 FILE STATUS IS INPUT-STATUS . ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-4554-prog.cob:11.38-11.46: - 8 ORGANIZATION IS LINE SEQUENTIAL - 9 FILE STATUS IS INPUT-STATUS . - 10 - 11 > SELECT OUTFILE ASSIGN TO EXTERNAL OUTFILE ----- ^^^^^^^^ - 12 ORGANIZATION IS LINE SEQUENTIAL - 13 FILE STATUS IS INPUT-STATUS . ->> Warning: Ignored EXTERNAL (implementation pending) - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4569:0 -run_file.at-4569-reference:1.7-1.8: - 1 > Record 1. ----- ^ - 2 Record 2................................ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4685:0 -run_file.at-4685-inp_data:1.7-1.47: - 1 > Record 1................................X....... ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 2 Record 2.....................X - 3 Record 3................................X... ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4683:0 -run_file.at-4683-prog.cob:7.39-7.47: - 4 ENVIRONMENT DIVISION. - 5 INPUT-OUTPUT SECTION. - 6 FILE-CONTROL. - 7 > SELECT INFILE ASSIGN TO EXTERNAL INFILE ----- ^^^^^^^^ - 8 ORGANIZATION IS LINE SEQUENTIAL - 9 FILE STATUS IS INPUT-STATUS . ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-4683-prog.cob:11.38-11.46: - 8 ORGANIZATION IS LINE SEQUENTIAL - 9 FILE STATUS IS INPUT-STATUS . - 10 - 11 > SELECT OUTFILE ASSIGN TO EXTERNAL OUTFILE ----- ^^^^^^^^ - 12 ORGANIZATION IS LINE SEQUENTIAL - 13 FILE STATUS IS INPUT-STATUS . ->> Warning: Ignored EXTERNAL (implementation pending) - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:4704:0 -run_file.at-4704-reference:1.7-1.8: - 1 > Record 1. ----- ^ - 2 Record 2................................ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5007:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5011:0 -run_file.at-5011-reference-report:22.6-22.7: - 19 - 20 - 21 - 22 > PAGE: 0001 LC: 000000 DATE: 150206 ----- ^ - 23 000001 - 24 000002 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:22.7-22.10: - 19 - 20 - 21 - 22 > PAGE: 0001 LC: 000000 DATE: 150206 ----- ^^^ - 23 000001 - 24 000002 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -run_file.at-5011-reference-report:42.6-42.7: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 DATE: 150206 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:42.38: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 DATE: 150206 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Hint: Missing RENAMES . - -run_file.at-5011-reference-report:42.37-42.38: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 DATE: 150206 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Error: Invalid syntax - -run_file.at-5011-reference-report:42.45: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 DATE: 150206 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Hint: Missing . - -run_file.at-5011-reference-report:42.68-42.72: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 DATE: 150206 ----- ^^^^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Error: Invalid syntax - -run_file.at-5011-reference-report:62.6-62.7: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 DATE: 150206 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:62.38: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 DATE: 150206 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Hint: Missing RENAMES . - -run_file.at-5011-reference-report:62.37-62.38: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 DATE: 150206 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Error: Invalid syntax - -run_file.at-5011-reference-report:62.45: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 DATE: 150206 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Hint: Missing . - -run_file.at-5011-reference-report:62.68-62.72: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 DATE: 150206 ----- ^^^^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Error: Invalid syntax - -run_file.at-5011-reference-report:82.6-82.7: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 DATE: 150206 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:82.38: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 DATE: 150206 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Hint: Missing RENAMES . - -run_file.at-5011-reference-report:82.37-82.38: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 DATE: 150206 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Error: Invalid syntax - -run_file.at-5011-reference-report:82.45: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 DATE: 150206 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Hint: Missing . - -run_file.at-5011-reference-report:82.68-82.72: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 DATE: 150206 ----- ^^^^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Error: Invalid syntax - -run_file.at-5011-reference-report:102.6-102.7: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:96.21: - 93 000011 main. - 94 000012 open input data-file. - 95 000013 read data-file - 96 > 000014 at end ----- ^ - 97 - 98 ->> Hint: Missing . - -run_file.at-5011-reference-report:102.7-102.10: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^^^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Error: Invalid syntax - -run_file.at-5011-reference-report:102.10: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Hint: Missing . - -run_file.at-5011-reference-report:102.35-102.38: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^^^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:102.38: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Hint: Missing . - -run_file.at-5011-reference-report:102.37-102.38: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:102.45: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Hint: Missing . - -run_file.at-5011-reference-report:102.68-102.72: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 DATE: 150206 ----- ^^^^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:105.11-105.19: - 102 PAGE: 0005 LC: 000015 DATE: 150206 - 103 000001 display "File open error: " data-file-status - 104 000002 stop run - 105 > 000003 end-read. ----- ^^^^^^^^ - 106 000004 - 107 000005 open output mini-report. ->> Error: Invalid syntax - -run_file.at-5011-reference-report:122.6-122.7: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:116.28: - 113 000011 move 1 to page-count. - 114 000012 accept page-date from date end-accept. - 115 000013 move page-count to page-no. - 116 > 000014 write report-line ----- ^ - 117 - 118 ->> Hint: Missing . - -run_file.at-5011-reference-report:122.7-122.10: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^^^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Error: Invalid syntax - -run_file.at-5011-reference-report:122.10: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Hint: Missing . - -run_file.at-5011-reference-report:122.35-122.38: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^^^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:122.38: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Hint: Missing . - -run_file.at-5011-reference-report:122.37-122.38: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:122.45: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Hint: Missing . - -run_file.at-5011-reference-report:122.68-122.72: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 DATE: 150206 ----- ^^^^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:123.38: - 120 - 121 - 122 PAGE: 0006 LC: 000015 DATE: 150206 - 123 > 000001 from report-line-header ----- ^ - 124 000002 after advancing page - 125 000003 end-write. ->> Hint: Missing . - -run_file.at-5011-reference-report:124.15-124.20: - 121 - 122 PAGE: 0006 LC: 000015 DATE: 150206 - 123 000001 from report-line-header - 124 > 000002 after advancing page ----- ^^^^^ - 125 000003 end-write. - 126 000004 ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:125.11-125.20: - 122 PAGE: 0006 LC: 000015 DATE: 150206 - 123 000001 from report-line-header - 124 000002 after advancing page - 125 > 000003 end-write. ----- ^^^^^^^^^ - 126 000004 - 127 000005 perform readwrite-loop until endofdata. ->> Error: Invalid syntax - -run_file.at-5011-reference-report:142.6-142.7: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 DATE: 150206 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:142.10: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 DATE: 150206 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Hint: Missing . - -run_file.at-5011-reference-report:142.35-142.38: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 DATE: 150206 ----- ^^^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:142.38: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 DATE: 150206 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Hint: Missing . - -run_file.at-5011-reference-report:142.37-142.38: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 DATE: 150206 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:142.45: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 DATE: 150206 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Hint: Missing . - -run_file.at-5011-reference-report:142.68-142.72: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 DATE: 150206 ----- ^^^^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:162.6-162.7: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Error: Unexpected indicator: `0' - -run_file.at-5011-reference-report:156.25: - 153 000011 after advancing page - 154 000012 end-write - 155 000013 end-write - 156 > 000014 read data-file ----- ^ - 157 - 158 ->> Hint: Missing . - -run_file.at-5011-reference-report:162.7-162.10: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^^^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Error: Invalid syntax - -run_file.at-5011-reference-report:162.10: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Hint: Missing . - -run_file.at-5011-reference-report:162.35-162.38: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^^^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:162.38: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Hint: Missing . - -run_file.at-5011-reference-report:162.37-162.38: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:162.45: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Hint: Missing . - -run_file.at-5011-reference-report:162.68-162.72: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 DATE: 150206 ----- ^^^^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Warning: Invalid syntax - -run_file.at-5011-reference-report:164.11-164.19: - 161 - 162 PAGE: 0008 LC: 000015 DATE: 150206 - 163 000001 at end set endofdata to true - 164 > 000002 end-read ----- ^^^^^^^^ - 165 000003 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5291:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5301:0 -run_file.at-5301-reference-report:22.6-22.7: - 19 - 20 - 21 - 22 > PAGE: 0001 LC: 000000 ----- ^ - 23 000001 - 24 000002 IDENTIFICATION DIVISION. ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:22.7-22.10: - 19 - 20 - 21 - 22 > PAGE: 0001 LC: 000000 ----- ^^^ - 23 000001 - 24 000002 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -run_file.at-5301-reference-report:42.6-42.7: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:42.38: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Hint: Missing RENAMES . - -run_file.at-5301-reference-report:42.37-42.38: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Error: Invalid syntax - -run_file.at-5301-reference-report:42.45: - 39 - 40 - 41 - 42 > PAGE: 0002 LC: 000015 ----- ^ - 43 000001 01 data-record. - 44 000002 88 endofdata value high-values. ->> Hint: Missing . - -run_file.at-5301-reference-report:43.7-43.9: - 40 - 41 - 42 PAGE: 0002 LC: 000015 - 43 > 000001 01 data-record. ----- ^^ - 44 000002 88 endofdata value high-values. - 45 000003 02 data-line pic x(80). ->> Error: Invalid syntax - -run_file.at-5301-reference-report:62.6-62.7: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:62.38: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Hint: Missing RENAMES . - -run_file.at-5301-reference-report:62.37-62.38: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Error: Invalid syntax - -run_file.at-5301-reference-report:62.45: - 59 - 60 - 61 - 62 > PAGE: 0003 LC: 000015 ----- ^ - 63 000001 01 lc pic 99. - 64 000002 01 report-line-blank. ->> Hint: Missing . - -run_file.at-5301-reference-report:63.7-63.9: - 60 - 61 - 62 PAGE: 0003 LC: 000015 - 63 > 000001 01 lc pic 99. ----- ^^ - 64 000002 01 report-line-blank. - 65 000003 02 filler pic x(18) value all "*". ->> Error: Invalid syntax - -run_file.at-5301-reference-report:82.6-82.7: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:82.38: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Hint: Missing RENAMES . - -run_file.at-5301-reference-report:82.37-82.38: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Error: Invalid syntax - -run_file.at-5301-reference-report:82.45: - 79 - 80 - 81 - 82 > PAGE: 0004 LC: 000015 ----- ^ - 83 000001 02 filler pic x(24). - 84 000002 02 filler pic x(5) VALUE " LC: ". ->> Hint: Missing . - -run_file.at-5301-reference-report:83.11-83.13: - 80 - 81 - 82 PAGE: 0004 LC: 000015 - 83 > 000001 02 filler pic x(24). ----- ^^ - 84 000002 02 filler pic x(5) VALUE " LC: ". - 85 000003 02 header-tag pic 9(6). ->> Error: Invalid syntax - -run_file.at-5301-reference-report:102.6-102.7: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:96.21: - 93 000011 main. - 94 000012 open input data-file. - 95 000013 read data-file - 96 > 000014 at end ----- ^ - 97 - 98 ->> Hint: Missing . - -run_file.at-5301-reference-report:102.7-102.10: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 ----- ^^^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Error: Invalid syntax - -run_file.at-5301-reference-report:102.10: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Hint: Missing . - -run_file.at-5301-reference-report:102.35-102.38: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 ----- ^^^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:102.38: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Hint: Missing . - -run_file.at-5301-reference-report:102.37-102.38: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:102.45: - 99 - 100 - 101 - 102 > PAGE: 0005 LC: 000015 ----- ^ - 103 000001 display "File open error: " data-file-status - 104 000002 stop run ->> Hint: Missing . - -run_file.at-5301-reference-report:103.19-103.26: - 100 - 101 - 102 PAGE: 0005 LC: 000015 - 103 > 000001 display "File open error: " data-file-status ----- ^^^^^^^ - 104 000002 stop run - 105 000003 end-read. ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:105.11-105.19: - 102 PAGE: 0005 LC: 000015 - 103 000001 display "File open error: " data-file-status - 104 000002 stop run - 105 > 000003 end-read. ----- ^^^^^^^^ - 106 000004 - 107 000005 open output mini-report. ->> Error: Invalid syntax - -run_file.at-5301-reference-report:122.6-122.7: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:116.28: - 113 000011 move 1 to page-count. - 114 000012 accept page-date from date end-accept. - 115 000013 move page-count to page-no. - 116 > 000014 write report-line ----- ^ - 117 - 118 ->> Hint: Missing . - -run_file.at-5301-reference-report:122.7-122.10: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 ----- ^^^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Error: Invalid syntax - -run_file.at-5301-reference-report:122.10: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Hint: Missing . - -run_file.at-5301-reference-report:122.35-122.38: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 ----- ^^^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:122.38: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Hint: Missing . - -run_file.at-5301-reference-report:122.37-122.38: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:122.45: - 119 - 120 - 121 - 122 > PAGE: 0006 LC: 000015 ----- ^ - 123 000001 from report-line-header - 124 000002 after advancing page ->> Hint: Missing . - -run_file.at-5301-reference-report:123.15-123.19: - 120 - 121 - 122 PAGE: 0006 LC: 000015 - 123 > 000001 from report-line-header ----- ^^^^ - 124 000002 after advancing page - 125 000003 end-write. ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:123.38: - 120 - 121 - 122 PAGE: 0006 LC: 000015 - 123 > 000001 from report-line-header ----- ^ - 124 000002 after advancing page - 125 000003 end-write. ->> Hint: Missing . - -run_file.at-5301-reference-report:124.15-124.20: - 121 - 122 PAGE: 0006 LC: 000015 - 123 000001 from report-line-header - 124 > 000002 after advancing page ----- ^^^^^ - 125 000003 end-write. - 126 000004 ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:125.11-125.20: - 122 PAGE: 0006 LC: 000015 - 123 000001 from report-line-header - 124 000002 after advancing page - 125 > 000003 end-write. ----- ^^^^^^^^^ - 126 000004 - 127 000005 perform readwrite-loop until endofdata. ->> Error: Invalid syntax - -run_file.at-5301-reference-report:142.6-142.7: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:142.10: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Hint: Missing . - -run_file.at-5301-reference-report:142.35-142.38: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 ----- ^^^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:142.38: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Hint: Missing . - -run_file.at-5301-reference-report:142.37-142.38: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:142.45: - 139 - 140 - 141 - 142 > PAGE: 0007 LC: 000015 ----- ^ - 143 000001**************************************************************** - 144 000002 readwrite-loop. ->> Hint: Missing . - -run_file.at-5301-reference-report:144.7-144.21: - 141 - 142 PAGE: 0007 LC: 000015 - 143 000001**************************************************************** - 144 > 000002 readwrite-loop. ----- ^^^^^^^^^^^^^^ - 145 000003 move data-record to report-line-data - 146 000004 move linage-counter to body-tag ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:162.6-162.7: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Error: Unexpected indicator: `0' - -run_file.at-5301-reference-report:156.25: - 153 000011 after advancing page - 154 000012 end-write - 155 000013 end-write - 156 > 000014 read data-file ----- ^ - 157 - 158 ->> Hint: Missing . - -run_file.at-5301-reference-report:162.7-162.10: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 ----- ^^^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Error: Invalid syntax - -run_file.at-5301-reference-report:162.10: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Hint: Missing . - -run_file.at-5301-reference-report:162.35-162.38: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 ----- ^^^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:162.38: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Hint: Missing . - -run_file.at-5301-reference-report:162.37-162.38: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:162.45: - 159 - 160 - 161 - 162 > PAGE: 0008 LC: 000015 ----- ^ - 163 000001 at end set endofdata to true - 164 000002 end-read ->> Hint: Missing . - -run_file.at-5301-reference-report:163.15-163.21: - 160 - 161 - 162 PAGE: 0008 LC: 000015 - 163 > 000001 at end set endofdata to true ----- ^^^^^^ - 164 000002 end-read - 165 000003 . ->> Warning: Invalid syntax - -run_file.at-5301-reference-report:164.11-164.19: - 161 - 162 PAGE: 0008 LC: 000015 - 163 000001 at end set endofdata to true - 164 > 000002 end-read ----- ^^^^^^^^ - 165 000003 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5363:0 -run_file.at-5363-prog.cob:36.32-36.37: - 33 READ f - 34 AT END - 35 DISPLAY "Failed: EOF" - 36 > STOP RUN ERROR ----- ^^^^^ - 37 END-READ - 38 ->> Error: Invalid syntax - -run_file.at-5363-prog.cob:44.28-44.33: - 41 DISPLAY rec-size ": >" f-rec (1:rec-size) "<" - 42 IF rec-size NOT = i - 43 DISPLAY "Failed: bad record size" - 44 > STOP RUN ERROR ----- ^^^^^ - 45 END-IF - 46 IF f-x (rec-size) NOT = 1-x (rec-size) ->> Error: Invalid syntax - -run_file.at-5363-prog.cob:48.28-48.33: - 45 END-IF - 46 IF f-x (rec-size) NOT = 1-x (rec-size) - 47 DISPLAY "Failed: bad data" - 48 > STOP RUN ERROR ----- ^^^^^ - 49 END-IF - 50 END-PERFORM ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5437:0 -run_file.at-5437-prog.cob:37.32-37.37: - 34 READ f - 35 AT END - 36 DISPLAY "Failed: EOF" - 37 > STOP RUN ERROR ----- ^^^^^ - 38 END-READ - 39 ->> Error: Invalid syntax - -run_file.at-5437-prog.cob:43.28-43.33: - 40 DISPLAY rec-size ": >" f-rec (1:rec-size) "<" - 41 IF rec-size NOT = i - 42 DISPLAY "Failed: bad record size" - 43 > STOP RUN ERROR ----- ^^^^^ - 44 END-IF - 45 IF f-x (rec-size) NOT = 1-x (rec-size) ->> Error: Invalid syntax - -run_file.at-5437-prog.cob:47.28-47.33: - 44 END-IF - 45 IF f-x (rec-size) NOT = 1-x (rec-size) - 46 DISPLAY "Failed: bad data" - 47 > STOP RUN ERROR ----- ^^^^^ - 48 END-IF - 49 END-PERFORM ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5558:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5630:0 -run_file.at-5630-prog1.cob:8.23: - 5 input-output section. - 6 file-control. - 7 select file1 assign disk - 8 > lock mode is exclusive ----- ^ - 9 status is fs. - 10 data division. ->> Hint: Missing AUTOMATIC - -run_file.at-5630-prog1.cob:8.24-8.33: - 5 input-output section. - 6 file-control. - 7 select file1 assign disk - 8 > lock mode is exclusive ----- ^^^^^^^^^ - 9 status is fs. - 10 data division. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5631:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5698:0 -run_file.at-5698-prog1.cob:21.32: - 18 procedure division. - 19 open output file1. - 20 close file1. - 21 > open input file1 with lock. ----- ^ - 22 accept os-check from environment "COB_ON_CYGWIN". - 23 if os-check = spaces ->> Hint: Missing NO REWIND - -run_file.at-5698-prog1.cob:21.33-21.37: - 18 procedure division. - 19 open output file1. - 20 close file1. - 21 > open input file1 with lock. ----- ^^^^ - 22 accept os-check from environment "COB_ON_CYGWIN". - 23 if os-check = spaces ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5699:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5768:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5769:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5842:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5843:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5916:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5917:0 -run_file.at-5917-prog2.cob:21.32: - 18 stop run - 19 end-if. - 20 close file1 - 21 > open input file1 with lock. ----- ^ - 22 if fs not = "61" - 23 display "FAILED: " fs ->> Hint: Missing NO REWIND - -run_file.at-5917-prog2.cob:21.33-21.37: - 18 stop run - 19 end-if. - 20 close file1 - 21 > open input file1 with lock. ----- ^^^^ - 22 if fs not = "61" - 23 display "FAILED: " fs ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:5951:0 -run_file.at-5951-prog.cob:13.18-13.22: - 10 FD file1. - 11 1 file1-rec pic x. - 12 PROCEDURE DIVISION. - 13 > DELETE FILE file1. ----- ^^^^ - 14 OPEN OUTPUT file1. - 15 MOVE "A" TO file1-rec. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6001:0 -run_file.at-6001-prog.cob:17.18-17.22: - 14 WORKING-STORAGE SECTION. - 15 77 file1-key pic 99. - 16 PROCEDURE DIVISION. - 17 > DELETE FILE file1. ----- ^^^^ - 18 OPEN OUTPUT file1. - 19 MOVE 1 to file1-key. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6063:0 -run_file.at-6063-prog.cob:37.32-37.37: - 34 READ f - 35 AT END - 36 DISPLAY "Failed: EOF" - 37 > STOP RUN ERROR ----- ^^^^^ - 38 END-READ - 39 ->> Error: Invalid syntax - -run_file.at-6063-prog.cob:43.28-43.33: - 40 DISPLAY rec-size ": >" f-rec (1:rec-size) "<" - 41 IF rec-size NOT = i - 42 DISPLAY "Failed: bad record size" - 43 > STOP RUN ERROR ----- ^^^^^ - 44 END-IF - 45 IF f-x (rec-size) NOT = 1-x (rec-size) ->> Error: Invalid syntax - -run_file.at-6063-prog.cob:47.28-47.33: - 44 END-IF - 45 IF f-x (rec-size) NOT = 1-x (rec-size) - 46 DISPLAY "Failed: bad data" - 47 > STOP RUN ERROR ----- ^^^^^ - 48 END-IF - 49 END-PERFORM ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6113:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6183:0 -run_file.at-6183-prog.cob:43.32-43.37: - 40 READ f - 41 AT END - 42 DISPLAY "Failed: EOF" - 43 > STOP RUN ERROR ----- ^^^^^ - 44 END-READ - 45 ->> Error: Invalid syntax - -run_file.at-6183-prog.cob:49.28-49.33: - 46 DISPLAY rec-size ": >" f-rec (3:rec-size - 2) "<" - 47 IF rec-size NOT = (22 - f-key) + 1 - 48 DISPLAY "Failed: bad record size - " rec-size - 49 > STOP RUN ERROR ----- ^^^^^ - 50 END-IF - 51 IF f-x (rec-size - 2) NOT = 1-x (rec-size - 2) ->> Error: Invalid syntax - -run_file.at-6183-prog.cob:53.28-53.33: - 50 END-IF - 51 IF f-x (rec-size - 2) NOT = 1-x (rec-size - 2) - 52 DISPLAY "Failed: bad data - " f-data - 53 > STOP RUN ERROR ----- ^^^^^ - 54 END-IF - 55 END-PERFORM ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6273:0 -run_file.at-6273-prog1.cob:10.23: - 7 select file1 assign disk - 8 organization indexed - 9 record key file1-key - 10 > lock mode is exclusive ----- ^ - 11 status is fs. - 12 data division. ->> Hint: Missing AUTOMATIC - -run_file.at-6273-prog1.cob:10.24-10.33: - 7 select file1 assign disk - 8 organization indexed - 9 record key file1-key - 10 > lock mode is exclusive ----- ^^^^^^^^^ - 11 status is fs. - 12 data division. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6274:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6351:0 -run_file.at-6351-prog1.cob:25.32: - 22 procedure division. - 23 open output file1. - 24 close file1. - 25 > open input file1 with lock. ----- ^ - 26 accept os-check from environment "COB_ON_CYGWIN". - 27 if os-check = spaces ->> Hint: Missing NO REWIND - -run_file.at-6351-prog1.cob:25.33-25.37: - 22 procedure division. - 23 open output file1. - 24 close file1. - 25 > open input file1 with lock. ----- ^^^^ - 26 accept os-check from environment "COB_ON_CYGWIN". - 27 if os-check = spaces ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6352:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6430:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6431:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6515:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6516:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6598:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6599:0 -run_file.at-6599-prog2.cob:25.32: - 22 stop run - 23 end-if. - 24 close file1 - 25 > open input file1 with lock. ----- ^ - 26 if fs not = "61" - 27 display "FAILED: " fs ->> Hint: Missing NO REWIND - -run_file.at-6599-prog2.cob:25.33-25.37: - 22 stop run - 23 end-if. - 24 close file1 - 25 > open input file1 with lock. ----- ^^^^ - 26 if fs not = "61" - 27 display "FAILED: " fs ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6688:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6689:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6781:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6782:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6871:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6872:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:6951:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:7095:0 -run_file.at-7095-prog.cob:36.18-36.22: - 33 01 w-serial PIC 99 VALUE 0. - 34 - 35 PROCEDURE DIVISION. - 36 > DELETE FILE f ----- ^^^^ - 37 OPEN I-O f - 38 MOVE "AAAAAAaaaaaaXX----" TO f-rec ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:7266:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:7361:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:8028:0 -run_file.at-8028-cmod.c:8.6-8.7: - 5 static char *txtOpCode(int opCode); - 6 - 7 /********************************************************* - 8 > * TSTFH - External File Handler entry point. ----- ^ - 9 *********************************************************/ - 10 ->> Error: Unexpected indicator: `T' - -run_file.at-8028-cmod.c:11.6-11.7: - 8 * TSTFH - External File Handler entry point. - 9 *********************************************************/ - 10 - 11 > COB_EXT_EXPORT int ----- ^ - 12 TSTFH (unsigned char *opCodep, FCD3 *fcd) - 13 { ->> Error: Unexpected indicator: `T' - -run_file.at-8028-cmod.c:12.6-12.7: - 9 *********************************************************/ - 10 - 11 COB_EXT_EXPORT int - 12 > TSTFH (unsigned char *opCodep, FCD3 *fcd) ----- ^ - 13 { - 14 unsigned int opCode; ->> Error: Unexpected indicator: `(' - -run_file.at-8028-cmod.c:14.6-14.7: - 11 COB_EXT_EXPORT int - 12 TSTFH (unsigned char *opCodep, FCD3 *fcd) - 13 { - 14 > unsigned int opCode; ----- ^ - 15 - 16 if (*opCodep == 0xfa) ->> Error: Unexpected indicator: `i' - -run_file.at-8028-cmod.c:16.6-16.7: - 13 { - 14 unsigned int opCode; - 15 - 16 > if (*opCodep == 0xfa) ----- ^ - 17 opCode = 0xfa00 + opCodep[1]; - 18 else ->> Error: Unexpected indicator: `(' - -run_file.at-8028-cmod.c:17.6-17.7: - 14 unsigned int opCode; - 15 - 16 if (*opCodep == 0xfa) - 17 > opCode = 0xfa00 + opCodep[1]; ----- ^ - 18 else - 19 opCode = opCodep[1]; ->> Error: Unexpected indicator: `o' - -run_file.at-8028-cmod.c:18.6-18.7: - 15 - 16 if (*opCodep == 0xfa) - 17 opCode = 0xfa00 + opCodep[1]; - 18 > else ----- ^ - 19 opCode = opCodep[1]; - 20 ->> Error: Unexpected indicator: `e' - -run_file.at-8028-cmod.c:19.6-19.7: - 16 if (*opCodep == 0xfa) - 17 opCode = 0xfa00 + opCodep[1]; - 18 else - 19 > opCode = opCodep[1]; ----- ^ - 20 - 21 if (fcd->fileOrg == ORG_LINE_SEQ ->> Error: Unexpected indicator: `o' - -run_file.at-8028-cmod.c:21.6-21.7: - 18 else - 19 opCode = opCodep[1]; - 20 - 21 > if (fcd->fileOrg == ORG_LINE_SEQ ----- ^ - 22 || fcd->fileOrg == ORG_SEQ - 23 || fcd->fileOrg == ORG_INDEXED ->> Error: Unexpected indicator: `(' - -run_file.at-8028-cmod.c:25.6-25.7: - 22 || fcd->fileOrg == ORG_SEQ - 23 || fcd->fileOrg == ORG_INDEXED - 24 || fcd->fileOrg == ORG_RELATIVE) { - 25 > switch (opCode) { ----- ^ - 26 case OP_OPEN_OUTPUT: - 27 case OP_OPEN_IO: ->> Error: Unexpected indicator: `s' - -run_file.at-8028-cmod.c:26.6-26.7: - 23 || fcd->fileOrg == ORG_INDEXED - 24 || fcd->fileOrg == ORG_RELATIVE) { - 25 switch (opCode) { - 26 > case OP_OPEN_OUTPUT: ----- ^ - 27 case OP_OPEN_IO: - 28 case OP_OPEN_EXTEND: ->> Error: Unexpected indicator: `c' - -run_file.at-8028-cmod.c:27.6-27.7: - 24 || fcd->fileOrg == ORG_RELATIVE) { - 25 switch (opCode) { - 26 case OP_OPEN_OUTPUT: - 27 > case OP_OPEN_IO: ----- ^ - 28 case OP_OPEN_EXTEND: - 29 case OP_OPEN_OUTPUT_NOREWIND: ->> Error: Unexpected indicator: `c' - -run_file.at-8028-cmod.c:28.6-28.7: - 25 switch (opCode) { - 26 case OP_OPEN_OUTPUT: - 27 case OP_OPEN_IO: - 28 > case OP_OPEN_EXTEND: ----- ^ - 29 case OP_OPEN_OUTPUT_NOREWIND: - 30 return EXTFH(opCodep, fcd); ->> Error: Unexpected indicator: `c' - -run_file.at-8028-cmod.c:29.6-29.7: - 26 case OP_OPEN_OUTPUT: - 27 case OP_OPEN_IO: - 28 case OP_OPEN_EXTEND: - 29 > case OP_OPEN_OUTPUT_NOREWIND: ----- ^ - 30 return EXTFH(opCodep, fcd); - 31 break; ->> Error: Unexpected indicator: `c' - -run_file.at-8028-cmod.c:33.6-33.7: - 30 return EXTFH(opCodep, fcd); - 31 break; - 32 - 33 > case OP_OPEN_INPUT: ----- ^ - 34 case OP_OPEN_INPUT_NOREWIND: - 35 case OP_OPEN_INPUT_REVERSED: ->> Error: Unexpected indicator: `c' - -run_file.at-8028-cmod.c:34.6-34.7: - 31 break; - 32 - 33 case OP_OPEN_INPUT: - 34 > case OP_OPEN_INPUT_NOREWIND: ----- ^ - 35 case OP_OPEN_INPUT_REVERSED: - 36 return EXTFH(opCodep, fcd); ->> Error: Unexpected indicator: `c' - -run_file.at-8028-cmod.c:35.6-35.7: - 32 - 33 case OP_OPEN_INPUT: - 34 case OP_OPEN_INPUT_NOREWIND: - 35 > case OP_OPEN_INPUT_REVERSED: ----- ^ - 36 return EXTFH(opCodep, fcd); - 37 break; ->> Error: Unexpected indicator: `c' - -run_file.at-8028-cmod.c:41.6-41.7: - 38 - 39 default: - 40 break; - 41 > } ----- ^ - 42 - 43 } ->> Error: Unexpected indicator: `}' - -run_file.at-8028-cmod.c:45.6-45.7: - 42 - 43 } - 44 - 45 > if (opCode == OP_CLOSE ----- ^ - 46 && (fcd->openMode & OPEN_NOT_OPEN) ) { - 47 return 0; ->> Error: Unexpected indicator: `(' - -run_file.at-8028-cmod.c:47.6-47.7: - 44 - 45 if (opCode == OP_CLOSE - 46 && (fcd->openMode & OPEN_NOT_OPEN) ) { - 47 > return 0; ----- ^ - 48 } - 49 ->> Error: Unexpected indicator: `r' - -run_file.at-8028-cmod.c:50.6-50.7: - 47 return 0; - 48 } - 49 - 50 > return EXTFH(opCodep, fcd); ----- ^ - 51 } ->> Error: Unexpected indicator: `u' - -run_file.at-8028-cmod.c:16.16-21.22: - 13 { - 14 unsigned int opCode; - 15 - 16 > if (*opCodep == 0xfa) ----- ^^^^^^ - 17 > opCode = 0xfa00 + opCodep[1]; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 18 > else ----- ^^^^^^^^ - 19 > opCode = opCodep[1]; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 20 > ----- ^ - 21 > if (fcd->fileOrg == ORG_LINE_SEQ ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 22 || fcd->fileOrg == ORG_SEQ - 23 || fcd->fileOrg == ORG_INDEXED ->> Error: Unexpected pseudotext - -run_file.at-8028-cmod.c:22.20-23.22: - 19 opCode = opCodep[1]; - 20 - 21 if (fcd->fileOrg == ORG_LINE_SEQ - 22 > || fcd->fileOrg == ORG_SEQ ----- ^^ - 23 > || fcd->fileOrg == ORG_INDEXED ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 24 || fcd->fileOrg == ORG_RELATIVE) { - 25 switch (opCode) { ->> Error: Unexpected pseudotext - -run_file.at-8028-cmod.c:24.20-45.16: - 21 if (fcd->fileOrg == ORG_LINE_SEQ - 22 || fcd->fileOrg == ORG_SEQ - 23 || fcd->fileOrg == ORG_INDEXED - 24 > || fcd->fileOrg == ORG_RELATIVE) { ----- - 25 > switch (opCode) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 26 > case OP_OPEN_OUTPUT: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 27 > case OP_OPEN_IO: ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 28 > case OP_OPEN_EXTEND: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 29 > case OP_OPEN_OUTPUT_NOREWIND: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 30 > return EXTFH(opCodep, fcd); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 31 > break; ----- ^^^^^^^^^^^^^^^^ - 32 > ----- ^ - 33 > case OP_OPEN_INPUT: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 34 > case OP_OPEN_INPUT_NOREWIND: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 35 > case OP_OPEN_INPUT_REVERSED: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 36 > return EXTFH(opCodep, fcd); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 37 > break; ----- ^^^^^^^^^^^^^^^^ - 38 > ----- ^ - 39 > default: ----- ^^^^^^^^^^^^^^^ - 40 > break; ----- ^^^^^^^^^^^^^^^^ - 41 > } ----- ^^^^^^^^ - 42 > ----- ^ - 43 > } ----- ^^^^^ - 44 > ----- ^ - 45 > if (opCode == OP_CLOSE ----- ^^^^^^^^^^^^^^^^^ - 46 && (fcd->openMode & OPEN_NOT_OPEN) ) { - 47 return 0; ->> Error: Unexpected pseudotext - -run_file.at-8028-cmod.c:5.7-5.11: - 2 #include - 3 #include - 4 - 5 > static char *txtOpCode(int opCode); ----- ^^^^ - 6 - 7 /********************************************************* ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:8028:0 -run_file.at-8028-prog.cob:26.34-26.42: - 23 ALTERNATE RECORD KEY IS TS-DISK WITH DUPLICATES - 24 FILE STATUS IS CUST-STAT . - 25 - 26 > SELECT FLATFILE ASSIGN EXTERNAL RELFIX ----- ^^^^^^^^ - 27 ORGANIZATION RELATIVE - 28 ACCESS IS RANDOM RELATIVE KEY IS REC-NUM ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-8028-prog.cob:110.54: - 107 05 FILLER PIC X(8) VALUE "PRE00000". - 108 - 109 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 110 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 111 02 DATA-COMPANY-TBL. - 112 ->> Hint: Missing - -run_file.at-8028-prog.cob:110.55-110.62: - 107 05 FILLER PIC X(8) VALUE "PRE00000". - 108 - 109 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 110 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 111 02 DATA-COMPANY-TBL. - 112 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:131.55: - 128 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 129 - 130 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 131 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 132 02 DATA-ADDRESS-1-TBL. - 133 ->> Hint: Missing - -run_file.at-8028-prog.cob:131.56-131.63: - 128 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 129 - 130 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 131 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 132 02 DATA-ADDRESS-1-TBL. - 133 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:152.55: - 149 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 150 - 151 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 152 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 153 02 DATA-ADDRESS-2-TBL. - 154 ->> Hint: Missing - -run_file.at-8028-prog.cob:152.56-152.63: - 149 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 150 - 151 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 152 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 153 02 DATA-ADDRESS-2-TBL. - 154 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:173.55: - 170 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 171 - 172 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 173 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 174 02 DATA-ADDRESS-3-TBL. - 175 ->> Hint: Missing - -run_file.at-8028-prog.cob:173.56-173.63: - 170 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 171 - 172 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 173 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 174 02 DATA-ADDRESS-3-TBL. - 175 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:194.55: - 191 05 FILLER PIC X(10) VALUE "N.Y. ". - 192 - 193 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 194 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 195 02 DATA-TELEPHONE-TBL. - 196 ->> Hint: Missing - -run_file.at-8028-prog.cob:194.56-194.63: - 191 05 FILLER PIC X(10) VALUE "N.Y. ". - 192 - 193 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 194 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 195 02 DATA-TELEPHONE-TBL. - 196 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:215.55: - 212 05 FILLER PIC 9(10) VALUE 4169898509. - 213 - 214 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 215 > PIC 9(10) OCCURS MAX-SUB. ----- ^ - 216 02 DATA-DP-MGR-TBL. - 217 ->> Hint: Missing - -run_file.at-8028-prog.cob:215.56-215.63: - 212 05 FILLER PIC 9(10) VALUE 4169898509. - 213 - 214 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 215 > PIC 9(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 216 02 DATA-DP-MGR-TBL. - 217 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:236.55: - 233 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 234 - 235 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 236 > PIC X(20) OCCURS MAX-SUB. ----- ^ - 237 02 DATA-MACHINE-TBL. - 238 ->> Hint: Missing - -run_file.at-8028-prog.cob:236.56-236.63: - 233 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 234 - 235 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 236 > PIC X(20) OCCURS MAX-SUB. ----- ^^^^^^^ - 237 02 DATA-MACHINE-TBL. - 238 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:257.54: - 254 05 FILLER PIC X(8) VALUE "UNI-9040". - 255 - 256 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 257 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 258 02 DATA-NO-TERMINALS-TBL. - 259 ->> Hint: Missing - -run_file.at-8028-prog.cob:257.55-257.62: - 254 05 FILLER PIC X(8) VALUE "UNI-9040". - 255 - 256 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 257 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 258 02 DATA-NO-TERMINALS-TBL. - 259 ->> Error: Invalid syntax - -run_file.at-8028-prog.cob:278.61: - 275 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 276 - 277 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 278 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^ - 279 - 280 78 REC-MAX VALUE 10. ->> Hint: Missing - -run_file.at-8028-prog.cob:278.62-278.69: - 275 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 276 - 277 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 278 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^^^^^^^ - 279 - 280 78 REC-MAX VALUE 10. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:8591:0 -run_file.at-8591-prog.cob:9.7-9.17: - 6 ENVIRONMENT DIVISION. - 7 CONFIGURATION SECTION. - 8 - 9 > $set fcdreg ----- ^^^^^^^^^^ - 10 INPUT-OUTPUT SECTION. - 11 FILE-CONTROL. ->> Error: Unexpected characters - -run_file.at-8591-prog.cob:88.54: - 85 05 FILLER PIC X(8) VALUE "PRE00000". - 86 - 87 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 88 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 89 02 DATA-COMPANY-TBL. - 90 ->> Hint: Missing - -run_file.at-8591-prog.cob:88.55-88.62: - 85 05 FILLER PIC X(8) VALUE "PRE00000". - 86 - 87 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 88 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 89 02 DATA-COMPANY-TBL. - 90 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:109.55: - 106 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 107 - 108 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 109 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 110 02 DATA-ADDRESS-1-TBL. - 111 ->> Hint: Missing - -run_file.at-8591-prog.cob:109.56-109.63: - 106 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 107 - 108 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 109 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 110 02 DATA-ADDRESS-1-TBL. - 111 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:130.55: - 127 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 128 - 129 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 130 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 131 02 DATA-ADDRESS-2-TBL. - 132 ->> Hint: Missing - -run_file.at-8591-prog.cob:130.56-130.63: - 127 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 128 - 129 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 130 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 131 02 DATA-ADDRESS-2-TBL. - 132 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:151.55: - 148 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 149 - 150 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 151 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 152 02 DATA-ADDRESS-3-TBL. - 153 ->> Hint: Missing - -run_file.at-8591-prog.cob:151.56-151.63: - 148 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 149 - 150 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 151 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 152 02 DATA-ADDRESS-3-TBL. - 153 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:172.55: - 169 05 FILLER PIC X(10) VALUE "N.Y. ". - 170 - 171 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 172 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 173 02 DATA-TELEPHONE-TBL. - 174 ->> Hint: Missing - -run_file.at-8591-prog.cob:172.56-172.63: - 169 05 FILLER PIC X(10) VALUE "N.Y. ". - 170 - 171 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 172 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 173 02 DATA-TELEPHONE-TBL. - 174 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:193.55: - 190 05 FILLER PIC 9(10) VALUE 4169898509. - 191 - 192 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 193 > PIC 9(10) OCCURS MAX-SUB. ----- ^ - 194 02 DATA-DP-MGR-TBL. - 195 ->> Hint: Missing - -run_file.at-8591-prog.cob:193.56-193.63: - 190 05 FILLER PIC 9(10) VALUE 4169898509. - 191 - 192 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 193 > PIC 9(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 194 02 DATA-DP-MGR-TBL. - 195 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:214.55: - 211 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 212 - 213 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 214 > PIC X(20) OCCURS MAX-SUB. ----- ^ - 215 02 DATA-MACHINE-TBL. - 216 ->> Hint: Missing - -run_file.at-8591-prog.cob:214.56-214.63: - 211 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 212 - 213 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 214 > PIC X(20) OCCURS MAX-SUB. ----- ^^^^^^^ - 215 02 DATA-MACHINE-TBL. - 216 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:235.54: - 232 05 FILLER PIC X(8) VALUE "UNI-9040". - 233 - 234 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 235 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 236 02 DATA-NO-TERMINALS-TBL. - 237 ->> Hint: Missing - -run_file.at-8591-prog.cob:235.55-235.62: - 232 05 FILLER PIC X(8) VALUE "UNI-9040". - 233 - 234 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 235 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 236 02 DATA-NO-TERMINALS-TBL. - 237 ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:256.61: - 253 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 254 - 255 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 256 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^ - 257 - 258 01 WORK-AREA. ->> Hint: Missing - -run_file.at-8591-prog.cob:256.62-256.69: - 253 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 254 - 255 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 256 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^^^^^^^ - 257 - 258 01 WORK-AREA. ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:270.11-270.29: - 267 LINKAGE SECTION. - 268 - 269 01 TSP-FCD. - 270 > COPY "xfhfcd.cpy". ----- ^^^^^^^^^^^^^^^^^^ - 271 - 272 01 key-def. ->> Error: Library `xfhfcd.cpy' not found in search path (search path: ) - -run_file.at-8591-prog.cob:304.16-304.22: - 301 DISPLAY "File assigned is '" - 302 TSP-FILENAME (1:FCD-NAME-LENGTH) "'". - 303 SET FCD-FILENAME-ADDRESS TO ADDRESS OF OUT-FILE-NAME. - 304 > MOVE LENGTH OF OUT-FILE-NAME TO FCD-NAME-LENGTH. ----- ^^^^^^ - 305 DISPLAY "*** Dump FCD before changes" - 306 PERFORM DUMP-FCD. ->> Error: Invalid syntax - -run_file.at-8591-prog.cob:333.32-333.38: - 330 UNTIL IDX2 > key-count (idx) - 331 SET ADDRESS OF KEY-COMP TO KC-PTR - 332 DISPLAY " Pos " kc-pos " Len " kc-len - 333 > SET KC-PTR UP BY LENGTH OF KEY-COMP ----- ^^^^^^ - 334 END-PERFORM - 335 END-PERFORM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:8672:0 -run_file.at-8672-reference:1.6-1.7: - 1 > Other Flags 32. ----- ^ - 2 File has 0003 keys. - 3 Key def 0112 bytes. ->> Error: Unexpected indicator: `F' - -run_file.at-8672-reference:2.6-2.7: - 1 Other Flags 32. - 2 > File has 0003 keys. ----- ^ - 3 Key def 0112 bytes. - 4 File assigned is 'mytstisam' ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:3.6-3.7: - 1 Other Flags 32. - 2 File has 0003 keys. - 3 > Key def 0112 bytes. ----- ^ - 4 File assigned is 'mytstisam' - 5 *** Dump FCD before changes ->> Error: Unexpected indicator: `f' - -run_file.at-8672-reference:4.6-4.7: - 1 Other Flags 32. - 2 File has 0003 keys. - 3 Key def 0112 bytes. - 4 > File assigned is 'mytstisam' ----- ^ - 5 *** Dump FCD before changes - 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . ->> Error: Unexpected indicator: `s' - -run_file.at-8672-reference:5.6-5.7: - 2 File has 0003 keys. - 3 Key def 0112 bytes. - 4 File assigned is 'mytstisam' - 5 > *** Dump FCD before changes ----- ^ - 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 7 Pos 000000000 Len 000000008 ->> Error: Unexpected indicator: `m' - -run_file.at-8672-reference:6.6-6.7: - 3 Key def 0112 bytes. - 4 File assigned is 'mytstisam' - 5 *** Dump FCD before changes - 6 > Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . ----- ^ - 7 Pos 000000000 Len 000000008 - 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:7.6-7.7: - 4 File assigned is 'mytstisam' - 5 *** Dump FCD before changes - 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 7 > Pos 000000000 Len 000000008 ----- ^ - 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . - 9 Pos 000000109 Len 000000010 ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:8.6-8.7: - 5 *** Dump FCD before changes - 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 7 Pos 000000000 Len 000000008 - 8 > Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . ----- ^ - 9 Pos 000000109 Len 000000010 - 10 Pos 000000144 Len 000000008 ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:9.6-9.7: - 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 7 Pos 000000000 Len 000000008 - 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . - 9 > Pos 000000109 Len 000000010 ----- ^ - 10 Pos 000000144 Len 000000008 - 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:10.6-10.7: - 7 Pos 000000000 Len 000000008 - 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . - 9 Pos 000000109 Len 000000010 - 10 > Pos 000000144 Len 000000008 ----- ^ - 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . - 12 Pos 000000156 Len 000000008 ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:11.6-11.7: - 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . - 9 Pos 000000109 Len 000000010 - 10 Pos 000000144 Len 000000008 - 11 > Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . ----- ^ - 12 Pos 000000156 Len 000000008 - 13 Pos 000000164 Len 000000008 ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:12.6-12.7: - 9 Pos 000000109 Len 000000010 - 10 Pos 000000144 Len 000000008 - 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . - 12 > Pos 000000156 Len 000000008 ----- ^ - 13 Pos 000000164 Len 000000008 - 14 *** Dump FCD after changes ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:13.6-13.7: - 10 Pos 000000144 Len 000000008 - 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . - 12 Pos 000000156 Len 000000008 - 13 > Pos 000000164 Len 000000008 ----- ^ - 14 *** Dump FCD after changes - 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:14.6-14.7: - 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . - 12 Pos 000000156 Len 000000008 - 13 Pos 000000164 Len 000000008 - 14 > *** Dump FCD after changes ----- ^ - 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 16 Pos 000000000 Len 000000008 ->> Error: Unexpected indicator: `m' - -run_file.at-8672-reference:15.6-15.7: - 12 Pos 000000156 Len 000000008 - 13 Pos 000000164 Len 000000008 - 14 *** Dump FCD after changes - 15 > Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . ----- ^ - 16 Pos 000000000 Len 000000008 - 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:16.6-16.7: - 13 Pos 000000164 Len 000000008 - 14 *** Dump FCD after changes - 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 16 > Pos 000000000 Len 000000008 ----- ^ - 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . - 18 Pos 000000109 Len 000000010 ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:17.6-17.7: - 14 *** Dump FCD after changes - 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 16 Pos 000000000 Len 000000008 - 17 > Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . ----- ^ - 18 Pos 000000109 Len 000000010 - 19 Pos 000000144 Len 000000008 ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:18.6-18.7: - 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . - 16 Pos 000000000 Len 000000008 - 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . - 18 > Pos 000000109 Len 000000010 ----- ^ - 19 Pos 000000144 Len 000000008 - 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:19.6-19.7: - 16 Pos 000000000 Len 000000008 - 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . - 18 Pos 000000109 Len 000000010 - 19 > Pos 000000144 Len 000000008 ----- ^ - 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. - 21 Pos 000000156 Len 000000008 ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:20.6-20.7: - 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . - 18 Pos 000000109 Len 000000010 - 19 Pos 000000144 Len 000000008 - 20 > Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. ----- ^ - 21 Pos 000000156 Len 000000008 - 22 Pos 000000164 Len 000000008 ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:21.6-21.7: - 18 Pos 000000109 Len 000000010 - 19 Pos 000000144 Len 000000008 - 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. - 21 > Pos 000000156 Len 000000008 ----- ^ - 22 Pos 000000164 Len 000000008 - 23 Loading sample file 'myextisam' ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:22.6-22.7: - 19 Pos 000000144 Len 000000008 - 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. - 21 Pos 000000156 Len 000000008 - 22 > Pos 000000164 Len 000000008 ----- ^ - 23 Loading sample file 'myextisam' - 24 Sample data file load complete. ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:23.6-23.7: - 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. - 21 Pos 000000156 Len 000000008 - 22 Pos 000000164 Len 000000008 - 23 > Loading sample file 'myextisam' ----- ^ - 24 Sample data file load complete. - 25 List sample file 'myextisam' ->> Error: Unexpected indicator: `g' - -run_file.at-8672-reference:25.6-25.7: - 22 Pos 000000164 Len 000000008 - 23 Loading sample file 'myextisam' - 24 Sample data file load complete. - 25 > List sample file 'myextisam' ----- ^ - 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ->> Error: Unexpected indicator: `a' - -run_file.at-8672-reference:26.6-26.7: - 23 Loading sample file 'myextisam' - 24 Sample data file load complete. - 25 List sample file 'myextisam' - 26 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . ----- ^ - 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. ->> Error: Unexpected indicator: `L' - -run_file.at-8672-reference:27.6-27.7: - 24 Sample data file load complete. - 25 List sample file 'myextisam' - 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 27 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ----- ^ - 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:28.6-28.7: - 25 List sample file 'myextisam' - 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 28 > Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. ----- ^ - 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:29.6-29.7: - 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 29 > Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. ----- ^ - 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:30.6-30.7: - 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 30 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . ----- ^ - 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:31.6-31.7: - 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 31 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ----- ^ - 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. ->> Error: Unexpected indicator: `A' - -run_file.at-8672-reference:32.6-32.7: - 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 32 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ----- ^ - 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ->> Error: Unexpected indicator: `I' - -run_file.at-8672-reference:33.6-33.7: - 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 33 > Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. ----- ^ - 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ->> Error: Unexpected indicator: `&' - -run_file.at-8672-reference:34.6-34.7: - 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 34 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ----- ^ - 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ->> Error: Unexpected indicator: `N' - -run_file.at-8672-reference:35.6-35.7: - 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 35 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ----- ^ - 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:36.6-36.7: - 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 36 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ----- ^ - 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:37.6-37.7: - 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 37 > Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. ----- ^ - 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:38.6-38.7: - 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 38 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ----- ^ - 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:39.6-39.7: - 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 39 > Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. ----- ^ - 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:40.6-40.7: - 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 40 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ----- ^ - 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 42 Hit End of File after 16 ->> Error: Unexpected indicator: `L' - -run_file.at-8672-reference:41.6-41.7: - 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 41 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . ----- ^ - 42 Hit End of File after 16 - 43 LIST SAMPLE FILE DESCENDING ->> Error: Unexpected indicator: `R' - -run_file.at-8672-reference:43.6-43.7: - 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 42 Hit End of File after 16 - 43 > LIST SAMPLE FILE DESCENDING ----- ^ - 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ->> Error: Unexpected indicator: `A' - -run_file.at-8672-reference:44.6-44.7: - 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 42 Hit End of File after 16 - 43 LIST SAMPLE FILE DESCENDING - 44 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . ----- ^ - 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. ->> Error: Unexpected indicator: `R' - -run_file.at-8672-reference:45.6-45.7: - 42 Hit End of File after 16 - 43 LIST SAMPLE FILE DESCENDING - 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 45 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ----- ^ - 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ->> Error: Unexpected indicator: `L' - -run_file.at-8672-reference:46.6-46.7: - 43 LIST SAMPLE FILE DESCENDING - 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 46 > Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. ----- ^ - 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:47.6-47.7: - 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 47 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ----- ^ - 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:48.6-48.7: - 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 48 > Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. ----- ^ - 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:49.6-49.7: - 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 49 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ----- ^ - 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:50.6-50.7: - 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 50 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ----- ^ - 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:51.6-51.7: - 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 51 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ----- ^ - 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ->> Error: Unexpected indicator: `N' - -run_file.at-8672-reference:52.6-52.7: - 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 52 > Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. ----- ^ - 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ->> Error: Unexpected indicator: `&' - -run_file.at-8672-reference:53.6-53.7: - 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 53 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ----- ^ - 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . ->> Error: Unexpected indicator: `I' - -run_file.at-8672-reference:54.6-54.7: - 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 54 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ----- ^ - 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. ->> Error: Unexpected indicator: `A' - -run_file.at-8672-reference:55.6-55.7: - 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 55 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . ----- ^ - 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:56.6-56.7: - 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 56 > Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. ----- ^ - 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ->> Error: Unexpected indicator: `P' - -run_file.at-8672-reference:57.6-57.7: - 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 57 > Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. ----- ^ - 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:58.6-58.7: - 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 58 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ----- ^ - 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 60 Hit End of File after 16 ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:59.6-59.7: - 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 59 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . ----- ^ - 60 Hit End of File after 16 - 61 LIST SAMPLE FILE BY KEY3 ->> Error: Unexpected indicator: `L' - -run_file.at-8672-reference:61.6-61.7: - 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 60 Hit End of File after 16 - 61 > LIST SAMPLE FILE BY KEY3 ----- ^ - 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . ->> Error: Unexpected indicator: `A' - -run_file.at-8672-reference:62.6-62.7: - 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 60 Hit End of File after 16 - 61 LIST SAMPLE FILE BY KEY3 - 62 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . ----- ^ - 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ->> Error: Unexpected indicator: `L' - -run_file.at-8672-reference:63.6-63.7: - 60 Hit End of File after 16 - 61 LIST SAMPLE FILE BY KEY3 - 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 63 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . ----- ^ - 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:64.6-64.7: - 61 LIST SAMPLE FILE BY KEY3 - 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 64 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ----- ^ - 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ->> Error: Unexpected indicator: `A' - -run_file.at-8672-reference:65.6-65.7: - 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . - 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 65 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ----- ^ - 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ->> Error: Unexpected indicator: `I' - -run_file.at-8672-reference:66.6-66.7: - 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . - 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 66 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ----- ^ - 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ->> Error: Unexpected indicator: `N' - -run_file.at-8672-reference:67.6-67.7: - 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 67 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ----- ^ - 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:68.6-68.7: - 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 68 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ----- ^ - 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:69.6-69.7: - 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 69 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ----- ^ - 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 71 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ->> Error: Unexpected indicator: `E' - -run_file.at-8672-reference:70.6-70.7: - 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 70 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ----- ^ - 71 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 72 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . ->> Error: Unexpected indicator: `O' - -run_file.at-8672-reference:71.6-71.7: - 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 71 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ----- ^ - 72 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 73 Hit End of File after 11 ->> Error: Unexpected indicator: `L' - -run_file.at-8672-reference:72.6-72.7: - 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 71 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 72 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . ----- ^ - 73 Hit End of File after 11 ->> Error: Unexpected indicator: `R' - -run_file.at-8672-reference:1.7-1.11: - 1 > Other Flags 32. ----- ^^^^ - 2 File has 0003 keys. - 3 Key def 0112 bytes. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9007:0 -run_file.at-9007-cmod.c:8.6-8.7: - 5 static char *txtOpCode(int opCode); - 6 - 7 static int - 8 > doOpenFile( ----- ^ - 9 unsigned char *opCodep, - 10 FCD3 *fcd, ->> Error: Unexpected indicator: `F' - -run_file.at-9007-cmod.c:9.6-9.7: - 6 - 7 static int - 8 doOpenFile( - 9 > unsigned char *opCodep, ----- ^ - 10 FCD3 *fcd, - 11 char *opmsg) ->> Error: Unexpected indicator: `i' - -run_file.at-9007-cmod.c:10.6-10.7: - 7 static int - 8 doOpenFile( - 9 unsigned char *opCodep, - 10 > FCD3 *fcd, ----- ^ - 11 char *opmsg) - 12 { ->> Error: Unexpected indicator: `3' - -run_file.at-9007-cmod.c:11.6-11.7: - 8 doOpenFile( - 9 unsigned char *opCodep, - 10 FCD3 *fcd, - 11 > char *opmsg) ----- ^ - 12 { - 13 int sts; ->> Error: Unexpected indicator: `r' - -run_file.at-9007-cmod.c:16.6-16.7: - 13 int sts; - 14 - 15 sts = EXTFH( opCodep, fcd ); - 16 > printf("EXFTH did %s; Status=%c%c; File now %s\n", ----- ^ - 17 opmsg, fcd->fileStatus[0], fcd->fileStatus[1], - 18 (fcd->openMode & OPEN_NOT_OPEN) ? "Closed" : "Open"); ->> Error: Unexpected indicator: `n' - -run_file.at-9007-cmod.c:19.6-19.7: - 16 printf("EXFTH did %s; Status=%c%c; File now %s\n", - 17 opmsg, fcd->fileStatus[0], fcd->fileStatus[1], - 18 (fcd->openMode & OPEN_NOT_OPEN) ? "Closed" : "Open"); - 19 > return sts; ----- ^ - 20 } - 21 ->> Error: Unexpected indicator: `u' - -run_file.at-9007-cmod.c:23.6-23.7: - 20 } - 21 - 22 /********************************************************* - 23 > * TSTFH - External File Handler entry point. ----- ^ - 24 *********************************************************/ - 25 ->> Error: Unexpected indicator: `T' - -run_file.at-9007-cmod.c:26.6-26.7: - 23 * TSTFH - External File Handler entry point. - 24 *********************************************************/ - 25 - 26 > COB_EXT_EXPORT int ----- ^ - 27 TSTFH (unsigned char *opCodep, FCD3 *fcd) - 28 { ->> Error: Unexpected indicator: `T' - -run_file.at-9007-cmod.c:27.6-27.7: - 24 *********************************************************/ - 25 - 26 COB_EXT_EXPORT int - 27 > TSTFH (unsigned char *opCodep, FCD3 *fcd) ----- ^ - 28 { - 29 unsigned int opCode; ->> Error: Unexpected indicator: `(' - -run_file.at-9007-cmod.c:29.6-29.7: - 26 COB_EXT_EXPORT int - 27 TSTFH (unsigned char *opCodep, FCD3 *fcd) - 28 { - 29 > unsigned int opCode; ----- ^ - 30 int sts; - 31 ->> Error: Unexpected indicator: `i' - -run_file.at-9007-cmod.c:32.6-32.7: - 29 unsigned int opCode; - 30 int sts; - 31 - 32 > if (*opCodep == 0xfa) ----- ^ - 33 opCode = 0xfa00 + opCodep[1]; - 34 else ->> Error: Unexpected indicator: `(' - -run_file.at-9007-cmod.c:33.6-33.7: - 30 int sts; - 31 - 32 if (*opCodep == 0xfa) - 33 > opCode = 0xfa00 + opCodep[1]; ----- ^ - 34 else - 35 opCode = opCodep[1]; ->> Error: Unexpected indicator: `o' - -run_file.at-9007-cmod.c:34.6-34.7: - 31 - 32 if (*opCodep == 0xfa) - 33 opCode = 0xfa00 + opCodep[1]; - 34 > else ----- ^ - 35 opCode = opCodep[1]; - 36 ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:35.6-35.7: - 32 if (*opCodep == 0xfa) - 33 opCode = 0xfa00 + opCodep[1]; - 34 else - 35 > opCode = opCodep[1]; ----- ^ - 36 - 37 if (fcd->fileOrg == ORG_LINE_SEQ ->> Error: Unexpected indicator: `o' - -run_file.at-9007-cmod.c:37.6-37.7: - 34 else - 35 opCode = opCodep[1]; - 36 - 37 > if (fcd->fileOrg == ORG_LINE_SEQ ----- ^ - 38 || fcd->fileOrg == ORG_SEQ - 39 || fcd->fileOrg == ORG_INDEXED ->> Error: Unexpected indicator: `(' - -run_file.at-9007-cmod.c:41.6-41.7: - 38 || fcd->fileOrg == ORG_SEQ - 39 || fcd->fileOrg == ORG_INDEXED - 40 || fcd->fileOrg == ORG_RELATIVE) { - 41 > switch (opCode) { ----- ^ - 42 case OP_OPEN_OUTPUT: - 43 case OP_OPEN_IO: ->> Error: Unexpected indicator: `s' - -run_file.at-9007-cmod.c:42.6-42.7: - 39 || fcd->fileOrg == ORG_INDEXED - 40 || fcd->fileOrg == ORG_RELATIVE) { - 41 switch (opCode) { - 42 > case OP_OPEN_OUTPUT: ----- ^ - 43 case OP_OPEN_IO: - 44 case OP_OPEN_EXTEND: ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:43.6-43.7: - 40 || fcd->fileOrg == ORG_RELATIVE) { - 41 switch (opCode) { - 42 case OP_OPEN_OUTPUT: - 43 > case OP_OPEN_IO: ----- ^ - 44 case OP_OPEN_EXTEND: - 45 case OP_OPEN_OUTPUT_NOREWIND: ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:44.6-44.7: - 41 switch (opCode) { - 42 case OP_OPEN_OUTPUT: - 43 case OP_OPEN_IO: - 44 > case OP_OPEN_EXTEND: ----- ^ - 45 case OP_OPEN_OUTPUT_NOREWIND: - 46 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:45.6-45.7: - 42 case OP_OPEN_OUTPUT: - 43 case OP_OPEN_IO: - 44 case OP_OPEN_EXTEND: - 45 > case OP_OPEN_OUTPUT_NOREWIND: ----- ^ - 46 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); - 47 break; ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:49.6-49.7: - 46 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); - 47 break; - 48 - 49 > case OP_OPEN_INPUT: ----- ^ - 50 case OP_OPEN_INPUT_NOREWIND: - 51 case OP_OPEN_INPUT_REVERSED: ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:50.6-50.7: - 47 break; - 48 - 49 case OP_OPEN_INPUT: - 50 > case OP_OPEN_INPUT_NOREWIND: ----- ^ - 51 case OP_OPEN_INPUT_REVERSED: - 52 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:51.6-51.7: - 48 - 49 case OP_OPEN_INPUT: - 50 case OP_OPEN_INPUT_NOREWIND: - 51 > case OP_OPEN_INPUT_REVERSED: ----- ^ - 52 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); - 53 break; ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:55.6-55.7: - 52 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); - 53 break; - 54 - 55 > case OP_CLOSE: ----- ^ - 56 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); - 57 break; ->> Error: Unexpected indicator: `c' - -run_file.at-9007-cmod.c:61.6-61.7: - 58 - 59 default: - 60 break; - 61 > } ----- ^ - 62 - 63 } ->> Error: Unexpected indicator: `}' - -run_file.at-9007-cmod.c:65.6-65.7: - 62 - 63 } - 64 - 65 > if (opCode == OP_CLOSE ----- ^ - 66 && (fcd->openMode & OPEN_NOT_OPEN) ) { - 67 return 0; ->> Error: Unexpected indicator: `(' - -run_file.at-9007-cmod.c:67.6-67.7: - 64 - 65 if (opCode == OP_CLOSE - 66 && (fcd->openMode & OPEN_NOT_OPEN) ) { - 67 > return 0; ----- ^ - 68 } - 69 ->> Error: Unexpected indicator: `r' - -run_file.at-9007-cmod.c:71.6-71.7: - 68 } - 69 - 70 sts = EXTFH(opCodep, fcd); - 71 > printf("EXFTH did %s; Status=%c%c\n", txtOpCode(opCode), ----- ^ - 72 fcd->fileStatus[0], fcd->fileStatus[1]); - 73 return sts; ->> Error: Unexpected indicator: `n' - -run_file.at-9007-cmod.c:73.6-73.7: - 70 sts = EXTFH(opCodep, fcd); - 71 printf("EXFTH did %s; Status=%c%c\n", txtOpCode(opCode), - 72 fcd->fileStatus[0], fcd->fileStatus[1]); - 73 > return sts; ----- ^ - 74 } - 75 ->> Error: Unexpected indicator: `u' - -run_file.at-9007-cmod.c:77.6-77.7: - 74 } - 75 - 76 static char * /* Return Text name of function */ - 77 > txtOpCode(int opCode) ----- ^ - 78 { - 79 static char tmp[32]; ->> Error: Unexpected indicator: `o' - -run_file.at-9007-cmod.c:79.6-79.7: - 76 static char * /* Return Text name of function */ - 77 txtOpCode(int opCode) - 78 { - 79 > static char tmp[32]; ----- ^ - 80 switch (opCode) { - 81 case OP_OPEN_INPUT: return "OPEN_IN"; ->> Error: Unexpected indicator: `t' - -run_file.at-9007-cmod.c:80.6-80.7: - 77 txtOpCode(int opCode) - 78 { - 79 static char tmp[32]; - 80 > switch (opCode) { ----- ^ - 81 case OP_OPEN_INPUT: return "OPEN_IN"; - 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; ->> Error: Unexpected indicator: `t' - -run_file.at-9007-cmod.c:81.6-81.7: - 78 { - 79 static char tmp[32]; - 80 switch (opCode) { - 81 > case OP_OPEN_INPUT: return "OPEN_IN"; ----- ^ - 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; - 83 case OP_OPEN_IO: return "OPEN_IO"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:82.6-82.7: - 79 static char tmp[32]; - 80 switch (opCode) { - 81 case OP_OPEN_INPUT: return "OPEN_IN"; - 82 > case OP_OPEN_OUTPUT: return "OPEN_OUT"; ----- ^ - 83 case OP_OPEN_IO: return "OPEN_IO"; - 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:83.6-83.7: - 80 switch (opCode) { - 81 case OP_OPEN_INPUT: return "OPEN_IN"; - 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; - 83 > case OP_OPEN_IO: return "OPEN_IO"; ----- ^ - 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; - 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:84.6-84.7: - 81 case OP_OPEN_INPUT: return "OPEN_IN"; - 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; - 83 case OP_OPEN_IO: return "OPEN_IO"; - 84 > case OP_OPEN_EXTEND: return "OPEN_EXT"; ----- ^ - 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; - 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:85.6-85.7: - 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; - 83 case OP_OPEN_IO: return "OPEN_IO"; - 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; - 85 > case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; ----- ^ - 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; - 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:86.6-86.7: - 83 case OP_OPEN_IO: return "OPEN_IO"; - 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; - 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; - 86 > case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; ----- ^ - 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; - 88 case OP_CLOSE: return "CLOSE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:87.6-87.7: - 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; - 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; - 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; - 87 > case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; ----- ^ - 88 case OP_CLOSE: return "CLOSE"; - 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:88.6-88.7: - 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; - 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; - 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; - 88 > case OP_CLOSE: return "CLOSE"; ----- ^ - 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; - 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:89.6-89.7: - 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; - 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; - 88 case OP_CLOSE: return "CLOSE"; - 89 > case OP_CLOSE_LOCK: return "CLOSE_LOCK"; ----- ^ - 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; - 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:90.6-90.7: - 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; - 88 case OP_CLOSE: return "CLOSE"; - 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; - 90 > case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; ----- ^ - 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; - 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:91.6-91.7: - 88 case OP_CLOSE: return "CLOSE"; - 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; - 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; - 91 > case OP_CLOSE_REEL: return "CLOSE_REEL"; ----- ^ - 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; - 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:92.6-92.7: - 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; - 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; - 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; - 92 > case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; ----- ^ - 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; - 94 case OP_START_EQ: return "START_EQ"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:93.6-93.7: - 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; - 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; - 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; - 93 > case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; ----- ^ - 94 case OP_START_EQ: return "START_EQ"; - 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:94.6-94.7: - 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; - 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; - 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; - 94 > case OP_START_EQ: return "START_EQ"; ----- ^ - 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; - 96 case OP_START_GT: return "START_GT"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:95.6-95.7: - 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; - 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; - 94 case OP_START_EQ: return "START_EQ"; - 95 > case OP_START_EQ_ANY: return "START_EQ_ANY"; ----- ^ - 96 case OP_START_GT: return "START_GT"; - 97 case OP_START_GE: return "START_GE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:96.6-96.7: - 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; - 94 case OP_START_EQ: return "START_EQ"; - 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; - 96 > case OP_START_GT: return "START_GT"; ----- ^ - 97 case OP_START_GE: return "START_GE"; - 98 case OP_START_LT: return "START_LT"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:97.6-97.7: - 94 case OP_START_EQ: return "START_EQ"; - 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; - 96 case OP_START_GT: return "START_GT"; - 97 > case OP_START_GE: return "START_GE"; ----- ^ - 98 case OP_START_LT: return "START_LT"; - 99 case OP_START_LE: return "START_LE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:98.6-98.7: - 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; - 96 case OP_START_GT: return "START_GT"; - 97 case OP_START_GE: return "START_GE"; - 98 > case OP_START_LT: return "START_LT"; ----- ^ - 99 case OP_START_LE: return "START_LE"; - 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:99.6-99.7: - 96 case OP_START_GT: return "START_GT"; - 97 case OP_START_GE: return "START_GE"; - 98 case OP_START_LT: return "START_LT"; - 99 > case OP_START_LE: return "START_LE"; ----- ^ - 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; - 101 case OP_READ_SEQ: return "READ_SEQ"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:100.6-100.7: - 97 case OP_START_GE: return "START_GE"; - 98 case OP_START_LT: return "START_LT"; - 99 case OP_START_LE: return "START_LE"; - 100 > case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; ----- ^ - 101 case OP_READ_SEQ: return "READ_SEQ"; - 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:101.6-101.7: - 98 case OP_START_LT: return "START_LT"; - 99 case OP_START_LE: return "START_LE"; - 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; - 101 > case OP_READ_SEQ: return "READ_SEQ"; ----- ^ - 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; - 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:102.6-102.7: - 99 case OP_START_LE: return "START_LE"; - 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; - 101 case OP_READ_SEQ: return "READ_SEQ"; - 102 > case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; ----- ^ - 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; - 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:103.6-103.7: - 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; - 101 case OP_READ_SEQ: return "READ_SEQ"; - 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; - 103 > case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; ----- ^ - 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; - 105 case OP_READ_PREV: return "READ_PREV"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:104.6-104.7: - 101 case OP_READ_SEQ: return "READ_SEQ"; - 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; - 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; - 104 > case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; ----- ^ - 105 case OP_READ_PREV: return "READ_PREV"; - 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:105.6-105.7: - 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; - 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; - 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; - 105 > case OP_READ_PREV: return "READ_PREV"; ----- ^ - 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; - 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:106.6-106.7: - 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; - 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; - 105 case OP_READ_PREV: return "READ_PREV"; - 106 > case OP_READ_PREV_LOCK: return "READ_PREV_LK"; ----- ^ - 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; - 108 case OP_READ_RAN: return "READ_RAN"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:107.6-107.7: - 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; - 105 case OP_READ_PREV: return "READ_PREV"; - 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; - 107 > case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; ----- ^ - 108 case OP_READ_RAN: return "READ_RAN"; - 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:108.6-108.7: - 105 case OP_READ_PREV: return "READ_PREV"; - 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; - 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; - 108 > case OP_READ_RAN: return "READ_RAN"; ----- ^ - 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; - 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:109.6-109.7: - 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; - 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; - 108 case OP_READ_RAN: return "READ_RAN"; - 109 > case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; ----- ^ - 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; - 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:110.6-110.7: - 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; - 108 case OP_READ_RAN: return "READ_RAN"; - 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; - 110 > case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; ----- ^ - 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; - 112 case OP_READ_DIR: return "READ_DIR"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:111.6-111.7: - 108 case OP_READ_RAN: return "READ_RAN"; - 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; - 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; - 111 > case OP_READ_RAN_LOCK: return "READ_RAN_LK"; ----- ^ - 112 case OP_READ_DIR: return "READ_DIR"; - 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:112.6-112.7: - 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; - 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; - 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; - 112 > case OP_READ_DIR: return "READ_DIR"; ----- ^ - 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; - 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:113.6-113.7: - 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; - 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; - 112 case OP_READ_DIR: return "READ_DIR"; - 113 > case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; ----- ^ - 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; - 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:114.6-114.7: - 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; - 112 case OP_READ_DIR: return "READ_DIR"; - 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; - 114 > case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; ----- ^ - 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; - 116 case OP_READ_POSITION: return "READ_POSITION"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:115.6-115.7: - 112 case OP_READ_DIR: return "READ_DIR"; - 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; - 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; - 115 > case OP_READ_DIR_LOCK: return "READ_DIR_LK"; ----- ^ - 116 case OP_READ_POSITION: return "READ_POSITION"; - 117 case OP_WRITE: return "WRITE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:116.6-116.7: - 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; - 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; - 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; - 116 > case OP_READ_POSITION: return "READ_POSITION"; ----- ^ - 117 case OP_WRITE: return "WRITE"; - 118 case OP_REWRITE: return "REWRITE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:117.6-117.7: - 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; - 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; - 116 case OP_READ_POSITION: return "READ_POSITION"; - 117 > case OP_WRITE: return "WRITE"; ----- ^ - 118 case OP_REWRITE: return "REWRITE"; - 119 case OP_DELETE: return "DELETE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:118.6-118.7: - 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; - 116 case OP_READ_POSITION: return "READ_POSITION"; - 117 case OP_WRITE: return "WRITE"; - 118 > case OP_REWRITE: return "REWRITE"; ----- ^ - 119 case OP_DELETE: return "DELETE"; - 120 case OP_DELETE_FILE: return "DELETE_FILE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:119.6-119.7: - 116 case OP_READ_POSITION: return "READ_POSITION"; - 117 case OP_WRITE: return "WRITE"; - 118 case OP_REWRITE: return "REWRITE"; - 119 > case OP_DELETE: return "DELETE"; ----- ^ - 120 case OP_DELETE_FILE: return "DELETE_FILE"; - 121 case OP_UNLOCK: return "UNLOCK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:120.6-120.7: - 117 case OP_WRITE: return "WRITE"; - 118 case OP_REWRITE: return "REWRITE"; - 119 case OP_DELETE: return "DELETE"; - 120 > case OP_DELETE_FILE: return "DELETE_FILE"; ----- ^ - 121 case OP_UNLOCK: return "UNLOCK"; - 122 case OP_ROLLBACK: return "ROLLBACK"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:121.6-121.7: - 118 case OP_REWRITE: return "REWRITE"; - 119 case OP_DELETE: return "DELETE"; - 120 case OP_DELETE_FILE: return "DELETE_FILE"; - 121 > case OP_UNLOCK: return "UNLOCK"; ----- ^ - 122 case OP_ROLLBACK: return "ROLLBACK"; - 123 case OP_COMMIT: return "COMMIT"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:122.6-122.7: - 119 case OP_DELETE: return "DELETE"; - 120 case OP_DELETE_FILE: return "DELETE_FILE"; - 121 case OP_UNLOCK: return "UNLOCK"; - 122 > case OP_ROLLBACK: return "ROLLBACK"; ----- ^ - 123 case OP_COMMIT: return "COMMIT"; - 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:123.6-123.7: - 120 case OP_DELETE_FILE: return "DELETE_FILE"; - 121 case OP_UNLOCK: return "UNLOCK"; - 122 case OP_ROLLBACK: return "ROLLBACK"; - 123 > case OP_COMMIT: return "COMMIT"; ----- ^ - 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; - 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:124.6-124.7: - 121 case OP_UNLOCK: return "UNLOCK"; - 122 case OP_ROLLBACK: return "ROLLBACK"; - 123 case OP_COMMIT: return "COMMIT"; - 124 > case OP_WRITE_BEFORE: return "WRITE_BEFORE"; ----- ^ - 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; - 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:125.6-125.7: - 122 case OP_ROLLBACK: return "ROLLBACK"; - 123 case OP_COMMIT: return "COMMIT"; - 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; - 125 > case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; ----- ^ - 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; - 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:126.6-126.7: - 123 case OP_COMMIT: return "COMMIT"; - 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; - 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; - 126 > case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; ----- ^ - 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; - 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:127.6-127.7: - 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; - 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; - 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; - 127 > case OP_WRITE_AFTER: return "WRITE_AFTER"; ----- ^ - 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; - 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:128.6-128.7: - 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; - 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; - 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; - 128 > case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; ----- ^ - 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; - 130 } ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:129.6-129.7: - 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; - 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; - 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; - 129 > case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; ----- ^ - 130 } - 131 sprintf(tmp, "Func 0x%02X:", opCode); ->> Error: Unexpected indicator: `e' - -run_file.at-9007-cmod.c:131.6-131.7: - 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; - 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; - 130 } - 131 > sprintf(tmp, "Func 0x%02X:", opCode); ----- ^ - 132 return tmp; - 133 } ->> Error: Unexpected indicator: `i' - -run_file.at-9007-cmod.c:132.6-132.7: - 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; - 130 } - 131 sprintf(tmp, "Func 0x%02X:", opCode); - 132 > return tmp; ----- ^ - 133 } ->> Error: Unexpected indicator: `u' - -run_file.at-9007-cmod.c:32.16-37.22: - 29 unsigned int opCode; - 30 int sts; - 31 - 32 > if (*opCodep == 0xfa) ----- ^^^^^^ - 33 > opCode = 0xfa00 + opCodep[1]; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 34 > else ----- ^^^^^^^^ - 35 > opCode = opCodep[1]; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 36 > ----- ^ - 37 > if (fcd->fileOrg == ORG_LINE_SEQ ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 38 || fcd->fileOrg == ORG_SEQ - 39 || fcd->fileOrg == ORG_INDEXED ->> Error: Unexpected pseudotext - -run_file.at-9007-cmod.c:38.20-39.22: - 35 opCode = opCodep[1]; - 36 - 37 if (fcd->fileOrg == ORG_LINE_SEQ - 38 > || fcd->fileOrg == ORG_SEQ ----- ^^ - 39 > || fcd->fileOrg == ORG_INDEXED ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 40 || fcd->fileOrg == ORG_RELATIVE) { - 41 switch (opCode) { ->> Error: Unexpected pseudotext - -run_file.at-9007-cmod.c:40.20-65.16: - 37 if (fcd->fileOrg == ORG_LINE_SEQ - 38 || fcd->fileOrg == ORG_SEQ - 39 || fcd->fileOrg == ORG_INDEXED - 40 > || fcd->fileOrg == ORG_RELATIVE) { ----- - 41 > switch (opCode) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 42 > case OP_OPEN_OUTPUT: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 43 > case OP_OPEN_IO: ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 44 > case OP_OPEN_EXTEND: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 45 > case OP_OPEN_OUTPUT_NOREWIND: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 46 > return doOpenFile( opCodep, fcd, txtOpCode(opCode)); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 47 > break; ----- ^^^^^^^^^^^^^^^^ - 48 > ----- ^ - 49 > case OP_OPEN_INPUT: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 50 > case OP_OPEN_INPUT_NOREWIND: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 51 > case OP_OPEN_INPUT_REVERSED: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 52 > return doOpenFile( opCodep, fcd, txtOpCode(opCode)); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 53 > break; ----- ^^^^^^^^^^^^^^^^ - 54 > ----- ^ - 55 > case OP_CLOSE: ----- ^^^^^^^^^^^^^^^^^^^^^ - 56 > return doOpenFile( opCodep, fcd, txtOpCode(opCode)); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 57 > break; ----- ^^^^^^^^^^^^^^^^ - 58 > ----- ^ - 59 > default: ----- ^^^^^^^^^^^^^^^ - 60 > break; ----- ^^^^^^^^^^^^^^^^ - 61 > } ----- ^^^^^^^^ - 62 > ----- ^ - 63 > } ----- ^^^^^ - 64 > ----- ^ - 65 > if (opCode == OP_CLOSE ----- ^^^^^^^^^^^^^^^^^ - 66 && (fcd->openMode & OPEN_NOT_OPEN) ) { - 67 return 0; ->> Error: Unexpected pseudotext - -run_file.at-9007-cmod.c:5.7-5.11: - 2 #include - 3 #include - 4 - 5 > static char *txtOpCode(int opCode); ----- ^^^^ - 6 - 7 static int ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9007:0 -run_file.at-9007-prog.cob:10.34-10.42: - 7 - 8 INPUT-OUTPUT SECTION. - 9 FILE-CONTROL. - 10 > SELECT FLATFILE ASSIGN EXTERNAL SEQFIX ----- ^^^^^^^^ - 11 ORGANIZATION SEQUENTIAL - 12 FILE STATUS IS CUST-STAT . ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-9007-prog.cob:44.54: - 41 05 FILLER PIC X(8) VALUE "FOR00000". - 42 - 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 44 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 45 02 DATA-COMPANY-TBL. - 46 ->> Hint: Missing - -run_file.at-9007-prog.cob:44.55-44.62: - 41 05 FILLER PIC X(8) VALUE "FOR00000". - 42 - 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 44 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 45 02 DATA-COMPANY-TBL. - 46 ->> Error: Invalid syntax - -run_file.at-9007-prog.cob:54.55: - 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". - 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 54 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 55 02 DATA-ADDRESS-2-TBL. - 56 ->> Hint: Missing - -run_file.at-9007-prog.cob:54.56-54.63: - 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". - 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 54 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 55 02 DATA-ADDRESS-2-TBL. - 56 ->> Error: Invalid syntax - -run_file.at-9007-prog.cob:65.55: - 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 63 - 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 65 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 66 - 67 02 DATA-NO-TERMINALS-TBL. ->> Hint: Missing - -run_file.at-9007-prog.cob:65.56-65.63: - 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 63 - 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 65 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 66 - 67 02 DATA-NO-TERMINALS-TBL. ->> Error: Invalid syntax - -run_file.at-9007-prog.cob:77.61: - 74 05 FILLER PIC 9(3) COMP-3 VALUE 254. - 75 - 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 77 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^ - 78 01 WORK-AREA. - 79 05 SUB BINARY-SHORT UNSIGNED. ->> Hint: Missing - -run_file.at-9007-prog.cob:77.62-77.69: - 74 05 FILLER PIC 9(3) COMP-3 VALUE 254. - 75 - 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 77 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^^^^^^^ - 78 01 WORK-AREA. - 79 05 SUB BINARY-SHORT UNSIGNED. ->> Error: Invalid syntax - -run_file.at-9007-prog.cob:143.19: - 140 PERFORM READ-RECORD - 141 END-PERFORM. - 142 CLOSE FLATFILE. - 143 > STOP RUN RETURNING 0. ----- ^ - 144 - 145 READ-RECORD. ->> Hint: Missing . - -run_file.at-9007-prog.cob:143.20-143.29: - 140 PERFORM READ-RECORD - 141 END-PERFORM. - 142 CLOSE FLATFILE. - 143 > STOP RUN RETURNING 0. ----- ^^^^^^^^^ - 144 - 145 READ-RECORD. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9245:0 -run_file.at-9245-prog.cob:15.50: - 12 01 I PIC XX COMP-X. - 13 - 14 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. - 15 > 01 WS-FCD-PTR POINTER VALUE NULL. ----- ^ - 16 - 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. ->> Hint: Missing - -run_file.at-9245-prog.cob:15.51-15.55: - 12 01 I PIC XX COMP-X. - 13 - 14 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. - 15 > 01 WS-FCD-PTR POINTER VALUE NULL. ----- ^^^^ - 16 - 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:25.44-25.45: - 22 05 DISPLAY-ZZ9 REDEFINES DISPLAY-XXX - 23 PIC ZZ9. - 24 01 ACTION-CODE pic x(2). - 25 > 78 OP-OPEN-INPUT value x"fa00". ----- ^ - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 78 OP-OPEN-I-O value x"fa02". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:26.44-26.45: - 23 PIC ZZ9. - 24 01 ACTION-CODE pic x(2). - 25 78 OP-OPEN-INPUT value x"fa00". - 26 > 78 OP-OPEN-OUTPUT value x"fa01". ----- ^ - 27 78 OP-OPEN-I-O value x"fa02". - 28 78 OP-WRITE value x"faf3". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:27.44-27.45: - 24 01 ACTION-CODE pic x(2). - 25 78 OP-OPEN-INPUT value x"fa00". - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 > 78 OP-OPEN-I-O value x"fa02". ----- ^ - 28 78 OP-WRITE value x"faf3". - 29 78 OP-RELEASE value x"faf3". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:28.44-28.45: - 25 78 OP-OPEN-INPUT value x"fa00". - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 78 OP-OPEN-I-O value x"fa02". - 28 > 78 OP-WRITE value x"faf3". ----- ^ - 29 78 OP-RELEASE value x"faf3". - 30 78 OP-REWRITE value x"faf4". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:29.44-29.45: - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 78 OP-OPEN-I-O value x"fa02". - 28 78 OP-WRITE value x"faf3". - 29 > 78 OP-RELEASE value x"faf3". ----- ^ - 30 78 OP-REWRITE value x"faf4". - 31 78 OP-READ-NEXT value x"faf5". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:30.44-30.45: - 27 78 OP-OPEN-I-O value x"fa02". - 28 78 OP-WRITE value x"faf3". - 29 78 OP-RELEASE value x"faf3". - 30 > 78 OP-REWRITE value x"faf4". ----- ^ - 31 78 OP-READ-NEXT value x"faf5". - 32 78 OP-START-EQUAL value x"fae9". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:31.44-31.45: - 28 78 OP-WRITE value x"faf3". - 29 78 OP-RELEASE value x"faf3". - 30 78 OP-REWRITE value x"faf4". - 31 > 78 OP-READ-NEXT value x"faf5". ----- ^ - 32 78 OP-START-EQUAL value x"fae9". - 33 78 OP-CLOSE value x"fa80". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:32.44-32.45: - 29 78 OP-RELEASE value x"faf3". - 30 78 OP-REWRITE value x"faf4". - 31 78 OP-READ-NEXT value x"faf5". - 32 > 78 OP-START-EQUAL value x"fae9". ----- ^ - 33 78 OP-CLOSE value x"fa80". - 34 78 OP-QUERY-FILE value x"0006". ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:33.44-33.45: - 30 78 OP-REWRITE value x"faf4". - 31 78 OP-READ-NEXT value x"faf5". - 32 78 OP-START-EQUAL value x"fae9". - 33 > 78 OP-CLOSE value x"fa80". ----- ^ - 34 78 OP-QUERY-FILE value x"0006". - 35 ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:34.44-34.45: - 31 78 OP-READ-NEXT value x"faf5". - 32 78 OP-START-EQUAL value x"fae9". - 33 78 OP-CLOSE value x"fa80". - 34 > 78 OP-QUERY-FILE value x"0006". ----- ^ - 35 - 36 01 DISPLAY-A1-XXX PIC X(03). ->> Error: Invalid syntax - -run_file.at-9245-prog.cob:49.11-49.30: - 46 LINKAGE SECTION. - 47 - 48 01 FCD-MAP. - 49 > copy 'xfhfcd3.cpy'. ----- ^^^^^^^^^^^^^^^^^^^ - 50 - 51 *================================================================* ->> Error: Library `xfhfcd3.cpy' not found in search path (search path: ) - -run_file.at-9245-prog.cob:74.15-74.21: - 71 - 72 MOVE "TESTOUT" TO WS-FCD-DDNAME - 73 - 74 > MOVE LENGTH OF FCD-MAP TO WS-FCD-SIZE ----- ^^^^^^ - 75 DISPLAY "FCD SIZE " WS-FCD-SIZE. - 76 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9270:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9434:0 -run_file.at-9434-prog.cob:17.11-17.24: - 14 88 EXTFH-OPCODE-ISCLOSE VALUE X'80'. - 15 88 EXTFH-OPCODE-ISWRITE VALUE X'F3'. - 16 01 FCD-PARAMETER-BLOCK. - 17 > copy xfhfcd3. ----- ^^^^^^^^^^^^^ - 18 01 LSEQ-FILENAME PIC X(44) - 19 VALUE 'FCDLS'. ->> Error: Library `XFHFCD3' not found in search path (search path: ) - -run_file.at-9434-prog.cob:46.16-46.22: - 43 DISPLAY PROGRAM-NAME ': STARTING.' - 44 DISPLAY PROGRAM-NAME ': CREATING LINE SEQUENTIAL FILE.' - 45 SET EXTFH-OPCODE-ISOPENOUTPUT TO TRUE - 46 > MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH ----- ^^^^^^ - 47 MOVE fcd--version-number TO FCD-VERSION - 48 MOVE fcd--open-closed TO FCD-OPEN-MODE ->> Error: Invalid syntax - -run_file.at-9434-prog.cob:49.16-49.22: - 46 MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH - 47 MOVE fcd--version-number TO FCD-VERSION - 48 MOVE fcd--open-closed TO FCD-OPEN-MODE - 49 > MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH ----- ^^^^^^ - 50 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 51 MOVE fcd--format-cobol2 TO FCD-FILE-FORMAT ->> Error: Invalid syntax - -run_file.at-9434-prog.cob:52.16-52.22: - 49 MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH - 50 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 51 MOVE fcd--format-cobol2 TO FCD-FILE-FORMAT - 52 > MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH ----- ^^^^^^ - 53 MOVE fcd--recmode-variable TO FCD-RECORDING-MODE - 54 MOVE 0 TO FCD-MIN-REC-LENGTH ->> Error: Invalid syntax - -run_file.at-9434-prog.cob:94.16-94.22: - 91 DISPLAY PROGRAM-NAME ': READING LINE SEQUENTIAL FILE.' - 92 SET EXTFH-OPCODE-ISOPENINPUT TO TRUE - 93 MOVE fcd--open-closed TO FCD-OPEN-MODE - 94 > MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH ----- ^^^^^^ - 95 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 96 MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH ->> Error: Invalid syntax - -run_file.at-9434-prog.cob:96.16-96.22: - 93 MOVE fcd--open-closed TO FCD-OPEN-MODE - 94 MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH - 95 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 96 > MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH ----- ^^^^^^ - 97 MOVE 0 TO FCD-MIN-REC-LENGTH - 98 SET FCD-FILENAME-ADDRESS TO ADDRESS OF LSEQ-FILENAME ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9463:0 -run_file.at-9463-reference:1.6-1.7: - 1 > THERE IS LITTLE LAMB ----- ^ - 2 THE LAMB WAS GRAND AND A GRANDMA - 3 THE OLD EWE CHORTLED ->> Error: Unexpected indicator: `I' - -run_file.at-9463-reference:2.6-2.7: - 1 THERE IS LITTLE LAMB - 2 > THE LAMB WAS GRAND AND A GRANDMA ----- ^ - 3 THE OLD EWE CHORTLED ->> Error: Unexpected indicator: `M' - -run_file.at-9463-reference:1.7-1.8: - 1 > THERE IS LITTLE LAMB ----- ^ - 2 THE LAMB WAS GRAND AND A GRANDMA - 3 THE OLD EWE CHORTLED ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9643:0 -run_file.at-9643-prog.cob:19.11-19.24: - 16 88 EXTFH-OPCODE-ISWRITE VALUE X'F3'. - 17 * - 18 01 FCD-PARAMETER-BLOCK. - 19 > copy xfhfcd3. ----- ^^^^^^^^^^^^^ - 20 01 FIX-FILENAME PIC X(44) - 21 VALUE 'FCDFB'. ->> Error: Library `XFHFCD3' not found in search path (search path: ) - -run_file.at-9643-prog.cob:48.16-48.22: - 45 DISPLAY PROGRAM-NAME ': STARTING.' - 46 DISPLAY PROGRAM-NAME ': CREATING FIXED SEQ FILE.' - 47 SET EXTFH-OPCODE-ISOPENOUTPUT TO TRUE - 48 > MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH ----- ^^^^^^ - 49 move fcd--version-number TO FCD-VERSION - 50 MOVE fcd--sequential-org TO FCD-ORGANIZATION ->> Error: Invalid syntax - -run_file.at-9643-prog.cob:52.16-52.22: - 49 move fcd--version-number TO FCD-VERSION - 50 MOVE fcd--sequential-org TO FCD-ORGANIZATION - 51 MOVE fcd--open-closed TO FCD-OPEN-MODE - 52 > MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH ----- ^^^^^^ - 53 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 54 move fcd--format-cobol2 to FCD-FILE-FORMAT ->> Error: Invalid syntax - -run_file.at-9643-prog.cob:55.16-55.22: - 52 MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH - 53 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 54 move fcd--format-cobol2 to FCD-FILE-FORMAT - 55 > MOVE LENGTH OF FIX-RECORDAREA TO FCD-MAX-REC-LENGTH ----- ^^^^^^ - 56 MOVE 0 TO FCD-MIN-REC-LENGTH - 57 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FIX-FILENAME ->> Error: Invalid syntax - -run_file.at-9643-prog.cob:100.16-100.22: - 97 SET EXTFH-OPCODE-ISOPENINPUT TO TRUE - 98 MOVE fcd--sequential-org TO FCD-ORGANIZATION - 99 MOVE fcd--open-closed TO FCD-OPEN-MODE - 100 > MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH ----- ^^^^^^ - 101 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 102 move fcd--format-cobol2 to FCD-FILE-FORMAT ->> Error: Invalid syntax - -run_file.at-9643-prog.cob:103.16-103.22: - 100 MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH - 101 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE - 102 move fcd--format-cobol2 to FCD-FILE-FORMAT - 103 > MOVE LENGTH OF FIX-RECORDAREA TO FCD-MAX-REC-LENGTH ----- ^^^^^^ - 104 MOVE 0 TO FCD-MIN-REC-LENGTH - 105 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FIX-FILENAME ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:9824:0 -run_file.at-9824-prog.cob:15.16-15.24: - 12 ALTERNATE RECORD KEY IS CM-TELEPHONE WITH DUPLICATES - 13 ALTERNATE RECORD KEY IS SPLIT-KEY3 - 14 SOURCE IS CM-DISK,CM-DP-MGR,CM-MACHINE WITH DUPLICATES - 15 > SUPPRESS WHEN ALL "*" ----- ^^^^^^^^ - 16 FILE STATUS IS CUST-STAT . - 17 ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:48.50: - 45 - 46 01 CUST-STAT PIC X(2) VALUE SPACES. - 47 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. - 48 > 01 WS-FCD-PTR POINTER VALUE NULL. ----- ^ - 49 - 50 01 ACTION-CODE PIC X(2). ->> Hint: Missing - -run_file.at-9824-prog.cob:48.51-48.55: - 45 - 46 01 CUST-STAT PIC X(2) VALUE SPACES. - 47 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. - 48 > 01 WS-FCD-PTR POINTER VALUE NULL. ----- ^^^^ - 49 - 50 01 ACTION-CODE PIC X(2). ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:51.44-51.45: - 48 01 WS-FCD-PTR POINTER VALUE NULL. - 49 - 50 01 ACTION-CODE PIC X(2). - 51 > 78 OP-OPEN-INPUT VALUE x"fa00". ----- ^ - 52 78 OP-OPEN-OUTPUT VALUE x"fa01". - 53 78 OP-OPEN-I-O VALUE x"fa02". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:52.44-52.45: - 49 - 50 01 ACTION-CODE PIC X(2). - 51 78 OP-OPEN-INPUT VALUE x"fa00". - 52 > 78 OP-OPEN-OUTPUT VALUE x"fa01". ----- ^ - 53 78 OP-OPEN-I-O VALUE x"fa02". - 54 78 OP-WRITE VALUE x"faf3". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:53.44-53.45: - 50 01 ACTION-CODE PIC X(2). - 51 78 OP-OPEN-INPUT VALUE x"fa00". - 52 78 OP-OPEN-OUTPUT VALUE x"fa01". - 53 > 78 OP-OPEN-I-O VALUE x"fa02". ----- ^ - 54 78 OP-WRITE VALUE x"faf3". - 55 78 OP-RELEASE VALUE x"faf3". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:54.44-54.45: - 51 78 OP-OPEN-INPUT VALUE x"fa00". - 52 78 OP-OPEN-OUTPUT VALUE x"fa01". - 53 78 OP-OPEN-I-O VALUE x"fa02". - 54 > 78 OP-WRITE VALUE x"faf3". ----- ^ - 55 78 OP-RELEASE VALUE x"faf3". - 56 78 OP-REWRITE VALUE x"faf4". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:55.44-55.45: - 52 78 OP-OPEN-OUTPUT VALUE x"fa01". - 53 78 OP-OPEN-I-O VALUE x"fa02". - 54 78 OP-WRITE VALUE x"faf3". - 55 > 78 OP-RELEASE VALUE x"faf3". ----- ^ - 56 78 OP-REWRITE VALUE x"faf4". - 57 78 OP-READ-NEXT VALUE x"faf5". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:56.44-56.45: - 53 78 OP-OPEN-I-O VALUE x"fa02". - 54 78 OP-WRITE VALUE x"faf3". - 55 78 OP-RELEASE VALUE x"faf3". - 56 > 78 OP-REWRITE VALUE x"faf4". ----- ^ - 57 78 OP-READ-NEXT VALUE x"faf5". - 58 78 OP-START-EQUAL VALUE x"fae9". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:57.44-57.45: - 54 78 OP-WRITE VALUE x"faf3". - 55 78 OP-RELEASE VALUE x"faf3". - 56 78 OP-REWRITE VALUE x"faf4". - 57 > 78 OP-READ-NEXT VALUE x"faf5". ----- ^ - 58 78 OP-START-EQUAL VALUE x"fae9". - 59 78 OP-CLOSE VALUE x"fa80". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:58.44-58.45: - 55 78 OP-RELEASE VALUE x"faf3". - 56 78 OP-REWRITE VALUE x"faf4". - 57 78 OP-READ-NEXT VALUE x"faf5". - 58 > 78 OP-START-EQUAL VALUE x"fae9". ----- ^ - 59 78 OP-CLOSE VALUE x"fa80". - 60 78 OP-QUERY-FILE VALUE x"0006". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:59.44-59.45: - 56 78 OP-REWRITE VALUE x"faf4". - 57 78 OP-READ-NEXT VALUE x"faf5". - 58 78 OP-START-EQUAL VALUE x"fae9". - 59 > 78 OP-CLOSE VALUE x"fa80". ----- ^ - 60 78 OP-QUERY-FILE VALUE x"0006". - 61 ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:60.44-60.45: - 57 78 OP-READ-NEXT VALUE x"faf5". - 58 78 OP-START-EQUAL VALUE x"fae9". - 59 78 OP-CLOSE VALUE x"fa80". - 60 > 78 OP-QUERY-FILE VALUE x"0006". ----- ^ - 61 - 62 01 FCD-FILENAME PIC X(80) value "testisam". ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:66.11-66.30: - 63 01 FCD-RECORD PIC X(512) VALUE SPACES. - 64 - 65 01 FCD-MAP. - 66 > COPY 'xfhfcd3.cpy'. ----- ^^^^^^^^^^^^^^^^^^^ - 67 - 68 01 KEY-DEF. ->> Error: Library `xfhfcd3.cpy' not found in search path (search path: ) - -run_file.at-9824-prog.cob:93.17-93.21: - 90 *----------------------------------------------------------------* - 91 000-MAIN. - 92 - 93 > DELETE FILE TSPFILE. ----- ^^^^ - 94 OPEN OUTPUT TSPFILE. - 95 WRITE TSPFL-RECORD. ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:101.15-101.21: - 98 SET FCD-KEY-DEF-ADDRESS TO ADDRESS OF KEY-DEF. - 99 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FCD-FILENAME. - 100 MOVE 64 TO FCD-NAME-LENGTH - 101 > MOVE LENGTH OF KEY-DEF TO KDB-LEN. ----- ^^^^^^ - 102 SET FCD-RECORD-ADDRESS TO ADDRESS OF FCD-RECORD. - 103 MOVE 512 TO FCD-CURRENT-REC-LEN ->> Error: Invalid syntax - -run_file.at-9824-prog.cob:130.37-130.43: - 127 " Len: " key-len - 128 " Desc: " key-desc - 129 " Type: " key-type - 130 > SET WS-FCD-PTR UP BY LENGTH OF key-inf ----- ^^^^^^ - 131 SET ADDRESS OF key-inf TO WS-FCD-PTR - 132 END-PERFORM ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:10153:0 -run_file.at-10153-prog.cob:86.11-86.23: - 83 78 UNLOCK-RECORD VALUE X'0F'. - 84 - 85 01 FCD-AREA. - 86 > COPY xfhfcd. ----- ^^^^^^^^^^^^ - 87 - 88 01 FILE-NAME PIC X(64). ->> Error: Library `XFHFCD' not found in search path (search path: ) - -run_file.at-10153-prog.cob:155.16-155.22: - 152 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME - 153 SET FCD-KEY-DEF-ADDRESS TO ADDRESS OF KEY-DEF-AREA - 154 MOVE 16 TO FCD-FS-FLAGS - 155 > MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN ----- ^^^^^^ - 156 MOVE 1 TO NUMBER-OF-KEYS - 157 MOVE LENGTH OF PRIME-KEY TO COMPONENT-LENGTH ->> Error: Invalid syntax - -run_file.at-10153-prog.cob:157.16-157.22: - 154 MOVE 16 TO FCD-FS-FLAGS - 155 MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN - 156 MOVE 1 TO NUMBER-OF-KEYS - 157 > MOVE LENGTH OF PRIME-KEY TO COMPONENT-LENGTH ----- ^^^^^^ - 158 MOVE 8 TO FCD-ACCESS-MODE - 159 MOVE 0 TO FCD-LOCK-MODE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:10152:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:10488:0 -run_file.at-10488-prog.cob:97.11-97.23: - 94 78 ADD-KEY-VALUE VALUE X'09'. - 95 78 UNLOCK-RECORD VALUE X'0F'. - 96 01 FCD-AREA. - 97 > COPY xfhfcd. ----- ^^^^^^^^^^^^ - 98 - 99 01 RECORD-AREA. ->> Error: Library `XFHFCD' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:10488:0 -run_file.at-10488-progs.cob:2.7-2.19: - 1 - 2 > $SET ODOSLIDE ----- ^^^^^^^^^^^^ - 3 ** CREATE KEY-DEF-AREA FROM ACB ARRAY - 4 IDENTIFICATION DIVISION. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:10676:0 -run_file.at-10676-prog.cob:86.12-86.24: - 83 78 UNLOCK-RECORD VALUE X'0F'. - 84 - 85 01 FCD-AREA. - 86 > COPY xfhfcd. ----- ^^^^^^^^^^^^ - 87 - 88 01 RECORD-AREA. ->> Error: Library `XFHFCD' not found in search path (search path: ) - -run_file.at-10676-prog.cob:134.16-134.22: - 131 ** FIXED(0) OR VARIABLE(1) - 132 MOVE 0 TO FCD-RECORDING-MODE - 133 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME - 134 > MOVE LENGTH OF RECORD-AREA TO FCD-MIN-REC-LENGTH ----- ^^^^^^ - 135 MOVE LENGTH OF RECORD-AREA TO FCD-MAX-REC-LENGTH - 136 MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN ->> Error: Invalid syntax - -run_file.at-10676-prog.cob:135.16-135.22: - 132 MOVE 0 TO FCD-RECORDING-MODE - 133 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME - 134 MOVE LENGTH OF RECORD-AREA TO FCD-MIN-REC-LENGTH - 135 > MOVE LENGTH OF RECORD-AREA TO FCD-MAX-REC-LENGTH ----- ^^^^^^ - 136 MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN - 137 PERFORM A-200-CALL-EXTFH. ->> Error: Invalid syntax - -run_file.at-10676-prog.cob:136.16-136.22: - 133 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME - 134 MOVE LENGTH OF RECORD-AREA TO FCD-MIN-REC-LENGTH - 135 MOVE LENGTH OF RECORD-AREA TO FCD-MAX-REC-LENGTH - 136 > MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN ----- ^^^^^^ - 137 PERFORM A-200-CALL-EXTFH. - 138 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:10835:0 -run_file.at-10835-prog.cob:45.11-45.30: - 42 78 OP-CLOSE VALUE X"fa80". - 43 - 44 01 FCD. - 45 > COPY "xfhfcd3.cpy". ----- ^^^^^^^^^^^^^^^^^^^ - 46 01 EX-FILENAME PIC X(260). - 47 01 EX-RECORD-BUFFER PIC X(32767). ->> Error: Library `xfhfcd3.cpy' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:11193:0 -run_file.at-11193-prog.cob:15.50: - 12 01 I PIC XX COMP-X. - 13 - 14 01 WS-FCD-DDNAME PIC X(10) VALUE SPACES. - 15 > 01 WS-FCD-PTR POINTER VALUE NULL. ----- ^ - 16 - 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. ->> Hint: Missing - -run_file.at-11193-prog.cob:15.51-15.55: - 12 01 I PIC XX COMP-X. - 13 - 14 01 WS-FCD-DDNAME PIC X(10) VALUE SPACES. - 15 > 01 WS-FCD-PTR POINTER VALUE NULL. ----- ^^^^ - 16 - 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:25.44-25.45: - 22 05 DISPLAY-ZZ9 REDEFINES DISPLAY-XXX - 23 PIC ZZ9. - 24 01 ACTION-CODE pic x(2). - 25 > 78 OP-OPEN-INPUT value x"fa00". ----- ^ - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 78 OP-OPEN-I-O value x"fa02". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:26.44-26.45: - 23 PIC ZZ9. - 24 01 ACTION-CODE pic x(2). - 25 78 OP-OPEN-INPUT value x"fa00". - 26 > 78 OP-OPEN-OUTPUT value x"fa01". ----- ^ - 27 78 OP-OPEN-I-O value x"fa02". - 28 78 OP-WRITE value x"faf3". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:27.44-27.45: - 24 01 ACTION-CODE pic x(2). - 25 78 OP-OPEN-INPUT value x"fa00". - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 > 78 OP-OPEN-I-O value x"fa02". ----- ^ - 28 78 OP-WRITE value x"faf3". - 29 78 OP-RELEASE value x"faf3". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:28.44-28.45: - 25 78 OP-OPEN-INPUT value x"fa00". - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 78 OP-OPEN-I-O value x"fa02". - 28 > 78 OP-WRITE value x"faf3". ----- ^ - 29 78 OP-RELEASE value x"faf3". - 30 78 OP-REWRITE value x"faf4". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:29.44-29.45: - 26 78 OP-OPEN-OUTPUT value x"fa01". - 27 78 OP-OPEN-I-O value x"fa02". - 28 78 OP-WRITE value x"faf3". - 29 > 78 OP-RELEASE value x"faf3". ----- ^ - 30 78 OP-REWRITE value x"faf4". - 31 78 OP-READ-NEXT value x"faf5". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:30.44-30.45: - 27 78 OP-OPEN-I-O value x"fa02". - 28 78 OP-WRITE value x"faf3". - 29 78 OP-RELEASE value x"faf3". - 30 > 78 OP-REWRITE value x"faf4". ----- ^ - 31 78 OP-READ-NEXT value x"faf5". - 32 78 OP-START-EQUAL value x"fae9". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:31.44-31.45: - 28 78 OP-WRITE value x"faf3". - 29 78 OP-RELEASE value x"faf3". - 30 78 OP-REWRITE value x"faf4". - 31 > 78 OP-READ-NEXT value x"faf5". ----- ^ - 32 78 OP-START-EQUAL value x"fae9". - 33 78 OP-CLOSE value x"fa80". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:32.44-32.45: - 29 78 OP-RELEASE value x"faf3". - 30 78 OP-REWRITE value x"faf4". - 31 78 OP-READ-NEXT value x"faf5". - 32 > 78 OP-START-EQUAL value x"fae9". ----- ^ - 33 78 OP-CLOSE value x"fa80". - 34 78 OP-QUERY-FILE value x"0006". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:33.44-33.45: - 30 78 OP-REWRITE value x"faf4". - 31 78 OP-READ-NEXT value x"faf5". - 32 78 OP-START-EQUAL value x"fae9". - 33 > 78 OP-CLOSE value x"fa80". ----- ^ - 34 78 OP-QUERY-FILE value x"0006". - 35 ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:34.44-34.45: - 31 78 OP-READ-NEXT value x"faf5". - 32 78 OP-START-EQUAL value x"fae9". - 33 78 OP-CLOSE value x"fa80". - 34 > 78 OP-QUERY-FILE value x"0006". ----- ^ - 35 - 36 01 DISPLAY-A1-XXX PIC X(03). ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:72.52-72.53: - 69 78 fcd--dup-prime-access value 1. - 70 78 fcd--random-access value 4. - 71 78 fcd--dynamic-access value 8. - 72 > 78 fcd--status-defined value h"80". ----- ^ - 73 05 FCD-OPEN-MODE PIC 9(2) COMP-X. - 74 78 fcd--open-input value 0. ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:88.52-88.53: - 85 05 FCD-TRANS-LOG PIC 9(2) COMP-X. - 86 05 FILLER PIC X(1). - 87 05 FCD-LOCK-MODE PIC 9(2) COMP-X. - 88 > 78 fcd--multilock-bit value h"80". ----- ^ - 89 78 fcd--writelock-bit value h"40". - 90 78 fcd--retry-open-bit value h"20". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:89.52-89.53: - 86 05 FILLER PIC X(1). - 87 05 FCD-LOCK-MODE PIC 9(2) COMP-X. - 88 78 fcd--multilock-bit value h"80". - 89 > 78 fcd--writelock-bit value h"40". ----- ^ - 90 78 fcd--retry-open-bit value h"20". - 91 78 fcd--skip-lock-bit value h"10". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:90.52-90.53: - 87 05 FCD-LOCK-MODE PIC 9(2) COMP-X. - 88 78 fcd--multilock-bit value h"80". - 89 78 fcd--writelock-bit value h"40". - 90 > 78 fcd--retry-open-bit value h"20". ----- ^ - 91 78 fcd--skip-lock-bit value h"10". - 92 78 fcd--retry-lock-bit value h"08". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:91.52-91.53: - 88 78 fcd--multilock-bit value h"80". - 89 78 fcd--writelock-bit value h"40". - 90 78 fcd--retry-open-bit value h"20". - 91 > 78 fcd--skip-lock-bit value h"10". ----- ^ - 92 78 fcd--retry-lock-bit value h"08". - 93 78 fcd--manual-lock-bit value h"04". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:92.52-92.53: - 89 78 fcd--writelock-bit value h"40". - 90 78 fcd--retry-open-bit value h"20". - 91 78 fcd--skip-lock-bit value h"10". - 92 > 78 fcd--retry-lock-bit value h"08". ----- ^ - 93 78 fcd--manual-lock-bit value h"04". - 94 78 fcd--auto-lock-bit value h"02". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:93.52-93.53: - 90 78 fcd--retry-open-bit value h"20". - 91 78 fcd--skip-lock-bit value h"10". - 92 78 fcd--retry-lock-bit value h"08". - 93 > 78 fcd--manual-lock-bit value h"04". ----- ^ - 94 78 fcd--auto-lock-bit value h"02". - 95 78 fcd--exclusive-bit value h"01". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:94.52-94.53: - 91 78 fcd--skip-lock-bit value h"10". - 92 78 fcd--retry-lock-bit value h"08". - 93 78 fcd--manual-lock-bit value h"04". - 94 > 78 fcd--auto-lock-bit value h"02". ----- ^ - 95 78 fcd--exclusive-bit value h"01". - 96 78 fcd--sharing-bits ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:95.52-95.53: - 92 78 fcd--retry-lock-bit value h"08". - 93 78 fcd--manual-lock-bit value h"04". - 94 78 fcd--auto-lock-bit value h"02". - 95 > 78 fcd--exclusive-bit value h"01". ----- ^ - 96 78 fcd--sharing-bits - 97 value fcd--manual-lock-bit + fcd--auto-lock-bit. ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:97.18: - 94 78 fcd--auto-lock-bit value h"02". - 95 78 fcd--exclusive-bit value h"01". - 96 78 fcd--sharing-bits - 97 > value fcd--manual-lock-bit + fcd--auto-lock-bit. ----- ^ - 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. - 99 78 fcd--optional-file value h"80". ->> Hint: Missing - -run_file.at-11193-prog.cob:97.19-97.39: - 94 78 fcd--auto-lock-bit value h"02". - 95 78 fcd--exclusive-bit value h"01". - 96 78 fcd--sharing-bits - 97 > value fcd--manual-lock-bit + fcd--auto-lock-bit. ----- ^^^^^^^^^^^^^^^^^^^^ - 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. - 99 78 fcd--optional-file value h"80". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:99.52-99.53: - 96 78 fcd--sharing-bits - 97 value fcd--manual-lock-bit + fcd--auto-lock-bit. - 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. - 99 > 78 fcd--optional-file value h"80". ----- ^ - 100 78 fcd--nodetectlock-input value h"40". - 101 78 fcd--not-optional value h"20". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:100.52-100.53: - 97 value fcd--manual-lock-bit + fcd--auto-lock-bit. - 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. - 99 78 fcd--optional-file value h"80". - 100 > 78 fcd--nodetectlock-input value h"40". ----- ^ - 101 78 fcd--not-optional value h"20". - 102 78 fcd--external-name value h"10". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:101.52-101.53: - 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. - 99 78 fcd--optional-file value h"80". - 100 78 fcd--nodetectlock-input value h"40". - 101 > 78 fcd--not-optional value h"20". ----- ^ - 102 78 fcd--external-name value h"10". - 103 78 fcd--get-info value h"08". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:102.52-102.53: - 99 78 fcd--optional-file value h"80". - 100 78 fcd--nodetectlock-input value h"40". - 101 78 fcd--not-optional value h"20". - 102 > 78 fcd--external-name value h"10". ----- ^ - 103 78 fcd--get-info value h"08". - 104 78 fcd--nodetectlock value h"04". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:103.52-103.53: - 100 78 fcd--nodetectlock-input value h"40". - 101 78 fcd--not-optional value h"20". - 102 78 fcd--external-name value h"10". - 103 > 78 fcd--get-info value h"08". ----- ^ - 104 78 fcd--nodetectlock value h"04". - 105 78 fcd--multiple-reel value h"02". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:104.52-104.53: - 101 78 fcd--not-optional value h"20". - 102 78 fcd--external-name value h"10". - 103 78 fcd--get-info value h"08". - 104 > 78 fcd--nodetectlock value h"04". ----- ^ - 105 78 fcd--multiple-reel value h"02". - 106 78 fcd--line-advancing value h"01". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:105.52-105.53: - 102 78 fcd--external-name value h"10". - 103 78 fcd--get-info value h"08". - 104 78 fcd--nodetectlock value h"04". - 105 > 78 fcd--multiple-reel value h"02". ----- ^ - 106 78 fcd--line-advancing value h"01". - 107 78 fcd--special-sequential ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:106.52-106.53: - 103 78 fcd--get-info value h"08". - 104 78 fcd--nodetectlock value h"04". - 105 78 fcd--multiple-reel value h"02". - 106 > 78 fcd--line-advancing value h"01". ----- ^ - 107 78 fcd--special-sequential - 108 value fcd--optional-file ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:108.18: - 105 78 fcd--multiple-reel value h"02". - 106 78 fcd--line-advancing value h"01". - 107 78 fcd--special-sequential - 108 > value fcd--optional-file ----- ^ - 109 + fcd--multiple-reel + fcd--line-advancing. - 110 05 FILLER PIC X(2). ->> Hint: Missing - -run_file.at-11193-prog.cob:108.19-108.37: - 105 78 fcd--multiple-reel value h"02". - 106 78 fcd--line-advancing value h"01". - 107 78 fcd--special-sequential - 108 > value fcd--optional-file ----- ^^^^^^^^^^^^^^^^^^ - 109 + fcd--multiple-reel + fcd--line-advancing. - 110 05 FILLER PIC X(2). ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:153.52-153.53: - 150 05 FCD-ADDITIONAL-STATUS REDEFINES FCD-BLOCKING - 151 PIC X COMP-X. - 152 05 FCD-LOCKTYPES PIC 99 COMP-X. - 153 > 78 fcd--interlang-locking value h"80". ----- ^ - 154 78 fcd--allow-readers value h"40". - 155 78 fcd--separate-lock-file value h"20". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:154.52-154.53: - 151 PIC X COMP-X. - 152 05 FCD-LOCKTYPES PIC 99 COMP-X. - 153 78 fcd--interlang-locking value h"80". - 154 > 78 fcd--allow-readers value h"40". ----- ^ - 155 78 fcd--separate-lock-file value h"20". - 156 78 fcd--single-open value h"10". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:155.52-155.53: - 152 05 FCD-LOCKTYPES PIC 99 COMP-X. - 153 78 fcd--interlang-locking value h"80". - 154 78 fcd--allow-readers value h"40". - 155 > 78 fcd--separate-lock-file value h"20". ----- ^ - 156 78 fcd--single-open value h"10". - 157 78 fcd--nfs-file-lock value h"08". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:156.52-156.53: - 153 78 fcd--interlang-locking value h"80". - 154 78 fcd--allow-readers value h"40". - 155 78 fcd--separate-lock-file value h"20". - 156 > 78 fcd--single-open value h"10". ----- ^ - 157 78 fcd--nfs-file-lock value h"08". - 158 78 fcd--nfs-file-lock-hp value h"04". ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:157.52-157.53: - 154 78 fcd--allow-readers value h"40". - 155 78 fcd--separate-lock-file value h"20". - 156 78 fcd--single-open value h"10". - 157 > 78 fcd--nfs-file-lock value h"08". ----- ^ - 158 78 fcd--nfs-file-lock-hp value h"04". - 159 78 fcd--nfs-file-locks ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:158.52-158.53: - 155 78 fcd--separate-lock-file value h"20". - 156 78 fcd--single-open value h"10". - 157 78 fcd--nfs-file-lock value h"08". - 158 > 78 fcd--nfs-file-lock-hp value h"04". ----- ^ - 159 78 fcd--nfs-file-locks - 160 value fcd--nfs-file-lock + fcd--nfs-file-lock-hp. ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:160.18: - 157 78 fcd--nfs-file-lock value h"08". - 158 78 fcd--nfs-file-lock-hp value h"04". - 159 78 fcd--nfs-file-locks - 160 > value fcd--nfs-file-lock + fcd--nfs-file-lock-hp. ----- ^ - 161 05 FCD-FS-FLAGS PIC 99 COMP-X. - 162 05 FCD-CONFIG-FLAGS PIC 99 COMP-X. ->> Hint: Missing - -run_file.at-11193-prog.cob:160.19-160.37: - 157 78 fcd--nfs-file-lock value h"08". - 158 78 fcd--nfs-file-lock-hp value h"04". - 159 78 fcd--nfs-file-locks - 160 > value fcd--nfs-file-lock + fcd--nfs-file-lock-hp. ----- ^^^^^^^^^^^^^^^^^^ - 161 05 FCD-FS-FLAGS PIC 99 COMP-X. - 162 05 FCD-CONFIG-FLAGS PIC 99 COMP-X. ->> Error: Invalid syntax - -run_file.at-11193-prog.cob:212.15-212.21: - 209 - 210 MOVE "TESTOUT" TO WS-FCD-DDNAME - 211 - 212 > MOVE LENGTH OF FCD-MAP TO WS-FCD-SIZE ----- ^^^^^^ - 213 DISPLAY "FCD SIZE " WS-FCD-SIZE '.'. - 214 DISPLAY "Writing " WS-FCD-DDNAME '.'. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:11230:0 -run_file.at-11230-reference:3.6-3.7: - 1 1 - 2 2 - 3 > 3 Have a great day ----- ^ - 4 4 - 5 5 Have a great day ->> Error: Unexpected indicator: `v' - -run_file.at-11230-reference:5.6-5.7: - 2 2 - 3 3 Have a great day - 4 4 - 5 > 5 Have a great day ----- ^ - 6 6 - 7 7 ->> Error: Unexpected indicator: `v' - -run_file.at-11230-reference:8.6-8.7: - 5 5 Have a great day - 6 6 - 7 7 - 8 > 8 Enjoy the show ----- ^ - 9 9 - 10 10 ->> Error: Unexpected indicator: `j' - -run_file.at-11230-reference:3.7-3.8: - 1 1 - 2 2 - 3 > 3 Have a great day ----- ^ - 4 4 - 5 5 Have a great day ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:11443:0 -run_file.at-11443-prog.cob:9.34-9.42: - 6 - 7 INPUT-OUTPUT SECTION. - 8 FILE-CONTROL. - 9 > SELECT FLATFILE ASSIGN EXTERNAL RELVAR ----- ^^^^^^^^ - 10 ORGANIZATION RELATIVE - 11 ACCESS IS SEQUENTIAL ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-11443-prog.cob:57.54: - 54 05 FILLER PIC X(8) VALUE "FOR00000". - 55 - 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 57 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 58 02 DATA-COMPANY-TBL. - 59 ->> Hint: Missing - -run_file.at-11443-prog.cob:57.55-57.62: - 54 05 FILLER PIC X(8) VALUE "FOR00000". - 55 - 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 57 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 58 02 DATA-COMPANY-TBL. - 59 ->> Error: Invalid syntax - -run_file.at-11443-prog.cob:67.55: - 64 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". - 65 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 67 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 68 02 DATA-ADDRESS-2-TBL. - 69 ->> Hint: Missing - -run_file.at-11443-prog.cob:67.56-67.63: - 64 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". - 65 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 67 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 68 02 DATA-ADDRESS-2-TBL. - 69 ->> Error: Invalid syntax - -run_file.at-11443-prog.cob:78.55: - 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 76 - 77 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 78 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 79 - 80 02 DATA-NO-TERMINALS-TBL. ->> Hint: Missing - -run_file.at-11443-prog.cob:78.56-78.63: - 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 76 - 77 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 78 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 79 - 80 02 DATA-NO-TERMINALS-TBL. ->> Error: Invalid syntax - -run_file.at-11443-prog.cob:90.61: - 87 05 FILLER PIC 9(3) COMP-3 VALUE 254. - 88 - 89 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 90 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^ - 91 01 WORK-AREA. - 92 05 SUB BINARY-SHORT UNSIGNED. ->> Hint: Missing - -run_file.at-11443-prog.cob:90.62-90.69: - 87 05 FILLER PIC 9(3) COMP-3 VALUE 254. - 88 - 89 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 90 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^^^^^^^ - 91 01 WORK-AREA. - 92 05 SUB BINARY-SHORT UNSIGNED. ->> Error: Invalid syntax - -run_file.at-11443-prog.cob:150.19: - 147 PERFORM READ-RECORD - 148 END-PERFORM. - 149 CLOSE FLATFILE. - 150 > STOP RUN RETURNING 0. ----- ^ - 151 - 152 LOADFILE. ->> Hint: Missing . - -run_file.at-11443-prog.cob:150.20-150.29: - 147 PERFORM READ-RECORD - 148 END-PERFORM. - 149 CLOSE FLATFILE. - 150 > STOP RUN RETURNING 0. ----- ^^^^^^^^^ - 151 - 152 LOADFILE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:12161:0 -run_file.at-12161-prog.cob:12.21-12.29: - 9 INPUT-OUTPUT SECTION. - 10 FILE-CONTROL. - 11 SELECT TSPFILE - 12 > ASSIGN TO EXTERNAL TSPFILE ----- ^^^^^^^^ - 13 ORGANIZATION INDEXED ACCESS DYNAMIC - 14 RECORD KEY IS CM-CUST-NUM ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-12161-prog.cob:84.54: - 81 05 FILLER PIC X(8) VALUE "PRE00000". - 82 - 83 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 84 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 85 02 DATA-COMPANY-TBL. - 86 ->> Hint: Missing - -run_file.at-12161-prog.cob:84.55-84.62: - 81 05 FILLER PIC X(8) VALUE "PRE00000". - 82 - 83 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 84 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 85 02 DATA-COMPANY-TBL. - 86 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:105.55: - 102 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 103 - 104 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 105 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 106 02 DATA-ADDRESS-1-TBL. - 107 ->> Hint: Missing - -run_file.at-12161-prog.cob:105.56-105.63: - 102 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". - 103 - 104 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 105 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 106 02 DATA-ADDRESS-1-TBL. - 107 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:126.55: - 123 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 124 - 125 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 126 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 127 02 DATA-ADDRESS-2-TBL. - 128 ->> Hint: Missing - -run_file.at-12161-prog.cob:126.56-126.63: - 123 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". - 124 - 125 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL - 126 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 127 02 DATA-ADDRESS-2-TBL. - 128 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:147.55: - 144 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 145 - 146 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 147 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 148 02 DATA-ADDRESS-3-TBL. - 149 ->> Hint: Missing - -run_file.at-12161-prog.cob:147.56-147.63: - 144 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 145 - 146 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL - 147 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 148 02 DATA-ADDRESS-3-TBL. - 149 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:168.55: - 165 05 FILLER PIC X(10) VALUE "N.Y. ". - 166 - 167 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 168 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 169 02 DATA-TELEPHONE-TBL. - 170 ->> Hint: Missing - -run_file.at-12161-prog.cob:168.56-168.63: - 165 05 FILLER PIC X(10) VALUE "N.Y. ". - 166 - 167 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL - 168 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 169 02 DATA-TELEPHONE-TBL. - 170 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:189.55: - 186 05 FILLER PIC 9(10) VALUE 4169898509. - 187 - 188 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 189 > PIC 9(10) OCCURS MAX-SUB. ----- ^ - 190 02 DATA-DP-MGR-TBL. - 191 ->> Hint: Missing - -run_file.at-12161-prog.cob:189.56-189.63: - 186 05 FILLER PIC 9(10) VALUE 4169898509. - 187 - 188 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL - 189 > PIC 9(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 190 02 DATA-DP-MGR-TBL. - 191 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:210.55: - 207 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 208 - 209 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 210 > PIC X(20) OCCURS MAX-SUB. ----- ^ - 211 02 DATA-MACHINE-TBL. - 212 ->> Hint: Missing - -run_file.at-12161-prog.cob:210.56-210.63: - 207 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". - 208 - 209 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL - 210 > PIC X(20) OCCURS MAX-SUB. ----- ^^^^^^^ - 211 02 DATA-MACHINE-TBL. - 212 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:231.54: - 228 05 FILLER PIC X(8) VALUE "UNI-9040". - 229 - 230 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 231 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 232 02 DATA-NO-TERMINALS-TBL. - 233 ->> Hint: Missing - -run_file.at-12161-prog.cob:231.55-231.62: - 228 05 FILLER PIC X(8) VALUE "UNI-9040". - 229 - 230 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL - 231 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 232 02 DATA-NO-TERMINALS-TBL. - 233 ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:252.61: - 249 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 250 - 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 252 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^ - 253 - 254 78 REC-MAX VALUE MAX-SUB. ->> Hint: Missing - -run_file.at-12161-prog.cob:252.62-252.69: - 249 05 FILLER PIC 9(3) COMP-3 VALUE 86. - 250 - 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 252 > PIC 9(3) COMP-3 OCCURS MAX-SUB. ----- ^^^^^^^ - 253 - 254 78 REC-MAX VALUE MAX-SUB. ->> Error: Invalid syntax - -run_file.at-12161-prog.cob:254.43: - 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 252 PIC 9(3) COMP-3 OCCURS MAX-SUB. - 253 - 254 > 78 REC-MAX VALUE MAX-SUB. ----- ^ - 255 01 WORK-AREA. - 256 05 REC-NUM BINARY-SHORT UNSIGNED VALUE 0. ->> Hint: Missing - -run_file.at-12161-prog.cob:254.44-254.51: - 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 252 PIC 9(3) COMP-3 OCCURS MAX-SUB. - 253 - 254 > 78 REC-MAX VALUE MAX-SUB. ----- ^^^^^^^ - 255 01 WORK-AREA. - 256 05 REC-NUM BINARY-SHORT UNSIGNED VALUE 0. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:12281:0 -run_file.at-12281-reference:1.6-1.7: - 1 > Loading sample data file. ----- ^ - 2 Sample data file load complete. - 3 List sample data file ->> Error: Unexpected indicator: `g' - -run_file.at-12281-reference:3.6-3.7: - 1 Loading sample data file. - 2 Sample data file load complete. - 3 > List sample data file ----- ^ - 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . - 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ->> Error: Unexpected indicator: `a' - -run_file.at-12281-reference:4.6-4.7: - 1 Loading sample data file. - 2 Sample data file load complete. - 3 List sample data file - 4 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . ----- ^ - 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. ->> Error: Unexpected indicator: `L' - -run_file.at-12281-reference:5.6-5.7: - 2 Sample data file load complete. - 3 List sample data file - 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . - 5 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . ----- ^ - 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. ->> Error: Unexpected indicator: `E' - -run_file.at-12281-reference:6.6-6.7: - 3 List sample data file - 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . - 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 6 > Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. ----- ^ - 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . ->> Error: Unexpected indicator: `E' - -run_file.at-12281-reference:7.6-7.7: - 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . - 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 7 > Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. ----- ^ - 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . - 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ->> Error: Unexpected indicator: `P' - -run_file.at-12281-reference:8.6-8.7: - 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . - 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 8 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . ----- ^ - 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ->> Error: Unexpected indicator: `O' - -run_file.at-12281-reference:9.6-9.7: - 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. - 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . - 9 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . ----- ^ - 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. ->> Error: Unexpected indicator: `A' - -run_file.at-12281-reference:10.6-10.7: - 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. - 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . - 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 10 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . ----- ^ - 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ->> Error: Unexpected indicator: `I' - -run_file.at-12281-reference:11.6-11.7: - 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . - 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 11 > Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. ----- ^ - 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ->> Error: Unexpected indicator: `&' - -run_file.at-12281-reference:12.6-12.7: - 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . - 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 12 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . ----- ^ - 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ->> Error: Unexpected indicator: `N' - -run_file.at-12281-reference:13.6-13.7: - 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . - 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 13 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . ----- ^ - 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. ->> Error: Unexpected indicator: `O' - -run_file.at-12281-reference:14.6-14.7: - 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. - 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 14 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . ----- ^ - 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ->> Error: Unexpected indicator: `O' - -run_file.at-12281-reference:15.6-15.7: - 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . - 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 15 > Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. ----- ^ - 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. ->> Error: Unexpected indicator: `E' - -run_file.at-12281-reference:16.6-16.7: - 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . - 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 16 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . ----- ^ - 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ->> Error: Unexpected indicator: `O' - -run_file.at-12281-reference:17.6-17.7: - 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . - 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 17 > Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. ----- ^ - 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . ->> Error: Unexpected indicator: `E' - -run_file.at-12281-reference:18.6-18.7: - 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. - 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 18 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . ----- ^ - 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 20 Hit End of File ->> Error: Unexpected indicator: `L' - -run_file.at-12281-reference:19.6-19.7: - 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . - 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. - 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 19 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . ----- ^ - 20 Hit End of File - 21 List sample data file by Phone ->> Error: Unexpected indicator: `R' - -run_file.at-12281-reference:21.6-21.7: - 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . - 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 20 Hit End of File - 21 > List sample data file by Phone ----- ^ - 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . ->> Error: Unexpected indicator: `a' - -run_file.at-12281-reference:22.6-22.7: - 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . - 20 Hit End of File - 21 List sample data file by Phone - 22 > Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. ----- ^ - 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . ->> Error: Unexpected indicator: `1' - -run_file.at-12281-reference:23.6-23.7: - 20 Hit End of File - 21 List sample data file by Phone - 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 23 > Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . ----- ^ - 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . ->> Error: Unexpected indicator: `5' - -run_file.at-12281-reference:24.6-24.7: - 21 List sample data file by Phone - 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 24 > Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . ----- ^ - 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:25.6-25.7: - 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 25 > Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . ----- ^ - 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:26.6-26.7: - 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 26 > Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . ----- ^ - 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:27.6-27.7: - 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 27 > Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. ----- ^ - 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:28.6-28.7: - 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 28 > Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . ----- ^ - 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ->> Error: Unexpected indicator: `2' - -run_file.at-12281-reference:29.6-29.7: - 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 29 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ----- ^ - 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:30.6-30.7: - 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 30 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ----- ^ - 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:31.6-31.7: - 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 31 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ----- ^ - 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:32.6-32.7: - 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 32 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ----- ^ - 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:33.6-33.7: - 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 33 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ----- ^ - 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:34.6-34.7: - 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 34 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ----- ^ - 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:35.6-35.7: - 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 35 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ----- ^ - 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:36.6-36.7: - 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 36 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ----- ^ - 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 38 Hit End of File ->> Error: Unexpected indicator: `2' - -run_file.at-12281-reference:37.6-37.7: - 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 37 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ----- ^ - 38 Hit End of File - 39 Test Read/Delete ->> Error: Unexpected indicator: `7' - -run_file.at-12281-reference:39.6-39.7: - 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 38 Hit End of File - 39 > Test Read/Delete ----- ^ - 40 Delete: INC00000 random - 41 Delete: ALP00000 random ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:40.6-40.7: - 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 38 Hit End of File - 39 Test Read/Delete - 40 > Delete: INC00000 random ----- ^ - 41 Delete: ALP00000 random - 42 Read: BET00000 4169898509 ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:41.6-41.7: - 38 Hit End of File - 39 Test Read/Delete - 40 Delete: INC00000 random - 41 > Delete: ALP00000 random ----- ^ - 42 Read: BET00000 4169898509 - 43 Delete: PRE00000 random ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:43.6-43.7: - 40 Delete: INC00000 random - 41 Delete: ALP00000 random - 42 Read: BET00000 4169898509 - 43 > Delete: PRE00000 random ----- ^ - 44 Expected 10 after delete PRE00000 - 45 Initial: BET00000 4169898509 ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:44.6-44.7: - 41 Delete: ALP00000 random - 42 Read: BET00000 4169898509 - 43 Delete: PRE00000 random - 44 > Expected 10 after delete PRE00000 ----- ^ - 45 Initial: BET00000 4169898509 - 46 Initial: DEL00000 4169898509 ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:45.6-45.7: - 42 Read: BET00000 4169898509 - 43 Delete: PRE00000 random - 44 Expected 10 after delete PRE00000 - 45 > Initial: BET00000 4169898509 ----- ^ - 46 Initial: DEL00000 4169898509 - 47 Initial: MOR00000 4169898509 ->> Error: Unexpected indicator: `l' - -run_file.at-12281-reference:46.6-46.7: - 43 Delete: PRE00000 random - 44 Expected 10 after delete PRE00000 - 45 Initial: BET00000 4169898509 - 46 > Initial: DEL00000 4169898509 ----- ^ - 47 Initial: MOR00000 4169898509 - 48 Initial: EPS00000 5292398745 ->> Error: Unexpected indicator: `l' - -run_file.at-12281-reference:47.6-47.7: - 44 Expected 10 after delete PRE00000 - 45 Initial: BET00000 4169898509 - 46 Initial: DEL00000 4169898509 - 47 > Initial: MOR00000 4169898509 ----- ^ - 48 Initial: EPS00000 5292398745 - 49 Start: BET00000 4169898509 ->> Error: Unexpected indicator: `l' - -run_file.at-12281-reference:48.6-48.7: - 45 Initial: BET00000 4169898509 - 46 Initial: DEL00000 4169898509 - 47 Initial: MOR00000 4169898509 - 48 > Initial: EPS00000 5292398745 ----- ^ - 49 Start: BET00000 4169898509 - 50 Next: DEL00000 4169898509 ->> Error: Unexpected indicator: `l' - -run_file.at-12281-reference:49.6-49.7: - 46 Initial: DEL00000 4169898509 - 47 Initial: MOR00000 4169898509 - 48 Initial: EPS00000 5292398745 - 49 > Start: BET00000 4169898509 ----- ^ - 50 Next: DEL00000 4169898509 - 51 Delete: DEL00000 sequential ->> Error: Unexpected indicator: `t' - -run_file.at-12281-reference:50.6-50.7: - 47 Initial: MOR00000 4169898509 - 48 Initial: EPS00000 5292398745 - 49 Start: BET00000 4169898509 - 50 > Next: DEL00000 4169898509 ----- ^ - 51 Delete: DEL00000 sequential - 52 Next: MOR00000 4169898509 ->> Error: Unexpected indicator: `t' - -run_file.at-12281-reference:51.6-51.7: - 48 Initial: EPS00000 5292398745 - 49 Start: BET00000 4169898509 - 50 Next: DEL00000 4169898509 - 51 > Delete: DEL00000 sequential ----- ^ - 52 Next: MOR00000 4169898509 - 53 Next: EPS00000 5292398745 ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:52.6-52.7: - 49 Start: BET00000 4169898509 - 50 Next: DEL00000 4169898509 - 51 Delete: DEL00000 sequential - 52 > Next: MOR00000 4169898509 ----- ^ - 53 Next: EPS00000 5292398745 - 54 Delete: EPS00000 sequential ->> Error: Unexpected indicator: `t' - -run_file.at-12281-reference:53.6-53.7: - 50 Next: DEL00000 4169898509 - 51 Delete: DEL00000 sequential - 52 Next: MOR00000 4169898509 - 53 > Next: EPS00000 5292398745 ----- ^ - 54 Delete: EPS00000 sequential - 55 List sample data file by Phone ->> Error: Unexpected indicator: `t' - -run_file.at-12281-reference:54.6-54.7: - 51 Delete: DEL00000 sequential - 52 Next: MOR00000 4169898509 - 53 Next: EPS00000 5292398745 - 54 > Delete: EPS00000 sequential ----- ^ - 55 List sample data file by Phone - 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:55.6-55.7: - 52 Next: MOR00000 4169898509 - 53 Next: EPS00000 5292398745 - 54 Delete: EPS00000 sequential - 55 > List sample data file by Phone ----- ^ - 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . ->> Error: Unexpected indicator: `a' - -run_file.at-12281-reference:56.6-56.7: - 53 Next: EPS00000 5292398745 - 54 Delete: EPS00000 sequential - 55 List sample data file by Phone - 56 > Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . ----- ^ - 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:57.6-57.7: - 54 Delete: EPS00000 sequential - 55 List sample data file by Phone - 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 57 > Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . ----- ^ - 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:58.6-58.7: - 55 List sample data file by Phone - 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 58 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ----- ^ - 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:59.6-59.7: - 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 59 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ----- ^ - 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:60.6-60.7: - 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 60 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ----- ^ - 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:61.6-61.7: - 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 61 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ----- ^ - 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:62.6-62.7: - 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 62 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ----- ^ - 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:63.6-63.7: - 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 63 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ----- ^ - 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:64.6-64.7: - 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 64 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ----- ^ - 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:65.6-65.7: - 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 65 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ----- ^ - 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 67 Hit End of File ->> Error: Unexpected indicator: `2' - -run_file.at-12281-reference:66.6-66.7: - 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 66 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ----- ^ - 67 Hit End of File - 68 List sample data file by Phone ->> Error: Unexpected indicator: `7' - -run_file.at-12281-reference:68.6-68.7: - 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 67 Hit End of File - 68 > List sample data file by Phone ----- ^ - 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . ->> Error: Unexpected indicator: `a' - -run_file.at-12281-reference:69.6-69.7: - 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 67 Hit End of File - 68 List sample data file by Phone - 69 > Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. ----- ^ - 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . ->> Error: Unexpected indicator: `1' - -run_file.at-12281-reference:70.6-70.7: - 67 Hit End of File - 68 List sample data file by Phone - 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 70 > Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . ----- ^ - 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . ->> Error: Unexpected indicator: `5' - -run_file.at-12281-reference:71.6-71.7: - 68 List sample data file by Phone - 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 71 > Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . ----- ^ - 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:72.6-72.7: - 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 72 > Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . ----- ^ - 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:73.6-73.7: - 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 73 > Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . ----- ^ - 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:74.6-74.7: - 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . - 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 74 > Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. ----- ^ - 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:75.6-75.7: - 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 75 > Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . ----- ^ - 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ->> Error: Unexpected indicator: `2' - -run_file.at-12281-reference:76.6-76.7: - 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . - 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 76 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ----- ^ - 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:77.6-77.7: - 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 77 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ----- ^ - 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:78.6-78.7: - 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 78 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ----- ^ - 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:79.6-79.7: - 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 79 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ----- ^ - 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:80.6-80.7: - 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 80 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ----- ^ - 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:81.6-81.7: - 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 81 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ----- ^ - 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:82.6-82.7: - 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 82 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ----- ^ - 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:83.6-83.7: - 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 83 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ----- ^ - 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 85 Hit End of File ->> Error: Unexpected indicator: `2' - -run_file.at-12281-reference:84.6-84.7: - 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 84 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ----- ^ - 85 Hit End of File - 86 Read Prev/Delete ->> Error: Unexpected indicator: `7' - -run_file.at-12281-reference:86.6-86.7: - 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 85 Hit End of File - 86 > Read Prev/Delete ----- ^ - 87 00001 Initial: PRE00000 4169898509 - 88 00002 Initial: MOR00000 4169898509 ->> Error: Unexpected indicator: `r' - -run_file.at-12281-reference:87.6-87.7: - 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 85 Hit End of File - 86 Read Prev/Delete - 87 > 00001 Initial: PRE00000 4169898509 ----- ^ - 88 00002 Initial: MOR00000 4169898509 - 89 00003 Initial: DEL00000 4169898509 ->> Error: Unexpected indicator: `I' - -run_file.at-12281-reference:88.6-88.7: - 85 Hit End of File - 86 Read Prev/Delete - 87 00001 Initial: PRE00000 4169898509 - 88 > 00002 Initial: MOR00000 4169898509 ----- ^ - 89 00003 Initial: DEL00000 4169898509 - 90 00004 Initial: BET00000 4169898509 ->> Error: Unexpected indicator: `I' - -run_file.at-12281-reference:89.6-89.7: - 86 Read Prev/Delete - 87 00001 Initial: PRE00000 4169898509 - 88 00002 Initial: MOR00000 4169898509 - 89 > 00003 Initial: DEL00000 4169898509 ----- ^ - 90 00004 Initial: BET00000 4169898509 - 91 Start: PRE00000 4169898509 ->> Error: Unexpected indicator: `I' - -run_file.at-12281-reference:90.6-90.7: - 87 00001 Initial: PRE00000 4169898509 - 88 00002 Initial: MOR00000 4169898509 - 89 00003 Initial: DEL00000 4169898509 - 90 > 00004 Initial: BET00000 4169898509 ----- ^ - 91 Start: PRE00000 4169898509 - 92 Prev: MOR00000 4169898509 ->> Error: Unexpected indicator: `I' - -run_file.at-12281-reference:91.6-91.7: - 88 00002 Initial: MOR00000 4169898509 - 89 00003 Initial: DEL00000 4169898509 - 90 00004 Initial: BET00000 4169898509 - 91 > Start: PRE00000 4169898509 ----- ^ - 92 Prev: MOR00000 4169898509 - 93 Delete: MOR00000 sequential ->> Error: Unexpected indicator: `t' - -run_file.at-12281-reference:92.6-92.7: - 89 00003 Initial: DEL00000 4169898509 - 90 00004 Initial: BET00000 4169898509 - 91 Start: PRE00000 4169898509 - 92 > Prev: MOR00000 4169898509 ----- ^ - 93 Delete: MOR00000 sequential - 94 Prev: DEL00000 4169898509 ->> Error: Unexpected indicator: `v' - -run_file.at-12281-reference:93.6-93.7: - 90 00004 Initial: BET00000 4169898509 - 91 Start: PRE00000 4169898509 - 92 Prev: MOR00000 4169898509 - 93 > Delete: MOR00000 sequential ----- ^ - 94 Prev: DEL00000 4169898509 - 95 Prev: BET00000 4169898509 ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:94.6-94.7: - 91 Start: PRE00000 4169898509 - 92 Prev: MOR00000 4169898509 - 93 Delete: MOR00000 sequential - 94 > Prev: DEL00000 4169898509 ----- ^ - 95 Prev: BET00000 4169898509 - 96 Delete: BET00000 sequential ->> Error: Unexpected indicator: `v' - -run_file.at-12281-reference:95.6-95.7: - 92 Prev: MOR00000 4169898509 - 93 Delete: MOR00000 sequential - 94 Prev: DEL00000 4169898509 - 95 > Prev: BET00000 4169898509 ----- ^ - 96 Delete: BET00000 sequential - 97 List sample data file by Phone ->> Error: Unexpected indicator: `v' - -run_file.at-12281-reference:96.6-96.7: - 93 Delete: MOR00000 sequential - 94 Prev: DEL00000 4169898509 - 95 Prev: BET00000 4169898509 - 96 > Delete: BET00000 sequential ----- ^ - 97 List sample data file by Phone - 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. ->> Error: Unexpected indicator: `e' - -run_file.at-12281-reference:97.6-97.7: - 94 Prev: DEL00000 4169898509 - 95 Prev: BET00000 4169898509 - 96 Delete: BET00000 sequential - 97 > List sample data file by Phone ----- ^ - 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . ->> Error: Unexpected indicator: `a' - -run_file.at-12281-reference:98.6-98.7: - 95 Prev: BET00000 4169898509 - 96 Delete: BET00000 sequential - 97 List sample data file by Phone - 98 > Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. ----- ^ - 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . ->> Error: Unexpected indicator: `1' - -run_file.at-12281-reference:99.6-99.7: - 96 Delete: BET00000 sequential - 97 List sample data file by Phone - 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 99 > Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . ----- ^ - 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. ->> Error: Unexpected indicator: `5' - -run_file.at-12281-reference:100.6-100.7: - 97 List sample data file by Phone - 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 100 > Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . ----- ^ - 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:101.6-101.7: - 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. - 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 101 > Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. ----- ^ - 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:102.6-102.7: - 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . - 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 102 > Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . ----- ^ - 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ->> Error: Unexpected indicator: `2' - -run_file.at-12281-reference:103.6-103.7: - 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . - 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 103 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . ----- ^ - 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:104.6-104.7: - 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. - 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 104 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . ----- ^ - 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:105.6-105.7: - 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . - 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 105 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . ----- ^ - 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:106.6-106.7: - 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . - 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 106 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . ----- ^ - 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:107.6-107.7: - 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . - 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 107 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. ----- ^ - 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ->> Error: Unexpected indicator: `6' - -run_file.at-12281-reference:108.6-108.7: - 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . - 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 108 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . ----- ^ - 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 110 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ->> Error: Unexpected indicator: `4' - -run_file.at-12281-reference:109.6-109.7: - 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . - 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 109 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . ----- ^ - 110 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 111 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ->> Error: Unexpected indicator: `9' - -run_file.at-12281-reference:110.6-110.7: - 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. - 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 110 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . ----- ^ - 111 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . - 112 Hit End of File ->> Error: Unexpected indicator: `2' - -run_file.at-12281-reference:111.6-111.7: - 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . - 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . - 110 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . - 111 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . ----- ^ - 112 Hit End of File ->> Error: Unexpected indicator: `7' - -run_file.at-12281-reference:1.8-1.14: - 1 > Loading sample data file. ----- ^^^^^^ - 2 Sample data file load complete. - 3 List sample data file ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:12369:0 -run_file.at-12369-prog.cob:31.36: - 28 WRITE f-rec FROM "a" - 29 CLOSE f - 30 - 31 > SET LAST EXCEPTION TO OFF ----- ^ - 32 >>TURN EC-I-O CHECKING ON - 33 *> Read f too many times without libcob error ->> Hint: Missing . - -run_file.at-12369-prog.cob:32.11-32.17: - 29 CLOSE f - 30 - 31 SET LAST EXCEPTION TO OFF - 32 > >>TURN EC-I-O CHECKING ON ----- ^^^^^^ - 33 *> Read f too many times without libcob error - 34 OPEN INPUT f ->> Warning: Invalid syntax - -run_file.at-12369-prog.cob:32.24: - 29 CLOSE f - 30 - 31 SET LAST EXCEPTION TO OFF - 32 > >>TURN EC-I-O CHECKING ON ----- ^ - 33 *> Read f too many times without libcob error - 34 OPEN INPUT f ->> Hint: Missing . - -run_file.at-12369-prog.cob:32.25-32.33: - 29 CLOSE f - 30 - 31 SET LAST EXCEPTION TO OFF - 32 > >>TURN EC-I-O CHECKING ON ----- ^^^^^^^^ - 33 *> Read f too many times without libcob error - 34 OPEN INPUT f ->> Warning: Invalid syntax - -run_file.at-12369-prog.cob:32.33: - 29 CLOSE f - 30 - 31 SET LAST EXCEPTION TO OFF - 32 > >>TURN EC-I-O CHECKING ON ----- ^ - 33 *> Read f too many times without libcob error - 34 OPEN INPUT f ->> Hint: Missing . - -run_file.at-12369-prog.cob:32.34-32.36: - 29 CLOSE f - 30 - 31 SET LAST EXCEPTION TO OFF - 32 > >>TURN EC-I-O CHECKING ON ----- ^^ - 33 *> Read f too many times without libcob error - 34 OPEN INPUT f ->> Warning: Invalid syntax - -run_file.at-12369-prog.cob:46.11-46.17: - 43 - 44 CLOSE f - 45 - 46 > >>TURN EC-I-O g CHECKING ON ----- ^^^^^^ - 47 - 48 *> Read f too many times without libcob error ->> Error: Invalid syntax - -run_file.at-12369-prog.cob:46.36-46.38: - 43 - 44 CLOSE f - 45 - 46 > >>TURN EC-I-O g CHECKING ON ----- ^^ - 47 - 48 *> Read f too many times without libcob error ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:12582:0 -run_file.at-12582-prog.cob:10.34-10.42: - 7 - 8 INPUT-OUTPUT SECTION. - 9 FILE-CONTROL. - 10 > SELECT FLATFILE ASSIGN EXTERNAL SEQFIX ----- ^^^^^^^^ - 11 ORGANIZATION LINE SEQUENTIAL - 12 FILE STATUS IS CUST-STAT . ->> Warning: Ignored EXTERNAL (implementation pending) - -run_file.at-12582-prog.cob:44.54: - 41 05 FILLER PIC X(8) VALUE "FOR00000". - 42 - 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 44 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 45 02 DATA-COMPANY-TBL. - 46 ->> Hint: Missing - -run_file.at-12582-prog.cob:44.55-44.62: - 41 05 FILLER PIC X(8) VALUE "FOR00000". - 42 - 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 44 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 45 02 DATA-COMPANY-TBL. - 46 ->> Error: Invalid syntax - -run_file.at-12582-prog.cob:54.55: - 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". - 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 54 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 55 02 DATA-ADDRESS-2-TBL. - 56 ->> Hint: Missing - -run_file.at-12582-prog.cob:54.56-54.63: - 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". - 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". - 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 54 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 55 02 DATA-ADDRESS-2-TBL. - 56 ->> Error: Invalid syntax - -run_file.at-12582-prog.cob:65.55: - 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 63 - 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 65 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 66 - 67 02 DATA-NO-TERMINALS-TBL. ->> Hint: Missing - -run_file.at-12582-prog.cob:65.56-65.63: - 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". - 63 - 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 65 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 66 - 67 02 DATA-NO-TERMINALS-TBL. ->> Error: Invalid syntax - -run_file.at-12582-prog.cob:77.54: - 74 05 FILLER PIC 9(5) VALUE 254. - 75 - 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 77 > PIC 9(5) OCCURS MAX-SUB. ----- ^ - 78 01 WORK-AREA. - 79 05 SUB USAGE BINARY-SHORT UNSIGNED. ->> Hint: Missing - -run_file.at-12582-prog.cob:77.55-77.62: - 74 05 FILLER PIC 9(5) VALUE 254. - 75 - 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 77 > PIC 9(5) OCCURS MAX-SUB. ----- ^^^^^^^ - 78 01 WORK-AREA. - 79 05 SUB USAGE BINARY-SHORT UNSIGNED. ->> Error: Invalid syntax - -run_file.at-12582-prog.cob:145.19: - 142 PERFORM READ-RECORD - 143 END-PERFORM. - 144 CLOSE FLATFILE. - 145 > STOP RUN RETURNING 0. ----- ^ - 146 - 147 READ-RECORD. ->> Hint: Missing . - -run_file.at-12582-prog.cob:145.20-145.29: - 142 PERFORM READ-RECORD - 143 END-PERFORM. - 144 CLOSE FLATFILE. - 145 > STOP RUN RETURNING 0. ----- ^^^^^^^^^ - 146 - 147 READ-RECORD. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:12798:0 -run_file.at-12798-prog.cob:41.54: - 38 05 FILLER PIC X(8) VALUE "DEL00000". - 39 - 40 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 41 > PIC X(8) OCCURS MAX-SUB. ----- ^ - 42 02 DATA-COMPANY-TBL. - 43 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.". ->> Hint: Missing - -run_file.at-12798-prog.cob:41.55-41.62: - 38 05 FILLER PIC X(8) VALUE "DEL00000". - 39 - 40 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL - 41 > PIC X(8) OCCURS MAX-SUB. ----- ^^^^^^^ - 42 02 DATA-COMPANY-TBL. - 43 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.". ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:48.55: - 45 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". - 46 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ". - 47 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 48 > PIC X(25) OCCURS MAX-SUB. ----- ^ - 49 02 DATA-ADDRESS-2-TBL. - 50 05 FILLER PIC X(10) VALUE "NEW YORK ". ->> Hint: Missing - -run_file.at-12798-prog.cob:48.56-48.63: - 45 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". - 46 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ". - 47 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL - 48 > PIC X(25) OCCURS MAX-SUB. ----- ^^^^^^^ - 49 02 DATA-ADDRESS-2-TBL. - 50 05 FILLER PIC X(10) VALUE "NEW YORK ". ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:55.55: - 52 05 FILLER PIC X(10) VALUE "WASHINGTON". - 53 05 FILLER PIC X(10) VALUE "TORONTO ". - 54 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 55 > PIC X(10) OCCURS MAX-SUB. ----- ^ - 56 - 57 02 DATA-NO-TERMINALS-TBL. ->> Hint: Missing - -run_file.at-12798-prog.cob:55.56-55.63: - 52 05 FILLER PIC X(10) VALUE "WASHINGTON". - 53 05 FILLER PIC X(10) VALUE "TORONTO ". - 54 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL - 55 > PIC X(10) OCCURS MAX-SUB. ----- ^^^^^^^ - 56 - 57 02 DATA-NO-TERMINALS-TBL. ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:63.54: - 60 05 FILLER PIC 9(3) VALUE 3. - 61 05 FILLER PIC 9(3) VALUE 254. - 62 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 63 > PIC 9(3) OCCURS MAX-SUB. ----- ^ - 64 01 WORK-AREA. - 65 05 SUB BINARY-SHORT UNSIGNED. ->> Hint: Missing - -run_file.at-12798-prog.cob:63.55-63.62: - 60 05 FILLER PIC 9(3) VALUE 3. - 61 05 FILLER PIC 9(3) VALUE 254. - 62 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL - 63 > PIC 9(3) OCCURS MAX-SUB. ----- ^^^^^^^ - 64 01 WORK-AREA. - 65 05 SUB BINARY-SHORT UNSIGNED. ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:70.14: - 67 - 68 PROCEDURE DIVISION. - 69 * Load file using MF rules - 70 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" ----- ^ - 71 SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" - 72 DISPLAY "MF Load data" ->> Hint: Missing rnell_rev___anonymous_88_ - -run_file.at-12798-prog.cob:70.15-70.26: - 67 - 68 PROCEDURE DIVISION. - 69 * Load file using MF rules - 70 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" ----- ^^^^^^^^^^^ - 71 SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" - 72 DISPLAY "MF Load data" ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:71.14: - 68 PROCEDURE DIVISION. - 69 * Load file using MF rules - 70 SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" - 71 > SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" ----- ^ - 72 DISPLAY "MF Load data" - 73 PERFORM LOADFILE. ->> Hint: Missing rnell_rev___anonymous_88_ - -run_file.at-12798-prog.cob:71.15-71.26: - 68 PROCEDURE DIVISION. - 69 * Load file using MF rules - 70 SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" - 71 > SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" ----- ^^^^^^^^^^^ - 72 DISPLAY "MF Load data" - 73 PERFORM LOADFILE. ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:84.14: - 81 CLOSE FLATFILE. - 82 - 83 * Read file using Std rules - 84 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" ----- ^ - 85 SET ENVIRONMENT "COB_LS_NULLS" TO "false" - 86 OPEN INPUT FLATFILE. ->> Hint: Missing rnell_rev___anonymous_88_ - -run_file.at-12798-prog.cob:84.15-84.26: - 81 CLOSE FLATFILE. - 82 - 83 * Read file using Std rules - 84 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" ----- ^^^^^^^^^^^ - 85 SET ENVIRONMENT "COB_LS_NULLS" TO "false" - 86 OPEN INPUT FLATFILE. ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:85.14: - 82 - 83 * Read file using Std rules - 84 SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" - 85 > SET ENVIRONMENT "COB_LS_NULLS" TO "false" ----- ^ - 86 OPEN INPUT FLATFILE. - 87 DISPLAY "Std Open Sts: " CUST-STAT ->> Hint: Missing rnell_rev___anonymous_88_ - -run_file.at-12798-prog.cob:85.15-85.26: - 82 - 83 * Read file using Std rules - 84 SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" - 85 > SET ENVIRONMENT "COB_LS_NULLS" TO "false" ----- ^^^^^^^^^^^ - 86 OPEN INPUT FLATFILE. - 87 DISPLAY "Std Open Sts: " CUST-STAT ->> Error: Invalid syntax - -run_file.at-12798-prog.cob:97.19: - 94 DISPLAY "Std Load data" - 95 PERFORM LOADFILE. - 96 - 97 > STOP RUN RETURNING 0. ----- ^ - 98 - 99 READ-RECORD. ->> Hint: Missing . - -run_file.at-12798-prog.cob:97.20-97.29: - 94 DISPLAY "Std Load data" - 95 PERFORM LOADFILE. - 96 - 97 > STOP RUN RETURNING 0. ----- ^^^^^^^^^ - 98 - 99 READ-RECORD. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:12935:0 -run_file.at-12935-prog.cob:42.14: - 39 MOVE "file1+file2+file3" TO THE-FILE-NAME - 40 PERFORM UPDTFILE. - 41 - 42 > SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" ----- ^ - 43 MOVE "file1&file2&file3" TO THE-FILE-NAME - 44 PERFORM LISTFILE. ->> Hint: Missing rnell_rev___anonymous_88_ - -run_file.at-12935-prog.cob:42.15-42.26: - 39 MOVE "file1+file2+file3" TO THE-FILE-NAME - 40 PERFORM UPDTFILE. - 41 - 42 > SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" ----- ^^^^^^^^^^^ - 43 MOVE "file1&file2&file3" TO THE-FILE-NAME - 44 PERFORM LISTFILE. ->> Error: Invalid syntax - -run_file.at-12935-prog.cob:45.19: - 42 SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" - 43 MOVE "file1&file2&file3" TO THE-FILE-NAME - 44 PERFORM LISTFILE. - 45 > STOP RUN RETURNING 0. ----- ^ - 46 - 47 LISTFILE. ->> Hint: Missing . - -run_file.at-12935-prog.cob:45.20-45.29: - 42 SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" - 43 MOVE "file1&file2&file3" TO THE-FILE-NAME - 44 PERFORM LISTFILE. - 45 > STOP RUN RETURNING 0. ----- ^^^^^^^^^ - 46 - 47 LISTFILE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13004:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13091:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13142:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13190:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13192:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13249:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13316:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13397:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13453:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13544:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13596:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13686:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13762:0 -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13896:0 -run_file.at-13896-expected.txt:1.6-1.7: - 1 > ERROR ON FILE2 ----- ^ - 2 STAT-FILE1: 00 - 3 STAT-FILE2: 35 ->> Error: Unexpected indicator: `O' - -run_file.at-13896-expected.txt:2.7-2.11: - 1 ERROR ON FILE2 - 2 > STAT-FILE1: 00 ----- ^^^^ - 3 STAT-FILE2: 35 - 4 READ FILE1 ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:3.7-3.11: - 1 ERROR ON FILE2 - 2 STAT-FILE1: 00 - 3 > STAT-FILE2: 35 ----- ^^^^ - 4 READ FILE1 - 5 ERROR ON FILE1 ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:4.6-4.7: - 1 ERROR ON FILE2 - 2 STAT-FILE1: 00 - 3 STAT-FILE2: 35 - 4 > READ FILE1 ----- ^ - 5 ERROR ON FILE1 - 6 STAT-FILE1: 10 ->> Error: Unexpected indicator: `I' - -run_file.at-13896-expected.txt:5.6-5.7: - 2 STAT-FILE1: 00 - 3 STAT-FILE2: 35 - 4 READ FILE1 - 5 > ERROR ON FILE1 ----- ^ - 6 STAT-FILE1: 10 - 7 STAT-FILE2: 35 ->> Error: Unexpected indicator: `O' - -run_file.at-13896-expected.txt:6.7-6.11: - 3 STAT-FILE2: 35 - 4 READ FILE1 - 5 ERROR ON FILE1 - 6 > STAT-FILE1: 10 ----- ^^^^ - 7 STAT-FILE2: 35 - 8 READ FILE2 ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:7.7-7.11: - 4 READ FILE1 - 5 ERROR ON FILE1 - 6 STAT-FILE1: 10 - 7 > STAT-FILE2: 35 ----- ^^^^ - 8 READ FILE2 - 9 ERROR ON FILE2 ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:8.6-8.7: - 5 ERROR ON FILE1 - 6 STAT-FILE1: 10 - 7 STAT-FILE2: 35 - 8 > READ FILE2 ----- ^ - 9 ERROR ON FILE2 - 10 STAT-FILE1: 10 ->> Error: Unexpected indicator: `I' - -run_file.at-13896-expected.txt:9.6-9.7: - 6 STAT-FILE1: 10 - 7 STAT-FILE2: 35 - 8 READ FILE2 - 9 > ERROR ON FILE2 ----- ^ - 10 STAT-FILE1: 10 - 11 STAT-FILE2: 47 ->> Error: Unexpected indicator: `O' - -run_file.at-13896-expected.txt:10.7-10.11: - 7 STAT-FILE2: 35 - 8 READ FILE2 - 9 ERROR ON FILE2 - 10 > STAT-FILE1: 10 ----- ^^^^ - 11 STAT-FILE2: 47 - 12 CLOSE FILES ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:11.7-11.11: - 8 READ FILE2 - 9 ERROR ON FILE2 - 10 STAT-FILE1: 10 - 11 > STAT-FILE2: 47 ----- ^^^^ - 12 CLOSE FILES - 13 ERROR ON FILE2 ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:12.6-12.7: - 9 ERROR ON FILE2 - 10 STAT-FILE1: 10 - 11 STAT-FILE2: 47 - 12 > CLOSE FILES ----- ^ - 13 ERROR ON FILE2 - 14 STAT-FILE1: 00 ->> Error: Unexpected indicator: `F' - -run_file.at-13896-expected.txt:13.6-13.7: - 10 STAT-FILE1: 10 - 11 STAT-FILE2: 47 - 12 CLOSE FILES - 13 > ERROR ON FILE2 ----- ^ - 14 STAT-FILE1: 00 - 15 STAT-FILE2: 42 ->> Error: Unexpected indicator: `O' - -run_file.at-13896-expected.txt:14.7-14.11: - 11 STAT-FILE2: 47 - 12 CLOSE FILES - 13 ERROR ON FILE2 - 14 > STAT-FILE1: 00 ----- ^^^^ - 15 STAT-FILE2: 42 - 16 DELETE FILES ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:15.7-15.11: - 12 CLOSE FILES - 13 ERROR ON FILE2 - 14 STAT-FILE1: 00 - 15 > STAT-FILE2: 42 ----- ^^^^ - 16 DELETE FILES ->> Warning: Unexpected non-blank area A on continuation line - -run_file.at-13896-expected.txt:1.7-1.8: - 1 > ERROR ON FILE2 ----- ^ - 2 STAT-FILE1: 00 - 3 STAT-FILE2: 35 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13893:0 -run_file.at-13893-prog1.cob:45.17-45.21: - 42 CLOSE FILE1. - 43 CLOSE FILE2. - 44 DISPLAY "DELETE FILES". - 45 > DELETE FILE FILE1. ----- ^^^^ - 46 DELETE FILE FILE2. - 47 STOP RUN. ->> Error: Invalid syntax - -run_file.at-13893-prog1.cob:46.17-46.21: - 43 CLOSE FILE2. - 44 DISPLAY "DELETE FILES". - 45 DELETE FILE FILE1. - 46 > DELETE FILE FILE2. ----- ^^^^ - 47 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_file.at:13898:0 -run_file.at-13898-prog2.cob:45.17-45.21: - 42 CLOSE FILE1 - 43 FILE2. - 44 DISPLAY "DELETE FILES". - 45 > DELETE FILE FILE1 ----- ^^^^ - 46 FILE2. - 47 STOP RUN. ->> Error: Invalid syntax - -run_file.at-13898-prog2.cob:45.27: - 42 CLOSE FILE1 - 43 FILE2. - 44 DISPLAY "DELETE FILES". - 45 > DELETE FILE FILE1 ----- ^ - 46 FILE2. - 47 STOP RUN. ->> Hint: Missing . - -run_file.at-13898-prog2.cob:46.22-46.27: - 43 FILE2. - 44 DISPLAY "DELETE FILES". - 45 DELETE FILE FILE1 - 46 > FILE2. ----- ^^^^^ - 47 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:39:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:74:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:96:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:135:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:159:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:213:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:253:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:278:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:325:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:353:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:410:0 -run_functions.at-410-prog.cob:19.7-19.31: - 16 SET BITX-FILLER TO TRUE - 17 STRING FUNCTION BIT-OF (TXT) DELIMITED BY SIZE INTO BITX. - 18 *> Discover if running ASCII or EBCDIC - 19 > >>IF CHARSET = 'ASCII' ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 20 IF BITX NOT = "01001000010010010010111000100000--" - 21 >>ELIF CHARSET = 'EBCDIC' ->> Error: Malformed or unknown compiler directive - -run_functions.at-410-prog.cob:20.61: - 17 STRING FUNCTION BIT-OF (TXT) DELIMITED BY SIZE INTO BITX. - 18 *> Discover if running ASCII or EBCDIC - 19 >>IF CHARSET = 'ASCII' - 20 > IF BITX NOT = "01001000010010010010111000100000--" ----- ^ - 21 >>ELIF CHARSET = 'EBCDIC' - 22 IF BITX NOT = "11001000110010010100101101000000--" ->> Hint: Missing . - -run_functions.at-410-prog.cob:21.7-21.13: - 18 *> Discover if running ASCII or EBCDIC - 19 >>IF CHARSET = 'ASCII' - 20 IF BITX NOT = "01001000010010010010111000100000--" - 21 > >>ELIF CHARSET = 'EBCDIC' ----- ^^^^^^ - 22 IF BITX NOT = "11001000110010010100101101000000--" - 23 >>ELSE ->> Error: Invalid syntax - -run_functions.at-410-prog.cob:21.21: - 18 *> Discover if running ASCII or EBCDIC - 19 >>IF CHARSET = 'ASCII' - 20 IF BITX NOT = "01001000010010010010111000100000--" - 21 > >>ELIF CHARSET = 'EBCDIC' ----- ^ - 22 IF BITX NOT = "11001000110010010100101101000000--" - 23 >>ELSE ->> Hint: Missing . - -run_functions.at-410-prog.cob:21.22-21.23: - 18 *> Discover if running ASCII or EBCDIC - 19 >>IF CHARSET = 'ASCII' - 20 IF BITX NOT = "01001000010010010010111000100000--" - 21 > >>ELIF CHARSET = 'EBCDIC' ----- ^ - 22 IF BITX NOT = "11001000110010010100101101000000--" - 23 >>ELSE ->> Warning: Invalid syntax - -run_functions.at-410-prog.cob:23.7-23.13: - 20 IF BITX NOT = "01001000010010010010111000100000--" - 21 >>ELIF CHARSET = 'EBCDIC' - 22 IF BITX NOT = "11001000110010010100101101000000--" - 23 > >>ELSE ----- ^^^^^^ - 24 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' - 25 >>END-IF ->> Error: Invalid syntax - -run_functions.at-410-prog.cob:25.7-25.15: - 22 IF BITX NOT = "11001000110010010100101101000000--" - 23 >>ELSE - 24 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' - 25 > >>END-IF ----- ^^^^^^^^ - 26 DISPLAY "UNEXPECTED BIT-VALUE OF 'HI. ': " BITX. - 27 ->> Error: Invalid syntax - -run_functions.at-410-prog.cob:30.7-30.31: - 27 - 28 SET BITX-FILLER TO TRUE - 29 STRING FUNCTION BIT-OF (z"01") DELIMITED BY SIZE INTO BITX. - 30 > >>IF CHARSET = 'ASCII' ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 31 IF BITX NOT = "001100000011000100000000----------" - 32 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_functions.at-410-prog.cob:32.7-32.13: - 29 STRING FUNCTION BIT-OF (z"01") DELIMITED BY SIZE INTO BITX. - 30 >>IF CHARSET = 'ASCII' - 31 IF BITX NOT = "001100000011000100000000----------" - 32 > >>ELSE ----- ^^^^^^ - 33 IF BITX NOT = "111100001111000100000000----------" - 34 >>END-IF ->> Error: Invalid syntax - -run_functions.at-410-prog.cob:34.7-34.15: - 31 IF BITX NOT = "001100000011000100000000----------" - 32 >>ELSE - 33 IF BITX NOT = "111100001111000100000000----------" - 34 > >>END-IF ----- ^^^^^^^^ - 35 - 36 IF FUNCTION BIT-TO-CHAR (BITX(1:24)) NOT = z"01" ->> Error: Invalid syntax - -run_functions.at-410-prog.cob:36.55-36.59: - 33 IF BITX NOT = "111100001111000100000000----------" - 34 >>END-IF - 35 - 36 > IF FUNCTION BIT-TO-CHAR (BITX(1:24)) NOT = z"01" ----- ^^^^ - 37 DISPLAY "UNEXPECTED CHAR VALUE, does not match z'01': " - 38 BITX (1:24). ->> Error: Invalid syntax - -run_functions.at-410-prog.cob:42.33-42.39: - 39 SET BITX-FILLER TO TRUE - 40 STRING FUNCTION BIT-TO-CHAR ("0011000100110010") - 41 DELIMITED BY SIZE INTO BITX. - 42 > IF NOT (BITX (1:2) = x"3132" AND ----- ^^^^^^ - 43 BITX (3: ) = "--------------------------------") - 44 DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " BITX. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:541:0 -run_functions.at-541-prog.cob:25.7-25.34: - 22 MAIN. - 23 * Test with DISPLAY on error - 24 PERFORM DO-CHECK. - 25 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 26 SET NO-DISP TO TRUE - 27 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -run_functions.at-541-prog.cob:29.7-29.16: - 26 SET NO-DISP TO TRUE - 27 * some performance checks on the way... - 28 PERFORM DO-CHECK 300000 TIMES. - 29 > >> END-IF ----- ^^^^^^^^^ - 30 GOBACK. - 31 ->> Error: Malformed or unknown compiler directive - -run_functions.at-541-prog.cob:36.7-36.31: - 33 SET HEXX-FILLER TO TRUE - 34 STRING FUNCTION HEX-OF (X) DELIMITED BY SIZE INTO HEXX. - 35 *> Discover if running ASCII or EBCDIC - 36 > >>IF CHARSET = 'ASCII' ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 37 IF HEXX NOT = "20303132--" - 38 >>ELIF CHARSET = 'EBCDIC' ->> Error: Malformed or unknown compiler directive - -run_functions.at-541-prog.cob:37.37: - 34 STRING FUNCTION HEX-OF (X) DELIMITED BY SIZE INTO HEXX. - 35 *> Discover if running ASCII or EBCDIC - 36 >>IF CHARSET = 'ASCII' - 37 > IF HEXX NOT = "20303132--" ----- ^ - 38 >>ELIF CHARSET = 'EBCDIC' - 39 IF HEXX NOT = "40F0F1F2--" ->> Hint: Missing . - -run_functions.at-541-prog.cob:38.7-38.13: - 35 *> Discover if running ASCII or EBCDIC - 36 >>IF CHARSET = 'ASCII' - 37 IF HEXX NOT = "20303132--" - 38 > >>ELIF CHARSET = 'EBCDIC' ----- ^^^^^^ - 39 IF HEXX NOT = "40F0F1F2--" - 40 >>ELSE ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:38.21: - 35 *> Discover if running ASCII or EBCDIC - 36 >>IF CHARSET = 'ASCII' - 37 IF HEXX NOT = "20303132--" - 38 > >>ELIF CHARSET = 'EBCDIC' ----- ^ - 39 IF HEXX NOT = "40F0F1F2--" - 40 >>ELSE ->> Hint: Missing . - -run_functions.at-541-prog.cob:38.22-38.23: - 35 *> Discover if running ASCII or EBCDIC - 36 >>IF CHARSET = 'ASCII' - 37 IF HEXX NOT = "20303132--" - 38 > >>ELIF CHARSET = 'EBCDIC' ----- ^ - 39 IF HEXX NOT = "40F0F1F2--" - 40 >>ELSE ->> Warning: Invalid syntax - -run_functions.at-541-prog.cob:40.7-40.13: - 37 IF HEXX NOT = "20303132--" - 38 >>ELIF CHARSET = 'EBCDIC' - 39 IF HEXX NOT = "40F0F1F2--" - 40 > >>ELSE ----- ^^^^^^ - 41 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' - 42 >>END-IF ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:42.7-42.15: - 39 IF HEXX NOT = "40F0F1F2--" - 40 >>ELSE - 41 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' - 42 > >>END-IF ----- ^^^^^^^^ - 43 DISPLAY "UNEXPECTED HEX-VALUE OF '0012': " HEXX. - 44 ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:47.7-47.31: - 44 - 45 SET HEXX-FILLER TO TRUE - 46 STRING FUNCTION HEX-OF (Y) DELIMITED BY SIZE INTO HEXX. - 47 > >>IF CHARSET = 'ASCII' ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 48 IF HEXX NOT = "48492E20--" - 49 >> ELSE ->> Error: Malformed or unknown compiler directive - -run_functions.at-541-prog.cob:49.7-49.14: - 46 STRING FUNCTION HEX-OF (Y) DELIMITED BY SIZE INTO HEXX. - 47 >>IF CHARSET = 'ASCII' - 48 IF HEXX NOT = "48492E20--" - 49 > >> ELSE ----- ^^^^^^^ - 50 IF HEXX NOT = "C8C94B40--" - 51 >> END-IF ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:51.7-51.16: - 48 IF HEXX NOT = "48492E20--" - 49 >> ELSE - 50 IF HEXX NOT = "C8C94B40--" - 51 > >> END-IF ----- ^^^^^^^^^ - 52 DISPLAY "UNEXPECTED HEX-VALUE OF 'HI! ': " HEXX. - 53 ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:66.7-66.31: - 63 - 64 SET HEXX-FILLER TO TRUE - 65 STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX. - 66 > >>IF CHARSET = 'ASCII' ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 67 IF HEXX NOT = "303100----" - 68 >> ELSE ->> Error: Malformed or unknown compiler directive - -run_functions.at-541-prog.cob:68.7-68.14: - 65 STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX. - 66 >>IF CHARSET = 'ASCII' - 67 IF HEXX NOT = "303100----" - 68 > >> ELSE ----- ^^^^^^^ - 69 IF HEXX NOT = "F0F100----" - 70 >> END-IF ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:70.7-70.16: - 67 IF HEXX NOT = "303100----" - 68 >> ELSE - 69 IF HEXX NOT = "F0F100----" - 70 > >> END-IF ----- ^^^^^^^^^ - 71 DISPLAY "UNEXPECTED HEX-VALUE OF z'01': " HEXX. - 72 ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:75.7-75.31: - 72 - 73 SET HEXX-FILLER TO TRUE - 74 STRING FUNCTION HEX-OF (' ') DELIMITED BY SIZE INTO HEXX. - 75 > >>IF CHARSET = 'ASCII' ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 76 IF HEXX NOT = "20--------" - 77 >> ELSE ->> Error: Malformed or unknown compiler directive - -run_functions.at-541-prog.cob:77.7-77.14: - 74 STRING FUNCTION HEX-OF (' ') DELIMITED BY SIZE INTO HEXX. - 75 >>IF CHARSET = 'ASCII' - 76 IF HEXX NOT = "20--------" - 77 > >> ELSE ----- ^^^^^^^ - 78 IF HEXX NOT = "40--------" - 79 >> END-IF ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:79.7-79.16: - 76 IF HEXX NOT = "20--------" - 77 >> ELSE - 78 IF HEXX NOT = "40--------" - 79 > >> END-IF ----- ^^^^^^^^^ - 80 DISPLAY "UNEXPECTED HEX-VALUE OF ' ': " HEXX. - 81 ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:107.54-107.58: - 104 SET HEXX-FILLER TO TRUE - 105 STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX. - 106 - 107 > IF FUNCTION HEX-TO-CHAR (HEXX(1:6)) NOT = z"01" ----- ^^^^ - 108 DISPLAY "UNEXPECTED CHAR VALUE, does not match z'01': " - 109 HEXX (1:6). ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:113.33-113.39: - 110 SET HEXX-FILLER TO TRUE - 111 STRING FUNCTION HEX-TO-CHAR ("3132") - 112 DELIMITED BY SIZE INTO HEXX. - 113 > IF NOT (HEXX (1:2) = x"3132" AND HEXX (3:) = "--------") ----- ^^^^^^ - 114 DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " HEXX. - 115 ->> Error: Invalid syntax - -run_functions.at-541-prog.cob:119.33-119.39: - 116 SET HEXX-FILLER TO TRUE - 117 STRING FUNCTION HEX-TO-CHAR ("3132") - 118 DELIMITED BY SIZE INTO HEXX. - 119 > IF NOT (HEXX (1:2) = x"3132" AND HEXX (3:) = "--------") ----- ^^^^^^ - 120 DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " HEXX. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:575:0 -run_functions.at-575-prog.cob:7.43: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 P USAGE POINTER. - 7 > 01 X PIC X(4) VALUE Z"ABC". ----- ^ - 8 01 TEST-FLD USAGE BINARY-LONG. - 9 PROCEDURE DIVISION. ->> Hint: Missing - -run_functions.at-575-prog.cob:7.44-7.50: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 P USAGE POINTER. - 7 > 01 X PIC X(4) VALUE Z"ABC". ----- ^^^^^^ - 8 01 TEST-FLD USAGE BINARY-LONG. - 9 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:650:0 -run_functions.at-650-prog.cob:7.34: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 P USAGE POINTER. - 7 > 01 X PIC X(4) VALUE Z"ABC". ----- ^ - 8 01 B PIC X(10) BASED. - 9 PROCEDURE DIVISION. ->> Hint: Missing - -run_functions.at-650-prog.cob:7.35-7.41: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 P USAGE POINTER. - 7 > 01 X PIC X(4) VALUE Z"ABC". ----- ^^^^^^ - 8 01 B PIC X(10) BASED. - 9 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:685:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:710:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:733:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:804:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:829:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:854:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:879:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:904:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:928:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:962:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1050:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1003:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1049:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1085:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1120:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1145:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1170:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1195:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1223:0 -run_functions.at-1223-prog.cob:6.35: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 Datetime-Format CONSTANT "YYYYMMDDThhmmss.ss+hhmm". ----- ^ - 7 01 str PIC X(25). - 8 PROCEDURE DIVISION. ->> Hint: Missing RECORD - -run_functions.at-1223-prog.cob:6.36-6.61: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 Datetime-Format CONSTANT "YYYYMMDDThhmmss.ss+hhmm". ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 01 str PIC X(25). - 8 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1286:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1311:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1368:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1394:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1481:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1512:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1537:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1568:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1636:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1669:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1694:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1719:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1769:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1795:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1877:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1907:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1931:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1957:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1983:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2009:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2033:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2061:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2087:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2140:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2160:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2182:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2204:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2226:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2248:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2280:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2311:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2344:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2345:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2370:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2395:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2416:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2441:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2462:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2487:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2510:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2533:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2556:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2579:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2652:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2713:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2741:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2776:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2796:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2817:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2838:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2861:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2881:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2904:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2926:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2948:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2975:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2998:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3021:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3076:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3098:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3142:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3164:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3186:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3208:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3232:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3259:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3285:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3310:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3336:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3358:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3380:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3401:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3423:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3525:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3606:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3659:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3700:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3851:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3951:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4051:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4074:0 -run_functions.at-4074-prog.cob:10.37-10.45: - 7 PROCEDURE DIVISION. - 8 DISPLAY FUNCTION TRIM ( X ) - 9 END-DISPLAY. - 10 > DISPLAY FUNCTION TRIM ( X TRAILING ) ----- ^^^^^^^^ - 11 END-DISPLAY. - 12 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4100:0 -run_functions.at-4100-prog.cob:10.37-10.45: - 7 PROCEDURE DIVISION. - 8 DISPLAY FUNCTION TRIM ( X ) (2 : 3) - 9 END-DISPLAY. - 10 > DISPLAY FUNCTION TRIM ( X TRAILING ) (2 : 3) ----- ^^^^^^^^ - 11 END-DISPLAY. - 12 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4127:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4155:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4180:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4210:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4264:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4288:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4358:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4407:0 -run_functions.at-4407-prog.cob:11.54-11.68: - 8 - 9 PROCEDURE DIVISION. - 10 MOVE FUNCTION FORMATTED-DATETIME - 11 > ("YYYYDDDThhmmss+hhmm", 1, 45296, SYSTEM-OFFSET) ----- ^^^^^^^^^^^^^^ - 12 TO str - 13 MOVE FUNCTION TEST-FORMATTED-DATETIME ->> Error: Invalid syntax - -run_functions.at-4407-prog.cob:20.42-20.56: - 17 END-IF - 18 - 19 MOVE FUNCTION FORMATTED-TIME - 20 > ("hhmmss.ssZ", 45296, SYSTEM-OFFSET) ----- ^^^^^^^^^^^^^^ - 21 TO str - 22 MOVE FUNCTION TEST-FORMATTED-DATETIME ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4428:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4449:0 -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4502:0 -run_functions.at-4502-prog.cob:9.11-9.14: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Error: Invalid syntax - -run_functions.at-4502-prog.cob:9.16: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Hint: Missing . - -run_functions.at-4502-prog.cob:9.17-9.19: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Warning: Invalid syntax - -run_functions.at-4502-prog.cob:9.26: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Hint: Missing . - -run_functions.at-4502-prog.cob:9.27-9.33: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Warning: Invalid syntax - -run_functions.at-4502-prog.cob:9.42-9.49: - 6 01 PAR-IN PIC 9. - 7 01 PAR-OUT PIC 9. - 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. - 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. ----- ^^^^^^^ - 10 GOBACK. - 11 END FUNCTION WITHPAR. ->> Error: Invalid syntax - -run_functions.at-4502-prog.cob:19.11-19.15: - 16 LINKAGE SECTION. - 17 01 PAR PIC 9. - 18 PROCEDURE DIVISION RETURNING PAR. - 19 > MOVE 1 TO PAR. ----- ^^^^ - 20 GOBACK. - 21 END FUNCTION WITHOUTPAR. ->> Error: Invalid syntax - -run_functions.at-4502-prog.cob:19.17: - 16 LINKAGE SECTION. - 17 01 PAR PIC 9. - 18 PROCEDURE DIVISION RETURNING PAR. - 19 > MOVE 1 TO PAR. ----- ^ - 20 GOBACK. - 21 END FUNCTION WITHOUTPAR. ->> Hint: Missing . - -run_functions.at-4502-prog.cob:19.18-19.20: - 16 LINKAGE SECTION. - 17 01 PAR PIC 9. - 18 PROCEDURE DIVISION RETURNING PAR. - 19 > MOVE 1 TO PAR. ----- ^^ - 20 GOBACK. - 21 END FUNCTION WITHOUTPAR. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4543:0 -run_functions.at-4543-prog.cob:10.11-10.15: - 7 01 num PIC 999. - 8 - 9 PROCEDURE DIVISION RETURNING num. - 10 > MOVE 100 TO num ----- ^^^^ - 11 . - 12 END FUNCTION func. ->> Error: Invalid syntax - -run_functions.at-4543-prog.cob:10.19: - 7 01 num PIC 999. - 8 - 9 PROCEDURE DIVISION RETURNING num. - 10 > MOVE 100 TO num ----- ^ - 11 . - 12 END FUNCTION func. ->> Hint: Missing . - -run_functions.at-4543-prog.cob:10.20-10.22: - 7 01 num PIC 999. - 8 - 9 PROCEDURE DIVISION RETURNING num. - 10 > MOVE 100 TO num ----- ^^ - 11 . - 12 END FUNCTION func. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4585:0 -run_functions.at-4585-prog.cob:12.11-12.15: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^^^^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Error: Invalid syntax - -run_functions.at-4585-prog.cob:12.23: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Hint: Missing . - -run_functions.at-4585-prog.cob:12.24-12.26: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Warning: Invalid syntax - -run_functions.at-4585-prog.cob:12.35: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Hint: Missing . - -run_functions.at-4585-prog.cob:13.11-13.18: - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 MOVE func-in TO func-out - 13 > INSPECT func-out REPLACING ALL '%' BY func-sub ----- ^^^^^^^ - 14 . - 15 END FUNCTION SUBSTITUTE. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4648:0 -run_functions.at-4648-prog.cob:17.11-17.13: - 14 01 ret PIC 9. - 15 - 16 PROCEDURE DIVISION USING arg RETURNING ret. - 17 > IF arg < 5 ----- ^^ - 18 ADD 1 TO arg GIVING num END-ADD - 19 MOVE FUNCTION foo (num) TO ret ->> Error: Invalid syntax - -run_functions.at-4648-prog.cob:17.17: - 14 01 ret PIC 9. - 15 - 16 PROCEDURE DIVISION USING arg RETURNING ret. - 17 > IF arg < 5 ----- ^ - 18 ADD 1 TO arg GIVING num END-ADD - 19 MOVE FUNCTION foo (num) TO ret ->> Hint: Missing . - -run_functions.at-4648-prog.cob:17.18-17.19: - 14 01 ret PIC 9. - 15 - 16 PROCEDURE DIVISION USING arg RETURNING ret. - 17 > IF arg < 5 ----- ^ - 18 ADD 1 TO arg GIVING num END-ADD - 19 MOVE FUNCTION foo (num) TO ret ->> Warning: Invalid syntax - -run_functions.at-4648-prog.cob:17.21: - 14 01 ret PIC 9. - 15 - 16 PROCEDURE DIVISION USING arg RETURNING ret. - 17 > IF arg < 5 ----- ^ - 18 ADD 1 TO arg GIVING num END-ADD - 19 MOVE FUNCTION foo (num) TO ret ->> Hint: Missing . - -run_functions.at-4648-prog.cob:18.14-18.17: - 15 - 16 PROCEDURE DIVISION USING arg RETURNING ret. - 17 IF arg < 5 - 18 > ADD 1 TO arg GIVING num END-ADD ----- ^^^ - 19 MOVE FUNCTION foo (num) TO ret - 20 ELSE ->> Warning: Invalid syntax - -run_functions.at-4648-prog.cob:20.11-20.15: - 17 IF arg < 5 - 18 ADD 1 TO arg GIVING num END-ADD - 19 MOVE FUNCTION foo (num) TO ret - 20 > ELSE ----- ^^^^ - 21 MOVE arg TO ret - 22 END-IF ->> Error: Invalid syntax - -run_functions.at-4648-prog.cob:22.11-22.17: - 19 MOVE FUNCTION foo (num) TO ret - 20 ELSE - 21 MOVE arg TO ret - 22 > END-IF ----- ^^^^^^ - 23 DISPLAY "Step: " ttl ", Arg: " arg ", Return: " ret - 24 END-DISPLAY ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:50:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:92:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:137:0 -run_fundamental.at-137-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data) - 7 { ->> Error: Unexpected indicator: `T' - -run_fundamental.at-137-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data) ----- ^ - 7 { - 8 int i; ->> Error: Unexpected indicator: `u' - -run_fundamental.at-137-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data) - 7 { - 8 > int i; ----- ^ - 9 for (i = 0; i < 4; i++) - 10 printf ("%02x", data[i]); ->> Error: Unexpected indicator: `i' - -run_fundamental.at-137-dump.c:9.6-9.7: - 6 dump (unsigned char *data) - 7 { - 8 int i; - 9 > for (i = 0; i < 4; i++) ----- ^ - 10 printf ("%02x", data[i]); - 11 return 0; ->> Error: Unexpected indicator: `(' - -run_fundamental.at-137-dump.c:10.6-10.7: - 7 { - 8 int i; - 9 for (i = 0; i < 4; i++) - 10 > printf ("%02x", data[i]); ----- ^ - 11 return 0; - 12 } ->> Error: Unexpected indicator: `i' - -run_fundamental.at-137-dump.c:11.6-11.7: - 8 int i; - 9 for (i = 0; i < 4; i++) - 10 printf ("%02x", data[i]); - 11 > return 0; ----- ^ - 12 } ->> Error: Unexpected indicator: `r' - -run_fundamental.at-137-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:138:0 -run_fundamental.at-138-prog.cob:5.7-5.30: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >>IF CHARSET = 'EBCDIC' ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 6 DISPLAY X"F1F2F3" - 7 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-138-prog.cob:7.7-7.13: - 4 PROCEDURE DIVISION. - 5 >>IF CHARSET = 'EBCDIC' - 6 DISPLAY X"F1F2F3" - 7 > >>ELSE ----- ^^^^^^ - 8 DISPLAY X"313233" - 9 >>END-IF ->> Error: Invalid syntax - -run_fundamental.at-138-prog.cob:9.7-9.15: - 6 DISPLAY X"F1F2F3" - 7 >>ELSE - 8 DISPLAY X"313233" - 9 > >>END-IF ----- ^^^^^^^^ - 10 END-DISPLAY. - 11 CALL "dump" USING X"000102" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:179:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:233:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:284:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:333:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:444:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:475:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:518:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:547:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:614:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:737:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:868:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:904:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:951:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:952:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:988:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1032:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1033:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1065:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1097:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1129:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1174:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1223:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1306:0 -run_fundamental.at-1306-prog.cob:16.37: - 13 01 TEST-REC PIC X(4). - 14 WORKING-STORAGE SECTION. - 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". - 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". ----- ^ - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". ->> Hint: Missing AS - -run_fundamental.at-1306-prog.cob:16.44-16.52: - 13 01 TEST-REC PIC X(4). - 14 WORKING-STORAGE SECTION. - 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". - 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". ----- ^^^^^^^^ - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". ->> Error: Invalid syntax - -run_fundamental.at-1306-prog.cob:19.37: - 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". - 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". ----- ^ - 20 PROCEDURE DIVISION. - 21 DISPLAY GLOB-PATH GLOB-VAR ->> Hint: Missing AS - -run_fundamental.at-1306-prog.cob:19.44-19.52: - 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". - 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". ----- ^^^^^^^^ - 20 PROCEDURE DIVISION. - 21 DISPLAY GLOB-PATH GLOB-VAR ->> Error: Invalid syntax - -run_fundamental.at-1306-prog.cob:64.47-64.56: - 61 DISPLAY 'in prog3' - 62 END-DISPLAY - 63 IF GLOB-PATH NOT = SPACES - 64 > DISPLAY FUNCTION TRIM (GLOB-PATH TRAILING) ----- ^^^^^^^^^ - 65 END-DISPLAY - 66 END-IF ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1390:0 -run_fundamental.at-1390-prog.cob:7.11-7.15: - 4 LINKAGE SECTION. - 5 01 r BINARY-LONG. - 6 PROCEDURE DIVISION RETURNING r. - 7 > move 1 to r ----- ^^^^ - 8 GOBACK - 9 . ->> Error: Invalid syntax - -run_fundamental.at-1390-prog.cob:7.17: - 4 LINKAGE SECTION. - 5 01 r BINARY-LONG. - 6 PROCEDURE DIVISION RETURNING r. - 7 > move 1 to r ----- ^ - 8 GOBACK - 9 . ->> Hint: Missing . - -run_fundamental.at-1390-prog.cob:7.18-7.20: - 4 LINKAGE SECTION. - 5 01 r BINARY-LONG. - 6 PROCEDURE DIVISION RETURNING r. - 7 > move 1 to r ----- ^^ - 8 GOBACK - 9 . ->> Warning: Invalid syntax - -run_fundamental.at-1390-prog.cob:7.22: - 4 LINKAGE SECTION. - 5 01 r BINARY-LONG. - 6 PROCEDURE DIVISION RETURNING r. - 7 > move 1 to r ----- ^ - 8 GOBACK - 9 . ->> Hint: Missing . - -run_fundamental.at-1390-prog.cob:8.11-8.17: - 5 01 r BINARY-LONG. - 6 PROCEDURE DIVISION RETURNING r. - 7 move 1 to r - 8 > GOBACK ----- ^^^^^^ - 9 . - 10 END FUNCTION f1. ->> Warning: Invalid syntax - -run_fundamental.at-1390-prog.cob:17.11-17.14: - 14 01 i BINARY-LONG. - 15 01 r BINARY-LONG. - 16 PROCEDURE DIVISION USING i RETURNING r. - 17 > add i to i giving r ----- ^^^ - 18 GOBACK - 19 . ->> Error: Invalid syntax - -run_fundamental.at-1390-prog.cob:17.16: - 14 01 i BINARY-LONG. - 15 01 r BINARY-LONG. - 16 PROCEDURE DIVISION USING i RETURNING r. - 17 > add i to i giving r ----- ^ - 18 GOBACK - 19 . ->> Hint: Missing . - -run_fundamental.at-1390-prog.cob:17.17-17.19: - 14 01 i BINARY-LONG. - 15 01 r BINARY-LONG. - 16 PROCEDURE DIVISION USING i RETURNING r. - 17 > add i to i giving r ----- ^^ - 18 GOBACK - 19 . ->> Warning: Invalid syntax - -run_fundamental.at-1390-prog.cob:17.21: - 14 01 i BINARY-LONG. - 15 01 r BINARY-LONG. - 16 PROCEDURE DIVISION USING i RETURNING r. - 17 > add i to i giving r ----- ^ - 18 GOBACK - 19 . ->> Hint: Missing . - -run_fundamental.at-1390-prog.cob:17.22-17.28: - 14 01 i BINARY-LONG. - 15 01 r BINARY-LONG. - 16 PROCEDURE DIVISION USING i RETURNING r. - 17 > add i to i giving r ----- ^^^^^^ - 18 GOBACK - 19 . ->> Warning: Invalid syntax - -run_fundamental.at-1390-prog.cob:17.30: - 14 01 i BINARY-LONG. - 15 01 r BINARY-LONG. - 16 PROCEDURE DIVISION USING i RETURNING r. - 17 > add i to i giving r ----- ^ - 18 GOBACK - 19 . ->> Hint: Missing . - -run_fundamental.at-1390-prog.cob:18.11-18.17: - 15 01 r BINARY-LONG. - 16 PROCEDURE DIVISION USING i RETURNING r. - 17 add i to i giving r - 18 > GOBACK ----- ^^^^^^ - 19 . - 20 END FUNCTION f2. ->> Warning: Invalid syntax - -run_fundamental.at-1390-prog.cob:29.7-29.20: - 26 REPOSITORY. - 27 FUNCTION f1 - 28 FUNCTION f2. - 29 > SPECIAL-NAMES. ----- ^^^^^^^^^^^^^ - 30 CURRENCY SIGN IS "Y" - 31 DECIMAL-POINT IS COMMA. ->> Error: Invalid syntax - -run_fundamental.at-1390-prog.cob:45.20: - 42 77 curr PIC 9.9999,99Y. - 43 - 44 PROCEDURE DIVISION. - 45 > MOVE f1() TO n1 ----- ^ - 46 IF n1 NOT = 1 - 47 DISPLAY "ERROR 1" GOBACK ->> Hint: Missing - -run_fundamental.at-1390-prog.cob:45.19-45.20: - 42 77 curr PIC 9.9999,99Y. - 43 - 44 PROCEDURE DIVISION. - 45 > MOVE f1() TO n1 ----- ^ - 46 IF n1 NOT = 1 - 47 DISPLAY "ERROR 1" GOBACK ->> Error: Invalid syntax - -run_fundamental.at-1390-prog.cob:53.20: - 50 IF n1 NOT = 2 - 51 DISPLAY "ERROR 2" GOBACK - 52 END-IF - 53 > MOVE f1() TO n1 ----- ^ - 54 IF n1 NOT = 1 - 55 DISPLAY "ERROR 1 2nd" GOBACK ->> Hint: Missing - -run_fundamental.at-1390-prog.cob:53.19-53.20: - 50 IF n1 NOT = 2 - 51 DISPLAY "ERROR 2" GOBACK - 52 END-IF - 53 > MOVE f1() TO n1 ----- ^ - 54 IF n1 NOT = 1 - 55 DISPLAY "ERROR 1 2nd" GOBACK ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1412:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1494:0 -run_fundamental.at-1494-prog.cob:11.71: - 8 01 argument PIC X ANY LENGTH. - 9 01 result. - 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. - 11 > PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. ----- ^ - 12 MOVE FUNCTION LENGTH (argument) TO arg-len - 13 MOVE argument TO result. ->> Hint: Missing END - -run_fundamental.at-1494-prog.cob:12.11-12.15: - 9 01 result. - 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. - 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. - 12 > MOVE FUNCTION LENGTH (argument) TO arg-len ----- ^^^^ - 13 MOVE argument TO result. - 14 END FUNCTION reply. ->> Error: Invalid syntax - -run_fundamental.at-1494-prog.cob:12.25-12.31: - 9 01 result. - 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. - 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. - 12 > MOVE FUNCTION LENGTH (argument) TO arg-len ----- ^^^^^^ - 13 MOVE argument TO result. - 14 END FUNCTION reply. ->> Error: Invalid syntax - -run_fundamental.at-1494-prog.cob:12.41-12.42: - 9 01 result. - 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. - 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. - 12 > MOVE FUNCTION LENGTH (argument) TO arg-len ----- ^ - 13 MOVE argument TO result. - 14 END FUNCTION reply. ->> Error: Invalid syntax - -run_fundamental.at-1494-prog.cob:14.7-14.10: - 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. - 12 MOVE FUNCTION LENGTH (argument) TO arg-len - 13 MOVE argument TO result. - 14 > END FUNCTION reply. ----- ^^^ - 15 - 16 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -run_fundamental.at-1494-prog.cob:55.17-55.28: - 52 FUNCTION LENGTH (REPLY (arg)) " #" - 53 FUNCTION REPLY (arg) "#". - 54 *> - 55 > MOVE z"echo this" to arg ----- ^^^^^^^^^^^ - 56 IF not (FUNCTION REPLY (arg) = arg - 57 and FUNCTION LENGTH (REPLY (arg)) = 100 ) ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1526:0 -run_fundamental.at-1526-module.cob:8.7-8.12: - 5 PROCEDURE DIVISION. - 6 DISPLAY 'A' WITH NO ADVANCING - 7 GOBACK. - 8 > ENTRY 'modulepart'. ----- ^^^^^ - 9 DISPLAY 'B' WITH NO ADVANCING - 10 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1525:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1558:0 -run_fundamental.at-1558-module.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 some (void) - 7 { ->> Error: Unexpected indicator: `T' - -run_fundamental.at-1558-module.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > some (void) ----- ^ - 7 { - 8 return 0; ->> Error: Unexpected indicator: `v' - -run_fundamental.at-1558-module.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 some (void) - 7 { - 8 > return 0; ----- ^ - 9 } ->> Error: Unexpected indicator: `r' - -run_fundamental.at-1558-module.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 some (void) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1557:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1617:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1670:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1723:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1777:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1856:0 -run_fundamental.at-1856-prog.cob:20.20: - 17 DISPLAY "<" - 18 - 19 MOVE "dummy-call" TO prgm - 20 > CALL prgm ----- ^ - 21 >> IF CHECK-PERF IS DEFINED - 22 PERFORM 500000 TIMES ->> Hint: Missing . - -run_fundamental.at-1856-prog.cob:21.7-21.12: - 18 - 19 MOVE "dummy-call" TO prgm - 20 CALL prgm - 21 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^ - 22 PERFORM 500000 TIMES - 23 CALL prgm ->> Error: Invalid syntax - -run_fundamental.at-1856-prog.cob:21.23: - 18 - 19 MOVE "dummy-call" TO prgm - 20 CALL prgm - 21 > >> IF CHECK-PERF IS DEFINED ----- ^ - 22 PERFORM 500000 TIMES - 23 CALL prgm ->> Hint: Missing . - -run_fundamental.at-1856-prog.cob:21.24-21.26: - 18 - 19 MOVE "dummy-call" TO prgm - 20 CALL prgm - 21 > >> IF CHECK-PERF IS DEFINED ----- ^^ - 22 PERFORM 500000 TIMES - 23 CALL prgm ->> Warning: Invalid syntax - -run_fundamental.at-1856-prog.cob:21.34: - 18 - 19 MOVE "dummy-call" TO prgm - 20 CALL prgm - 21 > >> IF CHECK-PERF IS DEFINED ----- ^ - 22 PERFORM 500000 TIMES - 23 CALL prgm ->> Hint: Missing . - -run_fundamental.at-1856-prog.cob:22.11-22.18: - 19 MOVE "dummy-call" TO prgm - 20 CALL prgm - 21 >> IF CHECK-PERF IS DEFINED - 22 > PERFORM 500000 TIMES ----- ^^^^^^^ - 23 CALL prgm - 24 END-PERFORM ->> Warning: Invalid syntax - -run_fundamental.at-1856-prog.cob:25.7-25.16: - 22 PERFORM 500000 TIMES - 23 CALL prgm - 24 END-PERFORM - 25 > >> END-IF ----- ^^^^^^^^^ - 26 . - 27 END PROGRAM prog. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1956:0 -run_fundamental.at-1956-prog.cob:28.24: - 25 DISPLAY "<" - 26 - 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" - 28 > CALL prog-ptr ----- ^ - 29 >> IF CHECK-PERF IS DEFINED - 30 PERFORM 500000 TIMES ->> Hint: Missing . - -run_fundamental.at-1956-prog.cob:29.7-29.12: - 26 - 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" - 28 CALL prog-ptr - 29 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^ - 30 PERFORM 500000 TIMES - 31 CALL prog-ptr ->> Error: Invalid syntax - -run_fundamental.at-1956-prog.cob:29.23: - 26 - 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" - 28 CALL prog-ptr - 29 > >> IF CHECK-PERF IS DEFINED ----- ^ - 30 PERFORM 500000 TIMES - 31 CALL prog-ptr ->> Hint: Missing . - -run_fundamental.at-1956-prog.cob:29.24-29.26: - 26 - 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" - 28 CALL prog-ptr - 29 > >> IF CHECK-PERF IS DEFINED ----- ^^ - 30 PERFORM 500000 TIMES - 31 CALL prog-ptr ->> Warning: Invalid syntax - -run_fundamental.at-1956-prog.cob:29.34: - 26 - 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" - 28 CALL prog-ptr - 29 > >> IF CHECK-PERF IS DEFINED ----- ^ - 30 PERFORM 500000 TIMES - 31 CALL prog-ptr ->> Hint: Missing . - -run_fundamental.at-1956-prog.cob:30.11-30.18: - 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" - 28 CALL prog-ptr - 29 >> IF CHECK-PERF IS DEFINED - 30 > PERFORM 500000 TIMES ----- ^^^^^^^ - 31 CALL prog-ptr - 32 END-PERFORM ->> Warning: Invalid syntax - -run_fundamental.at-1956-prog.cob:33.7-33.16: - 30 PERFORM 500000 TIMES - 31 CALL prog-ptr - 32 END-PERFORM - 33 > >> END-IF ----- ^^^^^^^^^ - 34 . - 35 END PROGRAM prog. ->> Error: Invalid syntax - -run_fundamental.at-1956-prog.cob:60.50: - 57 - 58 DATA DIVISION. - 59 WORKING-STORAGE SECTION. - 60 > 77 self-ptr USAGE PROGRAM-POINTER VALUE NULL. ----- ^ - 61 01 x PIC 9 VALUE 1. - 62 ->> Hint: Missing - -run_fundamental.at-1956-prog.cob:60.51-60.55: - 57 - 58 DATA DIVISION. - 59 WORKING-STORAGE SECTION. - 60 > 77 self-ptr USAGE PROGRAM-POINTER VALUE NULL. ----- ^^^^ - 61 01 x PIC 9 VALUE 1. - 62 ->> Error: Invalid syntax - -run_fundamental.at-1956-prog.cob:64.27-64.32: - 61 01 x PIC 9 VALUE 1. - 62 - 63 PROCEDURE DIVISION. - 64 > SET self-ptr TO ENTRY "cancel-test" ----- ^^^^^ - 65 IF self-ptr = NULL - 66 DISPLAY 'self-address not set' UPON SYSERR. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2060:0 -run_fundamental.at-2060-prog.cob:28.50: - 25 . - 26 DATA DIVISION. - 27 WORKING-STORAGE SECTION. - 28 > 77 prog-ptr USAGE PROGRAM-POINTER VALUE NULL. ----- ^ - 29 01 num PIC 9 VALUE 0. - 30 ->> Hint: Missing - -run_fundamental.at-2060-prog.cob:28.51-28.55: - 25 . - 26 DATA DIVISION. - 27 WORKING-STORAGE SECTION. - 28 > 77 prog-ptr USAGE PROGRAM-POINTER VALUE NULL. ----- ^^^^ - 29 01 num PIC 9 VALUE 0. - 30 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2119:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2170:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2219:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2271:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2293:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2329:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2330:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2371:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2372:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2397:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2428:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2453:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2477:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2501:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2526:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2549:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2571:0 -run_fundamental.at-2571-prog.cob:11.20-11.26: - 8 01 NORMAL PIC 9 VALUE 0. - 9 PROCEDURE DIVISION. - 10 DISPLAY NORMAL NO ADVANCING *> Intentionally no period or END-DISPLAY - 11 > STOP RUN NORMAL. ----- ^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2598:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2625:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2688:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2751:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2814:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2877:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2940:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3003:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3066:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3102:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3338:0 -run_fundamental.at-3338-prog.cob:19.7-19.34: - 16 MAIN. - 17 * Test with DISPLAY on error - 18 PERFORM DO-CHECK. - 19 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 20 SET NO-DISP TO TRUE - 21 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-3338-prog.cob:23.7-23.16: - 20 SET NO-DISP TO TRUE - 21 * some performance checks on the way... - 22 PERFORM DO-CHECK 20000 TIMES. - 23 > >> END-IF ----- ^^^^^^^^^ - 24 GOBACK. - 25 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3642:0 -run_fundamental.at-3642-prog.cob:23.7-23.34: - 20 PROCEDURE DIVISION. - 21 * Test with DISPLAY on error - 22 PERFORM DO-CHECK. - 23 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 24 SET NO-DISP TO TRUE - 25 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-3642-prog.cob:27.7-27.16: - 24 SET NO-DISP TO TRUE - 25 * some performance checks on the way... - 26 PERFORM DO-CHECK 20000 TIMES. - 27 > >> END-IF ----- ^^^^^^^^^ - 28 GOBACK. - 29 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3877:0 -run_fundamental.at-3877-prog.cob:18.7-18.34: - 15 PROCEDURE DIVISION. - 16 * Test with DISPLAY on error - 17 PERFORM DO-CHECK. - 18 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 19 SET NO-DISP TO TRUE - 20 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-3877-prog.cob:22.7-22.16: - 19 SET NO-DISP TO TRUE - 20 * some performance checks on the way... - 21 PERFORM DO-CHECK 20000 TIMES. - 22 > >> END-IF ----- ^^^^^^^^^ - 23 GOBACK. - 24 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4112:0 -run_fundamental.at-4112-prog.cob:18.7-18.34: - 15 PROCEDURE DIVISION. - 16 * Test with DISPLAY on error - 17 PERFORM DO-CHECK. - 18 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 19 SET NO-DISP TO TRUE - 20 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-4112-prog.cob:22.7-22.16: - 19 SET NO-DISP TO TRUE - 20 * some performance checks on the way... - 21 PERFORM DO-CHECK 20000 TIMES. - 22 > >> END-IF ----- ^^^^^^^^^ - 23 GOBACK. - 24 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4171:0 -run_fundamental.at-4171-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (char *p) - 7 { ->> Error: Unexpected indicator: `T' - -run_fundamental.at-4171-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (char *p) ----- ^ - 7 { - 8 printf ("%c%c", p[0], p[1]); ->> Error: Unexpected indicator: `c' - -run_fundamental.at-4171-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (char *p) - 7 { - 8 > printf ("%c%c", p[0], p[1]); ----- ^ - 9 return 0; - 10 } ->> Error: Unexpected indicator: `t' - -run_fundamental.at-4171-dump.c:9.6-9.7: - 6 dump (char *p) - 7 { - 8 printf ("%c%c", p[0], p[1]); - 9 > return 0; ----- ^ - 10 } ->> Error: Unexpected indicator: `r' - -run_fundamental.at-4171-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (char *p) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4172:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4462:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4508:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4560:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4608:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4648:0 -run_fundamental.at-4648-prog.cob:12.7-12.11: - 9 05 misalign-1 PIC X. - 10 05 ptr POINTER, SYNC. - 11 05 ptr-num REDEFINES ptr, - 12 > >>IF P64 SET ----- ^^^^ - 13 USAGE BINARY-DOUBLE UNSIGNED. - 14 >>ELSE ->> Error: Invalid syntax - -run_fundamental.at-4648-prog.cob:14.7-14.13: - 11 05 ptr-num REDEFINES ptr, - 12 >>IF P64 SET - 13 USAGE BINARY-DOUBLE UNSIGNED. - 14 > >>ELSE ----- ^^^^^^ - 15 USAGE BINARY-LONG UNSIGNED. - 16 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-4648-prog.cob:16.7-16.15: - 13 USAGE BINARY-DOUBLE UNSIGNED. - 14 >>ELSE - 15 USAGE BINARY-LONG UNSIGNED. - 16 > >>END-IF ----- ^^^^^^^^ - 17 05 misalign-2 PIC X. - 18 ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-4648-prog.cob:15.40-15.45: - 12 >>IF P64 SET - 13 USAGE BINARY-DOUBLE UNSIGNED. - 14 >>ELSE - 15 > USAGE BINARY-LONG UNSIGNED. ----- ^^^^^ - 16 >>END-IF - 17 05 misalign-2 PIC X. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4745:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4774:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4802:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4828:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4861:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4982:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5018:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5040:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5063:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5089:0 -run_fundamental.at-5089-prog.cob:12.36: - 9 PROCEDURE DIVISION. - 10 D DISPLAY "KO" NO ADVANCING UPON STDOUT - 11 D END-DISPLAY. - 12 > DISPLAY "OK" NO ADVANCING UPON STDOUT ----- ^ - 13 END-DISPLAY. - 14 STOP RUN. ->> Hint: Missing . - -run_fundamental.at-5089-prog.cob:12.37-12.41: - 9 PROCEDURE DIVISION. - 10 D DISPLAY "KO" NO ADVANCING UPON STDOUT - 11 D END-DISPLAY. - 12 > DISPLAY "OK" NO ADVANCING UPON STDOUT ----- ^^^^ - 13 END-DISPLAY. - 14 STOP RUN. ->> Warning: Invalid syntax - -run_fundamental.at-5089-prog.cob:13.11-13.22: - 10 D DISPLAY "KO" NO ADVANCING UPON STDOUT - 11 D END-DISPLAY. - 12 DISPLAY "OK" NO ADVANCING UPON STDOUT - 13 > END-DISPLAY. ----- ^^^^^^^^^^^ - 14 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5112:0 -run_fundamental.at-5112-prog.cob:9.6-9.38: - 6 PROCEDURE DIVISION. - 7 DISPLAY "OK" NO ADVANCING - 8 END-DISPLAY. - 9 > >>D DISPLAY "KO" NO ADVANCING ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 >>D END-DISPLAY. - 11 STOP RUN. ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-5112-prog.cob:10.6-10.25: - 7 DISPLAY "OK" NO ADVANCING - 8 END-DISPLAY. - 9 >>D DISPLAY "KO" NO ADVANCING - 10 > >>D END-DISPLAY. ----- ^^^^^^^^^^^^^^^^^^^ - 11 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5135:0 -run_fundamental.at-5135-prog.cob:9.6-9.38: - 6 PROCEDURE DIVISION. - 7 DISPLAY "OK" NO ADVANCING - 8 END-DISPLAY. - 9 > >>D DISPLAY "KO" NO ADVANCING ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 >>D END-DISPLAY. - 11 STOP RUN. ->> Error: Malformed or unknown compiler directive - -run_fundamental.at-5135-prog.cob:10.6-10.25: - 7 DISPLAY "OK" NO ADVANCING - 8 END-DISPLAY. - 9 >>D DISPLAY "KO" NO ADVANCING - 10 > >>D END-DISPLAY. ----- ^^^^^^^^^^^^^^^^^^^ - 11 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5172:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5217:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5262:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5313:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5363:0 -run_fundamental.at-5363-prog.cob:15.14: - 12 DISPLAY DEBUG-ITEM "|" END-DISPLAY. - 13 END DECLARATIVES. - 14 FIRST-PAR. - 15 > SET ENVIRONMENT "COB_SET_DEBUG" TO "false" ----- ^ - 16 DISPLAY "OK1" END-DISPLAY. - 17 GO TO SECOND-PAR. ->> Hint: Missing rnell_rev___anonymous_88_ - -run_fundamental.at-5363-prog.cob:15.15-15.26: - 12 DISPLAY DEBUG-ITEM "|" END-DISPLAY. - 13 END DECLARATIVES. - 14 FIRST-PAR. - 15 > SET ENVIRONMENT "COB_SET_DEBUG" TO "false" ----- ^^^^^^^^^^^ - 16 DISPLAY "OK1" END-DISPLAY. - 17 GO TO SECOND-PAR. ->> Error: Invalid syntax - -run_fundamental.at-5363-prog.cob:24.14: - 21 DISPLAY "OK3" END-DISPLAY. - 22 PERFORM FIRST-PAR THRU SECOND-PAR. - 23 DISPLAY "OK4" END-DISPLAY. - 24 > SET ENVIRONMENT "COB_SET_DEBUG" TO "Y" ----- ^ - 25 PERFORM SECOND-PAR. - 26 DISPLAY "OK5" END-DISPLAY. ->> Hint: Missing rnell_rev___anonymous_88_ - -run_fundamental.at-5363-prog.cob:24.15-24.26: - 21 DISPLAY "OK3" END-DISPLAY. - 22 PERFORM FIRST-PAR THRU SECOND-PAR. - 23 DISPLAY "OK4" END-DISPLAY. - 24 > SET ENVIRONMENT "COB_SET_DEBUG" TO "Y" ----- ^^^^^^^^^^^ - 25 PERFORM SECOND-PAR. - 26 DISPLAY "OK5" END-DISPLAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5426:0 -run_fundamental.at-5426-prog.cob:30.11-30.22: - 27 PERFORM VARYING MY-DATA-FIELD-1 FROM 1 BY 1 - 28 UNTIL MY-DATA-FIELD-1 > MY-DATA-FIELD-2 - 29 *> empty by design - 30 > END-PERFORM. ----- ^^^^^^^^^^^ - 31 END-PAR. - 32 MOVE "99" TO MY-DATA-FIELD-B. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5486:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5538:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5576:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5623:0 -run_fundamental.at-5623-prog.cob:10.43: - 7 DATA DIVISION. - 8 WORKING-STORAGE SECTION. - 9 01 DATA-FIELD PIC X(40) VALUE "ABCD" BASED. - 10 > 77 PTR USAGE POINTER VALUE NULL. ----- ^ - 11 01 DATA-FIELD3 PIC X(13) VALUE "42" BASED. - 12 LINKAGE SECTION. ->> Hint: Missing - -run_fundamental.at-5623-prog.cob:10.44-10.48: - 7 DATA DIVISION. - 8 WORKING-STORAGE SECTION. - 9 01 DATA-FIELD PIC X(40) VALUE "ABCD" BASED. - 10 > 77 PTR USAGE POINTER VALUE NULL. ----- ^^^^ - 11 01 DATA-FIELD3 PIC X(13) VALUE "42" BASED. - 12 LINKAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5670:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6013:0 -run_fundamental.at-6013-prog.cob:24.7-24.12: - 21 - 22 *> Test with DISPLAY on error - 23 PERFORM DO-CHECK - 24 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^ - 25 SET NO-DISP TO TRUE - 26 *> minimal side-test for performance comparisons ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:24.23: - 21 - 22 *> Test with DISPLAY on error - 23 PERFORM DO-CHECK - 24 > >> IF CHECK-PERF IS DEFINED ----- ^ - 25 SET NO-DISP TO TRUE - 26 *> minimal side-test for performance comparisons ->> Hint: Missing TIMES . - -run_fundamental.at-6013-prog.cob:24.24-24.26: - 21 - 22 *> Test with DISPLAY on error - 23 PERFORM DO-CHECK - 24 > >> IF CHECK-PERF IS DEFINED ----- ^^ - 25 SET NO-DISP TO TRUE - 26 *> minimal side-test for performance comparisons ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:24.34: - 21 - 22 *> Test with DISPLAY on error - 23 PERFORM DO-CHECK - 24 > >> IF CHECK-PERF IS DEFINED ----- ^ - 25 SET NO-DISP TO TRUE - 26 *> minimal side-test for performance comparisons ->> Hint: Missing . - -run_fundamental.at-6013-prog.cob:25.11-25.14: - 22 *> Test with DISPLAY on error - 23 PERFORM DO-CHECK - 24 >> IF CHECK-PERF IS DEFINED - 25 > SET NO-DISP TO TRUE ----- ^^^ - 26 *> minimal side-test for performance comparisons - 27 PERFORM DO-CHECK 20000 TIMES ->> Warning: Invalid syntax - -run_fundamental.at-6013-prog.cob:28.7-28.16: - 25 SET NO-DISP TO TRUE - 26 *> minimal side-test for performance comparisons - 27 PERFORM DO-CHECK 20000 TIMES - 28 > >> END-IF ----- ^^^^^^^^^ - 29 GOBACK. - 30 ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:76.29-76.33: - 73 ELSE DISPLAY '! LOW-VALUE <= "X"'. - 74 IF LOW-VALUE >= FLDX DISPLAY ' LOW-VALUE >= "X"!'. - 75 - 76 > IF FLDX > x"00" CONTINUE ----- ^^^^ - 77 ELSE DISPLAY '! "X" > x"00"'. - 78 IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:78.29-78.33: - 75 - 76 IF FLDX > x"00" CONTINUE - 77 ELSE DISPLAY '! "X" > x"00"'. - 78 > IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. ----- ^^^^ - 79 IF FLDX >= x"00" CONTINUE - 80 ELSE DISPLAY '! "X" >= x"00"'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:79.29-79.33: - 76 IF FLDX > x"00" CONTINUE - 77 ELSE DISPLAY '! "X" > x"00"'. - 78 IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. - 79 > IF FLDX >= x"00" CONTINUE ----- ^^^^ - 80 ELSE DISPLAY '! "X" >= x"00"'. - 81 IF FLDX <= x"00" DISPLAY ' "X" <= x"00"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:81.29-81.33: - 78 IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. - 79 IF FLDX >= x"00" CONTINUE - 80 ELSE DISPLAY '! "X" >= x"00"'. - 81 > IF FLDX <= x"00" DISPLAY ' "X" <= x"00"!'. ----- ^^^^ - 82 - 83 IF x"00" < FLDX CONTINUE ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:83.15-83.19: - 80 ELSE DISPLAY '! "X" >= x"00"'. - 81 IF FLDX <= x"00" DISPLAY ' "X" <= x"00"!'. - 82 - 83 > IF x"00" < FLDX CONTINUE ----- ^^^^ - 84 ELSE DISPLAY '! x"00" < "X"'. - 85 IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:85.15-85.19: - 82 - 83 IF x"00" < FLDX CONTINUE - 84 ELSE DISPLAY '! x"00" < "X"'. - 85 > IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. ----- ^^^^ - 86 IF x"00" <= FLDX CONTINUE - 87 ELSE DISPLAY '! x"00" <= "X"'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:86.15-86.19: - 83 IF x"00" < FLDX CONTINUE - 84 ELSE DISPLAY '! x"00" < "X"'. - 85 IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. - 86 > IF x"00" <= FLDX CONTINUE ----- ^^^^ - 87 ELSE DISPLAY '! x"00" <= "X"'. - 88 IF x"00" >= FLDX DISPLAY ' x"00" >= "X"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:88.15-88.19: - 85 IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. - 86 IF x"00" <= FLDX CONTINUE - 87 ELSE DISPLAY '! x"00" <= "X"'. - 88 > IF x"00" >= FLDX DISPLAY ' x"00" >= "X"!'. ----- ^^^^ - 89 - 90 ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:105.29-105.33: - 102 ELSE DISPLAY '! HIGH-VALUE >= "X"'. - 103 IF HIGH-VALUE <= FLDX DISPLAY ' HIGH-VALUE <= "X"!'. - 104 - 105 > IF FLDX < x"FF" CONTINUE ----- ^^^^ - 106 ELSE DISPLAY '! "X" < x"FF"'. - 107 IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:107.29-107.33: - 104 - 105 IF FLDX < x"FF" CONTINUE - 106 ELSE DISPLAY '! "X" < x"FF"'. - 107 > IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. ----- ^^^^ - 108 IF FLDX <= x"FF" CONTINUE - 109 ELSE DISPLAY '! "X" <= x"FF"'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:108.29-108.33: - 105 IF FLDX < x"FF" CONTINUE - 106 ELSE DISPLAY '! "X" < x"FF"'. - 107 IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. - 108 > IF FLDX <= x"FF" CONTINUE ----- ^^^^ - 109 ELSE DISPLAY '! "X" <= x"FF"'. - 110 IF FLDX >= x"FF" DISPLAY ' "X" >= x"FF"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:110.29-110.33: - 107 IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. - 108 IF FLDX <= x"FF" CONTINUE - 109 ELSE DISPLAY '! "X" <= x"FF"'. - 110 > IF FLDX >= x"FF" DISPLAY ' "X" >= x"FF"!'. ----- ^^^^ - 111 - 112 IF x"FF" > FLDX CONTINUE ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:112.15-112.19: - 109 ELSE DISPLAY '! "X" <= x"FF"'. - 110 IF FLDX >= x"FF" DISPLAY ' "X" >= x"FF"!'. - 111 - 112 > IF x"FF" > FLDX CONTINUE ----- ^^^^ - 113 ELSE DISPLAY '! x"FF" > "X"'. - 114 IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:114.15-114.19: - 111 - 112 IF x"FF" > FLDX CONTINUE - 113 ELSE DISPLAY '! x"FF" > "X"'. - 114 > IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. ----- ^^^^ - 115 IF x"FF" >= FLDX CONTINUE - 116 ELSE DISPLAY '! x"FF" >= "X"'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:115.15-115.19: - 112 IF x"FF" > FLDX CONTINUE - 113 ELSE DISPLAY '! x"FF" > "X"'. - 114 IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. - 115 > IF x"FF" >= FLDX CONTINUE ----- ^^^^ - 116 ELSE DISPLAY '! x"FF" >= "X"'. - 117 IF x"FF" <= FLDX DISPLAY ' x"FF" <= "X"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:117.15-117.19: - 114 IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. - 115 IF x"FF" >= FLDX CONTINUE - 116 ELSE DISPLAY '! x"FF" >= "X"'. - 117 > IF x"FF" <= FLDX DISPLAY ' x"FF" <= "X"!'. ----- ^^^^ - 118 - 119 ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:192.29-192.33: - 189 ELSE DISPLAY '! LOW-VALUE <= "X"'. - 190 IF LOW-VALUE >= FLDX32K DISPLAY ' LOW-VALUE >= "X"!'. - 191 - 192 > IF FLDX32K > x"00" CONTINUE ----- ^^^^ - 193 ELSE DISPLAY '! "X " > x"00"'. - 194 IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:194.29-194.33: - 191 - 192 IF FLDX32K > x"00" CONTINUE - 193 ELSE DISPLAY '! "X " > x"00"'. - 194 > IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. ----- ^^^^ - 195 IF FLDX32K >= x"00" CONTINUE - 196 ELSE DISPLAY '! "X " >= x"00"'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:195.29-195.33: - 192 IF FLDX32K > x"00" CONTINUE - 193 ELSE DISPLAY '! "X " > x"00"'. - 194 IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. - 195 > IF FLDX32K >= x"00" CONTINUE ----- ^^^^ - 196 ELSE DISPLAY '! "X " >= x"00"'. - 197 IF FLDX32K <= x"00" DISPLAY ' "X " <= x"00"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:197.29-197.33: - 194 IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. - 195 IF FLDX32K >= x"00" CONTINUE - 196 ELSE DISPLAY '! "X " >= x"00"'. - 197 > IF FLDX32K <= x"00" DISPLAY ' "X " <= x"00"!'. ----- ^^^^ - 198 - 199 IF x"00" < FLDX32K CONTINUE ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:199.15-199.19: - 196 ELSE DISPLAY '! "X " >= x"00"'. - 197 IF FLDX32K <= x"00" DISPLAY ' "X " <= x"00"!'. - 198 - 199 > IF x"00" < FLDX32K CONTINUE ----- ^^^^ - 200 ELSE DISPLAY '! x"00" < "X "'. - 201 IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:201.15-201.19: - 198 - 199 IF x"00" < FLDX32K CONTINUE - 200 ELSE DISPLAY '! x"00" < "X "'. - 201 > IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. ----- ^^^^ - 202 IF x"00" <= FLDX32K CONTINUE - 203 ELSE DISPLAY '! x"00" <= "X "'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:202.15-202.19: - 199 IF x"00" < FLDX32K CONTINUE - 200 ELSE DISPLAY '! x"00" < "X "'. - 201 IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. - 202 > IF x"00" <= FLDX32K CONTINUE ----- ^^^^ - 203 ELSE DISPLAY '! x"00" <= "X "'. - 204 IF x"00" >= FLDX32K DISPLAY ' x"00" >= "X "!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:204.15-204.19: - 201 IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. - 202 IF x"00" <= FLDX32K CONTINUE - 203 ELSE DISPLAY '! x"00" <= "X "'. - 204 > IF x"00" >= FLDX32K DISPLAY ' x"00" >= "X "!'. ----- ^^^^ - 205 - 206 ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:221.29-221.33: - 218 ELSE DISPLAY '! HIGH-VALUE >= "X "'. - 219 IF HIGH-VALUE <= FLDX32K DISPLAY ' HIGH-VALUE <= "X "!'. - 220 - 221 > IF FLDX32K < x"FF" CONTINUE ----- ^^^^ - 222 ELSE DISPLAY '! "X " < x"FF"'. - 223 IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:223.29-223.33: - 220 - 221 IF FLDX32K < x"FF" CONTINUE - 222 ELSE DISPLAY '! "X " < x"FF"'. - 223 > IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. ----- ^^^^ - 224 IF FLDX32K <= x"FF" CONTINUE - 225 ELSE DISPLAY '! "X " <= x"FF"'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:224.29-224.33: - 221 IF FLDX32K < x"FF" CONTINUE - 222 ELSE DISPLAY '! "X " < x"FF"'. - 223 IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. - 224 > IF FLDX32K <= x"FF" CONTINUE ----- ^^^^ - 225 ELSE DISPLAY '! "X " <= x"FF"'. - 226 IF FLDX32K >= x"FF" DISPLAY ' "X " >= x"FF"!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:226.29-226.33: - 223 IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. - 224 IF FLDX32K <= x"FF" CONTINUE - 225 ELSE DISPLAY '! "X " <= x"FF"'. - 226 > IF FLDX32K >= x"FF" DISPLAY ' "X " >= x"FF"!'. ----- ^^^^ - 227 - 228 IF x"FF" > FLDX32K CONTINUE ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:228.15-228.19: - 225 ELSE DISPLAY '! "X " <= x"FF"'. - 226 IF FLDX32K >= x"FF" DISPLAY ' "X " >= x"FF"!'. - 227 - 228 > IF x"FF" > FLDX32K CONTINUE ----- ^^^^ - 229 ELSE DISPLAY '! x"FF" > "X "'. - 230 IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:230.15-230.19: - 227 - 228 IF x"FF" > FLDX32K CONTINUE - 229 ELSE DISPLAY '! x"FF" > "X "'. - 230 > IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. ----- ^^^^ - 231 IF x"FF" >= FLDX32K CONTINUE - 232 ELSE DISPLAY '! x"FF" >= "X "'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:231.15-231.19: - 228 IF x"FF" > FLDX32K CONTINUE - 229 ELSE DISPLAY '! x"FF" > "X "'. - 230 IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. - 231 > IF x"FF" >= FLDX32K CONTINUE ----- ^^^^ - 232 ELSE DISPLAY '! x"FF" >= "X "'. - 233 IF x"FF" <= FLDX32K DISPLAY ' x"FF" <= "X "!'. ->> Error: Invalid syntax - -run_fundamental.at-6013-prog.cob:233.15-233.19: - 230 IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. - 231 IF x"FF" >= FLDX32K CONTINUE - 232 ELSE DISPLAY '! x"FF" >= "X "'. - 233 > IF x"FF" <= FLDX32K DISPLAY ' x"FF" <= "X "!'. ----- ^^^^ - 234 - 235 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6075:0 -run_fundamental.at-6075-prog.cob:22.7-22.12: - 19 - 20 *> Test with DISPLAY on error - 21 PERFORM DO-CHECK - 22 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^ - 23 SET NO-DISP TO TRUE - 24 *> minimal side-test for performance comparisons ->> Error: Invalid syntax - -run_fundamental.at-6075-prog.cob:22.23: - 19 - 20 *> Test with DISPLAY on error - 21 PERFORM DO-CHECK - 22 > >> IF CHECK-PERF IS DEFINED ----- ^ - 23 SET NO-DISP TO TRUE - 24 *> minimal side-test for performance comparisons ->> Hint: Missing TIMES . - -run_fundamental.at-6075-prog.cob:22.24-22.26: - 19 - 20 *> Test with DISPLAY on error - 21 PERFORM DO-CHECK - 22 > >> IF CHECK-PERF IS DEFINED ----- ^^ - 23 SET NO-DISP TO TRUE - 24 *> minimal side-test for performance comparisons ->> Error: Invalid syntax - -run_fundamental.at-6075-prog.cob:22.34: - 19 - 20 *> Test with DISPLAY on error - 21 PERFORM DO-CHECK - 22 > >> IF CHECK-PERF IS DEFINED ----- ^ - 23 SET NO-DISP TO TRUE - 24 *> minimal side-test for performance comparisons ->> Hint: Missing . - -run_fundamental.at-6075-prog.cob:23.11-23.14: - 20 *> Test with DISPLAY on error - 21 PERFORM DO-CHECK - 22 >> IF CHECK-PERF IS DEFINED - 23 > SET NO-DISP TO TRUE ----- ^^^ - 24 *> minimal side-test for performance comparisons - 25 PERFORM DO-CHECK 20000 TIMES ->> Warning: Invalid syntax - -run_fundamental.at-6075-prog.cob:26.7-26.16: - 23 SET NO-DISP TO TRUE - 24 *> minimal side-test for performance comparisons - 25 PERFORM DO-CHECK 20000 TIMES - 26 > >> END-IF ----- ^^^^^^^^^ - 27 GOBACK. - 28 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6161:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6229:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6281:0 -run_fundamental.at-6281-callee.cob:8.28: - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 77 EXT-INT IS TYPEDEF BINARY-LONG EXTERNAL. - 8 > 77 SOMEEXT USAGE EXT-INT. ----- ^ - 9 - 10 PROCEDURE DIVISION. ->> Hint: Missing BINARY - -run_fundamental.at-6281-callee.cob:8.29-8.36: - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 77 EXT-INT IS TYPEDEF BINARY-LONG EXTERNAL. - 8 > 77 SOMEEXT USAGE EXT-INT. ----- ^^^^^^^ - 9 - 10 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6280:0 -run_fundamental.at-6280-caller.cob:12.28: - 9 *> should this be possible? - 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. - 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. - 12 > 77 SOMEVAR USAGE INT VALUE 10. ----- ^ - 13 77 SOMEVAL USAGE INT-VAL. - 14 77 SOMEEXT USAGE EXT-INT. ->> Hint: Missing BINARY - -run_fundamental.at-6280-caller.cob:12.29-12.32: - 9 *> should this be possible? - 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. - 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. - 12 > 77 SOMEVAR USAGE INT VALUE 10. ----- ^^^ - 13 77 SOMEVAL USAGE INT-VAL. - 14 77 SOMEEXT USAGE EXT-INT. ->> Error: Invalid syntax - -run_fundamental.at-6280-caller.cob:13.28: - 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. - 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. - 12 77 SOMEVAR USAGE INT VALUE 10. - 13 > 77 SOMEVAL USAGE INT-VAL. ----- ^ - 14 77 SOMEEXT USAGE EXT-INT. - 15 ->> Hint: Missing BINARY - -run_fundamental.at-6280-caller.cob:13.29-13.36: - 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. - 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. - 12 77 SOMEVAR USAGE INT VALUE 10. - 13 > 77 SOMEVAL USAGE INT-VAL. ----- ^^^^^^^ - 14 77 SOMEEXT USAGE EXT-INT. - 15 ->> Error: Invalid syntax - -run_fundamental.at-6280-caller.cob:14.28: - 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. - 12 77 SOMEVAR USAGE INT VALUE 10. - 13 77 SOMEVAL USAGE INT-VAL. - 14 > 77 SOMEEXT USAGE EXT-INT. ----- ^ - 15 - 16 PROCEDURE DIVISION. ->> Hint: Missing BINARY - -run_fundamental.at-6280-caller.cob:14.29-14.36: - 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. - 12 77 SOMEVAR USAGE INT VALUE 10. - 13 77 SOMEVAL USAGE INT-VAL. - 14 > 77 SOMEEXT USAGE EXT-INT. ----- ^^^^^^^ - 15 - 16 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6308:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6393:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6348:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6440:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6484:0 -run_fundamental.at-6484-prog.cob:13.26: - 10 PROCEDURE DIVISION. - 11 MAIN-PROGRAM SECTION. - 12 INIZIO. - 13 > IF VAR1 = (VAR2 AND VAR3 AND VAR4) ----- ^ - 14 DISPLAY "TRUE 1" - 15 END-IF ->> Hint: Missing ) - -run_fundamental.at-6484-prog.cob:13.27-13.30: - 10 PROCEDURE DIVISION. - 11 MAIN-PROGRAM SECTION. - 12 INIZIO. - 13 > IF VAR1 = (VAR2 AND VAR3 AND VAR4) ----- ^^^ - 14 DISPLAY "TRUE 1" - 15 END-IF ->> Error: Invalid syntax - -run_fundamental.at-6484-prog.cob:13.44-13.45: - 10 PROCEDURE DIVISION. - 11 MAIN-PROGRAM SECTION. - 12 INIZIO. - 13 > IF VAR1 = (VAR2 AND VAR3 AND VAR4) ----- ^ - 14 DISPLAY "TRUE 1" - 15 END-IF ->> Error: Invalid syntax - -run_fundamental.at-6484-prog.cob:16.30: - 13 IF VAR1 = (VAR2 AND VAR3 AND VAR4) - 14 DISPLAY "TRUE 1" - 15 END-IF - 16 > IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) ----- ^ - 17 DISPLAY "TRUE 2" - 18 END-IF ->> Hint: Missing ) - -run_fundamental.at-6484-prog.cob:16.31-16.34: - 13 IF VAR1 = (VAR2 AND VAR3 AND VAR4) - 14 DISPLAY "TRUE 1" - 15 END-IF - 16 > IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) ----- ^^^ - 17 DISPLAY "TRUE 2" - 18 END-IF ->> Error: Invalid syntax - -run_fundamental.at-6484-prog.cob:16.48-16.49: - 13 IF VAR1 = (VAR2 AND VAR3 AND VAR4) - 14 DISPLAY "TRUE 1" - 15 END-IF - 16 > IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) ----- ^ - 17 DISPLAY "TRUE 2" - 18 END-IF ->> Error: Invalid syntax - -run_fundamental.at-6484-prog.cob:19.30: - 16 IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) - 17 DISPLAY "TRUE 2" - 18 END-IF - 19 > IF VAR1 NOT > (VAR2 AND VAR3 AND VAR4) ----- ^ - 20 DISPLAY "TRUE 3" - 21 END-IF ->> Hint: Missing ) - -run_fundamental.at-6484-prog.cob:19.31-19.34: - 16 IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) - 17 DISPLAY "TRUE 2" - 18 END-IF - 19 > IF VAR1 NOT > (VAR2 AND VAR3 AND VAR4) ----- ^^^ - 20 DISPLAY "TRUE 3" - 21 END-IF ->> Error: Invalid syntax - -run_fundamental.at-6484-prog.cob:19.48-19.49: - 16 IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) - 17 DISPLAY "TRUE 2" - 18 END-IF - 19 > IF VAR1 NOT > (VAR2 AND VAR3 AND VAR4) ----- ^ - 20 DISPLAY "TRUE 3" - 21 END-IF ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6560:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6764:0 -run_fundamental.at-6764-prog.cob:174.16-174.22: - 171 CHECK-LENGTH. - 172 *>----------- - 173 *> - 174 > MOVE LENGTH OF P-PIC-1 TO W01-I . ----- ^^^^^^ - 175 IF W01-I NOT = 2 - 176 THEN ->> Error: Invalid syntax - -run_fundamental.at-6764-prog.cob:179.16-179.22: - 176 THEN - 177 DISPLAY 'Error 1 size <' W01-I '> !=2' . - 178 *> - 179 > MOVE LENGTH OF P-PIC-2 TO W01-I . ----- ^^^^^^ - 180 IF W01-I NOT = 2 - 181 THEN ->> Error: Invalid syntax - -run_fundamental.at-6764-prog.cob:184.16-184.22: - 181 THEN - 182 DISPLAY 'Error 2 size <' W01-I '> !=2' . - 183 *> - 184 > MOVE LENGTH OF P-PIC-3 TO W01-I . ----- ^^^^^^ - 185 IF W01-I NOT = 1 - 186 THEN ->> Error: Invalid syntax - -run_fundamental.at-6764-prog.cob:190.16-190.22: - 187 DISPLAY 'Error 3 size <' W01-I '> !=1' . - 188 *> - 189 - 190 > MOVE LENGTH OF P-PIC-4 TO W01-I . ----- ^^^^^^ - 191 IF W01-I NOT = 1 - 192 THEN ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6816:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6874:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6925:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6977:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:7029:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:7158:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:7232:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:9015:0 -run_fundamental.at-9015-prog.cob:14.21: - 11 WORKING-STORAGE SECTION. - 12 - 13 01 ALL-SRC . - 14 > 05 FIELD-02 BINARY-C-LONG SIGNED . ----- ^ - 15 05 FIELD-03 BINARY-C-LONG UNSIGNED . - 16 05 FIELD-04 BINARY-CHAR SIGNED . ->> Hint: Missing RENAMES - -run_fundamental.at-9015-prog.cob:14.22-14.35: - 11 WORKING-STORAGE SECTION. - 12 - 13 01 ALL-SRC . - 14 > 05 FIELD-02 BINARY-C-LONG SIGNED . ----- ^^^^^^^^^^^^^ - 15 05 FIELD-03 BINARY-C-LONG UNSIGNED . - 16 05 FIELD-04 BINARY-CHAR SIGNED . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:15.21: - 12 - 13 01 ALL-SRC . - 14 05 FIELD-02 BINARY-C-LONG SIGNED . - 15 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . ----- ^ - 16 05 FIELD-04 BINARY-CHAR SIGNED . - 17 05 FIELD-05 BINARY-CHAR UNSIGNED . ->> Hint: Missing RENAMES - -run_fundamental.at-9015-prog.cob:15.22-15.35: - 12 - 13 01 ALL-SRC . - 14 05 FIELD-02 BINARY-C-LONG SIGNED . - 15 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . ----- ^^^^^^^^^^^^^ - 16 05 FIELD-04 BINARY-CHAR SIGNED . - 17 05 FIELD-05 BINARY-CHAR UNSIGNED . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:30.22-30.32: - 27 05 FIELD-15 FLOAT-DECIMAL-34 . - 28 05 FIELD-16 FLOAT-LONG . - 29 05 FIELD-17 FLOAT-SHORT . - 30 > 05 FIELD-18 SIGNED-INT . ----- ^^^^^^^^^^ - 31 05 FIELD-19 SIGNED-LONG . - 32 05 FIELD-20 SIGNED-SHORT . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:31.22-31.33: - 28 05 FIELD-16 FLOAT-LONG . - 29 05 FIELD-17 FLOAT-SHORT . - 30 05 FIELD-18 SIGNED-INT . - 31 > 05 FIELD-19 SIGNED-LONG . ----- ^^^^^^^^^^^ - 32 05 FIELD-20 SIGNED-SHORT . - 33 05 FIELD-21 UNSIGNED-INT . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:32.22-32.34: - 29 05 FIELD-17 FLOAT-SHORT . - 30 05 FIELD-18 SIGNED-INT . - 31 05 FIELD-19 SIGNED-LONG . - 32 > 05 FIELD-20 SIGNED-SHORT . ----- ^^^^^^^^^^^^ - 33 05 FIELD-21 UNSIGNED-INT . - 34 05 FIELD-22 UNSIGNED-LONG . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:33.22-33.34: - 30 05 FIELD-18 SIGNED-INT . - 31 05 FIELD-19 SIGNED-LONG . - 32 05 FIELD-20 SIGNED-SHORT . - 33 > 05 FIELD-21 UNSIGNED-INT . ----- ^^^^^^^^^^^^ - 34 05 FIELD-22 UNSIGNED-LONG . - 35 05 FIELD-23 UNSIGNED-SHORT . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:34.22-34.35: - 31 05 FIELD-19 SIGNED-LONG . - 32 05 FIELD-20 SIGNED-SHORT . - 33 05 FIELD-21 UNSIGNED-INT . - 34 > 05 FIELD-22 UNSIGNED-LONG . ----- ^^^^^^^^^^^^^ - 35 05 FIELD-23 UNSIGNED-SHORT . - 36 05 FIELD-24 COMP-1 . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:35.22-35.36: - 32 05 FIELD-20 SIGNED-SHORT . - 33 05 FIELD-21 UNSIGNED-INT . - 34 05 FIELD-22 UNSIGNED-LONG . - 35 > 05 FIELD-23 UNSIGNED-SHORT . ----- ^^^^^^^^^^^^^^ - 36 05 FIELD-24 COMP-1 . - 37 05 FIELD-25 COMP-2 . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:50.21: - 47 01 EXPTD-RESULT PIC 9(09) . - 48 *> - 49 01 ALL-DST . - 50 > 05 FIELD-02 BINARY-C-LONG SIGNED . ----- ^ - 51 05 FIELD-03 BINARY-C-LONG UNSIGNED . - 52 05 FIELD-04 BINARY-CHAR SIGNED . ->> Hint: Missing RENAMES - -run_fundamental.at-9015-prog.cob:50.22-50.35: - 47 01 EXPTD-RESULT PIC 9(09) . - 48 *> - 49 01 ALL-DST . - 50 > 05 FIELD-02 BINARY-C-LONG SIGNED . ----- ^^^^^^^^^^^^^ - 51 05 FIELD-03 BINARY-C-LONG UNSIGNED . - 52 05 FIELD-04 BINARY-CHAR SIGNED . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:51.21: - 48 *> - 49 01 ALL-DST . - 50 05 FIELD-02 BINARY-C-LONG SIGNED . - 51 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . ----- ^ - 52 05 FIELD-04 BINARY-CHAR SIGNED . - 53 05 FIELD-05 BINARY-CHAR UNSIGNED . ->> Hint: Missing RENAMES - -run_fundamental.at-9015-prog.cob:51.22-51.35: - 48 *> - 49 01 ALL-DST . - 50 05 FIELD-02 BINARY-C-LONG SIGNED . - 51 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . ----- ^^^^^^^^^^^^^ - 52 05 FIELD-04 BINARY-CHAR SIGNED . - 53 05 FIELD-05 BINARY-CHAR UNSIGNED . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:66.22-66.32: - 63 05 FIELD-15 FLOAT-DECIMAL-34 . - 64 05 FIELD-16 FLOAT-LONG . - 65 05 FIELD-17 FLOAT-SHORT . - 66 > 05 FIELD-18 SIGNED-INT . ----- ^^^^^^^^^^ - 67 05 FIELD-19 SIGNED-LONG . - 68 05 FIELD-20 SIGNED-SHORT . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:67.22-67.33: - 64 05 FIELD-16 FLOAT-LONG . - 65 05 FIELD-17 FLOAT-SHORT . - 66 05 FIELD-18 SIGNED-INT . - 67 > 05 FIELD-19 SIGNED-LONG . ----- ^^^^^^^^^^^ - 68 05 FIELD-20 SIGNED-SHORT . - 69 05 FIELD-21 UNSIGNED-INT . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:68.22-68.34: - 65 05 FIELD-17 FLOAT-SHORT . - 66 05 FIELD-18 SIGNED-INT . - 67 05 FIELD-19 SIGNED-LONG . - 68 > 05 FIELD-20 SIGNED-SHORT . ----- ^^^^^^^^^^^^ - 69 05 FIELD-21 UNSIGNED-INT . - 70 05 FIELD-22 UNSIGNED-LONG . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:69.22-69.34: - 66 05 FIELD-18 SIGNED-INT . - 67 05 FIELD-19 SIGNED-LONG . - 68 05 FIELD-20 SIGNED-SHORT . - 69 > 05 FIELD-21 UNSIGNED-INT . ----- ^^^^^^^^^^^^ - 70 05 FIELD-22 UNSIGNED-LONG . - 71 05 FIELD-23 UNSIGNED-SHORT . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:70.22-70.35: - 67 05 FIELD-19 SIGNED-LONG . - 68 05 FIELD-20 SIGNED-SHORT . - 69 05 FIELD-21 UNSIGNED-INT . - 70 > 05 FIELD-22 UNSIGNED-LONG . ----- ^^^^^^^^^^^^^ - 71 05 FIELD-23 UNSIGNED-SHORT . - 72 05 FIELD-24 COMP-1 . ->> Error: Invalid syntax - -run_fundamental.at-9015-prog.cob:71.22-71.36: - 68 05 FIELD-20 SIGNED-SHORT . - 69 05 FIELD-21 UNSIGNED-INT . - 70 05 FIELD-22 UNSIGNED-LONG . - 71 > 05 FIELD-23 UNSIGNED-SHORT . ----- ^^^^^^^^^^^^^^ - 72 05 FIELD-24 COMP-1 . - 73 05 FIELD-25 COMP-2 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:9060:0 -Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:9123:0 -run_fundamental.at-9123-prog.cob:10.7-10.12: - 7 SPECIAL-NAMES . - 8 CLASS HEXA IS '0' THRU '9' - 9 'A' THRU 'F' . - 10 > CLASS ODD IS '1' '3' '5' '7' '9' . ----- ^^^^^ - 11 - 12 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:51:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:84:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:152:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:183:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:211:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:243:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:292:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:405:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:407:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:436:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:503:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:554:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:590:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:647:0 -Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:777:0 -run_initialize.at-777-prog.cob:41.54: - 38 05 MONTH-IN-YEAR OCCURS 13 TIMES PICTURE X(3) - 39 VALUES "jan" "feb" "mar" "apr" - 40 "may" "jun" "jul" "aug" - 41 > "sep" "oct" "nov" "dec". ----- ^ - 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY - 43 VALUES 31 28 31 30 31 30 31 31 30 31 30 31. ->> Hint: Missing FROM - -run_initialize.at-777-prog.cob:41.54-41.55: - 38 05 MONTH-IN-YEAR OCCURS 13 TIMES PICTURE X(3) - 39 VALUES "jan" "feb" "mar" "apr" - 40 "may" "jun" "jul" "aug" - 41 > "sep" "oct" "nov" "dec". ----- ^ - 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY - 43 VALUES 31 28 31 30 31 30 31 31 30 31 30 31. ->> Error: Invalid syntax - -run_initialize.at-777-prog.cob:43.67: - 40 "may" "jun" "jul" "aug" - 41 "sep" "oct" "nov" "dec". - 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY - 43 > VALUES 31 28 31 30 31 30 31 31 30 31 30 31. ----- ^ - 44 05 DAYS-MONTHS OCCURS 2 TIMES. - 45 06 DAYX-MONTHX OCCURS 4 TIMES. ->> Hint: Missing FROM - -run_initialize.at-777-prog.cob:43.67-43.68: - 40 "may" "jun" "jul" "aug" - 41 "sep" "oct" "nov" "dec". - 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY - 43 > VALUES 31 28 31 30 31 30 31 31 30 31 30 31. ----- ^ - 44 05 DAYS-MONTHS OCCURS 2 TIMES. - 45 06 DAYX-MONTHX OCCURS 4 TIMES. ->> Error: Invalid syntax - -run_initialize.at-777-prog.cob:54.54: - 51 "Sep" "Oct" "Nov" "Dec" - 52 "JAN" "FEB" "MAR" "APR" - 53 "MAY" "JUN" "JUL" "AUG" - 54 > "SEP" "OCT" "NOV" "DEC". ----- ^ - 55 10 SEPX PICTURE XX VALUE ", ". - 56 10 DAYS PICTURE 99 ->> Hint: Missing FROM - -run_initialize.at-777-prog.cob:54.54-54.55: - 51 "Sep" "Oct" "Nov" "Dec" - 52 "JAN" "FEB" "MAR" "APR" - 53 "MAY" "JUN" "JUL" "AUG" - 54 > "SEP" "OCT" "NOV" "DEC". ----- ^ - 55 10 SEPX PICTURE XX VALUE ", ". - 56 10 DAYS PICTURE 99 ->> Error: Invalid syntax - -run_initialize.at-777-prog.cob:58.66: - 55 10 SEPX PICTURE XX VALUE ", ". - 56 10 DAYS PICTURE 99 - 57 VALUES 31 28 31 30 31 30 31 31 30 31 30 31 - 58 > 91 28 91 90 91 90 91 91 90 91 90 91. ----- ^ - 59 10 PER PICTURE X VALUE ".". - 60 07 FLR PICTURE X(4) VALUES " " " " " " " " ->> Hint: Missing FROM - -run_initialize.at-777-prog.cob:58.66-58.67: - 55 10 SEPX PICTURE XX VALUE ", ". - 56 10 DAYS PICTURE 99 - 57 VALUES 31 28 31 30 31 30 31 31 30 31 30 31 - 58 > 91 28 91 90 91 90 91 91 90 91 90 91. ----- ^ - 59 10 PER PICTURE X VALUE ".". - 60 07 FLR PICTURE X(4) VALUES " " " " " " " " ->> Error: Invalid syntax - -run_initialize.at-777-prog.cob:61.69: - 58 91 28 91 90 91 90 91 91 90 91 90 91. - 59 10 PER PICTURE X VALUE ".". - 60 07 FLR PICTURE X(4) VALUES " " " " " " " " - 61 > " " " " " " " <*>". ----- ^ - 62 - 63 PROCEDURE DIVISION. ->> Hint: Missing FROM - -run_initialize.at-777-prog.cob:61.69-61.70: - 58 91 28 91 90 91 90 91 91 90 91 90 91. - 59 10 PER PICTURE X VALUE ".". - 60 07 FLR PICTURE X(4) VALUES " " " " " " " " - 61 > " " " " " " " <*>". ----- ^ - 62 - 63 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:35:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:64:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:92:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:120:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:148:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:181:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:214:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:258:0 -run_misc.at-258-prog.cob:8.59: - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 *> note the space after EUR / before ct. - 8 > CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", ----- ^ - 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", - 10 Currency Sign is "$US" with Picture Symbol "$". ->> Hint: Missing SYMBOL - -run_misc.at-258-prog.cob:8.60-8.63: - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 *> note the space after EUR / before ct. - 8 > CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", ----- ^^^ - 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", - 10 Currency Sign is "$US" with Picture Symbol "$". ->> Error: Invalid syntax - -run_misc.at-258-prog.cob:9.59: - 6 SPECIAL-NAMES. - 7 *> note the space after EUR / before ct. - 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", - 9 > CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", ----- ^ - 10 Currency Sign is "$US" with Picture Symbol "$". - 11 ->> Hint: Missing SYMBOL - -run_misc.at-258-prog.cob:9.60-9.63: - 6 SPECIAL-NAMES. - 7 *> note the space after EUR / before ct. - 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", - 9 > CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", ----- ^^^ - 10 Currency Sign is "$US" with Picture Symbol "$". - 11 ->> Error: Invalid syntax - -run_misc.at-258-prog.cob:10.53: - 7 *> note the space after EUR / before ct. - 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", - 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", - 10 > Currency Sign is "$US" with Picture Symbol "$". ----- ^ - 11 - 12 DATA DIVISION. ->> Hint: Missing SYMBOL - -run_misc.at-258-prog.cob:10.54-10.57: - 7 *> note the space after EUR / before ct. - 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", - 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", - 10 > Currency Sign is "$US" with Picture Symbol "$". ----- ^^^ - 11 - 12 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:297:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:298:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:341:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:340:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:342:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:394:0 -run_misc.at-394-callee.cob:15.42: - 12 01 LCL-X. - 13 05 LCL-VAR PIC 9 VALUE 0 OCCURS 1 INDEXED BY LCL-IDX. - 14 PROCEDURE DIVISION. - 15 > DISPLAY SPACE WITH NO ADVANCING UPON SYSOUT. ----- ^ - 16 ADD 1 TO WRK-VAR(1) LCL-VAR(1) - 17 SET WRK-IDX, LCL-IDX UP BY 1 ->> Hint: Missing . - -run_misc.at-394-callee.cob:15.43-15.47: - 12 01 LCL-X. - 13 05 LCL-VAR PIC 9 VALUE 0 OCCURS 1 INDEXED BY LCL-IDX. - 14 PROCEDURE DIVISION. - 15 > DISPLAY SPACE WITH NO ADVANCING UPON SYSOUT. ----- ^^^^ - 16 ADD 1 TO WRK-VAR(1) LCL-VAR(1) - 17 SET WRK-IDX, LCL-IDX UP BY 1 ->> Warning: Invalid syntax - -run_misc.at-394-callee.cob:20.46: - 17 SET WRK-IDX, LCL-IDX UP BY 1 - 18 SET DISP-IDX TO WRK-IDX. - 19 MOVE WRK-VAR(1) TO DISP-VAL. - 20 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. ----- ^ - 21 SET DISP-IDX TO LCL-IDX. - 22 MOVE LCL-VAR(1) TO DISP-VAL. ->> Hint: Missing . - -run_misc.at-394-callee.cob:20.47-20.51: - 17 SET WRK-IDX, LCL-IDX UP BY 1 - 18 SET DISP-IDX TO WRK-IDX. - 19 MOVE WRK-VAR(1) TO DISP-VAL. - 20 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. ----- ^^^^ - 21 SET DISP-IDX TO LCL-IDX. - 22 MOVE LCL-VAR(1) TO DISP-VAL. ->> Warning: Invalid syntax - -run_misc.at-394-callee.cob:23.46: - 20 DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. - 21 SET DISP-IDX TO LCL-IDX. - 22 MOVE LCL-VAR(1) TO DISP-VAL. - 23 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. ----- ^ - 24 GOBACK. ->> Hint: Missing . - -run_misc.at-394-callee.cob:23.47-23.51: - 20 DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. - 21 SET DISP-IDX TO LCL-IDX. - 22 MOVE LCL-VAR(1) TO DISP-VAL. - 23 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. ----- ^^^^ - 24 GOBACK. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:395:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:463:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:464:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:506:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:507:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:570:0 -run_misc.at-570-bigger.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. error. ----- ^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Hint: Missing - -run_misc.at-570-bigger.cob:3.24-3.29: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. error. ----- ^^^^^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:569:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:573:0 -run_misc.at-573-smaller.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. error. ----- ^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Hint: Missing - -run_misc.at-573-smaller.cob:3.24-3.29: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. error. ----- ^^^^^ - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:610:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:634:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:658:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:681:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:705:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:739:0 -run_misc.at-739-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data) - 7 { ->> Error: Unexpected indicator: `T' - -run_misc.at-739-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data) ----- ^ - 7 { - 8 printf ("%02x%02x%02x", data[0], data[1], data[2]); ->> Error: Unexpected indicator: `u' - -run_misc.at-739-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data) - 7 { - 8 > printf ("%02x%02x%02x", data[0], data[1], data[2]); ----- ^ - 9 return 0; - 10 } ->> Error: Unexpected indicator: `t' - -run_misc.at-739-dump.c:9.6-9.7: - 6 dump (unsigned char *data) - 7 { - 8 printf ("%02x%02x%02x", data[0], data[1], data[2]); - 9 > return 0; ----- ^ - 10 } ->> Error: Unexpected indicator: `r' - -run_misc.at-739-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:740:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:782:0 -run_misc.at-782-prog.cob:13.15: - 10 03 XBYTE3 PIC X. - 11 03 XBYTE4 PIC X. - 12 PROCEDURE DIVISION. - 13 > MOVE Z"012" TO X. ----- ^ - 14 IF XBYTE1 = "0" AND - 15 XBYTE2 = "1" AND ->> Hint: Missing - -run_misc.at-782-prog.cob:13.16-13.22: - 10 03 XBYTE3 PIC X. - 11 03 XBYTE4 PIC X. - 12 PROCEDURE DIVISION. - 13 > MOVE Z"012" TO X. ----- ^^^^^^ - 14 IF XBYTE1 = "0" AND - 15 XBYTE2 = "1" AND ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:804:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:844:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:870:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:905:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:942:0 -run_misc.at-942-prog.cob:2.7-2.44: - 1 - 2 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. ->> Error: Malformed or unknown compiler directive - -run_misc.at-942-prog.cob:14.7-14.45: - 11 01 idx PIC 99 VALUE 6. - 12 - 13 PROCEDURE DIVISION. - 14 > >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION ->> Error: Malformed or unknown compiler directive - -run_misc.at-942-prog.cob:15.44: - 12 - 13 PROCEDURE DIVISION. - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 > DISPLAY y (idx) WITH NO ADVANCING ----- ^ - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF ->> Hint: Missing . - -run_misc.at-942-prog.cob:16.7-16.13: - 13 PROCEDURE DIVISION. - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION ----- ^^^^^^ - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING ->> Warning: Invalid syntax - -run_misc.at-942-prog.cob:16.32: - 13 PROCEDURE DIVISION. - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION ----- ^ - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING ->> Hint: Missing . - -run_misc.at-942-prog.cob:16.33-16.41: - 13 PROCEDURE DIVISION. - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION ----- ^^^^^^^^ - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING ->> Warning: Invalid syntax - -run_misc.at-942-prog.cob:16.41: - 13 PROCEDURE DIVISION. - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION ----- ^ - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING ->> Hint: Missing . - -run_misc.at-942-prog.cob:16.42-16.44: - 13 PROCEDURE DIVISION. - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION ----- ^^ - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING ->> Warning: Invalid syntax - -run_misc.at-942-prog.cob:17.7-17.47: - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 > >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 18 DISPLAY y (idx) WITH NO ADVANCING - 19 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON ->> Error: Malformed or unknown compiler directive - -run_misc.at-942-prog.cob:16.58: - 13 PROCEDURE DIVISION. - 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION ----- ^ - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING ->> Hint: Missing . - -run_misc.at-942-prog.cob:18.11-18.18: - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 > DISPLAY y (idx) WITH NO ADVANCING ----- ^^^^^^^ - 19 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON - 20 DISPLAY y (idx) WITH NO ADVANCING ->> Warning: Invalid syntax - -run_misc.at-942-prog.cob:18.44: - 15 DISPLAY y (idx) WITH NO ADVANCING - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 > DISPLAY y (idx) WITH NO ADVANCING ----- ^ - 19 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON - 20 DISPLAY y (idx) WITH NO ADVANCING ->> Hint: Missing . - -run_misc.at-942-prog.cob:19.7-19.13: - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING - 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON ----- ^^^^^^ - 20 DISPLAY y (idx) WITH NO ADVANCING - 21 . ->> Warning: Invalid syntax - -run_misc.at-942-prog.cob:19.32: - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING - 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON ----- ^ - 20 DISPLAY y (idx) WITH NO ADVANCING - 21 . ->> Hint: Missing . - -run_misc.at-942-prog.cob:19.33-19.41: - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING - 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON ----- ^^^^^^^^ - 20 DISPLAY y (idx) WITH NO ADVANCING - 21 . ->> Warning: Invalid syntax - -run_misc.at-942-prog.cob:19.41: - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING - 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON ----- ^ - 20 DISPLAY y (idx) WITH NO ADVANCING - 21 . ->> Hint: Missing . - -run_misc.at-942-prog.cob:19.42-19.44: - 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION - 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF - 18 DISPLAY y (idx) WITH NO ADVANCING - 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON ----- ^^ - 20 DISPLAY y (idx) WITH NO ADVANCING - 21 . ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:974:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:996:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1024:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1054:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1076:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1100:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1150:0 -run_misc.at-1150-prog.cob:10.17-10.23: - 7 03 X-NUM PIC 9(06) VALUE 123. - 8 77 NUM PIC 9(06). - 9 PROCEDURE DIVISION. - 10 > MOVE x"0000" TO X (2:2) ----- ^^^^^^ - 11 IF X-NUM NUMERIC - 12 DISPLAY "low-value is numeric" UPON SYSERR. ->> Error: Invalid syntax - -run_misc.at-1150-prog.cob:13.17-13.21: - 10 MOVE x"0000" TO X (2:2) - 11 IF X-NUM NUMERIC - 12 DISPLAY "low-value is numeric" UPON SYSERR. - 13 > MOVE x"01" TO X (3:1) ----- ^^^^ - 14 IF X-NUM NUMERIC - 15 DISPLAY "SOH is numeric" UPON SYSERR. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1158:0 -run_misc.at-1158-prog2.cob:10.17-10.21: - 7 03 X-NUM PIC 9(06) PACKED-DECIMAL VALUE 123. - 8 77 NUM PIC 9(06). - 9 PROCEDURE DIVISION. - 10 > MOVE x"0A" TO X (2:1) ----- ^^^^ - 11 IF X-NUM NUMERIC - 12 DISPLAY "bad prog". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1191:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1192:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1220:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1221:0 -run_misc.at-1221-caller.cob:5.23-5.31: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. caller. - 4 PROCEDURE DIVISION. - 5 > CALL STATIC "callee" ----- ^^^^^^^^ - 6 END-CALL. - 7 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1257:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1256:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1289:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1290:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1348:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1346:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1347:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1406:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1407:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1405:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1455:0 -run_misc.at-1455-callee.cob:11.22: - 8 IF STOPPER = 1 - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 > STOP RUN RETURNING 1 ----- ^ - 12 ELSE - 13 MOVE 1 TO STOPPER ->> Hint: Missing . - -run_misc.at-1455-callee.cob:11.23-11.32: - 8 IF STOPPER = 1 - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 > STOP RUN RETURNING 1 ----- ^^^^^^^^^ - 12 ELSE - 13 MOVE 1 TO STOPPER ->> Error: Invalid syntax - -run_misc.at-1455-callee.cob:11.34: - 8 IF STOPPER = 1 - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 > STOP RUN RETURNING 1 ----- ^ - 12 ELSE - 13 MOVE 1 TO STOPPER ->> Hint: Missing . - -run_misc.at-1455-callee.cob:12.11-12.15: - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 STOP RUN RETURNING 1 - 12 > ELSE ----- ^^^^ - 13 MOVE 1 TO STOPPER - 14 CALL "callee2" END-CALL ->> Warning: Invalid syntax - -run_misc.at-1455-callee.cob:15.11-15.17: - 12 ELSE - 13 MOVE 1 TO STOPPER - 14 CALL "callee2" END-CALL - 15 > END-IF. ----- ^^^^^^ - 16 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1456:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1454:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1503:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1504:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1502:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1558:0 -run_misc.at-1558-callee.cob:11.22: - 8 IF STOPPER = 1 - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 > STOP RUN RETURNING 1 ----- ^ - 12 ELSE - 13 MOVE 1 TO STOPPER ->> Hint: Missing . - -run_misc.at-1558-callee.cob:11.23-11.32: - 8 IF STOPPER = 1 - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 > STOP RUN RETURNING 1 ----- ^^^^^^^^^ - 12 ELSE - 13 MOVE 1 TO STOPPER ->> Error: Invalid syntax - -run_misc.at-1558-callee.cob:11.34: - 8 IF STOPPER = 1 - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 > STOP RUN RETURNING 1 ----- ^ - 12 ELSE - 13 MOVE 1 TO STOPPER ->> Hint: Missing . - -run_misc.at-1558-callee.cob:12.11-12.15: - 9 DISPLAY 'INITIAL prog was called RECURSIVE' - 10 END-DISPLAY - 11 STOP RUN RETURNING 1 - 12 > ELSE ----- ^^^^ - 13 MOVE 1 TO STOPPER - 14 CALL "callee2" END-CALL ->> Warning: Invalid syntax - -run_misc.at-1558-callee.cob:15.11-15.17: - 12 ELSE - 13 MOVE 1 TO STOPPER - 14 CALL "callee2" END-CALL - 15 > END-IF. ----- ^^^^^^ - 16 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1559:0 -run_misc.at-1559-callee2.cob:9.22: - 6 ON EXCEPTION - 7 DISPLAY "Exception " FUNCTION EXCEPTION-STATUS ";" - 8 UPON SYSERR - 9 > STOP RUN RETURNING 1 ----- ^ - 10 END-CALL. - 11 GOBACK. ->> Hint: Missing . - -run_misc.at-1559-callee2.cob:9.23-9.32: - 6 ON EXCEPTION - 7 DISPLAY "Exception " FUNCTION EXCEPTION-STATUS ";" - 8 UPON SYSERR - 9 > STOP RUN RETURNING 1 ----- ^^^^^^^^^ - 10 END-CALL. - 11 GOBACK. ->> Error: Invalid syntax - -run_misc.at-1559-callee2.cob:10.11-10.19: - 7 DISPLAY "Exception " FUNCTION EXCEPTION-STATUS ";" - 8 UPON SYSERR - 9 STOP RUN RETURNING 1 - 10 > END-CALL. ----- ^^^^^^^^ - 11 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1557:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1607:0 -run_misc.at-1607-callee.cob:13.38-13.44: - 10 01 PARAM2 PIC 9999 COMP. - 11 PROCEDURE DIVISION USING PARAM1 PARAM2. - 12 ADD 1 TO COUNTER END-ADD - 13 > CALL 'C$PARAMSIZE' USING 1 GIVING LPARAM END-CALL ----- ^^^^^^ - 14 DISPLAY 'COUNTER = ' COUNTER ' LPARAM1 = ' LPARAM - 15 ' PARAM1 = ' PARAM1 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1606:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1659:0 -run_misc.at-1659-dump.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (int *p) - 7 { ->> Error: Unexpected indicator: `T' - -run_misc.at-1659-dump.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (int *p) ----- ^ - 7 { - 8 printf ("%8.8d\n", *p); ->> Error: Unexpected indicator: `i' - -run_misc.at-1659-dump.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (int *p) - 7 { - 8 > printf ("%8.8d\n", *p); ----- ^ - 9 return 0; - 10 } ->> Error: Unexpected indicator: `t' - -run_misc.at-1659-dump.c:9.6-9.7: - 6 dump (int *p) - 7 { - 8 printf ("%8.8d\n", *p); - 9 > return 0; ----- ^ - 10 } ->> Error: Unexpected indicator: `r' - -run_misc.at-1659-dump.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (int *p) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1660:0 -run_misc.at-1660-prog.cob:14.40-14.46: - 11 MOVE 9 TO MYOCC. - 12 CALL "dump" USING BY CONTENT 1 - 13 END-CALL. - 14 > CALL "dump" USING BY CONTENT LENGTH OF MYTAB ----- ^^^^^^ - 15 END-CALL. - 16 CALL "dump" USING BY CONTENT LENGTH OF MYOCC ->> Error: Invalid syntax - -run_misc.at-1660-prog.cob:16.40-16.46: - 13 END-CALL. - 14 CALL "dump" USING BY CONTENT LENGTH OF MYTAB - 15 END-CALL. - 16 > CALL "dump" USING BY CONTENT LENGTH OF MYOCC ----- ^^^^^^ - 17 END-CALL. - 18 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1694:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1720:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1753:0 -run_misc.at-1753-prog.cob:9.11-9.19: - 6 CONFIGURATION SECTION. - 7 SPECIAL-NAMES. - 8 ALPHABET MY-ASCII IS STANDARD-1. - 9 > ALPHABET MY-EBCDIC IS EBCDIC. ----- ^^^^^^^^ - 10 - 11 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1787:0 -run_misc.at-1787-prog.cob:8.29-8.34: - 5 ENVIRONMENT DIVISION. - 6 CONFIGURATION SECTION. - 7 SPECIAL-NAMES. - 8 > ALPHABET ALPHA IS ASCII. ----- ^^^^^ - 9 ALPHABET BETA IS EBCDIC. - 10 ->> Error: Invalid syntax - -run_misc.at-1787-prog.cob:8.34: - 5 ENVIRONMENT DIVISION. - 6 CONFIGURATION SECTION. - 7 SPECIAL-NAMES. - 8 > ALPHABET ALPHA IS ASCII. ----- ^ - 9 ALPHABET BETA IS EBCDIC. - 10 ->> Hint: Missing IS - -run_misc.at-1787-prog.cob:8.34-8.35: - 5 ENVIRONMENT DIVISION. - 6 CONFIGURATION SECTION. - 7 SPECIAL-NAMES. - 8 > ALPHABET ALPHA IS ASCII. ----- ^ - 9 ALPHABET BETA IS EBCDIC. - 10 ->> Error: Invalid syntax - -run_misc.at-1787-prog.cob:9.11-9.19: - 6 CONFIGURATION SECTION. - 7 SPECIAL-NAMES. - 8 ALPHABET ALPHA IS ASCII. - 9 > ALPHABET BETA IS EBCDIC. ----- ^^^^^^^^ - 10 - 11 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1824:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1846:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1868:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1898:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2039:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2071:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2104:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2140:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2177:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2199:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2279:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2305:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2331:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2365:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2399:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2422:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2445:0 -run_misc.at-2445-prog.cob:7.25: - 4 PROCEDURE DIVISION. - 5 PERFORM 2 TIMES - 6 DISPLAY "OK" NO ADVANCING - 7 > EXIT PERFORM CYCLE ----- ^ - 8 DISPLAY "NOT OK" - 9 END-PERFORM ->> Hint: Missing END_PERFORM . - -run_misc.at-2445-prog.cob:7.26-7.31: - 4 PROCEDURE DIVISION. - 5 PERFORM 2 TIMES - 6 DISPLAY "OK" NO ADVANCING - 7 > EXIT PERFORM CYCLE ----- ^^^^^ - 8 DISPLAY "NOT OK" - 9 END-PERFORM ->> Error: Invalid syntax - -run_misc.at-2445-prog.cob:7.31: - 4 PROCEDURE DIVISION. - 5 PERFORM 2 TIMES - 6 DISPLAY "OK" NO ADVANCING - 7 > EXIT PERFORM CYCLE ----- ^ - 8 DISPLAY "NOT OK" - 9 END-PERFORM ->> Hint: Missing . - -run_misc.at-2445-prog.cob:8.13-8.20: - 5 PERFORM 2 TIMES - 6 DISPLAY "OK" NO ADVANCING - 7 EXIT PERFORM CYCLE - 8 > DISPLAY "NOT OK" ----- ^^^^^^^ - 9 END-PERFORM - 10 STOP RUN. ->> Warning: Invalid syntax - -run_misc.at-2445-prog.cob:9.11-9.22: - 6 DISPLAY "OK" NO ADVANCING - 7 EXIT PERFORM CYCLE - 8 DISPLAY "NOT OK" - 9 > END-PERFORM ----- ^^^^^^^^^^^ - 10 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2479:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2517:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2543:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2586:0 -run_misc.at-2586-prog.cob:10.24: - 7 PROCEDURE DIVISION. - 8 A01. - 9 MOVE 0 TO INDVAL - 10 > PERFORM UNTIL EXIT ----- ^ - 11 ADD 1 TO INDVAL - 12 IF INDVAL > 2 ->> Hint: Missing - -run_misc.at-2586-prog.cob:10.25-10.29: - 7 PROCEDURE DIVISION. - 8 A01. - 9 MOVE 0 TO INDVAL - 10 > PERFORM UNTIL EXIT ----- ^^^^ - 11 ADD 1 TO INDVAL - 12 IF INDVAL > 2 ->> Error: Invalid syntax - -run_misc.at-2586-prog.cob:25.11-25.22: - 22 IF INDVAL > 4 - 23 EXIT PERFORM - 24 END-IF - 25 > END-PERFORM ----- ^^^^^^^^^^^ - 26 IF INDVAL NOT = 5 - 27 DISPLAY "2: " INDVAL ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2612:0 -run_misc.at-2612-prog.cob:10.11-10.22: - 7 PROCEDURE DIVISION. - 8 PERFORM VARYING INDVAL FROM 1 - 9 BY 1 UNTIL INDVAL > 2 - 10 > END-PERFORM ----- ^^^^^^^^^^^ - 11 IF INDVAL NOT = 3 - 12 DISPLAY INDVAL ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2636:0 -run_misc.at-2636-prog.cob:9.33: - 6 01 INDVAL PIC 9(4). - 7 PROCEDURE DIVISION. - 8 PERFORM VARYING INDVAL FROM 1 - 9 > BY 1 UNTIL INDVAL > 2. ----- ^ - 10 IF INDVAL NOT = 3 - 11 DISPLAY INDVAL ->> Hint: Missing END_PERFORM - -run_misc.at-2636-prog.cob:9.33-9.34: - 6 01 INDVAL PIC 9(4). - 7 PROCEDURE DIVISION. - 8 PERFORM VARYING INDVAL FROM 1 - 9 > BY 1 UNTIL INDVAL > 2. ----- ^ - 10 IF INDVAL NOT = 3 - 11 DISPLAY INDVAL ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2661:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2681:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2706:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2790:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2902:0 -run_misc.at-2902-prog.cob:59.19: - 56 * - 57 * UNSTRING test - 58 move spaces to simple-str - 59 > unstring 'data' ----- ^ - 60 into simple-str - 61 on overflow ->> Hint: Missing - -run_misc.at-2902-prog.cob:59.20-59.26: - 56 * - 57 * UNSTRING test - 58 move spaces to simple-str - 59 > unstring 'data' ----- ^^^^^^ - 60 into simple-str - 61 on overflow ->> Error: Invalid syntax - -run_misc.at-2902-prog.cob:63.23: - 60 into simple-str - 61 on overflow - 62 move spaces to err-str - 63 > unstring 'UNSTRING OVERFLOW' ----- ^ - 64 into err-str - 65 end-unstring ->> Hint: Missing - -run_misc.at-2902-prog.cob:63.24-63.43: - 60 into simple-str - 61 on overflow - 62 move spaces to err-str - 63 > unstring 'UNSTRING OVERFLOW' ----- ^^^^^^^^^^^^^^^^^^^ - 64 into err-str - 65 end-unstring ->> Error: Invalid syntax - -run_misc.at-2902-prog.cob:80.19: - 77 end-if - 78 * - 79 move spaces to simple-str - 80 > unstring 'data is too big here...' ----- ^ - 81 into simple-str - 82 on overflow ->> Hint: Missing - -run_misc.at-2902-prog.cob:80.20-80.45: - 77 end-if - 78 * - 79 move spaces to simple-str - 80 > unstring 'data is too big here...' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 81 into simple-str - 82 on overflow ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2938:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2991:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3039:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3081:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3195:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3245:0 -run_misc.at-3245-prog.cob:24.19: - 21 DISPLAY "PRM(2) is " PRM(2) ":". - 22 DISPLAY "PRM(3) is " PRM(3) ":". - 23 DISPLAY "PRM(4) is " PRM(4) ":". - 24 > UNSTRING "Daddy,was,a,Rolling stone" DELIMITED BY ',' ----- ^ - 25 INTO PRM(1), PRM(2), PRM(3), PRM(4). - 26 DISPLAY "Now using Literal" ->> Hint: Missing - -run_misc.at-3245-prog.cob:24.20-24.47: - 21 DISPLAY "PRM(2) is " PRM(2) ":". - 22 DISPLAY "PRM(3) is " PRM(3) ":". - 23 DISPLAY "PRM(4) is " PRM(4) ":". - 24 > UNSTRING "Daddy,was,a,Rolling stone" DELIMITED BY ',' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 25 INTO PRM(1), PRM(2), PRM(3), PRM(4). - 26 DISPLAY "Now using Literal" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3299:0 -run_misc.at-3299-prog.cob:20.34-20.35: - 17 SORT TBL ASCENDING KEY TBL. - 18 IF G NOT = "a3b2c5d4e1" - 19 DISPLAY G. - 20 > SORT TBL DESCENDING KEY. ----- ^ - 21 IF G NOT = "e1d4c5b2a3" - 22 DISPLAY G. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3403:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3513:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3516:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3538:0 -run_misc.at-3538-prog.cob:10.11-10.13: - 7 01 TBL REDEFINES VAL PIC X OCCURS 5. - 8 PROCEDURE DIVISION. - 9 SORT TBL ASCENDING - 10 > IF VAL NOT = "12345" DISPLAY VAL. ----- ^^ - 11 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3601:0 -run_misc.at-3601-prog.cob:7.29-7.35: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 > ALPHABET ALPHA IS EBCDIC. ----- ^^^^^^ - 8 DATA DIVISION. - 9 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -run_misc.at-3601-prog.cob:7.35: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 > ALPHABET ALPHA IS EBCDIC. ----- ^ - 8 DATA DIVISION. - 9 WORKING-STORAGE SECTION. ->> Hint: Missing IS - -run_misc.at-3601-prog.cob:7.35-7.36: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 > ALPHABET ALPHA IS EBCDIC. ----- ^ - 8 DATA DIVISION. - 9 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3603:0 -run_misc.at-3603-prog2.cob:9.35-9.41: - 6 OBJECT-COMPUTER. - 7 x86 PROGRAM COLLATING SEQUENCE IS EBCDIC-CODE. - 8 SPECIAL-NAMES. - 9 > ALPHABET EBCDIC-CODE IS EBCDIC. ----- ^^^^^^ - 10 DATA DIVISION. - 11 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -run_misc.at-3603-prog2.cob:9.41: - 6 OBJECT-COMPUTER. - 7 x86 PROGRAM COLLATING SEQUENCE IS EBCDIC-CODE. - 8 SPECIAL-NAMES. - 9 > ALPHABET EBCDIC-CODE IS EBCDIC. ----- ^ - 10 DATA DIVISION. - 11 WORKING-STORAGE SECTION. ->> Hint: Missing IS - -run_misc.at-3603-prog2.cob:9.41-9.42: - 6 OBJECT-COMPUTER. - 7 x86 PROGRAM COLLATING SEQUENCE IS EBCDIC-CODE. - 8 SPECIAL-NAMES. - 9 > ALPHABET EBCDIC-CODE IS EBCDIC. ----- ^ - 10 DATA DIVISION. - 11 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3631:0 -run_misc.at-3631-prog.cob:5.6-5.7: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >>IF EXPECT-ORDER = 'ASCII' ----- ^ - 6 IF "1" NOT < "a" - 7 >>ELIF EXPECT-ORDER = 'EBCDIC' ->> Error: Unexpected indicator: `>' - -run_misc.at-3631-prog.cob:7.6-7.7: - 4 PROCEDURE DIVISION. - 5 >>IF EXPECT-ORDER = 'ASCII' - 6 IF "1" NOT < "a" - 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 8 IF "a" NOT < "1" - 9 >>END-IF ->> Error: Unexpected indicator: `>' - -run_misc.at-3631-prog.cob:9.6-9.7: - 6 IF "1" NOT < "a" - 7 >>ELIF EXPECT-ORDER = 'EBCDIC' - 8 IF "a" NOT < "1" - 9 > >>END-IF ----- ^ - 10 DISPLAY "ERROR" END-DISPLAY - 11 END-IF. ->> Error: Unexpected indicator: `>' - -run_misc.at-3631-prog.cob:5.7-5.8: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >>IF EXPECT-ORDER = 'ASCII' ----- ^ - 6 IF "1" NOT < "a" - 7 >>ELIF EXPECT-ORDER = 'EBCDIC' ->> Error: Invalid syntax - -run_misc.at-3631-prog.cob:6.27: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 >>IF EXPECT-ORDER = 'ASCII' - 6 > IF "1" NOT < "a" ----- ^ - 7 >>ELIF EXPECT-ORDER = 'EBCDIC' - 8 IF "a" NOT < "1" ->> Hint: Missing . - -run_misc.at-3631-prog.cob:7.7-7.8: - 4 PROCEDURE DIVISION. - 5 >>IF EXPECT-ORDER = 'ASCII' - 6 IF "1" NOT < "a" - 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 8 IF "a" NOT < "1" - 9 >>END-IF ->> Error: Invalid syntax - -run_misc.at-3631-prog.cob:7.12: - 4 PROCEDURE DIVISION. - 5 >>IF EXPECT-ORDER = 'ASCII' - 6 IF "1" NOT < "a" - 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 8 IF "a" NOT < "1" - 9 >>END-IF ->> Hint: Missing . - -run_misc.at-3631-prog.cob:7.13-7.25: - 4 PROCEDURE DIVISION. - 5 >>IF EXPECT-ORDER = 'ASCII' - 6 IF "1" NOT < "a" - 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^^^^^^^^^^^^ - 8 IF "a" NOT < "1" - 9 >>END-IF ->> Warning: Invalid syntax - -run_misc.at-3631-prog.cob:7.25: - 4 PROCEDURE DIVISION. - 5 >>IF EXPECT-ORDER = 'ASCII' - 6 IF "1" NOT < "a" - 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 8 IF "a" NOT < "1" - 9 >>END-IF ->> Hint: Missing . - -run_misc.at-3631-prog.cob:7.27-7.28: - 4 PROCEDURE DIVISION. - 5 >>IF EXPECT-ORDER = 'ASCII' - 6 IF "1" NOT < "a" - 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 8 IF "a" NOT < "1" - 9 >>END-IF ->> Warning: Invalid syntax - -run_misc.at-3631-prog.cob:9.7-9.8: - 6 IF "1" NOT < "a" - 7 >>ELIF EXPECT-ORDER = 'EBCDIC' - 8 IF "a" NOT < "1" - 9 > >>END-IF ----- ^ - 10 DISPLAY "ERROR" END-DISPLAY - 11 END-IF. ->> Error: Invalid syntax - -run_misc.at-3631-prog.cob:11.11-11.17: - 8 IF "a" NOT < "1" - 9 >>END-IF - 10 DISPLAY "ERROR" END-DISPLAY - 11 > END-IF. ----- ^^^^^^ - 12 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3663:0 -run_misc.at-3663-prog.cob:12.6-12.7: - 9 03 X PIC X. - 10 PROCEDURE DIVISION. - 11 SORT TBL ASCENDING KEY X. - 12 > >>IF EXPECT-ORDER = 'ASCII' ----- ^ - 13 IF G NOT = "12345abcde" - 14 >>ELIF EXPECT-ORDER = 'EBCDIC' ->> Error: Unexpected indicator: `>' - -run_misc.at-3663-prog.cob:14.6-14.7: - 11 SORT TBL ASCENDING KEY X. - 12 >>IF EXPECT-ORDER = 'ASCII' - 13 IF G NOT = "12345abcde" - 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' ->> Error: Unexpected indicator: `>' - -run_misc.at-3663-prog.cob:16.6-16.7: - 13 IF G NOT = "12345abcde" - 14 >>ELIF EXPECT-ORDER = 'EBCDIC' - 15 IF G NOT = "abcde12345" - 16 > >>ELSE *> = 'NATIVE' ----- ^ - 17 IF NOT G = "12345abcde" OR "abcde12345" - 18 >>END-IF ->> Error: Unexpected indicator: `>' - -run_misc.at-3663-prog.cob:18.6-18.7: - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' - 17 IF NOT G = "12345abcde" OR "abcde12345" - 18 > >>END-IF ----- ^ - 19 DISPLAY G END-DISPLAY - 20 END-IF. ->> Error: Unexpected indicator: `>' - -run_misc.at-3663-prog.cob:12.7-12.8: - 9 03 X PIC X. - 10 PROCEDURE DIVISION. - 11 SORT TBL ASCENDING KEY X. - 12 > >>IF EXPECT-ORDER = 'ASCII' ----- ^ - 13 IF G NOT = "12345abcde" - 14 >>ELIF EXPECT-ORDER = 'EBCDIC' ->> Error: Invalid syntax - -run_misc.at-3663-prog.cob:13.34: - 10 PROCEDURE DIVISION. - 11 SORT TBL ASCENDING KEY X. - 12 >>IF EXPECT-ORDER = 'ASCII' - 13 > IF G NOT = "12345abcde" ----- ^ - 14 >>ELIF EXPECT-ORDER = 'EBCDIC' - 15 IF G NOT = "abcde12345" ->> Hint: Missing . - -run_misc.at-3663-prog.cob:14.7-14.8: - 11 SORT TBL ASCENDING KEY X. - 12 >>IF EXPECT-ORDER = 'ASCII' - 13 IF G NOT = "12345abcde" - 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' ->> Error: Invalid syntax - -run_misc.at-3663-prog.cob:14.12: - 11 SORT TBL ASCENDING KEY X. - 12 >>IF EXPECT-ORDER = 'ASCII' - 13 IF G NOT = "12345abcde" - 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' ->> Hint: Missing . - -run_misc.at-3663-prog.cob:14.13-14.25: - 11 SORT TBL ASCENDING KEY X. - 12 >>IF EXPECT-ORDER = 'ASCII' - 13 IF G NOT = "12345abcde" - 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^^^^^^^^^^^^ - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' ->> Warning: Invalid syntax - -run_misc.at-3663-prog.cob:14.25: - 11 SORT TBL ASCENDING KEY X. - 12 >>IF EXPECT-ORDER = 'ASCII' - 13 IF G NOT = "12345abcde" - 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' ->> Hint: Missing . - -run_misc.at-3663-prog.cob:14.27-14.28: - 11 SORT TBL ASCENDING KEY X. - 12 >>IF EXPECT-ORDER = 'ASCII' - 13 IF G NOT = "12345abcde" - 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' ->> Warning: Invalid syntax - -run_misc.at-3663-prog.cob:16.7-16.8: - 13 IF G NOT = "12345abcde" - 14 >>ELIF EXPECT-ORDER = 'EBCDIC' - 15 IF G NOT = "abcde12345" - 16 > >>ELSE *> = 'NATIVE' ----- ^ - 17 IF NOT G = "12345abcde" OR "abcde12345" - 18 >>END-IF ->> Error: Invalid syntax - -run_misc.at-3663-prog.cob:18.8: - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' - 17 IF NOT G = "12345abcde" OR "abcde12345" - 18 > >>END-IF ----- ^ - 19 DISPLAY G END-DISPLAY - 20 END-IF. ->> Hint: Missing - -run_misc.at-3663-prog.cob:18.8-18.14: - 15 IF G NOT = "abcde12345" - 16 >>ELSE *> = 'NATIVE' - 17 IF NOT G = "12345abcde" OR "abcde12345" - 18 > >>END-IF ----- ^^^^^^ - 19 DISPLAY G END-DISPLAY - 20 END-IF. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3919:0 -run_misc.at-3919-prog.cob:35.11-35.39: - 32 - 33 PROCEDURE DIVISION. - 34 - 35 > >>IF JUSTIFY EQUAL 'JUSTIFY' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 36 PERFORM 1000-JUSTIFY-IS-RIGHT THRU 1000-EXIT. - 37 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_misc.at-3919-prog.cob:37.11-37.17: - 34 - 35 >>IF JUSTIFY EQUAL 'JUSTIFY' - 36 PERFORM 1000-JUSTIFY-IS-RIGHT THRU 1000-EXIT. - 37 > >>ELSE ----- ^^^^^^ - 38 PERFORM 2000-JUSTIFY-IS-OFF THRU 2000-EXIT. - 39 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-3919-prog.cob:39.11-39.19: - 36 PERFORM 1000-JUSTIFY-IS-RIGHT THRU 1000-EXIT. - 37 >>ELSE - 38 PERFORM 2000-JUSTIFY-IS-OFF THRU 2000-EXIT. - 39 > >>END-IF ----- ^^^^^^^^ - 40 - 41 IF ELE4 NOT EQUAL 'RRRRRRRRRR' ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3958:0 -run_misc.at-3958-prog.cob:20.6-20.7: - 17 WHEN K (I) = KK - 18 CONTINUE - 19 END-SEARCH - 20 > >>IF EXPECT-ORDER = 'ASCII' ----- ^ - 21 IF I NOT = 3 - 22 >>ELIF EXPECT-ORDER = 'EBCDIC' ->> Error: Unexpected indicator: `>' - -run_misc.at-3958-prog.cob:22.6-22.7: - 19 END-SEARCH - 20 >>IF EXPECT-ORDER = 'ASCII' - 21 IF I NOT = 3 - 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 23 IF I NOT = 8 - 24 >>END-IF ->> Error: Unexpected indicator: `>' - -run_misc.at-3958-prog.cob:24.6-24.7: - 21 IF I NOT = 3 - 22 >>ELIF EXPECT-ORDER = 'EBCDIC' - 23 IF I NOT = 8 - 24 > >>END-IF ----- ^ - 25 DISPLAY "ERROR" END-DISPLAY - 26 STOP RUN. ->> Error: Unexpected indicator: `>' - -run_misc.at-3958-prog.cob:20.7-20.8: - 17 WHEN K (I) = KK - 18 CONTINUE - 19 END-SEARCH - 20 > >>IF EXPECT-ORDER = 'ASCII' ----- ^ - 21 IF I NOT = 3 - 22 >>ELIF EXPECT-ORDER = 'EBCDIC' ->> Error: Invalid syntax - -run_misc.at-3958-prog.cob:21.23: - 18 CONTINUE - 19 END-SEARCH - 20 >>IF EXPECT-ORDER = 'ASCII' - 21 > IF I NOT = 3 ----- ^ - 22 >>ELIF EXPECT-ORDER = 'EBCDIC' - 23 IF I NOT = 8 ->> Hint: Missing . - -run_misc.at-3958-prog.cob:22.7-22.8: - 19 END-SEARCH - 20 >>IF EXPECT-ORDER = 'ASCII' - 21 IF I NOT = 3 - 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 23 IF I NOT = 8 - 24 >>END-IF ->> Error: Invalid syntax - -run_misc.at-3958-prog.cob:22.12: - 19 END-SEARCH - 20 >>IF EXPECT-ORDER = 'ASCII' - 21 IF I NOT = 3 - 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 23 IF I NOT = 8 - 24 >>END-IF ->> Hint: Missing . - -run_misc.at-3958-prog.cob:22.13-22.25: - 19 END-SEARCH - 20 >>IF EXPECT-ORDER = 'ASCII' - 21 IF I NOT = 3 - 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^^^^^^^^^^^^ - 23 IF I NOT = 8 - 24 >>END-IF ->> Warning: Invalid syntax - -run_misc.at-3958-prog.cob:22.25: - 19 END-SEARCH - 20 >>IF EXPECT-ORDER = 'ASCII' - 21 IF I NOT = 3 - 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 23 IF I NOT = 8 - 24 >>END-IF ->> Hint: Missing . - -run_misc.at-3958-prog.cob:22.27-22.28: - 19 END-SEARCH - 20 >>IF EXPECT-ORDER = 'ASCII' - 21 IF I NOT = 3 - 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' ----- ^ - 23 IF I NOT = 8 - 24 >>END-IF ->> Warning: Invalid syntax - -run_misc.at-3958-prog.cob:24.7-24.8: - 21 IF I NOT = 3 - 22 >>ELIF EXPECT-ORDER = 'EBCDIC' - 23 IF I NOT = 8 - 24 > >>END-IF ----- ^ - 25 DISPLAY "ERROR" END-DISPLAY - 26 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4002:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4037:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4078:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4079:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4104:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4105:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4172:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4170:0 -run_misc.at-4170-prog.cob:13.8-13.13: - 10 - 11 PROCEDURE DIVISION. - 12 - 13 > ENTRY 'ent1'. ----- ^^^^^ - 14 DISPLAY VAR1 END-DISPLAY - 15 GOBACK. ->> Error: Invalid syntax - -run_misc.at-4170-prog.cob:17.8-17.13: - 14 DISPLAY VAR1 END-DISPLAY - 15 GOBACK. - 16 - 17 > ENTRY 'ent2'. ----- ^^^^^ - 18 DISPLAY VAR2 END-DISPLAY - 19 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4171:0 -run_misc.at-4171-prog1.cob:13.8-13.13: - 10 - 11 PROCEDURE DIVISION. - 12 - 13 > ENTRY 'ent2'. ----- ^^^^^ - 14 DISPLAY VAR2 END-DISPLAY - 15 GOBACK. ->> Error: Invalid syntax - -run_misc.at-4171-prog1.cob:17.8-17.13: - 14 DISPLAY VAR2 END-DISPLAY - 15 GOBACK. - 16 - 17 > ENTRY 'ent3'. ----- ^^^^^ - 18 DISPLAY VAR3 END-DISPLAY - 19 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4217:0 -run_misc.at-4217-prog.cob:10.27-10.32: - 7 01 PROGRAM-LINK USAGE PROGRAM-POINTER. - 8 - 9 PROCEDURE DIVISION. - 10 > SET PROGRAM-LINK TO ENTRY "subprogram" ----- ^^^^^ - 11 IF PROGRAM-LINK EQUAL NULL THEN - 12 DISPLAY "error: no subprogram linkage" UPON SYSERR ->> Error: Invalid syntax - -run_misc.at-4217-prog.cob:26.7-26.12: - 23 END-IF - 24 GOBACK. - 25 - 26 > ENTRY "subprogram". ----- ^^^^^ - 27 DISPLAY "subprogram" WITH NO ADVANCING - 28 END-DISPLAY ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4242:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4243:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4269:0 -run_misc.at-4269-prog.cob:14.16-14.23: - 11 IF MYFLD NOT = "ABCDEF" - 12 DISPLAY MYFLD - 13 END-IF - 14 > FREE ADDRESS OF MYFLD ----- ^^^^^^^ - 15 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4313:0 -run_misc.at-4313-prog.cob:26.16-26.23: - 23 DISPLAY MYFLD - 24 END-IF - 25 - 26 > FREE ADDRESS OF MYFLD ----- ^^^^^^^ - 27 IF ADDRESS OF MYFLD NOT = NULL - 28 DISPLAY "BASED ITEM WITH ADDRESS AFTER FREE" ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4360:0 -run_misc.at-4360-prog.cob:13.32-13.34: - 10 ASTART SECTION. - 11 A01. - 12 ALLOCATE 4 CHARACTERS - 13 > INITIALIZED TO "ABCD" ----- ^^ - 14 RETURNING MYPTR - 15 SET ADDRESS OF MYFLD TO MYPTR ->> Error: Invalid syntax - -run_misc.at-4360-prog.cob:21.32-21.34: - 18 END-IF - 19 FREE MYPTR - 20 ALLOCATE 4 CHARACTERS - 21 > INITIALIZED TO ALL "Z" ----- ^^ - 22 RETURNING MYPTR - 23 SET ADDRESS OF MYFLD TO MYPTR ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4384:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4419:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4420:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4495:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4495:0 -run_misc.at-4495-callee2.cob:9.19: - 6 01 P PIC 99. - 7 PROCEDURE DIVISION USING P. - 8 DISPLAY 'P: ' P WITH NO ADVANCING. - 9 > STOP RUN RETURNING P. ----- ^ ->> Hint: Missing . - -run_misc.at-4495-callee2.cob:9.20-9.29: - 6 01 P PIC 99. - 7 PROCEDURE DIVISION USING P. - 8 DISPLAY 'P: ' P WITH NO ADVANCING. - 9 > STOP RUN RETURNING P. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4494:0 -run_misc.at-4494-caller.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > #ifndef NULL ----- ^ - 6 #define NULL (void*)0 - 7 #endif ->> Error: Unexpected indicator: `f' - -run_misc.at-4494-caller.c:6.6-6.7: - 3 #include - 4 - 5 #ifndef NULL - 6 > #define NULL (void*)0 ----- ^ - 7 #endif - 8 ->> Error: Unexpected indicator: `e' - -run_misc.at-4494-caller.c:10.6-10.7: - 7 #endif - 8 - 9 int - 10 > main (int argc, char **argv) ----- ^ - 11 { - 12 /* for storing COBOL return code */ ->> Error: Unexpected indicator: `i' - -run_misc.at-4494-caller.c:12.6-12.7: - 9 int - 10 main (int argc, char **argv) - 11 { - 12 > /* for storing COBOL return code */ ----- ^ - 13 int cob_ret; - 14 ->> Error: Unexpected indicator: `f' - -run_misc.at-4494-caller.c:15.6-15.7: - 12 /* for storing COBOL return code */ - 13 int cob_ret; - 14 - 15 > /* initialize parameters */ ----- ^ - 16 void *cob_argv[2]; - 17 ->> Error: Unexpected indicator: `i' - -run_misc.at-4494-caller.c:18.6-18.7: - 15 /* initialize parameters */ - 16 void *cob_argv[2]; - 17 - 18 > cob_argv[0] = argv[2]; ----- ^ - 19 cob_argv[1] = NULL; - 20 ->> Error: Unexpected indicator: `_' - -run_misc.at-4494-caller.c:19.6-19.7: - 16 void *cob_argv[2]; - 17 - 18 cob_argv[0] = argv[2]; - 19 > cob_argv[1] = NULL; ----- ^ - 20 - 21 /* initialize the COBOL run-time library */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4494-caller.c:21.6-21.7: - 18 cob_argv[0] = argv[2]; - 19 cob_argv[1] = NULL; - 20 - 21 > /* initialize the COBOL run-time library */ ----- ^ - 22 cob_init(argc, argv); - 23 ->> Error: Unexpected indicator: `i' - -run_misc.at-4494-caller.c:22.6-22.7: - 19 cob_argv[1] = NULL; - 20 - 21 /* initialize the COBOL run-time library */ - 22 > cob_init(argc, argv); ----- ^ - 23 - 24 /* call COBOL program */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4494-caller.c:24.6-24.7: - 21 /* initialize the COBOL run-time library */ - 22 cob_init(argc, argv); - 23 - 24 > /* call COBOL program */ ----- ^ - 25 cob_ret = cob_call (argv[1], 2, cob_argv); - 26 ->> Error: Unexpected indicator: `c' - -run_misc.at-4494-caller.c:25.6-25.7: - 22 cob_init(argc, argv); - 23 - 24 /* call COBOL program */ - 25 > cob_ret = cob_call (argv[1], 2, cob_argv); ----- ^ - 26 - 27 cob_runtime_hint("program exited normally, " ->> Error: Unexpected indicator: `_' - -run_misc.at-4494-caller.c:27.6-27.7: - 24 /* call COBOL program */ - 25 cob_ret = cob_call (argv[1], 2, cob_argv); - 26 - 27 > cob_runtime_hint("program exited normally, " ----- ^ - 28 "without STOP RUN with status %d", cob_ret); - 29 ->> Error: Unexpected indicator: `_' - -run_misc.at-4494-caller.c:30.6-30.7: - 27 cob_runtime_hint("program exited normally, " - 28 "without STOP RUN with status %d", cob_ret); - 29 - 30 > /* Clean up and terminate - This does not return */ ----- ^ - 31 cob_stop_run (cob_ret); - 32 } ->> Error: Unexpected indicator: `C' - -run_misc.at-4494-caller.c:31.6-31.7: - 28 "without STOP RUN with status %d", cob_ret); - 29 - 30 /* Clean up and terminate - This does not return */ - 31 > cob_stop_run (cob_ret); ----- ^ - 32 } ->> Error: Unexpected indicator: `_' - -run_misc.at-4494-caller.c:5.8-5.12: - 2 #include - 3 #include - 4 - 5 > #ifndef NULL ----- ^^^^ - 6 #define NULL (void*)0 - 7 #endif ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4619:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4619:0 -run_misc.at-4619-callee.cob:13.17: - 10 IF P2 NOT OMITTED - 11 DISPLAY 'UNEXPECTED P2: ' P2. - 12 DISPLAY 'P1: ' P1 WITH NO ADVANCING - 13 > GOBACK RETURNING RC. ----- ^ ->> Hint: Missing . - -run_misc.at-4619-callee.cob:13.18-13.27: - 10 IF P2 NOT OMITTED - 11 DISPLAY 'UNEXPECTED P2: ' P2. - 12 DISPLAY 'P1: ' P1 WITH NO ADVANCING - 13 > GOBACK RETURNING RC. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4619:0 -run_misc.at-4619-callee2.cob:6.19: - 3 PROGRAM-ID. callee2. - 4 PROCEDURE DIVISION. - 5 DISPLAY 'STOP WITH 2' WITH NO ADVANCING - 6 > STOP RUN RETURNING 2. ----- ^ ->> Hint: Missing . - -run_misc.at-4619-callee2.cob:6.20-6.29: - 3 PROGRAM-ID. callee2. - 4 PROCEDURE DIVISION. - 5 DISPLAY 'STOP WITH 2' WITH NO ADVANCING - 6 > STOP RUN RETURNING 2. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4618:0 -run_misc.at-4618-caller.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > #ifndef NULL ----- ^ - 6 #define NULL (void*)0 - 7 #endif ->> Error: Unexpected indicator: `f' - -run_misc.at-4618-caller.c:6.6-6.7: - 3 #include - 4 - 5 #ifndef NULL - 6 > #define NULL (void*)0 ----- ^ - 7 #endif - 8 ->> Error: Unexpected indicator: `e' - -run_misc.at-4618-caller.c:10.6-10.7: - 7 #endif - 8 - 9 int - 10 > main (int argc, char **argv) ----- ^ - 11 { - 12 /* for storing libcob return state */ ->> Error: Unexpected indicator: `i' - -run_misc.at-4618-caller.c:12.6-12.7: - 9 int - 10 main (int argc, char **argv) - 11 { - 12 > /* for storing libcob return state */ ----- ^ - 13 int cob_ret; - 14 ->> Error: Unexpected indicator: `f' - -run_misc.at-4618-caller.c:15.6-15.7: - 12 /* for storing libcob return state */ - 13 int cob_ret; - 14 - 15 > /* initialize parameters */ ----- ^ - 16 void *cob_argv[3]; - 17 ->> Error: Unexpected indicator: `i' - -run_misc.at-4618-caller.c:18.6-18.7: - 15 /* initialize parameters */ - 16 void *cob_argv[3]; - 17 - 18 > char *p1 = "A"; ----- ^ - 19 cob_argv[0] = p1; - 20 cob_argv[1] = argv[2]; ->> Error: Unexpected indicator: `r' - -run_misc.at-4618-caller.c:19.6-19.7: - 16 void *cob_argv[3]; - 17 - 18 char *p1 = "A"; - 19 > cob_argv[0] = p1; ----- ^ - 20 cob_argv[1] = argv[2]; - 21 cob_argv[2] = NULL; ->> Error: Unexpected indicator: `_' - -run_misc.at-4618-caller.c:20.6-20.7: - 17 - 18 char *p1 = "A"; - 19 cob_argv[0] = p1; - 20 > cob_argv[1] = argv[2]; ----- ^ - 21 cob_argv[2] = NULL; - 22 ->> Error: Unexpected indicator: `_' - -run_misc.at-4618-caller.c:21.6-21.7: - 18 char *p1 = "A"; - 19 cob_argv[0] = p1; - 20 cob_argv[1] = argv[2]; - 21 > cob_argv[2] = NULL; ----- ^ - 22 - 23 /* initialize the COBOL run-time library */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4618-caller.c:23.6-23.7: - 20 cob_argv[1] = argv[2]; - 21 cob_argv[2] = NULL; - 22 - 23 > /* initialize the COBOL run-time library */ ----- ^ - 24 cob_init (argc, argv); - 25 ->> Error: Unexpected indicator: `i' - -run_misc.at-4618-caller.c:24.6-24.7: - 21 cob_argv[2] = NULL; - 22 - 23 /* initialize the COBOL run-time library */ - 24 > cob_init (argc, argv); ----- ^ - 25 - 26 /* call COBOL program */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4618-caller.c:26.6-26.7: - 23 /* initialize the COBOL run-time library */ - 24 cob_init (argc, argv); - 25 - 26 > /* call COBOL program */ ----- ^ - 27 cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); - 28 ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:27.6-27.7: - 24 cob_init (argc, argv); - 25 - 26 /* call COBOL program */ - 27 > cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); ----- ^ - 28 - 29 switch (cob_ret) { ->> Error: Unexpected indicator: `_' - -run_misc.at-4618-caller.c:29.6-29.7: - 26 /* call COBOL program */ - 27 cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); - 28 - 29 > switch (cob_ret) { ----- ^ - 30 case 0: /* program coming back */ - 31 ->> Error: Unexpected indicator: `t' - -run_misc.at-4618-caller.c:30.6-30.7: - 27 cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); - 28 - 29 switch (cob_ret) { - 30 > case 0: /* program coming back */ ----- ^ - 31 - 32 /* Clean up and terminate runtime */ ->> Error: Unexpected indicator: `e' - -run_misc.at-4618-caller.c:33.6-33.7: - 30 case 0: /* program coming back */ - 31 - 32 /* Clean up and terminate runtime */ - 33 > cob_runtime_hint ("program exited with return code %d", ----- ^ - 34 cob_last_exit_code ()); - 35 cob_tidy (); ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:35.6-35.7: - 32 /* Clean up and terminate runtime */ - 33 cob_runtime_hint ("program exited with return code %d", - 34 cob_last_exit_code ()); - 35 > cob_tidy (); ----- ^ - 36 break; - 37 ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:36.6-36.7: - 33 cob_runtime_hint ("program exited with return code %d", - 34 cob_last_exit_code ()); - 35 cob_tidy (); - 36 > break; ----- ^ - 37 - 38 case 1: /* normal exit */ ->> Error: Unexpected indicator: `b' - -run_misc.at-4618-caller.c:38.6-38.7: - 35 cob_tidy (); - 36 break; - 37 - 38 > case 1: /* normal exit */ ----- ^ - 39 cob_runtime_hint ("STOP RUN with return code %d", - 40 cob_last_exit_code ()); ->> Error: Unexpected indicator: `e' - -run_misc.at-4618-caller.c:39.6-39.7: - 36 break; - 37 - 38 case 1: /* normal exit */ - 39 > cob_runtime_hint ("STOP RUN with return code %d", ----- ^ - 40 cob_last_exit_code ()); - 41 break; ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:41.6-41.7: - 38 case 1: /* normal exit */ - 39 cob_runtime_hint ("STOP RUN with return code %d", - 40 cob_last_exit_code ()); - 41 > break; ----- ^ - 42 - 43 case -1: /* error exit */ ->> Error: Unexpected indicator: `b' - -run_misc.at-4618-caller.c:43.6-43.7: - 40 cob_last_exit_code ()); - 41 break; - 42 - 43 > case -1: /* error exit */ ----- ^ - 44 cob_runtime_hint ("error exit with return code %d and error \"%s\"", - 45 cob_last_exit_code (), cob_last_runtime_error ()); ->> Error: Unexpected indicator: `e' - -run_misc.at-4618-caller.c:44.6-44.7: - 41 break; - 42 - 43 case -1: /* error exit */ - 44 > cob_runtime_hint ("error exit with return code %d and error \"%s\"", ----- ^ - 45 cob_last_exit_code (), cob_last_runtime_error ()); - 46 break; ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:46.6-46.7: - 43 case -1: /* error exit */ - 44 cob_runtime_hint ("error exit with return code %d and error \"%s\"", - 45 cob_last_exit_code (), cob_last_runtime_error ()); - 46 > break; ----- ^ - 47 - 48 case -2: /* hard error exit */ ->> Error: Unexpected indicator: `b' - -run_misc.at-4618-caller.c:48.6-48.7: - 45 cob_last_exit_code (), cob_last_runtime_error ()); - 46 break; - 47 - 48 > case -2: /* hard error exit */ ----- ^ - 49 cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", - 50 cob_last_exit_code (), cob_last_runtime_error ()); ->> Error: Unexpected indicator: `e' - -run_misc.at-4618-caller.c:49.6-49.7: - 46 break; - 47 - 48 case -2: /* hard error exit */ - 49 > cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", ----- ^ - 50 cob_last_exit_code (), cob_last_runtime_error ()); - 51 break; ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:51.6-51.7: - 48 case -2: /* hard error exit */ - 49 cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", - 50 cob_last_exit_code (), cob_last_runtime_error ()); - 51 > break; ----- ^ - 52 - 53 case -3: /* signal handler exit */ ->> Error: Unexpected indicator: `b' - -run_misc.at-4618-caller.c:53.6-53.7: - 50 cob_last_exit_code (), cob_last_runtime_error ()); - 51 break; - 52 - 53 > case -3: /* signal handler exit */ ----- ^ - 54 cob_runtime_hint ("signal handler exit with signal %d and error \"%s\"", - 55 cob_last_exit_code (), cob_last_runtime_error ()); ->> Error: Unexpected indicator: `e' - -run_misc.at-4618-caller.c:54.6-54.7: - 51 break; - 52 - 53 case -3: /* signal handler exit */ - 54 > cob_runtime_hint ("signal handler exit with signal %d and error \"%s\"", ----- ^ - 55 cob_last_exit_code (), cob_last_runtime_error ()); - 56 break; ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:56.6-56.7: - 53 case -3: /* signal handler exit */ - 54 cob_runtime_hint ("signal handler exit with signal %d and error \"%s\"", - 55 cob_last_exit_code (), cob_last_runtime_error ()); - 56 > break; ----- ^ - 57 - 58 default: ->> Error: Unexpected indicator: `b' - -run_misc.at-4618-caller.c:58.6-58.7: - 55 cob_last_exit_code (), cob_last_runtime_error ()); - 56 break; - 57 - 58 > default: ----- ^ - 59 cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " - 60 "last exit code %d, last error \"%s\"", ->> Error: Unexpected indicator: `a' - -run_misc.at-4618-caller.c:59.6-59.7: - 56 break; - 57 - 58 default: - 59 > cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " ----- ^ - 60 "last exit code %d, last error \"%s\"", - 61 cob_last_exit_code (), cob_last_runtime_error ()); ->> Error: Unexpected indicator: `c' - -run_misc.at-4618-caller.c:62.6-62.7: - 59 cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " - 60 "last exit code %d, last error \"%s\"", - 61 cob_last_exit_code (), cob_last_runtime_error ()); - 62 > break; ----- ^ - 63 } - 64 return 0; ->> Error: Unexpected indicator: `b' - -run_misc.at-4618-caller.c:64.6-64.7: - 61 cob_last_exit_code (), cob_last_runtime_error ()); - 62 break; - 63 } - 64 > return 0; ----- ^ - 65 } ->> Error: Unexpected indicator: `u' - -run_misc.at-4618-caller.c:44.71-44.72: - 41 break; - 42 - 43 case -1: /* error exit */ - 44 > cob_runtime_hint ("error exit with return code %d and error \"%s\"", ----- ^ - 45 cob_last_exit_code (), cob_last_runtime_error ()); - 46 break; ->> Error: Missing continuation of `' - -run_misc.at-4618-caller.c:49.24-49.72: - 46 break; - 47 - 48 case -2: /* hard error exit */ - 49 > cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 50 cob_last_exit_code (), cob_last_runtime_error ()); - 51 break; ->> Error: Missing continuation of `hard error exit with return code %d and error \' - -run_misc.at-4618-caller.c:59.24-59.72: - 56 break; - 57 - 58 default: - 59 > cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 60 "last exit code %d, last error \"%s\"", - 61 cob_last_exit_code (), cob_last_runtime_error ()); ->> Error: Missing continuation of `unexpected return from cob_call_with_exception_' - -run_misc.at-4618-caller.c:5.8-5.12: - 2 #include - 3 #include - 4 - 5 > #ifndef NULL ----- ^^^^ - 6 #define NULL (void*)0 - 7 #endif ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4694:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4694:0 -run_misc.at-4694-caller.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > int callee (char *, char *); ----- ^ - 6 - 7 #ifndef NULL ->> Error: Unexpected indicator: `l' - -run_misc.at-4694-caller.c:7.6-7.7: - 4 - 5 int callee (char *, char *); - 6 - 7 > #ifndef NULL ----- ^ - 8 #define NULL (void*)0 - 9 #endif ->> Error: Unexpected indicator: `f' - -run_misc.at-4694-caller.c:8.6-8.7: - 5 int callee (char *, char *); - 6 - 7 #ifndef NULL - 8 > #define NULL (void*)0 ----- ^ - 9 #endif - 10 ->> Error: Unexpected indicator: `e' - -run_misc.at-4694-caller.c:12.6-12.7: - 9 #endif - 10 - 11 int - 12 > main (int argc, char **argv) ----- ^ - 13 { - 14 cob_global *cobol_global; ->> Error: Unexpected indicator: `i' - -run_misc.at-4694-caller.c:14.6-14.7: - 11 int - 12 main (int argc, char **argv) - 13 { - 14 > cob_global *cobol_global; ----- ^ - 15 /* for storing COBOL return code */ - 16 int cob_ret; ->> Error: Unexpected indicator: `_' - -run_misc.at-4694-caller.c:15.6-15.7: - 12 main (int argc, char **argv) - 13 { - 14 cob_global *cobol_global; - 15 > /* for storing COBOL return code */ ----- ^ - 16 int cob_ret; - 17 ->> Error: Unexpected indicator: `f' - -run_misc.at-4694-caller.c:18.6-18.7: - 15 /* for storing COBOL return code */ - 16 int cob_ret; - 17 - 18 > /* initialize parameters */ ----- ^ - 19 char *p1 = "A"; - 20 ->> Error: Unexpected indicator: `i' - -run_misc.at-4694-caller.c:19.6-19.7: - 16 int cob_ret; - 17 - 18 /* initialize parameters */ - 19 > char *p1 = "A"; ----- ^ - 20 - 21 /* initialize the COBOL run-time library */ ->> Error: Unexpected indicator: `r' - -run_misc.at-4694-caller.c:21.6-21.7: - 18 /* initialize parameters */ - 19 char *p1 = "A"; - 20 - 21 > /* initialize the COBOL run-time library */ ----- ^ - 22 cob_init(argc, argv); - 23 ->> Error: Unexpected indicator: `i' - -run_misc.at-4694-caller.c:22.6-22.7: - 19 char *p1 = "A"; - 20 - 21 /* initialize the COBOL run-time library */ - 22 > cob_init(argc, argv); ----- ^ - 23 - 24 /* setup for COBOL parameter handling */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4694-caller.c:24.6-24.7: - 21 /* initialize the COBOL run-time library */ - 22 cob_init(argc, argv); - 23 - 24 > /* setup for COBOL parameter handling */ ----- ^ - 25 cobol_global = cob_get_global_ptr (); - 26 cobol_global->cob_call_params = 1; ->> Error: Unexpected indicator: `s' - -run_misc.at-4694-caller.c:25.6-25.7: - 22 cob_init(argc, argv); - 23 - 24 /* setup for COBOL parameter handling */ - 25 > cobol_global = cob_get_global_ptr (); ----- ^ - 26 cobol_global->cob_call_params = 1; - 27 ->> Error: Unexpected indicator: `o' - -run_misc.at-4694-caller.c:26.6-26.7: - 23 - 24 /* setup for COBOL parameter handling */ - 25 cobol_global = cob_get_global_ptr (); - 26 > cobol_global->cob_call_params = 1; ----- ^ - 27 - 28 /* call COBOL program */ ->> Error: Unexpected indicator: `o' - -run_misc.at-4694-caller.c:28.6-28.7: - 25 cobol_global = cob_get_global_ptr (); - 26 cobol_global->cob_call_params = 1; - 27 - 28 > /* call COBOL program */ ----- ^ - 29 cob_ret = callee (p1, NULL); - 30 ->> Error: Unexpected indicator: `c' - -run_misc.at-4694-caller.c:29.6-29.7: - 26 cobol_global->cob_call_params = 1; - 27 - 28 /* call COBOL program */ - 29 > cob_ret = callee (p1, NULL); ----- ^ - 30 - 31 /* Clean up and terminate - This does not return */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4694-caller.c:31.6-31.7: - 28 /* call COBOL program */ - 29 cob_ret = callee (p1, NULL); - 30 - 31 > /* Clean up and terminate - This does not return */ ----- ^ - 32 cob_stop_run (cob_ret); - 33 } ->> Error: Unexpected indicator: `C' - -run_misc.at-4694-caller.c:32.6-32.7: - 29 cob_ret = callee (p1, NULL); - 30 - 31 /* Clean up and terminate - This does not return */ - 32 > cob_stop_run (cob_ret); ----- ^ - 33 } ->> Error: Unexpected indicator: `_' - -run_misc.at-4694-caller.c:5.7-5.10: - 2 #include - 3 #include - 4 - 5 > int callee (char *, char *); ----- ^^^ - 6 - 7 #ifndef NULL ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4747:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4747:0 -run_misc.at-4747-caller.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > int callee (char *, char *); ----- ^ - 6 - 7 int ->> Error: Unexpected indicator: `l' - -run_misc.at-4747-caller.c:8.6-8.7: - 5 int callee (char *, char *); - 6 - 7 int - 8 > main (int argc, char **argv) ----- ^ - 9 { - 10 /* for storing COBOL return code */ ->> Error: Unexpected indicator: `i' - -run_misc.at-4747-caller.c:10.6-10.7: - 7 int - 8 main (int argc, char **argv) - 9 { - 10 > /* for storing COBOL return code */ ----- ^ - 11 int cob_ret; - 12 ->> Error: Unexpected indicator: `f' - -run_misc.at-4747-caller.c:13.6-13.7: - 10 /* for storing COBOL return code */ - 11 int cob_ret; - 12 - 13 > /* initialize parameters */ ----- ^ - 14 char *p1 = "A"; - 15 char *p2 = "FROM C"; ->> Error: Unexpected indicator: `i' - -run_misc.at-4747-caller.c:14.6-14.7: - 11 int cob_ret; - 12 - 13 /* initialize parameters */ - 14 > char *p1 = "A"; ----- ^ - 15 char *p2 = "FROM C"; - 16 ->> Error: Unexpected indicator: `r' - -run_misc.at-4747-caller.c:15.6-15.7: - 12 - 13 /* initialize parameters */ - 14 char *p1 = "A"; - 15 > char *p2 = "FROM C"; ----- ^ - 16 - 17 /* initialize the COBOL run-time library */ ->> Error: Unexpected indicator: `r' - -run_misc.at-4747-caller.c:17.6-17.7: - 14 char *p1 = "A"; - 15 char *p2 = "FROM C"; - 16 - 17 > /* initialize the COBOL run-time library */ ----- ^ - 18 cob_init (argc, argv); - 19 ->> Error: Unexpected indicator: `i' - -run_misc.at-4747-caller.c:18.6-18.7: - 15 char *p2 = "FROM C"; - 16 - 17 /* initialize the COBOL run-time library */ - 18 > cob_init (argc, argv); ----- ^ - 19 - 20 /* call COBOL program */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4747-caller.c:20.6-20.7: - 17 /* initialize the COBOL run-time library */ - 18 cob_init (argc, argv); - 19 - 20 > /* call COBOL program */ ----- ^ - 21 cob_ret = callee (p1, p2); - 22 ->> Error: Unexpected indicator: `c' - -run_misc.at-4747-caller.c:21.6-21.7: - 18 cob_init (argc, argv); - 19 - 20 /* call COBOL program */ - 21 > cob_ret = callee (p1, p2); ----- ^ - 22 - 23 /* Clean up and terminate - This does not return */ ->> Error: Unexpected indicator: `_' - -run_misc.at-4747-caller.c:23.6-23.7: - 20 /* call COBOL program */ - 21 cob_ret = callee (p1, p2); - 22 - 23 > /* Clean up and terminate - This does not return */ ----- ^ - 24 cob_stop_run (cob_ret); - 25 } ->> Error: Unexpected indicator: `C' - -run_misc.at-4747-caller.c:24.6-24.7: - 21 cob_ret = callee (p1, p2); - 22 - 23 /* Clean up and terminate - This does not return */ - 24 > cob_stop_run (cob_ret); ----- ^ - 25 } ->> Error: Unexpected indicator: `_' - -run_misc.at-4747-caller.c:5.7-5.10: - 2 #include - 3 #include - 4 - 5 > int callee (char *, char *); ----- ^^^ - 6 - 7 int ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4808:0 -run_misc.at-4808-cprog.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 cprog (void *cb) - 7 { ->> Error: Unexpected indicator: `T' - -run_misc.at-4808-cprog.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > cprog (void *cb) ----- ^ - 7 { - 8 char *p1; ->> Error: Unexpected indicator: `(' - -run_misc.at-4808-cprog.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 cprog (void *cb) - 7 { - 8 > char *p1; ----- ^ - 9 int p2 = 42; - 10 char *p3 = "CALLBACK"; ->> Error: Unexpected indicator: `r' - -run_misc.at-4808-cprog.c:10.6-10.7: - 7 { - 8 char *p1; - 9 int p2 = 42; - 10 > char *p3 = "CALLBACK"; ----- ^ - 11 - 12 p1 = p3; ->> Error: Unexpected indicator: `r' - -run_misc.at-4808-cprog.c:12.6-12.7: - 9 int p2 = 42; - 10 char *p3 = "CALLBACK"; - 11 - 12 > p1 = p3; ----- ^ - 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); - 14 return 0; ->> Error: Unexpected indicator: `=' - -run_misc.at-4808-cprog.c:13.6-13.7: - 10 char *p3 = "CALLBACK"; - 11 - 12 p1 = p3; - 13 > ((int (*)(char *, int, char *))cb)(p1, p2, p3); ----- ^ - 14 return 0; - 15 } ->> Error: Unexpected indicator: `n' - -run_misc.at-4808-cprog.c:14.6-14.7: - 11 - 12 p1 = p3; - 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); - 14 > return 0; ----- ^ - 15 } ->> Error: Unexpected indicator: `u' - -run_misc.at-4808-cprog.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 cprog (void *cb) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4808:0 -run_misc.at-4808-prog.cob:8.21-8.26: - 5 WORKING-STORAGE SECTION. - 6 01 CB USAGE PROGRAM-POINTER. - 7 PROCEDURE DIVISION. - 8 > SET CB TO ENTRY "callback" ----- ^^^^^ - 9 CALL STATIC "cprog" USING BY VALUE CB - 10 END-CALL ->> Error: Invalid syntax - -run_misc.at-4808-prog.cob:9.23-9.30: - 6 01 CB USAGE PROGRAM-POINTER. - 7 PROCEDURE DIVISION. - 8 SET CB TO ENTRY "callback" - 9 > CALL STATIC "cprog" USING BY VALUE CB ----- ^^^^^^^ - 10 END-CALL - 11 EXIT PROGRAM. ->> Error: Invalid syntax - -run_misc.at-4808-prog.cob:19.27-19.28: - 16 ENVIRONMENT DIVISION. - 17 CONFIGURATION SECTION. - 18 SPECIAL-NAMES. - 19 > CALL-CONVENTION 0 IS EXTERN. ----- ^ - 20 DATA DIVISION. - 21 LINKAGE SECTION. ->> Error: Invalid syntax - -run_misc.at-4808-prog.cob:25.32: - 22 01 P1 USAGE POINTER. - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 > PROCEDURE DIVISION EXTERN USING ----- ^ - 26 BY VALUE P1 P2 BY REFERENCE P3. - 27 IF P1 NOT EQUAL ADDRESS OF P3 ->> Hint: Missing . - -run_misc.at-4808-prog.cob:25.33-25.39: - 22 01 P1 USAGE POINTER. - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 > PROCEDURE DIVISION EXTERN USING ----- ^^^^^^ - 26 BY VALUE P1 P2 BY REFERENCE P3. - 27 IF P1 NOT EQUAL ADDRESS OF P3 ->> Error: Invalid syntax - -run_misc.at-4808-prog.cob:25.39: - 22 01 P1 USAGE POINTER. - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 > PROCEDURE DIVISION EXTERN USING ----- ^ - 26 BY VALUE P1 P2 BY REFERENCE P3. - 27 IF P1 NOT EQUAL ADDRESS OF P3 ->> Hint: Missing . - -run_misc.at-4808-prog.cob:25.40-25.45: - 22 01 P1 USAGE POINTER. - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 > PROCEDURE DIVISION EXTERN USING ----- ^^^^^ - 26 BY VALUE P1 P2 BY REFERENCE P3. - 27 IF P1 NOT EQUAL ADDRESS OF P3 ->> Warning: Invalid syntax - -run_misc.at-4808-prog.cob:26.35: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN USING - 26 > BY VALUE P1 P2 BY REFERENCE P3. ----- ^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY "P1 != ADDRESS OF P3: " P1. ->> Hint: Missing . - -run_misc.at-4808-prog.cob:26.36-26.38: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN USING - 26 > BY VALUE P1 P2 BY REFERENCE P3. ----- ^^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY "P1 != ADDRESS OF P3: " P1. ->> Warning: Invalid syntax - -run_misc.at-4808-prog.cob:26.38: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN USING - 26 > BY VALUE P1 P2 BY REFERENCE P3. ----- ^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY "P1 != ADDRESS OF P3: " P1. ->> Hint: Missing . - -run_misc.at-4808-prog.cob:26.39-26.41: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN USING - 26 > BY VALUE P1 P2 BY REFERENCE P3. ----- ^^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY "P1 != ADDRESS OF P3: " P1. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4884:0 -run_misc.at-4884-cprog.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 cprog (void *cb) - 7 { ->> Error: Unexpected indicator: `T' - -run_misc.at-4884-cprog.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > cprog (void *cb) ----- ^ - 7 { - 8 char *p1; ->> Error: Unexpected indicator: `(' - -run_misc.at-4884-cprog.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 cprog (void *cb) - 7 { - 8 > char *p1; ----- ^ - 9 int p2 = 42; - 10 char *p3 = "CALLBACK"; ->> Error: Unexpected indicator: `r' - -run_misc.at-4884-cprog.c:10.6-10.7: - 7 { - 8 char *p1; - 9 int p2 = 42; - 10 > char *p3 = "CALLBACK"; ----- ^ - 11 - 12 p1 = p3; ->> Error: Unexpected indicator: `r' - -run_misc.at-4884-cprog.c:12.6-12.7: - 9 int p2 = 42; - 10 char *p3 = "CALLBACK"; - 11 - 12 > p1 = p3; ----- ^ - 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); - 14 return 0; ->> Error: Unexpected indicator: `=' - -run_misc.at-4884-cprog.c:13.6-13.7: - 10 char *p3 = "CALLBACK"; - 11 - 12 p1 = p3; - 13 > ((int (*)(char *, int, char *))cb)(p1, p2, p3); ----- ^ - 14 return 0; - 15 } ->> Error: Unexpected indicator: `n' - -run_misc.at-4884-cprog.c:14.6-14.7: - 11 - 12 p1 = p3; - 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); - 14 > return 0; ----- ^ - 15 } ->> Error: Unexpected indicator: `u' - -run_misc.at-4884-cprog.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 cprog (void *cb) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4884:0 -run_misc.at-4884-prog.cob:10.21-10.26: - 7 WORKING-STORAGE SECTION. - 8 01 CB USAGE PROGRAM-POINTER. - 9 PROCEDURE DIVISION. - 10 > SET CB TO ENTRY "callback" ----- ^^^^^ - 11 CALL STATIC "cprog" USING BY VALUE CB - 12 END-CALL ->> Error: Invalid syntax - -run_misc.at-4884-prog.cob:11.23-11.30: - 8 01 CB USAGE PROGRAM-POINTER. - 9 PROCEDURE DIVISION. - 10 SET CB TO ENTRY "callback" - 11 > CALL STATIC "cprog" USING BY VALUE CB ----- ^^^^^^^ - 12 END-CALL - 13 EXIT PROGRAM. ->> Error: Invalid syntax - -run_misc.at-4884-prog.cob:19.27: - 16 IDENTIFICATION DIVISION. - 17 PROGRAM-ID. callback. - 18 OPTIONS. - 19 > ENTRY-CONVENTION EXTERN. ----- ^ - 20 DATA DIVISION. - 21 LINKAGE SECTION. ->> Hint: Missing COBOL - -run_misc.at-4884-prog.cob:19.28-19.34: - 16 IDENTIFICATION DIVISION. - 17 PROGRAM-ID. callback. - 18 OPTIONS. - 19 > ENTRY-CONVENTION EXTERN. ----- ^^^^^^ - 20 DATA DIVISION. - 21 LINKAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4965:0 -run_misc.at-4965-prog2.cob:8.21-8.26: - 5 WORKING-STORAGE SECTION. - 6 01 CB USAGE PROGRAM-POINTER. - 7 PROCEDURE DIVISION. - 8 > SET CB TO ENTRY "callback" ----- ^^^^^ - 9 CALL STATIC "cprog" USING BY VALUE CB - 10 END-CALL ->> Error: Invalid syntax - -run_misc.at-4965-prog2.cob:9.23-9.30: - 6 01 CB USAGE PROGRAM-POINTER. - 7 PROCEDURE DIVISION. - 8 SET CB TO ENTRY "callback" - 9 > CALL STATIC "cprog" USING BY VALUE CB ----- ^^^^^^^ - 10 END-CALL - 11 EXIT PROGRAM. ->> Error: Invalid syntax - -run_misc.at-4965-prog2.cob:21.32: - 18 01 P1 USAGE POINTER. - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 > PROCEDURE DIVISION WITH C LINKAGE ----- ^ - 22 USING BY VALUE P1 P2 BY REFERENCE P3. - 23 IF P1 NOT EQUAL ADDRESS OF P3 ->> Hint: Missing . - -run_misc.at-4965-prog2.cob:21.33-21.37: - 18 01 P1 USAGE POINTER. - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 > PROCEDURE DIVISION WITH C LINKAGE ----- ^^^^ - 22 USING BY VALUE P1 P2 BY REFERENCE P3. - 23 IF P1 NOT EQUAL ADDRESS OF P3 ->> Error: Invalid syntax - -run_misc.at-4965-prog2.cob:21.39: - 18 01 P1 USAGE POINTER. - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 > PROCEDURE DIVISION WITH C LINKAGE ----- ^ - 22 USING BY VALUE P1 P2 BY REFERENCE P3. - 23 IF P1 NOT EQUAL ADDRESS OF P3 ->> Hint: Missing . - -run_misc.at-4965-prog2.cob:21.40-21.47: - 18 01 P1 USAGE POINTER. - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 > PROCEDURE DIVISION WITH C LINKAGE ----- ^^^^^^^ - 22 USING BY VALUE P1 P2 BY REFERENCE P3. - 23 IF P1 NOT EQUAL ADDRESS OF P3 ->> Warning: Invalid syntax - -run_misc.at-4965-prog2.cob:22.41: - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 PROCEDURE DIVISION WITH C LINKAGE - 22 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^ - 23 IF P1 NOT EQUAL ADDRESS OF P3 - 24 DISPLAY P1 ->> Hint: Missing . - -run_misc.at-4965-prog2.cob:22.42-22.44: - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 PROCEDURE DIVISION WITH C LINKAGE - 22 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^^ - 23 IF P1 NOT EQUAL ADDRESS OF P3 - 24 DISPLAY P1 ->> Warning: Invalid syntax - -run_misc.at-4965-prog2.cob:22.44: - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 PROCEDURE DIVISION WITH C LINKAGE - 22 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^ - 23 IF P1 NOT EQUAL ADDRESS OF P3 - 24 DISPLAY P1 ->> Hint: Missing . - -run_misc.at-4965-prog2.cob:22.45-22.47: - 19 01 P2 USAGE BINARY-LONG. - 20 01 P3 PIC X(8). - 21 PROCEDURE DIVISION WITH C LINKAGE - 22 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^^ - 23 IF P1 NOT EQUAL ADDRESS OF P3 - 24 DISPLAY P1 ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4968:0 -run_misc.at-4968-prog3.cob:8.21-8.26: - 5 WORKING-STORAGE SECTION. - 6 01 CB USAGE PROGRAM-POINTER. - 7 PROCEDURE DIVISION. - 8 > SET CB TO ENTRY "callback" ----- ^^^^^ - 9 CALL STATIC "cprog" USING BY VALUE CB - 10 END-CALL ->> Error: Invalid syntax - -run_misc.at-4968-prog3.cob:9.23-9.30: - 6 01 CB USAGE PROGRAM-POINTER. - 7 PROCEDURE DIVISION. - 8 SET CB TO ENTRY "callback" - 9 > CALL STATIC "cprog" USING BY VALUE CB ----- ^^^^^^^ - 10 END-CALL - 11 EXIT PROGRAM. ->> Error: Invalid syntax - -run_misc.at-4968-prog3.cob:19.27-19.28: - 16 ENVIRONMENT DIVISION. - 17 CONFIGURATION SECTION. - 18 SPECIAL-NAMES. - 19 > CALL-CONVENTION 0 IS EXTERN. ----- ^ - 20 DATA DIVISION. - 21 LINKAGE SECTION. ->> Error: Invalid syntax - -run_misc.at-4968-prog3.cob:25.32: - 22 01 P1 USAGE POINTER. - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 > PROCEDURE DIVISION EXTERN ----- ^ - 26 USING BY VALUE P1 P2 BY REFERENCE P3. - 27 IF P1 NOT EQUAL ADDRESS OF P3 ->> Hint: Missing . - -run_misc.at-4968-prog3.cob:25.33-25.39: - 22 01 P1 USAGE POINTER. - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 > PROCEDURE DIVISION EXTERN ----- ^^^^^^ - 26 USING BY VALUE P1 P2 BY REFERENCE P3. - 27 IF P1 NOT EQUAL ADDRESS OF P3 ->> Error: Invalid syntax - -run_misc.at-4968-prog3.cob:25.39: - 22 01 P1 USAGE POINTER. - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 > PROCEDURE DIVISION EXTERN ----- ^ - 26 USING BY VALUE P1 P2 BY REFERENCE P3. - 27 IF P1 NOT EQUAL ADDRESS OF P3 ->> Hint: Missing . - -run_misc.at-4968-prog3.cob:26.24-26.29: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN - 26 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^^^^^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY P1 ->> Warning: Invalid syntax - -run_misc.at-4968-prog3.cob:26.41: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN - 26 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY P1 ->> Hint: Missing . - -run_misc.at-4968-prog3.cob:26.42-26.44: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN - 26 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY P1 ->> Warning: Invalid syntax - -run_misc.at-4968-prog3.cob:26.44: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN - 26 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY P1 ->> Hint: Missing . - -run_misc.at-4968-prog3.cob:26.45-26.47: - 23 01 P2 USAGE BINARY-LONG. - 24 01 P3 PIC X(8). - 25 PROCEDURE DIVISION EXTERN - 26 > USING BY VALUE P1 P2 BY REFERENCE P3. ----- ^^ - 27 IF P1 NOT EQUAL ADDRESS OF P3 - 28 DISPLAY P1 ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5011:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5011:0 -run_misc.at-5011-caller.c:2.6-2.7: - 1 - 2 > int callee (char *, char *); ----- ^ - 3 - 4 int ->> Error: Unexpected indicator: `l' - -run_misc.at-5011-caller.c:5.6-5.7: - 2 int callee (char *, char *); - 3 - 4 int - 5 > main (int argc, char **argv) ----- ^ - 6 { - 7 /* initialize parameters */ ->> Error: Unexpected indicator: `i' - -run_misc.at-5011-caller.c:7.6-7.7: - 4 int - 5 main (int argc, char **argv) - 6 { - 7 > /* initialize parameters */ ----- ^ - 8 char *p1 = "A"; - 9 char *p2 = "FROM C"; ->> Error: Unexpected indicator: `i' - -run_misc.at-5011-caller.c:8.6-8.7: - 5 main (int argc, char **argv) - 6 { - 7 /* initialize parameters */ - 8 > char *p1 = "A"; ----- ^ - 9 char *p2 = "FROM C"; - 10 ->> Error: Unexpected indicator: `r' - -run_misc.at-5011-caller.c:9.6-9.7: - 6 { - 7 /* initialize parameters */ - 8 char *p1 = "A"; - 9 > char *p2 = "FROM C"; ----- ^ - 10 - 11 /* call COBOL program (initialization missing) ->> Error: Unexpected indicator: `r' - -run_misc.at-5011-caller.c:11.6-11.7: - 8 char *p1 = "A"; - 9 char *p2 = "FROM C"; - 10 - 11 > /* call COBOL program (initialization missing) ----- ^ - 12 note: COBOL program terminates the program by STOP RUN */ - 13 (void)callee (p1, p2); ->> Error: Unexpected indicator: `c' - -run_misc.at-5011-caller.c:12.6-12.7: - 9 char *p2 = "FROM C"; - 10 - 11 /* call COBOL program (initialization missing) - 12 > note: COBOL program terminates the program by STOP RUN */ ----- ^ - 13 (void)callee (p1, p2); - 14 } ->> Error: Unexpected indicator: `n' - -run_misc.at-5011-caller.c:13.6-13.7: - 10 - 11 /* call COBOL program (initialization missing) - 12 note: COBOL program terminates the program by STOP RUN */ - 13 > (void)callee (p1, p2); ----- ^ - 14 } ->> Error: Unexpected indicator: `i' - -run_misc.at-5011-caller.c:2.7-2.10: - 1 - 2 > int callee (char *, char *); ----- ^^^ - 3 - 4 int ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5072:0 -run_misc.at-5072-callee.c:7.6-7.7: - 4 int - 5 callee (char *p1, char *p2) - 6 { - 7 > if (p1[0] == 'A') { ----- ^ - 8 p1[0] = 'B'; - 9 } ->> Error: Unexpected indicator: `(' - -run_misc.at-5072-callee.c:8.6-8.7: - 5 callee (char *p1, char *p2) - 6 { - 7 if (p1[0] == 'A') { - 8 > p1[0] = 'B'; ----- ^ - 9 } - 10 memcpy (p2, "FROM C", 6); ->> Error: Unexpected indicator: `p' - -run_misc.at-5072-callee.c:10.6-10.7: - 7 if (p1[0] == 'A') { - 8 p1[0] = 'B'; - 9 } - 10 > memcpy (p2, "FROM C", 6); ----- ^ - 11 - 12 return 3; ->> Error: Unexpected indicator: `c' - -run_misc.at-5072-callee.c:12.6-12.7: - 9 } - 10 memcpy (p2, "FROM C", 6); - 11 - 12 > return 3; ----- ^ - 13 } ->> Error: Unexpected indicator: `u' - -run_misc.at-5072-callee.c:7.13-14.0: - 4 int - 5 callee (char *p1, char *p2) - 6 { - 7 > if (p1[0] == 'A') { ----- - 8 > p1[0] = 'B'; ----- ^^^^^^^^^^^^^^^^^^^ - 9 > } ----- ^^^^^ - 10 > memcpy (p2, "FROM C", 6); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > ----- ^ - 12 > return 3; ----- ^^^^^^^^^^^^^ - 13 > } ----- ^^ ->> Error: Unterminated pseudotext - -run_misc.at-5072-callee.c:5.7-5.12: - 2 #include - 3 - 4 int - 5 > callee (char *p1, char *p2) ----- ^^^^^ - 6 { - 7 if (p1[0] == 'A') { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5072:0 -run_misc.at-5072-caller.cob:10.23-10.31: - 7 01 P2 PIC X(7). - 8 77 P2-COB PIC X(7). - 9 PROCEDURE DIVISION. - 10 > CALL STATIC 'callee' USING P1 P2 ----- ^^^^^^^^ - 11 IF P1 NOT EQUAL "B" - 12 DISPLAY 'NOT A: ' P1 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5110:0 -run_misc.at-5110-callee.cob:10.16-10.22: - 7 LINKAGE SECTION. - 8 01 P1 PIC X ANY LENGTH. - 9 PROCEDURE DIVISION USING P1. - 10 > MOVE LENGTH OF P1 TO P2. ----- ^^^^^^ - 11 IF P2 NOT = 6 - 12 DISPLAY P2. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5111:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5150:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5151:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5191:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5238:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5263:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5294:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5295:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5336:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5335:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5357:0 -run_misc.at-5357-prog.cob:7.38: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Hint: Missing - -run_misc.at-5357-prog.cob:7.38-7.39: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5375:0 -run_misc.at-5375-prog.cob:7.37: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > STOP RUN WITH ERROR STATUS. ----- ^ ->> Hint: Missing - -run_misc.at-5375-prog.cob:7.37-7.38: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > STOP RUN WITH ERROR STATUS. ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5398:0 -run_misc.at-5398-prog.cob:12.15: - 9 IDENTIFICATION DIVISION. - 10 PROGRAM-ID. prog2. - 11 PROCEDURE DIVISION. - 12 > STOP ERROR. ----- ^ ->> Hint: Missing - -run_misc.at-5398-prog.cob:12.16-12.21: - 9 IDENTIFICATION DIVISION. - 10 PROGRAM-ID. prog2. - 11 PROCEDURE DIVISION. - 12 > STOP ERROR. ----- ^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5433:0 -run_misc.at-5433-prog.cob:7.29-7.35: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 > ALPHABET A-EBC IS EBCDIC ----- ^^^^^^ - 8 ALPHABET A-ASC IS ASCII - 9 SYMBOLIC Z-EBC IS 241 IN A-EBC ->> Error: Invalid syntax - -run_misc.at-5433-prog.cob:7.35: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 > ALPHABET A-EBC IS EBCDIC ----- ^ - 8 ALPHABET A-ASC IS ASCII - 9 SYMBOLIC Z-EBC IS 241 IN A-EBC ->> Hint: Missing IS - -run_misc.at-5433-prog.cob:8.11-8.19: - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 ALPHABET A-EBC IS EBCDIC - 8 > ALPHABET A-ASC IS ASCII ----- ^^^^^^^^ - 9 SYMBOLIC Z-EBC IS 241 IN A-EBC - 10 SYMBOLIC Z-ASC IS 49 IN A-ASC ->> Error: Invalid syntax - -run_misc.at-5433-prog.cob:8.29-8.34: - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 ALPHABET A-EBC IS EBCDIC - 8 > ALPHABET A-ASC IS ASCII ----- ^^^^^ - 9 SYMBOLIC Z-EBC IS 241 IN A-EBC - 10 SYMBOLIC Z-ASC IS 49 IN A-ASC ->> Error: Invalid syntax - -run_misc.at-5433-prog.cob:8.34: - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 ALPHABET A-EBC IS EBCDIC - 8 > ALPHABET A-ASC IS ASCII ----- ^ - 9 SYMBOLIC Z-EBC IS 241 IN A-EBC - 10 SYMBOLIC Z-ASC IS 49 IN A-ASC ->> Hint: Missing IS - -run_misc.at-5433-prog.cob:9.11-9.19: - 6 SPECIAL-NAMES. - 7 ALPHABET A-EBC IS EBCDIC - 8 ALPHABET A-ASC IS ASCII - 9 > SYMBOLIC Z-EBC IS 241 IN A-EBC ----- ^^^^^^^^ - 10 SYMBOLIC Z-ASC IS 49 IN A-ASC - 11 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5474:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5990:0 -run_misc.at-5990-prog.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. 'prog'. ----- ^ - 4 ENVIRONMENT DIVISION. - 5 DATA DIVISION. ->> Hint: Missing - -run_misc.at-5990-prog.cob:3.19-3.25: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. 'prog'. ----- ^^^^^^ - 4 ENVIRONMENT DIVISION. - 5 DATA DIVISION. ->> Error: Invalid syntax - -run_misc.at-5990-prog.cob:8.27-8.40: - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 * - 8 > 77 BCL-A BINARY-C-LONG VALUE 1. ----- ^^^^^^^^^^^^^ - 9 77 BCL-B BINARY-C-LONG VALUE 10. - 10 77 BCL-RES BINARY-C-LONG. ->> Error: Invalid syntax - -run_misc.at-5990-prog.cob:9.27-9.40: - 6 WORKING-STORAGE SECTION. - 7 * - 8 77 BCL-A BINARY-C-LONG VALUE 1. - 9 > 77 BCL-B BINARY-C-LONG VALUE 10. ----- ^^^^^^^^^^^^^ - 10 77 BCL-RES BINARY-C-LONG. - 11 * ->> Error: Invalid syntax - -run_misc.at-5990-prog.cob:10.27-10.40: - 7 * - 8 77 BCL-A BINARY-C-LONG VALUE 1. - 9 77 BCL-B BINARY-C-LONG VALUE 10. - 10 > 77 BCL-RES BINARY-C-LONG. ----- ^^^^^^^^^^^^^ - 11 * - 12 77 BC-A BINARY-CHAR VALUE 1. ->> Error: Invalid syntax - -run_misc.at-5990-prog.cob:93.7-93.34: - 90 MAIN. - 91 * Test with DISPLAY on error - 92 PERFORM DO-CHECK. - 93 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 94 SET NO-DISP TO TRUE - 95 * some performance checks on the way... ->> Error: Malformed or unknown compiler directive - -run_misc.at-5990-prog.cob:97.7-97.16: - 94 SET NO-DISP TO TRUE - 95 * some performance checks on the way... - 96 PERFORM DO-CHECK 20000 TIMES. - 97 > >> END-IF ----- ^^^^^^^^^ - 98 GOBACK. - 99 ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6479:0 -run_misc.at-6479-prog.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. 'prog'. ----- ^ - 4 ENVIRONMENT DIVISION. - 5 DATA DIVISION. ->> Hint: Missing - -run_misc.at-6479-prog.cob:3.19-3.25: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. 'prog'. ----- ^^^^^^ - 4 ENVIRONMENT DIVISION. - 5 DATA DIVISION. ->> Error: Invalid syntax - -run_misc.at-6479-prog.cob:8.27-8.40: - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 * - 8 > 77 BCL-A BINARY-C-LONG VALUE 1.0. ----- ^^^^^^^^^^^^^ - 9 77 BCL-B BINARY-C-LONG VALUE 10.0. - 10 77 BCL-RES BINARY-C-LONG. ->> Error: Invalid syntax - -run_misc.at-6479-prog.cob:9.27-9.40: - 6 WORKING-STORAGE SECTION. - 7 * - 8 77 BCL-A BINARY-C-LONG VALUE 1.0. - 9 > 77 BCL-B BINARY-C-LONG VALUE 10.0. ----- ^^^^^^^^^^^^^ - 10 77 BCL-RES BINARY-C-LONG. - 11 * ->> Error: Invalid syntax - -run_misc.at-6479-prog.cob:10.27-10.40: - 7 * - 8 77 BCL-A BINARY-C-LONG VALUE 1.0. - 9 77 BCL-B BINARY-C-LONG VALUE 10.0. - 10 > 77 BCL-RES BINARY-C-LONG. ----- ^^^^^^^^^^^^^ - 11 * - 12 77 BC-A BINARY-CHAR VALUE 1.0. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6528:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6982:0 -run_misc.at-6982-callee.cob:11.11-11.17: - 8 * var names MUST BE IN LOWER CASE (!) - 9 * - 10 77 const PIC X. - 11 > 77 double PIC X. ----- ^^^^^^ - 12 77 float PIC X. - 13 77 int PIC X. ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:12.11-12.16: - 9 * - 10 77 const PIC X. - 11 77 double PIC X. - 12 > 77 float PIC X. ----- ^^^^^ - 13 77 int PIC X. - 14 77 short PIC X. ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:25.11-25.19: - 22 77 goto PIC X. - 23 77 register PIC X. - 24 77 sizeof PIC X. - 25 > 77 volatile PIC X. ----- ^^^^^^^^ - 26 77 char PIC X. - 27 77 do PIC X. ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:34.33-34.39: - 31 77 while PIC X. - 32 PROCEDURE DIVISION USING - 33 const - 34 > double ----- ^^^^^^ - 35 float - 36 int ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:48.33-48.41: - 45 goto - 46 register - 47 sizeof - 48 > volatile ----- ^^^^^^^^ - 49 char - 50 do ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:57.15-57.21: - 54 while - 55 . - 56 IF (const NOT = "A") OR - 57 > (double NOT = "B") OR ----- ^^^^^^ - 58 (float NOT = "C") OR - 59 (int NOT = "D") OR ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:57.46: - 54 while - 55 . - 56 IF (const NOT = "A") OR - 57 > (double NOT = "B") OR ----- ^ - 58 (float NOT = "C") OR - 59 (int NOT = "D") OR ->> Hint: Missing - -run_misc.at-6982-callee.cob:57.47-57.48: - 54 while - 55 . - 56 IF (const NOT = "A") OR - 57 > (double NOT = "B") OR ----- ^ - 58 (float NOT = "C") OR - 59 (int NOT = "D") OR ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:58.15-58.20: - 55 . - 56 IF (const NOT = "A") OR - 57 (double NOT = "B") OR - 58 > (float NOT = "C") OR ----- ^^^^^ - 59 (int NOT = "D") OR - 60 (short NOT = "E") OR ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:58.46: - 55 . - 56 IF (const NOT = "A") OR - 57 (double NOT = "B") OR - 58 > (float NOT = "C") OR ----- ^ - 59 (int NOT = "D") OR - 60 (short NOT = "E") OR ->> Hint: Missing - -run_misc.at-6982-callee.cob:58.47-58.48: - 55 . - 56 IF (const NOT = "A") OR - 57 (double NOT = "B") OR - 58 > (float NOT = "C") OR ----- ^ - 59 (int NOT = "D") OR - 60 (short NOT = "E") OR ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:71.15-71.23: - 68 (goto NOT = "M") OR - 69 (register NOT = "N") OR - 70 (sizeof NOT = "O") OR - 71 > (volatile NOT = "P") OR ----- ^^^^^^^^ - 72 (char NOT = "Q") OR - 73 (do NOT = "R") OR ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:71.46: - 68 (goto NOT = "M") OR - 69 (register NOT = "N") OR - 70 (sizeof NOT = "O") OR - 71 > (volatile NOT = "P") OR ----- ^ - 72 (char NOT = "Q") OR - 73 (do NOT = "R") OR ->> Hint: Missing - -run_misc.at-6982-callee.cob:71.47-71.48: - 68 (goto NOT = "M") OR - 69 (register NOT = "N") OR - 70 (sizeof NOT = "O") OR - 71 > (volatile NOT = "P") OR ----- ^ - 72 (char NOT = "Q") OR - 73 (do NOT = "R") OR ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:79.17-79.21: - 76 (union NOT = "U") OR - 77 (while NOT = "V") - 78 DISPLAY "At least one var has wrong content!". - 79 > MOVE x'FF' TO const ----- ^^^^ - 80 double - 81 float ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:80.33-80.39: - 77 (while NOT = "V") - 78 DISPLAY "At least one var has wrong content!". - 79 MOVE x'FF' TO const - 80 > double ----- ^^^^^^ - 81 float - 82 int ->> Error: Invalid syntax - -run_misc.at-6982-callee.cob:94.33-94.41: - 91 goto - 92 register - 93 sizeof - 94 > volatile ----- ^^^^^^^^ - 95 char - 96 do ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6983:0 -run_misc.at-6983-callee2.cob:17.11-17.14: - 14 77 try PIC X. - 15 77 bool PIC X. - 16 77 explicit PIC X. - 17 > 77 new PIC X. ----- ^^^ - 18 77 static_cast PIC X. - 19 77 typeid PIC X. ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:45.11-45.14: - 42 77 xor_eq PIC X. - 43 77 and_eq PIC X. - 44 77 bitor PIC X. - 45 > 77 xor PIC X. ----- ^^^ - 46 PROCEDURE DIVISION USING - 47 asm ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:54.33-54.36: - 51 try - 52 bool - 53 explicit - 54 > new ----- ^^^ - 55 static_cast - 56 typeid ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:79.33-79.36: - 76 xor_eq - 77 and_eq - 78 bitor - 79 > xor ----- ^^^ - 80 . - 81 IF (asm NOT = "W") OR ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:88.15-88.18: - 85 (try NOT = "a") OR - 86 (bool NOT = "b") OR - 87 (explicit NOT = "c") OR - 88 > (new NOT = "d") OR ----- ^^^ - 89 (static_cast NOT = "e") OR - 90 (typeid NOT = "f") OR ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:88.46: - 85 (try NOT = "a") OR - 86 (bool NOT = "b") OR - 87 (explicit NOT = "c") OR - 88 > (new NOT = "d") OR ----- ^ - 89 (static_cast NOT = "e") OR - 90 (typeid NOT = "f") OR ->> Hint: Missing - -run_misc.at-6983-callee2.cob:88.47-88.48: - 85 (try NOT = "a") OR - 86 (bool NOT = "b") OR - 87 (explicit NOT = "c") OR - 88 > (new NOT = "d") OR ----- ^ - 89 (static_cast NOT = "e") OR - 90 (typeid NOT = "f") OR ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:113.15-113.18: - 110 (xor_eq NOT = "z") OR - 111 (and_eq NOT = "0") OR - 112 (bitor NOT = "1") OR - 113 > (xor NOT = "2") ----- ^^^ - 114 DISPLAY "At least one var has wrong content!". - 115 MOVE x'FF' TO asm ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:113.46: - 110 (xor_eq NOT = "z") OR - 111 (and_eq NOT = "0") OR - 112 (bitor NOT = "1") OR - 113 > (xor NOT = "2") ----- ^ - 114 DISPLAY "At least one var has wrong content!". - 115 MOVE x'FF' TO asm ->> Hint: Missing - -run_misc.at-6983-callee2.cob:113.47-113.48: - 110 (xor_eq NOT = "z") OR - 111 (and_eq NOT = "0") OR - 112 (bitor NOT = "1") OR - 113 > (xor NOT = "2") ----- ^ - 114 DISPLAY "At least one var has wrong content!". - 115 MOVE x'FF' TO asm ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:115.17-115.21: - 112 (bitor NOT = "1") OR - 113 (xor NOT = "2") - 114 DISPLAY "At least one var has wrong content!". - 115 > MOVE x'FF' TO asm ----- ^^^^ - 116 dynamic_cast - 117 namespace ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:122.33-122.36: - 119 try - 120 bool - 121 explicit - 122 > new ----- ^^^ - 123 static_cast - 124 typeid ->> Error: Invalid syntax - -run_misc.at-6983-callee2.cob:147.33-147.36: - 144 xor_eq - 145 and_eq - 146 bitor - 147 > xor ----- ^^^ - 148 . - 149 EXIT PROGRAM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6984:0 -run_misc.at-6984-caller.cob:11.11-11.17: - 8 * var names MUST BE IN LOWER CASE (!) - 9 * - 10 77 const PIC X VALUE "A". - 11 > 77 double PIC X VALUE "B". ----- ^^^^^^ - 12 77 float PIC X VALUE "C". - 13 77 int PIC X VALUE "D". ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:12.11-12.16: - 9 * - 10 77 const PIC X VALUE "A". - 11 77 double PIC X VALUE "B". - 12 > 77 float PIC X VALUE "C". ----- ^^^^^ - 13 77 int PIC X VALUE "D". - 14 77 short PIC X VALUE "E". ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:25.11-25.19: - 22 77 goto PIC X VALUE "M". - 23 77 register PIC X VALUE "N". - 24 77 sizeof PIC X VALUE "O". - 25 > 77 volatile PIC X VALUE "P". ----- ^^^^^^^^ - 26 77 char PIC X VALUE "Q". - 27 77 do PIC X VALUE "R". ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:43.11-43.14: - 40 77 try PIC X VALUE "a". - 41 77 bool PIC X VALUE "b". - 42 77 explicit PIC X VALUE "c". - 43 > 77 new PIC X VALUE "d". ----- ^^^ - 44 77 static_cast PIC X VALUE "e". - 45 77 typeid PIC X VALUE "f". ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:72.11-72.14: - 69 77 xor_eq PIC X VALUE "z". - 70 77 and_eq PIC X VALUE "0". - 71 77 bitor PIC X VALUE "1". - 72 > 77 xor PIC X VALUE "2". ----- ^^^ - 73 * - 74 PROCEDURE DIVISION. ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:76.33-76.39: - 73 * - 74 PROCEDURE DIVISION. - 75 CALL "callee" USING const - 76 > double ----- ^^^^^^ - 77 float - 78 int ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:90.33-90.41: - 87 goto - 88 register - 89 sizeof - 90 > volatile ----- ^^^^^^^^ - 91 char - 92 do ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:105.33-105.36: - 102 try - 103 bool - 104 explicit - 105 > new ----- ^^^ - 106 static_cast - 107 typeid ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:130.33-130.36: - 127 xor_eq - 128 and_eq - 129 bitor - 130 > xor ----- ^^^ - 131 END-CALL. - 132 MOVE x'00' TO const ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:132.17-132.21: - 129 bitor - 130 xor - 131 END-CALL. - 132 > MOVE x'00' TO const ----- ^^^^ - 133 double - 134 float ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:133.33-133.39: - 130 xor - 131 END-CALL. - 132 MOVE x'00' TO const - 133 > double ----- ^^^^^^ - 134 float - 135 int ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:147.33-147.41: - 144 goto - 145 register - 146 sizeof - 147 > volatile ----- ^^^^^^^^ - 148 char - 149 do ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:161.33-161.36: - 158 try - 159 bool - 160 explicit - 161 > new ----- ^^^ - 162 static_cast - 163 typeid ->> Error: Invalid syntax - -run_misc.at-6984-caller.cob:186.33-186.36: - 183 xor_eq - 184 and_eq - 185 bitor - 186 > xor ----- ^^^ - 187 . - 188 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7012:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7093:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7162:0 -run_misc.at-7162-calldyn.c:4.6-4.7: - 1 - 2 #include - 3 - 4 > /* wrapper function as C functions are not ----- ^ - 5 accessible without explicit loading on all systems */ - 6 COB_EXT_EXPORT char * ->> Error: Unexpected indicator: `p' - -run_misc.at-7162-calldyn.c:5.6-5.7: - 2 #include - 3 - 4 /* wrapper function as C functions are not - 5 > accessible without explicit loading on all systems */ ----- ^ - 6 COB_EXT_EXPORT char * - 7 calldyn (unsigned char *env_name) ->> Error: Unexpected indicator: `e' - -run_misc.at-7162-calldyn.c:6.6-6.7: - 3 - 4 /* wrapper function as C functions are not - 5 accessible without explicit loading on all systems */ - 6 > COB_EXT_EXPORT char * ----- ^ - 7 calldyn (unsigned char *env_name) - 8 { ->> Error: Unexpected indicator: `T' - -run_misc.at-7162-calldyn.c:7.6-7.7: - 4 /* wrapper function as C functions are not - 5 accessible without explicit loading on all systems */ - 6 COB_EXT_EXPORT char * - 7 > calldyn (unsigned char *env_name) ----- ^ - 8 { - 9 return cob_getenv (env_name); ->> Error: Unexpected indicator: `n' - -run_misc.at-7162-calldyn.c:9.6-9.7: - 6 COB_EXT_EXPORT char * - 7 calldyn (unsigned char *env_name) - 8 { - 9 > return cob_getenv (env_name); ----- ^ - 10 } ->> Error: Unexpected indicator: `r' - -run_misc.at-7162-calldyn.c:4.7-4.10: - 1 - 2 #include - 3 - 4 > /* wrapper function as C functions are not ----- ^^^ - 5 accessible without explicit loading on all systems */ - 6 COB_EXT_EXPORT char * ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7160:0 -run_misc.at-7160-prog.cob:12.23-12.35: - 9 - 10 procedure division. - 11 - 12 > call static "cob_getenv" ----- ^^^^^^^^^^^^ - 13 using "COB_UNIX_LF" - 14 returning c-text-pointer ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7163:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7188:0 -run_misc.at-7188-prog.cob:6.27-6.29: - 3 PROGRAM-ID. prog. - 4 - 5 PROCEDURE DIVISION. - 6 > DISPLAY "hello" AT COLUMN 500 ----- ^^ - 7 ON EXCEPTION - 8 GOBACK RETURNING 0 ->> Error: Invalid syntax - -run_misc.at-7188-prog.cob:7.15-7.27: - 4 - 5 PROCEDURE DIVISION. - 6 DISPLAY "hello" AT COLUMN 500 - 7 > ON EXCEPTION ----- ^^^^^^^^^^^^ - 8 GOBACK RETURNING 0 - 9 NOT ON EXCEPTION ->> Error: Invalid syntax - -run_misc.at-7188-prog.cob:8.25: - 5 PROCEDURE DIVISION. - 6 DISPLAY "hello" AT COLUMN 500 - 7 ON EXCEPTION - 8 > GOBACK RETURNING 0 ----- ^ - 9 NOT ON EXCEPTION - 10 GOBACK RETURNING 1 ->> Hint: Missing . - -run_misc.at-7188-prog.cob:8.26-8.35: - 5 PROCEDURE DIVISION. - 6 DISPLAY "hello" AT COLUMN 500 - 7 ON EXCEPTION - 8 > GOBACK RETURNING 0 ----- ^^^^^^^^^ - 9 NOT ON EXCEPTION - 10 GOBACK RETURNING 1 ->> Error: Invalid syntax - -run_misc.at-7188-prog.cob:8.37: - 5 PROCEDURE DIVISION. - 6 DISPLAY "hello" AT COLUMN 500 - 7 ON EXCEPTION - 8 > GOBACK RETURNING 0 ----- ^ - 9 NOT ON EXCEPTION - 10 GOBACK RETURNING 1 ->> Hint: Missing . - -run_misc.at-7188-prog.cob:9.15-9.31: - 6 DISPLAY "hello" AT COLUMN 500 - 7 ON EXCEPTION - 8 GOBACK RETURNING 0 - 9 > NOT ON EXCEPTION ----- ^^^^^^^^^^^^^^^^ - 10 GOBACK RETURNING 1 - 11 END-DISPLAY ->> Warning: Invalid syntax - -run_misc.at-7188-prog.cob:10.25: - 7 ON EXCEPTION - 8 GOBACK RETURNING 0 - 9 NOT ON EXCEPTION - 10 > GOBACK RETURNING 1 ----- ^ - 11 END-DISPLAY - 12 . ->> Hint: Missing . - -run_misc.at-7188-prog.cob:10.26-10.35: - 7 ON EXCEPTION - 8 GOBACK RETURNING 0 - 9 NOT ON EXCEPTION - 10 > GOBACK RETURNING 1 ----- ^^^^^^^^^ - 11 END-DISPLAY - 12 . ->> Error: Invalid syntax - -run_misc.at-7188-prog.cob:11.11-11.22: - 8 GOBACK RETURNING 0 - 9 NOT ON EXCEPTION - 10 GOBACK RETURNING 1 - 11 > END-DISPLAY ----- ^^^^^^^^^^^ - 12 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7229:0 -run_misc.at-7229-prog.cob:17.21: - 14 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-LINE-NUMBER" - 15 CONTINUE - 16 ELSE - 17 > GOBACK RETURNING 1 ----- ^ - 18 END-IF - 19 ->> Hint: Missing . - -run_misc.at-7229-prog.cob:17.22-17.31: - 14 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-LINE-NUMBER" - 15 CONTINUE - 16 ELSE - 17 > GOBACK RETURNING 1 ----- ^^^^^^^^^ - 18 END-IF - 19 ->> Error: Invalid syntax - -run_misc.at-7229-prog.cob:17.33: - 14 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-LINE-NUMBER" - 15 CONTINUE - 16 ELSE - 17 > GOBACK RETURNING 1 ----- ^ - 18 END-IF - 19 ->> Hint: Missing . - -run_misc.at-7229-prog.cob:18.11-18.17: - 15 CONTINUE - 16 ELSE - 17 GOBACK RETURNING 1 - 18 > END-IF ----- ^^^^^^ - 19 - 20 DISPLAY invalid-col END-DISPLAY ->> Warning: Invalid syntax - -run_misc.at-7229-prog.cob:24.21: - 21 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-STARTING-COLUMN" - 22 CONTINUE - 23 ELSE - 24 > GOBACK RETURNING 2 ----- ^ - 25 END-IF - 26 ->> Hint: Missing . - -run_misc.at-7229-prog.cob:24.22-24.31: - 21 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-STARTING-COLUMN" - 22 CONTINUE - 23 ELSE - 24 > GOBACK RETURNING 2 ----- ^^^^^^^^^ - 25 END-IF - 26 ->> Error: Invalid syntax - -run_misc.at-7229-prog.cob:24.33: - 21 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-STARTING-COLUMN" - 22 CONTINUE - 23 ELSE - 24 > GOBACK RETURNING 2 ----- ^ - 25 END-IF - 26 ->> Hint: Missing . - -run_misc.at-7229-prog.cob:25.11-25.17: - 22 CONTINUE - 23 ELSE - 24 GOBACK RETURNING 2 - 25 > END-IF ----- ^^^^^^ - 26 - 27 GOBACK RETURNING 0 ->> Warning: Invalid syntax - -run_misc.at-7229-prog.cob:27.17: - 24 GOBACK RETURNING 2 - 25 END-IF - 26 - 27 > GOBACK RETURNING 0 ----- ^ - 28 . ->> Hint: Missing . - -run_misc.at-7229-prog.cob:27.18-27.27: - 24 GOBACK RETURNING 2 - 25 END-IF - 26 - 27 > GOBACK RETURNING 0 ----- ^^^^^^^^^ - 28 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7267:0 -run_misc.at-7267-prog.cob:16.21: - 13 PROCEDURE DIVISION. - 14 DISPLAY scr AT LINE zero-var - 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" - 16 > GOBACK RETURNING 1 ----- ^ - 17 END-IF - 18 ->> Hint: Missing . - -run_misc.at-7267-prog.cob:16.22-16.31: - 13 PROCEDURE DIVISION. - 14 DISPLAY scr AT LINE zero-var - 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" - 16 > GOBACK RETURNING 1 ----- ^^^^^^^^^ - 17 END-IF - 18 ->> Error: Invalid syntax - -run_misc.at-7267-prog.cob:16.33: - 13 PROCEDURE DIVISION. - 14 DISPLAY scr AT LINE zero-var - 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" - 16 > GOBACK RETURNING 1 ----- ^ - 17 END-IF - 18 ->> Hint: Missing . - -run_misc.at-7267-prog.cob:17.11-17.17: - 14 DISPLAY scr AT LINE zero-var - 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" - 16 GOBACK RETURNING 1 - 17 > END-IF ----- ^^^^^^ - 18 - 19 DISPLAY scr AT COLUMN zero-var ->> Warning: Invalid syntax - -run_misc.at-7267-prog.cob:21.21: - 18 - 19 DISPLAY scr AT COLUMN zero-var - 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" - 21 > GOBACK RETURNING 2 ----- ^ - 22 END-IF - 23 ->> Hint: Missing . - -run_misc.at-7267-prog.cob:21.22-21.31: - 18 - 19 DISPLAY scr AT COLUMN zero-var - 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" - 21 > GOBACK RETURNING 2 ----- ^^^^^^^^^ - 22 END-IF - 23 ->> Error: Invalid syntax - -run_misc.at-7267-prog.cob:21.33: - 18 - 19 DISPLAY scr AT COLUMN zero-var - 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" - 21 > GOBACK RETURNING 2 ----- ^ - 22 END-IF - 23 ->> Hint: Missing . - -run_misc.at-7267-prog.cob:22.11-22.17: - 19 DISPLAY scr AT COLUMN zero-var - 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" - 21 GOBACK RETURNING 2 - 22 > END-IF ----- ^^^^^^ - 23 - 24 GOBACK RETURNING 0 ->> Warning: Invalid syntax - -run_misc.at-7267-prog.cob:24.17: - 21 GOBACK RETURNING 2 - 22 END-IF - 23 - 24 > GOBACK RETURNING 0 ----- ^ - 25 . ->> Hint: Missing . - -run_misc.at-7267-prog.cob:24.18-24.27: - 21 GOBACK RETURNING 2 - 22 END-IF - 23 - 24 > GOBACK RETURNING 0 ----- ^^^^^^^^^ - 25 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7296:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7331:0 -run_misc.at-7331-callee.cob:5.42: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. callee. - 4 DATA DIVISION. - 5 > PROCEDURE DIVISION RETURNING OMITTED. ----- ^ - 6 MOVE 42 TO RETURN-CODE - 7 EXIT PROGRAM. ->> Hint: Missing - -run_misc.at-7331-callee.cob:5.43-5.50: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. callee. - 4 DATA DIVISION. - 5 > PROCEDURE DIVISION RETURNING OMITTED. ----- ^^^^^^^ - 6 MOVE 42 TO RETURN-CODE - 7 EXIT PROGRAM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7332:0 -run_misc.at-7332-caller.cob:5.34: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. caller. - 4 PROCEDURE DIVISION. - 5 > CALL "callee" RETURNING OMITTED ----- ^ - 6 END-CALL. - 7 DISPLAY RETURN-CODE WITH NO ADVANCING ->> Hint: Missing - -run_misc.at-7332-caller.cob:5.35-5.42: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. caller. - 4 PROCEDURE DIVISION. - 5 > CALL "callee" RETURNING OMITTED ----- ^^^^^^^ - 6 END-CALL. - 7 DISPLAY RETURN-CODE WITH NO ADVANCING ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7389:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7487:0 -run_misc.at-7487-cmod.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^ - 6 dump (unsigned char *data) - 7 { ->> Error: Unexpected indicator: `T' - -run_misc.at-7487-cmod.c:6.6-6.7: - 3 #include - 4 - 5 COB_EXT_EXPORT int - 6 > dump (unsigned char *data) ----- ^ - 7 { - 8 int i; ->> Error: Unexpected indicator: `u' - -run_misc.at-7487-cmod.c:8.6-8.7: - 5 COB_EXT_EXPORT int - 6 dump (unsigned char *data) - 7 { - 8 > int i; ----- ^ - 9 for (i = 0; i < 4; i++) - 10 printf ("%02X", data[i]); ->> Error: Unexpected indicator: `i' - -run_misc.at-7487-cmod.c:9.6-9.7: - 6 dump (unsigned char *data) - 7 { - 8 int i; - 9 > for (i = 0; i < 4; i++) ----- ^ - 10 printf ("%02X", data[i]); - 11 puts (" ."); ->> Error: Unexpected indicator: `(' - -run_misc.at-7487-cmod.c:10.6-10.7: - 7 { - 8 int i; - 9 for (i = 0; i < 4; i++) - 10 > printf ("%02X", data[i]); ----- ^ - 11 puts (" ."); - 12 return 0; ->> Error: Unexpected indicator: `i' - -run_misc.at-7487-cmod.c:12.6-12.7: - 9 for (i = 0; i < 4; i++) - 10 printf ("%02X", data[i]); - 11 puts (" ."); - 12 > return 0; ----- ^ - 13 } ->> Error: Unexpected indicator: `r' - -run_misc.at-7487-cmod.c:5.7-5.14: - 2 #include - 3 #include - 4 - 5 > COB_EXT_EXPORT int ----- ^^^^^^^ - 6 dump (unsigned char *data) - 7 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7487:0 -run_misc.at-7487-prog.cob:7.46-7.49: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 MYFLD PIC 9(4) VALUE 96. - 7 > 01 BIGFLT COMP-1 VALUE 543.12345E10. ----- ^^^ - 8 PROCEDURE DIVISION. - 9 MAIN-1. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7564:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7564:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7598:0 -run_misc.at-7598-callee.cob:5.42: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. callee. - 4 DATA DIVISION. - 5 > PROCEDURE DIVISION RETURNING OMITTED. ----- ^ - 6 MOVE 43 TO RETURN-CODE - 7 EXIT PROGRAM. ->> Hint: Missing - -run_misc.at-7598-callee.cob:5.43-5.50: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. callee. - 4 DATA DIVISION. - 5 > PROCEDURE DIVISION RETURNING OMITTED. ----- ^^^^^^^ - 6 MOVE 43 TO RETURN-CODE - 7 EXIT PROGRAM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7598:0 -run_misc.at-7598-caller.cob:6.34: - 3 PROGRAM-ID. caller. - 4 PROCEDURE DIVISION. - 5 MOVE 42 TO RETURN-CODE - 6 > CALL "callee" RETURNING NOTHING ----- ^ - 7 END-CALL. - 8 IF RETURN-CODE NOT = 42 ->> Hint: Missing - -run_misc.at-7598-caller.cob:6.35-6.42: - 3 PROGRAM-ID. caller. - 4 PROCEDURE DIVISION. - 5 MOVE 42 TO RETURN-CODE - 6 > CALL "callee" RETURNING NOTHING ----- ^^^^^^^ - 7 END-CALL. - 8 IF RETURN-CODE NOT = 42 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7790:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7792:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7798:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7800:0 -run_misc.at-7800-caller.cob:14.16: - 11 78 ZER VALUE ZERO. - 12 *> - 13 PROCEDURE DIVISION. - 14 > READY TRACE ----- ^ - 15 MOVE 1 TO RETURN-CODE - 16 RESET TRACE ->> Hint: Missing . - -run_misc.at-7800-caller.cob:14.17-14.22: - 11 78 ZER VALUE ZERO. - 12 *> - 13 PROCEDURE DIVISION. - 14 > READY TRACE ----- ^^^^^ - 15 MOVE 1 TO RETURN-CODE - 16 RESET TRACE ->> Warning: Invalid syntax - -run_misc.at-7800-caller.cob:14.22: - 11 78 ZER VALUE ZERO. - 12 *> - 13 PROCEDURE DIVISION. - 14 > READY TRACE ----- ^ - 15 MOVE 1 TO RETURN-CODE - 16 RESET TRACE ->> Hint: Missing . - -run_misc.at-7800-caller.cob:15.11-15.15: - 12 *> - 13 PROCEDURE DIVISION. - 14 READY TRACE - 15 > MOVE 1 TO RETURN-CODE ----- ^^^^ - 16 RESET TRACE - 17 CALL "callee1" ->> Warning: Invalid syntax - -run_misc.at-7800-caller.cob:16.11-16.16: - 13 PROCEDURE DIVISION. - 14 READY TRACE - 15 MOVE 1 TO RETURN-CODE - 16 > RESET TRACE ----- ^^^^^ - 17 CALL "callee1" - 18 END-CALL ->> Error: Invalid syntax - -run_misc.at-7800-caller.cob:18.19: - 15 MOVE 1 TO RETURN-CODE - 16 RESET TRACE - 17 CALL "callee1" - 18 > END-CALL ----- ^ - 19 READY TRACE - 20 MOVE 2 TO RETURN-CODE ->> Hint: Missing . - -run_misc.at-7800-caller.cob:19.11-19.16: - 16 RESET TRACE - 17 CALL "callee1" - 18 END-CALL - 19 > READY TRACE ----- ^^^^^ - 20 MOVE 2 TO RETURN-CODE - 21 CALL "callee1" ->> Warning: Invalid syntax - -run_misc.at-7800-caller.cob:19.16: - 16 RESET TRACE - 17 CALL "callee1" - 18 END-CALL - 19 > READY TRACE ----- ^ - 20 MOVE 2 TO RETURN-CODE - 21 CALL "callee1" ->> Hint: Missing . - -run_misc.at-7800-caller.cob:19.17-19.22: - 16 RESET TRACE - 17 CALL "callee1" - 18 END-CALL - 19 > READY TRACE ----- ^^^^^ - 20 MOVE 2 TO RETURN-CODE - 21 CALL "callee1" ->> Warning: Invalid syntax - -run_misc.at-7800-caller.cob:19.22: - 16 RESET TRACE - 17 CALL "callee1" - 18 END-CALL - 19 > READY TRACE ----- ^ - 20 MOVE 2 TO RETURN-CODE - 21 CALL "callee1" ->> Hint: Missing . - -run_misc.at-7800-caller.cob:20.11-20.15: - 17 CALL "callee1" - 18 END-CALL - 19 READY TRACE - 20 > MOVE 2 TO RETURN-CODE ----- ^^^^ - 21 CALL "callee1" - 22 END-CALL ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7794:0 -run_misc.at-7794-preload.cob:13.7-13.12: - 10 SOME-PAR. - 11 PERFORM OTHER-SEC - 12 MOVE 0 TO RETURN-CODE. - 13 > ENTRY "LEAVE-ME". ----- ^^^^^ - 14 END-PAR. - 15 EXIT PROGRAM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7796:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:8103:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:8708:0 -run_misc.at-8708-prog.cob:27.18-27.26: - 24 FILE STATUS IS CUST-STAT. - 25 - 26 SELECT FLATFILE - 27 > ASSIGN EXTERNAL RELFIX ----- ^^^^^^^^ - 28 ORGANIZATION RELATIVE - 29 ACCESS IS RANDOM RELATIVE KEY IS REC-NUM ->> Warning: Ignored EXTERNAL (implementation pending) - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10054:0 -run_misc.at-10054-reference:1.6-1.7: - 1 > Source: 'prog.cob' ----- ^ - 2 Program-Id: prog - 3 Line: 292 Entry: prog ->> Error: Unexpected indicator: `:' - -run_misc.at-10054-reference:2.6-2.7: - 1 Source: 'prog.cob' - 2 > Program-Id: prog ----- ^ - 3 Line: 292 Entry: prog - 4 Line: 292 Paragraph: MAINFILE ->> Error: Unexpected indicator: `m' - -run_misc.at-10054-reference:1.8-1.18: - 1 > Source: 'prog.cob' ----- ^^^^^^^^^^ - 2 Program-Id: prog - 3 Line: 292 Entry: prog ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10194:0 -run_misc.at-10194-reference_append:1.6-1.7: - 1 > Source: 'prog.cob' ----- ^ - 2 Program-Id: prog - 3 Entry: prog and now ... 292 ->> Error: Unexpected indicator: `:' - -run_misc.at-10194-reference_append:2.6-2.7: - 1 Source: 'prog.cob' - 2 > Program-Id: prog ----- ^ - 3 Entry: prog and now ... 292 - 4 Paragraph: MAINFILE and now ... 292 ->> Error: Unexpected indicator: `m' - -run_misc.at-10194-reference_append:3.6-3.7: - 1 Source: 'prog.cob' - 2 Program-Id: prog - 3 > Entry: prog and now ... 292 ----- ^ - 4 Paragraph: MAINFILE and now ... 292 - 5 Paragraph: LOADFILE and now ... 335 ->> Error: Unexpected indicator: `t' - -run_misc.at-10194-reference_append:4.6-4.7: - 1 Source: 'prog.cob' - 2 Program-Id: prog - 3 Entry: prog and now ... 292 - 4 > Paragraph: MAINFILE and now ... 292 ----- ^ - 5 Paragraph: LOADFILE and now ... 335 - 6 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:5.6-5.7: - 2 Program-Id: prog - 3 Entry: prog and now ... 292 - 4 Paragraph: MAINFILE and now ... 292 - 5 > Paragraph: LOADFILE and now ... 335 ----- ^ - 6 Paragraph: 1000-LOAD-RECORD and now ... 358 - 7 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:6.6-6.7: - 3 Entry: prog and now ... 292 - 4 Paragraph: MAINFILE and now ... 292 - 5 Paragraph: LOADFILE and now ... 335 - 6 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 7 Paragraph: 1000-LOAD-RECORD and now ... 358 - 8 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:7.6-7.7: - 4 Paragraph: MAINFILE and now ... 292 - 5 Paragraph: LOADFILE and now ... 335 - 6 Paragraph: 1000-LOAD-RECORD and now ... 358 - 7 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 8 Paragraph: 1000-LOAD-RECORD and now ... 358 - 9 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:8.6-8.7: - 5 Paragraph: LOADFILE and now ... 335 - 6 Paragraph: 1000-LOAD-RECORD and now ... 358 - 7 Paragraph: 1000-LOAD-RECORD and now ... 358 - 8 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 9 Paragraph: 1000-LOAD-RECORD and now ... 358 - 10 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:9.6-9.7: - 6 Paragraph: 1000-LOAD-RECORD and now ... 358 - 7 Paragraph: 1000-LOAD-RECORD and now ... 358 - 8 Paragraph: 1000-LOAD-RECORD and now ... 358 - 9 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 10 Paragraph: 1000-LOAD-RECORD and now ... 358 - 11 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:10.6-10.7: - 7 Paragraph: 1000-LOAD-RECORD and now ... 358 - 8 Paragraph: 1000-LOAD-RECORD and now ... 358 - 9 Paragraph: 1000-LOAD-RECORD and now ... 358 - 10 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 11 Paragraph: 1000-LOAD-RECORD and now ... 358 - 12 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:11.6-11.7: - 8 Paragraph: 1000-LOAD-RECORD and now ... 358 - 9 Paragraph: 1000-LOAD-RECORD and now ... 358 - 10 Paragraph: 1000-LOAD-RECORD and now ... 358 - 11 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 12 Paragraph: 1000-LOAD-RECORD and now ... 358 - 13 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:12.6-12.7: - 9 Paragraph: 1000-LOAD-RECORD and now ... 358 - 10 Paragraph: 1000-LOAD-RECORD and now ... 358 - 11 Paragraph: 1000-LOAD-RECORD and now ... 358 - 12 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 13 Paragraph: 1000-LOAD-RECORD and now ... 358 - 14 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:13.6-13.7: - 10 Paragraph: 1000-LOAD-RECORD and now ... 358 - 11 Paragraph: 1000-LOAD-RECORD and now ... 358 - 12 Paragraph: 1000-LOAD-RECORD and now ... 358 - 13 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 14 Paragraph: 1000-LOAD-RECORD and now ... 358 - 15 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:14.6-14.7: - 11 Paragraph: 1000-LOAD-RECORD and now ... 358 - 12 Paragraph: 1000-LOAD-RECORD and now ... 358 - 13 Paragraph: 1000-LOAD-RECORD and now ... 358 - 14 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 15 Paragraph: 1000-LOAD-RECORD and now ... 358 - 16 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:15.6-15.7: - 12 Paragraph: 1000-LOAD-RECORD and now ... 358 - 13 Paragraph: 1000-LOAD-RECORD and now ... 358 - 14 Paragraph: 1000-LOAD-RECORD and now ... 358 - 15 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 16 Paragraph: 1000-LOAD-RECORD and now ... 358 - 17 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:16.6-16.7: - 13 Paragraph: 1000-LOAD-RECORD and now ... 358 - 14 Paragraph: 1000-LOAD-RECORD and now ... 358 - 15 Paragraph: 1000-LOAD-RECORD and now ... 358 - 16 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 17 Paragraph: 1000-LOAD-RECORD and now ... 358 - 18 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:17.6-17.7: - 14 Paragraph: 1000-LOAD-RECORD and now ... 358 - 15 Paragraph: 1000-LOAD-RECORD and now ... 358 - 16 Paragraph: 1000-LOAD-RECORD and now ... 358 - 17 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 18 Paragraph: 1000-LOAD-RECORD and now ... 358 - 19 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:18.6-18.7: - 15 Paragraph: 1000-LOAD-RECORD and now ... 358 - 16 Paragraph: 1000-LOAD-RECORD and now ... 358 - 17 Paragraph: 1000-LOAD-RECORD and now ... 358 - 18 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 19 Paragraph: 1000-LOAD-RECORD and now ... 358 - 20 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:19.6-19.7: - 16 Paragraph: 1000-LOAD-RECORD and now ... 358 - 17 Paragraph: 1000-LOAD-RECORD and now ... 358 - 18 Paragraph: 1000-LOAD-RECORD and now ... 358 - 19 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 20 Paragraph: 1000-LOAD-RECORD and now ... 358 - 21 Paragraph: 1000-LOAD-RECORD and now ... 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:20.6-20.7: - 17 Paragraph: 1000-LOAD-RECORD and now ... 358 - 18 Paragraph: 1000-LOAD-RECORD and now ... 358 - 19 Paragraph: 1000-LOAD-RECORD and now ... 358 - 20 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 21 Paragraph: 1000-LOAD-RECORD and now ... 358 - 22 Paragraph: LISTFILE and now ... 387 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:21.6-21.7: - 18 Paragraph: 1000-LOAD-RECORD and now ... 358 - 19 Paragraph: 1000-LOAD-RECORD and now ... 358 - 20 Paragraph: 1000-LOAD-RECORD and now ... 358 - 21 > Paragraph: 1000-LOAD-RECORD and now ... 358 ----- ^ - 22 Paragraph: LISTFILE and now ... 387 - 23 Source: 'prog.cob' ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:22.6-22.7: - 19 Paragraph: 1000-LOAD-RECORD and now ... 358 - 20 Paragraph: 1000-LOAD-RECORD and now ... 358 - 21 Paragraph: 1000-LOAD-RECORD and now ... 358 - 22 > Paragraph: LISTFILE and now ... 387 ----- ^ - 23 Source: 'prog.cob' - 24 Program-Id: prog ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:23.6-23.7: - 20 Paragraph: 1000-LOAD-RECORD and now ... 358 - 21 Paragraph: 1000-LOAD-RECORD and now ... 358 - 22 Paragraph: LISTFILE and now ... 387 - 23 > Source: 'prog.cob' ----- ^ - 24 Program-Id: prog - 25 Entry: prog - 292 ->> Error: Unexpected indicator: `:' - -run_misc.at-10194-reference_append:24.6-24.7: - 21 Paragraph: 1000-LOAD-RECORD and now ... 358 - 22 Paragraph: LISTFILE and now ... 387 - 23 Source: 'prog.cob' - 24 > Program-Id: prog ----- ^ - 25 Entry: prog - 292 - 26 Paragraph: MAINFILE - 292 ->> Error: Unexpected indicator: `m' - -run_misc.at-10194-reference_append:25.6-25.7: - 22 Paragraph: LISTFILE and now ... 387 - 23 Source: 'prog.cob' - 24 Program-Id: prog - 25 > Entry: prog - 292 ----- ^ - 26 Paragraph: MAINFILE - 292 - 27 Paragraph: LOADFILE - 335 ->> Error: Unexpected indicator: `t' - -run_misc.at-10194-reference_append:26.6-26.7: - 23 Source: 'prog.cob' - 24 Program-Id: prog - 25 Entry: prog - 292 - 26 > Paragraph: MAINFILE - 292 ----- ^ - 27 Paragraph: LOADFILE - 335 - 28 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:27.6-27.7: - 24 Program-Id: prog - 25 Entry: prog - 292 - 26 Paragraph: MAINFILE - 292 - 27 > Paragraph: LOADFILE - 335 ----- ^ - 28 Paragraph: 1000-LOAD-RECORD - 358 - 29 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:28.6-28.7: - 25 Entry: prog - 292 - 26 Paragraph: MAINFILE - 292 - 27 Paragraph: LOADFILE - 335 - 28 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 29 Paragraph: 1000-LOAD-RECORD - 358 - 30 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:29.6-29.7: - 26 Paragraph: MAINFILE - 292 - 27 Paragraph: LOADFILE - 335 - 28 Paragraph: 1000-LOAD-RECORD - 358 - 29 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 30 Paragraph: 1000-LOAD-RECORD - 358 - 31 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:30.6-30.7: - 27 Paragraph: LOADFILE - 335 - 28 Paragraph: 1000-LOAD-RECORD - 358 - 29 Paragraph: 1000-LOAD-RECORD - 358 - 30 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 31 Paragraph: 1000-LOAD-RECORD - 358 - 32 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:31.6-31.7: - 28 Paragraph: 1000-LOAD-RECORD - 358 - 29 Paragraph: 1000-LOAD-RECORD - 358 - 30 Paragraph: 1000-LOAD-RECORD - 358 - 31 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 32 Paragraph: 1000-LOAD-RECORD - 358 - 33 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:32.6-32.7: - 29 Paragraph: 1000-LOAD-RECORD - 358 - 30 Paragraph: 1000-LOAD-RECORD - 358 - 31 Paragraph: 1000-LOAD-RECORD - 358 - 32 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 33 Paragraph: 1000-LOAD-RECORD - 358 - 34 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:33.6-33.7: - 30 Paragraph: 1000-LOAD-RECORD - 358 - 31 Paragraph: 1000-LOAD-RECORD - 358 - 32 Paragraph: 1000-LOAD-RECORD - 358 - 33 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 34 Paragraph: 1000-LOAD-RECORD - 358 - 35 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:34.6-34.7: - 31 Paragraph: 1000-LOAD-RECORD - 358 - 32 Paragraph: 1000-LOAD-RECORD - 358 - 33 Paragraph: 1000-LOAD-RECORD - 358 - 34 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 35 Paragraph: 1000-LOAD-RECORD - 358 - 36 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:35.6-35.7: - 32 Paragraph: 1000-LOAD-RECORD - 358 - 33 Paragraph: 1000-LOAD-RECORD - 358 - 34 Paragraph: 1000-LOAD-RECORD - 358 - 35 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 36 Paragraph: 1000-LOAD-RECORD - 358 - 37 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:36.6-36.7: - 33 Paragraph: 1000-LOAD-RECORD - 358 - 34 Paragraph: 1000-LOAD-RECORD - 358 - 35 Paragraph: 1000-LOAD-RECORD - 358 - 36 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 37 Paragraph: 1000-LOAD-RECORD - 358 - 38 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:37.6-37.7: - 34 Paragraph: 1000-LOAD-RECORD - 358 - 35 Paragraph: 1000-LOAD-RECORD - 358 - 36 Paragraph: 1000-LOAD-RECORD - 358 - 37 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 38 Paragraph: 1000-LOAD-RECORD - 358 - 39 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:38.6-38.7: - 35 Paragraph: 1000-LOAD-RECORD - 358 - 36 Paragraph: 1000-LOAD-RECORD - 358 - 37 Paragraph: 1000-LOAD-RECORD - 358 - 38 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 39 Paragraph: 1000-LOAD-RECORD - 358 - 40 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:39.6-39.7: - 36 Paragraph: 1000-LOAD-RECORD - 358 - 37 Paragraph: 1000-LOAD-RECORD - 358 - 38 Paragraph: 1000-LOAD-RECORD - 358 - 39 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 40 Paragraph: 1000-LOAD-RECORD - 358 - 41 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:40.6-40.7: - 37 Paragraph: 1000-LOAD-RECORD - 358 - 38 Paragraph: 1000-LOAD-RECORD - 358 - 39 Paragraph: 1000-LOAD-RECORD - 358 - 40 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 41 Paragraph: 1000-LOAD-RECORD - 358 - 42 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:41.6-41.7: - 38 Paragraph: 1000-LOAD-RECORD - 358 - 39 Paragraph: 1000-LOAD-RECORD - 358 - 40 Paragraph: 1000-LOAD-RECORD - 358 - 41 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 42 Paragraph: 1000-LOAD-RECORD - 358 - 43 Paragraph: 1000-LOAD-RECORD - 358 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:42.6-42.7: - 39 Paragraph: 1000-LOAD-RECORD - 358 - 40 Paragraph: 1000-LOAD-RECORD - 358 - 41 Paragraph: 1000-LOAD-RECORD - 358 - 42 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 43 Paragraph: 1000-LOAD-RECORD - 358 - 44 Paragraph: LISTFILE - 387 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:43.6-43.7: - 40 Paragraph: 1000-LOAD-RECORD - 358 - 41 Paragraph: 1000-LOAD-RECORD - 358 - 42 Paragraph: 1000-LOAD-RECORD - 358 - 43 > Paragraph: 1000-LOAD-RECORD - 358 ----- ^ - 44 Paragraph: LISTFILE - 387 ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:44.6-44.7: - 41 Paragraph: 1000-LOAD-RECORD - 358 - 42 Paragraph: 1000-LOAD-RECORD - 358 - 43 Paragraph: 1000-LOAD-RECORD - 358 - 44 > Paragraph: LISTFILE - 387 ----- ^ ->> Error: Unexpected indicator: `a' - -run_misc.at-10194-reference_append:1.8-1.18: - 1 > Source: 'prog.cob' ----- ^^^^^^^^^^ - 2 Program-Id: prog - 3 Entry: prog and now ... 292 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10503:0 -run_misc.at-10503-prog.cob:9.34-9.42: - 6 - 7 INPUT-OUTPUT SECTION. - 8 FILE-CONTROL. - 9 > SELECT FLATFILE ASSIGN EXTERNAL RELFIX ----- ^^^^^^^^ - 10 ORGANIZATION RELATIVE - 11 ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM ->> Warning: Ignored EXTERNAL (implementation pending) - -run_misc.at-10503-prog.cob:198.12-198.25: - 195 ADD 1 TO X. - 196 DISPLAY "X is " X. - 197 ALLOCATE TEST-ALLOCED INITIALIZED. - 198 > COPY cpyabrt. ----- ^^^^^^^^^^^^^ - 199 IF ADDRESS OF TEST-BASED NOT = NULL - 200 DISPLAY TEST-BASED-SUB ->> Error: Library `CPYABRT' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10923:0 -run_misc.at-10923-reference_fdls_tmpl:4.6-4.7: - 1 - 2 Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller - 3 - 4 > Last statement of "sub1" was MOVE ----- ^ - 5 MAIN-2 OF MAIN-1 at cpyabrt:4 - 6 MAIN-1 at prog.cob:177 ->> Error: Unexpected indicator: `s' - -run_misc.at-10923-reference_fdls_tmpl:8.6-8.7: - 5 MAIN-2 OF MAIN-1 at cpyabrt:4 - 6 MAIN-1 at prog.cob:177 - 7 ENTRY sub1 at prog.cob:159 - 8 > Last statement of "sub2" was CALL ----- ^ - 9 DO-CALL OF SubwaY at sub2.cob:48 - 10 ENTRY sub2 at sub2.cob:39 ->> Error: Unexpected indicator: `s' - -run_misc.at-10923-reference_fdls_tmpl:11.6-11.7: - 8 Last statement of "sub2" was CALL - 9 DO-CALL OF SubwaY at sub2.cob:48 - 10 ENTRY sub2 at sub2.cob:39 - 11 > Last statement of "prog" was CALL ----- ^ - 12 CALL-IT-OMIT at prog.cob:118 - 13 MAIN-100 at prog.cob:85 ->> Error: Unexpected indicator: `s' - -run_misc.at-10923-reference_fdls_tmpl:15.6-15.7: - 12 CALL-IT-OMIT at prog.cob:118 - 13 MAIN-100 at prog.cob:85 - 14 ENTRY prog at prog.cob:77 - 15 > Started by ./prog_fdls ----- ^ - 16 - 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS ->> Error: Unexpected indicator: `e' - -run_misc.at-10923-reference_fdls_tmpl:17.6-17.7: - 14 ENTRY prog at prog.cob:77 - 15 Started by ./prog_fdls - 16 - 17 > Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS ----- ^ - 18 - 19 LINKAGE ->> Error: Unexpected indicator: `r' - -run_misc.at-10923-reference_fdls_tmpl:19.6-19.7: - 16 - 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS - 18 - 19 > LINKAGE ----- ^ - 20 ********************** - 21 01 X 000005441 ->> Error: Unexpected indicator: `E' - -run_misc.at-10923-reference_fdls_tmpl:27.6-27.7: - 24 END OF DUMP - sub1 - 25 ********************** - 26 - 27 > Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS ----- ^ - 28 - 29 LINKAGE ->> Error: Unexpected indicator: `r' - -run_misc.at-10923-reference_fdls_tmpl:29.6-29.7: - 26 - 27 Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS - 28 - 29 > LINKAGE ----- ^ - 30 ********************** - 31 01 X 000005441 ->> Error: Unexpected indicator: `E' - -run_misc.at-10923-reference_fdls_tmpl:33.6-33.7: - 30 ********************** - 31 01 X 000005441 - 32 01 TSPFL-RECORD. - 33 > 10 CM-CUST-NUM 'ALP00000' ----- ^ - 34 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 35 10 CM-DISK '8417' ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:34.6-34.7: - 31 01 X 000005441 - 32 01 TSPFL-RECORD. - 33 10 CM-CUST-NUM 'ALP00000' - 34 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' ----- ^ - 35 10 CM-DISK '8417' - 36 10 CM-NO-TERMINALS 0010 ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:35.6-35.7: - 32 01 TSPFL-RECORD. - 33 10 CM-CUST-NUM 'ALP00000' - 34 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 35 > 10 CM-DISK '8417' ----- ^ - 36 10 CM-NO-TERMINALS 0010 - 37 77 DYNAMIC-NUM 0124 ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:36.6-36.7: - 33 10 CM-CUST-NUM 'ALP00000' - 34 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 35 10 CM-DISK '8417' - 36 > 10 CM-NO-TERMINALS 0010 ----- ^ - 37 77 DYNAMIC-NUM 0124 - 38 ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:42.6-42.7: - 39 END OF DUMP - sub2 - 40 ********************** - 41 - 42 > Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS ----- ^ - 43 - 44 FD FLATFILE ->> Error: Unexpected indicator: `r' - -run_misc.at-10923-reference_fdls_tmpl:44.6-44.7: - 41 - 42 Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS - 43 - 44 > FD FLATFILE ----- ^ - 45 ********************** - 46 File is OPEN ->> Error: Unexpected indicator: `T' - -run_misc.at-10923-reference_fdls_tmpl:46.6-46.7: - 43 - 44 FD FLATFILE - 45 ********************** - 46 > File is OPEN ----- ^ - 47 FILE STATUS '00' - 48 01 TSPFL-RECORD. ->> Error: Unexpected indicator: `e' - -run_misc.at-10923-reference_fdls_tmpl:47.6-47.7: - 44 FD FLATFILE - 45 ********************** - 46 File is OPEN - 47 > FILE STATUS '00' ----- ^ - 48 01 TSPFL-RECORD. - 49 10 CM-CUST-NUM 'ALP00000' ->> Error: Unexpected indicator: `E' - -run_misc.at-10923-reference_fdls_tmpl:49.6-49.7: - 46 File is OPEN - 47 FILE STATUS '00' - 48 01 TSPFL-RECORD. - 49 > 10 CM-CUST-NUM 'ALP00000' ----- ^ - 50 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 51 10 CM-DISK '8417' ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:50.6-50.7: - 47 FILE STATUS '00' - 48 01 TSPFL-RECORD. - 49 10 CM-CUST-NUM 'ALP00000' - 50 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' ----- ^ - 51 10 CM-DISK '8417' - 52 10 CM-NO-TERMINALS 0010 ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:51.6-51.7: - 48 01 TSPFL-RECORD. - 49 10 CM-CUST-NUM 'ALP00000' - 50 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 51 > 10 CM-DISK '8417' ----- ^ - 52 10 CM-NO-TERMINALS 0010 - 53 ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:52.6-52.7: - 49 10 CM-CUST-NUM 'ALP00000' - 50 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 51 10 CM-DISK '8417' - 52 > 10 CM-NO-TERMINALS 0010 ----- ^ - 53 - 54 END OF DUMP - prog ->> Error: Unexpected indicator: `0' - -run_misc.at-10923-reference_fdls_tmpl:2.7-2.11: - 1 - 2 > Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller ----- ^^^^ - 3 - 4 Last statement of "sub1" was MOVE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10739:0 -run_misc.at-10739-reference_tmpl:4.6-4.7: - 1 - 2 Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller - 3 - 4 > Last statement of "sub1" was MOVE ----- ^ - 5 MAIN-2 OF MAIN-1 at cpyabrt:4 - 6 MAIN-1 at prog.cob:177 ->> Error: Unexpected indicator: `s' - -run_misc.at-10739-reference_tmpl:8.6-8.7: - 5 MAIN-2 OF MAIN-1 at cpyabrt:4 - 6 MAIN-1 at prog.cob:177 - 7 ENTRY sub1 at prog.cob:159 - 8 > Last statement of "sub2" was CALL ----- ^ - 9 DO-CALL OF SubwaY at sub2.cob:48 - 10 ENTRY sub2 at sub2.cob:39 ->> Error: Unexpected indicator: `s' - -run_misc.at-10739-reference_tmpl:11.6-11.7: - 8 Last statement of "sub2" was CALL - 9 DO-CALL OF SubwaY at sub2.cob:48 - 10 ENTRY sub2 at sub2.cob:39 - 11 > Last statement of "prog" was CALL ----- ^ - 12 CALL-IT-OMIT at prog.cob:118 - 13 MAIN-100 at prog.cob:85 ->> Error: Unexpected indicator: `s' - -run_misc.at-10739-reference_tmpl:15.6-15.7: - 12 CALL-IT-OMIT at prog.cob:118 - 13 MAIN-100 at prog.cob:85 - 14 ENTRY prog at prog.cob:77 - 15 > Started by prog ----- ^ - 16 - 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS ->> Error: Unexpected indicator: `e' - -run_misc.at-10739-reference_tmpl:17.6-17.7: - 14 ENTRY prog at prog.cob:77 - 15 Started by prog - 16 - 17 > Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS ----- ^ - 18 - 19 WORKING-STORAGE ->> Error: Unexpected indicator: `r' - -run_misc.at-10739-reference_tmpl:19.6-19.7: - 16 - 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS - 18 - 19 > WORKING-STORAGE ----- ^ - 20 ********************** - 21 77 RETURN-CODE +000000000 ->> Error: Unexpected indicator: `G' - -run_misc.at-10739-reference_tmpl:73.6-73.7: - 70 05 TSTTAILX 'Quick brown fox jumped over the dog ' - 71 trailing LOW-VALUES - 72 - 73 > LINKAGE ----- ^ - 74 ********************** - 75 01 X 000005441 ->> Error: Unexpected indicator: `E' - -run_misc.at-10739-reference_tmpl:81.6-81.7: - 78 END OF DUMP - sub1 - 79 ********************** - 80 - 81 > Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS ----- ^ - 82 - 83 WORKING-STORAGE ->> Error: Unexpected indicator: `r' - -run_misc.at-10739-reference_tmpl:83.6-83.7: - 80 - 81 Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS - 82 - 83 > WORKING-STORAGE ----- ^ - 84 ********************** - 85 77 RETURN-CODE +000000000 ->> Error: Unexpected indicator: `G' - -run_misc.at-10739-reference_tmpl:56.41-56.72: - 53 05 TSTTAIL1 X _ - 54 1 x 5811 - 55 05 TSTCOMP3 58585 - 56 > 05 TSTLONG 'Quick brown fox jumped over the dog Quick br' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 57 57:'own fox jumped over the dog' - 58 05 TSTHEX Q u i c k e r g r e y f o x j u m p e d _ ->> Error: Missing continuation of `Quick brown fox jumped over th' - -run_misc.at-10739-reference_tmpl:70.41-70.72: - 67 97 x 58585858 - 68 05 TSTHEX2 XXXXXXXXX\0XXXXXXXXXXXXXXXXXXXXX\\XXXXXX\0XXXXXXX\tXXXXXX - 69 54 : AXXXX\rX - 70 > 05 TSTTAILX 'Quick brown fox jumped over the dog ' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 71 trailing LOW-VALUES - 72 ->> Error: Missing continuation of `Quick brown fox jumped over th' - -run_misc.at-10739-reference_tmpl:116.41-116.72: - 113 05 TSTTAIL1 X _ - 114 1 x 5811 - 115 05 TSTCOMP3 58585 - 116 > 05 TSTLONG 'Quick brown fox jumped over the dog Quick br' ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 117 57:'own fox jumped over the dog' - 118 05 TSTHEX Q u i c k e r g r e y f o x j u m p e d _ ->> Error: Missing continuation of `Quick brown fox jumped over th' - -run_misc.at-10739-reference_tmpl:133.6-133.7: - 130 05 TSTTAILX Quick brown fox jumped over the dog \0ALPHA ELECTRICA - 131 57 : L CO.\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 - 132 01 BASED-RECORD. - 133 > 10 B-NUM 0124 ----- ^ - 134 10 B-DISK 'marvdisc' - 135 10 B-NO-TERMINALS 0000 ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:134.6-134.7: - 131 57 : L CO.\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 - 132 01 BASED-RECORD. - 133 10 B-NUM 0124 - 134 > 10 B-DISK 'marvdisc' ----- ^ - 135 10 B-NO-TERMINALS 0000 - 136 77 BASED-NEVER-SET address ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:135.6-135.7: - 132 01 BASED-RECORD. - 133 10 B-NUM 0124 - 134 10 B-DISK 'marvdisc' - 135 > 10 B-NO-TERMINALS 0000 ----- ^ - 136 77 BASED-NEVER-SET address - 137 ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:138.6-138.7: - 135 10 B-NO-TERMINALS 0000 - 136 77 BASED-NEVER-SET address - 137 - 138 > LINKAGE ----- ^ - 139 ********************** - 140 01 X 000005441 ->> Error: Unexpected indicator: `E' - -run_misc.at-10739-reference_tmpl:142.6-142.7: - 139 ********************** - 140 01 X 000005441 - 141 01 TSPFL-RECORD. - 142 > 10 CM-CUST-NUM 'ALP00000' ----- ^ - 143 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 144 10 CM-DISK '8417' ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:143.6-143.7: - 140 01 X 000005441 - 141 01 TSPFL-RECORD. - 142 10 CM-CUST-NUM 'ALP00000' - 143 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' ----- ^ - 144 10 CM-DISK '8417' - 145 10 CM-NO-TERMINALS 0010 ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:144.6-144.7: - 141 01 TSPFL-RECORD. - 142 10 CM-CUST-NUM 'ALP00000' - 143 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 144 > 10 CM-DISK '8417' ----- ^ - 145 10 CM-NO-TERMINALS 0010 - 146 77 DYNAMIC-NUM 0124 ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:145.6-145.7: - 142 10 CM-CUST-NUM 'ALP00000' - 143 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 144 10 CM-DISK '8417' - 145 > 10 CM-NO-TERMINALS 0010 ----- ^ - 146 77 DYNAMIC-NUM 0124 - 147 ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:151.6-151.7: - 148 END OF DUMP - sub2 - 149 ********************** - 150 - 151 > Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS ----- ^ - 152 - 153 FD FLATFILE ->> Error: Unexpected indicator: `r' - -run_misc.at-10739-reference_tmpl:153.6-153.7: - 150 - 151 Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS - 152 - 153 > FD FLATFILE ----- ^ - 154 ********************** - 155 File is OPEN ->> Error: Unexpected indicator: `T' - -run_misc.at-10739-reference_tmpl:155.6-155.7: - 152 - 153 FD FLATFILE - 154 ********************** - 155 > File is OPEN ----- ^ - 156 FILE STATUS '00' - 157 01 TSPFL-RECORD. ->> Error: Unexpected indicator: `e' - -run_misc.at-10739-reference_tmpl:156.6-156.7: - 153 FD FLATFILE - 154 ********************** - 155 File is OPEN - 156 > FILE STATUS '00' ----- ^ - 157 01 TSPFL-RECORD. - 158 10 CM-CUST-NUM 'ALP00000' ->> Error: Unexpected indicator: `E' - -run_misc.at-10739-reference_tmpl:158.6-158.7: - 155 File is OPEN - 156 FILE STATUS '00' - 157 01 TSPFL-RECORD. - 158 > 10 CM-CUST-NUM 'ALP00000' ----- ^ - 159 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 160 10 CM-DISK '8417' ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:159.6-159.7: - 156 FILE STATUS '00' - 157 01 TSPFL-RECORD. - 158 10 CM-CUST-NUM 'ALP00000' - 159 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' ----- ^ - 160 10 CM-DISK '8417' - 161 10 CM-NO-TERMINALS 0010 ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:160.6-160.7: - 157 01 TSPFL-RECORD. - 158 10 CM-CUST-NUM 'ALP00000' - 159 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 160 > 10 CM-DISK '8417' ----- ^ - 161 10 CM-NO-TERMINALS 0010 - 162 ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:161.6-161.7: - 158 10 CM-CUST-NUM 'ALP00000' - 159 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' - 160 10 CM-DISK '8417' - 161 > 10 CM-NO-TERMINALS 0010 ----- ^ - 162 - 163 WORKING-STORAGE ->> Error: Unexpected indicator: `0' - -run_misc.at-10739-reference_tmpl:163.6-163.7: - 160 10 CM-DISK '8417' - 161 10 CM-NO-TERMINALS 0010 - 162 - 163 > WORKING-STORAGE ----- ^ - 164 ********************** - 165 77 RETURN-CODE +000000000 ->> Error: Unexpected indicator: `G' - -run_misc.at-10739-reference_tmpl:2.7-2.11: - 1 - 2 > Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller ----- ^^^^ - 3 - 4 Last statement of "sub1" was MOVE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10503:0 -run_misc.at-10503-sub2.cob:84.11-84.24: - 81 MOVE 'A' TO TSTHEX2 (54:1). - 82 MOVE LOW-VALUES TO TSTTAILX. - 83 * - 84 > COPY cpyabrt. ----- ^^^^^^^^^^^^^ - 85 END PROGRAM sub2. ->> Error: Library `CPYABRT' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11129:0 -run_misc.at-11129-prog.cob:69.35: - 66 03 prefix. - 67 05 n PIC 9(03) VALUE 123. - 68 03 table-data value all "ABCDE". - 69 > 04 rows OCCURS 0 TO UNBOUNDED TIMES ----- ^ - 70 DEPENDING ON n. - 71 05 col1 PIC X. ->> Hint: Missing - -run_misc.at-11129-prog.cob:69.36-69.45: - 66 03 prefix. - 67 05 n PIC 9(03) VALUE 123. - 68 03 table-data value all "ABCDE". - 69 > 04 rows OCCURS 0 TO UNBOUNDED TIMES ----- ^^^^^^^^^ - 70 DEPENDING ON n. - 71 05 col1 PIC X. ->> Error: Invalid syntax - -run_misc.at-11129-prog.cob:106.43-106.49: - 103 * - 104 SET P2 TO NULL - 105 SET ADDRESS OF A-TABLE TO NULL - 106 > MOVE ALL ZEROES TO A-TABLE (1: (LENGTH OF A-TABLE)). ----- ^^^^^^ - 107 * - 108 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11365:0 -run_misc.at-11365-caller.cob:9.7-9.12: - 6 MAIN-LINE. - 7 - 8 PERFORM DO-CHECK - 9 > >> IF CHECK-PERF IS DEFINED ----- ^^^^^ - 10 *> minimal side-test for performance comparisons - 11 PERFORM DO-CHECK 10000 TIMES ->> Error: Invalid syntax - -run_misc.at-11365-caller.cob:9.23: - 6 MAIN-LINE. - 7 - 8 PERFORM DO-CHECK - 9 > >> IF CHECK-PERF IS DEFINED ----- ^ - 10 *> minimal side-test for performance comparisons - 11 PERFORM DO-CHECK 10000 TIMES ->> Hint: Missing TIMES . - -run_misc.at-11365-caller.cob:9.24-9.26: - 6 MAIN-LINE. - 7 - 8 PERFORM DO-CHECK - 9 > >> IF CHECK-PERF IS DEFINED ----- ^^ - 10 *> minimal side-test for performance comparisons - 11 PERFORM DO-CHECK 10000 TIMES ->> Error: Invalid syntax - -run_misc.at-11365-caller.cob:9.34: - 6 MAIN-LINE. - 7 - 8 PERFORM DO-CHECK - 9 > >> IF CHECK-PERF IS DEFINED ----- ^ - 10 *> minimal side-test for performance comparisons - 11 PERFORM DO-CHECK 10000 TIMES ->> Hint: Missing . - -run_misc.at-11365-caller.cob:11.11-11.18: - 8 PERFORM DO-CHECK - 9 >> IF CHECK-PERF IS DEFINED - 10 *> minimal side-test for performance comparisons - 11 > PERFORM DO-CHECK 10000 TIMES ----- ^^^^^^^ - 12 >> END-IF - 13 DISPLAY 'DONE' UPON SYSERR WITH NO ADVANCING ->> Warning: Invalid syntax - -run_misc.at-11365-caller.cob:12.7-12.16: - 9 >> IF CHECK-PERF IS DEFINED - 10 *> minimal side-test for performance comparisons - 11 PERFORM DO-CHECK 10000 TIMES - 12 > >> END-IF ----- ^^^^^^^^^ - 13 DISPLAY 'DONE' UPON SYSERR WITH NO ADVANCING - 14 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11339:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11409:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11445:0 -run_misc.at-11445-prog.cob:7.31: - 4 - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > 01 foo-bar CONSTANT 8. ----- ^ - 8 01 x PIC 9(foo-bar)9(foo-bar). - 9 ->> Hint: Missing RECORD . - -run_misc.at-11445-prog.cob:7.32-7.33: - 4 - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > 01 foo-bar CONSTANT 8. ----- ^ - 8 01 x PIC 9(foo-bar)9(foo-bar). - 9 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11470:0 -run_misc.at-11470-prog.cob:4.7-4.27: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > DATE-written. hello'". ----- ^^^^^^^^^^^^^^^^^^^^ - 5 *> Written is intentionally lowercase. - 6 *> extra " to fix syntax highlighting ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -run_misc.at-11470-prog.cob:8.19-8.34: - 5 *> Written is intentionally lowercase. - 6 *> extra " to fix syntax highlighting - 7 PROCEDURE DIVISION. - 8 > DISPLAY "Hello, world!" ----- ^^^^^^^^^^^^^^^ - 9 . ->> Error: Mismatch in continuation of alphanumeric literal (expected `'' quotation character) - -run_misc.at-11470-prog.cob:8.18: - 5 *> Written is intentionally lowercase. - 6 *> extra " to fix syntax highlighting - 7 PROCEDURE DIVISION. - 8 > DISPLAY "Hello, world!" ----- ^ - 9 . ->> Hint: Missing - -run_misc.at-11470-prog.cob:9.11-9.12: - 6 *> extra " to fix syntax highlighting - 7 PROCEDURE DIVISION. - 8 DISPLAY "Hello, world!" - 9 > . ----- ^ ->> Error: Invalid syntax - -run_misc.at-11470-prog.cob:4.27-8.34: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > DATE-written. hello'". ----- ^^^ - 5 > *> Written is intentionally lowercase. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 > *> extra " to fix syntax highlighting ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 > PROCEDURE DIVISION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > DISPLAY "Hello, world!" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 . ->> Error: Missing continuation of `".Hello, world!"' - -run_misc.at-11470-prog.cob:4.27-8.34: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > DATE-written. hello'". ----- ^^^ - 5 > *> Written is intentionally lowercase. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 > *> extra " to fix syntax highlighting ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 > PROCEDURE DIVISION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > DISPLAY "Hello, world!" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11521:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11595:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11647:0 -run_misc.at-11647-prog.cob:11.17-11.21: - 8 - 9 PROCEDURE DIVISION. - 10 CALL " SUB " USING 'X'. - 11 > MOVE x'00' TO MYRTN (6:1). ----- ^^^^ - 12 CALL MYRTN USING 'Y'. - 13 CALL "SUB" USING 'Z'. ->> Error: Invalid syntax - -run_misc.at-11647-prog.cob:21.18: - 18 END PROGRAM prog. - 19 - 20 IDENTIFICATION DIVISION. - 21 > PROGRAM-ID. "SUB ". ----- ^ - 22 - 23 DATA DIVISION. ->> Hint: Missing - -run_misc.at-11647-prog.cob:21.19-21.25: - 18 END PROGRAM prog. - 19 - 20 IDENTIFICATION DIVISION. - 21 > PROGRAM-ID. "SUB ". ----- ^^^^^^ - 22 - 23 DATA DIVISION. ->> Error: Invalid syntax - -run_misc.at-11647-prog.cob:30.18: - 27 PROCEDURE DIVISION USING x. - 28 DISPLAY "SUB GOT " X - 29 END-DISPLAY. - 30 > END PROGRAM " SUB". ----- ^ - 31 - 32 IDENTIFICATION DIVISION. ->> Hint: Missing - -run_misc.at-11647-prog.cob:30.19-30.25: - 27 PROCEDURE DIVISION USING x. - 28 DISPLAY "SUB GOT " X - 29 END-DISPLAY. - 30 > END PROGRAM " SUB". ----- ^^^^^^ - 31 - 32 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -run_misc.at-11647-prog.cob:33.18: - 30 END PROGRAM " SUB". - 31 - 32 IDENTIFICATION DIVISION. - 33 > PROGRAM-ID. "S U B". ----- ^ - 34 - 35 DATA DIVISION. ->> Hint: Missing - -run_misc.at-11647-prog.cob:33.19-33.26: - 30 END PROGRAM " SUB". - 31 - 32 IDENTIFICATION DIVISION. - 33 > PROGRAM-ID. "S U B". ----- ^^^^^^^ - 34 - 35 DATA DIVISION. ->> Error: Invalid syntax - -run_misc.at-11647-prog.cob:42.18: - 39 PROCEDURE DIVISION USING x. - 40 DISPLAY "S U B GOT " X - 41 END-DISPLAY. - 42 > END PROGRAM "S U B". ----- ^ ->> Hint: Missing - -run_misc.at-11647-prog.cob:42.19-42.26: - 39 PROCEDURE DIVISION USING x. - 40 DISPLAY "S U B GOT " X - 41 END-DISPLAY. - 42 > END PROGRAM "S U B". ----- ^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11696:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11695:0 -run_misc.at-11695-sub.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "_SUB-PROG_NOW". ----- ^ - 4 - 5 DATA DIVISION. ->> Hint: Missing - -run_misc.at-11695-sub.cob:3.19-3.34: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "_SUB-PROG_NOW". ----- ^^^^^^^^^^^^^^^ - 4 - 5 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11745:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11747:0 -run_misc.at-11747-sub.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "SUB". ----- ^ - 4 - 5 DATA DIVISION. ->> Hint: Missing - -run_misc.at-11747-sub.cob:3.19-3.24: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "SUB". ----- ^^^^^ - 4 - 5 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11928:0 -run_misc.at-11928-cmod.c:7.6-7.7: - 4 #include - 5 - 6 static char * - 7 > getType (int type, int byvalue) ----- ^ - 8 { - 9 static char wrk[24]; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:9.6-9.7: - 6 static char * - 7 getType (int type, int byvalue) - 8 { - 9 > static char wrk[24]; ----- ^ - 10 switch (type) { - 11 #if 1 ->> Error: Unexpected indicator: `t' - -run_misc.at-11928-cmod.c:10.6-10.7: - 7 getType (int type, int byvalue) - 8 { - 9 static char wrk[24]; - 10 > switch (type) { ----- ^ - 11 #if 1 - 12 case COB_TYPE_GROUP: return "Group"; ->> Error: Unexpected indicator: `t' - -run_misc.at-11928-cmod.c:12.6-12.7: - 9 static char wrk[24]; - 10 switch (type) { - 11 #if 1 - 12 > case COB_TYPE_GROUP: return "Group"; ----- ^ - 13 case COB_TYPE_NUMERIC_COMP5: - 14 /* fall through as the test will have different results ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:13.6-13.7: - 10 switch (type) { - 11 #if 1 - 12 case COB_TYPE_GROUP: return "Group"; - 13 > case COB_TYPE_NUMERIC_COMP5: ----- ^ - 14 /* fall through as the test will have different results - 15 on big endian systems otherwise ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:18.6-18.7: - 15 on big endian systems otherwise - 16 return "COMP-5"; */ - 17 COB_UNUSED (byvalue); - 18 > case COB_TYPE_NUMERIC_BINARY: return "BINARY"; ----- ^ - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:19.6-19.7: - 16 return "COMP-5"; */ - 17 COB_UNUSED (byvalue); - 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; - 19 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; ----- ^ - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:20.6-20.7: - 17 COB_UNUSED (byvalue); - 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ----- ^ - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:21.6-21.7: - 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ----- ^ - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 case COB_TYPE_ALPHANUMERIC: return "X"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:22.6-22.7: - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ----- ^ - 23 case COB_TYPE_ALPHANUMERIC: return "X"; - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:23.6-23.7: - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 > case COB_TYPE_ALPHANUMERIC: return "X"; ----- ^ - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 25 case COB_TYPE_NATIONAL: return "N"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:24.6-24.7: - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 case COB_TYPE_ALPHANUMERIC: return "X"; - 24 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ----- ^ - 25 case COB_TYPE_NATIONAL: return "N"; - 26 #else ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:25.6-25.7: - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 case COB_TYPE_ALPHANUMERIC: return "X"; - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 25 > case COB_TYPE_NATIONAL: return "N"; ----- ^ - 26 #else - 27 case COB_TYPE_GROUP: return "Group"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:27.6-27.7: - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 25 case COB_TYPE_NATIONAL: return "N"; - 26 #else - 27 > case COB_TYPE_GROUP: return "Group"; ----- ^ - 28 case COB_TYPE_NUMERIC_COMP5: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:28.6-28.7: - 25 case COB_TYPE_NATIONAL: return "N"; - 26 #else - 27 case COB_TYPE_GROUP: return "Group"; - 28 > case COB_TYPE_NUMERIC_COMP5: ----- ^ - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:30.6-30.7: - 27 case COB_TYPE_GROUP: return "Group"; - 28 case COB_TYPE_NUMERIC_COMP5: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; ----- ^ - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:31.6-31.7: - 28 case COB_TYPE_NUMERIC_COMP5: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; - 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; ----- ^ - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:32.6-32.7: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ----- ^ - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:33.6-33.7: - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ----- ^ - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 case COB_TYPE_ALPHANUMERIC: return "X"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:34.6-34.7: - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ----- ^ - 35 case COB_TYPE_ALPHANUMERIC: return "X"; - 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:35.6-35.7: - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 > case COB_TYPE_ALPHANUMERIC: return "X"; ----- ^ - 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 37 case COB_TYPE_NATIONAL: return "N"; ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:36.6-36.7: - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 case COB_TYPE_ALPHANUMERIC: return "X"; - 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ----- ^ - 37 case COB_TYPE_NATIONAL: return "N"; - 38 #endif ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:37.6-37.7: - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 case COB_TYPE_ALPHANUMERIC: return "X"; - 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 37 > case COB_TYPE_NATIONAL: return "N"; ----- ^ - 38 #endif - 39 } ->> Error: Unexpected indicator: `e' - -run_misc.at-11928-cmod.c:40.6-40.7: - 37 case COB_TYPE_NATIONAL: return "N"; - 38 #endif - 39 } - 40 > sprintf (wrk,"Type %04X",type); ----- ^ - 41 return wrk; - 42 } ->> Error: Unexpected indicator: `i' - -run_misc.at-11928-cmod.c:41.6-41.7: - 38 #endif - 39 } - 40 sprintf (wrk,"Type %04X",type); - 41 > return wrk; ----- ^ - 42 } - 43 ->> Error: Unexpected indicator: `u' - -run_misc.at-11928-cmod.c:44.6-44.7: - 41 return wrk; - 42 } - 43 - 44 > COB_EXT_EXPORT int ----- ^ - 45 CAPI (void *p1, ...) - 46 { ->> Error: Unexpected indicator: `T' - -run_misc.at-11928-cmod.c:45.6-45.7: - 42 } - 43 - 44 COB_EXT_EXPORT int - 45 > CAPI (void *p1, ...) ----- ^ - 46 { - 47 int k,nargs,type,digits,scale,size,sign,byvalue; ->> Error: Unexpected indicator: `v' - -run_misc.at-11928-cmod.c:48.6-48.7: - 45 CAPI (void *p1, ...) - 46 { - 47 int k,nargs,type,digits,scale,size,sign,byvalue; - 48 > cob_s64_t val = 0; ----- ^ - 49 char *str; - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ ->> Error: Unexpected indicator: `_' - -run_misc.at-11928-cmod.c:49.6-49.7: - 46 { - 47 int k,nargs,type,digits,scale,size,sign,byvalue; - 48 cob_s64_t val = 0; - 49 > char *str; ----- ^ - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ - 51 ->> Error: Unexpected indicator: `r' - -run_misc.at-11928-cmod.c:50.6-50.7: - 47 int k,nargs,type,digits,scale,size,sign,byvalue; - 48 cob_s64_t val = 0; - 49 char *str; - 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ ----- ^ - 51 - 52 nargs = cob_get_num_params(); ->> Error: Unexpected indicator: `r' - -run_misc.at-11928-cmod.c:52.6-52.7: - 49 char *str; - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ - 51 - 52 > nargs = cob_get_num_params(); ----- ^ - 53 printf ("CAPI called with %d parameters\n",nargs); - 54 for (k=1; k <= nargs; k++) { ->> Error: Unexpected indicator: `g' - -run_misc.at-11928-cmod.c:53.6-53.7: - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ - 51 - 52 nargs = cob_get_num_params(); - 53 > printf ("CAPI called with %d parameters\n",nargs); ----- ^ - 54 for (k=1; k <= nargs; k++) { - 55 type = cob_get_param_type (k); ->> Error: Unexpected indicator: `n' - -run_misc.at-11928-cmod.c:55.6-55.7: - 52 nargs = cob_get_num_params(); - 53 printf ("CAPI called with %d parameters\n",nargs); - 54 for (k=1; k <= nargs; k++) { - 55 > type = cob_get_param_type (k); ----- ^ - 56 digits = cob_get_param_digits (k); - 57 scale = cob_get_param_scale (k); ->> Error: Unexpected indicator: `t' - -run_misc.at-11928-cmod.c:57.6-57.7: - 54 for (k=1; k <= nargs; k++) { - 55 type = cob_get_param_type (k); - 56 digits = cob_get_param_digits (k); - 57 > scale = cob_get_param_scale (k); ----- ^ - 58 size = cob_get_param_size (k); - 59 sign = cob_get_param_sign (k); ->> Error: Unexpected indicator: `s' - -run_misc.at-11928-cmod.c:58.6-58.7: - 55 type = cob_get_param_type (k); - 56 digits = cob_get_param_digits (k); - 57 scale = cob_get_param_scale (k); - 58 > size = cob_get_param_size (k); ----- ^ - 59 sign = cob_get_param_sign (k); - 60 byvalue = cob_get_param_constant(k); ->> Error: Unexpected indicator: `s' - -run_misc.at-11928-cmod.c:59.6-59.7: - 56 digits = cob_get_param_digits (k); - 57 scale = cob_get_param_scale (k); - 58 size = cob_get_param_size (k); - 59 > sign = cob_get_param_sign (k); ----- ^ - 60 byvalue = cob_get_param_constant(k); - 61 printf (" %d: %-8s ", k, getType (type, byvalue)); ->> Error: Unexpected indicator: `s' - -run_misc.at-11928-cmod.c:60.6-60.7: - 57 scale = cob_get_param_scale (k); - 58 size = cob_get_param_size (k); - 59 sign = cob_get_param_sign (k); - 60 > byvalue = cob_get_param_constant(k); ----- ^ - 61 printf (" %d: %-8s ", k, getType (type, byvalue)); - 62 if (byvalue) { ->> Error: Unexpected indicator: `b' - -run_misc.at-11928-cmod.c:61.6-61.7: - 58 size = cob_get_param_size (k); - 59 sign = cob_get_param_sign (k); - 60 byvalue = cob_get_param_constant(k); - 61 > printf (" %d: %-8s ", k, getType (type, byvalue)); ----- ^ - 62 if (byvalue) { - 63 printf ("BY VALUE "); ->> Error: Unexpected indicator: `p' - -run_misc.at-11928-cmod.c:62.6-62.7: - 59 sign = cob_get_param_sign (k); - 60 byvalue = cob_get_param_constant(k); - 61 printf (" %d: %-8s ", k, getType (type, byvalue)); - 62 > if (byvalue) { ----- ^ - 63 printf ("BY VALUE "); - 64 } else { ->> Error: Unexpected indicator: `i' - -run_misc.at-11928-cmod.c:64.6-64.7: - 61 printf (" %d: %-8s ", k, getType (type, byvalue)); - 62 if (byvalue) { - 63 printf ("BY VALUE "); - 64 > } else { ----- ^ - 65 printf ("BY REFERENCE "); - 66 } ->> Error: Unexpected indicator: `}' - -run_misc.at-11928-cmod.c:66.6-66.7: - 63 printf ("BY VALUE "); - 64 } else { - 65 printf ("BY REFERENCE "); - 66 > } ----- ^ - 67 if (type == COB_TYPE_ALPHANUMERIC) { - 68 sprintf (pic, "X(%d)", size); ->> Error: Unexpected indicator: `}' - -run_misc.at-11928-cmod.c:67.6-67.7: - 64 } else { - 65 printf ("BY REFERENCE "); - 66 } - 67 > if (type == COB_TYPE_ALPHANUMERIC) { ----- ^ - 68 sprintf (pic, "X(%d)", size); - 69 str = cob_get_picx_param (k, NULL, 0); ->> Error: Unexpected indicator: `i' - -run_misc.at-11928-cmod.c:73.6-73.7: - 70 printf ("%-11s '%s'", pic, str); - 71 cob_free ((void*)str); - 72 cob_put_picx_param (k, "Bye!"); - 73 > } else if (type == COB_TYPE_NATIONAL) { ----- ^ - 74 sprintf (pic, "N(%d)", size); /* FIXME */ - 75 printf ("exchange of national data is not supported yet"); ->> Error: Unexpected indicator: `}' - -run_misc.at-11928-cmod.c:76.6-76.7: - 73 } else if (type == COB_TYPE_NATIONAL) { - 74 sprintf (pic, "N(%d)", size); /* FIXME */ - 75 printf ("exchange of national data is not supported yet"); - 76 > } else if (type == COB_TYPE_GROUP) { ----- ^ - 77 sprintf (pic, "(%d)", size); - 78 str = cob_get_grp_param (k, NULL, 0); ->> Error: Unexpected indicator: `}' - -run_misc.at-11928-cmod.c:84.6-84.7: - 81 memset (wrk,' ',sizeof(wrk)); - 82 memcpy (wrk,"Bye-Bye Birdie!",15); - 83 cob_put_grp_param (k, wrk, sizeof(wrk)); - 84 > } else if (type == COB_TYPE_NUMERIC_EDITED) { ----- ^ - 85 if (scale > 0) { - 86 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ->> Error: Unexpected indicator: `}' - -run_misc.at-11928-cmod.c:97.6-97.7: - 94 cob_put_s64_param (k, val); - 95 cob_get_grp_param (k, wrk, sizeof(wrk)); - 96 printf (" to %.*s",size,wrk); - 97 > } else { ----- ^ - 98 if(scale > 0) { - 99 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ->> Error: Unexpected indicator: `}' - -run_misc.at-11928-cmod.c:106.6-106.7: - 103 val = cob_get_s64_param (k); - 104 printf ("%-11s %lld", pic, val); - 105 cob_put_s64_param (k, val + 3); - 106 > } ----- ^ - 107 printf (";\n"); - 108 fflush (stdout); ->> Error: Unexpected indicator: `}' - -run_misc.at-11928-cmod.c:107.6-107.7: - 104 printf ("%-11s %lld", pic, val); - 105 cob_put_s64_param (k, val + 3); - 106 } - 107 > printf (";\n"); ----- ^ - 108 fflush (stdout); - 109 } ->> Error: Unexpected indicator: `p' - -run_misc.at-11928-cmod.c:108.6-108.7: - 105 cob_put_s64_param (k, val + 3); - 106 } - 107 printf (";\n"); - 108 > fflush (stdout); ----- ^ - 109 } - 110 if (nargs > 2) { ->> Error: Unexpected indicator: `f' - -run_misc.at-11928-cmod.c:110.6-110.7: - 107 printf (";\n"); - 108 fflush (stdout); - 109 } - 110 > if (nargs > 2) { ----- ^ - 111 cob_put_s64_param (7, val + 3); - 112 } ->> Error: Unexpected indicator: `(' - -run_misc.at-11928-cmod.c:111.6-111.7: - 108 fflush (stdout); - 109 } - 110 if (nargs > 2) { - 111 > cob_put_s64_param (7, val + 3); ----- ^ - 112 } - 113 return 0; ->> Error: Unexpected indicator: `c' - -run_misc.at-11928-cmod.c:113.6-113.7: - 110 if (nargs > 2) { - 111 cob_put_s64_param (7, val + 3); - 112 } - 113 > return 0; ----- ^ - 114 } ->> Error: Unexpected indicator: `u' - -run_misc.at-11928-cmod.c:84.22-115.0: - 81 memset (wrk,' ',sizeof(wrk)); - 82 memcpy (wrk,"Bye-Bye Birdie!",15); - 83 cob_put_grp_param (k, wrk, sizeof(wrk)); - 84 > } else if (type == COB_TYPE_NUMERIC_EDITED) { ----- - 85 > if (scale > 0) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 86 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 87 > } else { ----- ^^^^^^^^^^^^^^^^^^ - 88 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 89 > } ----- ^^^^^^^^^^^ - 90 > val = cob_get_s64_param (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 91 > printf ("%-11s %lld ",pic,val); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 92 > val = val + 130; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 93 > val = -val; ----- ^^^^^^^^^^^^^^^^^^^^^ - 94 > cob_put_s64_param (k, val); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 95 > cob_get_grp_param (k, wrk, sizeof(wrk)); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 96 > printf (" to %.*s",size,wrk); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 97 > } else { ----- ^^^^^^^^^^^^^^^ - 98 > if(scale > 0) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 99 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 100 > } else { ----- ^^^^^^^^^^^^^^^^^^ - 101 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 102 > } ----- ^^^^^^^^^^^ - 103 > val = cob_get_s64_param (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 104 > printf ("%-11s %lld", pic, val); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 105 > cob_put_s64_param (k, val + 3); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 106 > } ----- ^^^^^^^^ - 107 > printf (";\n"); ----- ^^^^^^^^^^^^^^^^^^^^^^ - 108 > fflush (stdout); ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 109 > } ----- ^^^^^ - 110 > if (nargs > 2) { ----- ^^^^^^^^^^^^^^^^^^^^ - 111 > cob_put_s64_param (7, val + 3); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 112 > } ----- ^^^^^ - 113 > return 0; ----- ^^^^^^^^^^^^^ - 114 > } ----- ^^ ->> Error: Unterminated pseudotext - -run_misc.at-11928-cmod.c:29.23-67.17: - 26 #else - 27 case COB_TYPE_GROUP: return "Group"; - 28 case COB_TYPE_NUMERIC_COMP5: - 29 > return byvalue == 2 ? "COMP-4" : "COMP-5"; ----- - 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 35 > case COB_TYPE_ALPHANUMERIC: return "X"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 37 > case COB_TYPE_NATIONAL: return "N"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 38 > #endif ----- ^^^^^^^ - 39 > } ----- ^^^^^ - 40 > sprintf (wrk,"Type %04X",type); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 41 > return wrk; ----- ^^^^^^^^^^^^^^^ - 42 > } ----- ^^ - 43 > ----- ^ - 44 > COB_EXT_EXPORT int ----- ^^^^^^^^^^^^^^^^^^^ - 45 > CAPI (void *p1, ...) ----- ^^^^^^^^^^^^^^^^^^^^^ - 46 > { ----- ^^ - 47 > int k,nargs,type,digits,scale,size,sign,byvalue; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 48 > cob_s64_t val = 0; ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 49 > char *str; ----- ^^^^^^^^^^^^^^^^^^ - 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 51 > ----- ^ - 52 > nargs = cob_get_num_params(); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 53 > printf ("CAPI called with %d parameters\n",nargs); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 54 > for (k=1; k <= nargs; k++) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 55 > type = cob_get_param_type (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 56 > digits = cob_get_param_digits (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 57 > scale = cob_get_param_scale (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 58 > size = cob_get_param_size (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 59 > sign = cob_get_param_sign (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 60 > byvalue = cob_get_param_constant(k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 61 > printf (" %d: %-8s ", k, getType (type, byvalue)); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 62 > if (byvalue) { ----- ^^^^^^^^^^^^^^^^^^^^^ - 63 > printf ("BY VALUE "); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 64 > } else { ----- ^^^^^^^^^^^^^^^ - 65 > printf ("BY REFERENCE "); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 66 > } ----- ^^^^^^^^ - 67 > if (type == COB_TYPE_ALPHANUMERIC) { ----- ^^^^^^^^^^^^^^^^^^ - 68 sprintf (pic, "X(%d)", size); - 69 str = cob_get_picx_param (k, NULL, 0); ->> Error: Unexpected pseudotext - -run_misc.at-11928-cmod.c:68.23-68.30: - 65 printf ("BY REFERENCE "); - 66 } - 67 if (type == COB_TYPE_ALPHANUMERIC) { - 68 > sprintf (pic, "X(%d)", size); ----- ^^^^^^^ - 69 str = cob_get_picx_param (k, NULL, 0); - 70 printf ("%-11s '%s'", pic, str); ->> Error: Missing PICTURE string (got `"X(%d)"' instead) - -run_misc.at-11928-cmod.c:73.22-76.24: - 70 printf ("%-11s '%s'", pic, str); - 71 cob_free ((void*)str); - 72 cob_put_picx_param (k, "Bye!"); - 73 > } else if (type == COB_TYPE_NATIONAL) { ----- ^^ - 74 > sprintf (pic, "N(%d)", size); /* FIXME */ ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 75 > printf ("exchange of national data is not supported yet"); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 76 > } else if (type == COB_TYPE_GROUP) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 77 sprintf (pic, "(%d)", size); - 78 str = cob_get_grp_param (k, NULL, 0); ->> Error: Unexpected pseudotext - -run_misc.at-11928-cmod.c:77.23-77.29: - 74 sprintf (pic, "N(%d)", size); /* FIXME */ - 75 printf ("exchange of national data is not supported yet"); - 76 } else if (type == COB_TYPE_GROUP) { - 77 > sprintf (pic, "(%d)", size); ----- ^^^^^^ - 78 str = cob_get_grp_param (k, NULL, 0); - 79 printf ("%-11s '%.*s'", pic, size, str); ->> Error: Missing PICTURE string (got `"(%d)"' instead) - -run_misc.at-11928-cmod.c:6.7-6.11: - 3 #include - 4 #include - 5 - 6 > static char * ----- ^^^^ - 7 getType (int type, int byvalue) - 8 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11928:0 -run_misc.at-11928-prog.cob:33.29-33.35: - 30 MOVE "Hello!" TO CHRX. - 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 33 > CALL "CAPI" USING LENGTH OF GRPX. ----- ^^^^^^ - 34 CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. - 35 CALL "CAPI" USING "Fred Fish", COMP3. ->> Error: Invalid syntax - -run_misc.at-11928-prog.cob:34.43-34.49: - 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 33 CALL "CAPI" USING LENGTH OF GRPX. - 34 > CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. ----- ^^^^^^ - 35 CALL "CAPI" USING "Fred Fish", COMP3. - 36 CALL "CAPI" USING COMP3V99. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12158:0 -run_misc.at-12158-cmod.c:7.6-7.7: - 4 #include - 5 - 6 static char * - 7 > getType (int type, int byvalue) ----- ^ - 8 { - 9 static char wrk[24]; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:9.6-9.7: - 6 static char * - 7 getType (int type, int byvalue) - 8 { - 9 > static char wrk[24]; ----- ^ - 10 switch (type) { - 11 #if 1 ->> Error: Unexpected indicator: `t' - -run_misc.at-12158-cmod.c:10.6-10.7: - 7 getType (int type, int byvalue) - 8 { - 9 static char wrk[24]; - 10 > switch (type) { ----- ^ - 11 #if 1 - 12 case COB_TYPE_GROUP: return "Group"; ->> Error: Unexpected indicator: `t' - -run_misc.at-12158-cmod.c:12.6-12.7: - 9 static char wrk[24]; - 10 switch (type) { - 11 #if 1 - 12 > case COB_TYPE_GROUP: return "Group"; ----- ^ - 13 case COB_TYPE_NUMERIC_COMP5: - 14 /* fall through as the test will have different results ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:13.6-13.7: - 10 switch (type) { - 11 #if 1 - 12 case COB_TYPE_GROUP: return "Group"; - 13 > case COB_TYPE_NUMERIC_COMP5: ----- ^ - 14 /* fall through as the test will have different results - 15 on big endian systems otherwise ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:18.6-18.7: - 15 on big endian systems otherwise - 16 return "COMP-5"; */ - 17 COB_UNUSED (byvalue); - 18 > case COB_TYPE_NUMERIC_BINARY: return "BINARY"; ----- ^ - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:19.6-19.7: - 16 return "COMP-5"; */ - 17 COB_UNUSED (byvalue); - 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; - 19 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; ----- ^ - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:20.6-20.7: - 17 COB_UNUSED (byvalue); - 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ----- ^ - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:21.6-21.7: - 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ----- ^ - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 case COB_TYPE_ALPHANUMERIC: return "X"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:22.6-22.7: - 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ----- ^ - 23 case COB_TYPE_ALPHANUMERIC: return "X"; - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:23.6-23.7: - 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 > case COB_TYPE_ALPHANUMERIC: return "X"; ----- ^ - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 25 case COB_TYPE_NATIONAL: return "N"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:24.6-24.7: - 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 case COB_TYPE_ALPHANUMERIC: return "X"; - 24 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ----- ^ - 25 case COB_TYPE_NATIONAL: return "N"; - 26 #else ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:25.6-25.7: - 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 23 case COB_TYPE_ALPHANUMERIC: return "X"; - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 25 > case COB_TYPE_NATIONAL: return "N"; ----- ^ - 26 #else - 27 case COB_TYPE_GROUP: return "Group"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:27.6-27.7: - 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 25 case COB_TYPE_NATIONAL: return "N"; - 26 #else - 27 > case COB_TYPE_GROUP: return "Group"; ----- ^ - 28 case COB_TYPE_NUMERIC_COMP5: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:28.6-28.7: - 25 case COB_TYPE_NATIONAL: return "N"; - 26 #else - 27 case COB_TYPE_GROUP: return "Group"; - 28 > case COB_TYPE_NUMERIC_COMP5: ----- ^ - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:30.6-30.7: - 27 case COB_TYPE_GROUP: return "Group"; - 28 case COB_TYPE_NUMERIC_COMP5: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; ----- ^ - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:31.6-31.7: - 28 case COB_TYPE_NUMERIC_COMP5: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; - 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; ----- ^ - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:32.6-32.7: - 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ----- ^ - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:33.6-33.7: - 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ----- ^ - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 case COB_TYPE_ALPHANUMERIC: return "X"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:34.6-34.7: - 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ----- ^ - 35 case COB_TYPE_ALPHANUMERIC: return "X"; - 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:35.6-35.7: - 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 > case COB_TYPE_ALPHANUMERIC: return "X"; ----- ^ - 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 37 case COB_TYPE_NATIONAL: return "N"; ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:36.6-36.7: - 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 case COB_TYPE_ALPHANUMERIC: return "X"; - 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ----- ^ - 37 case COB_TYPE_NATIONAL: return "N"; - 38 #endif ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:37.6-37.7: - 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; - 35 case COB_TYPE_ALPHANUMERIC: return "X"; - 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; - 37 > case COB_TYPE_NATIONAL: return "N"; ----- ^ - 38 #endif - 39 } ->> Error: Unexpected indicator: `e' - -run_misc.at-12158-cmod.c:40.6-40.7: - 37 case COB_TYPE_NATIONAL: return "N"; - 38 #endif - 39 } - 40 > sprintf (wrk,"Type %04X",type); ----- ^ - 41 return wrk; - 42 } ->> Error: Unexpected indicator: `i' - -run_misc.at-12158-cmod.c:41.6-41.7: - 38 #endif - 39 } - 40 sprintf (wrk,"Type %04X",type); - 41 > return wrk; ----- ^ - 42 } - 43 ->> Error: Unexpected indicator: `u' - -run_misc.at-12158-cmod.c:44.6-44.7: - 41 return wrk; - 42 } - 43 - 44 > COB_EXT_EXPORT int ----- ^ - 45 CAPI (void *p1, ...) - 46 { ->> Error: Unexpected indicator: `T' - -run_misc.at-12158-cmod.c:45.6-45.7: - 42 } - 43 - 44 COB_EXT_EXPORT int - 45 > CAPI (void *p1, ...) ----- ^ - 46 { - 47 int k,nargs,type,digits,scale,size,sign,byvalue; ->> Error: Unexpected indicator: `v' - -run_misc.at-12158-cmod.c:48.6-48.7: - 45 CAPI (void *p1, ...) - 46 { - 47 int k,nargs,type,digits,scale,size,sign,byvalue; - 48 > cob_s64_t val; ----- ^ - 49 char *str; - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ ->> Error: Unexpected indicator: `_' - -run_misc.at-12158-cmod.c:49.6-49.7: - 46 { - 47 int k,nargs,type,digits,scale,size,sign,byvalue; - 48 cob_s64_t val; - 49 > char *str; ----- ^ - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ - 51 ->> Error: Unexpected indicator: `r' - -run_misc.at-12158-cmod.c:50.6-50.7: - 47 int k,nargs,type,digits,scale,size,sign,byvalue; - 48 cob_s64_t val; - 49 char *str; - 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ ----- ^ - 51 - 52 nargs = cob_get_num_params(); ->> Error: Unexpected indicator: `r' - -run_misc.at-12158-cmod.c:52.6-52.7: - 49 char *str; - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ - 51 - 52 > nargs = cob_get_num_params(); ----- ^ - 53 printf ("CAPI called with %d parameters\n",nargs); - 54 for (k=1; k <= nargs; k++) { ->> Error: Unexpected indicator: `g' - -run_misc.at-12158-cmod.c:53.6-53.7: - 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ - 51 - 52 nargs = cob_get_num_params(); - 53 > printf ("CAPI called with %d parameters\n",nargs); ----- ^ - 54 for (k=1; k <= nargs; k++) { - 55 cob_field *fld = cob_get_param_field (k, "CAPI"); ->> Error: Unexpected indicator: `n' - -run_misc.at-12158-cmod.c:55.6-55.7: - 52 nargs = cob_get_num_params(); - 53 printf ("CAPI called with %d parameters\n",nargs); - 54 for (k=1; k <= nargs; k++) { - 55 > cob_field *fld = cob_get_param_field (k, "CAPI"); ----- ^ - 56 type = cob_get_field_type (fld); - 57 digits = cob_get_field_digits (fld); ->> Error: Unexpected indicator: `c' - -run_misc.at-12158-cmod.c:56.6-56.7: - 53 printf ("CAPI called with %d parameters\n",nargs); - 54 for (k=1; k <= nargs; k++) { - 55 cob_field *fld = cob_get_param_field (k, "CAPI"); - 56 > type = cob_get_field_type (fld); ----- ^ - 57 digits = cob_get_field_digits (fld); - 58 scale = cob_get_field_scale (fld); ->> Error: Unexpected indicator: `t' - -run_misc.at-12158-cmod.c:58.6-58.7: - 55 cob_field *fld = cob_get_param_field (k, "CAPI"); - 56 type = cob_get_field_type (fld); - 57 digits = cob_get_field_digits (fld); - 58 > scale = cob_get_field_scale (fld); ----- ^ - 59 size = cob_get_field_size (fld); - 60 sign = cob_get_field_sign (fld); ->> Error: Unexpected indicator: `s' - -run_misc.at-12158-cmod.c:59.6-59.7: - 56 type = cob_get_field_type (fld); - 57 digits = cob_get_field_digits (fld); - 58 scale = cob_get_field_scale (fld); - 59 > size = cob_get_field_size (fld); ----- ^ - 60 sign = cob_get_field_sign (fld); - 61 byvalue = cob_get_field_constant (fld); ->> Error: Unexpected indicator: `s' - -run_misc.at-12158-cmod.c:60.6-60.7: - 57 digits = cob_get_field_digits (fld); - 58 scale = cob_get_field_scale (fld); - 59 size = cob_get_field_size (fld); - 60 > sign = cob_get_field_sign (fld); ----- ^ - 61 byvalue = cob_get_field_constant (fld); - 62 printf (" %d: %-8s ", k, getType (type, byvalue)); ->> Error: Unexpected indicator: `s' - -run_misc.at-12158-cmod.c:61.6-61.7: - 58 scale = cob_get_field_scale (fld); - 59 size = cob_get_field_size (fld); - 60 sign = cob_get_field_sign (fld); - 61 > byvalue = cob_get_field_constant (fld); ----- ^ - 62 printf (" %d: %-8s ", k, getType (type, byvalue)); - 63 if (byvalue) { ->> Error: Unexpected indicator: `b' - -run_misc.at-12158-cmod.c:62.6-62.7: - 59 size = cob_get_field_size (fld); - 60 sign = cob_get_field_sign (fld); - 61 byvalue = cob_get_field_constant (fld); - 62 > printf (" %d: %-8s ", k, getType (type, byvalue)); ----- ^ - 63 if (byvalue) { - 64 printf ("BY VALUE "); ->> Error: Unexpected indicator: `p' - -run_misc.at-12158-cmod.c:63.6-63.7: - 60 sign = cob_get_field_sign (fld); - 61 byvalue = cob_get_field_constant (fld); - 62 printf (" %d: %-8s ", k, getType (type, byvalue)); - 63 > if (byvalue) { ----- ^ - 64 printf ("BY VALUE "); - 65 } else { ->> Error: Unexpected indicator: `i' - -run_misc.at-12158-cmod.c:65.6-65.7: - 62 printf (" %d: %-8s ", k, getType (type, byvalue)); - 63 if (byvalue) { - 64 printf ("BY VALUE "); - 65 > } else { ----- ^ - 66 printf ("BY REFERENCE "); - 67 } ->> Error: Unexpected indicator: `}' - -run_misc.at-12158-cmod.c:67.6-67.7: - 64 printf ("BY VALUE "); - 65 } else { - 66 printf ("BY REFERENCE "); - 67 > } ----- ^ - 68 str = (char *) cob_get_field_str_buffered (fld); - 69 if (type == COB_TYPE_ALPHANUMERIC) { ->> Error: Unexpected indicator: `}' - -run_misc.at-12158-cmod.c:68.6-68.7: - 65 } else { - 66 printf ("BY REFERENCE "); - 67 } - 68 > str = (char *) cob_get_field_str_buffered (fld); ----- ^ - 69 if (type == COB_TYPE_ALPHANUMERIC) { - 70 sprintf (pic, "X(%d)", size); ->> Error: Unexpected indicator: `s' - -run_misc.at-12158-cmod.c:69.6-69.7: - 66 printf ("BY REFERENCE "); - 67 } - 68 str = (char *) cob_get_field_str_buffered (fld); - 69 > if (type == COB_TYPE_ALPHANUMERIC) { ----- ^ - 70 sprintf (pic, "X(%d)", size); - 71 printf ("%-11s '%s'", pic, str); ->> Error: Unexpected indicator: `i' - -run_misc.at-12158-cmod.c:73.6-73.7: - 70 sprintf (pic, "X(%d)", size); - 71 printf ("%-11s '%s'", pic, str); - 72 cob_put_field_str (fld, "Bye!"); - 73 > } else if (type == COB_TYPE_NATIONAL) { ----- ^ - 74 sprintf (pic,"N(%d)",size); /* FIXME */ - 75 printf ("exchange of national data is not supported yet"); ->> Error: Unexpected indicator: `}' - -run_misc.at-12158-cmod.c:76.6-76.7: - 73 } else if (type == COB_TYPE_NATIONAL) { - 74 sprintf (pic,"N(%d)",size); /* FIXME */ - 75 printf ("exchange of national data is not supported yet"); - 76 > } else if (type == COB_TYPE_GROUP) { ----- ^ - 77 sprintf (pic,"(%d)",size); - 78 printf ("%-11s '%.*s'",pic,size,str); ->> Error: Unexpected indicator: `}' - -run_misc.at-12158-cmod.c:80.6-80.7: - 77 sprintf (pic,"(%d)",size); - 78 printf ("%-11s '%.*s'",pic,size,str); - 79 cob_put_field_str (fld, "Bye-Bye Birdie!"); - 80 > } else if (type == COB_TYPE_NUMERIC_EDITED) { ----- ^ - 81 if (scale > 0) { - 82 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ->> Error: Unexpected indicator: `}' - -run_misc.at-12158-cmod.c:93.6-93.7: - 90 cob_put_s64_param (k, val); - 91 str = (char *) cob_get_field_str (fld, wrk, 78); - 92 printf (" to %.*s",size,wrk); - 93 > } else { ----- ^ - 94 if(scale > 0) { - 95 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ->> Error: Unexpected indicator: `}' - -run_misc.at-12158-cmod.c:103.6-103.7: - 100 val = cob_get_s64_param (k); - 101 sprintf (wrk, "%lld", val + 3); - 102 cob_put_field_str (fld, wrk); - 103 > } ----- ^ - 104 printf (";\n"); - 105 fflush(stdout); ->> Error: Unexpected indicator: `}' - -run_misc.at-12158-cmod.c:104.6-104.7: - 101 sprintf (wrk, "%lld", val + 3); - 102 cob_put_field_str (fld, wrk); - 103 } - 104 > printf (";\n"); ----- ^ - 105 fflush(stdout); - 106 } ->> Error: Unexpected indicator: `p' - -run_misc.at-12158-cmod.c:105.6-105.7: - 102 cob_put_field_str (fld, wrk); - 103 } - 104 printf (";\n"); - 105 > fflush(stdout); ----- ^ - 106 } - 107 return 0; ->> Error: Unexpected indicator: `f' - -run_misc.at-12158-cmod.c:107.6-107.7: - 104 printf (";\n"); - 105 fflush(stdout); - 106 } - 107 > return 0; ----- ^ - 108 } ->> Error: Unexpected indicator: `u' - -run_misc.at-12158-cmod.c:80.22-109.0: - 77 sprintf (pic,"(%d)",size); - 78 printf ("%-11s '%.*s'",pic,size,str); - 79 cob_put_field_str (fld, "Bye-Bye Birdie!"); - 80 > } else if (type == COB_TYPE_NUMERIC_EDITED) { ----- - 81 > if (scale > 0) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 82 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 83 > } else { ----- ^^^^^^^^^^^^^^^^^^ - 84 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 85 > } ----- ^^^^^^^^^^^ - 86 > printf ("%-11s %s ",pic,str); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 87 > val = cob_get_s64_param (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 88 > val = val + 130; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 89 > val = -val; ----- ^^^^^^^^^^^^^^^^^^^^^ - 90 > cob_put_s64_param (k, val); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 91 > str = (char *) cob_get_field_str (fld, wrk, 78); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 92 > printf (" to %.*s",size,wrk); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 93 > } else { ----- ^^^^^^^^^^^^^^^ - 94 > if(scale > 0) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 95 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 96 > } else { ----- ^^^^^^^^^^^^^^^^^^ - 97 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 98 > } ----- ^^^^^^^^^^^ - 99 > printf ("%-11s %s", pic, str); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 100 > val = cob_get_s64_param (k); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 101 > sprintf (wrk, "%lld", val + 3); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 102 > cob_put_field_str (fld, wrk); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 103 > } ----- ^^^^^^^^ - 104 > printf (";\n"); ----- ^^^^^^^^^^^^^^^^^^^^^^ - 105 > fflush(stdout); ----- ^^^^^^^^^^^^^^^^^^^^^^ - 106 > } ----- ^^^^^ - 107 > return 0; ----- ^^^^^^^^^^^^^ - 108 > } ----- ^^ ->> Error: Unterminated pseudotext - -run_misc.at-12158-cmod.c:29.23-69.17: - 26 #else - 27 case COB_TYPE_GROUP: return "Group"; - 28 case COB_TYPE_NUMERIC_COMP5: - 29 > return byvalue == 2 ? "COMP-4" : "COMP-5"; ----- - 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 35 > case COB_TYPE_ALPHANUMERIC: return "X"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 37 > case COB_TYPE_NATIONAL: return "N"; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 38 > #endif ----- ^^^^^^^ - 39 > } ----- ^^^^^ - 40 > sprintf (wrk,"Type %04X",type); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 41 > return wrk; ----- ^^^^^^^^^^^^^^^ - 42 > } ----- ^^ - 43 > ----- ^ - 44 > COB_EXT_EXPORT int ----- ^^^^^^^^^^^^^^^^^^^ - 45 > CAPI (void *p1, ...) ----- ^^^^^^^^^^^^^^^^^^^^^ - 46 > { ----- ^^ - 47 > int k,nargs,type,digits,scale,size,sign,byvalue; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 48 > cob_s64_t val; ----- ^^^^^^^^^^^^^^^^^^^^ - 49 > char *str; ----- ^^^^^^^^^^^^^^^^^^ - 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 51 > ----- ^ - 52 > nargs = cob_get_num_params(); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 53 > printf ("CAPI called with %d parameters\n",nargs); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 54 > for (k=1; k <= nargs; k++) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 55 > cob_field *fld = cob_get_param_field (k, "CAPI"); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 56 > type = cob_get_field_type (fld); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 57 > digits = cob_get_field_digits (fld); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 58 > scale = cob_get_field_scale (fld); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 59 > size = cob_get_field_size (fld); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 60 > sign = cob_get_field_sign (fld); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 61 > byvalue = cob_get_field_constant (fld); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 62 > printf (" %d: %-8s ", k, getType (type, byvalue)); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 63 > if (byvalue) { ----- ^^^^^^^^^^^^^^^^^^^^^ - 64 > printf ("BY VALUE "); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 65 > } else { ----- ^^^^^^^^^^^^^^^ - 66 > printf ("BY REFERENCE "); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 67 > } ----- ^^^^^^^^ - 68 > str = (char *) cob_get_field_str_buffered (fld); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 69 > if (type == COB_TYPE_ALPHANUMERIC) { ----- ^^^^^^^^^^^^^^^^^^ - 70 sprintf (pic, "X(%d)", size); - 71 printf ("%-11s '%s'", pic, str); ->> Error: Unexpected pseudotext - -run_misc.at-12158-cmod.c:70.23-70.30: - 67 } - 68 str = (char *) cob_get_field_str_buffered (fld); - 69 if (type == COB_TYPE_ALPHANUMERIC) { - 70 > sprintf (pic, "X(%d)", size); ----- ^^^^^^^ - 71 printf ("%-11s '%s'", pic, str); - 72 cob_put_field_str (fld, "Bye!"); ->> Error: Missing PICTURE string (got `"X(%d)"' instead) - -run_misc.at-12158-cmod.c:73.22-76.24: - 70 sprintf (pic, "X(%d)", size); - 71 printf ("%-11s '%s'", pic, str); - 72 cob_put_field_str (fld, "Bye!"); - 73 > } else if (type == COB_TYPE_NATIONAL) { ----- ^^ - 74 > sprintf (pic,"N(%d)",size); /* FIXME */ ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 75 > printf ("exchange of national data is not supported yet"); ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 76 > } else if (type == COB_TYPE_GROUP) { ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 77 sprintf (pic,"(%d)",size); - 78 printf ("%-11s '%.*s'",pic,size,str); ->> Error: Unexpected pseudotext - -run_misc.at-12158-cmod.c:77.22-77.28: - 74 sprintf (pic,"N(%d)",size); /* FIXME */ - 75 printf ("exchange of national data is not supported yet"); - 76 } else if (type == COB_TYPE_GROUP) { - 77 > sprintf (pic,"(%d)",size); ----- ^^^^^^ - 78 printf ("%-11s '%.*s'",pic,size,str); - 79 cob_put_field_str (fld, "Bye-Bye Birdie!"); ->> Error: Missing PICTURE string (got `"(%d)"' instead) - -run_misc.at-12158-cmod.c:6.7-6.11: - 3 #include - 4 #include - 5 - 6 > static char * ----- ^^^^ - 7 getType (int type, int byvalue) - 8 { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12158:0 -run_misc.at-12158-prog.cob:33.29-33.35: - 30 MOVE "Hello!" TO CHRX. - 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 33 > CALL "CAPI" USING LENGTH OF GRPX. ----- ^^^^^^ - 34 CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. - 35 CALL "CAPI" USING "Fred Fish", COMP3. ->> Error: Invalid syntax - -run_misc.at-12158-prog.cob:34.43-34.49: - 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. - 33 CALL "CAPI" USING LENGTH OF GRPX. - 34 > CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. ----- ^^^^^^ - 35 CALL "CAPI" USING "Fred Fish", COMP3. - 36 CALL "CAPI" USING COMP3V99. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12247:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12343:0 -run_misc.at-12343-prog.cob:26.18-26.27: - 23 05 DBI-RECORD-NAMES - 24 OCCURS 7 TIMES - 25 INDEXED BY REC-NAME-IDX - 26 > ASCENDING KEY IS DBI-RECORD-NAME ----- ^^^^^^^^^ - 27 . - 28 10 DBI-RECORD-NAME PIC X(30). ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12417:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12510:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12574:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12666:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12742:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12832:0 -run_misc.at-12832-prog.cob:2.7-2.11: - 1 - 2 > $SET CONSTANT DOGGY "Barky" ----- ^^^^ - 3 $SET CONSTANT PONY "Blacky" - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -run_misc.at-12832-prog.cob:8.35: - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 $SET CONSTANT PONY "White" ->> Hint: Missing - -run_misc.at-12832-prog.cob:8.36-8.41: - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 $SET CONSTANT PONY "White" ->> Error: Invalid syntax - -run_misc.at-12832-prog.cob:9.35: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^ - 10 $SET CONSTANT PONY "White" - 11 * ->> Hint: Missing - -run_misc.at-12832-prog.cob:9.36-9.40: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^^^^ - 10 $SET CONSTANT PONY "White" - 11 * ->> Error: Invalid syntax - -run_misc.at-12832-prog.cob:10.7-10.11: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 > $SET CONSTANT PONY "White" ----- ^^^^ - 11 * - 12 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12843:0 -run_misc.at-12843-prog2.cob:2.7-2.35: - 1 - 2 > >>SET CONSTANT DOGGY "Barky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 >>SET CONSTANT PONY "Blacky" - 4 IDENTIFICATION DIVISION. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12843-prog2.cob:3.7-3.35: - 1 - 2 >>SET CONSTANT DOGGY "Barky" - 3 > >>SET CONSTANT PONY "Blacky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog2. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12843-prog2.cob:8.35: - 5 PROGRAM-ID. prog2. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>SET CONSTANT PONY "White" ->> Hint: Missing - -run_misc.at-12843-prog2.cob:8.36-8.41: - 5 PROGRAM-ID. prog2. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>SET CONSTANT PONY "White" ->> Error: Invalid syntax - -run_misc.at-12843-prog2.cob:9.35: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^ - 10 >>SET CONSTANT PONY "White" - 11 * ->> Hint: Missing - -run_misc.at-12843-prog2.cob:9.36-9.40: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^^^^ - 10 >>SET CONSTANT PONY "White" - 11 * ->> Error: Invalid syntax - -run_misc.at-12843-prog2.cob:10.7-10.34: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 > >>SET CONSTANT PONY "White" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 * - 12 PROCEDURE DIVISION. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12854:0 -run_misc.at-12854-prog3.cob:2.7-2.38: - 1 - 2 > >>DEFINE CONSTANT DOGGY "Barky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 >>DEFINE CONSTANT PONY "Blacky" - 4 IDENTIFICATION DIVISION. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12854-prog3.cob:3.7-3.38: - 1 - 2 >>DEFINE CONSTANT DOGGY "Barky" - 3 > >>DEFINE CONSTANT PONY "Blacky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog3. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12854-prog3.cob:8.35: - 5 PROGRAM-ID. prog3. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE ->> Hint: Missing - -run_misc.at-12854-prog3.cob:8.36-8.41: - 5 PROGRAM-ID. prog3. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE ->> Error: Invalid syntax - -run_misc.at-12854-prog3.cob:9.35: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^ - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE - 11 * ->> Hint: Missing - -run_misc.at-12854-prog3.cob:9.36-9.40: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^^^^ - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE - 11 * ->> Error: Invalid syntax - -run_misc.at-12854-prog3.cob:10.7-10.46: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 > >>DEFINE CONSTANT PONY "White" OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 * - 12 PROCEDURE DIVISION. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12917:0 -run_misc.at-12917-prog.cob:5.7-5.35: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 > >>SET CONSTANT DOGGY "Pluto" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 >>SET CONSTANT PONY "Piper" - 7 WORKING-STORAGE SECTION. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:6.7-6.34: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 >>SET CONSTANT DOGGY "Pluto" - 6 > >>SET CONSTANT PONY "Piper" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:8.35: - 5 >>SET CONSTANT DOGGY "Pluto" - 6 >>SET CONSTANT PONY "Piper" - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE ->> Hint: Missing - -run_misc.at-12917-prog.cob:8.36-8.41: - 5 >>SET CONSTANT DOGGY "Pluto" - 6 >>SET CONSTANT PONY "Piper" - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE ->> Error: Invalid syntax - -run_misc.at-12917-prog.cob:10.7-10.44: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 - 10 > >>DEFINE DPONY AS PARAMETER OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 >>IF DPONY IS NOT DEFINED - 12 >>DEFINE DPONY AS "No Dpony" ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:11.7-11.32: - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE - 11 > >>IF DPONY IS NOT DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 >>DEFINE DPONY AS "No Dpony" - 13 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:12.7-12.35: - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE - 11 >>IF DPONY IS NOT DEFINED - 12 > >>DEFINE DPONY AS "No Dpony" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 >>END-IF - 14 01 CNSPONY CONSTANT FROM DPONY. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:13.7-13.15: - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE - 11 >>IF DPONY IS NOT DEFINED - 12 >>DEFINE DPONY AS "No Dpony" - 13 > >>END-IF ----- ^^^^^^^^ - 14 01 CNSPONY CONSTANT FROM DPONY. - 15 ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:16.7-16.45: - 13 >>END-IF - 14 01 CNSPONY CONSTANT FROM DPONY. - 15 - 16 > >>DEFINE ENVPONY AS PARAMETER OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 17 >>IF ENVPONY IS NOT DEFINED - 18 >>DEFINE ENVPONY AS "No EnvPony" ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:17.7-17.34: - 14 01 CNSPONY CONSTANT FROM DPONY. - 15 - 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE - 17 > >>IF ENVPONY IS NOT DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:18.7-18.39: - 15 - 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE - 17 >>IF ENVPONY IS NOT DEFINED - 18 > >>DEFINE ENVPONY AS "No EnvPony" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 19 >>END-IF - 20 01 HORSE CONSTANT FROM ENVPONY. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:19.7-19.15: - 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE - 17 >>IF ENVPONY IS NOT DEFINED - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 > >>END-IF ----- ^^^^^^^^ - 20 01 HORSE CONSTANT FROM ENVPONY. - 21 77 MYHORSE PIC X(12) VALUE HORSE . ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:21.37: - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 >>END-IF - 20 01 HORSE CONSTANT FROM ENVPONY. - 21 > 77 MYHORSE PIC X(12) VALUE HORSE . ----- ^ - 22 77 MYPONYENV PIC X(12). - 23 * ->> Hint: Missing - -run_misc.at-12917-prog.cob:21.38-21.43: - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 >>END-IF - 20 01 HORSE CONSTANT FROM ENVPONY. - 21 > 77 MYHORSE PIC X(12) VALUE HORSE . ----- ^^^^^ - 22 77 MYPONYENV PIC X(12). - 23 * ->> Error: Invalid syntax - -run_misc.at-12917-prog.cob:27.33: - 24 PROCEDURE DIVISION. - 25 MAIN. - 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME - 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. ----- ^ - 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". - 29 DISPLAY "1st Dog's name is " DOGGY ";". ->> Hint: Missing - -run_misc.at-12917-prog.cob:27.34-27.51: - 24 PROCEDURE DIVISION. - 25 MAIN. - 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME - 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. ----- ^^^^^^^^^^^^^^^^^ - 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". - 29 DISPLAY "1st Dog's name is " DOGGY ";". ->> Error: Invalid syntax - -run_misc.at-12917-prog.cob:31.7-31.30: - 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". - 29 DISPLAY "1st Dog's name is " DOGGY ";". - 30 DISPLAY "2nd Dog's name is " PONY ";". - 31 > >>IF ENVPONY IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". - 33 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:33.7-33.13: - 30 DISPLAY "2nd Dog's name is " PONY ";". - 31 >>IF ENVPONY IS DEFINED - 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". - 33 > >>ELSE ----- ^^^^^^ - 34 DISPLAY "ENVPONY was NOT DEFINED;". - 35 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:35.7-35.15: - 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". - 33 >>ELSE - 34 DISPLAY "ENVPONY was NOT DEFINED;". - 35 > >>END-IF ----- ^^^^^^^^ - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 >>IF ENVPONY = "WHITE" ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:37.7-37.29: - 34 DISPLAY "ENVPONY was NOT DEFINED;". - 35 >>END-IF - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 > >>IF ENVPONY = "WHITE" ----- ^^^^^^^^^^^^^^^^^^^^^^ - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:38.7-38.55: - 35 >>END-IF - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 >>IF ENVPONY = "WHITE" - 38 > >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 39 >>ELSE - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:39.7-39.13: - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 >>IF ENVPONY = "WHITE" - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 > >>ELSE ----- ^^^^^^ - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE - 41 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:40.7-40.57: - 37 >>IF ENVPONY = "WHITE" - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 >>ELSE - 40 > >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 41 >>END-IF - 42 DISPLAY "My pony is " PONY ";". ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:41.7-41.15: - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 >>ELSE - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE - 41 > >>END-IF ----- ^^^^^^^^ - 42 DISPLAY "My pony is " PONY ";". - 43 >>IF DPONY IS DEFINED ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:43.7-43.28: - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE - 41 >>END-IF - 42 DISPLAY "My pony is " PONY ";". - 43 > >>IF DPONY IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^ - 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". - 45 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12917-prog.cob:45.7-45.15: - 42 DISPLAY "My pony is " PONY ";". - 43 >>IF DPONY IS DEFINED - 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". - 45 > >>END-IF ----- ^^^^^^^^ - 46 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12983:0 -run_misc.at-12983-prog.cob:5.7-5.35: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 > >>SET CONSTANT DOGGY "Pluto" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 >>SET CONSTANT PONY "Piper" - 7 WORKING-STORAGE SECTION. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:6.7-6.34: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 >>SET CONSTANT DOGGY "Pluto" - 6 > >>SET CONSTANT PONY "Piper" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:8.35: - 5 >>SET CONSTANT DOGGY "Pluto" - 6 >>SET CONSTANT PONY "Piper" - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE ->> Hint: Missing - -run_misc.at-12983-prog.cob:8.36-8.41: - 5 >>SET CONSTANT DOGGY "Pluto" - 6 >>SET CONSTANT PONY "Piper" - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE ->> Error: Invalid syntax - -run_misc.at-12983-prog.cob:10.7-10.44: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 - 10 > >>DEFINE DPONY AS PARAMETER OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 >>IF DPONY IS NOT DEFINED - 12 >>DEFINE DPONY AS "No Dpony" ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:11.7-11.32: - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE - 11 > >>IF DPONY IS NOT DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 >>DEFINE DPONY AS "No Dpony" - 13 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:12.7-12.35: - 9 - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE - 11 >>IF DPONY IS NOT DEFINED - 12 > >>DEFINE DPONY AS "No Dpony" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 >>END-IF - 14 01 CNSPONY CONSTANT FROM DPONY. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:13.7-13.15: - 10 >>DEFINE DPONY AS PARAMETER OVERRIDE - 11 >>IF DPONY IS NOT DEFINED - 12 >>DEFINE DPONY AS "No Dpony" - 13 > >>END-IF ----- ^^^^^^^^ - 14 01 CNSPONY CONSTANT FROM DPONY. - 15 ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:16.7-16.45: - 13 >>END-IF - 14 01 CNSPONY CONSTANT FROM DPONY. - 15 - 16 > >>DEFINE ENVPONY AS PARAMETER OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 17 >>IF ENVPONY IS NOT DEFINED - 18 >>DEFINE ENVPONY AS "No EnvPony" ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:17.7-17.34: - 14 01 CNSPONY CONSTANT FROM DPONY. - 15 - 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE - 17 > >>IF ENVPONY IS NOT DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:18.7-18.39: - 15 - 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE - 17 >>IF ENVPONY IS NOT DEFINED - 18 > >>DEFINE ENVPONY AS "No EnvPony" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 19 >>END-IF - 20 01 HORSE CONSTANT FROM ENVPONY. ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:19.7-19.15: - 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE - 17 >>IF ENVPONY IS NOT DEFINED - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 > >>END-IF ----- ^^^^^^^^ - 20 01 HORSE CONSTANT FROM ENVPONY. - 21 77 MYHORSE PIC X(12) VALUE HORSE . ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:21.37: - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 >>END-IF - 20 01 HORSE CONSTANT FROM ENVPONY. - 21 > 77 MYHORSE PIC X(12) VALUE HORSE . ----- ^ - 22 77 MYPONYENV PIC X(12). - 23 * ->> Hint: Missing - -run_misc.at-12983-prog.cob:21.38-21.43: - 18 >>DEFINE ENVPONY AS "No EnvPony" - 19 >>END-IF - 20 01 HORSE CONSTANT FROM ENVPONY. - 21 > 77 MYHORSE PIC X(12) VALUE HORSE . ----- ^^^^^ - 22 77 MYPONYENV PIC X(12). - 23 * ->> Error: Invalid syntax - -run_misc.at-12983-prog.cob:27.33: - 24 PROCEDURE DIVISION. - 25 MAIN. - 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME - 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. ----- ^ - 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". - 29 DISPLAY "1st Dog's name is " DOGGY ";". ->> Hint: Missing - -run_misc.at-12983-prog.cob:27.34-27.51: - 24 PROCEDURE DIVISION. - 25 MAIN. - 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME - 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. ----- ^^^^^^^^^^^^^^^^^ - 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". - 29 DISPLAY "1st Dog's name is " DOGGY ";". ->> Error: Invalid syntax - -run_misc.at-12983-prog.cob:31.7-31.30: - 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". - 29 DISPLAY "1st Dog's name is " DOGGY ";". - 30 DISPLAY "2nd Dog's name is " PONY ";". - 31 > >>IF ENVPONY IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". - 33 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:33.7-33.13: - 30 DISPLAY "2nd Dog's name is " PONY ";". - 31 >>IF ENVPONY IS DEFINED - 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". - 33 > >>ELSE ----- ^^^^^^ - 34 DISPLAY "ENVPONY was NOT DEFINED;". - 35 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:35.7-35.15: - 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". - 33 >>ELSE - 34 DISPLAY "ENVPONY was NOT DEFINED;". - 35 > >>END-IF ----- ^^^^^^^^ - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 >>IF ENVPONY = "WHITE" ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:37.7-37.29: - 34 DISPLAY "ENVPONY was NOT DEFINED;". - 35 >>END-IF - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 > >>IF ENVPONY = "WHITE" ----- ^^^^^^^^^^^^^^^^^^^^^^ - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 >>ELSE ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:38.7-38.55: - 35 >>END-IF - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 >>IF ENVPONY = "WHITE" - 38 > >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 39 >>ELSE - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:39.7-39.13: - 36 DISPLAY "DPONY set to " CNSPONY ";". - 37 >>IF ENVPONY = "WHITE" - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 > >>ELSE ----- ^^^^^^ - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE - 41 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:40.7-40.57: - 37 >>IF ENVPONY = "WHITE" - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 >>ELSE - 40 > >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 41 >>END-IF - 42 DISPLAY "My pony is " PONY ";". ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:41.7-41.15: - 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE - 39 >>ELSE - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE - 41 > >>END-IF ----- ^^^^^^^^ - 42 DISPLAY "My pony is " PONY ";". - 43 >>IF DPONY IS DEFINED ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:43.7-43.28: - 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE - 41 >>END-IF - 42 DISPLAY "My pony is " PONY ";". - 43 > >>IF DPONY IS DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^ - 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". - 45 >>END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-12983-prog.cob:45.7-45.15: - 42 DISPLAY "My pony is " PONY ";". - 43 >>IF DPONY IS DEFINED - 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". - 45 > >>END-IF ----- ^^^^^^^^ - 46 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13049:0 -run_misc.at-13049-prog.cob:14.30-14.31: - 11 05 FLD4 PIC X(4). - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:14.36-14.37: - 11 05 FLD4 PIC X(4). - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:14.65: - 11 05 FLD4 PIC X(4). - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. ->> Hint: Missing FROM - -run_misc.at-13049-prog.cob:14.65-14.66: - 11 05 FLD4 PIC X(4). - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:15.27-15.30: - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^^^ - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:15.37-15.38: - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^ - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:15.57: - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^ - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. ->> Hint: Missing FROM - -run_misc.at-13049-prog.cob:15.57-15.58: - 12 05 FLD5 PIC X(4). - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^ - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:16.35: - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 17 78 DIV1 VALUE 100 / 3. - 18 78 NUM2 VALUE 1 + 2 * 3. ->> Hint: Missing - -run_misc.at-13049-prog.cob:16.36-16.41: - 13 01 PICX PIC XXX VALUE 'Abc'. - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 17 78 DIV1 VALUE 100 / 3. - 18 78 NUM2 VALUE 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:17.31-17.32: - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 > 78 DIV1 VALUE 100 / 3. ----- ^ - 18 78 NUM2 VALUE 1 + 2 * 3. - 19 LINKAGE SECTION. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:17.34: - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 > 78 DIV1 VALUE 100 / 3. ----- ^ - 18 78 NUM2 VALUE 1 + 2 * 3. - 19 LINKAGE SECTION. ->> Hint: Missing FROM - -run_misc.at-13049-prog.cob:17.34-17.35: - 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 > 78 DIV1 VALUE 100 / 3. ----- ^ - 18 78 NUM2 VALUE 1 + 2 * 3. - 19 LINKAGE SECTION. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:18.29-18.30: - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. - 18 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 19 LINKAGE SECTION. - 20 01 XMYREC. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:18.33-18.34: - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. - 18 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 19 LINKAGE SECTION. - 20 01 XMYREC. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:18.36: - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. - 18 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 19 LINKAGE SECTION. - 20 01 XMYREC. ->> Hint: Missing FROM - -run_misc.at-13049-prog.cob:18.36-18.37: - 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 16 01 THEDOG PIC X(6) VALUE DOGGY. - 17 78 DIV1 VALUE 100 / 3. - 18 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 19 LINKAGE SECTION. - 20 01 XMYREC. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:23.31: - 20 01 XMYREC. - 21 05 XFLD1 PIC 9(2). - 22 05 XFLD2 PIC X(7). - 23 > 78 XPOS3 VALUE NEXT. ----- ^ - 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. - 25 78 XPOS4 VALUE NEXT. ->> Hint: Missing - -run_misc.at-13049-prog.cob:23.32-23.36: - 20 01 XMYREC. - 21 05 XFLD1 PIC 9(2). - 22 05 XFLD2 PIC X(7). - 23 > 78 XPOS3 VALUE NEXT. ----- ^^^^ - 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. - 25 78 XPOS4 VALUE NEXT. ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:25.31: - 22 05 XFLD2 PIC X(7). - 23 78 XPOS3 VALUE NEXT. - 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. - 25 > 78 XPOS4 VALUE NEXT. ----- ^ - 26 05 XFLD4 PIC X(4). - 27 05 XFLD5 PIC X(4). ->> Hint: Missing - -run_misc.at-13049-prog.cob:25.32-25.36: - 22 05 XFLD2 PIC X(7). - 23 78 XPOS3 VALUE NEXT. - 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. - 25 > 78 XPOS4 VALUE NEXT. ----- ^^^^ - 26 05 XFLD4 PIC X(4). - 27 05 XFLD5 PIC X(4). ->> Error: Invalid syntax - -run_misc.at-13049-prog.cob:28.27: - 25 78 XPOS4 VALUE NEXT. - 26 05 XFLD4 PIC X(4). - 27 05 XFLD5 PIC X(4). - 28 > 78 XSTRT4 VALUE START OF XFLD4. ----- ^ - 29 * - 30 PROCEDURE DIVISION. ->> Hint: Missing - -run_misc.at-13049-prog.cob:28.28-28.33: - 25 78 XPOS4 VALUE NEXT. - 26 05 XFLD4 PIC X(4). - 27 05 XFLD5 PIC X(4). - 28 > 78 XSTRT4 VALUE START OF XFLD4. ----- ^^^^^ - 29 * - 30 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13127:0 -run_misc.at-13127-prog.cob:2.7-2.32: - 1 - 2 > >>DEFINE MYDOG AS "Piper" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 >>DEFINE MYNUM1 AS 11 - 4 IDENTIFICATION DIVISION. ->> Error: Malformed or unknown compiler directive - -run_misc.at-13127-prog.cob:3.7-3.28: - 1 - 2 >>DEFINE MYDOG AS "Piper" - 3 > >>DEFINE MYNUM1 AS 11 ----- ^^^^^^^^^^^^^^^^^^^^^ - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog. ->> Error: Malformed or unknown compiler directive - -run_misc.at-13127-prog.cob:15.29: - 12 05 FLD4 PIC X(4). - 13 05 FLD5 PIC X(4). - 14 01 PICX PIC XXX VALUE 'Abc'. - 15 > 01 CAT CONSTANT 'Cat '. ----- ^ - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. ->> Hint: Missing RECORD - -run_misc.at-13127-prog.cob:15.31-15.37: - 12 05 FLD4 PIC X(4). - 13 05 FLD5 PIC X(4). - 14 01 PICX PIC XXX VALUE 'Abc'. - 15 > 01 CAT CONSTANT 'Cat '. ----- ^^^^^^ - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:16.29: - 13 05 FLD5 PIC X(4). - 14 01 PICX PIC XXX VALUE 'Abc'. - 15 01 CAT CONSTANT 'Cat '. - 16 > 01 DOG CONSTANT 'Dog '. ----- ^ - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ->> Hint: Missing RECORD - -run_misc.at-13127-prog.cob:16.31-16.37: - 13 05 FLD5 PIC X(4). - 14 01 PICX PIC XXX VALUE 'Abc'. - 15 01 CAT CONSTANT 'Cat '. - 16 > 01 DOG CONSTANT 'Dog '. ----- ^^^^^^ - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:17.29: - 14 01 PICX PIC XXX VALUE 'Abc'. - 15 01 CAT CONSTANT 'Cat '. - 16 01 DOG CONSTANT 'Dog '. - 17 > 01 YARD CONSTANT CAT & "& " & DOG. ----- ^ - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ->> Hint: Missing RECORD - -run_misc.at-13127-prog.cob:17.31-17.34: - 14 01 PICX PIC XXX VALUE 'Abc'. - 15 01 CAT CONSTANT 'Cat '. - 16 01 DOG CONSTANT 'Dog '. - 17 > 01 YARD CONSTANT CAT & "& " & DOG. ----- ^^^ - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:18.30-18.31: - 15 01 CAT CONSTANT 'Cat '. - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:18.36-18.37: - 15 01 CAT CONSTANT 'Cat '. - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:18.65: - 15 01 CAT CONSTANT 'Cat '. - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. ->> Hint: Missing FROM - -run_misc.at-13127-prog.cob:18.65-18.66: - 15 01 CAT CONSTANT 'Cat '. - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. ----- ^ - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:19.27-19.30: - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^^^ - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:19.37-19.38: - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^ - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:19.57: - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^ - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. ->> Hint: Missing FROM - -run_misc.at-13127-prog.cob:19.57-19.58: - 16 01 DOG CONSTANT 'Dog '. - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. ----- ^ - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:20.31-20.32: - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 > 78 DIV1 VALUE 100 / 3. ----- ^ - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:20.34: - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 > 78 DIV1 VALUE 100 / 3. ----- ^ - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ->> Hint: Missing FROM - -run_misc.at-13127-prog.cob:20.34-20.35: - 17 01 YARD CONSTANT CAT & "& " & DOG. - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 > 78 DIV1 VALUE 100 / 3. ----- ^ - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:21.29-21.30: - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:21.33-21.34: - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:21.36: - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. ->> Hint: Missing FROM - -run_misc.at-13127-prog.cob:21.36-21.37: - 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 > 78 NUM2 VALUE 1 + 2 * 3. ----- ^ - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:22.29: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Hint: Missing RECORD . - -run_misc.at-13127-prog.cob:22.30-22.34: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^^^^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:22.34: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Hint: Missing . - -run_misc.at-13127-prog.cob:22.35-22.36: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:22.38-22.39: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:22.47: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Hint: Missing RENAMES . - -run_misc.at-13127-prog.cob:22.46-22.47: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:22.51-22.52: - 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. - 20 78 DIV1 VALUE 100 / 3. - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). ----- ^ - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 01 CON5 CONSTANT 1 + 2 * 3. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:24.29: - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 > 01 CON5 CONSTANT 1 + 2 * 3. ----- ^ - 25 01 DOGNAME CONSTANT FROM MYDOG. - 26 01 NUM1 CONSTANT FROM MYNUM1. ->> Hint: Missing RECORD . - -run_misc.at-13127-prog.cob:24.30-24.31: - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 > 01 CON5 CONSTANT 1 + 2 * 3. ----- ^ - 25 01 DOGNAME CONSTANT FROM MYDOG. - 26 01 NUM1 CONSTANT FROM MYNUM1. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:24.31: - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 > 01 CON5 CONSTANT 1 + 2 * 3. ----- ^ - 25 01 DOGNAME CONSTANT FROM MYDOG. - 26 01 NUM1 CONSTANT FROM MYNUM1. ->> Hint: Missing . - -run_misc.at-13127-prog.cob:24.32-24.33: - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 > 01 CON5 CONSTANT 1 + 2 * 3. ----- ^ - 25 01 DOGNAME CONSTANT FROM MYDOG. - 26 01 NUM1 CONSTANT FROM MYNUM1. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:24.35: - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 > 01 CON5 CONSTANT 1 + 2 * 3. ----- ^ - 25 01 DOGNAME CONSTANT FROM MYDOG. - 26 01 NUM1 CONSTANT FROM MYNUM1. ->> Hint: Missing . - -run_misc.at-13127-prog.cob:24.36-24.37: - 21 78 NUM2 VALUE 1 + 2 * 3. - 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). - 23 01 CON4 CONSTANT AS 3.1416 + CON3. - 24 > 01 CON5 CONSTANT 1 + 2 * 3. ----- ^ - 25 01 DOGNAME CONSTANT FROM MYDOG. - 26 01 NUM1 CONSTANT FROM MYNUM1. ->> Error: Invalid syntax - -run_misc.at-13127-prog.cob:28.7-28.25: - 25 01 DOGNAME CONSTANT FROM MYDOG. - 26 01 NUM1 CONSTANT FROM MYNUM1. - 27 01 CON6 CONSTANT AS CON5 + NUM1. - 28 > >> IF NUM2 DEFINED *> optional passed from command line ----- ^^^^^^^^^^^^^^^^^^ - 29 01 NUM2 CONSTANT FROM MYNUM2. - 30 >> END-IF ->> Error: Malformed or unknown compiler directive - -run_misc.at-13127-prog.cob:30.7-30.16: - 27 01 CON6 CONSTANT AS CON5 + NUM1. - 28 >> IF NUM2 DEFINED *> optional passed from command line - 29 01 NUM2 CONSTANT FROM MYNUM2. - 30 > >> END-IF ----- ^^^^^^^^^ - 31 * - 32 PROCEDURE DIVISION. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13174:0 -run_misc.at-13174-prog.cob:11.25: - 8 DATA DIVISION. - 9 WORKING-STORAGE SECTION. - 10 77 note PIC X(05). - 11 > PROCEDURE DIVISION CHAINING note. ----- ^ - 12 DISPLAY "This is sent to CONSOLE " note UPON CONSOLE. - 13 DISPLAY "This is sent to SYSERR " note UPON SYSERR. ->> Hint: Missing . - -run_misc.at-13174-prog.cob:11.26-11.34: - 8 DATA DIVISION. - 9 WORKING-STORAGE SECTION. - 10 77 note PIC X(05). - 11 > PROCEDURE DIVISION CHAINING note. ----- ^^^^^^^^ - 12 DISPLAY "This is sent to CONSOLE " note UPON CONSOLE. - 13 DISPLAY "This is sent to SYSERR " note UPON SYSERR. ->> Error: Invalid syntax - -run_misc.at-13174-prog.cob:19.12-19.24: - 16 DISPLAY "This is also sent to SYSERR " note UPON SYSERR. - 17 DISPLAY "This is also sent to PRINTER " note UPON PRINTER. - 18 DISPLAY "This is sent to SYSPUNCH " note UPON SYSPUNCH - 19 > ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. ----- ^^^^^^^^^^^^ - 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH - 21 ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. ->> Error: Invalid syntax - -run_misc.at-13174-prog.cob:21.12-21.24: - 18 DISPLAY "This is sent to SYSPUNCH " note UPON SYSPUNCH - 19 ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. - 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH - 21 > ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. ----- ^^^^^^^^^^^^ - 22 STOP RUN RETURNING 0. ->> Error: Invalid syntax - -run_misc.at-13174-prog.cob:22.15: - 19 ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. - 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH - 21 ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. - 22 > STOP RUN RETURNING 0. ----- ^ ->> Hint: Missing . - -run_misc.at-13174-prog.cob:22.16-22.25: - 19 ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. - 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH - 21 ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. - 22 > STOP RUN RETURNING 0. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13228:0 -run_misc.at-13228-reference:1.6-1.7: - 1 > This is sent to PRINTER PIPE. ----- ^ - 2 This is also sent to PRINTER PIPE. - 3 This is sent to PRINTER PRINT ->> Error: Unexpected indicator: `s' - -run_misc.at-13228-reference:2.6-2.7: - 1 This is sent to PRINTER PIPE. - 2 > This is also sent to PRINTER PIPE. ----- ^ - 3 This is sent to PRINTER PRINT - 4 This is also sent to PRINTER PRINT ->> Error: Unexpected indicator: `s' - -run_misc.at-13228-reference:3.6-3.7: - 1 This is sent to PRINTER PIPE. - 2 This is also sent to PRINTER PIPE. - 3 > This is sent to PRINTER PRINT ----- ^ - 4 This is also sent to PRINTER PRINT ->> Error: Unexpected indicator: `s' - -run_misc.at-13228-reference:4.6-4.7: - 1 This is sent to PRINTER PIPE. - 2 This is also sent to PRINTER PIPE. - 3 This is sent to PRINTER PRINT - 4 > This is also sent to PRINTER PRINT ----- ^ ->> Error: Unexpected indicator: `s' - -run_misc.at-13228-reference:1.8-1.12: - 1 > This is sent to PRINTER PIPE. ----- ^^^^ - 2 This is also sent to PRINTER PIPE. - 3 This is sent to PRINTER PRINT ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13389:0 -run_misc.at-13389-prog.cob:15.34: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Hint: Missing ) ) ) . - -run_misc.at-13389-prog.cob:15.32-15.34: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^^ - 16 DISPLAY "A: " FD34 - 17 ->> Error: Invalid syntax - -run_misc.at-13389-prog.cob:15.34: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:15.35-15.36: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:15.43: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:15.42-15.43: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:15.52: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:15.51-15.52: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:15.70: - 12 PROCEDURE DIVISION. - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 16 DISPLAY "A: " FD34 - 17 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:16.11-16.18: - 13 CND-000. - 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 > DISPLAY "A: " FD34 ----- ^^^^^^^ - 17 - 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:18.34: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Hint: Missing ) ) ) . - -run_misc.at-13389-prog.cob:18.32-18.34: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Error: Invalid syntax - -run_misc.at-13389-prog.cob:18.34: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:18.35-18.36: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:18.43: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:18.42-18.43: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:18.52: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:18.51-18.52: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:18.70: - 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 16 DISPLAY "A: " FD34 - 17 - 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:19.11-19.18: - 16 DISPLAY "A: " FD34 - 17 - 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 > DISPLAY "B: " FD34 ----- ^^^^^^^ - 20 MOVE ZERO TO FD34. - 21 COMPUTE FD34 = 1.0E3 / 2.1E0 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:21.31: - 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. - 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" ->> Hint: Missing . - -run_misc.at-13389-prog.cob:21.29-21.31: - 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. - 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 ----- ^^ - 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:21.31: - 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. - 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" ->> Hint: Missing . - -run_misc.at-13389-prog.cob:21.32-21.33: - 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. - 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:21.39: - 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. - 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" ->> Hint: Missing . - -run_misc.at-13389-prog.cob:22.19-22.32: - 19 DISPLAY "B: " FD34 - 20 MOVE ZERO TO FD34. - 21 COMPUTE FD34 = 1.0E3 / 2.1E0 - 22 > ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" ----- ^^^^^^^^^^^^^ - 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" - 24 END-COMPUTE. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:23.15-23.32: - 20 MOVE ZERO TO FD34. - 21 COMPUTE FD34 = 1.0E3 / 2.1E0 - 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" - 23 > NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" ----- ^^^^^^^^^^^^^^^^^ - 24 END-COMPUTE. - 25 ->> Error: Invalid syntax - -run_misc.at-13389-prog.cob:24.11-24.22: - 21 COMPUTE FD34 = 1.0E3 / 2.1E0 - 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" - 24 > END-COMPUTE. ----- ^^^^^^^^^^^ - 25 - 26 DISPLAY " ..." ->> Error: Invalid syntax - -run_misc.at-13389-prog.cob:28.34: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Hint: Missing ) ) ) . - -run_misc.at-13389-prog.cob:28.32-28.34: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^^ - 29 DISPLAY "A: " FD16 - 30 ->> Error: Invalid syntax - -run_misc.at-13389-prog.cob:28.34: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:28.35-28.36: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:28.43: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:28.42-28.43: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:28.52: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:28.51-28.52: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:28.70: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 DISPLAY "A: " FD16 - 30 ->> Hint: Missing . - -run_misc.at-13389-prog.cob:29.11-29.18: - 26 DISPLAY " ..." - 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 > DISPLAY "A: " FD16 ----- ^^^^^^^ - 30 - 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:31.34: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Hint: Missing ) ) ) . - -run_misc.at-13389-prog.cob:31.32-31.34: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Error: Invalid syntax - -run_misc.at-13389-prog.cob:31.34: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:31.35-31.36: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:31.43: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:31.42-31.43: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:31.52: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:31.51-31.52: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:31.70: - 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 DISPLAY "A: " FD16 - 30 - 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. ->> Hint: Missing . - -run_misc.at-13389-prog.cob:32.11-32.18: - 29 DISPLAY "A: " FD16 - 30 - 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 32 > DISPLAY "B: " FD16 ----- ^^^^^^^ - 33 MOVE ZERO TO FD16. - 34 COMPUTE FD16 = 1.0E3 / 2.1E0 ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:34.31: - 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. - 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 ----- ^ - 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" - 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" ->> Hint: Missing . - -run_misc.at-13389-prog.cob:34.29-34.31: - 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. - 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 ----- ^^ - 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" - 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:34.31: - 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. - 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 ----- ^ - 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" - 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" ->> Hint: Missing . - -run_misc.at-13389-prog.cob:34.32-34.33: - 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. - 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 ----- ^ - 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" - 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:34.39: - 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. - 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 ----- ^ - 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" - 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" ->> Hint: Missing . - -run_misc.at-13389-prog.cob:35.19-35.32: - 32 DISPLAY "B: " FD16 - 33 MOVE ZERO TO FD16. - 34 COMPUTE FD16 = 1.0E3 / 2.1E0 - 35 > ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" ----- ^^^^^^^^^^^^^ - 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" - 37 END-COMPUTE. ->> Warning: Invalid syntax - -run_misc.at-13389-prog.cob:36.15-36.32: - 33 MOVE ZERO TO FD16. - 34 COMPUTE FD16 = 1.0E3 / 2.1E0 - 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" - 36 > NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" ----- ^^^^^^^^^^^^^^^^^ - 37 END-COMPUTE. - 38 ->> Error: Invalid syntax - -run_misc.at-13389-prog.cob:37.11-37.22: - 34 COMPUTE FD16 = 1.0E3 / 2.1E0 - 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" - 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" - 37 > END-COMPUTE. ----- ^^^^^^^^^^^ - 38 - 39 DISPLAY " ..." ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13590:0 -run_misc.at-13590-prog.cob:16.34: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Hint: Missing ) ) ) . - -run_misc.at-13590-prog.cob:16.32-16.34: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Error: Invalid syntax - -run_misc.at-13590-prog.cob:16.34: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Hint: Missing . - -run_misc.at-13590-prog.cob:16.35-16.36: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:16.43: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Hint: Missing . - -run_misc.at-13590-prog.cob:16.42-16.43: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:16.52: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Hint: Missing . - -run_misc.at-13590-prog.cob:16.51-16.52: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:16.70: - 13 CND-000. - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ->> Hint: Missing . - -run_misc.at-13590-prog.cob:17.11-17.18: - 14 - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 > DISPLAY "A: " CMP1 ----- ^^^^^^^ - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " CMP1 ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:18.34: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Hint: Missing ) ) ) . - -run_misc.at-13590-prog.cob:18.32-18.34: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Error: Invalid syntax - -run_misc.at-13590-prog.cob:18.34: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Hint: Missing . - -run_misc.at-13590-prog.cob:18.35-18.36: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:18.43: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Hint: Missing . - -run_misc.at-13590-prog.cob:18.42-18.43: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:18.52: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Hint: Missing . - -run_misc.at-13590-prog.cob:18.51-18.52: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:18.70: - 15 DISPLAY "--- COMP-1 ---" - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. ->> Hint: Missing . - -run_misc.at-13590-prog.cob:19.11-19.18: - 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 17 DISPLAY "A: " CMP1 - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 > DISPLAY "B: " CMP1 ----- ^^^^^^^ - 20 MOVE ZERO TO CMP1. - 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:21.31: - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. - 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" ->> Hint: Missing . - -run_misc.at-13590-prog.cob:21.29-21.31: - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. - 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 ----- ^^ - 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:21.31: - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. - 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" ->> Hint: Missing . - -run_misc.at-13590-prog.cob:21.32-21.33: - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. - 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:21.39: - 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. - 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 ----- ^ - 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" ->> Hint: Missing . - -run_misc.at-13590-prog.cob:22.19-22.32: - 19 DISPLAY "B: " CMP1 - 20 MOVE ZERO TO CMP1. - 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 - 22 > ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" ----- ^^^^^^^^^^^^^ - 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" - 24 END-COMPUTE. ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:23.15-23.32: - 20 MOVE ZERO TO CMP1. - 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 - 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" - 23 > NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" ----- ^^^^^^^^^^^^^^^^^ - 24 END-COMPUTE. - 25 ->> Error: Invalid syntax - -run_misc.at-13590-prog.cob:24.11-24.22: - 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 - 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" - 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" - 24 > END-COMPUTE. ----- ^^^^^^^^^^^ - 25 - 26 DISPLAY " ..." ->> Error: Invalid syntax - -run_misc.at-13590-prog.cob:28.34: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Hint: Missing ) ) ) . - -run_misc.at-13590-prog.cob:28.32-28.34: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Error: Invalid syntax - -run_misc.at-13590-prog.cob:28.34: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Hint: Missing . - -run_misc.at-13590-prog.cob:28.35-28.36: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:28.43: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Hint: Missing . - -run_misc.at-13590-prog.cob:28.42-28.43: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:28.52: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Hint: Missing . - -run_misc.at-13590-prog.cob:28.51-28.52: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:28.70: - 25 - 26 DISPLAY " ..." - 27 DISPLAY "--- COMP-2 ---" - 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 ----- ^ - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY ->> Hint: Missing . - -run_misc.at-13590-prog.cob:31.11-31.13: - 28 COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 - 29 *> because of possible rounding of intermediates and different - 30 *> precision depending on math library / version: plain DISPLAY - 31 > IF CMP2 >= 9216586.86175114 AND <= 9216586.86175116 ----- ^^ - 32 DISPLAY "A ~ 9216586.86175115" - 33 ELSE ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:36.34: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Hint: Missing ) ) ) . - -run_misc.at-13590-prog.cob:36.32-36.34: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Error: Invalid syntax - -run_misc.at-13590-prog.cob:36.34: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Hint: Missing . - -run_misc.at-13590-prog.cob:36.35-36.36: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:36.43: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Hint: Missing . - -run_misc.at-13590-prog.cob:36.42-36.43: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:36.52: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Hint: Missing . - -run_misc.at-13590-prog.cob:36.51-36.52: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:36.70: - 33 ELSE - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 ----- ^ - 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 - 38 DISPLAY "B ~ 5305036.787798408" ->> Hint: Missing . - -run_misc.at-13590-prog.cob:37.11-37.13: - 34 DISPLAY "A: " CMP2 - 35 END-IF - 36 COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 - 37 > IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 ----- ^^ - 38 DISPLAY "B ~ 5305036.787798408" - 39 ELSE ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:43.31: - 40 DISPLAY "B: " CMP2 - 41 END-IF - 42 MOVE ZERO TO CMP2. - 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 ----- ^ - 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" - 45 NOT ON SIZE ERROR ->> Hint: Missing . - -run_misc.at-13590-prog.cob:43.29-43.31: - 40 DISPLAY "B: " CMP2 - 41 END-IF - 42 MOVE ZERO TO CMP2. - 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 ----- ^^ - 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" - 45 NOT ON SIZE ERROR ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:43.31: - 40 DISPLAY "B: " CMP2 - 41 END-IF - 42 MOVE ZERO TO CMP2. - 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 ----- ^ - 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" - 45 NOT ON SIZE ERROR ->> Hint: Missing . - -run_misc.at-13590-prog.cob:43.32-43.33: - 40 DISPLAY "B: " CMP2 - 41 END-IF - 42 MOVE ZERO TO CMP2. - 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 ----- ^ - 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" - 45 NOT ON SIZE ERROR ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:43.39: - 40 DISPLAY "B: " CMP2 - 41 END-IF - 42 MOVE ZERO TO CMP2. - 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 ----- ^ - 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" - 45 NOT ON SIZE ERROR ->> Hint: Missing . - -run_misc.at-13590-prog.cob:44.19-44.32: - 41 END-IF - 42 MOVE ZERO TO CMP2. - 43 COMPUTE CMP2 = 1.0E3 / 2.1E0 - 44 > ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" ----- ^^^^^^^^^^^^^ - 45 NOT ON SIZE ERROR - 46 *> see note above ->> Warning: Invalid syntax - -run_misc.at-13590-prog.cob:45.15-45.32: - 42 MOVE ZERO TO CMP2. - 43 COMPUTE CMP2 = 1.0E3 / 2.1E0 - 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" - 45 > NOT ON SIZE ERROR ----- ^^^^^^^^^^^^^^^^^ - 46 *> see note above - 47 IF CMP2 >= 476.1904761904760 AND <= 476.1904761904763 ->> Error: Invalid syntax - -run_misc.at-13590-prog.cob:52.11-52.22: - 49 ELSE - 50 DISPLAY "Z: " CMP2 " IS OK" - 51 END-IF - 52 > END-COMPUTE. ----- ^^^^^^^^^^^ - 53 - 54 DISPLAY " ..." ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13663:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13722:0 -run_misc.at-13722-prog.cob:22.47: - 19 compute doubleValue = doubleValue * 2 - 20 ON SIZE ERROR - 21 display 'SIZE ERROR raised' - 22 > with no advancing upon syserr ----- ^ - 23 end-display - 24 display 'SIZE ERROR, last value = ' doubleValue ->> Hint: Missing END_PERFORM . - -run_misc.at-13722-prog.cob:22.48-22.52: - 19 compute doubleValue = doubleValue * 2 - 20 ON SIZE ERROR - 21 display 'SIZE ERROR raised' - 22 > with no advancing upon syserr ----- ^^^^ - 23 end-display - 24 display 'SIZE ERROR, last value = ' doubleValue ->> Error: Invalid syntax - -run_misc.at-13722-prog.cob:22.59: - 19 compute doubleValue = doubleValue * 2 - 20 ON SIZE ERROR - 21 display 'SIZE ERROR raised' - 22 > with no advancing upon syserr ----- ^ - 23 end-display - 24 display 'SIZE ERROR, last value = ' doubleValue ->> Hint: Missing . - -run_misc.at-13722-prog.cob:23.22-23.33: - 20 ON SIZE ERROR - 21 display 'SIZE ERROR raised' - 22 with no advancing upon syserr - 23 > end-display ----- ^^^^^^^^^^^ - 24 display 'SIZE ERROR, last value = ' doubleValue - 25 upon sysout ->> Warning: Invalid syntax - -run_misc.at-13722-prog.cob:28.15-28.32: - 25 upon sysout - 26 end-display - 27 exit perform - 28 > not ON SIZE ERROR ----- ^^^^^^^^^^^^^^^^^ - 29 if doubleValue > lastdoubleValue - 30 move doubleValue to lastdoubleValue ->> Error: Invalid syntax - -run_misc.at-13722-prog.cob:38.14-38.25: - 35 end-display - 36 exit perform - 37 end-if - 38 > end-compute ----- ^^^^^^^^^^^ - 39 end-perform - 40 if not (counter >= 1023 and <=1025) ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13768:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13799:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13880:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13943:0 -run_misc.at-13943-prog.cob:10.17-10.22: - 7 88 EXT-MODUS VALUES 3, 4. - 8 LINKAGE SECTION. - 9 PROCEDURE DIVISION. - 10 > GO TO ENTRY 'STMT05'. ----- ^^^^^ - 11 MAIN. - 12 GO TO ENTRY 'STMT01' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:12.17-12.22: - 9 PROCEDURE DIVISION. - 10 GO TO ENTRY 'STMT05'. - 11 MAIN. - 12 > GO TO ENTRY 'STMT01' ----- ^^^^^ - 13 'STMT02' - 14 'STMT03' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:20.7-20.12: - 17 DEPENDING ON JUMP-ENTRY - 18 DISPLAY 'NOT JUMPED' - 19 GOBACK. - 20 > ENTRY FOR GO TO 'STMT01' ----- ^^^^^ - 21 DISPLAY 'STMT01' - 22 ENTRY FOR GO TO 'STMT02' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:20.23-20.31: - 17 DEPENDING ON JUMP-ENTRY - 18 DISPLAY 'NOT JUMPED' - 19 GOBACK. - 20 > ENTRY FOR GO TO 'STMT01' ----- ^^^^^^^^ - 21 DISPLAY 'STMT01' - 22 ENTRY FOR GO TO 'STMT02' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:22.7-22.12: - 19 GOBACK. - 20 ENTRY FOR GO TO 'STMT01' - 21 DISPLAY 'STMT01' - 22 > ENTRY FOR GO TO 'STMT02' ----- ^^^^^ - 23 PERFORM 3 TIMES - 24 ENTRY FOR GO TO 'STMT03' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:22.23-22.31: - 19 GOBACK. - 20 ENTRY FOR GO TO 'STMT01' - 21 DISPLAY 'STMT01' - 22 > ENTRY FOR GO TO 'STMT02' ----- ^^^^^^^^ - 23 PERFORM 3 TIMES - 24 ENTRY FOR GO TO 'STMT03' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:24.7-24.12: - 21 DISPLAY 'STMT01' - 22 ENTRY FOR GO TO 'STMT02' - 23 PERFORM 3 TIMES - 24 > ENTRY FOR GO TO 'STMT03' ----- ^^^^^ - 25 DISPLAY 'STMT03' - 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:24.23-24.31: - 21 DISPLAY 'STMT01' - 22 ENTRY FOR GO TO 'STMT02' - 23 PERFORM 3 TIMES - 24 > ENTRY FOR GO TO 'STMT03' ----- ^^^^^^^^ - 25 DISPLAY 'STMT03' - 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:26.7-26.12: - 23 PERFORM 3 TIMES - 24 ENTRY FOR GO TO 'STMT03' - 25 DISPLAY 'STMT03' - 26 > ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' ----- ^^^^^ - 27 IF EXT-MODUS EXIT PERFORM END-IF - 28 END-PERFORM ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:26.23-26.31: - 23 PERFORM 3 TIMES - 24 ENTRY FOR GO TO 'STMT03' - 25 DISPLAY 'STMT03' - 26 > ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' ----- ^^^^^^^^ - 27 IF EXT-MODUS EXIT PERFORM END-IF - 28 END-PERFORM ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:29.7-29.12: - 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' - 27 IF EXT-MODUS EXIT PERFORM END-IF - 28 END-PERFORM - 29 > ENTRY FOR GO TO 'STMT05' ----- ^^^^^ - 30 DISPLAY 'STMT05' - 31 SUBTRACT 1 FROM JUMP-ENTRY ->> Error: Invalid syntax - -run_misc.at-13943-prog.cob:29.23-29.31: - 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' - 27 IF EXT-MODUS EXIT PERFORM END-IF - 28 END-PERFORM - 29 > ENTRY FOR GO TO 'STMT05' ----- ^^^^^^^^ - 30 DISPLAY 'STMT05' - 31 SUBTRACT 1 FROM JUMP-ENTRY ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14022:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14055:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14087:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14174:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14173:0 -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14278:0 -run_misc.at-14278-prog.cob:16.23-16.30: - 13 - 14 * We use a simple wrapper to make it _less_ likely that the - 15 * following "real test" SIGSEGVs during MOVE - 16 > CALL STATIC "progt". ----- ^^^^^^^ - 17 - 18 * we don't expect to ever get here - but this creates more ->> Error: Invalid syntax - -run_misc.at-14278-prog.cob:20.23-20.30: - 17 - 18 * we don't expect to ever get here - but this creates more - 19 * memory space to decrease the likelyness of a SIGSEGV more - 20 > CALL STATIC "dummy". ----- ^^^^^^^ - 21 - 22 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14347:0 -run_misc.at-14347-prog.c:5.6-5.7: - 2 #include - 3 #include - 4 - 5 > #define COUNT_OF(x) (sizeof(x)/sizeof(x[0])) ----- ^ - 6 - 7 struct verify_t { ->> Error: Unexpected indicator: `e' - -run_misc.at-14347-prog.c:9.6-9.7: - 6 - 7 struct verify_t { - 8 char *prog, *packver_prog; - 9 > int patchlev_prog; ----- ^ - 10 } verify[] = { - 11 #include "testdata.h" ->> Error: Unexpected indicator: `p' - -run_misc.at-14347-prog.c:10.6-10.7: - 7 struct verify_t { - 8 char *prog, *packver_prog; - 9 int patchlev_prog; - 10 > } verify[] = { ----- ^ - 11 #include "testdata.h" - 12 }; ->> Error: Unexpected indicator: `f' - -run_misc.at-14347-prog.c:15.6-15.7: - 12 }; - 13 - 14 int - 15 > main(int argc, char *argv[]) ----- ^ - 16 { - 17 struct verify_t *p; ->> Error: Unexpected indicator: `n' - -run_misc.at-14347-prog.c:17.6-17.7: - 14 int - 15 main(int argc, char *argv[]) - 16 { - 17 > struct verify_t *p; ----- ^ - 18 for( p=verify; p < verify + COUNT_OF(verify); p++ ) { - 19 cob_check_version(p->prog, p->packver_prog, p->patchlev_prog); ->> Error: Unexpected indicator: `c' - -run_misc.at-14347-prog.c:19.6-19.7: - 16 { - 17 struct verify_t *p; - 18 for( p=verify; p < verify + COUNT_OF(verify); p++ ) { - 19 > cob_check_version(p->prog, p->packver_prog, p->patchlev_prog); ----- ^ - 20 } - 21 return 0; ->> Error: Unexpected indicator: `b' - -run_misc.at-14347-prog.c:21.6-21.7: - 18 for( p=verify; p < verify + COUNT_OF(verify); p++ ) { - 19 cob_check_version(p->prog, p->packver_prog, p->patchlev_prog); - 20 } - 21 > return 0; ----- ^ - 22 } ->> Error: Unexpected indicator: `r' - -run_misc.at-14347-prog.c:5.8-5.19: - 2 #include - 3 #include - 4 - 5 > #define COUNT_OF(x) (sizeof(x)/sizeof(x[0])) ----- ^^^^^^^^^^^ - 6 - 7 struct verify_t { ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14426:0 -run_misc.at-14426-prog.cob:8.24: - 5 WORKING-STORAGE SECTION. - 6 01 n pic 99 value 89. - 7 01 m pic 99 value 0. - 8 > 01 variable usage signed-int value 0. ----- ^ - 9 88 a-one value 1. - 10 88 a-two value 2. ->> Hint: Missing BINARY - -run_misc.at-14426-prog.cob:8.25-8.35: - 5 WORKING-STORAGE SECTION. - 6 01 n pic 99 value 89. - 7 01 m pic 99 value 0. - 8 > 01 variable usage signed-int value 0. ----- ^^^^^^^^^^ - 9 88 a-one value 1. - 10 88 a-two value 2. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14543:0 -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:122:0 -run_ml.at-122-prog.cob:21.14-21.16: - 18 01 0SpecialTAGName PIC X(3) VALUE "abc". - 19 - 20 01 employee. - 21 > 05 id PIC 9(1) value 1. ----- ^^ - 22 05 name PIC X(10) value "Someone". - 23 05 dept PIC X(10) value "Marketing". ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:26.11-26.14: - 23 05 dept PIC X(10) value "Marketing". - 24 - 25 PROCEDURE DIVISION. - 26 > XML GENERATE out ----- ^^^ - 27 FROM rec - 28 WITH XML-DECLARATION ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:26.27: - 23 05 dept PIC X(10) value "Marketing". - 24 - 25 PROCEDURE DIVISION. - 26 > XML GENERATE out ----- ^ - 27 FROM rec - 28 WITH XML-DECLARATION ->> Hint: Missing . - -run_ml.at-122-prog.cob:27.15-27.19: - 24 - 25 PROCEDURE DIVISION. - 26 XML GENERATE out - 27 > FROM rec ----- ^^^^ - 28 WITH XML-DECLARATION - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:27.23: - 24 - 25 PROCEDURE DIVISION. - 26 XML GENERATE out - 27 > FROM rec ----- ^ - 28 WITH XML-DECLARATION - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; ->> Hint: Missing . - -run_ml.at-122-prog.cob:28.15-28.19: - 25 PROCEDURE DIVISION. - 26 XML GENERATE out - 27 FROM rec - 28 > WITH XML-DECLARATION ----- ^^^^ - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 TYPE OF a IS ATTRIBUTE ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:28.35: - 25 PROCEDURE DIVISION. - 26 XML GENERATE out - 27 FROM rec - 28 > WITH XML-DECLARATION ----- ^ - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 TYPE OF a IS ATTRIBUTE ->> Hint: Missing . - -run_ml.at-122-prog.cob:29.15-29.19: - 26 XML GENERATE out - 27 FROM rec - 28 WITH XML-DECLARATION - 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; ----- ^^^^ - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:29.19: - 26 XML GENERATE out - 27 FROM rec - 28 WITH XML-DECLARATION - 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; ----- ^ - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES ->> Hint: Missing . - -run_ml.at-122-prog.cob:29.20-29.22: - 26 XML GENERATE out - 27 FROM rec - 28 WITH XML-DECLARATION - 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; ----- ^^ - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:29.24: - 26 XML GENERATE out - 27 FROM rec - 28 WITH XML-DECLARATION - 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; ----- ^ - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES ->> Hint: Missing . - -run_ml.at-122-prog.cob:29.25-29.27: - 26 XML GENERATE out - 27 FROM rec - 28 WITH XML-DECLARATION - 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; ----- ^^ - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:29.38: - 26 XML GENERATE out - 27 FROM rec - 28 WITH XML-DECLARATION - 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; ----- ^ - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES ->> Hint: Missing . - -run_ml.at-122-prog.cob:29.39-29.41: - 26 XML GENERATE out - 27 FROM rec - 28 WITH XML-DECLARATION - 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; ----- ^^ - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:30.24: - 27 FROM rec - 28 WITH XML-DECLARATION - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 > TYPE OF a IS ATTRIBUTE ----- ^ - 31 SUPPRESS WHEN SPACES - 32 IF out <> '' & X'0A' ->> Hint: Missing . - -run_ml.at-122-prog.cob:30.25-30.27: - 27 FROM rec - 28 WITH XML-DECLARATION - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 > TYPE OF a IS ATTRIBUTE ----- ^^ - 31 SUPPRESS WHEN SPACES - 32 IF out <> '' & X'0A' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:30.37: - 27 FROM rec - 28 WITH XML-DECLARATION - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 > TYPE OF a IS ATTRIBUTE ----- ^ - 31 SUPPRESS WHEN SPACES - 32 IF out <> '' & X'0A' ->> Hint: Missing . - -run_ml.at-122-prog.cob:31.15-31.23: - 28 WITH XML-DECLARATION - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 TYPE OF a IS ATTRIBUTE - 31 > SUPPRESS WHEN SPACES ----- ^^^^^^^^ - 32 IF out <> '' & X'0A' - 33 & 'BBB' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:31.24-31.28: - 28 WITH XML-DECLARATION - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 TYPE OF a IS ATTRIBUTE - 31 > SUPPRESS WHEN SPACES ----- ^^^^ - 32 IF out <> '' & X'0A' - 33 & 'BBB' ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:32.45-32.46: - 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; - 30 TYPE OF a IS ATTRIBUTE - 31 SUPPRESS WHEN SPACES - 32 > IF out <> '' & X'0A' ----- ^ - 33 & 'BBB' - 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:37.11-37.14: - 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 35 END-IF - 36 - 37 > XML GENERATE out FROM d ----- ^^^ - 38 IF out <> ' ' - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:37.27: - 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 35 END-IF - 36 - 37 > XML GENERATE out FROM d ----- ^ - 38 IF out <> ' ' - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:37.28-37.32: - 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 35 END-IF - 36 - 37 > XML GENERATE out FROM d ----- ^^^^ - 38 IF out <> ' ' - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:37.34: - 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 35 END-IF - 36 - 37 > XML GENERATE out FROM d ----- ^ - 38 IF out <> ' ' - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:38.11-38.13: - 35 END-IF - 36 - 37 XML GENERATE out FROM d - 38 > IF out <> ' ' ----- ^^ - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 40 END-IF ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:42.11-42.14: - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 40 END-IF - 41 - 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. ----- ^^^ - 43 IF out <> '' - 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:42.27: - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 40 END-IF - 41 - 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. ----- ^ - 43 IF out <> '' - 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:42.28-42.32: - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 40 END-IF - 41 - 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. ----- ^^^^ - 43 IF out <> '' - 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:42.34: - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 40 END-IF - 41 - 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. ----- ^ - 43 IF out <> '' - 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:42.36-42.40: - 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 40 END-IF - 41 - 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. ----- ^^^^ - 43 IF out <> '' - 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:49.11-49.14: - 46 - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, ----- ^^^ - 50 b IS CONTENT, d IS CONTENT - 51 IF out <> 'AAABBBCCC' ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:49.27: - 46 - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, ----- ^ - 50 b IS CONTENT, d IS CONTENT - 51 IF out <> 'AAABBBCCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:49.28-49.32: - 46 - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, ----- ^^^^ - 50 b IS CONTENT, d IS CONTENT - 51 IF out <> 'AAABBBCCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:49.36: - 46 - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, ----- ^ - 50 b IS CONTENT, d IS CONTENT - 51 IF out <> 'AAABBBCCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:49.38-49.42: - 46 - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, ----- ^^^^ - 50 b IS CONTENT, d IS CONTENT - 51 IF out <> 'AAABBBCCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:49.47: - 46 - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, ----- ^ - 50 b IS CONTENT, d IS CONTENT - 51 IF out <> 'AAABBBCCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:49.48-49.50: - 46 - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, ----- ^^ - 50 b IS CONTENT, d IS CONTENT - 51 IF out <> 'AAABBBCCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:50.16: - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, - 50 > b IS CONTENT, d IS CONTENT ----- ^ - 51 IF out <> 'AAABBBCCC' - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:50.17-50.19: - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, - 50 > b IS CONTENT, d IS CONTENT ----- ^^ - 51 IF out <> 'AAABBBCCC' - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:50.30: - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, - 50 > b IS CONTENT, d IS CONTENT ----- ^ - 51 IF out <> 'AAABBBCCC' - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:50.31-50.33: - 47 MOVE ALL 'A' TO a - 48 MOVE ALL 'C' TO c - 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, - 50 > b IS CONTENT, d IS CONTENT ----- ^^ - 51 IF out <> 'AAABBBCCC' - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:55.11-55.14: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^^^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:55.27: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:55.28-55.32: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^^^^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:55.36: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:55.38-55.42: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^^^^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:55.47: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:55.48-55.50: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:55.61: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:55.62-55.64: - 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 53 END-IF - 54 - 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT ----- ^^ - 56 IF out <> 'AAABBBCCC' - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:60.11-60.14: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:60.27: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Hint: Missing . - -run_ml.at-122-prog.cob:60.28-60.32: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:60.34: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Hint: Missing . - -run_ml.at-122-prog.cob:60.36-60.45: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^^^^^^^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:60.45: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Hint: Missing . - -run_ml.at-122-prog.cob:60.46-60.59: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^^^^^^^^^^^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:60.59: - 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 58 END-IF - 59 - 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 61 NAMESPACE-PREFIX prefix-str - 62 IF out <> ''- ->> Hint: Missing . - -run_ml.at-122-prog.cob:61.15-61.31: - 58 END-IF - 59 - 60 XML GENERATE out FROM c, NAMESPACE namespace-str, - 61 > NAMESPACE-PREFIX prefix-str ----- ^^^^^^^^^^^^^^^^ - 62 IF out <> ''- - 63 'CCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:61.31: - 58 END-IF - 59 - 60 XML GENERATE out FROM c, NAMESPACE namespace-str, - 61 > NAMESPACE-PREFIX prefix-str ----- ^ - 62 IF out <> ''- - 63 'CCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:61.32-61.42: - 58 END-IF - 59 - 60 XML GENERATE out FROM c, NAMESPACE namespace-str, - 61 > NAMESPACE-PREFIX prefix-str ----- ^^^^^^^^^^ - 62 IF out <> ''- - 63 'CCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:61.42: - 58 END-IF - 59 - 60 XML GENERATE out FROM c, NAMESPACE namespace-str, - 61 > NAMESPACE-PREFIX prefix-str ----- ^ - 62 IF out <> ''- - 63 'CCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:62.11-62.13: - 59 - 60 XML GENERATE out FROM c, NAMESPACE namespace-str, - 61 NAMESPACE-PREFIX prefix-str - 62 > IF out <> ''- ----- ^^ - 63 'CCC' - 64 DISPLAY 'Test 6 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:69.11-69.14: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:69.27: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:69.28-69.32: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:69.34: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:69.36-69.45: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^^^^^^^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:69.45: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:69.46-69.59: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^^^^^^^^^^^^^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:69.59: - 66 END-IF - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, ----- ^ - 70 NAMESPACE-PREFIX prefix-str - 71 IF out <> 'CCC' ->> Hint: Missing . - -run_ml.at-122-prog.cob:70.15-70.31: - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 XML GENERATE out FROM c, NAMESPACE namespace-str, - 70 > NAMESPACE-PREFIX prefix-str ----- ^^^^^^^^^^^^^^^^ - 71 IF out <> 'CCC' - 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:70.31: - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 XML GENERATE out FROM c, NAMESPACE namespace-str, - 70 > NAMESPACE-PREFIX prefix-str ----- ^ - 71 IF out <> 'CCC' - 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:70.32-70.42: - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 XML GENERATE out FROM c, NAMESPACE namespace-str, - 70 > NAMESPACE-PREFIX prefix-str ----- ^^^^^^^^^^ - 71 IF out <> 'CCC' - 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:70.42: - 67 - 68 MOVE SPACES TO namespace-str, prefix-str - 69 XML GENERATE out FROM c, NAMESPACE namespace-str, - 70 > NAMESPACE-PREFIX prefix-str ----- ^ - 71 IF out <> 'CCC' - 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:71.11-71.13: - 68 MOVE SPACES TO namespace-str, prefix-str - 69 XML GENERATE out FROM c, NAMESPACE namespace-str, - 70 NAMESPACE-PREFIX prefix-str - 71 > IF out <> 'CCC' ----- ^^ - 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) - 73 END-IF ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:76.11-76.14: - 73 END-IF - 74 - 75 MOVE ALL "&" TO d - 76 > XML GENERATE out FROM d ----- ^^^ - 77 IF out <> '&&&' - 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:76.27: - 73 END-IF - 74 - 75 MOVE ALL "&" TO d - 76 > XML GENERATE out FROM d ----- ^ - 77 IF out <> '&&&' - 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:76.28-76.32: - 73 END-IF - 74 - 75 MOVE ALL "&" TO d - 76 > XML GENERATE out FROM d ----- ^^^^ - 77 IF out <> '&&&' - 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:76.34: - 73 END-IF - 74 - 75 MOVE ALL "&" TO d - 76 > XML GENERATE out FROM d ----- ^ - 77 IF out <> '&&&' - 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:77.11-77.13: - 74 - 75 MOVE ALL "&" TO d - 76 XML GENERATE out FROM d - 77 > IF out <> '&&&' ----- ^^ - 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) - 79 END-IF ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:82.11-82.14: - 79 END-IF - 80 - 81 *> Test the case of the id in the DATA DIVISION is preserved. - 82 > XML GENERATE out FROM 0specialtagname ----- ^^^ - 83 IF out <> '<_0SpecialTAGName>abc' - 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:82.27: - 79 END-IF - 80 - 81 *> Test the case of the id in the DATA DIVISION is preserved. - 82 > XML GENERATE out FROM 0specialtagname ----- ^ - 83 IF out <> '<_0SpecialTAGName>abc' - 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:82.28-82.32: - 79 END-IF - 80 - 81 *> Test the case of the id in the DATA DIVISION is preserved. - 82 > XML GENERATE out FROM 0specialtagname ----- ^^^^ - 83 IF out <> '<_0SpecialTAGName>abc' - 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:82.48: - 79 END-IF - 80 - 81 *> Test the case of the id in the DATA DIVISION is preserved. - 82 > XML GENERATE out FROM 0specialtagname ----- ^ - 83 IF out <> '<_0SpecialTAGName>abc' - 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-122-prog.cob:83.11-83.13: - 80 - 81 *> Test the case of the id in the DATA DIVISION is preserved. - 82 XML GENERATE out FROM 0specialtagname - 83 > IF out <> '<_0SpecialTAGName>abc' ----- ^^ - 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) - 85 END-IF ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:89.11-89.14: - 86 . - 87 - 88 *> Another test with mixed attributes and values - 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE ----- ^^^ - 90 IF out <> ''- - 91 'Someone'- ->> Error: Invalid syntax - -run_ml.at-122-prog.cob:89.27: - 86 . - 87 - 88 *> Another test with mixed attributes and values - 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE ----- ^ - 90 IF out <> ''- - 91 'Someone'- ->> Hint: Missing . - -run_ml.at-122-prog.cob:89.28-89.32: - 86 . - 87 - 88 *> Another test with mixed attributes and values - 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE ----- ^^^^ - 90 IF out <> ''- - 91 'Someone'- ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:89.41: - 86 . - 87 - 88 *> Another test with mixed attributes and values - 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE ----- ^ - 90 IF out <> ''- - 91 'Someone'- ->> Hint: Missing . - -run_ml.at-122-prog.cob:89.42-89.46: - 86 . - 87 - 88 *> Another test with mixed attributes and values - 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE ----- ^^^^ - 90 IF out <> ''- - 91 'Someone'- ->> Warning: Invalid syntax - -run_ml.at-122-prog.cob:89.65: - 86 . - 87 - 88 *> Another test with mixed attributes and values - 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE ----- ^ - 90 IF out <> ''- - 91 'Someone'- ->> Hint: Missing . - -run_ml.at-122-prog.cob:90.11-90.13: - 87 - 88 *> Another test with mixed attributes and values - 89 XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE - 90 > IF out <> ''- ----- ^^ - 91 'Someone'- - 92 'Marketing'- ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:199:0 -run_ml.at-199-prog.cob:22.11-22.14: - 19 01 out PIC X(100). - 20 - 21 PROCEDURE DIVISION. - 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES ----- ^^^ - 23 IF out <> '' - 24 DISPLAY 'Test 1 failed: ' out ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:22.27: - 19 01 out PIC X(100). - 20 - 21 PROCEDURE DIVISION. - 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES ----- ^ - 23 IF out <> '' - 24 DISPLAY 'Test 1 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:22.28-22.32: - 19 01 out PIC X(100). - 20 - 21 PROCEDURE DIVISION. - 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES ----- ^^^^ - 23 IF out <> '' - 24 DISPLAY 'Test 1 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:22.34: - 19 01 out PIC X(100). - 20 - 21 PROCEDURE DIVISION. - 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES ----- ^ - 23 IF out <> '' - 24 DISPLAY 'Test 1 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:22.35-22.43: - 19 01 out PIC X(100). - 20 - 21 PROCEDURE DIVISION. - 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES ----- ^^^^^^^^ - 23 IF out <> '' - 24 DISPLAY 'Test 1 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:22.44-22.48: - 19 01 out PIC X(100). - 20 - 21 PROCEDURE DIVISION. - 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES ----- ^^^^ - 23 IF out <> '' - 24 DISPLAY 'Test 1 failed: ' out ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:27.11-27.14: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^^^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:27.27: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:27.28-27.32: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^^^^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:27.34: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:27.35-27.43: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^^^^^^^^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:27.43: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:27.44-27.45: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:27.45: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:27.46-27.50: - 24 DISPLAY 'Test 1 failed: ' out - 25 END-IF - 26 - 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES ----- ^^^^ - 28 IF out <> ' ' - 29 DISPLAY 'Test 2 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:32.11-32.14: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^^^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:32.27: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:32.28-32.32: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^^^^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:32.34: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:32.35-32.43: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^^^^^^^^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:32.43: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:32.44-32.49: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^^^^^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:32.49: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:32.50-32.60: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^^^^^^^^^^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:32.60: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:32.61-32.65: - 29 DISPLAY 'Test 2 failed: ' out - 30 END-IF - 31 - 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES ----- ^^^^ - 33 IF out <> '' - 34 DISPLAY 'Test 3 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:37.11-37.14: - 34 DISPLAY 'Test 3 failed: ' out - 35 END-IF - 36 - 37 > XML GENERATE out FROM p ----- ^^^ - 38 WITH ATTRIBUTES - 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:37.27: - 34 DISPLAY 'Test 3 failed: ' out - 35 END-IF - 36 - 37 > XML GENERATE out FROM p ----- ^ - 38 WITH ATTRIBUTES - 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO ->> Hint: Missing . - -run_ml.at-199-prog.cob:37.28-37.32: - 34 DISPLAY 'Test 3 failed: ' out - 35 END-IF - 36 - 37 > XML GENERATE out FROM p ----- ^^^^ - 38 WITH ATTRIBUTES - 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:37.34: - 34 DISPLAY 'Test 3 failed: ' out - 35 END-IF - 36 - 37 > XML GENERATE out FROM p ----- ^ - 38 WITH ATTRIBUTES - 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO ->> Hint: Missing . - -run_ml.at-199-prog.cob:38.15-38.19: - 35 END-IF - 36 - 37 XML GENERATE out FROM p - 38 > WITH ATTRIBUTES ----- ^^^^ - 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO - 40 IF out <> '

' ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:38.30: - 35 END-IF - 36 - 37 XML GENERATE out FROM p - 38 > WITH ATTRIBUTES ----- ^ - 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO - 40 IF out <> '

' ->> Hint: Missing . - -run_ml.at-199-prog.cob:39.15-39.23: - 36 - 37 XML GENERATE out FROM p - 38 WITH ATTRIBUTES - 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO ----- ^^^^^^^^ - 40 IF out <> '

' - 41 DISPLAY 'Test 4 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:39.23: - 36 - 37 XML GENERATE out FROM p - 38 WITH ATTRIBUTES - 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO ----- ^ - 40 IF out <> '

' - 41 DISPLAY 'Test 4 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:39.24-39.29: - 36 - 37 XML GENERATE out FROM p - 38 WITH ATTRIBUTES - 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO ----- ^^^^^ - 40 IF out <> '

' - 41 DISPLAY 'Test 4 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:39.29: - 36 - 37 XML GENERATE out FROM p - 38 WITH ATTRIBUTES - 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO ----- ^ - 40 IF out <> '

' - 41 DISPLAY 'Test 4 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:39.30-39.39: - 36 - 37 XML GENERATE out FROM p - 38 WITH ATTRIBUTES - 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO ----- ^^^^^^^^^ - 40 IF out <> '

' - 41 DISPLAY 'Test 4 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:39.39: - 36 - 37 XML GENERATE out FROM p - 38 WITH ATTRIBUTES - 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO ----- ^ - 40 IF out <> '

' - 41 DISPLAY 'Test 4 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:39.40-39.44: - 36 - 37 XML GENERATE out FROM p - 38 WITH ATTRIBUTES - 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO ----- ^^^^ - 40 IF out <> '

' - 41 DISPLAY 'Test 4 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:44.11-44.14: - 41 DISPLAY 'Test 4 failed: ' out - 42 END-IF - 43 - 44 > XML GENERATE out FROM a ----- ^^^ - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:44.27: - 41 DISPLAY 'Test 4 failed: ' out - 42 END-IF - 43 - 44 > XML GENERATE out FROM a ----- ^ - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, ->> Hint: Missing . - -run_ml.at-199-prog.cob:44.28-44.32: - 41 DISPLAY 'Test 4 failed: ' out - 42 END-IF - 43 - 44 > XML GENERATE out FROM a ----- ^^^^ - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:44.34: - 41 DISPLAY 'Test 4 failed: ' out - 42 END-IF - 43 - 44 > XML GENERATE out FROM a ----- ^ - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, ->> Hint: Missing . - -run_ml.at-199-prog.cob:45.15-45.23: - 42 END-IF - 43 - 44 XML GENERATE out FROM a - 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, ----- ^^^^^^^^ - 46 c WHEN LOW-VALUES, - 47 EVERY ELEMENT WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:45.23: - 42 END-IF - 43 - 44 XML GENERATE out FROM a - 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, ----- ^ - 46 c WHEN LOW-VALUES, - 47 EVERY ELEMENT WHEN SPACES ->> Hint: Missing . - -run_ml.at-199-prog.cob:45.24-45.25: - 42 END-IF - 43 - 44 XML GENERATE out FROM a - 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, ----- ^ - 46 c WHEN LOW-VALUES, - 47 EVERY ELEMENT WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:45.25: - 42 END-IF - 43 - 44 XML GENERATE out FROM a - 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, ----- ^ - 46 c WHEN LOW-VALUES, - 47 EVERY ELEMENT WHEN SPACES ->> Hint: Missing . - -run_ml.at-199-prog.cob:45.26-45.30: - 42 END-IF - 43 - 44 XML GENERATE out FROM a - 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, ----- ^^^^ - 46 c WHEN LOW-VALUES, - 47 EVERY ELEMENT WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:45.44: - 42 END-IF - 43 - 44 XML GENERATE out FROM a - 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, ----- ^ - 46 c WHEN LOW-VALUES, - 47 EVERY ELEMENT WHEN SPACES ->> Hint: Missing . - -run_ml.at-199-prog.cob:45.45-45.49: - 42 END-IF - 43 - 44 XML GENERATE out FROM a - 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, ----- ^^^^ - 46 c WHEN LOW-VALUES, - 47 EVERY ELEMENT WHEN SPACES ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:46.21: - 43 - 44 XML GENERATE out FROM a - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 > c WHEN LOW-VALUES, ----- ^ - 47 EVERY ELEMENT WHEN SPACES - 48 IF out <> ' ' ->> Hint: Missing . - -run_ml.at-199-prog.cob:46.22-46.26: - 43 - 44 XML GENERATE out FROM a - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 > c WHEN LOW-VALUES, ----- ^^^^ - 47 EVERY ELEMENT WHEN SPACES - 48 IF out <> ' ' ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:47.25: - 44 XML GENERATE out FROM a - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, - 47 > EVERY ELEMENT WHEN SPACES ----- ^ - 48 IF out <> ' ' - 49 DISPLAY 'Test 5 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:47.26-47.33: - 44 XML GENERATE out FROM a - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, - 47 > EVERY ELEMENT WHEN SPACES ----- ^^^^^^^ - 48 IF out <> ' ' - 49 DISPLAY 'Test 5 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:47.33: - 44 XML GENERATE out FROM a - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, - 47 > EVERY ELEMENT WHEN SPACES ----- ^ - 48 IF out <> ' ' - 49 DISPLAY 'Test 5 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:47.34-47.38: - 44 XML GENERATE out FROM a - 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, - 46 c WHEN LOW-VALUES, - 47 > EVERY ELEMENT WHEN SPACES ----- ^^^^ - 48 IF out <> ' ' - 49 DISPLAY 'Test 5 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:54.11-54.14: - 51 - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 > XML GENERATE out FROM a ----- ^^^ - 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES - 56 OR ZEROES OR SPACES ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:54.27: - 51 - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 > XML GENERATE out FROM a ----- ^ - 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES - 56 OR ZEROES OR SPACES ->> Hint: Missing . - -run_ml.at-199-prog.cob:54.28-54.32: - 51 - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 > XML GENERATE out FROM a ----- ^^^^ - 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES - 56 OR ZEROES OR SPACES ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:54.34: - 51 - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 > XML GENERATE out FROM a ----- ^ - 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES - 56 OR ZEROES OR SPACES ->> Hint: Missing . - -run_ml.at-199-prog.cob:55.15-55.23: - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 XML GENERATE out FROM a - 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES ----- ^^^^^^^^ - 56 OR ZEROES OR SPACES - 57 IF out <> '' ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:55.23: - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 XML GENERATE out FROM a - 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES ----- ^ - 56 OR ZEROES OR SPACES - 57 IF out <> '' ->> Hint: Missing . - -run_ml.at-199-prog.cob:55.24-55.29: - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 XML GENERATE out FROM a - 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES ----- ^^^^^ - 56 OR ZEROES OR SPACES - 57 IF out <> '' ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:55.29: - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 XML GENERATE out FROM a - 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES ----- ^ - 56 OR ZEROES OR SPACES - 57 IF out <> '' ->> Hint: Missing . - -run_ml.at-199-prog.cob:55.30-55.37: - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 XML GENERATE out FROM a - 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES ----- ^^^^^^^ - 56 OR ZEROES OR SPACES - 57 IF out <> '' ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:55.37: - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 XML GENERATE out FROM a - 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES ----- ^ - 56 OR ZEROES OR SPACES - 57 IF out <> '' ->> Hint: Missing . - -run_ml.at-199-prog.cob:55.38-55.42: - 52 MOVE HIGH-VALUES TO b - 53 MOVE LOW-VALUES TO c - 54 XML GENERATE out FROM a - 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES ----- ^^^^ - 56 OR ZEROES OR SPACES - 57 IF out <> '' ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:61.11-61.14: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^^^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Error: Invalid syntax - -run_ml.at-199-prog.cob:61.27: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:61.28-61.32: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^^^^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:61.34: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:61.35-61.43: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^^^^^^^^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:61.43: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:61.44-61.45: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-199-prog.cob:61.45: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Hint: Missing . - -run_ml.at-199-prog.cob:61.46-61.50: - 58 DISPLAY 'Test 6 failed: ' out - 59 END-IF - 60 - 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE ----- ^^^^ - 62 IF out <> '' - 63 DISPLAY 'Test 7 failed: ' out ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:311:0 -run_ml.at-311-prog.cob:16.38: - 13 01 short-str2 PIC X(22). - 14 01 xml-len PIC 99. - 15 - 16 > 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". ----- ^ - 17 01 invalid-namespace CONSTANT X"00". - 18 01 invalid-prefix PIC XXX VALUE "#<>". ->> Hint: Missing RECORD - -run_ml.at-311-prog.cob:16.39-16.69: - 13 01 short-str2 PIC X(22). - 14 01 xml-len PIC 99. - 15 - 16 > 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 17 01 invalid-namespace CONSTANT X"00". - 18 01 invalid-prefix PIC XXX VALUE "#<>". ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:17.38: - 14 01 xml-len PIC 99. - 15 - 16 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". - 17 > 01 invalid-namespace CONSTANT X"00". ----- ^ - 18 01 invalid-prefix PIC XXX VALUE "#<>". - 19 01 invalid-content PIC X(3) VALUE X"8AFF00". ->> Hint: Missing RECORD - -run_ml.at-311-prog.cob:17.39-17.44: - 14 01 xml-len PIC 99. - 15 - 16 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". - 17 > 01 invalid-namespace CONSTANT X"00". ----- ^^^^^ - 18 01 invalid-prefix PIC XXX VALUE "#<>". - 19 01 invalid-content PIC X(3) VALUE X"8AFF00". ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:24.11-24.14: - 21 - 22 PROCEDURE DIVISION. - 23 MOVE ALL 'A' TO short-str - 24 > XML GENERATE short-str FROM valid-rec ----- ^^^ - 25 COUNT IN xml-len - 26 IF XML-CODE <> 400 ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:24.33: - 21 - 22 PROCEDURE DIVISION. - 23 MOVE ALL 'A' TO short-str - 24 > XML GENERATE short-str FROM valid-rec ----- ^ - 25 COUNT IN xml-len - 26 IF XML-CODE <> 400 ->> Hint: Missing . - -run_ml.at-311-prog.cob:24.34-24.38: - 21 - 22 PROCEDURE DIVISION. - 23 MOVE ALL 'A' TO short-str - 24 > XML GENERATE short-str FROM valid-rec ----- ^^^^ - 25 COUNT IN xml-len - 26 IF XML-CODE <> 400 ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:24.48: - 21 - 22 PROCEDURE DIVISION. - 23 MOVE ALL 'A' TO short-str - 24 > XML GENERATE short-str FROM valid-rec ----- ^ - 25 COUNT IN xml-len - 26 IF XML-CODE <> 400 ->> Hint: Missing . - -run_ml.at-311-prog.cob:25.15-25.20: - 22 PROCEDURE DIVISION. - 23 MOVE ALL 'A' TO short-str - 24 XML GENERATE short-str FROM valid-rec - 25 > COUNT IN xml-len ----- ^^^^^ - 26 IF XML-CODE <> 400 - 27 OR short-str <> "> Warning: Invalid syntax - -run_ml.at-311-prog.cob:25.31: - 22 PROCEDURE DIVISION. - 23 MOVE ALL 'A' TO short-str - 24 XML GENERATE short-str FROM valid-rec - 25 > COUNT IN xml-len ----- ^ - 26 IF XML-CODE <> 400 - 27 OR short-str <> "> Hint: Missing . - -run_ml.at-311-prog.cob:26.11-26.13: - 23 MOVE ALL 'A' TO short-str - 24 XML GENERATE short-str FROM valid-rec - 25 COUNT IN xml-len - 26 > IF XML-CODE <> 400 ----- ^^ - 27 OR short-str <> " 42 ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:35.11-35.14: - 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE - 33 END-IF - 34 MOVE ALL 'B' TO short-str2 - 35 > XML GENERATE short-str2 FROM valid-rec ----- ^^^ - 36 COUNT IN xml-len - 37 IF XML-CODE <> 400 ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:35.34: - 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE - 33 END-IF - 34 MOVE ALL 'B' TO short-str2 - 35 > XML GENERATE short-str2 FROM valid-rec ----- ^ - 36 COUNT IN xml-len - 37 IF XML-CODE <> 400 ->> Hint: Missing . - -run_ml.at-311-prog.cob:35.35-35.39: - 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE - 33 END-IF - 34 MOVE ALL 'B' TO short-str2 - 35 > XML GENERATE short-str2 FROM valid-rec ----- ^^^^ - 36 COUNT IN xml-len - 37 IF XML-CODE <> 400 ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:35.49: - 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE - 33 END-IF - 34 MOVE ALL 'B' TO short-str2 - 35 > XML GENERATE short-str2 FROM valid-rec ----- ^ - 36 COUNT IN xml-len - 37 IF XML-CODE <> 400 ->> Hint: Missing . - -run_ml.at-311-prog.cob:36.15-36.20: - 33 END-IF - 34 MOVE ALL 'B' TO short-str2 - 35 XML GENERATE short-str2 FROM valid-rec - 36 > COUNT IN xml-len ----- ^^^^^ - 37 IF XML-CODE <> 400 - 38 OR short-str2 <> "aa> Warning: Invalid syntax - -run_ml.at-311-prog.cob:36.31: - 33 END-IF - 34 MOVE ALL 'B' TO short-str2 - 35 XML GENERATE short-str2 FROM valid-rec - 36 > COUNT IN xml-len ----- ^ - 37 IF XML-CODE <> 400 - 38 OR short-str2 <> "aa> Hint: Missing . - -run_ml.at-311-prog.cob:37.11-37.13: - 34 MOVE ALL 'B' TO short-str2 - 35 XML GENERATE short-str2 FROM valid-rec - 36 COUNT IN xml-len - 37 > IF XML-CODE <> 400 ----- ^^ - 38 OR short-str2 <> "aa 42 ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:46.11-46.14: - 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE - 44 END-IF - 45 - 46 > XML GENERATE normal-str FROM valid-rec ----- ^^^ - 47 NAMESPACE invalid-namespace - 48 IF XML-CODE <> 416 ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:46.34: - 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE - 44 END-IF - 45 - 46 > XML GENERATE normal-str FROM valid-rec ----- ^ - 47 NAMESPACE invalid-namespace - 48 IF XML-CODE <> 416 ->> Hint: Missing . - -run_ml.at-311-prog.cob:46.35-46.39: - 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE - 44 END-IF - 45 - 46 > XML GENERATE normal-str FROM valid-rec ----- ^^^^ - 47 NAMESPACE invalid-namespace - 48 IF XML-CODE <> 416 ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:46.49: - 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE - 44 END-IF - 45 - 46 > XML GENERATE normal-str FROM valid-rec ----- ^ - 47 NAMESPACE invalid-namespace - 48 IF XML-CODE <> 416 ->> Hint: Missing . - -run_ml.at-311-prog.cob:47.15-47.24: - 44 END-IF - 45 - 46 XML GENERATE normal-str FROM valid-rec - 47 > NAMESPACE invalid-namespace ----- ^^^^^^^^^ - 48 IF XML-CODE <> 416 - 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:47.24: - 44 END-IF - 45 - 46 XML GENERATE normal-str FROM valid-rec - 47 > NAMESPACE invalid-namespace ----- ^ - 48 IF XML-CODE <> 416 - 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) ->> Hint: Missing . - -run_ml.at-311-prog.cob:47.25-47.42: - 44 END-IF - 45 - 46 XML GENERATE normal-str FROM valid-rec - 47 > NAMESPACE invalid-namespace ----- ^^^^^^^^^^^^^^^^^ - 48 IF XML-CODE <> 416 - 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:47.42: - 44 END-IF - 45 - 46 XML GENERATE normal-str FROM valid-rec - 47 > NAMESPACE invalid-namespace ----- ^ - 48 IF XML-CODE <> 416 - 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) ->> Hint: Missing . - -run_ml.at-311-prog.cob:48.11-48.13: - 45 - 46 XML GENERATE normal-str FROM valid-rec - 47 NAMESPACE invalid-namespace - 48 > IF XML-CODE <> 416 ----- ^^ - 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) - 50 " " XML-CODE ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:53.11-53.14: - 50 " " XML-CODE - 51 END-IF - 52 - 53 > XML GENERATE normal-str FROM invalid-content ----- ^^^ - 54 IF XML-CODE <> 417 - 55 OR normal-str <> '8aff00> Error: Invalid syntax - -run_ml.at-311-prog.cob:53.34: - 50 " " XML-CODE - 51 END-IF - 52 - 53 > XML GENERATE normal-str FROM invalid-content ----- ^ - 54 IF XML-CODE <> 417 - 55 OR normal-str <> '8aff00> Hint: Missing . - -run_ml.at-311-prog.cob:53.35-53.39: - 50 " " XML-CODE - 51 END-IF - 52 - 53 > XML GENERATE normal-str FROM invalid-content ----- ^^^^ - 54 IF XML-CODE <> 417 - 55 OR normal-str <> '8aff00> Warning: Invalid syntax - -run_ml.at-311-prog.cob:53.55: - 50 " " XML-CODE - 51 END-IF - 52 - 53 > XML GENERATE normal-str FROM invalid-content ----- ^ - 54 IF XML-CODE <> 417 - 55 OR normal-str <> '8aff00> Hint: Missing . - -run_ml.at-311-prog.cob:54.11-54.13: - 51 END-IF - 52 - 53 XML GENERATE normal-str FROM invalid-content - 54 > IF XML-CODE <> 417 ----- ^^ - 55 OR normal-str <> '8aff00' ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:61.11-61.14: - 58 " " XML-CODE - 59 END-IF - 60 - 61 > XML GENERATE normal-str FROM valid-rec ----- ^^^ - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 NAMESPACE-PREFIX invalid-prefix ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:61.34: - 58 " " XML-CODE - 59 END-IF - 60 - 61 > XML GENERATE normal-str FROM valid-rec ----- ^ - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 NAMESPACE-PREFIX invalid-prefix ->> Hint: Missing . - -run_ml.at-311-prog.cob:61.35-61.39: - 58 " " XML-CODE - 59 END-IF - 60 - 61 > XML GENERATE normal-str FROM valid-rec ----- ^^^^ - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 NAMESPACE-PREFIX invalid-prefix ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:61.49: - 58 " " XML-CODE - 59 END-IF - 60 - 61 > XML GENERATE normal-str FROM valid-rec ----- ^ - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 NAMESPACE-PREFIX invalid-prefix ->> Hint: Missing . - -run_ml.at-311-prog.cob:62.15-62.24: - 59 END-IF - 60 - 61 XML GENERATE normal-str FROM valid-rec - 62 > NAMESPACE "http://www.w3.org/1999/xhtml" ----- ^^^^^^^^^ - 63 NAMESPACE-PREFIX invalid-prefix - 64 IF XML-CODE <> 419 ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:62.24: - 59 END-IF - 60 - 61 XML GENERATE normal-str FROM valid-rec - 62 > NAMESPACE "http://www.w3.org/1999/xhtml" ----- ^ - 63 NAMESPACE-PREFIX invalid-prefix - 64 IF XML-CODE <> 419 ->> Hint: Missing . - -run_ml.at-311-prog.cob:62.25-62.55: - 59 END-IF - 60 - 61 XML GENERATE normal-str FROM valid-rec - 62 > NAMESPACE "http://www.w3.org/1999/xhtml" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 63 NAMESPACE-PREFIX invalid-prefix - 64 IF XML-CODE <> 419 ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:63.31: - 60 - 61 XML GENERATE normal-str FROM valid-rec - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 > NAMESPACE-PREFIX invalid-prefix ----- ^ - 64 IF XML-CODE <> 419 - 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) ->> Hint: Missing . - -run_ml.at-311-prog.cob:63.32-63.46: - 60 - 61 XML GENERATE normal-str FROM valid-rec - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 > NAMESPACE-PREFIX invalid-prefix ----- ^^^^^^^^^^^^^^ - 64 IF XML-CODE <> 419 - 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:63.46: - 60 - 61 XML GENERATE normal-str FROM valid-rec - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 > NAMESPACE-PREFIX invalid-prefix ----- ^ - 64 IF XML-CODE <> 419 - 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) ->> Hint: Missing . - -run_ml.at-311-prog.cob:64.11-64.13: - 61 XML GENERATE normal-str FROM valid-rec - 62 NAMESPACE "http://www.w3.org/1999/xhtml" - 63 NAMESPACE-PREFIX invalid-prefix - 64 > IF XML-CODE <> 419 ----- ^^ - 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) - 66 " " XML-CODE ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:69.11-69.14: - 66 " " XML-CODE - 67 END-IF - 68 - 69 > XML GENERATE normal-str FROM valid-rec ----- ^^^ - 70 ON EXCEPTION - 71 DISPLAY "Failed 5: EXCEPTION " ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:69.34: - 66 " " XML-CODE - 67 END-IF - 68 - 69 > XML GENERATE normal-str FROM valid-rec ----- ^ - 70 ON EXCEPTION - 71 DISPLAY "Failed 5: EXCEPTION " ->> Hint: Missing . - -run_ml.at-311-prog.cob:69.35-69.39: - 66 " " XML-CODE - 67 END-IF - 68 - 69 > XML GENERATE normal-str FROM valid-rec ----- ^^^^ - 70 ON EXCEPTION - 71 DISPLAY "Failed 5: EXCEPTION " ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:69.49: - 66 " " XML-CODE - 67 END-IF - 68 - 69 > XML GENERATE normal-str FROM valid-rec ----- ^ - 70 ON EXCEPTION - 71 DISPLAY "Failed 5: EXCEPTION " ->> Hint: Missing . - -run_ml.at-311-prog.cob:70.16-70.28: - 67 END-IF - 68 - 69 XML GENERATE normal-str FROM valid-rec - 70 > ON EXCEPTION ----- ^^^^^^^^^^^^ - 71 DISPLAY "Failed 5: EXCEPTION " - 72 FUNCTION TRIM (normal-str) ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:78.16-78.32: - 75 *> The END-DISPLAY is important! Otherwise the DISPLAY will - 76 *> take the NOT ON EXCEPTION. - 77 - 78 > NOT ON EXCEPTION ----- ^^^^^^^^^^^^^^^^ - 79 IF XML-CODE <> 0 - 80 DISPLAY "Failed 5: NOT EXCEPTION " ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:84.11-84.18: - 81 FUNCTION TRIM (normal-str) - 82 " " XML-CODE - 83 END-IF - 84 > END-XML ----- ^^^^^^^ - 85 - 86 XML GENERATE short-str FROM valid-rec ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:86.33: - 83 END-IF - 84 END-XML - 85 - 86 > XML GENERATE short-str FROM valid-rec ----- ^ - 87 NOT EXCEPTION - 88 DISPLAY "Failed 6: NOT EXCEPTION " ->> Hint: Missing . - -run_ml.at-311-prog.cob:86.34-86.38: - 83 END-IF - 84 END-XML - 85 - 86 > XML GENERATE short-str FROM valid-rec ----- ^^^^ - 87 NOT EXCEPTION - 88 DISPLAY "Failed 6: NOT EXCEPTION " ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:86.48: - 83 END-IF - 84 END-XML - 85 - 86 > XML GENERATE short-str FROM valid-rec ----- ^ - 87 NOT EXCEPTION - 88 DISPLAY "Failed 6: NOT EXCEPTION " ->> Hint: Missing . - -run_ml.at-311-prog.cob:87.16-87.29: - 84 END-XML - 85 - 86 XML GENERATE short-str FROM valid-rec - 87 > NOT EXCEPTION ----- ^^^^^^^^^^^^^ - 88 DISPLAY "Failed 6: NOT EXCEPTION " - 89 FUNCTION TRIM (normal-str) ->> Warning: Invalid syntax - -run_ml.at-311-prog.cob:93.16-93.25: - 90 " " XML-CODE - 91 END-DISPLAY - 92 - 93 > EXCEPTION ----- ^^^^^^^^^ - 94 IF XML-CODE <> 400 - 95 DISPLAY "Failed 6: ON EXCEPTION " ->> Error: Invalid syntax - -run_ml.at-311-prog.cob:99.11-99.18: - 96 FUNCTION TRIM (normal-str) - 97 " " XML-CODE - 98 END-IF - 99 > END-XML ----- ^^^^^^^ - 100 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:355:0 -run_ml.at-355-prog.cob:26.11-26.14: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > XML GENERATE out FROM d ----- ^^^ - 27 IF out <> 'abc000' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-355-prog.cob:26.27: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > XML GENERATE out FROM d ----- ^ - 27 IF out <> 'abc000' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-355-prog.cob:26.28-26.32: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > XML GENERATE out FROM d ----- ^^^^ - 27 IF out <> 'abc000' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-355-prog.cob:26.34: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > XML GENERATE out FROM d ----- ^ - 27 IF out <> 'abc000' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-355-prog.cob:27.11-27.13: - 24 *> END-IF - 25 - 26 XML GENERATE out FROM d - 27 > IF out <> 'abc000' ----- ^^ - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 29 END-IF ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:452:0 -run_ml.at-452-prog.cob:23.11-23.14: - 20 01 out PIC X(300). - 21 - 22 PROCEDURE DIVISION. - 23 > XML GENERATE out FROM str ----- ^^^ - 24 IF out <> 'ab' - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:23.27: - 20 01 out PIC X(300). - 21 - 22 PROCEDURE DIVISION. - 23 > XML GENERATE out FROM str ----- ^ - 24 IF out <> 'ab' - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:23.28-23.32: - 20 01 out PIC X(300). - 21 - 22 PROCEDURE DIVISION. - 23 > XML GENERATE out FROM str ----- ^^^^ - 24 IF out <> 'ab' - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:23.36: - 20 01 out PIC X(300). - 21 - 22 PROCEDURE DIVISION. - 23 > XML GENERATE out FROM str ----- ^ - 24 IF out <> 'ab' - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:24.11-24.13: - 21 - 22 PROCEDURE DIVISION. - 23 XML GENERATE out FROM str - 24 > IF out <> 'ab' ----- ^^ - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 26 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:28.11-28.14: - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 26 END-IF - 27 - 28 > XML GENERATE out FROM num-edited ----- ^^^ - 29 IF out <> '01.00' - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:28.27: - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 26 END-IF - 27 - 28 > XML GENERATE out FROM num-edited ----- ^ - 29 IF out <> '01.00' - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:28.28-28.32: - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 26 END-IF - 27 - 28 > XML GENERATE out FROM num-edited ----- ^^^^ - 29 IF out <> '01.00' - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:28.43: - 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 26 END-IF - 27 - 28 > XML GENERATE out FROM num-edited ----- ^ - 29 IF out <> '01.00' - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:29.11-29.13: - 26 END-IF - 27 - 28 XML GENERATE out FROM num-edited - 29 > IF out <> '01.00' ----- ^^ - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 31 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:33.11-33.14: - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 31 END-IF - 32 - 33 > XML GENERATE out FROM leading-zeroes ----- ^^^ - 34 IF out <> '5' - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:33.27: - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 31 END-IF - 32 - 33 > XML GENERATE out FROM leading-zeroes ----- ^ - 34 IF out <> '5' - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:33.28-33.32: - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 31 END-IF - 32 - 33 > XML GENERATE out FROM leading-zeroes ----- ^^^^ - 34 IF out <> '5' - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:33.47: - 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 31 END-IF - 32 - 33 > XML GENERATE out FROM leading-zeroes ----- ^ - 34 IF out <> '5' - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:34.11-34.13: - 31 END-IF - 32 - 33 XML GENERATE out FROM leading-zeroes - 34 > IF out <> '5' ----- ^^ - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 36 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:38.11-38.14: - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 36 END-IF - 37 - 38 > XML GENERATE out FROM decimal-num ----- ^^^ - 39 IF out <> '0.120' - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:38.27: - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 36 END-IF - 37 - 38 > XML GENERATE out FROM decimal-num ----- ^ - 39 IF out <> '0.120' - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:38.28-38.32: - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 36 END-IF - 37 - 38 > XML GENERATE out FROM decimal-num ----- ^^^^ - 39 IF out <> '0.120' - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:38.44: - 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 36 END-IF - 37 - 38 > XML GENERATE out FROM decimal-num ----- ^ - 39 IF out <> '0.120' - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:39.11-39.13: - 36 END-IF - 37 - 38 XML GENERATE out FROM decimal-num - 39 > IF out <> '0.120' ----- ^^ - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 41 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:43.11-43.14: - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 41 END-IF - 42 - 43 > XML GENERATE out FROM signed-decimal-num ----- ^^^ - 44 IF out <> '-1' - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:43.27: - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 41 END-IF - 42 - 43 > XML GENERATE out FROM signed-decimal-num ----- ^ - 44 IF out <> '-1' - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:43.28-43.32: - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 41 END-IF - 42 - 43 > XML GENERATE out FROM signed-decimal-num ----- ^^^^ - 44 IF out <> '-1' - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:43.51: - 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 41 END-IF - 42 - 43 > XML GENERATE out FROM signed-decimal-num ----- ^ - 44 IF out <> '-1' - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:44.11-44.13: - 41 END-IF - 42 - 43 XML GENERATE out FROM signed-decimal-num - 44 > IF out <> '-1' ----- ^^ - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 46 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:48.11-48.14: - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 46 END-IF - 47 - 48 > XML GENERATE out FROM comp-5-item ----- ^^^ - 49 IF out <> '5' - 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:48.27: - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 46 END-IF - 47 - 48 > XML GENERATE out FROM comp-5-item ----- ^ - 49 IF out <> '5' - 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:48.28-48.32: - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 46 END-IF - 47 - 48 > XML GENERATE out FROM comp-5-item ----- ^^^^ - 49 IF out <> '5' - 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:48.44: - 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 46 END-IF - 47 - 48 > XML GENERATE out FROM comp-5-item ----- ^ - 49 IF out <> '5' - 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:49.11-49.13: - 46 END-IF - 47 - 48 XML GENERATE out FROM comp-5-item - 49 > IF out <> '5' ----- ^^ - 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) - 51 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:54.11-54.14: - 51 END-IF - 52 - 53 SET index-item TO 500 - 54 > XML GENERATE out FROM index-item ----- ^^^ - 55 IF out <> '500' - 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:54.27: - 51 END-IF - 52 - 53 SET index-item TO 500 - 54 > XML GENERATE out FROM index-item ----- ^ - 55 IF out <> '500' - 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:54.28-54.32: - 51 END-IF - 52 - 53 SET index-item TO 500 - 54 > XML GENERATE out FROM index-item ----- ^^^^ - 55 IF out <> '500' - 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:54.43: - 51 END-IF - 52 - 53 SET index-item TO 500 - 54 > XML GENERATE out FROM index-item ----- ^ - 55 IF out <> '500' - 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:55.11-55.13: - 52 - 53 SET index-item TO 500 - 54 XML GENERATE out FROM index-item - 55 > IF out <> '500' ----- ^^ - 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) - 57 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:70.11-70.14: - 67 *> END-IF - 68 - 69 MOVE "blah " TO just-item - 70 > XML GENERATE out FROM just-item ----- ^^^ - 71 IF out <> 'blah ' - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:70.27: - 67 *> END-IF - 68 - 69 MOVE "blah " TO just-item - 70 > XML GENERATE out FROM just-item ----- ^ - 71 IF out <> 'blah ' - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:70.28-70.32: - 67 *> END-IF - 68 - 69 MOVE "blah " TO just-item - 70 > XML GENERATE out FROM just-item ----- ^^^^ - 71 IF out <> 'blah ' - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:70.42: - 67 *> END-IF - 68 - 69 MOVE "blah " TO just-item - 70 > XML GENERATE out FROM just-item ----- ^ - 71 IF out <> 'blah ' - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:71.11-71.13: - 68 - 69 MOVE "blah " TO just-item - 70 XML GENERATE out FROM just-item - 71 > IF out <> 'blah ' ----- ^^ - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 73 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:75.11-75.14: - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 73 END-IF - 74 - 75 > XML GENERATE out FROM integer-with-p ----- ^^^ - 76 IF out <> '10000' - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:75.27: - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 73 END-IF - 74 - 75 > XML GENERATE out FROM integer-with-p ----- ^ - 76 IF out <> '10000' - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:75.28-75.32: - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 73 END-IF - 74 - 75 > XML GENERATE out FROM integer-with-p ----- ^^^^ - 76 IF out <> '10000' - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:75.47: - 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 73 END-IF - 74 - 75 > XML GENERATE out FROM integer-with-p ----- ^ - 76 IF out <> '10000' - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:76.11-76.13: - 73 END-IF - 74 - 75 XML GENERATE out FROM integer-with-p - 76 > IF out <> '10000' ----- ^^ - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 78 END-IF ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:80.11-80.14: - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 78 END-IF - 79 - 80 > XML GENERATE out FROM decimal-with-p ----- ^^^ - 81 IF out <> '0.0004' - 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-452-prog.cob:80.27: - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 78 END-IF - 79 - 80 > XML GENERATE out FROM decimal-with-p ----- ^ - 81 IF out <> '0.0004' - 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:80.28-80.32: - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 78 END-IF - 79 - 80 > XML GENERATE out FROM decimal-with-p ----- ^^^^ - 81 IF out <> '0.0004' - 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-452-prog.cob:80.47: - 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 78 END-IF - 79 - 80 > XML GENERATE out FROM decimal-with-p ----- ^ - 81 IF out <> '0.0004' - 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-452-prog.cob:81.11-81.13: - 78 END-IF - 79 - 80 XML GENERATE out FROM decimal-with-p - 81 > IF out <> '0.0004' ----- ^^ - 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) - 83 END-IF ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:483:0 -run_ml.at-483-prog.cob:2.7-2.29: - 1 - 2 > $SET DPC-IN-DATA "JSON" ----- ^^^^^^^^^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. ->> Error: Unexpected characters - -run_ml.at-483-prog.cob:17.11-17.14: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > XML GENERATE out FROM num ----- ^^^ - 18 IF out <> '1.1' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Error: Invalid syntax - -run_ml.at-483-prog.cob:17.27: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > XML GENERATE out FROM num ----- ^ - 18 IF out <> '1.1' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Hint: Missing . - -run_ml.at-483-prog.cob:17.28-17.32: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > XML GENERATE out FROM num ----- ^^^^ - 18 IF out <> '1.1' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Warning: Invalid syntax - -run_ml.at-483-prog.cob:17.36: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > XML GENERATE out FROM num ----- ^ - 18 IF out <> '1.1' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Hint: Missing . - -run_ml.at-483-prog.cob:18.11-18.13: - 15 - 16 PROCEDURE DIVISION. - 17 XML GENERATE out FROM num - 18 > IF out <> '1.1' ----- ^^ - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:517:0 -run_ml.at-517-prog.cob:16.11-16.14: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > XML GENERATE out FROM num ----- ^^^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Error: Invalid syntax - -run_ml.at-517-prog.cob:16.27: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > XML GENERATE out FROM num ----- ^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Hint: Missing . - -run_ml.at-517-prog.cob:16.28-16.32: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > XML GENERATE out FROM num ----- ^^^^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Warning: Invalid syntax - -run_ml.at-517-prog.cob:16.36: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > XML GENERATE out FROM num ----- ^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Hint: Missing . - -run_ml.at-517-prog.cob:17.11-17.18: - 14 - 15 PROCEDURE DIVISION. - 16 XML GENERATE out FROM num - 17 > DISPLAY FUNCTION TRIM(out) ----- ^^^^^^^ - 18 . ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:584:0 -run_ml.at-584-prog.cob:15.11-15.15: - 12 05 d PIC X(3) VALUE SPACES. - 13 - 14 PROCEDURE DIVISION. - 15 > JSON GENERATE out ----- ^^^^ - 16 FROM rec - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' ->> Error: Invalid syntax - -run_ml.at-584-prog.cob:15.28: - 12 05 d PIC X(3) VALUE SPACES. - 13 - 14 PROCEDURE DIVISION. - 15 > JSON GENERATE out ----- ^ - 16 FROM rec - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' ->> Hint: Missing . - -run_ml.at-584-prog.cob:16.15-16.19: - 13 - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 > FROM rec ----- ^^^^ - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' - 18 SUPPRESS c ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:16.23: - 13 - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 > FROM rec ----- ^ - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' - 18 SUPPRESS c ->> Hint: Missing . - -run_ml.at-584-prog.cob:17.15-17.19: - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 FROM rec - 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' ----- ^^^^ - 18 SUPPRESS c - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:17.19: - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 FROM rec - 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' ----- ^ - 18 SUPPRESS c - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ->> Hint: Missing . - -run_ml.at-584-prog.cob:17.20-17.22: - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 FROM rec - 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' ----- ^^ - 18 SUPPRESS c - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:17.24: - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 FROM rec - 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' ----- ^ - 18 SUPPRESS c - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ->> Hint: Missing . - -run_ml.at-584-prog.cob:17.25-17.27: - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 FROM rec - 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' ----- ^^ - 18 SUPPRESS c - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:17.38: - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 FROM rec - 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' ----- ^ - 18 SUPPRESS c - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ->> Hint: Missing . - -run_ml.at-584-prog.cob:17.39-17.41: - 14 PROCEDURE DIVISION. - 15 JSON GENERATE out - 16 FROM rec - 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' ----- ^^ - 18 SUPPRESS c - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:18.23: - 15 JSON GENERATE out - 16 FROM rec - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' - 18 > SUPPRESS c ----- ^ - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:18.24-18.25: - 15 JSON GENERATE out - 16 FROM rec - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' - 18 > SUPPRESS c ----- ^ - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:18.25: - 15 JSON GENERATE out - 16 FROM rec - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' - 18 > SUPPRESS c ----- ^ - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:19.11-19.13: - 16 FROM rec - 17 NAME OF a IS 'alpha', d IS 'ABCDEF' - 18 SUPPRESS c - 19 > IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' ----- ^^ - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 21 END-IF ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:22.11-22.15: - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 21 END-IF - 22 > JSON GENERATE out ----- ^^^^ - 23 FROM rec - 24 NAME OF a IS 'alpha', rec IS OMITTED ->> Error: Invalid syntax - -run_ml.at-584-prog.cob:22.28: - 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 21 END-IF - 22 > JSON GENERATE out ----- ^ - 23 FROM rec - 24 NAME OF a IS 'alpha', rec IS OMITTED ->> Hint: Missing . - -run_ml.at-584-prog.cob:23.15-23.19: - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 21 END-IF - 22 JSON GENERATE out - 23 > FROM rec ----- ^^^^ - 24 NAME OF a IS 'alpha', rec IS OMITTED - 25 SUPPRESS c ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:23.23: - 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) - 21 END-IF - 22 JSON GENERATE out - 23 > FROM rec ----- ^ - 24 NAME OF a IS 'alpha', rec IS OMITTED - 25 SUPPRESS c ->> Hint: Missing . - -run_ml.at-584-prog.cob:24.15-24.19: - 21 END-IF - 22 JSON GENERATE out - 23 FROM rec - 24 > NAME OF a IS 'alpha', rec IS OMITTED ----- ^^^^ - 25 SUPPRESS c - 26 IF out <> '{"alpha":"A","b":"BBB"}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:24.19: - 21 END-IF - 22 JSON GENERATE out - 23 FROM rec - 24 > NAME OF a IS 'alpha', rec IS OMITTED ----- ^ - 25 SUPPRESS c - 26 IF out <> '{"alpha":"A","b":"BBB"}' ->> Hint: Missing . - -run_ml.at-584-prog.cob:24.20-24.22: - 21 END-IF - 22 JSON GENERATE out - 23 FROM rec - 24 > NAME OF a IS 'alpha', rec IS OMITTED ----- ^^ - 25 SUPPRESS c - 26 IF out <> '{"alpha":"A","b":"BBB"}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:24.24: - 21 END-IF - 22 JSON GENERATE out - 23 FROM rec - 24 > NAME OF a IS 'alpha', rec IS OMITTED ----- ^ - 25 SUPPRESS c - 26 IF out <> '{"alpha":"A","b":"BBB"}' ->> Hint: Missing . - -run_ml.at-584-prog.cob:24.25-24.27: - 21 END-IF - 22 JSON GENERATE out - 23 FROM rec - 24 > NAME OF a IS 'alpha', rec IS OMITTED ----- ^^ - 25 SUPPRESS c - 26 IF out <> '{"alpha":"A","b":"BBB"}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:24.40: - 21 END-IF - 22 JSON GENERATE out - 23 FROM rec - 24 > NAME OF a IS 'alpha', rec IS OMITTED ----- ^ - 25 SUPPRESS c - 26 IF out <> '{"alpha":"A","b":"BBB"}' ->> Hint: Missing . - -run_ml.at-584-prog.cob:24.41-24.43: - 21 END-IF - 22 JSON GENERATE out - 23 FROM rec - 24 > NAME OF a IS 'alpha', rec IS OMITTED ----- ^^ - 25 SUPPRESS c - 26 IF out <> '{"alpha":"A","b":"BBB"}' ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:25.23: - 22 JSON GENERATE out - 23 FROM rec - 24 NAME OF a IS 'alpha', rec IS OMITTED - 25 > SUPPRESS c ----- ^ - 26 IF out <> '{"alpha":"A","b":"BBB"}' - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:25.24-25.25: - 22 JSON GENERATE out - 23 FROM rec - 24 NAME OF a IS 'alpha', rec IS OMITTED - 25 > SUPPRESS c ----- ^ - 26 IF out <> '{"alpha":"A","b":"BBB"}' - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:25.25: - 22 JSON GENERATE out - 23 FROM rec - 24 NAME OF a IS 'alpha', rec IS OMITTED - 25 > SUPPRESS c ----- ^ - 26 IF out <> '{"alpha":"A","b":"BBB"}' - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:26.11-26.13: - 23 FROM rec - 24 NAME OF a IS 'alpha', rec IS OMITTED - 25 SUPPRESS c - 26 > IF out <> '{"alpha":"A","b":"BBB"}' ----- ^^ - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 28 END-IF ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:30.11-30.15: - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM d ----- ^^^^ - 31 IF out <> '{"d":" "}' - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-584-prog.cob:30.28: - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM d ----- ^ - 31 IF out <> '{"d":" "}' - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:30.29-30.33: - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM d ----- ^^^^ - 31 IF out <> '{"d":" "}' - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:30.35: - 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM d ----- ^ - 31 IF out <> '{"d":" "}' - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:31.11-31.13: - 28 END-IF - 29 - 30 JSON GENERATE out FROM d - 31 > IF out <> '{"d":" "}' ----- ^^ - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) - 33 END-IF ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:35.11-35.15: - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM c ----- ^^^^ - 36 IF out <> '{"c":{"d":" "}}' - 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-584-prog.cob:35.28: - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM c ----- ^ - 36 IF out <> '{"c":{"d":" "}}' - 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:35.29-35.33: - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM c ----- ^^^^ - 36 IF out <> '{"c":{"d":" "}}' - 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:35.35: - 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM c ----- ^ - 36 IF out <> '{"c":{"d":" "}}' - 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:36.11-36.13: - 33 END-IF - 34 - 35 JSON GENERATE out FROM c - 36 > IF out <> '{"c":{"d":" "}}' ----- ^^ - 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) - 38 END-IF ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:41.11-41.15: - 38 END-IF - 39 - 40 MOVE ALL QUOTES TO d - 41 > JSON GENERATE out FROM d ----- ^^^^ - 42 IF out <> '{"d":"\"\"\""}' - 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-584-prog.cob:41.28: - 38 END-IF - 39 - 40 MOVE ALL QUOTES TO d - 41 > JSON GENERATE out FROM d ----- ^ - 42 IF out <> '{"d":"\"\"\""}' - 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:41.29-41.33: - 38 END-IF - 39 - 40 MOVE ALL QUOTES TO d - 41 > JSON GENERATE out FROM d ----- ^^^^ - 42 IF out <> '{"d":"\"\"\""}' - 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-584-prog.cob:41.35: - 38 END-IF - 39 - 40 MOVE ALL QUOTES TO d - 41 > JSON GENERATE out FROM d ----- ^ - 42 IF out <> '{"d":"\"\"\""}' - 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-584-prog.cob:42.11-42.13: - 39 - 40 MOVE ALL QUOTES TO d - 41 JSON GENERATE out FROM d - 42 > IF out <> '{"d":"\"\"\""}' ----- ^^ - 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) - 44 END-IF ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:623:0 -run_ml.at-623-prog.cob:18.11-18.15: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^^^^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Error: Invalid syntax - -run_ml.at-623-prog.cob:18.28: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:18.29-18.33: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^^^^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-623-prog.cob:18.35: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:18.36-18.44: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^^^^^^^^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-623-prog.cob:18.44: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:18.45-18.46: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-623-prog.cob:18.46: - 15 01 out PIC X(100). - 16 - 17 PROCEDURE DIVISION. - 18 > JSON GENERATE out FROM a SUPPRESS b ----- ^ - 19 IF out <> '{"a":{"c":" "}}' - 20 DISPLAY 'Test 1 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:19.11-19.13: - 16 - 17 PROCEDURE DIVISION. - 18 JSON GENERATE out FROM a SUPPRESS b - 19 > IF out <> '{"a":{"c":" "}}' ----- ^^ - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF ->> Warning: Invalid syntax - -run_ml.at-623-prog.cob:23.11-23.15: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^^^^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Error: Invalid syntax - -run_ml.at-623-prog.cob:23.28: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:23.29-23.33: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^^^^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-623-prog.cob:23.35: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:23.36-23.44: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^^^^^^^^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-623-prog.cob:23.44: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:23.45-23.46: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Warning: Invalid syntax - -run_ml.at-623-prog.cob:23.46: - 20 DISPLAY 'Test 1 failed: ' out - 21 END-IF - 22 - 23 > JSON GENERATE out FROM x SUPPRESS z ----- ^ - 24 IF out <> '{"x":{}}' - 25 DISPLAY 'Test 2 failed: ' out ->> Hint: Missing . - -run_ml.at-623-prog.cob:24.11-24.13: - 21 END-IF - 22 - 23 JSON GENERATE out FROM x SUPPRESS z - 24 > IF out <> '{"x":{}}' ----- ^^ - 25 DISPLAY 'Test 2 failed: ' out - 26 END-IF ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:688:0 -run_ml.at-688-prog.cob:16.11-16.15: - 13 01 json-len PIC 99. - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE short-str FROM valid-rec ----- ^^^^ - 17 COUNT IN json-len - 18 IF short-str <> '{"val' ->> Error: Invalid syntax - -run_ml.at-688-prog.cob:16.34: - 13 01 json-len PIC 99. - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE short-str FROM valid-rec ----- ^ - 17 COUNT IN json-len - 18 IF short-str <> '{"val' ->> Hint: Missing . - -run_ml.at-688-prog.cob:16.35-16.39: - 13 01 json-len PIC 99. - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE short-str FROM valid-rec ----- ^^^^ - 17 COUNT IN json-len - 18 IF short-str <> '{"val' ->> Warning: Invalid syntax - -run_ml.at-688-prog.cob:16.49: - 13 01 json-len PIC 99. - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE short-str FROM valid-rec ----- ^ - 17 COUNT IN json-len - 18 IF short-str <> '{"val' ->> Hint: Missing . - -run_ml.at-688-prog.cob:17.15-17.20: - 14 - 15 PROCEDURE DIVISION. - 16 JSON GENERATE short-str FROM valid-rec - 17 > COUNT IN json-len ----- ^^^^^ - 18 IF short-str <> '{"val' - 19 OR json-len <> 33 ->> Warning: Invalid syntax - -run_ml.at-688-prog.cob:17.32: - 14 - 15 PROCEDURE DIVISION. - 16 JSON GENERATE short-str FROM valid-rec - 17 > COUNT IN json-len ----- ^ - 18 IF short-str <> '{"val' - 19 OR json-len <> 33 ->> Hint: Missing . - -run_ml.at-688-prog.cob:18.11-18.13: - 15 PROCEDURE DIVISION. - 16 JSON GENERATE short-str FROM valid-rec - 17 COUNT IN json-len - 18 > IF short-str <> '{"val' ----- ^^ - 19 OR json-len <> 33 - 20 OR JSON-CODE <> 1 ->> Warning: Invalid syntax - -run_ml.at-688-prog.cob:24.11-24.15: - 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE - 22 END-IF - 23 - 24 > JSON GENERATE normal-str FROM valid-rec ----- ^^^^ - 25 ON EXCEPTION - 26 DISPLAY "Failed 2: EXCEPTION " ->> Error: Invalid syntax - -run_ml.at-688-prog.cob:24.35: - 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE - 22 END-IF - 23 - 24 > JSON GENERATE normal-str FROM valid-rec ----- ^ - 25 ON EXCEPTION - 26 DISPLAY "Failed 2: EXCEPTION " ->> Hint: Missing . - -run_ml.at-688-prog.cob:24.36-24.40: - 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE - 22 END-IF - 23 - 24 > JSON GENERATE normal-str FROM valid-rec ----- ^^^^ - 25 ON EXCEPTION - 26 DISPLAY "Failed 2: EXCEPTION " ->> Warning: Invalid syntax - -run_ml.at-688-prog.cob:24.50: - 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE - 22 END-IF - 23 - 24 > JSON GENERATE normal-str FROM valid-rec ----- ^ - 25 ON EXCEPTION - 26 DISPLAY "Failed 2: EXCEPTION " ->> Hint: Missing . - -run_ml.at-688-prog.cob:25.16-25.28: - 22 END-IF - 23 - 24 JSON GENERATE normal-str FROM valid-rec - 25 > ON EXCEPTION ----- ^^^^^^^^^^^^ - 26 DISPLAY "Failed 2: EXCEPTION " - 27 FUNCTION TRIM (normal-str) ->> Warning: Invalid syntax - -run_ml.at-688-prog.cob:31.16-31.32: - 28 " " JSON-CODE - 29 END-DISPLAY - 30 - 31 > NOT ON EXCEPTION ----- ^^^^^^^^^^^^^^^^ - 32 IF JSON-CODE <> 0 - 33 DISPLAY "Failed 2: NOT EXCEPTION " ->> Error: Invalid syntax - -run_ml.at-688-prog.cob:37.11-37.19: - 34 FUNCTION TRIM (normal-str) - 35 " " JSON-CODE - 36 END-IF - 37 > END-JSON ----- ^^^^^^^^ - 38 - 39 JSON GENERATE short-str FROM valid-rec ->> Error: Invalid syntax - -run_ml.at-688-prog.cob:39.34: - 36 END-IF - 37 END-JSON - 38 - 39 > JSON GENERATE short-str FROM valid-rec ----- ^ - 40 NOT EXCEPTION - 41 DISPLAY "Failed 3: NOT EXCEPTION " ->> Hint: Missing . - -run_ml.at-688-prog.cob:39.35-39.39: - 36 END-IF - 37 END-JSON - 38 - 39 > JSON GENERATE short-str FROM valid-rec ----- ^^^^ - 40 NOT EXCEPTION - 41 DISPLAY "Failed 3: NOT EXCEPTION " ->> Warning: Invalid syntax - -run_ml.at-688-prog.cob:39.49: - 36 END-IF - 37 END-JSON - 38 - 39 > JSON GENERATE short-str FROM valid-rec ----- ^ - 40 NOT EXCEPTION - 41 DISPLAY "Failed 3: NOT EXCEPTION " ->> Hint: Missing . - -run_ml.at-688-prog.cob:40.16-40.29: - 37 END-JSON - 38 - 39 JSON GENERATE short-str FROM valid-rec - 40 > NOT EXCEPTION ----- ^^^^^^^^^^^^^ - 41 DISPLAY "Failed 3: NOT EXCEPTION " - 42 FUNCTION TRIM (normal-str) ->> Warning: Invalid syntax - -run_ml.at-688-prog.cob:46.16-46.25: - 43 " " JSON-CODE - 44 END-DISPLAY - 45 - 46 > EXCEPTION ----- ^^^^^^^^^ - 47 IF JSON-CODE <> 1 - 48 DISPLAY "Failed 3: ON EXCEPTION " ->> Error: Invalid syntax - -run_ml.at-688-prog.cob:52.11-52.19: - 49 FUNCTION TRIM (normal-str) - 50 " " JSON-CODE - 51 END-IF - 52 > END-JSON ----- ^^^^^^^^ - 53 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:732:0 -run_ml.at-732-prog.cob:26.11-26.15: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > JSON GENERATE out FROM d ----- ^^^^ - 27 IF out <> '{"d":{"e":"abc000"}}' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-732-prog.cob:26.28: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > JSON GENERATE out FROM d ----- ^ - 27 IF out <> '{"d":{"e":"abc000"}}' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-732-prog.cob:26.29-26.33: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > JSON GENERATE out FROM d ----- ^^^^ - 27 IF out <> '{"d":{"e":"abc000"}}' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-732-prog.cob:26.35: - 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) - 24 *> END-IF - 25 - 26 > JSON GENERATE out FROM d ----- ^ - 27 IF out <> '{"d":{"e":"abc000"}}' - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-732-prog.cob:27.11-27.13: - 24 *> END-IF - 25 - 26 JSON GENERATE out FROM d - 27 > IF out <> '{"d":{"e":"abc000"}}' ----- ^^ - 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 29 END-IF ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:832:0 -run_ml.at-832-prog.cob:25.11-25.15: - 22 01 out PIC X(300). - 23 - 24 PROCEDURE DIVISION. - 25 > JSON GENERATE out FROM str ----- ^^^^ - 26 IF out <> '{"str":"ab"}' - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:25.28: - 22 01 out PIC X(300). - 23 - 24 PROCEDURE DIVISION. - 25 > JSON GENERATE out FROM str ----- ^ - 26 IF out <> '{"str":"ab"}' - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:25.29-25.33: - 22 01 out PIC X(300). - 23 - 24 PROCEDURE DIVISION. - 25 > JSON GENERATE out FROM str ----- ^^^^ - 26 IF out <> '{"str":"ab"}' - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:25.37: - 22 01 out PIC X(300). - 23 - 24 PROCEDURE DIVISION. - 25 > JSON GENERATE out FROM str ----- ^ - 26 IF out <> '{"str":"ab"}' - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:26.11-26.13: - 23 - 24 PROCEDURE DIVISION. - 25 JSON GENERATE out FROM str - 26 > IF out <> '{"str":"ab"}' ----- ^^ - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 28 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:30.11-30.15: - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM num-edited ----- ^^^^ - 31 IF out <> '{"num-edited":"01.00"}' - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:30.28: - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM num-edited ----- ^ - 31 IF out <> '{"num-edited":"01.00"}' - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:30.29-30.33: - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM num-edited ----- ^^^^ - 31 IF out <> '{"num-edited":"01.00"}' - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:30.44: - 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) - 28 END-IF - 29 - 30 > JSON GENERATE out FROM num-edited ----- ^ - 31 IF out <> '{"num-edited":"01.00"}' - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:31.11-31.13: - 28 END-IF - 29 - 30 JSON GENERATE out FROM num-edited - 31 > IF out <> '{"num-edited":"01.00"}' ----- ^^ - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 33 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:35.11-35.15: - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM leading-zeroes ----- ^^^^ - 36 IF out <> '{"leading-zeroes":5}' - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:35.28: - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM leading-zeroes ----- ^ - 36 IF out <> '{"leading-zeroes":5}' - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:35.29-35.33: - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM leading-zeroes ----- ^^^^ - 36 IF out <> '{"leading-zeroes":5}' - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:35.48: - 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) - 33 END-IF - 34 - 35 > JSON GENERATE out FROM leading-zeroes ----- ^ - 36 IF out <> '{"leading-zeroes":5}' - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:36.11-36.13: - 33 END-IF - 34 - 35 JSON GENERATE out FROM leading-zeroes - 36 > IF out <> '{"leading-zeroes":5}' ----- ^^ - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 38 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:40.11-40.15: - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 38 END-IF - 39 - 40 > JSON GENERATE out FROM decimal-nums ----- ^^^^ - 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- - 42 '"decimal-num-2":0.1}}' ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:40.28: - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 38 END-IF - 39 - 40 > JSON GENERATE out FROM decimal-nums ----- ^ - 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- - 42 '"decimal-num-2":0.1}}' ->> Hint: Missing . - -run_ml.at-832-prog.cob:40.29-40.33: - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 38 END-IF - 39 - 40 > JSON GENERATE out FROM decimal-nums ----- ^^^^ - 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- - 42 '"decimal-num-2":0.1}}' ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:40.46: - 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) - 38 END-IF - 39 - 40 > JSON GENERATE out FROM decimal-nums ----- ^ - 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- - 42 '"decimal-num-2":0.1}}' ->> Hint: Missing . - -run_ml.at-832-prog.cob:41.11-41.13: - 38 END-IF - 39 - 40 JSON GENERATE out FROM decimal-nums - 41 > IF out <> '{"decimal-nums":{"decimal-num":0.120,'- ----- ^^ - 42 '"decimal-num-2":0.1}}' - 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:46.11-46.15: - 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 44 END-IF - 45 - 46 > JSON GENERATE out FROM signed-decimal-num ----- ^^^^ - 47 IF out <> '{"signed-decimal-num":-1}' - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:46.28: - 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 44 END-IF - 45 - 46 > JSON GENERATE out FROM signed-decimal-num ----- ^ - 47 IF out <> '{"signed-decimal-num":-1}' - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:46.29-46.33: - 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 44 END-IF - 45 - 46 > JSON GENERATE out FROM signed-decimal-num ----- ^^^^ - 47 IF out <> '{"signed-decimal-num":-1}' - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:46.52: - 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) - 44 END-IF - 45 - 46 > JSON GENERATE out FROM signed-decimal-num ----- ^ - 47 IF out <> '{"signed-decimal-num":-1}' - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:47.11-47.13: - 44 END-IF - 45 - 46 JSON GENERATE out FROM signed-decimal-num - 47 > IF out <> '{"signed-decimal-num":-1}' ----- ^^ - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 49 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:51.11-51.15: - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 49 END-IF - 50 - 51 > JSON GENERATE out FROM comp-5-item ----- ^^^^ - 52 IF out <> '{"comp-5-item":5}' - 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:51.28: - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 49 END-IF - 50 - 51 > JSON GENERATE out FROM comp-5-item ----- ^ - 52 IF out <> '{"comp-5-item":5}' - 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:51.29-51.33: - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 49 END-IF - 50 - 51 > JSON GENERATE out FROM comp-5-item ----- ^^^^ - 52 IF out <> '{"comp-5-item":5}' - 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:51.45: - 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) - 49 END-IF - 50 - 51 > JSON GENERATE out FROM comp-5-item ----- ^ - 52 IF out <> '{"comp-5-item":5}' - 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:52.11-52.13: - 49 END-IF - 50 - 51 JSON GENERATE out FROM comp-5-item - 52 > IF out <> '{"comp-5-item":5}' ----- ^^ - 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) - 54 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:57.11-57.15: - 54 END-IF - 55 - 56 SET index-item TO 500 - 57 > JSON GENERATE out FROM index-item ----- ^^^^ - 58 IF out <> '{"index-item":500}' - 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:57.28: - 54 END-IF - 55 - 56 SET index-item TO 500 - 57 > JSON GENERATE out FROM index-item ----- ^ - 58 IF out <> '{"index-item":500}' - 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:57.29-57.33: - 54 END-IF - 55 - 56 SET index-item TO 500 - 57 > JSON GENERATE out FROM index-item ----- ^^^^ - 58 IF out <> '{"index-item":500}' - 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:57.44: - 54 END-IF - 55 - 56 SET index-item TO 500 - 57 > JSON GENERATE out FROM index-item ----- ^ - 58 IF out <> '{"index-item":500}' - 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:58.11-58.13: - 55 - 56 SET index-item TO 500 - 57 JSON GENERATE out FROM index-item - 58 > IF out <> '{"index-item":500}' ----- ^^ - 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) - 60 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:73.11-73.15: - 70 *> END-IF - 71 - 72 MOVE "blah " TO just-item - 73 > JSON GENERATE out FROM just-item ----- ^^^^ - 74 IF out <> '{"just-item":"blah "}' - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:73.28: - 70 *> END-IF - 71 - 72 MOVE "blah " TO just-item - 73 > JSON GENERATE out FROM just-item ----- ^ - 74 IF out <> '{"just-item":"blah "}' - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:73.29-73.33: - 70 *> END-IF - 71 - 72 MOVE "blah " TO just-item - 73 > JSON GENERATE out FROM just-item ----- ^^^^ - 74 IF out <> '{"just-item":"blah "}' - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:73.43: - 70 *> END-IF - 71 - 72 MOVE "blah " TO just-item - 73 > JSON GENERATE out FROM just-item ----- ^ - 74 IF out <> '{"just-item":"blah "}' - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:74.11-74.13: - 71 - 72 MOVE "blah " TO just-item - 73 JSON GENERATE out FROM just-item - 74 > IF out <> '{"just-item":"blah "}' ----- ^^ - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 76 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:78.11-78.15: - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 76 END-IF - 77 - 78 > JSON GENERATE out FROM integer-with-p ----- ^^^^ - 79 IF out <> '{"integer-with-p":10000}' - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:78.28: - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 76 END-IF - 77 - 78 > JSON GENERATE out FROM integer-with-p ----- ^ - 79 IF out <> '{"integer-with-p":10000}' - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:78.29-78.33: - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 76 END-IF - 77 - 78 > JSON GENERATE out FROM integer-with-p ----- ^^^^ - 79 IF out <> '{"integer-with-p":10000}' - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:78.48: - 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) - 76 END-IF - 77 - 78 > JSON GENERATE out FROM integer-with-p ----- ^ - 79 IF out <> '{"integer-with-p":10000}' - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:79.11-79.13: - 76 END-IF - 77 - 78 JSON GENERATE out FROM integer-with-p - 79 > IF out <> '{"integer-with-p":10000}' ----- ^^ - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 81 END-IF ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:83.11-83.15: - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 81 END-IF - 82 - 83 > JSON GENERATE out FROM decimal-with-p ----- ^^^^ - 84 IF out <> '{"decimal-with-p":0.0004}' - 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Error: Invalid syntax - -run_ml.at-832-prog.cob:83.28: - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 81 END-IF - 82 - 83 > JSON GENERATE out FROM decimal-with-p ----- ^ - 84 IF out <> '{"decimal-with-p":0.0004}' - 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:83.29-83.33: - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 81 END-IF - 82 - 83 > JSON GENERATE out FROM decimal-with-p ----- ^^^^ - 84 IF out <> '{"decimal-with-p":0.0004}' - 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Warning: Invalid syntax - -run_ml.at-832-prog.cob:83.48: - 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) - 81 END-IF - 82 - 83 > JSON GENERATE out FROM decimal-with-p ----- ^ - 84 IF out <> '{"decimal-with-p":0.0004}' - 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) ->> Hint: Missing . - -run_ml.at-832-prog.cob:84.11-84.13: - 81 END-IF - 82 - 83 JSON GENERATE out FROM decimal-with-p - 84 > IF out <> '{"decimal-with-p":0.0004}' ----- ^^ - 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) - 86 END-IF ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:863:0 -run_ml.at-863-prog.cob:2.7-2.29: - 1 - 2 > $SET DPC-IN-DATA "JSON" ----- ^^^^^^^^^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. ->> Error: Unexpected characters - -run_ml.at-863-prog.cob:17.11-17.15: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > JSON GENERATE out FROM num ----- ^^^^ - 18 IF out <> '{"num":1,1}' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Error: Invalid syntax - -run_ml.at-863-prog.cob:17.28: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > JSON GENERATE out FROM num ----- ^ - 18 IF out <> '{"num":1,1}' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Hint: Missing . - -run_ml.at-863-prog.cob:17.29-17.33: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > JSON GENERATE out FROM num ----- ^^^^ - 18 IF out <> '{"num":1,1}' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Warning: Invalid syntax - -run_ml.at-863-prog.cob:17.37: - 14 01 out PIC X(100). - 15 - 16 PROCEDURE DIVISION. - 17 > JSON GENERATE out FROM num ----- ^ - 18 IF out <> '{"num":1,1}' - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Hint: Missing . - -run_ml.at-863-prog.cob:18.11-18.13: - 15 - 16 PROCEDURE DIVISION. - 17 JSON GENERATE out FROM num - 18 > IF out <> '{"num":1,1}' ----- ^^ - 19 DISPLAY "Failed: " FUNCTION TRIM (out). ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_ml.at:893:0 -run_ml.at-893-prog.cob:16.11-16.15: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE out FROM num ----- ^^^^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Error: Invalid syntax - -run_ml.at-893-prog.cob:16.28: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE out FROM num ----- ^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Hint: Missing . - -run_ml.at-893-prog.cob:16.29-16.33: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE out FROM num ----- ^^^^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Warning: Invalid syntax - -run_ml.at-893-prog.cob:16.37: - 13 01 out PIC X(100). - 14 - 15 PROCEDURE DIVISION. - 16 > JSON GENERATE out FROM num ----- ^ - 17 DISPLAY FUNCTION TRIM(out) - 18 . ->> Hint: Missing . - -run_ml.at-893-prog.cob:17.11-17.18: - 14 - 15 PROCEDURE DIVISION. - 16 JSON GENERATE out FROM num - 17 > DISPLAY FUNCTION TRIM(out) ----- ^^^^^^^ - 18 . ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:46:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:83:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:110:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:139:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:161:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:181:0 -run_refmod.at-181-prog2.cob:9.7-9.29: - 6 01 X PIC X(4) VALUE "abcd". - 7 01 I PIC 9 VALUE 0. - 8 PROCEDURE DIVISION. - 9 > >> REF-MOD-ZERO-LENGTH ----- ^^^^^^^^^^^^^^^^^^^^^^ - 10 DISPLAY X(1:I) NO ADVANCING. - 11 >> REF-MOD-ZERO-LENGTH OFF ->> Error: Malformed or unknown compiler directive - -run_refmod.at-181-prog2.cob:11.7-11.33: - 8 PROCEDURE DIVISION. - 9 >> REF-MOD-ZERO-LENGTH - 10 DISPLAY X(1:I) NO ADVANCING. - 11 > >> REF-MOD-ZERO-LENGTH OFF ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 DISPLAY X(1:I) NO ADVANCING. - 13 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:205:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:223:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:246:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:272:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:305:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:337:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:374:0 -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:413:0 -run_refmod.at-413-prog.cob:2.7-2.20: - 1 - 2 > $SET NOSSRANGE ----- ^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:435:0 -run_refmod.at-435-prog1.cob:2.7-2.21: - 1 - 2 > $SET SSRANGE"1" ----- ^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. progb. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:461:0 -run_refmod.at-461-prog2.cob:2.7-2.21: - 1 - 2 > $SET SSRANGE"2" ----- ^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog2. ->> Error: Unexpected characters - -run_refmod.at-461-prog2.cob:15.7-15.39: - 12 01 m PIC 9 VALUE 2. - 13 - 14 PROCEDURE DIVISION. - 15 > $IF TEST-ZERO-LEN-REF-MOD DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 16 DISPLAY y (1:n) - 17 $END ->> Error: Unexpected characters - -run_refmod.at-461-prog2.cob:17.7-17.10: - 14 PROCEDURE DIVISION. - 15 $IF TEST-ZERO-LEN-REF-MOD DEFINED - 16 DISPLAY y (1:n) - 17 > $END ----- ^^^ - 18 DISPLAY y (1:m) - 19 GOBACK. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:490:0 -run_refmod.at-490-prog3.cob:2.7-2.21: - 1 - 2 > $SET SSRANGE"3" ----- ^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog3. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:82:0 -run_reportwriter.at-82-prog.cob:11.44-11.52: - 8 ENVIRONMENT DIVISION. - 9 INPUT-OUTPUT SECTION. - 10 FILE-CONTROL. - 11 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT ----- ^^^^^^^^ - 12 LINE SEQUENTIAL. - 13 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-82-prog.cob:19.22: - 16 REPORT IS RWCS-Report. - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 > RD RWCS-Report ----- ^ - 20 PAGE LIMIT 12 - 21 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-82-prog.cob:20.11-20.15: - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 > PAGE LIMIT 12 ----- ^^^^ - 21 HEADING 1 - 22 FIRST DETAIL 4 ->> Error: Invalid syntax - -run_reportwriter.at-82-prog.cob:20.24: - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 > PAGE LIMIT 12 ----- ^ - 21 HEADING 1 - 22 FIRST DETAIL 4 ->> Hint: Missing . - -run_reportwriter.at-82-prog.cob:21.15-21.22: - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 > HEADING 1 ----- ^^^^^^^ - 22 FIRST DETAIL 4 - 23 LAST DETAIL 7. ->> Error: Invalid syntax - -run_reportwriter.at-82-prog.cob:21.24: - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 > HEADING 1 ----- ^ - 22 FIRST DETAIL 4 - 23 LAST DETAIL 7. ->> Hint: Missing . - -run_reportwriter.at-82-prog.cob:22.15-22.20: - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 > FIRST DETAIL 4 ----- ^^^^^ - 23 LAST DETAIL 7. - 24 ->> Error: Invalid syntax - -run_reportwriter.at-82-prog.cob:22.29: - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 > FIRST DETAIL 4 ----- ^ - 23 LAST DETAIL 7. - 24 ->> Hint: Missing . - -run_reportwriter.at-82-prog.cob:23.15-23.19: - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 FIRST DETAIL 4 - 23 > LAST DETAIL 7. ----- ^^^^ - 24 - 25 01 TYPE REPORT HEADING LINE 1. ->> Error: Invalid syntax - -run_reportwriter.at-82-prog.cob:28.15: - 25 01 TYPE REPORT HEADING LINE 1. - 26 05 COL 1 VALUE 'RH'. - 27 - 28 > 01 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 29 05 COL 1 VALUE 'PH'. - 30 ->> Hint: Missing DETAIL - -run_reportwriter.at-82-prog.cob:28.16-28.20: - 25 01 TYPE REPORT HEADING LINE 1. - 26 05 COL 1 VALUE 'RH'. - 27 - 28 > 01 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 29 05 COL 1 VALUE 'PH'. - 30 ->> Error: Invalid syntax - -run_reportwriter.at-82-prog.cob:34.15: - 31 01 Detail-Line TYPE DETAIL LINE PLUS 1. - 32 05 COL 1 VALUE 'DE'. - 33 - 34 > 01 TYPE PAGE FOOTING LINE NUMBER 10. ----- ^ - 35 05 COL 1 VALUE 'PF'. - 36 ->> Hint: Missing DETAIL - -run_reportwriter.at-82-prog.cob:34.16-34.20: - 31 01 Detail-Line TYPE DETAIL LINE PLUS 1. - 32 05 COL 1 VALUE 'DE'. - 33 - 34 > 01 TYPE PAGE FOOTING LINE NUMBER 10. ----- ^^^^ - 35 05 COL 1 VALUE 'PF'. - 36 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:115:0 -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:163:0 -run_reportwriter.at-163-prog.cob:11.49-11.57: - 8 ENVIRONMENT DIVISION. - 9 INPUT-OUTPUT SECTION. - 10 FILE-CONTROL. - 11 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT ----- ^^^^^^^^ - 12 LINE SEQUENTIAL. - 13 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-163-prog.cob:19.22: - 16 REPORT IS RWCS-Report. - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 > RD RWCS-Report ----- ^ - 20 PAGE LIMIT 12 - 21 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-163-prog.cob:20.11-20.15: - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 > PAGE LIMIT 12 ----- ^^^^ - 21 HEADING 1 - 22 FIRST DETAIL 4 ->> Error: Invalid syntax - -run_reportwriter.at-163-prog.cob:20.24: - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 > PAGE LIMIT 12 ----- ^ - 21 HEADING 1 - 22 FIRST DETAIL 4 ->> Hint: Missing . - -run_reportwriter.at-163-prog.cob:21.15-21.22: - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 > HEADING 1 ----- ^^^^^^^ - 22 FIRST DETAIL 4 - 23 LAST DETAIL 7. ->> Error: Invalid syntax - -run_reportwriter.at-163-prog.cob:21.24: - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 > HEADING 1 ----- ^ - 22 FIRST DETAIL 4 - 23 LAST DETAIL 7. ->> Hint: Missing . - -run_reportwriter.at-163-prog.cob:22.15-22.20: - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 > FIRST DETAIL 4 ----- ^^^^^ - 23 LAST DETAIL 7. - 24 ->> Error: Invalid syntax - -run_reportwriter.at-163-prog.cob:22.29: - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 > FIRST DETAIL 4 ----- ^ - 23 LAST DETAIL 7. - 24 ->> Hint: Missing . - -run_reportwriter.at-163-prog.cob:23.15-23.19: - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 FIRST DETAIL 4 - 23 > LAST DETAIL 7. ----- ^^^^ - 24 - 25 01 Detail-Line TYPE DETAIL. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:184:0 -run_reportwriter.at-184-reference:4.6-4.7: - 1 - 2 - 3 - 4 > 12345678901234567890 ABCD ! ----- ^ - 5 - 6 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-184-reference:4.7-4.20: - 1 - 2 - 3 - 4 > 12345678901234567890 ABCD ! ----- ^^^^^^^^^^^^^ - 5 - 6 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:232:0 -run_reportwriter.at-232-prog.cob:12.49-12.57: - 9 ENVIRONMENT DIVISION. - 10 INPUT-OUTPUT SECTION. - 11 FILE-CONTROL. - 12 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT ----- ^^^^^^^^ - 13 LINE SEQUENTIAL. - 14 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-232-prog.cob:20.22: - 17 REPORT IS RWCS-Report. - 18 WORKING-STORAGE SECTION. - 19 REPORT SECTION. - 20 > RD RWCS-Report ----- ^ - 21 PAGE LIMIT 12 - 22 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-232-prog.cob:21.11-21.15: - 18 WORKING-STORAGE SECTION. - 19 REPORT SECTION. - 20 RD RWCS-Report - 21 > PAGE LIMIT 12 ----- ^^^^ - 22 HEADING 1 - 23 FIRST DETAIL 4 ->> Error: Invalid syntax - -run_reportwriter.at-232-prog.cob:21.24: - 18 WORKING-STORAGE SECTION. - 19 REPORT SECTION. - 20 RD RWCS-Report - 21 > PAGE LIMIT 12 ----- ^ - 22 HEADING 1 - 23 FIRST DETAIL 4 ->> Hint: Missing . - -run_reportwriter.at-232-prog.cob:22.15-22.22: - 19 REPORT SECTION. - 20 RD RWCS-Report - 21 PAGE LIMIT 12 - 22 > HEADING 1 ----- ^^^^^^^ - 23 FIRST DETAIL 4 - 24 LAST DETAIL 7. ->> Error: Invalid syntax - -run_reportwriter.at-232-prog.cob:22.24: - 19 REPORT SECTION. - 20 RD RWCS-Report - 21 PAGE LIMIT 12 - 22 > HEADING 1 ----- ^ - 23 FIRST DETAIL 4 - 24 LAST DETAIL 7. ->> Hint: Missing . - -run_reportwriter.at-232-prog.cob:23.15-23.20: - 20 RD RWCS-Report - 21 PAGE LIMIT 12 - 22 HEADING 1 - 23 > FIRST DETAIL 4 ----- ^^^^^ - 24 LAST DETAIL 7. - 25 ->> Error: Invalid syntax - -run_reportwriter.at-232-prog.cob:23.29: - 20 RD RWCS-Report - 21 PAGE LIMIT 12 - 22 HEADING 1 - 23 > FIRST DETAIL 4 ----- ^ - 24 LAST DETAIL 7. - 25 ->> Hint: Missing . - -run_reportwriter.at-232-prog.cob:24.15-24.19: - 21 PAGE LIMIT 12 - 22 HEADING 1 - 23 FIRST DETAIL 4 - 24 > LAST DETAIL 7. ----- ^^^^ - 25 - 26 01 Detail-Line TYPE DETAIL. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:253:0 -run_reportwriter.at-253-reference:4.6-4.7: - 1 - 2 - 3 - 4 > 123456789ABCD4567890 ----- ^ - 5 - 6 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-253-reference:4.7-4.20: - 1 - 2 - 3 - 4 > 123456789ABCD4567890 ----- ^^^^^^^^^^^^^ - 5 - 6 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:313:0 -run_reportwriter.at-313-prog.cob:11.49-11.57: - 8 ENVIRONMENT DIVISION. - 9 INPUT-OUTPUT SECTION. - 10 FILE-CONTROL. - 11 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT ----- ^^^^^^^^ - 12 LINE SEQUENTIAL. - 13 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-313-prog.cob:19.22: - 16 REPORT IS RWCS-Report. - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 > RD RWCS-Report ----- ^ - 20 PAGE LIMIT 12 - 21 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-313-prog.cob:20.11-20.15: - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 > PAGE LIMIT 12 ----- ^^^^ - 21 HEADING 1 - 22 FIRST DETAIL 4 ->> Error: Invalid syntax - -run_reportwriter.at-313-prog.cob:20.24: - 17 WORKING-STORAGE SECTION. - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 > PAGE LIMIT 12 ----- ^ - 21 HEADING 1 - 22 FIRST DETAIL 4 ->> Hint: Missing . - -run_reportwriter.at-313-prog.cob:21.15-21.22: - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 > HEADING 1 ----- ^^^^^^^ - 22 FIRST DETAIL 4 - 23 LAST DETAIL 7 ->> Error: Invalid syntax - -run_reportwriter.at-313-prog.cob:21.24: - 18 REPORT SECTION. - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 > HEADING 1 ----- ^ - 22 FIRST DETAIL 4 - 23 LAST DETAIL 7 ->> Hint: Missing . - -run_reportwriter.at-313-prog.cob:22.15-22.20: - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 > FIRST DETAIL 4 ----- ^^^^^ - 23 LAST DETAIL 7 - 24 CONTROL IS FINAL. ->> Error: Invalid syntax - -run_reportwriter.at-313-prog.cob:22.29: - 19 RD RWCS-Report - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 > FIRST DETAIL 4 ----- ^ - 23 LAST DETAIL 7 - 24 CONTROL IS FINAL. ->> Hint: Missing . - -run_reportwriter.at-313-prog.cob:23.15-23.19: - 20 PAGE LIMIT 12 - 21 HEADING 1 - 22 FIRST DETAIL 4 - 23 > LAST DETAIL 7 ----- ^^^^ - 24 CONTROL IS FINAL. - 25 ->> Error: Invalid syntax - -run_reportwriter.at-313-prog.cob:24.11-24.18: - 21 HEADING 1 - 22 FIRST DETAIL 4 - 23 LAST DETAIL 7 - 24 > CONTROL IS FINAL. ----- ^^^^^^^ - 25 - 26 01 TYPE REPORT HEADING LINE 1. ->> Error: Invalid syntax - -run_reportwriter.at-313-prog.cob:29.15: - 26 01 TYPE REPORT HEADING LINE 1. - 27 05 COL 1 VALUE 'RH'. - 28 - 29 > 01 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 30 05 COL 1 VALUE 'PH'. - 31 ->> Hint: Missing DETAIL - -run_reportwriter.at-313-prog.cob:29.16-29.20: - 26 01 TYPE REPORT HEADING LINE 1. - 27 05 COL 1 VALUE 'RH'. - 28 - 29 > 01 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 30 05 COL 1 VALUE 'PH'. - 31 ->> Error: Invalid syntax - -run_reportwriter.at-313-prog.cob:38.15: - 35 01 TYPE CONTROL FOOTING FINAL. - 36 05 COL 1 VALUE 'CFF'. - 37 - 38 > 01 TYPE PAGE FOOTING LINE NUMBER 10. ----- ^ - 39 05 COL 1 VALUE 'PF'. - 40 ->> Hint: Missing DETAIL - -run_reportwriter.at-313-prog.cob:38.16-38.20: - 35 01 TYPE CONTROL FOOTING FINAL. - 36 05 COL 1 VALUE 'CFF'. - 37 - 38 > 01 TYPE PAGE FOOTING LINE NUMBER 10. ----- ^^^^ - 39 05 COL 1 VALUE 'PF'. - 40 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:322:0 -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:371:0 -run_reportwriter.at-371-prog.cob:8.33-8.41: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-371-prog.cob:20.13: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^ - 21 - 22 01 rp-detail TYPE DE. ->> Hint: Missing . - -run_reportwriter.at-371-prog.cob:20.14-20.18: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^^^^ - 21 - 22 01 rp-detail TYPE DE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:383:0 -run_reportwriter.at-383-reference:2.6-2.7: - 1 hello <---> - 2 > goodbye <---> ----- ^ - 3 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-383-reference:1.31-1.32: - 1 > hello <---> ----- ^ - 2 goodbye <---> - 3 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:440:0 -run_reportwriter.at-440-prog.cob:7.33-7.41: - 4 ENVIRONMENT DIVISION. - 5 INPUT-OUTPUT SECTION. - 6 FILE-CONTROL. - 7 > SELECT report-file ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 8 ORGANIZATION LINE SEQUENTIAL. - 9 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-440-prog.cob:18.13: - 15 01 foo PIC X(20). - 16 - 17 REPORT SECTION. - 18 > RD rp PAGE LIMIT 3 LINES. ----- ^ - 19 - 20 01 rp-detail TYPE DE. ->> Hint: Missing . - -run_reportwriter.at-440-prog.cob:18.14-18.18: - 15 01 foo PIC X(20). - 16 - 17 REPORT SECTION. - 18 > RD rp PAGE LIMIT 3 LINES. ----- ^^^^ - 19 - 20 01 rp-detail TYPE DE. ->> Error: Invalid syntax - -run_reportwriter.at-440-prog.cob:18.32: - 15 01 foo PIC X(20). - 16 - 17 REPORT SECTION. - 18 > RD rp PAGE LIMIT 3 LINES. ----- ^ - 19 - 20 01 rp-detail TYPE DE. ->> Hint: Missing ARE - -run_reportwriter.at-440-prog.cob:18.32-18.33: - 15 01 foo PIC X(20). - 16 - 17 REPORT SECTION. - 18 > RD rp PAGE LIMIT 3 LINES. ----- ^ - 19 - 20 01 rp-detail TYPE DE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:455:0 -run_reportwriter.at-455-reference:5.6-5.7: - 2 world <---> - 3 from <---> - 4 REPORT WRITER <---> - 5 > goodbye <---> ----- ^ - 6 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-455-reference:1.31-1.32: - 1 > hello <---> ----- ^ - 2 world <---> - 3 from <---> ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:632:0 -run_reportwriter.at-632-inp_data:1.6-1.7: - 1 > 0152 J. LANGDON 87653 02475 ----- ^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:2.6-2.7: - 1 0152 J. LANGDON 87653 02475 - 2 > 0152 J. LANGDON 64025 00945 ----- ^ - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:3.6-3.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 > 0152 J. LANGDON 41915 01370 ----- ^ - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:4.6-4.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 > 0152 J. LANGDON 17410 00251 ----- ^ - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:5.6-5.7: - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 > 2468 L. MORRISEY 18520 00375 ----- ^ - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:6.6-6.7: - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 > 2468 L. MORRISEY 20012 00420 ----- ^ - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:7.6-7.7: - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 > 2468 L. MORRISEY 31572 01015 ----- ^ - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:8.6-8.7: - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 > 2468 L. MORRISEY 48792 03750 ----- ^ - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:9.6-9.7: - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 > 2468 L. MORRISEY 50407 01515 ----- ^ - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:10.6-10.7: - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 > 2468 L. MORRISEY 61575 02010 ----- ^ - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:11.6-11.7: - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 > 2468 L. MORRISEY 79204 05170 ----- ^ - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:12.6-12.7: - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 > 2468 L. MORRISEY 85075 03784 ----- ^ - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:13.6-13.7: - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 > 2468 L. MORRISEY 98476 08794 ----- ^ - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:14.6-14.7: - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 > 3451 M. JACKSON 37847 02790 ----- ^ - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:15.6-15.7: - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 > 3451 M. JACKSON 58492 06850 ----- ^ - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:16.6-16.7: - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 > 3451 M. JACKSON 60010 02040 ----- ^ - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:17.6-17.7: - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 > 3451 M. JACKSON 85260 07852 ----- ^ - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:18.6-18.7: - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 > 3451 M. JACKSON 90520 02752 ----- ^ - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:19.6-19.7: - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 > 4512 S. LEVITT 24680 03050 ----- ^ - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:20.6-20.7: - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 > 4512 S. LEVITT 56784 05253 ----- ^ - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:21.6-21.7: - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 > 4512 S. LEVITT 60410 01215 ----- ^ - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:22.6-22.7: - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 > 4512 S. LEVITT 78952 08925 ----- ^ - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:23.6-23.7: - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 > 4512 S. LEVITT 85278 04975 ----- ^ - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:24.6-24.7: - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 > 4512 S. LEVITT 87492 06425 ----- ^ - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:25.6-25.7: - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 > 4512 S. LEVITT 97204 08475 ----- ^ - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:26.6-26.7: - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 > 5417 K. CONKLIN 13579 03572 ----- ^ - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:27.6-27.7: - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 > 5417 K. CONKLIN 24615 01875 ----- ^ - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:28.6-28.7: - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 > 5417 K. CONKLIN 34928 03745 ----- ^ - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:29.6-29.7: - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 > 5417 K. CONKLIN 48527 08750 ----- ^ - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:30.6-30.7: - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 > 5417 K. CONKLIN 50150 01895 ----- ^ - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:31.6-31.7: - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 > 5417 K. CONKLIN 54652 03892 ----- ^ - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:32.6-32.7: - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 > 5417 K. CONKLIN 59765 09895 ----- ^ - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:33.6-33.7: - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 > 5417 K. CONKLIN 71572 01895 ----- ^ - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:34.6-34.7: - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 > 5417 K. CONKLIN 85175 08010 ----- ^ - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:35.6-35.7: - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 > 5417 K. CONKLIN 90275 00460 ----- ^ - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:36.6-36.7: - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 > 5417 K. CONKLIN 91572 01857 ----- ^ - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:37.6-37.7: - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 > 5417 K. CONKLIN 97576 08495 ----- ^ - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:38.6-38.7: - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 > 6213 Z. HAMPTON 15792 06425 ----- ^ - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:39.6-39.7: - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 > 6213 Z. HAMPTON 19975 09875 ----- ^ - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:40.6-40.7: - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 > 6213 Z. HAMPTON 34576 05115 ----- ^ - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:41.6-41.7: - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 > 6213 Z. HAMPTON 49512 08520 ----- ^ - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:42.6-42.7: - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 > 7545 M. LARSON 14676 03845 ----- ^ - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:43.6-43.7: - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 > 7545 M. LARSON 18592 08251 ----- ^ - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:44.6-44.7: - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 > 7545 M. LARSON 19994 09898 ----- ^ - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:45.6-45.7: - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 > 7545 M. LARSON 21214 01515 ----- ^ - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:46.6-46.7: - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 > 7545 M. LARSON 37515 08212 ----- ^ - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:47.6-47.7: - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 > 7545 M. LARSON 38592 09615 ----- ^ - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:48.6-48.7: - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 > 7545 M. LARSON 48485 08714 ----- ^ - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:49.6-49.7: - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 > 7545 M. LARSON 52762 03792 ----- ^ - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:50.6-50.7: - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 > 7545 M. LARSON 57684 08015 ----- ^ - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:51.6-51.7: - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 > 7545 M. LARSON 79015 09625 ----- ^ - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:52.6-52.7: - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 > 7545 M. LARSON 80123 00560 ----- ^ - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:53.6-53.7: - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 > 7545 M. LARSON 82462 02015 ----- ^ - 54 7545 M. LARSON 91520 01815 - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:54.6-54.7: - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 > 7545 M. LARSON 91520 01815 ----- ^ - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:55.6-55.7: - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 - 55 > 7545 M. LARSON 93715 04015 ----- ^ ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-632-inp_data:1.8-1.15: - 1 > 0152 J. LANGDON 87653 02475 ----- ^^^^^^^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:630:0 -run_reportwriter.at-630-prog.cob:16.25-16.33: - 13 FILE-CONTROL. - 14 - 15 SELECT TRANSACTION-DATA - 16 > ASSIGN TO EXTERNAL DATAIN ----- ^^^^^^^^ - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-630-prog.cob:20.25-20.33: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^ - 21 - 22 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-630-prog.cob:20.34-20.38: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^ - 21 - 22 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-630-prog.cob:20.38: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^ - 21 - 22 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-630-prog.cob:20.39-20.48: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^^ - 21 - 22 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-630-prog.cob:48.26: - 45 88 END-OF-FILE VALUE 'Y'. - 46 - 47 REPORT SECTION. - 48 > RD CUSTOMER-REPORT ----- ^ - 49 PAGE LIMIT IS 66 LINES - 50 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-630-prog.cob:49.11-49.15: - 46 - 47 REPORT SECTION. - 48 RD CUSTOMER-REPORT - 49 > PAGE LIMIT IS 66 LINES ----- ^^^^ - 50 HEADING 1 - 51 FIRST DETAIL 5 ->> Error: Invalid syntax - -run_reportwriter.at-630-prog.cob:49.33: - 46 - 47 REPORT SECTION. - 48 RD CUSTOMER-REPORT - 49 > PAGE LIMIT IS 66 LINES ----- ^ - 50 HEADING 1 - 51 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-630-prog.cob:50.11-50.18: - 47 REPORT SECTION. - 48 RD CUSTOMER-REPORT - 49 PAGE LIMIT IS 66 LINES - 50 > HEADING 1 ----- ^^^^^^^ - 51 FIRST DETAIL 5 - 52 LAST DETAIL 58. ->> Error: Invalid syntax - -run_reportwriter.at-630-prog.cob:51.11-51.16: - 48 RD CUSTOMER-REPORT - 49 PAGE LIMIT IS 66 LINES - 50 HEADING 1 - 51 > FIRST DETAIL 5 ----- ^^^^^ - 52 LAST DETAIL 58. - 53 ->> Error: Invalid syntax - -run_reportwriter.at-630-prog.cob:52.11-52.15: - 49 PAGE LIMIT IS 66 LINES - 50 HEADING 1 - 51 FIRST DETAIL 5 - 52 > LAST DETAIL 58. ----- ^^^^ - 53 - 54 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-630-prog.cob:54.31: - 51 FIRST DETAIL 5 - 52 LAST DETAIL 58. - 53 - 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^ - 55 02 LINE 1. - 56 03 COLUMN 27 PIC X(41) VALUE ->> Hint: Missing DETAIL - -run_reportwriter.at-630-prog.cob:54.32-54.36: - 51 FIRST DETAIL 5 - 52 LAST DETAIL 58. - 53 - 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^^^^ - 55 02 LINE 1. - 56 03 COLUMN 27 PIC X(41) VALUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:770:0 -run_reportwriter.at-770-reference:3.6-3.7: - 1 C U S T O M E R C H A R G E R E P O R T - 2 - 3 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST ----- ^ - 4 - 5 152 J. LANGDON 8 87653 $24.75 ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-770-reference:68.6-68.7: - 65 - 66 C U S T O M E R C H A R G E R E P O R T - 67 - 68 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST ----- ^ - 69 - 70 7545 M. LARSON 9 93715 $40.15 ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-770-reference:1.26-1.27: - 1 > C U S T O M E R C H A R G E R E P O R T ----- ^ - 2 - 3 CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:985:0 -run_reportwriter.at-985-inp_data:1.6-1.7: - 1 > 0152 J. LANGDON 87653 02475 ----- ^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:2.6-2.7: - 1 0152 J. LANGDON 87653 02475 - 2 > 0152 J. LANGDON 64025 00945 ----- ^ - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:3.6-3.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 > 0152 J. LANGDON 41915 01370 ----- ^ - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:4.6-4.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 > 0152 J. LANGDON 17410 00251 ----- ^ - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:5.6-5.7: - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 > 2468 L. MORRISEY 18520 00375 ----- ^ - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:6.6-6.7: - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 > 2468 L. MORRISEY 20012 00420 ----- ^ - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:7.6-7.7: - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 > 2468 L. MORRISEY 31572 01015 ----- ^ - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:8.6-8.7: - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 > 2468 L. MORRISEY 48792 03750 ----- ^ - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:9.6-9.7: - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 > 2468 L. MORRISEY 50407 01515 ----- ^ - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:10.6-10.7: - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 > 2468 L. MORRISEY 61575 02010 ----- ^ - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:11.6-11.7: - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 > 2468 L. MORRISEY 79204 05170 ----- ^ - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:12.6-12.7: - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 > 2468 L. MORRISEY 85075 03784 ----- ^ - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:13.6-13.7: - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 > 2468 L. MORRISEY 98476 08794 ----- ^ - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:14.6-14.7: - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 > 3451 M. JACKSON 37847 02790 ----- ^ - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:15.6-15.7: - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 > 3451 M. JACKSON 58492 06850 ----- ^ - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:16.6-16.7: - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 > 3451 M. JACKSON 60010 02040 ----- ^ - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:17.6-17.7: - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 > 3451 M. JACKSON 85260 07852 ----- ^ - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:18.6-18.7: - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 > 3451 M. JACKSON 90520 02752 ----- ^ - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:19.6-19.7: - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 > 4512 S. LEVITT 24680 03050 ----- ^ - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:20.6-20.7: - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 > 4512 S. LEVITT 56784 05253 ----- ^ - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:21.6-21.7: - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 > 4512 S. LEVITT 60410 01215 ----- ^ - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:22.6-22.7: - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 > 4512 S. LEVITT 78952 08925 ----- ^ - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:23.6-23.7: - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 > 4512 S. LEVITT 85278 04975 ----- ^ - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:24.6-24.7: - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 > 4512 S. LEVITT 87492 06425 ----- ^ - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:25.6-25.7: - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 > 4512 S. LEVITT 97204 08475 ----- ^ - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:26.6-26.7: - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 > 5417 K. CONKLIN 13579 03572 ----- ^ - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:27.6-27.7: - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 > 5417 K. CONKLIN 24615 01875 ----- ^ - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:28.6-28.7: - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 > 5417 K. CONKLIN 34928 03745 ----- ^ - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:29.6-29.7: - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 > 5417 K. CONKLIN 48527 08750 ----- ^ - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:30.6-30.7: - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 > 5417 K. CONKLIN 50150 01895 ----- ^ - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:31.6-31.7: - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 > 5417 K. CONKLIN 54652 03892 ----- ^ - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:32.6-32.7: - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 > 5417 K. CONKLIN 59765 09895 ----- ^ - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:33.6-33.7: - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 > 5417 K. CONKLIN 71572 01895 ----- ^ - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:34.6-34.7: - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 > 5417 K. CONKLIN 85175 08010 ----- ^ - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:35.6-35.7: - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 > 5417 K. CONKLIN 90275 00460 ----- ^ - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:36.6-36.7: - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 > 5417 K. CONKLIN 91572 01857 ----- ^ - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:37.6-37.7: - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 > 5417 K. CONKLIN 97576 08495 ----- ^ - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:38.6-38.7: - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 > 6213 Z. HAMPTON 15792 06425 ----- ^ - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:39.6-39.7: - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 > 6213 Z. HAMPTON 19975 09875 ----- ^ - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:40.6-40.7: - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 > 6213 Z. HAMPTON 34576 05115 ----- ^ - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:41.6-41.7: - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 > 6213 Z. HAMPTON 49512 08520 ----- ^ - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:42.6-42.7: - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 > 7545 M. LARSON 14676 03845 ----- ^ - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:43.6-43.7: - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 > 7545 M. LARSON 18592 08251 ----- ^ - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:44.6-44.7: - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 > 7545 M. LARSON 19994 09898 ----- ^ - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:45.6-45.7: - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 > 7545 M. LARSON 21214 01515 ----- ^ - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:46.6-46.7: - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 > 7545 M. LARSON 37515 08212 ----- ^ - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:47.6-47.7: - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 > 7545 M. LARSON 38592 09615 ----- ^ - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:48.6-48.7: - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 > 7545 M. LARSON 48485 08714 ----- ^ - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:49.6-49.7: - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 > 7545 M. LARSON 52762 03792 ----- ^ - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:50.6-50.7: - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 > 7545 M. LARSON 57684 08015 ----- ^ - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:51.6-51.7: - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 > 7545 M. LARSON 79015 09625 ----- ^ - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:52.6-52.7: - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 > 7545 M. LARSON 80123 00560 ----- ^ - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:53.6-53.7: - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 > 7545 M. LARSON 82462 02015 ----- ^ - 54 7545 M. LARSON 91520 01815 - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:54.6-54.7: - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 > 7545 M. LARSON 91520 01815 ----- ^ - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:55.6-55.7: - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 - 55 > 7545 M. LARSON 93715 04015 ----- ^ ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-985-inp_data:1.8-1.15: - 1 > 0152 J. LANGDON 87653 02475 ----- ^^^^^^^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:983:0 -run_reportwriter.at-983-prog.cob:15.25-15.33: - 12 FILE-CONTROL. - 13 - 14 SELECT TRANSACTION-DATA - 15 > ASSIGN TO EXTERNAL DATAIN ----- ^^^^^^^^ - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-983-prog.cob:19.25-19.33: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^ - 20 - 21 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-983-prog.cob:19.34-19.38: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^ - 20 - 21 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-983-prog.cob:19.38: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^ - 20 - 21 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-983-prog.cob:19.39-19.48: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^^ - 20 - 21 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-983-prog.cob:68.15: - 65 REPORT SECTION. - 66 RD CUSTOMER-REPORT - 67 CONTROL IS TR-CUSTOMER-NUMBER - 68 > PAGE LIMIT IS 66 LINES ----- ^ - 69 HEADING 1 - 70 FIRST DETAIL 5 ->> Hint: Missing . - -run_reportwriter.at-983-prog.cob:68.16-68.21: - 65 REPORT SECTION. - 66 RD CUSTOMER-REPORT - 67 CONTROL IS TR-CUSTOMER-NUMBER - 68 > PAGE LIMIT IS 66 LINES ----- ^^^^^ - 69 HEADING 1 - 70 FIRST DETAIL 5 ->> Warning: Invalid syntax - -run_reportwriter.at-983-prog.cob:68.33: - 65 REPORT SECTION. - 66 RD CUSTOMER-REPORT - 67 CONTROL IS TR-CUSTOMER-NUMBER - 68 > PAGE LIMIT IS 66 LINES ----- ^ - 69 HEADING 1 - 70 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-983-prog.cob:69.11-69.18: - 66 RD CUSTOMER-REPORT - 67 CONTROL IS TR-CUSTOMER-NUMBER - 68 PAGE LIMIT IS 66 LINES - 69 > HEADING 1 ----- ^^^^^^^ - 70 FIRST DETAIL 5 - 71 LAST DETAIL 58. ->> Error: Invalid syntax - -run_reportwriter.at-983-prog.cob:70.11-70.16: - 67 CONTROL IS TR-CUSTOMER-NUMBER - 68 PAGE LIMIT IS 66 LINES - 69 HEADING 1 - 70 > FIRST DETAIL 5 ----- ^^^^^ - 71 LAST DETAIL 58. - 72 ->> Error: Invalid syntax - -run_reportwriter.at-983-prog.cob:71.11-71.15: - 68 PAGE LIMIT IS 66 LINES - 69 HEADING 1 - 70 FIRST DETAIL 5 - 71 > LAST DETAIL 58. ----- ^^^^ - 72 - 73 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-983-prog.cob:73.31: - 70 FIRST DETAIL 5 - 71 LAST DETAIL 58. - 72 - 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^ - 74 02 LINE 1. - 75 03 COLUMN 27 PIC X(41) VALUE ->> Hint: Missing DETAIL - -run_reportwriter.at-983-prog.cob:73.32-73.36: - 70 FIRST DETAIL 5 - 71 LAST DETAIL 58. - 72 - 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^^^^ - 74 02 LINE 1. - 75 03 COLUMN 27 PIC X(41) VALUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1123:0 -run_reportwriter.at-1123-reference:3.6-3.7: - 1 C U S T O M E R C H A R G E R E P O R T PAGE 1 - 2 - 3 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE ----- ^ - 4 - 5 152 J. LANGDON 8 87653 $24.75 09% $2.23 $22.52 ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-1123-reference:68.6-68.7: - 65 - 66 C U S T O M E R C H A R G E R E P O R T PAGE 2 - 67 - 68 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE ----- ^ - 69 - 70 6213 Z. HAMPTON 3 34576 $51.15 10% $5.12 $46.03 ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-1123-reference:1.26-1.27: - 1 > C U S T O M E R C H A R G E R E P O R T PAGE 1 ----- ^ - 2 - 3 CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1355:0 -run_reportwriter.at-1355-inp_data:1.6-1.7: - 1 > 0152 J. LANGDON 87653 02475 ----- ^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:2.6-2.7: - 1 0152 J. LANGDON 87653 02475 - 2 > 0152 J. LANGDON 64025 00945 ----- ^ - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:3.6-3.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 > 0152 J. LANGDON 41915 01370 ----- ^ - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:4.6-4.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 > 0152 J. LANGDON 17410 00251 ----- ^ - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:5.6-5.7: - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 > 2468 L. MORRISEY 18520 00375 ----- ^ - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:6.6-6.7: - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 > 2468 L. MORRISEY 20012 00420 ----- ^ - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:7.6-7.7: - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 > 2468 L. MORRISEY 31572 01015 ----- ^ - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:8.6-8.7: - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 > 2468 L. MORRISEY 48792 03750 ----- ^ - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:9.6-9.7: - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 > 2468 L. MORRISEY 50407 01515 ----- ^ - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:10.6-10.7: - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 > 2468 L. MORRISEY 61575 02010 ----- ^ - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:11.6-11.7: - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 > 2468 L. MORRISEY 79204 05170 ----- ^ - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:12.6-12.7: - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 > 2468 L. MORRISEY 85075 03784 ----- ^ - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:13.6-13.7: - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 > 2468 L. MORRISEY 98476 08794 ----- ^ - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:14.6-14.7: - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 > 3451 M. JACKSON 37847 02790 ----- ^ - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:15.6-15.7: - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 > 3451 M. JACKSON 58492 06850 ----- ^ - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:16.6-16.7: - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 > 3451 M. JACKSON 60010 02040 ----- ^ - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:17.6-17.7: - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 > 3451 M. JACKSON 85260 07852 ----- ^ - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:18.6-18.7: - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 > 3451 M. JACKSON 90520 02752 ----- ^ - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:19.6-19.7: - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 > 4512 S. LEVITT 24680 03050 ----- ^ - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:20.6-20.7: - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 > 4512 S. LEVITT 56784 05253 ----- ^ - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:21.6-21.7: - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 > 4512 S. LEVITT 60410 01215 ----- ^ - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:22.6-22.7: - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 > 4512 S. LEVITT 78952 08925 ----- ^ - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:23.6-23.7: - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 > 4512 S. LEVITT 85278 04975 ----- ^ - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:24.6-24.7: - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 > 4512 S. LEVITT 87492 06425 ----- ^ - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:25.6-25.7: - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 > 4512 S. LEVITT 97204 08475 ----- ^ - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:26.6-26.7: - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 > 5417 K. CONKLIN 13579 03572 ----- ^ - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:27.6-27.7: - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 > 5417 K. CONKLIN 24615 01875 ----- ^ - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:28.6-28.7: - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 > 5417 K. CONKLIN 34928 03745 ----- ^ - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:29.6-29.7: - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 > 5417 K. CONKLIN 48527 08750 ----- ^ - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:30.6-30.7: - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 > 5417 K. CONKLIN 50150 01895 ----- ^ - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:31.6-31.7: - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 > 5417 K. CONKLIN 54652 03892 ----- ^ - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:32.6-32.7: - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 > 5417 K. CONKLIN 59765 09895 ----- ^ - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:33.6-33.7: - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 > 5417 K. CONKLIN 71572 01895 ----- ^ - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:34.6-34.7: - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 > 5417 K. CONKLIN 85175 08010 ----- ^ - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:35.6-35.7: - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 > 5417 K. CONKLIN 90275 00460 ----- ^ - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:36.6-36.7: - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 > 5417 K. CONKLIN 91572 01857 ----- ^ - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:37.6-37.7: - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 > 5417 K. CONKLIN 97576 08495 ----- ^ - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:38.6-38.7: - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 > 6213 Z. HAMPTON 15792 06425 ----- ^ - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:39.6-39.7: - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 > 6213 Z. HAMPTON 19975 09875 ----- ^ - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:40.6-40.7: - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 > 6213 Z. HAMPTON 34576 05115 ----- ^ - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:41.6-41.7: - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 > 6213 Z. HAMPTON 49512 08520 ----- ^ - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:42.6-42.7: - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 > 7545 M. LARSON 14676 03845 ----- ^ - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:43.6-43.7: - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 > 7545 M. LARSON 18592 08251 ----- ^ - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:44.6-44.7: - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 > 7545 M. LARSON 19994 09898 ----- ^ - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:45.6-45.7: - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 > 7545 M. LARSON 21214 01515 ----- ^ - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:46.6-46.7: - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 > 7545 M. LARSON 37515 08212 ----- ^ - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:47.6-47.7: - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 > 7545 M. LARSON 38592 09615 ----- ^ - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:48.6-48.7: - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 > 7545 M. LARSON 48485 08714 ----- ^ - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:49.6-49.7: - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 > 7545 M. LARSON 52762 03792 ----- ^ - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:50.6-50.7: - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 > 7545 M. LARSON 57684 08015 ----- ^ - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:51.6-51.7: - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 > 7545 M. LARSON 79015 09625 ----- ^ - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:52.6-52.7: - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 > 7545 M. LARSON 80123 00560 ----- ^ - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:53.6-53.7: - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 > 7545 M. LARSON 82462 02015 ----- ^ - 54 7545 M. LARSON 91520 01815 - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:54.6-54.7: - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 > 7545 M. LARSON 91520 01815 ----- ^ - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:55.6-55.7: - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 - 55 > 7545 M. LARSON 93715 04015 ----- ^ ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1355-inp_data:1.8-1.15: - 1 > 0152 J. LANGDON 87653 02475 ----- ^^^^^^^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1353:0 -run_reportwriter.at-1353-prog.cob:15.25-15.33: - 12 FILE-CONTROL. - 13 - 14 SELECT TRANSACTION-DATA - 15 > ASSIGN TO EXTERNAL DATAIN ----- ^^^^^^^^ - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-1353-prog.cob:19.25-19.33: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^ - 20 - 21 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-1353-prog.cob:19.34-19.38: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^ - 20 - 21 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-1353-prog.cob:19.38: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^ - 20 - 21 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-1353-prog.cob:19.39-19.48: - 16 ORGANIZATION IS LINE SEQUENTIAL. - 17 - 18 SELECT REPORT-FILE - 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^^ - 20 - 21 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-1353-prog.cob:68.15: - 65 REPORT SECTION. - 66 RD CUSTOMER-REPORT - 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER - 68 > PAGE LIMIT IS 66 LINES ----- ^ - 69 HEADING 1 - 70 FIRST DETAIL 5 ->> Hint: Missing . - -run_reportwriter.at-1353-prog.cob:68.16-68.21: - 65 REPORT SECTION. - 66 RD CUSTOMER-REPORT - 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER - 68 > PAGE LIMIT IS 66 LINES ----- ^^^^^ - 69 HEADING 1 - 70 FIRST DETAIL 5 ->> Warning: Invalid syntax - -run_reportwriter.at-1353-prog.cob:68.33: - 65 REPORT SECTION. - 66 RD CUSTOMER-REPORT - 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER - 68 > PAGE LIMIT IS 66 LINES ----- ^ - 69 HEADING 1 - 70 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-1353-prog.cob:69.11-69.18: - 66 RD CUSTOMER-REPORT - 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER - 68 PAGE LIMIT IS 66 LINES - 69 > HEADING 1 ----- ^^^^^^^ - 70 FIRST DETAIL 5 - 71 LAST DETAIL 58. ->> Error: Invalid syntax - -run_reportwriter.at-1353-prog.cob:70.11-70.16: - 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER - 68 PAGE LIMIT IS 66 LINES - 69 HEADING 1 - 70 > FIRST DETAIL 5 ----- ^^^^^ - 71 LAST DETAIL 58. - 72 ->> Error: Invalid syntax - -run_reportwriter.at-1353-prog.cob:71.11-71.15: - 68 PAGE LIMIT IS 66 LINES - 69 HEADING 1 - 70 FIRST DETAIL 5 - 71 > LAST DETAIL 58. ----- ^^^^ - 72 - 73 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-1353-prog.cob:73.31: - 70 FIRST DETAIL 5 - 71 LAST DETAIL 58. - 72 - 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^ - 74 02 LINE 1. - 75 03 COLUMN 27 PIC X(41) VALUE ->> Hint: Missing DETAIL - -run_reportwriter.at-1353-prog.cob:73.32-73.36: - 70 FIRST DETAIL 5 - 71 LAST DETAIL 58. - 72 - 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^^^^ - 74 02 LINE 1. - 75 03 COLUMN 27 PIC X(41) VALUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1493:0 -run_reportwriter.at-1493-reference:3.6-3.7: - 1 C U S T O M E R C H A R G E R E P O R T PAGE 1 - 2 - 3 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE ----- ^ - 4 - 5 152 J. LANGDON 8 87653 $24.75 09% $2.23 $22.52 ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-1493-reference:68.6-68.7: - 65 - 66 C U S T O M E R C H A R G E R E P O R T PAGE 2 - 67 - 68 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE ----- ^ - 69 - 70 6213 Z. HAMPTON 3 34576 $51.15 10% $5.12 $46.03 ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-1493-reference:1.26-1.27: - 1 > C U S T O M E R C H A R G E R E P O R T PAGE 1 ----- ^ - 2 - 3 CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1720:0 -run_reportwriter.at-1720-inp_data:1.6-1.7: - 1 > 0152 J. LANGDON 87653 02475 ----- ^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:2.6-2.7: - 1 0152 J. LANGDON 87653 02475 - 2 > 0152 J. LANGDON 64025 00945 ----- ^ - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:3.6-3.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 > 0152 J. LANGDON 41915 01370 ----- ^ - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:4.6-4.7: - 1 0152 J. LANGDON 87653 02475 - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 > 0152 J. LANGDON 17410 00251 ----- ^ - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:5.6-5.7: - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 > 2468 L. MORRISEY 18520 00375 ----- ^ - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:6.6-6.7: - 3 0152 J. LANGDON 41915 01370 - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 > 2468 L. MORRISEY 20012 00420 ----- ^ - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:7.6-7.7: - 4 0152 J. LANGDON 17410 00251 - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 > 2468 L. MORRISEY 31572 01015 ----- ^ - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:8.6-8.7: - 5 2468 L. MORRISEY 18520 00375 - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 > 2468 L. MORRISEY 48792 03750 ----- ^ - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:9.6-9.7: - 6 2468 L. MORRISEY 20012 00420 - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 > 2468 L. MORRISEY 50407 01515 ----- ^ - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:10.6-10.7: - 7 2468 L. MORRISEY 31572 01015 - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 > 2468 L. MORRISEY 61575 02010 ----- ^ - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:11.6-11.7: - 8 2468 L. MORRISEY 48792 03750 - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 > 2468 L. MORRISEY 79204 05170 ----- ^ - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:12.6-12.7: - 9 2468 L. MORRISEY 50407 01515 - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 > 2468 L. MORRISEY 85075 03784 ----- ^ - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:13.6-13.7: - 10 2468 L. MORRISEY 61575 02010 - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 > 2468 L. MORRISEY 98476 08794 ----- ^ - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:14.6-14.7: - 11 2468 L. MORRISEY 79204 05170 - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 > 3451 M. JACKSON 37847 02790 ----- ^ - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:15.6-15.7: - 12 2468 L. MORRISEY 85075 03784 - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 > 3451 M. JACKSON 58492 06850 ----- ^ - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:16.6-16.7: - 13 2468 L. MORRISEY 98476 08794 - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 > 3451 M. JACKSON 60010 02040 ----- ^ - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:17.6-17.7: - 14 3451 M. JACKSON 37847 02790 - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 > 3451 M. JACKSON 85260 07852 ----- ^ - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:18.6-18.7: - 15 3451 M. JACKSON 58492 06850 - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 > 3451 M. JACKSON 90520 02752 ----- ^ - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:19.6-19.7: - 16 3451 M. JACKSON 60010 02040 - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 > 4512 S. LEVITT 24680 03050 ----- ^ - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:20.6-20.7: - 17 3451 M. JACKSON 85260 07852 - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 > 4512 S. LEVITT 56784 05253 ----- ^ - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:21.6-21.7: - 18 3451 M. JACKSON 90520 02752 - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 > 4512 S. LEVITT 60410 01215 ----- ^ - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:22.6-22.7: - 19 4512 S. LEVITT 24680 03050 - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 > 4512 S. LEVITT 78952 08925 ----- ^ - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:23.6-23.7: - 20 4512 S. LEVITT 56784 05253 - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 > 4512 S. LEVITT 85278 04975 ----- ^ - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:24.6-24.7: - 21 4512 S. LEVITT 60410 01215 - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 > 4512 S. LEVITT 87492 06425 ----- ^ - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:25.6-25.7: - 22 4512 S. LEVITT 78952 08925 - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 > 4512 S. LEVITT 97204 08475 ----- ^ - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:26.6-26.7: - 23 4512 S. LEVITT 85278 04975 - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 > 5417 K. CONKLIN 13579 03572 ----- ^ - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:27.6-27.7: - 24 4512 S. LEVITT 87492 06425 - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 > 5417 K. CONKLIN 24615 01875 ----- ^ - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:28.6-28.7: - 25 4512 S. LEVITT 97204 08475 - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 > 5417 K. CONKLIN 34928 03745 ----- ^ - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:29.6-29.7: - 26 5417 K. CONKLIN 13579 03572 - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 > 5417 K. CONKLIN 48527 08750 ----- ^ - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:30.6-30.7: - 27 5417 K. CONKLIN 24615 01875 - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 > 5417 K. CONKLIN 50150 01895 ----- ^ - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:31.6-31.7: - 28 5417 K. CONKLIN 34928 03745 - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 > 5417 K. CONKLIN 54652 03892 ----- ^ - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:32.6-32.7: - 29 5417 K. CONKLIN 48527 08750 - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 > 5417 K. CONKLIN 59765 09895 ----- ^ - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:33.6-33.7: - 30 5417 K. CONKLIN 50150 01895 - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 > 5417 K. CONKLIN 71572 01895 ----- ^ - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:34.6-34.7: - 31 5417 K. CONKLIN 54652 03892 - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 > 5417 K. CONKLIN 85175 08010 ----- ^ - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:35.6-35.7: - 32 5417 K. CONKLIN 59765 09895 - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 > 5417 K. CONKLIN 90275 00460 ----- ^ - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:36.6-36.7: - 33 5417 K. CONKLIN 71572 01895 - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 > 5417 K. CONKLIN 91572 01857 ----- ^ - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:37.6-37.7: - 34 5417 K. CONKLIN 85175 08010 - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 > 5417 K. CONKLIN 97576 08495 ----- ^ - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:38.6-38.7: - 35 5417 K. CONKLIN 90275 00460 - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 > 6213 Z. HAMPTON 15792 06425 ----- ^ - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:39.6-39.7: - 36 5417 K. CONKLIN 91572 01857 - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 > 6213 Z. HAMPTON 19975 09875 ----- ^ - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:40.6-40.7: - 37 5417 K. CONKLIN 97576 08495 - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 > 6213 Z. HAMPTON 34576 05115 ----- ^ - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:41.6-41.7: - 38 6213 Z. HAMPTON 15792 06425 - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 > 6213 Z. HAMPTON 49512 08520 ----- ^ - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:42.6-42.7: - 39 6213 Z. HAMPTON 19975 09875 - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 > 7545 M. LARSON 14676 03845 ----- ^ - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:43.6-43.7: - 40 6213 Z. HAMPTON 34576 05115 - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 > 7545 M. LARSON 18592 08251 ----- ^ - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:44.6-44.7: - 41 6213 Z. HAMPTON 49512 08520 - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 > 7545 M. LARSON 19994 09898 ----- ^ - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:45.6-45.7: - 42 7545 M. LARSON 14676 03845 - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 > 7545 M. LARSON 21214 01515 ----- ^ - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:46.6-46.7: - 43 7545 M. LARSON 18592 08251 - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 > 7545 M. LARSON 37515 08212 ----- ^ - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:47.6-47.7: - 44 7545 M. LARSON 19994 09898 - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 > 7545 M. LARSON 38592 09615 ----- ^ - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:48.6-48.7: - 45 7545 M. LARSON 21214 01515 - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 > 7545 M. LARSON 48485 08714 ----- ^ - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:49.6-49.7: - 46 7545 M. LARSON 37515 08212 - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 > 7545 M. LARSON 52762 03792 ----- ^ - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:50.6-50.7: - 47 7545 M. LARSON 38592 09615 - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 > 7545 M. LARSON 57684 08015 ----- ^ - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:51.6-51.7: - 48 7545 M. LARSON 48485 08714 - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 > 7545 M. LARSON 79015 09625 ----- ^ - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:52.6-52.7: - 49 7545 M. LARSON 52762 03792 - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 > 7545 M. LARSON 80123 00560 ----- ^ - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:53.6-53.7: - 50 7545 M. LARSON 57684 08015 - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 > 7545 M. LARSON 82462 02015 ----- ^ - 54 7545 M. LARSON 91520 01815 - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:54.6-54.7: - 51 7545 M. LARSON 79015 09625 - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 > 7545 M. LARSON 91520 01815 ----- ^ - 55 7545 M. LARSON 93715 04015 ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:55.6-55.7: - 52 7545 M. LARSON 80123 00560 - 53 7545 M. LARSON 82462 02015 - 54 7545 M. LARSON 91520 01815 - 55 > 7545 M. LARSON 93715 04015 ----- ^ ->> Error: Unexpected indicator: `.' - -run_reportwriter.at-1720-inp_data:1.8-1.15: - 1 > 0152 J. LANGDON 87653 02475 ----- ^^^^^^^ - 2 0152 J. LANGDON 64025 00945 - 3 0152 J. LANGDON 41915 01370 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1718:0 -run_reportwriter.at-1718-prog.cob:22.25-22.33: - 19 FILE-CONTROL. - 20 - 21 SELECT TRANSACTION-DATA - 22 > ASSIGN TO EXTERNAL DATAIN ----- ^^^^^^^^ - 23 ORGANIZATION IS LINE SEQUENTIAL. - 24 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-1718-prog.cob:26.25-26.33: - 23 ORGANIZATION IS LINE SEQUENTIAL. - 24 - 25 SELECT REPORT-FILE - 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^ - 27 - 28 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-1718-prog.cob:26.34-26.38: - 23 ORGANIZATION IS LINE SEQUENTIAL. - 24 - 25 SELECT REPORT-FILE - 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^ - 27 - 28 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-1718-prog.cob:26.38: - 23 ORGANIZATION IS LINE SEQUENTIAL. - 24 - 25 SELECT REPORT-FILE - 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^ - 27 - 28 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-1718-prog.cob:26.39-26.48: - 23 ORGANIZATION IS LINE SEQUENTIAL. - 24 - 25 SELECT REPORT-FILE - 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^^ - 27 - 28 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-1718-prog.cob:76.15: - 73 REPORT SECTION. - 74 RD CUSTOMER-REPORT - 75 CONTROLS ARE FINAL, TR-CUSTOMER - 76 > PAGE LIMIT IS 66 LINES ----- ^ - 77 HEADING 1 - 78 FIRST DETAIL 5 ->> Hint: Missing . - -run_reportwriter.at-1718-prog.cob:76.16-76.21: - 73 REPORT SECTION. - 74 RD CUSTOMER-REPORT - 75 CONTROLS ARE FINAL, TR-CUSTOMER - 76 > PAGE LIMIT IS 66 LINES ----- ^^^^^ - 77 HEADING 1 - 78 FIRST DETAIL 5 ->> Warning: Invalid syntax - -run_reportwriter.at-1718-prog.cob:76.33: - 73 REPORT SECTION. - 74 RD CUSTOMER-REPORT - 75 CONTROLS ARE FINAL, TR-CUSTOMER - 76 > PAGE LIMIT IS 66 LINES ----- ^ - 77 HEADING 1 - 78 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-1718-prog.cob:77.11-77.18: - 74 RD CUSTOMER-REPORT - 75 CONTROLS ARE FINAL, TR-CUSTOMER - 76 PAGE LIMIT IS 66 LINES - 77 > HEADING 1 ----- ^^^^^^^ - 78 FIRST DETAIL 5 - 79 LAST DETAIL 58. ->> Error: Invalid syntax - -run_reportwriter.at-1718-prog.cob:78.11-78.16: - 75 CONTROLS ARE FINAL, TR-CUSTOMER - 76 PAGE LIMIT IS 66 LINES - 77 HEADING 1 - 78 > FIRST DETAIL 5 ----- ^^^^^ - 79 LAST DETAIL 58. - 80 ->> Error: Invalid syntax - -run_reportwriter.at-1718-prog.cob:79.11-79.15: - 76 PAGE LIMIT IS 66 LINES - 77 HEADING 1 - 78 FIRST DETAIL 5 - 79 > LAST DETAIL 58. ----- ^^^^ - 80 - 81 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-1718-prog.cob:81.31: - 78 FIRST DETAIL 5 - 79 LAST DETAIL 58. - 80 - 81 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^ - 82 02 LINE 1. - 83 03 COLUMN 27 PIC X(41) VALUE ->> Hint: Missing DETAIL - -run_reportwriter.at-1718-prog.cob:81.32-81.36: - 78 FIRST DETAIL 5 - 79 LAST DETAIL 58. - 80 - 81 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^^^^ - 82 02 LINE 1. - 83 03 COLUMN 27 PIC X(41) VALUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1793:0 -run_reportwriter.at-1793-reference:3.6-3.7: - 1 C U S T O M E R C H A R G E R E P O R T PAGE 1 - 2 - 3 > CUST. NO. CUST. NAME ITEM COST DISCT. AMT. CHARGE ----- ^ - 4 - 5 152 J. LANGDON $50.41 $6.50 $43.91 ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-1793-reference:1.26-1.27: - 1 > C U S T O M E R C H A R G E R E P O R T PAGE 1 ----- ^ - 2 - 3 CUST. NO. CUST. NAME ITEM COST DISCT. AMT. CHARGE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2071:0 -run_reportwriter.at-2071-inp_data:1.6-1.7: - 1 > 05 A 007328 ----- ^ - 2 05 A 090620 - 3 05 A 034602 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:2.6-2.7: - 1 05 A 007328 - 2 > 05 A 090620 ----- ^ - 3 05 A 034602 - 4 05 A 017837 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:3.6-3.7: - 1 05 A 007328 - 2 05 A 090620 - 3 > 05 A 034602 ----- ^ - 4 05 A 017837 - 5 13 A 005035 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:4.6-4.7: - 1 05 A 007328 - 2 05 A 090620 - 3 05 A 034602 - 4 > 05 A 017837 ----- ^ - 5 13 A 005035 - 6 13 A 049851 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:5.6-5.7: - 2 05 A 090620 - 3 05 A 034602 - 4 05 A 017837 - 5 > 13 A 005035 ----- ^ - 6 13 A 049851 - 7 13 A 012139 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:6.6-6.7: - 3 05 A 034602 - 4 05 A 017837 - 5 13 A 005035 - 6 > 13 A 049851 ----- ^ - 7 13 A 012139 - 8 22 A 077572 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:7.6-7.7: - 4 05 A 017837 - 5 13 A 005035 - 6 13 A 049851 - 7 > 13 A 012139 ----- ^ - 8 22 A 077572 - 9 29 A 013491 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:8.6-8.7: - 5 13 A 005035 - 6 13 A 049851 - 7 13 A 012139 - 8 > 22 A 077572 ----- ^ - 9 29 A 013491 - 10 33 A 050628 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:9.6-9.7: - 6 13 A 049851 - 7 13 A 012139 - 8 22 A 077572 - 9 > 29 A 013491 ----- ^ - 10 33 A 050628 - 11 33 A 044987 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:10.6-10.7: - 7 13 A 012139 - 8 22 A 077572 - 9 29 A 013491 - 10 > 33 A 050628 ----- ^ - 11 33 A 044987 - 12 33 A 050162 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:11.6-11.7: - 8 22 A 077572 - 9 29 A 013491 - 10 33 A 050628 - 11 > 33 A 044987 ----- ^ - 12 33 A 050162 - 13 39 A 068745 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:12.6-12.7: - 9 29 A 013491 - 10 33 A 050628 - 11 33 A 044987 - 12 > 33 A 050162 ----- ^ - 13 39 A 068745 - 14 39 A 058384 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:13.6-13.7: - 10 33 A 050628 - 11 33 A 044987 - 12 33 A 050162 - 13 > 39 A 068745 ----- ^ - 14 39 A 058384 - 15 39 A 053005 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:14.6-14.7: - 11 33 A 044987 - 12 33 A 050162 - 13 39 A 068745 - 14 > 39 A 058384 ----- ^ - 15 39 A 053005 - 16 44 A 085669 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:15.6-15.7: - 12 33 A 050162 - 13 39 A 068745 - 14 39 A 058384 - 15 > 39 A 053005 ----- ^ - 16 44 A 085669 - 17 44 A 057891 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:16.6-16.7: - 13 39 A 068745 - 14 39 A 058384 - 15 39 A 053005 - 16 > 44 A 085669 ----- ^ - 17 44 A 057891 - 18 49 A 065134 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:17.6-17.7: - 14 39 A 058384 - 15 39 A 053005 - 16 44 A 085669 - 17 > 44 A 057891 ----- ^ - 18 49 A 065134 - 19 03 B 032035 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:18.6-18.7: - 15 39 A 053005 - 16 44 A 085669 - 17 44 A 057891 - 18 > 49 A 065134 ----- ^ - 19 03 B 032035 - 20 03 B 054694 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:19.6-19.7: - 16 44 A 085669 - 17 44 A 057891 - 18 49 A 065134 - 19 > 03 B 032035 ----- ^ - 20 03 B 054694 - 21 03 B 069591 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:20.6-20.7: - 17 44 A 057891 - 18 49 A 065134 - 19 03 B 032035 - 20 > 03 B 054694 ----- ^ - 21 03 B 069591 - 22 03 B 046023 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:21.6-21.7: - 18 49 A 065134 - 19 03 B 032035 - 20 03 B 054694 - 21 > 03 B 069591 ----- ^ - 22 03 B 046023 - 23 03 B 025725 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:22.6-22.7: - 19 03 B 032035 - 20 03 B 054694 - 21 03 B 069591 - 22 > 03 B 046023 ----- ^ - 23 03 B 025725 - 24 19 B 045550 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:23.6-23.7: - 20 03 B 054694 - 21 03 B 069591 - 22 03 B 046023 - 23 > 03 B 025725 ----- ^ - 24 19 B 045550 - 25 19 B 099371 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:24.6-24.7: - 21 03 B 069591 - 22 03 B 046023 - 23 03 B 025725 - 24 > 19 B 045550 ----- ^ - 25 19 B 099371 - 26 19 B 049703 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:25.6-25.7: - 22 03 B 046023 - 23 03 B 025725 - 24 19 B 045550 - 25 > 19 B 099371 ----- ^ - 26 19 B 049703 - 27 25 B 047000 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:26.6-26.7: - 23 03 B 025725 - 24 19 B 045550 - 25 19 B 099371 - 26 > 19 B 049703 ----- ^ - 27 25 B 047000 - 28 25 B 087106 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:27.6-27.7: - 24 19 B 045550 - 25 19 B 099371 - 26 19 B 049703 - 27 > 25 B 047000 ----- ^ - 28 25 B 087106 - 29 31 B 049157 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:28.6-28.7: - 25 19 B 099371 - 26 19 B 049703 - 27 25 B 047000 - 28 > 25 B 087106 ----- ^ - 29 31 B 049157 - 30 34 B 005994 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:29.6-29.7: - 26 19 B 049703 - 27 25 B 047000 - 28 25 B 087106 - 29 > 31 B 049157 ----- ^ - 30 34 B 005994 - 31 09 C 007980 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:30.6-30.7: - 27 25 B 047000 - 28 25 B 087106 - 29 31 B 049157 - 30 > 34 B 005994 ----- ^ - 31 09 C 007980 - 32 14 C 092224 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:31.6-31.7: - 28 25 B 087106 - 29 31 B 049157 - 30 34 B 005994 - 31 > 09 C 007980 ----- ^ - 32 14 C 092224 - 33 14 C 062942 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:32.6-32.7: - 29 31 B 049157 - 30 34 B 005994 - 31 09 C 007980 - 32 > 14 C 092224 ----- ^ - 33 14 C 062942 - 34 23 C 002974 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:33.6-33.7: - 30 34 B 005994 - 31 09 C 007980 - 32 14 C 092224 - 33 > 14 C 062942 ----- ^ - 34 23 C 002974 - 35 28 C 042394 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:34.6-34.7: - 31 09 C 007980 - 32 14 C 092224 - 33 14 C 062942 - 34 > 23 C 002974 ----- ^ - 35 28 C 042394 - 36 28 C 014745 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:35.6-35.7: - 32 14 C 092224 - 33 14 C 062942 - 34 23 C 002974 - 35 > 28 C 042394 ----- ^ - 36 28 C 014745 - 37 34 C 053467 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:36.6-36.7: - 33 14 C 062942 - 34 23 C 002974 - 35 28 C 042394 - 36 > 28 C 014745 ----- ^ - 37 34 C 053467 - 38 34 C 054332 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:37.6-37.7: - 34 23 C 002974 - 35 28 C 042394 - 36 28 C 014745 - 37 > 34 C 053467 ----- ^ - 38 34 C 054332 - 39 42 C 089295 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:38.6-38.7: - 35 28 C 042394 - 36 28 C 014745 - 37 34 C 053467 - 38 > 34 C 054332 ----- ^ - 39 42 C 089295 - 40 42 C 073826 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:39.6-39.7: - 36 28 C 014745 - 37 34 C 053467 - 38 34 C 054332 - 39 > 42 C 089295 ----- ^ - 40 42 C 073826 - 41 04 D 029685 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:40.6-40.7: - 37 34 C 053467 - 38 34 C 054332 - 39 42 C 089295 - 40 > 42 C 073826 ----- ^ - 41 04 D 029685 - 42 04 D 060676 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:41.6-41.7: - 38 34 C 054332 - 39 42 C 089295 - 40 42 C 073826 - 41 > 04 D 029685 ----- ^ - 42 04 D 060676 - 43 06 D 013230 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:42.6-42.7: - 39 42 C 089295 - 40 42 C 073826 - 41 04 D 029685 - 42 > 04 D 060676 ----- ^ - 43 06 D 013230 - 44 06 D 042290 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:43.6-43.7: - 40 42 C 073826 - 41 04 D 029685 - 42 04 D 060676 - 43 > 06 D 013230 ----- ^ - 44 06 D 042290 - 45 15 D 013076 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:44.6-44.7: - 41 04 D 029685 - 42 04 D 060676 - 43 06 D 013230 - 44 > 06 D 042290 ----- ^ - 45 15 D 013076 - 46 15 D 024104 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:45.6-45.7: - 42 04 D 060676 - 43 06 D 013230 - 44 06 D 042290 - 45 > 15 D 013076 ----- ^ - 46 15 D 024104 - 47 15 D 013078 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:46.6-46.7: - 43 06 D 013230 - 44 06 D 042290 - 45 15 D 013076 - 46 > 15 D 024104 ----- ^ - 47 15 D 013078 - 48 38 D 078771 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:47.6-47.7: - 44 06 D 042290 - 45 15 D 013076 - 46 15 D 024104 - 47 > 15 D 013078 ----- ^ - 48 38 D 078771 - 49 38 D 085871 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:48.6-48.7: - 45 15 D 013076 - 46 15 D 024104 - 47 15 D 013078 - 48 > 38 D 078771 ----- ^ - 49 38 D 085871 - 50 11 E 099350 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:49.6-49.7: - 46 15 D 024104 - 47 15 D 013078 - 48 38 D 078771 - 49 > 38 D 085871 ----- ^ - 50 11 E 099350 - 51 17 E 066301 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:50.6-50.7: - 47 15 D 013078 - 48 38 D 078771 - 49 38 D 085871 - 50 > 11 E 099350 ----- ^ - 51 17 E 066301 - 52 27 E 038144 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:51.6-51.7: - 48 38 D 078771 - 49 38 D 085871 - 50 11 E 099350 - 51 > 17 E 066301 ----- ^ - 52 27 E 038144 - 53 27 E 097807 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:52.6-52.7: - 49 38 D 085871 - 50 11 E 099350 - 51 17 E 066301 - 52 > 27 E 038144 ----- ^ - 53 27 E 097807 - 54 27 E 008055 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:53.6-53.7: - 50 11 E 099350 - 51 17 E 066301 - 52 27 E 038144 - 53 > 27 E 097807 ----- ^ - 54 27 E 008055 - 55 08 F 073201 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:54.6-54.7: - 51 17 E 066301 - 52 27 E 038144 - 53 27 E 097807 - 54 > 27 E 008055 ----- ^ - 55 08 F 073201 - 56 09 F 008278 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:55.6-55.7: - 52 27 E 038144 - 53 27 E 097807 - 54 27 E 008055 - 55 > 08 F 073201 ----- ^ - 56 09 F 008278 - 57 09 F 040898 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:56.6-56.7: - 53 27 E 097807 - 54 27 E 008055 - 55 08 F 073201 - 56 > 09 F 008278 ----- ^ - 57 09 F 040898 - 58 09 F 039688 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:57.6-57.7: - 54 27 E 008055 - 55 08 F 073201 - 56 09 F 008278 - 57 > 09 F 040898 ----- ^ - 58 09 F 039688 - 59 16 F 019308 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:58.6-58.7: - 55 08 F 073201 - 56 09 F 008278 - 57 09 F 040898 - 58 > 09 F 039688 ----- ^ - 59 16 F 019308 - 60 16 F 015173 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:59.6-59.7: - 56 09 F 008278 - 57 09 F 040898 - 58 09 F 039688 - 59 > 16 F 019308 ----- ^ - 60 16 F 015173 - 61 16 F 022865 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:60.6-60.7: - 57 09 F 040898 - 58 09 F 039688 - 59 16 F 019308 - 60 > 16 F 015173 ----- ^ - 61 16 F 022865 - 62 16 F 003568 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:61.6-61.7: - 58 09 F 039688 - 59 16 F 019308 - 60 16 F 015173 - 61 > 16 F 022865 ----- ^ - 62 16 F 003568 - 63 36 F 029276 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:62.6-62.7: - 59 16 F 019308 - 60 16 F 015173 - 61 16 F 022865 - 62 > 16 F 003568 ----- ^ - 63 36 F 029276 - 64 40 F 078631 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:63.6-63.7: - 60 16 F 015173 - 61 16 F 022865 - 62 16 F 003568 - 63 > 36 F 029276 ----- ^ - 64 40 F 078631 - 65 40 F 010249 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:64.6-64.7: - 61 16 F 022865 - 62 16 F 003568 - 63 36 F 029276 - 64 > 40 F 078631 ----- ^ - 65 40 F 010249 - 66 40 F 059583 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:65.6-65.7: - 62 16 F 003568 - 63 36 F 029276 - 64 40 F 078631 - 65 > 40 F 010249 ----- ^ - 66 40 F 059583 - 67 48 F 043877 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:66.6-66.7: - 63 36 F 029276 - 64 40 F 078631 - 65 40 F 010249 - 66 > 40 F 059583 ----- ^ - 67 48 F 043877 - 68 48 F 006755 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2071-inp_data:67.6-67.7: - 64 40 F 078631 - 65 40 F 010249 - 66 40 F 059583 - 67 > 48 F 043877 ----- ^ - 68 48 F 006755 - 69 01 G 018347 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:68.6-68.7: - 65 40 F 010249 - 66 40 F 059583 - 67 48 F 043877 - 68 > 48 F 006755 ----- ^ - 69 01 G 018347 - 70 20 G 098123 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:69.6-69.7: - 66 40 F 059583 - 67 48 F 043877 - 68 48 F 006755 - 69 > 01 G 018347 ----- ^ - 70 20 G 098123 - 71 21 G 077346 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:70.6-70.7: - 67 48 F 043877 - 68 48 F 006755 - 69 01 G 018347 - 70 > 20 G 098123 ----- ^ - 71 21 G 077346 - 72 22 G 025953 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:71.6-71.7: - 68 48 F 006755 - 69 01 G 018347 - 70 20 G 098123 - 71 > 21 G 077346 ----- ^ - 72 22 G 025953 - 73 26 G 009587 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:72.6-72.7: - 69 01 G 018347 - 70 20 G 098123 - 71 21 G 077346 - 72 > 22 G 025953 ----- ^ - 73 26 G 009587 - 74 41 G 083126 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:73.6-73.7: - 70 20 G 098123 - 71 21 G 077346 - 72 22 G 025953 - 73 > 26 G 009587 ----- ^ - 74 41 G 083126 - 75 41 G 073046 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:74.6-74.7: - 71 21 G 077346 - 72 22 G 025953 - 73 26 G 009587 - 74 > 41 G 083126 ----- ^ - 75 41 G 073046 - 76 32 H 038823 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:75.6-75.7: - 72 22 G 025953 - 73 26 G 009587 - 74 41 G 083126 - 75 > 41 G 073046 ----- ^ - 76 32 H 038823 - 77 32 H 009989 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:76.6-76.7: - 73 26 G 009587 - 74 41 G 083126 - 75 41 G 073046 - 76 > 32 H 038823 ----- ^ - 77 32 H 009989 - 78 32 H 065838 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:77.6-77.7: - 74 41 G 083126 - 75 41 G 073046 - 76 32 H 038823 - 77 > 32 H 009989 ----- ^ - 78 32 H 065838 - 79 32 H 024994 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:78.6-78.7: - 75 41 G 073046 - 76 32 H 038823 - 77 32 H 009989 - 78 > 32 H 065838 ----- ^ - 79 32 H 024994 - 80 32 H 016065 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:79.6-79.7: - 76 32 H 038823 - 77 32 H 009989 - 78 32 H 065838 - 79 > 32 H 024994 ----- ^ - 80 32 H 016065 - 81 32 H 097042 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:80.6-80.7: - 77 32 H 009989 - 78 32 H 065838 - 79 32 H 024994 - 80 > 32 H 016065 ----- ^ - 81 32 H 097042 - 82 43 H 077895 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:81.6-81.7: - 78 32 H 065838 - 79 32 H 024994 - 80 32 H 016065 - 81 > 32 H 097042 ----- ^ - 82 43 H 077895 - 83 45 H 038692 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:82.6-82.7: - 79 32 H 024994 - 80 32 H 016065 - 81 32 H 097042 - 82 > 43 H 077895 ----- ^ - 83 45 H 038692 - 84 46 H 088151 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:83.6-83.7: - 80 32 H 016065 - 81 32 H 097042 - 82 43 H 077895 - 83 > 45 H 038692 ----- ^ - 84 46 H 088151 - 85 46 H 069538 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:84.6-84.7: - 81 32 H 097042 - 82 43 H 077895 - 83 45 H 038692 - 84 > 46 H 088151 ----- ^ - 85 46 H 069538 - 86 09 J 039764 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:85.6-85.7: - 82 43 H 077895 - 83 45 H 038692 - 84 46 H 088151 - 85 > 46 H 069538 ----- ^ - 86 09 J 039764 - 87 18 J 088890 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:86.6-86.7: - 83 45 H 038692 - 84 46 H 088151 - 85 46 H 069538 - 86 > 09 J 039764 ----- ^ - 87 18 J 088890 - 88 18 J 039421 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:87.6-87.7: - 84 46 H 088151 - 85 46 H 069538 - 86 09 J 039764 - 87 > 18 J 088890 ----- ^ - 88 18 J 039421 - 89 37 J 044560 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:88.6-88.7: - 85 46 H 069538 - 86 09 J 039764 - 87 18 J 088890 - 88 > 18 J 039421 ----- ^ - 89 37 J 044560 - 90 45 J 018770 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:89.6-89.7: - 86 09 J 039764 - 87 18 J 088890 - 88 18 J 039421 - 89 > 37 J 044560 ----- ^ - 90 45 J 018770 - 91 45 J 032993 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:90.6-90.7: - 87 18 J 088890 - 88 18 J 039421 - 89 37 J 044560 - 90 > 45 J 018770 ----- ^ - 91 45 J 032993 - 92 45 J 089631 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2071-inp_data:91.6-91.7: - 88 18 J 039421 - 89 37 J 044560 - 90 45 J 018770 - 91 > 45 J 032993 ----- ^ - 92 45 J 089631 - 93 45 J 072659 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2071-inp_data:92.6-92.7: - 89 37 J 044560 - 90 45 J 018770 - 91 45 J 032993 - 92 > 45 J 089631 ----- ^ - 93 45 J 072659 - 94 02 K 075925 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2071-inp_data:93.6-93.7: - 90 45 J 018770 - 91 45 J 032993 - 92 45 J 089631 - 93 > 45 J 072659 ----- ^ - 94 02 K 075925 - 95 02 K 072909 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:94.6-94.7: - 91 45 J 032993 - 92 45 J 089631 - 93 45 J 072659 - 94 > 02 K 075925 ----- ^ - 95 02 K 072909 - 96 02 K 040544 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:95.6-95.7: - 92 45 J 089631 - 93 45 J 072659 - 94 02 K 075925 - 95 > 02 K 072909 ----- ^ - 96 02 K 040544 - 97 12 K 002138 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2071-inp_data:96.6-96.7: - 93 45 J 072659 - 94 02 K 075925 - 95 02 K 072909 - 96 > 02 K 040544 ----- ^ - 97 12 K 002138 - 98 12 K 029239 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2071-inp_data:97.6-97.7: - 94 02 K 075925 - 95 02 K 072909 - 96 02 K 040544 - 97 > 12 K 002138 ----- ^ - 98 12 K 029239 - 99 35 K 065936 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2071-inp_data:98.6-98.7: - 95 02 K 072909 - 96 02 K 040544 - 97 12 K 002138 - 98 > 12 K 029239 ----- ^ - 99 35 K 065936 - 100 35 K 093046 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2071-inp_data:99.6-99.7: - 96 02 K 040544 - 97 12 K 002138 - 98 12 K 029239 - 99 > 35 K 065936 ----- ^ - 100 35 K 093046 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2071-inp_data:100.6-100.7: - 97 12 K 002138 - 98 12 K 029239 - 99 35 K 065936 - 100 > 35 K 093046 ----- ^ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2071-inp_data:1.7-1.11: - 1 > 05 A 007328 ----- ^^^^ - 2 05 A 090620 - 3 05 A 034602 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2069:0 -run_reportwriter.at-2069-prog.cob:16.25-16.33: - 13 FILE-CONTROL. - 14 - 15 SELECT SALES-DATA - 16 > ASSIGN TO EXTERNAL DATAIN ----- ^^^^^^^^ - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-2069-prog.cob:20.25-20.33: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^ - 21 - 22 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-2069-prog.cob:20.34-20.38: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^ - 21 - 22 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-2069-prog.cob:20.38: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^ - 21 - 22 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-2069-prog.cob:20.39-20.48: - 17 ORGANIZATION IS LINE SEQUENTIAL. - 18 - 19 SELECT REPORT-FILE - 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^^ - 21 - 22 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-2069-prog.cob:65.15: - 62 REPORT SECTION. - 63 RD DISTRICT-SALES-REPORT - 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER - 65 > PAGE LIMIT IS 66 LINES ----- ^ - 66 HEADING 1 - 67 FIRST DETAIL 5 ->> Hint: Missing . - -run_reportwriter.at-2069-prog.cob:65.16-65.21: - 62 REPORT SECTION. - 63 RD DISTRICT-SALES-REPORT - 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER - 65 > PAGE LIMIT IS 66 LINES ----- ^^^^^ - 66 HEADING 1 - 67 FIRST DETAIL 5 ->> Warning: Invalid syntax - -run_reportwriter.at-2069-prog.cob:65.33: - 62 REPORT SECTION. - 63 RD DISTRICT-SALES-REPORT - 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER - 65 > PAGE LIMIT IS 66 LINES ----- ^ - 66 HEADING 1 - 67 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-2069-prog.cob:66.11-66.18: - 63 RD DISTRICT-SALES-REPORT - 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER - 65 PAGE LIMIT IS 66 LINES - 66 > HEADING 1 ----- ^^^^^^^ - 67 FIRST DETAIL 5 - 68 LAST DETAIL 58. ->> Error: Invalid syntax - -run_reportwriter.at-2069-prog.cob:67.11-67.16: - 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER - 65 PAGE LIMIT IS 66 LINES - 66 HEADING 1 - 67 > FIRST DETAIL 5 ----- ^^^^^ - 68 LAST DETAIL 58. - 69 ->> Error: Invalid syntax - -run_reportwriter.at-2069-prog.cob:68.11-68.15: - 65 PAGE LIMIT IS 66 LINES - 66 HEADING 1 - 67 FIRST DETAIL 5 - 68 > LAST DETAIL 58. ----- ^^^^ - 69 - 70 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-2069-prog.cob:70.31: - 67 FIRST DETAIL 5 - 68 LAST DETAIL 58. - 69 - 70 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^ - 71 02 LINE 1. - 72 03 COLUMN 27 PIC X(41) VALUE ->> Hint: Missing DETAIL - -run_reportwriter.at-2069-prog.cob:70.32-70.36: - 67 FIRST DETAIL 5 - 68 LAST DETAIL 58. - 69 - 70 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. ----- ^^^^ - 71 02 LINE 1. - 72 03 COLUMN 27 PIC X(41) VALUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2209:0 -run_reportwriter.at-2209-reference:1.26-1.27: - 1 > D I S T R I C T S A L E S R E P O R T PAGE 1 ----- ^ - 2 - 3 -------- SALESMAN -------- -- DISTRICT -- ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2796:0 -run_reportwriter.at-2796-inp_data:1.6-1.7: - 1 > 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 ----- ^ - 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 - 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2796-inp_data:2.6-2.7: - 1 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 - 2 > 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 ----- ^ - 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 - 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2796-inp_data:3.6-3.7: - 1 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 - 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 - 3 > 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 ----- ^ - 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 - 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2796-inp_data:4.6-4.7: - 1 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 - 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 - 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 - 4 > 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 ----- ^ - 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 - 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-2796-inp_data:5.6-5.7: - 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 - 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 - 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 - 5 > 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 ----- ^ - 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 - 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:6.6-6.7: - 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 - 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 - 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 - 6 > 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 ----- ^ - 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 - 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:7.6-7.7: - 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 - 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 - 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 - 7 > 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 ----- ^ - 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 - 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:8.6-8.7: - 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 - 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 - 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 - 8 > 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 ----- ^ - 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 - 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:9.6-9.7: - 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 - 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 - 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 - 9 > 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 ----- ^ - 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 - 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:10.6-10.7: - 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 - 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 - 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 - 10 > 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 ----- ^ - 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 - 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:11.6-11.7: - 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 - 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 - 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 - 11 > 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 ----- ^ - 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 - 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:12.6-12.7: - 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 - 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 - 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 - 12 > 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 ----- ^ - 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 - 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:13.6-13.7: - 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 - 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 - 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 - 13 > 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 ----- ^ - 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 - 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:14.6-14.7: - 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 - 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 - 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 - 14 > 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 ----- ^ - 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 - 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:15.6-15.7: - 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 - 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 - 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 - 15 > 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 ----- ^ - 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 - 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:16.6-16.7: - 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 - 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 - 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 - 16 > 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 ----- ^ - 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 - 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:17.6-17.7: - 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 - 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 - 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 - 17 > 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 ----- ^ - 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 - 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:18.6-18.7: - 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 - 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 - 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 - 18 > 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 ----- ^ - 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 - 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:19.6-19.7: - 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 - 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 - 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 - 19 > 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 ----- ^ - 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 - 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:20.6-20.7: - 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 - 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 - 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 - 20 > 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 ----- ^ - 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 - 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:21.6-21.7: - 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 - 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 - 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 - 21 > 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 ----- ^ - 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 - 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:22.6-22.7: - 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 - 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 - 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 - 22 > 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 ----- ^ - 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 - 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:23.6-23.7: - 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 - 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 - 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 - 23 > 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 ----- ^ - 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 - 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:24.6-24.7: - 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 - 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 - 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 - 24 > 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 ----- ^ - 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 - 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:25.6-25.7: - 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 - 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 - 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 - 25 > 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 ----- ^ - 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 - 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:26.6-26.7: - 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 - 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 - 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 - 26 > 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 ----- ^ - 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 - 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:27.6-27.7: - 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 - 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 - 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 - 27 > 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 ----- ^ - 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 - 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:28.6-28.7: - 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 - 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 - 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 - 28 > 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 ----- ^ - 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 - 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:29.6-29.7: - 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 - 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 - 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 - 29 > 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 ----- ^ - 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 - 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:30.6-30.7: - 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 - 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 - 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 - 30 > 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 ----- ^ - 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 - 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:31.6-31.7: - 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 - 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 - 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 - 31 > 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 ----- ^ - 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 - 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:32.6-32.7: - 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 - 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 - 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 - 32 > 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 ----- ^ - 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 - 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2796-inp_data:33.6-33.7: - 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 - 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 - 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 - 33 > 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 ----- ^ - 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 - 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2796-inp_data:34.6-34.7: - 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 - 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 - 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 - 34 > 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 ----- ^ - 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 - 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2796-inp_data:35.6-35.7: - 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 - 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 - 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 - 35 > 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 ----- ^ - 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 - 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2796-inp_data:36.6-36.7: - 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 - 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 - 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 - 36 > 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 ----- ^ - 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 - 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2796-inp_data:37.6-37.7: - 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 - 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 - 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 - 37 > 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 ----- ^ - 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 - 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2796-inp_data:38.6-38.7: - 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 - 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 - 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 - 38 > 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 ----- ^ - 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 - 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:39.6-39.7: - 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 - 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 - 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 - 39 > 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 ----- ^ - 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 - 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:40.6-40.7: - 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 - 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 - 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 - 40 > 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 ----- ^ - 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 - 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:41.6-41.7: - 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 - 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 - 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 - 41 > 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 ----- ^ - 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 - 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:42.6-42.7: - 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 - 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 - 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 - 42 > 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 ----- ^ - 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 - 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:43.6-43.7: - 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 - 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 - 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 - 43 > 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 ----- ^ - 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 - 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:44.6-44.7: - 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 - 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 - 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 - 44 > 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 ----- ^ - 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 - 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:45.6-45.7: - 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 - 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 - 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 - 45 > 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 ----- ^ - 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 - 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:46.6-46.7: - 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 - 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 - 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 - 46 > 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 ----- ^ - 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 - 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:47.6-47.7: - 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 - 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 - 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 - 47 > 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 ----- ^ - 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 - 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:48.6-48.7: - 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 - 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 - 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 - 48 > 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 ----- ^ - 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 - 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2796-inp_data:49.6-49.7: - 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 - 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 - 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 - 49 > 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 ----- ^ - 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 - 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:50.6-50.7: - 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 - 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 - 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 - 50 > 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 ----- ^ - 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 - 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:51.6-51.7: - 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 - 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 - 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 - 51 > 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 ----- ^ - 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 - 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:52.6-52.7: - 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 - 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 - 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 - 52 > 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 ----- ^ - 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 - 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:53.6-53.7: - 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 - 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 - 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 - 53 > 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 ----- ^ - 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 - 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:54.6-54.7: - 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 - 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 - 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 - 54 > 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 ----- ^ - 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 - 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:55.6-55.7: - 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 - 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 - 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 - 55 > 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 ----- ^ - 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 - 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:56.6-56.7: - 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 - 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 - 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 - 56 > 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 ----- ^ - 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 - 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:57.6-57.7: - 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 - 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 - 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 - 57 > 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 ----- ^ - 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 - 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:58.6-58.7: - 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 - 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 - 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 - 58 > 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 ----- ^ - 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 - 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:59.6-59.7: - 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 - 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 - 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 - 59 > 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 ----- ^ - 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 - 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:60.6-60.7: - 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 - 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 - 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 - 60 > 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 ----- ^ - 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 - 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2796-inp_data:61.6-61.7: - 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 - 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 - 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 - 61 > 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 ----- ^ - 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 - 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:62.6-62.7: - 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 - 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 - 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 - 62 > 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 ----- ^ - 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 - 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:63.6-63.7: - 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 - 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 - 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 - 63 > 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 ----- ^ - 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 - 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:64.6-64.7: - 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 - 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 - 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 - 64 > 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 ----- ^ - 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 - 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:65.6-65.7: - 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 - 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 - 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 - 65 > 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 ----- ^ - 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 - 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:66.6-66.7: - 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 - 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 - 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 - 66 > 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 ----- ^ - 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 - 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:67.6-67.7: - 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 - 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 - 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 - 67 > 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 ----- ^ - 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 - 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:68.6-68.7: - 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 - 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 - 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 - 68 > 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 ----- ^ - 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 - 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:69.6-69.7: - 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 - 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 - 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 - 69 > 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 ----- ^ - 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 - 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:70.6-70.7: - 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 - 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 - 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 - 70 > 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 ----- ^ - 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 - 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:71.6-71.7: - 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 - 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 - 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 - 71 > 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 ----- ^ - 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 - 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:72.6-72.7: - 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 - 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 - 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 - 72 > 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 ----- ^ - 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 - 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2796-inp_data:73.6-73.7: - 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 - 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 - 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 - 73 > 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 ----- ^ - 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 - 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2796-inp_data:74.6-74.7: - 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 - 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 - 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 - 74 > 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 ----- ^ - 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 - 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2796-inp_data:75.6-75.7: - 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 - 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 - 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 - 75 > 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 ----- ^ - 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 - 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2796-inp_data:76.6-76.7: - 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 - 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 - 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 - 76 > 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 ----- ^ - 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 - 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2796-inp_data:77.6-77.7: - 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 - 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 - 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 - 77 > 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 ----- ^ - 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 - 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2796-inp_data:78.6-78.7: - 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 - 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 - 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 - 78 > 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 ----- ^ - 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 - 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2796-inp_data:79.6-79.7: - 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 - 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 - 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 - 79 > 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 ----- ^ - 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 - 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:80.6-80.7: - 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 - 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 - 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 - 80 > 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 ----- ^ - 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 - 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:81.6-81.7: - 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 - 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 - 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 - 81 > 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 ----- ^ - 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 - 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:82.6-82.7: - 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 - 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 - 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 - 82 > 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 ----- ^ - 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 - 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:83.6-83.7: - 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 - 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 - 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 - 83 > 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 ----- ^ - 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 - 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:84.6-84.7: - 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 - 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 - 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 - 84 > 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 ----- ^ - 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 - 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-2796-inp_data:85.6-85.7: - 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 - 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 - 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 - 85 > 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 ----- ^ - 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 - 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:86.6-86.7: - 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 - 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 - 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 - 86 > 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 ----- ^ - 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 - 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:87.6-87.7: - 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 - 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 - 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 - 87 > 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 ----- ^ - 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 - 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:88.6-88.7: - 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 - 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 - 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 - 88 > 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 ----- ^ - 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 - 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:89.6-89.7: - 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 - 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 - 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 - 89 > 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 ----- ^ - 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 - 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:90.6-90.7: - 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 - 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 - 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 - 90 > 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 ----- ^ - 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 - 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-2796-inp_data:91.6-91.7: - 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 - 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 - 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 - 91 > 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 ----- ^ - 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 - 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2796-inp_data:92.6-92.7: - 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 - 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 - 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 - 92 > 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 ----- ^ - 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 - 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2796-inp_data:93.6-93.7: - 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 - 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 - 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 - 93 > 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 ----- ^ - 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 - 95 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2796-inp_data:94.6-94.7: - 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 - 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 - 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 - 94 > 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 ----- ^ - 95 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 - 96 25 6491 M LEO TILLEY 19740315 010100 00591 00776 00000 008733 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2796-inp_data:95.6-95.7: - 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 - 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 - 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 - 95 > 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 ----- ^ - 96 25 6491 M LEO TILLEY 19740315 010100 00591 00776 00000 008733 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2796-inp_data:96.6-96.7: - 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 - 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 - 95 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 - 96 > 25 6491 M LEO TILLEY 19740315 010100 00591 00776 00000 008733 ----- ^ ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2796-inp_data:1.8-1.9: - 1 > 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 ----- ^ - 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 - 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2794:0 -run_reportwriter.at-2794-prog.cob:20.25-20.33: - 17 FILE-CONTROL. - 18 - 19 SELECT PAYROLL-REGISTER-DATA - 20 > ASSIGN TO EXTERNAL DATAIN ----- ^^^^^^^^ - 21 ORGANIZATION IS LINE SEQUENTIAL. - 22 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-2794-prog.cob:24.25-24.33: - 21 ORGANIZATION IS LINE SEQUENTIAL. - 22 - 23 SELECT REPORT-FILE - 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^ - 25 - 26 DATA DIVISION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-2794-prog.cob:24.34-24.38: - 21 ORGANIZATION IS LINE SEQUENTIAL. - 22 - 23 SELECT REPORT-FILE - 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^ - 25 - 26 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-2794-prog.cob:24.38: - 21 ORGANIZATION IS LINE SEQUENTIAL. - 22 - 23 SELECT REPORT-FILE - 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^ - 25 - 26 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-2794-prog.cob:24.39-24.48: - 21 ORGANIZATION IS LINE SEQUENTIAL. - 22 - 23 SELECT REPORT-FILE - 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. ----- ^^^^^^^^^ - 25 - 26 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-2794-prog.cob:108.15: - 105 RD QUARTERLY-PAY-REGISTER - 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, - 107 PRR-EMPLOYEE-KEY - 108 > PAGE LIMIT IS 66 LINES ----- ^ - 109 HEADING 1 - 110 FIRST DETAIL 7 ->> Hint: Missing . - -run_reportwriter.at-2794-prog.cob:108.16-108.21: - 105 RD QUARTERLY-PAY-REGISTER - 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, - 107 PRR-EMPLOYEE-KEY - 108 > PAGE LIMIT IS 66 LINES ----- ^^^^^ - 109 HEADING 1 - 110 FIRST DETAIL 7 ->> Warning: Invalid syntax - -run_reportwriter.at-2794-prog.cob:108.33: - 105 RD QUARTERLY-PAY-REGISTER - 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, - 107 PRR-EMPLOYEE-KEY - 108 > PAGE LIMIT IS 66 LINES ----- ^ - 109 HEADING 1 - 110 FIRST DETAIL 7 ->> Hint: Missing ARE - -run_reportwriter.at-2794-prog.cob:109.11-109.18: - 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, - 107 PRR-EMPLOYEE-KEY - 108 PAGE LIMIT IS 66 LINES - 109 > HEADING 1 ----- ^^^^^^^ - 110 FIRST DETAIL 7 - 111 LAST DETAIL 60. ->> Error: Invalid syntax - -run_reportwriter.at-2794-prog.cob:110.11-110.16: - 107 PRR-EMPLOYEE-KEY - 108 PAGE LIMIT IS 66 LINES - 109 HEADING 1 - 110 > FIRST DETAIL 7 ----- ^^^^^ - 111 LAST DETAIL 60. - 112 ->> Error: Invalid syntax - -run_reportwriter.at-2794-prog.cob:111.11-111.15: - 108 PAGE LIMIT IS 66 LINES - 109 HEADING 1 - 110 FIRST DETAIL 7 - 111 > LAST DETAIL 60. ----- ^^^^ - 112 - 113 01 TYPE PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-2794-prog.cob:113.15: - 110 FIRST DETAIL 7 - 111 LAST DETAIL 60. - 112 - 113 > 01 TYPE PAGE HEADING. ----- ^ - 114 02 LINE 1. - 115 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'. ->> Hint: Missing DETAIL - -run_reportwriter.at-2794-prog.cob:113.16-113.20: - 110 FIRST DETAIL 7 - 111 LAST DETAIL 60. - 112 - 113 > 01 TYPE PAGE HEADING. ----- ^^^^ - 114 02 LINE 1. - 115 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'. ->> Error: Invalid syntax - -run_reportwriter.at-2794-prog.cob:154.38: - 151 02 LINE + 1. - 152 03 COLUMN 01 PIC X(27) SOURCE PRR-EMPLOYEE-KEY. - 153 03 COLUMN 30 PIC X(5) VALUE "Hello" - 154 > PRESENT AFTER NEW PRR-EMPLOYEE-KEY ----- ^ - 155 OR PAGE. - 156 03 COLUMN 30 PIC X(5) VALUE " '' " ->> Hint: Missing WHEN - -run_reportwriter.at-2794-prog.cob:154.39-154.44: - 151 02 LINE + 1. - 152 03 COLUMN 01 PIC X(27) SOURCE PRR-EMPLOYEE-KEY. - 153 03 COLUMN 30 PIC X(5) VALUE "Hello" - 154 > PRESENT AFTER NEW PRR-EMPLOYEE-KEY ----- ^^^^^ - 155 OR PAGE. - 156 03 COLUMN 30 PIC X(5) VALUE " '' " ->> Error: Invalid syntax - -run_reportwriter.at-2794-prog.cob:157.31-157.37: - 154 PRESENT AFTER NEW PRR-EMPLOYEE-KEY - 155 OR PAGE. - 156 03 COLUMN 30 PIC X(5) VALUE " '' " - 157 > ABSENT AFTER NEW PRR-EMPLOYEE-KEY ----- ^^^^^^ - 158 OR PAGE. - 159 03 COLUMN 50 PIC 9(04).99 SOURCE PRR-GROSS-PAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2890:0 -run_reportwriter.at-2890-reference:4.7-4.11: - 1 C E N T U R Y M E D I C A L C E N T E R - 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 - 3 - 4 > --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET ----- ^^^^ - 5 NO NAME PAY TAX TAX DEDUCT. PAY - 6 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-2890-reference:5.6-5.7: - 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 - 3 - 4 --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET - 5 > NO NAME PAY TAX TAX DEDUCT. PAY ----- ^ - 6 - 7 DEPARTMENT NUMBER: 01 MANAGEMENT ->> Error: Unexpected indicator: `N' - -run_reportwriter.at-2890-reference:7.6-7.7: - 4 --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET - 5 NO NAME PAY TAX TAX DEDUCT. PAY - 6 - 7 > DEPARTMENT NUMBER: 01 MANAGEMENT ----- ^ - 8 - 9 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-2890-reference:9.6-9.7: - 6 - 7 DEPARTMENT NUMBER: 01 MANAGEMENT - 8 - 9 > 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 ----- ^ - 10 7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71 - 11 8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2890-reference:10.6-10.7: - 7 DEPARTMENT NUMBER: 01 MANAGEMENT - 8 - 9 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 - 10 > 7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71 ----- ^ - 11 8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43 - 12 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2890-reference:11.6-11.7: - 8 - 9 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 - 10 7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71 - 11 > 8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43 ----- ^ - 12 - 13 DEPARTMENT TOTALS $5,140.00 * $300.71 * $520.25 * $15.00 * $4,304.07 * ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2890-reference:16.6-16.7: - 13 DEPARTMENT TOTALS $5,140.00 * $300.71 * $520.25 * $15.00 * $4,304.07 * - 14 - 15 - 16 > DEPARTMENT NUMBER: 05 ADMINISTRATIVE ----- ^ - 17 - 18 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-2890-reference:18.6-18.7: - 15 - 16 DEPARTMENT NUMBER: 05 ADMINISTRATIVE - 17 - 18 > 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 ----- ^ - 19 2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55 - 20 6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-2890-reference:19.6-19.7: - 16 DEPARTMENT NUMBER: 05 ADMINISTRATIVE - 17 - 18 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 - 19 > 2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55 ----- ^ - 20 6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50 - 21 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2890-reference:20.6-20.7: - 17 - 18 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 - 19 2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55 - 20 > 6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50 ----- ^ - 21 - 22 DEPARTMENT TOTALS $1,915.00 * $112.03 * $485.83 * $14.75 * $1,482.42 * ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2890-reference:25.6-25.7: - 22 DEPARTMENT TOTALS $1,915.00 * $112.03 * $485.83 * $14.75 * $1,482.42 * - 23 - 24 - 25 > DEPARTMENT NUMBER: 10 SKILLED NURSING ----- ^ - 26 - 27 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-2890-reference:27.6-27.7: - 24 - 25 DEPARTMENT NUMBER: 10 SKILLED NURSING - 26 - 27 > 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 ----- ^ - 28 6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59 - 29 9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30 ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-2890-reference:28.6-28.7: - 25 DEPARTMENT NUMBER: 10 SKILLED NURSING - 26 - 27 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 - 28 > 6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59 ----- ^ - 29 9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30 - 30 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-2890-reference:29.6-29.7: - 26 - 27 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 - 28 6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59 - 29 > 9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30 ----- ^ - 30 - 31 DEPARTMENT TOTALS $5,165.00 * $302.18 * $798.24 * $12.00 * $4,052.58 * ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-2890-reference:34.6-34.7: - 31 DEPARTMENT TOTALS $5,165.00 * $302.18 * $798.24 * $12.00 * $4,052.58 * - 32 - 33 - 34 > DEPARTMENT NUMBER: 15 PATIENT SUPPORT ----- ^ - 35 - 36 2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-2890-reference:36.6-36.7: - 33 - 34 DEPARTMENT NUMBER: 15 PATIENT SUPPORT - 35 - 36 > 2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29 ----- ^ - 37 5196 CLAIRE KELLAR $886.00 $51.82 $102.80 $6.75 $724.63 - 38 ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-2890-reference:37.6-37.7: - 34 DEPARTMENT NUMBER: 15 PATIENT SUPPORT - 35 - 36 2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29 - 37 > 5196 CLAIRE KELLAR $886.00 $51.82 $102.80 $6.75 $724.63 ----- ^ - 38 - 39 DEPARTMENT TOTALS $1,726.00 * $100.96 * $239.12 * $12.00 * $1,373.92 * ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-2890-reference:42.6-42.7: - 39 DEPARTMENT TOTALS $1,726.00 * $100.96 * $239.12 * $12.00 * $1,373.92 * - 40 - 41 - 42 > DEPARTMENT NUMBER: 20 HOUSEKEEPING ----- ^ - 43 - 44 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-2890-reference:48.6-48.7: - 45 DEPARTMENT TOTALS $1,518.00 * $88.86 * $202.44 * $13.00 * $1,212.76 * - 46 - 47 - 48 > DEPARTMENT NUMBER: 25 MAINTENANCE ----- ^ - 49 - 50 2003 BALDWIN SIMONSEN $670.00 $39.22 $113.46 $4.75 $512.57 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-2890-reference:50.6-50.7: - 47 - 48 DEPARTMENT NUMBER: 25 MAINTENANCE - 49 - 50 > 2003 BALDWIN SIMONSEN $670.00 $39.22 $113.46 $4.75 $512.57 ----- ^ - 51 - 52 DEPARTMENT TOTALS $1,744.00 * $102.04 * $210.54 * $13.25 * $1,418.17 * ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-2890-reference:1.38-1.39: - 1 > C E N T U R Y M E D I C A L C E N T E R ----- ^ - 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 - 3 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3019:0 -run_reportwriter.at-3019-inp_data:1.6-1.7: - 1 > 00099Dorken, Keith CS 000008 ----- ^ - 2 00007Allinson, Sandy MA 000118 - 3 00125Allinson, Nina MA 012308 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3019-inp_data:2.6-2.7: - 1 00099Dorken, Keith CS 000008 - 2 > 00007Allinson, Sandy MA 000118 ----- ^ - 3 00125Allinson, Nina MA 012308 - 4 00126Allinson, Natalia MA 000008 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3019-inp_data:3.6-3.7: - 1 00099Dorken, Keith CS 000008 - 2 00007Allinson, Sandy MA 000118 - 3 > 00125Allinson, Nina MA 012308 ----- ^ - 4 00126Allinson, Natalia MA 000008 - 5 00127Allinson, Kristina MBA000008 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3019-inp_data:4.6-4.7: - 1 00099Dorken, Keith CS 000008 - 2 00007Allinson, Sandy MA 000118 - 3 00125Allinson, Nina MA 012308 - 4 > 00126Allinson, Natalia MA 000008 ----- ^ - 5 00127Allinson, Kristina MBA000008 - 6 00131Norman, Nancy SC 000006 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3019-inp_data:5.6-5.7: - 2 00007Allinson, Sandy MA 000118 - 3 00125Allinson, Nina MA 012308 - 4 00126Allinson, Natalia MA 000008 - 5 > 00127Allinson, Kristina MBA000008 ----- ^ - 6 00131Norman, Nancy SC 000006 - 7 00132Norman, Becky SC 000116 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3019-inp_data:6.6-6.7: - 3 00125Allinson, Nina MA 012308 - 4 00126Allinson, Natalia MA 000008 - 5 00127Allinson, Kristina MBA000008 - 6 > 00131Norman, Nancy SC 000006 ----- ^ - 7 00132Norman, Becky SC 000116 - 8 00133Norman, Michelle SC 112306 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3019-inp_data:7.6-7.7: - 4 00126Allinson, Natalia MA 000008 - 5 00127Allinson, Kristina MBA000008 - 6 00131Norman, Nancy SC 000006 - 7 > 00132Norman, Becky SC 000116 ----- ^ - 8 00133Norman, Michelle SC 112306 - 9 00134Norman, James AM 000006 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3019-inp_data:8.6-8.7: - 5 00127Allinson, Kristina MBA000008 - 6 00131Norman, Nancy SC 000006 - 7 00132Norman, Becky SC 000116 - 8 > 00133Norman, Michelle SC 112306 ----- ^ - 9 00134Norman, James AM 000006 - 10 12345Norman, Ron CS 000008 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3019-inp_data:9.6-9.7: - 6 00131Norman, Nancy SC 000006 - 7 00132Norman, Becky SC 000116 - 8 00133Norman, Michelle SC 112306 - 9 > 00134Norman, James AM 000006 ----- ^ - 10 12345Norman, Ron CS 000008 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3019-inp_data:10.6-10.7: - 7 00132Norman, Becky SC 000116 - 8 00133Norman, Michelle SC 112306 - 9 00134Norman, James AM 000006 - 10 > 12345Norman, Ron CS 000008 ----- ^ ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3019-inp_data:1.7-1.11: - 1 > 00099Dorken, Keith CS 000008 ----- ^^^^ - 2 00007Allinson, Sandy MA 000118 - 3 00125Allinson, Nina MA 012308 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3014:0 -run_reportwriter.at-3014-prog.cob:9.43-9.51: - 6 INPUT-OUTPUT SECTION. - 7 - 8 FILE-CONTROL. - 9 > SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT ----- ^^^^^^^^ - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3014-prog.cob:11.43-11.51: - 8 FILE-CONTROL. - 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 > SELECT PRINT-FILE ASSIGN TO EXTERNAL ----- ^^^^^^^^ - 12 LINE ADVANCING REPORT1. - 13 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3014-prog.cob:12.30-12.34: - 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 12 > LINE ADVANCING REPORT1. ----- ^^^^ - 13 - 14 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:12.34: - 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 12 > LINE ADVANCING REPORT1. ----- ^ - 13 - 14 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-3014-prog.cob:12.35-12.44: - 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 10 ORGANIZATION IS LINE SEQUENTIAL. - 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 12 > LINE ADVANCING REPORT1. ----- ^^^^^^^^^ - 13 - 14 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:25.13-25.22: - 22 - 23 FD PRINT-FILE - 24 BLOCK CONTAINS 0 RECORDS - 25 > RECORDING MODE IS F ----- ^^^^^^^^^ - 26 RECORD CONTAINS 132 CHARACTERS - 27 REPORT IS STUDENT-REPORT. ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:34.26: - 31 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES". - 32 - 33 REPORT SECTION. - 34 > RD STUDENT-REPORT ----- ^ - 35 PAGE LIMIT 30 - 36 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-3014-prog.cob:35.11-35.15: - 32 - 33 REPORT SECTION. - 34 RD STUDENT-REPORT - 35 > PAGE LIMIT 30 ----- ^^^^ - 36 HEADING 1 - 37 FIRST DETAIL 5 ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:35.24: - 32 - 33 REPORT SECTION. - 34 RD STUDENT-REPORT - 35 > PAGE LIMIT 30 ----- ^ - 36 HEADING 1 - 37 FIRST DETAIL 5 ->> Hint: Missing . - -run_reportwriter.at-3014-prog.cob:36.11-36.18: - 33 REPORT SECTION. - 34 RD STUDENT-REPORT - 35 PAGE LIMIT 30 - 36 > HEADING 1 ----- ^^^^^^^ - 37 FIRST DETAIL 5 - 38 LAST DETAIL 25 ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:36.20: - 33 REPORT SECTION. - 34 RD STUDENT-REPORT - 35 PAGE LIMIT 30 - 36 > HEADING 1 ----- ^ - 37 FIRST DETAIL 5 - 38 LAST DETAIL 25 ->> Hint: Missing . - -run_reportwriter.at-3014-prog.cob:37.11-37.16: - 34 RD STUDENT-REPORT - 35 PAGE LIMIT 30 - 36 HEADING 1 - 37 > FIRST DETAIL 5 ----- ^^^^^ - 38 LAST DETAIL 25 - 39 FOOTING 28 ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:37.26: - 34 RD STUDENT-REPORT - 35 PAGE LIMIT 30 - 36 HEADING 1 - 37 > FIRST DETAIL 5 ----- ^ - 38 LAST DETAIL 25 - 39 FOOTING 28 ->> Hint: Missing . - -run_reportwriter.at-3014-prog.cob:38.11-38.15: - 35 PAGE LIMIT 30 - 36 HEADING 1 - 37 FIRST DETAIL 5 - 38 > LAST DETAIL 25 ----- ^^^^ - 39 FOOTING 28 - 40 LINE LIMIT 90 ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:38.26: - 35 PAGE LIMIT 30 - 36 HEADING 1 - 37 FIRST DETAIL 5 - 38 > LAST DETAIL 25 ----- ^ - 39 FOOTING 28 - 40 LINE LIMIT 90 ->> Hint: Missing . - -run_reportwriter.at-3014-prog.cob:39.11-39.18: - 36 HEADING 1 - 37 FIRST DETAIL 5 - 38 LAST DETAIL 25 - 39 > FOOTING 28 ----- ^^^^^^^ - 40 LINE LIMIT 90 - 41 . ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:40.16-40.21: - 37 FIRST DETAIL 5 - 38 LAST DETAIL 25 - 39 FOOTING 28 - 40 > LINE LIMIT 90 ----- ^^^^^ - 41 . - 42 01 HEADING-LINE. ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:43.17: - 40 LINE LIMIT 90 - 41 . - 42 01 HEADING-LINE. - 43 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 44 05 COLUMN 1 PIC X(50) VALUE - 45 " 1 2 3 4 5". ->> Hint: Missing DETAIL - -run_reportwriter.at-3014-prog.cob:43.18-43.22: - 40 LINE LIMIT 90 - 41 . - 42 01 HEADING-LINE. - 43 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 44 05 COLUMN 1 PIC X(50) VALUE - 45 " 1 2 3 4 5". ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:47.17: - 44 05 COLUMN 1 PIC X(50) VALUE - 45 " 1 2 3 4 5". - 46 05 COLUMN 51 PIC X(20) VALUE " 6 7". - 47 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 48 05 COLUMN 1 PIC X(50) VALUE - 49 "12345678901234567890123456789012345678901234567890". ->> Hint: Missing DETAIL - -run_reportwriter.at-3014-prog.cob:47.18-47.22: - 44 05 COLUMN 1 PIC X(50) VALUE - 45 " 1 2 3 4 5". - 46 05 COLUMN 51 PIC X(20) VALUE " 6 7". - 47 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 48 05 COLUMN 1 PIC X(50) VALUE - 49 "12345678901234567890123456789012345678901234567890". ->> Error: Invalid syntax - -run_reportwriter.at-3014-prog.cob:51.17: - 48 05 COLUMN 1 PIC X(50) VALUE - 49 "12345678901234567890123456789012345678901234567890". - 50 05 COLUMN 51 PIC X(20) VALUE "12345678901234567890". - 51 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 52 05 COLUMN 1 PIC X(2) VALUE "Ln". - 53 05 COLUMN 5 PIC X(6) VALUE "--ID--". ->> Hint: Missing DETAIL - -run_reportwriter.at-3014-prog.cob:51.18-51.22: - 48 05 COLUMN 1 PIC X(50) VALUE - 49 "12345678901234567890123456789012345678901234567890". - 50 05 COLUMN 51 PIC X(20) VALUE "12345678901234567890". - 51 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 52 05 COLUMN 1 PIC X(2) VALUE "Ln". - 53 05 COLUMN 5 PIC X(6) VALUE "--ID--". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3058:0 -run_reportwriter.at-3058-reference:2.6-2.7: - 1 1 2 3 4 5 6 7 - 2 > 1234567890123456789012345678901234567890123456789012345678901234567890 ----- ^ - 3 Ln --ID-- --------Name-------- Major *-* +Odd+ +Even+ - 4 ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-3058-reference:3.6-3.7: - 1 1 2 3 4 5 6 7 - 2 1234567890123456789012345678901234567890123456789012345678901234567890 - 3 > Ln --ID-- --------Name-------- Major *-* +Odd+ +Even+ ----- ^ - 4 - 5 5 99 Dorken, Keith CS :-: 8 8 : ->> Error: Unexpected indicator: `I' - -run_reportwriter.at-3058-reference:7.6-7.7: - 4 - 5 5 99 Dorken, Keith CS :-: 8 8 : - 6 6 7 Allinson, Sandy MA :-: 118 118 : - 7 > 7 125 Allinson, Nina MA :-: 12308 12308 : ----- ^ - 8 8 126 Allinson, Natalia MA :-: 8 8 : - 9 9 127 Allinson, Kristina MBA :-: 8 8 : ->> Error: Unexpected indicator: `5' - -run_reportwriter.at-3058-reference:8.6-8.7: - 5 5 99 Dorken, Keith CS :-: 8 8 : - 6 6 7 Allinson, Sandy MA :-: 118 118 : - 7 7 125 Allinson, Nina MA :-: 12308 12308 : - 8 > 8 126 Allinson, Natalia MA :-: 8 8 : ----- ^ - 9 9 127 Allinson, Kristina MBA :-: 8 8 : - 10 10 131 Norman, Nancy SC :-: 6 6 : ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-3058-reference:9.6-9.7: - 6 6 7 Allinson, Sandy MA :-: 118 118 : - 7 7 125 Allinson, Nina MA :-: 12308 12308 : - 8 8 126 Allinson, Natalia MA :-: 8 8 : - 9 > 9 127 Allinson, Kristina MBA :-: 8 8 : ----- ^ - 10 10 131 Norman, Nancy SC :-: 6 6 : - 11 11 132 Norman, Becky SC :-: 116 116 : ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-3058-reference:10.6-10.7: - 7 7 125 Allinson, Nina MA :-: 12308 12308 : - 8 8 126 Allinson, Natalia MA :-: 8 8 : - 9 9 127 Allinson, Kristina MBA :-: 8 8 : - 10 > 10 131 Norman, Nancy SC :-: 6 6 : ----- ^ - 11 11 132 Norman, Becky SC :-: 116 116 : - 12 12 133 Norman, Michelle SC :-: 12306 112306 : ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3058-reference:11.6-11.7: - 8 8 126 Allinson, Natalia MA :-: 8 8 : - 9 9 127 Allinson, Kristina MBA :-: 8 8 : - 10 10 131 Norman, Nancy SC :-: 6 6 : - 11 > 11 132 Norman, Becky SC :-: 116 116 : ----- ^ - 12 12 133 Norman, Michelle SC :-: 12306 112306 : - 13 13 134 Norman, James AM :-: 6 6 : ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-3058-reference:12.6-12.7: - 9 9 127 Allinson, Kristina MBA :-: 8 8 : - 10 10 131 Norman, Nancy SC :-: 6 6 : - 11 11 132 Norman, Becky SC :-: 116 116 : - 12 > 12 133 Norman, Michelle SC :-: 12306 112306 : ----- ^ - 13 13 134 Norman, James AM :-: 6 6 : - 14 14 12345 Norman, Ron CS :-: 8 8 : ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-3058-reference:13.6-13.7: - 10 10 131 Norman, Nancy SC :-: 6 6 : - 11 11 132 Norman, Becky SC :-: 116 116 : - 12 12 133 Norman, Michelle SC :-: 12306 112306 : - 13 > 13 134 Norman, James AM :-: 6 6 : ----- ^ - 14 14 12345 Norman, Ron CS :-: 8 8 : - 15 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-3058-reference:14.6-14.7: - 11 11 132 Norman, Becky SC :-: 116 116 : - 12 12 133 Norman, Michelle SC :-: 12306 112306 : - 13 13 134 Norman, James AM :-: 6 6 : - 14 > 14 12345 Norman, Ron CS :-: 8 8 : ----- ^ - 15 - 16 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-3058-reference:1.9-1.10: - 1 > 1 2 3 4 5 6 7 ----- ^ - 2 1234567890123456789012345678901234567890123456789012345678901234567890 - 3 Ln --ID-- --------Name-------- Major *-* +Odd+ +Even+ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3173:0 -run_reportwriter.at-3173-inp_data:1.6-1.7: - 1 > 00123Dorken, Keith CS 08 ----- ^ - 2 00124Allinson, Sandy MA 08 - 3 00125Allinson, Nina MA 08 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3173-inp_data:2.6-2.7: - 1 00123Dorken, Keith CS 08 - 2 > 00124Allinson, Sandy MA 08 ----- ^ - 3 00125Allinson, Nina MA 08 - 4 00126Allinson, Natalia MA 08 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3173-inp_data:3.6-3.7: - 1 00123Dorken, Keith CS 08 - 2 00124Allinson, Sandy MA 08 - 3 > 00125Allinson, Nina MA 08 ----- ^ - 4 00126Allinson, Natalia MA 08 - 5 00127Allinson, Kristina MBA08 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3173-inp_data:4.6-4.7: - 1 00123Dorken, Keith CS 08 - 2 00124Allinson, Sandy MA 08 - 3 00125Allinson, Nina MA 08 - 4 > 00126Allinson, Natalia MA 08 ----- ^ - 5 00127Allinson, Kristina MBA08 - 6 00131Norman, Nancy SC 06 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3173-inp_data:5.6-5.7: - 2 00124Allinson, Sandy MA 08 - 3 00125Allinson, Nina MA 08 - 4 00126Allinson, Natalia MA 08 - 5 > 00127Allinson, Kristina MBA08 ----- ^ - 6 00131Norman, Nancy SC 06 - 7 00132Norman, Becky SC 06 ->> Error: Unexpected indicator: `l' - -run_reportwriter.at-3173-inp_data:6.6-6.7: - 3 00125Allinson, Nina MA 08 - 4 00126Allinson, Natalia MA 08 - 5 00127Allinson, Kristina MBA08 - 6 > 00131Norman, Nancy SC 06 ----- ^ - 7 00132Norman, Becky SC 06 - 8 00133Norman, Michelle SC 06 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3173-inp_data:7.6-7.7: - 4 00126Allinson, Natalia MA 08 - 5 00127Allinson, Kristina MBA08 - 6 00131Norman, Nancy SC 06 - 7 > 00132Norman, Becky SC 06 ----- ^ - 8 00133Norman, Michelle SC 06 - 9 00134Norman, James AM 06 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3173-inp_data:8.6-8.7: - 5 00127Allinson, Kristina MBA08 - 6 00131Norman, Nancy SC 06 - 7 00132Norman, Becky SC 06 - 8 > 00133Norman, Michelle SC 06 ----- ^ - 9 00134Norman, James AM 06 - 10 12345Norman, Ron CS 08 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3173-inp_data:9.6-9.7: - 6 00131Norman, Nancy SC 06 - 7 00132Norman, Becky SC 06 - 8 00133Norman, Michelle SC 06 - 9 > 00134Norman, James AM 06 ----- ^ - 10 12345Norman, Ron CS 08 ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3173-inp_data:10.6-10.7: - 7 00132Norman, Becky SC 06 - 8 00133Norman, Michelle SC 06 - 9 00134Norman, James AM 06 - 10 > 12345Norman, Ron CS 08 ----- ^ ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3173-inp_data:1.7-1.11: - 1 > 00123Dorken, Keith CS 08 ----- ^^^^ - 2 00124Allinson, Sandy MA 08 - 3 00125Allinson, Nina MA 08 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3171:0 -run_reportwriter.at-3171-prog.cob:8.43-8.51: - 5 CONFIGURATION SECTION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT ----- ^^^^^^^^ - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3171-prog.cob:10.43-10.51: - 7 FILE-CONTROL. - 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 > SELECT PRINT-FILE ASSIGN TO EXTERNAL ----- ^^^^^^^^ - 11 LINE ADVANCING REPORT1. - 12 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3171-prog.cob:11.30-11.34: - 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT1. ----- ^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:11.34: - 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT1. ----- ^ - 12 - 13 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-3171-prog.cob:11.35-11.44: - 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT1. ----- ^^^^^^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:29.26: - 26 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES". - 27 - 28 REPORT SECTION. - 29 > RD STUDENT-REPORT ----- ^ - 30 PAGE LIMIT 30 LINES - 31 HEADING 2 ->> Hint: Missing . - -run_reportwriter.at-3171-prog.cob:30.11-30.15: - 27 - 28 REPORT SECTION. - 29 RD STUDENT-REPORT - 30 > PAGE LIMIT 30 LINES ----- ^^^^ - 31 HEADING 2 - 32 FIRST DETAIL 3 ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:30.30: - 27 - 28 REPORT SECTION. - 29 RD STUDENT-REPORT - 30 > PAGE LIMIT 30 LINES ----- ^ - 31 HEADING 2 - 32 FIRST DETAIL 3 ->> Hint: Missing ARE - -run_reportwriter.at-3171-prog.cob:31.11-31.18: - 28 REPORT SECTION. - 29 RD STUDENT-REPORT - 30 PAGE LIMIT 30 LINES - 31 > HEADING 2 ----- ^^^^^^^ - 32 FIRST DETAIL 3 - 33 LAST DETAIL 25 ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:32.11-32.16: - 29 RD STUDENT-REPORT - 30 PAGE LIMIT 30 LINES - 31 HEADING 2 - 32 > FIRST DETAIL 3 ----- ^^^^^ - 33 LAST DETAIL 25 - 34 FOOTING 28. ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:33.11-33.15: - 30 PAGE LIMIT 30 LINES - 31 HEADING 2 - 32 FIRST DETAIL 3 - 33 > LAST DETAIL 25 ----- ^^^^ - 34 FOOTING 28. - 35 01 REPORT-LINE ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:34.11-34.18: - 31 HEADING 2 - 32 FIRST DETAIL 3 - 33 LAST DETAIL 25 - 34 > FOOTING 28. ----- ^^^^^^^ - 35 01 REPORT-LINE - 36 TYPE DETAIL ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:46.26: - 43 05 COLUMN 45 PIC XXX VALUE "-*-". - 44 05 COLUMN 52 PIC 99 SOURCE NUM-COURSES. - 45 - 46 > RD STUDENT-REPORT2 ----- ^ - 47 PAGE LIMIT 60 LINES - 48 HEADING 2 ->> Hint: Missing . - -run_reportwriter.at-3171-prog.cob:47.11-47.15: - 44 05 COLUMN 52 PIC 99 SOURCE NUM-COURSES. - 45 - 46 RD STUDENT-REPORT2 - 47 > PAGE LIMIT 60 LINES ----- ^^^^ - 48 HEADING 2 - 49 FIRST DETAIL 5 ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:47.30: - 44 05 COLUMN 52 PIC 99 SOURCE NUM-COURSES. - 45 - 46 RD STUDENT-REPORT2 - 47 > PAGE LIMIT 60 LINES ----- ^ - 48 HEADING 2 - 49 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-3171-prog.cob:48.11-48.18: - 45 - 46 RD STUDENT-REPORT2 - 47 PAGE LIMIT 60 LINES - 48 > HEADING 2 ----- ^^^^^^^ - 49 FIRST DETAIL 5 - 50 LAST DETAIL 55 ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:49.11-49.16: - 46 RD STUDENT-REPORT2 - 47 PAGE LIMIT 60 LINES - 48 HEADING 2 - 49 > FIRST DETAIL 5 ----- ^^^^^ - 50 LAST DETAIL 55 - 51 FOOTING 58. ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:50.11-50.15: - 47 PAGE LIMIT 60 LINES - 48 HEADING 2 - 49 FIRST DETAIL 5 - 50 > LAST DETAIL 55 ----- ^^^^ - 51 FOOTING 58. - 52 01 REPORT-LINE2 ->> Error: Invalid syntax - -run_reportwriter.at-3171-prog.cob:51.11-51.18: - 48 HEADING 2 - 49 FIRST DETAIL 5 - 50 LAST DETAIL 55 - 51 > FOOTING 58. ----- ^^^^^^^ - 52 01 REPORT-LINE2 - 53 TYPE DETAIL ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3210:0 -run_reportwriter.at-3210-reference:3.6-3.7: - 1 - 2 - 3 > 03 000123 Dorken, Keith CS -*- 08 ----- ^ - 4 04 000124 Allinson, Sandy MA -*- 08 - 5 05 000125 Allinson, Nina MA -*- 08 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:4.6-4.7: - 1 - 2 - 3 03 000123 Dorken, Keith CS -*- 08 - 4 > 04 000124 Allinson, Sandy MA -*- 08 ----- ^ - 5 05 000125 Allinson, Nina MA -*- 08 - 6 06 000126 Allinson, Natalia MA -*- 08 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:5.6-5.7: - 2 - 3 03 000123 Dorken, Keith CS -*- 08 - 4 04 000124 Allinson, Sandy MA -*- 08 - 5 > 05 000125 Allinson, Nina MA -*- 08 ----- ^ - 6 06 000126 Allinson, Natalia MA -*- 08 - 7 07 000127 Allinson, Kristina MBA -*- 08 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:6.6-6.7: - 3 03 000123 Dorken, Keith CS -*- 08 - 4 04 000124 Allinson, Sandy MA -*- 08 - 5 05 000125 Allinson, Nina MA -*- 08 - 6 > 06 000126 Allinson, Natalia MA -*- 08 ----- ^ - 7 07 000127 Allinson, Kristina MBA -*- 08 - 8 08 000131 Norman, Nancy SC -*- 06 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:7.6-7.7: - 4 04 000124 Allinson, Sandy MA -*- 08 - 5 05 000125 Allinson, Nina MA -*- 08 - 6 06 000126 Allinson, Natalia MA -*- 08 - 7 > 07 000127 Allinson, Kristina MBA -*- 08 ----- ^ - 8 08 000131 Norman, Nancy SC -*- 06 - 9 09 000132 Norman, Becky SC -*- 06 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:8.6-8.7: - 5 05 000125 Allinson, Nina MA -*- 08 - 6 06 000126 Allinson, Natalia MA -*- 08 - 7 07 000127 Allinson, Kristina MBA -*- 08 - 8 > 08 000131 Norman, Nancy SC -*- 06 ----- ^ - 9 09 000132 Norman, Becky SC -*- 06 - 10 10 000133 Norman, Michelle SC -*- 06 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:9.6-9.7: - 6 06 000126 Allinson, Natalia MA -*- 08 - 7 07 000127 Allinson, Kristina MBA -*- 08 - 8 08 000131 Norman, Nancy SC -*- 06 - 9 > 09 000132 Norman, Becky SC -*- 06 ----- ^ - 10 10 000133 Norman, Michelle SC -*- 06 - 11 11 000134 Norman, James AM -*- 06 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:10.6-10.7: - 7 07 000127 Allinson, Kristina MBA -*- 08 - 8 08 000131 Norman, Nancy SC -*- 06 - 9 09 000132 Norman, Becky SC -*- 06 - 10 > 10 000133 Norman, Michelle SC -*- 06 ----- ^ - 11 11 000134 Norman, James AM -*- 06 - 12 12 012345 Norman, Ron CS -*- 08 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:11.6-11.7: - 8 08 000131 Norman, Nancy SC -*- 06 - 9 09 000132 Norman, Becky SC -*- 06 - 10 10 000133 Norman, Michelle SC -*- 06 - 11 > 11 000134 Norman, James AM -*- 06 ----- ^ - 12 12 012345 Norman, Ron CS -*- 08 - 13 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-3210-reference:12.6-12.7: - 9 09 000132 Norman, Becky SC -*- 06 - 10 10 000133 Norman, Michelle SC -*- 06 - 11 11 000134 Norman, James AM -*- 06 - 12 > 12 012345 Norman, Ron CS -*- 08 ----- ^ - 13 - 14 ->> Error: Unexpected indicator: `3' - -run_reportwriter.at-3210-reference:3.7-3.9: - 1 - 2 - 3 > 03 000123 Dorken, Keith CS -*- 08 ----- ^^ - 4 04 000124 Allinson, Sandy MA -*- 08 - 5 05 000125 Allinson, Nina MA -*- 08 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3441:0 -run_reportwriter.at-3441-inp_data:1.6-1.7: - 1 > 10001090001012010590416 $ ----- ^ - 2 10001090002013016950416 $ - 3 10002090002023016950416 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:2.6-2.7: - 1 10001090001012010590416 $ - 2 > 10001090002013016950416 $ ----- ^ - 3 10002090002023016950416 $ - 4 10002090001022010590416 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:3.6-3.7: - 1 10001090001012010590416 $ - 2 10001090002013016950416 $ - 3 > 10002090002023016950416 $ ----- ^ - 4 10002090001022010590416 $ - 5 10003090007023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:4.6-4.7: - 1 10001090001012010590416 $ - 2 10001090002013016950416 $ - 3 10002090002023016950416 $ - 4 > 10002090001022010590416 $ ----- ^ - 5 10003090007023016950417 $ - 6 10003090008032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:5.6-5.7: - 2 10001090002013016950416 $ - 3 10002090002023016950416 $ - 4 10002090001022010590416 $ - 5 > 10003090007023016950417 $ ----- ^ - 6 10003090008032010590417 $ - 7 10003090009023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:6.6-6.7: - 3 10002090002023016950416 $ - 4 10002090001022010590416 $ - 5 10003090007023016950417 $ - 6 > 10003090008032010590417 $ ----- ^ - 7 10003090009023016950417 $ - 8 10003090010032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:7.6-7.7: - 4 10002090001022010590416 $ - 5 10003090007023016950417 $ - 6 10003090008032010590417 $ - 7 > 10003090009023016950417 $ ----- ^ - 8 10003090010032010590417 $ - 9 10004090007023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:8.6-8.7: - 5 10003090007023016950417 $ - 6 10003090008032010590417 $ - 7 10003090009023016950417 $ - 8 > 10003090010032010590417 $ ----- ^ - 9 10004090007023016950417 $ - 10 10004090008032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:9.6-9.7: - 6 10003090008032010590417 $ - 7 10003090009023016950417 $ - 8 10003090010032010590417 $ - 9 > 10004090007023016950417 $ ----- ^ - 10 10004090008032010590417 $ - 11 10004090009023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:10.6-10.7: - 7 10003090009023016950417 $ - 8 10003090010032010590417 $ - 9 10004090007023016950417 $ - 10 > 10004090008032010590417 $ ----- ^ - 11 10004090009023016950417 $ - 12 10004090010032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:11.6-11.7: - 8 10003090010032010590417 $ - 9 10004090007023016950417 $ - 10 10004090008032010590417 $ - 11 > 10004090009023016950417 $ ----- ^ - 12 10004090010032010590417 $ - 13 10004090011032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:12.6-12.7: - 9 10004090007023016950417 $ - 10 10004090008032010590417 $ - 11 10004090009023016950417 $ - 12 > 10004090010032010590417 $ ----- ^ - 13 10004090011032010590417 $ - 14 10004090012032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:13.6-13.7: - 10 10004090008032010590417 $ - 11 10004090009023016950417 $ - 12 10004090010032010590417 $ - 13 > 10004090011032010590417 $ ----- ^ - 14 10004090012032010590417 $ - 15 10004090013032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:14.6-14.7: - 11 10004090009023016950417 $ - 12 10004090010032010590417 $ - 13 10004090011032010590417 $ - 14 > 10004090012032010590417 $ ----- ^ - 15 10004090013032010590417 $ - 16 10004090014032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:15.6-15.7: - 12 10004090010032010590417 $ - 13 10004090011032010590417 $ - 14 10004090012032010590417 $ - 15 > 10004090013032010590417 $ ----- ^ - 16 10004090014032010590417 $ - 17 10004090015032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:16.6-16.7: - 13 10004090011032010590417 $ - 14 10004090012032010590417 $ - 15 10004090013032010590417 $ - 16 > 10004090014032010590417 $ ----- ^ - 17 10004090015032010590417 $ - 18 10005090007023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:17.6-17.7: - 14 10004090012032010590417 $ - 15 10004090013032010590417 $ - 16 10004090014032010590417 $ - 17 > 10004090015032010590417 $ ----- ^ - 18 10005090007023016950417 $ - 19 10005090008032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:18.6-18.7: - 15 10004090013032010590417 $ - 16 10004090014032010590417 $ - 17 10004090015032010590417 $ - 18 > 10005090007023016950417 $ ----- ^ - 19 10005090008032010590417 $ - 20 10005090009023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:19.6-19.7: - 16 10004090014032010590417 $ - 17 10004090015032010590417 $ - 18 10005090007023016950417 $ - 19 > 10005090008032010590417 $ ----- ^ - 20 10005090009023016950417 $ - 21 10005090010032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:20.6-20.7: - 17 10004090015032010590417 $ - 18 10005090007023016950417 $ - 19 10005090008032010590417 $ - 20 > 10005090009023016950417 $ ----- ^ - 21 10005090010032010590417 $ - 22 10005090011032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:21.6-21.7: - 18 10005090007023016950417 $ - 19 10005090008032010590417 $ - 20 10005090009023016950417 $ - 21 > 10005090010032010590417 $ ----- ^ - 22 10005090011032010590417 $ - 23 10005090012032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:22.6-22.7: - 19 10005090008032010590417 $ - 20 10005090009023016950417 $ - 21 10005090010032010590417 $ - 22 > 10005090011032010590417 $ ----- ^ - 23 10005090012032010590417 $ - 24 10005090013032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:23.6-23.7: - 20 10005090009023016950417 $ - 21 10005090010032010590417 $ - 22 10005090011032010590417 $ - 23 > 10005090012032010590417 $ ----- ^ - 24 10005090013032010590417 $ - 25 10005090014032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:24.6-24.7: - 21 10005090010032010590417 $ - 22 10005090011032010590417 $ - 23 10005090012032010590417 $ - 24 > 10005090013032010590417 $ ----- ^ - 25 10005090014032010590417 $ - 26 10005090015032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:25.6-25.7: - 22 10005090011032010590417 $ - 23 10005090012032010590417 $ - 24 10005090013032010590417 $ - 25 > 10005090014032010590417 $ ----- ^ - 26 10005090015032010590417 $ - 27 10005090016032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:26.6-26.7: - 23 10005090012032010590417 $ - 24 10005090013032010590417 $ - 25 10005090014032010590417 $ - 26 > 10005090015032010590417 $ ----- ^ - 27 10005090016032010590417 $ - 28 10005090017032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:27.6-27.7: - 24 10005090013032010590417 $ - 25 10005090014032010590417 $ - 26 10005090015032010590417 $ - 27 > 10005090016032010590417 $ ----- ^ - 28 10005090017032010590417 $ - 29 10005090018032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:28.6-28.7: - 25 10005090014032010590417 $ - 26 10005090015032010590417 $ - 27 10005090016032010590417 $ - 28 > 10005090017032010590417 $ ----- ^ - 29 10005090018032010590417 $ - 30 10006090007023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:29.6-29.7: - 26 10005090015032010590417 $ - 27 10005090016032010590417 $ - 28 10005090017032010590417 $ - 29 > 10005090018032010590417 $ ----- ^ - 30 10006090007023016950417 $ - 31 10006090008032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:30.6-30.7: - 27 10005090016032010590417 $ - 28 10005090017032010590417 $ - 29 10005090018032010590417 $ - 30 > 10006090007023016950417 $ ----- ^ - 31 10006090008032010590417 $ - 32 10006090009023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:31.6-31.7: - 28 10005090017032010590417 $ - 29 10005090018032010590417 $ - 30 10006090007023016950417 $ - 31 > 10006090008032010590417 $ ----- ^ - 32 10006090009023016950417 $ - 33 10006090010032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:32.6-32.7: - 29 10005090018032010590417 $ - 30 10006090007023016950417 $ - 31 10006090008032010590417 $ - 32 > 10006090009023016950417 $ ----- ^ - 33 10006090010032010590417 $ - 34 10006090011032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:33.6-33.7: - 30 10006090007023016950417 $ - 31 10006090008032010590417 $ - 32 10006090009023016950417 $ - 33 > 10006090010032010590417 $ ----- ^ - 34 10006090011032010590417 $ - 35 10006090012032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:34.6-34.7: - 31 10006090008032010590417 $ - 32 10006090009023016950417 $ - 33 10006090010032010590417 $ - 34 > 10006090011032010590417 $ ----- ^ - 35 10006090012032010590417 $ - 36 10006090013032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:35.6-35.7: - 32 10006090009023016950417 $ - 33 10006090010032010590417 $ - 34 10006090011032010590417 $ - 35 > 10006090012032010590417 $ ----- ^ - 36 10006090013032010590417 $ - 37 10006090014032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:36.6-36.7: - 33 10006090010032010590417 $ - 34 10006090011032010590417 $ - 35 10006090012032010590417 $ - 36 > 10006090013032010590417 $ ----- ^ - 37 10006090014032010590417 $ - 38 10006090015032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:37.6-37.7: - 34 10006090011032010590417 $ - 35 10006090012032010590417 $ - 36 10006090013032010590417 $ - 37 > 10006090014032010590417 $ ----- ^ - 38 10006090015032010590417 $ - 39 10006090016032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:38.6-38.7: - 35 10006090012032010590417 $ - 36 10006090013032010590417 $ - 37 10006090014032010590417 $ - 38 > 10006090015032010590417 $ ----- ^ - 39 10006090016032010590417 $ - 40 10006090017032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:39.6-39.7: - 36 10006090013032010590417 $ - 37 10006090014032010590417 $ - 38 10006090015032010590417 $ - 39 > 10006090016032010590417 $ ----- ^ - 40 10006090017032010590417 $ - 41 10006090018032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:40.6-40.7: - 37 10006090014032010590417 $ - 38 10006090015032010590417 $ - 39 10006090016032010590417 $ - 40 > 10006090017032010590417 $ ----- ^ - 41 10006090018032010590417 $ - 42 10006090019032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:41.6-41.7: - 38 10006090015032010590417 $ - 39 10006090016032010590417 $ - 40 10006090017032010590417 $ - 41 > 10006090018032010590417 $ ----- ^ - 42 10006090019032010590417 $ - 43 10006090020032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:42.6-42.7: - 39 10006090016032010590417 $ - 40 10006090017032010590417 $ - 41 10006090018032010590417 $ - 42 > 10006090019032010590417 $ ----- ^ - 43 10006090020032010590417 $ - 44 10007090007023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:43.6-43.7: - 40 10006090017032010590417 $ - 41 10006090018032010590417 $ - 42 10006090019032010590417 $ - 43 > 10006090020032010590417 $ ----- ^ - 44 10007090007023016950417 $ - 45 10007090008032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:44.6-44.7: - 41 10006090018032010590417 $ - 42 10006090019032010590417 $ - 43 10006090020032010590417 $ - 44 > 10007090007023016950417 $ ----- ^ - 45 10007090008032010590417 $ - 46 10007090009023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:45.6-45.7: - 42 10006090019032010590417 $ - 43 10006090020032010590417 $ - 44 10007090007023016950417 $ - 45 > 10007090008032010590417 $ ----- ^ - 46 10007090009023016950417 $ - 47 10007090010032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:46.6-46.7: - 43 10006090020032010590417 $ - 44 10007090007023016950417 $ - 45 10007090008032010590417 $ - 46 > 10007090009023016950417 $ ----- ^ - 47 10007090010032010590417 $ - 48 10007090011032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:47.6-47.7: - 44 10007090007023016950417 $ - 45 10007090008032010590417 $ - 46 10007090009023016950417 $ - 47 > 10007090010032010590417 $ ----- ^ - 48 10007090011032010590417 $ - 49 10007090012032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:48.6-48.7: - 45 10007090008032010590417 $ - 46 10007090009023016950417 $ - 47 10007090010032010590417 $ - 48 > 10007090011032010590417 $ ----- ^ - 49 10007090012032010590417 $ - 50 10007090013032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:49.6-49.7: - 46 10007090009023016950417 $ - 47 10007090010032010590417 $ - 48 10007090011032010590417 $ - 49 > 10007090012032010590417 $ ----- ^ - 50 10007090013032010590417 $ - 51 10007090014032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:50.6-50.7: - 47 10007090010032010590417 $ - 48 10007090011032010590417 $ - 49 10007090012032010590417 $ - 50 > 10007090013032010590417 $ ----- ^ - 51 10007090014032010590417 $ - 52 10007090015032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:51.6-51.7: - 48 10007090011032010590417 $ - 49 10007090012032010590417 $ - 50 10007090013032010590417 $ - 51 > 10007090014032010590417 $ ----- ^ - 52 10007090015032010590417 $ - 53 10007090016032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:52.6-52.7: - 49 10007090012032010590417 $ - 50 10007090013032010590417 $ - 51 10007090014032010590417 $ - 52 > 10007090015032010590417 $ ----- ^ - 53 10007090016032010590417 $ - 54 10007090017032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:53.6-53.7: - 50 10007090013032010590417 $ - 51 10007090014032010590417 $ - 52 10007090015032010590417 $ - 53 > 10007090016032010590417 $ ----- ^ - 54 10007090017032010590417 $ - 55 10007090018032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:54.6-54.7: - 51 10007090014032010590417 $ - 52 10007090015032010590417 $ - 53 10007090016032010590417 $ - 54 > 10007090017032010590417 $ ----- ^ - 55 10007090018032010590417 $ - 56 10007090019032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:55.6-55.7: - 52 10007090015032010590417 $ - 53 10007090016032010590417 $ - 54 10007090017032010590417 $ - 55 > 10007090018032010590417 $ ----- ^ - 56 10007090019032010590417 $ - 57 10007090020032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:56.6-56.7: - 53 10007090016032010590417 $ - 54 10007090017032010590417 $ - 55 10007090018032010590417 $ - 56 > 10007090019032010590417 $ ----- ^ - 57 10007090020032010590417 $ - 58 10007090021032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:57.6-57.7: - 54 10007090017032010590417 $ - 55 10007090018032010590417 $ - 56 10007090019032010590417 $ - 57 > 10007090020032010590417 $ ----- ^ - 58 10007090021032010590417 $ - 59 10007090022032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:58.6-58.7: - 55 10007090018032010590417 $ - 56 10007090019032010590417 $ - 57 10007090020032010590417 $ - 58 > 10007090021032010590417 $ ----- ^ - 59 10007090022032010590417 $ - 60 10008090007023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:59.6-59.7: - 56 10007090019032010590417 $ - 57 10007090020032010590417 $ - 58 10007090021032010590417 $ - 59 > 10007090022032010590417 $ ----- ^ - 60 10008090007023016950417 $ - 61 10008090008032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:60.6-60.7: - 57 10007090020032010590417 $ - 58 10007090021032010590417 $ - 59 10007090022032010590417 $ - 60 > 10008090007023016950417 $ ----- ^ - 61 10008090008032010590417 $ - 62 10008090009023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:61.6-61.7: - 58 10007090021032010590417 $ - 59 10007090022032010590417 $ - 60 10008090007023016950417 $ - 61 > 10008090008032010590417 $ ----- ^ - 62 10008090009023016950417 $ - 63 10008090010032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:62.6-62.7: - 59 10007090022032010590417 $ - 60 10008090007023016950417 $ - 61 10008090008032010590417 $ - 62 > 10008090009023016950417 $ ----- ^ - 63 10008090010032010590417 $ - 64 10008090011032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:63.6-63.7: - 60 10008090007023016950417 $ - 61 10008090008032010590417 $ - 62 10008090009023016950417 $ - 63 > 10008090010032010590417 $ ----- ^ - 64 10008090011032010590417 $ - 65 10008090012032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:64.6-64.7: - 61 10008090008032010590417 $ - 62 10008090009023016950417 $ - 63 10008090010032010590417 $ - 64 > 10008090011032010590417 $ ----- ^ - 65 10008090012032010590417 $ - 66 10008090013032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:65.6-65.7: - 62 10008090009023016950417 $ - 63 10008090010032010590417 $ - 64 10008090011032010590417 $ - 65 > 10008090012032010590417 $ ----- ^ - 66 10008090013032010590417 $ - 67 10008090014032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:66.6-66.7: - 63 10008090010032010590417 $ - 64 10008090011032010590417 $ - 65 10008090012032010590417 $ - 66 > 10008090013032010590417 $ ----- ^ - 67 10008090014032010590417 $ - 68 10008090015032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:67.6-67.7: - 64 10008090011032010590417 $ - 65 10008090012032010590417 $ - 66 10008090013032010590417 $ - 67 > 10008090014032010590417 $ ----- ^ - 68 10008090015032010590417 $ - 69 10008090016032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:68.6-68.7: - 65 10008090012032010590417 $ - 66 10008090013032010590417 $ - 67 10008090014032010590417 $ - 68 > 10008090015032010590417 $ ----- ^ - 69 10008090016032010590417 $ - 70 10008090017032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:69.6-69.7: - 66 10008090013032010590417 $ - 67 10008090014032010590417 $ - 68 10008090015032010590417 $ - 69 > 10008090016032010590417 $ ----- ^ - 70 10008090017032010590417 $ - 71 10008090018032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:70.6-70.7: - 67 10008090014032010590417 $ - 68 10008090015032010590417 $ - 69 10008090016032010590417 $ - 70 > 10008090017032010590417 $ ----- ^ - 71 10008090018032010590417 $ - 72 10008090019032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:71.6-71.7: - 68 10008090015032010590417 $ - 69 10008090016032010590417 $ - 70 10008090017032010590417 $ - 71 > 10008090018032010590417 $ ----- ^ - 72 10008090019032010590417 $ - 73 10008090020032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:72.6-72.7: - 69 10008090016032010590417 $ - 70 10008090017032010590417 $ - 71 10008090018032010590417 $ - 72 > 10008090019032010590417 $ ----- ^ - 73 10008090020032010590417 $ - 74 10008090021032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:73.6-73.7: - 70 10008090017032010590417 $ - 71 10008090018032010590417 $ - 72 10008090019032010590417 $ - 73 > 10008090020032010590417 $ ----- ^ - 74 10008090021032010590417 $ - 75 10008090022032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:74.6-74.7: - 71 10008090018032010590417 $ - 72 10008090019032010590417 $ - 73 10008090020032010590417 $ - 74 > 10008090021032010590417 $ ----- ^ - 75 10008090022032010590417 $ - 76 10009090007023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:75.6-75.7: - 72 10008090019032010590417 $ - 73 10008090020032010590417 $ - 74 10008090021032010590417 $ - 75 > 10008090022032010590417 $ ----- ^ - 76 10009090007023016950417 $ - 77 10009090008032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:76.6-76.7: - 73 10008090020032010590417 $ - 74 10008090021032010590417 $ - 75 10008090022032010590417 $ - 76 > 10009090007023016950417 $ ----- ^ - 77 10009090008032010590417 $ - 78 10009090009023016950417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:77.6-77.7: - 74 10008090021032010590417 $ - 75 10008090022032010590417 $ - 76 10009090007023016950417 $ - 77 > 10009090008032010590417 $ ----- ^ - 78 10009090009023016950417 $ - 79 10009090010032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:78.6-78.7: - 75 10008090022032010590417 $ - 76 10009090007023016950417 $ - 77 10009090008032010590417 $ - 78 > 10009090009023016950417 $ ----- ^ - 79 10009090010032010590417 $ - 80 10009090011032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:79.6-79.7: - 76 10009090007023016950417 $ - 77 10009090008032010590417 $ - 78 10009090009023016950417 $ - 79 > 10009090010032010590417 $ ----- ^ - 80 10009090011032010590417 $ - 81 10009090012032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:80.6-80.7: - 77 10009090008032010590417 $ - 78 10009090009023016950417 $ - 79 10009090010032010590417 $ - 80 > 10009090011032010590417 $ ----- ^ - 81 10009090012032010590417 $ - 82 10009090013032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:81.6-81.7: - 78 10009090009023016950417 $ - 79 10009090010032010590417 $ - 80 10009090011032010590417 $ - 81 > 10009090012032010590417 $ ----- ^ - 82 10009090013032010590417 $ - 83 10009090014032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:82.6-82.7: - 79 10009090010032010590417 $ - 80 10009090011032010590417 $ - 81 10009090012032010590417 $ - 82 > 10009090013032010590417 $ ----- ^ - 83 10009090014032010590417 $ - 84 10009090015032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:83.6-83.7: - 80 10009090011032010590417 $ - 81 10009090012032010590417 $ - 82 10009090013032010590417 $ - 83 > 10009090014032010590417 $ ----- ^ - 84 10009090015032010590417 $ - 85 10009090016032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:84.6-84.7: - 81 10009090012032010590417 $ - 82 10009090013032010590417 $ - 83 10009090014032010590417 $ - 84 > 10009090015032010590417 $ ----- ^ - 85 10009090016032010590417 $ - 86 10009090017032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:85.6-85.7: - 82 10009090013032010590417 $ - 83 10009090014032010590417 $ - 84 10009090015032010590417 $ - 85 > 10009090016032010590417 $ ----- ^ - 86 10009090017032010590417 $ - 87 10009090018032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:86.6-86.7: - 83 10009090014032010590417 $ - 84 10009090015032010590417 $ - 85 10009090016032010590417 $ - 86 > 10009090017032010590417 $ ----- ^ - 87 10009090018032010590417 $ - 88 10009090019032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:87.6-87.7: - 84 10009090015032010590417 $ - 85 10009090016032010590417 $ - 86 10009090017032010590417 $ - 87 > 10009090018032010590417 $ ----- ^ - 88 10009090019032010590417 $ - 89 10009090020032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:88.6-88.7: - 85 10009090016032010590417 $ - 86 10009090017032010590417 $ - 87 10009090018032010590417 $ - 88 > 10009090019032010590417 $ ----- ^ - 89 10009090020032010590417 $ - 90 10009090021032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:89.6-89.7: - 86 10009090017032010590417 $ - 87 10009090018032010590417 $ - 88 10009090019032010590417 $ - 89 > 10009090020032010590417 $ ----- ^ - 90 10009090021032010590417 $ - 91 10009090022032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:90.6-90.7: - 87 10009090018032010590417 $ - 88 10009090019032010590417 $ - 89 10009090020032010590417 $ - 90 > 10009090021032010590417 $ ----- ^ - 91 10009090022032010590417 $ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:91.6-91.7: - 88 10009090019032010590417 $ - 89 10009090020032010590417 $ - 90 10009090021032010590417 $ - 91 > 10009090022032010590417 $ ----- ^ ->> Error: Unexpected indicator: `9' - -run_reportwriter.at-3441-inp_data:1.7-1.23: - 1 > 10001090001012010590416 $ ----- ^^^^^^^^^^^^^^^^ - 2 10001090002013016950416 $ - 3 10002090002023016950416 $ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3439:0 -run_reportwriter.at-3439-prog.cob:8.44-8.52: - 5 CONFIGURATION SECTION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD ----- ^^^^^^^^ - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3439-prog.cob:10.44-10.52: - 7 FILE-CONTROL. - 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 > SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL ----- ^^^^^^^^ - 11 LINE ADVANCING REPORT2. - 12 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3439-prog.cob:11.26-11.30: - 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT2. ----- ^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3439-prog.cob:11.30: - 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT2. ----- ^ - 12 - 13 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-3439-prog.cob:11.31-11.40: - 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT2. ----- ^^^^^^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3439-prog.cob:42.15: - 39 REPORT SECTION. - 40 RD ORDER-REPORT - 41 CONTROLS ARE FINAL - 42 > PAGE 55 LINES ----- ^ - 43 FIRST DETAIL 6. - 44 01 TYPE REPORT HEADING ->> Hint: Missing . - -run_reportwriter.at-3439-prog.cob:42.16-42.18: - 39 REPORT SECTION. - 40 RD ORDER-REPORT - 41 CONTROLS ARE FINAL - 42 > PAGE 55 LINES ----- ^^ - 43 FIRST DETAIL 6. - 44 01 TYPE REPORT HEADING ->> Warning: Invalid syntax - -run_reportwriter.at-3439-prog.cob:42.24: - 39 REPORT SECTION. - 40 RD ORDER-REPORT - 41 CONTROLS ARE FINAL - 42 > PAGE 55 LINES ----- ^ - 43 FIRST DETAIL 6. - 44 01 TYPE REPORT HEADING ->> Hint: Missing ARE - -run_reportwriter.at-3439-prog.cob:43.11-43.16: - 40 RD ORDER-REPORT - 41 CONTROLS ARE FINAL - 42 PAGE 55 LINES - 43 > FIRST DETAIL 6. ----- ^^^^^ - 44 01 TYPE REPORT HEADING - 45 LINE 1. ->> Error: Invalid syntax - -run_reportwriter.at-3439-prog.cob:48.15: - 45 LINE 1. - 46 10 COLUMN 44 PIC X(21) - 47 VALUE 'CUSTOMER ORDER REPORT'. - 48 > 01 TYPE PAGE HEADING. ----- ^ - 49 05 LINE 2. - 50 10 COLUMN 10 PIC X(8) VALUE " Time:". ->> Hint: Missing DETAIL - -run_reportwriter.at-3439-prog.cob:48.16-48.20: - 45 LINE 1. - 46 10 COLUMN 44 PIC X(21) - 47 VALUE 'CUSTOMER ORDER REPORT'. - 48 > 01 TYPE PAGE HEADING. ----- ^^^^ - 49 05 LINE 2. - 50 10 COLUMN 10 PIC X(8) VALUE " Time:". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3558:0 -run_reportwriter.at-3558-reference:1.43-1.51: - 1 > CUSTOMER ORDER REPORT ----- ^^^^^^^^ - 2 Time: 14:30:12 Page 1 - 3 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3706:0 -run_reportwriter.at-3706-inp_data:1.6-1.7: - 1 > Norman, Ronald J 25CS Malcolm, Mike Waterloo ----- ^ - 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo - 3 Norman, James J 25CS Manning, Eric Waterloo ->> Error: Unexpected indicator: `,' - -run_reportwriter.at-3706-inp_data:2.6-2.7: - 1 Norman, Ronald J 25CS Malcolm, Mike Waterloo - 2 > Dorken, Keith A 35CS Malcolm, Mike Waterloo ----- ^ - 3 Norman, James J 25CS Manning, Eric Waterloo - 4 Dorken, Kevin 35CS Manning, Eric Waterloo ->> Error: Unexpected indicator: `,' - -run_reportwriter.at-3706-inp_data:3.6-3.7: - 1 Norman, Ronald J 25CS Malcolm, Mike Waterloo - 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo - 3 > Norman, James J 25CS Manning, Eric Waterloo ----- ^ - 4 Dorken, Kevin 35CS Manning, Eric Waterloo - 5 Allinson, A R 25EC Manning, Eric Whistler ->> Error: Unexpected indicator: `,' - -run_reportwriter.at-3706-inp_data:4.6-4.7: - 1 Norman, Ronald J 25CS Malcolm, Mike Waterloo - 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo - 3 Norman, James J 25CS Manning, Eric Waterloo - 4 > Dorken, Kevin 35CS Manning, Eric Waterloo ----- ^ - 5 Allinson, A R 25EC Manning, Eric Whistler - 6 Norman, Michelle 27EC Manning, Donna Toronto ->> Error: Unexpected indicator: `,' - -run_reportwriter.at-3706-inp_data:5.6-5.7: - 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo - 3 Norman, James J 25CS Manning, Eric Waterloo - 4 Dorken, Kevin 35CS Manning, Eric Waterloo - 5 > Allinson, A R 25EC Manning, Eric Whistler ----- ^ - 6 Norman, Michelle 27EC Manning, Donna Toronto - 7 Dorken, Melissa 37EC Manning, Donna Toronto ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-3706-inp_data:6.6-6.7: - 3 Norman, James J 25CS Manning, Eric Waterloo - 4 Dorken, Kevin 35CS Manning, Eric Waterloo - 5 Allinson, A R 25EC Manning, Eric Whistler - 6 > Norman, Michelle 27EC Manning, Donna Toronto ----- ^ - 7 Dorken, Melissa 37EC Manning, Donna Toronto - 8 Norseman, Ben01 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `,' - -run_reportwriter.at-3706-inp_data:7.6-7.7: - 4 Dorken, Kevin 35CS Manning, Eric Waterloo - 5 Allinson, A R 25EC Manning, Eric Whistler - 6 Norman, Michelle 27EC Manning, Donna Toronto - 7 > Dorken, Melissa 37EC Manning, Donna Toronto ----- ^ - 8 Norseman, Ben01 27EC DiMetri, Gary Toronto - 9 Norseman, Ben02 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `,' - -run_reportwriter.at-3706-inp_data:8.6-8.7: - 5 Allinson, A R 25EC Manning, Eric Whistler - 6 Norman, Michelle 27EC Manning, Donna Toronto - 7 Dorken, Melissa 37EC Manning, Donna Toronto - 8 > Norseman, Ben01 27EC DiMetri, Gary Toronto ----- ^ - 9 Norseman, Ben02 27EC DiMetri, Gary Toronto - 10 Norseman, Ben03 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:9.6-9.7: - 6 Norman, Michelle 27EC Manning, Donna Toronto - 7 Dorken, Melissa 37EC Manning, Donna Toronto - 8 Norseman, Ben01 27EC DiMetri, Gary Toronto - 9 > Norseman, Ben02 27EC DiMetri, Gary Toronto ----- ^ - 10 Norseman, Ben03 27EC DiMetri, Gary Toronto - 11 Norseman, Ben04 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:10.6-10.7: - 7 Dorken, Melissa 37EC Manning, Donna Toronto - 8 Norseman, Ben01 27EC DiMetri, Gary Toronto - 9 Norseman, Ben02 27EC DiMetri, Gary Toronto - 10 > Norseman, Ben03 27EC DiMetri, Gary Toronto ----- ^ - 11 Norseman, Ben04 27EC DiMetri, Gary Toronto - 12 Norseman, Ben05 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:11.6-11.7: - 8 Norseman, Ben01 27EC DiMetri, Gary Toronto - 9 Norseman, Ben02 27EC DiMetri, Gary Toronto - 10 Norseman, Ben03 27EC DiMetri, Gary Toronto - 11 > Norseman, Ben04 27EC DiMetri, Gary Toronto ----- ^ - 12 Norseman, Ben05 27EC DiMetri, Gary Toronto - 13 Norseman, Ben06 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:12.6-12.7: - 9 Norseman, Ben02 27EC DiMetri, Gary Toronto - 10 Norseman, Ben03 27EC DiMetri, Gary Toronto - 11 Norseman, Ben04 27EC DiMetri, Gary Toronto - 12 > Norseman, Ben05 27EC DiMetri, Gary Toronto ----- ^ - 13 Norseman, Ben06 27EC DiMetri, Gary Toronto - 14 Norseman, Ben07 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:13.6-13.7: - 10 Norseman, Ben03 27EC DiMetri, Gary Toronto - 11 Norseman, Ben04 27EC DiMetri, Gary Toronto - 12 Norseman, Ben05 27EC DiMetri, Gary Toronto - 13 > Norseman, Ben06 27EC DiMetri, Gary Toronto ----- ^ - 14 Norseman, Ben07 27EC DiMetri, Gary Toronto - 15 Norseman, Ben08 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:14.6-14.7: - 11 Norseman, Ben04 27EC DiMetri, Gary Toronto - 12 Norseman, Ben05 27EC DiMetri, Gary Toronto - 13 Norseman, Ben06 27EC DiMetri, Gary Toronto - 14 > Norseman, Ben07 27EC DiMetri, Gary Toronto ----- ^ - 15 Norseman, Ben08 27EC DiMetri, Gary Toronto - 16 Norseman, Ben09 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:15.6-15.7: - 12 Norseman, Ben05 27EC DiMetri, Gary Toronto - 13 Norseman, Ben06 27EC DiMetri, Gary Toronto - 14 Norseman, Ben07 27EC DiMetri, Gary Toronto - 15 > Norseman, Ben08 27EC DiMetri, Gary Toronto ----- ^ - 16 Norseman, Ben09 27EC DiMetri, Gary Toronto - 17 Norseman, Ben10 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:16.6-16.7: - 13 Norseman, Ben06 27EC DiMetri, Gary Toronto - 14 Norseman, Ben07 27EC DiMetri, Gary Toronto - 15 Norseman, Ben08 27EC DiMetri, Gary Toronto - 16 > Norseman, Ben09 27EC DiMetri, Gary Toronto ----- ^ - 17 Norseman, Ben10 27EC DiMetri, Gary Toronto ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:17.6-17.7: - 14 Norseman, Ben07 27EC DiMetri, Gary Toronto - 15 Norseman, Ben08 27EC DiMetri, Gary Toronto - 16 Norseman, Ben09 27EC DiMetri, Gary Toronto - 17 > Norseman, Ben10 27EC DiMetri, Gary Toronto ----- ^ ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3706-inp_data:1.8-1.14: - 1 > Norman, Ronald J 25CS Malcolm, Mike Waterloo ----- ^^^^^^ - 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo - 3 Norman, James J 25CS Manning, Eric Waterloo ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3704:0 -run_reportwriter.at-3704-prog.cob:8.41-8.49: - 5 CONFIGURATION SECTION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC ----- ^^^^^^^^ - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3704-prog.cob:10.39-10.47: - 7 FILE-CONTROL. - 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 > SELECT PRINT-FILE ASSIGN TO EXTERNAL ----- ^^^^^^^^ - 11 LINE ADVANCING REPORT3. - 12 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3704-prog.cob:11.26-11.30: - 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT3. ----- ^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:11.30: - 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT3. ----- ^ - 12 - 13 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-3704-prog.cob:11.31-11.40: - 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT3. ----- ^^^^^^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:39.15: - 36 REPORT SECTION. - 37 RD CONTROL-BREAK - 38 CONTROLS ARE MAJOR ADVISOR - 39 > PAGE LIMIT 25 LINES ----- ^ - 40 HEADING 1 - 41 FIRST DETAIL 5 ->> Hint: Missing . - -run_reportwriter.at-3704-prog.cob:39.16-39.21: - 36 REPORT SECTION. - 37 RD CONTROL-BREAK - 38 CONTROLS ARE MAJOR ADVISOR - 39 > PAGE LIMIT 25 LINES ----- ^^^^^ - 40 HEADING 1 - 41 FIRST DETAIL 5 ->> Warning: Invalid syntax - -run_reportwriter.at-3704-prog.cob:39.30: - 36 REPORT SECTION. - 37 RD CONTROL-BREAK - 38 CONTROLS ARE MAJOR ADVISOR - 39 > PAGE LIMIT 25 LINES ----- ^ - 40 HEADING 1 - 41 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-3704-prog.cob:40.11-40.18: - 37 RD CONTROL-BREAK - 38 CONTROLS ARE MAJOR ADVISOR - 39 PAGE LIMIT 25 LINES - 40 > HEADING 1 ----- ^^^^^^^ - 41 FIRST DETAIL 5 - 42 FOOTING 23. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:41.11-41.16: - 38 CONTROLS ARE MAJOR ADVISOR - 39 PAGE LIMIT 25 LINES - 40 HEADING 1 - 41 > FIRST DETAIL 5 ----- ^^^^^ - 42 FOOTING 23. - 43 01 TYPE IS PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:42.11-42.18: - 39 PAGE LIMIT 25 LINES - 40 HEADING 1 - 41 FIRST DETAIL 5 - 42 > FOOTING 23. ----- ^^^^^^^ - 43 01 TYPE IS PAGE HEADING. - 44 05 LINE 1. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:43.18: - 40 HEADING 1 - 41 FIRST DETAIL 5 - 42 FOOTING 23. - 43 > 01 TYPE IS PAGE HEADING. ----- ^ - 44 05 LINE 1. - 45 10 COLUMN 61 PIC X(4) VALUE 'PAGE'. ->> Hint: Missing DETAIL - -run_reportwriter.at-3704-prog.cob:43.19-43.23: - 40 HEADING 1 - 41 FIRST DETAIL 5 - 42 FOOTING 23. - 43 > 01 TYPE IS PAGE HEADING. ----- ^^^^ - 44 05 LINE 1. - 45 10 COLUMN 61 PIC X(4) VALUE 'PAGE'. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:52.27: - 49 VALUE 'STUDENT ADVISEMENT LIST'. - 50 - 51 01 TYPE IS CONTROL HEADING MAJOR. - 52 > 05 LINE 5 ON NEXT PAGE . ----- ^ - 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. - 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. ->> Hint: Missing NEXT_PAGE - -run_reportwriter.at-3704-prog.cob:52.28-52.32: - 49 VALUE 'STUDENT ADVISEMENT LIST'. - 50 - 51 01 TYPE IS CONTROL HEADING MAJOR. - 52 > 05 LINE 5 ON NEXT PAGE . ----- ^^^^ - 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. - 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:52.32: - 49 VALUE 'STUDENT ADVISEMENT LIST'. - 50 - 51 01 TYPE IS CONTROL HEADING MAJOR. - 52 > 05 LINE 5 ON NEXT PAGE . ----- ^ - 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. - 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. ->> Hint: Missing GROUP - -run_reportwriter.at-3704-prog.cob:52.33-52.37: - 49 VALUE 'STUDENT ADVISEMENT LIST'. - 50 - 51 01 TYPE IS CONTROL HEADING MAJOR. - 52 > 05 LINE 5 ON NEXT PAGE . ----- ^^^^ - 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. - 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:70.37: - 67 10 COLUMN 26 PIC 99 SOURCE COURSE-PTS. - 68 10 COLUMN 34 PIC X(15) SOURCE CAMPUS. - 69 10 COLUMN 51 PIC X(5) VALUE "Hello" - 70 > PRESENT AFTER PAGE OR ADVISOR. ----- ^ - 71 10 COLUMN 51 PIC X(5) VALUE ' " ' - 72 ABSENT AFTER PAGE OR ADVISOR. ->> Hint: Missing WHEN - -run_reportwriter.at-3704-prog.cob:70.38-70.43: - 67 10 COLUMN 26 PIC 99 SOURCE COURSE-PTS. - 68 10 COLUMN 34 PIC X(15) SOURCE CAMPUS. - 69 10 COLUMN 51 PIC X(5) VALUE "Hello" - 70 > PRESENT AFTER PAGE OR ADVISOR. ----- ^^^^^ - 71 10 COLUMN 51 PIC X(5) VALUE ' " ' - 72 ABSENT AFTER PAGE OR ADVISOR. ->> Error: Invalid syntax - -run_reportwriter.at-3704-prog.cob:72.30-72.36: - 69 10 COLUMN 51 PIC X(5) VALUE "Hello" - 70 PRESENT AFTER PAGE OR ADVISOR. - 71 10 COLUMN 51 PIC X(5) VALUE ' " ' - 72 > ABSENT AFTER PAGE OR ADVISOR. ----- ^^^^^^ - 73 10 COLUMN 60 PIC X(20) SOURCE ADVISOR - 74 GROUP INDICATE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3787:0 -run_reportwriter.at-3787-reference:8.7-8.11: - 5 MAJOR CS - 6 - 7 STUDENT NAME PTS CAMPUS ADVISOR - 8 > -------------------------------------------------------------------- ----- ^^^^ - 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike - 10 Dorken, Keith A 35 Waterloo " ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-3787-reference:9.6-9.7: - 6 - 7 STUDENT NAME PTS CAMPUS ADVISOR - 8 -------------------------------------------------------------------- - 9 > Norman, Ronald J 25 Waterloo Hello Malcolm, Mike ----- ^ - 10 Dorken, Keith A 35 Waterloo " - 11 ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3787-reference:10.6-10.7: - 7 STUDENT NAME PTS CAMPUS ADVISOR - 8 -------------------------------------------------------------------- - 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike - 10 > Dorken, Keith A 35 Waterloo " ----- ^ - 11 - 12 ADVISOR Malcolm, Mike TOTAL 2 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:12.6-12.7: - 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike - 10 Dorken, Keith A 35 Waterloo " - 11 - 12 > ADVISOR Malcolm, Mike TOTAL 2 ----- ^ - 13 - 14 Norman, James J 25 Waterloo Hello Manning, Eric ->> Error: Unexpected indicator: `V' - -run_reportwriter.at-3787-reference:14.6-14.7: - 11 - 12 ADVISOR Malcolm, Mike TOTAL 2 - 13 - 14 > Norman, James J 25 Waterloo Hello Manning, Eric ----- ^ - 15 Dorken, Kevin 35 Waterloo " - 16 ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3787-reference:15.6-15.7: - 12 ADVISOR Malcolm, Mike TOTAL 2 - 13 - 14 Norman, James J 25 Waterloo Hello Manning, Eric - 15 > Dorken, Kevin 35 Waterloo " ----- ^ - 16 - 17 ADVISOR Manning, Eric TOTAL 2 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:17.6-17.7: - 14 Norman, James J 25 Waterloo Hello Manning, Eric - 15 Dorken, Kevin 35 Waterloo " - 16 - 17 > ADVISOR Manning, Eric TOTAL 2 ----- ^ - 18 - 19 ->> Error: Unexpected indicator: `V' - -run_reportwriter.at-3787-reference:20.6-20.7: - 17 ADVISOR Manning, Eric TOTAL 2 - 18 - 19 - 20 > MAJOR TOTAL 4 ----- ^ - 21 - 22 ->> Error: Unexpected indicator: `J' - -run_reportwriter.at-3787-reference:33.7-33.11: - 30 MAJOR EC - 31 - 32 STUDENT NAME PTS CAMPUS ADVISOR - 33 > -------------------------------------------------------------------- ----- ^^^^ - 34 Allinson, A R 25 Whistler Hello Manning, Eric - 35 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-3787-reference:34.6-34.7: - 31 - 32 STUDENT NAME PTS CAMPUS ADVISOR - 33 -------------------------------------------------------------------- - 34 > Allinson, A R 25 Whistler Hello Manning, Eric ----- ^ - 35 - 36 ADVISOR Manning, Eric TOTAL 1 ->> Error: Unexpected indicator: `n' - -run_reportwriter.at-3787-reference:36.6-36.7: - 33 -------------------------------------------------------------------- - 34 Allinson, A R 25 Whistler Hello Manning, Eric - 35 - 36 > ADVISOR Manning, Eric TOTAL 1 ----- ^ - 37 - 38 Norman, Michelle 27 Toronto Hello Manning, Donna ->> Error: Unexpected indicator: `V' - -run_reportwriter.at-3787-reference:38.6-38.7: - 35 - 36 ADVISOR Manning, Eric TOTAL 1 - 37 - 38 > Norman, Michelle 27 Toronto Hello Manning, Donna ----- ^ - 39 Dorken, Melissa 37 Toronto " - 40 ->> Error: Unexpected indicator: `a' - -run_reportwriter.at-3787-reference:39.6-39.7: - 36 ADVISOR Manning, Eric TOTAL 1 - 37 - 38 Norman, Michelle 27 Toronto Hello Manning, Donna - 39 > Dorken, Melissa 37 Toronto " ----- ^ - 40 - 41 ADVISOR Manning, Donna TOTAL 2 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:41.6-41.7: - 38 Norman, Michelle 27 Toronto Hello Manning, Donna - 39 Dorken, Melissa 37 Toronto " - 40 - 41 > ADVISOR Manning, Donna TOTAL 2 ----- ^ - 42 - 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary ->> Error: Unexpected indicator: `V' - -run_reportwriter.at-3787-reference:43.6-43.7: - 40 - 41 ADVISOR Manning, Donna TOTAL 2 - 42 - 43 > Norseman, Ben01 27 Toronto Hello DiMetri, Gary ----- ^ - 44 Norseman, Ben02 27 Toronto " - 45 Norseman, Ben03 27 Toronto " ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:44.6-44.7: - 41 ADVISOR Manning, Donna TOTAL 2 - 42 - 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary - 44 > Norseman, Ben02 27 Toronto " ----- ^ - 45 Norseman, Ben03 27 Toronto " - 46 Norseman, Ben04 27 Toronto " ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:45.6-45.7: - 42 - 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary - 44 Norseman, Ben02 27 Toronto " - 45 > Norseman, Ben03 27 Toronto " ----- ^ - 46 Norseman, Ben04 27 Toronto " - 47 Norseman, Ben05 27 Toronto " ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:46.6-46.7: - 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary - 44 Norseman, Ben02 27 Toronto " - 45 Norseman, Ben03 27 Toronto " - 46 > Norseman, Ben04 27 Toronto " ----- ^ - 47 Norseman, Ben05 27 Toronto " - 48 Norseman, Ben06 27 Toronto " ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:47.6-47.7: - 44 Norseman, Ben02 27 Toronto " - 45 Norseman, Ben03 27 Toronto " - 46 Norseman, Ben04 27 Toronto " - 47 > Norseman, Ben05 27 Toronto " ----- ^ - 48 Norseman, Ben06 27 Toronto " - 49 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:48.6-48.7: - 45 Norseman, Ben03 27 Toronto " - 46 Norseman, Ben04 27 Toronto " - 47 Norseman, Ben05 27 Toronto " - 48 > Norseman, Ben06 27 Toronto " ----- ^ - 49 - 50 PAGE 3 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:54.6-54.7: - 51 - 52 STUDENT ADVISEMENT LIST - 53 - 54 > Norseman, Ben07 27 Toronto Hello DiMetri, Gary ----- ^ - 55 Norseman, Ben08 27 Toronto " - 56 Norseman, Ben09 27 Toronto " ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:55.6-55.7: - 52 STUDENT ADVISEMENT LIST - 53 - 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary - 55 > Norseman, Ben08 27 Toronto " ----- ^ - 56 Norseman, Ben09 27 Toronto " - 57 Norseman, Ben10 27 Toronto " ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:56.6-56.7: - 53 - 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary - 55 Norseman, Ben08 27 Toronto " - 56 > Norseman, Ben09 27 Toronto " ----- ^ - 57 Norseman, Ben10 27 Toronto " - 58 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:57.6-57.7: - 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary - 55 Norseman, Ben08 27 Toronto " - 56 Norseman, Ben09 27 Toronto " - 57 > Norseman, Ben10 27 Toronto " ----- ^ - 58 - 59 ADVISOR DiMetri, Gary TOTAL 10 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-3787-reference:59.6-59.7: - 56 Norseman, Ben09 27 Toronto " - 57 Norseman, Ben10 27 Toronto " - 58 - 59 > ADVISOR DiMetri, Gary TOTAL 10 ----- ^ - 60 - 61 ->> Error: Unexpected indicator: `V' - -run_reportwriter.at-3787-reference:62.6-62.7: - 59 ADVISOR DiMetri, Gary TOTAL 10 - 60 - 61 - 62 > MAJOR TOTAL 13 ----- ^ - 63 - 64 ->> Error: Unexpected indicator: `J' - -run_reportwriter.at-3787-reference:10.52-10.72: - 7 STUDENT NAME PTS CAMPUS ADVISOR - 8 -------------------------------------------------------------------- - 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike - 10 > Dorken, Keith A 35 Waterloo " ----- ^ - 11 - 12 ADVISOR Malcolm, Mike TOTAL 2 ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:15.52-15.72: - 12 ADVISOR Malcolm, Mike TOTAL 2 - 13 - 14 Norman, James J 25 Waterloo Hello Manning, Eric - 15 > Dorken, Kevin 35 Waterloo " ----- ^ - 16 - 17 ADVISOR Manning, Eric TOTAL 2 ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:39.52-39.72: - 36 ADVISOR Manning, Eric TOTAL 1 - 37 - 38 Norman, Michelle 27 Toronto Hello Manning, Donna - 39 > Dorken, Melissa 37 Toronto " ----- ^ - 40 - 41 ADVISOR Manning, Donna TOTAL 2 ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:44.52-44.72: - 41 ADVISOR Manning, Donna TOTAL 2 - 42 - 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary - 44 > Norseman, Ben02 27 Toronto " ----- ^ - 45 Norseman, Ben03 27 Toronto " - 46 Norseman, Ben04 27 Toronto " ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:45.52-45.72: - 42 - 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary - 44 Norseman, Ben02 27 Toronto " - 45 > Norseman, Ben03 27 Toronto " ----- ^ - 46 Norseman, Ben04 27 Toronto " - 47 Norseman, Ben05 27 Toronto " ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:46.52-46.72: - 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary - 44 Norseman, Ben02 27 Toronto " - 45 Norseman, Ben03 27 Toronto " - 46 > Norseman, Ben04 27 Toronto " ----- ^ - 47 Norseman, Ben05 27 Toronto " - 48 Norseman, Ben06 27 Toronto " ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:47.52-47.72: - 44 Norseman, Ben02 27 Toronto " - 45 Norseman, Ben03 27 Toronto " - 46 Norseman, Ben04 27 Toronto " - 47 > Norseman, Ben05 27 Toronto " ----- ^ - 48 Norseman, Ben06 27 Toronto " - 49 ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:48.52-48.72: - 45 Norseman, Ben03 27 Toronto " - 46 Norseman, Ben04 27 Toronto " - 47 Norseman, Ben05 27 Toronto " - 48 > Norseman, Ben06 27 Toronto " ----- ^ - 49 - 50 PAGE 3 ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:55.52-55.72: - 52 STUDENT ADVISEMENT LIST - 53 - 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary - 55 > Norseman, Ben08 27 Toronto " ----- ^ - 56 Norseman, Ben09 27 Toronto " - 57 Norseman, Ben10 27 Toronto " ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:56.52-56.72: - 53 - 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary - 55 Norseman, Ben08 27 Toronto " - 56 > Norseman, Ben09 27 Toronto " ----- ^ - 57 Norseman, Ben10 27 Toronto " - 58 ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:57.52-57.72: - 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary - 55 Norseman, Ben08 27 Toronto " - 56 Norseman, Ben09 27 Toronto " - 57 > Norseman, Ben10 27 Toronto " ----- ^ - 58 - 59 ADVISOR DiMetri, Gary TOTAL 10 ->> Error: Missing continuation of ` ' - -run_reportwriter.at-3787-reference:1.60-1.64: - 1 > PAGE 1 ----- ^^^^ - 2 - 3 STUDENT ADVISEMENT LIST ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3900:0 -run_reportwriter.at-3900-inp_data:2.6-2.7: - 1 01Data Processing 02000500012388 - 2 > 02Cow Milking 02000600054398 ----- ^ - 3 03Grass Cutting 03000600054397 - 4 03Lawn mowing 03000600054397 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-3900-inp_data:3.6-3.7: - 1 01Data Processing 02000500012388 - 2 02Cow Milking 02000600054398 - 3 > 03Grass Cutting 03000600054397 ----- ^ - 4 03Lawn mowing 03000600054397 ->> Error: Unexpected indicator: `s' - -run_reportwriter.at-3900-inp_data:1.7-1.17: - 1 > 01Data Processing 02000500012388 ----- ^^^^^^^^^^ - 2 02Cow Milking 02000600054398 - 3 03Grass Cutting 03000600054397 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3896:0 -run_reportwriter.at-3896-prog.cob:8.37-8.45: - 5 CONFIGURATION SECTION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE ----- ^^^^^^^^ - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3896-prog.cob:10.40-10.48: - 7 FILE-CONTROL. - 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 > SELECT REPORT-FILE ASSIGN TO EXTERNAL ----- ^^^^^^^^ - 11 LINE ADVANCING REPORT4. - 12 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-3896-prog.cob:11.30-11.34: - 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT4. ----- ^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3896-prog.cob:11.34: - 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT4. ----- ^ - 12 - 13 DATA DIVISION. ->> Hint: Missing SEQUENTIAL - -run_reportwriter.at-3896-prog.cob:11.35-11.44: - 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE - 9 ORGANIZATION IS LINE SEQUENTIAL. - 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL - 11 > LINE ADVANCING REPORT4. ----- ^^^^^^^^^ - 12 - 13 DATA DIVISION. ->> Error: Invalid syntax - -run_reportwriter.at-3896-prog.cob:33.15: - 30 REPORT SECTION. - 31 RD INV-REPORT - 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN - 33 > PAGE LIMIT 25 LINES ----- ^ - 34 HEADING 2 - 35 FIRST DETAIL 5 ->> Hint: Missing . - -run_reportwriter.at-3896-prog.cob:33.16-33.21: - 30 REPORT SECTION. - 31 RD INV-REPORT - 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN - 33 > PAGE LIMIT 25 LINES ----- ^^^^^ - 34 HEADING 2 - 35 FIRST DETAIL 5 ->> Warning: Invalid syntax - -run_reportwriter.at-3896-prog.cob:33.30: - 30 REPORT SECTION. - 31 RD INV-REPORT - 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN - 33 > PAGE LIMIT 25 LINES ----- ^ - 34 HEADING 2 - 35 FIRST DETAIL 5 ->> Hint: Missing ARE - -run_reportwriter.at-3896-prog.cob:34.11-34.18: - 31 RD INV-REPORT - 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN - 33 PAGE LIMIT 25 LINES - 34 > HEADING 2 ----- ^^^^^^^ - 35 FIRST DETAIL 5 - 36 LAST DETAIL 18 ->> Error: Invalid syntax - -run_reportwriter.at-3896-prog.cob:35.11-35.16: - 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN - 33 PAGE LIMIT 25 LINES - 34 HEADING 2 - 35 > FIRST DETAIL 5 ----- ^^^^^ - 36 LAST DETAIL 18 - 37 FOOTING 20. ->> Error: Invalid syntax - -run_reportwriter.at-3896-prog.cob:36.11-36.15: - 33 PAGE LIMIT 25 LINES - 34 HEADING 2 - 35 FIRST DETAIL 5 - 36 > LAST DETAIL 18 ----- ^^^^ - 37 FOOTING 20. - 38 01 TYPE IS REPORT HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-3896-prog.cob:37.11-37.18: - 34 HEADING 2 - 35 FIRST DETAIL 5 - 36 LAST DETAIL 18 - 37 > FOOTING 20. ----- ^^^^^^^ - 38 01 TYPE IS REPORT HEADING. - 39 05 LINE 2 COLUMN 50 PIC X(16) VALUE 'INVENTORY REPORT'. ->> Error: Invalid syntax - -run_reportwriter.at-3896-prog.cob:68.18: - 65 LINE PLUS 2. - 66 05 FINAL-TOTAL COLUMN 95 PIC ZZZ,ZZZ,ZZZ.99 SUM DEPT-TOTAL. - 67 - 68 > 01 TYPE IS PAGE FOOTING LINE 24. ----- ^ - 69 05 COLUMN 30 PIC X(30) VALUE "-+* End of Page *+-". - 70 05 COLUMN 55 PIC X(12) VALUE "************". ->> Hint: Missing DETAIL - -run_reportwriter.at-3896-prog.cob:68.19-68.23: - 65 LINE PLUS 2. - 66 05 FINAL-TOTAL COLUMN 95 PIC ZZZ,ZZZ,ZZZ.99 SUM DEPT-TOTAL. - 67 - 68 > 01 TYPE IS PAGE FOOTING LINE 24. ----- ^^^^ - 69 05 COLUMN 30 PIC X(30) VALUE "-+* End of Page *+-". - 70 05 COLUMN 55 PIC X(12) VALUE "************". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3980:0 -run_reportwriter.at-3980-reference:5.6-5.7: - 2 INVENTORY REPORT - 3 - 4 - 5 > DEPARTMENT #: 01 DEPARTMENT NAME: Data Processing ----- ^ - 6 - 7 ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-3980-reference:15.6-15.7: - 12 - 13 1,238.80 - 14 - 15 > DEPARTMENT #: 02 DEPARTMENT NAME: Cow Milking ----- ^ - 16 - 17 ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-3980-reference:35.6-35.7: - 32 - 33 5,439.80 - 34 - 35 > DEPARTMENT #: 03 DEPARTMENT NAME: Grass Cutting ----- ^ - 36 - 37 ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-3980-reference:2.49-2.58: - 1 - 2 > INVENTORY REPORT ----- ^^^^^^^^^ - 3 - 4 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4054:0 -run_reportwriter.at-4054-prog.cob:10.21-10.29: - 7 FILE-CONTROL. - 8 SELECT REPORT-FILE - 9 LINE SEQUENTIAL - 10 > ASSIGN TO EXTERNAL DUPDTL. ----- ^^^^^^^^ - 11 DATA DIVISION. - 12 FILE SECTION. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4054-prog.cob:21.15: - 18 REPORT SECTION. - 19 RD MYREPORT - 20 CONTROLS ARE SAVE-ITEM - 21 > PAGE LIMIT IS 15 LINES ----- ^ - 22 FIRST DETAIL 1 - 23 LAST DETAIL 12. ->> Hint: Missing . - -run_reportwriter.at-4054-prog.cob:21.16-21.21: - 18 REPORT SECTION. - 19 RD MYREPORT - 20 CONTROLS ARE SAVE-ITEM - 21 > PAGE LIMIT IS 15 LINES ----- ^^^^^ - 22 FIRST DETAIL 1 - 23 LAST DETAIL 12. ->> Warning: Invalid syntax - -run_reportwriter.at-4054-prog.cob:21.33: - 18 REPORT SECTION. - 19 RD MYREPORT - 20 CONTROLS ARE SAVE-ITEM - 21 > PAGE LIMIT IS 15 LINES ----- ^ - 22 FIRST DETAIL 1 - 23 LAST DETAIL 12. ->> Hint: Missing ARE - -run_reportwriter.at-4054-prog.cob:22.11-22.16: - 19 RD MYREPORT - 20 CONTROLS ARE SAVE-ITEM - 21 PAGE LIMIT IS 15 LINES - 22 > FIRST DETAIL 1 ----- ^^^^^ - 23 LAST DETAIL 12. - 24 ->> Error: Invalid syntax - -run_reportwriter.at-4054-prog.cob:23.11-23.15: - 20 CONTROLS ARE SAVE-ITEM - 21 PAGE LIMIT IS 15 LINES - 22 FIRST DETAIL 1 - 23 > LAST DETAIL 12. ----- ^^^^ - 24 - 25 01 TYPE IS CONTROL HEADING SAVE-ITEM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4108:0 -run_reportwriter.at-4108-reference:1.6-1.7: - 1 > HEADING SAVE-ITEM ----- ^ - 2 A 1st Detail - 3 FOOTING SAVE-ITEM ->> Error: Unexpected indicator: `G' - -run_reportwriter.at-4108-reference:3.6-3.7: - 1 HEADING SAVE-ITEM - 2 A 1st Detail - 3 > FOOTING SAVE-ITEM ----- ^ - 4 - 5 ->> Error: Unexpected indicator: `F' - -run_reportwriter.at-4108-reference:16.6-16.7: - 13 - 14 - 15 - 16 > HEADING SAVE-ITEM ----- ^ - 17 B 1st Detail - 18 B 2nd Detail ->> Error: Unexpected indicator: `G' - -run_reportwriter.at-4108-reference:21.6-21.7: - 18 B 2nd Detail - 19 B 3rd Detail 1 - 20 B 3rd Detail 2 - 21 > FOOTING SAVE-ITEM ----- ^ - 22 - 23 ->> Error: Unexpected indicator: `F' - -run_reportwriter.at-4108-reference:31.6-31.7: - 28 - 29 - 30 - 31 > HEADING SAVE-ITEM ----- ^ - 32 C 3rd Detail 1 - 33 C 3rd Detail 2 ->> Error: Unexpected indicator: `G' - -run_reportwriter.at-4108-reference:34.6-34.7: - 31 HEADING SAVE-ITEM - 32 C 3rd Detail 1 - 33 C 3rd Detail 2 - 34 > FOOTING SAVE-ITEM ----- ^ - 35 - 36 ->> Error: Unexpected indicator: `F' - -run_reportwriter.at-4108-reference:1.8-1.17: - 1 > HEADING SAVE-ITEM ----- ^^^^^^^^^ - 2 A 1st Detail - 3 FOOTING SAVE-ITEM ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4193:0 -run_reportwriter.at-4193-prog.cob:8.34-8.42: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT rp-file ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4193-prog.cob:16.13: - 13 FD rp-file REPORT rp. - 14 - 15 REPORT SECTION. - 16 > RD RP ----- ^ - 17 PAGE LIMIT 10 LINES - 18 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-4193-prog.cob:17.11-17.15: - 14 - 15 REPORT SECTION. - 16 RD RP - 17 > PAGE LIMIT 10 LINES ----- ^^^^ - 18 HEADING 1 - 19 FIRST DETAIL 4. ->> Error: Invalid syntax - -run_reportwriter.at-4193-prog.cob:17.30: - 14 - 15 REPORT SECTION. - 16 RD RP - 17 > PAGE LIMIT 10 LINES ----- ^ - 18 HEADING 1 - 19 FIRST DETAIL 4. ->> Hint: Missing ARE - -run_reportwriter.at-4193-prog.cob:18.11-18.18: - 15 REPORT SECTION. - 16 RD RP - 17 PAGE LIMIT 10 LINES - 18 > HEADING 1 ----- ^^^^^^^ - 19 FIRST DETAIL 4. - 20 01 HEADING-LINE. ->> Error: Invalid syntax - -run_reportwriter.at-4193-prog.cob:19.11-19.16: - 16 RD RP - 17 PAGE LIMIT 10 LINES - 18 HEADING 1 - 19 > FIRST DETAIL 4. ----- ^^^^^ - 20 01 HEADING-LINE. - 21 02 TYPE PAGE HEADING LINE PLUS 1. ->> Error: Invalid syntax - -run_reportwriter.at-4193-prog.cob:21.17: - 18 HEADING 1 - 19 FIRST DETAIL 4. - 20 01 HEADING-LINE. - 21 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 22 05 COLUMN 1 PIC X(50) VALUE - 23 " 1 2 3 4 5". ->> Hint: Missing DETAIL - -run_reportwriter.at-4193-prog.cob:21.18-21.22: - 18 HEADING 1 - 19 FIRST DETAIL 4. - 20 01 HEADING-LINE. - 21 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 22 05 COLUMN 1 PIC X(50) VALUE - 23 " 1 2 3 4 5". ->> Error: Invalid syntax - -run_reportwriter.at-4193-prog.cob:24.17: - 21 02 TYPE PAGE HEADING LINE PLUS 1. - 22 05 COLUMN 1 PIC X(50) VALUE - 23 " 1 2 3 4 5". - 24 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 25 05 COLUMN 1 PIC X(50) VALUE - 26 "12345678901234567890123456789012345678901234567890". ->> Hint: Missing DETAIL - -run_reportwriter.at-4193-prog.cob:24.18-24.22: - 21 02 TYPE PAGE HEADING LINE PLUS 1. - 22 05 COLUMN 1 PIC X(50) VALUE - 23 " 1 2 3 4 5". - 24 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 25 05 COLUMN 1 PIC X(50) VALUE - 26 "12345678901234567890123456789012345678901234567890". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4212:0 -run_reportwriter.at-4212-reference:2.6-2.7: - 1 1 2 3 4 5 - 2 > 12345678901234567890123456789012345678901234567890 ----- ^ - 3 - 4 100 100 100 <1> ->> Error: Unexpected indicator: `7' - -run_reportwriter.at-4212-reference:5.6-5.7: - 2 12345678901234567890123456789012345678901234567890 - 3 - 4 100 100 100 <1> - 5 > Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** ----- ^ - 6 200 200 200 200 <3> - 7 400 401 402 403 <4> ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-4212-reference:1.9-1.10: - 1 > 1 2 3 4 5 ----- ^ - 2 12345678901234567890123456789012345678901234567890 - 3 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4405:0 -run_reportwriter.at-4405-progl.cob:8.34-8.42: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4405-progl.cob:23.19-23.27: - 20 - 21 REPORT SECTION. - 22 RD RP - 23 > CODE IS "Hi-Q: " *> literal ----- ^^^^^^^^ - 24 PAGE LIMIT 10 LINES - 25 50 COLUMNS *> literal ->> Error: Invalid syntax - -run_reportwriter.at-4405-progl.cob:24.15: - 21 REPORT SECTION. - 22 RD RP - 23 CODE IS "Hi-Q: " *> literal - 24 > PAGE LIMIT 10 LINES ----- ^ - 25 50 COLUMNS *> literal - 26 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-4405-progl.cob:24.16-24.21: - 21 REPORT SECTION. - 22 RD RP - 23 CODE IS "Hi-Q: " *> literal - 24 > PAGE LIMIT 10 LINES ----- ^^^^^ - 25 50 COLUMNS *> literal - 26 HEADING 1 ->> Warning: Invalid syntax - -run_reportwriter.at-4405-progl.cob:24.30: - 21 REPORT SECTION. - 22 RD RP - 23 CODE IS "Hi-Q: " *> literal - 24 > PAGE LIMIT 10 LINES ----- ^ - 25 50 COLUMNS *> literal - 26 HEADING 1 ->> Hint: Missing ARE - -run_reportwriter.at-4405-progl.cob:25.22-25.24: - 22 RD RP - 23 CODE IS "Hi-Q: " *> literal - 24 PAGE LIMIT 10 LINES - 25 > 50 COLUMNS *> literal ----- ^^ - 26 HEADING 1 - 27 FIRST DETAIL 4. ->> Error: Invalid syntax - -run_reportwriter.at-4405-progl.cob:26.11-26.18: - 23 CODE IS "Hi-Q: " *> literal - 24 PAGE LIMIT 10 LINES - 25 50 COLUMNS *> literal - 26 > HEADING 1 ----- ^^^^^^^ - 27 FIRST DETAIL 4. - 28 01 HEADING-LINE. ->> Error: Invalid syntax - -run_reportwriter.at-4405-progl.cob:27.11-27.16: - 24 PAGE LIMIT 10 LINES - 25 50 COLUMNS *> literal - 26 HEADING 1 - 27 > FIRST DETAIL 4. ----- ^^^^^ - 28 01 HEADING-LINE. - 29 02 TYPE PAGE HEADING LINE PLUS 1. ->> Error: Invalid syntax - -run_reportwriter.at-4405-progl.cob:29.17: - 26 HEADING 1 - 27 FIRST DETAIL 4. - 28 01 HEADING-LINE. - 29 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 30 05 COLUMN 1 PIC X(50) VALUE - 31 " 1 2 3 4 5". ->> Hint: Missing DETAIL - -run_reportwriter.at-4405-progl.cob:29.18-29.22: - 26 HEADING 1 - 27 FIRST DETAIL 4. - 28 01 HEADING-LINE. - 29 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 30 05 COLUMN 1 PIC X(50) VALUE - 31 " 1 2 3 4 5". ->> Error: Invalid syntax - -run_reportwriter.at-4405-progl.cob:32.17: - 29 02 TYPE PAGE HEADING LINE PLUS 1. - 30 05 COLUMN 1 PIC X(50) VALUE - 31 " 1 2 3 4 5". - 32 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 33 * 05 COLUMN 1 PIC X(50) VALUE - 34 * "12345678901234567890123456789012345678901234567890". ->> Hint: Missing DETAIL - -run_reportwriter.at-4405-progl.cob:32.18-32.22: - 29 02 TYPE PAGE HEADING LINE PLUS 1. - 30 05 COLUMN 1 PIC X(50) VALUE - 31 " 1 2 3 4 5". - 32 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 33 * 05 COLUMN 1 PIC X(50) VALUE - 34 * "12345678901234567890123456789012345678901234567890". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4310:0 -run_reportwriter.at-4310-progv.cob:8.34-8.42: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4310-progv.cob:25.25: - 22 - 23 REPORT SECTION. - 24 RD RP - 25 > CODE IS MYCODE *> variable ----- ^ - 26 PAGE LIMIT 10 LINES - 27 MAXCOL COLUMNS *> variable ->> Hint: Missing . - -run_reportwriter.at-4310-progv.cob:26.11-26.15: - 23 REPORT SECTION. - 24 RD RP - 25 CODE IS MYCODE *> variable - 26 > PAGE LIMIT 10 LINES ----- ^^^^ - 27 MAXCOL COLUMNS *> variable - 28 HEADING 1 ->> Warning: Invalid syntax - -run_reportwriter.at-4310-progv.cob:26.30: - 23 REPORT SECTION. - 24 RD RP - 25 CODE IS MYCODE *> variable - 26 > PAGE LIMIT 10 LINES ----- ^ - 27 MAXCOL COLUMNS *> variable - 28 HEADING 1 ->> Hint: Missing ARE - -run_reportwriter.at-4310-progv.cob:27.22-27.28: - 24 RD RP - 25 CODE IS MYCODE *> variable - 26 PAGE LIMIT 10 LINES - 27 > MAXCOL COLUMNS *> variable ----- ^^^^^^ - 28 HEADING 1 - 29 FIRST DETAIL 4. ->> Error: Invalid syntax - -run_reportwriter.at-4310-progv.cob:28.11-28.18: - 25 CODE IS MYCODE *> variable - 26 PAGE LIMIT 10 LINES - 27 MAXCOL COLUMNS *> variable - 28 > HEADING 1 ----- ^^^^^^^ - 29 FIRST DETAIL 4. - 30 01 HEADING-LINE. ->> Error: Invalid syntax - -run_reportwriter.at-4310-progv.cob:29.11-29.16: - 26 PAGE LIMIT 10 LINES - 27 MAXCOL COLUMNS *> variable - 28 HEADING 1 - 29 > FIRST DETAIL 4. ----- ^^^^^ - 30 01 HEADING-LINE. - 31 02 TYPE PAGE HEADING LINE PLUS 1. ->> Error: Invalid syntax - -run_reportwriter.at-4310-progv.cob:31.17: - 28 HEADING 1 - 29 FIRST DETAIL 4. - 30 01 HEADING-LINE. - 31 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 32 05 COLUMN 1 PIC X(50) VALUE - 33 " 1 2 3 4 5". ->> Hint: Missing DETAIL - -run_reportwriter.at-4310-progv.cob:31.18-31.22: - 28 HEADING 1 - 29 FIRST DETAIL 4. - 30 01 HEADING-LINE. - 31 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 32 05 COLUMN 1 PIC X(50) VALUE - 33 " 1 2 3 4 5". ->> Error: Invalid syntax - -run_reportwriter.at-4310-progv.cob:34.17: - 31 02 TYPE PAGE HEADING LINE PLUS 1. - 32 05 COLUMN 1 PIC X(50) VALUE - 33 " 1 2 3 4 5". - 34 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 35 * 05 COLUMN 1 PIC X(50) VALUE - 36 * "12345678901234567890123456789012345678901234567890". ->> Hint: Missing DETAIL - -run_reportwriter.at-4310-progv.cob:34.18-34.22: - 31 02 TYPE PAGE HEADING LINE PLUS 1. - 32 05 COLUMN 1 PIC X(50) VALUE - 33 " 1 2 3 4 5". - 34 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 35 * 05 COLUMN 1 PIC X(50) VALUE - 36 * "12345678901234567890123456789012345678901234567890". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4429:0 -run_reportwriter.at-4429-reference:4.6-4.7: - 1 Hi-Q: 1 2 3 4 5 - 2 Hi-Q: 1 2 3 4 5 - 3 Hi-Q: - 4 > Hi-Q: 100 100 100 <1> ----- ^ - 5 Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** - 6 Hi-Q: 200 200 200 200 <3> ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-4429-reference:5.6-5.7: - 2 Hi-Q: 1 2 3 4 5 - 3 Hi-Q: - 4 Hi-Q: 100 100 100 <1> - 5 > Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** ----- ^ - 6 Hi-Q: 200 200 200 200 <3> - 7 Hi-Q: 400 401 402 403 <4> ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-4429-reference:6.6-6.7: - 3 Hi-Q: - 4 Hi-Q: 100 100 100 <1> - 5 Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** - 6 > Hi-Q: 200 200 200 200 <3> ----- ^ - 7 Hi-Q: 400 401 402 403 <4> - 8 Hi-Q: ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-4429-reference:7.6-7.7: - 4 Hi-Q: 100 100 100 <1> - 5 Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** - 6 Hi-Q: 200 200 200 200 <3> - 7 > Hi-Q: 400 401 402 403 <4> ----- ^ - 8 Hi-Q: - 9 Hi-Q: ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-4429-reference:1.15-1.16: - 1 > Hi-Q: 1 2 3 4 5 ----- ^ - 2 Hi-Q: 1 2 3 4 5 - 3 Hi-Q: ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4553:0 -run_reportwriter.at-4553-prog.cob:8.34-8.42: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4553-prog.cob:35.19-35.27: - 32 - 33 REPORT SECTION. - 34 RD RP - 35 > CODE IS "Hi-Q: " ----- ^^^^^^^^ - 36 PAGE LIMIT 10 LINES - 37 50 COLUMNS ->> Error: Invalid syntax - -run_reportwriter.at-4553-prog.cob:36.15: - 33 REPORT SECTION. - 34 RD RP - 35 CODE IS "Hi-Q: " - 36 > PAGE LIMIT 10 LINES ----- ^ - 37 50 COLUMNS - 38 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-4553-prog.cob:36.16-36.21: - 33 REPORT SECTION. - 34 RD RP - 35 CODE IS "Hi-Q: " - 36 > PAGE LIMIT 10 LINES ----- ^^^^^ - 37 50 COLUMNS - 38 HEADING 1 ->> Warning: Invalid syntax - -run_reportwriter.at-4553-prog.cob:36.30: - 33 REPORT SECTION. - 34 RD RP - 35 CODE IS "Hi-Q: " - 36 > PAGE LIMIT 10 LINES ----- ^ - 37 50 COLUMNS - 38 HEADING 1 ->> Hint: Missing ARE - -run_reportwriter.at-4553-prog.cob:37.22-37.24: - 34 RD RP - 35 CODE IS "Hi-Q: " - 36 PAGE LIMIT 10 LINES - 37 > 50 COLUMNS ----- ^^ - 38 HEADING 1 - 39 FIRST DETAIL 4. ->> Error: Invalid syntax - -run_reportwriter.at-4553-prog.cob:38.11-38.18: - 35 CODE IS "Hi-Q: " - 36 PAGE LIMIT 10 LINES - 37 50 COLUMNS - 38 > HEADING 1 ----- ^^^^^^^ - 39 FIRST DETAIL 4. - 40 01 HEADING-LINE. ->> Error: Invalid syntax - -run_reportwriter.at-4553-prog.cob:39.11-39.16: - 36 PAGE LIMIT 10 LINES - 37 50 COLUMNS - 38 HEADING 1 - 39 > FIRST DETAIL 4. ----- ^^^^^ - 40 01 HEADING-LINE. - 41 02 TYPE PAGE HEADING LINE PLUS 1. ->> Error: Invalid syntax - -run_reportwriter.at-4553-prog.cob:41.17: - 38 HEADING 1 - 39 FIRST DETAIL 4. - 40 01 HEADING-LINE. - 41 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 42 05 COLUMN 1 PIC X(50) VALUE - 43 " 1 2 3 4 5". ->> Hint: Missing DETAIL - -run_reportwriter.at-4553-prog.cob:41.18-41.22: - 38 HEADING 1 - 39 FIRST DETAIL 4. - 40 01 HEADING-LINE. - 41 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 42 05 COLUMN 1 PIC X(50) VALUE - 43 " 1 2 3 4 5". ->> Error: Invalid syntax - -run_reportwriter.at-4553-prog.cob:44.17: - 41 02 TYPE PAGE HEADING LINE PLUS 1. - 42 05 COLUMN 1 PIC X(50) VALUE - 43 " 1 2 3 4 5". - 44 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 45 05 COLUMN 1 PIC X(50) VALUE - 46 "12345678901234567890123456789012345678901234567890". ->> Hint: Missing DETAIL - -run_reportwriter.at-4553-prog.cob:44.18-44.22: - 41 02 TYPE PAGE HEADING LINE PLUS 1. - 42 05 COLUMN 1 PIC X(50) VALUE - 43 " 1 2 3 4 5". - 44 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 45 05 COLUMN 1 PIC X(50) VALUE - 46 "12345678901234567890123456789012345678901234567890". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4575:0 -run_reportwriter.at-4575-reference:2.6-2.7: - 1 Hi-Q: 1 2 3 4 5 - 2 > Hi-Q: 12345678901234567890123456789012345678901234567890 ----- ^ - 3 Hi-Q: - 4 Hi-Q: 100 100 100 <1> ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-4575-reference:4.6-4.7: - 1 Hi-Q: 1 2 3 4 5 - 2 Hi-Q: 12345678901234567890123456789012345678901234567890 - 3 Hi-Q: - 4 > Hi-Q: 100 100 100 <1> ----- ^ - 5 Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> - 6 Hi-Q: 200 200 200 200 <3> ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-4575-reference:5.6-5.7: - 2 Hi-Q: 12345678901234567890123456789012345678901234567890 - 3 Hi-Q: - 4 Hi-Q: 100 100 100 <1> - 5 > Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> ----- ^ - 6 Hi-Q: 200 200 200 200 <3> - 7 Hi-Q: 400 401402403 <4> ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-4575-reference:6.6-6.7: - 3 Hi-Q: - 4 Hi-Q: 100 100 100 <1> - 5 Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> - 6 > Hi-Q: 200 200 200 200 <3> ----- ^ - 7 Hi-Q: 400 401402403 <4> - 8 Hi-Q: ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-4575-reference:7.6-7.7: - 4 Hi-Q: 100 100 100 <1> - 5 Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> - 6 Hi-Q: 200 200 200 200 <3> - 7 > Hi-Q: 400 401402403 <4> ----- ^ - 8 Hi-Q: - 9 Hi-Q: ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-4575-reference:1.15-1.16: - 1 > Hi-Q: 1 2 3 4 5 ----- ^ - 2 Hi-Q: 12345678901234567890123456789012345678901234567890 - 3 Hi-Q: ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4626:0 -run_reportwriter.at-4626-prog.cob:8.33-8.41: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4626-prog.cob:20.13: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^ - 21 - 22 01 rp-detail TYPE DE. ->> Hint: Missing . - -run_reportwriter.at-4626-prog.cob:20.14-20.18: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^^^^ - 21 - 22 01 rp-detail TYPE DE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4641:0 -run_reportwriter.at-4641-reference:2.6-2.7: - 1 hello <---> - 2 > goodbye <---> ----- ^ - 3 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-4641-reference:1.30-1.31: - 1 > hello <---> ----- ^ - 2 goodbye <---> - 3 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4689:0 -run_reportwriter.at-4689-prog.cob:8.33-8.41: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4689-prog.cob:20.13: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^ - 21 - 22 01 rp-detail TYPE DE. ->> Hint: Missing . - -run_reportwriter.at-4689-prog.cob:20.14-20.18: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^^^^ - 21 - 22 01 rp-detail TYPE DE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4701:0 -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4743:0 -run_reportwriter.at-4743-prog.cob:8.33-8.41: - 5 ENVIRONMENT DIVISION. - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT ----- ^^^^^^^^ - 9 ORGANIZATION LINE SEQUENTIAL. - 10 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-4743-prog.cob:20.13: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^ - 21 - 22 01 rp-detail TYPE DE. ->> Hint: Missing . - -run_reportwriter.at-4743-prog.cob:20.14-20.18: - 17 01 hedpos PIC 99 VALUE 10. - 18 - 19 REPORT SECTION. - 20 > RD rp PAGE LIMIT 3. ----- ^^^^ - 21 - 22 01 rp-detail TYPE DE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4755:0 -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:5051:0 -run_reportwriter.at-5051-inp_data:1.6-1.7: - 1 > MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 ----- ^ - 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 - 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:2.6-2.7: - 1 MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 - 2 > MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 ----- ^ - 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 - 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:3.6-3.7: - 1 MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 - 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 - 3 > MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 ----- ^ - 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 - 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:4.6-4.7: - 1 MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 - 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 - 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 - 4 > MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 ----- ^ - 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 - 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:5.6-5.7: - 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 - 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 - 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 - 5 > MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 ----- ^ - 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 - 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:6.6-6.7: - 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 - 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 - 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 - 6 > MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 ----- ^ - 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 - 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:7.6-7.7: - 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 - 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 - 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 - 7 > MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 ----- ^ - 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 - 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:8.6-8.7: - 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 - 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 - 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 - 8 > MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 ----- ^ - 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 - 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:9.6-9.7: - 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 - 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 - 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 - 9 > MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 ----- ^ - 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 - 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:10.6-10.7: - 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 - 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 - 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 - 10 > MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 ----- ^ - 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 - 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:11.6-11.7: - 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 - 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 - 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 - 11 > MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 ----- ^ - 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 - 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:12.6-12.7: - 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 - 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 - 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 - 12 > MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 ----- ^ - 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 - 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:13.6-13.7: - 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 - 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 - 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 - 13 > MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 ----- ^ - 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 - 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:14.6-14.7: - 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 - 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 - 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 - 14 > MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 ----- ^ - 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 - 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:15.6-15.7: - 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 - 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 - 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 - 15 > MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 ----- ^ - 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 - 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:16.6-16.7: - 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 - 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 - 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 - 16 > NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 ----- ^ - 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 - 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:17.6-17.7: - 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 - 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 - 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 - 17 > NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 ----- ^ - 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 - 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:18.6-18.7: - 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 - 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 - 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 - 18 > NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 ----- ^ - 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 - 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:19.6-19.7: - 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 - 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 - 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 - 19 > NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 ----- ^ - 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 - 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:20.6-20.7: - 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 - 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 - 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 - 20 > NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 ----- ^ - 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 - 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:21.6-21.7: - 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 - 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 - 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 - 21 > NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 ----- ^ - 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 - 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:22.6-22.7: - 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 - 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 - 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 - 22 > NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 ----- ^ - 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 - 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:23.6-23.7: - 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 - 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 - 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 - 23 > NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 ----- ^ - 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 - 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:24.6-24.7: - 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 - 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 - 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 - 24 > NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 ----- ^ - 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 - 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:25.6-25.7: - 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 - 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 - 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 - 25 > NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 ----- ^ - 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 - 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:26.6-26.7: - 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 - 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 - 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 - 26 > NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 ----- ^ - 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 - 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:27.6-27.7: - 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 - 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 - 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 - 27 > NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 ----- ^ - 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 - 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:28.6-28.7: - 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 - 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 - 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 - 28 > NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 ----- ^ - 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 - 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:29.6-29.7: - 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 - 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 - 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 - 29 > NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 ----- ^ - 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 - 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:30.6-30.7: - 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 - 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 - 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 - 30 > NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 ----- ^ - 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 - 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:31.6-31.7: - 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 - 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 - 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 - 31 > NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 ----- ^ - 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 - 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:32.6-32.7: - 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 - 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 - 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 - 32 > NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 ----- ^ - 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 - 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:33.6-33.7: - 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 - 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 - 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 - 33 > NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 ----- ^ - 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 - 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:34.6-34.7: - 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 - 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 - 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 - 34 > NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 ----- ^ - 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 - 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:35.6-35.7: - 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 - 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 - 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 - 35 > NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 ----- ^ - 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 - 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:36.6-36.7: - 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 - 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 - 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 - 36 > NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 ----- ^ - 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 - 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:37.6-37.7: - 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 - 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 - 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 - 37 > NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 ----- ^ - 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 - 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:38.6-38.7: - 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 - 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 - 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 - 38 > NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 ----- ^ - 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 - 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:39.6-39.7: - 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 - 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 - 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 - 39 > NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 ----- ^ - 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 - 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:40.6-40.7: - 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 - 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 - 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 - 40 > NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 ----- ^ - 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 - 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:41.6-41.7: - 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 - 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 - 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 - 41 > NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 ----- ^ - 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 - 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:42.6-42.7: - 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 - 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 - 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 - 42 > NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 ----- ^ - 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 - 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:43.6-43.7: - 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 - 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 - 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 - 43 > NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 ----- ^ - 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 - 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:44.6-44.7: - 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 - 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 - 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 - 44 > NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 ----- ^ - 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 - 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:45.6-45.7: - 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 - 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 - 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 - 45 > NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 ----- ^ - 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 - 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:46.6-46.7: - 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 - 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 - 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 - 46 > NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 ----- ^ - 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 - 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:47.6-47.7: - 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 - 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 - 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 - 47 > NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 ----- ^ - 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 - 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:48.6-48.7: - 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 - 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 - 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 - 48 > NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 ----- ^ - 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 - 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:49.6-49.7: - 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 - 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 - 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 - 49 > NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 ----- ^ - 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 - 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:50.6-50.7: - 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 - 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 - 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 - 50 > NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 ----- ^ - 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 - 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:51.6-51.7: - 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 - 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 - 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 - 51 > NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 ----- ^ - 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 - 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:52.6-52.7: - 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 - 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 - 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 - 52 > NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 ----- ^ - 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 - 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:53.6-53.7: - 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 - 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 - 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 - 53 > NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 ----- ^ - 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 - 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:54.6-54.7: - 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 - 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 - 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 - 54 > NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 ----- ^ - 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 - 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:55.6-55.7: - 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 - 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 - 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 - 55 > NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 ----- ^ - 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 - 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:56.6-56.7: - 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 - 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 - 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 - 56 > NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 ----- ^ - 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 - 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:57.6-57.7: - 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 - 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 - 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 - 57 > NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 ----- ^ - 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 - 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:58.6-58.7: - 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 - 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 - 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 - 58 > NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 ----- ^ - 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 - 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:59.6-59.7: - 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 - 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 - 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 - 59 > NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 ----- ^ - 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 - 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:60.6-60.7: - 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 - 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 - 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 - 60 > SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 ----- ^ - 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 - 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:61.6-61.7: - 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 - 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 - 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 - 61 > SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 ----- ^ - 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 - 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:62.6-62.7: - 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 - 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 - 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 - 62 > SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 ----- ^ - 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 - 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:63.6-63.7: - 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 - 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 - 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 - 63 > SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 ----- ^ - 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 - 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:64.6-64.7: - 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 - 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 - 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 - 64 > SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 ----- ^ - 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 - 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:65.6-65.7: - 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 - 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 - 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 - 65 > SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 ----- ^ - 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 - 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:66.6-66.7: - 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 - 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 - 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 - 66 > SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 ----- ^ - 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 - 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:67.6-67.7: - 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 - 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 - 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 - 67 > SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 ----- ^ - 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 - 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:68.6-68.7: - 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 - 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 - 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 - 68 > SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 ----- ^ - 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 - 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:69.6-69.7: - 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 - 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 - 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 - 69 > SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 ----- ^ - 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 - 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:70.6-70.7: - 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 - 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 - 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 - 70 > SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 ----- ^ - 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 - 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:71.6-71.7: - 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 - 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 - 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 - 71 > SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 ----- ^ - 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 - 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:72.6-72.7: - 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 - 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 - 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 - 72 > SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 ----- ^ - 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 - 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:73.6-73.7: - 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 - 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 - 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 - 73 > SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 ----- ^ - 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 - 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:74.6-74.7: - 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 - 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 - 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 - 74 > SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 ----- ^ - 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 - 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:75.6-75.7: - 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 - 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 - 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 - 75 > SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 ----- ^ - 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 - 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:76.6-76.7: - 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 - 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 - 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 - 76 > SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 ----- ^ - 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 - 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:77.6-77.7: - 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 - 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 - 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 - 77 > SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 ----- ^ - 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 - 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:78.6-78.7: - 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 - 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 - 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 - 78 > SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 ----- ^ - 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 - 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:79.6-79.7: - 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 - 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 - 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 - 79 > SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 ----- ^ - 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 - 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:80.6-80.7: - 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 - 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 - 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 - 80 > SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 ----- ^ - 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 - 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:81.6-81.7: - 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 - 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 - 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 - 81 > SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 ----- ^ - 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 - 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:82.6-82.7: - 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 - 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 - 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 - 82 > SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 ----- ^ - 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 - 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-5051-inp_data:83.6-83.7: - 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 - 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 - 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 - 83 > SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 ----- ^ - 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 - 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:84.6-84.7: - 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 - 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 - 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 - 84 > SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 ----- ^ - 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 - 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:85.6-85.7: - 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 - 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 - 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 - 85 > SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 ----- ^ - 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 - 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:86.6-86.7: - 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 - 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 - 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 - 86 > SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 ----- ^ - 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 - 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:87.6-87.7: - 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 - 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 - 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 - 87 > SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 ----- ^ - 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 - 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:88.6-88.7: - 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 - 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 - 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 - 88 > SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 ----- ^ - 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 - 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:89.6-89.7: - 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 - 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 - 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 - 89 > SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 ----- ^ - 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 - 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-5051-inp_data:90.6-90.7: - 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 - 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 - 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 - 90 > SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 ----- ^ - 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 - 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:91.6-91.7: - 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 - 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 - 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 - 91 > SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 ----- ^ - 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 - 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:92.6-92.7: - 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 - 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 - 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 - 92 > SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 ----- ^ - 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 - 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:93.6-93.7: - 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 - 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 - 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 - 93 > SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 ----- ^ - 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 - 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-5051-inp_data:94.6-94.7: - 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 - 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 - 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 - 94 > SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 ----- ^ - 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 - 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:95.6-95.7: - 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 - 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 - 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 - 95 > SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 ----- ^ - 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 - 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:96.6-96.7: - 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 - 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 - 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 - 96 > SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 ----- ^ - 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 - 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 ->> Error: Unexpected indicator: `6' - -run_reportwriter.at-5051-inp_data:97.6-97.7: - 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 - 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 - 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 - 97 > SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 ----- ^ - 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 - 99 SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:98.6-98.7: - 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 - 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 - 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 - 98 > SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 ----- ^ - 99 SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 - 100 SW1000871IN15020220150202OR150216016ITEM_NUMBER_62 0000008300006999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:99.6-99.7: - 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 - 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 - 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 - 99 > SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 ----- ^ - 100 SW1000871IN15020220150202OR150216016ITEM_NUMBER_62 0000008300006999 ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:100.6-100.7: - 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 - 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 - 99 SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 - 100 > SW1000871IN15020220150202OR150216016ITEM_NUMBER_62 0000008300006999 ----- ^ ->> Error: Unexpected indicator: `8' - -run_reportwriter.at-5051-inp_data:1.7-1.50: - 1 > MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 - 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:5049:0 -run_reportwriter.at-5049-prog.cob:14.24-14.32: - 11 FILE-CONTROL. - 12 - 13 SELECT REPORT-FILE - 14 > ASSIGN TO EXTERNAL REPORTFILE ----- ^^^^^^^^ - 15 ORGANIZATION IS LINE SEQUENTIAL. - 16 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-5049-prog.cob:18.24-18.32: - 15 ORGANIZATION IS LINE SEQUENTIAL. - 16 - 17 SELECT TEMP-FILE - 18 > ASSIGN TO EXTERNAL TEMPFILE ----- ^^^^^^^^ - 19 ORGANIZATION IS LINE SEQUENTIAL. - 20 ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-5049-prog.cob:63.15: - 60 TEMP-BRANCH, - 61 TEMP-INVOICE - 62 - 63 > PAGE LIMIT IS 60 LINES ----- ^ - 64 HEADING 1 - 65 FIRST DETAIL 8 ->> Hint: Missing . - -run_reportwriter.at-5049-prog.cob:63.16-63.21: - 60 TEMP-BRANCH, - 61 TEMP-INVOICE - 62 - 63 > PAGE LIMIT IS 60 LINES ----- ^^^^^ - 64 HEADING 1 - 65 FIRST DETAIL 8 ->> Warning: Invalid syntax - -run_reportwriter.at-5049-prog.cob:63.33: - 60 TEMP-BRANCH, - 61 TEMP-INVOICE - 62 - 63 > PAGE LIMIT IS 60 LINES ----- ^ - 64 HEADING 1 - 65 FIRST DETAIL 8 ->> Hint: Missing ARE - -run_reportwriter.at-5049-prog.cob:64.11-64.18: - 61 TEMP-INVOICE - 62 - 63 PAGE LIMIT IS 60 LINES - 64 > HEADING 1 ----- ^^^^^^^ - 65 FIRST DETAIL 8 - 66 LAST DETAIL 48. ->> Error: Invalid syntax - -run_reportwriter.at-5049-prog.cob:65.11-65.16: - 62 - 63 PAGE LIMIT IS 60 LINES - 64 HEADING 1 - 65 > FIRST DETAIL 8 ----- ^^^^^ - 66 LAST DETAIL 48. - 67 ->> Error: Invalid syntax - -run_reportwriter.at-5049-prog.cob:66.11-66.15: - 63 PAGE LIMIT IS 60 LINES - 64 HEADING 1 - 65 FIRST DETAIL 8 - 66 > LAST DETAIL 48. ----- ^^^^ - 67 - 68 01 RPTA-PAGE-HEADING TYPE PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-5049-prog.cob:68.32: - 65 FIRST DETAIL 8 - 66 LAST DETAIL 48. - 67 - 68 > 01 RPTA-PAGE-HEADING TYPE PAGE HEADING. ----- ^ - 69 03 LINE NUMBER IS 1. - 70 05 COLUMN 1 PIC X(4) VALUE "Run:". ->> Hint: Missing DETAIL - -run_reportwriter.at-5049-prog.cob:68.33-68.37: - 65 FIRST DETAIL 8 - 66 LAST DETAIL 48. - 67 - 68 > 01 RPTA-PAGE-HEADING TYPE PAGE HEADING. ----- ^^^^ - 69 03 LINE NUMBER IS 1. - 70 05 COLUMN 1 PIC X(4) VALUE "Run:". ->> Error: Invalid syntax - -run_reportwriter.at-5049-prog.cob:122.48: - 119 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. - 120 - 121 01 RPTA-BRANCH-FOOTING TYPE CONTROL FOOTING TEMP-BRANCH - 122 > NEXT GROUP NEXT PAGE. ----- ^ - 123 03 LINE NUMBER IS PLUS 2. - 124 05 COLUMN 69 PIC X(15) VALUE "Branch Total: ". ->> Hint: Missing PAGE - -run_reportwriter.at-5049-prog.cob:122.49-122.53: - 119 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. - 120 - 121 01 RPTA-BRANCH-FOOTING TYPE CONTROL FOOTING TEMP-BRANCH - 122 > NEXT GROUP NEXT PAGE. ----- ^^^^ - 123 03 LINE NUMBER IS PLUS 2. - 124 05 COLUMN 69 PIC X(15) VALUE "Branch Total: ". ->> Error: Invalid syntax - -run_reportwriter.at-5049-prog.cob:129.48: - 126 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. - 127 - 128 01 RPTA-REGION-FOOTING TYPE CONTROL FOOTING TEMP-REGION - 129 > NEXT GROUP NEXT PAGE. ----- ^ - 130 03 LINE NUMBER IS PLUS 2. - 131 05 COLUMN 69 PIC X(15) VALUE "Region Total: ". ->> Hint: Missing PAGE - -run_reportwriter.at-5049-prog.cob:129.49-129.53: - 126 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. - 127 - 128 01 RPTA-REGION-FOOTING TYPE CONTROL FOOTING TEMP-REGION - 129 > NEXT GROUP NEXT PAGE. ----- ^^^^ - 130 03 LINE NUMBER IS PLUS 2. - 131 05 COLUMN 69 PIC X(15) VALUE "Region Total: ". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9078:0 -run_reportwriter.at-9078-reference:2.6-2.7: - 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 - 2 > Region: MW ----- ^ - 3 Location: 1000051 - 4 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3.6-3.7: - 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 - 2 Region: MW - 3 > Location: 1000051 ----- ^ - 4 Invoice# Date Order# Line# Item# TX Qty Cost - 5 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:4.6-4.7: - 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 - 2 Region: MW - 3 Location: 1000051 - 4 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 5 -------------------------------------------------------------------------------------------------------------------------------- - 6 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:5.7-5.11: - 2 Region: MW - 3 Location: 1000051 - 4 Invoice# Date Order# Line# Item# TX Qty Cost - 5 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 6 - 7 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:8.6-8.7: - 5 -------------------------------------------------------------------------------------------------------------------------------- - 6 - 7 - 8 > IN150212 20150212 OR150212 043 ITEM_NUMBER_22 00000028 29.99 ----- ^ - 9 Invoice Total: 000000028 29.99 - 10 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:11.6-11.7: - 8 IN150212 20150212 OR150212 043 ITEM_NUMBER_22 00000028 29.99 - 9 Invoice Total: 000000028 29.99 - 10 - 11 > IN150222 20150222 OR150226 020 ITEM_NUMBER_06 00000043 9.99 ----- ^ - 12 Invoice Total: 000000043 9.99 - 13 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:62.6-62.7: - 59 - 60 - 61 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 2 - 62 > Region: MW ----- ^ - 63 Location: 1000071 - 64 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:63.6-63.7: - 60 - 61 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 2 - 62 Region: MW - 63 > Location: 1000071 ----- ^ - 64 Invoice# Date Order# Line# Item# TX Qty Cost - 65 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:64.6-64.7: - 61 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 2 - 62 Region: MW - 63 Location: 1000071 - 64 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 65 -------------------------------------------------------------------------------------------------------------------------------- - 66 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:65.7-65.11: - 62 Region: MW - 63 Location: 1000071 - 64 Invoice# Date Order# Line# Item# TX Qty Cost - 65 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 66 - 67 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:68.6-68.7: - 65 -------------------------------------------------------------------------------------------------------------------------------- - 66 - 67 - 68 > IN150214 20150214 OR150212 057 ITEM_NUMBER_51 00000070 59.99 ----- ^ - 69 Invoice Total: 000000070 59.99 - 70 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:71.6-71.7: - 68 IN150214 20150214 OR150212 057 ITEM_NUMBER_51 00000070 59.99 - 69 Invoice Total: 000000070 59.99 - 70 - 71 > IN150228 20150228 OR150225 098 ITEM_NUMBER_92 00000014 99.99 ----- ^ - 72 Invoice Total: 000000014 99.99 - 73 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:122.6-122.7: - 119 - 120 - 121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 3 - 122 > Region: MW ----- ^ - 123 Location: 1000201 - 124 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:123.6-123.7: - 120 - 121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 3 - 122 Region: MW - 123 > Location: 1000201 ----- ^ - 124 Invoice# Date Order# Line# Item# TX Qty Cost - 125 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:124.6-124.7: - 121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 3 - 122 Region: MW - 123 Location: 1000201 - 124 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 125 -------------------------------------------------------------------------------------------------------------------------------- - 126 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:125.7-125.11: - 122 Region: MW - 123 Location: 1000201 - 124 Invoice# Date Order# Line# Item# TX Qty Cost - 125 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 126 - 127 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:128.6-128.7: - 125 -------------------------------------------------------------------------------------------------------------------------------- - 126 - 127 - 128 > IN150209 20150209 OR150216 083 ITEM_NUMBER_77 00000077 79.99 ----- ^ - 129 Invoice Total: 000000077 79.99 - 130 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:131.6-131.7: - 128 IN150209 20150209 OR150216 083 ITEM_NUMBER_77 00000077 79.99 - 129 Invoice Total: 000000077 79.99 - 130 - 131 > IN150227 20150227 OR150223 079 ITEM_NUMBER_20 00000096 29.99 ----- ^ - 132 Invoice Total: 000000096 29.99 - 133 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:182.6-182.7: - 179 - 180 - 181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 4 - 182 > Region: MW ----- ^ - 183 Location: 1000291 - 184 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:183.6-183.7: - 180 - 181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 4 - 182 Region: MW - 183 > Location: 1000291 ----- ^ - 184 Invoice# Date Order# Line# Item# TX Qty Cost - 185 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:184.6-184.7: - 181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 4 - 182 Region: MW - 183 Location: 1000291 - 184 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 185 -------------------------------------------------------------------------------------------------------------------------------- - 186 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:185.7-185.11: - 182 Region: MW - 183 Location: 1000291 - 184 Invoice# Date Order# Line# Item# TX Qty Cost - 185 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 186 - 187 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:188.6-188.7: - 185 -------------------------------------------------------------------------------------------------------------------------------- - 186 - 187 - 188 > IN150217 20150217 OR150218 088 ITEM_NUMBER_86 00000019 89.99 ----- ^ - 189 Invoice Total: 000000019 89.99 - 190 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:242.6-242.7: - 239 - 240 - 241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 5 - 242 > Region: MW ----- ^ - 243 Location: 1000411 - 244 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:243.6-243.7: - 240 - 241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 5 - 242 Region: MW - 243 > Location: 1000411 ----- ^ - 244 Invoice# Date Order# Line# Item# TX Qty Cost - 245 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:244.6-244.7: - 241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 5 - 242 Region: MW - 243 Location: 1000411 - 244 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 245 -------------------------------------------------------------------------------------------------------------------------------- - 246 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:245.7-245.11: - 242 Region: MW - 243 Location: 1000411 - 244 Invoice# Date Order# Line# Item# TX Qty Cost - 245 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 246 - 247 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:248.6-248.7: - 245 -------------------------------------------------------------------------------------------------------------------------------- - 246 - 247 - 248 > IN150223 20150223 OR150210 063 ITEM_NUMBER_66 00000088 69.99 ----- ^ - 249 Invoice Total: 000000088 69.99 - 250 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:302.6-302.7: - 299 - 300 - 301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 6 - 302 > Region: MW ----- ^ - 303 Location: 1000451 - 304 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:303.6-303.7: - 300 - 301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 6 - 302 Region: MW - 303 > Location: 1000451 ----- ^ - 304 Invoice# Date Order# Line# Item# TX Qty Cost - 305 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:304.6-304.7: - 301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 6 - 302 Region: MW - 303 Location: 1000451 - 304 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 305 -------------------------------------------------------------------------------------------------------------------------------- - 306 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:305.7-305.11: - 302 Region: MW - 303 Location: 1000451 - 304 Invoice# Date Order# Line# Item# TX Qty Cost - 305 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 306 - 307 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:308.6-308.7: - 305 -------------------------------------------------------------------------------------------------------------------------------- - 306 - 307 - 308 > IN150217 20150217 OR150202 053 ITEM_NUMBER_60 00000051 69.99 ----- ^ - 309 Invoice Total: 000000051 69.99 - 310 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:362.6-362.7: - 359 - 360 - 361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 7 - 362 > Region: MW ----- ^ - 363 Location: 1000471 - 364 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:363.6-363.7: - 360 - 361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 7 - 362 Region: MW - 363 > Location: 1000471 ----- ^ - 364 Invoice# Date Order# Line# Item# TX Qty Cost - 365 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:364.6-364.7: - 361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 7 - 362 Region: MW - 363 Location: 1000471 - 364 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 365 -------------------------------------------------------------------------------------------------------------------------------- - 366 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:365.7-365.11: - 362 Region: MW - 363 Location: 1000471 - 364 Invoice# Date Order# Line# Item# TX Qty Cost - 365 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 366 - 367 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:368.6-368.7: - 365 -------------------------------------------------------------------------------------------------------------------------------- - 366 - 367 - 368 > IN150224 20150224 OR150201 036 ITEM_NUMBER_45 00000038 49.99 ----- ^ - 369 Invoice Total: 000000038 49.99 - 370 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:422.6-422.7: - 419 - 420 - 421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 8 - 422 > Region: MW ----- ^ - 423 Location: 1000831 - 424 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:423.6-423.7: - 420 - 421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 8 - 422 Region: MW - 423 > Location: 1000831 ----- ^ - 424 Invoice# Date Order# Line# Item# TX Qty Cost - 425 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:424.6-424.7: - 421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 8 - 422 Region: MW - 423 Location: 1000831 - 424 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 425 -------------------------------------------------------------------------------------------------------------------------------- - 426 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:425.7-425.11: - 422 Region: MW - 423 Location: 1000831 - 424 Invoice# Date Order# Line# Item# TX Qty Cost - 425 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 426 - 427 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:428.6-428.7: - 425 -------------------------------------------------------------------------------------------------------------------------------- - 426 - 427 - 428 > IN150210 20150210 OR150227 042 ITEM_NUMBER_70 00000072 79.99 ----- ^ - 429 Invoice Total: 000000072 79.99 - 430 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:431.6-431.7: - 428 IN150210 20150210 OR150227 042 ITEM_NUMBER_70 00000072 79.99 - 429 Invoice Total: 000000072 79.99 - 430 - 431 > IN150214 20150214 OR150228 090 ITEM_NUMBER_07 00000023 9.99 ----- ^ - 432 Invoice Total: 000000023 9.99 - 433 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:434.6-434.7: - 431 IN150214 20150214 OR150228 090 ITEM_NUMBER_07 00000023 9.99 - 432 Invoice Total: 000000023 9.99 - 433 - 434 > IN150220 20150220 OR150226 048 ITEM_NUMBER_61 00000059 69.99 ----- ^ - 435 Invoice Total: 000000059 69.99 - 436 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:482.6-482.7: - 479 - 480 - 481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 9 - 482 > Region: MW ----- ^ - 483 Location: 1000891 - 484 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:483.6-483.7: - 480 - 481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 9 - 482 Region: MW - 483 > Location: 1000891 ----- ^ - 484 Invoice# Date Order# Line# Item# TX Qty Cost - 485 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:484.6-484.7: - 481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 9 - 482 Region: MW - 483 Location: 1000891 - 484 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 485 -------------------------------------------------------------------------------------------------------------------------------- - 486 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:485.7-485.11: - 482 Region: MW - 483 Location: 1000891 - 484 Invoice# Date Order# Line# Item# TX Qty Cost - 485 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 486 - 487 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:488.6-488.7: - 485 -------------------------------------------------------------------------------------------------------------------------------- - 486 - 487 - 488 > IN150221 20150221 OR150219 018 ITEM_NUMBER_72 00000073 79.99 ----- ^ - 489 Invoice Total: 000000073 79.99 - 490 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:491.6-491.7: - 488 IN150221 20150221 OR150219 018 ITEM_NUMBER_72 00000073 79.99 - 489 Invoice Total: 000000073 79.99 - 490 - 491 > IN150223 20150223 OR150227 069 ITEM_NUMBER_73 00000074 79.99 ----- ^ - 492 Invoice Total: 000000074 79.99 - 493 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:542.6-542.7: - 539 - 540 - 541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 10 - 542 > Region: NE ----- ^ - 543 Location: 1000001 - 544 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:543.6-543.7: - 540 - 541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 10 - 542 Region: NE - 543 > Location: 1000001 ----- ^ - 544 Invoice# Date Order# Line# Item# TX Qty Cost - 545 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:544.6-544.7: - 541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 10 - 542 Region: NE - 543 Location: 1000001 - 544 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 545 -------------------------------------------------------------------------------------------------------------------------------- - 546 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:545.7-545.11: - 542 Region: NE - 543 Location: 1000001 - 544 Invoice# Date Order# Line# Item# TX Qty Cost - 545 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 546 - 547 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:548.6-548.7: - 545 -------------------------------------------------------------------------------------------------------------------------------- - 546 - 547 - 548 > IN150210 20150210 OR150217 060 ITEM_NUMBER_38 00000098 39.99 ----- ^ - 549 Invoice Total: 000000098 39.99 - 550 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:602.6-602.7: - 599 - 600 - 601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 11 - 602 > Region: NE ----- ^ - 603 Location: 1000201 - 604 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:603.6-603.7: - 600 - 601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 11 - 602 Region: NE - 603 > Location: 1000201 ----- ^ - 604 Invoice# Date Order# Line# Item# TX Qty Cost - 605 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:604.6-604.7: - 601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 11 - 602 Region: NE - 603 Location: 1000201 - 604 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 605 -------------------------------------------------------------------------------------------------------------------------------- - 606 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:605.7-605.11: - 602 Region: NE - 603 Location: 1000201 - 604 Invoice# Date Order# Line# Item# TX Qty Cost - 605 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 606 - 607 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:608.6-608.7: - 605 -------------------------------------------------------------------------------------------------------------------------------- - 606 - 607 - 608 > IN150219 20150219 OR150209 035 ITEM_NUMBER_94 00000096 99.99 ----- ^ - 609 Invoice Total: 000000096 99.99 - 610 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:662.6-662.7: - 659 - 660 - 661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 12 - 662 > Region: NE ----- ^ - 663 Location: 1000431 - 664 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:663.6-663.7: - 660 - 661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 12 - 662 Region: NE - 663 > Location: 1000431 ----- ^ - 664 Invoice# Date Order# Line# Item# TX Qty Cost - 665 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:664.6-664.7: - 661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 12 - 662 Region: NE - 663 Location: 1000431 - 664 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 665 -------------------------------------------------------------------------------------------------------------------------------- - 666 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:665.7-665.11: - 662 Region: NE - 663 Location: 1000431 - 664 Invoice# Date Order# Line# Item# TX Qty Cost - 665 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 666 - 667 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:668.6-668.7: - 665 -------------------------------------------------------------------------------------------------------------------------------- - 666 - 667 - 668 > IN150215 20150215 OR150227 047 ITEM_NUMBER_64 00000087 69.99 ----- ^ - 669 Invoice Total: 000000087 69.99 - 670 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:671.6-671.7: - 668 IN150215 20150215 OR150227 047 ITEM_NUMBER_64 00000087 69.99 - 669 Invoice Total: 000000087 69.99 - 670 - 671 > IN150222 20150222 OR150213 062 ITEM_NUMBER_97 00000073 99.99 ----- ^ - 672 Invoice Total: 000000073 99.99 - 673 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:722.6-722.7: - 719 - 720 - 721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 13 - 722 > Region: NE ----- ^ - 723 Location: 1000451 - 724 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:723.6-723.7: - 720 - 721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 13 - 722 Region: NE - 723 > Location: 1000451 ----- ^ - 724 Invoice# Date Order# Line# Item# TX Qty Cost - 725 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:724.6-724.7: - 721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 13 - 722 Region: NE - 723 Location: 1000451 - 724 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 725 -------------------------------------------------------------------------------------------------------------------------------- - 726 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:725.7-725.11: - 722 Region: NE - 723 Location: 1000451 - 724 Invoice# Date Order# Line# Item# TX Qty Cost - 725 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 726 - 727 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:728.6-728.7: - 725 -------------------------------------------------------------------------------------------------------------------------------- - 726 - 727 - 728 > IN150203 20150203 OR150213 087 ITEM_NUMBER_85 00000053 89.99 ----- ^ - 729 Invoice Total: 000000053 89.99 - 730 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:782.6-782.7: - 779 - 780 - 781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 14 - 782 > Region: NE ----- ^ - 783 Location: 1000471 - 784 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:783.6-783.7: - 780 - 781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 14 - 782 Region: NE - 783 > Location: 1000471 ----- ^ - 784 Invoice# Date Order# Line# Item# TX Qty Cost - 785 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:784.6-784.7: - 781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 14 - 782 Region: NE - 783 Location: 1000471 - 784 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 785 -------------------------------------------------------------------------------------------------------------------------------- - 786 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:785.7-785.11: - 782 Region: NE - 783 Location: 1000471 - 784 Invoice# Date Order# Line# Item# TX Qty Cost - 785 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 786 - 787 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:788.6-788.7: - 785 -------------------------------------------------------------------------------------------------------------------------------- - 786 - 787 - 788 > IN150221 20150221 OR150222 034 ITEM_NUMBER_74 00000084 79.99 ----- ^ - 789 077 ITEM_NUMBER_78 00000024 79.99 - 790 Invoice Total: 000000108 159.98 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:842.6-842.7: - 839 - 840 - 841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 15 - 842 > Region: NE ----- ^ - 843 Location: 1000491 - 844 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:843.6-843.7: - 840 - 841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 15 - 842 Region: NE - 843 > Location: 1000491 ----- ^ - 844 Invoice# Date Order# Line# Item# TX Qty Cost - 845 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:844.6-844.7: - 841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 15 - 842 Region: NE - 843 Location: 1000491 - 844 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 845 -------------------------------------------------------------------------------------------------------------------------------- - 846 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:845.7-845.11: - 842 Region: NE - 843 Location: 1000491 - 844 Invoice# Date Order# Line# Item# TX Qty Cost - 845 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 846 - 847 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:848.6-848.7: - 845 -------------------------------------------------------------------------------------------------------------------------------- - 846 - 847 - 848 > IN150217 20150217 OR150210 037 ITEM_NUMBER_17 00000007 19.99 ----- ^ - 849 Invoice Total: 000000007 19.99 - 850 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:902.6-902.7: - 899 - 900 - 901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 16 - 902 > Region: NE ----- ^ - 903 Location: 1000601 - 904 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:903.6-903.7: - 900 - 901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 16 - 902 Region: NE - 903 > Location: 1000601 ----- ^ - 904 Invoice# Date Order# Line# Item# TX Qty Cost - 905 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:904.6-904.7: - 901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 16 - 902 Region: NE - 903 Location: 1000601 - 904 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 905 -------------------------------------------------------------------------------------------------------------------------------- - 906 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:905.7-905.11: - 902 Region: NE - 903 Location: 1000601 - 904 Invoice# Date Order# Line# Item# TX Qty Cost - 905 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 906 - 907 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:908.6-908.7: - 905 -------------------------------------------------------------------------------------------------------------------------------- - 906 - 907 - 908 > IN150215 20150215 OR150211 070 ITEM_NUMBER_06 00000044 9.99 ----- ^ - 909 Invoice Total: 000000044 9.99 - 910 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:962.6-962.7: - 959 - 960 - 961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 17 - 962 > Region: NE ----- ^ - 963 Location: 1000631 - 964 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:963.6-963.7: - 960 - 961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 17 - 962 Region: NE - 963 > Location: 1000631 ----- ^ - 964 Invoice# Date Order# Line# Item# TX Qty Cost - 965 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:964.6-964.7: - 961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 17 - 962 Region: NE - 963 Location: 1000631 - 964 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ - 965 -------------------------------------------------------------------------------------------------------------------------------- - 966 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:965.7-965.11: - 962 Region: NE - 963 Location: 1000631 - 964 Invoice# Date Order# Line# Item# TX Qty Cost - 965 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ - 966 - 967 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:968.6-968.7: - 965 -------------------------------------------------------------------------------------------------------------------------------- - 966 - 967 - 968 > IN150227 20150227 OR150209 051 ITEM_NUMBER_09 00000054 9.99 ----- ^ - 969 Invoice Total: 000000054 9.99 - 970 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1022.6-1022.7: -1019 -1020 -1021 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 18 -1022 > Region: NE ----- ^ -1023 Location: 1000671 -1024 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1023.6-1023.7: -1020 -1021 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 18 -1022 Region: NE -1023 > Location: 1000671 ----- ^ -1024 Invoice# Date Order# Line# Item# TX Qty Cost -1025 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1024.6-1024.7: -1021 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 18 -1022 Region: NE -1023 Location: 1000671 -1024 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1025 -------------------------------------------------------------------------------------------------------------------------------- -1026 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1025.7-1025.11: -1022 Region: NE -1023 Location: 1000671 -1024 Invoice# Date Order# Line# Item# TX Qty Cost -1025 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1026 -1027 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1028.6-1028.7: -1025 -------------------------------------------------------------------------------------------------------------------------------- -1026 -1027 -1028 > IN150206 20150206 OR150220 045 ITEM_NUMBER_56 00000066 59.99 ----- ^ -1029 Invoice Total: 000000066 59.99 -1030 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:1082.6-1082.7: -1079 -1080 -1081 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 19 -1082 > Region: NE ----- ^ -1083 Location: 1000811 -1084 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1083.6-1083.7: -1080 -1081 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 19 -1082 Region: NE -1083 > Location: 1000811 ----- ^ -1084 Invoice# Date Order# Line# Item# TX Qty Cost -1085 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1084.6-1084.7: -1081 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 19 -1082 Region: NE -1083 Location: 1000811 -1084 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1085 -------------------------------------------------------------------------------------------------------------------------------- -1086 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1085.7-1085.11: -1082 Region: NE -1083 Location: 1000811 -1084 Invoice# Date Order# Line# Item# TX Qty Cost -1085 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1086 -1087 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1088.6-1088.7: -1085 -------------------------------------------------------------------------------------------------------------------------------- -1086 -1087 -1088 > IN150220 20150220 OR150212 086 ITEM_NUMBER_27 00000017 29.99 ----- ^ -1089 Invoice Total: 000000017 29.99 -1090 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1091.6-1091.7: -1088 IN150220 20150220 OR150212 086 ITEM_NUMBER_27 00000017 29.99 -1089 Invoice Total: 000000017 29.99 -1090 -1091 > IN150228 20150228 OR150222 075 ITEM_NUMBER_66 00000086 69.99 ----- ^ -1092 Invoice Total: 000000086 69.99 -1093 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1142.6-1142.7: -1139 -1140 -1141 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 20 -1142 > Region: NE ----- ^ -1143 Location: 1000831 -1144 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1143.6-1143.7: -1140 -1141 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 20 -1142 Region: NE -1143 > Location: 1000831 ----- ^ -1144 Invoice# Date Order# Line# Item# TX Qty Cost -1145 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1144.6-1144.7: -1141 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 20 -1142 Region: NE -1143 Location: 1000831 -1144 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1145 -------------------------------------------------------------------------------------------------------------------------------- -1146 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1145.7-1145.11: -1142 Region: NE -1143 Location: 1000831 -1144 Invoice# Date Order# Line# Item# TX Qty Cost -1145 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1146 -1147 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1148.6-1148.7: -1145 -------------------------------------------------------------------------------------------------------------------------------- -1146 -1147 -1148 > IN150216 20150216 OR150224 004 ITEM_NUMBER_52 00000042 59.99 ----- ^ -1149 Invoice Total: 000000042 59.99 -1150 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1202.6-1202.7: -1199 -1200 -1201 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 21 -1202 > Region: NW ----- ^ -1203 Location: 1000001 -1204 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1203.6-1203.7: -1200 -1201 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 21 -1202 Region: NW -1203 > Location: 1000001 ----- ^ -1204 Invoice# Date Order# Line# Item# TX Qty Cost -1205 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1204.6-1204.7: -1201 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 21 -1202 Region: NW -1203 Location: 1000001 -1204 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1205 -------------------------------------------------------------------------------------------------------------------------------- -1206 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1205.7-1205.11: -1202 Region: NW -1203 Location: 1000001 -1204 Invoice# Date Order# Line# Item# TX Qty Cost -1205 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1206 -1207 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1208.6-1208.7: -1205 -------------------------------------------------------------------------------------------------------------------------------- -1206 -1207 -1208 > IN150224 20150224 OR150215 029 ITEM_NUMBER_79 00000035 79.99 ----- ^ -1209 Invoice Total: 000000035 79.99 -1210 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1262.6-1262.7: -1259 -1260 -1261 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 22 -1262 > Region: NW ----- ^ -1263 Location: 1000011 -1264 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1263.6-1263.7: -1260 -1261 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 22 -1262 Region: NW -1263 > Location: 1000011 ----- ^ -1264 Invoice# Date Order# Line# Item# TX Qty Cost -1265 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1264.6-1264.7: -1261 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 22 -1262 Region: NW -1263 Location: 1000011 -1264 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1265 -------------------------------------------------------------------------------------------------------------------------------- -1266 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1265.7-1265.11: -1262 Region: NW -1263 Location: 1000011 -1264 Invoice# Date Order# Line# Item# TX Qty Cost -1265 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1266 -1267 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1268.6-1268.7: -1265 -------------------------------------------------------------------------------------------------------------------------------- -1266 -1267 -1268 > IN150228 20150228 OR150209 023 ITEM_NUMBER_62 00000098 69.99 ----- ^ -1269 Invoice Total: 000000098 69.99 -1270 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1322.6-1322.7: -1319 -1320 -1321 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 23 -1322 > Region: NW ----- ^ -1323 Location: 1000051 -1324 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1323.6-1323.7: -1320 -1321 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 23 -1322 Region: NW -1323 > Location: 1000051 ----- ^ -1324 Invoice# Date Order# Line# Item# TX Qty Cost -1325 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1324.6-1324.7: -1321 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 23 -1322 Region: NW -1323 Location: 1000051 -1324 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1325 -------------------------------------------------------------------------------------------------------------------------------- -1326 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1325.7-1325.11: -1322 Region: NW -1323 Location: 1000051 -1324 Invoice# Date Order# Line# Item# TX Qty Cost -1325 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1326 -1327 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1328.6-1328.7: -1325 -------------------------------------------------------------------------------------------------------------------------------- -1326 -1327 -1328 > IN150210 20150210 OR150225 076 ITEM_NUMBER_50 00000039 59.99 ----- ^ -1329 Invoice Total: 000000039 59.99 -1330 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1331.6-1331.7: -1328 IN150210 20150210 OR150225 076 ITEM_NUMBER_50 00000039 59.99 -1329 Invoice Total: 000000039 59.99 -1330 -1331 > IN150218 20150218 OR150229 093 ITEM_NUMBER_94 00000037 99.99 ----- ^ -1332 Invoice Total: 000000037 99.99 -1333 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1334.6-1334.7: -1331 IN150218 20150218 OR150229 093 ITEM_NUMBER_94 00000037 99.99 -1332 Invoice Total: 000000037 99.99 -1333 -1334 > IN150220 20150220 OR150221 050 ITEM_NUMBER_89 00000038 89.99 ----- ^ -1335 Invoice Total: 000000038 89.99 -1336 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1382.6-1382.7: -1379 -1380 -1381 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 24 -1382 > Region: NW ----- ^ -1383 Location: 1000071 -1384 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1383.6-1383.7: -1380 -1381 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 24 -1382 Region: NW -1383 > Location: 1000071 ----- ^ -1384 Invoice# Date Order# Line# Item# TX Qty Cost -1385 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1384.6-1384.7: -1381 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 24 -1382 Region: NW -1383 Location: 1000071 -1384 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1385 -------------------------------------------------------------------------------------------------------------------------------- -1386 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1385.7-1385.11: -1382 Region: NW -1383 Location: 1000071 -1384 Invoice# Date Order# Line# Item# TX Qty Cost -1385 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1386 -1387 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1388.6-1388.7: -1385 -------------------------------------------------------------------------------------------------------------------------------- -1386 -1387 -1388 > IN150202 20150202 OR150223 014 ITEM_NUMBER_54 00000048 59.99 ----- ^ -1389 Invoice Total: 000000048 59.99 -1390 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:1442.6-1442.7: -1439 -1440 -1441 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 25 -1442 > Region: NW ----- ^ -1443 Location: 1000091 -1444 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1443.6-1443.7: -1440 -1441 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 25 -1442 Region: NW -1443 > Location: 1000091 ----- ^ -1444 Invoice# Date Order# Line# Item# TX Qty Cost -1445 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1444.6-1444.7: -1441 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 25 -1442 Region: NW -1443 Location: 1000091 -1444 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1445 -------------------------------------------------------------------------------------------------------------------------------- -1446 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1445.7-1445.11: -1442 Region: NW -1443 Location: 1000091 -1444 Invoice# Date Order# Line# Item# TX Qty Cost -1445 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1446 -1447 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1448.6-1448.7: -1445 -------------------------------------------------------------------------------------------------------------------------------- -1446 -1447 -1448 > IN150208 20150208 OR150229 094 ITEM_NUMBER_17 00000072 19.99 ----- ^ -1449 Invoice Total: 000000072 19.99 -1450 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:1451.6-1451.7: -1448 IN150208 20150208 OR150229 094 ITEM_NUMBER_17 00000072 19.99 -1449 Invoice Total: 000000072 19.99 -1450 -1451 > IN150212 20150212 OR150222 096 ITEM_NUMBER_89 00000049 89.99 ----- ^ -1452 Invoice Total: 000000049 89.99 -1453 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1454.6-1454.7: -1451 IN150212 20150212 OR150222 096 ITEM_NUMBER_89 00000049 89.99 -1452 Invoice Total: 000000049 89.99 -1453 -1454 > IN150224 20150224 OR150211 074 ITEM_NUMBER_90 00000043 99.99 ----- ^ -1455 Invoice Total: 000000043 99.99 -1456 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1457.6-1457.7: -1454 IN150224 20150224 OR150211 074 ITEM_NUMBER_90 00000043 99.99 -1455 Invoice Total: 000000043 99.99 -1456 -1457 > IN150227 20150227 OR150219 030 ITEM_NUMBER_12 00000019 19.99 ----- ^ -1458 Invoice Total: 000000019 19.99 -1459 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1502.6-1502.7: -1499 -1500 -1501 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 26 -1502 > Region: NW ----- ^ -1503 Location: 1000201 -1504 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1503.6-1503.7: -1500 -1501 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 26 -1502 Region: NW -1503 > Location: 1000201 ----- ^ -1504 Invoice# Date Order# Line# Item# TX Qty Cost -1505 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1504.6-1504.7: -1501 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 26 -1502 Region: NW -1503 Location: 1000201 -1504 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1505 -------------------------------------------------------------------------------------------------------------------------------- -1506 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1505.7-1505.11: -1502 Region: NW -1503 Location: 1000201 -1504 Invoice# Date Order# Line# Item# TX Qty Cost -1505 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1506 -1507 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1508.6-1508.7: -1505 -------------------------------------------------------------------------------------------------------------------------------- -1506 -1507 -1508 > IN150208 20150208 OR150210 061 ITEM_NUMBER_34 00000012 39.99 ----- ^ -1509 Invoice Total: 000000012 39.99 -1510 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:1562.6-1562.7: -1559 -1560 -1561 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 27 -1562 > Region: NW ----- ^ -1563 Location: 1000231 -1564 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1563.6-1563.7: -1560 -1561 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 27 -1562 Region: NW -1563 > Location: 1000231 ----- ^ -1564 Invoice# Date Order# Line# Item# TX Qty Cost -1565 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1564.6-1564.7: -1561 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 27 -1562 Region: NW -1563 Location: 1000231 -1564 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1565 -------------------------------------------------------------------------------------------------------------------------------- -1566 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1565.7-1565.11: -1562 Region: NW -1563 Location: 1000231 -1564 Invoice# Date Order# Line# Item# TX Qty Cost -1565 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1566 -1567 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1568.6-1568.7: -1565 -------------------------------------------------------------------------------------------------------------------------------- -1566 -1567 -1568 > IN150214 20150214 OR150210 044 ITEM_NUMBER_89 00000054 89.99 ----- ^ -1569 Invoice Total: 000000054 89.99 -1570 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1622.6-1622.7: -1619 -1620 -1621 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 28 -1622 > Region: NW ----- ^ -1623 Location: 1000251 -1624 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1623.6-1623.7: -1620 -1621 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 28 -1622 Region: NW -1623 > Location: 1000251 ----- ^ -1624 Invoice# Date Order# Line# Item# TX Qty Cost -1625 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1624.6-1624.7: -1621 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 28 -1622 Region: NW -1623 Location: 1000251 -1624 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1625 -------------------------------------------------------------------------------------------------------------------------------- -1626 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1625.7-1625.11: -1622 Region: NW -1623 Location: 1000251 -1624 Invoice# Date Order# Line# Item# TX Qty Cost -1625 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1626 -1627 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1628.6-1628.7: -1625 -------------------------------------------------------------------------------------------------------------------------------- -1626 -1627 -1628 > IN150212 20150212 OR150204 059 ITEM_NUMBER_39 00000060 39.99 ----- ^ -1629 Invoice Total: 000000060 39.99 -1630 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1682.6-1682.7: -1679 -1680 -1681 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 29 -1682 > Region: NW ----- ^ -1683 Location: 1000401 -1684 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1683.6-1683.7: -1680 -1681 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 29 -1682 Region: NW -1683 > Location: 1000401 ----- ^ -1684 Invoice# Date Order# Line# Item# TX Qty Cost -1685 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1684.6-1684.7: -1681 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 29 -1682 Region: NW -1683 Location: 1000401 -1684 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1685 -------------------------------------------------------------------------------------------------------------------------------- -1686 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1685.7-1685.11: -1682 Region: NW -1683 Location: 1000401 -1684 Invoice# Date Order# Line# Item# TX Qty Cost -1685 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1686 -1687 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1688.6-1688.7: -1685 -------------------------------------------------------------------------------------------------------------------------------- -1686 -1687 -1688 > IN150215 20150215 OR150222 049 ITEM_NUMBER_40 00000081 49.99 ----- ^ -1689 Invoice Total: 000000081 49.99 -1690 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1691.6-1691.7: -1688 IN150215 20150215 OR150222 049 ITEM_NUMBER_40 00000081 49.99 -1689 Invoice Total: 000000081 49.99 -1690 -1691 > IN150217 20150217 OR150203 085 ITEM_NUMBER_77 00000037 79.99 ----- ^ -1692 Invoice Total: 000000037 79.99 -1693 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1742.6-1742.7: -1739 -1740 -1741 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 30 -1742 > Region: NW ----- ^ -1743 Location: 1000411 -1744 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1743.6-1743.7: -1740 -1741 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 30 -1742 Region: NW -1743 > Location: 1000411 ----- ^ -1744 Invoice# Date Order# Line# Item# TX Qty Cost -1745 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1744.6-1744.7: -1741 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 30 -1742 Region: NW -1743 Location: 1000411 -1744 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1745 -------------------------------------------------------------------------------------------------------------------------------- -1746 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1745.7-1745.11: -1742 Region: NW -1743 Location: 1000411 -1744 Invoice# Date Order# Line# Item# TX Qty Cost -1745 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1746 -1747 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1748.6-1748.7: -1745 -------------------------------------------------------------------------------------------------------------------------------- -1746 -1747 -1748 > IN150207 20150207 OR150224 056 ITEM_NUMBER_99 00000054 99.99 ----- ^ -1749 Invoice Total: 000000054 99.99 -1750 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:1751.6-1751.7: -1748 IN150207 20150207 OR150224 056 ITEM_NUMBER_99 00000054 99.99 -1749 Invoice Total: 000000054 99.99 -1750 -1751 > IN150228 20150228 OR150221 008 ITEM_NUMBER_68 00000090 69.99 ----- ^ -1752 Invoice Total: 000000090 69.99 -1753 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1802.6-1802.7: -1799 -1800 -1801 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 31 -1802 > Region: NW ----- ^ -1803 Location: 1000491 -1804 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1803.6-1803.7: -1800 -1801 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 31 -1802 Region: NW -1803 > Location: 1000491 ----- ^ -1804 Invoice# Date Order# Line# Item# TX Qty Cost -1805 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1804.6-1804.7: -1801 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 31 -1802 Region: NW -1803 Location: 1000491 -1804 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1805 -------------------------------------------------------------------------------------------------------------------------------- -1806 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1805.7-1805.11: -1802 Region: NW -1803 Location: 1000491 -1804 Invoice# Date Order# Line# Item# TX Qty Cost -1805 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1806 -1807 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1808.6-1808.7: -1805 -------------------------------------------------------------------------------------------------------------------------------- -1806 -1807 -1808 > IN150228 20150228 OR150201 002 ITEM_NUMBER_47 00000086 49.99 ----- ^ -1809 Invoice Total: 000000086 49.99 -1810 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1862.6-1862.7: -1859 -1860 -1861 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 32 -1862 > Region: NW ----- ^ -1863 Location: 1000611 -1864 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1863.6-1863.7: -1860 -1861 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 32 -1862 Region: NW -1863 > Location: 1000611 ----- ^ -1864 Invoice# Date Order# Line# Item# TX Qty Cost -1865 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1864.6-1864.7: -1861 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 32 -1862 Region: NW -1863 Location: 1000611 -1864 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1865 -------------------------------------------------------------------------------------------------------------------------------- -1866 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1865.7-1865.11: -1862 Region: NW -1863 Location: 1000611 -1864 Invoice# Date Order# Line# Item# TX Qty Cost -1865 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1866 -1867 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1868.6-1868.7: -1865 -------------------------------------------------------------------------------------------------------------------------------- -1866 -1867 -1868 > IN150227 20150227 OR150224 097 ITEM_NUMBER_11 00000080 19.99 ----- ^ -1869 Invoice Total: 000000080 19.99 -1870 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1922.6-1922.7: -1919 -1920 -1921 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 33 -1922 > Region: NW ----- ^ -1923 Location: 1000631 -1924 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1923.6-1923.7: -1920 -1921 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 33 -1922 Region: NW -1923 > Location: 1000631 ----- ^ -1924 Invoice# Date Order# Line# Item# TX Qty Cost -1925 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1924.6-1924.7: -1921 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 33 -1922 Region: NW -1923 Location: 1000631 -1924 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1925 -------------------------------------------------------------------------------------------------------------------------------- -1926 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1925.7-1925.11: -1922 Region: NW -1923 Location: 1000631 -1924 Invoice# Date Order# Line# Item# TX Qty Cost -1925 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1926 -1927 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1928.6-1928.7: -1925 -------------------------------------------------------------------------------------------------------------------------------- -1926 -1927 -1928 > IN150207 20150207 OR150206 031 ITEM_NUMBER_49 00000015 49.99 ----- ^ -1929 Invoice Total: 000000015 49.99 -1930 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:1931.6-1931.7: -1928 IN150207 20150207 OR150206 031 ITEM_NUMBER_49 00000015 49.99 -1929 Invoice Total: 000000015 49.99 -1930 -1931 > IN150214 20150214 OR150210 054 ITEM_NUMBER_40 00000042 49.99 ----- ^ -1932 Invoice Total: 000000042 49.99 -1933 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:1934.6-1934.7: -1931 IN150214 20150214 OR150210 054 ITEM_NUMBER_40 00000042 49.99 -1932 Invoice Total: 000000042 49.99 -1933 -1934 > IN150224 20150224 OR150218 024 ITEM_NUMBER_84 00000033 89.99 ----- ^ -1935 Invoice Total: 000000033 89.99 -1936 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:1982.6-1982.7: -1979 -1980 -1981 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 34 -1982 > Region: NW ----- ^ -1983 Location: 1000651 -1984 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:1983.6-1983.7: -1980 -1981 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 34 -1982 Region: NW -1983 > Location: 1000651 ----- ^ -1984 Invoice# Date Order# Line# Item# TX Qty Cost -1985 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:1984.6-1984.7: -1981 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 34 -1982 Region: NW -1983 Location: 1000651 -1984 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -1985 -------------------------------------------------------------------------------------------------------------------------------- -1986 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:1985.7-1985.11: -1982 Region: NW -1983 Location: 1000651 -1984 Invoice# Date Order# Line# Item# TX Qty Cost -1985 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -1986 -1987 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:1988.6-1988.7: -1985 -------------------------------------------------------------------------------------------------------------------------------- -1986 -1987 -1988 > IN150206 20150206 OR150225 099 ITEM_NUMBER_57 00000043 59.99 ----- ^ -1989 Invoice Total: 000000043 59.99 -1990 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2042.6-2042.7: -2039 -2040 -2041 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 35 -2042 > Region: NW ----- ^ -2043 Location: 1000671 -2044 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2043.6-2043.7: -2040 -2041 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 35 -2042 Region: NW -2043 > Location: 1000671 ----- ^ -2044 Invoice# Date Order# Line# Item# TX Qty Cost -2045 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2044.6-2044.7: -2041 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 35 -2042 Region: NW -2043 Location: 1000671 -2044 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2045 -------------------------------------------------------------------------------------------------------------------------------- -2046 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2045.7-2045.11: -2042 Region: NW -2043 Location: 1000671 -2044 Invoice# Date Order# Line# Item# TX Qty Cost -2045 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2046 -2047 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2048.6-2048.7: -2045 -------------------------------------------------------------------------------------------------------------------------------- -2046 -2047 -2048 > IN150213 20150213 OR150224 041 ITEM_NUMBER_22 00000002 29.99 ----- ^ -2049 Invoice Total: 000000002 29.99 -2050 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:2102.6-2102.7: -2099 -2100 -2101 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 36 -2102 > Region: NW ----- ^ -2103 Location: 1000691 -2104 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2103.6-2103.7: -2100 -2101 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 36 -2102 Region: NW -2103 > Location: 1000691 ----- ^ -2104 Invoice# Date Order# Line# Item# TX Qty Cost -2105 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2104.6-2104.7: -2101 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 36 -2102 Region: NW -2103 Location: 1000691 -2104 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2105 -------------------------------------------------------------------------------------------------------------------------------- -2106 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2105.7-2105.11: -2102 Region: NW -2103 Location: 1000691 -2104 Invoice# Date Order# Line# Item# TX Qty Cost -2105 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2106 -2107 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2108.6-2108.7: -2105 -------------------------------------------------------------------------------------------------------------------------------- -2106 -2107 -2108 > IN150204 20150204 OR150211 092 ITEM_NUMBER_13 00000094 19.99 ----- ^ -2109 Invoice Total: 000000094 19.99 -2110 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2162.6-2162.7: -2159 -2160 -2161 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 37 -2162 > Region: NW ----- ^ -2163 Location: 1000811 -2164 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2163.6-2163.7: -2160 -2161 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 37 -2162 Region: NW -2163 > Location: 1000811 ----- ^ -2164 Invoice# Date Order# Line# Item# TX Qty Cost -2165 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2164.6-2164.7: -2161 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 37 -2162 Region: NW -2163 Location: 1000811 -2164 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2165 -------------------------------------------------------------------------------------------------------------------------------- -2166 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2165.7-2165.11: -2162 Region: NW -2163 Location: 1000811 -2164 Invoice# Date Order# Line# Item# TX Qty Cost -2165 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2166 -2167 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2168.6-2168.7: -2165 -------------------------------------------------------------------------------------------------------------------------------- -2166 -2167 -2168 > IN150227 20150227 OR150217 081 ITEM_NUMBER_45 00000016 49.99 ----- ^ -2169 Invoice Total: 000000016 49.99 -2170 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:2222.6-2222.7: -2219 -2220 -2221 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 38 -2222 > Region: NW ----- ^ -2223 Location: 1000851 -2224 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2223.6-2223.7: -2220 -2221 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 38 -2222 Region: NW -2223 > Location: 1000851 ----- ^ -2224 Invoice# Date Order# Line# Item# TX Qty Cost -2225 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2224.6-2224.7: -2221 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 38 -2222 Region: NW -2223 Location: 1000851 -2224 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2225 -------------------------------------------------------------------------------------------------------------------------------- -2226 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2225.7-2225.11: -2222 Region: NW -2223 Location: 1000851 -2224 Invoice# Date Order# Line# Item# TX Qty Cost -2225 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2226 -2227 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2228.6-2228.7: -2225 -------------------------------------------------------------------------------------------------------------------------------- -2226 -2227 -2228 > IN150208 20150208 OR150203 091 ITEM_NUMBER_63 00000066 69.99 ----- ^ -2229 Invoice Total: 000000066 69.99 -2230 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2282.6-2282.7: -2279 -2280 -2281 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 39 -2282 > Region: NW ----- ^ -2283 Location: 1000871 -2284 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2283.6-2283.7: -2280 -2281 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 39 -2282 Region: NW -2283 > Location: 1000871 ----- ^ -2284 Invoice# Date Order# Line# Item# TX Qty Cost -2285 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2284.6-2284.7: -2281 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 39 -2282 Region: NW -2283 Location: 1000871 -2284 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2285 -------------------------------------------------------------------------------------------------------------------------------- -2286 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2285.7-2285.11: -2282 Region: NW -2283 Location: 1000871 -2284 Invoice# Date Order# Line# Item# TX Qty Cost -2285 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2286 -2287 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2288.6-2288.7: -2285 -------------------------------------------------------------------------------------------------------------------------------- -2286 -2287 -2288 > IN150218 20150218 OR150209 082 ITEM_NUMBER_30 00000055 39.99 ----- ^ -2289 Invoice Total: 000000055 39.99 -2290 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:2291.6-2291.7: -2288 IN150218 20150218 OR150209 082 ITEM_NUMBER_30 00000055 39.99 -2289 Invoice Total: 000000055 39.99 -2290 -2291 > IN150228 20150228 OR150222 015 ITEM_NUMBER_73 00000051 79.99 ----- ^ -2292 Invoice Total: 000000051 79.99 -2293 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:2342.6-2342.7: -2339 -2340 -2341 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 40 -2342 > Region: NW ----- ^ -2343 Location: 1000891 -2344 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2343.6-2343.7: -2340 -2341 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 40 -2342 Region: NW -2343 > Location: 1000891 ----- ^ -2344 Invoice# Date Order# Line# Item# TX Qty Cost -2345 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2344.6-2344.7: -2341 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 40 -2342 Region: NW -2343 Location: 1000891 -2344 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2345 -------------------------------------------------------------------------------------------------------------------------------- -2346 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2345.7-2345.11: -2342 Region: NW -2343 Location: 1000891 -2344 Invoice# Date Order# Line# Item# TX Qty Cost -2345 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2346 -2347 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2348.6-2348.7: -2345 -------------------------------------------------------------------------------------------------------------------------------- -2346 -2347 -2348 > IN150225 20150225 OR150201 026 ITEM_NUMBER_80 00000047 89.99 ----- ^ -2349 Invoice Total: 000000047 89.99 -2350 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:2402.6-2402.7: -2399 -2400 -2401 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 41 -2402 > Region: SE ----- ^ -2403 Location: 1000001 -2404 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2403.6-2403.7: -2400 -2401 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 41 -2402 Region: SE -2403 > Location: 1000001 ----- ^ -2404 Invoice# Date Order# Line# Item# TX Qty Cost -2405 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2404.6-2404.7: -2401 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 41 -2402 Region: SE -2403 Location: 1000001 -2404 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2405 -------------------------------------------------------------------------------------------------------------------------------- -2406 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2405.7-2405.11: -2402 Region: SE -2403 Location: 1000001 -2404 Invoice# Date Order# Line# Item# TX Qty Cost -2405 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2406 -2407 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2408.6-2408.7: -2405 -------------------------------------------------------------------------------------------------------------------------------- -2406 -2407 -2408 > IN150223 20150223 OR150203 064 ITEM_NUMBER_03 00000071 9.99 ----- ^ -2409 Invoice Total: 000000071 9.99 -2410 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:2462.6-2462.7: -2459 -2460 -2461 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 42 -2462 > Region: SE ----- ^ -2463 Location: 1000011 -2464 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2463.6-2463.7: -2460 -2461 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 42 -2462 Region: SE -2463 > Location: 1000011 ----- ^ -2464 Invoice# Date Order# Line# Item# TX Qty Cost -2465 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2464.6-2464.7: -2461 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 42 -2462 Region: SE -2463 Location: 1000011 -2464 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2465 -------------------------------------------------------------------------------------------------------------------------------- -2466 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2465.7-2465.11: -2462 Region: SE -2463 Location: 1000011 -2464 Invoice# Date Order# Line# Item# TX Qty Cost -2465 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2466 -2467 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2468.6-2468.7: -2465 -------------------------------------------------------------------------------------------------------------------------------- -2466 -2467 -2468 > IN150201 20150201 OR150213 017 ITEM_NUMBER_09 00000006 9.99 ----- ^ -2469 Invoice Total: 000000006 9.99 -2470 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2471.6-2471.7: -2468 IN150201 20150201 OR150213 017 ITEM_NUMBER_09 00000006 9.99 -2469 Invoice Total: 000000006 9.99 -2470 -2471 > IN150212 20150212 OR150209 066 ITEM_NUMBER_06 00000040 9.99 ----- ^ -2472 Invoice Total: 000000040 9.99 -2473 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:2522.6-2522.7: -2519 -2520 -2521 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 43 -2522 > Region: SE ----- ^ -2523 Location: 1000091 -2524 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2523.6-2523.7: -2520 -2521 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 43 -2522 Region: SE -2523 > Location: 1000091 ----- ^ -2524 Invoice# Date Order# Line# Item# TX Qty Cost -2525 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2524.6-2524.7: -2521 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 43 -2522 Region: SE -2523 Location: 1000091 -2524 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2525 -------------------------------------------------------------------------------------------------------------------------------- -2526 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2525.7-2525.11: -2522 Region: SE -2523 Location: 1000091 -2524 Invoice# Date Order# Line# Item# TX Qty Cost -2525 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2526 -2527 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2528.6-2528.7: -2525 -------------------------------------------------------------------------------------------------------------------------------- -2526 -2527 -2528 > IN150204 20150204 OR150201 001 ITEM_NUMBER_68 00000019 69.99 ----- ^ -2529 Invoice Total: 000000019 69.99 -2530 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2531.6-2531.7: -2528 IN150204 20150204 OR150201 001 ITEM_NUMBER_68 00000019 69.99 -2529 Invoice Total: 000000019 69.99 -2530 -2531 > IN150210 20150210 OR150223 084 ITEM_NUMBER_11 00000093 19.99 ----- ^ -2532 Invoice Total: 000000093 19.99 -2533 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:2534.6-2534.7: -2531 IN150210 20150210 OR150223 084 ITEM_NUMBER_11 00000093 19.99 -2532 Invoice Total: 000000093 19.99 -2533 -2534 > IN150226 20150226 OR150219 038 ITEM_NUMBER_97 00000037 99.99 ----- ^ -2535 Invoice Total: 000000037 99.99 -2536 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:2582.6-2582.7: -2579 -2580 -2581 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 44 -2582 > Region: SE ----- ^ -2583 Location: 1000211 -2584 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2583.6-2583.7: -2580 -2581 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 44 -2582 Region: SE -2583 > Location: 1000211 ----- ^ -2584 Invoice# Date Order# Line# Item# TX Qty Cost -2585 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2584.6-2584.7: -2581 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 44 -2582 Region: SE -2583 Location: 1000211 -2584 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2585 -------------------------------------------------------------------------------------------------------------------------------- -2586 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2585.7-2585.11: -2582 Region: SE -2583 Location: 1000211 -2584 Invoice# Date Order# Line# Item# TX Qty Cost -2585 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2586 -2587 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2588.6-2588.7: -2585 -------------------------------------------------------------------------------------------------------------------------------- -2586 -2587 -2588 > IN150206 20150206 OR150221 089 ITEM_NUMBER_05 00000045 9.99 ----- ^ -2589 Invoice Total: 000000045 9.99 -2590 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2642.6-2642.7: -2639 -2640 -2641 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 45 -2642 > Region: SE ----- ^ -2643 Location: 1000411 -2644 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2643.6-2643.7: -2640 -2641 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 45 -2642 Region: SE -2643 > Location: 1000411 ----- ^ -2644 Invoice# Date Order# Line# Item# TX Qty Cost -2645 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2644.6-2644.7: -2641 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 45 -2642 Region: SE -2643 Location: 1000411 -2644 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2645 -------------------------------------------------------------------------------------------------------------------------------- -2646 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2645.7-2645.11: -2642 Region: SE -2643 Location: 1000411 -2644 Invoice# Date Order# Line# Item# TX Qty Cost -2645 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2646 -2647 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2648.6-2648.7: -2645 -------------------------------------------------------------------------------------------------------------------------------- -2646 -2647 -2648 > IN150212 20150212 OR150208 012 ITEM_NUMBER_46 00000023 49.99 ----- ^ -2649 Invoice Total: 000000023 49.99 -2650 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:2702.6-2702.7: -2699 -2700 -2701 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 46 -2702 > Region: SE ----- ^ -2703 Location: 1000431 -2704 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2703.6-2703.7: -2700 -2701 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 46 -2702 Region: SE -2703 > Location: 1000431 ----- ^ -2704 Invoice# Date Order# Line# Item# TX Qty Cost -2705 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2704.6-2704.7: -2701 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 46 -2702 Region: SE -2703 Location: 1000431 -2704 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2705 -------------------------------------------------------------------------------------------------------------------------------- -2706 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2705.7-2705.11: -2702 Region: SE -2703 Location: 1000431 -2704 Invoice# Date Order# Line# Item# TX Qty Cost -2705 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2706 -2707 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2708.6-2708.7: -2705 -------------------------------------------------------------------------------------------------------------------------------- -2706 -2707 -2708 > IN150207 20150207 OR150214 072 ITEM_NUMBER_25 00000046 29.99 ----- ^ -2709 Invoice Total: 000000046 29.99 -2710 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2711.6-2711.7: -2708 IN150207 20150207 OR150214 072 ITEM_NUMBER_25 00000046 29.99 -2709 Invoice Total: 000000046 29.99 -2710 -2711 > IN150225 20150225 OR150220 040 ITEM_NUMBER_01 00000061 9.99 ----- ^ -2712 Invoice Total: 000000061 9.99 -2713 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:2762.6-2762.7: -2759 -2760 -2761 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 47 -2762 > Region: SE ----- ^ -2763 Location: 1000451 -2764 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2763.6-2763.7: -2760 -2761 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 47 -2762 Region: SE -2763 > Location: 1000451 ----- ^ -2764 Invoice# Date Order# Line# Item# TX Qty Cost -2765 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2764.6-2764.7: -2761 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 47 -2762 Region: SE -2763 Location: 1000451 -2764 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2765 -------------------------------------------------------------------------------------------------------------------------------- -2766 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2765.7-2765.11: -2762 Region: SE -2763 Location: 1000451 -2764 Invoice# Date Order# Line# Item# TX Qty Cost -2765 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2766 -2767 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2768.6-2768.7: -2765 -------------------------------------------------------------------------------------------------------------------------------- -2766 -2767 -2768 > IN150214 20150214 OR150204 022 ITEM_NUMBER_34 00000047 39.99 ----- ^ -2769 Invoice Total: 000000047 39.99 -2770 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:2822.6-2822.7: -2819 -2820 -2821 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 48 -2822 > Region: SE ----- ^ -2823 Location: 1000471 -2824 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2823.6-2823.7: -2820 -2821 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 48 -2822 Region: SE -2823 > Location: 1000471 ----- ^ -2824 Invoice# Date Order# Line# Item# TX Qty Cost -2825 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2824.6-2824.7: -2821 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 48 -2822 Region: SE -2823 Location: 1000471 -2824 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2825 -------------------------------------------------------------------------------------------------------------------------------- -2826 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2825.7-2825.11: -2822 Region: SE -2823 Location: 1000471 -2824 Invoice# Date Order# Line# Item# TX Qty Cost -2825 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2826 -2827 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2828.6-2828.7: -2825 -------------------------------------------------------------------------------------------------------------------------------- -2826 -2827 -2828 > IN150203 20150203 OR150217 010 ITEM_NUMBER_25 00000034 29.99 ----- ^ -2829 Invoice Total: 000000034 29.99 -2830 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2831.6-2831.7: -2828 IN150203 20150203 OR150217 010 ITEM_NUMBER_25 00000034 29.99 -2829 Invoice Total: 000000034 29.99 -2830 -2831 > IN150211 20150211 OR150213 025 ITEM_NUMBER_54 00000092 59.99 ----- ^ -2832 Invoice Total: 000000092 59.99 -2833 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:2882.6-2882.7: -2879 -2880 -2881 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 49 -2882 > Region: SE ----- ^ -2883 Location: 1000491 -2884 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2883.6-2883.7: -2880 -2881 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 49 -2882 Region: SE -2883 > Location: 1000491 ----- ^ -2884 Invoice# Date Order# Line# Item# TX Qty Cost -2885 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2884.6-2884.7: -2881 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 49 -2882 Region: SE -2883 Location: 1000491 -2884 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2885 -------------------------------------------------------------------------------------------------------------------------------- -2886 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2885.7-2885.11: -2882 Region: SE -2883 Location: 1000491 -2884 Invoice# Date Order# Line# Item# TX Qty Cost -2885 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2886 -2887 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2888.6-2888.7: -2885 -------------------------------------------------------------------------------------------------------------------------------- -2886 -2887 -2888 > IN150202 20150202 OR150202 013 ITEM_NUMBER_19 00000078 19.99 ----- ^ -2889 Invoice Total: 000000078 19.99 -2890 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2942.6-2942.7: -2939 -2940 -2941 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 50 -2942 > Region: SE ----- ^ -2943 Location: 1000601 -2944 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:2943.6-2943.7: -2940 -2941 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 50 -2942 Region: SE -2943 > Location: 1000601 ----- ^ -2944 Invoice# Date Order# Line# Item# TX Qty Cost -2945 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:2944.6-2944.7: -2941 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 50 -2942 Region: SE -2943 Location: 1000601 -2944 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -2945 -------------------------------------------------------------------------------------------------------------------------------- -2946 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:2945.7-2945.11: -2942 Region: SE -2943 Location: 1000601 -2944 Invoice# Date Order# Line# Item# TX Qty Cost -2945 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -2946 -2947 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:2948.6-2948.7: -2945 -------------------------------------------------------------------------------------------------------------------------------- -2946 -2947 -2948 > IN150224 20150224 OR150210 039 ITEM_NUMBER_19 00000056 19.99 ----- ^ -2949 Invoice Total: 000000056 19.99 -2950 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3002.6-3002.7: -2999 -3000 -3001 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 51 -3002 > Region: SE ----- ^ -3003 Location: 1000631 -3004 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3003.6-3003.7: -3000 -3001 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 51 -3002 Region: SE -3003 > Location: 1000631 ----- ^ -3004 Invoice# Date Order# Line# Item# TX Qty Cost -3005 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3004.6-3004.7: -3001 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 51 -3002 Region: SE -3003 Location: 1000631 -3004 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3005 -------------------------------------------------------------------------------------------------------------------------------- -3006 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3005.7-3005.11: -3002 Region: SE -3003 Location: 1000631 -3004 Invoice# Date Order# Line# Item# TX Qty Cost -3005 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3006 -3007 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3008.6-3008.7: -3005 -------------------------------------------------------------------------------------------------------------------------------- -3006 -3007 -3008 > IN150201 20150201 OR150216 003 ITEM_NUMBER_65 00000011 69.99 ----- ^ -3009 Invoice Total: 000000011 69.99 -3010 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3062.6-3062.7: -3059 -3060 -3061 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 52 -3062 > Region: SE ----- ^ -3063 Location: 1000671 -3064 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3063.6-3063.7: -3060 -3061 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 52 -3062 Region: SE -3063 > Location: 1000671 ----- ^ -3064 Invoice# Date Order# Line# Item# TX Qty Cost -3065 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3064.6-3064.7: -3061 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 52 -3062 Region: SE -3063 Location: 1000671 -3064 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3065 -------------------------------------------------------------------------------------------------------------------------------- -3066 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3065.7-3065.11: -3062 Region: SE -3063 Location: 1000671 -3064 Invoice# Date Order# Line# Item# TX Qty Cost -3065 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3066 -3067 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3068.6-3068.7: -3065 -------------------------------------------------------------------------------------------------------------------------------- -3066 -3067 -3068 > IN150203 20150203 OR150205 071 ITEM_NUMBER_64 00000094 69.99 ----- ^ -3069 Invoice Total: 000000094 69.99 -3070 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3071.6-3071.7: -3068 IN150203 20150203 OR150205 071 ITEM_NUMBER_64 00000094 69.99 -3069 Invoice Total: 000000094 69.99 -3070 -3071 > IN150220 20150220 OR150214 032 ITEM_NUMBER_53 00000059 59.99 ----- ^ -3072 Invoice Total: 000000059 59.99 -3073 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3122.6-3122.7: -3119 -3120 -3121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 53 -3122 > Region: SE ----- ^ -3123 Location: 1000891 -3124 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3123.6-3123.7: -3120 -3121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 53 -3122 Region: SE -3123 > Location: 1000891 ----- ^ -3124 Invoice# Date Order# Line# Item# TX Qty Cost -3125 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3124.6-3124.7: -3121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 53 -3122 Region: SE -3123 Location: 1000891 -3124 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3125 -------------------------------------------------------------------------------------------------------------------------------- -3126 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3125.7-3125.11: -3122 Region: SE -3123 Location: 1000891 -3124 Invoice# Date Order# Line# Item# TX Qty Cost -3125 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3126 -3127 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3128.6-3128.7: -3125 -------------------------------------------------------------------------------------------------------------------------------- -3126 -3127 -3128 > IN150226 20150226 OR150229 068 ITEM_NUMBER_75 00000084 79.99 ----- ^ -3129 Invoice Total: 000000084 79.99 -3130 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3182.6-3182.7: -3179 -3180 -3181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 54 -3182 > Region: SW ----- ^ -3183 Location: 1000011 -3184 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3183.6-3183.7: -3180 -3181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 54 -3182 Region: SW -3183 > Location: 1000011 ----- ^ -3184 Invoice# Date Order# Line# Item# TX Qty Cost -3185 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3184.6-3184.7: -3181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 54 -3182 Region: SW -3183 Location: 1000011 -3184 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3185 -------------------------------------------------------------------------------------------------------------------------------- -3186 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3185.7-3185.11: -3182 Region: SW -3183 Location: 1000011 -3184 Invoice# Date Order# Line# Item# TX Qty Cost -3185 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3186 -3187 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3188.6-3188.7: -3185 -------------------------------------------------------------------------------------------------------------------------------- -3186 -3187 -3188 > IN150202 20150202 OR150206 000 ITEM_NUMBER_30 00000059 39.99 ----- ^ -3189 Invoice Total: 000000059 39.99 -3190 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3242.6-3242.7: -3239 -3240 -3241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 55 -3242 > Region: SW ----- ^ -3243 Location: 1000031 -3244 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3243.6-3243.7: -3240 -3241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 55 -3242 Region: SW -3243 > Location: 1000031 ----- ^ -3244 Invoice# Date Order# Line# Item# TX Qty Cost -3245 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3244.6-3244.7: -3241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 55 -3242 Region: SW -3243 Location: 1000031 -3244 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3245 -------------------------------------------------------------------------------------------------------------------------------- -3246 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3245.7-3245.11: -3242 Region: SW -3243 Location: 1000031 -3244 Invoice# Date Order# Line# Item# TX Qty Cost -3245 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3246 -3247 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3248.6-3248.7: -3245 -------------------------------------------------------------------------------------------------------------------------------- -3246 -3247 -3248 > IN150203 20150203 OR150214 033 ITEM_NUMBER_09 00000060 9.99 ----- ^ -3249 Invoice Total: 000000060 9.99 -3250 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3251.6-3251.7: -3248 IN150203 20150203 OR150214 033 ITEM_NUMBER_09 00000060 9.99 -3249 Invoice Total: 000000060 9.99 -3250 -3251 > IN150206 20150206 OR150206 021 ITEM_NUMBER_91 00000054 99.99 ----- ^ -3252 Invoice Total: 000000054 99.99 -3253 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3302.6-3302.7: -3299 -3300 -3301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 56 -3302 > Region: SW ----- ^ -3303 Location: 1000091 -3304 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3303.6-3303.7: -3300 -3301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 56 -3302 Region: SW -3303 > Location: 1000091 ----- ^ -3304 Invoice# Date Order# Line# Item# TX Qty Cost -3305 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3304.6-3304.7: -3301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 56 -3302 Region: SW -3303 Location: 1000091 -3304 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3305 -------------------------------------------------------------------------------------------------------------------------------- -3306 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3305.7-3305.11: -3302 Region: SW -3303 Location: 1000091 -3304 Invoice# Date Order# Line# Item# TX Qty Cost -3305 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3306 -3307 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3308.6-3308.7: -3305 -------------------------------------------------------------------------------------------------------------------------------- -3306 -3307 -3308 > IN150223 20150223 OR150221 028 ITEM_NUMBER_67 00000039 69.99 ----- ^ -3309 Invoice Total: 000000039 69.99 -3310 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3362.6-3362.7: -3359 -3360 -3361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 57 -3362 > Region: SW ----- ^ -3363 Location: 1000201 -3364 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3363.6-3363.7: -3360 -3361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 57 -3362 Region: SW -3363 > Location: 1000201 ----- ^ -3364 Invoice# Date Order# Line# Item# TX Qty Cost -3365 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3364.6-3364.7: -3361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 57 -3362 Region: SW -3363 Location: 1000201 -3364 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3365 -------------------------------------------------------------------------------------------------------------------------------- -3366 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3365.7-3365.11: -3362 Region: SW -3363 Location: 1000201 -3364 Invoice# Date Order# Line# Item# TX Qty Cost -3365 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3366 -3367 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3368.6-3368.7: -3365 -------------------------------------------------------------------------------------------------------------------------------- -3366 -3367 -3368 > IN150209 20150209 OR150205 065 ITEM_NUMBER_21 00000070 29.99 ----- ^ -3369 Invoice Total: 000000070 29.99 -3370 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3371.6-3371.7: -3368 IN150209 20150209 OR150205 065 ITEM_NUMBER_21 00000070 29.99 -3369 Invoice Total: 000000070 29.99 -3370 -3371 > IN150225 20150225 OR150203 052 ITEM_NUMBER_55 00000075 59.99 ----- ^ -3372 067 ITEM_NUMBER_83 00000015 89.99 -3373 Invoice Total: 000000090 149.98 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3422.6-3422.7: -3419 -3420 -3421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 58 -3422 > Region: SW ----- ^ -3423 Location: 1000211 -3424 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3423.6-3423.7: -3420 -3421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 58 -3422 Region: SW -3423 > Location: 1000211 ----- ^ -3424 Invoice# Date Order# Line# Item# TX Qty Cost -3425 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3424.6-3424.7: -3421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 58 -3422 Region: SW -3423 Location: 1000211 -3424 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3425 -------------------------------------------------------------------------------------------------------------------------------- -3426 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3425.7-3425.11: -3422 Region: SW -3423 Location: 1000211 -3424 Invoice# Date Order# Line# Item# TX Qty Cost -3425 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3426 -3427 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3428.6-3428.7: -3425 -------------------------------------------------------------------------------------------------------------------------------- -3426 -3427 -3428 > IN150202 20150202 OR150221 055 ITEM_NUMBER_16 00000013 19.99 ----- ^ -3429 Invoice Total: 000000013 19.99 -3430 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3431.6-3431.7: -3428 IN150202 20150202 OR150221 055 ITEM_NUMBER_16 00000013 19.99 -3429 Invoice Total: 000000013 19.99 -3430 -3431 > IN150208 20150208 OR150215 007 ITEM_NUMBER_97 00000089 99.99 ----- ^ -3432 Invoice Total: 000000089 99.99 -3433 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3482.6-3482.7: -3479 -3480 -3481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 59 -3482 > Region: SW ----- ^ -3483 Location: 1000271 -3484 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3483.6-3483.7: -3480 -3481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 59 -3482 Region: SW -3483 > Location: 1000271 ----- ^ -3484 Invoice# Date Order# Line# Item# TX Qty Cost -3485 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3484.6-3484.7: -3481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 59 -3482 Region: SW -3483 Location: 1000271 -3484 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3485 -------------------------------------------------------------------------------------------------------------------------------- -3486 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3485.7-3485.11: -3482 Region: SW -3483 Location: 1000271 -3484 Invoice# Date Order# Line# Item# TX Qty Cost -3485 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3486 -3487 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3488.6-3488.7: -3485 -------------------------------------------------------------------------------------------------------------------------------- -3486 -3487 -3488 > IN150211 20150211 OR150228 080 ITEM_NUMBER_45 00000052 49.99 ----- ^ -3489 Invoice Total: 000000052 49.99 -3490 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:3491.6-3491.7: -3488 IN150211 20150211 OR150228 080 ITEM_NUMBER_45 00000052 49.99 -3489 Invoice Total: 000000052 49.99 -3490 -3491 > IN150213 20150213 OR150207 095 ITEM_NUMBER_09 00000054 9.99 ----- ^ -3492 Invoice Total: 000000054 9.99 -3493 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:3542.6-3542.7: -3539 -3540 -3541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 60 -3542 > Region: SW ----- ^ -3543 Location: 1000401 -3544 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3543.6-3543.7: -3540 -3541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 60 -3542 Region: SW -3543 > Location: 1000401 ----- ^ -3544 Invoice# Date Order# Line# Item# TX Qty Cost -3545 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3544.6-3544.7: -3541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 60 -3542 Region: SW -3543 Location: 1000401 -3544 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3545 -------------------------------------------------------------------------------------------------------------------------------- -3546 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3545.7-3545.11: -3542 Region: SW -3543 Location: 1000401 -3544 Invoice# Date Order# Line# Item# TX Qty Cost -3545 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3546 -3547 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3548.6-3548.7: -3545 -------------------------------------------------------------------------------------------------------------------------------- -3546 -3547 -3548 > IN150228 20150228 OR150202 027 ITEM_NUMBER_83 00000001 89.99 ----- ^ -3549 Invoice Total: 000000001 89.99 -3550 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3602.6-3602.7: -3599 -3600 -3601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 61 -3602 > Region: SW ----- ^ -3603 Location: 1000411 -3604 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3603.6-3603.7: -3600 -3601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 61 -3602 Region: SW -3603 > Location: 1000411 ----- ^ -3604 Invoice# Date Order# Line# Item# TX Qty Cost -3605 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3604.6-3604.7: -3601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 61 -3602 Region: SW -3603 Location: 1000411 -3604 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3605 -------------------------------------------------------------------------------------------------------------------------------- -3606 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3605.7-3605.11: -3602 Region: SW -3603 Location: 1000411 -3604 Invoice# Date Order# Line# Item# TX Qty Cost -3605 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3606 -3607 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3608.6-3608.7: -3605 -------------------------------------------------------------------------------------------------------------------------------- -3606 -3607 -3608 > IN150210 20150210 OR150220 073 ITEM_NUMBER_63 00000014 69.99 ----- ^ -3609 Invoice Total: 000000014 69.99 -3610 ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9078-reference:3662.6-3662.7: -3659 -3660 -3661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 62 -3662 > Region: SW ----- ^ -3663 Location: 1000431 -3664 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3663.6-3663.7: -3660 -3661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 62 -3662 Region: SW -3663 > Location: 1000431 ----- ^ -3664 Invoice# Date Order# Line# Item# TX Qty Cost -3665 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3664.6-3664.7: -3661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 62 -3662 Region: SW -3663 Location: 1000431 -3664 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3665 -------------------------------------------------------------------------------------------------------------------------------- -3666 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3665.7-3665.11: -3662 Region: SW -3663 Location: 1000431 -3664 Invoice# Date Order# Line# Item# TX Qty Cost -3665 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3666 -3667 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3668.6-3668.7: -3665 -------------------------------------------------------------------------------------------------------------------------------- -3666 -3667 -3668 > IN150208 20150208 OR150227 078 ITEM_NUMBER_23 00000052 29.99 ----- ^ -3669 Invoice Total: 000000052 29.99 -3670 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3671.6-3671.7: -3668 IN150208 20150208 OR150227 078 ITEM_NUMBER_23 00000052 29.99 -3669 Invoice Total: 000000052 29.99 -3670 -3671 > IN150220 20150220 OR150227 006 ITEM_NUMBER_50 00000085 59.99 ----- ^ -3672 Invoice Total: 000000085 59.99 -3673 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3722.6-3722.7: -3719 -3720 -3721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 63 -3722 > Region: SW ----- ^ -3723 Location: 1000601 -3724 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3723.6-3723.7: -3720 -3721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 63 -3722 Region: SW -3723 > Location: 1000601 ----- ^ -3724 Invoice# Date Order# Line# Item# TX Qty Cost -3725 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3724.6-3724.7: -3721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 63 -3722 Region: SW -3723 Location: 1000601 -3724 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3725 -------------------------------------------------------------------------------------------------------------------------------- -3726 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3725.7-3725.11: -3722 Region: SW -3723 Location: 1000601 -3724 Invoice# Date Order# Line# Item# TX Qty Cost -3725 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3726 -3727 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3728.6-3728.7: -3725 -------------------------------------------------------------------------------------------------------------------------------- -3726 -3727 -3728 > IN150206 20150206 OR150201 011 ITEM_NUMBER_73 00000084 79.99 ----- ^ -3729 Invoice Total: 000000084 79.99 -3730 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3782.6-3782.7: -3779 -3780 -3781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 64 -3782 > Region: SW ----- ^ -3783 Location: 1000611 -3784 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3783.6-3783.7: -3780 -3781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 64 -3782 Region: SW -3783 > Location: 1000611 ----- ^ -3784 Invoice# Date Order# Line# Item# TX Qty Cost -3785 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3784.6-3784.7: -3781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 64 -3782 Region: SW -3783 Location: 1000611 -3784 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3785 -------------------------------------------------------------------------------------------------------------------------------- -3786 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3785.7-3785.11: -3782 Region: SW -3783 Location: 1000611 -3784 Invoice# Date Order# Line# Item# TX Qty Cost -3785 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3786 -3787 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3788.6-3788.7: -3785 -------------------------------------------------------------------------------------------------------------------------------- -3786 -3787 -3788 > IN150206 20150206 OR150218 019 ITEM_NUMBER_67 00000061 69.99 ----- ^ -3789 Invoice Total: 000000061 69.99 -3790 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3842.6-3842.7: -3839 -3840 -3841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 65 -3842 > Region: SW ----- ^ -3843 Location: 1000651 -3844 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3843.6-3843.7: -3840 -3841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 65 -3842 Region: SW -3843 > Location: 1000651 ----- ^ -3844 Invoice# Date Order# Line# Item# TX Qty Cost -3845 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3844.6-3844.7: -3841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 65 -3842 Region: SW -3843 Location: 1000651 -3844 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3845 -------------------------------------------------------------------------------------------------------------------------------- -3846 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3845.7-3845.11: -3842 Region: SW -3843 Location: 1000651 -3844 Invoice# Date Order# Line# Item# TX Qty Cost -3845 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3846 -3847 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3848.6-3848.7: -3845 -------------------------------------------------------------------------------------------------------------------------------- -3846 -3847 -3848 > IN150209 20150209 OR150224 009 ITEM_NUMBER_23 00000018 29.99 ----- ^ -3849 Invoice Total: 000000018 29.99 -3850 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3902.6-3902.7: -3899 -3900 -3901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 66 -3902 > Region: SW ----- ^ -3903 Location: 1000831 -3904 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3903.6-3903.7: -3900 -3901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 66 -3902 Region: SW -3903 > Location: 1000831 ----- ^ -3904 Invoice# Date Order# Line# Item# TX Qty Cost -3905 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3904.6-3904.7: -3901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 66 -3902 Region: SW -3903 Location: 1000831 -3904 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3905 -------------------------------------------------------------------------------------------------------------------------------- -3906 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3905.7-3905.11: -3902 Region: SW -3903 Location: 1000831 -3904 Invoice# Date Order# Line# Item# TX Qty Cost -3905 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3906 -3907 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3908.6-3908.7: -3905 -------------------------------------------------------------------------------------------------------------------------------- -3906 -3907 -3908 > IN150201 20150201 OR150221 046 ITEM_NUMBER_44 00000069 49.99 ----- ^ -3909 Invoice Total: 000000069 49.99 -3910 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:3911.6-3911.7: -3908 IN150201 20150201 OR150221 046 ITEM_NUMBER_44 00000069 49.99 -3909 Invoice Total: 000000069 49.99 -3910 -3911 > IN150220 20150220 OR150213 005 ITEM_NUMBER_44 00000037 49.99 ----- ^ -3912 Invoice Total: 000000037 49.99 -3913 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3914.6-3914.7: -3911 IN150220 20150220 OR150213 005 ITEM_NUMBER_44 00000037 49.99 -3912 Invoice Total: 000000037 49.99 -3913 -3914 > IN150222 20150222 OR150213 058 ITEM_NUMBER_86 00000083 89.99 ----- ^ -3915 Invoice Total: 000000083 89.99 -3916 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9078-reference:3962.6-3962.7: -3959 -3960 -3961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 67 -3962 > Region: SW ----- ^ -3963 Location: 1000871 -3964 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Unexpected indicator: `:' - -run_reportwriter.at-9078-reference:3963.6-3963.7: -3960 -3961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 67 -3962 Region: SW -3963 > Location: 1000871 ----- ^ -3964 Invoice# Date Order# Line# Item# TX Qty Cost -3965 -------------------------------------------------------------------------------------------------------------------------------- ->> Error: Unexpected indicator: `o' - -run_reportwriter.at-9078-reference:3964.6-3964.7: -3961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 67 -3962 Region: SW -3963 Location: 1000871 -3964 > Invoice# Date Order# Line# Item# TX Qty Cost ----- ^ -3965 -------------------------------------------------------------------------------------------------------------------------------- -3966 ->> Error: Unexpected indicator: `e' - -run_reportwriter.at-9078-reference:3965.7-3965.11: -3962 Region: SW -3963 Location: 1000871 -3964 Invoice# Date Order# Line# Item# TX Qty Cost -3965 > -------------------------------------------------------------------------------------------------------------------------------- ----- ^^^^ -3966 -3967 ->> Warning: Unexpected non-blank area A on continuation line - -run_reportwriter.at-9078-reference:3968.6-3968.7: -3965 -------------------------------------------------------------------------------------------------------------------------------- -3966 -3967 -3968 > IN150202 20150202 OR150216 016 ITEM_NUMBER_62 00000083 69.99 ----- ^ -3969 Invoice Total: 000000083 69.99 -3970 ->> Error: Unexpected indicator: `0' - -run_reportwriter.at-9078-reference:2.11-2.13: - 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 - 2 > Region: MW ----- ^^ - 3 Location: 1000051 - 4 Invoice# Date Order# Line# Item# TX Qty Cost ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9267:0 -run_reportwriter.at-9267-inp_data:1.6-1.7: - 1 > SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 ----- ^ - 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 - 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 ->> Error: Unexpected indicator: `H' - -run_reportwriter.at-9267-inp_data:2.6-2.7: - 1 SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 - 2 > UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 ----- ^ - 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 - 4 AJIT PATIL 30/03/201610503086 20 00000500 00000400 ->> Error: Unexpected indicator: `R' - -run_reportwriter.at-9267-inp_data:4.6-4.7: - 1 SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 - 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 - 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 - 4 > AJIT PATIL 30/03/201610503086 20 00000500 00000400 ----- ^ - 5 VINOD KAMBLE 30/03/201615487558 20 00100000 00000500 - 6 SACHIN TENDUNLKAR 30/03/201614645425 20 00500000 00000600 ->> Error: Unexpected indicator: `A' - -run_reportwriter.at-9267-inp_data:5.6-5.7: - 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 - 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 - 4 AJIT PATIL 30/03/201610503086 20 00000500 00000400 - 5 > VINOD KAMBLE 30/03/201615487558 20 00100000 00000500 ----- ^ - 6 SACHIN TENDUNLKAR 30/03/201614645425 20 00500000 00000600 ->> Error: Unexpected indicator: `K' - -run_reportwriter.at-9267-inp_data:1.8-1.15: - 1 > SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 ----- ^^^^^^^ - 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 - 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9265:0 -run_reportwriter.at-9265-prog.cob:8.38-8.46: - 5 INPUT-OUTPUT SECTION. - 6 FILE-CONTROL. - 7 - 8 > SELECT IN-FILE ASSIGN TO EXTERNAL INFILE ----- ^^^^^^^^ - 9 LINE SEQUENTIAL - 10 FILE STATUS IS WS-INPUT-STATUS. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-9265-prog.cob:12.38-12.46: - 9 LINE SEQUENTIAL - 10 FILE STATUS IS WS-INPUT-STATUS. - 11 - 12 > SELECT OUT-FILE ASSIGN TO EXTERNAL OREPORT ----- ^^^^^^^^ - 13 LINE SEQUENTIAL - 14 FILE STATUS IS WS-OUTPUT-STATUS. ->> Warning: Ignored EXTERNAL (implementation pending) - -run_reportwriter.at-9265-prog.cob:21.11-21.20: - 18 FILE SECTION. - 19 - 20 FD IN-FILE - 21 > RECORDING MODE IS F ----- ^^^^^^^^^ - 22 BLOCK 0. - 23 ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:33.11-33.20: - 30 05 FILLER PIC X(34). - 31 - 32 FD OUT-FILE - 33 > RECORDING MODE IS F ----- ^^^^^^^^^ - 34 REPORT IS REPORT1. - 35 ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:66.17: - 63 - 64 REPORT SECTION. - 65 - 66 > RD REPORT1 ----- ^ - 67 PAGE LIMIT IS 65 LINES - 68 LINE LIMIT 132 ->> Hint: Missing . - -run_reportwriter.at-9265-prog.cob:67.10-67.14: - 64 REPORT SECTION. - 65 - 66 RD REPORT1 - 67 > PAGE LIMIT IS 65 LINES ----- ^^^^ - 68 LINE LIMIT 132 - 69 HEADING 1 ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:67.32: - 64 REPORT SECTION. - 65 - 66 RD REPORT1 - 67 > PAGE LIMIT IS 65 LINES ----- ^ - 68 LINE LIMIT 132 - 69 HEADING 1 ->> Hint: Missing ARE - -run_reportwriter.at-9265-prog.cob:68.10-68.14: - 65 - 66 RD REPORT1 - 67 PAGE LIMIT IS 65 LINES - 68 > LINE LIMIT 132 ----- ^^^^ - 69 HEADING 1 - 70 CONTROL ARE WS-SALARY. ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:68.15-68.20: - 65 - 66 RD REPORT1 - 67 PAGE LIMIT IS 65 LINES - 68 > LINE LIMIT 132 ----- ^^^^^ - 69 HEADING 1 - 70 CONTROL ARE WS-SALARY. ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:69.10-69.17: - 66 RD REPORT1 - 67 PAGE LIMIT IS 65 LINES - 68 LINE LIMIT 132 - 69 > HEADING 1 ----- ^^^^^^^ - 70 CONTROL ARE WS-SALARY. - 71 ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:70.10-70.17: - 67 PAGE LIMIT IS 65 LINES - 68 LINE LIMIT 132 - 69 HEADING 1 - 70 > CONTROL ARE WS-SALARY. ----- ^^^^^^^ - 71 - 72 01 MAIN-HEADER TYPE IS PAGE HEADING. ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:72.30: - 69 HEADING 1 - 70 CONTROL ARE WS-SALARY. - 71 - 72 > 01 MAIN-HEADER TYPE IS PAGE HEADING. ----- ^ - 73 05 LINE 1. - 74 10 COLUMN CENTER 45 PIC X(35) VALUE ->> Hint: Missing DETAIL - -run_reportwriter.at-9265-prog.cob:72.31-72.35: - 69 HEADING 1 - 70 CONTROL ARE WS-SALARY. - 71 - 72 > 01 MAIN-HEADER TYPE IS PAGE HEADING. ----- ^^^^ - 73 05 LINE 1. - 74 10 COLUMN CENTER 45 PIC X(35) VALUE ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:88.32: - 85 10 COLUMN 35 PIC 99 SOURCE WS-MI. - 86 - 87 01 TYPE IS CONTROL HEADING - 88 > FOR WS-SALARY OR PAGE. ----- ^ - 89 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. - 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. ->> Hint: Missing PAGE - -run_reportwriter.at-9265-prog.cob:88.33-88.37: - 85 10 COLUMN 35 PIC 99 SOURCE WS-MI. - 86 - 87 01 TYPE IS CONTROL HEADING - 88 > FOR WS-SALARY OR PAGE. ----- ^^^^ - 89 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. - 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:89.33: - 86 - 87 01 TYPE IS CONTROL HEADING - 88 FOR WS-SALARY OR PAGE. - 89 > 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. ----- ^ - 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. - 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. ->> Hint: Missing WHEN - -run_reportwriter.at-9265-prog.cob:89.34-89.39: - 86 - 87 01 TYPE IS CONTROL HEADING - 88 FOR WS-SALARY OR PAGE. - 89 > 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. ----- ^^^^^ - 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. - 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. ->> Error: Invalid syntax - -run_reportwriter.at-9265-prog.cob:94.33: - 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. - 92 10 COLUMN 60 PIC X(13) VALUE 'BILLING DAYS'. - 93 10 COLUMN 80 PIC X(15) VALUE 'SALARY CREDITED'. - 94 > 05 LINE PLUS 1 PRESENT AFTER NEW WS-SALARY. ----- ^ - 95 10 COLUMN 2 PIC X(100) VALUE ALL '+'. - 96 ->> Hint: Missing WHEN - -run_reportwriter.at-9265-prog.cob:94.34-94.39: - 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. - 92 10 COLUMN 60 PIC X(13) VALUE 'BILLING DAYS'. - 93 10 COLUMN 80 PIC X(15) VALUE 'SALARY CREDITED'. - 94 > 05 LINE PLUS 1 PRESENT AFTER NEW WS-SALARY. ----- ^^^^^ - 95 10 COLUMN 2 PIC X(100) VALUE ALL '+'. - 96 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9340:0 -run_reportwriter.at-9340-reference:3.6-3.7: - 1 STARK TECHNOLOGIES MONTHLY REPORT - 2 -------------------------------------------------- - 3 > REPORT PERIOD: 2016/04/22 10:55 ----- ^ - 4 - 5 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-9340-reference:5.6-5.7: - 2 -------------------------------------------------- - 3 REPORT PERIOD: 2016/04/22 10:55 - 4 - 5 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ----- ^ - 6 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 7 SAINATH KOTGIRE 11029473 20 100000 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-9340-reference:6.6-6.7: - 3 REPORT PERIOD: 2016/04/22 10:55 - 4 - 5 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 6 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ----- ^ - 7 SAINATH KOTGIRE 11029473 20 100000 - 8 UDAY PRATIVADI 04547552 20 100000 ->> Error: Unexpected indicator: `+' - -run_reportwriter.at-9340-reference:7.6-7.7: - 4 - 5 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 6 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 7 > SAINATH KOTGIRE 11029473 20 100000 ----- ^ - 8 UDAY PRATIVADI 04547552 20 100000 - 9 MILIND PARDESHI 11256856 20 100000 ->> Error: Unexpected indicator: `A' - -run_reportwriter.at-9340-reference:9.6-9.7: - 6 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 7 SAINATH KOTGIRE 11029473 20 100000 - 8 UDAY PRATIVADI 04547552 20 100000 - 9 > MILIND PARDESHI 11256856 20 100000 ----- ^ - 10 - 11 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ->> Error: Unexpected indicator: `I' - -run_reportwriter.at-9340-reference:11.6-11.7: - 8 UDAY PRATIVADI 04547552 20 100000 - 9 MILIND PARDESHI 11256856 20 100000 - 10 - 11 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ----- ^ - 12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 13 AJIT PATIL 10503086 20 500 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-9340-reference:12.6-12.7: - 9 MILIND PARDESHI 11256856 20 100000 - 10 - 11 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 12 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ----- ^ - 13 AJIT PATIL 10503086 20 500 - 14 ->> Error: Unexpected indicator: `+' - -run_reportwriter.at-9340-reference:13.6-13.7: - 10 - 11 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 13 > AJIT PATIL 10503086 20 500 ----- ^ - 14 - 15 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ->> Error: Unexpected indicator: `J' - -run_reportwriter.at-9340-reference:15.6-15.7: - 12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 13 AJIT PATIL 10503086 20 500 - 14 - 15 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ----- ^ - 16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 17 VINOD KAMBLE 15487558 20 100000 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-9340-reference:16.6-16.7: - 13 AJIT PATIL 10503086 20 500 - 14 - 15 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 16 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ----- ^ - 17 VINOD KAMBLE 15487558 20 100000 - 18 ->> Error: Unexpected indicator: `+' - -run_reportwriter.at-9340-reference:17.6-17.7: - 14 - 15 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 17 > VINOD KAMBLE 15487558 20 100000 ----- ^ - 18 - 19 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ->> Error: Unexpected indicator: `I' - -run_reportwriter.at-9340-reference:19.6-19.7: - 16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 17 VINOD KAMBLE 15487558 20 100000 - 18 - 19 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED ----- ^ - 20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 21 SACHIN TENDUNLKAR 14645425 20 500000 ->> Error: Unexpected indicator: `M' - -run_reportwriter.at-9340-reference:20.6-20.7: - 17 VINOD KAMBLE 15487558 20 100000 - 18 - 19 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 20 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ----- ^ - 21 SACHIN TENDUNLKAR 14645425 20 500000 - 22 ->> Error: Unexpected indicator: `+' - -run_reportwriter.at-9340-reference:21.6-21.7: - 18 - 19 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED - 20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 21 > SACHIN TENDUNLKAR 14645425 20 500000 ----- ^ - 22 - 23 **************************************************************************************************** ->> Error: Unexpected indicator: `A' - -run_reportwriter.at-9340-reference:1.27-1.32: - 1 > STARK TECHNOLOGIES MONTHLY REPORT ----- ^^^^^ - 2 -------------------------------------------------- - 3 REPORT PERIOD: 2016/04/22 10:55 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9469:0 -run_reportwriter.at-9469-prog.cob:32.19-32.27: - 29 - 30 REPORT SECTION. - 31 RD RP - 32 > CODE IS "VarQ: " ----- ^^^^^^^^ - 33 PAGE LIMIT 10 LINES - 34 60 COLUMNS ->> Error: Invalid syntax - -run_reportwriter.at-9469-prog.cob:33.15: - 30 REPORT SECTION. - 31 RD RP - 32 CODE IS "VarQ: " - 33 > PAGE LIMIT 10 LINES ----- ^ - 34 60 COLUMNS - 35 HEADING 1 ->> Hint: Missing . - -run_reportwriter.at-9469-prog.cob:33.16-33.21: - 30 REPORT SECTION. - 31 RD RP - 32 CODE IS "VarQ: " - 33 > PAGE LIMIT 10 LINES ----- ^^^^^ - 34 60 COLUMNS - 35 HEADING 1 ->> Warning: Invalid syntax - -run_reportwriter.at-9469-prog.cob:33.30: - 30 REPORT SECTION. - 31 RD RP - 32 CODE IS "VarQ: " - 33 > PAGE LIMIT 10 LINES ----- ^ - 34 60 COLUMNS - 35 HEADING 1 ->> Hint: Missing ARE - -run_reportwriter.at-9469-prog.cob:34.22-34.24: - 31 RD RP - 32 CODE IS "VarQ: " - 33 PAGE LIMIT 10 LINES - 34 > 60 COLUMNS ----- ^^ - 35 HEADING 1 - 36 FIRST DETAIL 4. ->> Error: Invalid syntax - -run_reportwriter.at-9469-prog.cob:35.11-35.18: - 32 CODE IS "VarQ: " - 33 PAGE LIMIT 10 LINES - 34 60 COLUMNS - 35 > HEADING 1 ----- ^^^^^^^ - 36 FIRST DETAIL 4. - 37 01 HEADING-LINE. ->> Error: Invalid syntax - -run_reportwriter.at-9469-prog.cob:36.11-36.16: - 33 PAGE LIMIT 10 LINES - 34 60 COLUMNS - 35 HEADING 1 - 36 > FIRST DETAIL 4. ----- ^^^^^ - 37 01 HEADING-LINE. - 38 02 TYPE PAGE HEADING LINE PLUS 1. ->> Error: Invalid syntax - -run_reportwriter.at-9469-prog.cob:38.18: - 35 HEADING 1 - 36 FIRST DETAIL 4. - 37 01 HEADING-LINE. - 38 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 39 05 COLUMN 1 PIC X(50) VALUE - 40 "H 1 2 3 4 5". ->> Hint: Missing DETAIL - -run_reportwriter.at-9469-prog.cob:38.19-38.23: - 35 HEADING 1 - 36 FIRST DETAIL 4. - 37 01 HEADING-LINE. - 38 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 39 05 COLUMN 1 PIC X(50) VALUE - 40 "H 1 2 3 4 5". ->> Error: Invalid syntax - -run_reportwriter.at-9469-prog.cob:43.18: - 40 "H 1 2 3 4 5". - 41 05 PIC X(7) VALUE " Page". - 42 05 PIC ZZ9 SOURCE PAGE-COUNTER. - 43 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^ - 44 * 05 COLUMN 1 PIC X(50) VALUE - 45 * "12345678901234567890123456789012345678901234567890". ->> Hint: Missing DETAIL - -run_reportwriter.at-9469-prog.cob:43.19-43.23: - 40 "H 1 2 3 4 5". - 41 05 PIC X(7) VALUE " Page". - 42 05 PIC ZZ9 SOURCE PAGE-COUNTER. - 43 > 02 TYPE PAGE HEADING LINE PLUS 1. ----- ^^^^ - 44 * 05 COLUMN 1 PIC X(50) VALUE - 45 * "12345678901234567890123456789012345678901234567890". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9514:0 -run_reportwriter.at-9514-reference:1.6-1.7: - 1 > VarQ: H 1 2 3 4 5 Page 1 ----- ^ - 2 VarQ: 123456789b123456789c123456789d123456789e123456789f - 3 VarQ: ->> Error: Unexpected indicator: `H' - -run_reportwriter.at-9514-reference:2.6-2.7: - 1 VarQ: H 1 2 3 4 5 Page 1 - 2 > VarQ: 123456789b123456789c123456789d123456789e123456789f ----- ^ - 3 VarQ: - 4 VarQ: 100 100 100 <1> ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9514-reference:4.6-4.7: - 1 VarQ: H 1 2 3 4 5 Page 1 - 2 VarQ: 123456789b123456789c123456789d123456789e123456789f - 3 VarQ: - 4 > VarQ: 100 100 100 <1> ----- ^ - 5 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 6 VarQ: 200 200 200 200 <3> ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9514-reference:5.6-5.7: - 2 VarQ: 123456789b123456789c123456789d123456789e123456789f - 3 VarQ: - 4 VarQ: 100 100 100 <1> - 5 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> ----- ^ - 6 VarQ: 200 200 200 200 <3> - 7 VarQ: 400 401 402 403 <4> ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-9514-reference:6.6-6.7: - 3 VarQ: - 4 VarQ: 100 100 100 <1> - 5 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 6 > VarQ: 200 200 200 200 <3> ----- ^ - 7 VarQ: 400 401 402 403 <4> - 8 VarQ: ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9514-reference:7.6-7.7: - 4 VarQ: 100 100 100 <1> - 5 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 6 VarQ: 200 200 200 200 <3> - 7 > VarQ: 400 401 402 403 <4> ----- ^ - 8 VarQ: - 9 VarQ: <1> ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-9514-reference:10.6-10.7: - 7 VarQ: 400 401 402 403 <4> - 8 VarQ: - 9 VarQ: <1> - 10 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> ----- ^ - 11 VarQ: H 1 2 3 4 5 Page 2 - 12 VarQ: 123456789b123456789c123456789d123456789e123456789f ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-9514-reference:11.6-11.7: - 8 VarQ: - 9 VarQ: <1> - 10 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 11 > VarQ: H 1 2 3 4 5 Page 2 ----- ^ - 12 VarQ: 123456789b123456789c123456789d123456789e123456789f - 13 VarQ: ->> Error: Unexpected indicator: `H' - -run_reportwriter.at-9514-reference:12.6-12.7: - 9 VarQ: <1> - 10 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 11 VarQ: H 1 2 3 4 5 Page 2 - 12 > VarQ: 123456789b123456789c123456789d123456789e123456789f ----- ^ - 13 VarQ: - 14 VarQ: 200 200 200 200 <3> ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9514-reference:14.6-14.7: - 11 VarQ: H 1 2 3 4 5 Page 2 - 12 VarQ: 123456789b123456789c123456789d123456789e123456789f - 13 VarQ: - 14 > VarQ: 200 200 200 200 <3> ----- ^ - 15 VarQ: 400 401 402 403 <4> - 16 VarQ: ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9514-reference:15.6-15.7: - 12 VarQ: 123456789b123456789c123456789d123456789e123456789f - 13 VarQ: - 14 VarQ: 200 200 200 200 <3> - 15 > VarQ: 400 401 402 403 <4> ----- ^ - 16 VarQ: - 17 VarQ: <1> ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-9514-reference:18.6-18.7: - 15 VarQ: 400 401 402 403 <4> - 16 VarQ: - 17 VarQ: <1> - 18 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> ----- ^ - 19 VarQ: 200 200 200 200 <3> - 20 VarQ: 400 401 402 403 <4> ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-9514-reference:19.6-19.7: - 16 VarQ: - 17 VarQ: <1> - 18 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 19 > VarQ: 200 200 200 200 <3> ----- ^ - 20 VarQ: 400 401 402 403 <4> - 21 VarQ: H 1 2 3 4 5 Page 3 ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9514-reference:20.6-20.7: - 17 VarQ: <1> - 18 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 19 VarQ: 200 200 200 200 <3> - 20 > VarQ: 400 401 402 403 <4> ----- ^ - 21 VarQ: H 1 2 3 4 5 Page 3 - 22 VarQ: 123456789b123456789c123456789d123456789e123456789f ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-9514-reference:21.6-21.7: - 18 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 19 VarQ: 200 200 200 200 <3> - 20 VarQ: 400 401 402 403 <4> - 21 > VarQ: H 1 2 3 4 5 Page 3 ----- ^ - 22 VarQ: 123456789b123456789c123456789d123456789e123456789f - 23 VarQ: ->> Error: Unexpected indicator: `H' - -run_reportwriter.at-9514-reference:22.6-22.7: - 19 VarQ: 200 200 200 200 <3> - 20 VarQ: 400 401 402 403 <4> - 21 VarQ: H 1 2 3 4 5 Page 3 - 22 > VarQ: 123456789b123456789c123456789d123456789e123456789f ----- ^ - 23 VarQ: - 24 VarQ: <1> ->> Error: Unexpected indicator: `1' - -run_reportwriter.at-9514-reference:25.6-25.7: - 22 VarQ: 123456789b123456789c123456789d123456789e123456789f - 23 VarQ: - 24 VarQ: <1> - 25 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> ----- ^ - 26 VarQ: 200 200 200 200 <3> - 27 VarQ: 400 401 402 403 <4> ->> Error: Unexpected indicator: `T' - -run_reportwriter.at-9514-reference:26.6-26.7: - 23 VarQ: - 24 VarQ: <1> - 25 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 26 > VarQ: 200 200 200 200 <3> ----- ^ - 27 VarQ: 400 401 402 403 <4> - 28 VarQ: ->> Error: Unexpected indicator: `2' - -run_reportwriter.at-9514-reference:27.6-27.7: - 24 VarQ: <1> - 25 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> - 26 VarQ: 200 200 200 200 <3> - 27 > VarQ: 400 401 402 403 <4> ----- ^ - 28 VarQ: - 29 VarQ: ->> Error: Unexpected indicator: `4' - -run_reportwriter.at-9514-reference:1.15-1.16: - 1 > VarQ: H 1 2 3 4 5 Page 1 ----- ^ - 2 VarQ: 123456789b123456789c123456789d123456789e123456789f - 3 VarQ: ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9617:0 -run_reportwriter.at-9617-prog.cob:32.19: - 29 - 30 RD REPORT-1 - 31 CONTROLS ARE FINAL - 32 > PAGE LIMIT IS 21 ----- ^ - 33 LINE LIMIT IS 71 - 34 FIRST DETAIL IS 08 ->> Hint: Missing . - -run_reportwriter.at-9617-prog.cob:32.24-32.29: - 29 - 30 RD REPORT-1 - 31 CONTROLS ARE FINAL - 32 > PAGE LIMIT IS 21 ----- ^^^^^ - 33 LINE LIMIT IS 71 - 34 FIRST DETAIL IS 08 ->> Warning: Invalid syntax - -run_reportwriter.at-9617-prog.cob:33.24-33.29: - 30 RD REPORT-1 - 31 CONTROLS ARE FINAL - 32 PAGE LIMIT IS 21 - 33 > LINE LIMIT IS 71 ----- ^^^^^ - 34 FIRST DETAIL IS 08 - 35 LAST DETAIL IS 18 ->> Error: Invalid syntax - -run_reportwriter.at-9617-prog.cob:34.15-34.20: - 31 CONTROLS ARE FINAL - 32 PAGE LIMIT IS 21 - 33 LINE LIMIT IS 71 - 34 > FIRST DETAIL IS 08 ----- ^^^^^ - 35 LAST DETAIL IS 18 - 36 FOOTING IS 20 ->> Error: Invalid syntax - -run_reportwriter.at-9617-prog.cob:35.15-35.19: - 32 PAGE LIMIT IS 21 - 33 LINE LIMIT IS 71 - 34 FIRST DETAIL IS 08 - 35 > LAST DETAIL IS 18 ----- ^^^^ - 36 FOOTING IS 20 - 37 . ->> Error: Invalid syntax - -run_reportwriter.at-9617-prog.cob:36.15-36.22: - 33 LINE LIMIT IS 71 - 34 FIRST DETAIL IS 08 - 35 LAST DETAIL IS 18 - 36 > FOOTING IS 20 ----- ^^^^^^^ - 37 . - 38 *>--------------------------------------------------------------- ->> Error: Invalid syntax - -run_reportwriter.at-9617-prog.cob:40.19: - 37 . - 38 *>--------------------------------------------------------------- - 39 01 PAGE-HEADING - 40 > TYPE PAGE HEADING. ----- ^ - 41 02 LINE 01. - 42 03 COLUMN 1 VALUE "PAGE HEADING". ->> Hint: Missing DETAIL - -run_reportwriter.at-9617-prog.cob:40.20-40.24: - 37 . - 38 *>--------------------------------------------------------------- - 39 01 PAGE-HEADING - 40 > TYPE PAGE HEADING. ----- ^^^^ - 41 02 LINE 01. - 42 03 COLUMN 1 VALUE "PAGE HEADING". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:44:0 -Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:94:0 -Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:95:0 -Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:96:0 -Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:133:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:43:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:62:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:93:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:113:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:139:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:167:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:202:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:236:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:292:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:342:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:379:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:416:0 -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:493:0 -run_subscripts.at-493-prog.cob:2.7-2.16: - 1 - 2 > $SET BOUND ----- ^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:494:0 -run_subscripts.at-494-progn.cob:2.7-2.18: - 1 - 2 > $SET NOBOUND ----- ^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. progn. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:495:0 -run_subscripts.at-495-progn2.cob:2.7-2.19: - 1 - 2 > $SET NO-BOUND ----- ^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. progn2. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:532:0 -run_subscripts.at-532-prog.cob:13.7-13.20: - 10 01 idx PIC 99 VALUE 6. - 11 - 12 PROCEDURE DIVISION. - 13 > $SET NOSSRANGE ----- ^^^^^^^^^^^^^ - 14 DISPLAY y (idx) - 15 *> Note: MF says "sets BOUND" ->> Error: Unexpected characters - -run_subscripts.at-532-prog.cob:16.7-16.18: - 13 $SET NOSSRANGE - 14 DISPLAY y (idx) - 15 *> Note: MF says "sets BOUND" - 16 > $SET SSRANGE ----- ^^^^^^^^^^^ - 17 DISPLAY y (idx) - 18 . ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:581:0 -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:112:0 -syn_copy.at-112-prog.cob:6.7-6.30: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" IN SUB. ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `copy.inc' not found in search path (search path: SUB) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:113:0 -syn_copy.at-113-prog2.cob:6.7-6.30: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" OF SUB. ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `copy.inc' not found in search path (search path: SUB) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:114:0 -syn_copy.at-114-prog3.cob:6.7-6.31: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" IN sub2. ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `copy.inc' not found in search path (search path: SUB2) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:115:0 -syn_copy.at-115-prog4.cob:6.7-6.23: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc". ----- ^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:119:0 -syn_copy.at-119-prog5.cob:6.7-6.30: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" IN CBD. ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `copy.inc' not found in search path (search path: CBD) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:164:0 -Fatal: syn_copy.at-164-SUB/prog.cob: No such file or directory -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:247:0 -syn_copy.at-247-prog.cob:6.7-6.23: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc". ----- ^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:248:0 -syn_copy.at-248-prog2.cob:6.7-6.19: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy". ----- ^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `copy' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:249:0 -syn_copy.at-249-prog3.cob:6.7-6.29: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "sub.inc" OF SUB. ----- ^^^^^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `sub.inc' not found in search path (search path: SUB) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:250:0 -syn_copy.at-250-prog4.cob:6.7-6.25: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "sub" OF SUB. ----- ^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `sub' not found in search path (search path: SUB) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:251:0 -syn_copy.at-251-prog5.cob:6.7-6.26: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "sub" OF "..". ----- ^^^^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `sub' not found in search path (search path: ..) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:252:0 -syn_copy.at-252-prog6.cob:6.7-6.18: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "sub". ----- ^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR. ->> Error: Library `sub' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:280:0 -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:281:0 -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:403:0 -syn_copy.at-403-prog.cob:6.7-8.53: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING ==TEST-VAR== BY ==FIRST-MATCH== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > ==TEST-VAR== BY ==SECOND-MATCH==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY FIRST-MATCH NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:432:0 -syn_copy.at-432-prog.cob:6.7-10.55: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING ==TEST-VAR==, BY ==FIRST-MATCH==, ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > , ==TEST-VAR==; BY ==SECOND-MATCH==; ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > ; ==TEST-VAR== , BY ==THIRD-MATCH== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > ==TEST-VAR== ; BY ==FOURTH-MATCH==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 PROCEDURE DIVISION. - 12 DISPLAY FIRST-MATCH NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:462:0 -syn_copy.at-462-prog.cob:6.7-8.44: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING ==:TEST:== BY ==COLON== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > ==(TEST)== BY ==PAREN==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY COLON-VAR NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:492:0 -syn_copy.at-492-prog.cob:6.7-8.53: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING LEADING ==TEST== BY ==FIRST== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > LEADING ==NORM== BY ==SECOND==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY FIRST-VAR NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:522:0 -syn_copy.at-522-prog.cob:6.7-8.54: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING TRAILING ==FIRST== BY ==VAR1== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > TRAILING ==SECOND== BY ==VAR2==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY TEST-VAR1 NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:569:0 -syn_copy.at-569-prog.cob:9.37-9.39: - 6 COPY "copy.inc" - 7 REPLACING LEADING "TEST" BY "FIRST" - 8 LEADING "NORM" BY "SECOND" - 9 > LEADING "X" BY "". ----- ^^ - 10 COPY "copy2.inc" - 11 REPLACING TRAILING "FIRST" BY "VAR1" ->> Warning: partial replacing with literal source operands is obsolete in default - -syn_copy.at-569-prog.cob:6.7-9.40: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 7 > REPLACING LEADING "TEST" BY "FIRST" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > LEADING "NORM" BY "SECOND" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > LEADING "X" BY "". ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 COPY "copy2.inc" - 11 REPLACING TRAILING "FIRST" BY "VAR1" ->> Error: Library `copy.inc' not found in search path (search path: ) - -syn_copy.at-569-prog.cob:13.38-13.40: - 10 COPY "copy2.inc" - 11 REPLACING TRAILING "FIRST" BY "VAR1" - 12 TRAILING "SECND" BY "VAR2" - 13 > TRAILING "Y" BY "". ----- ^^ - 14 PROCEDURE DIVISION. - 15 DISPLAY FIRST-VAR NO ADVANCING END-DISPLAY. ->> Warning: partial replacing with literal source operands is obsolete in default - -syn_copy.at-569-prog.cob:10.7-13.41: - 7 REPLACING LEADING "TEST" BY "FIRST" - 8 LEADING "NORM" BY "SECOND" - 9 LEADING "X" BY "". - 10 > COPY "copy2.inc" ----- ^^^^^^^^^^^^^^^^ - 11 > REPLACING TRAILING "FIRST" BY "VAR1" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > TRAILING "SECND" BY "VAR2" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 > TRAILING "Y" BY "". ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 PROCEDURE DIVISION. - 15 DISPLAY FIRST-VAR NO ADVANCING END-DISPLAY. ->> Error: Library `copy2.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:654:0 -syn_copy.at-654-prog.cob:6.7-7.50: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy-1.inc" ----- ^^^^^^^^^^^^^^^^^ - 7 > REPLACING ==TEST-VAR== BY ==COPY-VAR==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 PROCEDURE DIVISION. - 9 DISPLAY COPY-VAR NO ADVANCING ->> Error: Library `copy-1.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:680:0 -syn_copy.at-680-prog.cob:6.2-6.18: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > COPY "copy.inc". ----- ^^^^^^^^^^^^^^^^ - 7 PROCEDURE DIVISION. - 8 DISPLAY TEST-VAR NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:703:0 -syn_copy.at-703-prog.cob:4.36-4.42: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > REPLACE LEADING "PREFIX-" BY SPACES ----- ^^^^^^ - 5 TRAILING "-SUFFIX" BY SPACE. - 6 DATA DIVISION. ->> Error: Malformed REPLACE statement - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:709:0 -syn_copy.at-709-prog2.cob:2.45-2.51: - 1 - 2 > COPY prog REPLACING LEADING "VAR1" BY SPACES. ----- ^^^^^^ ->> Error: Malformed COPY statement - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:761:0 -syn_copy.at-761-prog.cob:7.7-8.46: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy.inc" REPLACING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > == 02 TEST-EE == BY == 02 TEST-FF ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 main. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:799:0 -syn_copy.at-799-prog.cob:7.7-12.57: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > == 02 TEST-OK == BY == 02 TEST-KO == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > ==TEST-CC== BY ==TEST-DD== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > == 02 TEST-EE == BY == 02 TEST-FF == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > == PIC == BY == pic ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 PROCEDURE DIVISION. - 14 main. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:879:0 -syn_copy.at-879-prog.cob:7.7-13.62: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^^ - 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > == 02 TEST-OK == BY == 02 TEST-KO == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > == TEST-CC == BY == TEST-DD == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > == 02 TEST-EE == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > BY == 02 TEST-FF == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 > == PIC == BY == pic ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 PROCEDURE DIVISION. - 15 main. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:918:0 -syn_copy.at-918-prog.cob:7.7-12.55: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 GET-VALUE. - 7 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > == 02 TEST-OK == BY == 02 TEST-KO == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > ==TEST-CC== BY ==TEST-DD== ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > == 02 TEST-EE == BY == 02 TEST-FF == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 > == PIC == BY == pic ==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 13 PROCEDURE DIVISION. - 14 main. ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:949:0 -syn_copy.at-949-prog.cob:7.7-8.44: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 REPLACE ==VAR-COLON== BY ==VAR-COMMA==. - 7 > COPY "copy.inc" ----- ^^^^^^^^^^^^^^^ - 8 > REPLACING ==:TEST:== BY ==COLON==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY VAR-COLON NO ADVANCING ->> Error: Library `copy.inc' not found in search path (search path: ) - -Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:1072:0 -syn_copy.at-1072-prog.cob:8.30-8.32: - 5 WORKING-STORAGE SECTION. - 6 01 INPUT-REC. - 7 COPY "copy.inc" - 8 > REPLACING 'POST' BY IN. ----- ^^ - 9 PROCEDURE DIVISION. - 10 DISPLAY WS-IN IN-A IN-WS NO ADVANCING. ->> Error: Malformed COPY statement - -syn_copy.at-1072-prog.cob:12.7-14.49: - 9 PROCEDURE DIVISION. - 10 DISPLAY WS-IN IN-A IN-WS NO ADVANCING. - 11 IF WS-IN EQUALS IN-A - 12 > COPY "proc.inc" ----- ^^^^^^^^^^^^^^^ - 13 > REPLACING VAR BY IN-A IN INPUT-REC ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 14 > ==VAR-2== BY ==IN-WS (1:1)==. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 15 END-IF. - 16 STOP RUN. ->> Error: Library `proc.inc' not found in search path (search path: ) - -syn_copy.at-1072-prog.cob:15.11-15.17: - 12 COPY "proc.inc" - 13 REPLACING VAR BY IN-A IN INPUT-REC - 14 ==VAR-2== BY ==IN-WS (1:1)==. - 15 > END-IF. ----- ^^^^^^ - 16 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:60:0 -syn_definition.at-60-SHORT2.cob:3.18: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "_short". ----- ^ - 4 PROCEDURE DIVISION. - 5 STOP RUN. ->> Hint: Missing - -syn_definition.at-60-SHORT2.cob:3.24-3.32: - 1 - 2 IDENTIFICATION DIVISION. - 3 > PROGRAM-ID. "_short". ----- ^^^^^^^^ - 4 PROCEDURE DIVISION. - 5 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:145:0 -syn_definition.at-145-containing-prog.cob:8.42-8.48: - 5 PROCEDURE DIVISION. - 6 - 7 IDENTIFICATION DIVISION. - 8 > PROGRAM-ID. prog-1 IS INITIAL COMMON. ----- ^^^^^^ - 9 PROCEDURE DIVISION. - 10 STOP RUN. ->> Error: Invalid syntax - -syn_definition.at-145-containing-prog.cob:14.44-14.50: - 11 END PROGRAM prog-1. - 12 - 13 IDENTIFICATION DIVISION. - 14 > PROGRAM-ID. prog-2 IS RECURSIVE COMMON. ----- ^^^^^^ - 15 PROCEDURE DIVISION. - 16 STOP RUN. ->> Error: Invalid syntax - -syn_definition.at-145-containing-prog.cob:17.31: - 14 PROGRAM-ID. prog-2 IS RECURSIVE COMMON. - 15 PROCEDURE DIVISION. - 16 STOP RUN. - 17 > END PROGRAM prog-2. ----- ^ ->> Hint: Missing END PROGRAM . - -syn_definition.at-145-containing-prog.cob:18.0: - 15 PROCEDURE DIVISION. - 16 STOP RUN. - 17 END PROGRAM prog-2. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:366:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:397:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:425:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:454:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:487:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:507:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:527:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:548:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:703:0 -syn_definition.at-703-prog.cob:4.42: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > PROCEDURE DIVISION RETURNING OMITTED. ----- ^ - 5 MOVE 42 TO RETURN-CODE - 6 GOBACK. ->> Hint: Missing - -syn_definition.at-703-prog.cob:4.43-4.50: - 1 - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 > PROCEDURE DIVISION RETURNING OMITTED. ----- ^^^^^^^ - 5 MOVE 42 TO RETURN-CODE - 6 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:806:0 -syn_definition.at-806-prog.cob:8.11-8.15: - 5 LINKAGE SECTION. - 6 01 PAR-OUT PIC 9. - 7 PROCEDURE DIVISION RETURNING PAR-OUT. - 8 > MOVE 4 TO PAR-OUT ----- ^^^^ - 9 GOBACK. - 10 END FUNCTION func. ->> Error: Invalid syntax - -syn_definition.at-806-prog.cob:8.17: - 5 LINKAGE SECTION. - 6 01 PAR-OUT PIC 9. - 7 PROCEDURE DIVISION RETURNING PAR-OUT. - 8 > MOVE 4 TO PAR-OUT ----- ^ - 9 GOBACK. - 10 END FUNCTION func. ->> Hint: Missing . - -syn_definition.at-806-prog.cob:8.18-8.20: - 5 LINKAGE SECTION. - 6 01 PAR-OUT PIC 9. - 7 PROCEDURE DIVISION RETURNING PAR-OUT. - 8 > MOVE 4 TO PAR-OUT ----- ^^ - 9 GOBACK. - 10 END FUNCTION func. ->> Warning: Invalid syntax - -syn_definition.at-806-prog.cob:8.28: - 5 LINKAGE SECTION. - 6 01 PAR-OUT PIC 9. - 7 PROCEDURE DIVISION RETURNING PAR-OUT. - 8 > MOVE 4 TO PAR-OUT ----- ^ - 9 GOBACK. - 10 END FUNCTION func. ->> Hint: Missing . - -syn_definition.at-806-prog.cob:9.11-9.17: - 6 01 PAR-OUT PIC 9. - 7 PROCEDURE DIVISION RETURNING PAR-OUT. - 8 MOVE 4 TO PAR-OUT - 9 > GOBACK. ----- ^^^^^^ - 10 END FUNCTION func. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:847:0 -syn_definition.at-847-prog.cob:7.46: - 4 DATA DIVISION. - 5 LINKAGE SECTION. - 6 01 ret PIC 99. - 7 > PROCEDURE DIVISION RETURNING ret. ----- ^ - 8 CONTINUE - 9 . ->> Hint: Missing END FUNCTION - -syn_definition.at-847-prog.cob:8.11-8.19: - 5 LINKAGE SECTION. - 6 01 ret PIC 99. - 7 PROCEDURE DIVISION RETURNING ret. - 8 > CONTINUE ----- ^^^^^^^^ - 9 . - 10 END FUNCTION x. ->> Error: Invalid syntax - -syn_definition.at-847-prog.cob:10.7-10.10: - 7 PROCEDURE DIVISION RETURNING ret. - 8 CONTINUE - 9 . - 10 > END FUNCTION x. ----- ^^^ - 11 - 12 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:950:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:975:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1101:0 -syn_definition.at-1101-prog.cob:15.19: - 12 move 0 to word - 13 perform word - 14 * - 15 > stop run returning word. ----- ^ - 16 *----------------------------------------------------------------- - 17 word section. ->> Hint: Missing . - -syn_definition.at-1101-prog.cob:15.20-15.29: - 12 move 0 to word - 13 perform word - 14 * - 15 > stop run returning word. ----- ^^^^^^^^^ - 16 *----------------------------------------------------------------- - 17 word section. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1118:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1180:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1205:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1227:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1264:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 -syn_definition.at-1323-prog1.cob:5.24-5.33: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog1. - 4 PROCEDURE DIVISION. - 5 > EXIT PROGRAM RETURNING -1. ----- ^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 -syn_definition.at-1323-prog2.cob:5.17: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog2. - 4 PROCEDURE DIVISION. - 5 > GOBACK GIVING 2. ----- ^ ->> Hint: Missing . - -syn_definition.at-1323-prog2.cob:5.18-5.24: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog2. - 4 PROCEDURE DIVISION. - 5 > GOBACK GIVING 2. ----- ^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 -syn_definition.at-1323-prog3.cob:5.19: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog3. - 4 PROCEDURE DIVISION. - 5 > STOP RUN GIVING 0. ----- ^ ->> Hint: Missing . - -syn_definition.at-1323-prog3.cob:5.20-5.26: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog3. - 4 PROCEDURE DIVISION. - 5 > STOP RUN GIVING 0. ----- ^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1462:0 -syn_definition.at-1462-prog.cob:13.24: - 10 IDENTIFICATION DIVISION. - 11 PROGRAM-ID. prog-3. - 12 - 13 > END PROGRAM prog. ----- ^ ->> Hint: Missing END PROGRAM . END PROGRAM . - -syn_definition.at-1462-prog.cob:14.0: - 11 PROGRAM-ID. prog-3. - 12 - 13 END PROGRAM prog. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1497:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1845:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2043:0 -syn_definition.at-2043-prog3.cob:12.38: - 9 ALPHABET-2. - 10 SPECIAL-NAMES. - 11 ALPHABET ALPHABET-1 IS - 12 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^ - 13 ALPHABET ALPHABET-2 - 14 n'A' also n'B' ALSO n'f', ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:12.38-12.42: - 9 ALPHABET-2. - 10 SPECIAL-NAMES. - 11 ALPHABET ALPHABET-1 IS - 12 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^^^^ - 13 ALPHABET ALPHABET-2 - 14 n'A' also n'B' ALSO n'f', ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:12.49: - 9 ALPHABET-2. - 10 SPECIAL-NAMES. - 11 ALPHABET ALPHABET-1 IS - 12 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^ - 13 ALPHABET ALPHABET-2 - 14 n'A' also n'B' ALSO n'f', ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:12.49-12.53: - 9 ALPHABET-2. - 10 SPECIAL-NAMES. - 11 ALPHABET ALPHABET-1 IS - 12 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^^^^ - 13 ALPHABET ALPHABET-2 - 14 n'A' also n'B' ALSO n'f', ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:13.11-13.19: - 10 SPECIAL-NAMES. - 11 ALPHABET ALPHABET-1 IS - 12 'A' THROUGH 'Z', x'00' thru x'05'. - 13 > ALPHABET ALPHABET-2 ----- ^^^^^^^^ - 14 n'A' also n'B' ALSO n'f', - 15 n'g' also n'G', n'1' thru n'9'. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:28.38: - 25 ALPHABET-2. - 26 SPECIAL-NAMES. - 27 ALPHABET ALPHABET-1 IS - 28 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^ - 29 ALPHABET ALPHABET-2 IS - 30 n'A' ALSO n'f', ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:28.38-28.42: - 25 ALPHABET-2. - 26 SPECIAL-NAMES. - 27 ALPHABET ALPHABET-1 IS - 28 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^^^^ - 29 ALPHABET ALPHABET-2 IS - 30 n'A' ALSO n'f', ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:28.49: - 25 ALPHABET-2. - 26 SPECIAL-NAMES. - 27 ALPHABET ALPHABET-1 IS - 28 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^ - 29 ALPHABET ALPHABET-2 IS - 30 n'A' ALSO n'f', ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:28.49-28.53: - 25 ALPHABET-2. - 26 SPECIAL-NAMES. - 27 ALPHABET ALPHABET-1 IS - 28 > 'A' THROUGH 'Z', x'00' thru x'05'. ----- ^^^^ - 29 ALPHABET ALPHABET-2 IS - 30 n'A' ALSO n'f', ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:29.11-29.19: - 26 SPECIAL-NAMES. - 27 ALPHABET ALPHABET-1 IS - 28 'A' THROUGH 'Z', x'00' thru x'05'. - 29 > ALPHABET ALPHABET-2 IS ----- ^^^^^^^^ - 30 n'A' ALSO n'f', - 31 n'g' also n'G'. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:41.30: - 38 SOURCE-COMPUTER. GNU-LINUX. - 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 40 SPECIAL-NAMES. - 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. ----- ^ - 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. - 43 END PROGRAM prog3c. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:41.34-41.35: - 38 SOURCE-COMPUTER. GNU-LINUX. - 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 40 SPECIAL-NAMES. - 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. ----- ^ - 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. - 43 END PROGRAM prog3c. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:41.35: - 38 SOURCE-COMPUTER. GNU-LINUX. - 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 40 SPECIAL-NAMES. - 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. ----- ^ - 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. - 43 END PROGRAM prog3c. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:41.35-41.39: - 38 SOURCE-COMPUTER. GNU-LINUX. - 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 40 SPECIAL-NAMES. - 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. ----- ^^^^ - 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. - 43 END PROGRAM prog3c. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:41.46: - 38 SOURCE-COMPUTER. GNU-LINUX. - 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 40 SPECIAL-NAMES. - 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. ----- ^ - 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. - 43 END PROGRAM prog3c. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:41.46-41.50: - 38 SOURCE-COMPUTER. GNU-LINUX. - 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 40 SPECIAL-NAMES. - 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. ----- ^^^^ - 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. - 43 END PROGRAM prog3c. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:42.11-42.19: - 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 40 SPECIAL-NAMES. - 41 ALPHABET ALPHABET-1 x'00' thru x'05'. - 42 > ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. ----- ^^^^^^^^ - 43 END PROGRAM prog3c. - 44 ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:53.11-53.19: - 50 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. - 51 SPECIAL-NAMES. - 52 ALPHABET ALPHABET-1 IS 'A' THROUGH 'Z'. - 53 > ALPHABET ALPHABET-2 n'A' also n'B', n'1' thru n'9'. ----- ^^^^^^^^ - 54 END PROGRAM prog3d. - 55 ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:63.40: - 60 SOURCE-COMPUTER. GNU-LINUX. - 61 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1. - 62 SPECIAL-NAMES. - 63 > ALPHABET ALPHABET-1 IS 'Z', x'00'. ----- ^ - 64 END PROGRAM prog3e. - 65 ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:63.40-63.44: - 60 SOURCE-COMPUTER. GNU-LINUX. - 61 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1. - 62 SPECIAL-NAMES. - 63 > ALPHABET ALPHABET-1 IS 'Z', x'00'. ----- ^^^^ - 64 END PROGRAM prog3e. - 65 ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:76.38: - 73 FOR ALPHANUMERIC IS ALPHABET-1. - 74 SPECIAL-NAMES. - 75 ALPHABET ALPHABET-1 IS - 76 > 'A' THROUGH 'Z', x'00', x'05'. ----- ^ - 77 END PROGRAM prog3f. - 78 ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:76.38-76.42: - 73 FOR ALPHANUMERIC IS ALPHABET-1. - 74 SPECIAL-NAMES. - 75 ALPHABET ALPHABET-1 IS - 76 > 'A' THROUGH 'Z', x'00', x'05'. ----- ^^^^ - 77 END PROGRAM prog3f. - 78 ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:76.45: - 73 FOR ALPHANUMERIC IS ALPHABET-1. - 74 SPECIAL-NAMES. - 75 ALPHABET ALPHABET-1 IS - 76 > 'A' THROUGH 'Z', x'00', x'05'. ----- ^ - 77 END PROGRAM prog3f. - 78 ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:76.45-76.49: - 73 FOR ALPHANUMERIC IS ALPHABET-1. - 74 SPECIAL-NAMES. - 75 ALPHABET ALPHABET-1 IS - 76 > 'A' THROUGH 'Z', x'00', x'05'. ----- ^^^^ - 77 END PROGRAM prog3f. - 78 ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:85.33-85.45: - 82 CONFIGURATION SECTION. - 83 SOURCE-COMPUTER. GNU-LINUX. - 84 OBJECT-COMPUTER. GC-MACHINE, - 85 > SEQUENCE ALPHANUMERIC ALPHABET-1. ----- ^^^^^^^^^^^^ - 86 SPECIAL-NAMES. - 87 ALPHABET ALPHABET-1 IS ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:99.30-99.38: - 96 OBJECT-COMPUTER. GC-MACHINE, - 97 COLLATING SEQUENCE - 98 FOR ALPHANUMERIC IS ALPHABET-1 - 99 > NATIONAL IS ALPHABET-2. ----- ^^^^^^^^ - 100 SPECIAL-NAMES. - 101 ALPHABET ALPHABET-1 IS ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:102.31: - 99 NATIONAL IS ALPHABET-2. - 100 SPECIAL-NAMES. - 101 ALPHABET ALPHABET-1 IS - 102 > 'A', 'C', x'05'. ----- ^ - 103 ALPHABET ALPHABET-2 - 104 n'A', n'1' thru n'9'. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:102.31-102.35: - 99 NATIONAL IS ALPHABET-2. - 100 SPECIAL-NAMES. - 101 ALPHABET ALPHABET-1 IS - 102 > 'A', 'C', x'05'. ----- ^^^^ - 103 ALPHABET ALPHABET-2 - 104 n'A', n'1' thru n'9'. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:103.11-103.19: - 100 SPECIAL-NAMES. - 101 ALPHABET ALPHABET-1 IS - 102 'A', 'C', x'05'. - 103 > ALPHABET ALPHABET-2 ----- ^^^^^^^^ - 104 n'A', n'1' thru n'9'. - 105 END PROGRAM prog3h. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:114.26-114.34: - 111 SOURCE-COMPUTER. GNU-LINUX. - 112 OBJECT-COMPUTER. GC-MACHINE, - 113 COLLATING SEQUENCE - 114 > NATIONAL ALPHABET-2 ----- ^^^^^^^^ - 115 ALPHANUMERIC ALPHABET-1. - 116 SPECIAL-NAMES. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:115.26-115.38: - 112 OBJECT-COMPUTER. GC-MACHINE, - 113 COLLATING SEQUENCE - 114 NATIONAL ALPHABET-2 - 115 > ALPHANUMERIC ALPHABET-1. ----- ^^^^^^^^^^^^ - 116 SPECIAL-NAMES. - 117 ALPHABET ALPHABET-1 IS ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:119.11-119.19: - 116 SPECIAL-NAMES. - 117 ALPHABET ALPHABET-1 IS - 118 'a' THROUGH 'z'. - 119 > ALPHABET ALPHABET-2 ----- ^^^^^^^^ - 120 n'B', n'C'; n'g' also n'G'. - 121 END PROGRAM prog3i. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:130.26-130.34: - 127 SOURCE-COMPUTER. GNU-LINUX. - 128 OBJECT-COMPUTER. GC-MACHINE, - 129 COLLATING SEQUENCE - 130 > NATIONAL ALPHABET-2. ----- ^^^^^^^^ - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:132.30: - 129 COLLATING SEQUENCE - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 > ALPHABET ALPHABET-2 ----- ^ - 133 n'B', n'C'; n'g' also n'G'. - 134 END PROGRAM prog3j. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:133.20-133.21: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^ - 134 END PROGRAM prog3j. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:133.21: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^ - 134 END PROGRAM prog3j. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:133.21-133.24: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^^^ - 134 END PROGRAM prog3j. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:133.27: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^ - 134 END PROGRAM prog3j. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:133.27-133.30: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^^^ - 134 END PROGRAM prog3j. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:133.33: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^ - 134 END PROGRAM prog3j. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:133.33-133.36: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^^^ - 134 END PROGRAM prog3j. ->> Error: Invalid syntax - -syn_definition.at-2043-prog3.cob:133.43: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^ - 134 END PROGRAM prog3j. ->> Hint: Missing IS - -syn_definition.at-2043-prog3.cob:133.43-133.46: - 130 NATIONAL ALPHABET-2. - 131 SPECIAL-NAMES. - 132 ALPHABET ALPHABET-2 - 133 > n'B', n'C'; n'g' also n'G'. ----- ^^^ - 134 END PROGRAM prog3j. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2150:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2201:0 -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2373:0 -syn_definition.at-2373-prog.cob:10.28: - 7 01 SOME-VERY-LONG-TYPEDEF-NAME PIC 9999 IS TYPEDEF. - 8 01 AUSGABE-FILE-NAME-2T IS TYPEDEF. - 9 05 FILLER PIC 9999. - 10 > 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. ----- ^ - 11 * - 12 01 MESSAGE-TEXT-2T IS TYPEDEF. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:10.29-10.56: - 7 01 SOME-VERY-LONG-TYPEDEF-NAME PIC 9999 IS TYPEDEF. - 8 01 AUSGABE-FILE-NAME-2T IS TYPEDEF. - 9 05 FILLER PIC 9999. - 10 > 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 * - 12 01 MESSAGE-TEXT-2T IS TYPEDEF. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:13.39: - 10 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. - 11 * - 12 01 MESSAGE-TEXT-2T IS TYPEDEF. - 13 > 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. ----- ^ - 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. - 15 05 FILLER PIC 9999. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:13.40-13.59: - 10 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. - 11 * - 12 01 MESSAGE-TEXT-2T IS TYPEDEF. - 13 > 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. ----- ^^^^^^^^^^^^^^^^^^^ - 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. - 15 05 FILLER PIC 9999. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:16.39: - 13 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. - 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. - 15 05 FILLER PIC 9999. - 16 > 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. ----- ^ - 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. - 18 * ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:16.40-16.60: - 13 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. - 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. - 15 05 FILLER PIC 9999. - 16 > 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. ----- ^^^^^^^^^^^^^^^^^^^^ - 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. - 18 * ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:17.39: - 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. - 15 05 FILLER PIC 9999. - 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. - 17 > 02 FILLER USAGE AUSGABE-FILE-NAME-T. ----- ^ - 18 * - 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:17.40-17.59: - 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. - 15 05 FILLER PIC 9999. - 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. - 17 > 02 FILLER USAGE AUSGABE-FILE-NAME-T. ----- ^^^^^^^^^^^^^^^^^^^ - 18 * - 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:19.40: - 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. - 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. - 18 * - 19 > 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. ----- ^ - 20 - 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:19.41-19.56: - 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. - 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. - 18 * - 19 > 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. ----- ^^^^^^^^^^^^^^^ - 20 - 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:21.27: - 18 * - 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. - 20 - 21 > 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. ----- ^ - 22 - 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:21.28-21.55: - 18 * - 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. - 20 - 21 > 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 22 - 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:23.28: - 20 - 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. - 22 - 23 > 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. ----- ^ - 24 01 Z-MESSAGE-T3. - 25 49 MT3 USAGE MESSAGE-TEXT-2T. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:23.29-23.49: - 20 - 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. - 22 - 23 > 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. ----- ^^^^^^^^^^^^^^^^^^^^ - 24 01 Z-MESSAGE-T3. - 25 49 MT3 USAGE MESSAGE-TEXT-2T. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:25.41: - 22 - 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. - 24 01 Z-MESSAGE-T3. - 25 > 49 MT3 USAGE MESSAGE-TEXT-2T. ----- ^ - 26 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. - 27 ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:25.42-25.57: - 22 - 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. - 24 01 Z-MESSAGE-T3. - 25 > 49 MT3 USAGE MESSAGE-TEXT-2T. ----- ^^^^^^^^^^^^^^^ - 26 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. - 27 ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:26.41: - 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. - 24 01 Z-MESSAGE-T3. - 25 49 MT3 USAGE MESSAGE-TEXT-2T. - 26 > 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. ----- ^ - 27 - 28 01 CALCULUS PIC S9(15)V9(03) IS TYPEDEF. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:26.42-26.57: - 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. - 24 01 Z-MESSAGE-T3. - 25 49 MT3 USAGE MESSAGE-TEXT-2T. - 26 > 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. ----- ^^^^^^^^^^^^^^^ - 27 - 28 01 CALCULUS PIC S9(15)V9(03) IS TYPEDEF. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:32.36: - 29 88 NO-DETAIL VALUE ZERO. - 30 88 MIN-DETAIL VALUE 0.001. - 31 01 USER-TYPE IS TYPEDEF. - 32 > 02 AMOUNT USAGE CALCULUS. ----- ^ - 33 02 FILLER OCCURS 100. - 34 05 GRP-AMOUNT USAGE CALCULUS. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:32.37-32.45: - 29 88 NO-DETAIL VALUE ZERO. - 30 88 MIN-DETAIL VALUE 0.001. - 31 01 USER-TYPE IS TYPEDEF. - 32 > 02 AMOUNT USAGE CALCULUS. ----- ^^^^^^^^ - 33 02 FILLER OCCURS 100. - 34 05 GRP-AMOUNT USAGE CALCULUS. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:34.36: - 31 01 USER-TYPE IS TYPEDEF. - 32 02 AMOUNT USAGE CALCULUS. - 33 02 FILLER OCCURS 100. - 34 > 05 GRP-AMOUNT USAGE CALCULUS. ----- ^ - 35 01 USER-VAR USAGE USER-TYPE. - 36 ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:34.37-34.45: - 31 01 USER-TYPE IS TYPEDEF. - 32 02 AMOUNT USAGE CALCULUS. - 33 02 FILLER OCCURS 100. - 34 > 05 GRP-AMOUNT USAGE CALCULUS. ----- ^^^^^^^^ - 35 01 USER-VAR USAGE USER-TYPE. - 36 ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:35.36: - 32 02 AMOUNT USAGE CALCULUS. - 33 02 FILLER OCCURS 100. - 34 05 GRP-AMOUNT USAGE CALCULUS. - 35 > 01 USER-VAR USAGE USER-TYPE. ----- ^ - 36 - 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:35.37-35.46: - 32 02 AMOUNT USAGE CALCULUS. - 33 02 FILLER OCCURS 100. - 34 05 GRP-AMOUNT USAGE CALCULUS. - 35 > 01 USER-VAR USAGE USER-TYPE. ----- ^^^^^^^^^ - 36 - 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:38.37-38.41: - 35 01 USER-VAR USAGE USER-TYPE. - 36 - 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. - 38 > 88 PROC-UNSET VALUE NULL. ----- ^^^^ - 39 77 MY-PROC USAGE PROC VALUE NULL. - 40 ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:39.36: - 36 - 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. - 38 88 PROC-UNSET VALUE NULL. - 39 > 77 MY-PROC USAGE PROC VALUE NULL. ----- ^ - 40 - 41 PROCEDURE DIVISION. ->> Hint: Missing BINARY - -syn_definition.at-2373-prog.cob:39.37-39.41: - 36 - 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. - 38 88 PROC-UNSET VALUE NULL. - 39 > 77 MY-PROC USAGE PROC VALUE NULL. ----- ^^^^ - 40 - 41 PROCEDURE DIVISION. ->> Error: Invalid syntax - -syn_definition.at-2373-prog.cob:39.47: - 36 - 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. - 38 88 PROC-UNSET VALUE NULL. - 39 > 77 MY-PROC USAGE PROC VALUE NULL. ----- ^ - 40 - 41 PROCEDURE DIVISION. ->> Hint: Missing - -syn_definition.at-2373-prog.cob:39.48-39.52: - 36 - 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. - 38 88 PROC-UNSET VALUE NULL. - 39 > 77 MY-PROC USAGE PROC VALUE NULL. ----- ^^^^ - 40 - 41 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2374:0 -syn_definition.at-2374-progstd.cob:41.43-41.44: - 38 02 SOME2-VALUES OCCURS 1 TO 6 DEPENDING ON SOME2-DATA - 39 DESCENDING KEY SB SA - 40 INDEXED BY SOME2-INDEX. - 41 > 05 SA PIC X VALUE x'12'. ----- ^ - 42 05 SB PIC 9 VALUE 0. - 43 05 SDATA PIC X(12). ->> Error: Invalid syntax - -syn_definition.at-2374-progstd.cob:65.61-65.65: - 62 INITIALIZE OTHER-VALUES (2, 3, 2) - 63 SEARCH ALL SOME2-VALUES OF MY-NAME2 - 64 *> WHEN SA(SOME2-INDEX) = x'12' CHECKME: Should work - 65 > WHEN SA OF MY-NAME2(SOME2-INDEX OF MY-NAME2) = x'12' ----- ^^^^ - 66 CONTINUE. - 67 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2617:0 -syn_definition.at-2617-prog.cob:13.19-13.23: - 10 02 AUSGABE-FILE-NAME-2. - 11 05 FILLER PIC 9999. - 12 05 DETAIL-NO PIC 9999. - 13 > 02 FILLER LIKE AUSGABE-FILE-NAME. ----- ^^^^ - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:15.20: - 12 05 DETAIL-NO PIC 9999. - 13 02 FILLER LIKE AUSGABE-FILE-NAME. - 14 - 15 > 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. ----- ^ - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ->> Hint: Missing RENAMES - -syn_definition.at-2617-prog.cob:15.25-15.29: - 12 05 DETAIL-NO PIC 9999. - 13 02 FILLER LIKE AUSGABE-FILE-NAME. - 14 - 15 > 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. ----- ^^^^ - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:15.40-15.46: - 12 05 DETAIL-NO PIC 9999. - 13 02 FILLER LIKE AUSGABE-FILE-NAME. - 14 - 15 > 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. ----- ^^^^^^ - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:16.23: - 13 02 FILLER LIKE AUSGABE-FILE-NAME. - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 > 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). ----- ^ - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). ->> Hint: Missing RENAMES - -syn_definition.at-2617-prog.cob:16.25-16.29: - 13 02 FILLER LIKE AUSGABE-FILE-NAME. - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 > 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). ----- ^^^^ - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:16.40-16.44: - 13 02 FILLER LIKE AUSGABE-FILE-NAME. - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 > 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). ----- ^^^^ - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:17.24: - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ----- ^ - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). - 19 ->> Hint: Missing RENAMES - -syn_definition.at-2617-prog.cob:17.25-17.29: - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ----- ^^^^ - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). - 19 ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:17.39: - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ----- ^ - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). - 19 ->> Hint: Missing . - -syn_definition.at-2617-prog.cob:17.40-17.43: - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ----- ^^^ - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). - 19 ->> Warning: Invalid syntax - -syn_definition.at-2617-prog.cob:17.42-17.43: - 14 - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). ----- ^ - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). - 19 ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:18.23: - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 > 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). ----- ^ - 19 - 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. ->> Hint: Missing RENAMES - -syn_definition.at-2617-prog.cob:18.25-18.29: - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 > 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). ----- ^^^^ - 19 - 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:18.40-18.44: - 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. - 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 > 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). ----- ^^^^ - 19 - 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:20.22: - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). - 19 - 20 > 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. ----- ^ - 21 01 Z-MESSAGE-T3. - 22 49 MT3 LIKE MESSAGE-TEXT-2. ->> Hint: Missing RENAMES - -syn_definition.at-2617-prog.cob:20.23-20.27: - 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). - 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). - 19 - 20 > 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. ----- ^^^^ - 21 01 Z-MESSAGE-T3. - 22 49 MT3 LIKE MESSAGE-TEXT-2. ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:22.16: - 19 - 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. - 21 01 Z-MESSAGE-T3. - 22 > 49 MT3 LIKE MESSAGE-TEXT-2. ----- ^ - 23 - 24 PROCEDURE DIVISION. ->> Hint: Missing RENAMES - -syn_definition.at-2617-prog.cob:22.22-22.26: - 19 - 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. - 21 01 Z-MESSAGE-T3. - 22 > 49 MT3 LIKE MESSAGE-TEXT-2. ----- ^^^^ - 23 - 24 PROCEDURE DIVISION. ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:26.36-26.42: - 23 - 24 PROCEDURE DIVISION. - 25 DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2 - 26 > DISPLAY Z-MESSAGE-T2 (55:LENGTH OF DETAIL-NO) ----- ^^^^^^ - 27 DISPLAY MT3 (1:LENGTH OF AUSGABE-FILE-NAME) - 28 ADD OUTPUT-VAL TO DETAIL-NO ->> Error: Invalid syntax - -syn_definition.at-2617-prog.cob:27.26-27.32: - 24 PROCEDURE DIVISION. - 25 DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2 - 26 DISPLAY Z-MESSAGE-T2 (55:LENGTH OF DETAIL-NO) - 27 > DISPLAY MT3 (1:LENGTH OF AUSGABE-FILE-NAME) ----- ^^^^^^ - 28 ADD OUTPUT-VAL TO DETAIL-NO - 29 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:197:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:198:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:199:0 -syn_file.at-199-prog3.cob:7.51-7.53: - 4 ENVIRONMENT DIVISION. - 5 INPUT-OUTPUT SECTION. - 6 FILE-CONTROL. - 7 > SELECT TEST-FILE ASSIGN TO DISK FNAME OF F1 ----- ^^ - 8 ORGANIZATION IS SEQUENTIAL. - 9 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:264:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:265:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:266:0 -syn_file.at-266-prog3.cob:7.56-7.58: - 4 ENVIRONMENT DIVISION. - 5 INPUT-OUTPUT SECTION. - 6 FILE-CONTROL. - 7 > SELECT TEST-FILE ASSIGN TO PRINTER-1 FNAME OF F1 ----- ^^ - 8 ORGANIZATION IS SEQUENTIAL. - 9 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:321:0 -syn_file.at-321-prog.cob:10.40-10.45: - 7 SELECT TST-FILE1 ASSIGN TO CARD-PUNCH "F1". - 8 SELECT TST-FILE2 ASSIGN TO CARD-READER "F2". - 9 SELECT TST-FILE3 ASSIGN TO CASSETTE "F3". - 10 > SELECT TST-FILE4 ASSIGN TO INPUT "F4". ----- ^^^^^ - 11 SELECT TST-FILE5 ASSIGN TO INPUT-OUTPUT. - 12 SELECT TST-FILE6 ASSIGN TO MAGNETIC-TAPE. ->> Error: Invalid syntax - -syn_file.at-321-prog.cob:11.40-11.52: - 8 SELECT TST-FILE2 ASSIGN TO CARD-READER "F2". - 9 SELECT TST-FILE3 ASSIGN TO CASSETTE "F3". - 10 SELECT TST-FILE4 ASSIGN TO INPUT "F4". - 11 > SELECT TST-FILE5 ASSIGN TO INPUT-OUTPUT. ----- ^^^^^^^^^^^^ - 12 SELECT TST-FILE6 ASSIGN TO MAGNETIC-TAPE. - 13 SELECT TST-FILE7 ASSIGN TO OUTPUT "F7". ->> Error: Invalid syntax - -syn_file.at-321-prog.cob:13.40-13.46: - 10 SELECT TST-FILE4 ASSIGN TO INPUT "F4". - 11 SELECT TST-FILE5 ASSIGN TO INPUT-OUTPUT. - 12 SELECT TST-FILE6 ASSIGN TO MAGNETIC-TAPE. - 13 > SELECT TST-FILE7 ASSIGN TO OUTPUT "F7". ----- ^^^^^^ - 14 DATA DIVISION. - 15 FILE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:416:0 -syn_file.at-416-prog.cob:11.40-11.47: - 8 ORGANIZATION IS SEQUENTIAL. - 9 SELECT test-file-2 ASSIGN USING var-2 - 10 ORGANIZATION IS SEQUENTIAL. - 11 > SELECT test-file-3 ASSIGN TO VARYING var-3 ----- ^^^^^^^ - 12 ORGANIZATION IS SEQUENTIAL. - 13 SELECT test-file-4 ASSIGN DISK USING var-4 ->> Error: Invalid syntax - -syn_file.at-416-prog.cob:15.37-15.44: - 12 ORGANIZATION IS SEQUENTIAL. - 13 SELECT test-file-4 ASSIGN DISK USING var-4 - 14 ORGANIZATION IS SEQUENTIAL. - 15 > SELECT test-file-5 ASSIGN DYNAMIC DISK var-5 ----- ^^^^^^^ - 16 ORGANIZATION IS SEQUENTIAL. - 17 SELECT test-file-6 ASSIGN DISK FROM var-6 ->> Error: Invalid syntax - -syn_file.at-416-prog.cob:17.42-17.46: - 14 ORGANIZATION IS SEQUENTIAL. - 15 SELECT test-file-5 ASSIGN DYNAMIC DISK var-5 - 16 ORGANIZATION IS SEQUENTIAL. - 17 > SELECT test-file-6 ASSIGN DISK FROM var-6 ----- ^^^^ - 18 ORGANIZATION IS SEQUENTIAL. - 19 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:530:0 -syn_file.at-530-prog.cob:22.37: - 19 READ TEST-FILE NEXT - 20 END-READ - 21 CLOSE TEST-FILE - 22 > OPEN INPUT TEST-FILE WITH LOCK REVERSED ----- ^ - 23 READ TEST-FILE NEXT - 24 END-READ ->> Hint: Missing NO REWIND - -syn_file.at-530-prog.cob:22.38-22.42: - 19 READ TEST-FILE NEXT - 20 END-READ - 21 CLOSE TEST-FILE - 22 > OPEN INPUT TEST-FILE WITH LOCK REVERSED ----- ^^^^ - 23 READ TEST-FILE NEXT - 24 END-READ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:575:0 -syn_file.at-575-prog.cob:20.38-20.42: - 17 WRITE TEST-REC FROM "TeSt" - 18 END-WRITE - 19 CLOSE TEST-FILE WITH NO REWIND - 20 > OPEN INPUT TEST-FILE WITH LOCK WITH NO REWIND ----- ^^^^ - 21 READ TEST-FILE NEXT *> should get EOF - 22 END-READ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:628:0 -syn_file.at-628-prog.cob:11.33: - 8 ORGANIZATION IS INDEXED - 9 ACCESS MODE IS DYNAMIC - 10 RECORD KEY IS TEST-P2 IN TEST-SOME - 11 > ALTERNATE KEY IS TEST-P3 IN TEST-SOME. ----- ^ - 12 SELECT TEST-FILE ASSIGN TO 'FILE-TEST2' - 13 ORGANIZATION IS INDEXED ->> Hint: Missing RECORD - -syn_file.at-628-prog.cob:11.34-11.37: - 8 ORGANIZATION IS INDEXED - 9 ACCESS MODE IS DYNAMIC - 10 RECORD KEY IS TEST-P2 IN TEST-SOME - 11 > ALTERNATE KEY IS TEST-P3 IN TEST-SOME. ----- ^^^ - 12 SELECT TEST-FILE ASSIGN TO 'FILE-TEST2' - 13 ORGANIZATION IS INDEXED ->> Error: Invalid syntax - -syn_file.at-628-prog.cob:16.33: - 13 ORGANIZATION IS INDEXED - 14 ACCESS MODE IS DYNAMIC - 15 RECORD KEY IS TEST-P1 - 16 > ALTERNATE KEY IS TEST-P4. ----- ^ - 17 DATA DIVISION. - 18 FILE SECTION. ->> Hint: Missing RECORD - -syn_file.at-628-prog.cob:16.34-16.37: - 13 ORGANIZATION IS INDEXED - 14 ACCESS MODE IS DYNAMIC - 15 RECORD KEY IS TEST-P1 - 16 > ALTERNATE KEY IS TEST-P4. ----- ^^^ - 17 DATA DIVISION. - 18 FILE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:783:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:798:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:962:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1064:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1593:0 -syn_file.at-1593-prog.cob:16.50-16.58: - 13 ORGANIZATION IS INDEXED - 14 ACCESS MODE IS DYNAMIC - 15 RECORD KEY IS file2-key - 16 > STATUS IS STATUS-1, STATUS-2. ----- ^^^^^^^^ - 17 DATA DIVISION. - 18 FILE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1738:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1829:0 -syn_file.at-1829-prog.cob:10.26-10.33: - 7 SELECT file1 ASSIGN DISK. - 8 DATA DIVISION. - 9 FILE SECTION. - 10 > FD file1 VALUE OF FILE-ID fid-file1. ----- ^^^^^^^ - 11 01 file1-rec PIC X. - 12 PROCEDURE DIVISION. ->> Error: Invalid syntax - -syn_file.at-1829-prog.cob:10.43: - 7 SELECT file1 ASSIGN DISK. - 8 DATA DIVISION. - 9 FILE SECTION. - 10 > FD file1 VALUE OF FILE-ID fid-file1. ----- ^ - 11 01 file1-rec PIC X. - 12 PROCEDURE DIVISION. ->> Hint: Missing - -syn_file.at-1829-prog.cob:10.43-10.44: - 7 SELECT file1 ASSIGN DISK. - 8 DATA DIVISION. - 9 FILE SECTION. - 10 > FD file1 VALUE OF FILE-ID fid-file1. ----- ^ - 11 01 file1-rec PIC X. - 12 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1856:0 -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1937:0 -syn_file.at-1937-prog.cob:16.37: - 13 01 TEST-REC PIC X(4). - 14 WORKING-STORAGE SECTION. - 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". - 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". ----- ^ - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". ->> Hint: Missing AS - -syn_file.at-1937-prog.cob:16.44-16.52: - 13 01 TEST-REC PIC X(4). - 14 WORKING-STORAGE SECTION. - 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". - 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". ----- ^^^^^^^^ - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". ->> Error: Invalid syntax - -syn_file.at-1937-prog.cob:19.37: - 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". - 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". ----- ^ - 20 PROCEDURE DIVISION. - 21 DISPLAY GLOB-PATH GLOB-VAR ->> Hint: Missing AS - -syn_file.at-1937-prog.cob:19.44-19.52: - 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". - 17 * Test global vars because of implicitly defined ASSIGN var, too. - 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". - 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". ----- ^^^^^^^^ - 20 PROCEDURE DIVISION. - 21 DISPLAY GLOB-PATH GLOB-VAR ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2011:0 -syn_file.at-2011-prog.cob:14.17-14.25: - 11 RECORD KEY TESTKEY-P1 - 12 ALTERNATE RECORD KEY TESTKEY-P2 - 13 WITH DUPLICATES - 14 > SUPPRESS WHEN ZEROES ----- ^^^^^^^^ - 15 ALTERNATE RECORD KEY TESTKEY-P3 - 16 WITH DUPLICATES ->> Error: Invalid syntax - -syn_file.at-2011-prog.cob:17.17-17.25: - 14 SUPPRESS WHEN ZEROES - 15 ALTERNATE RECORD KEY TESTKEY-P3 - 16 WITH DUPLICATES - 17 > SUPPRESS WHEN SPACES ----- ^^^^^^^^ - 18 ALTERNATE RECORD KEY TESTKEY-P4 - 19 WITH DUPLICATES ->> Error: Invalid syntax - -syn_file.at-2011-prog.cob:20.17-20.25: - 17 SUPPRESS WHEN SPACES - 18 ALTERNATE RECORD KEY TESTKEY-P4 - 19 WITH DUPLICATES - 20 > SUPPRESS WHEN ALL "A" ----- ^^^^^^^^ - 21 ALTERNATE RECORD KEY TESTKEY-P5 - 22 WITH DUPLICATES ->> Error: Invalid syntax - -syn_file.at-2011-prog.cob:23.17-23.25: - 20 SUPPRESS WHEN ALL "A" - 21 ALTERNATE RECORD KEY TESTKEY-P5 - 22 WITH DUPLICATES - 23 > SUPPRESS WHEN ALL SPACES ----- ^^^^^^^^ - 24 . - 25 DATA DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2062:0 -syn_file.at-2062-prog.cob:13.27-13.28: - 10 ORGANIZATION INDEXED - 11 RECORD KEY TESTKEY-P1 OF TEST-REC1 - 12 ALTERNATE RECORD KEY - 13 > TEST1KEY2 = TESTKEY-P2 OF TEST-REC1, ----- ^ - 14 TESTKEY-P3 OF TEST-REC1 - 15 WITH DUPLICATES ->> Error: Invalid syntax - -syn_file.at-2062-prog.cob:23.48-23.50: - 20 ORGANIZATION INDEXED - 21 RECORD KEY TESTKEY-P1 OF TEST-REC2 - 22 ALTERNATE RECORD KEY - 23 > TEST2KEY2 SOURCE IS TESTKEY-P2 OF TEST-REC2, ----- ^^ - 24 TESTKEY-P3 OF TEST-REC2 - 25 WITH DUPLICATES ->> Error: Invalid syntax - -syn_file.at-2062-prog.cob:24.48-24.50: - 21 RECORD KEY TESTKEY-P1 OF TEST-REC2 - 22 ALTERNATE RECORD KEY - 23 TEST2KEY2 SOURCE IS TESTKEY-P2 OF TEST-REC2, - 24 > TESTKEY-P3 OF TEST-REC2 ----- ^^ - 25 WITH DUPLICATES - 26 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2092:0 -syn_file.at-2092-prog.cob:15.36-15.38: - 12 ALTERNATE RECORD KEY TESTKEY2 - 13 WITH DUPLICATES - 14 ALTERNATE RECORD KEY TESTKEY3 - 15 > WITH NO DUPLICATES ----- ^^ - 16 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2121:0 -syn_file.at-2121-prog.cob:12.23: - 9 ACCESS DYNAMIC - 10 ORGANIZATION INDEXED - 11 RECORD KEY TESTKEY1 - 12 > ALTERNATE KEY TESTKEY2 ----- ^ - 13 . - 14 PROCEDURE DIVISION. ->> Hint: Missing RECORD - -syn_file.at-2121-prog.cob:12.25-12.28: - 9 ACCESS DYNAMIC - 10 ORGANIZATION INDEXED - 11 RECORD KEY TESTKEY1 - 12 > ALTERNATE KEY TESTKEY2 ----- ^^^ - 13 . - 14 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2203:0 -syn_file.at-2203-prog.cob:13.17-13.21: - 10 ORGANIZATION INDEXED - 11 ACCESS DYNAMIC - 12 RECORD KEY TESTKEY-1P1 - 13 > WITH DUPLICATES ----- ^^^^ - 14 ALTERNATE RECORD KEY TESTKEY-1P2 - 15 WITH NO DUPLICATES ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:15.22-15.24: - 12 RECORD KEY TESTKEY-1P1 - 13 WITH DUPLICATES - 14 ALTERNATE RECORD KEY TESTKEY-1P2 - 15 > WITH NO DUPLICATES ----- ^^ - 16 LOCK EXCLUSIVE MASS-UPDATE - 17 . ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:16.18: - 13 WITH DUPLICATES - 14 ALTERNATE RECORD KEY TESTKEY-1P2 - 15 WITH NO DUPLICATES - 16 > LOCK EXCLUSIVE MASS-UPDATE ----- ^ - 17 . - 18 SELECT TEST-FILE2 ->> Hint: Missing AUTOMATIC - -syn_file.at-2203-prog.cob:16.19-16.28: - 13 WITH DUPLICATES - 14 ALTERNATE RECORD KEY TESTKEY-1P2 - 15 WITH NO DUPLICATES - 16 > LOCK EXCLUSIVE MASS-UPDATE ----- ^^^^^^^^^ - 17 . - 18 SELECT TEST-FILE2 ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:24.17-24.21: - 21 ORGANIZATION INDEXED - 22 ACCESS DYNAMIC - 23 RECORD KEY TESTKEY-2P1 - 24 > WITH NO DUPLICATES ----- ^^^^ - 25 ALTERNATE RECORD KEY TESTKEY-2P2 - 26 WITH DUPLICATES ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:41.16-41.25: - 38 03 ALLOWING PIC X(4). - 39 03 TESTKEY-2P2 PIC 9(4). - 40 PROCEDURE DIVISION. - 41 > OPEN EXCLUSIVE INPUT TEST-FILE2 ----- ^^^^^^^^^ - 42 CLOSE TEST-FILE2 - 43 OPEN I-O TEST-FILE1 TEST-FILE2 ALLOWING UPDATERS ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:54.40-54.43: - 51 OPEN I-O TEST-FILE1 ALLOWING WRITERS - 52 CLOSE TEST-FILE1 - 53 CLOSE TEST-FILE1 - 54 > OPEN I-O TEST-FILE1 ALLOWING ALL ----- ^^^ - 55 CLOSE TEST-FILE1 - 56 CLOSE TEST-FILE1 ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:57.42: - 54 OPEN I-O TEST-FILE1 ALLOWING ALL - 55 CLOSE TEST-FILE1 - 56 CLOSE TEST-FILE1 - 57 > OPEN I-O TEST-FILE1 ALLOWING NO ----- ^ - 58 CLOSE TEST-FILE1 - 59 OPEN I-O TEST-FILE1 ALLOWING NO OTHERS ->> Hint: Missing REWIND - -syn_file.at-2203-prog.cob:58.11-58.16: - 55 CLOSE TEST-FILE1 - 56 CLOSE TEST-FILE1 - 57 OPEN I-O TEST-FILE1 ALLOWING NO - 58 > CLOSE TEST-FILE1 ----- ^^^^^ - 59 OPEN I-O TEST-FILE1 ALLOWING NO OTHERS - 60 CLOSE TEST-FILE1 ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:59.42: - 56 CLOSE TEST-FILE1 - 57 OPEN I-O TEST-FILE1 ALLOWING NO - 58 CLOSE TEST-FILE1 - 59 > OPEN I-O TEST-FILE1 ALLOWING NO OTHERS ----- ^ - 60 CLOSE TEST-FILE1 - 61 OPEN I-O TEST-FILE1 FOR LOCK ->> Hint: Missing REWIND - -syn_file.at-2203-prog.cob:59.43-59.49: - 56 CLOSE TEST-FILE1 - 57 OPEN I-O TEST-FILE1 ALLOWING NO - 58 CLOSE TEST-FILE1 - 59 > OPEN I-O TEST-FILE1 ALLOWING NO OTHERS ----- ^^^^^^ - 60 CLOSE TEST-FILE1 - 61 OPEN I-O TEST-FILE1 FOR LOCK ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:61.31-61.34: - 58 CLOSE TEST-FILE1 - 59 OPEN I-O TEST-FILE1 ALLOWING NO OTHERS - 60 CLOSE TEST-FILE1 - 61 > OPEN I-O TEST-FILE1 FOR LOCK ----- ^^^ - 62 CLOSE TEST-FILE1 - 63 OPEN I-O TEST-FILE1 LOCK ->> Error: Invalid syntax - -syn_file.at-2203-prog.cob:63.31-63.35: - 60 CLOSE TEST-FILE1 - 61 OPEN I-O TEST-FILE1 FOR LOCK - 62 CLOSE TEST-FILE1 - 63 > OPEN I-O TEST-FILE1 LOCK ----- ^^^^ - 64 CLOSE TEST-FILE1 - 65 OPEN I-O TEST-FILE1 BULK-ADDITION ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2253:0 -Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:83:0 -Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:131:0 -syn_functions.at-131-prog.cob:10.11-10.15: - 7 01 ret PIC 9(4). - 8 - 9 PROCEDURE DIVISION RETURNING ret. - 10 > MOVE 100 TO ret ----- ^^^^ - 11 . - 12 END FUNCTION x. ->> Error: Invalid syntax - -syn_functions.at-131-prog.cob:10.19: - 7 01 ret PIC 9(4). - 8 - 9 PROCEDURE DIVISION RETURNING ret. - 10 > MOVE 100 TO ret ----- ^ - 11 . - 12 END FUNCTION x. ->> Hint: Missing . - -syn_functions.at-131-prog.cob:10.20-10.22: - 7 01 ret PIC 9(4). - 8 - 9 PROCEDURE DIVISION RETURNING ret. - 10 > MOVE 100 TO ret ----- ^^ - 11 . - 12 END FUNCTION x. ->> Warning: Invalid syntax - -syn_functions.at-131-prog.cob:22.11-22.15: - 19 01 ret PIC 9(5). - 20 - 21 PROCEDURE DIVISION RETURNING ret. - 22 > MOVE 1 TO ret ----- ^^^^ - 23 . - 24 END FUNCTION z. ->> Error: Invalid syntax - -syn_functions.at-131-prog.cob:22.17: - 19 01 ret PIC 9(5). - 20 - 21 PROCEDURE DIVISION RETURNING ret. - 22 > MOVE 1 TO ret ----- ^ - 23 . - 24 END FUNCTION z. ->> Hint: Missing . - -syn_functions.at-131-prog.cob:22.18-22.20: - 19 01 ret PIC 9(5). - 20 - 21 PROCEDURE DIVISION RETURNING ret. - 22 > MOVE 1 TO ret ----- ^^ - 23 . - 24 END FUNCTION z. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:198:0 -syn_functions.at-198-prog.cob:15.40: - 12 LINKAGE SECTION. - 13 01 ret PIC X. - 14 - 15 > PROCEDURE DIVISION RETURNING ret. ----- ^ - 16 MOVE FUNCTION x TO ret - 17 MOVE FUNCTION x TO ret ->> Hint: Missing END - -syn_functions.at-198-prog.cob:16.11-16.15: - 13 01 ret PIC X. - 14 - 15 PROCEDURE DIVISION RETURNING ret. - 16 > MOVE FUNCTION x TO ret ----- ^^^^ - 17 MOVE FUNCTION x TO ret - 18 . ->> Error: Invalid syntax - -syn_functions.at-198-prog.cob:16.27-16.29: - 13 01 ret PIC X. - 14 - 15 PROCEDURE DIVISION RETURNING ret. - 16 > MOVE FUNCTION x TO ret ----- ^^ - 17 MOVE FUNCTION x TO ret - 18 . ->> Error: Invalid syntax - -syn_functions.at-198-prog.cob:19.7-19.10: - 16 MOVE FUNCTION x TO ret - 17 MOVE FUNCTION x TO ret - 18 . - 19 > END FUNCTION blah. ----- ^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:271:0 -Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:314:0 -syn_functions.at-314-prog.cob:12.11-12.15: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^^^^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Error: Invalid syntax - -syn_functions.at-314-prog.cob:12.23: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Hint: Missing . - -syn_functions.at-314-prog.cob:12.24-12.26: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Warning: Invalid syntax - -syn_functions.at-314-prog.cob:12.35: - 9 01 func-out PIC X(15). - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 > MOVE func-in TO func-out ----- ^ - 13 INSPECT func-out REPLACING ALL '%' BY func-sub - 14 . ->> Hint: Missing . - -syn_functions.at-314-prog.cob:13.11-13.18: - 10 - 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. - 12 MOVE func-in TO func-out - 13 > INSPECT func-out REPLACING ALL '%' BY func-sub ----- ^^^^^^^ - 14 . - 15 END FUNCTION SUBSTITUTE. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_literals.at:924:0 -Considering: import/gnucobol/tests/testsuite.src/syn_literals.at:1155:0 -syn_literals.at-1155-prog.cob:9.21-9.40: - 6 DISPLAY N'0123456789ABCDEF'. - 7 DISPLAY N"0123456789ABCDEF"- - 8 N"0123456789ABCDEF". - 9 > DISPLAY NC"0123456789ABCDEF"- ----- ^^^^^^^^^^^^^^^^^^^ - 10 NC'0123456789ABCDEF'. ->> Error: Missing continuation of `0123456789ABCDEF' - -syn_literals.at-1155-prog.cob:10.19-10.21: - 7 DISPLAY N"0123456789ABCDEF"- - 8 N"0123456789ABCDEF". - 9 DISPLAY NC"0123456789ABCDEF"- - 10 > NC'0123456789ABCDEF'. ----- ^^ ->> Error: Unexpected text word - -Considering: import/gnucobol/tests/testsuite.src/syn_literals.at:1553:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:46:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:94:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:292:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:420:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:711:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:753:0 -syn_misc.at-753-prog.cob:2.7-2.22: - 1 - 2 > SOURCE-COMPUTER. GNU-LINUX. ----- ^^^^^^^^^^^^^^^ - 3 SPECIAL-NAMES. - 4 SYMBOLIC NL IS 101 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:784:0 -syn_misc.at-784-prog.cob:1.11-1.18: - 1 > DISPLAY "minimal". ----- ^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:809:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:821:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:830:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:895:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1192:0 -syn_misc.at-1192-prog.cob:33.19: - 30 CONTINUE. *> explicit no unreachable warning - 31 P03. - 32 GO TO P04 - 33 > CONTINUE AFTER 2 SECONDS. *> that's one again ----- ^ - 34 P04. - 35 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1192-prog.cob:33.20-33.25: - 30 CONTINUE. *> explicit no unreachable warning - 31 P03. - 32 GO TO P04 - 33 > CONTINUE AFTER 2 SECONDS. *> that's one again ----- ^^^^^ - 34 P04. - 35 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-1192-prog.cob:33.27: - 30 CONTINUE. *> explicit no unreachable warning - 31 P03. - 32 GO TO P04 - 33 > CONTINUE AFTER 2 SECONDS. *> that's one again ----- ^ - 34 P04. - 35 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1192-prog.cob:33.28-33.35: - 30 CONTINUE. *> explicit no unreachable warning - 31 P03. - 32 GO TO P04 - 33 > CONTINUE AFTER 2 SECONDS. *> that's one again ----- ^^^^^^^ - 34 P04. - 35 STOP RUN. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1239:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1335:0 -syn_misc.at-1335-prog3.cob:6.27-6.29: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. ----- ^^ - 7 03 CURSOR-ROW PIC 999. - 8 03 CURSOR-COL PIC 999. ->> Error: Invalid syntax - -syn_misc.at-1335-prog3.cob:9.37-9.39: - 6 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. - 7 03 CURSOR-ROW PIC 999. - 8 03 CURSOR-COL PIC 999. - 9 > 77 CRT-STATUS PIC X(4) IS SPECIAL-NAMES CRT STATUS. ----- ^^ - 10 PROCEDURE DIVISION. - 11 ACCEPT OMITTED END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1335-prog3.cob:11.17: - 8 03 CURSOR-COL PIC 999. - 9 77 CRT-STATUS PIC X(4) IS SPECIAL-NAMES CRT STATUS. - 10 PROCEDURE DIVISION. - 11 > ACCEPT OMITTED END-ACCEPT. ----- ^ - 12 STOP RUN. ->> Hint: Missing - -syn_misc.at-1335-prog3.cob:11.18-11.25: - 8 03 CURSOR-COL PIC 999. - 9 77 CRT-STATUS PIC X(4) IS SPECIAL-NAMES CRT STATUS. - 10 PROCEDURE DIVISION. - 11 > ACCEPT OMITTED END-ACCEPT. ----- ^^^^^^^ - 12 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1336:0 -syn_misc.at-1336-prog4.cob:6.27-6.29: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. ----- ^^ - 7 03 CURSOR-ROW PIC 999. - 8 03 CURSOR-COL PIC 999. ->> Error: Invalid syntax - -syn_misc.at-1336-prog4.cob:9.37-9.39: - 6 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. - 7 03 CURSOR-ROW PIC 999. - 8 03 CURSOR-COL PIC 999. - 9 > 77 CRT-STATUS PIC 9(5) IS SPECIAL-NAMES CRT STATUS. ----- ^^ - 10 PROCEDURE DIVISION. - 11 ACCEPT OMITTED END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1336-prog4.cob:11.17: - 8 03 CURSOR-COL PIC 999. - 9 77 CRT-STATUS PIC 9(5) IS SPECIAL-NAMES CRT STATUS. - 10 PROCEDURE DIVISION. - 11 > ACCEPT OMITTED END-ACCEPT. ----- ^ - 12 STOP RUN. ->> Hint: Missing - -syn_misc.at-1336-prog4.cob:11.18-11.25: - 8 03 CURSOR-COL PIC 999. - 9 77 CRT-STATUS PIC 9(5) IS SPECIAL-NAMES CRT STATUS. - 10 PROCEDURE DIVISION. - 11 > ACCEPT OMITTED END-ACCEPT. ----- ^^^^^^^ - 12 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1340:0 -syn_misc.at-1340-prog6.cob:6.33-6.35: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 77 CRT-STATUS PIC X(3) IS SPECIAL-NAMES CRT STATUS. ----- ^^ - 7 PROCEDURE DIVISION. - 8 ACCEPT OMITTED END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1340-prog6.cob:8.17: - 5 WORKING-STORAGE SECTION. - 6 77 CRT-STATUS PIC X(3) IS SPECIAL-NAMES CRT STATUS. - 7 PROCEDURE DIVISION. - 8 > ACCEPT OMITTED END-ACCEPT. ----- ^ - 9 STOP RUN. ->> Hint: Missing - -syn_misc.at-1340-prog6.cob:8.18-8.25: - 5 WORKING-STORAGE SECTION. - 6 77 CRT-STATUS PIC X(3) IS SPECIAL-NAMES CRT STATUS. - 7 PROCEDURE DIVISION. - 8 > ACCEPT OMITTED END-ACCEPT. ----- ^^^^^^^ - 9 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1435:0 -syn_misc.at-1435-prog3.cob:8.30: - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 CURRENCY 'DOLLAR' - 8 > WITH PICTURE SYMBOL '$'. ----- ^ - 9 DATA DIVISION. - 10 WORKING-STORAGE SECTION. ->> Hint: Missing SYMBOL - -syn_misc.at-1435-prog3.cob:8.31-8.34: - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 CURRENCY 'DOLLAR' - 8 > WITH PICTURE SYMBOL '$'. ----- ^^^ - 9 DATA DIVISION. - 10 WORKING-STORAGE SECTION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1452:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1671:0 -syn_misc.at-1671-prog.cob:8.27: - 5 WORKING-STORAGE SECTION. - 6 77 var PIC x. - 7 PROCEDURE DIVISION. - 8 > ACCEPT var FROM COMMAND-LINE ----- ^ - 9 DISPLAY var UPON COMMAND-LINE - 10 . ->> Hint: Missing - -syn_misc.at-1671-prog.cob:8.28-8.40: - 5 WORKING-STORAGE SECTION. - 6 77 var PIC x. - 7 PROCEDURE DIVISION. - 8 > ACCEPT var FROM COMMAND-LINE ----- ^^^^^^^^^^^^ - 9 DISPLAY var UPON COMMAND-LINE - 10 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1706:0 -syn_misc.at-1706-prog.cob:11.20-11.24: - 8 01 X PIC X. - 9 PROCEDURE DIVISION. - 10 ACCEPT X END-ACCEPT. - 11 > ACCEPT X WITH UPDATE END-ACCEPT. ----- ^^^^ - 12 ACCEPT X WITH DEFAULT END-ACCEPT. - 13 ACCEPT X WITH NO UPDATE END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1706-prog.cob:12.20-12.24: - 9 PROCEDURE DIVISION. - 10 ACCEPT X END-ACCEPT. - 11 ACCEPT X WITH UPDATE END-ACCEPT. - 12 > ACCEPT X WITH DEFAULT END-ACCEPT. ----- ^^^^ - 13 ACCEPT X WITH NO UPDATE END-ACCEPT. - 14 ACCEPT X WITH NO DEFAULT END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1706-prog.cob:13.20-13.24: - 10 ACCEPT X END-ACCEPT. - 11 ACCEPT X WITH UPDATE END-ACCEPT. - 12 ACCEPT X WITH DEFAULT END-ACCEPT. - 13 > ACCEPT X WITH NO UPDATE END-ACCEPT. ----- ^^^^ - 14 ACCEPT X WITH NO DEFAULT END-ACCEPT. - 15 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1706-prog.cob:14.20-14.24: - 11 ACCEPT X WITH UPDATE END-ACCEPT. - 12 ACCEPT X WITH DEFAULT END-ACCEPT. - 13 ACCEPT X WITH NO UPDATE END-ACCEPT. - 14 > ACCEPT X WITH NO DEFAULT END-ACCEPT. ----- ^^^^ - 15 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1731:0 -syn_misc.at-1731-prog.cob:11.19: - 8 01 X PIC X. - 9 PROCEDURE DIVISION. - 10 ACCEPT X END-ACCEPT. - 11 > ACCEPT X WITH AUTO END-ACCEPT. ----- ^ - 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. - 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. ->> Hint: Missing COUNT . - -syn_misc.at-1731-prog.cob:11.20-11.24: - 8 01 X PIC X. - 9 PROCEDURE DIVISION. - 10 ACCEPT X END-ACCEPT. - 11 > ACCEPT X WITH AUTO END-ACCEPT. ----- ^^^^ - 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. - 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1731-prog.cob:11.42-11.52: - 8 01 X PIC X. - 9 PROCEDURE DIVISION. - 10 ACCEPT X END-ACCEPT. - 11 > ACCEPT X WITH AUTO END-ACCEPT. ----- ^^^^^^^^^^ - 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. - 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1731-prog.cob:12.20-12.24: - 9 PROCEDURE DIVISION. - 10 ACCEPT X END-ACCEPT. - 11 ACCEPT X WITH AUTO END-ACCEPT. - 12 > ACCEPT X WITH AUTO-SKIP END-ACCEPT. ----- ^^^^ - 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. - 14 ACCEPT X WITH TAB END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1731-prog.cob:13.20-13.24: - 10 ACCEPT X END-ACCEPT. - 11 ACCEPT X WITH AUTO END-ACCEPT. - 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. - 13 > ACCEPT X WITH AUTOTERMINATE END-ACCEPT. ----- ^^^^ - 14 ACCEPT X WITH TAB END-ACCEPT. - 15 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1731-prog.cob:14.19: - 11 ACCEPT X WITH AUTO END-ACCEPT. - 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. - 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. - 14 > ACCEPT X WITH TAB END-ACCEPT. ----- ^ - 15 STOP RUN. ->> Hint: Missing COUNT . - -syn_misc.at-1731-prog.cob:14.20-14.24: - 11 ACCEPT X WITH AUTO END-ACCEPT. - 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. - 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. - 14 > ACCEPT X WITH TAB END-ACCEPT. ----- ^^^^ - 15 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1731-prog.cob:14.42-14.52: - 11 ACCEPT X WITH AUTO END-ACCEPT. - 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. - 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. - 14 > ACCEPT X WITH TAB END-ACCEPT. ----- ^^^^^^^^^^ - 15 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1753:0 -syn_misc.at-1753-prog.cob:8.19: - 5 WORKING-STORAGE SECTION. - 6 01 X PIC X(05). - 7 PROCEDURE DIVISION. - 8 > ACCEPT X WITH LOWER END-ACCEPT. ----- ^ - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER ->> Hint: Missing COUNT . - -syn_misc.at-1753-prog.cob:8.20-8.24: - 5 WORKING-STORAGE SECTION. - 6 01 X PIC X(05). - 7 PROCEDURE DIVISION. - 8 > ACCEPT X WITH LOWER END-ACCEPT. ----- ^^^^ - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER ->> Error: Invalid syntax - -syn_misc.at-1753-prog.cob:8.35-8.45: - 5 WORKING-STORAGE SECTION. - 6 01 X PIC X(05). - 7 PROCEDURE DIVISION. - 8 > ACCEPT X WITH LOWER END-ACCEPT. ----- ^^^^^^^^^^ - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER ->> Error: Invalid syntax - -syn_misc.at-1753-prog.cob:9.19: - 6 01 X PIC X(05). - 7 PROCEDURE DIVISION. - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 > ACCEPT X WITH UPPER END-ACCEPT. ----- ^ - 10 ACCEPT X LOWER - 11 ACCEPT X UPPER ->> Hint: Missing COUNT . - -syn_misc.at-1753-prog.cob:9.20-9.24: - 6 01 X PIC X(05). - 7 PROCEDURE DIVISION. - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 > ACCEPT X WITH UPPER END-ACCEPT. ----- ^^^^ - 10 ACCEPT X LOWER - 11 ACCEPT X UPPER ->> Error: Invalid syntax - -syn_misc.at-1753-prog.cob:9.35-9.45: - 6 01 X PIC X(05). - 7 PROCEDURE DIVISION. - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 > ACCEPT X WITH UPPER END-ACCEPT. ----- ^^^^^^^^^^ - 10 ACCEPT X LOWER - 11 ACCEPT X UPPER ->> Error: Invalid syntax - -syn_misc.at-1753-prog.cob:10.19: - 7 PROCEDURE DIVISION. - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 > ACCEPT X LOWER ----- ^ - 11 ACCEPT X UPPER - 12 STOP RUN. ->> Hint: Missing COUNT . - -syn_misc.at-1753-prog.cob:10.25-10.30: - 7 PROCEDURE DIVISION. - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 > ACCEPT X LOWER ----- ^^^^^ - 11 ACCEPT X UPPER - 12 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1753-prog.cob:10.30: - 7 PROCEDURE DIVISION. - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 > ACCEPT X LOWER ----- ^ - 11 ACCEPT X UPPER - 12 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1753-prog.cob:11.11-11.17: - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER - 11 > ACCEPT X UPPER ----- ^^^^^^ - 12 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-1753-prog.cob:11.19: - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER - 11 > ACCEPT X UPPER ----- ^ - 12 STOP RUN. ->> Hint: Missing COUNT . - -syn_misc.at-1753-prog.cob:11.25-11.30: - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER - 11 > ACCEPT X UPPER ----- ^^^^^ - 12 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1753-prog.cob:11.30: - 8 ACCEPT X WITH LOWER END-ACCEPT. - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER - 11 > ACCEPT X UPPER ----- ^ - 12 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1753-prog.cob:12.11-12.15: - 9 ACCEPT X WITH UPPER END-ACCEPT. - 10 ACCEPT X LOWER - 11 ACCEPT X UPPER - 12 > STOP RUN. ----- ^^^^ ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1782:0 -syn_misc.at-1782-prog.cob:9.19: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 4. - 8 PROCEDURE DIVISION. - 9 > ACCEPT X WITH SIZE 0 END-ACCEPT. ----- ^ - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:9.20-9.24: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 4. - 8 PROCEDURE DIVISION. - 9 > ACCEPT X WITH SIZE 0 END-ACCEPT. ----- ^^^^ - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:9.45-9.55: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 4. - 8 PROCEDURE DIVISION. - 9 > ACCEPT X WITH SIZE 0 END-ACCEPT. ----- ^^^^^^^^^^ - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:10.19: - 7 01 Y PIC 9(04) BINARY VALUE 4. - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 > ACCEPT X WITH SIZE IS 1 END-ACCEPT. ----- ^ - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:10.20-10.24: - 7 01 Y PIC 9(04) BINARY VALUE 4. - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 > ACCEPT X WITH SIZE IS 1 END-ACCEPT. ----- ^^^^ - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:10.45-10.55: - 7 01 Y PIC 9(04) BINARY VALUE 4. - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 > ACCEPT X WITH SIZE IS 1 END-ACCEPT. ----- ^^^^^^^^^^ - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:11.19: - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ----- ^ - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:11.20-11.24: - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ----- ^^^^ - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:11.34: - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ----- ^ - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:11.35-11.39: - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ----- ^^^^ - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:11.45-11.55: - 8 PROCEDURE DIVISION. - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. ----- ^^^^^^^^^^ - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:12.19: - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ----- ^ - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:12.20-12.24: - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ----- ^^^^ - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:12.34: - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ----- ^ - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:12.35-12.39: - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ----- ^^^^ - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:12.45-12.55: - 9 ACCEPT X WITH SIZE 0 END-ACCEPT. - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. ----- ^^^^^^^^^^ - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:13.19: - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 > ACCEPT X SIZE Y END-ACCEPT. ----- ^ - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:13.35-13.39: - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 > ACCEPT X SIZE Y END-ACCEPT. ----- ^^^^ - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:13.45-13.55: - 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 > ACCEPT X SIZE Y END-ACCEPT. ----- ^^^^^^^^^^ - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:14.19: - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 > ACCEPT X SIZE 0 ----- ^ - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:14.35-14.39: - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 > ACCEPT X SIZE 0 ----- ^^^^ - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:14.44: - 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 > ACCEPT X SIZE 0 ----- ^ - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:15.11-15.17: - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 > ACCEPT X SIZE IS 1 ----- ^^^^^^ - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:15.19: - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 > ACCEPT X SIZE IS 1 ----- ^ - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:15.35-15.39: - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 > ACCEPT X SIZE IS 1 ----- ^^^^ - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:15.44: - 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 > ACCEPT X SIZE IS 1 ----- ^ - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:16.11-16.17: - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 > ACCEPT X PROTECTED SIZE 2 ----- ^^^^^^ - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 ACCEPT X SIZE Y ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:16.19: - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 > ACCEPT X PROTECTED SIZE 2 ----- ^ - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 ACCEPT X SIZE Y ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:16.25-16.34: - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 > ACCEPT X PROTECTED SIZE 2 ----- ^^^^^^^^^ - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 ACCEPT X SIZE Y ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:16.34: - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 > ACCEPT X PROTECTED SIZE 2 ----- ^ - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 ACCEPT X SIZE Y ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:16.35-16.39: - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 > ACCEPT X PROTECTED SIZE 2 ----- ^^^^ - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 ACCEPT X SIZE Y ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:16.44: - 13 ACCEPT X SIZE Y END-ACCEPT. - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 > ACCEPT X PROTECTED SIZE 2 ----- ^ - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 ACCEPT X SIZE Y ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:17.11-17.17: - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 > ACCEPT X PROTECTED SIZE IS 3 ----- ^^^^^^ - 18 ACCEPT X SIZE Y - 19 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:17.19: - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 > ACCEPT X PROTECTED SIZE IS 3 ----- ^ - 18 ACCEPT X SIZE Y - 19 STOP RUN. ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:17.25-17.34: - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 > ACCEPT X PROTECTED SIZE IS 3 ----- ^^^^^^^^^ - 18 ACCEPT X SIZE Y - 19 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:17.34: - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 > ACCEPT X PROTECTED SIZE IS 3 ----- ^ - 18 ACCEPT X SIZE Y - 19 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:17.35-17.39: - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 > ACCEPT X PROTECTED SIZE IS 3 ----- ^^^^ - 18 ACCEPT X SIZE Y - 19 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:17.44: - 14 ACCEPT X SIZE 0 - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 > ACCEPT X PROTECTED SIZE IS 3 ----- ^ - 18 ACCEPT X SIZE Y - 19 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:18.11-18.17: - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 > ACCEPT X SIZE Y ----- ^^^^^^ - 19 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-1782-prog.cob:18.19: - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 > ACCEPT X SIZE Y ----- ^ - 19 STOP RUN. ->> Hint: Missing COUNT . - -syn_misc.at-1782-prog.cob:18.35-18.39: - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 > ACCEPT X SIZE Y ----- ^^^^ - 19 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1782-prog.cob:18.44: - 15 ACCEPT X SIZE IS 1 - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 > ACCEPT X SIZE Y ----- ^ - 19 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1782-prog.cob:19.11-19.15: - 16 ACCEPT X PROTECTED SIZE 2 - 17 ACCEPT X PROTECTED SIZE IS 3 - 18 ACCEPT X SIZE Y - 19 > STOP RUN. ----- ^^^^ ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1807:0 -syn_misc.at-1807-prog.cob:9.23: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. ----- ^ - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ->> Hint: Missing COL . - -syn_misc.at-1807-prog.cob:9.24-9.28: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. ----- ^^^^ - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:9.28: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. ----- ^ - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ->> Hint: Missing . - -syn_misc.at-1807-prog.cob:9.29-9.33: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. ----- ^^^^ - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ->> Warning: Invalid syntax - -syn_misc.at-1807-prog.cob:9.44-9.55: - 6 01 X PIC X(05). - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. ----- ^^^^^^^^^^^ - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:10.23: - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. ----- ^ - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ->> Hint: Missing COL . - -syn_misc.at-1807-prog.cob:10.24-10.28: - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. ----- ^^^^ - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:10.28: - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. ----- ^ - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ->> Hint: Missing . - -syn_misc.at-1807-prog.cob:10.29-10.33: - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. ----- ^^^^ - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ->> Warning: Invalid syntax - -syn_misc.at-1807-prog.cob:10.44-10.55: - 7 01 Y PIC 9(04) BINARY VALUE 7. - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. ----- ^^^^^^^^^^^ - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:11.23: - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ----- ^ - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ->> Hint: Missing COL . - -syn_misc.at-1807-prog.cob:11.24-11.28: - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ----- ^^^^ - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:11.28: - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ----- ^ - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ->> Hint: Missing . - -syn_misc.at-1807-prog.cob:11.29-11.33: - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ----- ^^^^ - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ->> Warning: Invalid syntax - -syn_misc.at-1807-prog.cob:11.44-11.55: - 8 PROCEDURE DIVISION. - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. ----- ^^^^^^^^^^^ - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:12.23: - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ----- ^ - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ->> Hint: Missing COL . - -syn_misc.at-1807-prog.cob:12.24-12.28: - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ----- ^^^^ - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:12.28: - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ----- ^ - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ->> Hint: Missing . - -syn_misc.at-1807-prog.cob:12.34-12.38: - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ----- ^^^^ - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ->> Warning: Invalid syntax - -syn_misc.at-1807-prog.cob:12.44-12.55: - 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. ----- ^^^^^^^^^^^ - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:13.23: - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ----- ^ - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. - 15 STOP RUN. ->> Hint: Missing COL . - -syn_misc.at-1807-prog.cob:13.24-13.28: - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ----- ^^^^ - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. - 15 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:13.28: - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ----- ^ - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. - 15 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1807-prog.cob:13.34-13.38: - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ----- ^^^^ - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. - 15 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-1807-prog.cob:13.44-13.55: - 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. ----- ^^^^^^^^^^^ - 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. - 15 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:14.23: - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ----- ^ - 15 STOP RUN. ->> Hint: Missing COL . - -syn_misc.at-1807-prog.cob:14.24-14.28: - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ----- ^^^^ - 15 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-1807-prog.cob:14.28: - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ----- ^ - 15 STOP RUN. ->> Hint: Missing . - -syn_misc.at-1807-prog.cob:14.34-14.38: - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ----- ^^^^ - 15 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-1807-prog.cob:14.44-14.55: - 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. - 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. - 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. - 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. ----- ^^^^^^^^^^^ - 15 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1826:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1858:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1903:0 -syn_misc.at-1903-prog.cob:7.19: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 PROCEDURE DIVISION. - 7 > CONTINUE ----- ^ ->> Hint: Missing . - -syn_misc.at-1903-prog.cob:8.0: - 5 CONFIGURATION SECTION. - 6 PROCEDURE DIVISION. - 7 CONTINUE ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1936:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2022:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2045:0 -syn_misc.at-2045-prog2.cob:11.7-11.46: - 8 PROCEDURE DIVISION. - 9 * DISPLAY 'COMMENT' END-DISPLAY - 10 / DISPLAY 'COMMENTSLASH' END-DISPLAY - 11 > $ DISPLAY 'COMMENTDOLLAR' END-DISPLAY ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 * DISPLAY 'MFCOMMENT' END-DISPLAY - 13 * DISPLAY 'NOMFCOMMENT' END-DISPLAY ->> Error: Unexpected characters - -syn_misc.at-2045-prog2.cob:15.8-15.9: - 12 * DISPLAY 'MFCOMMENT' END-DISPLAY - 13 * DISPLAY 'NOMFCOMMENT' END-DISPLAY - 14 *> DISPLAY 'FLOATING' END-DISPLAY - 15 > | DISPLAY 'ACUFLOATING' END-DISPLAY ----- ^ - 16 | DISPLAY 'NOACUFLOATING' END-DISPLAY - 17 *> DISPLAY 'NOFLOATING' END-DISPLAY ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2232:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2377:0 -syn_misc.at-2377-prog.cob:9.29: - 6 77 KEYNUM PIC 9(04). - 7 PROCEDURE DIVISION. - 8 - 9 > ACCEPT KEYNUM FROM ESCAPE KEY ----- ^ - 10 DISPLAY "Key pressed: " KEYNUM - 11 ACCEPT KEYNUM FROM ESCAPE ->> Hint: Missing - -syn_misc.at-2377-prog.cob:9.30-9.36: - 6 77 KEYNUM PIC 9(04). - 7 PROCEDURE DIVISION. - 8 - 9 > ACCEPT KEYNUM FROM ESCAPE KEY ----- ^^^^^^ - 10 DISPLAY "Key pressed: " KEYNUM - 11 ACCEPT KEYNUM FROM ESCAPE ->> Error: Invalid syntax - -syn_misc.at-2377-prog.cob:11.29: - 8 - 9 ACCEPT KEYNUM FROM ESCAPE KEY - 10 DISPLAY "Key pressed: " KEYNUM - 11 > ACCEPT KEYNUM FROM ESCAPE ----- ^ - 12 DISPLAY "Key pressed: " KEYNUM - 13 ACCEPT OMITTED ->> Hint: Missing - -syn_misc.at-2377-prog.cob:11.30-11.36: - 8 - 9 ACCEPT KEYNUM FROM ESCAPE KEY - 10 DISPLAY "Key pressed: " KEYNUM - 11 > ACCEPT KEYNUM FROM ESCAPE ----- ^^^^^^ - 12 DISPLAY "Key pressed: " KEYNUM - 13 ACCEPT OMITTED ->> Error: Invalid syntax - -syn_misc.at-2377-prog.cob:13.17: - 10 DISPLAY "Key pressed: " KEYNUM - 11 ACCEPT KEYNUM FROM ESCAPE - 12 DISPLAY "Key pressed: " KEYNUM - 13 > ACCEPT OMITTED ----- ^ - 14 - 15 STOP RUN. ->> Hint: Missing - -syn_misc.at-2377-prog.cob:13.18-13.25: - 10 DISPLAY "Key pressed: " KEYNUM - 11 ACCEPT KEYNUM FROM ESCAPE - 12 DISPLAY "Key pressed: " KEYNUM - 13 > ACCEPT OMITTED ----- ^^^^^^^ - 14 - 15 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2400:0 -syn_misc.at-2400-prog.cob:6.30: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 77 myfloat usage float ----- ^ - 7 value is 3.97E+24. - 8 77 mydouble usage double ->> Hint: Missing BINARY - -syn_misc.at-2400-prog.cob:6.31-6.36: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 77 myfloat usage float ----- ^^^^^ - 7 value is 3.97E+24. - 8 77 mydouble usage double ->> Error: Invalid syntax - -syn_misc.at-2400-prog.cob:8.30: - 5 WORKING-STORAGE SECTION. - 6 77 myfloat usage float - 7 value is 3.97E+24. - 8 > 77 mydouble usage double ----- ^ - 9 value is 3.97E+44. - 10 PROCEDURE DIVISION. ->> Hint: Missing BINARY - -syn_misc.at-2400-prog.cob:8.31-8.37: - 5 WORKING-STORAGE SECTION. - 6 77 myfloat usage float - 7 value is 3.97E+24. - 8 > 77 mydouble usage double ----- ^^^^^^ - 9 value is 3.97E+44. - 10 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2668:0 -syn_misc.at-2668-prog.cob:6.30: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 77 window-handle USAGE HANDLE OF WINDOW. ----- ^ - 7 77 lb-row PIC X(10). - 8 77 lb-color PIC 9(05) VALUE 8192. ->> Hint: Missing BINARY - -syn_misc.at-2668-prog.cob:6.31-6.37: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 77 window-handle USAGE HANDLE OF WINDOW. ----- ^^^^^^ - 7 77 lb-row PIC X(10). - 8 77 lb-color PIC 9(05) VALUE 8192. ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:16.20: - 13 77 selection-idx PIC S9(02). - 14 SCREEN SECTION. - 15 01 lb-screen. - 16 > 03 lb-frm LIST-BOX 3-D ----- ^ - 17 * FIXME: the following should be possible in any order - 18 UNSORTED ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:16.21-16.29: - 13 77 selection-idx PIC S9(02). - 14 SCREEN SECTION. - 15 01 lb-screen. - 16 > 03 lb-frm LIST-BOX 3-D ----- ^^^^^^^^ - 17 * FIXME: the following should be possible in any order - 18 UNSORTED ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:20.20-20.25: - 17 * FIXME: the following should be possible in any order - 18 UNSORTED - 19 EXCEPTION-VALUE = 13 - 20 > COLOR lb-color ----- ^^^^^ - 21 CLINE 1 CCOL 1 - 22 LINES = lb-num-lines ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:20.34: - 17 * FIXME: the following should be possible in any order - 18 UNSORTED - 19 EXCEPTION-VALUE = 13 - 20 > COLOR lb-color ----- ^ - 21 CLINE 1 CCOL 1 - 22 LINES = lb-num-lines ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:21.20-21.25: - 18 UNSORTED - 19 EXCEPTION-VALUE = 13 - 20 COLOR lb-color - 21 > CLINE 1 CCOL 1 ----- ^^^^^ - 22 LINES = lb-num-lines - 23 SIZE IS lb-num-rows ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:21.32: - 18 UNSORTED - 19 EXCEPTION-VALUE = 13 - 20 COLOR lb-color - 21 > CLINE 1 CCOL 1 ----- ^ - 22 LINES = lb-num-lines - 23 SIZE IS lb-num-rows ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:21.33-21.34: - 18 UNSORTED - 19 EXCEPTION-VALUE = 13 - 20 COLOR lb-color - 21 > CLINE 1 CCOL 1 ----- ^ - 22 LINES = lb-num-lines - 23 SIZE IS lb-num-rows ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:22.20-22.25: - 19 EXCEPTION-VALUE = 13 - 20 COLOR lb-color - 21 CLINE 1 CCOL 1 - 22 > LINES = lb-num-lines ----- ^^^^^ - 23 SIZE IS lb-num-rows - 24 * VALUE lb-row raises error as no identifer according ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:23.20-23.24: - 20 COLOR lb-color - 21 CLINE 1 CCOL 1 - 22 LINES = lb-num-lines - 23 > SIZE IS lb-num-rows ----- ^^^^ - 24 * VALUE lb-row raises error as no identifer according - 25 * to cobol2002, but here it is fine ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:29.11-29.17: - 26 . - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' ----- ^^^^^^ - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:29.24: - 26 . - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' ----- ^ - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:29.25-29.36: - 26 . - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' ----- ^^^^^^^^^^^ - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:29.36: - 26 . - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' ----- ^ - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:29.37-29.38: - 26 . - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' ----- ^ - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:30.24: - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' ----- ^ - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:30.25-30.36: - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' ----- ^^^^^^^^^^^ - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:30.36: - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' ----- ^ - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:30.37-30.38: - 27 PROCEDURE DIVISION. - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' ----- ^ - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:31.24: - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ----- ^ - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:31.25-31.36: - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ----- ^^^^^^^^^^^ - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:31.36: - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ----- ^ - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:31.37-31.38: - 28 MAIN. - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' ----- ^ - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:32.24: - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ----- ^ - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:32.25-32.36: - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ----- ^^^^^^^^^^^ - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:32.36: - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ----- ^ - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:32.37-32.38: - 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' ----- ^ - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:33.24: - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ----- ^ - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:33.25-33.36: - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ----- ^^^^^^^^^^^ - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:33.36: - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ----- ^ - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:33.37-33.38: - 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' ----- ^ - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:34.24: - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ----- ^ - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' - 36 DISPLAY FLOATING WINDOW ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:34.25-34.36: - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ----- ^^^^^^^^^^^ - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' - 36 DISPLAY FLOATING WINDOW ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:34.36: - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ----- ^ - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' - 36 DISPLAY FLOATING WINDOW ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:34.37-34.38: - 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' ----- ^ - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' - 36 DISPLAY FLOATING WINDOW ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:35.24: - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ----- ^ - 36 DISPLAY FLOATING WINDOW - 37 LINE 5 COL 5 ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:35.25-35.36: - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ----- ^^^^^^^^^^^ - 36 DISPLAY FLOATING WINDOW - 37 LINE 5 COL 5 ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:35.36: - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ----- ^ - 36 DISPLAY FLOATING WINDOW - 37 LINE 5 COL 5 ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:35.37-35.38: - 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' ----- ^ - 36 DISPLAY FLOATING WINDOW - 37 LINE 5 COL 5 ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:36.19-36.27: - 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' - 36 > DISPLAY FLOATING WINDOW ----- ^^^^^^^^ - 37 LINE 5 COL 5 - 38 LINES window-lines ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:37.22-37.25: - 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' - 36 DISPLAY FLOATING WINDOW - 37 > LINE 5 COL 5 ----- ^^^ - 38 LINES window-lines - 39 SIZE window-rows ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:38.15-38.20: - 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' - 36 DISPLAY FLOATING WINDOW - 37 LINE 5 COL 5 - 38 > LINES window-lines ----- ^^^^^ - 39 SIZE window-rows - 40 BOXED ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:39.15-39.19: - 36 DISPLAY FLOATING WINDOW - 37 LINE 5 COL 5 - 38 LINES window-lines - 39 > SIZE window-rows ----- ^^^^ - 40 BOXED - 41 COLOR lb-color ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:41.15-41.20: - 38 LINES window-lines - 39 SIZE window-rows - 40 BOXED - 41 > COLOR lb-color ----- ^^^^^ - 42 HANDLE IS window-handle - 43 END-DISPLAY ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:42.15-42.21: - 39 SIZE window-rows - 40 BOXED - 41 COLOR lb-color - 42 > HANDLE IS window-handle ----- ^^^^^^ - 43 END-DISPLAY - 44 DISPLAY lb-screen ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:46.29: - 43 END-DISPLAY - 44 DISPLAY lb-screen - 45 ACCEPT lb-screen - 46 > IF lb-row = SPACES ----- ^ - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:47.14-47.21: - 44 DISPLAY lb-screen - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx ----- ^^^^^^^ - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:47.28: - 44 DISPLAY lb-screen - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx ----- ^ - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:47.29-47.44: - 44 DISPLAY lb-screen - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx ----- ^^^^^^^^^^^^^^^ - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:47.44: - 44 DISPLAY lb-screen - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx ----- ^ - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:47.45-47.47: - 44 DISPLAY lb-screen - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx ----- ^^ - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:47.61: - 44 DISPLAY lb-screen - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx ----- ^ - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:48.14-48.16: - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 > IF selection-idx > ZERO ----- ^^ - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:48.37: - 45 ACCEPT lb-screen - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 > IF selection-idx > ZERO ----- ^ - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:49.17-49.23: - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 > MODIFY lb-frm QUERY-INDEX = selection-idx ----- ^^^^^^ - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 END-IF ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:49.31: - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 > MODIFY lb-frm QUERY-INDEX = selection-idx ----- ^ - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 END-IF ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:49.32-49.43: - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 > MODIFY lb-frm QUERY-INDEX = selection-idx ----- ^^^^^^^^^^^ - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 END-IF ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:49.43: - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 > MODIFY lb-frm QUERY-INDEX = selection-idx ----- ^ - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 END-IF ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:49.44-49.45: - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 > MODIFY lb-frm QUERY-INDEX = selection-idx ----- ^ - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 END-IF ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:49.59: - 46 IF lb-row = SPACES - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 > MODIFY lb-frm QUERY-INDEX = selection-idx ----- ^ - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 END-IF ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:50.17-50.24: - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row ----- ^^^^^^^ - 51 END-IF - 52 END-IF ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:50.31: - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row ----- ^ - 51 END-IF - 52 END-IF ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:50.32-50.42: - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row ----- ^^^^^^^^^^ - 51 END-IF - 52 END-IF ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:50.42: - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row ----- ^ - 51 END-IF - 52 END-IF ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:50.43-50.45: - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row ----- ^^ - 51 END-IF - 52 END-IF ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:50.52: - 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row ----- ^ - 51 END-IF - 52 END-IF ->> Hint: Missing . - -syn_misc.at-2668-prog.cob:51.14-51.20: - 48 IF selection-idx > ZERO - 49 MODIFY lb-frm QUERY-INDEX = selection-idx - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 > END-IF ----- ^^^^^^ - 52 END-IF - 53 CLOSE WINDOW window-handle ->> Warning: Invalid syntax - -syn_misc.at-2668-prog.cob:53.17-53.23: - 50 INQUIRE lb-frm ITEM-VALUE IN lb-row - 51 END-IF - 52 END-IF - 53 > CLOSE WINDOW window-handle ----- ^^^^^^ - 54 DISPLAY "chosen row value was '" lb-row "'" - 55 ACCEPT OMITTED ->> Error: Invalid syntax - -syn_misc.at-2668-prog.cob:55.17: - 52 END-IF - 53 CLOSE WINDOW window-handle - 54 DISPLAY "chosen row value was '" lb-row "'" - 55 > ACCEPT OMITTED ----- ^ - 56 * - 57 STOP RUN. ->> Hint: Missing - -syn_misc.at-2668-prog.cob:55.18-55.25: - 52 END-IF - 53 CLOSE WINDOW window-handle - 54 DISPLAY "chosen row value was '" lb-row "'" - 55 > ACCEPT OMITTED ----- ^^^^^^^ - 56 * - 57 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2715:0 -syn_misc.at-2715-prog.cob:18.19-18.26: - 15 78 MB-WARNING-ICON VALUE 2. - 16 78 MB-ERROR-ICON VALUE 3. - 17 PROCEDURE DIVISION. - 18 > DISPLAY MESSAGE "Important" ----- ^^^^^^^ - 19 TITLE "Very important" - 20 TYPE = MB-OK ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:20.19-20.23: - 17 PROCEDURE DIVISION. - 18 DISPLAY MESSAGE "Important" - 19 TITLE "Very important" - 20 > TYPE = MB-OK ----- ^^^^ - 21 ICON IS MB-WARNING-ICON - 22 DISPLAY MESSAGE "This is" space "my" space my-text ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:21.24-21.26: - 18 DISPLAY MESSAGE "Important" - 19 TITLE "Very important" - 20 TYPE = MB-OK - 21 > ICON IS MB-WARNING-ICON ----- ^^ - 22 DISPLAY MESSAGE "This is" space "my" space my-text - 23 DISPLAY MESSAGE BOX "More messages?" ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:22.19-22.26: - 19 TITLE "Very important" - 20 TYPE = MB-OK - 21 ICON IS MB-WARNING-ICON - 22 > DISPLAY MESSAGE "This is" space "my" space my-text ----- ^^^^^^^ - 23 DISPLAY MESSAGE BOX "More messages?" - 24 TYPE MB-YES-NO ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:23.19-23.26: - 20 TYPE = MB-OK - 21 ICON IS MB-WARNING-ICON - 22 DISPLAY MESSAGE "This is" space "my" space my-text - 23 > DISPLAY MESSAGE BOX "More messages?" ----- ^^^^^^^ - 24 TYPE MB-YES-NO - 25 TITLE = "box title" ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:24.19-24.23: - 21 ICON IS MB-WARNING-ICON - 22 DISPLAY MESSAGE "This is" space "my" space my-text - 23 DISPLAY MESSAGE BOX "More messages?" - 24 > TYPE MB-YES-NO ----- ^^^^ - 25 TITLE = "box title" - 26 DEFAULT IS MB-YES ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:25.25-25.26: - 22 DISPLAY MESSAGE "This is" space "my" space my-text - 23 DISPLAY MESSAGE BOX "More messages?" - 24 TYPE MB-YES-NO - 25 > TITLE = "box title" ----- ^ - 26 DEFAULT IS MB-YES - 27 RETURNING RETURN-CODE ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:26.19-26.26: - 23 DISPLAY MESSAGE BOX "More messages?" - 24 TYPE MB-YES-NO - 25 TITLE = "box title" - 26 > DEFAULT IS MB-YES ----- ^^^^^^^ - 27 RETURNING RETURN-CODE - 28 * ->> Error: Invalid syntax - -syn_misc.at-2715-prog.cob:27.19-27.28: - 24 TYPE MB-YES-NO - 25 TITLE = "box title" - 26 DEFAULT IS MB-YES - 27 > RETURNING RETURN-CODE ----- ^^^^^^^^^ - 28 * - 29 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2737:0 -syn_misc.at-2737-prog.cob:5.18: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > DISPLAY OMITTED WITH BELL ----- ^ - 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL - 7 * ->> Hint: Missing - -syn_misc.at-2737-prog.cob:5.19-5.26: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > DISPLAY OMITTED WITH BELL ----- ^^^^^^^ - 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL - 7 * ->> Error: Invalid syntax - -syn_misc.at-2737-prog.cob:5.31: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > DISPLAY OMITTED WITH BELL ----- ^ - 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL - 7 * ->> Hint: Missing NO ADVANCING . - -syn_misc.at-2737-prog.cob:5.32-5.36: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > DISPLAY OMITTED WITH BELL ----- ^^^^ - 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL - 7 * ->> Error: Invalid syntax - -syn_misc.at-2737-prog.cob:5.36: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > DISPLAY OMITTED WITH BELL ----- ^ - 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL - 7 * ->> Hint: Missing . - -syn_misc.at-2737-prog.cob:6.11-6.18: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY OMITTED WITH BELL - 6 > DISPLAY OMITTED LINE 10 COL 15 ERASE EOL ----- ^^^^^^^ - 7 * - 8 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-2737-prog.cob:6.19-6.26: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY OMITTED WITH BELL - 6 > DISPLAY OMITTED LINE 10 COL 15 ERASE EOL ----- ^^^^^^^ - 7 * - 8 STOP RUN. ->> Error: Invalid syntax - -syn_misc.at-2737-prog.cob:6.35-6.38: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY OMITTED WITH BELL - 6 > DISPLAY OMITTED LINE 10 COL 15 ERASE EOL ----- ^^^ - 7 * - 8 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2788:0 -syn_misc.at-2788-prog.cob:6.24-6.26: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 > 01 GNUCOBOL-URL IS EXTERNAL-FORM ----- ^^ - 7 IDENTIFIED BY "http://www.gnu.org/software/gnucobol/". - 8 01 WEB-PAGE-1 EXTERNAL-FORM, ->> Error: Invalid syntax - -syn_misc.at-2788-prog.cob:8.22-8.35: - 5 WORKING-STORAGE SECTION. - 6 01 GNUCOBOL-URL IS EXTERNAL-FORM - 7 IDENTIFIED BY "http://www.gnu.org/software/gnucobol/". - 8 > 01 WEB-PAGE-1 EXTERNAL-FORM, ----- ^^^^^^^^^^^^^ - 9 IDENTIFIED "cgipage1". - 10 01 SIMPLE-FORM IS EXTERNAL-FORM. ->> Error: Invalid syntax - -syn_misc.at-2788-prog.cob:10.23-10.25: - 7 IDENTIFIED BY "http://www.gnu.org/software/gnucobol/". - 8 01 WEB-PAGE-1 EXTERNAL-FORM, - 9 IDENTIFIED "cgipage1". - 10 > 01 SIMPLE-FORM IS EXTERNAL-FORM. ----- ^^ - 11 03 SIMPLE-FORM-VAR1 PIC X(10). - 12 03 SIMPLE-FORM-VAR2 PIC 9(5). ->> Error: Invalid syntax - -syn_misc.at-2788-prog.cob:13.19-13.32: - 10 01 SIMPLE-FORM IS EXTERNAL-FORM. - 11 03 SIMPLE-FORM-VAR1 PIC X(10). - 12 03 SIMPLE-FORM-VAR2 PIC 9(5). - 13 > 01 MY-FORM EXTERNAL-FORM. ----- ^^^^^^^^^^^^^ - 14 03 CGI-VAR1 PIC X(20) IDENTIFIED "Name". - 15 03 CGI-VAR2 PIC X(50) IDENTIFIED BY CGI-VAR1. ->> Error: Invalid syntax - -syn_misc.at-2788-prog.cob:14.34-14.44: - 11 03 SIMPLE-FORM-VAR1 PIC X(10). - 12 03 SIMPLE-FORM-VAR2 PIC 9(5). - 13 01 MY-FORM EXTERNAL-FORM. - 14 > 03 CGI-VAR1 PIC X(20) IDENTIFIED "Name". ----- ^^^^^^^^^^ - 15 03 CGI-VAR2 PIC X(50) IDENTIFIED BY CGI-VAR1. - 16 ->> Error: Invalid syntax - -syn_misc.at-2788-prog.cob:15.34-15.44: - 12 03 SIMPLE-FORM-VAR2 PIC 9(5). - 13 01 MY-FORM EXTERNAL-FORM. - 14 03 CGI-VAR1 PIC X(20) IDENTIFIED "Name". - 15 > 03 CGI-VAR2 PIC X(50) IDENTIFIED BY CGI-VAR1. ----- ^^^^^^^^^^ - 16 - 17 PROCEDURE DIVISION. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2826:0 -syn_misc.at-2826-prog.cob:10.11-10.15: - 7 01 hello PIC X. - 8 01 foo PIC X. - 9 01 bars PIC X. - 10 > 01 file PIC X. ----- ^^^^ - 11 01 background-color PIC X. - 12 ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2858:0 -syn_misc.at-2858-prog.cob:6.15-6.30: - 3 PROGRAM-ID. prog. - 4 - 5 PROCEDURE DIVISION. - 6 > FOO "Hello, world!" ----- ^^^^^^^^^^^^^^^ - 7 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2876:0 -syn_misc.at-2876-prog.cob:6.11-6.17: - 3 PROGRAM-ID. prog. - 4 - 5 PROCEDURE DIVISION. - 6 > COMP-1 "Hello, world!" ----- ^^^^^^ - 7 DISPLAY "Hello, world!". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2910:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2943:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2987:0 -syn_misc.at-2987-prog.cob:8.7-8.22: - 5 ENVIRONMENT DIVISION. - 6 CONFIGURATION SECTION. - 7 OBJECT-COMPUTER. a. - 8 > SOURCE-COMPUTER. b. ----- ^^^^^^^^^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3048:0 -syn_misc.at-3048-prog.cob:8.7-8.22: - 5 ENVIRONMENT DIVISION. - 6 CONFIGURATION SECTION. - 7 REPOSITORY. - 8 > SOURCE-COMPUTER. b. ----- ^^^^^^^^^^^^^^^ - 9 OBJECT-COMPUTER. a. - 10 SPECIAL-NAMES. ->> Error: Invalid syntax - -syn_misc.at-3048-prog.cob:22.7-22.20: - 19 SOURCE-COMPUTER. b. - 20 OBJECT-COMPUTER. a. - 21 REPOSITORY. - 22 > SPECIAL-NAMES. ----- ^^^^^^^^^^^^^ - 23 - 24 END PROGRAM prog2. ->> Error: Invalid syntax - -syn_misc.at-3048-prog.cob:32.7-32.22: - 29 ENVIRONMENT DIVISION. - 30 CONFIGURATION SECTION. - 31 REPOSITORY. - 32 > SOURCE-COMPUTER. b. ----- ^^^^^^^^^^^^^^^ - 33 OBJECT-COMPUTER. a. - 34 ->> Error: Invalid syntax - -syn_misc.at-3048-prog.cob:43.7-43.20: - 40 ENVIRONMENT DIVISION. - 41 CONFIGURATION SECTION. - 42 REPOSITORY. - 43 > SPECIAL-NAMES. ----- ^^^^^^^^^^^^^ - 44 SOURCE-COMPUTER. b. - 45 OBJECT-COMPUTER. a. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3104:0 -syn_misc.at-3104-prog.cob:5.23-5.30: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > CALL STATIC "stuff" ----- ^^^^^^^ - 6 ON EXCEPTION - 7 CONTINUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3108:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3109:0 -syn_misc.at-3109-prog3.cob:2.7-2.32: - 1 - 2 > >> CALL-CONVENTION STATIC ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog3. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3175:0 -syn_misc.at-3175-prog.cob:39.15-39.27: - 36 END-WRITE - 37 - 38 DISPLAY "blah" - 39 > ON EXCEPTION ----- ^^^^^^^^^^^^ - 40 CALL "err" - 41 NOT ON EXCEPTION ->> Error: Invalid syntax - -syn_misc.at-3175-prog.cob:46.15-46.31: - 43 ON EXCEPTION - 44 CONTINUE. - 45 DISPLAY "blah" - 46 > NOT ON EXCEPTION ----- ^^^^^^^^^^^^^^^^ - 47 CALL "err" - 48 ON EXCEPTION ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3227:0 -syn_misc.at-3227-prog.cob:10.7-10.15: - 7 REPLACE ==a== BY ==b==.. *> blah blah - 8 . - 9 - 10 > COPY a.. ----- ^^^^^^^^ - 11 - 12 78 var VALUE "hello". ->> Error: Library `A.' not found in search path (search path: ) - -syn_misc.at-3227-prog.cob:7.30-7.31: - 4 - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > REPLACE ==a== BY ==b==.. *> blah blah ----- ^ - 8 . - 9 ->> Error: Invalid syntax - -syn_misc.at-3227-prog.cob:14.10-14.11: - 11 - 12 78 var VALUE "hello". - 13 * blah blah - 14 > . ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3266:0 -syn_misc.at-3266-prog.cob:14.19: - 11 IF NOT DONE = 1 - 12 DISPLAY "SEC-1 NOT EXECUTED" - 13 END-IF - 14 > STOP RUN ----- ^ - 15 SEC-1 SECTION. - 16 MOVE 1 TO DONE ->> Hint: Missing . - -syn_misc.at-3266-prog.cob:15.7-15.12: - 12 DISPLAY "SEC-1 NOT EXECUTED" - 13 END-IF - 14 STOP RUN - 15 > SEC-1 SECTION. ----- ^^^^^ - 16 MOVE 1 TO DONE - 17 GOBACK. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3321:0 -syn_misc.at-3321-prog.cob:7.7-7.21: - 4 - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > COPY "ok.inc". ----- ^^^^^^^^^^^^^^ - 8 - 9 PROCEDURE DIVISION. ->> Error: Library `ok.inc' not found in search path (search path: ) - -syn_misc.at-3321-prog.cob:16.11-16.28: - 13 * Directive purposefully in Area A - 14 REPLACE ==RUNNN== BY ==RUN==. - 15 STOP RUNNN - 16 > COPY "sec-1.inc". ----- ^^^^^^^^^^^^^^^^^ - 17 * Also purposefully in Area A - 18 COPY "sec-2.inc". ->> Error: Library `sec-1.inc' not found in search path (search path: ) - -syn_misc.at-3321-prog.cob:18.8-18.25: - 15 STOP RUNNN - 16 COPY "sec-1.inc". - 17 * Also purposefully in Area A - 18 > COPY "sec-2.inc". ----- ^^^^^^^^^^^^^^^^^ ->> Error: Library `sec-2.inc' not found in search path (search path: ) - -syn_misc.at-3321-prog.cob:19.0: - 16 COPY "sec-1.inc". - 17 * Also purposefully in Area A - 18 COPY "sec-2.inc". ->> Hint: Missing . - -syn_misc.at-3321-prog.cob:19.0: - 16 COPY "sec-1.inc". - 17 * Also purposefully in Area A - 18 COPY "sec-2.inc". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3386:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3436:0 -syn_misc.at-3436-prog.cob:7.11-9.12: - 4 - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 > COPY "ok.inc" REPLACING == 01 REPLACE-ME == BY == ----- ^ - 8 > 01 OK PIC XX VALUE "OK". == ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > . ----- ^^^^^^^^^^^^^ - 10 - 11 PERFORM SEC-2 ->> Error: Library `ok.inc' not found in search path (search path: ) - -syn_misc.at-3436-prog.cob:11.11-11.18: - 8 01 OK PIC XX VALUE "OK". == - 9 . - 10 - 11 > PERFORM SEC-2 ----- ^^^^^^^ - 12 STOP RUN - 13 CONTINUE ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3969:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4209:0 -syn_misc.at-4209-prog.cob:9.27-9.28: - 6 ENVIRONMENT DIVISION. - 7 CONFIGURATION SECTION. - 8 SPECIAL-NAMES. - 9 > CALL-CONVENTION 0 IS EXTERN. ----- ^ - 10 - 11 PROCEDURE DIVISION EXTERN. ->> Error: Invalid syntax - -syn_misc.at-4209-prog.cob:11.29: - 8 SPECIAL-NAMES. - 9 CALL-CONVENTION 0 IS EXTERN. - 10 - 11 > PROCEDURE DIVISION EXTERN. ----- ^ - 12 CONTINUE - 13 . ->> Hint: Missing . - -syn_misc.at-4209-prog.cob:11.30-11.36: - 8 SPECIAL-NAMES. - 9 CALL-CONVENTION 0 IS EXTERN. - 10 - 11 > PROCEDURE DIVISION EXTERN. ----- ^^^^^^ - 12 CONTINUE - 13 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4225:0 -syn_misc.at-4225-prog2.cob:9.29: - 6 ENVIRONMENT DIVISION. - 7 CONFIGURATION SECTION. - 8 - 9 > PROCEDURE DIVISION WITH C LINKAGE. ----- ^ - 10 CONTINUE - 11 . ->> Hint: Missing . - -syn_misc.at-4225-prog2.cob:9.30-9.34: - 6 ENVIRONMENT DIVISION. - 7 CONFIGURATION SECTION. - 8 - 9 > PROCEDURE DIVISION WITH C LINKAGE. ----- ^^^^ - 10 CONTINUE - 11 . ->> Error: Invalid syntax - -syn_misc.at-4225-prog2.cob:9.37-9.44: - 6 ENVIRONMENT DIVISION. - 7 CONFIGURATION SECTION. - 8 - 9 > PROCEDURE DIVISION WITH C LINKAGE. ----- ^^^^^^^ - 10 CONTINUE - 11 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4337:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4385:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4578:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4614:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4771:0 -syn_misc.at-4771-prog.cob:17.11-17.22: - 14 PROCEDURE DIVISION. - 15 PERFORM VARYING i FROM 1 BY 1 - 16 UNTIL i = 5 - 17 > END-PERFORM ----- ^^^^^^^^^^^ - 18 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4859:0 -syn_misc.at-4859-prog1.cob:5.11-6.18: - 2 IDENTIFICATION - 3 DIVISION - 4 . - 5 > author. ----- ^^^^^^^ - 6 > tester. ----- ^^^^^^^^^^^^^^^^^^^ - 7 PROGRAM-ID - 8 . ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -syn_misc.at-4859-prog1.cob:11.11-11.34: - 8 . - 9 prog1 - 10 . - 11 > REMARKS;. Should work.,, ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 12 - 13 ENVIRONMENT ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -syn_misc.at-4859-prog1.cob:30.7-30.22: - 27 DDATA - 28 D DIVISION - 29 D . - 30 > WORKING-STORAGE ----- ^^^^^^^^^^^^^^^ - 31 SECTION - 32 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4860:0 -syn_misc.at-4860-prog2.cob:2.7-2.9: - 1 - 2 > ID,;DIVISION;,.,; ----- ^^ - 3 author,.;tester. - 4 PROGRAM-ID,;.;,prog2;,.;, ->> Error: Invalid syntax - -syn_misc.at-4860-prog2.cob:5.11-5.34: - 2 ID,;DIVISION;,.,; - 3 author,.;tester. - 4 PROGRAM-ID,;.;,prog2;,.;, - 5 > REMARKS;. Should work.,, ----- ^^^^^^^^^^^^^^^^^^^^^^^ - 6 ENVIRONMENT,;DIVISION;,.,; - 7 CONFIGURATION;;,,SECTION;;,,. ->> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default - -syn_misc.at-4860-prog2.cob:12.7-12.9: - 9 - 10 DDATA;DIVISION,. - 11 DWORKING-STORAGE,SECTION;. - 12 > 01;i,PIC;9;. ----- ^^ - 13 - 14 PROCEDURE;DIVISION,.; ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4882:0 -syn_misc.at-4882-prog.cob:8.31: - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 01 x PIC 9(5) VALUE 1. - 8 > 01 y CONSTANT "ab". ----- ^ - 9 - 10 PROCEDURE DIVISION. ->> Hint: Missing RECORD - -syn_misc.at-4882-prog.cob:8.32-8.36: - 5 DATA DIVISION. - 6 WORKING-STORAGE SECTION. - 7 01 x PIC 9(5) VALUE 1. - 8 > 01 y CONSTANT "ab". ----- ^^^^ - 9 - 10 PROCEDURE DIVISION. ->> Error: Invalid syntax - -syn_misc.at-4882-prog.cob:11.15: - 8 01 y CONSTANT "ab". - 9 - 10 PROCEDURE DIVISION. - 11 > STOP x ----- ^ - 12 STOP y - 13 . ->> Hint: Missing . - -syn_misc.at-4882-prog.cob:11.16-11.17: - 8 01 y CONSTANT "ab". - 9 - 10 PROCEDURE DIVISION. - 11 > STOP x ----- ^ - 12 STOP y - 13 . ->> Error: Invalid syntax - -syn_misc.at-4882-prog.cob:11.17: - 8 01 y CONSTANT "ab". - 9 - 10 PROCEDURE DIVISION. - 11 > STOP x ----- ^ - 12 STOP y - 13 . ->> Hint: Missing . - -syn_misc.at-4882-prog.cob:12.11-12.15: - 9 - 10 PROCEDURE DIVISION. - 11 STOP x - 12 > STOP y ----- ^^^^ - 13 . ->> Warning: Invalid syntax - -syn_misc.at-4882-prog.cob:12.15: - 9 - 10 PROCEDURE DIVISION. - 11 STOP x - 12 > STOP y ----- ^ - 13 . ->> Hint: Missing . - -syn_misc.at-4882-prog.cob:12.16-12.17: - 9 - 10 PROCEDURE DIVISION. - 11 STOP x - 12 > STOP y ----- ^ - 13 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5068:0 -syn_misc.at-5068-prog.cob:7.16-7.24: - 4 ENVIRONMENT DIVISION. - 5 CONFIGURATION SECTION. - 6 SPECIAL-NAMES. - 7 > SYMBOLIC CONSTANT ----- ^^^^^^^^ - 8 con-1 IS 1 - 9 25156c "25156c". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5260:0 -syn_misc.at-5260-prog.cob:7.29: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 78 const1 value 115. - 7 > 01 const2 CONSTANT 200. ----- ^ - 8 78 const3 value const2. - 9 78 const4 value const2 + const1. ->> Hint: Missing RECORD . - -syn_misc.at-5260-prog.cob:7.30-7.33: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 78 const1 value 115. - 7 > 01 const2 CONSTANT 200. ----- ^^^ - 8 78 const3 value const2. - 9 78 const4 value const2 + const1. ->> Error: Invalid syntax - -syn_misc.at-5260-prog.cob:8.26: - 5 WORKING-STORAGE SECTION. - 6 78 const1 value 115. - 7 01 const2 CONSTANT 200. - 8 > 78 const3 value const2. ----- ^ - 9 78 const4 value const2 + const1. - 10 77 othervar PIC X(const1). ->> Hint: Missing - -syn_misc.at-5260-prog.cob:8.27-8.33: - 5 WORKING-STORAGE SECTION. - 6 78 const1 value 115. - 7 01 const2 CONSTANT 200. - 8 > 78 const3 value const2. ----- ^^^^^^ - 9 78 const4 value const2 + const1. - 10 77 othervar PIC X(const1). ->> Error: Invalid syntax - -syn_misc.at-5260-prog.cob:9.26: - 6 78 const1 value 115. - 7 01 const2 CONSTANT 200. - 8 78 const3 value const2. - 9 > 78 const4 value const2 + const1. ----- ^ - 10 77 othervar PIC X(const1). - 11 01 var PIC X(const2). ->> Hint: Missing - -syn_misc.at-5260-prog.cob:9.27-9.33: - 6 78 const1 value 115. - 7 01 const2 CONSTANT 200. - 8 78 const3 value const2. - 9 > 78 const4 value const2 + const1. ----- ^^^^^^ - 10 77 othervar PIC X(const1). - 11 01 var PIC X(const2). ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5309:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5485:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5576:0 -syn_misc.at-5576-prog.cob:16.11-16.15: - 13 PROCEDURE DIVISION. - 14 - 15 IF var-len < 16 - 16 > ELSE ----- ^^^^ - 17 move othervar to var - 18 END-IF ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:21.11-21.15: - 18 END-IF - 19 - 20 IF var-len > 16 - 21 > ELSE ----- ^^^^ - 22 move othervar to var - 23 END-IF ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:26.11-26.15: - 23 END-IF - 24 - 25 IF (2 = 3) - 26 > ELSE ----- ^^^^ - 27 IF 1 = 1 - 28 ELSE ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:28.14-28.18: - 25 IF (2 = 3) - 26 ELSE - 27 IF 1 = 1 - 28 > ELSE ----- ^^^^ - 29 IF 1 = 1 - 30 move var to othervar ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:39.11-39.23: - 36 WHEN A = B - 37 move var to othervar - 38 WHEN OTHER - 39 > END-EVALUATE ----- ^^^^^^^^^^^^ - 40 - 41 PERFORM WITH TEST BEFORE UNTIL 1 <> 3 ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:42.11-42.22: - 39 END-EVALUATE - 40 - 41 PERFORM WITH TEST BEFORE UNTIL 1 <> 3 - 42 > END-PERFORM ----- ^^^^^^^^^^^ - 43 - 44 EVALUATE FALSE ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:47.11-47.23: - 44 EVALUATE FALSE - 45 WHEN A = B - 46 WHEN B = A - 47 > END-EVALUATE. ----- ^^^^^^^^^^^^ - 48 - 49 EVALUATE TRUE ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:53.11-53.12: - 50 WHEN A = B - 51 move var to othervar - 52 WHEN OTHER - 53 > . ----- ^ - 54 - 55 EVALUATE TRUE ->> Error: Invalid syntax - -syn_misc.at-5576-prog.cob:58.11-58.12: - 55 EVALUATE TRUE - 56 WHEN A = B - 57 WHEN B = A - 58 > . ----- ^ - 59 - 60 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5649:0 -syn_misc.at-5649-prog.cob:12.53: - 9 05 item-05-b pic x(01). - 10 01 myk-01 constant as length of item-01. - 11 01 myk-02 constant is global as length item-05-a. - 12 > 01 myk-03 constant global as length of pointer. *> extension ----- ^ - 13 01 myk-04 constant global as byte-length of item-01. - 14 01 myk-05 constant is global as byte-length item-05-a. ->> Hint: Missing - -syn_misc.at-5649-prog.cob:12.54-12.61: - 9 05 item-05-b pic x(01). - 10 01 myk-01 constant as length of item-01. - 11 01 myk-02 constant is global as length item-05-a. - 12 > 01 myk-03 constant global as length of pointer. *> extension ----- ^^^^^^^ - 13 01 myk-04 constant global as byte-length of item-01. - 14 01 myk-05 constant is global as byte-length item-05-a. ->> Error: Invalid syntax - -syn_misc.at-5649-prog.cob:15.53: - 12 01 myk-03 constant global as length of pointer. *> extension - 13 01 myk-04 constant global as byte-length of item-01. - 14 01 myk-05 constant is global as byte-length item-05-a. - 15 > 01 myk-06 constant as byte-length of pointer. *> extension ----- ^ ->> Hint: Missing - -syn_misc.at-5649-prog.cob:15.54-15.61: - 12 01 myk-03 constant global as length of pointer. *> extension - 13 01 myk-04 constant global as byte-length of item-01. - 14 01 myk-05 constant is global as byte-length item-05-a. - 15 > 01 myk-06 constant as byte-length of pointer. *> extension ----- ^^^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5735:0 -syn_misc.at-5735-prog.cob:7.26-7.34: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 01 DATA-COLLECTION. - 7 > 03 DATA-ITEMS-A VOLATILE. ----- ^^^^^^^^ - 8 05 DATA-A1 PIC S9(9) BINARY. - 9 05 DATA-A2 PIC S9(9) BINARY. ->> Error: Invalid syntax - -syn_misc.at-5735-prog.cob:10.13-10.21: - 7 03 DATA-ITEMS-A VOLATILE. - 8 05 DATA-A1 PIC S9(9) BINARY. - 9 05 DATA-A2 PIC S9(9) BINARY. - 10 > 03 VOLATILE. ----- ^^^^^^^^ - 11 05 DATA-FILLER PIC S9(9) BINARY. - 12 03 DATA-ITEMS-B. ->> Error: Invalid syntax - -syn_misc.at-5735-prog.cob:14.34-14.42: - 11 05 DATA-FILLER PIC S9(9) BINARY. - 12 03 DATA-ITEMS-B. - 13 05 DATA-B1 PIC S9(9). - 14 > 05 DATA-B2 PIC S9(9) VOLATILE. ----- ^^^^^^^^ - 15 03 DATA-ITEMS-C. - 16 05 DATA-C1 PIC S9(9). ->> Error: Invalid syntax - -syn_misc.at-5735-prog.cob:18.52-18.60: - 15 03 DATA-ITEMS-C. - 16 05 DATA-C1 PIC S9(9). - 17 05 DATA-C2 PIC S9(9). - 18 > 01 STEP PIC 9(8) BINARY VALUE 0 EXTERNAL VOLATILE. ----- ^^^^^^^^ - 19 *01 WRONGY PIC X. - 20 * 88 TESTVAL-A VALUE 'A' VOLATILE. ->> Error: Invalid syntax - -syn_misc.at-5735-prog.cob:24.31-24.39: - 21 * 88 TESTVAL-B VOLATILE VALUE 'B'. - 22 LINKAGE SECTION. - 23 01 XMYREC. - 24 > 05 XFLD1 PIC 9(2) VOLATILE. ----- ^^^^^^^^ - 25 *SCREEN SECTION. - 26 *01 WRONG-SCREEN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5792:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5830:0 -syn_misc.at-5830-prog.cob:6.26-6.29: - 3 PROGRAM-ID. prog. - 4 - 5 PROCEDURE DIVISION. - 6 > MOVE 1 TO LIN, COL ----- ^^^ - 7 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5857:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5874:0 -syn_misc.at-5874-valid.cob:2.7-2.15: - 1 - 2 > 000100 @OPTIONS NOMAIN,APOST ----- ^^^^^^^^ - 3 000200 @OPTIONS APOST - 4 000300 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -syn_misc.at-5874-valid.cob:5.18: - 2 000100 @OPTIONS NOMAIN,APOST - 3 000200 @OPTIONS APOST - 4 000300 IDENTIFICATION DIVISION. - 5 > 000400 PROGRAM-ID. VALID. ----- ^ ->> Hint: Missing - -syn_misc.at-5874-valid.cob:5.19-5.24: - 2 000100 @OPTIONS NOMAIN,APOST - 3 000200 @OPTIONS APOST - 4 000300 IDENTIFICATION DIVISION. - 5 > 000400 PROGRAM-ID. VALID. ----- ^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5963:0 -syn_misc.at-5963-valid.cob:2.7-2.14: - 1 - 2 > 000100 Process codepage(1047) ----- ^^^^^^^ - 3 000200 CBL CODEPAGE(1208) - 4 000300 CBL ->> Error: Invalid syntax - -syn_misc.at-5963-valid.cob:6.18: - 3 000200 CBL CODEPAGE(1208) - 4 000300 CBL - 5 000400 IDENTIFICATION DIVISION. - 6 > 000500 PROGRAM-ID. VALID. ----- ^ ->> Hint: Missing - -syn_misc.at-5963-valid.cob:6.19-6.24: - 3 000200 CBL CODEPAGE(1208) - 4 000300 CBL - 5 000400 IDENTIFICATION DIVISION. - 6 > 000500 PROGRAM-ID. VALID. ----- ^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5999:0 -syn_misc.at-5999-valid.cob:3.8-3.16: - 1 - 2 *CONTROL LIST - 3 > *CONTROL SOURCE ----- ^^^^^^^^ - 4 *CBL MAP LIST - 5 000100 *CBL NOMAP NOSOURCE NOLIST ->> Error: Invalid syntax - -syn_misc.at-5999-valid.cob:3.16: - 1 - 2 *CONTROL LIST - 3 > *CONTROL SOURCE ----- ^ - 4 *CBL MAP LIST - 5 000100 *CBL NOMAP NOSOURCE NOLIST ->> Hint: Missing DIVISION . - -syn_misc.at-5999-valid.cob:3.17-3.23: - 1 - 2 *CONTROL LIST - 3 > *CONTROL SOURCE ----- ^^^^^^ - 4 *CBL MAP LIST - 5 000100 *CBL NOMAP NOSOURCE NOLIST ->> Error: Invalid syntax - -syn_misc.at-5999-valid.cob:7.18: - 4 *CBL MAP LIST - 5 000100 *CBL NOMAP NOSOURCE NOLIST - 6 000200 IDENTIFICATION DIVISION. - 7 > 000300 PROGRAM-ID. VALID. ----- ^ ->> Hint: Missing - -syn_misc.at-5999-valid.cob:7.19-7.24: - 4 *CBL MAP LIST - 5 000100 *CBL NOMAP NOSOURCE NOLIST - 6 000200 IDENTIFICATION DIVISION. - 7 > 000300 PROGRAM-ID. VALID. ----- ^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6601:0 -syn_misc.at-6601-prog.cob:9.15-9.26: - 6 INPUT-OUTPUT SECTION. - 7 FILE-CONTROL. - 8 SELECT f ASSIGN "f.dat" SEQUENTIAL - 9 > FILE-LIMITS ARE 1 THRU 10, 100 THRU f-max ----- ^^^^^^^^^^^ - 10 TRACK-AREA 100 CHARACTERS - 11 TRACK-LIMIT 5 TRACKS. ->> Error: Invalid syntax - -syn_misc.at-6601-prog.cob:14.15-14.21: - 11 TRACK-LIMIT 5 TRACKS. - 12 SELECT g ASSIGN "g.dat" RELATIVE - 13 RELATIVE KEY g-key - 14 > ACTUAL KEY g-actual-key. ----- ^^^^^^ - 15 - 16 I-O-CONTROL. ->> Error: Invalid syntax - -syn_misc.at-6601-prog.cob:17.11-17.16: - 14 ACTUAL KEY g-actual-key. - 15 - 16 I-O-CONTROL. - 17 > APPLY RECORD-OVERFLOW f, g ----- ^^^^^ - 18 APPLY CORE-INDEX core-idx ON f - 19 APPLY CYL-INDEX TO 5 ON f ->> Error: Invalid syntax - -syn_misc.at-6601-prog.cob:25.38: - 22 APPLY MASTER-INDEX TO 5 on g - 23 APPLY WRITE-VERIFY f, g - 24 APPLY REORG-CRITERIA f-rec, f - 25 > RERUN ON "g2.dat" EVERY END REEL g ----- ^ - 26 . - 27 DATA DIVISION. ->> Hint: Missing PROGRAM - -syn_misc.at-6601-prog.cob:25.39-25.43: - 22 APPLY MASTER-INDEX TO 5 on g - 23 APPLY WRITE-VERIFY f, g - 24 APPLY REORG-CRITERIA f-rec, f - 25 > RERUN ON "g2.dat" EVERY END REEL g ----- ^^^^ - 26 . - 27 DATA DIVISION. ->> Error: Invalid syntax - -syn_misc.at-6601-prog.cob:27.7-27.11: - 24 APPLY REORG-CRITERIA f-rec, f - 25 RERUN ON "g2.dat" EVERY END REEL g - 26 . - 27 > DATA DIVISION. ----- ^^^^ - 28 FILE SECTION. - 29 FD f. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6642:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6806:0 -syn_misc.at-6806-prog.cob:5.7-5.21: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >>DISPLAY "OK" ----- ^^^^^^^^^^^^^^ - 6 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6826:0 -syn_misc.at-6826-prog.cob:5.7-5.19: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >>DISPLAY OK ----- ^^^^^^^^^^^^ - 6 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6845:0 -syn_misc.at-6845-prog.cob:5.7-5.17: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > $DISPLAY OK ----- ^^^^^^^^^^ - 6 STOP RUN. ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6924:0 -syn_misc.at-6924-prog.cob:2.7-2.11: - 1 - 2 > $SET CONSTANT DOGGY "Barky" ----- ^^^^ - 3 $SET CONSTANT PONY "Blacky" - 4 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -syn_misc.at-6924-prog.cob:8.35: - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 $SET CONSTANT PONY "White" ->> Hint: Missing - -syn_misc.at-6924-prog.cob:8.36-8.41: - 5 PROGRAM-ID. prog. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 $SET CONSTANT PONY "White" ->> Error: Invalid syntax - -syn_misc.at-6924-prog.cob:9.35: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^ - 10 $SET CONSTANT PONY "White" - 11 * ->> Hint: Missing - -syn_misc.at-6924-prog.cob:9.36-9.40: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^^^^ - 10 $SET CONSTANT PONY "White" - 11 * ->> Error: Invalid syntax - -syn_misc.at-6924-prog.cob:10.7-10.11: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 > $SET CONSTANT PONY "White" ----- ^^^^ - 11 * - 12 * ensure to test a numeric, too (not actually used): ->> Error: Invalid syntax - -syn_misc.at-6924-prog.cob:13.35: - 10 $SET CONSTANT PONY "White" - 11 * - 12 * ensure to test a numeric, too (not actually used): - 13 > $SET CONSTANT C-UNUSED-NUM 0 ----- ^ - 14 PROCEDURE DIVISION. - 15 MAIN. ->> Hint: Missing . - -syn_misc.at-6924-prog.cob:14.7-14.16: - 11 * - 12 * ensure to test a numeric, too (not actually used): - 13 $SET CONSTANT C-UNUSED-NUM 0 - 14 > PROCEDURE DIVISION. ----- ^^^^^^^^^ - 15 MAIN. - 16 DISPLAY "Your Dog's name is " DOGGY ";". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6930:0 -syn_misc.at-6930-prog2.cob:2.7-2.35: - 1 - 2 > >>SET CONSTANT DOGGY "Barky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 >>SET CONSTANT PONY "Blacky" - 4 IDENTIFICATION DIVISION. ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6930-prog2.cob:3.7-3.35: - 1 - 2 >>SET CONSTANT DOGGY "Barky" - 3 > >>SET CONSTANT PONY "Blacky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog2. ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6930-prog2.cob:8.35: - 5 PROGRAM-ID. prog2. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>SET CONSTANT PONY "White" ->> Hint: Missing - -syn_misc.at-6930-prog2.cob:8.36-8.41: - 5 PROGRAM-ID. prog2. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>SET CONSTANT PONY "White" ->> Error: Invalid syntax - -syn_misc.at-6930-prog2.cob:9.35: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^ - 10 >>SET CONSTANT PONY "White" - 11 * ->> Hint: Missing - -syn_misc.at-6930-prog2.cob:9.36-9.40: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^^^^ - 10 >>SET CONSTANT PONY "White" - 11 * ->> Error: Invalid syntax - -syn_misc.at-6930-prog2.cob:10.7-10.34: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 > >>SET CONSTANT PONY "White" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 * - 12 PROCEDURE DIVISION. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6934:0 -syn_misc.at-6934-prog3.cob:2.7-2.38: - 1 - 2 > >>DEFINE CONSTANT DOGGY "Barky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 >>DEFINE CONSTANT PONY "Blacky" - 4 IDENTIFICATION DIVISION. ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6934-prog3.cob:3.7-3.38: - 1 - 2 >>DEFINE CONSTANT DOGGY "Barky" - 3 > >>DEFINE CONSTANT PONY "Blacky" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog3. ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6934-prog3.cob:8.35: - 5 PROGRAM-ID. prog3. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE ->> Hint: Missing - -syn_misc.at-6934-prog3.cob:8.36-8.41: - 5 PROGRAM-ID. prog3. - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 > 01 THEDOG PIC X(6) VALUE DOGGY. ----- ^^^^^ - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE ->> Error: Invalid syntax - -syn_misc.at-6934-prog3.cob:9.35: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^ - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE - 11 * ->> Hint: Missing - -syn_misc.at-6934-prog3.cob:9.36-9.40: - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 > 77 MYHORSE PIC X(7) VALUE PONY. ----- ^^^^ - 10 >>DEFINE CONSTANT PONY "White" OVERRIDE - 11 * ->> Error: Invalid syntax - -syn_misc.at-6934-prog3.cob:10.7-10.46: - 7 WORKING-STORAGE SECTION. - 8 01 THEDOG PIC X(6) VALUE DOGGY. - 9 77 MYHORSE PIC X(7) VALUE PONY. - 10 > >>DEFINE CONSTANT PONY "White" OVERRIDE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 * - 12 PROCEDURE DIVISION. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6969:0 -syn_misc.at-6969-prog.cob:7.7-7.28: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > >>IF ACTIVATE DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^ - 8 >>DISPLAY "NOTOK" - 9 >>ELIF ACTIVATE2 DEFINED ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6969-prog.cob:8.7-8.24: - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 >>IF ACTIVATE DEFINED - 8 > >>DISPLAY "NOTOK" ----- ^^^^^^^^^^^^^^^^^ - 9 >>ELIF ACTIVATE2 DEFINED - 10 >>DISPLAY "OK" ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6969-prog.cob:9.7-9.31: - 6 PROCEDURE DIVISION. - 7 >>IF ACTIVATE DEFINED - 8 >>DISPLAY "NOTOK" - 9 > >>ELIF ACTIVATE2 DEFINED ----- ^^^^^^^^^^^^^^^^^^^^^^^^ - 10 >>DISPLAY "OK" - 11 >>ELSE ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6969-prog.cob:10.7-10.21: - 7 >>IF ACTIVATE DEFINED - 8 >>DISPLAY "NOTOK" - 9 >>ELIF ACTIVATE2 DEFINED - 10 > >>DISPLAY "OK" ----- ^^^^^^^^^^^^^^ - 11 >>ELSE - 12 >>DISPLAY "NOTOK" ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6969-prog.cob:11.7-11.13: - 8 >>DISPLAY "NOTOK" - 9 >>ELIF ACTIVATE2 DEFINED - 10 >>DISPLAY "OK" - 11 > >>ELSE ----- ^^^^^^ - 12 >>DISPLAY "NOTOK" - 13 >>END-IF ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6969-prog.cob:12.7-12.24: - 9 >>ELIF ACTIVATE2 DEFINED - 10 >>DISPLAY "OK" - 11 >>ELSE - 12 > >>DISPLAY "NOTOK" ----- ^^^^^^^^^^^^^^^^^ - 13 >>END-IF - 14 STOP RUN. ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6969-prog.cob:13.7-13.15: - 10 >>DISPLAY "OK" - 11 >>ELSE - 12 >>DISPLAY "NOTOK" - 13 > >>END-IF ----- ^^^^^^^^ - 14 STOP RUN. ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6994:0 -syn_misc.at-6994-prog.cob:5.7-5.22: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >> IF X DEFINED ----- ^^^^^^^^^^^^^^^ - 6 >>DISPLAY "X defined" - 7 >> ELSE ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6994-prog.cob:6.9-6.30: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 >> IF X DEFINED - 6 > >>DISPLAY "X defined" ----- ^^^^^^^^^^^^^^^^^^^^^ - 7 >> ELSE - 8 >> DISPLAY "X not defined" ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6994-prog.cob:7.7-7.14: - 4 PROCEDURE DIVISION. - 5 >> IF X DEFINED - 6 >>DISPLAY "X defined" - 7 > >> ELSE ----- ^^^^^^^ - 8 >> DISPLAY "X not defined" - 9 >> DEFINE X 1 ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6994-prog.cob:8.9-8.35: - 5 >> IF X DEFINED - 6 >>DISPLAY "X defined" - 7 >> ELSE - 8 > >> DISPLAY "X not defined" ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 >> DEFINE X 1 - 10 >> END-IF ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6994-prog.cob:9.9-9.22: - 6 >>DISPLAY "X defined" - 7 >> ELSE - 8 >> DISPLAY "X not defined" - 9 > >> DEFINE X 1 ----- ^^^^^^^^^^^^^ - 10 >> END-IF - 11 CONTINUE ->> Error: Malformed or unknown compiler directive - -syn_misc.at-6994-prog.cob:10.7-10.16: - 7 >> ELSE - 8 >> DISPLAY "X not defined" - 9 >> DEFINE X 1 - 10 > >> END-IF ----- ^^^^^^^^^ - 11 CONTINUE - 12 . ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7027:0 -syn_misc.at-7027-prog.cob:5.7-5.24: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >>IF A IS DEFINED ----- ^^^^^^^^^^^^^^^^^ - 6 >>IF B IS DEFINED - 7 CONTINUE ->> Error: Malformed or unknown compiler directive - -syn_misc.at-7027-prog.cob:6.7-6.24: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 >>IF A IS DEFINED - 6 > >>IF B IS DEFINED ----- ^^^^^^^^^^^^^^^^^ - 7 CONTINUE - 8 >> DISPLAY "NOT OK (not both definitions)" ->> Error: Malformed or unknown compiler directive - -syn_misc.at-7027-prog.cob:8.7-8.17: - 5 >>IF A IS DEFINED - 6 >>IF B IS DEFINED - 7 CONTINUE - 8 > >> DISPLAY "NOT OK (not both definitions)" ----- ^^^^^^^^^^ - 9 . - 10 >>ELSE ->> Error: Invalid syntax - -syn_misc.at-7027-prog.cob:10.7-10.13: - 7 CONTINUE - 8 >> DISPLAY "NOT OK (not both definitions)" - 9 . - 10 > >>ELSE ----- ^^^^^^ - 11 CONTINUE - 12 >> DISPLAY "NOT OK (no definitions)" ->> Error: Malformed or unknown compiler directive - -syn_misc.at-7027-prog.cob:12.7-12.17: - 9 . - 10 >>ELSE - 11 CONTINUE - 12 > >> DISPLAY "NOT OK (no definitions)" ----- ^^^^^^^^^^ - 13 . - 14 >>END-IF ->> Error: Invalid syntax - -syn_misc.at-7027-prog.cob:14.7-14.15: - 11 CONTINUE - 12 >> DISPLAY "NOT OK (no definitions)" - 13 . - 14 > >>END-IF ----- ^^^^^^^^ - 15 >>ELSE - 16 CONTINUE ->> Error: Malformed or unknown compiler directive - -syn_misc.at-7027-prog.cob:15.7-15.13: - 12 >> DISPLAY "NOT OK (no definitions)" - 13 . - 14 >>END-IF - 15 > >>ELSE ----- ^^^^^^ - 16 CONTINUE - 17 >> DISPLAY "OK" ->> Error: Malformed or unknown compiler directive - -syn_misc.at-7027-prog.cob:17.7-17.17: - 14 >>END-IF - 15 >>ELSE - 16 CONTINUE - 17 > >> DISPLAY "OK" ----- ^^^^^^^^^^ - 18 . - 19 >>END-IF ->> Error: Invalid syntax - -syn_misc.at-7027-prog.cob:19.7-19.15: - 16 CONTINUE - 17 >> DISPLAY "OK" - 18 . - 19 > >>END-IF ----- ^^^^^^^^ ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7051:0 -syn_misc.at-7051-prog.cob:5.7-5.24: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 > >>IF A IS DEFINED ----- ^^^^^^^^^^^^^^^^^ - 6 CONTINUE - 7 . ->> Error: Malformed or unknown compiler directive - -syn_misc.at-7051-prog.cob:8.7-8.13: - 5 >>IF A IS DEFINED - 6 CONTINUE - 7 . - 8 > >>else ----- ^^^^^^ - 9 CONTINUE - 10 . ->> Error: Malformed or unknown compiler directive - -syn_misc.at-7051-prog.cob:11.7-11.15: - 8 >>else - 9 CONTINUE - 10 . - 11 > >>eNd-If ----- ^^^^^^^^ ->> Error: Malformed or unknown compiler directive - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7109:0 -syn_misc.at-7109-prog.cob:8.7-8.19: - 5 WORKING-STORAGE SECTION. - 6 78 Y VALUE 'a'. - 7 PROCEDURE DIVISION. - 8 > $IF X DEFINED ----- ^^^^^^^^^^^^ - 9 $DISPLAY X defined - 10 $ELIF Y DEFINED ->> Error: Unexpected characters - -syn_misc.at-7109-prog.cob:9.7-9.24: - 6 78 Y VALUE 'a'. - 7 PROCEDURE DIVISION. - 8 $IF X DEFINED - 9 > $DISPLAY X defined ----- ^^^^^^^^^^^^^^^^^ - 10 $ELIF Y DEFINED - 11 $DISPLAY X not defined, but Y via lvl 78 ->> Error: Unexpected characters - -syn_misc.at-7109-prog.cob:10.7-10.21: - 7 PROCEDURE DIVISION. - 8 $IF X DEFINED - 9 $DISPLAY X defined - 10 > $ELIF Y DEFINED ----- ^^^^^^^^^^^^^^ - 11 $DISPLAY X not defined, but Y via lvl 78 - 12 $ELSE ->> Error: Unexpected characters - -syn_misc.at-7109-prog.cob:11.7-11.46: - 8 $IF X DEFINED - 9 $DISPLAY X defined - 10 $ELIF Y DEFINED - 11 > $DISPLAY X not defined, but Y via lvl 78 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 12 $ELSE - 13 $DISPLAY X not defined ->> Error: Unexpected characters - -syn_misc.at-7109-prog.cob:12.7-12.11: - 9 $DISPLAY X defined - 10 $ELIF Y DEFINED - 11 $DISPLAY X not defined, but Y via lvl 78 - 12 > $ELSE ----- ^^^^ - 13 $DISPLAY X not defined - 14 $END ->> Error: Unexpected characters - -syn_misc.at-7109-prog.cob:13.7-13.28: - 10 $ELIF Y DEFINED - 11 $DISPLAY X not defined, but Y via lvl 78 - 12 $ELSE - 13 > $DISPLAY X not defined ----- ^^^^^^^^^^^^^^^^^^^^^ - 14 $END - 15 CONTINUE ->> Error: Unexpected characters - -syn_misc.at-7109-prog.cob:14.7-14.10: - 11 $DISPLAY X not defined, but Y via lvl 78 - 12 $ELSE - 13 $DISPLAY X not defined - 14 > $END ----- ^^^ - 15 CONTINUE - 16 . ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7160:0 -syn_misc.at-7160-prog.cob:11.7-11.17: - 8 78 X VALUE 2. - 9 78 Z VALUE 354. - 10 PROCEDURE DIVISION. - 11 > $IF Y = Y2X ----- ^^^^^^^^^^ - 12 $DISPLAY correct Y = Y2 - 13 $ELSE ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:12.7-12.29: - 9 78 Z VALUE 354. - 10 PROCEDURE DIVISION. - 11 $IF Y = Y2X - 12 > $DISPLAY correct Y = Y2 ----- ^^^^^^^^^^^^^^^^^^^^^^ - 13 $ELSE - 14 $DISPLAY bad: Y should be = Y2 ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:13.7-13.11: - 10 PROCEDURE DIVISION. - 11 $IF Y = Y2X - 12 $DISPLAY correct Y = Y2 - 13 > $ELSE ----- ^^^^ - 14 $DISPLAY bad: Y should be = Y2 - 15 $END ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:14.7-14.36: - 11 $IF Y = Y2X - 12 $DISPLAY correct Y = Y2 - 13 $ELSE - 14 > $DISPLAY bad: Y should be = Y2 ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 15 $END - 16 $IF Y > X ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:15.7-15.10: - 12 $DISPLAY correct Y = Y2 - 13 $ELSE - 14 $DISPLAY bad: Y should be = Y2 - 15 > $END ----- ^^^ - 16 $IF Y > X - 17 $DISPLAY BAD - Y is not > X ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:16.7-16.15: - 13 $ELSE - 14 $DISPLAY bad: Y should be = Y2 - 15 $END - 16 > $IF Y > X ----- ^^^^^^^^ - 17 $DISPLAY BAD - Y is not > X - 18 $ELIF Y < X ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:17.7-17.33: - 14 $DISPLAY bad: Y should be = Y2 - 15 $END - 16 $IF Y > X - 17 > $DISPLAY BAD - Y is not > X ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 18 $ELIF Y < X - 19 $DISPLAY correct Y < X ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:18.7-18.17: - 15 $END - 16 $IF Y > X - 17 $DISPLAY BAD - Y is not > X - 18 > $ELIF Y < X ----- ^^^^^^^^^^ - 19 $DISPLAY correct Y < X - 20 $ELSE ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:19.7-19.28: - 16 $IF Y > X - 17 $DISPLAY BAD - Y is not > X - 18 $ELIF Y < X - 19 > $DISPLAY correct Y < X ----- ^^^^^^^^^^^^^^^^^^^^^ - 20 $ELSE - 21 $DISPLAY BROKEN ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:20.7-20.11: - 17 $DISPLAY BAD - Y is not > X - 18 $ELIF Y < X - 19 $DISPLAY correct Y < X - 20 > $ELSE ----- ^^^^ - 21 $DISPLAY BROKEN - 22 $END ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:21.7-21.21: - 18 $ELIF Y < X - 19 $DISPLAY correct Y < X - 20 $ELSE - 21 > $DISPLAY BROKEN ----- ^^^^^^^^^^^^^^ - 22 $END - 23 ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:22.7-22.10: - 19 $DISPLAY correct Y < X - 20 $ELSE - 21 $DISPLAY BROKEN - 22 > $END ----- ^^^ - 23 - 24 $IF X > Y ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:24.7-24.15: - 21 $DISPLAY BROKEN - 22 $END - 23 - 24 > $IF X > Y ----- ^^^^^^^^ - 25 $DISPLAY correct X > Y - 26 $ELIF X < Y ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:25.7-25.28: - 22 $END - 23 - 24 $IF X > Y - 25 > $DISPLAY correct X > Y ----- ^^^^^^^^^^^^^^^^^^^^^ - 26 $ELIF X < Y - 27 $DISPLAY BAD - X is not < Y ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:26.7-26.17: - 23 - 24 $IF X > Y - 25 $DISPLAY correct X > Y - 26 > $ELIF X < Y ----- ^^^^^^^^^^ - 27 $DISPLAY BAD - X is not < Y - 28 $ELSE ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:27.7-27.33: - 24 $IF X > Y - 25 $DISPLAY correct X > Y - 26 $ELIF X < Y - 27 > $DISPLAY BAD - X is not < Y ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 28 $ELSE - 29 $DISPLAY BROKEN ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:28.7-28.11: - 25 $DISPLAY correct X > Y - 26 $ELIF X < Y - 27 $DISPLAY BAD - X is not < Y - 28 > $ELSE ----- ^^^^ - 29 $DISPLAY BROKEN - 30 $END ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:29.7-29.21: - 26 $ELIF X < Y - 27 $DISPLAY BAD - X is not < Y - 28 $ELSE - 29 > $DISPLAY BROKEN ----- ^^^^^^^^^^^^^^ - 30 $END - 31 CONTINUE ->> Error: Unexpected characters - -syn_misc.at-7160-prog.cob:30.7-30.10: - 27 $DISPLAY BAD - X is not < Y - 28 $ELSE - 29 $DISPLAY BROKEN - 30 > $END ----- ^^^ - 31 CONTINUE - 32 . ->> Error: Unexpected characters - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7193:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7265:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7417:0 -syn_misc.at-7417-prog.cob:41.18: - 38 05 FILLER REDEFINES IN-NAME PIC X(20) *> should PIC be optional? - 39 PRESENT WHEN IN-TYPE = 2 - 40 DESTINATION OUT-NAME. - 41 > 88 VALUE SPACES IS VALID. ----- ^ - 42 *>The values of IN-WEEK are checked to be in non-descending order. - 43 05 IN-WEEK PIC 99 OCCURS 5 ->> Hint: Missing - -syn_misc.at-7417-prog.cob:41.33-41.38: - 38 05 FILLER REDEFINES IN-NAME PIC X(20) *> should PIC be optional? - 39 PRESENT WHEN IN-TYPE = 2 - 40 DESTINATION OUT-NAME. - 41 > 88 VALUE SPACES IS VALID. ----- ^^^^^ - 42 *>The values of IN-WEEK are checked to be in non-descending order. - 43 05 IN-WEEK PIC 99 OCCURS 5 ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:41.46-41.48: - 38 05 FILLER REDEFINES IN-NAME PIC X(20) *> should PIC be optional? - 39 PRESENT WHEN IN-TYPE = 2 - 40 DESTINATION OUT-NAME. - 41 > 88 VALUE SPACES IS VALID. ----- ^^ - 42 *>The values of IN-WEEK are checked to be in non-descending order. - 43 05 IN-WEEK PIC 99 OCCURS 5 ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:45.16-45.23: - 42 *>The values of IN-WEEK are checked to be in non-descending order. - 43 05 IN-WEEK PIC 99 OCCURS 5 - 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 - 45 > INVALID WHEN IN-WEEK-NO < 5 ----- ^^^^^^^ - 46 AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) - 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:45.39: - 42 *>The values of IN-WEEK are checked to be in non-descending order. - 43 05 IN-WEEK PIC 99 OCCURS 5 - 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 - 45 > INVALID WHEN IN-WEEK-NO < 5 ----- ^ - 46 AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) - 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), ->> Hint: Missing . - -syn_misc.at-7417-prog.cob:45.40-45.41: - 42 *>The values of IN-WEEK are checked to be in non-descending order. - 43 05 IN-WEEK PIC 99 OCCURS 5 - 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 - 45 > INVALID WHEN IN-WEEK-NO < 5 ----- ^ - 46 AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) - 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:46.16-46.19: - 43 05 IN-WEEK PIC 99 OCCURS 5 - 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 - 45 INVALID WHEN IN-WEEK-NO < 5 - 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) ----- ^^^ - 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), - 48 *>or zero for any one that failed the format (PICTURE) test. ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:46.27: - 43 05 IN-WEEK PIC 99 OCCURS 5 - 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 - 45 INVALID WHEN IN-WEEK-NO < 5 - 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) ----- ^ - 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), - 48 *>or zero for any one that failed the format (PICTURE) test. ->> Hint: Missing RENAMES - -syn_misc.at-7417-prog.cob:46.28-46.40: - 43 05 IN-WEEK PIC 99 OCCURS 5 - 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 - 45 INVALID WHEN IN-WEEK-NO < 5 - 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) ----- ^^^^^^^^^^^^ - 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), - 48 *>or zero for any one that failed the format (PICTURE) test. ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:46.39-46.40: - 43 05 IN-WEEK PIC 99 OCCURS 5 - 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 - 45 INVALID WHEN IN-WEEK-NO < 5 - 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) ----- ^ - 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), - 48 *>or zero for any one that failed the format (PICTURE) test. ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:51.17: - 48 *>or zero for any one that failed the format (PICTURE) test. - 49 DESTINATION OUT-WEEK (IN-WEEK-NO). - 50 *>The 88-level INVALID entries check for invalid ranges of values. - 51 > 88 VALUES 0, 53 THRU 99 ARE INVALID. ----- ^ - 52 *>REDEFINES and another PRESENT WHEN define an alternate format. - 53 03 IN-REC-FORMAT-2 REDEFINES IN-REC-FORMAT-1 ->> Hint: Missing - -syn_misc.at-7417-prog.cob:51.19-51.25: - 48 *>or zero for any one that failed the format (PICTURE) test. - 49 DESTINATION OUT-WEEK (IN-WEEK-NO). - 50 *>The 88-level INVALID entries check for invalid ranges of values. - 51 > 88 VALUES 0, 53 THRU 99 ARE INVALID. ----- ^^^^^^ - 52 *>REDEFINES and another PRESENT WHEN define an alternate format. - 53 03 IN-REC-FORMAT-2 REDEFINES IN-REC-FORMAT-1 ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:51.40-51.43: - 48 *>or zero for any one that failed the format (PICTURE) test. - 49 DESTINATION OUT-WEEK (IN-WEEK-NO). - 50 *>The 88-level INVALID entries check for invalid ranges of values. - 51 > 88 VALUES 0, 53 THRU 99 ARE INVALID. ----- ^^^ - 52 *>REDEFINES and another PRESENT WHEN define an alternate format. - 53 03 IN-REC-FORMAT-2 REDEFINES IN-REC-FORMAT-1 ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:60.68-60.71: - 57 *>The 88-level VALID entries check for valid ranges of values; - 58 *>the condition-name, if present, may be used in the usual way. - 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. - 60 > 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. ----- ^^^ - 61 *>88-level entries may also have a condition attached. - 62 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:62.19: - 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. - 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. - 61 *>88-level entries may also have a condition attached. - 62 > 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID ----- ^ - 63 WHEN IN-TYPE = 8. - 64 *>exceptional cases can be specified using PRESENT WHEN ->> Hint: Missing - -syn_misc.at-7417-prog.cob:62.39-62.45: - 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. - 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. - 61 *>88-level entries may also have a condition attached. - 62 > 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID ----- ^^^^^^ - 63 WHEN IN-TYPE = 8. - 64 *>exceptional cases can be specified using PRESENT WHEN ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:62.75-62.78: - 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. - 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. - 61 *>88-level entries may also have a condition attached. - 62 > 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID ----- ^^^ - 63 WHEN IN-TYPE = 8. - 64 *>exceptional cases can be specified using PRESENT WHEN ->> Error: Invalid syntax - -syn_misc.at-7417-prog.cob:63.43: - 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. - 61 *>88-level entries may also have a condition attached. - 62 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID - 63 > WHEN IN-TYPE = 8. ----- ^ - 64 *>exceptional cases can be specified using PRESENT WHEN - 65 05 IN-CODE PIC AX(3)9(4) ->> Hint: Missing FALSE - -syn_misc.at-7417-prog.cob:63.44-63.51: - 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. - 61 *>88-level entries may also have a condition attached. - 62 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID - 63 > WHEN IN-TYPE = 8. ----- ^^^^^^^ - 64 *>exceptional cases can be specified using PRESENT WHEN - 65 05 IN-CODE PIC AX(3)9(4) ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7524:0 -syn_misc.at-7524-prog.cob:48.49-48.50: - 45 77 x36 pic x(36) is typedef. - 46 * In the following block, "sync" prevents SIGBUS errors on SOLARIS systems. - 47 01 special-data. - 48 > 05 r2d2 usage bit pic 111 value b'110'. ----- ^ - 49 *> disabled for now because of varying size - 50 *> 05 point usage pointer sync. ->> Error: Invalid syntax - -syn_misc.at-7524-prog.cob:55.30: - 52 *> 05 idx usage index sync. - 53 *> 05 hnd usage handle sync. - 54 01 alphanumeric-data. - 55 > 05 alpnum usage x36 value "some numb3rs 4 n00bs l1k3 m3". ----- ^ - 56 05 alpha pic a(36) value "thats some text". - 57 05 edit-num1 pic --9.999. ->> Hint: Missing BINARY - -syn_misc.at-7524-prog.cob:55.31-55.34: - 52 *> 05 idx usage index sync. - 53 *> 05 hnd usage handle sync. - 54 01 alphanumeric-data. - 55 > 05 alpnum usage x36 value "some numb3rs 4 n00bs l1k3 m3". ----- ^^^ - 56 05 alpha pic a(36) value "thats some text". - 57 05 edit-num1 pic --9.999. ->> Error: Invalid syntax - -syn_misc.at-7524-prog.cob:79.45-79.47: - 76 01 x-rms. - 77 05 x-rms-a pic x(01) value space. - 78 01 filler redefines x-rms pic x(01). - 79 > 88 sw-x-rms-full value "X" or "A" thru "C" or QUOTE. ----- ^^ - 80 - 81 local-storage section. ->> Error: Invalid syntax - -syn_misc.at-7524-prog.cob:79.61-79.63: - 76 01 x-rms. - 77 05 x-rms-a pic x(01) value space. - 78 01 filler redefines x-rms pic x(01). - 79 > 88 sw-x-rms-full value "X" or "A" thru "C" or QUOTE. ----- ^^ - 80 - 81 local-storage section. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7712:0 -syn_misc.at-7712-empty.cob:2.7-2.33: - 1 - 2 > CONTROL DIVISION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. empty. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7729:0 -syn_misc.at-7729-replace.cob:2.7-2.33: - 1 - 2 > CONTROL DIVISION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 3 REPLACE ==TEST-VAR== BY ==VAR==. - 4 IDENTIFICATION DIVISION. ->> Error: CONTROL DIVISION does not conform to default - -syn_misc.at-7729-replace.cob:5.31-5.32: - 2 CONTROL DIVISION. - 3 REPLACE ==TEST-VAR== BY ==VAR==. - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. replace. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Error: Malformed REPLACE statement - -syn_misc.at-7729-replace.cob:5.18: - 2 CONTROL DIVISION. - 3 REPLACE ==TEST-VAR== BY ==VAR==. - 4 IDENTIFICATION DIVISION. - 5 > PROGRAM-ID. replace. ----- ^ - 6 DATA DIVISION. - 7 WORKING-STORAGE SECTION. ->> Hint: Missing . - -syn_misc.at-7729-replace.cob:6.7-6.11: - 3 REPLACE ==TEST-VAR== BY ==VAR==. - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. replace. - 6 > DATA DIVISION. ----- ^^^^ - 7 WORKING-STORAGE SECTION. - 8 01 TEST-VAR PIC X(2) VALUE "OK". ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7772:0 -syn_misc.at-7772-prog.cob:2.7-3.24: - 1 - 2 > CONTROL DIVISION. ----- ^^^^^^^^^^^^^^^^^ - 3 > DEFAULT SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 IDENTIFICATION DIVISION. - 5 PROGRAM-ID. prog. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7801:0 -syn_misc.at-7801-prog.cob:4.18-4.27: - 1 - 2 CONTROL DIVISION. - 3 DEFAULT SECTION. - 4 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^ - 5 DISPLAY IS TERMINAL - 6 . ->> Error: Invalid syntax - -syn_misc.at-7801-prog.cob:2.7-6.5: - 1 - 2 > CONTROL DIVISION. ----- - 3 > DEFAULT SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 5 > DISPLAY IS TERMINAL ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 > . ----- ^^^^^^ - 7 IDENTIFICATION DIVISION. - 8 PROGRAM-ID. prog. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7828:0 -syn_misc.at-7828-empties.cob:2.7-4.24: - 1 - 2 > CONTROL DIVISION. ----- ^^^^^^^^^^^^^^^^^ - 3 > SUBSTITUTION SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 > DEFAULT SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 5 IDENTIFICATION DIVISION. - 6 PROGRAM-ID. empties. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7842:0 -syn_misc.at-7842-empty0.cob:5.18-5.27: - 2 CONTROL DIVISION. - 3 SUBSTITUTION SECTION. - 4 DEFAULT SECTION. - 5 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^ - 6 . - 7 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -syn_misc.at-7842-empty0.cob:2.7-6.5: - 1 - 2 > CONTROL DIVISION. ----- - 3 > SUBSTITUTION SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 > DEFAULT SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 5 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 > . ----- ^^^^^^ - 7 IDENTIFICATION DIVISION. - 8 PROGRAM-ID. empty0. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7861:0 -syn_misc.at-7861-empty1.cob:2.7-5.24: - 1 - 2 > CONTROL DIVISION. ----- ^^^^^^^^^^^^^^^^^ - 3 > SUBSTITUTION SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 > REPLACE "KO" BY "OK". ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 5 > DEFAULT SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 IDENTIFICATION DIVISION. - 7 PROGRAM-ID. empty1. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7885:0 -syn_misc.at-7885-prog.cob:4.27-4.29: - 1 - 2 CONTROL DIVISION. - 3 SUBSTITUTION SECTION. - 4 > REPLACE IISS BY IS ----- ^^ - 5 TERM BY TERMINAL - 6 "KO" BY "OK". ->> Error: Malformed REPLACE statement - -syn_misc.at-7885-prog.cob:8.18-8.27: - 5 TERM BY TERMINAL - 6 "KO" BY "OK". - 7 DEFAULT SECTION. - 8 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^ - 9 DISPLAY IISS TERM - 10 . ->> Error: Invalid syntax - -syn_misc.at-7885-prog.cob:9.24-9.28: - 6 "KO" BY "OK". - 7 DEFAULT SECTION. - 8 ACCEPT ALTERNATE CONSOLE - 9 > DISPLAY IISS TERM ----- ^^^^ - 10 . - 11 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -syn_misc.at-7885-prog.cob:2.7-10.5: - 1 - 2 > CONTROL DIVISION. ----- - 3 > SUBSTITUTION SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 > REPLACE IISS BY IS ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 5 > TERM BY TERMINAL ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 > "KO" BY "OK". ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 > DEFAULT SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > DISPLAY IISS TERM ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > . ----- ^^^^^^ - 11 IDENTIFICATION DIVISION. - 12 PROGRAM-ID. prog. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7918:0 -syn_misc.at-7918-prog.cob:5.26-5.28: - 2 CONTROL DIVISION. - 3 SUBSTITUTION SECTION. - 4 *> This REPLACE in Area A is ignored for now: - 5 > REPLACE IISS BY IS ----- ^^ - 6 TERM BY TERMINAL - 7 "KO" BY "OK". ->> Error: Malformed REPLACE statement - -syn_misc.at-7918-prog.cob:9.17-9.26: - 6 TERM BY TERMINAL - 7 "KO" BY "OK". - 8 DEFAULT SECTION. - 9 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^ - 10 DISPLAY IISS TERM - 11 . ->> Error: Invalid syntax - -syn_misc.at-7918-prog.cob:10.23-10.27: - 7 "KO" BY "OK". - 8 DEFAULT SECTION. - 9 ACCEPT ALTERNATE CONSOLE - 10 > DISPLAY IISS TERM ----- ^^^^ - 11 . - 12 IDENTIFICATION DIVISION. ->> Error: Invalid syntax - -syn_misc.at-7918-prog.cob:2.7-11.8: - 1 - 2 > CONTROL DIVISION. ----- ^ - 3 > SUBSTITUTION SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 4 > *> This REPLACE in Area A is ignored for now: ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 5 > REPLACE IISS BY IS ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 6 > TERM BY TERMINAL ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 7 > "KO" BY "OK". ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 8 > DEFAULT SECTION. ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 9 > ACCEPT ALTERNATE CONSOLE ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 10 > DISPLAY IISS TERM ----- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 11 > . ----- ^^^^^^^^^ - 12 IDENTIFICATION DIVISION. - 13 PROGRAM-ID. prog. ->> Error: CONTROL DIVISION does not conform to default - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8018:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8056:0 -syn_misc.at-8056-prog.cob:2.7-2.11: - 1 - 2 > $SET NO-AREA-CHECK ----- ^^^^ - 3 IDENTIFICATION DIVISION. - 4 PROGRAM-ID. prog. ->> Error: Invalid syntax - -syn_misc.at-8056-prog.cob:10.7-10.11: - 7 PROCEDURE DIVISION. - 8 MAIN-1 SECTION. - 9 DISPLAY "SOMETHING". - 10 > $SET AREA-CHECK ----- ^^^^ - 11 MAIN-2 SECTION. - 12 CONTINUE. ->> Error: Invalid syntax - -syn_misc.at-8056-prog.cob:10.22: - 7 PROCEDURE DIVISION. - 8 MAIN-1 SECTION. - 9 DISPLAY "SOMETHING". - 10 > $SET AREA-CHECK ----- ^ - 11 MAIN-2 SECTION. - 12 CONTINUE. ->> Hint: Missing ATTRIBUTE . - -syn_misc.at-8056-prog.cob:11.7-11.13: - 8 MAIN-1 SECTION. - 9 DISPLAY "SOMETHING". - 10 $SET AREA-CHECK - 11 > MAIN-2 SECTION. ----- ^^^^^^ - 12 CONTINUE. - 13 CONTINUE. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8158:0 -syn_misc.at-8158-cobol85.cob:2.31: - 1 - 2 > IDENTIFICATION DIVISION ----- ^ - 3 PROGRAM-ID. cobol85. - 4 DATA DIVISION ->> Hint: Missing . - -syn_misc.at-8158-cobol85.cob:3.7-3.17: - 1 - 2 IDENTIFICATION DIVISION - 3 > PROGRAM-ID. cobol85. ----- ^^^^^^^^^^ - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -syn_misc.at-8158-cobol85.cob:4.31: - 1 - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. cobol85. - 4 > DATA DIVISION ----- ^ - 5 WORKING-STORAGE SECTION - 6 01 X PIC X *> dot optional here because of cobol85 format ->> Hint: Missing . - -syn_misc.at-8158-cobol85.cob:5.7-5.22: - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. cobol85. - 4 DATA DIVISION - 5 > WORKING-STORAGE SECTION ----- ^^^^^^^^^^^^^^^ - 6 01 X PIC X *> dot optional here because of cobol85 format - 7 01 Y PIC X. ->> Warning: Invalid syntax - -syn_misc.at-8158-cobol85.cob:5.30: - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. cobol85. - 4 DATA DIVISION - 5 > WORKING-STORAGE SECTION ----- ^ - 6 01 X PIC X *> dot optional here because of cobol85 format - 7 01 Y PIC X. ->> Hint: Missing . - -syn_misc.at-8158-cobol85.cob:6.7-6.9: - 3 PROGRAM-ID. cobol85. - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION - 6 > 01 X PIC X *> dot optional here because of cobol85 format ----- ^^ - 7 01 Y PIC X. - 8 PROCEDURE DIVISION. ->> Warning: Invalid syntax - -syn_misc.at-8158-cobol85.cob:6.17: - 3 PROGRAM-ID. cobol85. - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION - 6 > 01 X PIC X *> dot optional here because of cobol85 format ----- ^ - 7 01 Y PIC X. - 8 PROCEDURE DIVISION. ->> Hint: Missing . - -syn_misc.at-8158-cobol85.cob:7.7-7.9: - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION - 6 01 X PIC X *> dot optional here because of cobol85 format - 7 > 01 Y PIC X. ----- ^^ - 8 PROCEDURE DIVISION. - 9 MAIN SECTION. ->> Error: Invalid syntax - -syn_misc.at-8158-cobol85.cob:11.19: - 8 PROCEDURE DIVISION. - 9 MAIN SECTION. - 10 PERFORM P - 11 > STOP RUN *> dot optional here because of cobol85 format ----- ^ - 12 P. - 13 GOBACK ->> Hint: Missing . - -syn_misc.at-8158-cobol85.cob:12.7-12.8: - 9 MAIN SECTION. - 10 PERFORM P - 11 STOP RUN *> dot optional here because of cobol85 format - 12 > P. ----- ^ - 13 GOBACK ->> Error: Invalid syntax - -syn_misc.at-8158-cobol85.cob:13.17: - 10 PERFORM P - 11 STOP RUN *> dot optional here because of cobol85 format - 12 P. - 13 > GOBACK ----- ^ ->> Hint: Missing . - -syn_misc.at-8158-cobol85.cob:14.0: - 11 STOP RUN *> dot optional here because of cobol85 format - 12 P. - 13 GOBACK ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8135:0 -syn_misc.at-8135-prog.cob:2.31: - 1 - 2 > IDENTIFICATION DIVISION ----- ^ - 3 PROGRAM-ID. prog. - 4 DATA DIVISION ->> Hint: Missing . - -syn_misc.at-8135-prog.cob:3.7-3.17: - 1 - 2 IDENTIFICATION DIVISION - 3 > PROGRAM-ID. prog. ----- ^^^^^^^^^^ - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION. ->> Warning: Invalid syntax - -syn_misc.at-8135-prog.cob:4.31: - 1 - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. prog. - 4 > DATA DIVISION ----- ^ - 5 WORKING-STORAGE SECTION. - 6 01 X PIC X. ->> Hint: Missing . - -syn_misc.at-8135-prog.cob:5.7-5.22: - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. prog. - 4 DATA DIVISION - 5 > WORKING-STORAGE SECTION. ----- ^^^^^^^^^^^^^^^ - 6 01 X PIC X. - 7 01 Y PIC X. ->> Warning: Invalid syntax - -syn_misc.at-8135-prog.cob:13.17: - 10 PERFORM P - 11 STOP RUN. - 12 P. - 13 > GOBACK ----- ^ ->> Hint: Missing . - -syn_misc.at-8135-prog.cob:14.0: - 11 STOP RUN. - 12 P. - 13 GOBACK ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8199:0 -syn_misc.at-8199-prog.cob:2.30: - 1 - 2 > IDENTIFICATION DIVISION ----- ^ - 3 PROGRAM-ID. prog. - 4 DATA DIVISION ->> Hint: Missing . - -syn_misc.at-8199-prog.cob:3.7-3.17: - 1 - 2 IDENTIFICATION DIVISION - 3 > PROGRAM-ID. prog. ----- ^^^^^^^^^^ - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION ->> Warning: Invalid syntax - -syn_misc.at-8199-prog.cob:4.20: - 1 - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. prog. - 4 > DATA DIVISION ----- ^ - 5 WORKING-STORAGE SECTION - 6 77 PMODE PIC X ->> Hint: Missing . - -syn_misc.at-8199-prog.cob:5.7-5.22: - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. prog. - 4 DATA DIVISION - 5 > WORKING-STORAGE SECTION ----- ^^^^^^^^^^^^^^^ - 6 77 PMODE PIC X - 7 PROCEDURE DIVISION. ->> Warning: Invalid syntax - -syn_misc.at-8199-prog.cob:5.30: - 2 IDENTIFICATION DIVISION - 3 PROGRAM-ID. prog. - 4 DATA DIVISION - 5 > WORKING-STORAGE SECTION ----- ^ - 6 77 PMODE PIC X - 7 PROCEDURE DIVISION. ->> Hint: Missing . - -syn_misc.at-8199-prog.cob:6.7-6.9: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION - 6 > 77 PMODE PIC X ----- ^^ - 7 PROCEDURE DIVISION. - 8 STOP RUN. ->> Warning: Invalid syntax - -syn_misc.at-8199-prog.cob:6.23: - 3 PROGRAM-ID. prog. - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION - 6 > 77 PMODE PIC X ----- ^ - 7 PROCEDURE DIVISION. - 8 STOP RUN. ->> Hint: Missing . - -syn_misc.at-8199-prog.cob:7.7-7.16: - 4 DATA DIVISION - 5 WORKING-STORAGE SECTION - 6 77 PMODE PIC X - 7 > PROCEDURE DIVISION. ----- ^^^^^^^^^ - 8 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8235:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8284:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8286:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8283:0 -Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8340:0 -Considering: import/gnucobol/tests/testsuite.src/syn_move.at:150:0 -Considering: import/gnucobol/tests/testsuite.src/syn_move.at:421:0 -Considering: import/gnucobol/tests/testsuite.src/syn_move.at:508:0 -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:51:0 -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:219:0 -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:225:0 -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:331:0 -syn_occurs.at-331-prog.cob:9.18: - 6 01 G-1. - 7 07 G-2-ELEMENTS PIC 9(08). - 8 07 G-2 - 9 > OCCURS UNBOUNDED ----- ^ - 10 DEPENDING ON G-2-ELEMENTS. - 11 10 X PIC X. ->> Hint: Missing - -syn_occurs.at-331-prog.cob:9.19-9.28: - 6 01 G-1. - 7 07 G-2-ELEMENTS PIC 9(08). - 8 07 G-2 - 9 > OCCURS UNBOUNDED ----- ^^^^^^^^^ - 10 DEPENDING ON G-2-ELEMENTS. - 11 10 X PIC X. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:339:0 -syn_occurs.at-339-prog2.cob:12.18: - 9 05 G-2. - 10 07 G-3-ELEMENTS PIC 9(08). - 11 07 G-3 - 12 > OCCURS UNBOUNDED ----- ^ - 13 DEPENDING ON G-3-ELEMENTS. - 14 10 G-4. ->> Hint: Missing - -syn_occurs.at-339-prog2.cob:12.19-12.28: - 9 05 G-2. - 10 07 G-3-ELEMENTS PIC 9(08). - 11 07 G-3 - 12 > OCCURS UNBOUNDED ----- ^^^^^^^^^ - 13 DEPENDING ON G-3-ELEMENTS. - 14 10 G-4. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:418:0 -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:503:0 -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:590:0 -syn_occurs.at-590-prog.cob:10.18-10.27: - 7 05 TAB-ENTRY1 - 8 OCCURS 5 TIMES - 9 INDEXED BY IDX1 - 10 > ASCENDING KEY IS X1 ----- ^^^^^^^^^ - 11 DESCENDING Y1. - 12 10 X1 PIC 9(4). ->> Error: Invalid syntax - -syn_occurs.at-590-prog.cob:11.18-11.28: - 8 OCCURS 5 TIMES - 9 INDEXED BY IDX1 - 10 ASCENDING KEY IS X1 - 11 > DESCENDING Y1. ----- ^^^^^^^^^^ - 12 10 X1 PIC 9(4). - 13 10 Y1 PIC X. ->> Error: Invalid syntax - -syn_occurs.at-590-prog.cob:17.18-17.28: - 14 05 TAB-ENTRY - 15 OCCURS 2 TIMES - 16 INDEXED BY IDX2 - 17 > DESCENDING KEY IS X2 ----- ^^^^^^^^^^ - 18 ASCENDING Y2. - 19 10 X2 PIC 9(4). ->> Error: Invalid syntax - -syn_occurs.at-590-prog.cob:18.18-18.27: - 15 OCCURS 2 TIMES - 16 INDEXED BY IDX2 - 17 DESCENDING KEY IS X2 - 18 > ASCENDING Y2. ----- ^^^^^^^^^ - 19 10 X2 PIC 9(4). - 20 10 Y2 PIC X. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:617:0 -Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:44:0 -Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:189:0 -Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:301:0 -Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:344:0 -Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:385:0 -Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:440:0 -Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:519:0 -Considering: import/gnucobol/tests/testsuite.src/syn_refmod.at:48:0 -Considering: import/gnucobol/tests/testsuite.src/syn_refmod.at:147:0 -Considering: import/gnucobol/tests/testsuite.src/syn_refmod.at:181:0 -Considering: import/gnucobol/tests/testsuite.src/syn_reportwriter.at:303:0 -syn_reportwriter.at-303-prog.cob:23.23: - 20 02 LINE PLUS 0. - 21 03 COLUMN 1 PIC X(09) VALUE 'CUST. No.'. - 22 03 COLUMN PLUS 0 PIC X(09) VALUE 'ITEM'. - 23 > 02 LINE PLUS ZERO. ----- ^ - 24 03 COLUMN 1 PIC X(09) VALUE 'Cust. No.'. - 25 03 COLUMN + 10 PIC X(09) VALUE 'Item'. ->> Hint: Missing - -syn_reportwriter.at-303-prog.cob:23.24-23.28: - 20 02 LINE PLUS 0. - 21 03 COLUMN 1 PIC X(09) VALUE 'CUST. No.'. - 22 03 COLUMN PLUS 0 PIC X(09) VALUE 'ITEM'. - 23 > 02 LINE PLUS ZERO. ----- ^^^^ - 24 03 COLUMN 1 PIC X(09) VALUE 'Cust. No.'. - 25 03 COLUMN + 10 PIC X(09) VALUE 'Item'. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_reportwriter.at:621:0 -syn_reportwriter.at-621-prog.cob:17.43: - 14 - 15 REPORT SECTION. - 16 RD r. - 17 > 01 r0 TYPE DETAIL, PRESENT AFTER NEW f-rec. ----- ^ ->> Hint: Missing WHEN - -syn_reportwriter.at-621-prog.cob:17.44-17.49: - 14 - 15 REPORT SECTION. - 16 RD r. - 17 > 01 r0 TYPE DETAIL, PRESENT AFTER NEW f-rec. ----- ^^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:243:0 -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:334:0 -syn_screen.at-334-prog.cob:9.37-9.41: - 6 01 foo PIC X. - 7 SCREEN SECTION. - 8 01 scr. - 9 > 03 a PIC X TO foo FULL, REQUIRED, ----- ^^^^ - 10 LEFTLINE, RIGHTLINE, OVERLINE, UNDERLINE, - 11 GRID. ->> Error: Invalid syntax - -syn_screen.at-334-prog.cob:10.24-10.32: - 7 SCREEN SECTION. - 8 01 scr. - 9 03 a PIC X TO foo FULL, REQUIRED, - 10 > LEFTLINE, RIGHTLINE, OVERLINE, UNDERLINE, ----- ^^^^^^^^ - 11 GRID. - 12 PROCEDURE DIVISION. ->> Error: Invalid syntax - -syn_screen.at-334-prog.cob:11.24-11.28: - 8 01 scr. - 9 03 a PIC X TO foo FULL, REQUIRED, - 10 LEFTLINE, RIGHTLINE, OVERLINE, UNDERLINE, - 11 > GRID. ----- ^^^^ - 12 PROCEDURE DIVISION. - 13 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:367:0 -syn_screen.at-367-prog.cob:16.15-16.21: - 13 END-ACCEPT - 14 - 15 ACCEPT foo - 16 > ESCAPE ----- ^^^^^^ - 17 CONTINUE - 18 NOT ON ESCAPE ->> Error: Invalid syntax - -syn_screen.at-367-prog.cob:18.15-18.18: - 15 ACCEPT foo - 16 ESCAPE - 17 CONTINUE - 18 > NOT ON ESCAPE ----- ^^^ - 19 CONTINUE - 20 END-ACCEPT ->> Error: Invalid syntax - -syn_screen.at-367-prog.cob:20.11-20.21: - 17 CONTINUE - 18 NOT ON ESCAPE - 19 CONTINUE - 20 > END-ACCEPT ----- ^^^^^^^^^^ - 21 . ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:556:0 -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:587:0 -syn_screen.at-587-prog.cob:9.13-9.31: - 6 SCREEN SECTION. - 7 01 SG. - 8 05 LINE 21 COL 1 VALUE "TESTING". - 9 > 05 " IMPLICIT VALUE " HIGHLIGHT. ----- ^^^^^^^^^^^^^^^^^^ - 10 PROCEDURE DIVISION. - 11 DISPLAY SG END-DISPLAY. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:609:0 -syn_screen.at-609-prog.cob:11.45-11.49: - 8 - 9 SCREEN SECTION. - 10 01 scr. - 11 > 03 full-pointless PIC 999 TO num FULL. ----- ^^^^ - 12 03 full-useful PIC ZZZ TO num FULL. ->> Error: Invalid syntax - -syn_screen.at-609-prog.cob:12.42-12.46: - 9 SCREEN SECTION. - 10 01 scr. - 11 03 full-pointless PIC 999 TO num FULL. - 12 > 03 full-useful PIC ZZZ TO num FULL. ----- ^^^^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:758:0 -syn_screen.at-758-prog.cob:19.50-19.54: - 16 03 only-pic PIC 9. - 17 03 from-to-using-without-pic FROM x. - 18 03 auto-without-from-to-using PIC 9 AUTO. - 19 > 03 full-without-to-using PIC X FROM x FULL. ----- ^^^^ - 20 03 full-and-justified PIC X USING x, FULL, JUST. - 21 03 secure-with-from PIC X FROM x SECURE. ->> Error: Invalid syntax - -syn_screen.at-758-prog.cob:20.49-20.53: - 17 03 from-to-using-without-pic FROM x. - 18 03 auto-without-from-to-using PIC 9 AUTO. - 19 03 full-without-to-using PIC X FROM x FULL. - 20 > 03 full-and-justified PIC X USING x, FULL, JUST. ----- ^^^^ - 21 03 secure-with-from PIC X FROM x SECURE. - 22 03 secure-justified-no-clauses VALUE "Hello" SECURE, JUST. ->> Error: Invalid syntax - -syn_screen.at-758-prog.cob:33.39-33.43: - 30 03 numeric-value-no-pic VALUE 1. - 31 - 32 01 always-ok-scr. - 33 > 03 my-group LINE 1, COL 1, FULL. ----- ^^^^ - 34 05 PIC X FROM "x" TO x. - 35 05 PIC Z USING num. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:817:0 -syn_screen.at-817-prog.cob:10.37: - 7 01 A PIC X. - 8 PROCEDURE DIVISION. - 9 DISPLAY ERASE - 10 > MOVE 10 TO LIN. MOVE 15 TO COL. ----- ^ - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. ->> Hint: Missing - -syn_screen.at-817-prog.cob:10.38-10.41: - 7 01 A PIC X. - 8 PROCEDURE DIVISION. - 9 DISPLAY ERASE - 10 > MOVE 10 TO LIN. MOVE 15 TO COL. ----- ^^^ - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:11.19-11.23: - 8 PROCEDURE DIVISION. - 9 DISPLAY ERASE - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 > DISPLAY (LIN , COL - 3) FIELD-A. ----- ^^^^ - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:11.26-11.29: - 8 PROCEDURE DIVISION. - 9 DISPLAY ERASE - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 > DISPLAY (LIN , COL - 3) FIELD-A. ----- ^^^ - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:11.33-11.34: - 8 PROCEDURE DIVISION. - 9 DISPLAY ERASE - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 > DISPLAY (LIN , COL - 3) FIELD-A. ----- ^ - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:12.19-12.23: - 9 DISPLAY ERASE - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 > DISPLAY (LIN + 1 , COL) FIELD-A. ----- ^^^^ - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:12.24-12.25: - 9 DISPLAY ERASE - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 > DISPLAY (LIN + 1 , COL) FIELD-A. ----- ^ - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:12.30-12.34: - 9 DISPLAY ERASE - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 > DISPLAY (LIN + 1 , COL) FIELD-A. ----- ^^^^ - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:13.17: - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 > ACCEPT ( , 10) A. ----- ^ - 14 DISPLAY (08 , 12) FIELD-A. - 15 ACCEPT ( , 08) A WITH NO-ECHO. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:13.19-13.20: - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 > ACCEPT ( , 10) A. ----- ^ - 14 DISPLAY (08 , 12) FIELD-A. - 15 ACCEPT ( , 08) A WITH NO-ECHO. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:13.28: - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 > ACCEPT ( , 10) A. ----- ^ - 14 DISPLAY (08 , 12) FIELD-A. - 15 ACCEPT ( , 08) A WITH NO-ECHO. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:13.27-13.28: - 10 MOVE 10 TO LIN. MOVE 15 TO COL. - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 > ACCEPT ( , 10) A. ----- ^ - 14 DISPLAY (08 , 12) FIELD-A. - 15 ACCEPT ( , 08) A WITH NO-ECHO. ->> Warning: Invalid syntax - -syn_screen.at-817-prog.cob:14.19-14.22: - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. - 14 > DISPLAY (08 , 12) FIELD-A. ----- ^^^ - 15 ACCEPT ( , 08) A WITH NO-ECHO. - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:14.27-14.28: - 11 DISPLAY (LIN , COL - 3) FIELD-A. - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. - 14 > DISPLAY (08 , 12) FIELD-A. ----- ^ - 15 ACCEPT ( , 08) A WITH NO-ECHO. - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:15.17: - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. - 15 > ACCEPT ( , 08) A WITH NO-ECHO. ----- ^ - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. - 17 ACCEPT A AT COLUMN 8. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:15.19-15.20: - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. - 15 > ACCEPT ( , 08) A WITH NO-ECHO. ----- ^ - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. - 17 ACCEPT A AT COLUMN 8. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:15.28: - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. - 15 > ACCEPT ( , 08) A WITH NO-ECHO. ----- ^ - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. - 17 ACCEPT A AT COLUMN 8. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:15.27-15.28: - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. - 15 > ACCEPT ( , 08) A WITH NO-ECHO. ----- ^ - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. - 17 ACCEPT A AT COLUMN 8. ->> Warning: Invalid syntax - -syn_screen.at-817-prog.cob:15.31-15.35: - 12 DISPLAY (LIN + 1 , COL) FIELD-A. - 13 ACCEPT ( , 10) A. - 14 DISPLAY (08 , 12) FIELD-A. - 15 > ACCEPT ( , 08) A WITH NO-ECHO. ----- ^^^^ - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. - 17 ACCEPT A AT COLUMN 8. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:19.27-19.30: - 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. - 17 ACCEPT A AT COLUMN 8. - 18 SUBTRACT 2 FROM LIN. - 19 > SUBTRACT 3 FROM COL. ----- ^^^ - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 ACCEPT ( , 10) A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:20.45: - 17 ACCEPT A AT COLUMN 8. - 18 SUBTRACT 2 FROM LIN. - 19 SUBTRACT 3 FROM COL. - 20 > DISPLAY FIELD-A AT LINE LIN COLUMN COL. ----- ^ - 21 ACCEPT ( , 10) A. - 22 DISPLAY ( 1 , 1 ) ERASE. ->> Hint: Missing - -syn_screen.at-817-prog.cob:20.46-20.49: - 17 ACCEPT A AT COLUMN 8. - 18 SUBTRACT 2 FROM LIN. - 19 SUBTRACT 3 FROM COL. - 20 > DISPLAY FIELD-A AT LINE LIN COLUMN COL. ----- ^^^ - 21 ACCEPT ( , 10) A. - 22 DISPLAY ( 1 , 1 ) ERASE. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:21.17: - 18 SUBTRACT 2 FROM LIN. - 19 SUBTRACT 3 FROM COL. - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 > ACCEPT ( , 10) A. ----- ^ - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:21.19-21.20: - 18 SUBTRACT 2 FROM LIN. - 19 SUBTRACT 3 FROM COL. - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 > ACCEPT ( , 10) A. ----- ^ - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:21.28: - 18 SUBTRACT 2 FROM LIN. - 19 SUBTRACT 3 FROM COL. - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 > ACCEPT ( , 10) A. ----- ^ - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:21.27-21.28: - 18 SUBTRACT 2 FROM LIN. - 19 SUBTRACT 3 FROM COL. - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 > ACCEPT ( , 10) A. ----- ^ - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. ->> Warning: Invalid syntax - -syn_screen.at-817-prog.cob:22.19-22.20: - 19 SUBTRACT 3 FROM COL. - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 ACCEPT ( , 10) A. - 22 > DISPLAY ( 1 , 1 ) ERASE. ----- ^ - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:22.27-22.28: - 19 SUBTRACT 3 FROM COL. - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 ACCEPT ( , 10) A. - 22 > DISPLAY ( 1 , 1 ) ERASE. ----- ^ - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:23.19-23.20: - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 ACCEPT ( , 10) A. - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 > DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. ----- ^ - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:23.27-23.28: - 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. - 21 ACCEPT ( , 10) A. - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 > DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. ----- ^ - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:24.19-24.20: - 21 ACCEPT ( , 10) A. - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 > DISPLAY ( 3 , 1 ) A " --> A value" ----- ^ - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 ACCEPT (11 , 1 ) A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:24.27-24.28: - 21 ACCEPT ( , 10) A. - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 > DISPLAY ( 3 , 1 ) A " --> A value" ----- ^ - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 ACCEPT (11 , 1 ) A. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:25.19-25.20: - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 > DISPLAY ( 5 , 1 ) "Press ENTER to exit". ----- ^ - 26 ACCEPT (11 , 1 ) A. - 27 STOP RUN. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:25.27-25.28: - 22 DISPLAY ( 1 , 1 ) ERASE. - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 > DISPLAY ( 5 , 1 ) "Press ENTER to exit". ----- ^ - 26 ACCEPT (11 , 1 ) A. - 27 STOP RUN. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:26.17: - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 > ACCEPT (11 , 1 ) A. ----- ^ - 27 STOP RUN. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:26.18-26.21: - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 > ACCEPT (11 , 1 ) A. ----- ^^^ - 27 STOP RUN. ->> Error: Invalid syntax - -syn_screen.at-817-prog.cob:26.21: - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 > ACCEPT (11 , 1 ) A. ----- ^ - 27 STOP RUN. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:26.24-26.25: - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 > ACCEPT (11 , 1 ) A. ----- ^ - 27 STOP RUN. ->> Warning: Invalid syntax - -syn_screen.at-817-prog.cob:26.25: - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 > ACCEPT (11 , 1 ) A. ----- ^ - 27 STOP RUN. ->> Hint: Missing . - -syn_screen.at-817-prog.cob:26.26-26.27: - 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. - 24 DISPLAY ( 3 , 1 ) A " --> A value" - 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". - 26 > ACCEPT (11 , 1 ) A. ----- ^ - 27 STOP RUN. ->> Warning: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:880:0 -syn_screen.at-880-prog.cob:7.18: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > DISPLAY WITH CONVERSION "Whatever". ----- ^ - 8 STOP RUN. ->> Hint: Missing - -syn_screen.at-880-prog.cob:7.19-7.23: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > DISPLAY WITH CONVERSION "Whatever". ----- ^^^^ - 8 STOP RUN. ->> Error: Invalid syntax - -syn_screen.at-880-prog.cob:7.23: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > DISPLAY WITH CONVERSION "Whatever". ----- ^ - 8 STOP RUN. ->> Hint: Missing NO ADVANCING . - -syn_screen.at-880-prog.cob:7.24-7.34: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > DISPLAY WITH CONVERSION "Whatever". ----- ^^^^^^^^^^ - 8 STOP RUN. ->> Error: Invalid syntax - -syn_screen.at-880-prog.cob:7.35-7.45: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. - 6 PROCEDURE DIVISION. - 7 > DISPLAY WITH CONVERSION "Whatever". ----- ^^^^^^^^^^ - 8 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/syn_subscripts.at:88:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:205:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:233:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:315:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:343:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:369:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:407:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:441:0 -Considering: import/gnucobol/tests/testsuite.src/syn_value.at:514:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:71:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:193:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:250:0 -used_binaries.at-250-prog.cob:10.8-10.18: - 7 PROCEDURE DIVISION. - 8 MAIN-PROC SECTION. - 9 00. - 10 > COPY PROC. ----- ^^^^^^^^^^ - 11 END-PROC SECTION. - 12 COPY PROCE in "sub". ->> Error: Library `PROC' not found in search path (search path: ) - -used_binaries.at-250-prog.cob:12.8-12.28: - 9 00. - 10 COPY PROC. - 11 END-PROC SECTION. - 12 > COPY PROCE in "sub". ----- ^^^^^^^^^^^^^^^^^^^^ - 13 EX. - 14 STOP RUN. ->> Error: Library `PROCE' not found in search path (search path: sub) - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:277:0 -Fatal: used_binaries.at-277-sub/copy/PROC.cpy: No such file or directory -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:315:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:352:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:390:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:421:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:439:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:533:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:534:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:602:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:603:0 -used_binaries.at-603-caller.cob:24.30: - 21 MOVE "Aloha" TO EXT-VAR. - 22 CALL "callee" END-CALL. - 23 DISPLAY EXT-VAR END-DISPLAY. - 24 > ACCEPT CLA-VAR FROM COMMAND-LINE END-ACCEPT. ----- ^ - 25 DISPLAY CLA-VAR END-DISPLAY. - 26 STOP RUN. ->> Hint: Missing - -used_binaries.at-603-caller.cob:24.31-24.43: - 21 MOVE "Aloha" TO EXT-VAR. - 22 CALL "callee" END-CALL. - 23 DISPLAY EXT-VAR END-DISPLAY. - 24 > ACCEPT CLA-VAR FROM COMMAND-LINE END-ACCEPT. ----- ^^^^^^^^^^^^ - 25 DISPLAY CLA-VAR END-DISPLAY. - 26 STOP RUN. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:610:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:654:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:655:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:706:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:707:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:743:0 -used_binaries.at-743-called.cob:9.31: - 6 01 CLI-ARGS PIC X(27). - 7 01 ARG-TWO PIC X(6). - 8 PROCEDURE DIVISION. - 9 > ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. ----- ^ - 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. - 11 ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. ->> Hint: Missing - -used_binaries.at-743-called.cob:9.32-9.44: - 6 01 CLI-ARGS PIC X(27). - 7 01 ARG-TWO PIC X(6). - 8 PROCEDURE DIVISION. - 9 > ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. ----- ^^^^^^^^^^^^ - 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. - 11 ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. ->> Error: Invalid syntax - -used_binaries.at-743-called.cob:11.30: - 8 PROCEDURE DIVISION. - 9 ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. - 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. - 11 > ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. ----- ^ - 12 DISPLAY CLI-ARGS ":" ARG-TWO END-DISPLAY. - 13 EXIT PROGRAM. ->> Hint: Missing - -used_binaries.at-743-called.cob:11.31-11.45: - 8 PROCEDURE DIVISION. - 9 ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. - 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. - 11 > ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. ----- ^^^^^^^^^^^^^^ - 12 DISPLAY CLI-ARGS ":" ARG-TWO END-DISPLAY. - 13 EXIT PROGRAM. ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:743:0 -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:826:0 -used_binaries.at-826-prog.cob:6.38: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY - 6 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Hint: Missing - -used_binaries.at-826-prog.cob:6.38-6.39: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY - 6 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:844:0 -used_binaries.at-844-prog.cob:6.38: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY - 6 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Hint: Missing - -used_binaries.at-844-prog.cob:6.38-6.39: - 3 PROGRAM-ID. prog. - 4 PROCEDURE DIVISION. - 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY - 6 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:866:0 -used_binaries.at-866-prog.cob:8.26: - 5 WORKING-STORAGE SECTION. - 6 01 CLI PIC X(8). - 7 PROCEDURE DIVISION. - 8 > ACCEPT CLI FROM COMMAND-LINE ----- ^ - 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY - 10 STOP RUN WITH NORMAL STATUS. ->> Hint: Missing - -used_binaries.at-866-prog.cob:8.27-8.39: - 5 WORKING-STORAGE SECTION. - 6 01 CLI PIC X(8). - 7 PROCEDURE DIVISION. - 8 > ACCEPT CLI FROM COMMAND-LINE ----- ^^^^^^^^^^^^ - 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY - 10 STOP RUN WITH NORMAL STATUS. ->> Error: Invalid syntax - -used_binaries.at-866-prog.cob:10.38: - 7 PROCEDURE DIVISION. - 8 ACCEPT CLI FROM COMMAND-LINE - 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY - 10 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Hint: Missing - -used_binaries.at-866-prog.cob:10.38-10.39: - 7 PROCEDURE DIVISION. - 8 ACCEPT CLI FROM COMMAND-LINE - 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY - 10 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:889:0 -used_binaries.at-889-prog.cob:5.38: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. a. - 4 PROCEDURE DIVISION. - 5 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Hint: Missing - -used_binaries.at-889-prog.cob:5.38-5.39: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. a. - 4 PROCEDURE DIVISION. - 5 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:911:0 -used_binaries.at-911-prog.cob:6.38: - 3 PROGRAM-ID. a. - 4 PROCEDURE DIVISION. - 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY - 6 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Hint: Missing - -used_binaries.at-911-prog.cob:6.38-6.39: - 3 PROGRAM-ID. a. - 4 PROCEDURE DIVISION. - 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY - 6 > STOP RUN WITH NORMAL STATUS. ----- ^ ->> Error: Invalid syntax - -Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:944:0 -used_binaries.at-944-progprep.cob:5.36-5.37: - 2 IDENTIFICATION DIVISION. - 3 PROGRAM-ID. prog. - 4 DATA DIVISION. - 5 > WORKING-STORAGE SECTION. # ----- ^ - 6 01 TEST-VAR PIC 9(2) VALUE 'A'. - 7 COPY 'CRUD.CPY'. ->> Error: Invalid syntax - -used_binaries.at-944-progprep.cob:7.7-7.23: - 4 DATA DIVISION. - 5 WORKING-STORAGE SECTION. # - 6 01 TEST-VAR PIC 9(2) VALUE 'A'. - 7 > COPY 'CRUD.CPY'. ----- ^^^^^^^^^^^^^^^^ - 8 PROCEDURE DIVISION. - 9 DISPLAY TEST-VAR NO ADVANCING ->> Error: Library `CRUD.CPY' not found in search path (search path: ) - diff --git a/test/output-tests/gnucobol.ml b/test/output-tests/gnucobol.ml index 733dd1b5f..9464d02e0 100644 --- a/test/output-tests/gnucobol.ml +++ b/test/output-tests/gnucobol.ml @@ -31,6 +31,11 @@ end let srcdir = try Unix.getenv "DUNE_SOURCEROOT" with Not_found -> "." +let target = + let target = ref None in + Arg.parse [] (fun f -> target := Some f) "gnucobol.exe "; + !target + (** [pp_relloc ppf filename] prints [filename] relative to [srcdir] if the latter is a directory (prefix) of [filename]. Otherwise, prints [filename] as a whole. *) @@ -51,13 +56,20 @@ let _pconf, _tconf, testsuite = let project_config = Project_config.from_file toml in Testsuite.read project_config (List.hd project_config.project_testsuites) -let init_test_filter () = - let open Ezcmd.V2.EZCMD.TYPES in - begin match Filter.args with - | (_, Arg.String f, _) :: _ -> f "move" - | _ -> failwith "unexpected non-String argument descriptor" - end; - Filter.select_tests (fun _ -> ()) testsuite +(* let init_test_filter () = *) +(* let open Ezcmd.V2.EZCMD.TYPES in *) +(* begin match Filter.args with *) +(* | (x, Arg.String f, _) :: _ -> *) +(* Fmt.epr "%a@." Fmt.(list string) x; *) +(* f "move" *) +(* | _ -> failwith "unexpected non-String argument descriptor" *) +(* end; *) +(* Filter.select_tests (fun _ -> ()) testsuite *) + +let targetted_test ({ test_loc = { file; _ }; _ }: test) = + match target with + | Some t -> t = Filename.basename file + | _ -> true (** Extact AT_CHECK actions that expect a successful return code.*) let extract_successful_test_actions ({ test_actions; _ }: test) = @@ -147,11 +159,11 @@ let do_check_parse (test_filename, contents, _, { check_loc; let () = Pretty.pp_set_margin Format.std_formatter 120; (* fix a margin for stdout *) let _rundir = make_n_enter_rundir () in - init_test_filter (); + (* init_test_filter (); *) List.to_seq testsuite.suite_tests |> + Seq.filter targetted_test |> Seq.flat_map extract_successful_test_actions |> Seq.flat_map extract_data_file_of_check_command |> List.of_seq |> - (* EzList.take 200 |> *) List.sort_uniq compare_data_files |> List.iter do_check_parse diff --git a/test/output-tests/listings.expected b/test/output-tests/listings.expected new file mode 100644 index 000000000..5eb7e822a --- /dev/null +++ b/test/output-tests/listings.expected @@ -0,0 +1,6865 @@ +Considering: import/gnucobol/tests/testsuite.src/listings.at:80:0 +listings.at-80-expected.lst:1.6-1.7: + 1 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Unexpected indicator: `O' + +listings.at-80-expected.lst:1.7-1.8: + 1 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Invalid syntax + +listings.at-80-expected.lst:22.6-22.7: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Error: Unexpected indicator: `B' + +listings.at-80-expected.lst:24.6-24.7: + 21 + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 > 0 warnings in compilation group +---- ^ + 25 0 errors in compilation group +>> Error: Unexpected indicator: `i' + +listings.at-80-expected.lst:25.6-25.7: + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 0 warnings in compilation group + 25 > 0 errors in compilation group +---- ^ +>> Error: Unexpected indicator: `r' + +listings.at-80-expected.lst:22.9: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.10-22.15: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.15: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.25-22.33: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^^^^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.33: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.46-22.49: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.49: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.50-22.53: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.53: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.54-22.56: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.56: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.57-22.65: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^^^^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.65: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.59-22.65: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.65: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.62-22.65: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.65: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:22.66-22.70: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^^^^ + 23 + 24 0 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:22.70: + 19 000015 END-DISPLAY. + 20 000016 STOP RUN. + 21 + 22 > GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 +---- ^ + 23 + 24 0 warnings in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:24.7-24.10: + 21 + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 > 0 warnings in compilation group +---- ^^^ + 25 0 errors in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:24.10: + 21 + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 > 0 warnings in compilation group +---- ^ + 25 0 errors in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:24.11-24.13: + 21 + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 > 0 warnings in compilation group +---- ^^ + 25 0 errors in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:24.25: + 21 + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 > 0 warnings in compilation group +---- ^ + 25 0 errors in compilation group +>> Hint: Missing . + +listings.at-80-expected.lst:24.26-24.31: + 21 + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 > 0 warnings in compilation group +---- ^^^^^ + 25 0 errors in compilation group +>> Warning: Invalid syntax + +listings.at-80-expected.lst:25.8: + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 0 warnings in compilation group + 25 > 0 errors in compilation group +---- ^ +>> Hint: Missing . + +listings.at-80-expected.lst:25.9-25.11: + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 0 warnings in compilation group + 25 > 0 errors in compilation group +---- ^^ +>> Warning: Invalid syntax + +listings.at-80-expected.lst:25.23: + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 0 warnings in compilation group + 25 > 0 errors in compilation group +---- ^ +>> Hint: Missing . + +listings.at-80-expected.lst:25.24-25.29: + 22 GnuCOBOL V.R.P prog.cob DDD MMM dd HH:MM:SS YYYY Page 0002 + 23 + 24 0 warnings in compilation group + 25 > 0 errors in compilation group +---- ^^^^^ +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:75:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:98:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:127:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:169:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:232:0 +listings.at-232-prog.cob:13.34-13.40: + 10 3 ZZ PIC X(2) VALUE "ZZ". + 11 3 Y PIC X(1) VALUE "Y". + 12 PROCEDURE DIVISION. + 13 > REPLACE LEADING "X" BY SPACES +---- ^^^^^^ + 14 TRAILING "Z" BY SPACES + 15 LEADING "Y" BY "X". +>> Error: Malformed REPLACE statement + +Considering: import/gnucobol/tests/testsuite.src/listings.at:289:0 +listings.at-289-prog.cob:7.7-8.70: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy.inc" REPLACING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > == 02 TEST-EE == BY == 02 TEST-FF ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY TEST-AVR. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:349:0 +listings.at-349-prog.cob:7.7-12.48: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy.inc" REPLACING +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > LEADING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > == 02 TEST-OK == BY == 02 TEST-KO == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > ==TEST-CC== BY ==TEST-DD== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > == 02 TEST-EE == BY == 02 TEST-FF == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > == PIC == BY == pic ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 PROCEDURE DIVISION. + 14 DISPLAY TEST-AVR. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:413:0 +listings.at-413-prog2.cob:7.7-12.55: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy2.inc" +---- ^^^^^^^^^^^^^^^^ + 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > == 02 TEST-OK == BY == 02 TEST-KO == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > == TEST-CC == BY == TEST-DD == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > == 02 TEST-EE == BY == 02 TEST-FF == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > == PIC == BY == pic ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 PROCEDURE DIVISION. + 14 DISPLAY TEST-AVR. +>> Error: Library `copy2.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:477:0 +listings.at-477-prog3.cob:7.7-12.55: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy3.inc" +---- ^^^^^^^^^^^^^^^^ + 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > == 02 TEST-OK == BY == 02 TEST-KO == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > ==TEST-CC== BY ==TEST-DD== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > == 02 TEST-EE == BY == 02 TEST-FF == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > == PIC == BY == pic ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 PROCEDURE DIVISION. + 14 DISPLAY TEST-AVR. +>> Error: Library `copy3.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:538:0 +listings.at-538-prog.cob:6.7-8.53: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING ==TEST-VAR== BY ==FIRST-MATCH== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > ==TEST-VAR== BY ==SECOND-MATCH==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY FIRST-MATCH NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:631:0 +listings.at-631-prog.cob:6.7-10.55: + 3 PROGRAM-ID. prog. PROG002 + 4 DATA DIVISION. PROG003 + 5 WORKING-STORAGE SECTION. PROG004 + 6 > COPY "copy.inc" PROG005 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 7 > REPLACING ==TEST-VAR==, BY ==FIRST-MATCH==, PROG006 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > , ==TEST-VAR==; BY ==SECOND-MATCH==; PROG007 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > ; ==TEST-VAR== , BY ==THIRD-MATCH== PROG008 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > ==TEST-VAR== ; BY ==FOURTH-MATCH==. PROG009 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 PROCEDURE DIVISION. PROG010 + 12 DISPLAY FIRST-MATCH NO ADVANCING PROG011 +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:691:0 +listings.at-691-prog.cob:6.7-8.44: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING ==:TEST:== BY ==COLON== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > ==(TEST)== BY ==PAREN==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY COLON-VAR NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:774:0 +listings.at-774-prog1.cob:11.10-13.52: + 8 + 9 01 xx pic x(02). + 10 + 11 > copy 'copy1.inc' replacing 'YYY-' by a10- +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > 'yy1-' by a11- +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 > 'yy2-' by a12-. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 14 + 15 copy 'copy1.inc' replacing 'YYY-' by a20- +>> Error: Library `copy1.inc' not found in search path (search path: ) + +listings.at-774-prog1.cob:15.10-17.52: + 12 'yy1-' by a11- + 13 'yy2-' by a12-. + 14 + 15 > copy 'copy1.inc' replacing 'YYY-' by a20- +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 16 > 'yy1-' by a21- +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 17 > 'yy2-' by a22-. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 18 + 19 copy 'copy1.inc' replacing 'YYY-' by a30- +>> Error: Library `copy1.inc' not found in search path (search path: ) + +listings.at-774-prog1.cob:19.10-21.52: + 16 'yy1-' by a21- + 17 'yy2-' by a22-. + 18 + 19 > copy 'copy1.inc' replacing 'YYY-' by a30- +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 20 > 'yy1-' by a31- +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 21 > 'yy2-' by a32-. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 22 + 23 procedure division. +>> Error: Library `copy1.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:893:0 +listings.at-893-prog.cob:6.7-8.53: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING LEADING ==TEST== BY ==FIRST== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > LEADING ==NORM== BY ==SECOND==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY FIRST-VAR NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:957:0 +listings.at-957-prog.cob:6.7-8.54: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING TRAILING ==FIRST== BY ==VAR1== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > TRAILING ==SECOND== BY ==VAR2==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY TEST-VAR1 NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:1020:0 +listings.at-1020-prog.cob:6.7-7.50: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy-1.inc" +---- ^^^^^^^^^^^^^^^^^ + 7 > REPLACING ==TEST-VAR== BY ==COPY-VAR==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 PROCEDURE DIVISION. + 9 DISPLAY COPY-VAR NO ADVANCING +>> Error: Library `copy-1.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:1146:0 +listings.at-1146-tstcpybk.cob:13.11-13.32: + 10 + 11 INPUT-OUTPUT SECTION. + 12 FILE-CONTROL. + 13 > COPY "copy-sl-1.inc". +---- ^^^^^^^^^^^^^^^^^^^^^ + 14 COPY "copy-sl-2.inc". + 15 +>> Error: Library `copy-sl-1.inc' not found in search path (search path: ) + +listings.at-1146-tstcpybk.cob:14.11-14.32: + 11 INPUT-OUTPUT SECTION. + 12 FILE-CONTROL. + 13 COPY "copy-sl-1.inc". + 14 > COPY "copy-sl-2.inc". +---- ^^^^^^^^^^^^^^^^^^^^^ + 15 + 16 DATA DIVISION. +>> Error: Library `copy-sl-2.inc' not found in search path (search path: ) + +listings.at-1146-tstcpybk.cob:18.11-18.32: + 15 + 16 DATA DIVISION. + 17 FILE SECTION. + 18 > COPY "copy-fd-1.inc". +---- ^^^^^^^^^^^^^^^^^^^^^ + 19 COPY "copy-fd-2.inc". + 20 +>> Error: Library `copy-fd-1.inc' not found in search path (search path: ) + +listings.at-1146-tstcpybk.cob:19.11-19.32: + 16 DATA DIVISION. + 17 FILE SECTION. + 18 COPY "copy-fd-1.inc". + 19 > COPY "copy-fd-2.inc". +---- ^^^^^^^^^^^^^^^^^^^^^ + 20 + 21 WORKING-STORAGE SECTION. +>> Error: Library `copy-fd-2.inc' not found in search path (search path: ) + +listings.at-1146-tstcpybk.cob:30.11-30.32: + 27 * + 28 77 GLOB PIC 99 GLOBAL. + 29 * + 30 > COPY "copy-ws-1.inc". +---- ^^^^^^^^^^^^^^^^^^^^^ + 31 COPY "copy-ws-2.inc". + 32 +>> Error: Library `copy-ws-1.inc' not found in search path (search path: ) + +listings.at-1146-tstcpybk.cob:31.11-31.32: + 28 77 GLOB PIC 99 GLOBAL. + 29 * + 30 COPY "copy-ws-1.inc". + 31 > COPY "copy-ws-2.inc". +---- ^^^^^^^^^^^^^^^^^^^^^ + 32 + 33 PROCEDURE DIVISION. +>> Error: Library `copy-ws-2.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:1394:0 +listings.at-1394-prog.cob:4.7-4.23: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > COPY "copy.inc". +---- ^^^^^^^^^^^^^^^^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/listings.at:1613:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:1613:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:1711:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:1712:0 +listings.at-1712-prog20.lst:1.6-1.7: + 1 > GnuCOBOL V.R.P prog.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Unexpected indicator: `O' + +listings.at-1712-prog20.lst:1.7-1.8: + 1 > GnuCOBOL V.R.P prog.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Invalid syntax + +listings.at-1712-prog20.lst:18.6-18.7: + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 000013 END PROGRAM prog-2. + 18 > GnuCOBOL V.R.P prog.cob Page 0002 +---- ^ + 19 + 20 SIZE TYPE LVL NAME PICTURE +>> Error: Unexpected indicator: `B' + +listings.at-1712-prog20.lst:20.6-20.7: + 17 000013 END PROGRAM prog-2. + 18 GnuCOBOL V.R.P prog.cob Page 0002 + 19 + 20 > SIZE TYPE LVL NAME PICTURE +---- ^ + 21 + 22 PROGRAM prog-1 +>> Error: Unexpected indicator: `T' + +listings.at-1712-prog20.lst:22.6-22.7: + 19 + 20 SIZE TYPE LVL NAME PICTURE + 21 + 22 > PROGRAM prog-1 +---- ^ + 23 + 24 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `P' + +listings.at-1712-prog20.lst:24.6-24.7: + 21 + 22 PROGRAM prog-1 + 23 + 24 > WORKING-STORAGE SECTION +---- ^ + 25 + 26 00001 ALPHANUMERIC 01 blah X +>> Error: Unexpected indicator: `W' + +listings.at-1712-prog20.lst:26.6-26.7: + 23 + 24 WORKING-STORAGE SECTION + 25 + 26 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 27 + 28 PROGRAM prog-2 +>> Error: Unexpected indicator: `A' + +listings.at-1712-prog20.lst:28.6-28.7: + 25 + 26 00001 ALPHANUMERIC 01 blah X + 27 + 28 > PROGRAM prog-2 +---- ^ + 29 + 30 No fields defined. +>> Error: Unexpected indicator: `P' + +listings.at-1712-prog20.lst:30.6-30.7: + 27 + 28 PROGRAM prog-2 + 29 + 30 > No fields defined. +---- ^ + 31 + 32 +>> Error: Unexpected indicator: `N' + +listings.at-1712-prog20.lst:33.6-33.7: + 30 No fields defined. + 31 + 32 + 33 > 0 warnings in compilation group +---- ^ + 34 0 errors in compilation group +>> Error: Unexpected indicator: `i' + +listings.at-1712-prog20.lst:34.6-34.7: + 31 + 32 + 33 0 warnings in compilation group + 34 > 0 errors in compilation group +---- ^ +>> Error: Unexpected indicator: `r' + +listings.at-1712-prog20.lst:18.7-18.9: + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 000013 END PROGRAM prog-2. + 18 > GnuCOBOL V.R.P prog.cob Page 0002 +---- ^^ + 19 + 20 SIZE TYPE LVL NAME PICTURE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:1779:0 +listings.at-1779-prog20b.lst:1.6-1.7: + 1 > GnuCOBOL V.R.P progb.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Unexpected indicator: `O' + +listings.at-1779-prog20b.lst:1.7-1.8: + 1 > GnuCOBOL V.R.P progb.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Invalid syntax + +listings.at-1779-prog20b.lst:21.6-21.7: + 18 000014 END PROGRAM prog-2. + 19 000015 + 20 000016 END PROGRAM prog-1. + 21 > GnuCOBOL V.R.P progb.cob Page 0002 +---- ^ + 22 + 23 SIZE TYPE LVL NAME PICTURE +>> Error: Unexpected indicator: `B' + +listings.at-1779-prog20b.lst:23.6-23.7: + 20 000016 END PROGRAM prog-1. + 21 GnuCOBOL V.R.P progb.cob Page 0002 + 22 + 23 > SIZE TYPE LVL NAME PICTURE +---- ^ + 24 + 25 PROGRAM prog-1 +>> Error: Unexpected indicator: `T' + +listings.at-1779-prog20b.lst:25.6-25.7: + 22 + 23 SIZE TYPE LVL NAME PICTURE + 24 + 25 > PROGRAM prog-1 +---- ^ + 26 + 27 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `P' + +listings.at-1779-prog20b.lst:27.6-27.7: + 24 + 25 PROGRAM prog-1 + 26 + 27 > WORKING-STORAGE SECTION +---- ^ + 28 + 29 00001 ALPHANUMERIC 01 blah X +>> Error: Unexpected indicator: `W' + +listings.at-1779-prog20b.lst:29.6-29.7: + 26 + 27 WORKING-STORAGE SECTION + 28 + 29 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 30 + 31 PROGRAM prog-2 +>> Error: Unexpected indicator: `A' + +listings.at-1779-prog20b.lst:31.6-31.7: + 28 + 29 00001 ALPHANUMERIC 01 blah X + 30 + 31 > PROGRAM prog-2 +---- ^ + 32 + 33 No fields defined. +>> Error: Unexpected indicator: `P' + +listings.at-1779-prog20b.lst:33.6-33.7: + 30 + 31 PROGRAM prog-2 + 32 + 33 > No fields defined. +---- ^ + 34 + 35 +>> Error: Unexpected indicator: `N' + +listings.at-1779-prog20b.lst:36.6-36.7: + 33 No fields defined. + 34 + 35 + 36 > 0 warnings in compilation group +---- ^ + 37 0 errors in compilation group +>> Error: Unexpected indicator: `i' + +listings.at-1779-prog20b.lst:37.6-37.7: + 34 + 35 + 36 0 warnings in compilation group + 37 > 0 errors in compilation group +---- ^ +>> Error: Unexpected indicator: `r' + +listings.at-1779-prog20b.lst:21.7-21.9: + 18 000014 END PROGRAM prog-2. + 19 000015 + 20 000016 END PROGRAM prog-1. + 21 > GnuCOBOL V.R.P progb.cob Page 0002 +---- ^^ + 22 + 23 SIZE TYPE LVL NAME PICTURE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:1855:0 +listings.at-1855-prog20c.lst:1.6-1.7: + 1 > GnuCOBOL V.R.P progc.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Unexpected indicator: `O' + +listings.at-1855-prog20c.lst:1.7-1.8: + 1 > GnuCOBOL V.R.P progc.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Invalid syntax + +listings.at-1855-prog20c.lst:17.24: + 14 000010 + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 > 000013 PROCEDURE. +---- ^ + 18 error: syntax error, unexpected ., expecting DIVISION + 19 000014 END PROGRAM prog-2. +>> Hint: Missing DIVISION + +listings.at-1855-prog20c.lst:17.24-17.25: + 14 000010 + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 > 000013 PROCEDURE. +---- ^ + 18 error: syntax error, unexpected ., expecting DIVISION + 19 000014 END PROGRAM prog-2. +>> Error: Invalid syntax + +listings.at-1855-prog20c.lst:18.13: + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 000013 PROCEDURE. + 18 > error: syntax error, unexpected ., expecting DIVISION +---- ^ + 19 000014 END PROGRAM prog-2. + 20 000015 +>> Hint: Missing . + +listings.at-1855-prog20c.lst:18.14-18.19: + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 000013 PROCEDURE. + 18 > error: syntax error, unexpected ., expecting DIVISION +---- ^^^^^ + 19 000014 END PROGRAM prog-2. + 20 000015 +>> Warning: Invalid syntax + +listings.at-1855-prog20c.lst:18.44: + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 000013 PROCEDURE. + 18 > error: syntax error, unexpected ., expecting DIVISION +---- ^ + 19 000014 END PROGRAM prog-2. + 20 000015 +>> Hint: Missing . + +listings.at-1855-prog20c.lst:18.45-18.53: + 15 000011 IDENTIFICATION DIVISION. + 16 000012 PROGRAM-ID. prog-2. + 17 000013 PROCEDURE. + 18 > error: syntax error, unexpected ., expecting DIVISION +---- ^^^^^^^^ + 19 000014 END PROGRAM prog-2. + 20 000015 +>> Warning: Invalid syntax + +listings.at-1855-prog20c.lst:22.6-22.7: + 19 000014 END PROGRAM prog-2. + 20 000015 + 21 000016 END PROGRAM prog-1. + 22 > GnuCOBOL V.R.P progc.cob Page 0002 +---- ^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Error: Unexpected indicator: `B' + +listings.at-1855-prog20c.lst:24.6-24.7: + 21 000016 END PROGRAM prog-1. + 22 GnuCOBOL V.R.P progc.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^ + 25 + 26 PROGRAM prog-1 +>> Error: Unexpected indicator: `T' + +listings.at-1855-prog20c.lst:26.6-26.7: + 23 + 24 SIZE TYPE LVL NAME PICTURE + 25 + 26 > PROGRAM prog-1 +---- ^ + 27 + 28 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `P' + +listings.at-1855-prog20c.lst:28.6-28.7: + 25 + 26 PROGRAM prog-1 + 27 + 28 > WORKING-STORAGE SECTION +---- ^ + 29 + 30 00001 ALPHANUMERIC 01 blah X +>> Error: Unexpected indicator: `W' + +listings.at-1855-prog20c.lst:30.6-30.7: + 27 + 28 WORKING-STORAGE SECTION + 29 + 30 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 31 + 32 PROGRAM prog-2 +>> Error: Unexpected indicator: `A' + +listings.at-1855-prog20c.lst:32.6-32.7: + 29 + 30 00001 ALPHANUMERIC 01 blah X + 31 + 32 > PROGRAM prog-2 +---- ^ + 33 + 34 No fields defined. +>> Error: Unexpected indicator: `P' + +listings.at-1855-prog20c.lst:34.6-34.7: + 31 + 32 PROGRAM prog-2 + 33 + 34 > No fields defined. +---- ^ + 35 + 36 +>> Error: Unexpected indicator: `N' + +listings.at-1855-prog20c.lst:37.6-37.7: + 34 No fields defined. + 35 + 36 + 37 > GnuCOBOL V.R.P progc.cob Page 0003 +---- ^ + 38 + 39 Error/Warning summary: +>> Error: Unexpected indicator: `B' + +listings.at-1855-prog20c.lst:39.6-39.7: + 36 + 37 GnuCOBOL V.R.P progc.cob Page 0003 + 38 + 39 > Error/Warning summary: +---- ^ + 40 + 41 progc.cob:13: error: syntax error, unexpected ., expecting DIVISION +>> Error: Unexpected indicator: `W' + +listings.at-1855-prog20c.lst:41.6-41.7: + 38 + 39 Error/Warning summary: + 40 + 41 > progc.cob:13: error: syntax error, unexpected ., expecting DIVISION +---- ^ + 42 + 43 0 warnings in compilation group +>> Error: Unexpected indicator: `c' + +listings.at-1855-prog20c.lst:43.6-43.7: + 40 + 41 progc.cob:13: error: syntax error, unexpected ., expecting DIVISION + 42 + 43 > 0 warnings in compilation group +---- ^ + 44 1 error in compilation group +>> Error: Unexpected indicator: `i' + +listings.at-1855-prog20c.lst:44.6-44.7: + 41 progc.cob:13: error: syntax error, unexpected ., expecting DIVISION + 42 + 43 0 warnings in compilation group + 44 > 1 error in compilation group +---- ^ +>> Error: Unexpected indicator: `r' + +listings.at-1855-prog20c.lst:22.7-22.9: + 19 000014 END PROGRAM prog-2. + 20 000015 + 21 000016 END PROGRAM prog-1. + 22 > GnuCOBOL V.R.P progc.cob Page 0002 +---- ^^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:1778:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2030:0 +listings.at-2030-expected.lst:1.6-1.7: + 1 > GnuCOBOL V.R.P prog-1.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Unexpected indicator: `O' + +listings.at-2030-expected.lst:1.7-1.8: + 1 > GnuCOBOL V.R.P prog-1.cob Page 0001 +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Invalid syntax + +listings.at-2030-expected.lst:19.6-19.7: + 16 000012 GO TO EX + 17 000013 + 18 000014 DISPLAY blah. + 19 > warning: unreachable statement 'DISPLAY' +---- ^ + 20 000015 + 21 000016 EX. STOP RUN. +>> Error: Unexpected indicator: `g' + +listings.at-2030-expected.lst:19.7-19.8: + 16 000012 GO TO EX + 17 000013 + 18 000014 DISPLAY blah. + 19 > warning: unreachable statement 'DISPLAY' +---- ^ + 20 000015 + 21 000016 EX. STOP RUN. +>> Error: Invalid syntax + +listings.at-2030-expected.lst:19.20: + 16 000012 GO TO EX + 17 000013 + 18 000014 DISPLAY blah. + 19 > warning: unreachable statement 'DISPLAY' +---- ^ + 20 000015 + 21 000016 EX. STOP RUN. +>> Hint: Missing . + +listings.at-2030-expected.lst:19.21-19.30: + 16 000012 GO TO EX + 17 000013 + 18 000014 DISPLAY blah. + 19 > warning: unreachable statement 'DISPLAY' +---- ^^^^^^^^^ + 20 000015 + 21 000016 EX. STOP RUN. +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:19.30: + 16 000012 GO TO EX + 17 000013 + 18 000014 DISPLAY blah. + 19 > warning: unreachable statement 'DISPLAY' +---- ^ + 20 000015 + 21 000016 EX. STOP RUN. +>> Hint: Missing . + +listings.at-2030-expected.lst:19.31-19.40: + 16 000012 GO TO EX + 17 000013 + 18 000014 DISPLAY blah. + 19 > warning: unreachable statement 'DISPLAY' +---- ^^^^^^^^^ + 20 000015 + 21 000016 EX. STOP RUN. +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:22.6-22.7: + 19 warning: unreachable statement 'DISPLAY' + 20 000015 + 21 000016 EX. STOP RUN. + 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 +---- ^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:24.6-24.7: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^ + 25 + 26 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `T' + +listings.at-2030-expected.lst:26.6-26.7: + 23 + 24 SIZE TYPE LVL NAME PICTURE + 25 + 26 > WORKING-STORAGE SECTION +---- ^ + 27 + 28 00001 ALPHANUMERIC 01 blah X +>> Error: Unexpected indicator: `W' + +listings.at-2030-expected.lst:28.6-28.7: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Error: Unexpected indicator: `A' + +listings.at-2030-expected.lst:30.6-30.7: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^ + 31 + 32 NAME DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:36.6-36.7: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^ + 37 + 38 LABEL DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:40.6-40.7: + 37 + 38 LABEL DEFINED REFERENCES + 39 + 40 > E prog__1 10 +---- ^ + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 +>> Error: Unexpected indicator: `_' + +listings.at-2030-expected.lst:42.6-42.7: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:44.6-44.7: + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 + 44 > FUNCTION TYPE REFERENCES +---- ^ + 45 + 46 L prog-2 EXTERN 11 x1 +>> Error: Unexpected indicator: `O' + +listings.at-2030-expected.lst:46.7-46.11: + 43 + 44 FUNCTION TYPE REFERENCES + 45 + 46 > L prog-2 EXTERN 11 x1 +---- ^^^^ + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 +>> Warning: Unexpected non-blank area A on continuation line + +listings.at-2030-expected.lst:48.6-48.7: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^ + 49 + 50 Error/Warning summary: +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:50.6-50.7: + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 + 49 + 50 > Error/Warning summary: +---- ^ + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' +>> Error: Unexpected indicator: `W' + +listings.at-2030-expected.lst:52.6-52.7: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Error: Unexpected indicator: `.' + +listings.at-2030-expected.lst:54.6-54.7: + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 > 1 warning in compilation group +---- ^ + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 +>> Error: Unexpected indicator: `i' + +listings.at-2030-expected.lst:55.6-55.7: + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 1 warning in compilation group + 55 > 0 errors in compilation group +---- ^ + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 +>> Error: Unexpected indicator: `r' + +listings.at-2030-expected.lst:56.6-56.7: + 53 + 54 1 warning in compilation group + 55 0 errors in compilation group + 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 +---- ^ + 57 + 58 LINE PG/LN A...B............................................................ +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:22.9: + 19 warning: unreachable statement 'DISPLAY' + 20 000015 + 21 000016 EX. STOP RUN. + 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 +---- ^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Hint: Missing . + +listings.at-2030-expected.lst:22.10-22.15: + 19 warning: unreachable statement 'DISPLAY' + 20 000015 + 21 000016 EX. STOP RUN. + 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 +---- ^^^^^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:22.15: + 19 warning: unreachable statement 'DISPLAY' + 20 000015 + 21 000016 EX. STOP RUN. + 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 +---- ^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Hint: Missing . + +listings.at-2030-expected.lst:22.25-22.35: + 19 warning: unreachable statement 'DISPLAY' + 20 000015 + 21 000016 EX. STOP RUN. + 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 +---- ^^^^^^^^^^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:22.35: + 19 warning: unreachable statement 'DISPLAY' + 20 000015 + 21 000016 EX. STOP RUN. + 22 > GnuCOBOL V.R.P prog-1.cob Page 0002 +---- ^ + 23 + 24 SIZE TYPE LVL NAME PICTURE +>> Hint: Missing . + +listings.at-2030-expected.lst:24.7-24.10: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^^^ + 25 + 26 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:24.10: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^ + 25 + 26 WORKING-STORAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:24.21-24.24: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^^^ + 25 + 26 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:24.24: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^ + 25 + 26 WORKING-STORAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:24.26-24.30: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^^^^ + 25 + 26 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:24.57-24.64: + 21 000016 EX. STOP RUN. + 22 GnuCOBOL V.R.P prog-1.cob Page 0002 + 23 + 24 > SIZE TYPE LVL NAME PICTURE +---- ^^^^^^^ + 25 + 26 WORKING-STORAGE SECTION +>> Error: Invalid syntax + +listings.at-2030-expected.lst:26.29: + 23 + 24 SIZE TYPE LVL NAME PICTURE + 25 + 26 > WORKING-STORAGE SECTION +---- ^ + 27 + 28 00001 ALPHANUMERIC 01 blah X +>> Hint: Missing . + +listings.at-2030-expected.lst:28.7-28.18: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^^^^^^^^^^^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Error: Invalid syntax + +listings.at-2030-expected.lst:28.18: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:28.21-28.23: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:28.23: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:28.26-28.30: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^^^^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:28.30: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:28.57-28.58: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:28.58: + 25 + 26 WORKING-STORAGE SECTION + 27 + 28 > 00001 ALPHANUMERIC 01 blah X +---- ^ + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:30.7-30.9: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^^ + 31 + 32 NAME DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:30.9: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^ + 31 + 32 NAME DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:30.10-30.15: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^^^^^ + 31 + 32 NAME DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:30.15: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^ + 31 + 32 NAME DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:30.25-30.35: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^^^^^^^^^^ + 31 + 32 NAME DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:30.35: + 27 + 28 00001 ALPHANUMERIC 01 blah X + 29 + 30 > GnuCOBOL V.R.P prog-1.cob Page 0003 +---- ^ + 31 + 32 NAME DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:32.31-32.38: + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 + 31 + 32 > NAME DEFINED REFERENCES +---- ^^^^^^^ + 33 + 34 blah 7 *10 11 14 x3 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:32.38: + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 + 31 + 32 > NAME DEFINED REFERENCES +---- ^ + 33 + 34 blah 7 *10 11 14 x3 +>> Hint: Missing . + +listings.at-2030-expected.lst:32.54-32.64: + 29 + 30 GnuCOBOL V.R.P prog-1.cob Page 0003 + 31 + 32 > NAME DEFINED REFERENCES +---- ^^^^^^^^^^ + 33 + 34 blah 7 *10 11 14 x3 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:34.32: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:34.39-34.42: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^^^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:34.42: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:34.48-34.50: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:34.50: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:34.56-34.58: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:34.58: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:34.71-34.72: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:34.72: + 31 + 32 NAME DEFINED REFERENCES + 33 + 34 > blah 7 *10 11 14 x3 +---- ^ + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:36.7-36.9: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^^ + 37 + 38 LABEL DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:36.9: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^ + 37 + 38 LABEL DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:36.10-36.15: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^^^^^ + 37 + 38 LABEL DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:36.15: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^ + 37 + 38 LABEL DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:36.25-36.35: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^^^^^^^^^^ + 37 + 38 LABEL DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:36.35: + 33 + 34 blah 7 *10 11 14 x3 + 35 + 36 > GnuCOBOL V.R.P prog-1.cob Page 0004 +---- ^ + 37 + 38 LABEL DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:38.31-38.38: + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 + 37 + 38 > LABEL DEFINED REFERENCES +---- ^^^^^^^ + 39 + 40 E prog__1 10 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:38.38: + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 + 37 + 38 > LABEL DEFINED REFERENCES +---- ^ + 39 + 40 E prog__1 10 +>> Hint: Missing . + +listings.at-2030-expected.lst:38.54-38.64: + 35 + 36 GnuCOBOL V.R.P prog-1.cob Page 0004 + 37 + 38 > LABEL DEFINED REFERENCES +---- ^^^^^^^^^^ + 39 + 40 E prog__1 10 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:40.9: + 37 + 38 LABEL DEFINED REFERENCES + 39 + 40 > E prog__1 10 +---- ^ + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 +>> Hint: Missing . + +listings.at-2030-expected.lst:40.31-40.33: + 37 + 38 LABEL DEFINED REFERENCES + 39 + 40 > E prog__1 10 +---- ^^ + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:40.33: + 37 + 38 LABEL DEFINED REFERENCES + 39 + 40 > E prog__1 10 +---- ^ + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 +>> Hint: Missing . + +listings.at-2030-expected.lst:41.31-41.33: + 38 LABEL DEFINED REFERENCES + 39 + 40 E prog__1 10 + 41 > P EX 16 12 x1 +---- ^^ + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:41.33: + 38 LABEL DEFINED REFERENCES + 39 + 40 E prog__1 10 + 41 > P EX 16 12 x1 +---- ^ + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 +>> Hint: Missing . + +listings.at-2030-expected.lst:41.40-41.42: + 38 LABEL DEFINED REFERENCES + 39 + 40 E prog__1 10 + 41 > P EX 16 12 x1 +---- ^^ + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:41.42: + 38 LABEL DEFINED REFERENCES + 39 + 40 E prog__1 10 + 41 > P EX 16 12 x1 +---- ^ + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 +>> Hint: Missing . + +listings.at-2030-expected.lst:41.71-41.72: + 38 LABEL DEFINED REFERENCES + 39 + 40 E prog__1 10 + 41 > P EX 16 12 x1 +---- ^ + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:41.72: + 38 LABEL DEFINED REFERENCES + 39 + 40 E prog__1 10 + 41 > P EX 16 12 x1 +---- ^ + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 +>> Hint: Missing . + +listings.at-2030-expected.lst:42.7-42.9: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:42.9: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:42.10-42.15: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^^^^^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:42.15: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:42.25-42.35: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^^^^^^^^^^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:42.35: + 39 + 40 E prog__1 10 + 41 P EX 16 12 x1 + 42 > GnuCOBOL V.R.P prog-1.cob Page 0005 +---- ^ + 43 + 44 FUNCTION TYPE REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:44.7-44.8: + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 + 44 > FUNCTION TYPE REFERENCES +---- ^ + 45 + 46 L prog-2 EXTERN 11 x1 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:44.8: + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 + 44 > FUNCTION TYPE REFERENCES +---- ^ + 45 + 46 L prog-2 EXTERN 11 x1 +>> Hint: Missing . + +listings.at-2030-expected.lst:44.31-44.35: + 41 P EX 16 12 x1 + 42 GnuCOBOL V.R.P prog-1.cob Page 0005 + 43 + 44 > FUNCTION TYPE REFERENCES +---- ^^^^ + 45 + 46 L prog-2 EXTERN 11 x1 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:46.37: + 43 + 44 FUNCTION TYPE REFERENCES + 45 + 46 > L prog-2 EXTERN 11 x1 +---- ^ + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 +>> Hint: Missing . + +listings.at-2030-expected.lst:46.40-46.42: + 43 + 44 FUNCTION TYPE REFERENCES + 45 + 46 > L prog-2 EXTERN 11 x1 +---- ^^ + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:46.42: + 43 + 44 FUNCTION TYPE REFERENCES + 45 + 46 > L prog-2 EXTERN 11 x1 +---- ^ + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 +>> Hint: Missing . + +listings.at-2030-expected.lst:46.71-46.72: + 43 + 44 FUNCTION TYPE REFERENCES + 45 + 46 > L prog-2 EXTERN 11 x1 +---- ^ + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:46.72: + 43 + 44 FUNCTION TYPE REFERENCES + 45 + 46 > L prog-2 EXTERN 11 x1 +---- ^ + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 +>> Hint: Missing . + +listings.at-2030-expected.lst:48.7-48.9: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^^ + 49 + 50 Error/Warning summary: +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:48.9: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^ + 49 + 50 Error/Warning summary: +>> Hint: Missing . + +listings.at-2030-expected.lst:48.10-48.15: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^^^^^ + 49 + 50 Error/Warning summary: +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:48.15: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^ + 49 + 50 Error/Warning summary: +>> Hint: Missing . + +listings.at-2030-expected.lst:48.25-48.35: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^^^^^^^^^^ + 49 + 50 Error/Warning summary: +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:48.35: + 45 + 46 L prog-2 EXTERN 11 x1 + 47 + 48 > GnuCOBOL V.R.P prog-1.cob Page 0006 +---- ^ + 49 + 50 Error/Warning summary: +>> Hint: Missing . + +listings.at-2030-expected.lst:50.7-50.13: + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 + 49 + 50 > Error/Warning summary: +---- ^^^^^^ + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:50.13: + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 + 49 + 50 > Error/Warning summary: +---- ^ + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' +>> Hint: Missing . + +listings.at-2030-expected.lst:50.14-50.22: + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 + 49 + 50 > Error/Warning summary: +---- ^^^^^^^^ + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:50.22: + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 + 49 + 50 > Error/Warning summary: +---- ^ + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' +>> Hint: Missing . + +listings.at-2030-expected.lst:50.21-50.22: + 47 + 48 GnuCOBOL V.R.P prog-1.cob Page 0006 + 49 + 50 > Error/Warning summary: +---- ^ + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:52.14: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:52.10-52.14: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^^^^ + 53 + 54 1 warning in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:52.14: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:52.13-52.14: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:52.23: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:52.22-52.23: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:52.35: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:52.36-52.45: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^^^^^^^^^ + 53 + 54 1 warning in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:52.45: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^ + 53 + 54 1 warning in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:52.46-52.55: + 49 + 50 Error/Warning summary: + 51 + 52 > prog-1.cob:14: warning: unreachable statement 'DISPLAY' +---- ^^^^^^^^^ + 53 + 54 1 warning in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:54.9: + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 > 1 warning in compilation group +---- ^ + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 +>> Hint: Missing . + +listings.at-2030-expected.lst:54.10-54.12: + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 > 1 warning in compilation group +---- ^^ + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:54.24: + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 > 1 warning in compilation group +---- ^ + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 +>> Hint: Missing . + +listings.at-2030-expected.lst:54.25-54.30: + 51 + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 > 1 warning in compilation group +---- ^^^^^ + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:55.8: + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 1 warning in compilation group + 55 > 0 errors in compilation group +---- ^ + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 +>> Hint: Missing . + +listings.at-2030-expected.lst:55.9-55.11: + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 1 warning in compilation group + 55 > 0 errors in compilation group +---- ^^ + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:55.23: + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 1 warning in compilation group + 55 > 0 errors in compilation group +---- ^ + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 +>> Hint: Missing . + +listings.at-2030-expected.lst:55.24-55.29: + 52 prog-1.cob:14: warning: unreachable statement 'DISPLAY' + 53 + 54 1 warning in compilation group + 55 > 0 errors in compilation group +---- ^^^^^ + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:56.9: + 53 + 54 1 warning in compilation group + 55 0 errors in compilation group + 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 +---- ^ + 57 + 58 LINE PG/LN A...B............................................................ +>> Hint: Missing . + +listings.at-2030-expected.lst:56.10-56.15: + 53 + 54 1 warning in compilation group + 55 0 errors in compilation group + 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 +---- ^^^^^ + 57 + 58 LINE PG/LN A...B............................................................ +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:56.15: + 53 + 54 1 warning in compilation group + 55 0 errors in compilation group + 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 +---- ^ + 57 + 58 LINE PG/LN A...B............................................................ +>> Hint: Missing . + +listings.at-2030-expected.lst:56.25-56.35: + 53 + 54 1 warning in compilation group + 55 0 errors in compilation group + 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 +---- ^^^^^^^^^^ + 57 + 58 LINE PG/LN A...B............................................................ +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:56.35: + 53 + 54 1 warning in compilation group + 55 0 errors in compilation group + 56 > GnuCOBOL V.R.P prog-2.cob Page 0001 +---- ^ + 57 + 58 LINE PG/LN A...B............................................................ +>> Hint: Missing . + +listings.at-2030-expected.lst:58.8-58.13: + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 + 58 > LINE PG/LN A...B............................................................ +---- ^^^^^ + 59 + 60 000001 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:58.13: + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 + 58 > LINE PG/LN A...B............................................................ +---- ^ + 59 + 60 000001 +>> Hint: Missing . + +listings.at-2030-expected.lst:58.10-58.13: + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 + 58 > LINE PG/LN A...B............................................................ +---- ^^^ + 59 + 60 000001 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:58.13: + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 + 58 > LINE PG/LN A...B............................................................ +---- ^ + 59 + 60 000001 +>> Hint: Missing . + +listings.at-2030-expected.lst:58.15-58.71: + 55 0 errors in compilation group + 56 GnuCOBOL V.R.P prog-2.cob Page 0001 + 57 + 58 > LINE PG/LN A...B............................................................ +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 59 + 60 000001 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:76.6-76.7: + 73 000014 GO TO EX + 74 000015 + 75 000016 ACCEPT stuff. + 76 > warning: unreachable statement 'ACCEPT' +---- ^ + 77 000017 + 78 000018 EX. STOP RUN. +>> Error: Unexpected indicator: `g' + +listings.at-2030-expected.lst:76.7-76.8: + 73 000014 GO TO EX + 74 000015 + 75 000016 ACCEPT stuff. + 76 > warning: unreachable statement 'ACCEPT' +---- ^ + 77 000017 + 78 000018 EX. STOP RUN. +>> Error: Invalid syntax + +listings.at-2030-expected.lst:76.20: + 73 000014 GO TO EX + 74 000015 + 75 000016 ACCEPT stuff. + 76 > warning: unreachable statement 'ACCEPT' +---- ^ + 77 000017 + 78 000018 EX. STOP RUN. +>> Hint: Missing . + +listings.at-2030-expected.lst:76.21-76.30: + 73 000014 GO TO EX + 74 000015 + 75 000016 ACCEPT stuff. + 76 > warning: unreachable statement 'ACCEPT' +---- ^^^^^^^^^ + 77 000017 + 78 000018 EX. STOP RUN. +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:76.30: + 73 000014 GO TO EX + 74 000015 + 75 000016 ACCEPT stuff. + 76 > warning: unreachable statement 'ACCEPT' +---- ^ + 77 000017 + 78 000018 EX. STOP RUN. +>> Hint: Missing . + +listings.at-2030-expected.lst:76.31-76.39: + 73 000014 GO TO EX + 74 000015 + 75 000016 ACCEPT stuff. + 76 > warning: unreachable statement 'ACCEPT' +---- ^^^^^^^^ + 77 000017 + 78 000018 EX. STOP RUN. +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:80.6-80.7: + 77 000017 + 78 000018 EX. STOP RUN. + 79 000019 + 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 +---- ^ + 81 + 82 SIZE TYPE LVL NAME PICTURE +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:82.6-82.7: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^ + 83 + 84 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `T' + +listings.at-2030-expected.lst:84.6-84.7: + 81 + 82 SIZE TYPE LVL NAME PICTURE + 83 + 84 > WORKING-STORAGE SECTION +---- ^ + 85 + 86 00001 NUMERIC 01 data-b 9 +>> Error: Unexpected indicator: `W' + +listings.at-2030-expected.lst:86.6-86.7: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^ + 87 + 88 LINKAGE SECTION +>> Error: Unexpected indicator: `N' + +listings.at-2030-expected.lst:88.6-88.7: + 85 + 86 00001 NUMERIC 01 data-b 9 + 87 + 88 > LINKAGE SECTION +---- ^ + 89 + 90 00001 ALPHANUMERIC 01 stuff X +>> Error: Unexpected indicator: `L' + +listings.at-2030-expected.lst:90.6-90.7: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Error: Unexpected indicator: `A' + +listings.at-2030-expected.lst:92.6-92.7: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^ + 93 + 94 NAME DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:100.6-100.7: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^ + 101 + 102 LABEL DEFINED REFERENCES +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:104.6-104.7: + 101 + 102 LABEL DEFINED REFERENCES + 103 + 104 > E prog__2 11 +---- ^ + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 +>> Error: Unexpected indicator: `_' + +listings.at-2030-expected.lst:108.6-108.7: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^ + 109 + 110 Error/Warning summary: +>> Error: Unexpected indicator: `B' + +listings.at-2030-expected.lst:110.6-110.7: + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 + 109 + 110 > Error/Warning summary: +---- ^ + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' +>> Error: Unexpected indicator: `W' + +listings.at-2030-expected.lst:112.6-112.7: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Error: Unexpected indicator: `.' + +listings.at-2030-expected.lst:114.6-114.7: + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 > 2 warnings in compilation group +---- ^ + 115 0 errors in compilation group +>> Error: Unexpected indicator: `i' + +listings.at-2030-expected.lst:115.6-115.7: + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 2 warnings in compilation group + 115 > 0 errors in compilation group +---- ^ +>> Error: Unexpected indicator: `r' + +listings.at-2030-expected.lst:80.9: + 77 000017 + 78 000018 EX. STOP RUN. + 79 000019 + 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 +---- ^ + 81 + 82 SIZE TYPE LVL NAME PICTURE +>> Hint: Missing . + +listings.at-2030-expected.lst:80.10-80.15: + 77 000017 + 78 000018 EX. STOP RUN. + 79 000019 + 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 +---- ^^^^^ + 81 + 82 SIZE TYPE LVL NAME PICTURE +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:80.15: + 77 000017 + 78 000018 EX. STOP RUN. + 79 000019 + 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 +---- ^ + 81 + 82 SIZE TYPE LVL NAME PICTURE +>> Hint: Missing . + +listings.at-2030-expected.lst:80.25-80.35: + 77 000017 + 78 000018 EX. STOP RUN. + 79 000019 + 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 +---- ^^^^^^^^^^ + 81 + 82 SIZE TYPE LVL NAME PICTURE +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:80.35: + 77 000017 + 78 000018 EX. STOP RUN. + 79 000019 + 80 > GnuCOBOL V.R.P prog-2.cob Page 0002 +---- ^ + 81 + 82 SIZE TYPE LVL NAME PICTURE +>> Hint: Missing . + +listings.at-2030-expected.lst:82.7-82.10: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^^^ + 83 + 84 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:82.10: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^ + 83 + 84 WORKING-STORAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:82.21-82.24: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^^^ + 83 + 84 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:82.24: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^ + 83 + 84 WORKING-STORAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:82.26-82.30: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^^^^ + 83 + 84 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:82.57-82.64: + 79 000019 + 80 GnuCOBOL V.R.P prog-2.cob Page 0002 + 81 + 82 > SIZE TYPE LVL NAME PICTURE +---- ^^^^^^^ + 83 + 84 WORKING-STORAGE SECTION +>> Error: Invalid syntax + +listings.at-2030-expected.lst:84.29: + 81 + 82 SIZE TYPE LVL NAME PICTURE + 83 + 84 > WORKING-STORAGE SECTION +---- ^ + 85 + 86 00001 NUMERIC 01 data-b 9 +>> Hint: Missing . + +listings.at-2030-expected.lst:86.7-86.13: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^^^^^^ + 87 + 88 LINKAGE SECTION +>> Error: Invalid syntax + +listings.at-2030-expected.lst:86.13: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^ + 87 + 88 LINKAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:86.21-86.23: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^^ + 87 + 88 LINKAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:86.23: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^ + 87 + 88 LINKAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:86.26-86.32: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^^^^^^ + 87 + 88 LINKAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:86.32: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^ + 87 + 88 LINKAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:86.57-86.58: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^ + 87 + 88 LINKAGE SECTION +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:86.58: + 83 + 84 WORKING-STORAGE SECTION + 85 + 86 > 00001 NUMERIC 01 data-b 9 +---- ^ + 87 + 88 LINKAGE SECTION +>> Hint: Missing . + +listings.at-2030-expected.lst:88.7-88.13: + 85 + 86 00001 NUMERIC 01 data-b 9 + 87 + 88 > LINKAGE SECTION +---- ^^^^^^ + 89 + 90 00001 ALPHANUMERIC 01 stuff X +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:88.21: + 85 + 86 00001 NUMERIC 01 data-b 9 + 87 + 88 > LINKAGE SECTION +---- ^ + 89 + 90 00001 ALPHANUMERIC 01 stuff X +>> Hint: Missing . + +listings.at-2030-expected.lst:90.7-90.18: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^^^^^^^^^^^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Error: Invalid syntax + +listings.at-2030-expected.lst:90.18: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:90.21-90.23: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:90.23: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:90.26-90.31: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^^^^^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:90.31: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:90.57-90.58: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:90.58: + 87 + 88 LINKAGE SECTION + 89 + 90 > 00001 ALPHANUMERIC 01 stuff X +---- ^ + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 +>> Hint: Missing . + +listings.at-2030-expected.lst:92.7-92.9: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^^ + 93 + 94 NAME DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:92.9: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^ + 93 + 94 NAME DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:92.10-92.15: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^^^^^ + 93 + 94 NAME DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:92.15: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^ + 93 + 94 NAME DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:92.25-92.35: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^^^^^^^^^^ + 93 + 94 NAME DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:92.35: + 89 + 90 00001 ALPHANUMERIC 01 stuff X + 91 + 92 > GnuCOBOL V.R.P prog-2.cob Page 0003 +---- ^ + 93 + 94 NAME DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:94.31-94.38: + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 + 93 + 94 > NAME DEFINED REFERENCES +---- ^^^^^^^ + 95 + 96 data-b 7 *12 13 x2 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:94.38: + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 + 93 + 94 > NAME DEFINED REFERENCES +---- ^ + 95 + 96 data-b 7 *12 13 x2 +>> Hint: Missing . + +listings.at-2030-expected.lst:94.54-94.64: + 91 + 92 GnuCOBOL V.R.P prog-2.cob Page 0003 + 93 + 94 > NAME DEFINED REFERENCES +---- ^^^^^^^^^^ + 95 + 96 data-b 7 *12 13 x2 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:96.32: + 93 + 94 NAME DEFINED REFERENCES + 95 + 96 > data-b 7 *12 13 x2 +---- ^ + 97 + 98 stuff 9 *10 12 *16 x3 +>> Hint: Missing . + +listings.at-2030-expected.lst:96.39-96.42: + 93 + 94 NAME DEFINED REFERENCES + 95 + 96 > data-b 7 *12 13 x2 +---- ^^^ + 97 + 98 stuff 9 *10 12 *16 x3 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:96.42: + 93 + 94 NAME DEFINED REFERENCES + 95 + 96 > data-b 7 *12 13 x2 +---- ^ + 97 + 98 stuff 9 *10 12 *16 x3 +>> Hint: Missing . + +listings.at-2030-expected.lst:96.48-96.50: + 93 + 94 NAME DEFINED REFERENCES + 95 + 96 > data-b 7 *12 13 x2 +---- ^^ + 97 + 98 stuff 9 *10 12 *16 x3 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:96.50: + 93 + 94 NAME DEFINED REFERENCES + 95 + 96 > data-b 7 *12 13 x2 +---- ^ + 97 + 98 stuff 9 *10 12 *16 x3 +>> Hint: Missing . + +listings.at-2030-expected.lst:96.71-96.72: + 93 + 94 NAME DEFINED REFERENCES + 95 + 96 > data-b 7 *12 13 x2 +---- ^ + 97 + 98 stuff 9 *10 12 *16 x3 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:96.72: + 93 + 94 NAME DEFINED REFERENCES + 95 + 96 > data-b 7 *12 13 x2 +---- ^ + 97 + 98 stuff 9 *10 12 *16 x3 +>> Hint: Missing . + +listings.at-2030-expected.lst:98.31-98.32: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:98.32: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:98.39-98.42: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^^^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:98.42: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:98.48-98.50: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:98.50: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:98.55-98.58: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^^^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:98.58: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:98.71-98.72: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:98.72: + 95 + 96 data-b 7 *12 13 x2 + 97 + 98 > stuff 9 *10 12 *16 x3 +---- ^ + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 +>> Hint: Missing . + +listings.at-2030-expected.lst:100.7-100.9: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^^ + 101 + 102 LABEL DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:100.9: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^ + 101 + 102 LABEL DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:100.10-100.15: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^^^^^ + 101 + 102 LABEL DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:100.15: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^ + 101 + 102 LABEL DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:100.25-100.35: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^^^^^^^^^^ + 101 + 102 LABEL DEFINED REFERENCES +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:100.35: + 97 + 98 stuff 9 *10 12 *16 x3 + 99 + 100 > GnuCOBOL V.R.P prog-2.cob Page 0004 +---- ^ + 101 + 102 LABEL DEFINED REFERENCES +>> Hint: Missing . + +listings.at-2030-expected.lst:102.31-102.38: + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 + 101 + 102 > LABEL DEFINED REFERENCES +---- ^^^^^^^ + 103 + 104 E prog__2 11 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:102.38: + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 + 101 + 102 > LABEL DEFINED REFERENCES +---- ^ + 103 + 104 E prog__2 11 +>> Hint: Missing . + +listings.at-2030-expected.lst:102.54-102.64: + 99 + 100 GnuCOBOL V.R.P prog-2.cob Page 0004 + 101 + 102 > LABEL DEFINED REFERENCES +---- ^^^^^^^^^^ + 103 + 104 E prog__2 11 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:104.9: + 101 + 102 LABEL DEFINED REFERENCES + 103 + 104 > E prog__2 11 +---- ^ + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 +>> Hint: Missing . + +listings.at-2030-expected.lst:104.31-104.33: + 101 + 102 LABEL DEFINED REFERENCES + 103 + 104 > E prog__2 11 +---- ^^ + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:104.33: + 101 + 102 LABEL DEFINED REFERENCES + 103 + 104 > E prog__2 11 +---- ^ + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 +>> Hint: Missing . + +listings.at-2030-expected.lst:105.31-105.33: + 102 LABEL DEFINED REFERENCES + 103 + 104 E prog__2 11 + 105 > P MAIN 11 not referenced +---- ^^ + 106 P EX 18 14 x1 + 107 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:105.33: + 102 LABEL DEFINED REFERENCES + 103 + 104 E prog__2 11 + 105 > P MAIN 11 not referenced +---- ^ + 106 P EX 18 14 x1 + 107 +>> Hint: Missing . + +listings.at-2030-expected.lst:105.38-105.41: + 102 LABEL DEFINED REFERENCES + 103 + 104 E prog__2 11 + 105 > P MAIN 11 not referenced +---- ^^^ + 106 P EX 18 14 x1 + 107 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:105.52: + 102 LABEL DEFINED REFERENCES + 103 + 104 E prog__2 11 + 105 > P MAIN 11 not referenced +---- ^ + 106 P EX 18 14 x1 + 107 +>> Hint: Missing . + +listings.at-2030-expected.lst:106.31-106.33: + 103 + 104 E prog__2 11 + 105 P MAIN 11 not referenced + 106 > P EX 18 14 x1 +---- ^^ + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:106.33: + 103 + 104 E prog__2 11 + 105 P MAIN 11 not referenced + 106 > P EX 18 14 x1 +---- ^ + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 +>> Hint: Missing . + +listings.at-2030-expected.lst:106.40-106.42: + 103 + 104 E prog__2 11 + 105 P MAIN 11 not referenced + 106 > P EX 18 14 x1 +---- ^^ + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:106.42: + 103 + 104 E prog__2 11 + 105 P MAIN 11 not referenced + 106 > P EX 18 14 x1 +---- ^ + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 +>> Hint: Missing . + +listings.at-2030-expected.lst:106.71-106.72: + 103 + 104 E prog__2 11 + 105 P MAIN 11 not referenced + 106 > P EX 18 14 x1 +---- ^ + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:106.72: + 103 + 104 E prog__2 11 + 105 P MAIN 11 not referenced + 106 > P EX 18 14 x1 +---- ^ + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 +>> Hint: Missing . + +listings.at-2030-expected.lst:108.7-108.9: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^^ + 109 + 110 Error/Warning summary: +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:108.9: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^ + 109 + 110 Error/Warning summary: +>> Hint: Missing . + +listings.at-2030-expected.lst:108.10-108.15: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^^^^^ + 109 + 110 Error/Warning summary: +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:108.15: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^ + 109 + 110 Error/Warning summary: +>> Hint: Missing . + +listings.at-2030-expected.lst:108.25-108.35: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^^^^^^^^^^ + 109 + 110 Error/Warning summary: +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:108.35: + 105 P MAIN 11 not referenced + 106 P EX 18 14 x1 + 107 + 108 > GnuCOBOL V.R.P prog-2.cob Page 0005 +---- ^ + 109 + 110 Error/Warning summary: +>> Hint: Missing . + +listings.at-2030-expected.lst:110.7-110.13: + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 + 109 + 110 > Error/Warning summary: +---- ^^^^^^ + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:110.13: + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 + 109 + 110 > Error/Warning summary: +---- ^ + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' +>> Hint: Missing . + +listings.at-2030-expected.lst:110.14-110.22: + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 + 109 + 110 > Error/Warning summary: +---- ^^^^^^^^ + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:110.22: + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 + 109 + 110 > Error/Warning summary: +---- ^ + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' +>> Hint: Missing . + +listings.at-2030-expected.lst:110.21-110.22: + 107 + 108 GnuCOBOL V.R.P prog-2.cob Page 0005 + 109 + 110 > Error/Warning summary: +---- ^ + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:112.14: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:112.10-112.14: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^^^^ + 113 + 114 2 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:112.14: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:112.13-112.14: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:112.23: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:112.22-112.23: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:112.35: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:112.36-112.45: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^^^^^^^^^ + 113 + 114 2 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:112.45: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^ + 113 + 114 2 warnings in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:112.46-112.54: + 109 + 110 Error/Warning summary: + 111 + 112 > prog-2.cob:16: warning: unreachable statement 'ACCEPT' +---- ^^^^^^^^ + 113 + 114 2 warnings in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:114.10: + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 > 2 warnings in compilation group +---- ^ + 115 0 errors in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:114.11-114.13: + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 > 2 warnings in compilation group +---- ^^ + 115 0 errors in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:114.25: + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 > 2 warnings in compilation group +---- ^ + 115 0 errors in compilation group +>> Hint: Missing . + +listings.at-2030-expected.lst:114.26-114.31: + 111 + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 > 2 warnings in compilation group +---- ^^^^^ + 115 0 errors in compilation group +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:115.8: + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 2 warnings in compilation group + 115 > 0 errors in compilation group +---- ^ +>> Hint: Missing . + +listings.at-2030-expected.lst:115.9-115.11: + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 2 warnings in compilation group + 115 > 0 errors in compilation group +---- ^^ +>> Warning: Invalid syntax + +listings.at-2030-expected.lst:115.23: + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 2 warnings in compilation group + 115 > 0 errors in compilation group +---- ^ +>> Hint: Missing . END PROGRAM . END PROGRAM . + +listings.at-2030-expected.lst:115.24-115.29: + 112 prog-2.cob:16: warning: unreachable statement 'ACCEPT' + 113 + 114 2 warnings in compilation group + 115 > 0 errors in compilation group +---- ^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:2029:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2029:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2055:0 +listings.at-2055-prog.cob:9.11-9.14: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Error: Invalid syntax + +listings.at-2055-prog.cob:9.16: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Hint: Missing . + +listings.at-2055-prog.cob:9.17-9.19: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Warning: Invalid syntax + +listings.at-2055-prog.cob:9.26: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Hint: Missing . + +listings.at-2055-prog.cob:9.27-9.33: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Warning: Invalid syntax + +listings.at-2055-prog.cob:9.42-9.49: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^^^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:2115:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2150:0 +listings.at-2150-prog2.cob:6.2-6.30: + 3 PROGRAM-ID. prog2. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > >> PAGE page feed comment +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/listings.at:2199:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2310:0 +listings.at-2310-prog15-1.lst:1.6-1.7: + 1 > GnuCOBOL V.R.P prog3.cob +---- ^ + 2 + 3 SIZE TYPE LVL NAME PICTURE +>> Error: Unexpected indicator: `O' + +listings.at-2310-prog15-1.lst:3.6-3.7: + 1 GnuCOBOL V.R.P prog3.cob + 2 + 3 > SIZE TYPE LVL NAME PICTURE +---- ^ + 4 + 5 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `T' + +listings.at-2310-prog15-1.lst:5.6-5.7: + 2 + 3 SIZE TYPE LVL NAME PICTURE + 4 + 5 > WORKING-STORAGE SECTION +---- ^ + 6 + 7 00004 NUMERIC 01 WS-ONE 9(4) +>> Error: Unexpected indicator: `W' + +listings.at-2310-prog15-1.lst:7.6-7.7: + 4 + 5 WORKING-STORAGE SECTION + 6 + 7 > 00004 NUMERIC 01 WS-ONE 9(4) +---- ^ + 8 + 9 00004 ALPHABETIC 01 WS-TWO A(4) +>> Error: Unexpected indicator: `N' + +listings.at-2310-prog15-1.lst:9.6-9.7: + 6 + 7 00004 NUMERIC 01 WS-ONE 9(4) + 8 + 9 > 00004 ALPHABETIC 01 WS-TWO A(4) +---- ^ + 10 + 11 00004 ALPHANUMERIC 01 WS-THREE X(4) +>> Error: Unexpected indicator: `A' + +listings.at-2310-prog15-1.lst:11.6-11.7: + 8 + 9 00004 ALPHABETIC 01 WS-TWO A(4) + 10 + 11 > 00004 ALPHANUMERIC 01 WS-THREE X(4) +---- ^ + 12 + 13 00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1 +>> Error: Unexpected indicator: `A' + +listings.at-2310-prog15-1.lst:13.6-13.7: + 10 + 11 00004 ALPHANUMERIC 01 WS-THREE X(4) + 12 + 13 > 00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1 +---- ^ + 14 + 15 00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2 +>> Error: Unexpected indicator: `N' + +listings.at-2310-prog15-1.lst:15.6-15.7: + 12 + 13 00004 NUMERIC 01 WS-FOUR S9(7)V9(8) COMP-1 + 14 + 15 > 00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2 +---- ^ + 16 + 17 00002 NUMERIC 01 WS-SIX S999 COMP-3 +>> Error: Unexpected indicator: `N' + +listings.at-2310-prog15-1.lst:17.6-17.7: + 14 + 15 00008 NUMERIC 01 WS-FIVE S9(17)V9(17) COMP-2 + 16 + 17 > 00002 NUMERIC 01 WS-SIX S999 COMP-3 +---- ^ + 18 + 19 00013 NUMERIC 01 WS-SEVEN $$,$$$,$$9.99 +>> Error: Unexpected indicator: `N' + +listings.at-2310-prog15-1.lst:19.6-19.7: + 16 + 17 00002 NUMERIC 01 WS-SIX S999 COMP-3 + 18 + 19 > 00013 NUMERIC 01 WS-SEVEN $$,$$$,$$9.99 +---- ^ + 20 + 21 +>> Error: Unexpected indicator: `N' + +listings.at-2310-prog15-1.lst:1.7-1.8: + 1 > GnuCOBOL V.R.P prog3.cob +---- ^ + 2 + 3 SIZE TYPE LVL NAME PICTURE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:2252:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2284:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2372:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:2643:0 +listings.at-2643-prog.cob:9.11-9.14: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Error: Invalid syntax + +listings.at-2643-prog.cob:9.16: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Hint: Missing . + +listings.at-2643-prog.cob:9.17-9.19: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Warning: Invalid syntax + +listings.at-2643-prog.cob:9.26: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Hint: Missing . + +listings.at-2643-prog.cob:9.27-9.33: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Warning: Invalid syntax + +listings.at-2643-prog.cob:9.42-9.49: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^^^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Error: Invalid syntax + +listings.at-2643-prog.cob:19.11-19.15: + 16 LINKAGE SECTION. + 17 01 PAR PIC 9. + 18 PROCEDURE DIVISION RETURNING PAR. + 19 > MOVE 1 TO PAR. +---- ^^^^ + 20 GOBACK. + 21 END FUNCTION WITHOUTPAR. +>> Error: Invalid syntax + +listings.at-2643-prog.cob:19.17: + 16 LINKAGE SECTION. + 17 01 PAR PIC 9. + 18 PROCEDURE DIVISION RETURNING PAR. + 19 > MOVE 1 TO PAR. +---- ^ + 20 GOBACK. + 21 END FUNCTION WITHOUTPAR. +>> Hint: Missing . + +listings.at-2643-prog.cob:19.18-19.20: + 16 LINKAGE SECTION. + 17 01 PAR PIC 9. + 18 PROCEDURE DIVISION RETURNING PAR. + 19 > MOVE 1 TO PAR. +---- ^^ + 20 GOBACK. + 21 END FUNCTION WITHOUTPAR. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:2762:0 +listings.at-2762-prog.cob:22.29: + 19 05 FL8 PIC X(04). + 20 05 FL9 REDEFINES FL8 PIC 9(04). + 21 05 FLA. + 22 > 10 FLB OCCURS I TIMES. +---- ^ + 23 15 FLC PIC X(02). + 24 10 FLD PIC X(20). +>> Hint: Missing + +listings.at-2762-prog.cob:22.30-22.31: + 19 05 FL8 PIC X(04). + 20 05 FL9 REDEFINES FL8 PIC 9(04). + 21 05 FLA. + 22 > 10 FLB OCCURS I TIMES. +---- ^ + 23 15 FLC PIC X(02). + 24 10 FLD PIC X(20). +>> Error: Invalid syntax + +listings.at-2762-prog.cob:26.26: + 23 15 FLC PIC X(02). + 24 10 FLD PIC X(20). + 25 05 FLD1 PIC X(100). + 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. +---- ^ + 27 10 FILLER PIC X(01). + 28 05 FLD3 PIC X(3). +>> Hint: Missing + +listings.at-2762-prog.cob:26.27-26.28: + 23 15 FLC PIC X(02). + 24 10 FLD PIC X(20). + 25 05 FLD1 PIC X(100). + 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. +---- ^ + 27 10 FILLER PIC X(01). + 28 05 FLD3 PIC X(3). +>> Error: Invalid syntax + +listings.at-2762-prog.cob:26.31: + 23 15 FLC PIC X(02). + 24 10 FLD PIC X(20). + 25 05 FLD1 PIC X(100). + 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. +---- ^ + 27 10 FILLER PIC X(01). + 28 05 FLD3 PIC X(3). +>> Hint: Missing + +listings.at-2762-prog.cob:26.32-26.33: + 23 15 FLC PIC X(02). + 24 10 FLD PIC X(20). + 25 05 FLD1 PIC X(100). + 26 > 05 FLD2 OCCURS M TO J TIMES DEPENDING ON FL5. +---- ^ + 27 10 FILLER PIC X(01). + 28 05 FLD3 PIC X(3). +>> Error: Invalid syntax + +listings.at-2762-prog.cob:31.27: + 28 05 FLD3 PIC X(3). + 29 05 FLD4 PIC X(4). + 30 LINKAGE SECTION. + 31 > 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. +---- ^ + 32 01 O2. + 33 05 O-START PIC X(42). +>> Hint: Missing + +listings.at-2762-prog.cob:31.28-31.37: + 28 05 FLD3 PIC X(3). + 29 05 FLD4 PIC X(4). + 30 LINKAGE SECTION. + 31 > 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. +---- ^^^^^^^^^ + 32 01 O2. + 33 05 O-START PIC X(42). +>> Error: Invalid syntax + +listings.at-2762-prog.cob:34.31: + 31 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. + 32 01 O2. + 33 05 O-START PIC X(42). + 34 > 05 FILLER OCCURS UNBOUNDED DEPENDING ON FL9. +---- ^ + 35 07 O-ENTRY. + 36 10 O-E1 PIC 9(24). +>> Hint: Missing + +listings.at-2762-prog.cob:34.32-34.41: + 31 01 O1 PIC X OCCURS UNBOUNDED DEPENDING ON FL4. + 32 01 O2. + 33 05 O-START PIC X(42). + 34 > 05 FILLER OCCURS UNBOUNDED DEPENDING ON FL9. +---- ^^^^^^^^^ + 35 07 O-ENTRY. + 36 10 O-E1 PIC 9(24). +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:2848:0 +listings.at-2848-prog.cob:7.7-7.28: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > >>IF ACTIVATE DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^ + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY +>> Error: Malformed or unknown compiler directive + +listings.at-2848-prog.cob:9.22: + 6 PROCEDURE DIVISION. + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 > END-DISPLAY +---- ^ + 10 >>ELIF ACTIVATE2 DEFINED + 11 DISPLAY "OK" NO ADVANCING +>> Hint: Missing . + +listings.at-2848-prog.cob:10.7-10.13: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^^^^^^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Warning: Invalid syntax + +listings.at-2848-prog.cob:10.23: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Hint: Missing . + +listings.at-2848-prog.cob:10.24-10.31: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^^^^^^^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Warning: Invalid syntax + +listings.at-2848-prog.cob:10.31: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Hint: Missing . + +listings.at-2848-prog.cob:11.11-11.18: + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 >>ELIF ACTIVATE2 DEFINED + 11 > DISPLAY "OK" NO ADVANCING +---- ^^^^^^^ + 12 END-DISPLAY + 13 >>ELSE +>> Warning: Invalid syntax + +listings.at-2848-prog.cob:13.7-13.13: + 10 >>ELIF ACTIVATE2 DEFINED + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY + 13 > >>ELSE +---- ^^^^^^ + 14 DISPLAY "NOTOK" NO ADVANCING + 15 END-DISPLAY +>> Error: Invalid syntax + +listings.at-2848-prog.cob:16.7-16.15: + 13 >>ELSE + 14 DISPLAY "NOTOK" NO ADVANCING + 15 END-DISPLAY + 16 > >>END-IF +---- ^^^^^^^^ + 17 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:2876:0 +listings.at-2876-prog2.cob:7.7-7.26: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > $IF ACTIVATE DEFINED +---- ^^^^^^^^^^^^^^^^^^^ + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY +>> Error: Unexpected characters + +listings.at-2876-prog2.cob:10.7-10.29: + 7 $IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > $ELIF ACTIVATE2 DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Error: Unexpected characters + +listings.at-2876-prog2.cob:13.7-13.11: + 10 $ELIF ACTIVATE2 DEFINED + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY + 13 > $ELSE +---- ^^^^ + 14 DISPLAY "NOTOK" NO ADVANCING + 15 END-DISPLAY +>> Error: Unexpected characters + +listings.at-2876-prog2.cob:16.7-16.10: + 13 $ELSE + 14 DISPLAY "NOTOK" NO ADVANCING + 15 END-DISPLAY + 16 > $END +---- ^^^ + 17 STOP RUN. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/listings.at:3684:0 +listings.at-3684-expected.lst:1.6-1.7: + 1 > GnuCOBOL V.R.P prog.cob +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Unexpected indicator: `O' + +listings.at-3684-expected.lst:1.7-1.8: + 1 > GnuCOBOL V.R.P prog.cob +---- ^ + 2 + 3 LINE PG/LN A...B............................................................ +>> Error: Invalid syntax + +listings.at-3684-expected.lst:12.7-12.14: + 9 000005 DATA DIVISION. + 10 000006 WORKING-STORAGE SECTION. + 11 000007 01 empty-pic PIC. + 12 > error: missing PICTURE string +---- ^^^^^^^ + 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:12.29: + 9 000005 DATA DIVISION. + 10 000006 WORKING-STORAGE SECTION. + 11 000007 01 empty-pic PIC. + 12 > error: missing PICTURE string +---- ^ + 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. +>> Hint: Missing . + +listings.at-3684-expected.lst:13.15-13.17: + 10 000006 WORKING-STORAGE SECTION. + 11 000007 01 empty-pic PIC. + 12 error: missing PICTURE string + 13 > 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +---- ^^ + 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. + 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +>> Error: Invalid syntax + +listings.at-3684-expected.lst:14.14-14.48: + 11 000007 01 empty-pic PIC. + 12 error: missing PICTURE string + 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 14 > 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 16 error: PICTURE string may not contain more than 255 characters; contains 301 +>> Error: Invalid syntax + +listings.at-3684-expected.lst:16.21: + 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. + 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 16 > error: PICTURE string may not contain more than 255 characters; contains 301 +---- ^ + 17 + characters + 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +>> Hint: Missing . + +listings.at-3684-expected.lst:16.22-16.25: + 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. + 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 16 > error: PICTURE string may not contain more than 255 characters; contains 301 +---- ^^^ + 17 + characters + 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +>> Error: Invalid syntax + +listings.at-3684-expected.lst:16.52-16.62: + 13 000008 01 too-long-pic PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 14 000009 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. + 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 16 > error: PICTURE string may not contain more than 255 characters; contains 301 +---- ^^^^^^^^^^ + 17 + characters + 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +>> Error: Invalid syntax + +listings.at-3684-expected.lst:18.72: + 15 000010 01 too-long-pic2 PIC XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 16 error: PICTURE string may not contain more than 255 characters; contains 301 + 17 + characters + 18 > 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +---- ^ + 19 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 20 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +>> Hint: Missing RENAMES + +listings.at-3684-expected.lst:19.14-19.72: + 16 error: PICTURE string may not contain more than 255 characters; contains 301 + 17 + characters + 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 19 > 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 20 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:19.72: + 16 error: PICTURE string may not contain more than 255 characters; contains 301 + 17 + characters + 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 19 > 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +---- ^ + 20 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. +>> Hint: Missing . + +listings.at-3684-expected.lst:20.14-20.72: + 17 + characters + 18 000011 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 19 000012 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + 20 > 000013 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. + 22 000015 01 multiple-symbols. +>> Warning: Invalid syntax + +listings.at-3684-expected.lst:24.7-24.9: + 21 000014 -XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. + 22 000015 01 multiple-symbols. + 23 000016 03 PIC 9CRCR. + 24 > error: CR or DB may only occur once in a PICTURE string +---- ^^ + 25 000017 03 PIC 9DBDB. + 26 error: CR or DB may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:26.7-26.9: + 23 000016 03 PIC 9CRCR. + 24 error: CR or DB may only occur once in a PICTURE string + 25 000017 03 PIC 9DBDB. + 26 > error: CR or DB may only occur once in a PICTURE string +---- ^^ + 27 000018 03 PIC SS99S. + 28 error: S may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:28.7-28.8: + 25 000017 03 PIC 9DBDB. + 26 error: CR or DB may only occur once in a PICTURE string + 27 000018 03 PIC SS99S. + 28 > error: S may only occur once in a PICTURE string +---- ^ + 29 error: S must be at start of PICTURE string + 30 000019 03 PIC 99..9. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:31.7-31.8: + 28 error: S may only occur once in a PICTURE string + 29 error: S must be at start of PICTURE string + 30 000019 03 PIC 99..9. + 31 > error: . may only occur once in a PICTURE string +---- ^ + 32 000020 03 PIC 99VV9. + 33 error: V may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:33.7-33.8: + 30 000019 03 PIC 99..9. + 31 error: . may only occur once in a PICTURE string + 32 000020 03 PIC 99VV9. + 33 > error: V may only occur once in a PICTURE string +---- ^ + 34 000021 03 PIC +$99+. + 35 error: a trailing +/- sign cannot follow a leading +/- sign +>> Error: Invalid syntax + +listings.at-3684-expected.lst:35.7-35.8: + 32 000020 03 PIC 99VV9. + 33 error: V may only occur once in a PICTURE string + 34 000021 03 PIC +$99+. + 35 > error: a trailing +/- sign cannot follow a leading +/- sign +---- ^ + 36 000022 03 PIC $+99$-. + 37 error: a leading +/- sign cannot follow a leading currency symbol +>> Error: Invalid syntax + +listings.at-3684-expected.lst:37.7-37.8: + 34 000021 03 PIC +$99+. + 35 error: a trailing +/- sign cannot follow a leading +/- sign + 36 000022 03 PIC $+99$-. + 37 > error: a leading +/- sign cannot follow a leading currency symbol +---- ^ + 38 error: a trailing currency symbol cannot follow a leading currency symbol + 39 error: a trailing +/- sign cannot follow a leading +/- sign +>> Error: Invalid syntax + +listings.at-3684-expected.lst:42.7-42.14: + 39 error: a trailing +/- sign cannot follow a leading +/- sign + 40 000023 01 non-symbols. + 41 000024 03 PIC 9K. + 42 > error: invalid PICTURE character 'K' +---- ^^^^^^^ + 43 000025 03 PIC 999C. + 44 error: C must be followed by R +>> Error: Invalid syntax + +listings.at-3684-expected.lst:44.7-44.8: + 41 000024 03 PIC 9K. + 42 error: invalid PICTURE character 'K' + 43 000025 03 PIC 999C. + 44 > error: C must be followed by R +---- ^ + 45 000026 03 PIC 999D. + 46 error: D must be followed by B +>> Error: Invalid syntax + +listings.at-3684-expected.lst:46.7-46.8: + 43 000025 03 PIC 999C. + 44 error: C must be followed by R + 45 000026 03 PIC 999D. + 46 > error: D must be followed by B +---- ^ + 47 000027 01 too-many-digits PIC 9(50). + 48 error: numeric field cannot be larger than 38 digits +>> Error: Invalid syntax + +listings.at-3684-expected.lst:48.7-48.14: + 45 000026 03 PIC 999D. + 46 error: D must be followed by B + 47 000027 01 too-many-digits PIC 9(50). + 48 > error: numeric field cannot be larger than 38 digits +---- ^^^^^^^ + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 error: only up to 10 significant digits are permitted within parentheses +>> Error: Invalid syntax + +listings.at-3684-expected.lst:48.52: + 45 000026 03 PIC 999D. + 46 error: D must be followed by B + 47 000027 01 too-many-digits PIC 9(50). + 48 > error: numeric field cannot be larger than 38 digits +---- ^ + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 error: only up to 10 significant digits are permitted within parentheses +>> Hint: Missing RENAMES . + +listings.at-3684-expected.lst:49.15-49.17: + 46 error: D must be followed by B + 47 000027 01 too-many-digits PIC 9(50). + 48 error: numeric field cannot be larger than 38 digits + 49 > 000028 01 too-long-number-in-parens PIC 9(11111111111111). +---- ^^ + 50 error: only up to 10 significant digits are permitted within parentheses + 51 000029 01 nested-parens PIC 9((100)). +>> Error: Invalid syntax + +listings.at-3684-expected.lst:50.7-50.11: + 47 000027 01 too-many-digits PIC 9(50). + 48 error: numeric field cannot be larger than 38 digits + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 > error: only up to 10 significant digits are permitted within parentheses +---- ^^^^ + 51 000029 01 nested-parens PIC 9((100)). + 52 error: parentheses must be preceded by a picture symbol +>> Error: Invalid syntax + +listings.at-3684-expected.lst:50.32: + 47 000027 01 too-many-digits PIC 9(50). + 48 error: numeric field cannot be larger than 38 digits + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 > error: only up to 10 significant digits are permitted within parentheses +---- ^ + 51 000029 01 nested-parens PIC 9((100)). + 52 error: parentheses must be preceded by a picture symbol +>> Hint: Missing RENAMES + +listings.at-3684-expected.lst:50.33-50.39: + 47 000027 01 too-many-digits PIC 9(50). + 48 error: numeric field cannot be larger than 38 digits + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 > error: only up to 10 significant digits are permitted within parentheses +---- ^^^^^^ + 51 000029 01 nested-parens PIC 9((100)). + 52 error: parentheses must be preceded by a picture symbol +>> Error: Invalid syntax + +listings.at-3684-expected.lst:50.39: + 47 000027 01 too-many-digits PIC 9(50). + 48 error: numeric field cannot be larger than 38 digits + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 > error: only up to 10 significant digits are permitted within parentheses +---- ^ + 51 000029 01 nested-parens PIC 9((100)). + 52 error: parentheses must be preceded by a picture symbol +>> Hint: Missing . + +listings.at-3684-expected.lst:50.40-50.43: + 47 000027 01 too-many-digits PIC 9(50). + 48 error: numeric field cannot be larger than 38 digits + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 > error: only up to 10 significant digits are permitted within parentheses +---- ^^^ + 51 000029 01 nested-parens PIC 9((100)). + 52 error: parentheses must be preceded by a picture symbol +>> Warning: Invalid syntax + +listings.at-3684-expected.lst:52.7-52.18: + 49 000028 01 too-long-number-in-parens PIC 9(11111111111111). + 50 error: only up to 10 significant digits are permitted within parentheses + 51 000029 01 nested-parens PIC 9((100)). + 52 > error: parentheses must be preceded by a picture symbol +---- ^^^^^^^^^^^ + 53 000030 01 unbalanced-parens PIC 9(. + 54 error: unbalanced parentheses +>> Error: Invalid syntax + +listings.at-3684-expected.lst:54.7-54.17: + 51 000029 01 nested-parens PIC 9((100)). + 52 error: parentheses must be preceded by a picture symbol + 53 000030 01 unbalanced-parens PIC 9(. + 54 > error: unbalanced parentheses +---- ^^^^^^^^^^ + 55 000031 01 multiple-pairs-of-parens PIC 9(5)(3). + 56 error: parentheses must be preceded by a picture symbol +>> Error: Invalid syntax + +listings.at-3684-expected.lst:56.7-56.18: + 53 000030 01 unbalanced-parens PIC 9(. + 54 error: unbalanced parentheses + 55 000031 01 multiple-pairs-of-parens PIC 9(5)(3). + 56 > error: parentheses must be preceded by a picture symbol +---- ^^^^^^^^^^^ + 57 000032 01 no-digit-in-parens PIC 9(). + 58 error: parentheses must contain an unsigned integer +>> Error: Invalid syntax + +listings.at-3684-expected.lst:58.7-58.18: + 55 000031 01 multiple-pairs-of-parens PIC 9(5)(3). + 56 error: parentheses must be preceded by a picture symbol + 57 000032 01 no-digit-in-parens PIC 9(). + 58 > error: parentheses must contain an unsigned integer +---- ^^^^^^^^^^^ + 59 000033 01 mutually-exclusive-symbols. + 60 000034 03 PIC P(3)9.9. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:61.7-61.8: + 58 error: parentheses must contain an unsigned integer + 59 000033 01 mutually-exclusive-symbols. + 60 000034 03 PIC P(3)9.9. + 61 > error: . cannot follow a P which is after the decimal point +---- ^ + 62 000035 03 PIC 9V.9. + 63 error: . cannot follow V +>> Error: Invalid syntax + +listings.at-3684-expected.lst:63.7-63.8: + 60 000034 03 PIC P(3)9.9. + 61 error: . cannot follow a P which is after the decimal point + 62 000035 03 PIC 9V.9. + 63 > error: . cannot follow V +---- ^ + 64 000036 03 PIC Z*. + 65 error: cannot have both Z and * in PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:65.7-65.13: + 62 000035 03 PIC 9V.9. + 63 error: . cannot follow V + 64 000036 03 PIC Z*. + 65 > error: cannot have both Z and * in PICTURE string +---- ^^^^^^ + 66 000037 03 PIC +(5)--. + 67 error: a trailing +/- sign cannot follow a floating +/- string which is before +>> Error: Invalid syntax + +listings.at-3684-expected.lst:67.7-67.8: + 64 000036 03 PIC Z*. + 65 error: cannot have both Z and * in PICTURE string + 66 000037 03 PIC +(5)--. + 67 > error: a trailing +/- sign cannot follow a floating +/- string which is before +---- ^ + 68 + the decimal point + 69 error: a trailing +/- sign may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:71.7-71.8: + 68 + the decimal point + 69 error: a trailing +/- sign may only occur once in a PICTURE string + 70 000038 03 PIC $(4)Z(9). + 71 > error: a Z or * which is before the decimal point cannot follow a floating +---- ^ + 72 + currency symbol string which is before the decimal point + 73 000039 03 PIC $$B*(4). +>> Error: Invalid syntax + +listings.at-3684-expected.lst:74.7-74.8: + 71 error: a Z or * which is before the decimal point cannot follow a floating + 72 + currency symbol string which is before the decimal point + 73 000039 03 PIC $$B*(4). + 74 > error: a Z or * which is before the decimal point cannot follow a floating +---- ^ + 75 + currency symbol string which is before the decimal point + 76 000040 03 PIC NX. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:77.7-77.8: + 74 error: a Z or * which is before the decimal point cannot follow a floating + 75 + currency symbol string which is before the decimal point + 76 000040 03 PIC NX. + 77 > error: A or X cannot follow N +---- ^ + 78 000041 03 PIC AN. + 79 error: N cannot follow A or X +>> Error: Invalid syntax + +listings.at-3684-expected.lst:79.7-79.8: + 76 000040 03 PIC NX. + 77 error: A or X cannot follow N + 78 000041 03 PIC AN. + 79 > error: N cannot follow A or X +---- ^ + 80 000042 03 PIC AZ(3). + 81 error: a Z or * which is before the decimal point cannot follow A or X +>> Error: Invalid syntax + +listings.at-3684-expected.lst:81.7-81.8: + 78 000041 03 PIC AN. + 79 error: N cannot follow A or X + 80 000042 03 PIC AZ(3). + 81 > error: a Z or * which is before the decimal point cannot follow A or X +---- ^ + 82 000043 03 PIC 99.99XXXXX. + 83 error: A or X cannot follow . +>> Error: Invalid syntax + +listings.at-3684-expected.lst:83.7-83.8: + 80 000042 03 PIC AZ(3). + 81 error: a Z or * which is before the decimal point cannot follow A or X + 82 000043 03 PIC 99.99XXXXX. + 83 > error: A or X cannot follow . +---- ^ + 84 000044 03 PIC SA. + 85 error: A or X cannot follow S +>> Error: Invalid syntax + +listings.at-3684-expected.lst:85.7-85.8: + 82 000043 03 PIC 99.99XXXXX. + 83 error: A or X cannot follow . + 84 000044 03 PIC SA. + 85 > error: A or X cannot follow S +---- ^ + 86 000045 03 PIC $$$B+++B---. + 87 error: a leading +/- sign cannot follow B, 0 or / +>> Error: Invalid syntax + +listings.at-3684-expected.lst:87.7-87.8: + 84 000044 03 PIC SA. + 85 error: A or X cannot follow S + 86 000045 03 PIC $$$B+++B---. + 87 > error: a leading +/- sign cannot follow B, 0 or / +---- ^ + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point +>> Error: Invalid syntax + +listings.at-3684-expected.lst:87.45-87.47: + 84 000044 03 PIC SA. + 85 error: A or X cannot follow S + 86 000045 03 PIC $$$B+++B---. + 87 > error: a leading +/- sign cannot follow B, 0 or / +---- ^^ + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point +>> Error: Invalid syntax + +listings.at-3684-expected.lst:88.17-88.20: + 85 error: A or X cannot follow S + 86 000045 03 PIC $$$B+++B---. + 87 error: a leading +/- sign cannot follow B, 0 or / + 88 > error: a leading +/- sign cannot follow a floating currency symbol string +---- ^^^ + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:88.26-88.32: + 85 error: A or X cannot follow S + 86 000045 03 PIC $$$B+++B---. + 87 error: a leading +/- sign cannot follow B, 0 or / + 88 > error: a leading +/- sign cannot follow a floating currency symbol string +---- ^^^^^^ + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:89.16-89.22: + 86 000045 03 PIC $$$B+++B---. + 87 error: a leading +/- sign cannot follow B, 0 or / + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 > + which is before the decimal point +---- ^^^^^^ + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 error: a trailing +/- sign cannot follow a leading +/- sign +>> Error: Invalid syntax + +listings.at-3684-expected.lst:90.17-90.20: + 87 error: a leading +/- sign cannot follow B, 0 or / + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point + 90 > error: a leading +/- sign may only occur once in a PICTURE string +---- ^^^ + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 error: a trailing +/- sign may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:90.25: + 87 error: a leading +/- sign cannot follow B, 0 or / + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point + 90 > error: a leading +/- sign may only occur once in a PICTURE string +---- ^ + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 error: a trailing +/- sign may only occur once in a PICTURE string +>> Hint: Missing LEADING + +listings.at-3684-expected.lst:90.26-90.29: + 87 error: a leading +/- sign cannot follow B, 0 or / + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point + 90 > error: a leading +/- sign may only occur once in a PICTURE string +---- ^^^ + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 error: a trailing +/- sign may only occur once in a PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:91.7-91.8: + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 > error: a trailing +/- sign cannot follow a leading +/- sign +---- ^ + 92 error: a trailing +/- sign may only occur once in a PICTURE string + 93 000046 03 PIC +++9+. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:91.18-91.21: + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 > error: a trailing +/- sign cannot follow a leading +/- sign +---- ^^^ + 92 error: a trailing +/- sign may only occur once in a PICTURE string + 93 000046 03 PIC +++9+. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:91.27-91.33: + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 > error: a trailing +/- sign cannot follow a leading +/- sign +---- ^^^^^^ + 92 error: a trailing +/- sign may only occur once in a PICTURE string + 93 000046 03 PIC +++9+. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:91.51-91.54: + 88 error: a leading +/- sign cannot follow a floating currency symbol string + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 > error: a trailing +/- sign cannot follow a leading +/- sign +---- ^^^ + 92 error: a trailing +/- sign may only occur once in a PICTURE string + 93 000046 03 PIC +++9+. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:92.7-92.8: + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 > error: a trailing +/- sign may only occur once in a PICTURE string +---- ^ + 93 000046 03 PIC +++9+. + 94 error: a trailing +/- sign cannot follow a floating +/- string which is before +>> Error: Invalid syntax + +listings.at-3684-expected.lst:92.18-92.21: + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 > error: a trailing +/- sign may only occur once in a PICTURE string +---- ^^^ + 93 000046 03 PIC +++9+. + 94 error: a trailing +/- sign cannot follow a floating +/- string which is before +>> Error: Invalid syntax + +listings.at-3684-expected.lst:92.26: + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 > error: a trailing +/- sign may only occur once in a PICTURE string +---- ^ + 93 000046 03 PIC +++9+. + 94 error: a trailing +/- sign cannot follow a floating +/- string which is before +>> Hint: Missing LEADING + +listings.at-3684-expected.lst:92.27-92.30: + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 > error: a trailing +/- sign may only occur once in a PICTURE string +---- ^^^ + 93 000046 03 PIC +++9+. + 94 error: a trailing +/- sign cannot follow a floating +/- string which is before +>> Error: Invalid syntax + +listings.at-3684-expected.lst:92.66: + 89 + which is before the decimal point + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 > error: a trailing +/- sign may only occur once in a PICTURE string +---- ^ + 93 000046 03 PIC +++9+. + 94 error: a trailing +/- sign cannot follow a floating +/- string which is before +>> Hint: Missing . + +listings.at-3684-expected.lst:93.19-93.21: + 90 error: a leading +/- sign may only occur once in a PICTURE string + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 error: a trailing +/- sign may only occur once in a PICTURE string + 93 > 000046 03 PIC +++9+. +---- ^^ + 94 error: a trailing +/- sign cannot follow a floating +/- string which is before + 95 + the decimal point +>> Error: Invalid syntax + +listings.at-3684-expected.lst:94.7-94.8: + 91 error: a trailing +/- sign cannot follow a leading +/- sign + 92 error: a trailing +/- sign may only occur once in a PICTURE string + 93 000046 03 PIC +++9+. + 94 > error: a trailing +/- sign cannot follow a floating +/- string which is before +---- ^ + 95 + the decimal point + 96 000047 03 PIC +9(5)CR. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:97.7-97.9: + 94 error: a trailing +/- sign cannot follow a floating +/- string which is before + 95 + the decimal point + 96 000047 03 PIC +9(5)CR. + 97 > error: CR or DB cannot follow a leading +/- sign +---- ^^ + 98 000048 03 PIC -9(5)DB. + 99 error: CR or DB cannot follow a leading +/- sign +>> Error: Invalid syntax + +listings.at-3684-expected.lst:99.7-99.9: + 96 000047 03 PIC +9(5)CR. + 97 error: CR or DB cannot follow a leading +/- sign + 98 000048 03 PIC -9(5)DB. + 99 > error: CR or DB cannot follow a leading +/- sign +---- ^^ + 100 000049 01 non-rightmost-leftmost-symbols. + 101 000050 03 PIC BBB+BB99. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:102.7-102.8: + 99 error: CR or DB cannot follow a leading +/- sign + 100 000049 01 non-rightmost-leftmost-symbols. + 101 000050 03 PIC BBB+BB99. + 102 > error: a leading +/- sign cannot follow B, 0 or / +---- ^ + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 +>> Error: Invalid syntax + +listings.at-3684-expected.lst:102.44: + 99 error: CR or DB cannot follow a leading +/- sign + 100 000049 01 non-rightmost-leftmost-symbols. + 101 000050 03 PIC BBB+BB99. + 102 > error: a leading +/- sign cannot follow B, 0 or / +---- ^ + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 +>> Hint: Missing . + +listings.at-3684-expected.lst:102.45-102.47: + 99 error: CR or DB cannot follow a leading +/- sign + 100 000049 01 non-rightmost-leftmost-symbols. + 101 000050 03 PIC BBB+BB99. + 102 > error: a leading +/- sign cannot follow B, 0 or / +---- ^^ + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 +>> Error: Invalid syntax + +listings.at-3684-expected.lst:104.7-104.8: + 101 000050 03 PIC BBB+BB99. + 102 error: a leading +/- sign cannot follow B, 0 or / + 103 000051 03 PIC 99-B. + 104 > error: a leading +/- sign cannot follow 9 +---- ^ + 105 000052 03 PIC 9CRB. + 106 error: B, 0 or / cannot follow CR or DB +>> Error: Invalid syntax + +listings.at-3684-expected.lst:104.41: + 101 000050 03 PIC BBB+BB99. + 102 error: a leading +/- sign cannot follow B, 0 or / + 103 000051 03 PIC 99-B. + 104 > error: a leading +/- sign cannot follow 9 +---- ^ + 105 000052 03 PIC 9CRB. + 106 error: B, 0 or / cannot follow CR or DB +>> Hint: Missing . + +listings.at-3684-expected.lst:105.19-105.21: + 102 error: a leading +/- sign cannot follow B, 0 or / + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 + 105 > 000052 03 PIC 9CRB. +---- ^^ + 106 error: B, 0 or / cannot follow CR or DB + 107 000053 03 PIC DB9(5). +>> Error: Invalid syntax + +listings.at-3684-expected.lst:106.7-106.8: + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 + 105 000052 03 PIC 9CRB. + 106 > error: B, 0 or / cannot follow CR or DB +---- ^ + 107 000053 03 PIC DB9(5). + 108 error: 9 cannot follow CR or DB +>> Error: Invalid syntax + +listings.at-3684-expected.lst:106.12-106.14: + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 + 105 000052 03 PIC 9CRB. + 106 > error: B, 0 or / cannot follow CR or DB +---- ^^ + 107 000053 03 PIC DB9(5). + 108 error: 9 cannot follow CR or DB +>> Error: Invalid syntax + +listings.at-3684-expected.lst:106.23: + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 + 105 000052 03 PIC 9CRB. + 106 > error: B, 0 or / cannot follow CR or DB +---- ^ + 107 000053 03 PIC DB9(5). + 108 error: 9 cannot follow CR or DB +>> Hint: Missing RENAMES + +listings.at-3684-expected.lst:106.24-106.30: + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 + 105 000052 03 PIC 9CRB. + 106 > error: B, 0 or / cannot follow CR or DB +---- ^^^^^^ + 107 000053 03 PIC DB9(5). + 108 error: 9 cannot follow CR or DB +>> Error: Invalid syntax + +listings.at-3684-expected.lst:106.30: + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 + 105 000052 03 PIC 9CRB. + 106 > error: B, 0 or / cannot follow CR or DB +---- ^ + 107 000053 03 PIC DB9(5). + 108 error: 9 cannot follow CR or DB +>> Hint: Missing . + +listings.at-3684-expected.lst:106.31-106.33: + 103 000051 03 PIC 99-B. + 104 error: a leading +/- sign cannot follow 9 + 105 000052 03 PIC 9CRB. + 106 > error: B, 0 or / cannot follow CR or DB +---- ^^ + 107 000053 03 PIC DB9(5). + 108 error: 9 cannot follow CR or DB +>> Warning: Invalid syntax + +listings.at-3684-expected.lst:108.15: + 105 000052 03 PIC 9CRB. + 106 error: B, 0 or / cannot follow CR or DB + 107 000053 03 PIC DB9(5). + 108 > error: 9 cannot follow CR or DB +---- ^ + 109 000054 03 PIC 99$$$. + 110 error: a floating currency symbol string which is before the decimal point +>> Hint: Missing RENAMES + +listings.at-3684-expected.lst:108.16-108.22: + 105 000052 03 PIC 9CRB. + 106 error: B, 0 or / cannot follow CR or DB + 107 000053 03 PIC DB9(5). + 108 > error: 9 cannot follow CR or DB +---- ^^^^^^ + 109 000054 03 PIC 99$$$. + 110 error: a floating currency symbol string which is before the decimal point +>> Error: Invalid syntax + +listings.at-3684-expected.lst:108.22: + 105 000052 03 PIC 9CRB. + 106 error: B, 0 or / cannot follow CR or DB + 107 000053 03 PIC DB9(5). + 108 > error: 9 cannot follow CR or DB +---- ^ + 109 000054 03 PIC 99$$$. + 110 error: a floating currency symbol string which is before the decimal point +>> Hint: Missing . + +listings.at-3684-expected.lst:108.23-108.25: + 105 000052 03 PIC 9CRB. + 106 error: B, 0 or / cannot follow CR or DB + 107 000053 03 PIC DB9(5). + 108 > error: 9 cannot follow CR or DB +---- ^^ + 109 000054 03 PIC 99$$$. + 110 error: a floating currency symbol string which is before the decimal point +>> Warning: Invalid syntax + +listings.at-3684-expected.lst:110.7-110.8: + 107 000053 03 PIC DB9(5). + 108 error: 9 cannot follow CR or DB + 109 000054 03 PIC 99$$$. + 110 > error: a floating currency symbol string which is before the decimal point +---- ^ + 111 + cannot follow 9 + 112 000055 03 PIC 99$B. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:111.22: + 108 error: 9 cannot follow CR or DB + 109 000054 03 PIC 99$$$. + 110 error: a floating currency symbol string which is before the decimal point + 111 > + cannot follow 9 +---- ^ + 112 000055 03 PIC 99$B. + 113 error: a leading currency symbol cannot follow 9 +>> Hint: Missing . + +listings.at-3684-expected.lst:112.19-112.21: + 109 000054 03 PIC 99$$$. + 110 error: a floating currency symbol string which is before the decimal point + 111 + cannot follow 9 + 112 > 000055 03 PIC 99$B. +---- ^^ + 113 error: a leading currency symbol cannot follow 9 + 114 000056 03 PIC 0$99. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:113.7-113.8: + 110 error: a floating currency symbol string which is before the decimal point + 111 + cannot follow 9 + 112 000055 03 PIC 99$B. + 113 > error: a leading currency symbol cannot follow 9 +---- ^ + 114 000056 03 PIC 0$99. + 115 error: a leading currency symbol cannot follow B, 0 or / +>> Error: Invalid syntax + +listings.at-3684-expected.lst:113.48: + 110 error: a floating currency symbol string which is before the decimal point + 111 + cannot follow 9 + 112 000055 03 PIC 99$B. + 113 > error: a leading currency symbol cannot follow 9 +---- ^ + 114 000056 03 PIC 0$99. + 115 error: a leading currency symbol cannot follow B, 0 or / +>> Hint: Missing . + +listings.at-3684-expected.lst:114.19-114.21: + 111 + cannot follow 9 + 112 000055 03 PIC 99$B. + 113 error: a leading currency symbol cannot follow 9 + 114 > 000056 03 PIC 0$99. +---- ^^ + 115 error: a leading currency symbol cannot follow B, 0 or / + 116 000057 03 PIC PPPVP9. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:115.7-115.8: + 112 000055 03 PIC 99$B. + 113 error: a leading currency symbol cannot follow 9 + 114 000056 03 PIC 0$99. + 115 > error: a leading currency symbol cannot follow B, 0 or / +---- ^ + 116 000057 03 PIC PPPVP9. + 117 error: P must be at start or end of PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:115.51: + 112 000055 03 PIC 99$B. + 113 error: a leading currency symbol cannot follow 9 + 114 000056 03 PIC 0$99. + 115 > error: a leading currency symbol cannot follow B, 0 or / +---- ^ + 116 000057 03 PIC PPPVP9. + 117 error: P must be at start or end of PICTURE string +>> Hint: Missing . + +listings.at-3684-expected.lst:115.52-115.54: + 112 000055 03 PIC 99$B. + 113 error: a leading currency symbol cannot follow 9 + 114 000056 03 PIC 0$99. + 115 > error: a leading currency symbol cannot follow B, 0 or / +---- ^^ + 116 000057 03 PIC PPPVP9. + 117 error: P must be at start or end of PICTURE string +>> Error: Invalid syntax + +listings.at-3684-expected.lst:117.7-117.8: + 114 000056 03 PIC 0$99. + 115 error: a leading currency symbol cannot follow B, 0 or / + 116 000057 03 PIC PPPVP9. + 117 > error: P must be at start or end of PICTURE string +---- ^ + 118 error: V cannot follow a P which is after the decimal point + 119 000058 01 missing-symbols. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:117.32: + 114 000056 03 PIC 0$99. + 115 error: a leading currency symbol cannot follow B, 0 or / + 116 000057 03 PIC PPPVP9. + 117 > error: P must be at start or end of PICTURE string +---- ^ + 118 error: V cannot follow a P which is after the decimal point + 119 000058 01 missing-symbols. +>> Hint: Missing PROGRAM + +listings.at-3684-expected.lst:117.33-117.35: + 114 000056 03 PIC 0$99. + 115 error: a leading currency symbol cannot follow B, 0 or / + 116 000057 03 PIC PPPVP9. + 117 > error: P must be at start or end of PICTURE string +---- ^^ + 118 error: V cannot follow a P which is after the decimal point + 119 000058 01 missing-symbols. +>> Error: Invalid syntax + +listings.at-3684-expected.lst:118.16-118.22: + 115 error: a leading currency symbol cannot follow B, 0 or / + 116 000057 03 PIC PPPVP9. + 117 error: P must be at start or end of PICTURE string + 118 > error: V cannot follow a P which is after the decimal point +---- ^^^^^^ + 119 000058 01 missing-symbols. + 120 000059 03 PIC B(5). +>> Error: Invalid syntax + +listings.at-3684-expected.lst:153.6-153.7: + 150 000079 03 PIC ++.++. + 151 000080 03 PIC $(integer-constant). + 152 000081 03 PIC $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ + 153 > warning: uncommon parentheses +---- ^ + 154 000082 -(integer-constant). *> CHECKME: should this be really valid? + 155 000083 +>> Error: Unexpected indicator: `g' + +listings.at-3684-expected.lst:158.68-158.72: + 155 000083 + 156 000084 + 157 000085 01 PC-COLOR-BACKGROUND-TABLE. + 158 > 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". +---- ^^^^ + 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". + 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". +>> Error: Missing continuation of `00' + +listings.at-3684-expected.lst:159.68-159.72: + 156 000084 + 157 000085 01 PC-COLOR-BACKGROUND-TABLE. + 158 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". + 159 > 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". +---- ^^^^ + 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". + 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". +>> Error: Missing continuation of `00' + +listings.at-3684-expected.lst:160.68-160.72: + 157 000085 01 PC-COLOR-BACKGROUND-TABLE. + 158 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". + 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". + 160 > 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". +---- ^^^^ + 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". + 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". +>> Error: Missing continuation of `00' + +listings.at-3684-expected.lst:161.68-161.72: + 158 000086 05 BIT-BACKGROUND-BLACK PIC 1(8) BIT VALUE B"00000000". + 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". + 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". + 161 > 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". +---- ^^^^ + 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". + 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". +>> Error: Missing continuation of `00' + +listings.at-3684-expected.lst:162.68-162.72: + 159 000087 05 BIT-BACKGROUND-BLUE PIC 1(8) BIT VALUE B"00010000". + 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". + 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". + 162 > 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". +---- ^^^^ + 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". + 164 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". +>> Error: Missing continuation of `01' + +listings.at-3684-expected.lst:163.68-163.72: + 160 000088 05 BIT-BACKGROUND-GREEN PIC 1(8) BIT VALUE B"00100000". + 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". + 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". + 163 > 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". +---- ^^^^ + 164 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". + 165 000093 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000". +>> Error: Missing continuation of `01' + +listings.at-3684-expected.lst:164.68-164.72: + 161 000089 05 BIT-BACKGROUND-CYAN PIC 1(8) BIT VALUE B"00110000". + 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". + 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". + 164 > 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". +---- ^^^^ + 165 000093 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000". + 166 000094 01 FILLER REDEFINES PC-COLOR-BACKGROUND-TABLE. +>> Error: Missing continuation of `01' + +listings.at-3684-expected.lst:165.68-165.72: + 162 000090 05 BIT-BACKGROUND-RED PIC 1(8) BIT VALUE B"01000000". + 163 000091 05 BIT-BACKGROUND-MAGENTA PIC 1(8) BIT VALUE B"01010000". + 164 000092 05 BIT-BACKGROUND-BROWN PIC 1(8) BIT VALUE B"01100000". + 165 > 000093 05 BIT-BACKGROUND-LIGHT-GRAY PIC 1(8) BIT VALUE B"01110000". +---- ^^^^ + 166 000094 01 FILLER REDEFINES PC-COLOR-BACKGROUND-TABLE. + 167 000095 05 COLOR-BACKGROUND +>> Error: Missing continuation of `01' + +listings.at-3684-expected.lst:170.6-170.7: + 167 000095 05 COLOR-BACKGROUND + 168 000096 OCCURS 8 TIMES PIC 1(8) BIT. + 169 + 170 > SIZE TYPE LVL NAME PICTURE +---- ^ + 171 + 172 WORKING-STORAGE SECTION +>> Error: Unexpected indicator: `T' + +listings.at-3684-expected.lst:172.6-172.7: + 169 + 170 SIZE TYPE LVL NAME PICTURE + 171 + 172 > WORKING-STORAGE SECTION +---- ^ + 173 + 174 00000 ALPHANUMERIC 01 empty-pic INVALID +>> Error: Unexpected indicator: `W' + +listings.at-3684-expected.lst:174.6-174.7: + 171 + 172 WORKING-STORAGE SECTION + 173 + 174 > 00000 ALPHANUMERIC 01 empty-pic INVALID +---- ^ + 175 + 176 00077 ALPHANUMERIC 01 too-long-pic XXXXXXXXXXXXXXXXXXXX... +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:176.6-176.7: + 173 + 174 00000 ALPHANUMERIC 01 empty-pic INVALID + 175 + 176 > 00077 ALPHANUMERIC 01 too-long-pic XXXXXXXXXXXXXXXXXXXX... +---- ^ + 177 + 178 00000 ALPHANUMERIC 01 too-long-pic2 INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:178.6-178.7: + 175 + 176 00077 ALPHANUMERIC 01 too-long-pic XXXXXXXXXXXXXXXXXXXX... + 177 + 178 > 00000 ALPHANUMERIC 01 too-long-pic2 INVALID +---- ^ + 179 + 180 00000 GROUP 01 multiple-symbols +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:180.6-180.7: + 177 + 178 00000 ALPHANUMERIC 01 too-long-pic2 INVALID + 179 + 180 > 00000 GROUP 01 multiple-symbols +---- ^ + 181 00000 ALPHANUMERIC 03 FILLER INVALID + 182 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:181.6-181.7: + 178 00000 ALPHANUMERIC 01 too-long-pic2 INVALID + 179 + 180 00000 GROUP 01 multiple-symbols + 181 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 182 00000 ALPHANUMERIC 03 FILLER INVALID + 183 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:182.6-182.7: + 179 + 180 00000 GROUP 01 multiple-symbols + 181 00000 ALPHANUMERIC 03 FILLER INVALID + 182 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 183 00000 ALPHANUMERIC 03 FILLER INVALID + 184 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:183.6-183.7: + 180 00000 GROUP 01 multiple-symbols + 181 00000 ALPHANUMERIC 03 FILLER INVALID + 182 00000 ALPHANUMERIC 03 FILLER INVALID + 183 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 184 00000 ALPHANUMERIC 03 FILLER INVALID + 185 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:184.6-184.7: + 181 00000 ALPHANUMERIC 03 FILLER INVALID + 182 00000 ALPHANUMERIC 03 FILLER INVALID + 183 00000 ALPHANUMERIC 03 FILLER INVALID + 184 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 185 00000 ALPHANUMERIC 03 FILLER INVALID + 186 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:185.6-185.7: + 182 00000 ALPHANUMERIC 03 FILLER INVALID + 183 00000 ALPHANUMERIC 03 FILLER INVALID + 184 00000 ALPHANUMERIC 03 FILLER INVALID + 185 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 186 00000 ALPHANUMERIC 03 FILLER INVALID + 187 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:186.6-186.7: + 183 00000 ALPHANUMERIC 03 FILLER INVALID + 184 00000 ALPHANUMERIC 03 FILLER INVALID + 185 00000 ALPHANUMERIC 03 FILLER INVALID + 186 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 187 00000 ALPHANUMERIC 03 FILLER INVALID + 188 +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:187.6-187.7: + 184 00000 ALPHANUMERIC 03 FILLER INVALID + 185 00000 ALPHANUMERIC 03 FILLER INVALID + 186 00000 ALPHANUMERIC 03 FILLER INVALID + 187 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 188 + 189 00000 GROUP 01 non-symbols +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:189.6-189.7: + 186 00000 ALPHANUMERIC 03 FILLER INVALID + 187 00000 ALPHANUMERIC 03 FILLER INVALID + 188 + 189 > 00000 GROUP 01 non-symbols +---- ^ + 190 00000 ALPHANUMERIC 03 FILLER INVALID + 191 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:190.6-190.7: + 187 00000 ALPHANUMERIC 03 FILLER INVALID + 188 + 189 00000 GROUP 01 non-symbols + 190 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 191 00000 ALPHANUMERIC 03 FILLER INVALID + 192 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:191.6-191.7: + 188 + 189 00000 GROUP 01 non-symbols + 190 00000 ALPHANUMERIC 03 FILLER INVALID + 191 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 192 00000 ALPHANUMERIC 03 FILLER INVALID + 193 +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:192.6-192.7: + 189 00000 GROUP 01 non-symbols + 190 00000 ALPHANUMERIC 03 FILLER INVALID + 191 00000 ALPHANUMERIC 03 FILLER INVALID + 192 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 193 + 194 00050 NUMERIC 01 too-many-digits 9(50) +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:194.6-194.7: + 191 00000 ALPHANUMERIC 03 FILLER INVALID + 192 00000 ALPHANUMERIC 03 FILLER INVALID + 193 + 194 > 00050 NUMERIC 01 too-many-digits 9(50) +---- ^ + 195 + 196 00000 ALPHANUMERIC 01 too-long-number-in-parens INVALID +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:196.6-196.7: + 193 + 194 00050 NUMERIC 01 too-many-digits 9(50) + 195 + 196 > 00000 ALPHANUMERIC 01 too-long-number-in-parens INVALID +---- ^ + 197 + 198 00000 ALPHANUMERIC 01 nested-parens INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:198.6-198.7: + 195 + 196 00000 ALPHANUMERIC 01 too-long-number-in-parens INVALID + 197 + 198 > 00000 ALPHANUMERIC 01 nested-parens INVALID +---- ^ + 199 + 200 00000 ALPHANUMERIC 01 unbalanced-parens INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:200.6-200.7: + 197 + 198 00000 ALPHANUMERIC 01 nested-parens INVALID + 199 + 200 > 00000 ALPHANUMERIC 01 unbalanced-parens INVALID +---- ^ + 201 + 202 00000 ALPHANUMERIC 01 multiple-pairs-of-parens INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:202.6-202.7: + 199 + 200 00000 ALPHANUMERIC 01 unbalanced-parens INVALID + 201 + 202 > 00000 ALPHANUMERIC 01 multiple-pairs-of-parens INVALID +---- ^ + 203 + 204 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:204.6-204.7: + 201 + 202 00000 ALPHANUMERIC 01 multiple-pairs-of-parens INVALID + 203 + 204 > 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID +---- ^ + 205 + 206 00000 GROUP 01 mutually-exclusive-symbols +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:206.6-206.7: + 203 + 204 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID + 205 + 206 > 00000 GROUP 01 mutually-exclusive-symbols +---- ^ + 207 00000 ALPHANUMERIC 03 FILLER INVALID + 208 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:207.6-207.7: + 204 00000 ALPHANUMERIC 01 no-digit-in-parens INVALID + 205 + 206 00000 GROUP 01 mutually-exclusive-symbols + 207 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 208 00000 ALPHANUMERIC 03 FILLER INVALID + 209 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:208.6-208.7: + 205 + 206 00000 GROUP 01 mutually-exclusive-symbols + 207 00000 ALPHANUMERIC 03 FILLER INVALID + 208 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 209 00000 ALPHANUMERIC 03 FILLER INVALID + 210 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:209.6-209.7: + 206 00000 GROUP 01 mutually-exclusive-symbols + 207 00000 ALPHANUMERIC 03 FILLER INVALID + 208 00000 ALPHANUMERIC 03 FILLER INVALID + 209 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 210 00000 ALPHANUMERIC 03 FILLER INVALID + 211 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:210.6-210.7: + 207 00000 ALPHANUMERIC 03 FILLER INVALID + 208 00000 ALPHANUMERIC 03 FILLER INVALID + 209 00000 ALPHANUMERIC 03 FILLER INVALID + 210 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 211 00000 ALPHANUMERIC 03 FILLER INVALID + 212 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:211.6-211.7: + 208 00000 ALPHANUMERIC 03 FILLER INVALID + 209 00000 ALPHANUMERIC 03 FILLER INVALID + 210 00000 ALPHANUMERIC 03 FILLER INVALID + 211 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 212 00000 ALPHANUMERIC 03 FILLER INVALID + 213 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:212.6-212.7: + 209 00000 ALPHANUMERIC 03 FILLER INVALID + 210 00000 ALPHANUMERIC 03 FILLER INVALID + 211 00000 ALPHANUMERIC 03 FILLER INVALID + 212 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 213 00000 ALPHANUMERIC 03 FILLER INVALID + 214 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:213.6-213.7: + 210 00000 ALPHANUMERIC 03 FILLER INVALID + 211 00000 ALPHANUMERIC 03 FILLER INVALID + 212 00000 ALPHANUMERIC 03 FILLER INVALID + 213 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 214 00000 ALPHANUMERIC 03 FILLER INVALID + 215 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:214.6-214.7: + 211 00000 ALPHANUMERIC 03 FILLER INVALID + 212 00000 ALPHANUMERIC 03 FILLER INVALID + 213 00000 ALPHANUMERIC 03 FILLER INVALID + 214 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 215 00000 ALPHANUMERIC 03 FILLER INVALID + 216 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:215.6-215.7: + 212 00000 ALPHANUMERIC 03 FILLER INVALID + 213 00000 ALPHANUMERIC 03 FILLER INVALID + 214 00000 ALPHANUMERIC 03 FILLER INVALID + 215 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 216 00000 ALPHANUMERIC 03 FILLER INVALID + 217 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:216.6-216.7: + 213 00000 ALPHANUMERIC 03 FILLER INVALID + 214 00000 ALPHANUMERIC 03 FILLER INVALID + 215 00000 ALPHANUMERIC 03 FILLER INVALID + 216 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 217 00000 ALPHANUMERIC 03 FILLER INVALID + 218 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:217.6-217.7: + 214 00000 ALPHANUMERIC 03 FILLER INVALID + 215 00000 ALPHANUMERIC 03 FILLER INVALID + 216 00000 ALPHANUMERIC 03 FILLER INVALID + 217 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 218 00000 ALPHANUMERIC 03 FILLER INVALID + 219 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:218.6-218.7: + 215 00000 ALPHANUMERIC 03 FILLER INVALID + 216 00000 ALPHANUMERIC 03 FILLER INVALID + 217 00000 ALPHANUMERIC 03 FILLER INVALID + 218 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 219 00000 ALPHANUMERIC 03 FILLER INVALID + 220 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:219.6-219.7: + 216 00000 ALPHANUMERIC 03 FILLER INVALID + 217 00000 ALPHANUMERIC 03 FILLER INVALID + 218 00000 ALPHANUMERIC 03 FILLER INVALID + 219 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 220 00000 ALPHANUMERIC 03 FILLER INVALID + 221 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:220.6-220.7: + 217 00000 ALPHANUMERIC 03 FILLER INVALID + 218 00000 ALPHANUMERIC 03 FILLER INVALID + 219 00000 ALPHANUMERIC 03 FILLER INVALID + 220 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 221 00000 ALPHANUMERIC 03 FILLER INVALID + 222 +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:221.6-221.7: + 218 00000 ALPHANUMERIC 03 FILLER INVALID + 219 00000 ALPHANUMERIC 03 FILLER INVALID + 220 00000 ALPHANUMERIC 03 FILLER INVALID + 221 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 222 + 223 00000 GROUP 01 non-rightmost-leftmost-symbols +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:223.6-223.7: + 220 00000 ALPHANUMERIC 03 FILLER INVALID + 221 00000 ALPHANUMERIC 03 FILLER INVALID + 222 + 223 > 00000 GROUP 01 non-rightmost-leftmost-symbols +---- ^ + 224 00000 ALPHANUMERIC 03 FILLER INVALID + 225 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:224.6-224.7: + 221 00000 ALPHANUMERIC 03 FILLER INVALID + 222 + 223 00000 GROUP 01 non-rightmost-leftmost-symbols + 224 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 225 00000 ALPHANUMERIC 03 FILLER INVALID + 226 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:225.6-225.7: + 222 + 223 00000 GROUP 01 non-rightmost-leftmost-symbols + 224 00000 ALPHANUMERIC 03 FILLER INVALID + 225 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 226 00000 ALPHANUMERIC 03 FILLER INVALID + 227 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:226.6-226.7: + 223 00000 GROUP 01 non-rightmost-leftmost-symbols + 224 00000 ALPHANUMERIC 03 FILLER INVALID + 225 00000 ALPHANUMERIC 03 FILLER INVALID + 226 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 227 00000 ALPHANUMERIC 03 FILLER INVALID + 228 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:227.6-227.7: + 224 00000 ALPHANUMERIC 03 FILLER INVALID + 225 00000 ALPHANUMERIC 03 FILLER INVALID + 226 00000 ALPHANUMERIC 03 FILLER INVALID + 227 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 228 00000 ALPHANUMERIC 03 FILLER INVALID + 229 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:228.6-228.7: + 225 00000 ALPHANUMERIC 03 FILLER INVALID + 226 00000 ALPHANUMERIC 03 FILLER INVALID + 227 00000 ALPHANUMERIC 03 FILLER INVALID + 228 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 229 00000 ALPHANUMERIC 03 FILLER INVALID + 230 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:229.6-229.7: + 226 00000 ALPHANUMERIC 03 FILLER INVALID + 227 00000 ALPHANUMERIC 03 FILLER INVALID + 228 00000 ALPHANUMERIC 03 FILLER INVALID + 229 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 230 00000 ALPHANUMERIC 03 FILLER INVALID + 231 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:230.6-230.7: + 227 00000 ALPHANUMERIC 03 FILLER INVALID + 228 00000 ALPHANUMERIC 03 FILLER INVALID + 229 00000 ALPHANUMERIC 03 FILLER INVALID + 230 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 231 00000 ALPHANUMERIC 03 FILLER INVALID + 232 +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:231.6-231.7: + 228 00000 ALPHANUMERIC 03 FILLER INVALID + 229 00000 ALPHANUMERIC 03 FILLER INVALID + 230 00000 ALPHANUMERIC 03 FILLER INVALID + 231 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 232 + 233 00000 GROUP 01 missing-symbols +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:233.6-233.7: + 230 00000 ALPHANUMERIC 03 FILLER INVALID + 231 00000 ALPHANUMERIC 03 FILLER INVALID + 232 + 233 > 00000 GROUP 01 missing-symbols +---- ^ + 234 00000 ALPHANUMERIC 03 FILLER INVALID + 235 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:234.6-234.7: + 231 00000 ALPHANUMERIC 03 FILLER INVALID + 232 + 233 00000 GROUP 01 missing-symbols + 234 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 235 00000 ALPHANUMERIC 03 FILLER INVALID + 236 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:235.6-235.7: + 232 + 233 00000 GROUP 01 missing-symbols + 234 00000 ALPHANUMERIC 03 FILLER INVALID + 235 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 236 00000 ALPHANUMERIC 03 FILLER INVALID + 237 +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:236.6-236.7: + 233 00000 GROUP 01 missing-symbols + 234 00000 ALPHANUMERIC 03 FILLER INVALID + 235 00000 ALPHANUMERIC 03 FILLER INVALID + 236 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 237 + 238 00000 GROUP 01 invalid-constant +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:238.6-238.7: + 235 00000 ALPHANUMERIC 03 FILLER INVALID + 236 00000 ALPHANUMERIC 03 FILLER INVALID + 237 + 238 > 00000 GROUP 01 invalid-constant +---- ^ + 239 00000 ALPHANUMERIC 03 FILLER INVALID + 240 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:239.6-239.7: + 236 00000 ALPHANUMERIC 03 FILLER INVALID + 237 + 238 00000 GROUP 01 invalid-constant + 239 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 240 00000 ALPHANUMERIC 03 FILLER INVALID + 241 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:240.6-240.7: + 237 + 238 00000 GROUP 01 invalid-constant + 239 00000 ALPHANUMERIC 03 FILLER INVALID + 240 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 241 00000 ALPHANUMERIC 03 FILLER INVALID + 242 00000 ALPHANUMERIC 03 FILLER INVALID +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:241.6-241.7: + 238 00000 GROUP 01 invalid-constant + 239 00000 ALPHANUMERIC 03 FILLER INVALID + 240 00000 ALPHANUMERIC 03 FILLER INVALID + 241 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 242 00000 ALPHANUMERIC 03 FILLER INVALID + 243 +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:242.6-242.7: + 239 00000 ALPHANUMERIC 03 FILLER INVALID + 240 00000 ALPHANUMERIC 03 FILLER INVALID + 241 00000 ALPHANUMERIC 03 FILLER INVALID + 242 > 00000 ALPHANUMERIC 03 FILLER INVALID +---- ^ + 243 + 244 00086 GROUP 01 valid-pics +>> Error: Unexpected indicator: `A' + +listings.at-3684-expected.lst:244.6-244.7: + 241 00000 ALPHANUMERIC 03 FILLER INVALID + 242 00000 ALPHANUMERIC 03 FILLER INVALID + 243 + 244 > 00086 GROUP 01 valid-pics +---- ^ + 245 00002 NUMERIC 03 FILLER VP9B + 246 00002 NUMERIC 03 FILLER B9P(3) +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:245.6-245.7: + 242 00000 ALPHANUMERIC 03 FILLER INVALID + 243 + 244 00086 GROUP 01 valid-pics + 245 > 00002 NUMERIC 03 FILLER VP9B +---- ^ + 246 00002 NUMERIC 03 FILLER B9P(3) + 247 00004 NUMERIC 03 FILLER B$$$ +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:246.6-246.7: + 243 + 244 00086 GROUP 01 valid-pics + 245 00002 NUMERIC 03 FILLER VP9B + 246 > 00002 NUMERIC 03 FILLER B9P(3) +---- ^ + 247 00004 NUMERIC 03 FILLER B$$$ + 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:247.6-247.7: + 244 00086 GROUP 01 valid-pics + 245 00002 NUMERIC 03 FILLER VP9B + 246 00002 NUMERIC 03 FILLER B9P(3) + 247 > 00004 NUMERIC 03 FILLER B$$$ +---- ^ + 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ + 249 00005 NUMERIC 03 FILLER +(5)P(3) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:248.6-248.7: + 245 00002 NUMERIC 03 FILLER VP9B + 246 00002 NUMERIC 03 FILLER B9P(3) + 247 00004 NUMERIC 03 FILLER B$$$ + 248 > 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ +---- ^ + 249 00005 NUMERIC 03 FILLER +(5)P(3) + 250 00005 NUMERIC 03 FILLER ++.++ +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:249.6-249.7: + 246 00002 NUMERIC 03 FILLER B9P(3) + 247 00004 NUMERIC 03 FILLER B$$$ + 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ + 249 > 00005 NUMERIC 03 FILLER +(5)P(3) +---- ^ + 250 00005 NUMERIC 03 FILLER ++.++ + 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:250.6-250.7: + 247 00004 NUMERIC 03 FILLER B$$$ + 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ + 249 00005 NUMERIC 03 FILLER +(5)P(3) + 250 > 00005 NUMERIC 03 FILLER ++.++ +---- ^ + 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) + 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:251.6-251.7: + 248 00014 NUMERIC 03 FILLER 0000+B0+++0B,+ + 249 00005 NUMERIC 03 FILLER +(5)P(3) + 250 00005 NUMERIC 03 FILLER ++.++ + 251 > 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) +---- ^ + 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... + 253 +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:252.6-252.7: + 249 00005 NUMERIC 03 FILLER +(5)P(3) + 250 00005 NUMERIC 03 FILLER ++.++ + 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) + 252 > 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... +---- ^ + 253 + 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:254.6-254.7: + 251 00005 NUMERIC 03 FILLER $(INTEGER-CONSTANT) + 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... + 253 + 254 > 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE +---- ^ + 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) + 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:255.6-255.7: + 252 00049 NUMERIC 03 FILLER $$$$$$$$$$$$$$$$$$$$... + 253 + 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE + 255 > 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) +---- ^ + 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) + 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:256.6-256.7: + 253 + 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE + 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) + 256 > 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) +---- ^ + 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) + 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:257.6-257.7: + 254 00008 GROUP 01 PC-COLOR-BACKGROUND-TABLE + 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) + 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) + 257 > 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) +---- ^ + 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) + 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:258.6-258.7: + 255 00001 NUMERIC 05 BIT-BACKGROUND-BLACK 1(8) + 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) + 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) + 258 > 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) +---- ^ + 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) + 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:259.6-259.7: + 256 00001 NUMERIC 05 BIT-BACKGROUND-BLUE 1(8) + 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) + 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) + 259 > 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) +---- ^ + 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) + 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:260.6-260.7: + 257 00001 NUMERIC 05 BIT-BACKGROUND-GREEN 1(8) + 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) + 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) + 260 > 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) +---- ^ + 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) + 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:261.6-261.7: + 258 00001 NUMERIC 05 BIT-BACKGROUND-CYAN 1(8) + 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) + 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) + 261 > 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) +---- ^ + 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) + 263 +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:262.6-262.7: + 259 00001 NUMERIC 05 BIT-BACKGROUND-RED 1(8) + 260 00001 NUMERIC 05 BIT-BACKGROUND-MAGENTA 1(8) + 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) + 262 > 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) +---- ^ + 263 + 264 00008 GROUP 01 FILLER, REDEFINES PC-COLOR-BACKGROUND-TABLE +>> Error: Unexpected indicator: `N' + +listings.at-3684-expected.lst:264.6-264.7: + 261 00001 NUMERIC 05 BIT-BACKGROUND-BROWN 1(8) + 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) + 263 + 264 > 00008 GROUP 01 FILLER, REDEFINES PC-COLOR-BACKGROUND-TABLE +---- ^ + 265 00001 BOOLEAN 05 COLOR-BACKGROUND 1(8), OCCURS 8 + 266 +>> Error: Unexpected indicator: `G' + +listings.at-3684-expected.lst:265.6-265.7: + 262 00001 NUMERIC 05 BIT-BACKGROUND-LIGHT-GRAY 1(8) + 263 + 264 00008 GROUP 01 FILLER, REDEFINES PC-COLOR-BACKGROUND-TABLE + 265 > 00001 BOOLEAN 05 COLOR-BACKGROUND 1(8), OCCURS 8 +---- ^ + 266 + 267 +>> Error: Unexpected indicator: `B' + +listings.at-3684-expected.lst:269.6-269.7: + 266 + 267 + 268 + 269 > Error/Warning summary: +---- ^ + 270 + 271 prog.cob:7: error: missing PICTURE string +>> Error: Unexpected indicator: `W' + +listings.at-3684-expected.lst:271.6-271.7: + 268 + 269 Error/Warning summary: + 270 + 271 > prog.cob:7: error: missing PICTURE string +---- ^ + 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters + 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:272.6-272.7: + 269 Error/Warning summary: + 270 + 271 prog.cob:7: error: missing PICTURE string + 272 > prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters +---- ^ + 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string + 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:273.6-273.7: + 270 + 271 prog.cob:7: error: missing PICTURE string + 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters + 273 > prog.cob:16: error: CR or DB may only occur once in a PICTURE string +---- ^ + 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string + 275 prog.cob:18: error: S may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:274.6-274.7: + 271 prog.cob:7: error: missing PICTURE string + 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters + 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string + 274 > prog.cob:17: error: CR or DB may only occur once in a PICTURE string +---- ^ + 275 prog.cob:18: error: S may only occur once in a PICTURE string + 276 prog.cob:18: error: S must be at start of PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:275.6-275.7: + 272 prog.cob:10: error: PICTURE string may not contain more than 255 characters; contains 301 characters + 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string + 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string + 275 > prog.cob:18: error: S may only occur once in a PICTURE string +---- ^ + 276 prog.cob:18: error: S must be at start of PICTURE string + 277 prog.cob:19: error: . may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:276.6-276.7: + 273 prog.cob:16: error: CR or DB may only occur once in a PICTURE string + 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string + 275 prog.cob:18: error: S may only occur once in a PICTURE string + 276 > prog.cob:18: error: S must be at start of PICTURE string +---- ^ + 277 prog.cob:19: error: . may only occur once in a PICTURE string + 278 prog.cob:20: error: V may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:277.6-277.7: + 274 prog.cob:17: error: CR or DB may only occur once in a PICTURE string + 275 prog.cob:18: error: S may only occur once in a PICTURE string + 276 prog.cob:18: error: S must be at start of PICTURE string + 277 > prog.cob:19: error: . may only occur once in a PICTURE string +---- ^ + 278 prog.cob:20: error: V may only occur once in a PICTURE string + 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:278.6-278.7: + 275 prog.cob:18: error: S may only occur once in a PICTURE string + 276 prog.cob:18: error: S must be at start of PICTURE string + 277 prog.cob:19: error: . may only occur once in a PICTURE string + 278 > prog.cob:20: error: V may only occur once in a PICTURE string +---- ^ + 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign + 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:279.6-279.7: + 276 prog.cob:18: error: S must be at start of PICTURE string + 277 prog.cob:19: error: . may only occur once in a PICTURE string + 278 prog.cob:20: error: V may only occur once in a PICTURE string + 279 > prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign +---- ^ + 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol + 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:280.6-280.7: + 277 prog.cob:19: error: . may only occur once in a PICTURE string + 278 prog.cob:20: error: V may only occur once in a PICTURE string + 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign + 280 > prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol +---- ^ + 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol + 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:281.6-281.7: + 278 prog.cob:20: error: V may only occur once in a PICTURE string + 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign + 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol + 281 > prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol +---- ^ + 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign + 283 prog.cob:24: error: invalid PICTURE character 'K' +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:282.6-282.7: + 279 prog.cob:21: error: a trailing +/- sign cannot follow a leading +/- sign + 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol + 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol + 282 > prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign +---- ^ + 283 prog.cob:24: error: invalid PICTURE character 'K' + 284 prog.cob:25: error: C must be followed by R +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:283.6-283.7: + 280 prog.cob:22: error: a leading +/- sign cannot follow a leading currency symbol + 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol + 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign + 283 > prog.cob:24: error: invalid PICTURE character 'K' +---- ^ + 284 prog.cob:25: error: C must be followed by R + 285 prog.cob:26: error: D must be followed by B +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:284.6-284.7: + 281 prog.cob:22: error: a trailing currency symbol cannot follow a leading currency symbol + 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign + 283 prog.cob:24: error: invalid PICTURE character 'K' + 284 > prog.cob:25: error: C must be followed by R +---- ^ + 285 prog.cob:26: error: D must be followed by B + 286 prog.cob:27: error: numeric field cannot be larger than 38 digits +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:285.6-285.7: + 282 prog.cob:22: error: a trailing +/- sign cannot follow a leading +/- sign + 283 prog.cob:24: error: invalid PICTURE character 'K' + 284 prog.cob:25: error: C must be followed by R + 285 > prog.cob:26: error: D must be followed by B +---- ^ + 286 prog.cob:27: error: numeric field cannot be larger than 38 digits + 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:286.6-286.7: + 283 prog.cob:24: error: invalid PICTURE character 'K' + 284 prog.cob:25: error: C must be followed by R + 285 prog.cob:26: error: D must be followed by B + 286 > prog.cob:27: error: numeric field cannot be larger than 38 digits +---- ^ + 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses + 288 prog.cob:29: error: parentheses must be preceded by a picture symbol +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:287.6-287.7: + 284 prog.cob:25: error: C must be followed by R + 285 prog.cob:26: error: D must be followed by B + 286 prog.cob:27: error: numeric field cannot be larger than 38 digits + 287 > prog.cob:28: error: only up to 10 significant digits are permitted within parentheses +---- ^ + 288 prog.cob:29: error: parentheses must be preceded by a picture symbol + 289 prog.cob:30: error: unbalanced parentheses +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:288.6-288.7: + 285 prog.cob:26: error: D must be followed by B + 286 prog.cob:27: error: numeric field cannot be larger than 38 digits + 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses + 288 > prog.cob:29: error: parentheses must be preceded by a picture symbol +---- ^ + 289 prog.cob:30: error: unbalanced parentheses + 290 prog.cob:31: error: parentheses must be preceded by a picture symbol +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:289.6-289.7: + 286 prog.cob:27: error: numeric field cannot be larger than 38 digits + 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses + 288 prog.cob:29: error: parentheses must be preceded by a picture symbol + 289 > prog.cob:30: error: unbalanced parentheses +---- ^ + 290 prog.cob:31: error: parentheses must be preceded by a picture symbol + 291 prog.cob:32: error: parentheses must contain an unsigned integer +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:290.6-290.7: + 287 prog.cob:28: error: only up to 10 significant digits are permitted within parentheses + 288 prog.cob:29: error: parentheses must be preceded by a picture symbol + 289 prog.cob:30: error: unbalanced parentheses + 290 > prog.cob:31: error: parentheses must be preceded by a picture symbol +---- ^ + 291 prog.cob:32: error: parentheses must contain an unsigned integer + 292 prog.cob:34: error: . cannot follow a P which is after the decimal point +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:291.6-291.7: + 288 prog.cob:29: error: parentheses must be preceded by a picture symbol + 289 prog.cob:30: error: unbalanced parentheses + 290 prog.cob:31: error: parentheses must be preceded by a picture symbol + 291 > prog.cob:32: error: parentheses must contain an unsigned integer +---- ^ + 292 prog.cob:34: error: . cannot follow a P which is after the decimal point + 293 prog.cob:35: error: . cannot follow V +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:292.6-292.7: + 289 prog.cob:30: error: unbalanced parentheses + 290 prog.cob:31: error: parentheses must be preceded by a picture symbol + 291 prog.cob:32: error: parentheses must contain an unsigned integer + 292 > prog.cob:34: error: . cannot follow a P which is after the decimal point +---- ^ + 293 prog.cob:35: error: . cannot follow V + 294 prog.cob:36: error: cannot have both Z and * in PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:293.6-293.7: + 290 prog.cob:31: error: parentheses must be preceded by a picture symbol + 291 prog.cob:32: error: parentheses must contain an unsigned integer + 292 prog.cob:34: error: . cannot follow a P which is after the decimal point + 293 > prog.cob:35: error: . cannot follow V +---- ^ + 294 prog.cob:36: error: cannot have both Z and * in PICTURE string + 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:294.6-294.7: + 291 prog.cob:32: error: parentheses must contain an unsigned integer + 292 prog.cob:34: error: . cannot follow a P which is after the decimal point + 293 prog.cob:35: error: . cannot follow V + 294 > prog.cob:36: error: cannot have both Z and * in PICTURE string +---- ^ + 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:295.6-295.7: + 292 prog.cob:34: error: . cannot follow a P which is after the decimal point + 293 prog.cob:35: error: . cannot follow V + 294 prog.cob:36: error: cannot have both Z and * in PICTURE string + 295 > prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point +---- ^ + 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string + 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:296.6-296.7: + 293 prog.cob:35: error: . cannot follow V + 294 prog.cob:36: error: cannot have both Z and * in PICTURE string + 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 296 > prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string +---- ^ + 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:297.6-297.7: + 294 prog.cob:36: error: cannot have both Z and * in PICTURE string + 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string + 297 > prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point +---- ^ + 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 299 prog.cob:40: error: A or X cannot follow N +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:298.6-298.7: + 295 prog.cob:37: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string + 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 298 > prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point +---- ^ + 299 prog.cob:40: error: A or X cannot follow N + 300 prog.cob:41: error: N cannot follow A or X +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:299.6-299.7: + 296 prog.cob:37: error: a trailing +/- sign may only occur once in a PICTURE string + 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 299 > prog.cob:40: error: A or X cannot follow N +---- ^ + 300 prog.cob:41: error: N cannot follow A or X + 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:300.6-300.7: + 297 prog.cob:38: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 299 prog.cob:40: error: A or X cannot follow N + 300 > prog.cob:41: error: N cannot follow A or X +---- ^ + 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X + 302 prog.cob:43: error: A or X cannot follow . +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:301.6-301.7: + 298 prog.cob:39: error: a Z or * which is before the decimal point cannot follow a floating currency symbol string which is before the decimal point + 299 prog.cob:40: error: A or X cannot follow N + 300 prog.cob:41: error: N cannot follow A or X + 301 > prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X +---- ^ + 302 prog.cob:43: error: A or X cannot follow . + 303 prog.cob:44: error: A or X cannot follow S +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:302.6-302.7: + 299 prog.cob:40: error: A or X cannot follow N + 300 prog.cob:41: error: N cannot follow A or X + 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X + 302 > prog.cob:43: error: A or X cannot follow . +---- ^ + 303 prog.cob:44: error: A or X cannot follow S + 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:303.6-303.7: + 300 prog.cob:41: error: N cannot follow A or X + 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X + 302 prog.cob:43: error: A or X cannot follow . + 303 > prog.cob:44: error: A or X cannot follow S +---- ^ + 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / + 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:304.6-304.7: + 301 prog.cob:42: error: a Z or * which is before the decimal point cannot follow A or X + 302 prog.cob:43: error: A or X cannot follow . + 303 prog.cob:44: error: A or X cannot follow S + 304 > prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / +---- ^ + 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point + 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:305.6-305.7: + 302 prog.cob:43: error: A or X cannot follow . + 303 prog.cob:44: error: A or X cannot follow S + 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / + 305 > prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point +---- ^ + 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string + 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:306.6-306.7: + 303 prog.cob:44: error: A or X cannot follow S + 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / + 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point + 306 > prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string +---- ^ + 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign + 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:307.6-307.7: + 304 prog.cob:45: error: a leading +/- sign cannot follow B, 0 or / + 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point + 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string + 307 > prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign +---- ^ + 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string + 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:308.6-308.7: + 305 prog.cob:45: error: a leading +/- sign cannot follow a floating currency symbol string which is before the decimal point + 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string + 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign + 308 > prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string +---- ^ + 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:309.6-309.7: + 306 prog.cob:45: error: a leading +/- sign may only occur once in a PICTURE string + 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign + 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string + 309 > prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point +---- ^ + 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign + 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:310.6-310.7: + 307 prog.cob:45: error: a trailing +/- sign cannot follow a leading +/- sign + 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string + 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 310 > prog.cob:47: error: CR or DB cannot follow a leading +/- sign +---- ^ + 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign + 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:311.6-311.7: + 308 prog.cob:45: error: a trailing +/- sign may only occur once in a PICTURE string + 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign + 311 > prog.cob:48: error: CR or DB cannot follow a leading +/- sign +---- ^ + 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / + 313 prog.cob:51: error: a leading +/- sign cannot follow 9 +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:312.6-312.7: + 309 prog.cob:46: error: a trailing +/- sign cannot follow a floating +/- string which is before the decimal point + 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign + 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign + 312 > prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / +---- ^ + 313 prog.cob:51: error: a leading +/- sign cannot follow 9 + 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:313.6-313.7: + 310 prog.cob:47: error: CR or DB cannot follow a leading +/- sign + 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign + 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / + 313 > prog.cob:51: error: a leading +/- sign cannot follow 9 +---- ^ + 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB + 315 prog.cob:53: error: 9 cannot follow CR or DB +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:314.6-314.7: + 311 prog.cob:48: error: CR or DB cannot follow a leading +/- sign + 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / + 313 prog.cob:51: error: a leading +/- sign cannot follow 9 + 314 > prog.cob:52: error: B, 0 or / cannot follow CR or DB +---- ^ + 315 prog.cob:53: error: 9 cannot follow CR or DB + 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:315.6-315.7: + 312 prog.cob:50: error: a leading +/- sign cannot follow B, 0 or / + 313 prog.cob:51: error: a leading +/- sign cannot follow 9 + 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB + 315 > prog.cob:53: error: 9 cannot follow CR or DB +---- ^ + 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 + 317 prog.cob:55: error: a leading currency symbol cannot follow 9 +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:316.6-316.7: + 313 prog.cob:51: error: a leading +/- sign cannot follow 9 + 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB + 315 prog.cob:53: error: 9 cannot follow CR or DB + 316 > prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 +---- ^ + 317 prog.cob:55: error: a leading currency symbol cannot follow 9 + 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:317.6-317.7: + 314 prog.cob:52: error: B, 0 or / cannot follow CR or DB + 315 prog.cob:53: error: 9 cannot follow CR or DB + 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 + 317 > prog.cob:55: error: a leading currency symbol cannot follow 9 +---- ^ + 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / + 319 prog.cob:57: error: P must be at start or end of PICTURE string +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:318.6-318.7: + 315 prog.cob:53: error: 9 cannot follow CR or DB + 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 + 317 prog.cob:55: error: a leading currency symbol cannot follow 9 + 318 > prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / +---- ^ + 319 prog.cob:57: error: P must be at start or end of PICTURE string + 320 prog.cob:57: error: V cannot follow a P which is after the decimal point +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:319.6-319.7: + 316 prog.cob:54: error: a floating currency symbol string which is before the decimal point cannot follow 9 + 317 prog.cob:55: error: a leading currency symbol cannot follow 9 + 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / + 319 > prog.cob:57: error: P must be at start or end of PICTURE string +---- ^ + 320 prog.cob:57: error: V cannot follow a P which is after the decimal point + 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:320.6-320.7: + 317 prog.cob:55: error: a leading currency symbol cannot follow 9 + 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / + 319 prog.cob:57: error: P must be at start or end of PICTURE string + 320 > prog.cob:57: error: V cannot follow a P which is after the decimal point +---- ^ + 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:321.6-321.7: + 318 prog.cob:56: error: a leading currency symbol cannot follow B, 0 or / + 319 prog.cob:57: error: P must be at start or end of PICTURE string + 320 prog.cob:57: error: V cannot follow a P which is after the decimal point + 321 > prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol +---- ^ + 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:322.6-322.7: + 319 prog.cob:57: error: P must be at start or end of PICTURE string + 320 prog.cob:57: error: V cannot follow a P which is after the decimal point + 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 322 > prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol +---- ^ + 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:323.6-323.7: + 320 prog.cob:57: error: V cannot follow a P which is after the decimal point + 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 323 > prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol +---- ^ + 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer + 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:324.6-324.7: + 321 prog.cob:59: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 324 > prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer +---- ^ + 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer + 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:325.6-325.7: + 322 prog.cob:60: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer + 325 > prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer +---- ^ + 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer + 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:326.6-326.7: + 323 prog.cob:61: error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 and *; or at least two of the set +, - and the currency symbol + 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer + 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer + 326 > prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer +---- ^ + 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined + 328 prog.cob:81: warning: uncommon parentheses +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:327.6-327.7: + 324 prog.cob:67: error: 'STR-CONSTANT' is not an unsigned positive integer + 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer + 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer + 327 > prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined +---- ^ + 328 prog.cob:81: warning: uncommon parentheses + 329 +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:328.6-328.7: + 325 prog.cob:68: error: 'FLOAT-CONSTANT' is not an unsigned positive integer + 326 prog.cob:69: error: 'SIGNED-CONSTANT' is not an unsigned positive integer + 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined + 328 > prog.cob:81: warning: uncommon parentheses +---- ^ + 329 + 330 1 warning in compilation group +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:330.6-330.7: + 327 prog.cob:70: error: 'UNSEEN-CONSTANT' is not defined + 328 prog.cob:81: warning: uncommon parentheses + 329 + 330 > 1 warning in compilation group +---- ^ + 331 57 errors in compilation group +>> Error: Unexpected indicator: `i' + +listings.at-3684-expected.lst:331.6-331.7: + 328 prog.cob:81: warning: uncommon parentheses + 329 + 330 1 warning in compilation group + 331 > 57 errors in compilation group +---- ^ +>> Error: Unexpected indicator: `o' + +listings.at-3684-expected.lst:120.19-120.21: + 117 error: P must be at start or end of PICTURE string + 118 error: V cannot follow a P which is after the decimal point + 119 000058 01 missing-symbols. + 120 > 000059 03 PIC B(5). +---- ^^ + 121 error: PICTURE string must contain at least one of the set A, N, U, X, Z, 1, 9 + 122 + and *; or at least two of the set +, - and the currency symbol +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:3703:0 +listings.at-3703-prog.cob:1.7-1.11: + 1 > 000001 $SET SOURCEFORMAT "VARIABLE" +---- ^^^^ + 2 000010 IDENTIFICATION DIVISION. + 3 000020 PROGRAM-ID. prog. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:3740:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:3825:0 +listings.at-3825-prog.cob:6.7-6.23: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc". +---- ^^^^^^^^^^^^^^^^ + 7 COPY "copy2.inc". + 8 PROCEDURE DIVISION. +>> Error: Library `copy.inc' not found in search path (search path: ) + +listings.at-3825-prog.cob:7.7-7.24: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 COPY "copy.inc". + 7 > COPY "copy2.inc". +---- ^^^^^^^^^^^^^^^^^ + 8 PROCEDURE DIVISION. + 9 >>LISTING OFF +>> Error: Library `copy2.inc' not found in search path (search path: ) + +listings.at-3825-prog.cob:9.7-9.20: + 6 COPY "copy.inc". + 7 COPY "copy2.inc". + 8 PROCEDURE DIVISION. + 9 > >>LISTING OFF +---- ^^^^^^^^^^^^^ + 10 DISPLAY TEST1-VAR NO ADVANCING + 11 END-DISPLAY. +>> Error: Malformed or unknown compiler directive + +listings.at-3825-prog.cob:12.7-12.20: + 9 >>LISTING OFF + 10 DISPLAY TEST1-VAR NO ADVANCING + 11 END-DISPLAY. + 12 > >> LISTING ON +---- ^^^^^^^^^^^^^ + 13 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/listings.at:3921:0 +listings.at-3921-prog.cob:6.7-6.23: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc". +---- ^^^^^^^^^^^^^^^^ + 7 COPY "copy2.inc". + 8 PROCEDURE DIVISION. +>> Error: Library `copy.inc' not found in search path (search path: ) + +listings.at-3921-prog.cob:7.7-7.24: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 COPY "copy.inc". + 7 > COPY "copy2.inc". +---- ^^^^^^^^^^^^^^^^^ + 8 PROCEDURE DIVISION. + 9 >>LISTING OFF +>> Error: Library `copy2.inc' not found in search path (search path: ) + +listings.at-3921-prog.cob:9.0-9.13: + 6 COPY "copy.inc". + 7 COPY "copy2.inc". + 8 PROCEDURE DIVISION. + 9 > >>LISTING OFF +---- ^^^^^^^^^^^^^ + 10 DISPLAY TEST1-VAR NO ADVANCING + 11 END-DISPLAY. +>> Error: Malformed or unknown compiler directive + +listings.at-3921-prog.cob:12.0-12.13: + 9 >>LISTING OFF + 10 DISPLAY TEST1-VAR NO ADVANCING + 11 END-DISPLAY. + 12 > >> LISTING ON +---- ^^^^^^^^^^^^^ + 13 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/listings.at:4001:0 +listings.at-4001-prog.cob:1.11-1.16: + 1 > TITLE "GnuCOBOL lists IBM" +---- ^^^^^ + 2 IDENTIFICATION DIVISION. + 3 SKIP1 +>> Error: Invalid syntax + +listings.at-4001-prog.cob:3.11-3.16: + 1 TITLE "GnuCOBOL lists IBM" + 2 IDENTIFICATION DIVISION. + 3 > SKIP1 +---- ^^^^^ + 4 PROGRAM-ID. prog. + 5 SKIP2 +>> Error: Invalid syntax + +listings.at-4001-prog.cob:5.11-5.16: + 2 IDENTIFICATION DIVISION. + 3 SKIP1 + 4 PROGRAM-ID. prog. + 5 > SKIP2 +---- ^^^^^ + 6 DATA DIVISION. + 7 SKIP3 +>> Error: Invalid syntax + +listings.at-4001-prog.cob:7.11-7.16: + 4 PROGRAM-ID. prog. + 5 SKIP2 + 6 DATA DIVISION. + 7 > SKIP3 +---- ^^^^^ + 8 WORKING-STORAGE SECTION. + 9 01 TITLE-01 PIC X(2). +>> Error: Invalid syntax + +listings.at-4001-prog.cob:11.11-11.16: + 8 WORKING-STORAGE SECTION. + 9 01 TITLE-01 PIC X(2). + 10 01 TITLE-02 PIC X(2). + 11 > TITLE "here goes the code" +---- ^^^^^ + 12 PROCEDURE DIVISION. + 13 EJECT +>> Error: Invalid syntax + +listings.at-4001-prog.cob:13.12: + 10 01 TITLE-02 PIC X(2). + 11 TITLE "here goes the code" + 12 PROCEDURE DIVISION. + 13 > EJECT +---- ^ + 14 MOVE SPACE TO TITLE-01 + 15 TITLE-02. +>> Hint: Missing . + +listings.at-4001-prog.cob:14.11-14.15: + 11 TITLE "here goes the code" + 12 PROCEDURE DIVISION. + 13 EJECT + 14 > MOVE SPACE TO TITLE-01 +---- ^^^^ + 15 TITLE-02. + 16 STOP RUN. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:4057:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:4091:0 +listings.at-4091-prog2.cob:6.0-6.6: + 3 PROGRAM-ID. prog2. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > >>PAGE +---- ^^^^^^ + 7 PROCEDURE DIVISION. + 8 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/listings.at:4177:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:5827:0 +listings.at-5827-prog.cob:16.25-16.33: + 13 FILE-CONTROL. + 14 + 15 SELECT TRANSACTION-DATA + 16 > ASSIGN TO EXTERNAL DATAIN +---- ^^^^^^^^ + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 +>> Warning: Ignored EXTERNAL (implementation pending) + +listings.at-5827-prog.cob:20.25-20.33: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^ + 21 + 22 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +listings.at-5827-prog.cob:20.34-20.38: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^ + 21 + 22 DATA DIVISION. +>> Error: Invalid syntax + +listings.at-5827-prog.cob:20.38: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^ + 21 + 22 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +listings.at-5827-prog.cob:20.39-20.48: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^^ + 21 + 22 DATA DIVISION. +>> Error: Invalid syntax + +listings.at-5827-prog.cob:48.26: + 45 88 END-OF-FILE VALUE 'Y'. + 46 + 47 REPORT SECTION. + 48 > RD CUSTOMER-REPORT +---- ^ + 49 PAGE LIMIT IS 66 LINES + 50 HEADING 1 +>> Hint: Missing . + +listings.at-5827-prog.cob:49.11-49.15: + 46 + 47 REPORT SECTION. + 48 RD CUSTOMER-REPORT + 49 > PAGE LIMIT IS 66 LINES +---- ^^^^ + 50 HEADING 1 + 51 FIRST DETAIL 5 +>> Error: Invalid syntax + +listings.at-5827-prog.cob:49.33: + 46 + 47 REPORT SECTION. + 48 RD CUSTOMER-REPORT + 49 > PAGE LIMIT IS 66 LINES +---- ^ + 50 HEADING 1 + 51 FIRST DETAIL 5 +>> Hint: Missing ARE + +listings.at-5827-prog.cob:50.11-50.18: + 47 REPORT SECTION. + 48 RD CUSTOMER-REPORT + 49 PAGE LIMIT IS 66 LINES + 50 > HEADING 1 +---- ^^^^^^^ + 51 FIRST DETAIL 5 + 52 LAST DETAIL 58. +>> Error: Invalid syntax + +listings.at-5827-prog.cob:51.11-51.16: + 48 RD CUSTOMER-REPORT + 49 PAGE LIMIT IS 66 LINES + 50 HEADING 1 + 51 > FIRST DETAIL 5 +---- ^^^^^ + 52 LAST DETAIL 58. + 53 +>> Error: Invalid syntax + +listings.at-5827-prog.cob:52.11-52.15: + 49 PAGE LIMIT IS 66 LINES + 50 HEADING 1 + 51 FIRST DETAIL 5 + 52 > LAST DETAIL 58. +---- ^^^^ + 53 + 54 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +>> Error: Invalid syntax + +listings.at-5827-prog.cob:54.31: + 51 FIRST DETAIL 5 + 52 LAST DETAIL 58. + 53 + 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^ + 55 02 LINE 1. + 56 03 COLUMN 27 PIC X(41) VALUE +>> Hint: Missing DETAIL + +listings.at-5827-prog.cob:54.32-54.36: + 51 FIRST DETAIL 5 + 52 LAST DETAIL 58. + 53 + 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^^^^ + 55 02 LINE 1. + 56 03 COLUMN 27 PIC X(41) VALUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/listings.at:6143:0 +Considering: import/gnucobol/tests/testsuite.src/listings.at:6955:0 +listings.at-6955-prog.cob:3.0-3.2: + 1 + 2 >>SOURCE FORMAT IS FREE + 3 > ID DIVISION. +---- ^^ + 4 PROGRAM-ID. ED000MAIN IS INITIAL. + 5 DATA DIVISION. +>> Error: Invalid syntax + diff --git a/test/output-tests/run_accept.expected b/test/output-tests/run_accept.expected new file mode 100644 index 000000000..d07533f3d --- /dev/null +++ b/test/output-tests/run_accept.expected @@ -0,0 +1,341 @@ +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:43:0 +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:42:0 +run_accept.at-42-prog.cob:5.17: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > ACCEPT OMITTED. +---- ^ +>> Hint: Missing + +run_accept.at-42-prog.cob:5.18-5.25: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > ACCEPT OMITTED. +---- ^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:112:0 +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:260:0 +run_accept.at-260-prog.cob:43.7-43.34: + 40 PROCEDURE DIVISION. + 41 PERFORM RUN-TEST. + 42 PERFORM RUN-VALIDATION. + 43 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 44 *> included performance check + 45 PERFORM RUN-TEST 50000 TIMES +>> Error: Malformed or unknown compiler directive + +run_accept.at-260-prog.cob:46.7-46.16: + 43 >> IF CHECK-PERF IS DEFINED + 44 *> included performance check + 45 PERFORM RUN-TEST 50000 TIMES + 46 > >> END-IF +---- ^^^^^^^^^ + 47 GOBACK. + 48 +>> Error: Invalid syntax + +run_accept.at-260-prog.cob:63.36: + 60 MOVE WS-NOW-MM TO WS-TIME-MM + 61 MOVE WS-NOW-SS TO WS-TIME-SS + 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 63 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 64 END-DISPLAY + 65 DISPLAY ' MICROSECOND-TIME ' +>> Hint: Missing . + +run_accept.at-260-prog.cob:63.37-63.41: + 60 MOVE WS-NOW-MM TO WS-TIME-MM + 61 MOVE WS-NOW-SS TO WS-TIME-SS + 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 63 > WITH NO ADVANCING UPON SYSOUT +---- ^^^^ + 64 END-DISPLAY + 65 DISPLAY ' MICROSECOND-TIME ' +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:63.48: + 60 MOVE WS-NOW-MM TO WS-TIME-MM + 61 MOVE WS-NOW-SS TO WS-TIME-SS + 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 63 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 64 END-DISPLAY + 65 DISPLAY ' MICROSECOND-TIME ' +>> Hint: Missing . + +run_accept.at-260-prog.cob:64.11-64.22: + 61 MOVE WS-NOW-SS TO WS-TIME-SS + 62 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 63 WITH NO ADVANCING UPON SYSOUT + 64 > END-DISPLAY +---- ^^^^^^^^^^^ + 65 DISPLAY ' MICROSECOND-TIME ' + 66 WITH NO ADVANCING UPON SYSOUT +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:66.36: + 63 WITH NO ADVANCING UPON SYSOUT + 64 END-DISPLAY + 65 DISPLAY ' MICROSECOND-TIME ' + 66 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 67 END-DISPLAY + 68 DISPLAY WS-MICROSECOND-TIME +>> Hint: Missing . + +run_accept.at-260-prog.cob:66.37-66.41: + 63 WITH NO ADVANCING UPON SYSOUT + 64 END-DISPLAY + 65 DISPLAY ' MICROSECOND-TIME ' + 66 > WITH NO ADVANCING UPON SYSOUT +---- ^^^^ + 67 END-DISPLAY + 68 DISPLAY WS-MICROSECOND-TIME +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:66.48: + 63 WITH NO ADVANCING UPON SYSOUT + 64 END-DISPLAY + 65 DISPLAY ' MICROSECOND-TIME ' + 66 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 67 END-DISPLAY + 68 DISPLAY WS-MICROSECOND-TIME +>> Hint: Missing . + +run_accept.at-260-prog.cob:67.11-67.22: + 64 END-DISPLAY + 65 DISPLAY ' MICROSECOND-TIME ' + 66 WITH NO ADVANCING UPON SYSOUT + 67 > END-DISPLAY +---- ^^^^^^^^^^^ + 68 DISPLAY WS-MICROSECOND-TIME + 69 WITH NO ADVANCING UPON SYSOUT +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:69.36: + 66 WITH NO ADVANCING UPON SYSOUT + 67 END-DISPLAY + 68 DISPLAY WS-MICROSECOND-TIME + 69 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 70 END-DISPLAY + 71 DISPLAY '.' UPON SYSOUT. +>> Hint: Missing . + +run_accept.at-260-prog.cob:69.37-69.41: + 66 WITH NO ADVANCING UPON SYSOUT + 67 END-DISPLAY + 68 DISPLAY WS-MICROSECOND-TIME + 69 > WITH NO ADVANCING UPON SYSOUT +---- ^^^^ + 70 END-DISPLAY + 71 DISPLAY '.' UPON SYSOUT. +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:69.48: + 66 WITH NO ADVANCING UPON SYSOUT + 67 END-DISPLAY + 68 DISPLAY WS-MICROSECOND-TIME + 69 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 70 END-DISPLAY + 71 DISPLAY '.' UPON SYSOUT. +>> Hint: Missing . + +run_accept.at-260-prog.cob:70.11-70.22: + 67 END-DISPLAY + 68 DISPLAY WS-MICROSECOND-TIME + 69 WITH NO ADVANCING UPON SYSOUT + 70 > END-DISPLAY +---- ^^^^^^^^^^^ + 71 DISPLAY '.' UPON SYSOUT. + 72 *> Bigger fields return 8/12 depending on std +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:76.36: + 73 *> CHECKME: we may should limit to 6 depending on std, too + 74 ACCEPT WS-TIME-MICRO FROM TIME + 75 DISPLAY 'PROCESS BIG TIME : ' + 76 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 77 DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. + 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD +>> Hint: Missing . + +run_accept.at-260-prog.cob:76.37-76.41: + 73 *> CHECKME: we may should limit to 6 depending on std, too + 74 ACCEPT WS-TIME-MICRO FROM TIME + 75 DISPLAY 'PROCESS BIG TIME : ' + 76 > WITH NO ADVANCING UPON SYSOUT +---- ^^^^ + 77 DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. + 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:76.48: + 73 *> CHECKME: we may should limit to 6 depending on std, too + 74 ACCEPT WS-TIME-MICRO FROM TIME + 75 DISPLAY 'PROCESS BIG TIME : ' + 76 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 77 DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. + 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD +>> Hint: Missing . + +run_accept.at-260-prog.cob:77.11-77.18: + 74 ACCEPT WS-TIME-MICRO FROM TIME + 75 DISPLAY 'PROCESS BIG TIME : ' + 76 WITH NO ADVANCING UPON SYSOUT + 77 > DISPLAY WS-MICROSECOND-TIME UPON SYSOUT. +---- ^^^^^^^ + 78 ACCEPT WS-YYYYMMDD FROM DATE YYYYMMDD + 79 IF WS-YYYYMMDD not = "20150405" +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:106.36: + 103 MOVE WS-NOW-MM TO WS-TIME-MM + 104 MOVE WS-NOW-SS TO WS-TIME-SS + 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 106 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 107 END-DISPLAY + 108 DISPLAY ' MICROSECOND-TIME ' +>> Hint: Missing . + +run_accept.at-260-prog.cob:106.37-106.41: + 103 MOVE WS-NOW-MM TO WS-TIME-MM + 104 MOVE WS-NOW-SS TO WS-TIME-SS + 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 106 > WITH NO ADVANCING UPON SYSOUT +---- ^^^^ + 107 END-DISPLAY + 108 DISPLAY ' MICROSECOND-TIME ' +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:106.48: + 103 MOVE WS-NOW-MM TO WS-TIME-MM + 104 MOVE WS-NOW-SS TO WS-TIME-SS + 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 106 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 107 END-DISPLAY + 108 DISPLAY ' MICROSECOND-TIME ' +>> Hint: Missing . + +run_accept.at-260-prog.cob:107.11-107.22: + 104 MOVE WS-NOW-SS TO WS-TIME-SS + 105 DISPLAY 'PROCESS DATE/TIME : ' WS-DATE ' ' WS-TIME + 106 WITH NO ADVANCING UPON SYSOUT + 107 > END-DISPLAY +---- ^^^^^^^^^^^ + 108 DISPLAY ' MICROSECOND-TIME ' + 109 WITH NO ADVANCING UPON SYSOUT +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:109.36: + 106 WITH NO ADVANCING UPON SYSOUT + 107 END-DISPLAY + 108 DISPLAY ' MICROSECOND-TIME ' + 109 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 110 END-DISPLAY + 111 DISPLAY WS-MICROSECOND-TIME +>> Hint: Missing . + +run_accept.at-260-prog.cob:109.37-109.41: + 106 WITH NO ADVANCING UPON SYSOUT + 107 END-DISPLAY + 108 DISPLAY ' MICROSECOND-TIME ' + 109 > WITH NO ADVANCING UPON SYSOUT +---- ^^^^ + 110 END-DISPLAY + 111 DISPLAY WS-MICROSECOND-TIME +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:109.48: + 106 WITH NO ADVANCING UPON SYSOUT + 107 END-DISPLAY + 108 DISPLAY ' MICROSECOND-TIME ' + 109 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 110 END-DISPLAY + 111 DISPLAY WS-MICROSECOND-TIME +>> Hint: Missing . + +run_accept.at-260-prog.cob:110.11-110.22: + 107 END-DISPLAY + 108 DISPLAY ' MICROSECOND-TIME ' + 109 WITH NO ADVANCING UPON SYSOUT + 110 > END-DISPLAY +---- ^^^^^^^^^^^ + 111 DISPLAY WS-MICROSECOND-TIME + 112 WITH NO ADVANCING UPON SYSOUT +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:112.36: + 109 WITH NO ADVANCING UPON SYSOUT + 110 END-DISPLAY + 111 DISPLAY WS-MICROSECOND-TIME + 112 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 113 END-DISPLAY + 114 DISPLAY '.' UPON SYSOUT. +>> Hint: Missing . + +run_accept.at-260-prog.cob:112.37-112.41: + 109 WITH NO ADVANCING UPON SYSOUT + 110 END-DISPLAY + 111 DISPLAY WS-MICROSECOND-TIME + 112 > WITH NO ADVANCING UPON SYSOUT +---- ^^^^ + 113 END-DISPLAY + 114 DISPLAY '.' UPON SYSOUT. +>> Warning: Invalid syntax + +run_accept.at-260-prog.cob:112.48: + 109 WITH NO ADVANCING UPON SYSOUT + 110 END-DISPLAY + 111 DISPLAY WS-MICROSECOND-TIME + 112 > WITH NO ADVANCING UPON SYSOUT +---- ^ + 113 END-DISPLAY + 114 DISPLAY '.' UPON SYSOUT. +>> Hint: Missing . + +run_accept.at-260-prog.cob:113.11-113.22: + 110 END-DISPLAY + 111 DISPLAY WS-MICROSECOND-TIME + 112 WITH NO ADVANCING UPON SYSOUT + 113 > END-DISPLAY +---- ^^^^^^^^^^^ + 114 DISPLAY '.' UPON SYSOUT. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:316:0 +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:355:0 +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:390:0 +Considering: import/gnucobol/tests/testsuite.src/run_accept.at:389:0 +run_accept.at-389-prog.cob:11.17: + 8 03 VALUE "Hello!" LINE 3 COL 3. + 9 + 10 PROCEDURE DIVISION. + 11 > ACCEPT OMITTED +---- ^ + 12 END-ACCEPT. +>> Hint: Missing + +run_accept.at-389-prog.cob:11.18-11.25: + 8 03 VALUE "Hello!" LINE 3 COL 3. + 9 + 10 PROCEDURE DIVISION. + 11 > ACCEPT OMITTED +---- ^^^^^^^ + 12 END-ACCEPT. +>> Error: Invalid syntax + diff --git a/test/output-tests/run_extensions.expected b/test/output-tests/run_extensions.expected new file mode 100644 index 000000000..7926b389c --- /dev/null +++ b/test/output-tests/run_extensions.expected @@ -0,0 +1,6590 @@ +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:62:0 +run_extensions.at-62-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data, int *p) + 7 { +>> Error: Unexpected indicator: `T' + +run_extensions.at-62-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data, int *p) +---- ^ + 7 { + 8 int i; +>> Error: Unexpected indicator: `u' + +run_extensions.at-62-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data, int *p) + 7 { + 8 > int i; +---- ^ + 9 if ( *p == 1 ) { + 10 for (i = 0; i < 4; i++) +>> Error: Unexpected indicator: `i' + +run_extensions.at-62-dump.c:10.6-10.7: + 7 { + 8 int i; + 9 if ( *p == 1 ) { + 10 > for (i = 0; i < 4; i++) +---- ^ + 11 printf ("%02x", data[i]); + 12 } else { +>> Error: Unexpected indicator: `o' + +run_extensions.at-62-dump.c:12.6-12.7: + 9 if ( *p == 1 ) { + 10 for (i = 0; i < 4; i++) + 11 printf ("%02x", data[i]); + 12 > } else { +---- ^ + 13 printf ("%8.8d", *((int *)data)); + 14 } +>> Error: Unexpected indicator: `s' + +run_extensions.at-62-dump.c:16.6-16.7: + 13 printf ("%8.8d", *((int *)data)); + 14 } + 15 puts (""); + 16 > return 0; +---- ^ + 17 } +>> Error: Unexpected indicator: `r' + +run_extensions.at-62-dump.c:9.10-18.0: + 6 dump (unsigned char *data, int *p) + 7 { + 8 int i; + 9 > if ( *p == 1 ) { +---- + 10 > for (i = 0; i < 4; i++) +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > printf ("%02x", data[i]); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > } else { +---- ^^^^^^^^^^^ + 13 > printf ("%8.8d", *((int *)data)); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 14 > } +---- ^^^^ + 15 > puts (""); +---- ^^^^^^^^^^^^^ + 16 > return 0; +---- ^^^^^^^^^^^^ + 17 > } +---- ^^ +>> Error: Unterminated pseudotext + +run_extensions.at-62-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data, int *p) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:63:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:92:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:116:0 +run_extensions.at-116-prog.cob:5.20-5.24: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > DISPLAY B#101 UPON STDOUT +---- ^^^^ + 6 DISPLAY O#17777777777 UPON STDOUT + 7 DISPLAY X#ffFFFFff UPON STDOUT +>> Error: Invalid syntax + +run_extensions.at-116-prog.cob:6.20-6.32: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY B#101 UPON STDOUT + 6 > DISPLAY O#17777777777 UPON STDOUT +---- ^^^^^^^^^^^^ + 7 DISPLAY X#ffFFFFff UPON STDOUT + 8 DISPLAY H#ffFFFFff UPON STDOUT +>> Error: Invalid syntax + +run_extensions.at-116-prog.cob:7.20-7.29: + 4 PROCEDURE DIVISION. + 5 DISPLAY B#101 UPON STDOUT + 6 DISPLAY O#17777777777 UPON STDOUT + 7 > DISPLAY X#ffFFFFff UPON STDOUT +---- ^^^^^^^^^ + 8 DISPLAY H#ffFFFFff UPON STDOUT + 9 +>> Error: Invalid syntax + +run_extensions.at-116-prog.cob:8.20-8.29: + 5 DISPLAY B#101 UPON STDOUT + 6 DISPLAY O#17777777777 UPON STDOUT + 7 DISPLAY X#ffFFFFff UPON STDOUT + 8 > DISPLAY H#ffFFFFff UPON STDOUT +---- ^^^^^^^^^ + 9 + 10 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:180:0 +run_extensions.at-180-prog.cob:7.46-7.52: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 *> Octal literal is "AB" in ASCII. + 7 > 01 ITEM-ALPHA PIC XX VALUE %40502. +---- ^^^^^^ + 8 *> Octal literal is 39. + 9 01 ITEM-NUMERIC PIC 99 BINARY VALUE %47. +>> Error: Invalid syntax + +run_extensions.at-180-prog.cob:9.46-9.49: + 6 *> Octal literal is "AB" in ASCII. + 7 01 ITEM-ALPHA PIC XX VALUE %40502. + 8 *> Octal literal is 39. + 9 > 01 ITEM-NUMERIC PIC 99 BINARY VALUE %47. +---- ^^^ + 10 *> Octal literal is ASCII 12. + 11 01 ITEM-NUM PIC 99 VALUE %30462. +>> Error: Invalid syntax + +run_extensions.at-180-prog.cob:11.46-11.52: + 8 *> Octal literal is 39. + 9 01 ITEM-NUMERIC PIC 99 BINARY VALUE %47. + 10 *> Octal literal is ASCII 12. + 11 > 01 ITEM-NUM PIC 99 VALUE %30462. +---- ^^^^^^ + 12 PROCEDURE DIVISION. + 13 *> Octal literal is "XY". +>> Error: Invalid syntax + +run_extensions.at-180-prog.cob:14.19-14.25: + 11 01 ITEM-NUM PIC 99 VALUE %30462. + 12 PROCEDURE DIVISION. + 13 *> Octal literal is "XY". + 14 > DISPLAY %54131. +---- ^^^^^^ + 15 IF ITEM-ALPHA NOT = "AB" + 16 DISPLAY "VALUE %40502 is not ""AB"" (ASCII) but " +>> Error: Invalid syntax + +run_extensions.at-180-prog.cob:26.15-26.18: + 23 DISPLAY "VALUE %30462 is not 12 (ASCII) but " ITEM-NUM + 24 END-IF + 25 *> Adds octal 23 (decimal 19, as it is an arithmetic expression). + 26 > ADD %23 TO ITEM-NUM. +---- ^^^ + 27 IF ITEM-NUM NOT = 31 + 28 DISPLAY "12 + %23 (19) is not 31 but " ITEM-NUM +>> Error: Invalid syntax + +run_extensions.at-180-prog.cob:31.16-31.22: + 28 DISPLAY "12 + %23 (19) is not 31 but " ITEM-NUM + 29 END-IF + 30 *> Sets the data to octal 30462 (ASCII 12). + 31 > MOVE %30462 TO ITEM-NUM +---- ^^^^^^ + 32 IF ITEM-NUM NOT = 12 + 33 DISPLAY "%30462 is not 12 (ASCII) but " ITEM-NUM +>> Error: Invalid syntax + +run_extensions.at-180-prog.cob:36.16-36.20: + 33 DISPLAY "%30462 is not 12 (ASCII) but " ITEM-NUM + 34 END-IF + 35 *> Sets the data to x'4100' (octal 101 -> ASCII A + right-pad NULL) + 36 > MOVE %101 TO ITEM-ALPHA +---- ^^^^ + 37 IF ITEM-ALPHA NOT = x"4100" + 38 DISPLAY "%101 is not x""4100"" = Anull (ASCII) but " +>> Error: Invalid syntax + +run_extensions.at-180-prog.cob:37.32-37.38: + 34 END-IF + 35 *> Sets the data to x'4100' (octal 101 -> ASCII A + right-pad NULL) + 36 MOVE %101 TO ITEM-ALPHA + 37 > IF ITEM-ALPHA NOT = x"4100" +---- ^^^^^^ + 38 DISPLAY "%101 is not x""4100"" = Anull (ASCII) but " + 39 ITEM-ALPHA +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:206:0 +run_extensions.at-206-prog.cob:6.39-6.40: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 X-1 PIC 9(8) VALUE H"012345". +---- ^ + 7 01 X-2 PIC 9(8) VALUE H"FFFFFF". + 8 PROCEDURE DIVISION. +>> Error: Invalid syntax + +run_extensions.at-206-prog.cob:7.39-7.40: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 X-1 PIC 9(8) VALUE H"012345". + 7 > 01 X-2 PIC 9(8) VALUE H"FFFFFF". +---- ^ + 8 PROCEDURE DIVISION. + 9 DISPLAY X-1 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:231:0 +run_extensions.at-231-prog.cob:5.20: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > IF 1 = (1 OR 2) +---- ^ + 6 DISPLAY "OK" NO ADVANCING + 7 END-DISPLAY +>> Hint: Missing ) + +run_extensions.at-231-prog.cob:5.21-5.23: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > IF 1 = (1 OR 2) +---- ^^ + 6 DISPLAY "OK" NO ADVANCING + 7 END-DISPLAY +>> Error: Invalid syntax + +run_extensions.at-231-prog.cob:5.25-5.26: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > IF 1 = (1 OR 2) +---- ^ + 6 DISPLAY "OK" NO ADVANCING + 7 END-DISPLAY +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:281:0 +run_extensions.at-281-prog.cob:9.43: + 6 01 X-1 PIC X(3) VALUE "X-1". + 7 01 X-2 PIC X(3) VALUE "X-2". + 8 01 G. + 9 > 02 PTR-1 USAGE POINTER VALUE NULL. +---- ^ + 10 02 PTR-2 USAGE POINTER VALUE NULL. + 11 LINKAGE SECTION. +>> Hint: Missing + +run_extensions.at-281-prog.cob:9.44-9.48: + 6 01 X-1 PIC X(3) VALUE "X-1". + 7 01 X-2 PIC X(3) VALUE "X-2". + 8 01 G. + 9 > 02 PTR-1 USAGE POINTER VALUE NULL. +---- ^^^^ + 10 02 PTR-2 USAGE POINTER VALUE NULL. + 11 LINKAGE SECTION. +>> Error: Invalid syntax + +run_extensions.at-281-prog.cob:10.43: + 7 01 X-2 PIC X(3) VALUE "X-2". + 8 01 G. + 9 02 PTR-1 USAGE POINTER VALUE NULL. + 10 > 02 PTR-2 USAGE POINTER VALUE NULL. +---- ^ + 11 LINKAGE SECTION. + 12 01 Y PIC X(3). +>> Hint: Missing + +run_extensions.at-281-prog.cob:10.44-10.48: + 7 01 X-2 PIC X(3) VALUE "X-2". + 8 01 G. + 9 02 PTR-1 USAGE POINTER VALUE NULL. + 10 > 02 PTR-2 USAGE POINTER VALUE NULL. +---- ^^^^ + 11 LINKAGE SECTION. + 12 01 Y PIC X(3). +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:445:0 +run_extensions.at-445-prog.cob:21.29: + 18 66 RENAME-G RENAMES G. + 19 01 L PIC s9(4)v99. + 20 01 I PIC 9(2) VALUE 10. + 21 > 78 I-LEN VALUE LENGTH OF I. +---- ^ + 22 * TODO: check size of FILLER here + 23 01 TSTDISP. +>> Hint: Missing + +run_extensions.at-445-prog.cob:21.30-21.36: + 18 66 RENAME-G RENAMES G. + 19 01 L PIC s9(4)v99. + 20 01 I PIC 9(2) VALUE 10. + 21 > 78 I-LEN VALUE LENGTH OF I. +---- ^^^^^^ + 22 * TODO: check size of FILLER here + 23 01 TSTDISP. +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:27.34-27.40: + 24 02 FILLER OCCURS 5000. + 25 10 T1 PIC X(11). + 26 10 T2 PIC X(22). + 27 > 78 var-length-l value length of '00128'. +---- ^^^^^^ + 28 78 var-length-x value length of x'a0'. + 29 78 var-length-z value length of z'a0'. +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:28.34-28.40: + 25 10 T1 PIC X(11). + 26 10 T2 PIC X(22). + 27 78 var-length-l value length of '00128'. + 28 > 78 var-length-x value length of x'a0'. +---- ^^^^^^ + 29 78 var-length-z value length of z'a0'. + 30 *78 var-length-n value length of n'001'. +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:29.34-29.40: + 26 10 T2 PIC X(22). + 27 78 var-length-l value length of '00128'. + 28 78 var-length-x value length of x'a0'. + 29 > 78 var-length-z value length of z'a0'. +---- ^^^^^^ + 30 *78 var-length-n value length of n'001'. + 31 PROCEDURE DIVISION. +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:53.16-53.22: + 50 *> DISPLAY "Length n'001'" L + 51 *> END-DISPLAY + 52 *> END-IF + 53 > MOVE LENGTH OF X TO L +---- ^^^^^^ + 54 IF L NOT = 2 + 55 DISPLAY "Length 1 " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:58.16-58.22: + 55 DISPLAY "Length 1 " L + 56 END-DISPLAY + 57 END-IF + 58 > MOVE LENGTH OF X TO L +---- ^^^^^^ + 59 IF L NOT = 2 + 60 DISPLAY "Length 1a " L LENGTH X +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:60.37-60.43: + 57 END-IF + 58 MOVE LENGTH OF X TO L + 59 IF L NOT = 2 + 60 > DISPLAY "Length 1a " L LENGTH X +---- ^^^^^^ + 61 END-DISPLAY + 62 END-IF +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:63.16-63.22: + 60 DISPLAY "Length 1a " L LENGTH X + 61 END-DISPLAY + 62 END-IF + 63 > MOVE LENGTH OF Y TO L +---- ^^^^^^ + 64 IF L NOT = 2 + 65 DISPLAY "Length 2 " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:69.37-69.43: + 66 END-DISPLAY + 67 END-IF + 68 IF L NOT = 2 + 69 > DISPLAY "Length 2a " L LENGTH OF Y +---- ^^^^^^ + 70 END-DISPLAY + 71 END-IF +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:72.16-72.22: + 69 DISPLAY "Length 2a " L LENGTH OF Y + 70 END-DISPLAY + 71 END-IF + 72 > MOVE LENGTH OF Y(1) TO L +---- ^^^^^^ + 73 IF L NOT = 2 + 74 DISPLAY "Length 3 " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:77.16-77.22: + 74 DISPLAY "Length 3 " L + 75 END-DISPLAY + 76 END-IF + 77 > MOVE LENGTH Y(1) TO L +---- ^^^^^^ + 78 IF L NOT = 2 + 79 DISPLAY "Length 3a " L LENGTH OF Y(1) +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:79.37-79.43: + 76 END-IF + 77 MOVE LENGTH Y(1) TO L + 78 IF L NOT = 2 + 79 > DISPLAY "Length 3a " L LENGTH OF Y(1) +---- ^^^^^^ + 80 END-DISPLAY + 81 END-IF +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:86.14-86.20: + 83 DISPLAY "Length 4 " I-LEN + 84 END-DISPLAY + 85 END-IF + 86 > IF LENGTH OF L + 2 NOT = 8 +---- ^^^^^^ + 87 ADD 2 TO LENGTH OF L GIVING L + 88 DISPLAY "Length 5 + 2" L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:87.23-87.29: + 84 END-DISPLAY + 85 END-IF + 86 IF LENGTH OF L + 2 NOT = 8 + 87 > ADD 2 TO LENGTH OF L GIVING L +---- ^^^^^^ + 88 DISPLAY "Length 5 + 2" L + 89 END-DISPLAY +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:91.14-91.20: + 88 DISPLAY "Length 5 + 2" L + 89 END-DISPLAY + 90 END-IF + 91 > IF LENGTH L + 2 NOT = 8 +---- ^^^^^^ + 92 ADD 2 TO LENGTH L GIVING L + 93 DISPLAY "Length 5a + 2 " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:92.23-92.29: + 89 END-DISPLAY + 90 END-IF + 91 IF LENGTH L + 2 NOT = 8 + 92 > ADD 2 TO LENGTH L GIVING L +---- ^^^^^^ + 93 DISPLAY "Length 5a + 2 " L + 94 END-DISPLAY +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:97.19-97.25: + 94 END-DISPLAY + 95 END-IF + 96 MOVE 0 TO L + 97 > PERFORM LENGTH OF L TIMES +---- ^^^^^^ + 98 ADD 1 TO L + 99 END-PERFORM +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:100.19-100.25: + 97 PERFORM LENGTH OF L TIMES + 98 ADD 1 TO L + 99 END-PERFORM + 100 > PERFORM LENGTH L TIMES +---- ^^^^^^ + 101 ADD 1 TO L + 102 END-PERFORM +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:109.34-109.40: + 106 END-IF + 107 MOVE 0 TO L + 108 PERFORM VARME + 109 > VARYING I FROM LENGTH OF I +---- ^^^^^^ + 110 BY LENGTH OF X + 111 UNTIL I > LENGTH OF L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:110.34-110.40: + 107 MOVE 0 TO L + 108 PERFORM VARME + 109 VARYING I FROM LENGTH OF I + 110 > BY LENGTH OF X +---- ^^^^^^ + 111 UNTIL I > LENGTH OF L + 112 IF ((L NOT = 3) OR +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:111.31-111.37: + 108 PERFORM VARME + 109 VARYING I FROM LENGTH OF I + 110 BY LENGTH OF X + 111 > UNTIL I > LENGTH OF L +---- ^^^^^^ + 112 IF ((L NOT = 3) OR + 113 (I NOT = 8) ) +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:119.34-119.40: + 116 END-IF + 117 MOVE 0 TO L + 118 PERFORM VARME + 119 > VARYING I FROM LENGTH I +---- ^^^^^^ + 120 BY LENGTH X + 121 UNTIL I > LENGTH L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:120.34-120.40: + 117 MOVE 0 TO L + 118 PERFORM VARME + 119 VARYING I FROM LENGTH I + 120 > BY LENGTH X +---- ^^^^^^ + 121 UNTIL I > LENGTH L + 122 IF ((L NOT = 3) OR +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:121.31-121.37: + 118 PERFORM VARME + 119 VARYING I FROM LENGTH I + 120 BY LENGTH X + 121 > UNTIL I > LENGTH L +---- ^^^^^^ + 122 IF ((L NOT = 3) OR + 123 (I NOT = 8) ) +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:127.16-127.22: + 124 DISPLAY "Length 7a " L " - " I + 125 END-DISPLAY + 126 END-IF + 127 > MOVE LENGTH OF RENAME-STD-SG TO L +---- ^^^^^^ + 128 IF L NOT = 33 + 129 DISPLAY "Length 8a " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:132.16-132.22: + 129 DISPLAY "Length 8a " L + 130 END-DISPLAY + 131 END-IF + 132 > MOVE LENGTH OF RENAME-STD-G TO L +---- ^^^^^^ + 133 IF L NOT = 43 + 134 DISPLAY "Length 8b " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:137.16-137.22: + 134 DISPLAY "Length 8b " L + 135 END-DISPLAY + 136 END-IF + 137 > MOVE LENGTH OF RENAME-STD TO L +---- ^^^^^^ + 138 IF L NOT = 33 + 139 DISPLAY "Length 8c " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:142.16-142.22: + 139 DISPLAY "Length 8c " L + 140 END-DISPLAY + 141 END-IF + 142 > MOVE LENGTH OF RENAME-G TO L +---- ^^^^^^ + 143 IF L NOT = 63 + 144 DISPLAY "Length 8d " L +>> Error: Invalid syntax + +run_extensions.at-445-prog.cob:148.19-148.25: + 145 END-DISPLAY + 146 END-IF + 147 *> one display test + 148 > DISPLAY LENGTH OF TSTDISP WITH NO ADVANCING +---- ^^^^^^ + 149 END-DISPLAY + 150 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:482:0 +run_extensions.at-482-prog.cob:16.21-16.25: + 13 01 LN PIC 9(06). + 14 + 15 PROCEDURE DIVISION. + 16 > SET LN TO SIZE OF TST +---- ^^^^ + 17 IF LN NOT = 10 + 18 DISPLAY "SIZE OF TST is " LN UPON SYSERR +>> Error: Invalid syntax + +run_extensions.at-482-prog.cob:21.21-21.25: + 18 DISPLAY "SIZE OF TST is " LN UPON SYSERR + 19 END-DISPLAY + 20 END-IF + 21 > SET LN TO SIZE OF TST2 +---- ^^^^ + 22 IF LN NOT = 165000 + 23 DISPLAY "SIZE OF TST2 is " LN UPON SYSERR +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:510:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:540:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:600:0 +run_extensions.at-600-prog.cob:26.19-26.25: + 23 MOVE '1' TO VXX (1). + 24 MOVE '22' TO VYY (1). + 25 MOVE '333' TO VZZ (1). + 26 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 27 DISPLAY VLEN NO ADVANCING + 28 END-DISPLAY. +>> Error: Invalid syntax + +run_extensions.at-600-prog.cob:41.19-41.25: + 38 MOVE '3' TO VXX (3). + 39 MOVE '22' TO VYY (2). + 40 MOVE '111' TO VZZ (1). + 41 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 42 DISPLAY VLEN NO ADVANCING + 43 END-DISPLAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:664:0 +run_extensions.at-664-prog.cob:26.19-26.25: + 23 MOVE '1' TO VXX (1). + 24 MOVE '22' TO VYY (1). + 25 MOVE '333' TO VZZ (1). + 26 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 27 DISPLAY VLEN NO ADVANCING + 28 END-DISPLAY. +>> Error: Invalid syntax + +run_extensions.at-664-prog.cob:41.19-41.25: + 38 MOVE '3' TO VXX (3). + 39 MOVE '22' TO VYY (2). + 40 MOVE '111' TO VZZ (1). + 41 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 42 DISPLAY VLEN NO ADVANCING + 43 END-DISPLAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:730:0 +run_extensions.at-730-prog.cob:28.19-28.25: + 25 MOVE '22' TO VYY (1). + 26 MOVE '333' TO VZZ (1). + 27 MOVE '444' TO VFIX. + 28 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 29 DISPLAY VLEN NO ADVANCING + 30 END-DISPLAY. +>> Error: Invalid syntax + +run_extensions.at-730-prog.cob:44.19-44.25: + 41 MOVE '22' TO VYY (2). + 42 MOVE '111' TO VZZ (1). + 43 MOVE '000' TO VFIX. + 44 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 45 DISPLAY VLEN NO ADVANCING + 46 END-DISPLAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:796:0 +run_extensions.at-796-prog.cob:28.19-28.25: + 25 MOVE '22' TO VYY (1). + 26 MOVE '333' TO VZZ (1). + 27 MOVE '444' TO VFIX. + 28 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 29 DISPLAY VLEN NO ADVANCING + 30 END-DISPLAY. +>> Error: Invalid syntax + +run_extensions.at-796-prog.cob:44.19-44.25: + 41 MOVE '22' TO VYY (2). + 42 MOVE '111' TO VZZ (1). + 43 MOVE '000' TO VFIX. + 44 > MOVE LENGTH OF VGROUP TO VLEN. +---- ^^^^^^ + 45 DISPLAY VLEN NO ADVANCING + 46 END-DISPLAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:840:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:900:0 +run_extensions.at-900-prog.cob:17.35: + 14 + 15 LINKAGE SECTION. + 16 01 A-TABLE. + 17 > 03 ROWS OCCURS 0 TO UNBOUNDED TIMES +---- ^ + 18 DEPENDING ON N. + 19 05 COL1 PIC X. +>> Hint: Missing + +run_extensions.at-900-prog.cob:17.36-17.45: + 14 + 15 LINKAGE SECTION. + 16 01 A-TABLE. + 17 > 03 ROWS OCCURS 0 TO UNBOUNDED TIMES +---- ^^^^^^^^^ + 18 DEPENDING ON N. + 19 05 COL1 PIC X. +>> Error: Invalid syntax + +run_extensions.at-900-prog.cob:32.32-32.34: + 29 END-DISPLAY + 30 END-IF + 31 ALLOCATE FUNCTION LENGTH (A-TABLE) CHARACTERS + 32 > INITIALIZED TO ALL "ABCDE" +---- ^^ + 33 RETURNING P + 34 SET ADDRESS OF A-TABLE TO P +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1034:0 +run_extensions.at-1034-ALLOC.cob:2.7-2.9: + 1 + 2 > ID DIVISION. +---- ^^ + 3 PROGRAM-ID. ALLOC. + 4 ENVIRONMENT DIVISION. +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:18.34: + 15 01 VARGRP. + 16 02 OBJ PIC 9(4) COMP. + 17 02 TABGRP. + 18 > 03 VARTAB OCCURS 1 TO UNBOUNDED DEPENDING ON OBJ. +---- ^ + 19 04 T1 PIC 9(4). + 20 04 T2 PIC X(8). +>> Hint: Missing + +run_extensions.at-1034-ALLOC.cob:18.35-18.44: + 15 01 VARGRP. + 16 02 OBJ PIC 9(4) COMP. + 17 02 TABGRP. + 18 > 03 VARTAB OCCURS 1 TO UNBOUNDED DEPENDING ON OBJ. +---- ^^^^^^^^^ + 19 04 T1 PIC 9(4). + 20 04 T2 PIC X(8). +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:69.35-69.41: + 66 ALLOC-VARGRP. + 67 + 68 If VPTR = NULL Then *> If first time, allocate the table + 69 > COMPUTE SIZE-NEEDED = LENGTH OF OBJ + +---- ^^^^^^ + 70 LENGTH OF VARTAB * NUM-ELEMENTS + 71 display 'First allocation, using ' size-needed ' bytes.' +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:70.33-70.39: + 67 + 68 If VPTR = NULL Then *> If first time, allocate the table + 69 COMPUTE SIZE-NEEDED = LENGTH OF OBJ + + 70 > LENGTH OF VARTAB * NUM-ELEMENTS +---- ^^^^^^ + 71 display 'First allocation, using ' size-needed ' bytes.' + 72 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:89.35-89.41: + 86 ********************************************************************* + 87 * Calculate new size from NUM-ElEMENTS + 88 ********************************************************************* + 89 > COMPUTE SIZE-NEEDED = LENGTH OF OBJ + +---- ^^^^^^ + 90 LENGTH OF VARTAB * NUM-ELEMENTS + 91 +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:90.35-90.41: + 87 * Calculate new size from NUM-ElEMENTS + 88 ********************************************************************* + 89 COMPUTE SIZE-NEEDED = LENGTH OF OBJ + + 90 > LENGTH OF VARTAB * NUM-ELEMENTS +---- ^^^^^^ + 91 + 92 display 'Re-allocation, using ' size-needed ' bytes.' +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:95.59: + 92 display 'Re-allocation, using ' size-needed ' bytes.' + 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR + 94 if size-needed < 2097152 + 95 > ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED +---- ^ + 96 loc 24 + 97 RETURNING VPTR +>> Hint: Missing RETURNING . + +run_extensions.at-1034-ALLOC.cob:96.48-96.51: + 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR + 94 if size-needed < 2097152 + 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 96 > loc 24 +---- ^^^ + 97 RETURNING VPTR + 98 else +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:96.51: + 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR + 94 if size-needed < 2097152 + 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 96 > loc 24 +---- ^ + 97 RETURNING VPTR + 98 else +>> Hint: Missing . + +run_extensions.at-1034-ALLOC.cob:96.52-96.54: + 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR + 94 if size-needed < 2097152 + 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 96 > loc 24 +---- ^^ + 97 RETURNING VPTR + 98 else +>> Warning: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:96.54: + 93 *> ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED RETURNING VPTR + 94 if size-needed < 2097152 + 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 96 > loc 24 +---- ^ + 97 RETURNING VPTR + 98 else +>> Hint: Missing . + +run_extensions.at-1034-ALLOC.cob:97.48-97.57: + 94 if size-needed < 2097152 + 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 96 loc 24 + 97 > RETURNING VPTR +---- ^^^^^^^^^ + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED +>> Warning: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:97.62: + 94 if size-needed < 2097152 + 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 96 loc 24 + 97 > RETURNING VPTR +---- ^ + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED +>> Hint: Missing . + +run_extensions.at-1034-ALLOC.cob:98.13-98.17: + 95 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 96 loc 24 + 97 RETURNING VPTR + 98 > else +---- ^^^^ + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 loc 31 +>> Warning: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:99.59: + 96 loc 24 + 97 RETURNING VPTR + 98 else + 99 > ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED +---- ^ + 100 loc 31 + 101 RETURNING VPTR +>> Hint: Missing RETURNING . + +run_extensions.at-1034-ALLOC.cob:100.48-100.51: + 97 RETURNING VPTR + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 > loc 31 +---- ^^^ + 101 RETURNING VPTR + 102 end-if +>> Error: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:100.51: + 97 RETURNING VPTR + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 > loc 31 +---- ^ + 101 RETURNING VPTR + 102 end-if +>> Hint: Missing . + +run_extensions.at-1034-ALLOC.cob:100.52-100.54: + 97 RETURNING VPTR + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 > loc 31 +---- ^^ + 101 RETURNING VPTR + 102 end-if +>> Warning: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:100.54: + 97 RETURNING VPTR + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 > loc 31 +---- ^ + 101 RETURNING VPTR + 102 end-if +>> Hint: Missing . + +run_extensions.at-1034-ALLOC.cob:101.48-101.57: + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 loc 31 + 101 > RETURNING VPTR +---- ^^^^^^^^^ + 102 end-if + 103 +>> Warning: Invalid syntax + +run_extensions.at-1034-ALLOC.cob:101.62: + 98 else + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 loc 31 + 101 > RETURNING VPTR +---- ^ + 102 end-if + 103 +>> Hint: Missing . + +run_extensions.at-1034-ALLOC.cob:102.13-102.19: + 99 ALLOCATE SIZE-NEEDED CHARACTERS INITIALIZED + 100 loc 31 + 101 RETURNING VPTR + 102 > end-if +---- ^^^^^^ + 103 + 104 ************************************************************* +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1142:0 +run_extensions.at-1142-prog.cob:15.35: + 12 03 prefix. + 13 05 n PIC 9(03) VALUE 123. + 14 03 table-data value all "ABCDE". + 15 > 04 rows OCCURS 0 TO UNBOUNDED TIMES +---- ^ + 16 DEPENDING ON n. + 17 05 col1 PIC X. +>> Hint: Missing + +run_extensions.at-1142-prog.cob:15.36-15.45: + 12 03 prefix. + 13 05 n PIC 9(03) VALUE 123. + 14 03 table-data value all "ABCDE". + 15 > 04 rows OCCURS 0 TO UNBOUNDED TIMES +---- ^^^^^^^^^ + 16 DEPENDING ON n. + 17 05 col1 PIC X. +>> Error: Invalid syntax + +run_extensions.at-1142-prog.cob:21.19: + 18 05 col2 PIC X(02). + 19 + 20 PROCEDURE DIVISION. + 21 > ALLOCATE LENGTH OF prefix CHARACTERS +---- ^ + 22 RETURNING p + 23 SET ADDRESS OF a-table TO p +>> Hint: Missing + +run_extensions.at-1142-prog.cob:21.20-21.26: + 18 05 col2 PIC X(02). + 19 + 20 PROCEDURE DIVISION. + 21 > ALLOCATE LENGTH OF prefix CHARACTERS +---- ^^^^^^ + 22 RETURNING p + 23 SET ADDRESS OF a-table TO p +>> Error: Invalid syntax + +run_extensions.at-1142-prog.cob:34.14-34.20: + 31 + 32 INITIALIZE prefix ALL TO VALUE + 33 + 34 > IF LENGTH OF a-table NOT = 372 +---- ^^^^^^ + 35 MOVE LENGTH OF a-table TO dlen + 36 DISPLAY "BAD SIZE: " dlen. +>> Error: Invalid syntax + +run_extensions.at-1142-prog.cob:35.19-35.25: + 32 INITIALIZE prefix ALL TO VALUE + 33 + 34 IF LENGTH OF a-table NOT = 372 + 35 > MOVE LENGTH OF a-table TO dlen +---- ^^^^^^ + 36 DISPLAY "BAD SIZE: " dlen. + 37 +>> Error: Invalid syntax + +run_extensions.at-1142-prog.cob:47.43-47.49: + 44 + 45 *> check if ref-mod also works as expected + 46 MOVE 2 TO n + 47 > MOVE ALL ZEROES TO a-table (1: (LENGTH OF a-table)) +---- ^^^^^^ + 48 MOVE 7 TO n + 49 IF rows(2) NOT = "000" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1235:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1418:0 +run_extensions.at-1418-prog.cob:108.16-108.22: + 105 + 106 WRITE-REC SECTION. + 107 ADD 1 TO SEQ. + 108 > MOVE LENGTH OF TSTREC TO LN. +---- ^^^^^^ + 109 DISPLAY "Write SEQ " SEQ ", DEP-X = " DEP-X + 110 " & DEP-Y = " DEP-Y +>> Error: Invalid syntax + +run_extensions.at-1418-prog.cob:118.16-118.22: + 115 UNTIL IX > DEP-X + 116 MOVE IX TO TSTG-1 (IX) + 117 END-PERFORM. + 118 > MOVE LENGTH OF TSTGRP1 TO LN. +---- ^^^^^^ + 119 DISPLAY "Group1: '" TSTGRP1 "' len:" LN. + 120 PERFORM VARYING IX FROM 1 BY 1 +>> Error: Invalid syntax + +run_extensions.at-1418-prog.cob:148.16-148.22: + 145 MOVE IX TO TSTG2-1 (IX) + 146 END-PERFORM. + 147 MOVE "<>" TO TST2TAIL1. + 148 > MOVE LENGTH OF TSTGRP2 TO LN. +---- ^^^^^^ + 149 DISPLAY "Group2: '" TSTGRP2 "' len:" LN. + 150 WRITE TSTREC. +>> Error: Invalid syntax + +run_extensions.at-1418-prog.cob:155.16-155.22: + 152 READ-REC SECTION. + 153 READ-10. + 154 READ FLATFILE AT END GO TO READ-99. + 155 > MOVE LENGTH OF TSTREC TO LN. +---- ^^^^^^ + 156 DISPLAY "Read SEQ " SEQ ", DEP-X = " DEP-X + 157 " & DEP-Y = " DEP-Y +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1458:0 +run_extensions.at-1458-reference:1.6-1.7: + 1 > 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> +---- ^ + 2 020102Howdy 1<> 01***Ab. 3<> + 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> +>> Error: Unexpected indicator: `H' + +run_extensions.at-1458-reference:2.6-2.7: + 1 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> + 2 > 020102Howdy 1<> 01***Ab. 3<> +---- ^ + 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> + 4 040310Howdy 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<> +>> Error: Unexpected indicator: `H' + +run_extensions.at-1458-reference:3.6-3.7: + 1 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> + 2 020102Howdy 1<> 01***Ab. 3<> + 3 > 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> +---- ^ + 4 040310Howdy 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<> +>> Error: Unexpected indicator: `H' + +run_extensions.at-1458-reference:4.6-4.7: + 1 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> + 2 020102Howdy 1<> 01***Ab. 3<> + 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> + 4 > 040310Howdy 1 2 3<> 01***Abcdefghij. 34545656702***Abcdefghij. 45656767803***Abcdefghij. 567678789<> +---- ^ +>> Error: Unexpected indicator: `H' + +run_extensions.at-1458-reference:1.7-1.11: + 1 > 010205Howdy 1 2<> 01***Abcde. 344502***Abcde. 4556<> +---- ^^^^ + 2 020102Howdy 1<> 01***Ab. 3<> + 3 030303Howdy 1 2 3<> 01***Abc. 34545656702***Abc. 45656767803***Abc. 567678789<> +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1556:0 +run_extensions.at-1556-prog.cob:59.38-59.47: + 56 10 ARRAY OCCURS 2 TIMES. + 57 20 L1-1. + 58 25 L1-1-1 PIC X(3). + 59 > 25 L1-1-2 OCCURS 4 TIMES DEPENDING ON L1-1-2-S. +---- ^^^^^^^^^ + 60 30 L1-1-2-1 OCCURS 5 TIMES DEPENDING ON L1-1-2-1-S + 61 PIC XXX. +>> Error: Invalid syntax + +run_extensions.at-1556-prog.cob:60.42-60.51: + 57 20 L1-1. + 58 25 L1-1-1 PIC X(3). + 59 25 L1-1-2 OCCURS 4 TIMES DEPENDING ON L1-1-2-S. + 60 > 30 L1-1-2-1 OCCURS 5 TIMES DEPENDING ON L1-1-2-1-S +---- ^^^^^^^^^ + 61 PIC XXX. + 62 20 L1-2 OCCURS 0 TO 1 TIMES DEPENDING ON L1-2-S PIC XX. +>> Error: Invalid syntax + +run_extensions.at-1556-prog.cob:76.32-76.38: + 73 L1-2-S + 74 L1-3-S + 75 L1-3-2-S. + 76 > DISPLAY "Length is " LENGTH OF BASE +---- ^^^^^^ + 77 " with " L1-1-2-S + 78 ", " L1-1-2-1-S +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1619:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1695:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1754:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1753:0 +run_extensions.at-1753-setfilename.c:6.6-6.7: + 3 #include + 4 #include + 5 + 6 > COB_EXT_EXPORT int +---- ^ + 7 setfilename (cob_file *f, unsigned char *name) + 8 { +>> Error: Unexpected indicator: `T' + +run_extensions.at-1753-setfilename.c:7.6-7.7: + 4 #include + 5 + 6 COB_EXT_EXPORT int + 7 > setfilename (cob_file *f, unsigned char *name) +---- ^ + 8 { + 9 memcpy (f->assign->data, name, strlen ((char *)name)); +>> Error: Unexpected indicator: `e' + +run_extensions.at-1753-setfilename.c:9.6-9.7: + 6 COB_EXT_EXPORT int + 7 setfilename (cob_file *f, unsigned char *name) + 8 { + 9 > memcpy (f->assign->data, name, strlen ((char *)name)); +---- ^ + 10 return 0; + 11 } +>> Error: Unexpected indicator: `p' + +run_extensions.at-1753-setfilename.c:10.6-10.7: + 7 setfilename (cob_file *f, unsigned char *name) + 8 { + 9 memcpy (f->assign->data, name, strlen ((char *)name)); + 10 > return 0; +---- ^ + 11 } +>> Error: Unexpected indicator: `r' + +run_extensions.at-1753-setfilename.c:6.7-6.14: + 3 #include + 4 #include + 5 + 6 > COB_EXT_EXPORT int +---- ^^^^^^^ + 7 setfilename (cob_file *f, unsigned char *name) + 8 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1816:0 +run_extensions.at-1816-A#B.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A#B". +---- ^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P2" NO ADVANCING +>> Hint: Missing + +run_extensions.at-1816-A#B.cob:3.24-3.29: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A#B". +---- ^^^^^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P2" NO ADVANCING +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1817:0 +run_extensions.at-1817-A-B.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A-B". +---- ^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P3" NO ADVANCING +>> Hint: Missing + +run_extensions.at-1817-A-B.cob:3.24-3.29: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A-B". +---- ^^^^^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P3" NO ADVANCING +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1815:0 +run_extensions.at-1815-A@B.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A@B". +---- ^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P1" NO ADVANCING +>> Hint: Missing + +run_extensions.at-1815-A@B.cob:3.24-3.29: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A@B". +---- ^^^^^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P1" NO ADVANCING +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1818:0 +run_extensions.at-1818-A_B.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A_B". +---- ^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P4" NO ADVANCING +>> Hint: Missing + +run_extensions.at-1818-A_B.cob:3.24-3.29: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "A_B". +---- ^^^^^ + 4 PROCEDURE DIVISION. + 5 DISPLAY "P4" NO ADVANCING +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1819:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1866:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1867:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1905:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:1999:0 +run_extensions.at-1999-prog.cob:12.41-12.45: + 9 END-CALL + 10 + 11 *> Test of explicit SIZE syntax + 12 > CALL "prog2" USING BY VALUE 1 SIZE 1 2 0 0 0 +---- ^^^^ + 13 END-CALL + 14 CALL "prog2" USING BY VALUE 2 0 SIZE 2 3 0 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:14.43-14.47: + 11 *> Test of explicit SIZE syntax + 12 CALL "prog2" USING BY VALUE 1 SIZE 1 2 0 0 0 + 13 END-CALL + 14 > CALL "prog2" USING BY VALUE 2 0 SIZE 2 3 0 0 +---- ^^^^ + 15 END-CALL + 16 CALL "prog2" USING BY VALUE 4 0 0 SIZE 4 4 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:16.45-16.49: + 13 END-CALL + 14 CALL "prog2" USING BY VALUE 2 0 SIZE 2 3 0 0 + 15 END-CALL + 16 > CALL "prog2" USING BY VALUE 4 0 0 SIZE 4 4 0 +---- ^^^^ + 17 END-CALL + 18 CALL "prog2" USING BY VALUE 8 0 0 0 SIZE 8 5 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:18.47-18.51: + 15 END-CALL + 16 CALL "prog2" USING BY VALUE 4 0 0 SIZE 4 4 0 + 17 END-CALL + 18 > CALL "prog2" USING BY VALUE 8 0 0 0 SIZE 8 5 +---- ^^^^ + 19 END-CALL + 20 CALL "prog2" USING BY VALUE 4 0 0 SIZE DEFAULT 6 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:20.45-20.49: + 17 END-CALL + 18 CALL "prog2" USING BY VALUE 8 0 0 0 SIZE 8 5 + 19 END-CALL + 20 > CALL "prog2" USING BY VALUE 4 0 0 SIZE DEFAULT 6 0 +---- ^^^^ + 21 END-CALL + 22 CALL "prog2" USING BY VALUE 4 0 0 SIZE AUTO 7 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:22.45-22.49: + 19 END-CALL + 20 CALL "prog2" USING BY VALUE 4 0 0 SIZE DEFAULT 6 0 + 21 END-CALL + 22 > CALL "prog2" USING BY VALUE 4 0 0 SIZE AUTO 7 0 +---- ^^^^ + 23 END-CALL + 24 *> test for SIZE AUTO with VALUE > INT_MAX is non-portable +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:27.50-27.54: + 24 *> test for SIZE AUTO with VALUE > INT_MAX is non-portable + 25 + 26 *> Test of explicit UNSIGNED SIZE syntax + 27 > CALL "prog2" USING BY VALUE 1 UNSIGNED SIZE 1 2 0 0 0 +---- ^^^^ + 28 END-CALL + 29 CALL "prog2" USING BY VALUE 2 0 UNSIGNED SIZE 2 3 0 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:29.52-29.56: + 26 *> Test of explicit UNSIGNED SIZE syntax + 27 CALL "prog2" USING BY VALUE 1 UNSIGNED SIZE 1 2 0 0 0 + 28 END-CALL + 29 > CALL "prog2" USING BY VALUE 2 0 UNSIGNED SIZE 2 3 0 0 +---- ^^^^ + 30 END-CALL + 31 CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE 4 4 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:31.54-31.58: + 28 END-CALL + 29 CALL "prog2" USING BY VALUE 2 0 UNSIGNED SIZE 2 3 0 0 + 30 END-CALL + 31 > CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE 4 4 0 +---- ^^^^ + 32 END-CALL + 33 CALL "prog2" USING BY VALUE 8 0 0 0 UNSIGNED SIZE 8 5 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:33.56-33.60: + 30 END-CALL + 31 CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE 4 4 0 + 32 END-CALL + 33 > CALL "prog2" USING BY VALUE 8 0 0 0 UNSIGNED SIZE 8 5 0 +---- ^^^^ + 34 END-CALL + 35 CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE AUTO 6 0 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:35.54-35.58: + 32 END-CALL + 33 CALL "prog2" USING BY VALUE 8 0 0 0 UNSIGNED SIZE 8 5 0 + 34 END-CALL + 35 > CALL "prog2" USING BY VALUE 4 0 0 UNSIGNED SIZE AUTO 6 0 +---- ^^^^ + 36 END-CALL + 37 *> test for SIZE AUTO with VALUE > INT_MAX is non-portable +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:60.51: + 57 01 VAR-2 USAGE BINARY-SHORT. + 58 01 VAR-4 USAGE BINARY-LONG. + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 > PROCEDURE DIVISION USING BY VALUE LEN +---- ^ + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:61.48-61.52: + 58 01 VAR-4 USAGE BINARY-LONG. + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 > SIZE 1 VAR-1 +---- ^^^^ + 62 SIZE 2 VAR-2 + 63 SIZE 4 VAR-4 +>> Error: Invalid syntax + +run_extensions.at-1999-prog.cob:61.54: + 58 01 VAR-4 USAGE BINARY-LONG. + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 > SIZE 1 VAR-1 +---- ^ + 62 SIZE 2 VAR-2 + 63 SIZE 4 VAR-4 +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:61.55-61.60: + 58 01 VAR-4 USAGE BINARY-LONG. + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 > SIZE 1 VAR-1 +---- ^^^^^ + 62 SIZE 2 VAR-2 + 63 SIZE 4 VAR-4 +>> Warning: Invalid syntax + +run_extensions.at-1999-prog.cob:61.60: + 58 01 VAR-4 USAGE BINARY-LONG. + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 > SIZE 1 VAR-1 +---- ^ + 62 SIZE 2 VAR-2 + 63 SIZE 4 VAR-4 +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:62.48-62.52: + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 > SIZE 2 VAR-2 +---- ^^^^ + 63 SIZE 4 VAR-4 + 64 SIZE 8 VAR-8. +>> Warning: Invalid syntax + +run_extensions.at-1999-prog.cob:62.54: + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 > SIZE 2 VAR-2 +---- ^ + 63 SIZE 4 VAR-4 + 64 SIZE 8 VAR-8. +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:62.55-62.60: + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 > SIZE 2 VAR-2 +---- ^^^^^ + 63 SIZE 4 VAR-4 + 64 SIZE 8 VAR-8. +>> Warning: Invalid syntax + +run_extensions.at-1999-prog.cob:62.60: + 59 01 VAR-8 USAGE BINARY-DOUBLE. + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 > SIZE 2 VAR-2 +---- ^ + 63 SIZE 4 VAR-4 + 64 SIZE 8 VAR-8. +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:63.48-63.52: + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 + 63 > SIZE 4 VAR-4 +---- ^^^^ + 64 SIZE 8 VAR-8. + 65 EVALUATE len +>> Warning: Invalid syntax + +run_extensions.at-1999-prog.cob:63.54: + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 + 63 > SIZE 4 VAR-4 +---- ^ + 64 SIZE 8 VAR-8. + 65 EVALUATE len +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:63.55-63.60: + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 + 63 > SIZE 4 VAR-4 +---- ^^^^^ + 64 SIZE 8 VAR-8. + 65 EVALUATE len +>> Warning: Invalid syntax + +run_extensions.at-1999-prog.cob:63.60: + 60 PROCEDURE DIVISION USING BY VALUE LEN + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 + 63 > SIZE 4 VAR-4 +---- ^ + 64 SIZE 8 VAR-8. + 65 EVALUATE len +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:64.48-64.52: + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 + 63 SIZE 4 VAR-4 + 64 > SIZE 8 VAR-8. +---- ^^^^ + 65 EVALUATE len + 66 WHEN 1 +>> Warning: Invalid syntax + +run_extensions.at-1999-prog.cob:64.54: + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 + 63 SIZE 4 VAR-4 + 64 > SIZE 8 VAR-8. +---- ^ + 65 EVALUATE len + 66 WHEN 1 +>> Hint: Missing . + +run_extensions.at-1999-prog.cob:64.55-64.60: + 61 SIZE 1 VAR-1 + 62 SIZE 2 VAR-2 + 63 SIZE 4 VAR-4 + 64 > SIZE 8 VAR-8. +---- ^^^^^ + 65 EVALUATE len + 66 WHEN 1 +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2086:0 +run_extensions.at-2086-callee32.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 callee32(cob_s32_t val) + 7 { +>> Error: Unexpected indicator: `T' + +run_extensions.at-2086-callee32.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > callee32(cob_s32_t val) +---- ^ + 7 { + 8 printf("VAL received: %d\n", val); +>> Error: Unexpected indicator: `3' + +run_extensions.at-2086-callee32.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 callee32(cob_s32_t val) + 7 { + 8 > printf("VAL received: %d\n", val); +---- ^ + 9 return 0; + 10 } +>> Error: Unexpected indicator: `t' + +run_extensions.at-2086-callee32.c:9.6-9.7: + 6 callee32(cob_s32_t val) + 7 { + 8 printf("VAL received: %d\n", val); + 9 > return 0; +---- ^ + 10 } +>> Error: Unexpected indicator: `r' + +run_extensions.at-2086-callee32.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 callee32(cob_s32_t val) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2086:0 +run_extensions.at-2086-callee64.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 callee64(cob_s64_t val) + 7 { +>> Error: Unexpected indicator: `T' + +run_extensions.at-2086-callee64.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > callee64(cob_s64_t val) +---- ^ + 7 { + 8 printf("VAL received: " CB_FMT_LLD "\n", val); +>> Error: Unexpected indicator: `6' + +run_extensions.at-2086-callee64.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 callee64(cob_s64_t val) + 7 { + 8 > printf("VAL received: " CB_FMT_LLD "\n", val); +---- ^ + 9 return 0; + 10 } +>> Error: Unexpected indicator: `t' + +run_extensions.at-2086-callee64.c:9.6-9.7: + 6 callee64(cob_s64_t val) + 7 { + 8 printf("VAL received: " CB_FMT_LLD "\n", val); + 9 > return 0; +---- ^ + 10 } +>> Error: Unexpected indicator: `r' + +run_extensions.at-2086-callee64.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 callee64(cob_s64_t val) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2060:0 +run_extensions.at-2060-caller.cob:12.32: + 9 03 ADR-PTR USAGE POINTER. + 10 03 ADR-BUFFER REDEFINES ADR-PTR USAGE COMP-5 PIC S9(8). + 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. + 12 > PROCEDURE DIVISION CHAINING CALL-NAME. +---- ^ + 13 + 14 >> IF P64 DEFINED +>> Hint: Missing . + +run_extensions.at-2060-caller.cob:12.34-12.42: + 9 03 ADR-PTR USAGE POINTER. + 10 03 ADR-BUFFER REDEFINES ADR-PTR USAGE COMP-5 PIC S9(8). + 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. + 12 > PROCEDURE DIVISION CHAINING CALL-NAME. +---- ^^^^^^^^ + 13 + 14 >> IF P64 DEFINED +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:14.6-14.7: + 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. + 12 PROCEDURE DIVISION CHAINING CALL-NAME. + 13 + 14 > >> IF P64 DEFINED +---- ^ + 15 MOVE "callee64" TO CALL-NAME + 16 >> ELSE +>> Error: Unexpected indicator: `>' + +run_extensions.at-2060-caller.cob:16.6-16.7: + 13 + 14 >> IF P64 DEFINED + 15 MOVE "callee64" TO CALL-NAME + 16 > >> ELSE +---- ^ + 17 MOVE "callee32" TO CALL-NAME + 18 >> END-IF +>> Error: Unexpected indicator: `>' + +run_extensions.at-2060-caller.cob:18.6-18.7: + 15 MOVE "callee64" TO CALL-NAME + 16 >> ELSE + 17 MOVE "callee32" TO CALL-NAME + 18 > >> END-IF +---- ^ + 19 + 20 MOVE 12345678 TO ADR-BUFFER +>> Error: Unexpected indicator: `>' + +run_extensions.at-2060-caller.cob:28.6-28.7: + 25 CALL CALL-NAME USING BY VALUE LENGTH OF SOME-FILL + 26 + 27 MOVE -42 TO ADR-BUFFER + 28 > >> IF P64 DEFINED +---- ^ + 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER + 30 CALL "callee64" USING BY VALUE BIG-BUFF +>> Error: Unexpected indicator: `>' + +run_extensions.at-2060-caller.cob:31.6-31.7: + 28 >> IF P64 DEFINED + 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER + 30 CALL "callee64" USING BY VALUE BIG-BUFF + 31 > >> ELSE +---- ^ + 32 CALL "callee32" USING BY VALUE ADR-BUFFER + 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF +>> Error: Unexpected indicator: `>' + +run_extensions.at-2060-caller.cob:34.6-34.7: + 31 >> ELSE + 32 CALL "callee32" USING BY VALUE ADR-BUFFER + 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF + 34 > >> END-IF +---- ^ + 35 + 36 GOBACK. +>> Error: Unexpected indicator: `>' + +run_extensions.at-2060-caller.cob:14.7-14.8: + 11 77 BIG-BUFF USAGE COMP-5 PIC S9(18) VALUE 99999999999999. + 12 PROCEDURE DIVISION CHAINING CALL-NAME. + 13 + 14 > >> IF P64 DEFINED +---- ^ + 15 MOVE "callee64" TO CALL-NAME + 16 >> ELSE +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:16.7-16.8: + 13 + 14 >> IF P64 DEFINED + 15 MOVE "callee64" TO CALL-NAME + 16 > >> ELSE +---- ^ + 17 MOVE "callee32" TO CALL-NAME + 18 >> END-IF +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:18.7-18.8: + 15 MOVE "callee64" TO CALL-NAME + 16 >> ELSE + 17 MOVE "callee32" TO CALL-NAME + 18 > >> END-IF +---- ^ + 19 + 20 MOVE 12345678 TO ADR-BUFFER +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:25.41-25.47: + 22 + 23 CALL CALL-NAME USING BY VALUE ADR-BUFFER + 24 + 25 > CALL CALL-NAME USING BY VALUE LENGTH OF SOME-FILL +---- ^^^^^^ + 26 + 27 MOVE -42 TO ADR-BUFFER +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:28.7-28.8: + 25 CALL CALL-NAME USING BY VALUE LENGTH OF SOME-FILL + 26 + 27 MOVE -42 TO ADR-BUFFER + 28 > >> IF P64 DEFINED +---- ^ + 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER + 30 CALL "callee64" USING BY VALUE BIG-BUFF +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:29.42-29.46: + 26 + 27 MOVE -42 TO ADR-BUFFER + 28 >> IF P64 DEFINED + 29 > CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER +---- ^^^^ + 30 CALL "callee64" USING BY VALUE BIG-BUFF + 31 >> ELSE +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:31.7-31.8: + 28 >> IF P64 DEFINED + 29 CALL "callee32" USING BY VALUE SIZE 4 ADR-BUFFER + 30 CALL "callee64" USING BY VALUE BIG-BUFF + 31 > >> ELSE +---- ^ + 32 CALL "callee32" USING BY VALUE ADR-BUFFER + 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:33.42-33.46: + 30 CALL "callee64" USING BY VALUE BIG-BUFF + 31 >> ELSE + 32 CALL "callee32" USING BY VALUE ADR-BUFFER + 33 > CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF +---- ^^^^ + 34 >> END-IF + 35 +>> Error: Invalid syntax + +run_extensions.at-2060-caller.cob:34.7-34.8: + 31 >> ELSE + 32 CALL "callee32" USING BY VALUE ADR-BUFFER + 33 CALL "callee64" USING BY VALUE SIZE 8 BIG-BUFF + 34 > >> END-IF +---- ^ + 35 + 36 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2118:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2143:0 +run_extensions.at-2143-prog.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "caller". +---- ^ + 4 PROCEDURE DIVISION. + 5 CALL "callee" +>> Hint: Missing + +run_extensions.at-2143-prog.cob:3.24-3.32: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "caller". +---- ^^^^^^^^ + 4 PROCEDURE DIVISION. + 5 CALL "callee" +>> Error: Invalid syntax + +run_extensions.at-2143-prog.cob:8.18: + 5 CALL "callee" + 6 END-CALL. + 7 STOP RUN. + 8 > PROGRAM-ID. "callee". +---- ^ + 9 PROCEDURE DIVISION. + 10 EXIT PROGRAM. +>> Hint: Missing + +run_extensions.at-2143-prog.cob:8.24-8.32: + 5 CALL "callee" + 6 END-CALL. + 7 STOP RUN. + 8 > PROGRAM-ID. "callee". +---- ^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 EXIT PROGRAM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2166:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2213:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2210:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2279:0 +run_extensions.at-2279-prog.cob:10.18: + 7 STOP RUN. + 8 + 9 IDENTIFICATION DIVISION. + 10 > PROGRAM-ID. nested. +---- ^ + 11 PROCEDURE DIVISION. + 12 DISPLAY tally WITH NO ADVANCING. +>> Hint: Missing + +run_extensions.at-2279-prog.cob:10.24-10.30: + 7 STOP RUN. + 8 + 9 IDENTIFICATION DIVISION. + 10 > PROGRAM-ID. nested. +---- ^^^^^^ + 11 PROCEDURE DIVISION. + 12 DISPLAY tally WITH NO ADVANCING. +>> Error: Invalid syntax + +run_extensions.at-2279-prog.cob:14.18: + 11 PROCEDURE DIVISION. + 12 DISPLAY tally WITH NO ADVANCING. + 13 GOBACK. + 14 > END PROGRAM nested. +---- ^ +>> Hint: Missing + +run_extensions.at-2279-prog.cob:14.24-14.30: + 11 PROCEDURE DIVISION. + 12 DISPLAY tally WITH NO ADVANCING. + 13 GOBACK. + 14 > END PROGRAM nested. +---- ^^^^^^ +>> Error: Invalid syntax + +run_extensions.at-2279-prog.cob:14.31: + 11 PROCEDURE DIVISION. + 12 DISPLAY tally WITH NO ADVANCING. + 13 GOBACK. + 14 > END PROGRAM nested. +---- ^ +>> Hint: Missing END PROGRAM . + +run_extensions.at-2279-prog.cob:15.0: + 12 DISPLAY tally WITH NO ADVANCING. + 13 GOBACK. + 14 END PROGRAM nested. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2306:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2366:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2365:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2486:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2491:0 +run_extensions.at-2491-init.cob:11.32: + 8 03 ABCD PIC X(4). + 9 03 NUM PIC 9 VALUE 7. + 10 77 NUM2 PIC 99 VALUE 2. + 11 > PROCEDURE DIVISION +---- ^ + 12 CHAINING VAR. + 13 DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING +>> Hint: Missing . + +run_extensions.at-2491-init.cob:12.24-12.32: + 9 03 NUM PIC 9 VALUE 7. + 10 77 NUM2 PIC 99 VALUE 2. + 11 PROCEDURE DIVISION + 12 > CHAINING VAR. +---- ^^^^^^^^ + 13 DISPLAY '-' VAR NUM2 '-' WITH NO ADVANCING + 14 END-DISPLAY +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2471:0 +run_extensions.at-2471-prog.cob:9.32: + 6 01 X PIC X. + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 > PROCEDURE DIVISION +---- ^ + 10 CHAINING X ABCD NUM. + 11 IF X NOT = "X" OR +>> Hint: Missing . + +run_extensions.at-2471-prog.cob:10.24-10.32: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^^^^^^^^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Error: Invalid syntax + +run_extensions.at-2471-prog.cob:10.34: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Hint: Missing . + +run_extensions.at-2471-prog.cob:10.35-10.39: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^^^^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Warning: Invalid syntax + +run_extensions.at-2471-prog.cob:10.39: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Hint: Missing . + +run_extensions.at-2471-prog.cob:10.40-10.43: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^^^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2479:0 +run_extensions.at-2479-prog2.cob:10.32: + 7 03 X PIC X VALUE 'a'. + 8 03 ABCD PIC X(4). + 9 03 NUM PIC 9 VALUE 7. + 10 > PROCEDURE DIVISION +---- ^ + 11 CHAINING VAR. + 12 DISPLAY '-' VAR '-' WITH NO ADVANCING +>> Hint: Missing . + +run_extensions.at-2479-prog2.cob:11.24-11.32: + 8 03 ABCD PIC X(4). + 9 03 NUM PIC 9 VALUE 7. + 10 PROCEDURE DIVISION + 11 > CHAINING VAR. +---- ^^^^^^^^ + 12 DISPLAY '-' VAR '-' WITH NO ADVANCING + 13 END-DISPLAY +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2483:0 +run_extensions.at-2483-prog3.cob:9.32: + 6 01 X PIC X. + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 > PROCEDURE DIVISION +---- ^ + 10 CHAINING X ABCD NUM. + 11 IF X NOT = "X" OR +>> Hint: Missing . + +run_extensions.at-2483-prog3.cob:10.24-10.32: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^^^^^^^^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Error: Invalid syntax + +run_extensions.at-2483-prog3.cob:10.34: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Hint: Missing . + +run_extensions.at-2483-prog3.cob:10.35-10.39: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^^^^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Warning: Invalid syntax + +run_extensions.at-2483-prog3.cob:10.39: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Hint: Missing . + +run_extensions.at-2483-prog3.cob:10.40-10.43: + 7 01 ABCD PIC X(4). + 8 01 NUM PIC 9 VALUE 7. + 9 PROCEDURE DIVISION + 10 > CHAINING X ABCD NUM. +---- ^^^ + 11 IF X NOT = "X" OR + 12 ABCD NOT = "ABCD" +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2538:0 +run_extensions.at-2538-prog1.cob:9.19: + 6 77 RET PIC 99 USAGE DISPLAY. + 7 PROCEDURE DIVISION. + 8 MOVE 11 TO RET + 9 > STOP RUN RETURNING RET. +---- ^ +>> Hint: Missing . + +run_extensions.at-2538-prog1.cob:9.20-9.29: + 6 77 RET PIC 99 USAGE DISPLAY. + 7 PROCEDURE DIVISION. + 8 MOVE 11 TO RET + 9 > STOP RUN RETURNING RET. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2541:0 +run_extensions.at-2541-prog2.cob:9.19: + 6 77 RET PIC 99 USAGE PACKED-DECIMAL. + 7 PROCEDURE DIVISION. + 8 MOVE 22 TO RET + 9 > STOP RUN GIVING RET. +---- ^ +>> Hint: Missing . + +run_extensions.at-2541-prog2.cob:9.20-9.26: + 6 77 RET PIC 99 USAGE PACKED-DECIMAL. + 7 PROCEDURE DIVISION. + 8 MOVE 22 TO RET + 9 > STOP RUN GIVING RET. +---- ^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2544:0 +run_extensions.at-2544-prog3.cob:7.19: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > STOP RUN 33. +---- ^ +>> Hint: Missing . + +run_extensions.at-2544-prog3.cob:7.20-7.22: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > STOP RUN 33. +---- ^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2547:0 +run_extensions.at-2547-prog4.cob:5.19: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog4. + 4 PROCEDURE DIVISION. + 5 > STOP RUN RETURNING 44. +---- ^ +>> Hint: Missing . + +run_extensions.at-2547-prog4.cob:5.20-5.29: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog4. + 4 PROCEDURE DIVISION. + 5 > STOP RUN RETURNING 44. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2595:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2595:0 +run_extensions.at-2595-prog1.cob:5.24-5.33: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog1. + 4 PROCEDURE DIVISION. + 5 > EXIT PROGRAM RETURNING -1. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2595:0 +run_extensions.at-2595-prog2.cob:5.17: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog2. + 4 PROCEDURE DIVISION. + 5 > GOBACK GIVING 2. +---- ^ +>> Hint: Missing . + +run_extensions.at-2595-prog2.cob:5.18-5.24: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog2. + 4 PROCEDURE DIVISION. + 5 > GOBACK GIVING 2. +---- ^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2638:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2639:0 +run_extensions.at-2639-hello.cob:14.7-14.12: + 11 PROCEDURE DIVISION USING X. + 12 DISPLAY MSG-HELLO X "!". + 13 * verifies that this does not generate an exception + 14 > ENTRY "unused" USING Y. +---- ^^^^^ + 15 EXIT PROGRAM. + 16 +>> Error: Invalid syntax + +run_extensions.at-2639-hello.cob:17.7-17.12: + 14 ENTRY "unused" USING Y. + 15 EXIT PROGRAM. + 16 + 17 > ENTRY "bye" USING Y. +---- ^^^^^ + 18 DISPLAY MSG-BYE Y "!". + 19 EXIT PROGRAM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2700:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2699:0 +run_extensions.at-2699-prog.cob:9.30: + 6 FILE-CONTROL. + 7 SELECT TEST-FILE ASSIGN KEYBOARD + 8 ORGANIZATION IS LINE SEQUENTIAL. + 9 > SELECT TEST-OUT ASSIGN DISPLAY +---- ^ + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 DATA DIVISION. +>> Hint: Missing USING + +run_extensions.at-2699-prog.cob:9.32-9.39: + 6 FILE-CONTROL. + 7 SELECT TEST-FILE ASSIGN KEYBOARD + 8 ORGANIZATION IS LINE SEQUENTIAL. + 9 > SELECT TEST-OUT ASSIGN DISPLAY +---- ^^^^^^^ + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2761:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2760:0 +run_extensions.at-2760-prog.cob:9.30: + 6 FILE-CONTROL. + 7 SELECT TEST-FILE ASSIGN KEYBOARD + 8 ORGANIZATION IS LINE SEQUENTIAL. + 9 > SELECT TEST-OUT ASSIGN DISPLAY +---- ^ + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 SELECT SORT-FILE. +>> Hint: Missing USING + +run_extensions.at-2760-prog.cob:9.32-9.39: + 6 FILE-CONTROL. + 7 SELECT TEST-FILE ASSIGN KEYBOARD + 8 ORGANIZATION IS LINE SEQUENTIAL. + 9 > SELECT TEST-OUT ASSIGN DISPLAY +---- ^^^^^^^ + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 SELECT SORT-FILE. +>> Error: Invalid syntax + +run_extensions.at-2760-prog.cob:11.23-11.24: + 8 ORGANIZATION IS LINE SEQUENTIAL. + 9 SELECT TEST-OUT ASSIGN DISPLAY + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 > SELECT SORT-FILE. +---- ^ + 12 DATA DIVISION. + 13 FILE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2809:0 +run_extensions.at-2809-prog.cob:12.24: + 9 PROCEDURE DIVISION. + 10 DISPLAY "TEST_ENV" UPON ENVIRONMENT-NAME + 11 END-DISPLAY. + 12 > ACCEPT X FROM ENVIRONMENT-VALUE +---- ^ + 13 END-ACCEPT. + 14 DISPLAY "(" X ")" +>> Hint: Missing + +run_extensions.at-2809-prog.cob:12.25-12.42: + 9 PROCEDURE DIVISION. + 10 DISPLAY "TEST_ENV" UPON ENVIRONMENT-NAME + 11 END-DISPLAY. + 12 > ACCEPT X FROM ENVIRONMENT-VALUE +---- ^^^^^^^^^^^^^^^^^ + 13 END-ACCEPT. + 14 DISPLAY "(" X ")" +>> Error: Invalid syntax + +run_extensions.at-2809-prog.cob:18.24: + 15 END-DISPLAY. + 16 DISPLAY "RXW" UPON ENVIRONMENT-VALUE + 17 END-DISPLAY. + 18 > ACCEPT X FROM ENVIRONMENT-VALUE +---- ^ + 19 END-ACCEPT. + 20 DISPLAY "(" X ")" +>> Hint: Missing + +run_extensions.at-2809-prog.cob:18.25-18.42: + 15 END-DISPLAY. + 16 DISPLAY "RXW" UPON ENVIRONMENT-VALUE + 17 END-DISPLAY. + 18 > ACCEPT X FROM ENVIRONMENT-VALUE +---- ^^^^^^^^^^^^^^^^^ + 19 END-ACCEPT. + 20 DISPLAY "(" X ")" +>> Error: Invalid syntax + +run_extensions.at-2809-prog.cob:22.24: + 19 END-ACCEPT. + 20 DISPLAY "(" X ")" + 21 END-DISPLAY. + 22 > ACCEPT Y FROM ARGUMENT-VALUE +---- ^ + 23 END-ACCEPT. + 24 DISPLAY "(" Y ")" +>> Hint: Missing + +run_extensions.at-2809-prog.cob:22.25-22.39: + 19 END-ACCEPT. + 20 DISPLAY "(" X ")" + 21 END-DISPLAY. + 22 > ACCEPT Y FROM ARGUMENT-VALUE +---- ^^^^^^^^^^^^^^ + 23 END-ACCEPT. + 24 DISPLAY "(" Y ")" +>> Error: Invalid syntax + +run_extensions.at-2809-prog.cob:26.24: + 23 END-ACCEPT. + 24 DISPLAY "(" Y ")" + 25 END-DISPLAY. + 26 > ACCEPT Z FROM ARGUMENT-NUMBER +---- ^ + 27 END-ACCEPT. + 28 DISPLAY "(" Z ")" +>> Hint: Missing + +run_extensions.at-2809-prog.cob:26.25-26.40: + 23 END-ACCEPT. + 24 DISPLAY "(" Y ")" + 25 END-DISPLAY. + 26 > ACCEPT Z FROM ARGUMENT-NUMBER +---- ^^^^^^^^^^^^^^^ + 27 END-ACCEPT. + 28 DISPLAY "(" Z ")" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2835:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2861:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2885:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:2998:0 +run_extensions.at-2998-prog.cob:11.11-11.17: + 8 ON IS SWIT1-ON + 9 OFF IS SWIT1-OFF + 10 . + 11 > SWITCH B IS SWITCH-B +---- ^^^^^^ + 12 ON IS SWIT2-ON + 13 OFF IS SWIT2-OFF +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3066:0 +run_extensions.at-3066-prog.cob:36.19-36.25: + 33 10 SECOND-VARIANT-B REDEFINES SECOND-HEADER. + 34 20 PART-B-SECOND PIC X(3879). + 35 PROCEDURE DIVISION. + 36 > MOVE LENGTH OF XMAIN TO Z. +---- ^^^^^^ + 37 IF Z NOT = 8 + 38 DISPLAY "Test 1 " Z. +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:39.19-39.25: + 36 MOVE LENGTH OF XMAIN TO Z. + 37 IF Z NOT = 8 + 38 DISPLAY "Test 1 " Z. + 39 > MOVE LENGTH OF XMAINRED TO Z. +---- ^^^^^^ + 40 IF Z NOT = 9 + 41 DISPLAY "Test 2 " Z. +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:42.19-42.25: + 39 MOVE LENGTH OF XMAINRED TO Z. + 40 IF Z NOT = 9 + 41 DISPLAY "Test 2 " Z. + 42 > MOVE LENGTH OF XMAIN03 TO Z. +---- ^^^^^^ + 43 IF Z NOT = 5 + 44 DISPLAY "Test 3 " Z. +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:45.19-45.25: + 42 MOVE LENGTH OF XMAIN03 TO Z. + 43 IF Z NOT = 5 + 44 DISPLAY "Test 3 " Z. + 45 > MOVE LENGTH OF XMAIN0501 TO Z. +---- ^^^^^^ + 46 IF Z NOT = 4 + 47 DISPLAY "Test 4 " Z. +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:48.19-48.25: + 45 MOVE LENGTH OF XMAIN0501 TO Z. + 46 IF Z NOT = 4 + 47 DISPLAY "Test 4 " Z. + 48 > MOVE LENGTH OF XMAIN0502 TO Z. +---- ^^^^^^ + 49 IF Z NOT = 5 + 50 DISPLAY "Test 5 " Z. +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:51.14-51.20: + 48 MOVE LENGTH OF XMAIN0502 TO Z. + 49 IF Z NOT = 5 + 50 DISPLAY "Test 5 " Z. + 51 > IF LENGTH OF USE-FIRST NOT = 33211 +---- ^^^^^^ + 52 DISPLAY LENGTH OF USE-FIRST END-DISPLAY. + 53 IF LENGTH OF USE-SECOND NOT = 27241 +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:52.22-52.28: + 49 IF Z NOT = 5 + 50 DISPLAY "Test 5 " Z. + 51 IF LENGTH OF USE-FIRST NOT = 33211 + 52 > DISPLAY LENGTH OF USE-FIRST END-DISPLAY. +---- ^^^^^^ + 53 IF LENGTH OF USE-SECOND NOT = 27241 + 54 DISPLAY LENGTH OF USE-SECOND END-DISPLAY. +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:53.14-53.20: + 50 DISPLAY "Test 5 " Z. + 51 IF LENGTH OF USE-FIRST NOT = 33211 + 52 DISPLAY LENGTH OF USE-FIRST END-DISPLAY. + 53 > IF LENGTH OF USE-SECOND NOT = 27241 +---- ^^^^^^ + 54 DISPLAY LENGTH OF USE-SECOND END-DISPLAY. + 55 STOP RUN. +>> Error: Invalid syntax + +run_extensions.at-3066-prog.cob:54.22-54.28: + 51 IF LENGTH OF USE-FIRST NOT = 33211 + 52 DISPLAY LENGTH OF USE-FIRST END-DISPLAY. + 53 IF LENGTH OF USE-SECOND NOT = 27241 + 54 > DISPLAY LENGTH OF USE-SECOND END-DISPLAY. +---- ^^^^^^ + 55 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3092:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3117:0 +run_extensions.at-3117-prog.cob:7.11-7.15: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 TERMINAL PIC XX VALUE "OK". + 7 > 01 SEND PIC XX VALUE "OK". +---- ^^^^ + 8 PROCEDURE DIVISION. + 9 DISPLAY TERMINAL SEND. +>> Error: Invalid syntax + +run_extensions.at-3117-prog.cob:9.32: + 6 01 TERMINAL PIC XX VALUE "OK". + 7 01 SEND PIC XX VALUE "OK". + 8 PROCEDURE DIVISION. + 9 > DISPLAY TERMINAL SEND. +---- ^ + 10 STOP RUN. +>> Hint: Missing FROM + +run_extensions.at-3117-prog.cob:9.32-9.33: + 6 01 TERMINAL PIC XX VALUE "OK". + 7 01 SEND PIC XX VALUE "OK". + 8 PROCEDURE DIVISION. + 9 > DISPLAY TERMINAL SEND. +---- ^ + 10 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3162:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3238:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3237:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3240:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3283:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3282:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3329:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3328:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3354:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3383:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3403:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3429:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3454:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3479:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3506:0 +run_extensions.at-3506-prog.cob:10.25-10.31: + 7 01 Z PIC X(4) VALUE X"01010101". + 8 PROCEDURE DIVISION. + 9 CALL "CBL_OR" USING X Z + 10 > BY VALUE LENGTH OF Z +---- ^^^^^^ + 11 END-CALL. + 12 IF Z NOT = "1111" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3533:0 +run_extensions.at-3533-prog.cob:10.25-10.31: + 7 01 Z PIC X(4) VALUE X"05050505". + 8 PROCEDURE DIVISION. + 9 CALL "CBL_NOR" USING X Z + 10 > BY VALUE LENGTH OF Z +---- ^^^^^^ + 11 END-CALL. + 12 IF Z NOT = X"F8F8F8F8" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3560:0 +run_extensions.at-3560-prog.cob:10.25-10.31: + 7 01 Z PIC X(4) VALUE "5555". + 8 PROCEDURE DIVISION. + 9 CALL "CBL_AND" USING X Z + 10 > BY VALUE LENGTH OF Z +---- ^^^^^^ + 11 END-CALL. + 12 IF Z NOT = "1111" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3587:0 +run_extensions.at-3587-prog.cob:10.25-10.31: + 7 01 Z PIC X(4) VALUE X"02020202". + 8 PROCEDURE DIVISION. + 9 CALL "CBL_XOR" USING X Z + 10 > BY VALUE LENGTH OF Z +---- ^^^^^^ + 11 END-CALL. + 12 IF Z NOT = "1111" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3614:0 +run_extensions.at-3614-prog.cob:10.25-10.31: + 7 01 Z PIC X(4) VALUE "1111". + 8 PROCEDURE DIVISION. + 9 CALL "CBL_IMP" USING X Z + 10 > BY VALUE LENGTH OF Z +---- ^^^^^^ + 11 END-CALL. + 12 IF Z NOT = "1111" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3641:0 +run_extensions.at-3641-prog.cob:10.25-10.31: + 7 01 Z PIC X(4) VALUE LOW-VALUE. + 8 PROCEDURE DIVISION. + 9 CALL "CBL_NIMP" USING X Z + 10 > BY VALUE LENGTH OF Z +---- ^^^^^^ + 11 END-CALL. + 12 IF Z NOT = "1111" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3667:0 +run_extensions.at-3667-prog.cob:9.25-9.31: + 6 01 X PIC X(4) VALUE HIGH-VALUE. + 7 PROCEDURE DIVISION. + 8 CALL "CBL_NOT" USING X + 9 > BY VALUE LENGTH OF X +---- ^^^^^^ + 10 END-CALL. + 11 IF X NOT = LOW-VALUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:3694:0 +run_extensions.at-3694-prog.cob:10.25-10.31: + 7 01 Z PIC X(4) VALUE "1111". + 8 PROCEDURE DIVISION. + 9 CALL "CBL_EQ" USING X Z + 10 > BY VALUE LENGTH OF Z +---- ^^^^^^ + 11 END-CALL. + 12 IF Z NOT = "1111" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4117:0 +run_extensions.at-4117-prog.cob:11.53: + 8 05 OPTIONRECORD OCCURS 2 TIMES. + 9 10 ONAME PIC X(25). + 10 10 HAS-VALUE PIC 9. + 11 > 10 VALPOINT POINTER VALUE NULL. +---- ^ + 12 10 VAL PIC X(4). + 13 +>> Hint: Missing + +run_extensions.at-4117-prog.cob:11.54-11.58: + 8 05 OPTIONRECORD OCCURS 2 TIMES. + 9 10 ONAME PIC X(25). + 10 10 HAS-VALUE PIC 9. + 11 > 10 VALPOINT POINTER VALUE NULL. +---- ^^^^ + 12 10 VAL PIC X(4). + 13 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4119:0 +run_extensions.at-4119-prog2.cob:14.53: + 11 05 OPTIONRECORD OCCURS 3 TIMES. + 12 10 ONAME PIC X(25). + 13 10 HAS-VALUE PIC 9. + 14 > 10 VALPOINT POINTER VALUE NULL. +---- ^ + 15 10 VAL PIC X(4). + 16 +>> Hint: Missing + +run_extensions.at-4119-prog2.cob:14.54-14.58: + 11 05 OPTIONRECORD OCCURS 3 TIMES. + 12 10 ONAME PIC X(25). + 13 10 HAS-VALUE PIC 9. + 14 > 10 VALPOINT POINTER VALUE NULL. +---- ^^^^ + 15 10 VAL PIC X(4). + 16 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4123:0 +run_extensions.at-4123-prog3.cob:12.53: + 9 05 OPTIONRECORD OCCURS 3 TIMES. + 10 10 ONAME PIC X(25). + 11 10 HAS-VALUE PIC 9. + 12 > 10 VALPOINT POINTER VALUE NULL. +---- ^ + 13 10 VAL PIC X(4). + 14 01 LONGIND PIC 99. +>> Hint: Missing + +run_extensions.at-4123-prog3.cob:12.54-12.58: + 9 05 OPTIONRECORD OCCURS 3 TIMES. + 10 10 ONAME PIC X(25). + 11 10 HAS-VALUE PIC 9. + 12 > 10 VALPOINT POINTER VALUE NULL. +---- ^^^^ + 13 10 VAL PIC X(4). + 14 01 LONGIND PIC 99. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4125:0 +run_extensions.at-4125-prog4.cob:12.53: + 9 05 OPTIONRECORD OCCURS 3 TIMES. + 10 10 ONAME PIC X(25). + 11 10 HAS-VALUE PIC 9. + 12 > 10 VALPOINT POINTER VALUE NULL. +---- ^ + 13 10 VAL PIC X(4). + 14 01 LONGIND PIC 99. +>> Hint: Missing + +run_extensions.at-4125-prog4.cob:12.54-12.58: + 9 05 OPTIONRECORD OCCURS 3 TIMES. + 10 10 ONAME PIC X(25). + 11 10 HAS-VALUE PIC 9. + 12 > 10 VALPOINT POINTER VALUE NULL. +---- ^^^^ + 13 10 VAL PIC X(4). + 14 01 LONGIND PIC 99. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4129:0 +run_extensions.at-4129-prog5.cob:12.53: + 9 05 OPTIONRECORD OCCURS 2 TIMES. + 10 10 ONAME PIC X(45). + 11 10 HAS-VALUE PIC 9. + 12 > 10 VALPOINT POINTER VALUE NULL. +---- ^ + 13 10 VAL PIC X(4). + 14 01 LONGIND PIC 99. +>> Hint: Missing + +run_extensions.at-4129-prog5.cob:12.54-12.58: + 9 05 OPTIONRECORD OCCURS 2 TIMES. + 10 10 ONAME PIC X(45). + 11 10 HAS-VALUE PIC 9. + 12 > 10 VALPOINT POINTER VALUE NULL. +---- ^^^^ + 13 10 VAL PIC X(4). + 14 01 LONGIND PIC 99. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4192:0 +run_extensions.at-4192-prog.cob:16.25: + 13 WHEN ZERO + 14 PERFORM CHILD-CODE + 15 WHEN -1 + 16 > STOP RUN RETURNING 77 *> skip test +---- ^ + 17 WHEN OTHER + 18 PERFORM PARENT-CODE +>> Hint: Missing . + +run_extensions.at-4192-prog.cob:16.26-16.35: + 13 WHEN ZERO + 14 PERFORM CHILD-CODE + 15 WHEN -1 + 16 > STOP RUN RETURNING 77 *> skip test +---- ^^^^^^^^^ + 17 WHEN OTHER + 18 PERFORM PARENT-CODE +>> Error: Invalid syntax + +run_extensions.at-4192-prog.cob:16.38: + 13 WHEN ZERO + 14 PERFORM CHILD-CODE + 15 WHEN -1 + 16 > STOP RUN RETURNING 77 *> skip test +---- ^ + 17 WHEN OTHER + 18 PERFORM PARENT-CODE +>> Hint: Missing . + +run_extensions.at-4192-prog.cob:17.14-17.18: + 14 PERFORM CHILD-CODE + 15 WHEN -1 + 16 STOP RUN RETURNING 77 *> skip test + 17 > WHEN OTHER +---- ^^^^ + 18 PERFORM PARENT-CODE + 19 END-EVALUATE +>> Warning: Invalid syntax + +run_extensions.at-4192-prog.cob:19.11-19.23: + 16 STOP RUN RETURNING 77 *> skip test + 17 WHEN OTHER + 18 PERFORM PARENT-CODE + 19 > END-EVALUATE +---- ^^^^^^^^^^^^ + 20 + 21 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4247:0 +run_extensions.at-4247-prog.cob:15.25: + 12 WHEN ZERO + 13 PERFORM CHILD-CODE + 14 WHEN -1 + 15 > STOP RUN RETURNING 77 *> skip test +---- ^ + 16 WHEN OTHER + 17 PERFORM PARENT-CODE +>> Hint: Missing . + +run_extensions.at-4247-prog.cob:15.26-15.35: + 12 WHEN ZERO + 13 PERFORM CHILD-CODE + 14 WHEN -1 + 15 > STOP RUN RETURNING 77 *> skip test +---- ^^^^^^^^^ + 16 WHEN OTHER + 17 PERFORM PARENT-CODE +>> Error: Invalid syntax + +run_extensions.at-4247-prog.cob:15.38: + 12 WHEN ZERO + 13 PERFORM CHILD-CODE + 14 WHEN -1 + 15 > STOP RUN RETURNING 77 *> skip test +---- ^ + 16 WHEN OTHER + 17 PERFORM PARENT-CODE +>> Hint: Missing . + +run_extensions.at-4247-prog.cob:16.14-16.18: + 13 PERFORM CHILD-CODE + 14 WHEN -1 + 15 STOP RUN RETURNING 77 *> skip test + 16 > WHEN OTHER +---- ^^^^ + 17 PERFORM PARENT-CODE + 18 END-EVALUATE. +>> Warning: Invalid syntax + +run_extensions.at-4247-prog.cob:18.11-18.23: + 15 STOP RUN RETURNING 77 *> skip test + 16 WHEN OTHER + 17 PERFORM PARENT-CODE + 18 > END-EVALUATE. +---- ^^^^^^^^^^^^ + 19 + 20 STOP RUN. +>> Error: Invalid syntax + +run_extensions.at-4247-prog.cob:34.22: + 31 END-CALL + 32 MOVE 0 TO RETURN-CODE + 33 IF WAIT-STS = -1 + 34 > STOP RUN RETURNING 77 *> skip test +---- ^ + 35 END-IF + 36 DISPLAY "Child ended status " WAIT-STS +>> Hint: Missing . + +run_extensions.at-4247-prog.cob:34.23-34.32: + 31 END-CALL + 32 MOVE 0 TO RETURN-CODE + 33 IF WAIT-STS = -1 + 34 > STOP RUN RETURNING 77 *> skip test +---- ^^^^^^^^^ + 35 END-IF + 36 DISPLAY "Child ended status " WAIT-STS +>> Error: Invalid syntax + +run_extensions.at-4247-prog.cob:34.35: + 31 END-CALL + 32 MOVE 0 TO RETURN-CODE + 33 IF WAIT-STS = -1 + 34 > STOP RUN RETURNING 77 *> skip test +---- ^ + 35 END-IF + 36 DISPLAY "Child ended status " WAIT-STS +>> Hint: Missing . + +run_extensions.at-4247-prog.cob:35.11-35.17: + 32 MOVE 0 TO RETURN-CODE + 33 IF WAIT-STS = -1 + 34 STOP RUN RETURNING 77 *> skip test + 35 > END-IF +---- ^^^^^^ + 36 DISPLAY "Child ended status " WAIT-STS + 37 END-DISPLAY. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4381:0 +run_extensions.at-4381-prog.cob:18.24: + 15 01 TZNAME USAGE POINTER. + 16 01 TZNAMES USAGE POINTER BASED. + 17 05 TZS USAGE POINTER OCCURS 2 TIMES. + 18 > 01 TIMEZONE USAGE BINARY-C-LONG. +---- ^ + 19 01 DAYLIGHT USAGE BINARY-LONG. + 20 01 EXTPTR USAGE POINTER. *> only for the check, otherwise unused +>> Hint: Missing BINARY + +run_extensions.at-4381-prog.cob:18.25-18.38: + 15 01 TZNAME USAGE POINTER. + 16 01 TZNAMES USAGE POINTER BASED. + 17 05 TZS USAGE POINTER OCCURS 2 TIMES. + 18 > 01 TIMEZONE USAGE BINARY-C-LONG. +---- ^^^^^^^^^^^^^ + 19 01 DAYLIGHT USAGE BINARY-LONG. + 20 01 EXTPTR USAGE POINTER. *> only for the check, otherwise unused +>> Error: Invalid syntax + +run_extensions.at-4381-prog.cob:67.14: + 64 DISPLAY "UNK CELL " CELL + 65 END-IF + 66 + 67 > SET ENVIRONMENT "TZ" TO "PST8PDT" +---- ^ + 68 CALL "tzset" RETURNING OMITTED + 69 ON EXCEPTION CONTINUE +>> Hint: Missing rnell_rev___anonymous_88_ + +run_extensions.at-4381-prog.cob:67.15-67.26: + 64 DISPLAY "UNK CELL " CELL + 65 END-IF + 66 + 67 > SET ENVIRONMENT "TZ" TO "PST8PDT" +---- ^^^^^^^^^^^ + 68 CALL "tzset" RETURNING OMITTED + 69 ON EXCEPTION CONTINUE +>> Error: Invalid syntax + +run_extensions.at-4381-prog.cob:68.33: + 65 END-IF + 66 + 67 SET ENVIRONMENT "TZ" TO "PST8PDT" + 68 > CALL "tzset" RETURNING OMITTED +---- ^ + 69 ON EXCEPTION CONTINUE + 70 END-CALL +>> Hint: Missing + +run_extensions.at-4381-prog.cob:68.34-68.41: + 65 END-IF + 66 + 67 SET ENVIRONMENT "TZ" TO "PST8PDT" + 68 > CALL "tzset" RETURNING OMITTED +---- ^^^^^^^ + 69 ON EXCEPTION CONTINUE + 70 END-CALL +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4379:0 +run_extensions.at-4379-test_errno.c:7.6-7.7: + 4 + 5 #include + 6 + 7 > COB_EXT_EXPORT int +---- ^ + 8 test_errno(void) + 9 { +>> Error: Unexpected indicator: `T' + +run_extensions.at-4379-test_errno.c:8.6-8.7: + 5 #include + 6 + 7 COB_EXT_EXPORT int + 8 > test_errno(void) +---- ^ + 9 { + 10 FILE *fail; +>> Error: Unexpected indicator: `r' + +run_extensions.at-4379-test_errno.c:10.6-10.7: + 7 COB_EXT_EXPORT int + 8 test_errno(void) + 9 { + 10 > FILE *fail; +---- ^ + 11 fail = fopen("file-not-to-be-found", "r"); + 12 if (errno != 2) { +>> Error: Unexpected indicator: `L' + +run_extensions.at-4379-test_errno.c:11.6-11.7: + 8 test_errno(void) + 9 { + 10 FILE *fail; + 11 > fail = fopen("file-not-to-be-found", "r"); +---- ^ + 12 if (errno != 2) { + 13 printf("BAD ERRNO %d", errno); +>> Error: Unexpected indicator: `i' + +run_extensions.at-4379-test_errno.c:14.6-14.7: + 11 fail = fopen("file-not-to-be-found", "r"); + 12 if (errno != 2) { + 13 printf("BAD ERRNO %d", errno); + 14 > } else { +---- ^ + 15 if (fail) fclose(fail); + 16 } +>> Error: Unexpected indicator: `e' + +run_extensions.at-4379-test_errno.c:17.6-17.7: + 14 } else { + 15 if (fail) fclose(fail); + 16 } + 17 > return 0; +---- ^ + 18 } +>> Error: Unexpected indicator: `t' + +run_extensions.at-4379-test_errno.c:7.7-7.14: + 4 + 5 #include + 6 + 7 > COB_EXT_EXPORT int +---- ^^^^^^^ + 8 test_errno(void) + 9 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4380:0 +run_extensions.at-4380-test_stdio.c:5.6-5.7: + 2 #include + 3 + 4 #include + 5 > COB_EXT_EXPORT int +---- ^ + 6 test_stdio(FILE *si, FILE *so, FILE *se) + 7 { +>> Error: Unexpected indicator: `T' + +run_extensions.at-4380-test_stdio.c:6.6-6.7: + 3 + 4 #include + 5 COB_EXT_EXPORT int + 6 > test_stdio(FILE *si, FILE *so, FILE *se) +---- ^ + 7 { + 8 if (feof(si)) { +>> Error: Unexpected indicator: `t' + +run_extensions.at-4380-test_stdio.c:11.6-11.7: + 8 if (feof(si)) { + 9 fprintf(se, "BAD STDIN EOF\n"); + 10 } + 11 > fprintf(so, "OUT"); +---- ^ + 12 return fprintf(se, "ERR"); + 13 } +>> Error: Unexpected indicator: `r' + +run_extensions.at-4380-test_stdio.c:12.6-12.7: + 9 fprintf(se, "BAD STDIN EOF\n"); + 10 } + 11 fprintf(so, "OUT"); + 12 > return fprintf(se, "ERR"); +---- ^ + 13 } +>> Error: Unexpected indicator: `t' + +run_extensions.at-4380-test_stdio.c:5.7-5.14: + 2 #include + 3 + 4 #include + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 test_stdio(FILE *si, FILE *so, FILE *se) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4454:0 +run_extensions.at-4454-prog.cob:12.25: + 9 77 chaining-param PIC X(20). + 10 77 chaining-param-2 PIC X(20). + 11 * + 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. +---- ^ + 13 * + 14 main. +>> Hint: Missing . + +run_extensions.at-4454-prog.cob:12.26-12.34: + 9 77 chaining-param PIC X(20). + 10 77 chaining-param-2 PIC X(20). + 11 * + 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. +---- ^^^^^^^^ + 13 * + 14 main. +>> Error: Invalid syntax + +run_extensions.at-4454-prog.cob:12.49: + 9 77 chaining-param PIC X(20). + 10 77 chaining-param-2 PIC X(20). + 11 * + 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. +---- ^ + 13 * + 14 main. +>> Hint: Missing . + +run_extensions.at-4454-prog.cob:12.51-12.67: + 9 77 chaining-param PIC X(20). + 10 77 chaining-param-2 PIC X(20). + 11 * + 12 > PROCEDURE DIVISION CHAINING chaining-param, chaining-param-2. +---- ^^^^^^^^^^^^^^^^ + 13 * + 14 main. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4597:0 +run_extensions.at-4597-prog.cob:7.44: + 4 ENVIRONMENT DIVISION. + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > 77 Ext-Proc-Address USAGE PROCEDURE-POINTER. +---- ^ + 8 77 install-flag USAGE BINARY-CHAR. + 9 88 install-default VALUE 0. +>> Hint: Missing BINARY + +run_extensions.at-4597-prog.cob:7.45-7.62: + 4 ENVIRONMENT DIVISION. + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > 77 Ext-Proc-Address USAGE PROCEDURE-POINTER. +---- ^^^^^^^^^^^^^^^^^ + 8 77 install-flag USAGE BINARY-CHAR. + 9 88 install-default VALUE 0. +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:14.44: + 11 88 query-priority VALUE 2. + 12 88 install-priority VALUE 3. + 13 01 exit-params. + 14 > 02 proc-addrs USAGE PROCEDURE-POINTER. +---- ^ + 15 02 ppriority USAGE BINARY-CHAR. + 16 PROCEDURE DIVISION. +>> Hint: Missing BINARY + +run_extensions.at-4597-prog.cob:14.45-14.62: + 11 88 query-priority VALUE 2. + 12 88 install-priority VALUE 3. + 13 01 exit-params. + 14 > 02 proc-addrs USAGE PROCEDURE-POINTER. +---- ^^^^^^^^^^^^^^^^^ + 15 02 ppriority USAGE BINARY-CHAR. + 16 PROCEDURE DIVISION. +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:21.35-21.40: + 18 DISPLAY 'Program is starting' + 19 *> Do this for the ACU test later + 20 *> CALL 'CBL_EXIT_PROC' USING 0, "ExtProc-internal" + 21 > SET Ext-Proc-Address TO ENTRY 'ExtProc' +---- ^^^^^ + 22 *> GC "simple variant" + 23 CALL 'CBL_EXIT_PROC' USING 0, Ext-Proc-Address +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:27.35-27.40: + 24 *> Support for MF variant, + 25 *> storing but otherwise ignoring the priority for now + 26 SET install-default TO TRUE + 27 > SET proc-addrs TO ENTRY 'ExtProc-internal' +---- ^^^^^ + 28 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params + 29 *> Ensure subsequent CALLs with the same one are seen as error (MF!) +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:30.35-30.40: + 27 SET proc-addrs TO ENTRY 'ExtProc-internal' + 28 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params + 29 *> Ensure subsequent CALLs with the same one are seen as error (MF!) + 30 > SET proc-addrs TO ENTRY 'ExtProc' +---- ^^^^^ + 31 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params + 32 IF RETURN-CODE = 0 +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:41.35-41.40: + 38 IF RETURN-CODE NOT = 0 + 39 DISPLAY 'Unexpected RETURN-CODE with subsequent call, ' + 40 'different priority ' RETURN-CODE. + 41 > SET proc-addrs TO ENTRY 'ExtProc-internal2' +---- ^^^^^ + 42 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params + 43 IF RETURN-CODE NOT = 0 +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:50.7-50.12: + 47 DISPLAY 'Program is stopping' + 48 STOP RUN + 49 . + 50 > ENTRY 'ExtProc-internal2'. +---- ^^^^^ + 51 DISPLAY 'Exit procedure from ' FUNCTION MODULE-ID () + 52 SET Ext-Proc-Address TO ENTRY 'ExtProc' +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:52.35-52.40: + 49 . + 50 ENTRY 'ExtProc-internal2'. + 51 DISPLAY 'Exit procedure from ' FUNCTION MODULE-ID () + 52 > SET Ext-Proc-Address TO ENTRY 'ExtProc' +---- ^^^^^ + 53 SET query-priority TO TRUE + 54 MOVE 0 TO ppriority +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:61.35-61.40: + 58 RETURN-CODE + 59 ELSE IF ppriority NOT = 127 + 60 DISPLAY 'Unexpected priority external ' ppriority. + 61 > SET proc-addrs TO ENTRY 'ExtProc-internal' +---- ^^^^^ + 62 CALL 'CBL_EXIT_PROC' USING install-flag, exit-params + 63 IF RETURN-CODE NOT = ZERO +>> Error: Invalid syntax + +run_extensions.at-4597-prog.cob:80.7-80.12: + 77 MOVE 0 TO RETURN-CODE + 78 GOBACK + 79 . + 80 > ENTRY 'ExtProc-internal'. +---- ^^^^^ + 81 DISPLAY 'should have been removed' + 82 GOBACK +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4672:0 +run_extensions.at-4672-prog.cob:17.35-17.40: + 14 *> Do this for the ACU test, where second call moves top front + 15 *> SET Err-Proc-Address TO ENTRY 'ErrProc-internal' + 16 *> CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 17 > SET Err-Proc-Address TO ENTRY 'ErrProc' +---- ^^^^^ + 18 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 19 SET Err-Proc-Address TO ENTRY 'ErrProc-internal' +>> Error: Invalid syntax + +run_extensions.at-4672-prog.cob:19.35-19.40: + 16 *> CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 17 SET Err-Proc-Address TO ENTRY 'ErrProc' + 18 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 19 > SET Err-Proc-Address TO ENTRY 'ErrProc-internal' +---- ^^^^^ + 20 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 21 *> Ensure subsequent CALLs with the same one are ignored (MF!) +>> Error: Invalid syntax + +run_extensions.at-4672-prog.cob:22.35-22.40: + 19 SET Err-Proc-Address TO ENTRY 'ErrProc-internal' + 20 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 21 *> Ensure subsequent CALLs with the same one are ignored (MF!) + 22 > SET Err-Proc-Address TO ENTRY 'ErrProc' +---- ^^^^^ + 23 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 24 SET Err-Proc-Address TO NULL +>> Error: Invalid syntax + +run_extensions.at-4672-prog.cob:29.7-29.12: + 26 DISPLAY 'Program is stopping' + 27 STOP RUN + 28 . + 29 > ENTRY 'ErrProc-internal' USING Err-Message-From-Runtime. +---- ^^^^^ + 30 DISPLAY 'Error (internal): ' FUNCTION EXCEPTION-LOCATION '-' + 31 DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-' +>> Error: Invalid syntax + +run_extensions.at-4672-prog.cob:36.62-36.66: + 33 *> NOTE: the error message is *EXPLICIT* specified to end with x'00' + 34 MOVE 0 TO Err-Message-Len + 35 INSPECT Err-Message-From-Runtime + 36 > TALLYING Err-Message-Len FOR CHARACTERS BEFORE x'00' +---- ^^^^ + 37 DISPLAY 'Error-Message: ' Err-Message-From-Runtime + 38 (1:Err-Message-Len) +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4767:0 +run_extensions.at-4767-prog.cob:15.35-15.40: + 12 PROCEDURE DIVISION. + 13 S1. + 14 DISPLAY 'Program is starting' + 15 > SET Err-Proc-Address TO ENTRY 'ErrProc' +---- ^^^^^ + 16 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 17 SET Err-Proc-Address TO ENTRY 'ErrProc-internal' +>> Error: Invalid syntax + +run_extensions.at-4767-prog.cob:17.35-17.40: + 14 DISPLAY 'Program is starting' + 15 SET Err-Proc-Address TO ENTRY 'ErrProc' + 16 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 17 > SET Err-Proc-Address TO ENTRY 'ErrProc-internal' +---- ^^^^^ + 18 CALL 'CBL_ERROR_PROC' USING 0, Err-Proc-Address + 19 SET Err-Proc-Address TO NULL +>> Error: Invalid syntax + +run_extensions.at-4767-prog.cob:24.7-24.12: + 21 DISPLAY 'Program is stopping' + 22 STOP RUN + 23 . + 24 > ENTRY 'ErrProc-internal' USING Err-Message-From-Runtime. +---- ^^^^^ + 25 DISPLAY 'Error (interal): ' FUNCTION EXCEPTION-LOCATION '-' + 26 DISPLAY ' ' FUNCTION EXCEPTION-STATEMENT '-' +>> Error: Invalid syntax + +run_extensions.at-4767-prog.cob:31.62-31.66: + 28 *> NOTE: the error message is *EXPLICIT* specified to end with x'00' + 29 MOVE 0 TO Err-Message-Len + 30 INSPECT Err-Message-From-Runtime + 31 > TALLYING Err-Message-Len FOR CHARACTERS BEFORE x'00' +---- ^^^^ + 32 DISPLAY 'Error-Message: ' Err-Message-From-Runtime + 33 (1:Err-Message-Len) +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4796:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4834:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4853:0 +run_extensions.at-4853-progc.cob:12.7-12.25: + 9 IF first-call NOT = SPACE + 10 GOBACK. + 11 MOVE 'X' TO first-call + 12 > COPY "cllprg.cpy". +---- ^^^^^^^^^^^^^^^^^^ + 13 GOBACK. +>> Error: Library `cllprg.cpy' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4892:0 +run_extensions.at-4892-prog.cob:7.7-7.15: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 var1 pic x. + 7 > $DISPLAY MF compile time text # A.0-B;C *> without comment +---- ^^^^^^^^ + 8 01 var2 pic x. + 9 >> DISPLAY some.text-here +>> Error: Invalid syntax + +run_extensions.at-4892-prog.cob:9.7-9.32: + 6 01 var1 pic x. + 7 $DISPLAY MF compile time text # A.0-B;C *> without comment + 8 01 var2 pic x. + 9 > >> DISPLAY some.text-here +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 01 var3 pic x. + 11 PROCEDURE DIVISION. +>> Error: Malformed or unknown compiler directive + +run_extensions.at-4892-prog.cob:12.7-12.34: + 9 >> DISPLAY some.text-here + 10 01 var3 pic x. + 11 PROCEDURE DIVISION. + 12 > >> DISPLAY other text #2 *> comment +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 >> DISPLAY "literal text... *> no comment" + 14 $DISPLAY "MF compile time text" +>> Error: Malformed or unknown compiler directive + +run_extensions.at-4892-prog.cob:13.7-13.51: + 10 01 var3 pic x. + 11 PROCEDURE DIVISION. + 12 >> DISPLAY other text #2 *> comment + 13 > >> DISPLAY "literal text... *> no comment" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 14 $DISPLAY "MF compile time text" + 15 GOBACK. +>> Error: Malformed or unknown compiler directive + +run_extensions.at-4892-prog.cob:14.7-14.15: + 11 PROCEDURE DIVISION. + 12 >> DISPLAY other text #2 *> comment + 13 >> DISPLAY "literal text... *> no comment" + 14 > $DISPLAY "MF compile time text" +---- ^^^^^^^^ + 15 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4921:0 +run_extensions.at-4921-prog.cob:7.7-7.32: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > >>IF ACTIVATE NOT DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 DISPLAY "OK" NO ADVANCING + 9 END-DISPLAY +>> Error: Malformed or unknown compiler directive + +run_extensions.at-4921-prog.cob:10.7-10.13: + 7 >>IF ACTIVATE NOT DEFINED + 8 DISPLAY "OK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELSE +---- ^^^^^^ + 11 DISPLAY "NOTOK" NO ADVANCING + 12 END-DISPLAY +>> Error: Invalid syntax + +run_extensions.at-4921-prog.cob:13.7-13.15: + 10 >>ELSE + 11 DISPLAY "NOTOK" NO ADVANCING + 12 END-DISPLAY + 13 > >>END-IF +---- ^^^^^^^^ + 14 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4946:0 +run_extensions.at-4946-prog.cob:7.7-7.28: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > >>IF ACTIVATE DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^ + 8 DISPLAY "OK" NO ADVANCING + 9 END-DISPLAY +>> Error: Malformed or unknown compiler directive + +run_extensions.at-4946-prog.cob:10.7-10.13: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "OK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELSE +---- ^^^^^^ + 11 DISPLAY "NOTOK" NO ADVANCING + 12 END-DISPLAY +>> Error: Invalid syntax + +run_extensions.at-4946-prog.cob:13.7-13.15: + 10 >>ELSE + 11 DISPLAY "NOTOK" NO ADVANCING + 12 END-DISPLAY + 13 > >>END-IF +---- ^^^^^^^^ + 14 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:4974:0 +run_extensions.at-4974-prog.cob:7.7-7.28: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > >>IF ACTIVATE DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^ + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY +>> Error: Malformed or unknown compiler directive + +run_extensions.at-4974-prog.cob:9.22: + 6 PROCEDURE DIVISION. + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 > END-DISPLAY +---- ^ + 10 >>ELIF ACTIVATE2 DEFINED + 11 DISPLAY "OK" NO ADVANCING +>> Hint: Missing . + +run_extensions.at-4974-prog.cob:10.7-10.13: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^^^^^^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Warning: Invalid syntax + +run_extensions.at-4974-prog.cob:10.23: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Hint: Missing . + +run_extensions.at-4974-prog.cob:10.24-10.31: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^^^^^^^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Warning: Invalid syntax + +run_extensions.at-4974-prog.cob:10.31: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^ + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY +>> Hint: Missing . + +run_extensions.at-4974-prog.cob:11.11-11.18: + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 >>ELIF ACTIVATE2 DEFINED + 11 > DISPLAY "OK" NO ADVANCING +---- ^^^^^^^ + 12 END-DISPLAY + 13 >>ELSE +>> Warning: Invalid syntax + +run_extensions.at-4974-prog.cob:13.7-13.13: + 10 >>ELIF ACTIVATE2 DEFINED + 11 DISPLAY "OK" NO ADVANCING + 12 END-DISPLAY + 13 > >>ELSE +---- ^^^^^^ + 14 DISPLAY "NOTOK" NO ADVANCING + 15 END-DISPLAY +>> Error: Invalid syntax + +run_extensions.at-4974-prog.cob:16.7-16.15: + 13 >>ELSE + 14 DISPLAY "NOTOK" NO ADVANCING + 15 END-DISPLAY + 16 > >>END-IF +---- ^^^^^^^^ + 17 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5000:0 +run_extensions.at-5000-prog.cob:7.7-7.28: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > >>IF ACTIVATE DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^ + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY +>> Error: Malformed or unknown compiler directive + +run_extensions.at-5000-prog.cob:9.22: + 6 PROCEDURE DIVISION. + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 > END-DISPLAY +---- ^ + 10 >>ELIF ACTIVATE2 DEFINED + 11 >>ELSE +>> Hint: Missing . + +run_extensions.at-5000-prog.cob:10.7-10.13: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^^^^^^ + 11 >>ELSE + 12 DISPLAY "NOTOK" NO ADVANCING +>> Warning: Invalid syntax + +run_extensions.at-5000-prog.cob:10.23: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^ + 11 >>ELSE + 12 DISPLAY "NOTOK" NO ADVANCING +>> Hint: Missing . + +run_extensions.at-5000-prog.cob:10.24-10.31: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^^^^^^^ + 11 >>ELSE + 12 DISPLAY "NOTOK" NO ADVANCING +>> Warning: Invalid syntax + +run_extensions.at-5000-prog.cob:11.7-11.13: + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 >>ELIF ACTIVATE2 DEFINED + 11 > >>ELSE +---- ^^^^^^ + 12 DISPLAY "NOTOK" NO ADVANCING + 13 END-DISPLAY +>> Error: Malformed or unknown compiler directive + +run_extensions.at-5000-prog.cob:10.31: + 7 >>IF ACTIVATE DEFINED + 8 DISPLAY "NOTOK" NO ADVANCING + 9 END-DISPLAY + 10 > >>ELIF ACTIVATE2 DEFINED +---- ^ + 11 >>ELSE + 12 DISPLAY "NOTOK" NO ADVANCING +>> Hint: Missing . + +run_extensions.at-5000-prog.cob:12.11-12.18: + 9 END-DISPLAY + 10 >>ELIF ACTIVATE2 DEFINED + 11 >>ELSE + 12 > DISPLAY "NOTOK" NO ADVANCING +---- ^^^^^^^ + 13 END-DISPLAY + 14 >>END-IF +>> Warning: Invalid syntax + +run_extensions.at-5000-prog.cob:14.7-14.15: + 11 >>ELSE + 12 DISPLAY "NOTOK" NO ADVANCING + 13 END-DISPLAY + 14 > >>END-IF +---- ^^^^^^^^ + 15 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5065:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5049:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5101:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5149:0 +run_extensions.at-5149-fit.cob:2.6-2.7: + 1 + 2 > * Sample program in X/Open format, and with longer lines and truncated literals. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Unexpected indicator: `l' + +run_extensions.at-5149-fit.cob:4.6-4.7: + 1 + 2 * Sample program in X/Open format, and with longer lines and truncated literals. + 3 + 4 > IDENTIFICATION DIVISION. +---- ^ + 5 PROGRAM-ID. fit. + 6 DATA DIVISION. +>> Error: Unexpected indicator: `F' + +run_extensions.at-5149-fit.cob:5.6-5.7: + 2 * Sample program in X/Open format, and with longer lines and truncated literals. + 3 + 4 IDENTIFICATION DIVISION. + 5 > PROGRAM-ID. fit. +---- ^ + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. +>> Error: Unexpected indicator: `M' + +run_extensions.at-5149-fit.cob:7.6-7.7: + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. fit. + 6 DATA DIVISION. + 7 > WORKING-STORAGE SECTION. +---- ^ + 8 PROCEDURE DIVISION. + 9 DISPLAY ' 20 30 40 50 60 70 79' +>> Error: Unexpected indicator: `G' + +run_extensions.at-5149-fit.cob:8.6-8.7: + 5 PROGRAM-ID. fit. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > PROCEDURE DIVISION. +---- ^ + 9 DISPLAY ' 20 30 40 50 60 70 79' + 10 D DISPLAY ' 20 30 40 50 60 70 79' +>> Error: Unexpected indicator: `U' + +run_extensions.at-5149-fit.cob:9.6-9.7: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 PROCEDURE DIVISION. + 9 > DISPLAY ' 20 30 40 50 60 70 79' +---- ^ + 10 D DISPLAY ' 20 30 40 50 60 70 79' + 11 STOP RUN. +>> Error: Unexpected indicator: `Y' + +run_extensions.at-5149-fit.cob:10.6-10.7: + 7 WORKING-STORAGE SECTION. + 8 PROCEDURE DIVISION. + 9 DISPLAY ' 20 30 40 50 60 70 79' + 10 > D DISPLAY ' 20 30 40 50 60 70 79' +---- ^ + 11 STOP RUN. +>> Error: Unexpected indicator: `L' + +run_extensions.at-5149-fit.cob:11.6-11.7: + 8 PROCEDURE DIVISION. + 9 DISPLAY ' 20 30 40 50 60 70 79' + 10 D DISPLAY ' 20 30 40 50 60 70 79' + 11 > STOP RUN. +---- ^ +>> Error: Unexpected indicator: `U' + +run_extensions.at-5149-fit.cob:9.8-9.72: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 PROCEDURE DIVISION. + 9 > DISPLAY ' 20 30 40 50 60 70 79' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 D DISPLAY ' 20 30 40 50 60 70 79' + 11 STOP RUN. +>> Error: Missing continuation of ` 20 30 40 50 60 70 ' + +run_extensions.at-5149-fit.cob:10.10-10.72: + 7 WORKING-STORAGE SECTION. + 8 PROCEDURE DIVISION. + 9 DISPLAY ' 20 30 40 50 60 70 79' + 10 > D DISPLAY ' 20 30 40 50 60 70 79' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 STOP RUN. +>> Error: Missing continuation of ` 20 30 40 50 60 70 ' + +run_extensions.at-5149-fit.cob:2.7-2.8: + 1 + 2 > * Sample program in X/Open format, and with longer lines and truncated literals. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5131:0 +run_extensions.at-5131-prog.cob:2.6-2.7: + 1 + 2 > * Sample program in X/Open free-form format. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Unexpected indicator: `l' + +run_extensions.at-5131-prog.cob:4.6-4.7: + 1 + 2 * Sample program in X/Open free-form format. + 3 + 4 > IDENTIFICATION DIVISION. +---- ^ + 5 PROGRAM-ID. prog. + 6 DATA DIVISION. +>> Error: Unexpected indicator: `F' + +run_extensions.at-5131-prog.cob:5.6-5.7: + 2 * Sample program in X/Open free-form format. + 3 + 4 IDENTIFICATION DIVISION. + 5 > PROGRAM-ID. prog. +---- ^ + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. +>> Error: Unexpected indicator: `M' + +run_extensions.at-5131-prog.cob:7.6-7.7: + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog. + 6 DATA DIVISION. + 7 > WORKING-STORAGE SECTION. +---- ^ + 8 PROCEDURE DIVISION. + 9 / Beginning of the code +>> Error: Unexpected indicator: `G' + +run_extensions.at-5131-prog.cob:8.6-8.7: + 5 PROGRAM-ID. prog. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > PROCEDURE DIVISION. +---- ^ + 9 / Beginning of the code + 10 DISPLAY "OK" NO ADVANCING +>> Error: Unexpected indicator: `U' + +run_extensions.at-5131-prog.cob:9.6-9.7: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 PROCEDURE DIVISION. + 9 > / Beginning of the code +---- ^ + 10 DISPLAY "OK" NO ADVANCING + 11 * If debug: +>> Error: Unexpected indicator: `n' + +run_extensions.at-5131-prog.cob:10.6-10.7: + 7 WORKING-STORAGE SECTION. + 8 PROCEDURE DIVISION. + 9 / Beginning of the code + 10 > DISPLAY "OK" NO ADVANCING +---- ^ + 11 * If debug: + 12 D DISPLAY "KO" NO ADVANCING +>> Error: Unexpected indicator: `Y' + +run_extensions.at-5131-prog.cob:11.6-11.7: + 8 PROCEDURE DIVISION. + 9 / Beginning of the code + 10 DISPLAY "OK" NO ADVANCING + 11 > * If debug: +---- ^ + 12 D DISPLAY "KO" NO ADVANCING + 13 STOP RUN. +>> Error: Unexpected indicator: `e' + +run_extensions.at-5131-prog.cob:12.6-12.7: + 9 / Beginning of the code + 10 DISPLAY "OK" NO ADVANCING + 11 * If debug: + 12 > D DISPLAY "KO" NO ADVANCING +---- ^ + 13 STOP RUN. +>> Error: Unexpected indicator: `L' + +run_extensions.at-5131-prog.cob:13.6-13.7: + 10 DISPLAY "OK" NO ADVANCING + 11 * If debug: + 12 D DISPLAY "KO" NO ADVANCING + 13 > STOP RUN. +---- ^ +>> Error: Unexpected indicator: `U' + +run_extensions.at-5131-prog.cob:2.7-2.8: + 1 + 2 > * Sample program in X/Open free-form format. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5231:0 +run_extensions.at-5231-fit.cob:2.6-2.7: + 1 + 2 > * Sample program in ACU terminal format, and with longer lines and truncated literals. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Unexpected indicator: `l' + +run_extensions.at-5231-fit.cob:4.6-4.7: + 1 + 2 * Sample program in ACU terminal format, and with longer lines and truncated literals. + 3 + 4 > IDENTIFICATION DIVISION. +---- ^ + 5 PROGRAM-ID. fit. + 6 DATA DIVISION. +>> Error: Unexpected indicator: `F' + +run_extensions.at-5231-fit.cob:5.6-5.7: + 2 * Sample program in ACU terminal format, and with longer lines and truncated literals. + 3 + 4 IDENTIFICATION DIVISION. + 5 > PROGRAM-ID. fit. +---- ^ + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. +>> Error: Unexpected indicator: `M' + +run_extensions.at-5231-fit.cob:7.6-7.7: + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. fit. + 6 DATA DIVISION. + 7 > WORKING-STORAGE SECTION. +---- ^ + 8 PROCEDURE DIVISION. + 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' +>> Error: Unexpected indicator: `G' + +run_extensions.at-5231-fit.cob:8.6-8.7: + 5 PROGRAM-ID. fit. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > PROCEDURE DIVISION. +---- ^ + 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' + 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' +>> Error: Unexpected indicator: `U' + +run_extensions.at-5231-fit.cob:11.6-11.7: + 8 PROCEDURE DIVISION. + 9 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' + 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' + 11 > \D END-DISPLAY. +---- ^ + 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 + 13 - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' +>> Error: Unexpected indicator: `E' + +run_extensions.at-5231-fit.cob:14.6-14.7: + 11 \D END-DISPLAY. + 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 + 13 - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' + 14 > STOP RUN. +---- ^ +>> Error: Unexpected indicator: `S' + +run_extensions.at-5231-fit.cob:13.14-13.72: + 10 \D DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' + 11 \D END-DISPLAY. + 12 DISPLAY ' 20 30 40 50 60 70 80 90 100 110 120 130 + 13 > - ' 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 319' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 14 STOP RUN. +>> Error: Missing continuation of ` 140 150 160 170 180 ' + +run_extensions.at-5231-fit.cob:2.7-2.8: + 1 + 2 > * Sample program in ACU terminal format, and with longer lines and truncated literals. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5188:0 +run_extensions.at-5188-prog.cob:2.6-2.7: + 1 + 2 > * Sample program in ACU terminal format. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Unexpected indicator: `l' + +run_extensions.at-5188-prog.cob:4.6-4.7: + 1 + 2 * Sample program in ACU terminal format. + 3 + 4 > IDENTIFICATION DIVISION. +---- ^ + 5 PROGRAM-ID. prog. + 6 AUTHOR. +>> Error: Unexpected indicator: `F' + +run_extensions.at-5188-prog.cob:5.6-5.7: + 2 * Sample program in ACU terminal format. + 3 + 4 IDENTIFICATION DIVISION. + 5 > PROGRAM-ID. prog. +---- ^ + 6 AUTHOR. + 7 Somebody. +>> Error: Unexpected indicator: `M' + +run_extensions.at-5188-prog.cob:6.6-6.7: + 3 + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog. + 6 > AUTHOR. +---- ^ + 7 Somebody. + 8 \D Somebody else. +>> Error: Unexpected indicator: `.' + +run_extensions.at-5188-prog.cob:7.6-7.7: + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog. + 6 AUTHOR. + 7 > Somebody. +---- ^ + 8 \D Somebody else. + 9 One last author. +>> Error: Unexpected indicator: `m' + +run_extensions.at-5188-prog.cob:8.6-8.7: + 5 PROGRAM-ID. prog. + 6 AUTHOR. + 7 Somebody. + 8 > \D Somebody else. +---- ^ + 9 One last author. + 10 DATA DIVISION. +>> Error: Unexpected indicator: `S' + +run_extensions.at-5188-prog.cob:9.6-9.7: + 6 AUTHOR. + 7 Somebody. + 8 \D Somebody else. + 9 > One last author. +---- ^ + 10 DATA DIVISION. + 11 WORKING-STORAGE SECTION. +>> Error: Unexpected indicator: `e' + +run_extensions.at-5188-prog.cob:11.6-11.7: + 8 \D Somebody else. + 9 One last author. + 10 DATA DIVISION. + 11 > WORKING-STORAGE SECTION. +---- ^ + 12 PROCEDURE DIVISION. + 13 DISPLAY "OK" NO ADVANCING +>> Error: Unexpected indicator: `G' + +run_extensions.at-5188-prog.cob:9.13-10.26: + 6 AUTHOR. + 7 Somebody. + 8 \D Somebody else. + 9 > One last author. +---- ^^^^^^^ + 10 > DATA DIVISION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 WORKING-STORAGE SECTION. + 12 PROCEDURE DIVISION. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +run_extensions.at-5188-prog.cob:12.6-12.7: + 9 One last author. + 10 DATA DIVISION. + 11 WORKING-STORAGE SECTION. + 12 > PROCEDURE DIVISION. +---- ^ + 13 DISPLAY "OK" NO ADVANCING + 14 END-DISPLAY. +>> Error: Unexpected indicator: `U' + +run_extensions.at-5188-prog.cob:14.6-14.7: + 11 WORKING-STORAGE SECTION. + 12 PROCEDURE DIVISION. + 13 DISPLAY "OK" NO ADVANCING + 14 > END-DISPLAY. +---- ^ + 15 \D DISPLAY "KO" NO ADVANCING + 16 \D END-DISPLAY. +>> Error: Unexpected indicator: `E' + +run_extensions.at-5188-prog.cob:16.6-16.7: + 13 DISPLAY "OK" NO ADVANCING + 14 END-DISPLAY. + 15 \D DISPLAY "KO" NO ADVANCING + 16 > \D END-DISPLAY. +---- ^ + 17 STOP RUN. +>> Error: Unexpected indicator: `E' + +run_extensions.at-5188-prog.cob:17.6-17.7: + 14 END-DISPLAY. + 15 \D DISPLAY "KO" NO ADVANCING + 16 \D END-DISPLAY. + 17 > STOP RUN. +---- ^ +>> Error: Unexpected indicator: `S' + +run_extensions.at-5188-prog.cob:2.7-2.8: + 1 + 2 > * Sample program in ACU terminal format. +---- ^ + 3 + 4 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5266:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5290:0 +run_extensions.at-5290-prog2.cob:2.7-2.29: + 1 + 2 > $SET SOURCEFORMAT"FREE" +---- ^^^^^^^^^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. +>> Error: Unexpected characters + +run_extensions.at-5290-prog2.cob:3.6-3.7: + 1 + 2 $SET SOURCEFORMAT"FREE" + 3 > IDENTIFICATION DIVISION. +---- ^ + 4 PROGRAM-ID. prog. + 5 DATA DIVISION. +>> Error: Unexpected indicator: `F' + +run_extensions.at-5290-prog2.cob:4.6-4.7: + 1 + 2 $SET SOURCEFORMAT"FREE" + 3 IDENTIFICATION DIVISION. + 4 > PROGRAM-ID. prog. +---- ^ + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. +>> Error: Unexpected indicator: `M' + +run_extensions.at-5290-prog2.cob:5.6-5.7: + 2 $SET SOURCEFORMAT"FREE" + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. + 5 > DATA DIVISION. +---- ^ + 6 WORKING-STORAGE SECTION. + 7 1 X PIC 99. +>> Error: Unexpected indicator: `I' + +run_extensions.at-5290-prog2.cob:6.6-6.7: + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. + 5 DATA DIVISION. + 6 > WORKING-STORAGE SECTION. +---- ^ + 7 1 X PIC 99. + 8 PROCEDURE DIVISION. +>> Error: Unexpected indicator: `G' + +run_extensions.at-5290-prog2.cob:7.6-7.7: + 4 PROGRAM-ID. prog. + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > 1 X PIC 99. +---- ^ + 8 PROCEDURE DIVISION. + 9 MAIN. +>> Error: Unexpected indicator: `C' + +run_extensions.at-5290-prog2.cob:8.6-8.7: + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 1 X PIC 99. + 8 > PROCEDURE DIVISION. +---- ^ + 9 MAIN. + 10 COMPUTE X = 6 +>> Error: Unexpected indicator: `U' + +run_extensions.at-5290-prog2.cob:10.6-10.7: + 7 1 X PIC 99. + 8 PROCEDURE DIVISION. + 9 MAIN. + 10 > COMPUTE X = 6 +---- ^ + 11 * 7 + 12 DISPLAY X NO ADVANCING +>> Error: Unexpected indicator: `E' + +run_extensions.at-5290-prog2.cob:12.6-12.7: + 9 MAIN. + 10 COMPUTE X = 6 + 11 * 7 + 12 > DISPLAY X NO ADVANCING +---- ^ + 13 STOP RUN. +>> Error: Unexpected indicator: `Y' + +run_extensions.at-5290-prog2.cob:13.6-13.7: + 10 COMPUTE X = 6 + 11 * 7 + 12 DISPLAY X NO ADVANCING + 13 > STOP RUN. +---- ^ +>> Error: Unexpected indicator: `U' + +run_extensions.at-5290-prog2.cob:3.7-3.14: + 1 + 2 $SET SOURCEFORMAT"FREE" + 3 > IDENTIFICATION DIVISION. +---- ^^^^^^^ + 4 PROGRAM-ID. prog. + 5 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5315:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5351:0 +run_extensions.at-5351-prog.cob:2.7-2.36: + 1 + 2 > >>IF BINARY-COMP-1 IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 $SET COMP-1(BINARY) + 4 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_extensions.at-5351-prog.cob:3.11-3.15: + 1 + 2 >>IF BINARY-COMP-1 IS DEFINED + 3 > $SET COMP-1(BINARY) +---- ^^^^ + 4 >>ELSE + 5 $SET COMP1 "float" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5383:0 +run_extensions.at-5383-prog.cob:9.11-9.18: + 6 77 VAR-1 PIC X(8) VALUE SPACES. + 7 77 VAR-2 PIC 999. + 8 PROCEDURE DIVISION. + 9 > EXHIBIT CHANGED VAR-1 'X' +---- ^^^^^^^ + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 +>> Error: Invalid syntax + +run_extensions.at-5383-prog.cob:9.26: + 6 77 VAR-1 PIC X(8) VALUE SPACES. + 7 77 VAR-2 PIC 999. + 8 PROCEDURE DIVISION. + 9 > EXHIBIT CHANGED VAR-1 'X' +---- ^ + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:9.27-9.32: + 6 77 VAR-1 PIC X(8) VALUE SPACES. + 7 77 VAR-2 PIC 999. + 8 PROCEDURE DIVISION. + 9 > EXHIBIT CHANGED VAR-1 'X' +---- ^^^^^ + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:9.32: + 6 77 VAR-1 PIC X(8) VALUE SPACES. + 7 77 VAR-2 PIC 999. + 8 PROCEDURE DIVISION. + 9 > EXHIBIT CHANGED VAR-1 'X' +---- ^ + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:9.33-9.36: + 6 77 VAR-1 PIC X(8) VALUE SPACES. + 7 77 VAR-2 PIC 999. + 8 PROCEDURE DIVISION. + 9 > EXHIBIT CHANGED VAR-1 'X' +---- ^^^ + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:11.52: + 8 PROCEDURE DIVISION. + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 > STRING "123" DELIMITED BY SIZE INTO VAR-1 +---- ^ + 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' + 13 EXHIBIT VAR-2 +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:12.11-12.18: + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' +---- ^^^^^^^ + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:12.24: + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' +---- ^ + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:12.25-12.30: + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' +---- ^^^^^ + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:12.30: + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' +---- ^ + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:12.31-12.36: + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' +---- ^^^^^ + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:12.36: + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' +---- ^ + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:12.37-12.40: + 9 EXHIBIT CHANGED VAR-1 'X' + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 > EXHIBIT NAMED VAR-1 VAR-2 'Y' +---- ^^^ + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:13.24: + 10 MOVE ALL 'X' TO VAR-1 + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' + 13 > EXHIBIT VAR-2 +---- ^ + 14 EXHIBIT SORT-RETURN TALLY + 15 STOP RUN. +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:14.11-14.18: + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' + 13 EXHIBIT VAR-2 + 14 > EXHIBIT SORT-RETURN TALLY +---- ^^^^^^^ + 15 STOP RUN. +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:14.30: + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' + 13 EXHIBIT VAR-2 + 14 > EXHIBIT SORT-RETURN TALLY +---- ^ + 15 STOP RUN. +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:14.31-14.36: + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' + 13 EXHIBIT VAR-2 + 14 > EXHIBIT SORT-RETURN TALLY +---- ^^^^^ + 15 STOP RUN. +>> Warning: Invalid syntax + +run_extensions.at-5383-prog.cob:14.36: + 11 STRING "123" DELIMITED BY SIZE INTO VAR-1 + 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' + 13 EXHIBIT VAR-2 + 14 > EXHIBIT SORT-RETURN TALLY +---- ^ + 15 STOP RUN. +>> Hint: Missing . + +run_extensions.at-5383-prog.cob:15.11-15.15: + 12 EXHIBIT NAMED VAR-1 VAR-2 'Y' + 13 EXHIBIT VAR-2 + 14 EXHIBIT SORT-RETURN TALLY + 15 > STOP RUN. +---- ^^^^ +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5468:0 +run_extensions.at-5468-prog.cob:33.21: + 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 > MOVE x#09 TO XX3. +---- ^ + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . +>> Hint: Missing TO . + +run_extensions.at-5468-prog.cob:33.18-33.21: + 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 > MOVE x#09 TO XX3. +---- ^^^ + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . +>> Error: Invalid syntax + +run_extensions.at-5468-prog.cob:33.21: + 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 > MOVE x#09 TO XX3. +---- ^ + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:33.22-33.24: + 30 DISPLAY "(" XX2 " B-XOR " XX3 ") + 1 is " XX1. + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 > MOVE x#09 TO XX3. +---- ^^ + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . +>> Warning: Invalid syntax + +run_extensions.at-5468-prog.cob:34.21: + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 MOVE x#09 TO XX3. + 34 > MOVE x#0E TO XX2. +---- ^ + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. +>> Hint: Missing TO + +run_extensions.at-5468-prog.cob:34.18-34.21: + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 MOVE x#09 TO XX3. + 34 > MOVE x#0E TO XX2. +---- ^^^ + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. +>> Error: Invalid syntax + +run_extensions.at-5468-prog.cob:34.21: + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 MOVE x#09 TO XX3. + 34 > MOVE x#0E TO XX2. +---- ^ + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:34.22-34.24: + 31 COMPUTE XX1 = XX2 B-XOR (XX3 + 1). + 32 DISPLAY XX2 " B-XOR (" XX3 " + 1) is " XX1. + 33 MOVE x#09 TO XX3. + 34 > MOVE x#0E TO XX2. +---- ^^ + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. +>> Warning: Invalid syntax + +run_extensions.at-5468-prog.cob:37.30: + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. + 37 > COMPUTE XX1 = (x#05 B-OR x#22). +---- ^ + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . +>> Hint: Missing ) . + +run_extensions.at-5468-prog.cob:37.27-37.30: + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. + 37 > COMPUTE XX1 = (x#05 B-OR x#22). +---- ^^^ + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . +>> Error: Invalid syntax + +run_extensions.at-5468-prog.cob:37.30: + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. + 37 > COMPUTE XX1 = (x#05 B-OR x#22). +---- ^ + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:37.31-37.35: + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. + 37 > COMPUTE XX1 = (x#05 B-OR x#22). +---- ^^^^ + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . +>> Warning: Invalid syntax + +run_extensions.at-5468-prog.cob:37.41: + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. + 37 > COMPUTE XX1 = (x#05 B-OR x#22). +---- ^ + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:37.37-37.41: + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. + 37 > COMPUTE XX1 = (x#05 B-OR x#22). +---- ^^^^ + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . +>> Warning: Invalid syntax + +run_extensions.at-5468-prog.cob:37.40-37.41: + 34 MOVE x#0E TO XX2. + 35 COMPUTE XX1 = XX2 B-AND XX3 . + 36 DISPLAY XX2 " B-AND " XX3 " is " XX1. + 37 > COMPUTE XX1 = (x#05 B-OR x#22). +---- ^ + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . +>> Error: Invalid syntax + +run_extensions.at-5468-prog.cob:41.35: + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . + 40 DISPLAY "B-NOT " XX2 " is " XX1. + 41 > COMPUTE XX1 = B-NOT x#22 . +---- ^ + 42 DISPLAY "B-NOT x#22 is " XX1. + 43 +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:41.32-41.35: + 38 DISPLAY "x#05 B-OR x#22 is " XX1. + 39 COMPUTE XX1 = B-NOT XX2 . + 40 DISPLAY "B-NOT " XX2 " is " XX1. + 41 > COMPUTE XX1 = B-NOT x#22 . +---- ^^^ + 42 DISPLAY "B-NOT x#22 is " XX1. + 43 +>> Warning: Invalid syntax + +run_extensions.at-5468-prog.cob:62.21: + 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 > MOVE x#09 TO X3. +---- ^ + 63 MOVE x#0E TO X2. + 64 COMPUTE X1 = X2 B-AND X3 . +>> Hint: Missing TO . + +run_extensions.at-5468-prog.cob:62.18-62.21: + 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 > MOVE x#09 TO X3. +---- ^^^ + 63 MOVE x#0E TO X2. + 64 COMPUTE X1 = X2 B-AND X3 . +>> Error: Invalid syntax + +run_extensions.at-5468-prog.cob:62.21: + 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 > MOVE x#09 TO X3. +---- ^ + 63 MOVE x#0E TO X2. + 64 COMPUTE X1 = X2 B-AND X3 . +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:62.22-62.24: + 59 DISPLAY "(" X2 " B-XOR " X3 ") + 1 is " X1. + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 > MOVE x#09 TO X3. +---- ^^ + 63 MOVE x#0E TO X2. + 64 COMPUTE X1 = X2 B-AND X3 . +>> Warning: Invalid syntax + +run_extensions.at-5468-prog.cob:63.21: + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 MOVE x#09 TO X3. + 63 > MOVE x#0E TO X2. +---- ^ + 64 COMPUTE X1 = X2 B-AND X3 . + 65 DISPLAY X2 " B-AND " X3 " is " X1. +>> Hint: Missing TO + +run_extensions.at-5468-prog.cob:63.18-63.21: + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 MOVE x#09 TO X3. + 63 > MOVE x#0E TO X2. +---- ^^^ + 64 COMPUTE X1 = X2 B-AND X3 . + 65 DISPLAY X2 " B-AND " X3 " is " X1. +>> Error: Invalid syntax + +run_extensions.at-5468-prog.cob:63.21: + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 MOVE x#09 TO X3. + 63 > MOVE x#0E TO X2. +---- ^ + 64 COMPUTE X1 = X2 B-AND X3 . + 65 DISPLAY X2 " B-AND " X3 " is " X1. +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:63.22-63.24: + 60 COMPUTE X1 = X2 B-XOR (X3 + 1). + 61 DISPLAY X2 " B-XOR (" X3 " + 1) is " X1. + 62 MOVE x#09 TO X3. + 63 > MOVE x#0E TO X2. +---- ^^ + 64 COMPUTE X1 = X2 B-AND X3 . + 65 DISPLAY X2 " B-AND " X3 " is " X1. +>> Warning: Invalid syntax + +run_extensions.at-5468-prog.cob:68.34: + 65 DISPLAY X2 " B-AND " X3 " is " X1. + 66 COMPUTE X1 = B-NOT X2 . + 67 DISPLAY "B-NOT " X2 " is " X1. + 68 > COMPUTE X1 = B-NOT x#22 . +---- ^ + 69 DISPLAY "B-NOT x#22 is " X1. + 70 STOP RUN. +>> Hint: Missing . + +run_extensions.at-5468-prog.cob:68.31-68.34: + 65 DISPLAY X2 " B-AND " X3 " is " X1. + 66 COMPUTE X1 = B-NOT X2 . + 67 DISPLAY "B-NOT " X2 " is " X1. + 68 > COMPUTE X1 = B-NOT x#22 . +---- ^^^ + 69 DISPLAY "B-NOT x#22 is " X1. + 70 STOP RUN. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5547:0 +run_extensions.at-5547-prog.cob:11.21: + 8 01 N1 PIC 9(4) COMP-5 VALUE 0. + 9 01 N2 PIC 9(4) COMP-5 VALUE 0. + 10 PROCEDURE DIVISION. + 11 > MOVE x#0A TO X2. +---- ^ + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). +>> Hint: Missing TO + +run_extensions.at-5547-prog.cob:11.18-11.21: + 8 01 N1 PIC 9(4) COMP-5 VALUE 0. + 9 01 N2 PIC 9(4) COMP-5 VALUE 0. + 10 PROCEDURE DIVISION. + 11 > MOVE x#0A TO X2. +---- ^^^ + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:11.21: + 8 01 N1 PIC 9(4) COMP-5 VALUE 0. + 9 01 N2 PIC 9(4) COMP-5 VALUE 0. + 10 PROCEDURE DIVISION. + 11 > MOVE x#0A TO X2. +---- ^ + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:11.22-11.24: + 8 01 N1 PIC 9(4) COMP-5 VALUE 0. + 9 01 N2 PIC 9(4) COMP-5 VALUE 0. + 10 PROCEDURE DIVISION. + 11 > MOVE x#0A TO X2. +---- ^^ + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:13.29: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:13.26-13.29: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^^^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:13.29: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:13.30-13.36: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^^^^^^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:13.36: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:13.37-13.42: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^^^^^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:13.42: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:13.38-13.42: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^^^^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:13.41-13.42: + 10 PROCEDURE DIVISION. + 11 MOVE x#0A TO X2. + 12 DISPLAY "Using PIC XX COMP-X" + 13 > COMPUTE X1 = (x#22 B-LEFT x#05). +---- ^ + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:15.29: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:15.26-15.29: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^^^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:15.29: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:15.30-15.37: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^^^^^^^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:15.37: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:15.38-15.43: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^^^^^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:15.43: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:15.39-15.43: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^^^^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:15.42-15.43: + 12 DISPLAY "Using PIC XX COMP-X" + 13 COMPUTE X1 = (x#22 B-LEFT x#05). + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 > COMPUTE X1 = (x#22 B-RIGHT x#02). +---- ^ + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:17.29: + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). +---- ^ + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:17.26-17.29: + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). +---- ^^^ + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:17.29: + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). +---- ^ + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:17.30-17.39: + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). +---- ^^^^^^^^^ + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:17.45: + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). +---- ^ + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:17.41-17.45: + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). +---- ^^^^ + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:17.44-17.45: + 14 DISPLAY " x#22 B-LEFT x#05 is " X1. + 15 COMPUTE X1 = (x#22 B-RIGHT x#02). + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 > COMPUTE X1 = (x#22 B-SHIFT-L x#05). +---- ^ + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:19.29: + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). +---- ^ + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:19.26-19.29: + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). +---- ^^^ + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:19.29: + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). +---- ^ + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:19.30-19.39: + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). +---- ^^^^^^^^^ + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:19.45: + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). +---- ^ + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:19.41-19.45: + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). +---- ^^^^ + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:19.44-19.45: + 16 DISPLAY " x#22 B-RIGHT x#02 is " X1. + 17 COMPUTE X1 = (x#22 B-SHIFT-L x#05). + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 > COMPUTE X1 = (x#22 B-SHIFT-R x#02). +---- ^ + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:21.27: + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 > COMPUTE X1 = (X2 B-LEFT x#05). +---- ^ + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:21.28-21.34: + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 > COMPUTE X1 = (X2 B-LEFT x#05). +---- ^^^^^^ + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:21.34: + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 > COMPUTE X1 = (X2 B-LEFT x#05). +---- ^ + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:21.35-21.40: + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 > COMPUTE X1 = (X2 B-LEFT x#05). +---- ^^^^^ + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:21.40: + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 > COMPUTE X1 = (X2 B-LEFT x#05). +---- ^ + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:21.36-21.40: + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 > COMPUTE X1 = (X2 B-LEFT x#05). +---- ^^^^ + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:21.39-21.40: + 18 DISPLAY " x#22 B-SHIFT-L x#05 is " X1. + 19 COMPUTE X1 = (x#22 B-SHIFT-R x#02). + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 > COMPUTE X1 = (X2 B-LEFT x#05). +---- ^ + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:23.27: + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 > COMPUTE X1 = (X2 B-RIGHT x#02). +---- ^ + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:23.28-23.35: + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 > COMPUTE X1 = (X2 B-RIGHT x#02). +---- ^^^^^^^ + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:23.35: + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 > COMPUTE X1 = (X2 B-RIGHT x#02). +---- ^ + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:23.36-23.41: + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 > COMPUTE X1 = (X2 B-RIGHT x#02). +---- ^^^^^ + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:23.41: + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 > COMPUTE X1 = (X2 B-RIGHT x#02). +---- ^ + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:23.37-23.41: + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 > COMPUTE X1 = (X2 B-RIGHT x#02). +---- ^^^^ + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:23.40-23.41: + 20 DISPLAY " x#22 B-SHIFT-R x#02 is " X1. + 21 COMPUTE X1 = (X2 B-LEFT x#05). + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 > COMPUTE X1 = (X2 B-RIGHT x#02). +---- ^ + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:25.23: + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 > MOVE x#7573 TO X2. +---- ^ + 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. +>> Hint: Missing TO . + +run_extensions.at-5547-prog.cob:25.18-25.23: + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 > MOVE x#7573 TO X2. +---- ^^^^^ + 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:25.23: + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 > MOVE x#7573 TO X2. +---- ^ + 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:25.24-25.26: + 22 DISPLAY X2 " B-LEFT x#05 is " X1. + 23 COMPUTE X1 = (X2 B-RIGHT x#02). + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 > MOVE x#7573 TO X2. +---- ^^ + 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:26.27: + 23 COMPUTE X1 = (X2 B-RIGHT x#02). + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. + 26 > COMPUTE X1 = (X2 B-SHIFT-LC 4). +---- ^ + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. + 28 COMPUTE X1 = (X2 B-SHIFT-RC 4). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:26.28-26.38: + 23 COMPUTE X1 = (X2 B-RIGHT x#02). + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. + 26 > COMPUTE X1 = (X2 B-SHIFT-LC 4). +---- ^^^^^^^^^^ + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. + 28 COMPUTE X1 = (X2 B-SHIFT-RC 4). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:26.40-26.41: + 23 COMPUTE X1 = (X2 B-RIGHT x#02). + 24 DISPLAY X2 " B-RIGHT x#02 is " X1. + 25 MOVE x#7573 TO X2. + 26 > COMPUTE X1 = (X2 B-SHIFT-LC 4). +---- ^ + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. + 28 COMPUTE X1 = (X2 B-SHIFT-RC 4). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:28.27: + 25 MOVE x#7573 TO X2. + 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. + 28 > COMPUTE X1 = (X2 B-SHIFT-RC 4). +---- ^ + 29 DISPLAY X2 " B-SHIFT-RC 4 is " X1. + 30 +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:28.28-28.38: + 25 MOVE x#7573 TO X2. + 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. + 28 > COMPUTE X1 = (X2 B-SHIFT-RC 4). +---- ^^^^^^^^^^ + 29 DISPLAY X2 " B-SHIFT-RC 4 is " X1. + 30 +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:28.40-28.41: + 25 MOVE x#7573 TO X2. + 26 COMPUTE X1 = (X2 B-SHIFT-LC 4). + 27 DISPLAY X2 " B-SHIFT-LC 4 is " X1. + 28 > COMPUTE X1 = (X2 B-SHIFT-RC 4). +---- ^ + 29 DISPLAY X2 " B-SHIFT-RC 4 is " X1. + 30 +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:33.29: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:33.26-33.29: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^^^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:33.29: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:33.30-33.36: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^^^^^^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:33.36: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:33.37-33.42: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^^^^^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:33.42: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:33.38-33.42: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^^^^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:33.41-33.42: + 30 + 31 MOVE 10 TO N2. + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 > COMPUTE N1 = (x#22 B-LEFT x#05). +---- ^ + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:35.29: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:35.26-35.29: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^^^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:35.29: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:35.30-35.37: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^^^^^^^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:35.37: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:35.38-35.43: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^^^^^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:35.43: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:35.39-35.43: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^^^^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:35.42-35.43: + 32 DISPLAY "Using PIC 9(4) COMP-5" + 33 COMPUTE N1 = (x#22 B-LEFT x#05). + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 > COMPUTE N1 = (x#22 B-RIGHT x#02). +---- ^ + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:37.29: + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). +---- ^ + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:37.26-37.29: + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). +---- ^^^ + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:37.29: + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). +---- ^ + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:37.30-37.39: + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). +---- ^^^^^^^^^ + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:37.45: + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). +---- ^ + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:37.41-37.45: + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). +---- ^^^^ + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:37.44-37.45: + 34 DISPLAY " x#22 B-LEFT x#05 is " N1. + 35 COMPUTE N1 = (x#22 B-RIGHT x#02). + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 > COMPUTE N1 = (x#22 B-SHIFT-L x#05). +---- ^ + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:39.29: + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). +---- ^ + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:39.26-39.29: + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). +---- ^^^ + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:39.29: + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). +---- ^ + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:39.30-39.39: + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). +---- ^^^^^^^^^ + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:39.45: + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). +---- ^ + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:39.41-39.45: + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). +---- ^^^^ + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:39.44-39.45: + 36 DISPLAY " x#22 B-RIGHT x#02 is " N1. + 37 COMPUTE N1 = (x#22 B-SHIFT-L x#05). + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 > COMPUTE N1 = (x#22 B-SHIFT-R x#02). +---- ^ + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:41.27: + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 > COMPUTE N1 = (N2 B-LEFT x#05). +---- ^ + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 COMPUTE N1 = (N2 B-RIGHT x#02). +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:41.28-41.34: + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 > COMPUTE N1 = (N2 B-LEFT x#05). +---- ^^^^^^ + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 COMPUTE N1 = (N2 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:41.34: + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 > COMPUTE N1 = (N2 B-LEFT x#05). +---- ^ + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 COMPUTE N1 = (N2 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:41.35-41.40: + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 > COMPUTE N1 = (N2 B-LEFT x#05). +---- ^^^^^ + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 COMPUTE N1 = (N2 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:41.40: + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 > COMPUTE N1 = (N2 B-LEFT x#05). +---- ^ + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 COMPUTE N1 = (N2 B-RIGHT x#02). +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:41.36-41.40: + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 > COMPUTE N1 = (N2 B-LEFT x#05). +---- ^^^^ + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 COMPUTE N1 = (N2 B-RIGHT x#02). +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:41.39-41.40: + 38 DISPLAY " x#22 B-SHIFT-L x#05 is " N1. + 39 COMPUTE N1 = (x#22 B-SHIFT-R x#02). + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 > COMPUTE N1 = (N2 B-LEFT x#05). +---- ^ + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 COMPUTE N1 = (N2 B-RIGHT x#02). +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:43.27: + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 > COMPUTE N1 = (N2 B-RIGHT x#02). +---- ^ + 44 DISPLAY N2 " B-RIGHT x#02 is " N1. + 45 STOP RUN. +>> Hint: Missing ) . + +run_extensions.at-5547-prog.cob:43.28-43.35: + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 > COMPUTE N1 = (N2 B-RIGHT x#02). +---- ^^^^^^^ + 44 DISPLAY N2 " B-RIGHT x#02 is " N1. + 45 STOP RUN. +>> Error: Invalid syntax + +run_extensions.at-5547-prog.cob:43.35: + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 > COMPUTE N1 = (N2 B-RIGHT x#02). +---- ^ + 44 DISPLAY N2 " B-RIGHT x#02 is " N1. + 45 STOP RUN. +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:43.36-43.41: + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 > COMPUTE N1 = (N2 B-RIGHT x#02). +---- ^^^^^ + 44 DISPLAY N2 " B-RIGHT x#02 is " N1. + 45 STOP RUN. +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:43.41: + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 > COMPUTE N1 = (N2 B-RIGHT x#02). +---- ^ + 44 DISPLAY N2 " B-RIGHT x#02 is " N1. + 45 STOP RUN. +>> Hint: Missing . + +run_extensions.at-5547-prog.cob:43.37-43.41: + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 > COMPUTE N1 = (N2 B-RIGHT x#02). +---- ^^^^ + 44 DISPLAY N2 " B-RIGHT x#02 is " N1. + 45 STOP RUN. +>> Warning: Invalid syntax + +run_extensions.at-5547-prog.cob:43.40-43.41: + 40 DISPLAY " x#22 B-SHIFT-R x#02 is " N1. + 41 COMPUTE N1 = (N2 B-LEFT x#05). + 42 DISPLAY N2 " B-LEFT x#05 is " N1. + 43 > COMPUTE N1 = (N2 B-RIGHT x#02). +---- ^ + 44 DISPLAY N2 " B-RIGHT x#02 is " N1. + 45 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5599:0 +run_extensions.at-5599-prog.cob:7.34: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 FLOATS. + 7 > 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. +---- ^ + 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. + 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. +>> Hint: Missing BINARY + +run_extensions.at-5599-prog.cob:7.35-7.50: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 FLOATS. + 7 > 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. +---- ^^^^^^^^^^^^^^^ + 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. + 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:8.34: + 5 WORKING-STORAGE SECTION. + 6 01 FLOATS. + 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. + 8 > 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. +---- ^ + 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. + 10 +>> Hint: Missing BINARY + +run_extensions.at-5599-prog.cob:8.35-8.51: + 5 WORKING-STORAGE SECTION. + 6 01 FLOATS. + 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. + 8 > 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. +---- ^^^^^^^^^^^^^^^^ + 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. + 10 +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:9.34: + 6 01 FLOATS. + 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. + 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. + 9 > 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. +---- ^ + 10 + 11 PROCEDURE DIVISION. +>> Hint: Missing BINARY + +run_extensions.at-5599-prog.cob:9.35-9.51: + 6 01 FLOATS. + 7 03 FLOAT-BINARY-32 USAGE COMPUTATIONAL-9 VALUE -4.2E+1. + 8 03 FLOAT-BINARY-64 USAGE COMPUTATIONAL-10 VALUE 0.0. + 9 > 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. +---- ^^^^^^^^^^^^^^^^ + 10 + 11 PROCEDURE DIVISION. +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:12.18: + 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. + 10 + 11 PROCEDURE DIVISION. + 12 > DISPLAY FLOAT-BINARY-32 +---- ^ + 13 + 14 DISPLAY FLOAT-BINARY-64 +>> Hint: Missing + +run_extensions.at-5599-prog.cob:12.19-12.34: + 9 03 FLOAT-BINARY-128 USAGE COMPUTATIONAL-15 VALUE 1.0. + 10 + 11 PROCEDURE DIVISION. + 12 > DISPLAY FLOAT-BINARY-32 +---- ^^^^^^^^^^^^^^^ + 13 + 14 DISPLAY FLOAT-BINARY-64 +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:14.18: + 11 PROCEDURE DIVISION. + 12 DISPLAY FLOAT-BINARY-32 + 13 + 14 > DISPLAY FLOAT-BINARY-64 +---- ^ + 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 + 16 DISPLAY FLOAT-BINARY-64 +>> Hint: Missing + +run_extensions.at-5599-prog.cob:14.19-14.34: + 11 PROCEDURE DIVISION. + 12 DISPLAY FLOAT-BINARY-32 + 13 + 14 > DISPLAY FLOAT-BINARY-64 +---- ^^^^^^^^^^^^^^^ + 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 + 16 DISPLAY FLOAT-BINARY-64 +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:15.38: + 12 DISPLAY FLOAT-BINARY-32 + 13 + 14 DISPLAY FLOAT-BINARY-64 + 15 > MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 +---- ^ + 16 DISPLAY FLOAT-BINARY-64 + 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 +>> Hint: Missing + +run_extensions.at-5599-prog.cob:15.39-15.54: + 12 DISPLAY FLOAT-BINARY-32 + 13 + 14 DISPLAY FLOAT-BINARY-64 + 15 > MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 +---- ^^^^^^^^^^^^^^^ + 16 DISPLAY FLOAT-BINARY-64 + 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:16.18: + 13 + 14 DISPLAY FLOAT-BINARY-64 + 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 + 16 > DISPLAY FLOAT-BINARY-64 +---- ^ + 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 + 18 DISPLAY FLOAT-BINARY-64 +>> Hint: Missing + +run_extensions.at-5599-prog.cob:16.19-16.34: + 13 + 14 DISPLAY FLOAT-BINARY-64 + 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 + 16 > DISPLAY FLOAT-BINARY-64 +---- ^^^^^^^^^^^^^^^ + 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 + 18 DISPLAY FLOAT-BINARY-64 +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:17.38-17.53: + 14 DISPLAY FLOAT-BINARY-64 + 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 + 16 DISPLAY FLOAT-BINARY-64 + 17 > ADD -1.111111111011E302 TO FLOAT-BINARY-64 +---- ^^^^^^^^^^^^^^^ + 18 DISPLAY FLOAT-BINARY-64 + 19 +>> Error: Invalid syntax + +run_extensions.at-5599-prog.cob:18.18: + 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 + 16 DISPLAY FLOAT-BINARY-64 + 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 + 18 > DISPLAY FLOAT-BINARY-64 +---- ^ + 19 + 20 *> NOTE: FLOAT-BINARY-128 is only syntax-checked as support for +>> Hint: Missing + +run_extensions.at-5599-prog.cob:18.19-18.34: + 15 MOVE 9.899999999999E+304 TO FLOAT-BINARY-64 + 16 DISPLAY FLOAT-BINARY-64 + 17 ADD -1.111111111011E302 TO FLOAT-BINARY-64 + 18 > DISPLAY FLOAT-BINARY-64 +---- ^^^^^^^^^^^^^^^ + 19 + 20 *> NOTE: FLOAT-BINARY-128 is only syntax-checked as support for +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5732:0 +run_extensions.at-5732-prog.cob:77.27-77.33: + 74 PERFORM SHOW-VARS + 75 END-IF + 76 MOVE 1 TO LGX + 77 > COMPUTE W-LEN = LENGTH OF X-DAT +---- ^^^^^^ + 78 IF W-LEN NOT EQUAL 10 + 79 DISPLAY "UNEXPECTED RESULT FOR 'LENGTH OF X-DAT': " +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5786:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5757:0 +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5865:0 +run_extensions.at-5865-corr.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. corr. +---- ^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Hint: Missing + +run_extensions.at-5865-corr.cob:3.24-3.28: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. corr. +---- ^^^^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:5934:0 +run_extensions.at-5934-nested.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. nested. +---- ^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Hint: Missing + +run_extensions.at-5934-nested.cob:3.24-3.30: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. nested. +---- ^^^^^^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6022:0 +run_extensions.at-6022-redefines.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. redefines. +---- ^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Hint: Missing + +run_extensions.at-6022-redefines.cob:3.24-3.33: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. redefines. +---- ^^^^^^^^^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6094:0 +run_extensions.at-6094-prog.cob:15.42-15.50: + 12 *> + 13 MOVE 0 TO W01-INDEX. + 14 INSPECT W01-STRING + 15 > TALLYING W01-INDEX FOR TRAILING SPACE. +---- ^^^^^^^^ + 16 IF W01-INDEX NOT = 10 + 17 THEN +>> Error: Invalid syntax + +run_extensions.at-6094-prog.cob:21.40-21.48: + 18 DISPLAY 'Bad Result for Inspect Trailing Case 1' + 19 END-IF. + 20 *> + 21 > INSPECT W01-STRING REPLACING TRAILING SPACE BY 'A'. +---- ^^^^^^^^ + 22 IF W01-STRING NOT = '0123456789AAAAAAAAAA' + 23 THEN +>> Error: Invalid syntax + +run_extensions.at-6094-prog.cob:29.42-29.50: + 26 *> + 27 MOVE 0 TO W01-INDEX. + 28 INSPECT W01-STRING + 29 > TALLYING W01-INDEX FOR TRAILING SPACE +---- ^^^^^^^^ + 30 REPLACING TRAILING 'A' BY 'B'. + 31 *> +>> Error: Invalid syntax + +run_extensions.at-6094-prog.cob:30.29-30.37: + 27 MOVE 0 TO W01-INDEX. + 28 INSPECT W01-STRING + 29 TALLYING W01-INDEX FOR TRAILING SPACE + 30 > REPLACING TRAILING 'A' BY 'B'. +---- ^^^^^^^^ + 31 *> + 32 IF W01-STRING NOT = '0123456789BBBBBBBBBB' +>> Error: Invalid syntax + +run_extensions.at-6094-prog.cob:40.42-40.50: + 37 MOVE 0 TO W01-INDEX. + 38 MOVE SPACES TO W01-STRING. + 39 INSPECT W01-STRING + 40 > TALLYING W01-INDEX FOR TRAILING 'A'. +---- ^^^^^^^^ + 41 *> + 42 IF W01-INDEX NOT = 0 +>> Error: Invalid syntax + +run_extensions.at-6094-prog.cob:51.42-51.50: + 48 MOVE 0 TO W01-INDEX. + 49 MOVE SPACES TO W01-STRING. + 50 INSPECT W01-STRING + 51 > TALLYING W01-INDEX FOR TRAILING SPACES. +---- ^^^^^^^^ + 52 *> + 53 IF W01-INDEX NOT = 20 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6116:0 +run_extensions.at-6116-prog.cob:8.31-8.39: + 5 WORKING-STORAGE SECTION. + 6 01 X PIC X(4) VALUE "1000". + 7 PROCEDURE DIVISION. + 8 > INSPECT X REPLACING TRAILING ZEROS BY SPACES. +---- ^^^^^^^^ + 9 IF X NOT = "1 " + 10 DISPLAY X. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6151:0 +run_extensions.at-6151-prog.cob:12.13-12.21: + 9 ALL "A" BY "Z" + 10 "B" BY "Y" + 11 "Z" BY "0" + 12 > TRAILING "C" BY "X" +---- ^^^^^^^^ + 13 IF X NOT = "Z0ZYYCDCCEXX" + 14 DISPLAY "1 - " X. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6210:0 +run_extensions.at-6210-prog.cob:10.18: + 7 01 N PIC S9(5)V9(2) VALUE -11122.55. + 8 01 T PIC X(10) VALUE " 8 ". + 9 PROCEDURE DIVISION. + 10 > EXAMINE X TALLYING ALL "A" +---- ^ + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:10.19-10.20: + 7 01 N PIC S9(5)V9(2) VALUE -11122.55. + 8 01 T PIC X(10) VALUE " 8 ". + 9 PROCEDURE DIVISION. + 10 > EXAMINE X TALLYING ALL "A" +---- ^ + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:10.20: + 7 01 N PIC S9(5)V9(2) VALUE -11122.55. + 8 01 T PIC X(10) VALUE " 8 ". + 9 PROCEDURE DIVISION. + 10 > EXAMINE X TALLYING ALL "A" +---- ^ + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:10.21-10.29: + 7 01 N PIC S9(5)V9(2) VALUE -11122.55. + 8 01 T PIC X(10) VALUE " 8 ". + 9 PROCEDURE DIVISION. + 10 > EXAMINE X TALLYING ALL "A" +---- ^^^^^^^^ + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:13.18: + 10 EXAMINE X TALLYING ALL "A" + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. + 13 > EXAMINE X TALLYING LEADING "A" +---- ^ + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:13.19-13.20: + 10 EXAMINE X TALLYING ALL "A" + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. + 13 > EXAMINE X TALLYING LEADING "A" +---- ^ + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:13.20: + 10 EXAMINE X TALLYING ALL "A" + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. + 13 > EXAMINE X TALLYING LEADING "A" +---- ^ + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:13.21-13.29: + 10 EXAMINE X TALLYING ALL "A" + 11 IF TALLY NOT = 4 + 12 DISPLAY "Should be 4 but is " TALLY. + 13 > EXAMINE X TALLYING LEADING "A" +---- ^^^^^^^^ + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:16.18: + 13 EXAMINE X TALLYING LEADING "A" + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. + 16 > EXAMINE X TALLYING UNTIL FIRST "C" +---- ^ + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:16.19-16.20: + 13 EXAMINE X TALLYING LEADING "A" + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. + 16 > EXAMINE X TALLYING UNTIL FIRST "C" +---- ^ + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:16.20: + 13 EXAMINE X TALLYING LEADING "A" + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. + 16 > EXAMINE X TALLYING UNTIL FIRST "C" +---- ^ + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:16.21-16.29: + 13 EXAMINE X TALLYING LEADING "A" + 14 IF TALLY NOT = 2 + 15 DISPLAY "Should be 2 but is " TALLY. + 16 > EXAMINE X TALLYING UNTIL FIRST "C" +---- ^^^^^^^^ + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:19.18: + 16 EXAMINE X TALLYING UNTIL FIRST "C" + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. + 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" +---- ^ + 20 IF TALLY NOT = 4 + 21 DISPLAY "Should be 4 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:19.19-19.20: + 16 EXAMINE X TALLYING UNTIL FIRST "C" + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. + 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" +---- ^ + 20 IF TALLY NOT = 4 + 21 DISPLAY "Should be 4 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:19.20: + 16 EXAMINE X TALLYING UNTIL FIRST "C" + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. + 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" +---- ^ + 20 IF TALLY NOT = 4 + 21 DISPLAY "Should be 4 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:19.21-19.29: + 16 EXAMINE X TALLYING UNTIL FIRST "C" + 17 IF TALLY NOT = 5 + 18 DISPLAY "Should be 5 but is " TALLY. + 19 > EXAMINE X TALLYING ALL "A" REPLACING BY "Z" +---- ^^^^^^^^ + 20 IF TALLY NOT = 4 + 21 DISPLAY "Should be 4 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:24.18: + 21 DISPLAY "Should be 4 but is " TALLY. + 22 IF X NOT = "ZZBZBCZB" + 23 DISPLAY "Should be ZZBZBCZB but is " X. + 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" +---- ^ + 25 IF TALLY NOT = 2 + 26 DISPLAY "Should be 2 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:24.19-24.20: + 21 DISPLAY "Should be 4 but is " TALLY. + 22 IF X NOT = "ZZBZBCZB" + 23 DISPLAY "Should be ZZBZBCZB but is " X. + 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" +---- ^ + 25 IF TALLY NOT = 2 + 26 DISPLAY "Should be 2 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:24.20: + 21 DISPLAY "Should be 4 but is " TALLY. + 22 IF X NOT = "ZZBZBCZB" + 23 DISPLAY "Should be ZZBZBCZB but is " X. + 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" +---- ^ + 25 IF TALLY NOT = 2 + 26 DISPLAY "Should be 2 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:24.21-24.29: + 21 DISPLAY "Should be 4 but is " TALLY. + 22 IF X NOT = "ZZBZBCZB" + 23 DISPLAY "Should be ZZBZBCZB but is " X. + 24 > EXAMINE X TALLYING LEADING "Z" REPLACING BY "A" +---- ^^^^^^^^ + 25 IF TALLY NOT = 2 + 26 DISPLAY "Should be 2 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:29.18: + 26 DISPLAY "Should be 2 but is " TALLY. + 27 IF X NOT = "AABZBCZB" + 28 DISPLAY "Should be AABZBCZB but is " X. + 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" +---- ^ + 30 IF TALLY NOT = 5 + 31 DISPLAY "Should be 5 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:29.19-29.20: + 26 DISPLAY "Should be 2 but is " TALLY. + 27 IF X NOT = "AABZBCZB" + 28 DISPLAY "Should be AABZBCZB but is " X. + 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" +---- ^ + 30 IF TALLY NOT = 5 + 31 DISPLAY "Should be 5 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:29.20: + 26 DISPLAY "Should be 2 but is " TALLY. + 27 IF X NOT = "AABZBCZB" + 28 DISPLAY "Should be AABZBCZB but is " X. + 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" +---- ^ + 30 IF TALLY NOT = 5 + 31 DISPLAY "Should be 5 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:29.21-29.29: + 26 DISPLAY "Should be 2 but is " TALLY. + 27 IF X NOT = "AABZBCZB" + 28 DISPLAY "Should be AABZBCZB but is " X. + 29 > EXAMINE X TALLYING UNTIL FIRST "C" REPLACING BY "X" +---- ^^^^^^^^ + 30 IF TALLY NOT = 5 + 31 DISPLAY "Should be 5 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:34.18: + 31 DISPLAY "Should be 5 but is " TALLY. + 32 IF X NOT = "XXXXXCZB" + 33 DISPLAY "Should be XXXXXCZB but is " X. + 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" +---- ^ + 35 IF TALLY NOT = 8 + 36 DISPLAY "Should be 8 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:34.19-34.20: + 31 DISPLAY "Should be 5 but is " TALLY. + 32 IF X NOT = "XXXXXCZB" + 33 DISPLAY "Should be XXXXXCZB but is " X. + 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" +---- ^ + 35 IF TALLY NOT = 8 + 36 DISPLAY "Should be 8 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:34.20: + 31 DISPLAY "Should be 5 but is " TALLY. + 32 IF X NOT = "XXXXXCZB" + 33 DISPLAY "Should be XXXXXCZB but is " X. + 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" +---- ^ + 35 IF TALLY NOT = 8 + 36 DISPLAY "Should be 8 but is " TALLY. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:34.21-34.29: + 31 DISPLAY "Should be 5 but is " TALLY. + 32 IF X NOT = "XXXXXCZB" + 33 DISPLAY "Should be XXXXXCZB but is " X. + 34 > EXAMINE X TALLYING UNTIL FIRST "Y" REPLACING BY "Y" +---- ^^^^^^^^ + 35 IF TALLY NOT = 8 + 36 DISPLAY "Should be 8 but is " TALLY. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:39.18: + 36 DISPLAY "Should be 8 but is " TALLY. + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 +---- ^ + 40 IF N NOT = -88888.55 + 41 DISPLAY "Should be -88888.55 but is " N. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:39.19-39.20: + 36 DISPLAY "Should be 8 but is " TALLY. + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 +---- ^ + 40 IF N NOT = -88888.55 + 41 DISPLAY "Should be -88888.55 but is " N. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:39.20: + 36 DISPLAY "Should be 8 but is " TALLY. + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 +---- ^ + 40 IF N NOT = -88888.55 + 41 DISPLAY "Should be -88888.55 but is " N. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:39.21-39.29: + 36 DISPLAY "Should be 8 but is " TALLY. + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 +---- ^^^^^^^^ + 40 IF N NOT = -88888.55 + 41 DISPLAY "Should be -88888.55 but is " N. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:39.43: + 36 DISPLAY "Should be 8 but is " TALLY. + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 +---- ^ + 40 IF N NOT = -88888.55 + 41 DISPLAY "Should be -88888.55 but is " N. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:39.44-39.53: + 36 DISPLAY "Should be 8 but is " TALLY. + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 +---- ^^^^^^^^^ + 40 IF N NOT = -88888.55 + 41 DISPLAY "Should be -88888.55 but is " N. +>> Warning: Invalid syntax + +run_extensions.at-6210-prog.cob:39.58: + 36 DISPLAY "Should be 8 but is " TALLY. + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 > EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 +---- ^ + 40 IF N NOT = -88888.55 + 41 DISPLAY "Should be -88888.55 but is " N. +>> Hint: Missing . + +run_extensions.at-6210-prog.cob:40.11-40.13: + 37 IF X NOT = "YYYYYYYY" + 38 DISPLAY "Should be YYYYYYYY but is " X. + 39 EXAMINE N TALLYING UNTIL FIRST 5 REPLACING BY 8 + 40 > IF N NOT = -88888.55 +---- ^^ + 41 DISPLAY "Should be -88888.55 but is " N. + 42 * Re-mod is forbidden here (at least on GCOS): +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6246:0 +run_extensions.at-6246-prog.cob:10.18: + 7 01 Y PIC X VALUE "Y". + 8 01 N PIC S9(5) VALUE -11122. + 9 PROCEDURE DIVISION. + 10 > EXAMINE X REPLACING ALL "A" BY "X" +---- ^ + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:10.19-10.20: + 7 01 Y PIC X VALUE "Y". + 8 01 N PIC S9(5) VALUE -11122. + 9 PROCEDURE DIVISION. + 10 > EXAMINE X REPLACING ALL "A" BY "X" +---- ^ + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:10.20: + 7 01 Y PIC X VALUE "Y". + 8 01 N PIC S9(5) VALUE -11122. + 9 PROCEDURE DIVISION. + 10 > EXAMINE X REPLACING ALL "A" BY "X" +---- ^ + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:10.21-10.30: + 7 01 Y PIC X VALUE "Y". + 8 01 N PIC S9(5) VALUE -11122. + 9 PROCEDURE DIVISION. + 10 > EXAMINE X REPLACING ALL "A" BY "X" +---- ^^^^^^^^^ + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:13.18: + 10 EXAMINE X REPLACING ALL "A" BY "X" + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. + 13 > EXAMINE X REPLACING LEADING "X" BY "Y" +---- ^ + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:13.19-13.20: + 10 EXAMINE X REPLACING ALL "A" BY "X" + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. + 13 > EXAMINE X REPLACING LEADING "X" BY "Y" +---- ^ + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:13.20: + 10 EXAMINE X REPLACING ALL "A" BY "X" + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. + 13 > EXAMINE X REPLACING LEADING "X" BY "Y" +---- ^ + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:13.21-13.30: + 10 EXAMINE X REPLACING ALL "A" BY "X" + 11 IF X NOT = "XXBXBCXB" + 12 DISPLAY "Should be XXBXBCXB but is " X. + 13 > EXAMINE X REPLACING LEADING "X" BY "Y" +---- ^^^^^^^^^ + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:16.18: + 13 EXAMINE X REPLACING LEADING "X" BY "Y" + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. + 16 > EXAMINE X REPLACING FIRST "B" BY "C" +---- ^ + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:16.19-16.20: + 13 EXAMINE X REPLACING LEADING "X" BY "Y" + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. + 16 > EXAMINE X REPLACING FIRST "B" BY "C" +---- ^ + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:16.20: + 13 EXAMINE X REPLACING LEADING "X" BY "Y" + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. + 16 > EXAMINE X REPLACING FIRST "B" BY "C" +---- ^ + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:16.21-16.30: + 13 EXAMINE X REPLACING LEADING "X" BY "Y" + 14 IF X NOT = "YYBXBCXB" + 15 DISPLAY "Should be YYBXBCXB but is " X. + 16 > EXAMINE X REPLACING FIRST "B" BY "C" +---- ^^^^^^^^^ + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:19.18: + 16 EXAMINE X REPLACING FIRST "B" BY "C" + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. + 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" +---- ^ + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:19.19-19.20: + 16 EXAMINE X REPLACING FIRST "B" BY "C" + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. + 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" +---- ^ + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:19.20: + 16 EXAMINE X REPLACING FIRST "B" BY "C" + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. + 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" +---- ^ + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:19.21-19.30: + 16 EXAMINE X REPLACING FIRST "B" BY "C" + 17 IF X NOT = "YYCXBCXB" + 18 DISPLAY "Should be YYCXBCXB but is " X. + 19 > EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" +---- ^^^^^^^^^ + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:22.18: + 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 > EXAMINE N REPLACING ALL 1 BY 3 +---- ^ + 23 IF N NOT = -33322 + 24 DISPLAY "Should be -33322 but is " N. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:22.19-22.20: + 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 > EXAMINE N REPLACING ALL 1 BY 3 +---- ^ + 23 IF N NOT = -33322 + 24 DISPLAY "Should be -33322 but is " N. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:22.20: + 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 > EXAMINE N REPLACING ALL 1 BY 3 +---- ^ + 23 IF N NOT = -33322 + 24 DISPLAY "Should be -33322 but is " N. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:22.21-22.30: + 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 > EXAMINE N REPLACING ALL 1 BY 3 +---- ^^^^^^^^^ + 23 IF N NOT = -33322 + 24 DISPLAY "Should be -33322 but is " N. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:22.36: + 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 > EXAMINE N REPLACING ALL 1 BY 3 +---- ^ + 23 IF N NOT = -33322 + 24 DISPLAY "Should be -33322 but is " N. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:22.37-22.39: + 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 > EXAMINE N REPLACING ALL 1 BY 3 +---- ^^ + 23 IF N NOT = -33322 + 24 DISPLAY "Should be -33322 but is " N. +>> Warning: Invalid syntax + +run_extensions.at-6246-prog.cob:22.41: + 19 EXAMINE X REPLACING UNTIL FIRST "B" BY "Z" + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 > EXAMINE N REPLACING ALL 1 BY 3 +---- ^ + 23 IF N NOT = -33322 + 24 DISPLAY "Should be -33322 but is " N. +>> Hint: Missing . + +run_extensions.at-6246-prog.cob:23.11-23.13: + 20 IF X NOT = "ZZZZBCXB" + 21 DISPLAY "Should be ZZZZBCXB but is " X. + 22 EXAMINE N REPLACING ALL 1 BY 3 + 23 > IF N NOT = -33322 +---- ^^ + 24 DISPLAY "Should be -33322 but is " N. + 25 STOP RUN. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_extensions.at:6286:0 +run_extensions.at-6286-prog.cob:26.19: + 23 MOVE ""75,80,91"" TO X + 24 IF X NOT EQUAL "[!]" PERFORM SHOW. + 25 + 26 > STOP RUN S. +---- ^ + 27 SHOW. + 28 DISPLAY "EBCDIC LIT " T " FAILED: X = """ X """" +>> Hint: Missing . + +run_extensions.at-6286-prog.cob:26.20-26.21: + 23 MOVE ""75,80,91"" TO X + 24 IF X NOT EQUAL "[!]" PERFORM SHOW. + 25 + 26 > STOP RUN S. +---- ^ + 27 SHOW. + 28 DISPLAY "EBCDIC LIT " T " FAILED: X = """ X """" +>> Error: Invalid syntax + diff --git a/test/output-tests/run_file.expected b/test/output-tests/run_file.expected new file mode 100644 index 000000000..33748c785 --- /dev/null +++ b/test/output-tests/run_file.expected @@ -0,0 +1,8293 @@ +Considering: import/gnucobol/tests/testsuite.src/run_file.at:83:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:145:0 +run_file.at-145-TEST1:1.6-1.7: + 1 > +---- ^ + 2 + 3 +>> Error: Unexpected indicator: `v' + +run_file.at-145-TEST1:2.6-2.7: + 1 + 2 > +---- ^ + 3 + 4 +>> Error: Unexpected indicator: `e' + +run_file.at-145-TEST1:3.6-3.7: + 1 + 2 + 3 > +---- ^ + 4 + 5 +>> Error: Unexpected indicator: `i' + +run_file.at-145-TEST1:12.6-12.7: + 9 + 10 + 11 + 12 > +---- ^ + 13 +>> Error: Unexpected indicator: `L' + +run_file.at-145-TEST1:13.6-13.7: + 10 + 11 + 12 + 13 > +---- ^ +>> Error: Unexpected indicator: `l' + +run_file.at-145-TEST1:1.7-1.13: + 1 > +---- ^^^^^^ + 2 + 3 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:144:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:218:0 +run_file.at-218-prog.cob:38.18-38.22: + 35 OPEN I-O FILE-OPT + 36 IF WSFS NOT = "00" + 37 DISPLAY "STATUS I-O, empty file:" WSFS. + 38 > DELETE FILE FILE-OPT +---- ^^^^ + 39 *> ON EXCEPTION + 40 IF WSFS NOT = "41" +>> Error: Invalid syntax + +run_file.at-218-prog.cob:49.18-49.22: + 46 CLOSE FILE-OPT + 47 IF WSFS NOT = "00" + 48 DISPLAY "STATUS CLOSE #2:" WSFS. + 49 > DELETE FILE FILE-OPT +---- ^^^^ + 50 *> ON EXCEPTION + 51 *> DISPLAY "STATUS DELETE FILE (closed) - EXCEPTION:" WSFS +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:252:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:327:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:400:0 +run_file.at-400-prog.cob:39.18-39.22: + 36 OPEN I-O FILE-OPT + 37 IF WSFS NOT = "00" + 38 DISPLAY "STATUS I-O, empty file: " WSFS. + 39 > DELETE FILE FILE-OPT +---- ^^^^ + 40 *> ON EXCEPTION + 41 IF WSFS NOT = "41" +>> Error: Invalid syntax + +run_file.at-400-prog.cob:50.18-50.22: + 47 CLOSE FILE-OPT + 48 IF WSFS NOT = "00" + 49 DISPLAY "STATUS CLOSE #2: " WSFS. + 50 > DELETE FILE FILE-OPT +---- ^^^^ + 51 *> ON EXCEPTION + 52 *> DISPLAY "STATUS DELETE FILE (closed) - EXCEPTION: " WSFS +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:437:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:477:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:517:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:595:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:662:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:699:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:705:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:744:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:790:0 +run_file.at-790-prog.cob:10.7-10.28: + 7 FILE-CONTROL. + 8 SELECT f ASSIGN whatever + 9 ORGANIZATION LINE SEQUENTIAL. + 10 > $SET ASSIGN "EXTERNAL" +---- ^^^^^^^^^^^^^^^^^^^^^ + 11 SELECT g ASSIGN whatever + 12 ORGANIZATION LINE SEQUENTIAL. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:816:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:860:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:865:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:912:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:987:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1019:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1067:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1107:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1181:0 +run_file.at-1181-prog.cob:16.32: + 13 WORKING-STORAGE SECTION. + 14 01 path BASED PIC X(10). + 15 01 x PIC X. + 16 > PROCEDURE DIVISION CHAINING x. +---- ^ + 17 IF x NOT = SPACES + 18 ALLOCATE path +>> Hint: Missing . + +run_file.at-1181-prog.cob:16.33-16.41: + 13 WORKING-STORAGE SECTION. + 14 01 path BASED PIC X(10). + 15 01 x PIC X. + 16 > PROCEDURE DIVISION CHAINING x. +---- ^^^^^^^^ + 17 IF x NOT = SPACES + 18 ALLOCATE path +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1193:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1350:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1362:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1400:0 +run_file.at-1400-prog.cob:16.32: + 13 WORKING-STORAGE SECTION. + 14 01 path PIC X(10). + 15 01 x PIC X. + 16 > PROCEDURE DIVISION CHAINING x. +---- ^ + 17 IF X = SPACE + 18 MOVE SPACES TO path +>> Hint: Missing . + +run_file.at-1400-prog.cob:16.33-16.41: + 13 WORKING-STORAGE SECTION. + 14 01 path PIC X(10). + 15 01 x PIC X. + 16 > PROCEDURE DIVISION CHAINING x. +---- ^^^^^^^^ + 17 IF X = SPACE + 18 MOVE SPACES TO path +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1432:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1479:0 +run_file.at-1479-prog.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "test". +---- ^ + 4 ENVIRONMENT DIVISION. + 5 INPUT-OUTPUT SECTION. +>> Hint: Missing + +run_file.at-1479-prog.cob:3.19-3.25: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "test". +---- ^^^^^^ + 4 ENVIRONMENT DIVISION. + 5 INPUT-OUTPUT SECTION. +>> Error: Invalid syntax + +run_file.at-1479-prog.cob:10.35-10.36: + 7 SELECT TEST-FILE ASSIGN "FILE" + 8 ORGANIZATION IS INDEXED + 9 ACCESS IS DYNAMIC + 10 > RECORD KEY IS KEY01 = QQINDEX. +---- ^ + 11 DATA DIVISION. + 12 FILE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:1956:0 +run_file.at-1956-prog.cob:22.16-22.24: + 19 + 20 ALTERNATE RECORD KEY IS SPLIT-KEY3 + 21 SOURCE IS CM-DISK,CM-TAPE WITH DUPLICATES + 22 > SUPPRESS WHEN ALL "*" +---- ^^^^^^^^ + 23 FILE STATUS IS CUST-STAT + 24 . +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:80.54: + 77 05 FILLER PIC X(8) VALUE "PRE00000". + 78 + 79 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 80 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 81 02 DATA-COMPANY-TBL. + 82 +>> Hint: Missing + +run_file.at-1956-prog.cob:80.55-80.62: + 77 05 FILLER PIC X(8) VALUE "PRE00000". + 78 + 79 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 80 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 81 02 DATA-COMPANY-TBL. + 82 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:101.55: + 98 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 99 + 100 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 101 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 102 02 DATA-ADDRESS-1-TBL. + 103 +>> Hint: Missing + +run_file.at-1956-prog.cob:101.56-101.63: + 98 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 99 + 100 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 101 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 102 02 DATA-ADDRESS-1-TBL. + 103 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:122.55: + 119 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 120 + 121 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 122 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 123 02 DATA-ADDRESS-2-TBL. + 124 +>> Hint: Missing + +run_file.at-1956-prog.cob:122.56-122.63: + 119 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 120 + 121 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 122 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 123 02 DATA-ADDRESS-2-TBL. + 124 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:143.55: + 140 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 141 + 142 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 143 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 144 02 DATA-ADDRESS-3-TBL. + 145 +>> Hint: Missing + +run_file.at-1956-prog.cob:143.56-143.63: + 140 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 141 + 142 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 143 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 144 02 DATA-ADDRESS-3-TBL. + 145 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:164.55: + 161 05 FILLER PIC X(10) VALUE "N.Y. ". + 162 + 163 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 164 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 165 02 DATA-TELEPHONE-TBL. + 166 +>> Hint: Missing + +run_file.at-1956-prog.cob:164.56-164.63: + 161 05 FILLER PIC X(10) VALUE "N.Y. ". + 162 + 163 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 164 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 165 02 DATA-TELEPHONE-TBL. + 166 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:185.55: + 182 05 FILLER PIC 9(10) VALUE 4169898509. + 183 + 184 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 185 > PIC 9(10) OCCURS MAX-SUB. +---- ^ + 186 02 DATA-DP-MGR-TBL. + 187 +>> Hint: Missing + +run_file.at-1956-prog.cob:185.56-185.63: + 182 05 FILLER PIC 9(10) VALUE 4169898509. + 183 + 184 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 185 > PIC 9(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 186 02 DATA-DP-MGR-TBL. + 187 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:206.55: + 203 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 204 + 205 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 206 > PIC X(20) OCCURS MAX-SUB. +---- ^ + 207 02 DATA-MACHINE-TBL. + 208 +>> Hint: Missing + +run_file.at-1956-prog.cob:206.56-206.63: + 203 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 204 + 205 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 206 > PIC X(20) OCCURS MAX-SUB. +---- ^^^^^^^ + 207 02 DATA-MACHINE-TBL. + 208 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:227.54: + 224 05 FILLER PIC X(8) VALUE "UNI-9040". + 225 + 226 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 227 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 228 02 DATA-NO-TERMINALS-TBL. + 229 +>> Hint: Missing + +run_file.at-1956-prog.cob:227.55-227.62: + 224 05 FILLER PIC X(8) VALUE "UNI-9040". + 225 + 226 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 227 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 228 02 DATA-NO-TERMINALS-TBL. + 229 +>> Error: Invalid syntax + +run_file.at-1956-prog.cob:248.61: + 245 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 246 + 247 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 248 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^ + 249 + 250 78 REC-MAX VALUE 10. +>> Hint: Missing + +run_file.at-1956-prog.cob:248.62-248.69: + 245 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 246 + 247 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 248 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^^^^^^^ + 249 + 250 78 REC-MAX VALUE 10. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:2165:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:2398:0 +run_file.at-2398-prog.cob:16.19-16.27: + 13 access mode is dynamic + 14 record key is tbw-key + 15 alternate record key is tbw-alt + 16 > suppress when space +---- ^^^^^^^^ + 17 sharing with no other + 18 file status is fs-file-status. +>> Error: Invalid syntax + +run_file.at-2398-prog.cob:206.18-206.22: + 203 Perform tbw-Close thru tbw-Close-exit. + 204 Move "xx" to fs-file-status. + 205 Display "delete file". + 206 > Delete file tbw. +---- ^^^^ + 207 Display "delete file done". + 208 Go to tbw-exit. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:2774:0 +run_file.at-2774-prog.cob:4.18: + 1 + 2 + 3 identification division. + 4 > program-id. linage. +---- ^ + 5 + 6 environment division. +>> Hint: Missing + +run_file.at-2774-prog.cob:4.19-4.25: + 1 + 2 + 3 identification division. + 4 > program-id. linage. +---- ^^^^^^ + 5 + 6 environment division. +>> Error: Invalid syntax + +run_file.at-2774-prog.cob:79.21: + 76 open i-o indexed-file + 77 perform indexing-check + 78 if not indexing-ok + 79 > stop run returning 1 +---- ^ + 80 end-if + 81 +>> Hint: Missing . + +run_file.at-2774-prog.cob:79.22-79.31: + 76 open i-o indexed-file + 77 perform indexing-check + 78 if not indexing-ok + 79 > stop run returning 1 +---- ^^^^^^^^^ + 80 end-if + 81 +>> Error: Invalid syntax + +run_file.at-2774-prog.cob:79.33: + 76 open i-o indexed-file + 77 perform indexing-check + 78 if not indexing-ok + 79 > stop run returning 1 +---- ^ + 80 end-if + 81 +>> Hint: Missing . + +run_file.at-2774-prog.cob:80.11-80.17: + 77 perform indexing-check + 78 if not indexing-ok + 79 stop run returning 1 + 80 > end-if +---- ^^^^^^ + 81 + 82 *> read all the duplicate 00b02 keys +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3089:0 +run_file.at-3089-prog.cob:9.34-9.42: + 6 + 7 INPUT-OUTPUT SECTION. + 8 FILE-CONTROL. + 9 > SELECT FLATFILE ASSIGN EXTERNAL RELFIX +---- ^^^^^^^^ + 10 ORGANIZATION RELATIVE + 11 ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-3089-prog.cob:14.35-14.43: + 11 ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM + 12 FILE STATUS IS CUST-STAT. + 13 + 14 > SELECT FLATFILE2 ASSIGN EXTERNAL RELFIX +---- ^^^^^^^^ + 15 ORGANIZATION RELATIVE + 16 ACCESS IS RANDOM RELATIVE KEY IS REC-NUM +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-3089-prog.cob:57.54: + 54 05 FILLER PIC X(8) VALUE "GAM00000". + 55 + 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 57 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 58 02 DATA-COMPANY-TBL. + 59 +>> Hint: Missing + +run_file.at-3089-prog.cob:57.55-57.62: + 54 05 FILLER PIC X(8) VALUE "GAM00000". + 55 + 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 57 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 58 02 DATA-COMPANY-TBL. + 59 +>> Error: Invalid syntax + +run_file.at-3089-prog.cob:67.55: + 64 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 65 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". + 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 67 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 68 02 DATA-ADDRESS-2-TBL. + 69 +>> Hint: Missing + +run_file.at-3089-prog.cob:67.56-67.63: + 64 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 65 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". + 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 67 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 68 02 DATA-ADDRESS-2-TBL. + 69 +>> Error: Invalid syntax + +run_file.at-3089-prog.cob:77.55: + 74 05 FILLER PIC X(10) VALUE "WASHINGTON". + 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 76 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 77 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 78 + 79 02 DATA-NO-TERMINALS-TBL. +>> Hint: Missing + +run_file.at-3089-prog.cob:77.56-77.63: + 74 05 FILLER PIC X(10) VALUE "WASHINGTON". + 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 76 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 77 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 78 + 79 02 DATA-NO-TERMINALS-TBL. +>> Error: Invalid syntax + +run_file.at-3089-prog.cob:89.61: + 86 05 FILLER PIC 9(3) COMP-3 VALUE 254. + 87 + 88 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 89 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^ + 90 01 WORK-AREA. + 91 05 SUB BINARY-SHORT UNSIGNED. +>> Hint: Missing + +run_file.at-3089-prog.cob:89.62-89.69: + 86 05 FILLER PIC 9(3) COMP-3 VALUE 254. + 87 + 88 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 89 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^^^^^^^ + 90 01 WORK-AREA. + 91 05 SUB BINARY-SHORT UNSIGNED. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3152:0 +run_file.at-3152-prog.cob:23.18-23.22: + 20 01 TESTSTAT PIC XX. + 21 88 V-OK VALUE "00" "05". + 22 PROCEDURE DIVISION. + 23 > DELETE FILE TEST-FILE. +---- ^^^^ + 24 OPEN I-O TEST-FILE. + 25 IF NOT V-OK +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3228:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3305:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3416:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3476:0 +run_file.at-3476-prog.cob:22.18-22.22: + 19 01 f-status PIC XX. + 20 + 21 PROCEDURE DIVISION. + 22 > DELETE FILE file1. +---- ^^^^ + 23 OPEN INPUT file1. + 24 IF (f-status <> "05") +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3539:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3540:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3580:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3624:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3665:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3763:0 +run_file.at-3763-prog.cob:83.20-83.26: + 80 * DISPLAY "FAILED 10: CBL_DELETE_DIR (res=" RETURN-CODE ")" + 81 * END-IF + 82 + 83 > STOP RUN NORMAL +---- ^^^^^^ + 84 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3953:0 +run_file.at-3953-prog.cob:22.36: + 19 END-IF + 20 MOVE 0 TO RETURN-CODE + 21 + 22 > CALL 'CBL_CREATE_FILE' USING +---- ^ + 23 FNAME ACCESS-MODE 0 0 FHANDLE + 24 END-CALL +>> Hint: Missing . + +run_file.at-3953-prog.cob:23.8-23.13: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^^^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Error: Invalid syntax + +run_file.at-3953-prog.cob:23.13: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:23.14-23.25: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^^^^^^^^^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:23.25: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:23.26-23.27: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:23.27: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:23.28-23.29: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:23.29: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:23.30-23.37: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^^^^^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:23.37: + 20 MOVE 0 TO RETURN-CODE + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 > FNAME ACCESS-MODE 0 0 FHANDLE +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:24.8-24.16: + 21 + 22 CALL 'CBL_CREATE_FILE' USING + 23 FNAME ACCESS-MODE 0 0 FHANDLE + 24 > END-CALL +---- ^^^^^^^^ + 25 IF RETURN-CODE NOT = 0 + 26 DISPLAY 'error creating file ...' END-DISPLAY +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:34.35: + 31 MOVE 0 TO OFFSET. + 32 MOVE 9 TO NBYTES. + 33 + 34 > CALL 'CBL_WRITE_FILE' USING +---- ^ + 35 FHANDLE OFFSET NBYTES '0' WRITE-BUFFER + 36 END-CALL +>> Hint: Missing . + +run_file.at-3953-prog.cob:35.8-35.15: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^^^^^^^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Error: Invalid syntax + +run_file.at-3953-prog.cob:35.15: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:35.16-35.22: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^^^^^^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:35.22: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:35.23-35.29: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^^^^^^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:35.29: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:35.30-35.33: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^^^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3953-prog.cob:35.46: + 32 MOVE 9 TO NBYTES. + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 > FHANDLE OFFSET NBYTES '0' WRITE-BUFFER +---- ^ + 36 END-CALL + 37 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3953-prog.cob:36.8-36.16: + 33 + 34 CALL 'CBL_WRITE_FILE' USING + 35 FHANDLE OFFSET NBYTES '0' WRITE-BUFFER + 36 > END-CALL +---- ^^^^^^^^ + 37 IF RETURN-CODE NOT = 0 + 38 DISPLAY 'error writing file ...' END-DISPLAY +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:3960:0 +run_file.at-3960-prog2.cob:22.34: + 19 GOBACK + 20 END-IF + 21 + 22 > CALL 'CBL_READ_FILE' USING +---- ^ + 23 FHANDLE OFFSET NBYTES 128 READ-BUFFER + 24 END-CALL +>> Hint: Missing . + +run_file.at-3960-prog2.cob:23.8-23.15: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^^^^^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Error: Invalid syntax + +run_file.at-3960-prog2.cob:23.15: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:23.16-23.22: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^^^^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:23.22: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:23.23-23.29: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^^^^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:23.29: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:23.30-23.33: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:23.33: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:23.34-23.45: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^^^^^^^^^^^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:23.45: + 20 END-IF + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 > FHANDLE OFFSET NBYTES 128 READ-BUFFER +---- ^ + 24 END-CALL + 25 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:24.8-24.16: + 21 + 22 CALL 'CBL_READ_FILE' USING + 23 FHANDLE OFFSET NBYTES 128 READ-BUFFER + 24 > END-CALL +---- ^^^^^^^^ + 25 IF RETURN-CODE NOT = 0 + 26 DISPLAY 'error getting file size...' +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:52.34: + 49 MOVE 2 TO OFFSET. + 50 MOVE 9 TO NBYTES. + 51 + 52 > CALL 'CBL_READ_FILE' USING +---- ^ + 53 FHANDLE OFFSET NBYTES 0 READ-BUFFER + 54 END-CALL +>> Hint: Missing . + +run_file.at-3960-prog2.cob:53.8-53.15: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^^^^^^^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Error: Invalid syntax + +run_file.at-3960-prog2.cob:53.15: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:53.16-53.22: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^^^^^^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:53.22: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:53.23-53.29: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^^^^^^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:53.29: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:53.30-53.31: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:53.31: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:53.32-53.43: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^^^^^^^^^^^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Warning: Invalid syntax + +run_file.at-3960-prog2.cob:53.43: + 50 MOVE 9 TO NBYTES. + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 > FHANDLE OFFSET NBYTES 0 READ-BUFFER +---- ^ + 54 END-CALL + 55 IF RETURN-CODE NOT = 0 +>> Hint: Missing . + +run_file.at-3960-prog2.cob:54.8-54.16: + 51 + 52 CALL 'CBL_READ_FILE' USING + 53 FHANDLE OFFSET NBYTES 0 READ-BUFFER + 54 > END-CALL +---- ^^^^^^^^ + 55 IF RETURN-CODE NOT = 0 + 56 DISPLAY 'error reading file ...' +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4000:0 +run_file.at-4000-prog.cob:14.26: + 11 01 NBYTES PIC X(4) USAGE COMP-X. + 12 01 READ-BUFFER PIC X(10). + 13 + 14 > PROCEDURE DIVISION CHAINING FNAME. +---- ^ + 15 DISPLAY 'RUN WITH ' FUNCTION TRIM (FNAME TRAILING). + 16 CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE. +>> Hint: Missing . + +run_file.at-4000-prog.cob:14.27-14.35: + 11 01 NBYTES PIC X(4) USAGE COMP-X. + 12 01 READ-BUFFER PIC X(10). + 13 + 14 > PROCEDURE DIVISION CHAINING FNAME. +---- ^^^^^^^^ + 15 DISPLAY 'RUN WITH ' FUNCTION TRIM (FNAME TRAILING). + 16 CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE. +>> Error: Invalid syntax + +run_file.at-4000-prog.cob:15.49-15.58: + 12 01 READ-BUFFER PIC X(10). + 13 + 14 PROCEDURE DIVISION CHAINING FNAME. + 15 > DISPLAY 'RUN WITH ' FUNCTION TRIM (FNAME TRAILING). +---- ^^^^^^^^^ + 16 CALL 'CBL_OPEN_FILE' USING FNAME 1 0 0 FHANDLE. + 17 IF RETURN-CODE NOT = 0 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4113:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4111:0 +run_file.at-4111-prog2.cob:10.34: + 7 01 FILE2 PIC X(9) VALUE 'prog3.cob'. + 8 + 9 PROCEDURE DIVISION. + 10 > CALL 'CBL_COPY_FILE' USING +---- ^ + 11 FILE1 FILE2 + 12 END-CALL +>> Hint: Missing . + +run_file.at-4111-prog2.cob:11.8-11.13: + 8 + 9 PROCEDURE DIVISION. + 10 CALL 'CBL_COPY_FILE' USING + 11 > FILE1 FILE2 +---- ^^^^^ + 12 END-CALL + 13 STOP RUN. +>> Error: Invalid syntax + +run_file.at-4111-prog2.cob:11.13: + 8 + 9 PROCEDURE DIVISION. + 10 CALL 'CBL_COPY_FILE' USING + 11 > FILE1 FILE2 +---- ^ + 12 END-CALL + 13 STOP RUN. +>> Hint: Missing . + +run_file.at-4111-prog2.cob:11.14-11.19: + 8 + 9 PROCEDURE DIVISION. + 10 CALL 'CBL_COPY_FILE' USING + 11 > FILE1 FILE2 +---- ^^^^^ + 12 END-CALL + 13 STOP RUN. +>> Warning: Invalid syntax + +run_file.at-4111-prog2.cob:11.19: + 8 + 9 PROCEDURE DIVISION. + 10 CALL 'CBL_COPY_FILE' USING + 11 > FILE1 FILE2 +---- ^ + 12 END-CALL + 13 STOP RUN. +>> Hint: Missing . + +run_file.at-4111-prog2.cob:12.8-12.16: + 9 PROCEDURE DIVISION. + 10 CALL 'CBL_COPY_FILE' USING + 11 FILE1 FILE2 + 12 > END-CALL +---- ^^^^^^^^ + 13 STOP RUN. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4183:0 +run_file.at-4183-fexists_signed.c:9.6-9.7: + 6 #include + 7 + 8 /* + 9 > * Check file is present and correct by comparing +---- ^ + 10 * its content to a given signature. + 11 */ +>> Error: Unexpected indicator: `c' + +run_file.at-4183-fexists_signed.c:12.6-12.7: + 9 * Check file is present and correct by comparing + 10 * its content to a given signature. + 11 */ + 12 > COB_EXT_EXPORT int +---- ^ + 13 fexists_signed (char *fid, char *signature, int signature_size) + 14 { +>> Error: Unexpected indicator: `T' + +run_file.at-4183-fexists_signed.c:13.6-13.7: + 10 * its content to a given signature. + 11 */ + 12 COB_EXT_EXPORT int + 13 > fexists_signed (char *fid, char *signature, int signature_size) +---- ^ + 14 { + 15 char *bfr; +>> Error: Unexpected indicator: `s' + +run_file.at-4183-fexists_signed.c:22.9-31.0: + 19 f = fopen (fid, "r"); + 20 if (f != NULL) { + 21 bfr = (char *) cob_malloc (signature_size); + 22 > if (1 == fread (bfr, signature_size, 1, f)) { +---- + 23 > if (!memcmp (signature, bfr, signature_size)) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 24 > res = 0; +---- ^^^^^^^^^^^^^^^ + 25 > } +---- ^^^^^^ + 26 > } +---- ^^^^^ + 27 > free (bfr); +---- ^^^^^^^^^^^^^^^ + 28 > } +---- ^^^ + 29 > return res; +---- ^^^^^^^^^^^^^ + 30 > } +---- ^^ +>> Error: Unterminated pseudotext + +run_file.at-4183-fexists_signed.c:9.7-9.8: + 6 #include + 7 + 8 /* + 9 > * Check file is present and correct by comparing +---- ^ + 10 * its content to a given signature. + 11 */ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4184:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4230:0 +run_file.at-4230-prog.cob:13.18-13.22: + 10 FD file1. + 11 1 file1-rec pic x. + 12 PROCEDURE DIVISION. + 13 > DELETE FILE file1. +---- ^^^^ + 14 OPEN OUTPUT file1. + 15 MOVE "A" TO file1-rec. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4301:0 +run_file.at-4301-prog.cob:16.18-16.22: + 13 FD file2. + 14 1 file2-rec pic xx. + 15 PROCEDURE DIVISION. + 16 > DELETE FILE file1, file2 +---- ^^^^ + 17 OPEN OUTPUT file1, file2 + 18 MOVE "A" TO file1-rec, file2-rec +>> Error: Invalid syntax + +run_file.at-4301-prog.cob:16.28: + 13 FD file2. + 14 1 file2-rec pic xx. + 15 PROCEDURE DIVISION. + 16 > DELETE FILE file1, file2 +---- ^ + 17 OPEN OUTPUT file1, file2 + 18 MOVE "A" TO file1-rec, file2-rec +>> Hint: Missing . + +run_file.at-4301-prog.cob:16.30-16.35: + 13 FD file2. + 14 1 file2-rec pic xx. + 15 PROCEDURE DIVISION. + 16 > DELETE FILE file1, file2 +---- ^^^^^ + 17 OPEN OUTPUT file1, file2 + 18 MOVE "A" TO file1-rec, file2-rec +>> Error: Invalid syntax + +run_file.at-4301-prog.cob:16.35: + 13 FD file2. + 14 1 file2-rec pic xx. + 15 PROCEDURE DIVISION. + 16 > DELETE FILE file1, file2 +---- ^ + 17 OPEN OUTPUT file1, file2 + 18 MOVE "A" TO file1-rec, file2-rec +>> Hint: Missing . + +run_file.at-4301-prog.cob:17.11-17.15: + 14 1 file2-rec pic xx. + 15 PROCEDURE DIVISION. + 16 DELETE FILE file1, file2 + 17 > OPEN OUTPUT file1, file2 +---- ^^^^ + 18 MOVE "A" TO file1-rec, file2-rec + 19 WRITE file1-rec +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4340:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4390:0 +run_file.at-4390-prog.cob:15.24: + 12 01 TEST-REC PIC X(4). + 13 PROCEDURE DIVISION. + 14 OPEN INPUT TEST-FILE + 15 > PERFORM UNTIL EXIT +---- ^ + 16 READ TEST-FILE + 17 AT END EXIT PERFORM +>> Hint: Missing + +run_file.at-4390-prog.cob:15.25-15.29: + 12 01 TEST-REC PIC X(4). + 13 PROCEDURE DIVISION. + 14 OPEN INPUT TEST-FILE + 15 > PERFORM UNTIL EXIT +---- ^^^^ + 16 READ TEST-FILE + 17 AT END EXIT PERFORM +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4429:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4556:0 +run_file.at-4556-inp_data:1.7-1.47: + 1 > Record 1................................X....... +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 2 Record 2.....................X + 3 Record 3................................X... +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4554:0 +run_file.at-4554-prog.cob:7.39-7.47: + 4 ENVIRONMENT DIVISION. + 5 INPUT-OUTPUT SECTION. + 6 FILE-CONTROL. + 7 > SELECT INFILE ASSIGN TO EXTERNAL INFILE +---- ^^^^^^^^ + 8 ORGANIZATION IS LINE SEQUENTIAL + 9 FILE STATUS IS INPUT-STATUS . +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-4554-prog.cob:11.38-11.46: + 8 ORGANIZATION IS LINE SEQUENTIAL + 9 FILE STATUS IS INPUT-STATUS . + 10 + 11 > SELECT OUTFILE ASSIGN TO EXTERNAL OUTFILE +---- ^^^^^^^^ + 12 ORGANIZATION IS LINE SEQUENTIAL + 13 FILE STATUS IS INPUT-STATUS . +>> Warning: Ignored EXTERNAL (implementation pending) + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4569:0 +run_file.at-4569-reference:1.7-1.8: + 1 > Record 1. +---- ^ + 2 Record 2................................ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4685:0 +run_file.at-4685-inp_data:1.7-1.47: + 1 > Record 1................................X....... +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 2 Record 2.....................X + 3 Record 3................................X... +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4683:0 +run_file.at-4683-prog.cob:7.39-7.47: + 4 ENVIRONMENT DIVISION. + 5 INPUT-OUTPUT SECTION. + 6 FILE-CONTROL. + 7 > SELECT INFILE ASSIGN TO EXTERNAL INFILE +---- ^^^^^^^^ + 8 ORGANIZATION IS LINE SEQUENTIAL + 9 FILE STATUS IS INPUT-STATUS . +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-4683-prog.cob:11.38-11.46: + 8 ORGANIZATION IS LINE SEQUENTIAL + 9 FILE STATUS IS INPUT-STATUS . + 10 + 11 > SELECT OUTFILE ASSIGN TO EXTERNAL OUTFILE +---- ^^^^^^^^ + 12 ORGANIZATION IS LINE SEQUENTIAL + 13 FILE STATUS IS INPUT-STATUS . +>> Warning: Ignored EXTERNAL (implementation pending) + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:4704:0 +run_file.at-4704-reference:1.7-1.8: + 1 > Record 1. +---- ^ + 2 Record 2................................ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5007:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5011:0 +run_file.at-5011-reference-report:22.6-22.7: + 19 + 20 + 21 + 22 > PAGE: 0001 LC: 000000 DATE: 150206 +---- ^ + 23 000001 + 24 000002 IDENTIFICATION DIVISION. +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:22.7-22.10: + 19 + 20 + 21 + 22 > PAGE: 0001 LC: 000000 DATE: 150206 +---- ^^^ + 23 000001 + 24 000002 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +run_file.at-5011-reference-report:42.6-42.7: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 DATE: 150206 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:42.38: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 DATE: 150206 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Hint: Missing RENAMES . + +run_file.at-5011-reference-report:42.37-42.38: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 DATE: 150206 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Error: Invalid syntax + +run_file.at-5011-reference-report:42.45: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 DATE: 150206 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Hint: Missing . + +run_file.at-5011-reference-report:42.68-42.72: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 DATE: 150206 +---- ^^^^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Error: Invalid syntax + +run_file.at-5011-reference-report:62.6-62.7: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 DATE: 150206 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:62.38: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 DATE: 150206 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Hint: Missing RENAMES . + +run_file.at-5011-reference-report:62.37-62.38: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 DATE: 150206 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Error: Invalid syntax + +run_file.at-5011-reference-report:62.45: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 DATE: 150206 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Hint: Missing . + +run_file.at-5011-reference-report:62.68-62.72: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 DATE: 150206 +---- ^^^^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Error: Invalid syntax + +run_file.at-5011-reference-report:82.6-82.7: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 DATE: 150206 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:82.38: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 DATE: 150206 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Hint: Missing RENAMES . + +run_file.at-5011-reference-report:82.37-82.38: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 DATE: 150206 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Error: Invalid syntax + +run_file.at-5011-reference-report:82.45: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 DATE: 150206 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Hint: Missing . + +run_file.at-5011-reference-report:82.68-82.72: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 DATE: 150206 +---- ^^^^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Error: Invalid syntax + +run_file.at-5011-reference-report:102.6-102.7: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:96.21: + 93 000011 main. + 94 000012 open input data-file. + 95 000013 read data-file + 96 > 000014 at end +---- ^ + 97 + 98 +>> Hint: Missing . + +run_file.at-5011-reference-report:102.7-102.10: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^^^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Error: Invalid syntax + +run_file.at-5011-reference-report:102.10: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Hint: Missing . + +run_file.at-5011-reference-report:102.35-102.38: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^^^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:102.38: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Hint: Missing . + +run_file.at-5011-reference-report:102.37-102.38: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:102.45: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Hint: Missing . + +run_file.at-5011-reference-report:102.68-102.72: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 DATE: 150206 +---- ^^^^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:105.11-105.19: + 102 PAGE: 0005 LC: 000015 DATE: 150206 + 103 000001 display "File open error: " data-file-status + 104 000002 stop run + 105 > 000003 end-read. +---- ^^^^^^^^ + 106 000004 + 107 000005 open output mini-report. +>> Error: Invalid syntax + +run_file.at-5011-reference-report:122.6-122.7: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:116.28: + 113 000011 move 1 to page-count. + 114 000012 accept page-date from date end-accept. + 115 000013 move page-count to page-no. + 116 > 000014 write report-line +---- ^ + 117 + 118 +>> Hint: Missing . + +run_file.at-5011-reference-report:122.7-122.10: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^^^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Error: Invalid syntax + +run_file.at-5011-reference-report:122.10: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Hint: Missing . + +run_file.at-5011-reference-report:122.35-122.38: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^^^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:122.38: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Hint: Missing . + +run_file.at-5011-reference-report:122.37-122.38: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:122.45: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Hint: Missing . + +run_file.at-5011-reference-report:122.68-122.72: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 DATE: 150206 +---- ^^^^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:123.38: + 120 + 121 + 122 PAGE: 0006 LC: 000015 DATE: 150206 + 123 > 000001 from report-line-header +---- ^ + 124 000002 after advancing page + 125 000003 end-write. +>> Hint: Missing . + +run_file.at-5011-reference-report:124.15-124.20: + 121 + 122 PAGE: 0006 LC: 000015 DATE: 150206 + 123 000001 from report-line-header + 124 > 000002 after advancing page +---- ^^^^^ + 125 000003 end-write. + 126 000004 +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:125.11-125.20: + 122 PAGE: 0006 LC: 000015 DATE: 150206 + 123 000001 from report-line-header + 124 000002 after advancing page + 125 > 000003 end-write. +---- ^^^^^^^^^ + 126 000004 + 127 000005 perform readwrite-loop until endofdata. +>> Error: Invalid syntax + +run_file.at-5011-reference-report:142.6-142.7: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 DATE: 150206 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:142.10: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 DATE: 150206 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Hint: Missing . + +run_file.at-5011-reference-report:142.35-142.38: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 DATE: 150206 +---- ^^^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:142.38: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 DATE: 150206 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Hint: Missing . + +run_file.at-5011-reference-report:142.37-142.38: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 DATE: 150206 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:142.45: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 DATE: 150206 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Hint: Missing . + +run_file.at-5011-reference-report:142.68-142.72: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 DATE: 150206 +---- ^^^^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:162.6-162.7: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Error: Unexpected indicator: `0' + +run_file.at-5011-reference-report:156.25: + 153 000011 after advancing page + 154 000012 end-write + 155 000013 end-write + 156 > 000014 read data-file +---- ^ + 157 + 158 +>> Hint: Missing . + +run_file.at-5011-reference-report:162.7-162.10: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^^^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Error: Invalid syntax + +run_file.at-5011-reference-report:162.10: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Hint: Missing . + +run_file.at-5011-reference-report:162.35-162.38: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^^^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:162.38: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Hint: Missing . + +run_file.at-5011-reference-report:162.37-162.38: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:162.45: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Hint: Missing . + +run_file.at-5011-reference-report:162.68-162.72: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 DATE: 150206 +---- ^^^^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Warning: Invalid syntax + +run_file.at-5011-reference-report:164.11-164.19: + 161 + 162 PAGE: 0008 LC: 000015 DATE: 150206 + 163 000001 at end set endofdata to true + 164 > 000002 end-read +---- ^^^^^^^^ + 165 000003 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5291:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5301:0 +run_file.at-5301-reference-report:22.6-22.7: + 19 + 20 + 21 + 22 > PAGE: 0001 LC: 000000 +---- ^ + 23 000001 + 24 000002 IDENTIFICATION DIVISION. +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:22.7-22.10: + 19 + 20 + 21 + 22 > PAGE: 0001 LC: 000000 +---- ^^^ + 23 000001 + 24 000002 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +run_file.at-5301-reference-report:42.6-42.7: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:42.38: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Hint: Missing RENAMES . + +run_file.at-5301-reference-report:42.37-42.38: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Error: Invalid syntax + +run_file.at-5301-reference-report:42.45: + 39 + 40 + 41 + 42 > PAGE: 0002 LC: 000015 +---- ^ + 43 000001 01 data-record. + 44 000002 88 endofdata value high-values. +>> Hint: Missing . + +run_file.at-5301-reference-report:43.7-43.9: + 40 + 41 + 42 PAGE: 0002 LC: 000015 + 43 > 000001 01 data-record. +---- ^^ + 44 000002 88 endofdata value high-values. + 45 000003 02 data-line pic x(80). +>> Error: Invalid syntax + +run_file.at-5301-reference-report:62.6-62.7: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:62.38: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Hint: Missing RENAMES . + +run_file.at-5301-reference-report:62.37-62.38: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Error: Invalid syntax + +run_file.at-5301-reference-report:62.45: + 59 + 60 + 61 + 62 > PAGE: 0003 LC: 000015 +---- ^ + 63 000001 01 lc pic 99. + 64 000002 01 report-line-blank. +>> Hint: Missing . + +run_file.at-5301-reference-report:63.7-63.9: + 60 + 61 + 62 PAGE: 0003 LC: 000015 + 63 > 000001 01 lc pic 99. +---- ^^ + 64 000002 01 report-line-blank. + 65 000003 02 filler pic x(18) value all "*". +>> Error: Invalid syntax + +run_file.at-5301-reference-report:82.6-82.7: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:82.38: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Hint: Missing RENAMES . + +run_file.at-5301-reference-report:82.37-82.38: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Error: Invalid syntax + +run_file.at-5301-reference-report:82.45: + 79 + 80 + 81 + 82 > PAGE: 0004 LC: 000015 +---- ^ + 83 000001 02 filler pic x(24). + 84 000002 02 filler pic x(5) VALUE " LC: ". +>> Hint: Missing . + +run_file.at-5301-reference-report:83.11-83.13: + 80 + 81 + 82 PAGE: 0004 LC: 000015 + 83 > 000001 02 filler pic x(24). +---- ^^ + 84 000002 02 filler pic x(5) VALUE " LC: ". + 85 000003 02 header-tag pic 9(6). +>> Error: Invalid syntax + +run_file.at-5301-reference-report:102.6-102.7: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:96.21: + 93 000011 main. + 94 000012 open input data-file. + 95 000013 read data-file + 96 > 000014 at end +---- ^ + 97 + 98 +>> Hint: Missing . + +run_file.at-5301-reference-report:102.7-102.10: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 +---- ^^^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Error: Invalid syntax + +run_file.at-5301-reference-report:102.10: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Hint: Missing . + +run_file.at-5301-reference-report:102.35-102.38: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 +---- ^^^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:102.38: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Hint: Missing . + +run_file.at-5301-reference-report:102.37-102.38: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:102.45: + 99 + 100 + 101 + 102 > PAGE: 0005 LC: 000015 +---- ^ + 103 000001 display "File open error: " data-file-status + 104 000002 stop run +>> Hint: Missing . + +run_file.at-5301-reference-report:103.19-103.26: + 100 + 101 + 102 PAGE: 0005 LC: 000015 + 103 > 000001 display "File open error: " data-file-status +---- ^^^^^^^ + 104 000002 stop run + 105 000003 end-read. +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:105.11-105.19: + 102 PAGE: 0005 LC: 000015 + 103 000001 display "File open error: " data-file-status + 104 000002 stop run + 105 > 000003 end-read. +---- ^^^^^^^^ + 106 000004 + 107 000005 open output mini-report. +>> Error: Invalid syntax + +run_file.at-5301-reference-report:122.6-122.7: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:116.28: + 113 000011 move 1 to page-count. + 114 000012 accept page-date from date end-accept. + 115 000013 move page-count to page-no. + 116 > 000014 write report-line +---- ^ + 117 + 118 +>> Hint: Missing . + +run_file.at-5301-reference-report:122.7-122.10: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 +---- ^^^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Error: Invalid syntax + +run_file.at-5301-reference-report:122.10: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Hint: Missing . + +run_file.at-5301-reference-report:122.35-122.38: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 +---- ^^^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:122.38: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Hint: Missing . + +run_file.at-5301-reference-report:122.37-122.38: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:122.45: + 119 + 120 + 121 + 122 > PAGE: 0006 LC: 000015 +---- ^ + 123 000001 from report-line-header + 124 000002 after advancing page +>> Hint: Missing . + +run_file.at-5301-reference-report:123.15-123.19: + 120 + 121 + 122 PAGE: 0006 LC: 000015 + 123 > 000001 from report-line-header +---- ^^^^ + 124 000002 after advancing page + 125 000003 end-write. +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:123.38: + 120 + 121 + 122 PAGE: 0006 LC: 000015 + 123 > 000001 from report-line-header +---- ^ + 124 000002 after advancing page + 125 000003 end-write. +>> Hint: Missing . + +run_file.at-5301-reference-report:124.15-124.20: + 121 + 122 PAGE: 0006 LC: 000015 + 123 000001 from report-line-header + 124 > 000002 after advancing page +---- ^^^^^ + 125 000003 end-write. + 126 000004 +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:125.11-125.20: + 122 PAGE: 0006 LC: 000015 + 123 000001 from report-line-header + 124 000002 after advancing page + 125 > 000003 end-write. +---- ^^^^^^^^^ + 126 000004 + 127 000005 perform readwrite-loop until endofdata. +>> Error: Invalid syntax + +run_file.at-5301-reference-report:142.6-142.7: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:142.10: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Hint: Missing . + +run_file.at-5301-reference-report:142.35-142.38: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 +---- ^^^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:142.38: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Hint: Missing . + +run_file.at-5301-reference-report:142.37-142.38: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:142.45: + 139 + 140 + 141 + 142 > PAGE: 0007 LC: 000015 +---- ^ + 143 000001**************************************************************** + 144 000002 readwrite-loop. +>> Hint: Missing . + +run_file.at-5301-reference-report:144.7-144.21: + 141 + 142 PAGE: 0007 LC: 000015 + 143 000001**************************************************************** + 144 > 000002 readwrite-loop. +---- ^^^^^^^^^^^^^^ + 145 000003 move data-record to report-line-data + 146 000004 move linage-counter to body-tag +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:162.6-162.7: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Error: Unexpected indicator: `0' + +run_file.at-5301-reference-report:156.25: + 153 000011 after advancing page + 154 000012 end-write + 155 000013 end-write + 156 > 000014 read data-file +---- ^ + 157 + 158 +>> Hint: Missing . + +run_file.at-5301-reference-report:162.7-162.10: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 +---- ^^^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Error: Invalid syntax + +run_file.at-5301-reference-report:162.10: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Hint: Missing . + +run_file.at-5301-reference-report:162.35-162.38: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 +---- ^^^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:162.38: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Hint: Missing . + +run_file.at-5301-reference-report:162.37-162.38: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:162.45: + 159 + 160 + 161 + 162 > PAGE: 0008 LC: 000015 +---- ^ + 163 000001 at end set endofdata to true + 164 000002 end-read +>> Hint: Missing . + +run_file.at-5301-reference-report:163.15-163.21: + 160 + 161 + 162 PAGE: 0008 LC: 000015 + 163 > 000001 at end set endofdata to true +---- ^^^^^^ + 164 000002 end-read + 165 000003 . +>> Warning: Invalid syntax + +run_file.at-5301-reference-report:164.11-164.19: + 161 + 162 PAGE: 0008 LC: 000015 + 163 000001 at end set endofdata to true + 164 > 000002 end-read +---- ^^^^^^^^ + 165 000003 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5363:0 +run_file.at-5363-prog.cob:36.32-36.37: + 33 READ f + 34 AT END + 35 DISPLAY "Failed: EOF" + 36 > STOP RUN ERROR +---- ^^^^^ + 37 END-READ + 38 +>> Error: Invalid syntax + +run_file.at-5363-prog.cob:44.28-44.33: + 41 DISPLAY rec-size ": >" f-rec (1:rec-size) "<" + 42 IF rec-size NOT = i + 43 DISPLAY "Failed: bad record size" + 44 > STOP RUN ERROR +---- ^^^^^ + 45 END-IF + 46 IF f-x (rec-size) NOT = 1-x (rec-size) +>> Error: Invalid syntax + +run_file.at-5363-prog.cob:48.28-48.33: + 45 END-IF + 46 IF f-x (rec-size) NOT = 1-x (rec-size) + 47 DISPLAY "Failed: bad data" + 48 > STOP RUN ERROR +---- ^^^^^ + 49 END-IF + 50 END-PERFORM +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5437:0 +run_file.at-5437-prog.cob:37.32-37.37: + 34 READ f + 35 AT END + 36 DISPLAY "Failed: EOF" + 37 > STOP RUN ERROR +---- ^^^^^ + 38 END-READ + 39 +>> Error: Invalid syntax + +run_file.at-5437-prog.cob:43.28-43.33: + 40 DISPLAY rec-size ": >" f-rec (1:rec-size) "<" + 41 IF rec-size NOT = i + 42 DISPLAY "Failed: bad record size" + 43 > STOP RUN ERROR +---- ^^^^^ + 44 END-IF + 45 IF f-x (rec-size) NOT = 1-x (rec-size) +>> Error: Invalid syntax + +run_file.at-5437-prog.cob:47.28-47.33: + 44 END-IF + 45 IF f-x (rec-size) NOT = 1-x (rec-size) + 46 DISPLAY "Failed: bad data" + 47 > STOP RUN ERROR +---- ^^^^^ + 48 END-IF + 49 END-PERFORM +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5558:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5630:0 +run_file.at-5630-prog1.cob:8.23: + 5 input-output section. + 6 file-control. + 7 select file1 assign disk + 8 > lock mode is exclusive +---- ^ + 9 status is fs. + 10 data division. +>> Hint: Missing AUTOMATIC + +run_file.at-5630-prog1.cob:8.24-8.33: + 5 input-output section. + 6 file-control. + 7 select file1 assign disk + 8 > lock mode is exclusive +---- ^^^^^^^^^ + 9 status is fs. + 10 data division. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5631:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5698:0 +run_file.at-5698-prog1.cob:21.32: + 18 procedure division. + 19 open output file1. + 20 close file1. + 21 > open input file1 with lock. +---- ^ + 22 accept os-check from environment "COB_ON_CYGWIN". + 23 if os-check = spaces +>> Hint: Missing NO REWIND + +run_file.at-5698-prog1.cob:21.33-21.37: + 18 procedure division. + 19 open output file1. + 20 close file1. + 21 > open input file1 with lock. +---- ^^^^ + 22 accept os-check from environment "COB_ON_CYGWIN". + 23 if os-check = spaces +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5699:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5768:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5769:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5842:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5843:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5916:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5917:0 +run_file.at-5917-prog2.cob:21.32: + 18 stop run + 19 end-if. + 20 close file1 + 21 > open input file1 with lock. +---- ^ + 22 if fs not = "61" + 23 display "FAILED: " fs +>> Hint: Missing NO REWIND + +run_file.at-5917-prog2.cob:21.33-21.37: + 18 stop run + 19 end-if. + 20 close file1 + 21 > open input file1 with lock. +---- ^^^^ + 22 if fs not = "61" + 23 display "FAILED: " fs +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:5951:0 +run_file.at-5951-prog.cob:13.18-13.22: + 10 FD file1. + 11 1 file1-rec pic x. + 12 PROCEDURE DIVISION. + 13 > DELETE FILE file1. +---- ^^^^ + 14 OPEN OUTPUT file1. + 15 MOVE "A" TO file1-rec. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6001:0 +run_file.at-6001-prog.cob:17.18-17.22: + 14 WORKING-STORAGE SECTION. + 15 77 file1-key pic 99. + 16 PROCEDURE DIVISION. + 17 > DELETE FILE file1. +---- ^^^^ + 18 OPEN OUTPUT file1. + 19 MOVE 1 to file1-key. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6063:0 +run_file.at-6063-prog.cob:37.32-37.37: + 34 READ f + 35 AT END + 36 DISPLAY "Failed: EOF" + 37 > STOP RUN ERROR +---- ^^^^^ + 38 END-READ + 39 +>> Error: Invalid syntax + +run_file.at-6063-prog.cob:43.28-43.33: + 40 DISPLAY rec-size ": >" f-rec (1:rec-size) "<" + 41 IF rec-size NOT = i + 42 DISPLAY "Failed: bad record size" + 43 > STOP RUN ERROR +---- ^^^^^ + 44 END-IF + 45 IF f-x (rec-size) NOT = 1-x (rec-size) +>> Error: Invalid syntax + +run_file.at-6063-prog.cob:47.28-47.33: + 44 END-IF + 45 IF f-x (rec-size) NOT = 1-x (rec-size) + 46 DISPLAY "Failed: bad data" + 47 > STOP RUN ERROR +---- ^^^^^ + 48 END-IF + 49 END-PERFORM +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6113:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6183:0 +run_file.at-6183-prog.cob:43.32-43.37: + 40 READ f + 41 AT END + 42 DISPLAY "Failed: EOF" + 43 > STOP RUN ERROR +---- ^^^^^ + 44 END-READ + 45 +>> Error: Invalid syntax + +run_file.at-6183-prog.cob:49.28-49.33: + 46 DISPLAY rec-size ": >" f-rec (3:rec-size - 2) "<" + 47 IF rec-size NOT = (22 - f-key) + 1 + 48 DISPLAY "Failed: bad record size - " rec-size + 49 > STOP RUN ERROR +---- ^^^^^ + 50 END-IF + 51 IF f-x (rec-size - 2) NOT = 1-x (rec-size - 2) +>> Error: Invalid syntax + +run_file.at-6183-prog.cob:53.28-53.33: + 50 END-IF + 51 IF f-x (rec-size - 2) NOT = 1-x (rec-size - 2) + 52 DISPLAY "Failed: bad data - " f-data + 53 > STOP RUN ERROR +---- ^^^^^ + 54 END-IF + 55 END-PERFORM +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6273:0 +run_file.at-6273-prog1.cob:10.23: + 7 select file1 assign disk + 8 organization indexed + 9 record key file1-key + 10 > lock mode is exclusive +---- ^ + 11 status is fs. + 12 data division. +>> Hint: Missing AUTOMATIC + +run_file.at-6273-prog1.cob:10.24-10.33: + 7 select file1 assign disk + 8 organization indexed + 9 record key file1-key + 10 > lock mode is exclusive +---- ^^^^^^^^^ + 11 status is fs. + 12 data division. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6274:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6351:0 +run_file.at-6351-prog1.cob:25.32: + 22 procedure division. + 23 open output file1. + 24 close file1. + 25 > open input file1 with lock. +---- ^ + 26 accept os-check from environment "COB_ON_CYGWIN". + 27 if os-check = spaces +>> Hint: Missing NO REWIND + +run_file.at-6351-prog1.cob:25.33-25.37: + 22 procedure division. + 23 open output file1. + 24 close file1. + 25 > open input file1 with lock. +---- ^^^^ + 26 accept os-check from environment "COB_ON_CYGWIN". + 27 if os-check = spaces +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6352:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6430:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6431:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6515:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6516:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6598:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6599:0 +run_file.at-6599-prog2.cob:25.32: + 22 stop run + 23 end-if. + 24 close file1 + 25 > open input file1 with lock. +---- ^ + 26 if fs not = "61" + 27 display "FAILED: " fs +>> Hint: Missing NO REWIND + +run_file.at-6599-prog2.cob:25.33-25.37: + 22 stop run + 23 end-if. + 24 close file1 + 25 > open input file1 with lock. +---- ^^^^ + 26 if fs not = "61" + 27 display "FAILED: " fs +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6688:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6689:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6781:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6782:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6871:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6872:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:6951:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:7095:0 +run_file.at-7095-prog.cob:36.18-36.22: + 33 01 w-serial PIC 99 VALUE 0. + 34 + 35 PROCEDURE DIVISION. + 36 > DELETE FILE f +---- ^^^^ + 37 OPEN I-O f + 38 MOVE "AAAAAAaaaaaaXX----" TO f-rec +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:7266:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:7361:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:8028:0 +run_file.at-8028-cmod.c:8.6-8.7: + 5 static char *txtOpCode(int opCode); + 6 + 7 /********************************************************* + 8 > * TSTFH - External File Handler entry point. +---- ^ + 9 *********************************************************/ + 10 +>> Error: Unexpected indicator: `T' + +run_file.at-8028-cmod.c:11.6-11.7: + 8 * TSTFH - External File Handler entry point. + 9 *********************************************************/ + 10 + 11 > COB_EXT_EXPORT int +---- ^ + 12 TSTFH (unsigned char *opCodep, FCD3 *fcd) + 13 { +>> Error: Unexpected indicator: `T' + +run_file.at-8028-cmod.c:12.6-12.7: + 9 *********************************************************/ + 10 + 11 COB_EXT_EXPORT int + 12 > TSTFH (unsigned char *opCodep, FCD3 *fcd) +---- ^ + 13 { + 14 unsigned int opCode; +>> Error: Unexpected indicator: `(' + +run_file.at-8028-cmod.c:14.6-14.7: + 11 COB_EXT_EXPORT int + 12 TSTFH (unsigned char *opCodep, FCD3 *fcd) + 13 { + 14 > unsigned int opCode; +---- ^ + 15 + 16 if (*opCodep == 0xfa) +>> Error: Unexpected indicator: `i' + +run_file.at-8028-cmod.c:16.6-16.7: + 13 { + 14 unsigned int opCode; + 15 + 16 > if (*opCodep == 0xfa) +---- ^ + 17 opCode = 0xfa00 + opCodep[1]; + 18 else +>> Error: Unexpected indicator: `(' + +run_file.at-8028-cmod.c:17.6-17.7: + 14 unsigned int opCode; + 15 + 16 if (*opCodep == 0xfa) + 17 > opCode = 0xfa00 + opCodep[1]; +---- ^ + 18 else + 19 opCode = opCodep[1]; +>> Error: Unexpected indicator: `o' + +run_file.at-8028-cmod.c:18.6-18.7: + 15 + 16 if (*opCodep == 0xfa) + 17 opCode = 0xfa00 + opCodep[1]; + 18 > else +---- ^ + 19 opCode = opCodep[1]; + 20 +>> Error: Unexpected indicator: `e' + +run_file.at-8028-cmod.c:19.6-19.7: + 16 if (*opCodep == 0xfa) + 17 opCode = 0xfa00 + opCodep[1]; + 18 else + 19 > opCode = opCodep[1]; +---- ^ + 20 + 21 if (fcd->fileOrg == ORG_LINE_SEQ +>> Error: Unexpected indicator: `o' + +run_file.at-8028-cmod.c:21.6-21.7: + 18 else + 19 opCode = opCodep[1]; + 20 + 21 > if (fcd->fileOrg == ORG_LINE_SEQ +---- ^ + 22 || fcd->fileOrg == ORG_SEQ + 23 || fcd->fileOrg == ORG_INDEXED +>> Error: Unexpected indicator: `(' + +run_file.at-8028-cmod.c:25.6-25.7: + 22 || fcd->fileOrg == ORG_SEQ + 23 || fcd->fileOrg == ORG_INDEXED + 24 || fcd->fileOrg == ORG_RELATIVE) { + 25 > switch (opCode) { +---- ^ + 26 case OP_OPEN_OUTPUT: + 27 case OP_OPEN_IO: +>> Error: Unexpected indicator: `s' + +run_file.at-8028-cmod.c:26.6-26.7: + 23 || fcd->fileOrg == ORG_INDEXED + 24 || fcd->fileOrg == ORG_RELATIVE) { + 25 switch (opCode) { + 26 > case OP_OPEN_OUTPUT: +---- ^ + 27 case OP_OPEN_IO: + 28 case OP_OPEN_EXTEND: +>> Error: Unexpected indicator: `c' + +run_file.at-8028-cmod.c:27.6-27.7: + 24 || fcd->fileOrg == ORG_RELATIVE) { + 25 switch (opCode) { + 26 case OP_OPEN_OUTPUT: + 27 > case OP_OPEN_IO: +---- ^ + 28 case OP_OPEN_EXTEND: + 29 case OP_OPEN_OUTPUT_NOREWIND: +>> Error: Unexpected indicator: `c' + +run_file.at-8028-cmod.c:28.6-28.7: + 25 switch (opCode) { + 26 case OP_OPEN_OUTPUT: + 27 case OP_OPEN_IO: + 28 > case OP_OPEN_EXTEND: +---- ^ + 29 case OP_OPEN_OUTPUT_NOREWIND: + 30 return EXTFH(opCodep, fcd); +>> Error: Unexpected indicator: `c' + +run_file.at-8028-cmod.c:29.6-29.7: + 26 case OP_OPEN_OUTPUT: + 27 case OP_OPEN_IO: + 28 case OP_OPEN_EXTEND: + 29 > case OP_OPEN_OUTPUT_NOREWIND: +---- ^ + 30 return EXTFH(opCodep, fcd); + 31 break; +>> Error: Unexpected indicator: `c' + +run_file.at-8028-cmod.c:33.6-33.7: + 30 return EXTFH(opCodep, fcd); + 31 break; + 32 + 33 > case OP_OPEN_INPUT: +---- ^ + 34 case OP_OPEN_INPUT_NOREWIND: + 35 case OP_OPEN_INPUT_REVERSED: +>> Error: Unexpected indicator: `c' + +run_file.at-8028-cmod.c:34.6-34.7: + 31 break; + 32 + 33 case OP_OPEN_INPUT: + 34 > case OP_OPEN_INPUT_NOREWIND: +---- ^ + 35 case OP_OPEN_INPUT_REVERSED: + 36 return EXTFH(opCodep, fcd); +>> Error: Unexpected indicator: `c' + +run_file.at-8028-cmod.c:35.6-35.7: + 32 + 33 case OP_OPEN_INPUT: + 34 case OP_OPEN_INPUT_NOREWIND: + 35 > case OP_OPEN_INPUT_REVERSED: +---- ^ + 36 return EXTFH(opCodep, fcd); + 37 break; +>> Error: Unexpected indicator: `c' + +run_file.at-8028-cmod.c:41.6-41.7: + 38 + 39 default: + 40 break; + 41 > } +---- ^ + 42 + 43 } +>> Error: Unexpected indicator: `}' + +run_file.at-8028-cmod.c:45.6-45.7: + 42 + 43 } + 44 + 45 > if (opCode == OP_CLOSE +---- ^ + 46 && (fcd->openMode & OPEN_NOT_OPEN) ) { + 47 return 0; +>> Error: Unexpected indicator: `(' + +run_file.at-8028-cmod.c:47.6-47.7: + 44 + 45 if (opCode == OP_CLOSE + 46 && (fcd->openMode & OPEN_NOT_OPEN) ) { + 47 > return 0; +---- ^ + 48 } + 49 +>> Error: Unexpected indicator: `r' + +run_file.at-8028-cmod.c:50.6-50.7: + 47 return 0; + 48 } + 49 + 50 > return EXTFH(opCodep, fcd); +---- ^ + 51 } +>> Error: Unexpected indicator: `u' + +run_file.at-8028-cmod.c:16.16-21.22: + 13 { + 14 unsigned int opCode; + 15 + 16 > if (*opCodep == 0xfa) +---- ^^^^^^ + 17 > opCode = 0xfa00 + opCodep[1]; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 18 > else +---- ^^^^^^^^ + 19 > opCode = opCodep[1]; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 20 > +---- ^ + 21 > if (fcd->fileOrg == ORG_LINE_SEQ +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 22 || fcd->fileOrg == ORG_SEQ + 23 || fcd->fileOrg == ORG_INDEXED +>> Error: Unexpected pseudotext + +run_file.at-8028-cmod.c:22.20-23.22: + 19 opCode = opCodep[1]; + 20 + 21 if (fcd->fileOrg == ORG_LINE_SEQ + 22 > || fcd->fileOrg == ORG_SEQ +---- ^^ + 23 > || fcd->fileOrg == ORG_INDEXED +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 24 || fcd->fileOrg == ORG_RELATIVE) { + 25 switch (opCode) { +>> Error: Unexpected pseudotext + +run_file.at-8028-cmod.c:24.20-45.16: + 21 if (fcd->fileOrg == ORG_LINE_SEQ + 22 || fcd->fileOrg == ORG_SEQ + 23 || fcd->fileOrg == ORG_INDEXED + 24 > || fcd->fileOrg == ORG_RELATIVE) { +---- + 25 > switch (opCode) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 26 > case OP_OPEN_OUTPUT: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 27 > case OP_OPEN_IO: +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 28 > case OP_OPEN_EXTEND: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 29 > case OP_OPEN_OUTPUT_NOREWIND: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 30 > return EXTFH(opCodep, fcd); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 31 > break; +---- ^^^^^^^^^^^^^^^^ + 32 > +---- ^ + 33 > case OP_OPEN_INPUT: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 34 > case OP_OPEN_INPUT_NOREWIND: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 35 > case OP_OPEN_INPUT_REVERSED: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 36 > return EXTFH(opCodep, fcd); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 37 > break; +---- ^^^^^^^^^^^^^^^^ + 38 > +---- ^ + 39 > default: +---- ^^^^^^^^^^^^^^^ + 40 > break; +---- ^^^^^^^^^^^^^^^^ + 41 > } +---- ^^^^^^^^ + 42 > +---- ^ + 43 > } +---- ^^^^^ + 44 > +---- ^ + 45 > if (opCode == OP_CLOSE +---- ^^^^^^^^^^^^^^^^^ + 46 && (fcd->openMode & OPEN_NOT_OPEN) ) { + 47 return 0; +>> Error: Unexpected pseudotext + +run_file.at-8028-cmod.c:5.7-5.11: + 2 #include + 3 #include + 4 + 5 > static char *txtOpCode(int opCode); +---- ^^^^ + 6 + 7 /********************************************************* +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:8028:0 +run_file.at-8028-prog.cob:26.34-26.42: + 23 ALTERNATE RECORD KEY IS TS-DISK WITH DUPLICATES + 24 FILE STATUS IS CUST-STAT . + 25 + 26 > SELECT FLATFILE ASSIGN EXTERNAL RELFIX +---- ^^^^^^^^ + 27 ORGANIZATION RELATIVE + 28 ACCESS IS RANDOM RELATIVE KEY IS REC-NUM +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-8028-prog.cob:110.54: + 107 05 FILLER PIC X(8) VALUE "PRE00000". + 108 + 109 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 110 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 111 02 DATA-COMPANY-TBL. + 112 +>> Hint: Missing + +run_file.at-8028-prog.cob:110.55-110.62: + 107 05 FILLER PIC X(8) VALUE "PRE00000". + 108 + 109 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 110 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 111 02 DATA-COMPANY-TBL. + 112 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:131.55: + 128 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 129 + 130 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 131 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 132 02 DATA-ADDRESS-1-TBL. + 133 +>> Hint: Missing + +run_file.at-8028-prog.cob:131.56-131.63: + 128 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 129 + 130 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 131 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 132 02 DATA-ADDRESS-1-TBL. + 133 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:152.55: + 149 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 150 + 151 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 152 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 153 02 DATA-ADDRESS-2-TBL. + 154 +>> Hint: Missing + +run_file.at-8028-prog.cob:152.56-152.63: + 149 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 150 + 151 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 152 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 153 02 DATA-ADDRESS-2-TBL. + 154 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:173.55: + 170 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 171 + 172 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 173 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 174 02 DATA-ADDRESS-3-TBL. + 175 +>> Hint: Missing + +run_file.at-8028-prog.cob:173.56-173.63: + 170 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 171 + 172 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 173 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 174 02 DATA-ADDRESS-3-TBL. + 175 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:194.55: + 191 05 FILLER PIC X(10) VALUE "N.Y. ". + 192 + 193 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 194 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 195 02 DATA-TELEPHONE-TBL. + 196 +>> Hint: Missing + +run_file.at-8028-prog.cob:194.56-194.63: + 191 05 FILLER PIC X(10) VALUE "N.Y. ". + 192 + 193 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 194 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 195 02 DATA-TELEPHONE-TBL. + 196 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:215.55: + 212 05 FILLER PIC 9(10) VALUE 4169898509. + 213 + 214 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 215 > PIC 9(10) OCCURS MAX-SUB. +---- ^ + 216 02 DATA-DP-MGR-TBL. + 217 +>> Hint: Missing + +run_file.at-8028-prog.cob:215.56-215.63: + 212 05 FILLER PIC 9(10) VALUE 4169898509. + 213 + 214 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 215 > PIC 9(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 216 02 DATA-DP-MGR-TBL. + 217 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:236.55: + 233 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 234 + 235 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 236 > PIC X(20) OCCURS MAX-SUB. +---- ^ + 237 02 DATA-MACHINE-TBL. + 238 +>> Hint: Missing + +run_file.at-8028-prog.cob:236.56-236.63: + 233 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 234 + 235 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 236 > PIC X(20) OCCURS MAX-SUB. +---- ^^^^^^^ + 237 02 DATA-MACHINE-TBL. + 238 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:257.54: + 254 05 FILLER PIC X(8) VALUE "UNI-9040". + 255 + 256 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 257 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 258 02 DATA-NO-TERMINALS-TBL. + 259 +>> Hint: Missing + +run_file.at-8028-prog.cob:257.55-257.62: + 254 05 FILLER PIC X(8) VALUE "UNI-9040". + 255 + 256 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 257 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 258 02 DATA-NO-TERMINALS-TBL. + 259 +>> Error: Invalid syntax + +run_file.at-8028-prog.cob:278.61: + 275 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 276 + 277 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 278 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^ + 279 + 280 78 REC-MAX VALUE 10. +>> Hint: Missing + +run_file.at-8028-prog.cob:278.62-278.69: + 275 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 276 + 277 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 278 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^^^^^^^ + 279 + 280 78 REC-MAX VALUE 10. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:8591:0 +run_file.at-8591-prog.cob:9.7-9.17: + 6 ENVIRONMENT DIVISION. + 7 CONFIGURATION SECTION. + 8 + 9 > $set fcdreg +---- ^^^^^^^^^^ + 10 INPUT-OUTPUT SECTION. + 11 FILE-CONTROL. +>> Error: Unexpected characters + +run_file.at-8591-prog.cob:88.54: + 85 05 FILLER PIC X(8) VALUE "PRE00000". + 86 + 87 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 88 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 89 02 DATA-COMPANY-TBL. + 90 +>> Hint: Missing + +run_file.at-8591-prog.cob:88.55-88.62: + 85 05 FILLER PIC X(8) VALUE "PRE00000". + 86 + 87 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 88 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 89 02 DATA-COMPANY-TBL. + 90 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:109.55: + 106 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 107 + 108 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 109 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 110 02 DATA-ADDRESS-1-TBL. + 111 +>> Hint: Missing + +run_file.at-8591-prog.cob:109.56-109.63: + 106 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 107 + 108 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 109 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 110 02 DATA-ADDRESS-1-TBL. + 111 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:130.55: + 127 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 128 + 129 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 130 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 131 02 DATA-ADDRESS-2-TBL. + 132 +>> Hint: Missing + +run_file.at-8591-prog.cob:130.56-130.63: + 127 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 128 + 129 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 130 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 131 02 DATA-ADDRESS-2-TBL. + 132 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:151.55: + 148 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 149 + 150 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 151 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 152 02 DATA-ADDRESS-3-TBL. + 153 +>> Hint: Missing + +run_file.at-8591-prog.cob:151.56-151.63: + 148 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 149 + 150 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 151 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 152 02 DATA-ADDRESS-3-TBL. + 153 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:172.55: + 169 05 FILLER PIC X(10) VALUE "N.Y. ". + 170 + 171 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 172 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 173 02 DATA-TELEPHONE-TBL. + 174 +>> Hint: Missing + +run_file.at-8591-prog.cob:172.56-172.63: + 169 05 FILLER PIC X(10) VALUE "N.Y. ". + 170 + 171 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 172 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 173 02 DATA-TELEPHONE-TBL. + 174 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:193.55: + 190 05 FILLER PIC 9(10) VALUE 4169898509. + 191 + 192 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 193 > PIC 9(10) OCCURS MAX-SUB. +---- ^ + 194 02 DATA-DP-MGR-TBL. + 195 +>> Hint: Missing + +run_file.at-8591-prog.cob:193.56-193.63: + 190 05 FILLER PIC 9(10) VALUE 4169898509. + 191 + 192 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 193 > PIC 9(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 194 02 DATA-DP-MGR-TBL. + 195 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:214.55: + 211 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 212 + 213 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 214 > PIC X(20) OCCURS MAX-SUB. +---- ^ + 215 02 DATA-MACHINE-TBL. + 216 +>> Hint: Missing + +run_file.at-8591-prog.cob:214.56-214.63: + 211 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 212 + 213 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 214 > PIC X(20) OCCURS MAX-SUB. +---- ^^^^^^^ + 215 02 DATA-MACHINE-TBL. + 216 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:235.54: + 232 05 FILLER PIC X(8) VALUE "UNI-9040". + 233 + 234 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 235 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 236 02 DATA-NO-TERMINALS-TBL. + 237 +>> Hint: Missing + +run_file.at-8591-prog.cob:235.55-235.62: + 232 05 FILLER PIC X(8) VALUE "UNI-9040". + 233 + 234 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 235 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 236 02 DATA-NO-TERMINALS-TBL. + 237 +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:256.61: + 253 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 254 + 255 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 256 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^ + 257 + 258 01 WORK-AREA. +>> Hint: Missing + +run_file.at-8591-prog.cob:256.62-256.69: + 253 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 254 + 255 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 256 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^^^^^^^ + 257 + 258 01 WORK-AREA. +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:270.11-270.29: + 267 LINKAGE SECTION. + 268 + 269 01 TSP-FCD. + 270 > COPY "xfhfcd.cpy". +---- ^^^^^^^^^^^^^^^^^^ + 271 + 272 01 key-def. +>> Error: Library `xfhfcd.cpy' not found in search path (search path: ) + +run_file.at-8591-prog.cob:304.16-304.22: + 301 DISPLAY "File assigned is '" + 302 TSP-FILENAME (1:FCD-NAME-LENGTH) "'". + 303 SET FCD-FILENAME-ADDRESS TO ADDRESS OF OUT-FILE-NAME. + 304 > MOVE LENGTH OF OUT-FILE-NAME TO FCD-NAME-LENGTH. +---- ^^^^^^ + 305 DISPLAY "*** Dump FCD before changes" + 306 PERFORM DUMP-FCD. +>> Error: Invalid syntax + +run_file.at-8591-prog.cob:333.32-333.38: + 330 UNTIL IDX2 > key-count (idx) + 331 SET ADDRESS OF KEY-COMP TO KC-PTR + 332 DISPLAY " Pos " kc-pos " Len " kc-len + 333 > SET KC-PTR UP BY LENGTH OF KEY-COMP +---- ^^^^^^ + 334 END-PERFORM + 335 END-PERFORM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:8672:0 +run_file.at-8672-reference:1.6-1.7: + 1 > Other Flags 32. +---- ^ + 2 File has 0003 keys. + 3 Key def 0112 bytes. +>> Error: Unexpected indicator: `F' + +run_file.at-8672-reference:2.6-2.7: + 1 Other Flags 32. + 2 > File has 0003 keys. +---- ^ + 3 Key def 0112 bytes. + 4 File assigned is 'mytstisam' +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:3.6-3.7: + 1 Other Flags 32. + 2 File has 0003 keys. + 3 > Key def 0112 bytes. +---- ^ + 4 File assigned is 'mytstisam' + 5 *** Dump FCD before changes +>> Error: Unexpected indicator: `f' + +run_file.at-8672-reference:4.6-4.7: + 1 Other Flags 32. + 2 File has 0003 keys. + 3 Key def 0112 bytes. + 4 > File assigned is 'mytstisam' +---- ^ + 5 *** Dump FCD before changes + 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . +>> Error: Unexpected indicator: `s' + +run_file.at-8672-reference:5.6-5.7: + 2 File has 0003 keys. + 3 Key def 0112 bytes. + 4 File assigned is 'mytstisam' + 5 > *** Dump FCD before changes +---- ^ + 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 7 Pos 000000000 Len 000000008 +>> Error: Unexpected indicator: `m' + +run_file.at-8672-reference:6.6-6.7: + 3 Key def 0112 bytes. + 4 File assigned is 'mytstisam' + 5 *** Dump FCD before changes + 6 > Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . +---- ^ + 7 Pos 000000000 Len 000000008 + 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:7.6-7.7: + 4 File assigned is 'mytstisam' + 5 *** Dump FCD before changes + 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 7 > Pos 000000000 Len 000000008 +---- ^ + 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . + 9 Pos 000000109 Len 000000010 +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:8.6-8.7: + 5 *** Dump FCD before changes + 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 7 Pos 000000000 Len 000000008 + 8 > Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . +---- ^ + 9 Pos 000000109 Len 000000010 + 10 Pos 000000144 Len 000000008 +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:9.6-9.7: + 6 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 7 Pos 000000000 Len 000000008 + 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . + 9 > Pos 000000109 Len 000000010 +---- ^ + 10 Pos 000000144 Len 000000008 + 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:10.6-10.7: + 7 Pos 000000000 Len 000000008 + 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . + 9 Pos 000000109 Len 000000010 + 10 > Pos 000000144 Len 000000008 +---- ^ + 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . + 12 Pos 000000156 Len 000000008 +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:11.6-11.7: + 8 Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . + 9 Pos 000000109 Len 000000010 + 10 Pos 000000144 Len 000000008 + 11 > Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . +---- ^ + 12 Pos 000000156 Len 000000008 + 13 Pos 000000164 Len 000000008 +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:12.6-12.7: + 9 Pos 000000109 Len 000000010 + 10 Pos 000000144 Len 000000008 + 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . + 12 > Pos 000000156 Len 000000008 +---- ^ + 13 Pos 000000164 Len 000000008 + 14 *** Dump FCD after changes +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:13.6-13.7: + 10 Pos 000000144 Len 000000008 + 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . + 12 Pos 000000156 Len 000000008 + 13 > Pos 000000164 Len 000000008 +---- ^ + 14 *** Dump FCD after changes + 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:14.6-14.7: + 11 Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . + 12 Pos 000000156 Len 000000008 + 13 Pos 000000164 Len 000000008 + 14 > *** Dump FCD after changes +---- ^ + 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 16 Pos 000000000 Len 000000008 +>> Error: Unexpected indicator: `m' + +run_file.at-8672-reference:15.6-15.7: + 12 Pos 000000156 Len 000000008 + 13 Pos 000000164 Len 000000008 + 14 *** Dump FCD after changes + 15 > Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . +---- ^ + 16 Pos 000000000 Len 000000008 + 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:16.6-16.7: + 13 Pos 000000164 Len 000000008 + 14 *** Dump FCD after changes + 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 16 > Pos 000000000 Len 000000008 +---- ^ + 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . + 18 Pos 000000109 Len 000000010 +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:17.6-17.7: + 14 *** Dump FCD after changes + 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 16 Pos 000000000 Len 000000008 + 17 > Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . +---- ^ + 18 Pos 000000109 Len 000000010 + 19 Pos 000000144 Len 000000008 +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:18.6-18.7: + 15 Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . + 16 Pos 000000000 Len 000000008 + 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . + 18 > Pos 000000109 Len 000000010 +---- ^ + 19 Pos 000000144 Len 000000008 + 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:19.6-19.7: + 16 Pos 000000000 Len 000000008 + 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . + 18 Pos 000000109 Len 000000010 + 19 > Pos 000000144 Len 000000008 +---- ^ + 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. + 21 Pos 000000156 Len 000000008 +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:20.6-20.7: + 17 Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . + 18 Pos 000000109 Len 000000010 + 19 Pos 000000144 Len 000000008 + 20 > Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. +---- ^ + 21 Pos 000000156 Len 000000008 + 22 Pos 000000164 Len 000000008 +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:21.6-21.7: + 18 Pos 000000109 Len 000000010 + 19 Pos 000000144 Len 000000008 + 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. + 21 > Pos 000000156 Len 000000008 +---- ^ + 22 Pos 000000164 Len 000000008 + 23 Loading sample file 'myextisam' +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:22.6-22.7: + 19 Pos 000000144 Len 000000008 + 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. + 21 Pos 000000156 Len 000000008 + 22 > Pos 000000164 Len 000000008 +---- ^ + 23 Loading sample file 'myextisam' + 24 Sample data file load complete. +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:23.6-23.7: + 20 Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. + 21 Pos 000000156 Len 000000008 + 22 Pos 000000164 Len 000000008 + 23 > Loading sample file 'myextisam' +---- ^ + 24 Sample data file load complete. + 25 List sample file 'myextisam' +>> Error: Unexpected indicator: `g' + +run_file.at-8672-reference:25.6-25.7: + 22 Pos 000000164 Len 000000008 + 23 Loading sample file 'myextisam' + 24 Sample data file load complete. + 25 > List sample file 'myextisam' +---- ^ + 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +>> Error: Unexpected indicator: `a' + +run_file.at-8672-reference:26.6-26.7: + 23 Loading sample file 'myextisam' + 24 Sample data file load complete. + 25 List sample file 'myextisam' + 26 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . +---- ^ + 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. +>> Error: Unexpected indicator: `L' + +run_file.at-8672-reference:27.6-27.7: + 24 Sample data file load complete. + 25 List sample file 'myextisam' + 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 27 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +---- ^ + 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:28.6-28.7: + 25 List sample file 'myextisam' + 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 28 > Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. +---- ^ + 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:29.6-29.7: + 26 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 29 > Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. +---- ^ + 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:30.6-30.7: + 27 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 30 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . +---- ^ + 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:31.6-31.7: + 28 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 31 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +---- ^ + 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. +>> Error: Unexpected indicator: `A' + +run_file.at-8672-reference:32.6-32.7: + 29 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 32 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +---- ^ + 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +>> Error: Unexpected indicator: `I' + +run_file.at-8672-reference:33.6-33.7: + 30 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 33 > Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. +---- ^ + 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +>> Error: Unexpected indicator: `&' + +run_file.at-8672-reference:34.6-34.7: + 31 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 34 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +---- ^ + 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +>> Error: Unexpected indicator: `N' + +run_file.at-8672-reference:35.6-35.7: + 32 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 35 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +---- ^ + 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:36.6-36.7: + 33 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 36 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +---- ^ + 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:37.6-37.7: + 34 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 37 > Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. +---- ^ + 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:38.6-38.7: + 35 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 38 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +---- ^ + 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:39.6-39.7: + 36 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 39 > Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. +---- ^ + 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:40.6-40.7: + 37 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 40 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +---- ^ + 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 42 Hit End of File after 16 +>> Error: Unexpected indicator: `L' + +run_file.at-8672-reference:41.6-41.7: + 38 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 39 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 41 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . +---- ^ + 42 Hit End of File after 16 + 43 LIST SAMPLE FILE DESCENDING +>> Error: Unexpected indicator: `R' + +run_file.at-8672-reference:43.6-43.7: + 40 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 42 Hit End of File after 16 + 43 > LIST SAMPLE FILE DESCENDING +---- ^ + 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +>> Error: Unexpected indicator: `A' + +run_file.at-8672-reference:44.6-44.7: + 41 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 42 Hit End of File after 16 + 43 LIST SAMPLE FILE DESCENDING + 44 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . +---- ^ + 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. +>> Error: Unexpected indicator: `R' + +run_file.at-8672-reference:45.6-45.7: + 42 Hit End of File after 16 + 43 LIST SAMPLE FILE DESCENDING + 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 45 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +---- ^ + 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +>> Error: Unexpected indicator: `L' + +run_file.at-8672-reference:46.6-46.7: + 43 LIST SAMPLE FILE DESCENDING + 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 46 > Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. +---- ^ + 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:47.6-47.7: + 44 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 47 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +---- ^ + 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:48.6-48.7: + 45 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 48 > Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. +---- ^ + 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:49.6-49.7: + 46 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 49 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +---- ^ + 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:50.6-50.7: + 47 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 50 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +---- ^ + 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:51.6-51.7: + 48 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 51 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +---- ^ + 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +>> Error: Unexpected indicator: `N' + +run_file.at-8672-reference:52.6-52.7: + 49 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 52 > Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. +---- ^ + 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +>> Error: Unexpected indicator: `&' + +run_file.at-8672-reference:53.6-53.7: + 50 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 53 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +---- ^ + 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . +>> Error: Unexpected indicator: `I' + +run_file.at-8672-reference:54.6-54.7: + 51 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 54 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +---- ^ + 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. +>> Error: Unexpected indicator: `A' + +run_file.at-8672-reference:55.6-55.7: + 52 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 55 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . +---- ^ + 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:56.6-56.7: + 53 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 56 > Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. +---- ^ + 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +>> Error: Unexpected indicator: `P' + +run_file.at-8672-reference:57.6-57.7: + 54 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 57 > Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. +---- ^ + 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:58.6-58.7: + 55 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 58 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +---- ^ + 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 60 Hit End of File after 16 +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:59.6-59.7: + 56 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 57 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 59 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . +---- ^ + 60 Hit End of File after 16 + 61 LIST SAMPLE FILE BY KEY3 +>> Error: Unexpected indicator: `L' + +run_file.at-8672-reference:61.6-61.7: + 58 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 60 Hit End of File after 16 + 61 > LIST SAMPLE FILE BY KEY3 +---- ^ + 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . +>> Error: Unexpected indicator: `A' + +run_file.at-8672-reference:62.6-62.7: + 59 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 60 Hit End of File after 16 + 61 LIST SAMPLE FILE BY KEY3 + 62 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . +---- ^ + 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +>> Error: Unexpected indicator: `L' + +run_file.at-8672-reference:63.6-63.7: + 60 Hit End of File after 16 + 61 LIST SAMPLE FILE BY KEY3 + 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 63 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . +---- ^ + 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:64.6-64.7: + 61 LIST SAMPLE FILE BY KEY3 + 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 64 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +---- ^ + 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +>> Error: Unexpected indicator: `A' + +run_file.at-8672-reference:65.6-65.7: + 62 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=2417 . + 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 65 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +---- ^ + 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +>> Error: Unexpected indicator: `I' + +run_file.at-8672-reference:66.6-66.7: + 63 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=2417 . + 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 66 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +---- ^ + 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +>> Error: Unexpected indicator: `N' + +run_file.at-8672-reference:67.6-67.7: + 64 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 67 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +---- ^ + 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:68.6-68.7: + 65 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 68 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +---- ^ + 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:69.6-69.7: + 66 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 69 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +---- ^ + 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 71 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +>> Error: Unexpected indicator: `E' + +run_file.at-8672-reference:70.6-70.7: + 67 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 70 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +---- ^ + 71 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 72 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . +>> Error: Unexpected indicator: `O' + +run_file.at-8672-reference:71.6-71.7: + 68 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 71 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +---- ^ + 72 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 73 Hit End of File after 11 +>> Error: Unexpected indicator: `L' + +run_file.at-8672-reference:72.6-72.7: + 69 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 70 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 71 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 72 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . +---- ^ + 73 Hit End of File after 11 +>> Error: Unexpected indicator: `R' + +run_file.at-8672-reference:1.7-1.11: + 1 > Other Flags 32. +---- ^^^^ + 2 File has 0003 keys. + 3 Key def 0112 bytes. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9007:0 +run_file.at-9007-cmod.c:8.6-8.7: + 5 static char *txtOpCode(int opCode); + 6 + 7 static int + 8 > doOpenFile( +---- ^ + 9 unsigned char *opCodep, + 10 FCD3 *fcd, +>> Error: Unexpected indicator: `F' + +run_file.at-9007-cmod.c:9.6-9.7: + 6 + 7 static int + 8 doOpenFile( + 9 > unsigned char *opCodep, +---- ^ + 10 FCD3 *fcd, + 11 char *opmsg) +>> Error: Unexpected indicator: `i' + +run_file.at-9007-cmod.c:10.6-10.7: + 7 static int + 8 doOpenFile( + 9 unsigned char *opCodep, + 10 > FCD3 *fcd, +---- ^ + 11 char *opmsg) + 12 { +>> Error: Unexpected indicator: `3' + +run_file.at-9007-cmod.c:11.6-11.7: + 8 doOpenFile( + 9 unsigned char *opCodep, + 10 FCD3 *fcd, + 11 > char *opmsg) +---- ^ + 12 { + 13 int sts; +>> Error: Unexpected indicator: `r' + +run_file.at-9007-cmod.c:16.6-16.7: + 13 int sts; + 14 + 15 sts = EXTFH( opCodep, fcd ); + 16 > printf("EXFTH did %s; Status=%c%c; File now %s\n", +---- ^ + 17 opmsg, fcd->fileStatus[0], fcd->fileStatus[1], + 18 (fcd->openMode & OPEN_NOT_OPEN) ? "Closed" : "Open"); +>> Error: Unexpected indicator: `n' + +run_file.at-9007-cmod.c:19.6-19.7: + 16 printf("EXFTH did %s; Status=%c%c; File now %s\n", + 17 opmsg, fcd->fileStatus[0], fcd->fileStatus[1], + 18 (fcd->openMode & OPEN_NOT_OPEN) ? "Closed" : "Open"); + 19 > return sts; +---- ^ + 20 } + 21 +>> Error: Unexpected indicator: `u' + +run_file.at-9007-cmod.c:23.6-23.7: + 20 } + 21 + 22 /********************************************************* + 23 > * TSTFH - External File Handler entry point. +---- ^ + 24 *********************************************************/ + 25 +>> Error: Unexpected indicator: `T' + +run_file.at-9007-cmod.c:26.6-26.7: + 23 * TSTFH - External File Handler entry point. + 24 *********************************************************/ + 25 + 26 > COB_EXT_EXPORT int +---- ^ + 27 TSTFH (unsigned char *opCodep, FCD3 *fcd) + 28 { +>> Error: Unexpected indicator: `T' + +run_file.at-9007-cmod.c:27.6-27.7: + 24 *********************************************************/ + 25 + 26 COB_EXT_EXPORT int + 27 > TSTFH (unsigned char *opCodep, FCD3 *fcd) +---- ^ + 28 { + 29 unsigned int opCode; +>> Error: Unexpected indicator: `(' + +run_file.at-9007-cmod.c:29.6-29.7: + 26 COB_EXT_EXPORT int + 27 TSTFH (unsigned char *opCodep, FCD3 *fcd) + 28 { + 29 > unsigned int opCode; +---- ^ + 30 int sts; + 31 +>> Error: Unexpected indicator: `i' + +run_file.at-9007-cmod.c:32.6-32.7: + 29 unsigned int opCode; + 30 int sts; + 31 + 32 > if (*opCodep == 0xfa) +---- ^ + 33 opCode = 0xfa00 + opCodep[1]; + 34 else +>> Error: Unexpected indicator: `(' + +run_file.at-9007-cmod.c:33.6-33.7: + 30 int sts; + 31 + 32 if (*opCodep == 0xfa) + 33 > opCode = 0xfa00 + opCodep[1]; +---- ^ + 34 else + 35 opCode = opCodep[1]; +>> Error: Unexpected indicator: `o' + +run_file.at-9007-cmod.c:34.6-34.7: + 31 + 32 if (*opCodep == 0xfa) + 33 opCode = 0xfa00 + opCodep[1]; + 34 > else +---- ^ + 35 opCode = opCodep[1]; + 36 +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:35.6-35.7: + 32 if (*opCodep == 0xfa) + 33 opCode = 0xfa00 + opCodep[1]; + 34 else + 35 > opCode = opCodep[1]; +---- ^ + 36 + 37 if (fcd->fileOrg == ORG_LINE_SEQ +>> Error: Unexpected indicator: `o' + +run_file.at-9007-cmod.c:37.6-37.7: + 34 else + 35 opCode = opCodep[1]; + 36 + 37 > if (fcd->fileOrg == ORG_LINE_SEQ +---- ^ + 38 || fcd->fileOrg == ORG_SEQ + 39 || fcd->fileOrg == ORG_INDEXED +>> Error: Unexpected indicator: `(' + +run_file.at-9007-cmod.c:41.6-41.7: + 38 || fcd->fileOrg == ORG_SEQ + 39 || fcd->fileOrg == ORG_INDEXED + 40 || fcd->fileOrg == ORG_RELATIVE) { + 41 > switch (opCode) { +---- ^ + 42 case OP_OPEN_OUTPUT: + 43 case OP_OPEN_IO: +>> Error: Unexpected indicator: `s' + +run_file.at-9007-cmod.c:42.6-42.7: + 39 || fcd->fileOrg == ORG_INDEXED + 40 || fcd->fileOrg == ORG_RELATIVE) { + 41 switch (opCode) { + 42 > case OP_OPEN_OUTPUT: +---- ^ + 43 case OP_OPEN_IO: + 44 case OP_OPEN_EXTEND: +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:43.6-43.7: + 40 || fcd->fileOrg == ORG_RELATIVE) { + 41 switch (opCode) { + 42 case OP_OPEN_OUTPUT: + 43 > case OP_OPEN_IO: +---- ^ + 44 case OP_OPEN_EXTEND: + 45 case OP_OPEN_OUTPUT_NOREWIND: +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:44.6-44.7: + 41 switch (opCode) { + 42 case OP_OPEN_OUTPUT: + 43 case OP_OPEN_IO: + 44 > case OP_OPEN_EXTEND: +---- ^ + 45 case OP_OPEN_OUTPUT_NOREWIND: + 46 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:45.6-45.7: + 42 case OP_OPEN_OUTPUT: + 43 case OP_OPEN_IO: + 44 case OP_OPEN_EXTEND: + 45 > case OP_OPEN_OUTPUT_NOREWIND: +---- ^ + 46 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); + 47 break; +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:49.6-49.7: + 46 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); + 47 break; + 48 + 49 > case OP_OPEN_INPUT: +---- ^ + 50 case OP_OPEN_INPUT_NOREWIND: + 51 case OP_OPEN_INPUT_REVERSED: +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:50.6-50.7: + 47 break; + 48 + 49 case OP_OPEN_INPUT: + 50 > case OP_OPEN_INPUT_NOREWIND: +---- ^ + 51 case OP_OPEN_INPUT_REVERSED: + 52 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:51.6-51.7: + 48 + 49 case OP_OPEN_INPUT: + 50 case OP_OPEN_INPUT_NOREWIND: + 51 > case OP_OPEN_INPUT_REVERSED: +---- ^ + 52 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); + 53 break; +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:55.6-55.7: + 52 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); + 53 break; + 54 + 55 > case OP_CLOSE: +---- ^ + 56 return doOpenFile( opCodep, fcd, txtOpCode(opCode)); + 57 break; +>> Error: Unexpected indicator: `c' + +run_file.at-9007-cmod.c:61.6-61.7: + 58 + 59 default: + 60 break; + 61 > } +---- ^ + 62 + 63 } +>> Error: Unexpected indicator: `}' + +run_file.at-9007-cmod.c:65.6-65.7: + 62 + 63 } + 64 + 65 > if (opCode == OP_CLOSE +---- ^ + 66 && (fcd->openMode & OPEN_NOT_OPEN) ) { + 67 return 0; +>> Error: Unexpected indicator: `(' + +run_file.at-9007-cmod.c:67.6-67.7: + 64 + 65 if (opCode == OP_CLOSE + 66 && (fcd->openMode & OPEN_NOT_OPEN) ) { + 67 > return 0; +---- ^ + 68 } + 69 +>> Error: Unexpected indicator: `r' + +run_file.at-9007-cmod.c:71.6-71.7: + 68 } + 69 + 70 sts = EXTFH(opCodep, fcd); + 71 > printf("EXFTH did %s; Status=%c%c\n", txtOpCode(opCode), +---- ^ + 72 fcd->fileStatus[0], fcd->fileStatus[1]); + 73 return sts; +>> Error: Unexpected indicator: `n' + +run_file.at-9007-cmod.c:73.6-73.7: + 70 sts = EXTFH(opCodep, fcd); + 71 printf("EXFTH did %s; Status=%c%c\n", txtOpCode(opCode), + 72 fcd->fileStatus[0], fcd->fileStatus[1]); + 73 > return sts; +---- ^ + 74 } + 75 +>> Error: Unexpected indicator: `u' + +run_file.at-9007-cmod.c:77.6-77.7: + 74 } + 75 + 76 static char * /* Return Text name of function */ + 77 > txtOpCode(int opCode) +---- ^ + 78 { + 79 static char tmp[32]; +>> Error: Unexpected indicator: `o' + +run_file.at-9007-cmod.c:79.6-79.7: + 76 static char * /* Return Text name of function */ + 77 txtOpCode(int opCode) + 78 { + 79 > static char tmp[32]; +---- ^ + 80 switch (opCode) { + 81 case OP_OPEN_INPUT: return "OPEN_IN"; +>> Error: Unexpected indicator: `t' + +run_file.at-9007-cmod.c:80.6-80.7: + 77 txtOpCode(int opCode) + 78 { + 79 static char tmp[32]; + 80 > switch (opCode) { +---- ^ + 81 case OP_OPEN_INPUT: return "OPEN_IN"; + 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; +>> Error: Unexpected indicator: `t' + +run_file.at-9007-cmod.c:81.6-81.7: + 78 { + 79 static char tmp[32]; + 80 switch (opCode) { + 81 > case OP_OPEN_INPUT: return "OPEN_IN"; +---- ^ + 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; + 83 case OP_OPEN_IO: return "OPEN_IO"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:82.6-82.7: + 79 static char tmp[32]; + 80 switch (opCode) { + 81 case OP_OPEN_INPUT: return "OPEN_IN"; + 82 > case OP_OPEN_OUTPUT: return "OPEN_OUT"; +---- ^ + 83 case OP_OPEN_IO: return "OPEN_IO"; + 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:83.6-83.7: + 80 switch (opCode) { + 81 case OP_OPEN_INPUT: return "OPEN_IN"; + 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; + 83 > case OP_OPEN_IO: return "OPEN_IO"; +---- ^ + 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; + 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:84.6-84.7: + 81 case OP_OPEN_INPUT: return "OPEN_IN"; + 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; + 83 case OP_OPEN_IO: return "OPEN_IO"; + 84 > case OP_OPEN_EXTEND: return "OPEN_EXT"; +---- ^ + 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; + 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:85.6-85.7: + 82 case OP_OPEN_OUTPUT: return "OPEN_OUT"; + 83 case OP_OPEN_IO: return "OPEN_IO"; + 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; + 85 > case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; +---- ^ + 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; + 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:86.6-86.7: + 83 case OP_OPEN_IO: return "OPEN_IO"; + 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; + 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; + 86 > case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; +---- ^ + 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; + 88 case OP_CLOSE: return "CLOSE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:87.6-87.7: + 84 case OP_OPEN_EXTEND: return "OPEN_EXT"; + 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; + 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; + 87 > case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; +---- ^ + 88 case OP_CLOSE: return "CLOSE"; + 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:88.6-88.7: + 85 case OP_OPEN_INPUT_NOREWIND: return "OPEN_IN_NOREW"; + 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; + 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; + 88 > case OP_CLOSE: return "CLOSE"; +---- ^ + 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; + 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:89.6-89.7: + 86 case OP_OPEN_OUTPUT_NOREWIND: return "OPEN_OUT_NOREW"; + 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; + 88 case OP_CLOSE: return "CLOSE"; + 89 > case OP_CLOSE_LOCK: return "CLOSE_LOCK"; +---- ^ + 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; + 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:90.6-90.7: + 87 case OP_OPEN_INPUT_REVERSED: return "OPEN_IN_REV"; + 88 case OP_CLOSE: return "CLOSE"; + 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; + 90 > case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; +---- ^ + 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; + 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:91.6-91.7: + 88 case OP_CLOSE: return "CLOSE"; + 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; + 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; + 91 > case OP_CLOSE_REEL: return "CLOSE_REEL"; +---- ^ + 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; + 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:92.6-92.7: + 89 case OP_CLOSE_LOCK: return "CLOSE_LOCK"; + 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; + 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; + 92 > case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; +---- ^ + 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; + 94 case OP_START_EQ: return "START_EQ"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:93.6-93.7: + 90 case OP_CLOSE_NOREWIND: return "CLOSE_NORED"; + 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; + 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; + 93 > case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; +---- ^ + 94 case OP_START_EQ: return "START_EQ"; + 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:94.6-94.7: + 91 case OP_CLOSE_REEL: return "CLOSE_REEL"; + 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; + 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; + 94 > case OP_START_EQ: return "START_EQ"; +---- ^ + 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; + 96 case OP_START_GT: return "START_GT"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:95.6-95.7: + 92 case OP_CLOSE_REMOVE: return "CLOSE_REMOVE"; + 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; + 94 case OP_START_EQ: return "START_EQ"; + 95 > case OP_START_EQ_ANY: return "START_EQ_ANY"; +---- ^ + 96 case OP_START_GT: return "START_GT"; + 97 case OP_START_GE: return "START_GE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:96.6-96.7: + 93 case OP_CLOSE_NO_REWIND: return "CLOSE_NO_REW"; + 94 case OP_START_EQ: return "START_EQ"; + 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; + 96 > case OP_START_GT: return "START_GT"; +---- ^ + 97 case OP_START_GE: return "START_GE"; + 98 case OP_START_LT: return "START_LT"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:97.6-97.7: + 94 case OP_START_EQ: return "START_EQ"; + 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; + 96 case OP_START_GT: return "START_GT"; + 97 > case OP_START_GE: return "START_GE"; +---- ^ + 98 case OP_START_LT: return "START_LT"; + 99 case OP_START_LE: return "START_LE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:98.6-98.7: + 95 case OP_START_EQ_ANY: return "START_EQ_ANY"; + 96 case OP_START_GT: return "START_GT"; + 97 case OP_START_GE: return "START_GE"; + 98 > case OP_START_LT: return "START_LT"; +---- ^ + 99 case OP_START_LE: return "START_LE"; + 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:99.6-99.7: + 96 case OP_START_GT: return "START_GT"; + 97 case OP_START_GE: return "START_GE"; + 98 case OP_START_LT: return "START_LT"; + 99 > case OP_START_LE: return "START_LE"; +---- ^ + 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; + 101 case OP_READ_SEQ: return "READ_SEQ"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:100.6-100.7: + 97 case OP_START_GE: return "START_GE"; + 98 case OP_START_LT: return "START_LT"; + 99 case OP_START_LE: return "START_LE"; + 100 > case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; +---- ^ + 101 case OP_READ_SEQ: return "READ_SEQ"; + 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:101.6-101.7: + 98 case OP_START_LT: return "START_LT"; + 99 case OP_START_LE: return "START_LE"; + 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; + 101 > case OP_READ_SEQ: return "READ_SEQ"; +---- ^ + 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; + 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:102.6-102.7: + 99 case OP_START_LE: return "START_LE"; + 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; + 101 case OP_READ_SEQ: return "READ_SEQ"; + 102 > case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; +---- ^ + 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; + 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:103.6-103.7: + 100 case OP_READ_SEQ_NO_LOCK: return "READ_SEQ_NO_LK"; + 101 case OP_READ_SEQ: return "READ_SEQ"; + 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; + 103 > case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; +---- ^ + 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; + 105 case OP_READ_PREV: return "READ_PREV"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:104.6-104.7: + 101 case OP_READ_SEQ: return "READ_SEQ"; + 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; + 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; + 104 > case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; +---- ^ + 105 case OP_READ_PREV: return "READ_PREV"; + 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:105.6-105.7: + 102 case OP_READ_SEQ_LOCK: return "READ_SEQ_LK"; + 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; + 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; + 105 > case OP_READ_PREV: return "READ_PREV"; +---- ^ + 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; + 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:106.6-106.7: + 103 case OP_READ_SEQ_KEPT_LOCK: return "READ_SEQ_KEPT_LK"; + 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; + 105 case OP_READ_PREV: return "READ_PREV"; + 106 > case OP_READ_PREV_LOCK: return "READ_PREV_LK"; +---- ^ + 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; + 108 case OP_READ_RAN: return "READ_RAN"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:107.6-107.7: + 104 case OP_READ_PREV_NO_LOCK: return "READ_PREV_NO_LK"; + 105 case OP_READ_PREV: return "READ_PREV"; + 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; + 107 > case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; +---- ^ + 108 case OP_READ_RAN: return "READ_RAN"; + 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:108.6-108.7: + 105 case OP_READ_PREV: return "READ_PREV"; + 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; + 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; + 108 > case OP_READ_RAN: return "READ_RAN"; +---- ^ + 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; + 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:109.6-109.7: + 106 case OP_READ_PREV_LOCK: return "READ_PREV_LK"; + 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; + 108 case OP_READ_RAN: return "READ_RAN"; + 109 > case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; +---- ^ + 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; + 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:110.6-110.7: + 107 case OP_READ_PREV_KEPT_LOCK: return "READ_PREV_KEPT_LK"; + 108 case OP_READ_RAN: return "READ_RAN"; + 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; + 110 > case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; +---- ^ + 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; + 112 case OP_READ_DIR: return "READ_DIR"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:111.6-111.7: + 108 case OP_READ_RAN: return "READ_RAN"; + 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; + 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; + 111 > case OP_READ_RAN_LOCK: return "READ_RAN_LK"; +---- ^ + 112 case OP_READ_DIR: return "READ_DIR"; + 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:112.6-112.7: + 109 case OP_READ_RAN_NO_LOCK: return "READ_RAN_NO_LK"; + 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; + 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; + 112 > case OP_READ_DIR: return "READ_DIR"; +---- ^ + 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; + 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:113.6-113.7: + 110 case OP_READ_RAN_KEPT_LOCK: return "READ_RAN_KEPT_LK"; + 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; + 112 case OP_READ_DIR: return "READ_DIR"; + 113 > case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; +---- ^ + 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; + 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:114.6-114.7: + 111 case OP_READ_RAN_LOCK: return "READ_RAN_LK"; + 112 case OP_READ_DIR: return "READ_DIR"; + 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; + 114 > case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; +---- ^ + 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; + 116 case OP_READ_POSITION: return "READ_POSITION"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:115.6-115.7: + 112 case OP_READ_DIR: return "READ_DIR"; + 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; + 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; + 115 > case OP_READ_DIR_LOCK: return "READ_DIR_LK"; +---- ^ + 116 case OP_READ_POSITION: return "READ_POSITION"; + 117 case OP_WRITE: return "WRITE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:116.6-116.7: + 113 case OP_READ_DIR_NO_LOCK: return "READ_DIR_NO_LK"; + 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; + 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; + 116 > case OP_READ_POSITION: return "READ_POSITION"; +---- ^ + 117 case OP_WRITE: return "WRITE"; + 118 case OP_REWRITE: return "REWRITE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:117.6-117.7: + 114 case OP_READ_DIR_KEPT_LOCK: return "READ_DIR_KEPT_LK"; + 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; + 116 case OP_READ_POSITION: return "READ_POSITION"; + 117 > case OP_WRITE: return "WRITE"; +---- ^ + 118 case OP_REWRITE: return "REWRITE"; + 119 case OP_DELETE: return "DELETE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:118.6-118.7: + 115 case OP_READ_DIR_LOCK: return "READ_DIR_LK"; + 116 case OP_READ_POSITION: return "READ_POSITION"; + 117 case OP_WRITE: return "WRITE"; + 118 > case OP_REWRITE: return "REWRITE"; +---- ^ + 119 case OP_DELETE: return "DELETE"; + 120 case OP_DELETE_FILE: return "DELETE_FILE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:119.6-119.7: + 116 case OP_READ_POSITION: return "READ_POSITION"; + 117 case OP_WRITE: return "WRITE"; + 118 case OP_REWRITE: return "REWRITE"; + 119 > case OP_DELETE: return "DELETE"; +---- ^ + 120 case OP_DELETE_FILE: return "DELETE_FILE"; + 121 case OP_UNLOCK: return "UNLOCK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:120.6-120.7: + 117 case OP_WRITE: return "WRITE"; + 118 case OP_REWRITE: return "REWRITE"; + 119 case OP_DELETE: return "DELETE"; + 120 > case OP_DELETE_FILE: return "DELETE_FILE"; +---- ^ + 121 case OP_UNLOCK: return "UNLOCK"; + 122 case OP_ROLLBACK: return "ROLLBACK"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:121.6-121.7: + 118 case OP_REWRITE: return "REWRITE"; + 119 case OP_DELETE: return "DELETE"; + 120 case OP_DELETE_FILE: return "DELETE_FILE"; + 121 > case OP_UNLOCK: return "UNLOCK"; +---- ^ + 122 case OP_ROLLBACK: return "ROLLBACK"; + 123 case OP_COMMIT: return "COMMIT"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:122.6-122.7: + 119 case OP_DELETE: return "DELETE"; + 120 case OP_DELETE_FILE: return "DELETE_FILE"; + 121 case OP_UNLOCK: return "UNLOCK"; + 122 > case OP_ROLLBACK: return "ROLLBACK"; +---- ^ + 123 case OP_COMMIT: return "COMMIT"; + 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:123.6-123.7: + 120 case OP_DELETE_FILE: return "DELETE_FILE"; + 121 case OP_UNLOCK: return "UNLOCK"; + 122 case OP_ROLLBACK: return "ROLLBACK"; + 123 > case OP_COMMIT: return "COMMIT"; +---- ^ + 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; + 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:124.6-124.7: + 121 case OP_UNLOCK: return "UNLOCK"; + 122 case OP_ROLLBACK: return "ROLLBACK"; + 123 case OP_COMMIT: return "COMMIT"; + 124 > case OP_WRITE_BEFORE: return "WRITE_BEFORE"; +---- ^ + 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; + 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:125.6-125.7: + 122 case OP_ROLLBACK: return "ROLLBACK"; + 123 case OP_COMMIT: return "COMMIT"; + 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; + 125 > case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; +---- ^ + 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; + 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:126.6-126.7: + 123 case OP_COMMIT: return "COMMIT"; + 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; + 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; + 126 > case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; +---- ^ + 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; + 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:127.6-127.7: + 124 case OP_WRITE_BEFORE: return "WRITE_BEFORE"; + 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; + 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; + 127 > case OP_WRITE_AFTER: return "WRITE_AFTER"; +---- ^ + 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; + 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:128.6-128.7: + 125 case OP_WRITE_BEFORE_TAB: return "WRITE_BEFORE_TAB"; + 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; + 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; + 128 > case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; +---- ^ + 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; + 130 } +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:129.6-129.7: + 126 case OP_WRITE_BEFORE_PAGE: return "WRITE_BEFORE_PAGE"; + 127 case OP_WRITE_AFTER: return "WRITE_AFTER"; + 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; + 129 > case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; +---- ^ + 130 } + 131 sprintf(tmp, "Func 0x%02X:", opCode); +>> Error: Unexpected indicator: `e' + +run_file.at-9007-cmod.c:131.6-131.7: + 128 case OP_WRITE_AFTER_TAB: return "WRITE_AFTER_TAB"; + 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; + 130 } + 131 > sprintf(tmp, "Func 0x%02X:", opCode); +---- ^ + 132 return tmp; + 133 } +>> Error: Unexpected indicator: `i' + +run_file.at-9007-cmod.c:132.6-132.7: + 129 case OP_WRITE_AFTER_PAGE: return "WRITE_AFTER_PAGE"; + 130 } + 131 sprintf(tmp, "Func 0x%02X:", opCode); + 132 > return tmp; +---- ^ + 133 } +>> Error: Unexpected indicator: `u' + +run_file.at-9007-cmod.c:32.16-37.22: + 29 unsigned int opCode; + 30 int sts; + 31 + 32 > if (*opCodep == 0xfa) +---- ^^^^^^ + 33 > opCode = 0xfa00 + opCodep[1]; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 34 > else +---- ^^^^^^^^ + 35 > opCode = opCodep[1]; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 36 > +---- ^ + 37 > if (fcd->fileOrg == ORG_LINE_SEQ +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 38 || fcd->fileOrg == ORG_SEQ + 39 || fcd->fileOrg == ORG_INDEXED +>> Error: Unexpected pseudotext + +run_file.at-9007-cmod.c:38.20-39.22: + 35 opCode = opCodep[1]; + 36 + 37 if (fcd->fileOrg == ORG_LINE_SEQ + 38 > || fcd->fileOrg == ORG_SEQ +---- ^^ + 39 > || fcd->fileOrg == ORG_INDEXED +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 40 || fcd->fileOrg == ORG_RELATIVE) { + 41 switch (opCode) { +>> Error: Unexpected pseudotext + +run_file.at-9007-cmod.c:40.20-65.16: + 37 if (fcd->fileOrg == ORG_LINE_SEQ + 38 || fcd->fileOrg == ORG_SEQ + 39 || fcd->fileOrg == ORG_INDEXED + 40 > || fcd->fileOrg == ORG_RELATIVE) { +---- + 41 > switch (opCode) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 42 > case OP_OPEN_OUTPUT: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 43 > case OP_OPEN_IO: +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 44 > case OP_OPEN_EXTEND: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 45 > case OP_OPEN_OUTPUT_NOREWIND: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 46 > return doOpenFile( opCodep, fcd, txtOpCode(opCode)); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 47 > break; +---- ^^^^^^^^^^^^^^^^ + 48 > +---- ^ + 49 > case OP_OPEN_INPUT: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 50 > case OP_OPEN_INPUT_NOREWIND: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 51 > case OP_OPEN_INPUT_REVERSED: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 52 > return doOpenFile( opCodep, fcd, txtOpCode(opCode)); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 53 > break; +---- ^^^^^^^^^^^^^^^^ + 54 > +---- ^ + 55 > case OP_CLOSE: +---- ^^^^^^^^^^^^^^^^^^^^^ + 56 > return doOpenFile( opCodep, fcd, txtOpCode(opCode)); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 57 > break; +---- ^^^^^^^^^^^^^^^^ + 58 > +---- ^ + 59 > default: +---- ^^^^^^^^^^^^^^^ + 60 > break; +---- ^^^^^^^^^^^^^^^^ + 61 > } +---- ^^^^^^^^ + 62 > +---- ^ + 63 > } +---- ^^^^^ + 64 > +---- ^ + 65 > if (opCode == OP_CLOSE +---- ^^^^^^^^^^^^^^^^^ + 66 && (fcd->openMode & OPEN_NOT_OPEN) ) { + 67 return 0; +>> Error: Unexpected pseudotext + +run_file.at-9007-cmod.c:5.7-5.11: + 2 #include + 3 #include + 4 + 5 > static char *txtOpCode(int opCode); +---- ^^^^ + 6 + 7 static int +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9007:0 +run_file.at-9007-prog.cob:10.34-10.42: + 7 + 8 INPUT-OUTPUT SECTION. + 9 FILE-CONTROL. + 10 > SELECT FLATFILE ASSIGN EXTERNAL SEQFIX +---- ^^^^^^^^ + 11 ORGANIZATION SEQUENTIAL + 12 FILE STATUS IS CUST-STAT . +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-9007-prog.cob:44.54: + 41 05 FILLER PIC X(8) VALUE "FOR00000". + 42 + 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 44 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 45 02 DATA-COMPANY-TBL. + 46 +>> Hint: Missing + +run_file.at-9007-prog.cob:44.55-44.62: + 41 05 FILLER PIC X(8) VALUE "FOR00000". + 42 + 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 44 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 45 02 DATA-COMPANY-TBL. + 46 +>> Error: Invalid syntax + +run_file.at-9007-prog.cob:54.55: + 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". + 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 54 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 55 02 DATA-ADDRESS-2-TBL. + 56 +>> Hint: Missing + +run_file.at-9007-prog.cob:54.56-54.63: + 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". + 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 54 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 55 02 DATA-ADDRESS-2-TBL. + 56 +>> Error: Invalid syntax + +run_file.at-9007-prog.cob:65.55: + 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 63 + 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 65 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 66 + 67 02 DATA-NO-TERMINALS-TBL. +>> Hint: Missing + +run_file.at-9007-prog.cob:65.56-65.63: + 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 63 + 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 65 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 66 + 67 02 DATA-NO-TERMINALS-TBL. +>> Error: Invalid syntax + +run_file.at-9007-prog.cob:77.61: + 74 05 FILLER PIC 9(3) COMP-3 VALUE 254. + 75 + 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 77 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^ + 78 01 WORK-AREA. + 79 05 SUB BINARY-SHORT UNSIGNED. +>> Hint: Missing + +run_file.at-9007-prog.cob:77.62-77.69: + 74 05 FILLER PIC 9(3) COMP-3 VALUE 254. + 75 + 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 77 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^^^^^^^ + 78 01 WORK-AREA. + 79 05 SUB BINARY-SHORT UNSIGNED. +>> Error: Invalid syntax + +run_file.at-9007-prog.cob:143.19: + 140 PERFORM READ-RECORD + 141 END-PERFORM. + 142 CLOSE FLATFILE. + 143 > STOP RUN RETURNING 0. +---- ^ + 144 + 145 READ-RECORD. +>> Hint: Missing . + +run_file.at-9007-prog.cob:143.20-143.29: + 140 PERFORM READ-RECORD + 141 END-PERFORM. + 142 CLOSE FLATFILE. + 143 > STOP RUN RETURNING 0. +---- ^^^^^^^^^ + 144 + 145 READ-RECORD. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9245:0 +run_file.at-9245-prog.cob:15.50: + 12 01 I PIC XX COMP-X. + 13 + 14 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. + 15 > 01 WS-FCD-PTR POINTER VALUE NULL. +---- ^ + 16 + 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. +>> Hint: Missing + +run_file.at-9245-prog.cob:15.51-15.55: + 12 01 I PIC XX COMP-X. + 13 + 14 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. + 15 > 01 WS-FCD-PTR POINTER VALUE NULL. +---- ^^^^ + 16 + 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:25.44-25.45: + 22 05 DISPLAY-ZZ9 REDEFINES DISPLAY-XXX + 23 PIC ZZ9. + 24 01 ACTION-CODE pic x(2). + 25 > 78 OP-OPEN-INPUT value x"fa00". +---- ^ + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 78 OP-OPEN-I-O value x"fa02". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:26.44-26.45: + 23 PIC ZZ9. + 24 01 ACTION-CODE pic x(2). + 25 78 OP-OPEN-INPUT value x"fa00". + 26 > 78 OP-OPEN-OUTPUT value x"fa01". +---- ^ + 27 78 OP-OPEN-I-O value x"fa02". + 28 78 OP-WRITE value x"faf3". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:27.44-27.45: + 24 01 ACTION-CODE pic x(2). + 25 78 OP-OPEN-INPUT value x"fa00". + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 > 78 OP-OPEN-I-O value x"fa02". +---- ^ + 28 78 OP-WRITE value x"faf3". + 29 78 OP-RELEASE value x"faf3". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:28.44-28.45: + 25 78 OP-OPEN-INPUT value x"fa00". + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 78 OP-OPEN-I-O value x"fa02". + 28 > 78 OP-WRITE value x"faf3". +---- ^ + 29 78 OP-RELEASE value x"faf3". + 30 78 OP-REWRITE value x"faf4". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:29.44-29.45: + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 78 OP-OPEN-I-O value x"fa02". + 28 78 OP-WRITE value x"faf3". + 29 > 78 OP-RELEASE value x"faf3". +---- ^ + 30 78 OP-REWRITE value x"faf4". + 31 78 OP-READ-NEXT value x"faf5". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:30.44-30.45: + 27 78 OP-OPEN-I-O value x"fa02". + 28 78 OP-WRITE value x"faf3". + 29 78 OP-RELEASE value x"faf3". + 30 > 78 OP-REWRITE value x"faf4". +---- ^ + 31 78 OP-READ-NEXT value x"faf5". + 32 78 OP-START-EQUAL value x"fae9". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:31.44-31.45: + 28 78 OP-WRITE value x"faf3". + 29 78 OP-RELEASE value x"faf3". + 30 78 OP-REWRITE value x"faf4". + 31 > 78 OP-READ-NEXT value x"faf5". +---- ^ + 32 78 OP-START-EQUAL value x"fae9". + 33 78 OP-CLOSE value x"fa80". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:32.44-32.45: + 29 78 OP-RELEASE value x"faf3". + 30 78 OP-REWRITE value x"faf4". + 31 78 OP-READ-NEXT value x"faf5". + 32 > 78 OP-START-EQUAL value x"fae9". +---- ^ + 33 78 OP-CLOSE value x"fa80". + 34 78 OP-QUERY-FILE value x"0006". +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:33.44-33.45: + 30 78 OP-REWRITE value x"faf4". + 31 78 OP-READ-NEXT value x"faf5". + 32 78 OP-START-EQUAL value x"fae9". + 33 > 78 OP-CLOSE value x"fa80". +---- ^ + 34 78 OP-QUERY-FILE value x"0006". + 35 +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:34.44-34.45: + 31 78 OP-READ-NEXT value x"faf5". + 32 78 OP-START-EQUAL value x"fae9". + 33 78 OP-CLOSE value x"fa80". + 34 > 78 OP-QUERY-FILE value x"0006". +---- ^ + 35 + 36 01 DISPLAY-A1-XXX PIC X(03). +>> Error: Invalid syntax + +run_file.at-9245-prog.cob:49.11-49.30: + 46 LINKAGE SECTION. + 47 + 48 01 FCD-MAP. + 49 > copy 'xfhfcd3.cpy'. +---- ^^^^^^^^^^^^^^^^^^^ + 50 + 51 *================================================================* +>> Error: Library `xfhfcd3.cpy' not found in search path (search path: ) + +run_file.at-9245-prog.cob:74.15-74.21: + 71 + 72 MOVE "TESTOUT" TO WS-FCD-DDNAME + 73 + 74 > MOVE LENGTH OF FCD-MAP TO WS-FCD-SIZE +---- ^^^^^^ + 75 DISPLAY "FCD SIZE " WS-FCD-SIZE. + 76 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9270:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9434:0 +run_file.at-9434-prog.cob:17.11-17.24: + 14 88 EXTFH-OPCODE-ISCLOSE VALUE X'80'. + 15 88 EXTFH-OPCODE-ISWRITE VALUE X'F3'. + 16 01 FCD-PARAMETER-BLOCK. + 17 > copy xfhfcd3. +---- ^^^^^^^^^^^^^ + 18 01 LSEQ-FILENAME PIC X(44) + 19 VALUE 'FCDLS'. +>> Error: Library `XFHFCD3' not found in search path (search path: ) + +run_file.at-9434-prog.cob:46.16-46.22: + 43 DISPLAY PROGRAM-NAME ': STARTING.' + 44 DISPLAY PROGRAM-NAME ': CREATING LINE SEQUENTIAL FILE.' + 45 SET EXTFH-OPCODE-ISOPENOUTPUT TO TRUE + 46 > MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH +---- ^^^^^^ + 47 MOVE fcd--version-number TO FCD-VERSION + 48 MOVE fcd--open-closed TO FCD-OPEN-MODE +>> Error: Invalid syntax + +run_file.at-9434-prog.cob:49.16-49.22: + 46 MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH + 47 MOVE fcd--version-number TO FCD-VERSION + 48 MOVE fcd--open-closed TO FCD-OPEN-MODE + 49 > MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH +---- ^^^^^^ + 50 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 51 MOVE fcd--format-cobol2 TO FCD-FILE-FORMAT +>> Error: Invalid syntax + +run_file.at-9434-prog.cob:52.16-52.22: + 49 MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH + 50 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 51 MOVE fcd--format-cobol2 TO FCD-FILE-FORMAT + 52 > MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH +---- ^^^^^^ + 53 MOVE fcd--recmode-variable TO FCD-RECORDING-MODE + 54 MOVE 0 TO FCD-MIN-REC-LENGTH +>> Error: Invalid syntax + +run_file.at-9434-prog.cob:94.16-94.22: + 91 DISPLAY PROGRAM-NAME ': READING LINE SEQUENTIAL FILE.' + 92 SET EXTFH-OPCODE-ISOPENINPUT TO TRUE + 93 MOVE fcd--open-closed TO FCD-OPEN-MODE + 94 > MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH +---- ^^^^^^ + 95 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 96 MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH +>> Error: Invalid syntax + +run_file.at-9434-prog.cob:96.16-96.22: + 93 MOVE fcd--open-closed TO FCD-OPEN-MODE + 94 MOVE LENGTH OF LSEQ-FILENAME TO FCD-NAME-LENGTH + 95 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 96 > MOVE LENGTH OF LSEQ-RECORDAREA TO FCD-MAX-REC-LENGTH +---- ^^^^^^ + 97 MOVE 0 TO FCD-MIN-REC-LENGTH + 98 SET FCD-FILENAME-ADDRESS TO ADDRESS OF LSEQ-FILENAME +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9463:0 +run_file.at-9463-reference:1.6-1.7: + 1 > THERE IS LITTLE LAMB +---- ^ + 2 THE LAMB WAS GRAND AND A GRANDMA + 3 THE OLD EWE CHORTLED +>> Error: Unexpected indicator: `I' + +run_file.at-9463-reference:2.6-2.7: + 1 THERE IS LITTLE LAMB + 2 > THE LAMB WAS GRAND AND A GRANDMA +---- ^ + 3 THE OLD EWE CHORTLED +>> Error: Unexpected indicator: `M' + +run_file.at-9463-reference:1.7-1.8: + 1 > THERE IS LITTLE LAMB +---- ^ + 2 THE LAMB WAS GRAND AND A GRANDMA + 3 THE OLD EWE CHORTLED +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9643:0 +run_file.at-9643-prog.cob:19.11-19.24: + 16 88 EXTFH-OPCODE-ISWRITE VALUE X'F3'. + 17 * + 18 01 FCD-PARAMETER-BLOCK. + 19 > copy xfhfcd3. +---- ^^^^^^^^^^^^^ + 20 01 FIX-FILENAME PIC X(44) + 21 VALUE 'FCDFB'. +>> Error: Library `XFHFCD3' not found in search path (search path: ) + +run_file.at-9643-prog.cob:48.16-48.22: + 45 DISPLAY PROGRAM-NAME ': STARTING.' + 46 DISPLAY PROGRAM-NAME ': CREATING FIXED SEQ FILE.' + 47 SET EXTFH-OPCODE-ISOPENOUTPUT TO TRUE + 48 > MOVE LENGTH OF FCD-PARAMETER-BLOCK TO FCD-LENGTH +---- ^^^^^^ + 49 move fcd--version-number TO FCD-VERSION + 50 MOVE fcd--sequential-org TO FCD-ORGANIZATION +>> Error: Invalid syntax + +run_file.at-9643-prog.cob:52.16-52.22: + 49 move fcd--version-number TO FCD-VERSION + 50 MOVE fcd--sequential-org TO FCD-ORGANIZATION + 51 MOVE fcd--open-closed TO FCD-OPEN-MODE + 52 > MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH +---- ^^^^^^ + 53 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 54 move fcd--format-cobol2 to FCD-FILE-FORMAT +>> Error: Invalid syntax + +run_file.at-9643-prog.cob:55.16-55.22: + 52 MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH + 53 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 54 move fcd--format-cobol2 to FCD-FILE-FORMAT + 55 > MOVE LENGTH OF FIX-RECORDAREA TO FCD-MAX-REC-LENGTH +---- ^^^^^^ + 56 MOVE 0 TO FCD-MIN-REC-LENGTH + 57 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FIX-FILENAME +>> Error: Invalid syntax + +run_file.at-9643-prog.cob:100.16-100.22: + 97 SET EXTFH-OPCODE-ISOPENINPUT TO TRUE + 98 MOVE fcd--sequential-org TO FCD-ORGANIZATION + 99 MOVE fcd--open-closed TO FCD-OPEN-MODE + 100 > MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH +---- ^^^^^^ + 101 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 102 move fcd--format-cobol2 to FCD-FILE-FORMAT +>> Error: Invalid syntax + +run_file.at-9643-prog.cob:103.16-103.22: + 100 MOVE LENGTH OF FIX-FILENAME TO FCD-NAME-LENGTH + 101 MOVE fcd--exclusive-bit TO FCD-LOCK-MODE + 102 move fcd--format-cobol2 to FCD-FILE-FORMAT + 103 > MOVE LENGTH OF FIX-RECORDAREA TO FCD-MAX-REC-LENGTH +---- ^^^^^^ + 104 MOVE 0 TO FCD-MIN-REC-LENGTH + 105 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FIX-FILENAME +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:9824:0 +run_file.at-9824-prog.cob:15.16-15.24: + 12 ALTERNATE RECORD KEY IS CM-TELEPHONE WITH DUPLICATES + 13 ALTERNATE RECORD KEY IS SPLIT-KEY3 + 14 SOURCE IS CM-DISK,CM-DP-MGR,CM-MACHINE WITH DUPLICATES + 15 > SUPPRESS WHEN ALL "*" +---- ^^^^^^^^ + 16 FILE STATUS IS CUST-STAT . + 17 +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:48.50: + 45 + 46 01 CUST-STAT PIC X(2) VALUE SPACES. + 47 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. + 48 > 01 WS-FCD-PTR POINTER VALUE NULL. +---- ^ + 49 + 50 01 ACTION-CODE PIC X(2). +>> Hint: Missing + +run_file.at-9824-prog.cob:48.51-48.55: + 45 + 46 01 CUST-STAT PIC X(2) VALUE SPACES. + 47 01 WS-FCD-DDNAME PIC X(8) VALUE SPACES. + 48 > 01 WS-FCD-PTR POINTER VALUE NULL. +---- ^^^^ + 49 + 50 01 ACTION-CODE PIC X(2). +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:51.44-51.45: + 48 01 WS-FCD-PTR POINTER VALUE NULL. + 49 + 50 01 ACTION-CODE PIC X(2). + 51 > 78 OP-OPEN-INPUT VALUE x"fa00". +---- ^ + 52 78 OP-OPEN-OUTPUT VALUE x"fa01". + 53 78 OP-OPEN-I-O VALUE x"fa02". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:52.44-52.45: + 49 + 50 01 ACTION-CODE PIC X(2). + 51 78 OP-OPEN-INPUT VALUE x"fa00". + 52 > 78 OP-OPEN-OUTPUT VALUE x"fa01". +---- ^ + 53 78 OP-OPEN-I-O VALUE x"fa02". + 54 78 OP-WRITE VALUE x"faf3". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:53.44-53.45: + 50 01 ACTION-CODE PIC X(2). + 51 78 OP-OPEN-INPUT VALUE x"fa00". + 52 78 OP-OPEN-OUTPUT VALUE x"fa01". + 53 > 78 OP-OPEN-I-O VALUE x"fa02". +---- ^ + 54 78 OP-WRITE VALUE x"faf3". + 55 78 OP-RELEASE VALUE x"faf3". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:54.44-54.45: + 51 78 OP-OPEN-INPUT VALUE x"fa00". + 52 78 OP-OPEN-OUTPUT VALUE x"fa01". + 53 78 OP-OPEN-I-O VALUE x"fa02". + 54 > 78 OP-WRITE VALUE x"faf3". +---- ^ + 55 78 OP-RELEASE VALUE x"faf3". + 56 78 OP-REWRITE VALUE x"faf4". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:55.44-55.45: + 52 78 OP-OPEN-OUTPUT VALUE x"fa01". + 53 78 OP-OPEN-I-O VALUE x"fa02". + 54 78 OP-WRITE VALUE x"faf3". + 55 > 78 OP-RELEASE VALUE x"faf3". +---- ^ + 56 78 OP-REWRITE VALUE x"faf4". + 57 78 OP-READ-NEXT VALUE x"faf5". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:56.44-56.45: + 53 78 OP-OPEN-I-O VALUE x"fa02". + 54 78 OP-WRITE VALUE x"faf3". + 55 78 OP-RELEASE VALUE x"faf3". + 56 > 78 OP-REWRITE VALUE x"faf4". +---- ^ + 57 78 OP-READ-NEXT VALUE x"faf5". + 58 78 OP-START-EQUAL VALUE x"fae9". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:57.44-57.45: + 54 78 OP-WRITE VALUE x"faf3". + 55 78 OP-RELEASE VALUE x"faf3". + 56 78 OP-REWRITE VALUE x"faf4". + 57 > 78 OP-READ-NEXT VALUE x"faf5". +---- ^ + 58 78 OP-START-EQUAL VALUE x"fae9". + 59 78 OP-CLOSE VALUE x"fa80". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:58.44-58.45: + 55 78 OP-RELEASE VALUE x"faf3". + 56 78 OP-REWRITE VALUE x"faf4". + 57 78 OP-READ-NEXT VALUE x"faf5". + 58 > 78 OP-START-EQUAL VALUE x"fae9". +---- ^ + 59 78 OP-CLOSE VALUE x"fa80". + 60 78 OP-QUERY-FILE VALUE x"0006". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:59.44-59.45: + 56 78 OP-REWRITE VALUE x"faf4". + 57 78 OP-READ-NEXT VALUE x"faf5". + 58 78 OP-START-EQUAL VALUE x"fae9". + 59 > 78 OP-CLOSE VALUE x"fa80". +---- ^ + 60 78 OP-QUERY-FILE VALUE x"0006". + 61 +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:60.44-60.45: + 57 78 OP-READ-NEXT VALUE x"faf5". + 58 78 OP-START-EQUAL VALUE x"fae9". + 59 78 OP-CLOSE VALUE x"fa80". + 60 > 78 OP-QUERY-FILE VALUE x"0006". +---- ^ + 61 + 62 01 FCD-FILENAME PIC X(80) value "testisam". +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:66.11-66.30: + 63 01 FCD-RECORD PIC X(512) VALUE SPACES. + 64 + 65 01 FCD-MAP. + 66 > COPY 'xfhfcd3.cpy'. +---- ^^^^^^^^^^^^^^^^^^^ + 67 + 68 01 KEY-DEF. +>> Error: Library `xfhfcd3.cpy' not found in search path (search path: ) + +run_file.at-9824-prog.cob:93.17-93.21: + 90 *----------------------------------------------------------------* + 91 000-MAIN. + 92 + 93 > DELETE FILE TSPFILE. +---- ^^^^ + 94 OPEN OUTPUT TSPFILE. + 95 WRITE TSPFL-RECORD. +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:101.15-101.21: + 98 SET FCD-KEY-DEF-ADDRESS TO ADDRESS OF KEY-DEF. + 99 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FCD-FILENAME. + 100 MOVE 64 TO FCD-NAME-LENGTH + 101 > MOVE LENGTH OF KEY-DEF TO KDB-LEN. +---- ^^^^^^ + 102 SET FCD-RECORD-ADDRESS TO ADDRESS OF FCD-RECORD. + 103 MOVE 512 TO FCD-CURRENT-REC-LEN +>> Error: Invalid syntax + +run_file.at-9824-prog.cob:130.37-130.43: + 127 " Len: " key-len + 128 " Desc: " key-desc + 129 " Type: " key-type + 130 > SET WS-FCD-PTR UP BY LENGTH OF key-inf +---- ^^^^^^ + 131 SET ADDRESS OF key-inf TO WS-FCD-PTR + 132 END-PERFORM +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:10153:0 +run_file.at-10153-prog.cob:86.11-86.23: + 83 78 UNLOCK-RECORD VALUE X'0F'. + 84 + 85 01 FCD-AREA. + 86 > COPY xfhfcd. +---- ^^^^^^^^^^^^ + 87 + 88 01 FILE-NAME PIC X(64). +>> Error: Library `XFHFCD' not found in search path (search path: ) + +run_file.at-10153-prog.cob:155.16-155.22: + 152 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME + 153 SET FCD-KEY-DEF-ADDRESS TO ADDRESS OF KEY-DEF-AREA + 154 MOVE 16 TO FCD-FS-FLAGS + 155 > MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN +---- ^^^^^^ + 156 MOVE 1 TO NUMBER-OF-KEYS + 157 MOVE LENGTH OF PRIME-KEY TO COMPONENT-LENGTH +>> Error: Invalid syntax + +run_file.at-10153-prog.cob:157.16-157.22: + 154 MOVE 16 TO FCD-FS-FLAGS + 155 MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN + 156 MOVE 1 TO NUMBER-OF-KEYS + 157 > MOVE LENGTH OF PRIME-KEY TO COMPONENT-LENGTH +---- ^^^^^^ + 158 MOVE 8 TO FCD-ACCESS-MODE + 159 MOVE 0 TO FCD-LOCK-MODE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:10152:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:10488:0 +run_file.at-10488-prog.cob:97.11-97.23: + 94 78 ADD-KEY-VALUE VALUE X'09'. + 95 78 UNLOCK-RECORD VALUE X'0F'. + 96 01 FCD-AREA. + 97 > COPY xfhfcd. +---- ^^^^^^^^^^^^ + 98 + 99 01 RECORD-AREA. +>> Error: Library `XFHFCD' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:10488:0 +run_file.at-10488-progs.cob:2.7-2.19: + 1 + 2 > $SET ODOSLIDE +---- ^^^^^^^^^^^^ + 3 ** CREATE KEY-DEF-AREA FROM ACB ARRAY + 4 IDENTIFICATION DIVISION. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:10676:0 +run_file.at-10676-prog.cob:86.12-86.24: + 83 78 UNLOCK-RECORD VALUE X'0F'. + 84 + 85 01 FCD-AREA. + 86 > COPY xfhfcd. +---- ^^^^^^^^^^^^ + 87 + 88 01 RECORD-AREA. +>> Error: Library `XFHFCD' not found in search path (search path: ) + +run_file.at-10676-prog.cob:134.16-134.22: + 131 ** FIXED(0) OR VARIABLE(1) + 132 MOVE 0 TO FCD-RECORDING-MODE + 133 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME + 134 > MOVE LENGTH OF RECORD-AREA TO FCD-MIN-REC-LENGTH +---- ^^^^^^ + 135 MOVE LENGTH OF RECORD-AREA TO FCD-MAX-REC-LENGTH + 136 MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN +>> Error: Invalid syntax + +run_file.at-10676-prog.cob:135.16-135.22: + 132 MOVE 0 TO FCD-RECORDING-MODE + 133 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME + 134 MOVE LENGTH OF RECORD-AREA TO FCD-MIN-REC-LENGTH + 135 > MOVE LENGTH OF RECORD-AREA TO FCD-MAX-REC-LENGTH +---- ^^^^^^ + 136 MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN + 137 PERFORM A-200-CALL-EXTFH. +>> Error: Invalid syntax + +run_file.at-10676-prog.cob:136.16-136.22: + 133 SET FCD-FILENAME-ADDRESS TO ADDRESS OF FILE-NAME + 134 MOVE LENGTH OF RECORD-AREA TO FCD-MIN-REC-LENGTH + 135 MOVE LENGTH OF RECORD-AREA TO FCD-MAX-REC-LENGTH + 136 > MOVE LENGTH OF RECORD-AREA TO FCD-CURRENT-REC-LEN +---- ^^^^^^ + 137 PERFORM A-200-CALL-EXTFH. + 138 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:10835:0 +run_file.at-10835-prog.cob:45.11-45.30: + 42 78 OP-CLOSE VALUE X"fa80". + 43 + 44 01 FCD. + 45 > COPY "xfhfcd3.cpy". +---- ^^^^^^^^^^^^^^^^^^^ + 46 01 EX-FILENAME PIC X(260). + 47 01 EX-RECORD-BUFFER PIC X(32767). +>> Error: Library `xfhfcd3.cpy' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:11193:0 +run_file.at-11193-prog.cob:15.50: + 12 01 I PIC XX COMP-X. + 13 + 14 01 WS-FCD-DDNAME PIC X(10) VALUE SPACES. + 15 > 01 WS-FCD-PTR POINTER VALUE NULL. +---- ^ + 16 + 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. +>> Hint: Missing + +run_file.at-11193-prog.cob:15.51-15.55: + 12 01 I PIC XX COMP-X. + 13 + 14 01 WS-FCD-DDNAME PIC X(10) VALUE SPACES. + 15 > 01 WS-FCD-PTR POINTER VALUE NULL. +---- ^^^^ + 16 + 17 01 WS-FCD-SIZE PIC 9(04) VALUE 0 COMP-5. +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:25.44-25.45: + 22 05 DISPLAY-ZZ9 REDEFINES DISPLAY-XXX + 23 PIC ZZ9. + 24 01 ACTION-CODE pic x(2). + 25 > 78 OP-OPEN-INPUT value x"fa00". +---- ^ + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 78 OP-OPEN-I-O value x"fa02". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:26.44-26.45: + 23 PIC ZZ9. + 24 01 ACTION-CODE pic x(2). + 25 78 OP-OPEN-INPUT value x"fa00". + 26 > 78 OP-OPEN-OUTPUT value x"fa01". +---- ^ + 27 78 OP-OPEN-I-O value x"fa02". + 28 78 OP-WRITE value x"faf3". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:27.44-27.45: + 24 01 ACTION-CODE pic x(2). + 25 78 OP-OPEN-INPUT value x"fa00". + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 > 78 OP-OPEN-I-O value x"fa02". +---- ^ + 28 78 OP-WRITE value x"faf3". + 29 78 OP-RELEASE value x"faf3". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:28.44-28.45: + 25 78 OP-OPEN-INPUT value x"fa00". + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 78 OP-OPEN-I-O value x"fa02". + 28 > 78 OP-WRITE value x"faf3". +---- ^ + 29 78 OP-RELEASE value x"faf3". + 30 78 OP-REWRITE value x"faf4". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:29.44-29.45: + 26 78 OP-OPEN-OUTPUT value x"fa01". + 27 78 OP-OPEN-I-O value x"fa02". + 28 78 OP-WRITE value x"faf3". + 29 > 78 OP-RELEASE value x"faf3". +---- ^ + 30 78 OP-REWRITE value x"faf4". + 31 78 OP-READ-NEXT value x"faf5". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:30.44-30.45: + 27 78 OP-OPEN-I-O value x"fa02". + 28 78 OP-WRITE value x"faf3". + 29 78 OP-RELEASE value x"faf3". + 30 > 78 OP-REWRITE value x"faf4". +---- ^ + 31 78 OP-READ-NEXT value x"faf5". + 32 78 OP-START-EQUAL value x"fae9". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:31.44-31.45: + 28 78 OP-WRITE value x"faf3". + 29 78 OP-RELEASE value x"faf3". + 30 78 OP-REWRITE value x"faf4". + 31 > 78 OP-READ-NEXT value x"faf5". +---- ^ + 32 78 OP-START-EQUAL value x"fae9". + 33 78 OP-CLOSE value x"fa80". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:32.44-32.45: + 29 78 OP-RELEASE value x"faf3". + 30 78 OP-REWRITE value x"faf4". + 31 78 OP-READ-NEXT value x"faf5". + 32 > 78 OP-START-EQUAL value x"fae9". +---- ^ + 33 78 OP-CLOSE value x"fa80". + 34 78 OP-QUERY-FILE value x"0006". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:33.44-33.45: + 30 78 OP-REWRITE value x"faf4". + 31 78 OP-READ-NEXT value x"faf5". + 32 78 OP-START-EQUAL value x"fae9". + 33 > 78 OP-CLOSE value x"fa80". +---- ^ + 34 78 OP-QUERY-FILE value x"0006". + 35 +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:34.44-34.45: + 31 78 OP-READ-NEXT value x"faf5". + 32 78 OP-START-EQUAL value x"fae9". + 33 78 OP-CLOSE value x"fa80". + 34 > 78 OP-QUERY-FILE value x"0006". +---- ^ + 35 + 36 01 DISPLAY-A1-XXX PIC X(03). +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:72.52-72.53: + 69 78 fcd--dup-prime-access value 1. + 70 78 fcd--random-access value 4. + 71 78 fcd--dynamic-access value 8. + 72 > 78 fcd--status-defined value h"80". +---- ^ + 73 05 FCD-OPEN-MODE PIC 9(2) COMP-X. + 74 78 fcd--open-input value 0. +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:88.52-88.53: + 85 05 FCD-TRANS-LOG PIC 9(2) COMP-X. + 86 05 FILLER PIC X(1). + 87 05 FCD-LOCK-MODE PIC 9(2) COMP-X. + 88 > 78 fcd--multilock-bit value h"80". +---- ^ + 89 78 fcd--writelock-bit value h"40". + 90 78 fcd--retry-open-bit value h"20". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:89.52-89.53: + 86 05 FILLER PIC X(1). + 87 05 FCD-LOCK-MODE PIC 9(2) COMP-X. + 88 78 fcd--multilock-bit value h"80". + 89 > 78 fcd--writelock-bit value h"40". +---- ^ + 90 78 fcd--retry-open-bit value h"20". + 91 78 fcd--skip-lock-bit value h"10". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:90.52-90.53: + 87 05 FCD-LOCK-MODE PIC 9(2) COMP-X. + 88 78 fcd--multilock-bit value h"80". + 89 78 fcd--writelock-bit value h"40". + 90 > 78 fcd--retry-open-bit value h"20". +---- ^ + 91 78 fcd--skip-lock-bit value h"10". + 92 78 fcd--retry-lock-bit value h"08". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:91.52-91.53: + 88 78 fcd--multilock-bit value h"80". + 89 78 fcd--writelock-bit value h"40". + 90 78 fcd--retry-open-bit value h"20". + 91 > 78 fcd--skip-lock-bit value h"10". +---- ^ + 92 78 fcd--retry-lock-bit value h"08". + 93 78 fcd--manual-lock-bit value h"04". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:92.52-92.53: + 89 78 fcd--writelock-bit value h"40". + 90 78 fcd--retry-open-bit value h"20". + 91 78 fcd--skip-lock-bit value h"10". + 92 > 78 fcd--retry-lock-bit value h"08". +---- ^ + 93 78 fcd--manual-lock-bit value h"04". + 94 78 fcd--auto-lock-bit value h"02". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:93.52-93.53: + 90 78 fcd--retry-open-bit value h"20". + 91 78 fcd--skip-lock-bit value h"10". + 92 78 fcd--retry-lock-bit value h"08". + 93 > 78 fcd--manual-lock-bit value h"04". +---- ^ + 94 78 fcd--auto-lock-bit value h"02". + 95 78 fcd--exclusive-bit value h"01". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:94.52-94.53: + 91 78 fcd--skip-lock-bit value h"10". + 92 78 fcd--retry-lock-bit value h"08". + 93 78 fcd--manual-lock-bit value h"04". + 94 > 78 fcd--auto-lock-bit value h"02". +---- ^ + 95 78 fcd--exclusive-bit value h"01". + 96 78 fcd--sharing-bits +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:95.52-95.53: + 92 78 fcd--retry-lock-bit value h"08". + 93 78 fcd--manual-lock-bit value h"04". + 94 78 fcd--auto-lock-bit value h"02". + 95 > 78 fcd--exclusive-bit value h"01". +---- ^ + 96 78 fcd--sharing-bits + 97 value fcd--manual-lock-bit + fcd--auto-lock-bit. +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:97.18: + 94 78 fcd--auto-lock-bit value h"02". + 95 78 fcd--exclusive-bit value h"01". + 96 78 fcd--sharing-bits + 97 > value fcd--manual-lock-bit + fcd--auto-lock-bit. +---- ^ + 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. + 99 78 fcd--optional-file value h"80". +>> Hint: Missing + +run_file.at-11193-prog.cob:97.19-97.39: + 94 78 fcd--auto-lock-bit value h"02". + 95 78 fcd--exclusive-bit value h"01". + 96 78 fcd--sharing-bits + 97 > value fcd--manual-lock-bit + fcd--auto-lock-bit. +---- ^^^^^^^^^^^^^^^^^^^^ + 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. + 99 78 fcd--optional-file value h"80". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:99.52-99.53: + 96 78 fcd--sharing-bits + 97 value fcd--manual-lock-bit + fcd--auto-lock-bit. + 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. + 99 > 78 fcd--optional-file value h"80". +---- ^ + 100 78 fcd--nodetectlock-input value h"40". + 101 78 fcd--not-optional value h"20". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:100.52-100.53: + 97 value fcd--manual-lock-bit + fcd--auto-lock-bit. + 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. + 99 78 fcd--optional-file value h"80". + 100 > 78 fcd--nodetectlock-input value h"40". +---- ^ + 101 78 fcd--not-optional value h"20". + 102 78 fcd--external-name value h"10". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:101.52-101.53: + 98 05 FCD-OTHER-FLAGS PIC 9(2) COMP-X. + 99 78 fcd--optional-file value h"80". + 100 78 fcd--nodetectlock-input value h"40". + 101 > 78 fcd--not-optional value h"20". +---- ^ + 102 78 fcd--external-name value h"10". + 103 78 fcd--get-info value h"08". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:102.52-102.53: + 99 78 fcd--optional-file value h"80". + 100 78 fcd--nodetectlock-input value h"40". + 101 78 fcd--not-optional value h"20". + 102 > 78 fcd--external-name value h"10". +---- ^ + 103 78 fcd--get-info value h"08". + 104 78 fcd--nodetectlock value h"04". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:103.52-103.53: + 100 78 fcd--nodetectlock-input value h"40". + 101 78 fcd--not-optional value h"20". + 102 78 fcd--external-name value h"10". + 103 > 78 fcd--get-info value h"08". +---- ^ + 104 78 fcd--nodetectlock value h"04". + 105 78 fcd--multiple-reel value h"02". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:104.52-104.53: + 101 78 fcd--not-optional value h"20". + 102 78 fcd--external-name value h"10". + 103 78 fcd--get-info value h"08". + 104 > 78 fcd--nodetectlock value h"04". +---- ^ + 105 78 fcd--multiple-reel value h"02". + 106 78 fcd--line-advancing value h"01". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:105.52-105.53: + 102 78 fcd--external-name value h"10". + 103 78 fcd--get-info value h"08". + 104 78 fcd--nodetectlock value h"04". + 105 > 78 fcd--multiple-reel value h"02". +---- ^ + 106 78 fcd--line-advancing value h"01". + 107 78 fcd--special-sequential +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:106.52-106.53: + 103 78 fcd--get-info value h"08". + 104 78 fcd--nodetectlock value h"04". + 105 78 fcd--multiple-reel value h"02". + 106 > 78 fcd--line-advancing value h"01". +---- ^ + 107 78 fcd--special-sequential + 108 value fcd--optional-file +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:108.18: + 105 78 fcd--multiple-reel value h"02". + 106 78 fcd--line-advancing value h"01". + 107 78 fcd--special-sequential + 108 > value fcd--optional-file +---- ^ + 109 + fcd--multiple-reel + fcd--line-advancing. + 110 05 FILLER PIC X(2). +>> Hint: Missing + +run_file.at-11193-prog.cob:108.19-108.37: + 105 78 fcd--multiple-reel value h"02". + 106 78 fcd--line-advancing value h"01". + 107 78 fcd--special-sequential + 108 > value fcd--optional-file +---- ^^^^^^^^^^^^^^^^^^ + 109 + fcd--multiple-reel + fcd--line-advancing. + 110 05 FILLER PIC X(2). +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:153.52-153.53: + 150 05 FCD-ADDITIONAL-STATUS REDEFINES FCD-BLOCKING + 151 PIC X COMP-X. + 152 05 FCD-LOCKTYPES PIC 99 COMP-X. + 153 > 78 fcd--interlang-locking value h"80". +---- ^ + 154 78 fcd--allow-readers value h"40". + 155 78 fcd--separate-lock-file value h"20". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:154.52-154.53: + 151 PIC X COMP-X. + 152 05 FCD-LOCKTYPES PIC 99 COMP-X. + 153 78 fcd--interlang-locking value h"80". + 154 > 78 fcd--allow-readers value h"40". +---- ^ + 155 78 fcd--separate-lock-file value h"20". + 156 78 fcd--single-open value h"10". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:155.52-155.53: + 152 05 FCD-LOCKTYPES PIC 99 COMP-X. + 153 78 fcd--interlang-locking value h"80". + 154 78 fcd--allow-readers value h"40". + 155 > 78 fcd--separate-lock-file value h"20". +---- ^ + 156 78 fcd--single-open value h"10". + 157 78 fcd--nfs-file-lock value h"08". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:156.52-156.53: + 153 78 fcd--interlang-locking value h"80". + 154 78 fcd--allow-readers value h"40". + 155 78 fcd--separate-lock-file value h"20". + 156 > 78 fcd--single-open value h"10". +---- ^ + 157 78 fcd--nfs-file-lock value h"08". + 158 78 fcd--nfs-file-lock-hp value h"04". +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:157.52-157.53: + 154 78 fcd--allow-readers value h"40". + 155 78 fcd--separate-lock-file value h"20". + 156 78 fcd--single-open value h"10". + 157 > 78 fcd--nfs-file-lock value h"08". +---- ^ + 158 78 fcd--nfs-file-lock-hp value h"04". + 159 78 fcd--nfs-file-locks +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:158.52-158.53: + 155 78 fcd--separate-lock-file value h"20". + 156 78 fcd--single-open value h"10". + 157 78 fcd--nfs-file-lock value h"08". + 158 > 78 fcd--nfs-file-lock-hp value h"04". +---- ^ + 159 78 fcd--nfs-file-locks + 160 value fcd--nfs-file-lock + fcd--nfs-file-lock-hp. +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:160.18: + 157 78 fcd--nfs-file-lock value h"08". + 158 78 fcd--nfs-file-lock-hp value h"04". + 159 78 fcd--nfs-file-locks + 160 > value fcd--nfs-file-lock + fcd--nfs-file-lock-hp. +---- ^ + 161 05 FCD-FS-FLAGS PIC 99 COMP-X. + 162 05 FCD-CONFIG-FLAGS PIC 99 COMP-X. +>> Hint: Missing + +run_file.at-11193-prog.cob:160.19-160.37: + 157 78 fcd--nfs-file-lock value h"08". + 158 78 fcd--nfs-file-lock-hp value h"04". + 159 78 fcd--nfs-file-locks + 160 > value fcd--nfs-file-lock + fcd--nfs-file-lock-hp. +---- ^^^^^^^^^^^^^^^^^^ + 161 05 FCD-FS-FLAGS PIC 99 COMP-X. + 162 05 FCD-CONFIG-FLAGS PIC 99 COMP-X. +>> Error: Invalid syntax + +run_file.at-11193-prog.cob:212.15-212.21: + 209 + 210 MOVE "TESTOUT" TO WS-FCD-DDNAME + 211 + 212 > MOVE LENGTH OF FCD-MAP TO WS-FCD-SIZE +---- ^^^^^^ + 213 DISPLAY "FCD SIZE " WS-FCD-SIZE '.'. + 214 DISPLAY "Writing " WS-FCD-DDNAME '.'. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:11230:0 +run_file.at-11230-reference:3.6-3.7: + 1 1 + 2 2 + 3 > 3 Have a great day +---- ^ + 4 4 + 5 5 Have a great day +>> Error: Unexpected indicator: `v' + +run_file.at-11230-reference:5.6-5.7: + 2 2 + 3 3 Have a great day + 4 4 + 5 > 5 Have a great day +---- ^ + 6 6 + 7 7 +>> Error: Unexpected indicator: `v' + +run_file.at-11230-reference:8.6-8.7: + 5 5 Have a great day + 6 6 + 7 7 + 8 > 8 Enjoy the show +---- ^ + 9 9 + 10 10 +>> Error: Unexpected indicator: `j' + +run_file.at-11230-reference:3.7-3.8: + 1 1 + 2 2 + 3 > 3 Have a great day +---- ^ + 4 4 + 5 5 Have a great day +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:11443:0 +run_file.at-11443-prog.cob:9.34-9.42: + 6 + 7 INPUT-OUTPUT SECTION. + 8 FILE-CONTROL. + 9 > SELECT FLATFILE ASSIGN EXTERNAL RELVAR +---- ^^^^^^^^ + 10 ORGANIZATION RELATIVE + 11 ACCESS IS SEQUENTIAL +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-11443-prog.cob:57.54: + 54 05 FILLER PIC X(8) VALUE "FOR00000". + 55 + 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 57 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 58 02 DATA-COMPANY-TBL. + 59 +>> Hint: Missing + +run_file.at-11443-prog.cob:57.55-57.62: + 54 05 FILLER PIC X(8) VALUE "FOR00000". + 55 + 56 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 57 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 58 02 DATA-COMPANY-TBL. + 59 +>> Error: Invalid syntax + +run_file.at-11443-prog.cob:67.55: + 64 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". + 65 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 67 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 68 02 DATA-ADDRESS-2-TBL. + 69 +>> Hint: Missing + +run_file.at-11443-prog.cob:67.56-67.63: + 64 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". + 65 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 66 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 67 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 68 02 DATA-ADDRESS-2-TBL. + 69 +>> Error: Invalid syntax + +run_file.at-11443-prog.cob:78.55: + 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 76 + 77 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 78 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 79 + 80 02 DATA-NO-TERMINALS-TBL. +>> Hint: Missing + +run_file.at-11443-prog.cob:78.56-78.63: + 75 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 76 + 77 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 78 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 79 + 80 02 DATA-NO-TERMINALS-TBL. +>> Error: Invalid syntax + +run_file.at-11443-prog.cob:90.61: + 87 05 FILLER PIC 9(3) COMP-3 VALUE 254. + 88 + 89 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 90 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^ + 91 01 WORK-AREA. + 92 05 SUB BINARY-SHORT UNSIGNED. +>> Hint: Missing + +run_file.at-11443-prog.cob:90.62-90.69: + 87 05 FILLER PIC 9(3) COMP-3 VALUE 254. + 88 + 89 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 90 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^^^^^^^ + 91 01 WORK-AREA. + 92 05 SUB BINARY-SHORT UNSIGNED. +>> Error: Invalid syntax + +run_file.at-11443-prog.cob:150.19: + 147 PERFORM READ-RECORD + 148 END-PERFORM. + 149 CLOSE FLATFILE. + 150 > STOP RUN RETURNING 0. +---- ^ + 151 + 152 LOADFILE. +>> Hint: Missing . + +run_file.at-11443-prog.cob:150.20-150.29: + 147 PERFORM READ-RECORD + 148 END-PERFORM. + 149 CLOSE FLATFILE. + 150 > STOP RUN RETURNING 0. +---- ^^^^^^^^^ + 151 + 152 LOADFILE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:12161:0 +run_file.at-12161-prog.cob:12.21-12.29: + 9 INPUT-OUTPUT SECTION. + 10 FILE-CONTROL. + 11 SELECT TSPFILE + 12 > ASSIGN TO EXTERNAL TSPFILE +---- ^^^^^^^^ + 13 ORGANIZATION INDEXED ACCESS DYNAMIC + 14 RECORD KEY IS CM-CUST-NUM +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-12161-prog.cob:84.54: + 81 05 FILLER PIC X(8) VALUE "PRE00000". + 82 + 83 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 84 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 85 02 DATA-COMPANY-TBL. + 86 +>> Hint: Missing + +run_file.at-12161-prog.cob:84.55-84.62: + 81 05 FILLER PIC X(8) VALUE "PRE00000". + 82 + 83 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 84 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 85 02 DATA-COMPANY-TBL. + 86 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:105.55: + 102 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 103 + 104 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 105 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 106 02 DATA-ADDRESS-1-TBL. + 107 +>> Hint: Missing + +run_file.at-12161-prog.cob:105.56-105.63: + 102 05 FILLER PIC X(25) VALUE "PRESTIGE OFFICE FURNITURE". + 103 + 104 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 105 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 106 02 DATA-ADDRESS-1-TBL. + 107 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:126.55: + 123 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 124 + 125 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 126 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 127 02 DATA-ADDRESS-2-TBL. + 128 +>> Hint: Missing + +run_file.at-12161-prog.cob:126.56-126.63: + 123 05 FILLER PIC X(25) VALUE "114A MAPLE GROVE ". + 124 + 125 02 DATA-ADDRESS-1 REDEFINES DATA-ADDRESS-1-TBL + 126 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 127 02 DATA-ADDRESS-2-TBL. + 128 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:147.55: + 144 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 145 + 146 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 147 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 148 02 DATA-ADDRESS-3-TBL. + 149 +>> Hint: Missing + +run_file.at-12161-prog.cob:147.56-147.63: + 144 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 145 + 146 02 DATA-ADDRESS-2 REDEFINES DATA-ADDRESS-2-TBL + 147 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 148 02 DATA-ADDRESS-3-TBL. + 149 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:168.55: + 165 05 FILLER PIC X(10) VALUE "N.Y. ". + 166 + 167 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 168 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 169 02 DATA-TELEPHONE-TBL. + 170 +>> Hint: Missing + +run_file.at-12161-prog.cob:168.56-168.63: + 165 05 FILLER PIC X(10) VALUE "N.Y. ". + 166 + 167 02 DATA-ADDRESS-3 REDEFINES DATA-ADDRESS-3-TBL + 168 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 169 02 DATA-TELEPHONE-TBL. + 170 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:189.55: + 186 05 FILLER PIC 9(10) VALUE 4169898509. + 187 + 188 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 189 > PIC 9(10) OCCURS MAX-SUB. +---- ^ + 190 02 DATA-DP-MGR-TBL. + 191 +>> Hint: Missing + +run_file.at-12161-prog.cob:189.56-189.63: + 186 05 FILLER PIC 9(10) VALUE 4169898509. + 187 + 188 02 DATA-TELEPHONE REDEFINES DATA-TELEPHONE-TBL + 189 > PIC 9(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 190 02 DATA-DP-MGR-TBL. + 191 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:210.55: + 207 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 208 + 209 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 210 > PIC X(20) OCCURS MAX-SUB. +---- ^ + 211 02 DATA-MACHINE-TBL. + 212 +>> Hint: Missing + +run_file.at-12161-prog.cob:210.56-210.63: + 207 05 FILLER PIC X(20) VALUE "MR. THOMAS JEFFERSON". + 208 + 209 02 DATA-DP-MGR REDEFINES DATA-DP-MGR-TBL + 210 > PIC X(20) OCCURS MAX-SUB. +---- ^^^^^^^ + 211 02 DATA-MACHINE-TBL. + 212 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:231.54: + 228 05 FILLER PIC X(8) VALUE "UNI-9040". + 229 + 230 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 231 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 232 02 DATA-NO-TERMINALS-TBL. + 233 +>> Hint: Missing + +run_file.at-12161-prog.cob:231.55-231.62: + 228 05 FILLER PIC X(8) VALUE "UNI-9040". + 229 + 230 02 DATA-MACHINE REDEFINES DATA-MACHINE-TBL + 231 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 232 02 DATA-NO-TERMINALS-TBL. + 233 +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:252.61: + 249 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 250 + 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 252 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^ + 253 + 254 78 REC-MAX VALUE MAX-SUB. +>> Hint: Missing + +run_file.at-12161-prog.cob:252.62-252.69: + 249 05 FILLER PIC 9(3) COMP-3 VALUE 86. + 250 + 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 252 > PIC 9(3) COMP-3 OCCURS MAX-SUB. +---- ^^^^^^^ + 253 + 254 78 REC-MAX VALUE MAX-SUB. +>> Error: Invalid syntax + +run_file.at-12161-prog.cob:254.43: + 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 252 PIC 9(3) COMP-3 OCCURS MAX-SUB. + 253 + 254 > 78 REC-MAX VALUE MAX-SUB. +---- ^ + 255 01 WORK-AREA. + 256 05 REC-NUM BINARY-SHORT UNSIGNED VALUE 0. +>> Hint: Missing + +run_file.at-12161-prog.cob:254.44-254.51: + 251 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 252 PIC 9(3) COMP-3 OCCURS MAX-SUB. + 253 + 254 > 78 REC-MAX VALUE MAX-SUB. +---- ^^^^^^^ + 255 01 WORK-AREA. + 256 05 REC-NUM BINARY-SHORT UNSIGNED VALUE 0. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:12281:0 +run_file.at-12281-reference:1.6-1.7: + 1 > Loading sample data file. +---- ^ + 2 Sample data file load complete. + 3 List sample data file +>> Error: Unexpected indicator: `g' + +run_file.at-12281-reference:3.6-3.7: + 1 Loading sample data file. + 2 Sample data file load complete. + 3 > List sample data file +---- ^ + 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . + 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +>> Error: Unexpected indicator: `a' + +run_file.at-12281-reference:4.6-4.7: + 1 Loading sample data file. + 2 Sample data file load complete. + 3 List sample data file + 4 > Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . +---- ^ + 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. +>> Error: Unexpected indicator: `L' + +run_file.at-12281-reference:5.6-5.7: + 2 Sample data file load complete. + 3 List sample data file + 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . + 5 > Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . +---- ^ + 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. +>> Error: Unexpected indicator: `E' + +run_file.at-12281-reference:6.6-6.7: + 3 List sample data file + 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . + 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 6 > Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. +---- ^ + 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . +>> Error: Unexpected indicator: `E' + +run_file.at-12281-reference:7.6-7.7: + 4 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD. Disk=8417 . + 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 7 > Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. +---- ^ + 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . + 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +>> Error: Unexpected indicator: `P' + +run_file.at-12281-reference:8.6-8.7: + 5 Key: BET00000 is BETA SHOE MFG. INC. Disk=8470 . + 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 8 > Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . +---- ^ + 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +>> Error: Unexpected indicator: `O' + +run_file.at-12281-reference:9.6-9.7: + 6 Key: DEL00000 is DELTA LUGGAGE REPAIRS Disk=********. + 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . + 9 > Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . +---- ^ + 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. +>> Error: Unexpected indicator: `A' + +run_file.at-12281-reference:10.6-10.7: + 7 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY Disk=********. + 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . + 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 10 > Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . +---- ^ + 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +>> Error: Unexpected indicator: `I' + +run_file.at-12281-reference:11.6-11.7: + 8 Key: FOR00000 is FORTUNE COOKIE COMPANY Disk=8470 . + 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 11 > Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. +---- ^ + 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +>> Error: Unexpected indicator: `&' + +run_file.at-12281-reference:12.6-12.7: + 9 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY Disk=8417 . + 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 12 > Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . +---- ^ + 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +>> Error: Unexpected indicator: `N' + +run_file.at-12281-reference:13.6-13.7: + 10 Key: GIB00000 is GIBRALTER LIFE INSURANCE Disk=8417 . + 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 13 > Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . +---- ^ + 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. +>> Error: Unexpected indicator: `O' + +run_file.at-12281-reference:14.6-14.7: + 11 Key: H&J00000 is H & J PLUMBING SUPPLIES Disk=********. + 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 14 > Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . +---- ^ + 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +>> Error: Unexpected indicator: `O' + +run_file.at-12281-reference:15.6-15.7: + 12 Key: INC00000 is INCREMENTAL BACKUP CORP. Disk=8417 . + 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 15 > Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. +---- ^ + 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. +>> Error: Unexpected indicator: `E' + +run_file.at-12281-reference:16.6-16.7: + 13 Key: JOH00000 is JOHNSON BOATING SUPPLIES Disk=8417 . + 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 16 > Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . +---- ^ + 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +>> Error: Unexpected indicator: `O' + +run_file.at-12281-reference:17.6-17.7: + 14 Key: KON00000 is KONFLAB PLASTIC PRODUCTS. Disk=8417 . + 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 17 > Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. +---- ^ + 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . +>> Error: Unexpected indicator: `E' + +run_file.at-12281-reference:18.6-18.7: + 15 Key: LEW00000 is LEWISTON GRAPHICS LTD. Disk=********. + 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 18 > Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . +---- ^ + 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 20 Hit End of File +>> Error: Unexpected indicator: `L' + +run_file.at-12281-reference:19.6-19.7: + 16 Key: MOR00000 is MORNINGSIDE CARPENTRY. Disk=8470 . + 17 Key: NEW00000 is NEW WAVE SURF SHOPS INC. Disk=********. + 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 19 > Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . +---- ^ + 20 Hit End of File + 21 List sample data file by Phone +>> Error: Unexpected indicator: `R' + +run_file.at-12281-reference:21.6-21.7: + 18 Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . + 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 20 Hit End of File + 21 > List sample data file by Phone +---- ^ + 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . +>> Error: Unexpected indicator: `a' + +run_file.at-12281-reference:22.6-22.7: + 19 Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . + 20 Hit End of File + 21 List sample data file by Phone + 22 > Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. +---- ^ + 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . +>> Error: Unexpected indicator: `1' + +run_file.at-12281-reference:23.6-23.7: + 20 Hit End of File + 21 List sample data file by Phone + 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 23 > Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . +---- ^ + 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . +>> Error: Unexpected indicator: `5' + +run_file.at-12281-reference:24.6-24.7: + 21 List sample data file by Phone + 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 24 > Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . +---- ^ + 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:25.6-25.7: + 22 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 25 > Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . +---- ^ + 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:26.6-26.7: + 23 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 26 > Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . +---- ^ + 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:27.6-27.7: + 24 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 27 > Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. +---- ^ + 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:28.6-28.7: + 25 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 28 > Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . +---- ^ + 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +>> Error: Unexpected indicator: `2' + +run_file.at-12281-reference:29.6-29.7: + 26 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 29 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +---- ^ + 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:30.6-30.7: + 27 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 30 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +---- ^ + 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:31.6-31.7: + 28 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 31 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +---- ^ + 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:32.6-32.7: + 29 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 32 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +---- ^ + 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:33.6-33.7: + 30 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 33 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +---- ^ + 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:34.6-34.7: + 31 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 34 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +---- ^ + 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:35.6-35.7: + 32 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 35 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +---- ^ + 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:36.6-36.7: + 33 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 36 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +---- ^ + 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 38 Hit End of File +>> Error: Unexpected indicator: `2' + +run_file.at-12281-reference:37.6-37.7: + 34 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 35 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 37 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +---- ^ + 38 Hit End of File + 39 Test Read/Delete +>> Error: Unexpected indicator: `7' + +run_file.at-12281-reference:39.6-39.7: + 36 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 38 Hit End of File + 39 > Test Read/Delete +---- ^ + 40 Delete: INC00000 random + 41 Delete: ALP00000 random +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:40.6-40.7: + 37 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 38 Hit End of File + 39 Test Read/Delete + 40 > Delete: INC00000 random +---- ^ + 41 Delete: ALP00000 random + 42 Read: BET00000 4169898509 +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:41.6-41.7: + 38 Hit End of File + 39 Test Read/Delete + 40 Delete: INC00000 random + 41 > Delete: ALP00000 random +---- ^ + 42 Read: BET00000 4169898509 + 43 Delete: PRE00000 random +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:43.6-43.7: + 40 Delete: INC00000 random + 41 Delete: ALP00000 random + 42 Read: BET00000 4169898509 + 43 > Delete: PRE00000 random +---- ^ + 44 Expected 10 after delete PRE00000 + 45 Initial: BET00000 4169898509 +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:44.6-44.7: + 41 Delete: ALP00000 random + 42 Read: BET00000 4169898509 + 43 Delete: PRE00000 random + 44 > Expected 10 after delete PRE00000 +---- ^ + 45 Initial: BET00000 4169898509 + 46 Initial: DEL00000 4169898509 +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:45.6-45.7: + 42 Read: BET00000 4169898509 + 43 Delete: PRE00000 random + 44 Expected 10 after delete PRE00000 + 45 > Initial: BET00000 4169898509 +---- ^ + 46 Initial: DEL00000 4169898509 + 47 Initial: MOR00000 4169898509 +>> Error: Unexpected indicator: `l' + +run_file.at-12281-reference:46.6-46.7: + 43 Delete: PRE00000 random + 44 Expected 10 after delete PRE00000 + 45 Initial: BET00000 4169898509 + 46 > Initial: DEL00000 4169898509 +---- ^ + 47 Initial: MOR00000 4169898509 + 48 Initial: EPS00000 5292398745 +>> Error: Unexpected indicator: `l' + +run_file.at-12281-reference:47.6-47.7: + 44 Expected 10 after delete PRE00000 + 45 Initial: BET00000 4169898509 + 46 Initial: DEL00000 4169898509 + 47 > Initial: MOR00000 4169898509 +---- ^ + 48 Initial: EPS00000 5292398745 + 49 Start: BET00000 4169898509 +>> Error: Unexpected indicator: `l' + +run_file.at-12281-reference:48.6-48.7: + 45 Initial: BET00000 4169898509 + 46 Initial: DEL00000 4169898509 + 47 Initial: MOR00000 4169898509 + 48 > Initial: EPS00000 5292398745 +---- ^ + 49 Start: BET00000 4169898509 + 50 Next: DEL00000 4169898509 +>> Error: Unexpected indicator: `l' + +run_file.at-12281-reference:49.6-49.7: + 46 Initial: DEL00000 4169898509 + 47 Initial: MOR00000 4169898509 + 48 Initial: EPS00000 5292398745 + 49 > Start: BET00000 4169898509 +---- ^ + 50 Next: DEL00000 4169898509 + 51 Delete: DEL00000 sequential +>> Error: Unexpected indicator: `t' + +run_file.at-12281-reference:50.6-50.7: + 47 Initial: MOR00000 4169898509 + 48 Initial: EPS00000 5292398745 + 49 Start: BET00000 4169898509 + 50 > Next: DEL00000 4169898509 +---- ^ + 51 Delete: DEL00000 sequential + 52 Next: MOR00000 4169898509 +>> Error: Unexpected indicator: `t' + +run_file.at-12281-reference:51.6-51.7: + 48 Initial: EPS00000 5292398745 + 49 Start: BET00000 4169898509 + 50 Next: DEL00000 4169898509 + 51 > Delete: DEL00000 sequential +---- ^ + 52 Next: MOR00000 4169898509 + 53 Next: EPS00000 5292398745 +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:52.6-52.7: + 49 Start: BET00000 4169898509 + 50 Next: DEL00000 4169898509 + 51 Delete: DEL00000 sequential + 52 > Next: MOR00000 4169898509 +---- ^ + 53 Next: EPS00000 5292398745 + 54 Delete: EPS00000 sequential +>> Error: Unexpected indicator: `t' + +run_file.at-12281-reference:53.6-53.7: + 50 Next: DEL00000 4169898509 + 51 Delete: DEL00000 sequential + 52 Next: MOR00000 4169898509 + 53 > Next: EPS00000 5292398745 +---- ^ + 54 Delete: EPS00000 sequential + 55 List sample data file by Phone +>> Error: Unexpected indicator: `t' + +run_file.at-12281-reference:54.6-54.7: + 51 Delete: DEL00000 sequential + 52 Next: MOR00000 4169898509 + 53 Next: EPS00000 5292398745 + 54 > Delete: EPS00000 sequential +---- ^ + 55 List sample data file by Phone + 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:55.6-55.7: + 52 Next: MOR00000 4169898509 + 53 Next: EPS00000 5292398745 + 54 Delete: EPS00000 sequential + 55 > List sample data file by Phone +---- ^ + 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . +>> Error: Unexpected indicator: `a' + +run_file.at-12281-reference:56.6-56.7: + 53 Next: EPS00000 5292398745 + 54 Delete: EPS00000 sequential + 55 List sample data file by Phone + 56 > Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . +---- ^ + 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:57.6-57.7: + 54 Delete: EPS00000 sequential + 55 List sample data file by Phone + 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 57 > Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . +---- ^ + 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:58.6-58.7: + 55 List sample data file by Phone + 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 58 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +---- ^ + 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:59.6-59.7: + 56 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 59 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +---- ^ + 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:60.6-60.7: + 57 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 60 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +---- ^ + 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:61.6-61.7: + 58 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 61 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +---- ^ + 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:62.6-62.7: + 59 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 62 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +---- ^ + 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:63.6-63.7: + 60 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 63 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +---- ^ + 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:64.6-64.7: + 61 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 64 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +---- ^ + 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:65.6-65.7: + 62 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 65 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +---- ^ + 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 67 Hit End of File +>> Error: Unexpected indicator: `2' + +run_file.at-12281-reference:66.6-66.7: + 63 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 64 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 66 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +---- ^ + 67 Hit End of File + 68 List sample data file by Phone +>> Error: Unexpected indicator: `7' + +run_file.at-12281-reference:68.6-68.7: + 65 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 67 Hit End of File + 68 > List sample data file by Phone +---- ^ + 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . +>> Error: Unexpected indicator: `a' + +run_file.at-12281-reference:69.6-69.7: + 66 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 67 Hit End of File + 68 List sample data file by Phone + 69 > Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. +---- ^ + 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . +>> Error: Unexpected indicator: `1' + +run_file.at-12281-reference:70.6-70.7: + 67 Hit End of File + 68 List sample data file by Phone + 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 70 > Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . +---- ^ + 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . +>> Error: Unexpected indicator: `5' + +run_file.at-12281-reference:71.6-71.7: + 68 List sample data file by Phone + 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 71 > Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . +---- ^ + 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:72.6-72.7: + 69 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 72 > Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . +---- ^ + 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:73.6-73.7: + 70 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 73 > Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . +---- ^ + 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:74.6-74.7: + 71 Ph=4169898509 Key: BET00000 is BETA SHOE MFG. INC. . + 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 74 > Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. +---- ^ + 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:75.6-75.7: + 72 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 75 > Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . +---- ^ + 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +>> Error: Unexpected indicator: `2' + +run_file.at-12281-reference:76.6-76.7: + 73 Ph=4169898509 Key: MOR00000 is MORNINGSIDE CARPENTRY. . + 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 76 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +---- ^ + 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:77.6-77.7: + 74 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 77 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +---- ^ + 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:78.6-78.7: + 75 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 78 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +---- ^ + 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:79.6-79.7: + 76 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 79 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +---- ^ + 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:80.6-80.7: + 77 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 80 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +---- ^ + 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:81.6-81.7: + 78 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 81 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +---- ^ + 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:82.6-82.7: + 79 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 82 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +---- ^ + 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:83.6-83.7: + 80 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 83 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +---- ^ + 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 85 Hit End of File +>> Error: Unexpected indicator: `2' + +run_file.at-12281-reference:84.6-84.7: + 81 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 82 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 84 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +---- ^ + 85 Hit End of File + 86 Read Prev/Delete +>> Error: Unexpected indicator: `7' + +run_file.at-12281-reference:86.6-86.7: + 83 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 85 Hit End of File + 86 > Read Prev/Delete +---- ^ + 87 00001 Initial: PRE00000 4169898509 + 88 00002 Initial: MOR00000 4169898509 +>> Error: Unexpected indicator: `r' + +run_file.at-12281-reference:87.6-87.7: + 84 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 85 Hit End of File + 86 Read Prev/Delete + 87 > 00001 Initial: PRE00000 4169898509 +---- ^ + 88 00002 Initial: MOR00000 4169898509 + 89 00003 Initial: DEL00000 4169898509 +>> Error: Unexpected indicator: `I' + +run_file.at-12281-reference:88.6-88.7: + 85 Hit End of File + 86 Read Prev/Delete + 87 00001 Initial: PRE00000 4169898509 + 88 > 00002 Initial: MOR00000 4169898509 +---- ^ + 89 00003 Initial: DEL00000 4169898509 + 90 00004 Initial: BET00000 4169898509 +>> Error: Unexpected indicator: `I' + +run_file.at-12281-reference:89.6-89.7: + 86 Read Prev/Delete + 87 00001 Initial: PRE00000 4169898509 + 88 00002 Initial: MOR00000 4169898509 + 89 > 00003 Initial: DEL00000 4169898509 +---- ^ + 90 00004 Initial: BET00000 4169898509 + 91 Start: PRE00000 4169898509 +>> Error: Unexpected indicator: `I' + +run_file.at-12281-reference:90.6-90.7: + 87 00001 Initial: PRE00000 4169898509 + 88 00002 Initial: MOR00000 4169898509 + 89 00003 Initial: DEL00000 4169898509 + 90 > 00004 Initial: BET00000 4169898509 +---- ^ + 91 Start: PRE00000 4169898509 + 92 Prev: MOR00000 4169898509 +>> Error: Unexpected indicator: `I' + +run_file.at-12281-reference:91.6-91.7: + 88 00002 Initial: MOR00000 4169898509 + 89 00003 Initial: DEL00000 4169898509 + 90 00004 Initial: BET00000 4169898509 + 91 > Start: PRE00000 4169898509 +---- ^ + 92 Prev: MOR00000 4169898509 + 93 Delete: MOR00000 sequential +>> Error: Unexpected indicator: `t' + +run_file.at-12281-reference:92.6-92.7: + 89 00003 Initial: DEL00000 4169898509 + 90 00004 Initial: BET00000 4169898509 + 91 Start: PRE00000 4169898509 + 92 > Prev: MOR00000 4169898509 +---- ^ + 93 Delete: MOR00000 sequential + 94 Prev: DEL00000 4169898509 +>> Error: Unexpected indicator: `v' + +run_file.at-12281-reference:93.6-93.7: + 90 00004 Initial: BET00000 4169898509 + 91 Start: PRE00000 4169898509 + 92 Prev: MOR00000 4169898509 + 93 > Delete: MOR00000 sequential +---- ^ + 94 Prev: DEL00000 4169898509 + 95 Prev: BET00000 4169898509 +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:94.6-94.7: + 91 Start: PRE00000 4169898509 + 92 Prev: MOR00000 4169898509 + 93 Delete: MOR00000 sequential + 94 > Prev: DEL00000 4169898509 +---- ^ + 95 Prev: BET00000 4169898509 + 96 Delete: BET00000 sequential +>> Error: Unexpected indicator: `v' + +run_file.at-12281-reference:95.6-95.7: + 92 Prev: MOR00000 4169898509 + 93 Delete: MOR00000 sequential + 94 Prev: DEL00000 4169898509 + 95 > Prev: BET00000 4169898509 +---- ^ + 96 Delete: BET00000 sequential + 97 List sample data file by Phone +>> Error: Unexpected indicator: `v' + +run_file.at-12281-reference:96.6-96.7: + 93 Delete: MOR00000 sequential + 94 Prev: DEL00000 4169898509 + 95 Prev: BET00000 4169898509 + 96 > Delete: BET00000 sequential +---- ^ + 97 List sample data file by Phone + 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. +>> Error: Unexpected indicator: `e' + +run_file.at-12281-reference:97.6-97.7: + 94 Prev: DEL00000 4169898509 + 95 Prev: BET00000 4169898509 + 96 Delete: BET00000 sequential + 97 > List sample data file by Phone +---- ^ + 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . +>> Error: Unexpected indicator: `a' + +run_file.at-12281-reference:98.6-98.7: + 95 Prev: BET00000 4169898509 + 96 Delete: BET00000 sequential + 97 List sample data file by Phone + 98 > Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. +---- ^ + 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . +>> Error: Unexpected indicator: `1' + +run_file.at-12281-reference:99.6-99.7: + 96 Delete: BET00000 sequential + 97 List sample data file by Phone + 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 99 > Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . +---- ^ + 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. +>> Error: Unexpected indicator: `5' + +run_file.at-12281-reference:100.6-100.7: + 97 List sample data file by Phone + 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 100 > Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . +---- ^ + 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:101.6-101.7: + 98 Ph=3131234432 Key: ALP00000 is ALPHA ELECTRICAL CO. LTD.. + 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 101 > Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. +---- ^ + 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:102.6-102.7: + 99 Ph=3455445444 Key: INC00000 is INCREMENTAL BACKUP CORP. . + 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 102 > Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . +---- ^ + 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +>> Error: Unexpected indicator: `2' + +run_file.at-12281-reference:103.6-103.7: + 100 Ph=4169898509 Key: DEL00000 is DELTA LUGGAGE REPAIRS . + 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 103 > Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . +---- ^ + 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:104.6-104.7: + 101 Ph=4169898509 Key: PRE00000 is PRESTIGE OFFICE FURNITURE. + 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 104 > Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . +---- ^ + 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:105.6-105.7: + 102 Ph=5292398745 Key: EPS00000 is EPSILON EQUIPMENT SUPPLY . + 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 105 > Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . +---- ^ + 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:106.6-106.7: + 103 Ph=6456445643 Key: GIB00000 is GIBRALTER LIFE INSURANCE . + 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 106 > Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . +---- ^ + 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:107.6-107.7: + 104 Ph=6456445643 Key: JOH00000 is JOHNSON BOATING SUPPLIES . + 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 107 > Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. +---- ^ + 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +>> Error: Unexpected indicator: `6' + +run_file.at-12281-reference:108.6-108.7: + 105 Ph=6546456333 Key: H&J00000 is H & J PLUMBING SUPPLIES . + 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 108 > Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . +---- ^ + 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 110 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +>> Error: Unexpected indicator: `4' + +run_file.at-12281-reference:109.6-109.7: + 106 Ph=6554456433 Key: LEW00000 is LEWISTON GRAPHICS LTD. . + 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 109 > Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . +---- ^ + 110 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 111 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +>> Error: Unexpected indicator: `9' + +run_file.at-12281-reference:110.6-110.7: + 107 Ph=7456434355 Key: KON00000 is KONFLAB PLASTIC PRODUCTS.. + 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 110 > Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . +---- ^ + 111 Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . + 112 Hit End of File +>> Error: Unexpected indicator: `2' + +run_file.at-12281-reference:111.6-111.7: + 108 Ph=7534587453 Key: NEW00000 is NEW WAVE SURF SHOPS INC. . + 109 Ph=8009329492 Key: FOR00000 is FORTUNE COOKIE COMPANY . + 110 Ph=8372487274 Key: GAM00000 is GAMMA X-RAY TECHNOLOGY . + 111 > Ph=8787458374 Key: OLD00000 is OLD TYME PIZZA MFG. CO. . +---- ^ + 112 Hit End of File +>> Error: Unexpected indicator: `7' + +run_file.at-12281-reference:1.8-1.14: + 1 > Loading sample data file. +---- ^^^^^^ + 2 Sample data file load complete. + 3 List sample data file +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:12369:0 +run_file.at-12369-prog.cob:31.36: + 28 WRITE f-rec FROM "a" + 29 CLOSE f + 30 + 31 > SET LAST EXCEPTION TO OFF +---- ^ + 32 >>TURN EC-I-O CHECKING ON + 33 *> Read f too many times without libcob error +>> Hint: Missing . + +run_file.at-12369-prog.cob:32.11-32.17: + 29 CLOSE f + 30 + 31 SET LAST EXCEPTION TO OFF + 32 > >>TURN EC-I-O CHECKING ON +---- ^^^^^^ + 33 *> Read f too many times without libcob error + 34 OPEN INPUT f +>> Warning: Invalid syntax + +run_file.at-12369-prog.cob:32.24: + 29 CLOSE f + 30 + 31 SET LAST EXCEPTION TO OFF + 32 > >>TURN EC-I-O CHECKING ON +---- ^ + 33 *> Read f too many times without libcob error + 34 OPEN INPUT f +>> Hint: Missing . + +run_file.at-12369-prog.cob:32.25-32.33: + 29 CLOSE f + 30 + 31 SET LAST EXCEPTION TO OFF + 32 > >>TURN EC-I-O CHECKING ON +---- ^^^^^^^^ + 33 *> Read f too many times without libcob error + 34 OPEN INPUT f +>> Warning: Invalid syntax + +run_file.at-12369-prog.cob:32.33: + 29 CLOSE f + 30 + 31 SET LAST EXCEPTION TO OFF + 32 > >>TURN EC-I-O CHECKING ON +---- ^ + 33 *> Read f too many times without libcob error + 34 OPEN INPUT f +>> Hint: Missing . + +run_file.at-12369-prog.cob:32.34-32.36: + 29 CLOSE f + 30 + 31 SET LAST EXCEPTION TO OFF + 32 > >>TURN EC-I-O CHECKING ON +---- ^^ + 33 *> Read f too many times without libcob error + 34 OPEN INPUT f +>> Warning: Invalid syntax + +run_file.at-12369-prog.cob:46.11-46.17: + 43 + 44 CLOSE f + 45 + 46 > >>TURN EC-I-O g CHECKING ON +---- ^^^^^^ + 47 + 48 *> Read f too many times without libcob error +>> Error: Invalid syntax + +run_file.at-12369-prog.cob:46.36-46.38: + 43 + 44 CLOSE f + 45 + 46 > >>TURN EC-I-O g CHECKING ON +---- ^^ + 47 + 48 *> Read f too many times without libcob error +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:12582:0 +run_file.at-12582-prog.cob:10.34-10.42: + 7 + 8 INPUT-OUTPUT SECTION. + 9 FILE-CONTROL. + 10 > SELECT FLATFILE ASSIGN EXTERNAL SEQFIX +---- ^^^^^^^^ + 11 ORGANIZATION LINE SEQUENTIAL + 12 FILE STATUS IS CUST-STAT . +>> Warning: Ignored EXTERNAL (implementation pending) + +run_file.at-12582-prog.cob:44.54: + 41 05 FILLER PIC X(8) VALUE "FOR00000". + 42 + 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 44 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 45 02 DATA-COMPANY-TBL. + 46 +>> Hint: Missing + +run_file.at-12582-prog.cob:44.55-44.62: + 41 05 FILLER PIC X(8) VALUE "FOR00000". + 42 + 43 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 44 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 45 02 DATA-COMPANY-TBL. + 46 +>> Error: Invalid syntax + +run_file.at-12582-prog.cob:54.55: + 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". + 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 54 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 55 02 DATA-ADDRESS-2-TBL. + 56 +>> Hint: Missing + +run_file.at-12582-prog.cob:54.56-54.63: + 51 05 FILLER PIC X(25) VALUE "EPSILON EQUIPMENT SUPPLY ". + 52 05 FILLER PIC X(25) VALUE "FORTUNE COOKIE COMPANY ". + 53 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 54 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 55 02 DATA-ADDRESS-2-TBL. + 56 +>> Error: Invalid syntax + +run_file.at-12582-prog.cob:65.55: + 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 63 + 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 65 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 66 + 67 02 DATA-NO-TERMINALS-TBL. +>> Hint: Missing + +run_file.at-12582-prog.cob:65.56-65.63: + 62 05 FILLER PIC X(10) VALUE "WHITEPLAIN". + 63 + 64 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 65 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 66 + 67 02 DATA-NO-TERMINALS-TBL. +>> Error: Invalid syntax + +run_file.at-12582-prog.cob:77.54: + 74 05 FILLER PIC 9(5) VALUE 254. + 75 + 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 77 > PIC 9(5) OCCURS MAX-SUB. +---- ^ + 78 01 WORK-AREA. + 79 05 SUB USAGE BINARY-SHORT UNSIGNED. +>> Hint: Missing + +run_file.at-12582-prog.cob:77.55-77.62: + 74 05 FILLER PIC 9(5) VALUE 254. + 75 + 76 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 77 > PIC 9(5) OCCURS MAX-SUB. +---- ^^^^^^^ + 78 01 WORK-AREA. + 79 05 SUB USAGE BINARY-SHORT UNSIGNED. +>> Error: Invalid syntax + +run_file.at-12582-prog.cob:145.19: + 142 PERFORM READ-RECORD + 143 END-PERFORM. + 144 CLOSE FLATFILE. + 145 > STOP RUN RETURNING 0. +---- ^ + 146 + 147 READ-RECORD. +>> Hint: Missing . + +run_file.at-12582-prog.cob:145.20-145.29: + 142 PERFORM READ-RECORD + 143 END-PERFORM. + 144 CLOSE FLATFILE. + 145 > STOP RUN RETURNING 0. +---- ^^^^^^^^^ + 146 + 147 READ-RECORD. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:12798:0 +run_file.at-12798-prog.cob:41.54: + 38 05 FILLER PIC X(8) VALUE "DEL00000". + 39 + 40 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 41 > PIC X(8) OCCURS MAX-SUB. +---- ^ + 42 02 DATA-COMPANY-TBL. + 43 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.". +>> Hint: Missing + +run_file.at-12798-prog.cob:41.55-41.62: + 38 05 FILLER PIC X(8) VALUE "DEL00000". + 39 + 40 02 DATA-CUST-NUM REDEFINES DATA-CUST-NUM-TBL + 41 > PIC X(8) OCCURS MAX-SUB. +---- ^^^^^^^ + 42 02 DATA-COMPANY-TBL. + 43 05 FILLER PIC X(25) VALUE "ALPHA ELECTRICAL CO. LTD.". +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:48.55: + 45 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". + 46 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ". + 47 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 48 > PIC X(25) OCCURS MAX-SUB. +---- ^ + 49 02 DATA-ADDRESS-2-TBL. + 50 05 FILLER PIC X(10) VALUE "NEW YORK ". +>> Hint: Missing + +run_file.at-12798-prog.cob:48.56-48.63: + 45 05 FILLER PIC X(25) VALUE "GAMMA X-RAY TECHNOLOGY ". + 46 05 FILLER PIC X(25) VALUE "DELTA LUGGAGE REPAIRS ". + 47 02 DATA-COMPANY REDEFINES DATA-COMPANY-TBL + 48 > PIC X(25) OCCURS MAX-SUB. +---- ^^^^^^^ + 49 02 DATA-ADDRESS-2-TBL. + 50 05 FILLER PIC X(10) VALUE "NEW YORK ". +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:55.55: + 52 05 FILLER PIC X(10) VALUE "WASHINGTON". + 53 05 FILLER PIC X(10) VALUE "TORONTO ". + 54 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 55 > PIC X(10) OCCURS MAX-SUB. +---- ^ + 56 + 57 02 DATA-NO-TERMINALS-TBL. +>> Hint: Missing + +run_file.at-12798-prog.cob:55.56-55.63: + 52 05 FILLER PIC X(10) VALUE "WASHINGTON". + 53 05 FILLER PIC X(10) VALUE "TORONTO ". + 54 02 DATA-ADDRESS REDEFINES DATA-ADDRESS-2-TBL + 55 > PIC X(10) OCCURS MAX-SUB. +---- ^^^^^^^ + 56 + 57 02 DATA-NO-TERMINALS-TBL. +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:63.54: + 60 05 FILLER PIC 9(3) VALUE 3. + 61 05 FILLER PIC 9(3) VALUE 254. + 62 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 63 > PIC 9(3) OCCURS MAX-SUB. +---- ^ + 64 01 WORK-AREA. + 65 05 SUB BINARY-SHORT UNSIGNED. +>> Hint: Missing + +run_file.at-12798-prog.cob:63.55-63.62: + 60 05 FILLER PIC 9(3) VALUE 3. + 61 05 FILLER PIC 9(3) VALUE 254. + 62 02 DATA-NO-TERMINALS REDEFINES DATA-NO-TERMINALS-TBL + 63 > PIC 9(3) OCCURS MAX-SUB. +---- ^^^^^^^ + 64 01 WORK-AREA. + 65 05 SUB BINARY-SHORT UNSIGNED. +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:70.14: + 67 + 68 PROCEDURE DIVISION. + 69 * Load file using MF rules + 70 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" +---- ^ + 71 SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" + 72 DISPLAY "MF Load data" +>> Hint: Missing rnell_rev___anonymous_88_ + +run_file.at-12798-prog.cob:70.15-70.26: + 67 + 68 PROCEDURE DIVISION. + 69 * Load file using MF rules + 70 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" +---- ^^^^^^^^^^^ + 71 SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" + 72 DISPLAY "MF Load data" +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:71.14: + 68 PROCEDURE DIVISION. + 69 * Load file using MF rules + 70 SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" + 71 > SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" +---- ^ + 72 DISPLAY "MF Load data" + 73 PERFORM LOADFILE. +>> Hint: Missing rnell_rev___anonymous_88_ + +run_file.at-12798-prog.cob:71.15-71.26: + 68 PROCEDURE DIVISION. + 69 * Load file using MF rules + 70 SET ENVIRONMENT "COB_LS_VALIDATE" TO "FALSE" + 71 > SET ENVIRONMENT "COB_LS_NULLS" TO "TRUE" +---- ^^^^^^^^^^^ + 72 DISPLAY "MF Load data" + 73 PERFORM LOADFILE. +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:84.14: + 81 CLOSE FLATFILE. + 82 + 83 * Read file using Std rules + 84 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" +---- ^ + 85 SET ENVIRONMENT "COB_LS_NULLS" TO "false" + 86 OPEN INPUT FLATFILE. +>> Hint: Missing rnell_rev___anonymous_88_ + +run_file.at-12798-prog.cob:84.15-84.26: + 81 CLOSE FLATFILE. + 82 + 83 * Read file using Std rules + 84 > SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" +---- ^^^^^^^^^^^ + 85 SET ENVIRONMENT "COB_LS_NULLS" TO "false" + 86 OPEN INPUT FLATFILE. +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:85.14: + 82 + 83 * Read file using Std rules + 84 SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" + 85 > SET ENVIRONMENT "COB_LS_NULLS" TO "false" +---- ^ + 86 OPEN INPUT FLATFILE. + 87 DISPLAY "Std Open Sts: " CUST-STAT +>> Hint: Missing rnell_rev___anonymous_88_ + +run_file.at-12798-prog.cob:85.15-85.26: + 82 + 83 * Read file using Std rules + 84 SET ENVIRONMENT "COB_LS_VALIDATE" TO "true" + 85 > SET ENVIRONMENT "COB_LS_NULLS" TO "false" +---- ^^^^^^^^^^^ + 86 OPEN INPUT FLATFILE. + 87 DISPLAY "Std Open Sts: " CUST-STAT +>> Error: Invalid syntax + +run_file.at-12798-prog.cob:97.19: + 94 DISPLAY "Std Load data" + 95 PERFORM LOADFILE. + 96 + 97 > STOP RUN RETURNING 0. +---- ^ + 98 + 99 READ-RECORD. +>> Hint: Missing . + +run_file.at-12798-prog.cob:97.20-97.29: + 94 DISPLAY "Std Load data" + 95 PERFORM LOADFILE. + 96 + 97 > STOP RUN RETURNING 0. +---- ^^^^^^^^^ + 98 + 99 READ-RECORD. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:12935:0 +run_file.at-12935-prog.cob:42.14: + 39 MOVE "file1+file2+file3" TO THE-FILE-NAME + 40 PERFORM UPDTFILE. + 41 + 42 > SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" +---- ^ + 43 MOVE "file1&file2&file3" TO THE-FILE-NAME + 44 PERFORM LISTFILE. +>> Hint: Missing rnell_rev___anonymous_88_ + +run_file.at-12935-prog.cob:42.15-42.26: + 39 MOVE "file1+file2+file3" TO THE-FILE-NAME + 40 PERFORM UPDTFILE. + 41 + 42 > SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" +---- ^^^^^^^^^^^ + 43 MOVE "file1&file2&file3" TO THE-FILE-NAME + 44 PERFORM LISTFILE. +>> Error: Invalid syntax + +run_file.at-12935-prog.cob:45.19: + 42 SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" + 43 MOVE "file1&file2&file3" TO THE-FILE-NAME + 44 PERFORM LISTFILE. + 45 > STOP RUN RETURNING 0. +---- ^ + 46 + 47 LISTFILE. +>> Hint: Missing . + +run_file.at-12935-prog.cob:45.20-45.29: + 42 SET ENVIRONMENT "COB_SEQ_CONCAT_SEP" TO "&" + 43 MOVE "file1&file2&file3" TO THE-FILE-NAME + 44 PERFORM LISTFILE. + 45 > STOP RUN RETURNING 0. +---- ^^^^^^^^^ + 46 + 47 LISTFILE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13004:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13091:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13142:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13190:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13192:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13249:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13316:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13397:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13453:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13544:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13596:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13686:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13762:0 +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13896:0 +run_file.at-13896-expected.txt:1.6-1.7: + 1 > ERROR ON FILE2 +---- ^ + 2 STAT-FILE1: 00 + 3 STAT-FILE2: 35 +>> Error: Unexpected indicator: `O' + +run_file.at-13896-expected.txt:2.7-2.11: + 1 ERROR ON FILE2 + 2 > STAT-FILE1: 00 +---- ^^^^ + 3 STAT-FILE2: 35 + 4 READ FILE1 +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:3.7-3.11: + 1 ERROR ON FILE2 + 2 STAT-FILE1: 00 + 3 > STAT-FILE2: 35 +---- ^^^^ + 4 READ FILE1 + 5 ERROR ON FILE1 +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:4.6-4.7: + 1 ERROR ON FILE2 + 2 STAT-FILE1: 00 + 3 STAT-FILE2: 35 + 4 > READ FILE1 +---- ^ + 5 ERROR ON FILE1 + 6 STAT-FILE1: 10 +>> Error: Unexpected indicator: `I' + +run_file.at-13896-expected.txt:5.6-5.7: + 2 STAT-FILE1: 00 + 3 STAT-FILE2: 35 + 4 READ FILE1 + 5 > ERROR ON FILE1 +---- ^ + 6 STAT-FILE1: 10 + 7 STAT-FILE2: 35 +>> Error: Unexpected indicator: `O' + +run_file.at-13896-expected.txt:6.7-6.11: + 3 STAT-FILE2: 35 + 4 READ FILE1 + 5 ERROR ON FILE1 + 6 > STAT-FILE1: 10 +---- ^^^^ + 7 STAT-FILE2: 35 + 8 READ FILE2 +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:7.7-7.11: + 4 READ FILE1 + 5 ERROR ON FILE1 + 6 STAT-FILE1: 10 + 7 > STAT-FILE2: 35 +---- ^^^^ + 8 READ FILE2 + 9 ERROR ON FILE2 +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:8.6-8.7: + 5 ERROR ON FILE1 + 6 STAT-FILE1: 10 + 7 STAT-FILE2: 35 + 8 > READ FILE2 +---- ^ + 9 ERROR ON FILE2 + 10 STAT-FILE1: 10 +>> Error: Unexpected indicator: `I' + +run_file.at-13896-expected.txt:9.6-9.7: + 6 STAT-FILE1: 10 + 7 STAT-FILE2: 35 + 8 READ FILE2 + 9 > ERROR ON FILE2 +---- ^ + 10 STAT-FILE1: 10 + 11 STAT-FILE2: 47 +>> Error: Unexpected indicator: `O' + +run_file.at-13896-expected.txt:10.7-10.11: + 7 STAT-FILE2: 35 + 8 READ FILE2 + 9 ERROR ON FILE2 + 10 > STAT-FILE1: 10 +---- ^^^^ + 11 STAT-FILE2: 47 + 12 CLOSE FILES +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:11.7-11.11: + 8 READ FILE2 + 9 ERROR ON FILE2 + 10 STAT-FILE1: 10 + 11 > STAT-FILE2: 47 +---- ^^^^ + 12 CLOSE FILES + 13 ERROR ON FILE2 +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:12.6-12.7: + 9 ERROR ON FILE2 + 10 STAT-FILE1: 10 + 11 STAT-FILE2: 47 + 12 > CLOSE FILES +---- ^ + 13 ERROR ON FILE2 + 14 STAT-FILE1: 00 +>> Error: Unexpected indicator: `F' + +run_file.at-13896-expected.txt:13.6-13.7: + 10 STAT-FILE1: 10 + 11 STAT-FILE2: 47 + 12 CLOSE FILES + 13 > ERROR ON FILE2 +---- ^ + 14 STAT-FILE1: 00 + 15 STAT-FILE2: 42 +>> Error: Unexpected indicator: `O' + +run_file.at-13896-expected.txt:14.7-14.11: + 11 STAT-FILE2: 47 + 12 CLOSE FILES + 13 ERROR ON FILE2 + 14 > STAT-FILE1: 00 +---- ^^^^ + 15 STAT-FILE2: 42 + 16 DELETE FILES +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:15.7-15.11: + 12 CLOSE FILES + 13 ERROR ON FILE2 + 14 STAT-FILE1: 00 + 15 > STAT-FILE2: 42 +---- ^^^^ + 16 DELETE FILES +>> Warning: Unexpected non-blank area A on continuation line + +run_file.at-13896-expected.txt:1.7-1.8: + 1 > ERROR ON FILE2 +---- ^ + 2 STAT-FILE1: 00 + 3 STAT-FILE2: 35 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13893:0 +run_file.at-13893-prog1.cob:45.17-45.21: + 42 CLOSE FILE1. + 43 CLOSE FILE2. + 44 DISPLAY "DELETE FILES". + 45 > DELETE FILE FILE1. +---- ^^^^ + 46 DELETE FILE FILE2. + 47 STOP RUN. +>> Error: Invalid syntax + +run_file.at-13893-prog1.cob:46.17-46.21: + 43 CLOSE FILE2. + 44 DISPLAY "DELETE FILES". + 45 DELETE FILE FILE1. + 46 > DELETE FILE FILE2. +---- ^^^^ + 47 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_file.at:13898:0 +run_file.at-13898-prog2.cob:45.17-45.21: + 42 CLOSE FILE1 + 43 FILE2. + 44 DISPLAY "DELETE FILES". + 45 > DELETE FILE FILE1 +---- ^^^^ + 46 FILE2. + 47 STOP RUN. +>> Error: Invalid syntax + +run_file.at-13898-prog2.cob:45.27: + 42 CLOSE FILE1 + 43 FILE2. + 44 DISPLAY "DELETE FILES". + 45 > DELETE FILE FILE1 +---- ^ + 46 FILE2. + 47 STOP RUN. +>> Hint: Missing . + +run_file.at-13898-prog2.cob:46.22-46.27: + 43 FILE2. + 44 DISPLAY "DELETE FILES". + 45 DELETE FILE FILE1 + 46 > FILE2. +---- ^^^^^ + 47 STOP RUN. +>> Error: Invalid syntax + diff --git a/test/output-tests/run_functions.expected b/test/output-tests/run_functions.expected new file mode 100644 index 000000000..b5f419aca --- /dev/null +++ b/test/output-tests/run_functions.expected @@ -0,0 +1,798 @@ +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:39:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:74:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:96:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:135:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:159:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:213:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:253:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:278:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:325:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:353:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:410:0 +run_functions.at-410-prog.cob:19.7-19.31: + 16 SET BITX-FILLER TO TRUE + 17 STRING FUNCTION BIT-OF (TXT) DELIMITED BY SIZE INTO BITX. + 18 *> Discover if running ASCII or EBCDIC + 19 > >>IF CHARSET = 'ASCII' +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 20 IF BITX NOT = "01001000010010010010111000100000--" + 21 >>ELIF CHARSET = 'EBCDIC' +>> Error: Malformed or unknown compiler directive + +run_functions.at-410-prog.cob:20.61: + 17 STRING FUNCTION BIT-OF (TXT) DELIMITED BY SIZE INTO BITX. + 18 *> Discover if running ASCII or EBCDIC + 19 >>IF CHARSET = 'ASCII' + 20 > IF BITX NOT = "01001000010010010010111000100000--" +---- ^ + 21 >>ELIF CHARSET = 'EBCDIC' + 22 IF BITX NOT = "11001000110010010100101101000000--" +>> Hint: Missing . + +run_functions.at-410-prog.cob:21.7-21.13: + 18 *> Discover if running ASCII or EBCDIC + 19 >>IF CHARSET = 'ASCII' + 20 IF BITX NOT = "01001000010010010010111000100000--" + 21 > >>ELIF CHARSET = 'EBCDIC' +---- ^^^^^^ + 22 IF BITX NOT = "11001000110010010100101101000000--" + 23 >>ELSE +>> Error: Invalid syntax + +run_functions.at-410-prog.cob:21.21: + 18 *> Discover if running ASCII or EBCDIC + 19 >>IF CHARSET = 'ASCII' + 20 IF BITX NOT = "01001000010010010010111000100000--" + 21 > >>ELIF CHARSET = 'EBCDIC' +---- ^ + 22 IF BITX NOT = "11001000110010010100101101000000--" + 23 >>ELSE +>> Hint: Missing . + +run_functions.at-410-prog.cob:21.22-21.23: + 18 *> Discover if running ASCII or EBCDIC + 19 >>IF CHARSET = 'ASCII' + 20 IF BITX NOT = "01001000010010010010111000100000--" + 21 > >>ELIF CHARSET = 'EBCDIC' +---- ^ + 22 IF BITX NOT = "11001000110010010100101101000000--" + 23 >>ELSE +>> Warning: Invalid syntax + +run_functions.at-410-prog.cob:23.7-23.13: + 20 IF BITX NOT = "01001000010010010010111000100000--" + 21 >>ELIF CHARSET = 'EBCDIC' + 22 IF BITX NOT = "11001000110010010100101101000000--" + 23 > >>ELSE +---- ^^^^^^ + 24 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' + 25 >>END-IF +>> Error: Invalid syntax + +run_functions.at-410-prog.cob:25.7-25.15: + 22 IF BITX NOT = "11001000110010010100101101000000--" + 23 >>ELSE + 24 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' + 25 > >>END-IF +---- ^^^^^^^^ + 26 DISPLAY "UNEXPECTED BIT-VALUE OF 'HI. ': " BITX. + 27 +>> Error: Invalid syntax + +run_functions.at-410-prog.cob:30.7-30.31: + 27 + 28 SET BITX-FILLER TO TRUE + 29 STRING FUNCTION BIT-OF (z"01") DELIMITED BY SIZE INTO BITX. + 30 > >>IF CHARSET = 'ASCII' +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 31 IF BITX NOT = "001100000011000100000000----------" + 32 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_functions.at-410-prog.cob:32.7-32.13: + 29 STRING FUNCTION BIT-OF (z"01") DELIMITED BY SIZE INTO BITX. + 30 >>IF CHARSET = 'ASCII' + 31 IF BITX NOT = "001100000011000100000000----------" + 32 > >>ELSE +---- ^^^^^^ + 33 IF BITX NOT = "111100001111000100000000----------" + 34 >>END-IF +>> Error: Invalid syntax + +run_functions.at-410-prog.cob:34.7-34.15: + 31 IF BITX NOT = "001100000011000100000000----------" + 32 >>ELSE + 33 IF BITX NOT = "111100001111000100000000----------" + 34 > >>END-IF +---- ^^^^^^^^ + 35 + 36 IF FUNCTION BIT-TO-CHAR (BITX(1:24)) NOT = z"01" +>> Error: Invalid syntax + +run_functions.at-410-prog.cob:36.55-36.59: + 33 IF BITX NOT = "111100001111000100000000----------" + 34 >>END-IF + 35 + 36 > IF FUNCTION BIT-TO-CHAR (BITX(1:24)) NOT = z"01" +---- ^^^^ + 37 DISPLAY "UNEXPECTED CHAR VALUE, does not match z'01': " + 38 BITX (1:24). +>> Error: Invalid syntax + +run_functions.at-410-prog.cob:42.33-42.39: + 39 SET BITX-FILLER TO TRUE + 40 STRING FUNCTION BIT-TO-CHAR ("0011000100110010") + 41 DELIMITED BY SIZE INTO BITX. + 42 > IF NOT (BITX (1:2) = x"3132" AND +---- ^^^^^^ + 43 BITX (3: ) = "--------------------------------") + 44 DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " BITX. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:541:0 +run_functions.at-541-prog.cob:25.7-25.34: + 22 MAIN. + 23 * Test with DISPLAY on error + 24 PERFORM DO-CHECK. + 25 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 26 SET NO-DISP TO TRUE + 27 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +run_functions.at-541-prog.cob:29.7-29.16: + 26 SET NO-DISP TO TRUE + 27 * some performance checks on the way... + 28 PERFORM DO-CHECK 300000 TIMES. + 29 > >> END-IF +---- ^^^^^^^^^ + 30 GOBACK. + 31 +>> Error: Malformed or unknown compiler directive + +run_functions.at-541-prog.cob:36.7-36.31: + 33 SET HEXX-FILLER TO TRUE + 34 STRING FUNCTION HEX-OF (X) DELIMITED BY SIZE INTO HEXX. + 35 *> Discover if running ASCII or EBCDIC + 36 > >>IF CHARSET = 'ASCII' +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 37 IF HEXX NOT = "20303132--" + 38 >>ELIF CHARSET = 'EBCDIC' +>> Error: Malformed or unknown compiler directive + +run_functions.at-541-prog.cob:37.37: + 34 STRING FUNCTION HEX-OF (X) DELIMITED BY SIZE INTO HEXX. + 35 *> Discover if running ASCII or EBCDIC + 36 >>IF CHARSET = 'ASCII' + 37 > IF HEXX NOT = "20303132--" +---- ^ + 38 >>ELIF CHARSET = 'EBCDIC' + 39 IF HEXX NOT = "40F0F1F2--" +>> Hint: Missing . + +run_functions.at-541-prog.cob:38.7-38.13: + 35 *> Discover if running ASCII or EBCDIC + 36 >>IF CHARSET = 'ASCII' + 37 IF HEXX NOT = "20303132--" + 38 > >>ELIF CHARSET = 'EBCDIC' +---- ^^^^^^ + 39 IF HEXX NOT = "40F0F1F2--" + 40 >>ELSE +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:38.21: + 35 *> Discover if running ASCII or EBCDIC + 36 >>IF CHARSET = 'ASCII' + 37 IF HEXX NOT = "20303132--" + 38 > >>ELIF CHARSET = 'EBCDIC' +---- ^ + 39 IF HEXX NOT = "40F0F1F2--" + 40 >>ELSE +>> Hint: Missing . + +run_functions.at-541-prog.cob:38.22-38.23: + 35 *> Discover if running ASCII or EBCDIC + 36 >>IF CHARSET = 'ASCII' + 37 IF HEXX NOT = "20303132--" + 38 > >>ELIF CHARSET = 'EBCDIC' +---- ^ + 39 IF HEXX NOT = "40F0F1F2--" + 40 >>ELSE +>> Warning: Invalid syntax + +run_functions.at-541-prog.cob:40.7-40.13: + 37 IF HEXX NOT = "20303132--" + 38 >>ELIF CHARSET = 'EBCDIC' + 39 IF HEXX NOT = "40F0F1F2--" + 40 > >>ELSE +---- ^^^^^^ + 41 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' + 42 >>END-IF +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:42.7-42.15: + 39 IF HEXX NOT = "40F0F1F2--" + 40 >>ELSE + 41 IF 1 = 1 DISPLAY 'CHARSET UNKNOWN! PLEASE REPORT!' + 42 > >>END-IF +---- ^^^^^^^^ + 43 DISPLAY "UNEXPECTED HEX-VALUE OF '0012': " HEXX. + 44 +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:47.7-47.31: + 44 + 45 SET HEXX-FILLER TO TRUE + 46 STRING FUNCTION HEX-OF (Y) DELIMITED BY SIZE INTO HEXX. + 47 > >>IF CHARSET = 'ASCII' +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 48 IF HEXX NOT = "48492E20--" + 49 >> ELSE +>> Error: Malformed or unknown compiler directive + +run_functions.at-541-prog.cob:49.7-49.14: + 46 STRING FUNCTION HEX-OF (Y) DELIMITED BY SIZE INTO HEXX. + 47 >>IF CHARSET = 'ASCII' + 48 IF HEXX NOT = "48492E20--" + 49 > >> ELSE +---- ^^^^^^^ + 50 IF HEXX NOT = "C8C94B40--" + 51 >> END-IF +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:51.7-51.16: + 48 IF HEXX NOT = "48492E20--" + 49 >> ELSE + 50 IF HEXX NOT = "C8C94B40--" + 51 > >> END-IF +---- ^^^^^^^^^ + 52 DISPLAY "UNEXPECTED HEX-VALUE OF 'HI! ': " HEXX. + 53 +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:66.7-66.31: + 63 + 64 SET HEXX-FILLER TO TRUE + 65 STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX. + 66 > >>IF CHARSET = 'ASCII' +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 67 IF HEXX NOT = "303100----" + 68 >> ELSE +>> Error: Malformed or unknown compiler directive + +run_functions.at-541-prog.cob:68.7-68.14: + 65 STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX. + 66 >>IF CHARSET = 'ASCII' + 67 IF HEXX NOT = "303100----" + 68 > >> ELSE +---- ^^^^^^^ + 69 IF HEXX NOT = "F0F100----" + 70 >> END-IF +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:70.7-70.16: + 67 IF HEXX NOT = "303100----" + 68 >> ELSE + 69 IF HEXX NOT = "F0F100----" + 70 > >> END-IF +---- ^^^^^^^^^ + 71 DISPLAY "UNEXPECTED HEX-VALUE OF z'01': " HEXX. + 72 +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:75.7-75.31: + 72 + 73 SET HEXX-FILLER TO TRUE + 74 STRING FUNCTION HEX-OF (' ') DELIMITED BY SIZE INTO HEXX. + 75 > >>IF CHARSET = 'ASCII' +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 76 IF HEXX NOT = "20--------" + 77 >> ELSE +>> Error: Malformed or unknown compiler directive + +run_functions.at-541-prog.cob:77.7-77.14: + 74 STRING FUNCTION HEX-OF (' ') DELIMITED BY SIZE INTO HEXX. + 75 >>IF CHARSET = 'ASCII' + 76 IF HEXX NOT = "20--------" + 77 > >> ELSE +---- ^^^^^^^ + 78 IF HEXX NOT = "40--------" + 79 >> END-IF +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:79.7-79.16: + 76 IF HEXX NOT = "20--------" + 77 >> ELSE + 78 IF HEXX NOT = "40--------" + 79 > >> END-IF +---- ^^^^^^^^^ + 80 DISPLAY "UNEXPECTED HEX-VALUE OF ' ': " HEXX. + 81 +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:107.54-107.58: + 104 SET HEXX-FILLER TO TRUE + 105 STRING FUNCTION HEX-OF (z"01") DELIMITED BY SIZE INTO HEXX. + 106 + 107 > IF FUNCTION HEX-TO-CHAR (HEXX(1:6)) NOT = z"01" +---- ^^^^ + 108 DISPLAY "UNEXPECTED CHAR VALUE, does not match z'01': " + 109 HEXX (1:6). +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:113.33-113.39: + 110 SET HEXX-FILLER TO TRUE + 111 STRING FUNCTION HEX-TO-CHAR ("3132") + 112 DELIMITED BY SIZE INTO HEXX. + 113 > IF NOT (HEXX (1:2) = x"3132" AND HEXX (3:) = "--------") +---- ^^^^^^ + 114 DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " HEXX. + 115 +>> Error: Invalid syntax + +run_functions.at-541-prog.cob:119.33-119.39: + 116 SET HEXX-FILLER TO TRUE + 117 STRING FUNCTION HEX-TO-CHAR ("3132") + 118 DELIMITED BY SIZE INTO HEXX. + 119 > IF NOT (HEXX (1:2) = x"3132" AND HEXX (3:) = "--------") +---- ^^^^^^ + 120 DISPLAY "UNEXPECTED CHAR VALUE, expected 12-* got: " HEXX. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:575:0 +run_functions.at-575-prog.cob:7.43: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 P USAGE POINTER. + 7 > 01 X PIC X(4) VALUE Z"ABC". +---- ^ + 8 01 TEST-FLD USAGE BINARY-LONG. + 9 PROCEDURE DIVISION. +>> Hint: Missing + +run_functions.at-575-prog.cob:7.44-7.50: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 P USAGE POINTER. + 7 > 01 X PIC X(4) VALUE Z"ABC". +---- ^^^^^^ + 8 01 TEST-FLD USAGE BINARY-LONG. + 9 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:650:0 +run_functions.at-650-prog.cob:7.34: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 P USAGE POINTER. + 7 > 01 X PIC X(4) VALUE Z"ABC". +---- ^ + 8 01 B PIC X(10) BASED. + 9 PROCEDURE DIVISION. +>> Hint: Missing + +run_functions.at-650-prog.cob:7.35-7.41: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 P USAGE POINTER. + 7 > 01 X PIC X(4) VALUE Z"ABC". +---- ^^^^^^ + 8 01 B PIC X(10) BASED. + 9 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:685:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:710:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:733:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:804:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:829:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:854:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:879:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:904:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:928:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:962:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1050:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1003:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1049:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1085:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1120:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1145:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1170:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1195:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1223:0 +run_functions.at-1223-prog.cob:6.35: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 Datetime-Format CONSTANT "YYYYMMDDThhmmss.ss+hhmm". +---- ^ + 7 01 str PIC X(25). + 8 PROCEDURE DIVISION. +>> Hint: Missing RECORD + +run_functions.at-1223-prog.cob:6.36-6.61: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 Datetime-Format CONSTANT "YYYYMMDDThhmmss.ss+hhmm". +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 7 01 str PIC X(25). + 8 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1286:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1311:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1368:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1394:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1481:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1512:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1537:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1568:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1636:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1669:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1694:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1719:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1769:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1795:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1877:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1907:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1931:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1957:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:1983:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2009:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2033:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2061:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2087:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2140:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2160:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2182:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2204:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2226:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2248:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2280:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2311:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2344:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2345:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2370:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2395:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2416:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2441:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2462:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2487:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2510:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2533:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2556:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2579:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2652:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2713:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2741:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2776:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2796:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2817:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2838:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2861:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2881:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2904:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2926:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2948:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2975:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:2998:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3021:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3076:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3098:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3142:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3164:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3186:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3208:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3232:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3259:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3285:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3310:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3336:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3358:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3380:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3401:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3423:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3525:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3606:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3659:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3700:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3851:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:3951:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4051:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4074:0 +run_functions.at-4074-prog.cob:10.37-10.45: + 7 PROCEDURE DIVISION. + 8 DISPLAY FUNCTION TRIM ( X ) + 9 END-DISPLAY. + 10 > DISPLAY FUNCTION TRIM ( X TRAILING ) +---- ^^^^^^^^ + 11 END-DISPLAY. + 12 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4100:0 +run_functions.at-4100-prog.cob:10.37-10.45: + 7 PROCEDURE DIVISION. + 8 DISPLAY FUNCTION TRIM ( X ) (2 : 3) + 9 END-DISPLAY. + 10 > DISPLAY FUNCTION TRIM ( X TRAILING ) (2 : 3) +---- ^^^^^^^^ + 11 END-DISPLAY. + 12 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4127:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4155:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4180:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4210:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4264:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4288:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4358:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4407:0 +run_functions.at-4407-prog.cob:11.54-11.68: + 8 + 9 PROCEDURE DIVISION. + 10 MOVE FUNCTION FORMATTED-DATETIME + 11 > ("YYYYDDDThhmmss+hhmm", 1, 45296, SYSTEM-OFFSET) +---- ^^^^^^^^^^^^^^ + 12 TO str + 13 MOVE FUNCTION TEST-FORMATTED-DATETIME +>> Error: Invalid syntax + +run_functions.at-4407-prog.cob:20.42-20.56: + 17 END-IF + 18 + 19 MOVE FUNCTION FORMATTED-TIME + 20 > ("hhmmss.ssZ", 45296, SYSTEM-OFFSET) +---- ^^^^^^^^^^^^^^ + 21 TO str + 22 MOVE FUNCTION TEST-FORMATTED-DATETIME +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4428:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4449:0 +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4502:0 +run_functions.at-4502-prog.cob:9.11-9.14: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Error: Invalid syntax + +run_functions.at-4502-prog.cob:9.16: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Hint: Missing . + +run_functions.at-4502-prog.cob:9.17-9.19: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Warning: Invalid syntax + +run_functions.at-4502-prog.cob:9.26: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Hint: Missing . + +run_functions.at-4502-prog.cob:9.27-9.33: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Warning: Invalid syntax + +run_functions.at-4502-prog.cob:9.42-9.49: + 6 01 PAR-IN PIC 9. + 7 01 PAR-OUT PIC 9. + 8 PROCEDURE DIVISION USING PAR-IN RETURNING PAR-OUT. + 9 > ADD 1 TO PAR-IN GIVING PAR-OUT END-ADD. +---- ^^^^^^^ + 10 GOBACK. + 11 END FUNCTION WITHPAR. +>> Error: Invalid syntax + +run_functions.at-4502-prog.cob:19.11-19.15: + 16 LINKAGE SECTION. + 17 01 PAR PIC 9. + 18 PROCEDURE DIVISION RETURNING PAR. + 19 > MOVE 1 TO PAR. +---- ^^^^ + 20 GOBACK. + 21 END FUNCTION WITHOUTPAR. +>> Error: Invalid syntax + +run_functions.at-4502-prog.cob:19.17: + 16 LINKAGE SECTION. + 17 01 PAR PIC 9. + 18 PROCEDURE DIVISION RETURNING PAR. + 19 > MOVE 1 TO PAR. +---- ^ + 20 GOBACK. + 21 END FUNCTION WITHOUTPAR. +>> Hint: Missing . + +run_functions.at-4502-prog.cob:19.18-19.20: + 16 LINKAGE SECTION. + 17 01 PAR PIC 9. + 18 PROCEDURE DIVISION RETURNING PAR. + 19 > MOVE 1 TO PAR. +---- ^^ + 20 GOBACK. + 21 END FUNCTION WITHOUTPAR. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4543:0 +run_functions.at-4543-prog.cob:10.11-10.15: + 7 01 num PIC 999. + 8 + 9 PROCEDURE DIVISION RETURNING num. + 10 > MOVE 100 TO num +---- ^^^^ + 11 . + 12 END FUNCTION func. +>> Error: Invalid syntax + +run_functions.at-4543-prog.cob:10.19: + 7 01 num PIC 999. + 8 + 9 PROCEDURE DIVISION RETURNING num. + 10 > MOVE 100 TO num +---- ^ + 11 . + 12 END FUNCTION func. +>> Hint: Missing . + +run_functions.at-4543-prog.cob:10.20-10.22: + 7 01 num PIC 999. + 8 + 9 PROCEDURE DIVISION RETURNING num. + 10 > MOVE 100 TO num +---- ^^ + 11 . + 12 END FUNCTION func. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4585:0 +run_functions.at-4585-prog.cob:12.11-12.15: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^^^^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Error: Invalid syntax + +run_functions.at-4585-prog.cob:12.23: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Hint: Missing . + +run_functions.at-4585-prog.cob:12.24-12.26: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Warning: Invalid syntax + +run_functions.at-4585-prog.cob:12.35: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Hint: Missing . + +run_functions.at-4585-prog.cob:13.11-13.18: + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 MOVE func-in TO func-out + 13 > INSPECT func-out REPLACING ALL '%' BY func-sub +---- ^^^^^^^ + 14 . + 15 END FUNCTION SUBSTITUTE. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_functions.at:4648:0 +run_functions.at-4648-prog.cob:17.11-17.13: + 14 01 ret PIC 9. + 15 + 16 PROCEDURE DIVISION USING arg RETURNING ret. + 17 > IF arg < 5 +---- ^^ + 18 ADD 1 TO arg GIVING num END-ADD + 19 MOVE FUNCTION foo (num) TO ret +>> Error: Invalid syntax + +run_functions.at-4648-prog.cob:17.17: + 14 01 ret PIC 9. + 15 + 16 PROCEDURE DIVISION USING arg RETURNING ret. + 17 > IF arg < 5 +---- ^ + 18 ADD 1 TO arg GIVING num END-ADD + 19 MOVE FUNCTION foo (num) TO ret +>> Hint: Missing . + +run_functions.at-4648-prog.cob:17.18-17.19: + 14 01 ret PIC 9. + 15 + 16 PROCEDURE DIVISION USING arg RETURNING ret. + 17 > IF arg < 5 +---- ^ + 18 ADD 1 TO arg GIVING num END-ADD + 19 MOVE FUNCTION foo (num) TO ret +>> Warning: Invalid syntax + +run_functions.at-4648-prog.cob:17.21: + 14 01 ret PIC 9. + 15 + 16 PROCEDURE DIVISION USING arg RETURNING ret. + 17 > IF arg < 5 +---- ^ + 18 ADD 1 TO arg GIVING num END-ADD + 19 MOVE FUNCTION foo (num) TO ret +>> Hint: Missing . + +run_functions.at-4648-prog.cob:18.14-18.17: + 15 + 16 PROCEDURE DIVISION USING arg RETURNING ret. + 17 IF arg < 5 + 18 > ADD 1 TO arg GIVING num END-ADD +---- ^^^ + 19 MOVE FUNCTION foo (num) TO ret + 20 ELSE +>> Warning: Invalid syntax + +run_functions.at-4648-prog.cob:20.11-20.15: + 17 IF arg < 5 + 18 ADD 1 TO arg GIVING num END-ADD + 19 MOVE FUNCTION foo (num) TO ret + 20 > ELSE +---- ^^^^ + 21 MOVE arg TO ret + 22 END-IF +>> Error: Invalid syntax + +run_functions.at-4648-prog.cob:22.11-22.17: + 19 MOVE FUNCTION foo (num) TO ret + 20 ELSE + 21 MOVE arg TO ret + 22 > END-IF +---- ^^^^^^ + 23 DISPLAY "Step: " ttl ", Arg: " arg ", Return: " ret + 24 END-DISPLAY +>> Error: Invalid syntax + diff --git a/test/output-tests/run_fundamental.expected b/test/output-tests/run_fundamental.expected new file mode 100644 index 000000000..a86314ed6 --- /dev/null +++ b/test/output-tests/run_fundamental.expected @@ -0,0 +1,1917 @@ +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:50:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:92:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:137:0 +run_fundamental.at-137-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data) + 7 { +>> Error: Unexpected indicator: `T' + +run_fundamental.at-137-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data) +---- ^ + 7 { + 8 int i; +>> Error: Unexpected indicator: `u' + +run_fundamental.at-137-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data) + 7 { + 8 > int i; +---- ^ + 9 for (i = 0; i < 4; i++) + 10 printf ("%02x", data[i]); +>> Error: Unexpected indicator: `i' + +run_fundamental.at-137-dump.c:9.6-9.7: + 6 dump (unsigned char *data) + 7 { + 8 int i; + 9 > for (i = 0; i < 4; i++) +---- ^ + 10 printf ("%02x", data[i]); + 11 return 0; +>> Error: Unexpected indicator: `(' + +run_fundamental.at-137-dump.c:10.6-10.7: + 7 { + 8 int i; + 9 for (i = 0; i < 4; i++) + 10 > printf ("%02x", data[i]); +---- ^ + 11 return 0; + 12 } +>> Error: Unexpected indicator: `i' + +run_fundamental.at-137-dump.c:11.6-11.7: + 8 int i; + 9 for (i = 0; i < 4; i++) + 10 printf ("%02x", data[i]); + 11 > return 0; +---- ^ + 12 } +>> Error: Unexpected indicator: `r' + +run_fundamental.at-137-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:138:0 +run_fundamental.at-138-prog.cob:5.7-5.30: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >>IF CHARSET = 'EBCDIC' +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 6 DISPLAY X"F1F2F3" + 7 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-138-prog.cob:7.7-7.13: + 4 PROCEDURE DIVISION. + 5 >>IF CHARSET = 'EBCDIC' + 6 DISPLAY X"F1F2F3" + 7 > >>ELSE +---- ^^^^^^ + 8 DISPLAY X"313233" + 9 >>END-IF +>> Error: Invalid syntax + +run_fundamental.at-138-prog.cob:9.7-9.15: + 6 DISPLAY X"F1F2F3" + 7 >>ELSE + 8 DISPLAY X"313233" + 9 > >>END-IF +---- ^^^^^^^^ + 10 END-DISPLAY. + 11 CALL "dump" USING X"000102" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:179:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:233:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:284:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:333:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:444:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:475:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:518:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:547:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:614:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:737:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:868:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:904:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:951:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:952:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:988:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1032:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1033:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1065:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1097:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1129:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1174:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1223:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1306:0 +run_fundamental.at-1306-prog.cob:16.37: + 13 01 TEST-REC PIC X(4). + 14 WORKING-STORAGE SECTION. + 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". + 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". +---- ^ + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". +>> Hint: Missing AS + +run_fundamental.at-1306-prog.cob:16.44-16.52: + 13 01 TEST-REC PIC X(4). + 14 WORKING-STORAGE SECTION. + 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". + 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". +---- ^^^^^^^^ + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". +>> Error: Invalid syntax + +run_fundamental.at-1306-prog.cob:19.37: + 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". + 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". +---- ^ + 20 PROCEDURE DIVISION. + 21 DISPLAY GLOB-PATH GLOB-VAR +>> Hint: Missing AS + +run_fundamental.at-1306-prog.cob:19.44-19.52: + 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". + 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". +---- ^^^^^^^^ + 20 PROCEDURE DIVISION. + 21 DISPLAY GLOB-PATH GLOB-VAR +>> Error: Invalid syntax + +run_fundamental.at-1306-prog.cob:64.47-64.56: + 61 DISPLAY 'in prog3' + 62 END-DISPLAY + 63 IF GLOB-PATH NOT = SPACES + 64 > DISPLAY FUNCTION TRIM (GLOB-PATH TRAILING) +---- ^^^^^^^^^ + 65 END-DISPLAY + 66 END-IF +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1390:0 +run_fundamental.at-1390-prog.cob:7.11-7.15: + 4 LINKAGE SECTION. + 5 01 r BINARY-LONG. + 6 PROCEDURE DIVISION RETURNING r. + 7 > move 1 to r +---- ^^^^ + 8 GOBACK + 9 . +>> Error: Invalid syntax + +run_fundamental.at-1390-prog.cob:7.17: + 4 LINKAGE SECTION. + 5 01 r BINARY-LONG. + 6 PROCEDURE DIVISION RETURNING r. + 7 > move 1 to r +---- ^ + 8 GOBACK + 9 . +>> Hint: Missing . + +run_fundamental.at-1390-prog.cob:7.18-7.20: + 4 LINKAGE SECTION. + 5 01 r BINARY-LONG. + 6 PROCEDURE DIVISION RETURNING r. + 7 > move 1 to r +---- ^^ + 8 GOBACK + 9 . +>> Warning: Invalid syntax + +run_fundamental.at-1390-prog.cob:7.22: + 4 LINKAGE SECTION. + 5 01 r BINARY-LONG. + 6 PROCEDURE DIVISION RETURNING r. + 7 > move 1 to r +---- ^ + 8 GOBACK + 9 . +>> Hint: Missing . + +run_fundamental.at-1390-prog.cob:8.11-8.17: + 5 01 r BINARY-LONG. + 6 PROCEDURE DIVISION RETURNING r. + 7 move 1 to r + 8 > GOBACK +---- ^^^^^^ + 9 . + 10 END FUNCTION f1. +>> Warning: Invalid syntax + +run_fundamental.at-1390-prog.cob:17.11-17.14: + 14 01 i BINARY-LONG. + 15 01 r BINARY-LONG. + 16 PROCEDURE DIVISION USING i RETURNING r. + 17 > add i to i giving r +---- ^^^ + 18 GOBACK + 19 . +>> Error: Invalid syntax + +run_fundamental.at-1390-prog.cob:17.16: + 14 01 i BINARY-LONG. + 15 01 r BINARY-LONG. + 16 PROCEDURE DIVISION USING i RETURNING r. + 17 > add i to i giving r +---- ^ + 18 GOBACK + 19 . +>> Hint: Missing . + +run_fundamental.at-1390-prog.cob:17.17-17.19: + 14 01 i BINARY-LONG. + 15 01 r BINARY-LONG. + 16 PROCEDURE DIVISION USING i RETURNING r. + 17 > add i to i giving r +---- ^^ + 18 GOBACK + 19 . +>> Warning: Invalid syntax + +run_fundamental.at-1390-prog.cob:17.21: + 14 01 i BINARY-LONG. + 15 01 r BINARY-LONG. + 16 PROCEDURE DIVISION USING i RETURNING r. + 17 > add i to i giving r +---- ^ + 18 GOBACK + 19 . +>> Hint: Missing . + +run_fundamental.at-1390-prog.cob:17.22-17.28: + 14 01 i BINARY-LONG. + 15 01 r BINARY-LONG. + 16 PROCEDURE DIVISION USING i RETURNING r. + 17 > add i to i giving r +---- ^^^^^^ + 18 GOBACK + 19 . +>> Warning: Invalid syntax + +run_fundamental.at-1390-prog.cob:17.30: + 14 01 i BINARY-LONG. + 15 01 r BINARY-LONG. + 16 PROCEDURE DIVISION USING i RETURNING r. + 17 > add i to i giving r +---- ^ + 18 GOBACK + 19 . +>> Hint: Missing . + +run_fundamental.at-1390-prog.cob:18.11-18.17: + 15 01 r BINARY-LONG. + 16 PROCEDURE DIVISION USING i RETURNING r. + 17 add i to i giving r + 18 > GOBACK +---- ^^^^^^ + 19 . + 20 END FUNCTION f2. +>> Warning: Invalid syntax + +run_fundamental.at-1390-prog.cob:29.7-29.20: + 26 REPOSITORY. + 27 FUNCTION f1 + 28 FUNCTION f2. + 29 > SPECIAL-NAMES. +---- ^^^^^^^^^^^^^ + 30 CURRENCY SIGN IS "Y" + 31 DECIMAL-POINT IS COMMA. +>> Error: Invalid syntax + +run_fundamental.at-1390-prog.cob:45.20: + 42 77 curr PIC 9.9999,99Y. + 43 + 44 PROCEDURE DIVISION. + 45 > MOVE f1() TO n1 +---- ^ + 46 IF n1 NOT = 1 + 47 DISPLAY "ERROR 1" GOBACK +>> Hint: Missing + +run_fundamental.at-1390-prog.cob:45.19-45.20: + 42 77 curr PIC 9.9999,99Y. + 43 + 44 PROCEDURE DIVISION. + 45 > MOVE f1() TO n1 +---- ^ + 46 IF n1 NOT = 1 + 47 DISPLAY "ERROR 1" GOBACK +>> Error: Invalid syntax + +run_fundamental.at-1390-prog.cob:53.20: + 50 IF n1 NOT = 2 + 51 DISPLAY "ERROR 2" GOBACK + 52 END-IF + 53 > MOVE f1() TO n1 +---- ^ + 54 IF n1 NOT = 1 + 55 DISPLAY "ERROR 1 2nd" GOBACK +>> Hint: Missing + +run_fundamental.at-1390-prog.cob:53.19-53.20: + 50 IF n1 NOT = 2 + 51 DISPLAY "ERROR 2" GOBACK + 52 END-IF + 53 > MOVE f1() TO n1 +---- ^ + 54 IF n1 NOT = 1 + 55 DISPLAY "ERROR 1 2nd" GOBACK +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1412:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1494:0 +run_fundamental.at-1494-prog.cob:11.71: + 8 01 argument PIC X ANY LENGTH. + 9 01 result. + 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. + 11 > PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. +---- ^ + 12 MOVE FUNCTION LENGTH (argument) TO arg-len + 13 MOVE argument TO result. +>> Hint: Missing END + +run_fundamental.at-1494-prog.cob:12.11-12.15: + 9 01 result. + 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. + 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. + 12 > MOVE FUNCTION LENGTH (argument) TO arg-len +---- ^^^^ + 13 MOVE argument TO result. + 14 END FUNCTION reply. +>> Error: Invalid syntax + +run_fundamental.at-1494-prog.cob:12.25-12.31: + 9 01 result. + 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. + 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. + 12 > MOVE FUNCTION LENGTH (argument) TO arg-len +---- ^^^^^^ + 13 MOVE argument TO result. + 14 END FUNCTION reply. +>> Error: Invalid syntax + +run_fundamental.at-1494-prog.cob:12.41-12.42: + 9 01 result. + 10 05 filler PIC X OCCURS 0 to 999 DEPENDING ON arg-len. + 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. + 12 > MOVE FUNCTION LENGTH (argument) TO arg-len +---- ^ + 13 MOVE argument TO result. + 14 END FUNCTION reply. +>> Error: Invalid syntax + +run_fundamental.at-1494-prog.cob:14.7-14.10: + 11 PROCEDURE DIVISION USING BY REFERENCE argument RETURNING result. + 12 MOVE FUNCTION LENGTH (argument) TO arg-len + 13 MOVE argument TO result. + 14 > END FUNCTION reply. +---- ^^^ + 15 + 16 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +run_fundamental.at-1494-prog.cob:55.17-55.28: + 52 FUNCTION LENGTH (REPLY (arg)) " #" + 53 FUNCTION REPLY (arg) "#". + 54 *> + 55 > MOVE z"echo this" to arg +---- ^^^^^^^^^^^ + 56 IF not (FUNCTION REPLY (arg) = arg + 57 and FUNCTION LENGTH (REPLY (arg)) = 100 ) +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1526:0 +run_fundamental.at-1526-module.cob:8.7-8.12: + 5 PROCEDURE DIVISION. + 6 DISPLAY 'A' WITH NO ADVANCING + 7 GOBACK. + 8 > ENTRY 'modulepart'. +---- ^^^^^ + 9 DISPLAY 'B' WITH NO ADVANCING + 10 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1525:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1558:0 +run_fundamental.at-1558-module.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 some (void) + 7 { +>> Error: Unexpected indicator: `T' + +run_fundamental.at-1558-module.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > some (void) +---- ^ + 7 { + 8 return 0; +>> Error: Unexpected indicator: `v' + +run_fundamental.at-1558-module.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 some (void) + 7 { + 8 > return 0; +---- ^ + 9 } +>> Error: Unexpected indicator: `r' + +run_fundamental.at-1558-module.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 some (void) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1557:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1617:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1670:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1723:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1777:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1856:0 +run_fundamental.at-1856-prog.cob:20.20: + 17 DISPLAY "<" + 18 + 19 MOVE "dummy-call" TO prgm + 20 > CALL prgm +---- ^ + 21 >> IF CHECK-PERF IS DEFINED + 22 PERFORM 500000 TIMES +>> Hint: Missing . + +run_fundamental.at-1856-prog.cob:21.7-21.12: + 18 + 19 MOVE "dummy-call" TO prgm + 20 CALL prgm + 21 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^ + 22 PERFORM 500000 TIMES + 23 CALL prgm +>> Error: Invalid syntax + +run_fundamental.at-1856-prog.cob:21.23: + 18 + 19 MOVE "dummy-call" TO prgm + 20 CALL prgm + 21 > >> IF CHECK-PERF IS DEFINED +---- ^ + 22 PERFORM 500000 TIMES + 23 CALL prgm +>> Hint: Missing . + +run_fundamental.at-1856-prog.cob:21.24-21.26: + 18 + 19 MOVE "dummy-call" TO prgm + 20 CALL prgm + 21 > >> IF CHECK-PERF IS DEFINED +---- ^^ + 22 PERFORM 500000 TIMES + 23 CALL prgm +>> Warning: Invalid syntax + +run_fundamental.at-1856-prog.cob:21.34: + 18 + 19 MOVE "dummy-call" TO prgm + 20 CALL prgm + 21 > >> IF CHECK-PERF IS DEFINED +---- ^ + 22 PERFORM 500000 TIMES + 23 CALL prgm +>> Hint: Missing . + +run_fundamental.at-1856-prog.cob:22.11-22.18: + 19 MOVE "dummy-call" TO prgm + 20 CALL prgm + 21 >> IF CHECK-PERF IS DEFINED + 22 > PERFORM 500000 TIMES +---- ^^^^^^^ + 23 CALL prgm + 24 END-PERFORM +>> Warning: Invalid syntax + +run_fundamental.at-1856-prog.cob:25.7-25.16: + 22 PERFORM 500000 TIMES + 23 CALL prgm + 24 END-PERFORM + 25 > >> END-IF +---- ^^^^^^^^^ + 26 . + 27 END PROGRAM prog. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:1956:0 +run_fundamental.at-1956-prog.cob:28.24: + 25 DISPLAY "<" + 26 + 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" + 28 > CALL prog-ptr +---- ^ + 29 >> IF CHECK-PERF IS DEFINED + 30 PERFORM 500000 TIMES +>> Hint: Missing . + +run_fundamental.at-1956-prog.cob:29.7-29.12: + 26 + 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" + 28 CALL prog-ptr + 29 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^ + 30 PERFORM 500000 TIMES + 31 CALL prog-ptr +>> Error: Invalid syntax + +run_fundamental.at-1956-prog.cob:29.23: + 26 + 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" + 28 CALL prog-ptr + 29 > >> IF CHECK-PERF IS DEFINED +---- ^ + 30 PERFORM 500000 TIMES + 31 CALL prog-ptr +>> Hint: Missing . + +run_fundamental.at-1956-prog.cob:29.24-29.26: + 26 + 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" + 28 CALL prog-ptr + 29 > >> IF CHECK-PERF IS DEFINED +---- ^^ + 30 PERFORM 500000 TIMES + 31 CALL prog-ptr +>> Warning: Invalid syntax + +run_fundamental.at-1956-prog.cob:29.34: + 26 + 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" + 28 CALL prog-ptr + 29 > >> IF CHECK-PERF IS DEFINED +---- ^ + 30 PERFORM 500000 TIMES + 31 CALL prog-ptr +>> Hint: Missing . + +run_fundamental.at-1956-prog.cob:30.11-30.18: + 27 SET prog-ptr TO ADDRESS OF PROGRAM "dummy-call" + 28 CALL prog-ptr + 29 >> IF CHECK-PERF IS DEFINED + 30 > PERFORM 500000 TIMES +---- ^^^^^^^ + 31 CALL prog-ptr + 32 END-PERFORM +>> Warning: Invalid syntax + +run_fundamental.at-1956-prog.cob:33.7-33.16: + 30 PERFORM 500000 TIMES + 31 CALL prog-ptr + 32 END-PERFORM + 33 > >> END-IF +---- ^^^^^^^^^ + 34 . + 35 END PROGRAM prog. +>> Error: Invalid syntax + +run_fundamental.at-1956-prog.cob:60.50: + 57 + 58 DATA DIVISION. + 59 WORKING-STORAGE SECTION. + 60 > 77 self-ptr USAGE PROGRAM-POINTER VALUE NULL. +---- ^ + 61 01 x PIC 9 VALUE 1. + 62 +>> Hint: Missing + +run_fundamental.at-1956-prog.cob:60.51-60.55: + 57 + 58 DATA DIVISION. + 59 WORKING-STORAGE SECTION. + 60 > 77 self-ptr USAGE PROGRAM-POINTER VALUE NULL. +---- ^^^^ + 61 01 x PIC 9 VALUE 1. + 62 +>> Error: Invalid syntax + +run_fundamental.at-1956-prog.cob:64.27-64.32: + 61 01 x PIC 9 VALUE 1. + 62 + 63 PROCEDURE DIVISION. + 64 > SET self-ptr TO ENTRY "cancel-test" +---- ^^^^^ + 65 IF self-ptr = NULL + 66 DISPLAY 'self-address not set' UPON SYSERR. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2060:0 +run_fundamental.at-2060-prog.cob:28.50: + 25 . + 26 DATA DIVISION. + 27 WORKING-STORAGE SECTION. + 28 > 77 prog-ptr USAGE PROGRAM-POINTER VALUE NULL. +---- ^ + 29 01 num PIC 9 VALUE 0. + 30 +>> Hint: Missing + +run_fundamental.at-2060-prog.cob:28.51-28.55: + 25 . + 26 DATA DIVISION. + 27 WORKING-STORAGE SECTION. + 28 > 77 prog-ptr USAGE PROGRAM-POINTER VALUE NULL. +---- ^^^^ + 29 01 num PIC 9 VALUE 0. + 30 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2119:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2170:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2219:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2271:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2293:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2329:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2330:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2371:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2372:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2397:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2429:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2453:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2477:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2501:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2526:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2549:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2571:0 +run_fundamental.at-2571-prog.cob:11.20-11.26: + 8 01 NORMAL PIC 9 VALUE 0. + 9 PROCEDURE DIVISION. + 10 DISPLAY NORMAL NO ADVANCING *> Intentionally no period or END-DISPLAY + 11 > STOP RUN NORMAL. +---- ^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2598:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2625:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2688:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2751:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2814:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2877:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:2940:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3003:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3066:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3102:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3338:0 +run_fundamental.at-3338-prog.cob:19.7-19.34: + 16 MAIN. + 17 * Test with DISPLAY on error + 18 PERFORM DO-CHECK. + 19 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 20 SET NO-DISP TO TRUE + 21 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-3338-prog.cob:23.7-23.16: + 20 SET NO-DISP TO TRUE + 21 * some performance checks on the way... + 22 PERFORM DO-CHECK 20000 TIMES. + 23 > >> END-IF +---- ^^^^^^^^^ + 24 GOBACK. + 25 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3642:0 +run_fundamental.at-3642-prog.cob:23.7-23.34: + 20 PROCEDURE DIVISION. + 21 * Test with DISPLAY on error + 22 PERFORM DO-CHECK. + 23 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 24 SET NO-DISP TO TRUE + 25 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-3642-prog.cob:27.7-27.16: + 24 SET NO-DISP TO TRUE + 25 * some performance checks on the way... + 26 PERFORM DO-CHECK 20000 TIMES. + 27 > >> END-IF +---- ^^^^^^^^^ + 28 GOBACK. + 29 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:3877:0 +run_fundamental.at-3877-prog.cob:18.7-18.34: + 15 PROCEDURE DIVISION. + 16 * Test with DISPLAY on error + 17 PERFORM DO-CHECK. + 18 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 19 SET NO-DISP TO TRUE + 20 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-3877-prog.cob:22.7-22.16: + 19 SET NO-DISP TO TRUE + 20 * some performance checks on the way... + 21 PERFORM DO-CHECK 20000 TIMES. + 22 > >> END-IF +---- ^^^^^^^^^ + 23 GOBACK. + 24 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4112:0 +run_fundamental.at-4112-prog.cob:18.7-18.34: + 15 PROCEDURE DIVISION. + 16 * Test with DISPLAY on error + 17 PERFORM DO-CHECK. + 18 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 19 SET NO-DISP TO TRUE + 20 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-4112-prog.cob:22.7-22.16: + 19 SET NO-DISP TO TRUE + 20 * some performance checks on the way... + 21 PERFORM DO-CHECK 20000 TIMES. + 22 > >> END-IF +---- ^^^^^^^^^ + 23 GOBACK. + 24 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4171:0 +run_fundamental.at-4171-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (char *p) + 7 { +>> Error: Unexpected indicator: `T' + +run_fundamental.at-4171-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (char *p) +---- ^ + 7 { + 8 printf ("%c%c", p[0], p[1]); +>> Error: Unexpected indicator: `c' + +run_fundamental.at-4171-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (char *p) + 7 { + 8 > printf ("%c%c", p[0], p[1]); +---- ^ + 9 return 0; + 10 } +>> Error: Unexpected indicator: `t' + +run_fundamental.at-4171-dump.c:9.6-9.7: + 6 dump (char *p) + 7 { + 8 printf ("%c%c", p[0], p[1]); + 9 > return 0; +---- ^ + 10 } +>> Error: Unexpected indicator: `r' + +run_fundamental.at-4171-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (char *p) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4172:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4462:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4508:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4560:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4608:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4648:0 +run_fundamental.at-4648-prog.cob:12.7-12.11: + 9 05 misalign-1 PIC X. + 10 05 ptr POINTER, SYNC. + 11 05 ptr-num REDEFINES ptr, + 12 > >>IF P64 SET +---- ^^^^ + 13 USAGE BINARY-DOUBLE UNSIGNED. + 14 >>ELSE +>> Error: Invalid syntax + +run_fundamental.at-4648-prog.cob:14.7-14.13: + 11 05 ptr-num REDEFINES ptr, + 12 >>IF P64 SET + 13 USAGE BINARY-DOUBLE UNSIGNED. + 14 > >>ELSE +---- ^^^^^^ + 15 USAGE BINARY-LONG UNSIGNED. + 16 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-4648-prog.cob:16.7-16.15: + 13 USAGE BINARY-DOUBLE UNSIGNED. + 14 >>ELSE + 15 USAGE BINARY-LONG UNSIGNED. + 16 > >>END-IF +---- ^^^^^^^^ + 17 05 misalign-2 PIC X. + 18 +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-4648-prog.cob:15.40-15.45: + 12 >>IF P64 SET + 13 USAGE BINARY-DOUBLE UNSIGNED. + 14 >>ELSE + 15 > USAGE BINARY-LONG UNSIGNED. +---- ^^^^^ + 16 >>END-IF + 17 05 misalign-2 PIC X. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4745:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4774:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4802:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4828:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4861:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:4982:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5018:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5040:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5063:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5089:0 +run_fundamental.at-5089-prog.cob:12.36: + 9 PROCEDURE DIVISION. + 10 D DISPLAY "KO" NO ADVANCING UPON STDOUT + 11 D END-DISPLAY. + 12 > DISPLAY "OK" NO ADVANCING UPON STDOUT +---- ^ + 13 END-DISPLAY. + 14 STOP RUN. +>> Hint: Missing . + +run_fundamental.at-5089-prog.cob:12.37-12.41: + 9 PROCEDURE DIVISION. + 10 D DISPLAY "KO" NO ADVANCING UPON STDOUT + 11 D END-DISPLAY. + 12 > DISPLAY "OK" NO ADVANCING UPON STDOUT +---- ^^^^ + 13 END-DISPLAY. + 14 STOP RUN. +>> Warning: Invalid syntax + +run_fundamental.at-5089-prog.cob:13.11-13.22: + 10 D DISPLAY "KO" NO ADVANCING UPON STDOUT + 11 D END-DISPLAY. + 12 DISPLAY "OK" NO ADVANCING UPON STDOUT + 13 > END-DISPLAY. +---- ^^^^^^^^^^^ + 14 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5112:0 +run_fundamental.at-5112-prog.cob:9.6-9.38: + 6 PROCEDURE DIVISION. + 7 DISPLAY "OK" NO ADVANCING + 8 END-DISPLAY. + 9 > >>D DISPLAY "KO" NO ADVANCING +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 >>D END-DISPLAY. + 11 STOP RUN. +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-5112-prog.cob:10.6-10.25: + 7 DISPLAY "OK" NO ADVANCING + 8 END-DISPLAY. + 9 >>D DISPLAY "KO" NO ADVANCING + 10 > >>D END-DISPLAY. +---- ^^^^^^^^^^^^^^^^^^^ + 11 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5135:0 +run_fundamental.at-5135-prog.cob:9.6-9.38: + 6 PROCEDURE DIVISION. + 7 DISPLAY "OK" NO ADVANCING + 8 END-DISPLAY. + 9 > >>D DISPLAY "KO" NO ADVANCING +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 >>D END-DISPLAY. + 11 STOP RUN. +>> Error: Malformed or unknown compiler directive + +run_fundamental.at-5135-prog.cob:10.6-10.25: + 7 DISPLAY "OK" NO ADVANCING + 8 END-DISPLAY. + 9 >>D DISPLAY "KO" NO ADVANCING + 10 > >>D END-DISPLAY. +---- ^^^^^^^^^^^^^^^^^^^ + 11 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5172:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5217:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5262:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5313:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5363:0 +run_fundamental.at-5363-prog.cob:15.14: + 12 DISPLAY DEBUG-ITEM "|" END-DISPLAY. + 13 END DECLARATIVES. + 14 FIRST-PAR. + 15 > SET ENVIRONMENT "COB_SET_DEBUG" TO "false" +---- ^ + 16 DISPLAY "OK1" END-DISPLAY. + 17 GO TO SECOND-PAR. +>> Hint: Missing rnell_rev___anonymous_88_ + +run_fundamental.at-5363-prog.cob:15.15-15.26: + 12 DISPLAY DEBUG-ITEM "|" END-DISPLAY. + 13 END DECLARATIVES. + 14 FIRST-PAR. + 15 > SET ENVIRONMENT "COB_SET_DEBUG" TO "false" +---- ^^^^^^^^^^^ + 16 DISPLAY "OK1" END-DISPLAY. + 17 GO TO SECOND-PAR. +>> Error: Invalid syntax + +run_fundamental.at-5363-prog.cob:24.14: + 21 DISPLAY "OK3" END-DISPLAY. + 22 PERFORM FIRST-PAR THRU SECOND-PAR. + 23 DISPLAY "OK4" END-DISPLAY. + 24 > SET ENVIRONMENT "COB_SET_DEBUG" TO "Y" +---- ^ + 25 PERFORM SECOND-PAR. + 26 DISPLAY "OK5" END-DISPLAY. +>> Hint: Missing rnell_rev___anonymous_88_ + +run_fundamental.at-5363-prog.cob:24.15-24.26: + 21 DISPLAY "OK3" END-DISPLAY. + 22 PERFORM FIRST-PAR THRU SECOND-PAR. + 23 DISPLAY "OK4" END-DISPLAY. + 24 > SET ENVIRONMENT "COB_SET_DEBUG" TO "Y" +---- ^^^^^^^^^^^ + 25 PERFORM SECOND-PAR. + 26 DISPLAY "OK5" END-DISPLAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5426:0 +run_fundamental.at-5426-prog.cob:30.11-30.22: + 27 PERFORM VARYING MY-DATA-FIELD-1 FROM 1 BY 1 + 28 UNTIL MY-DATA-FIELD-1 > MY-DATA-FIELD-2 + 29 *> empty by design + 30 > END-PERFORM. +---- ^^^^^^^^^^^ + 31 END-PAR. + 32 MOVE "99" TO MY-DATA-FIELD-B. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5486:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5538:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5576:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5623:0 +run_fundamental.at-5623-prog.cob:10.43: + 7 DATA DIVISION. + 8 WORKING-STORAGE SECTION. + 9 01 DATA-FIELD PIC X(40) VALUE "ABCD" BASED. + 10 > 77 PTR USAGE POINTER VALUE NULL. +---- ^ + 11 01 DATA-FIELD3 PIC X(13) VALUE "42" BASED. + 12 LINKAGE SECTION. +>> Hint: Missing + +run_fundamental.at-5623-prog.cob:10.44-10.48: + 7 DATA DIVISION. + 8 WORKING-STORAGE SECTION. + 9 01 DATA-FIELD PIC X(40) VALUE "ABCD" BASED. + 10 > 77 PTR USAGE POINTER VALUE NULL. +---- ^^^^ + 11 01 DATA-FIELD3 PIC X(13) VALUE "42" BASED. + 12 LINKAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:5670:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6013:0 +run_fundamental.at-6013-prog.cob:24.7-24.12: + 21 + 22 *> Test with DISPLAY on error + 23 PERFORM DO-CHECK + 24 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^ + 25 SET NO-DISP TO TRUE + 26 *> minimal side-test for performance comparisons +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:24.23: + 21 + 22 *> Test with DISPLAY on error + 23 PERFORM DO-CHECK + 24 > >> IF CHECK-PERF IS DEFINED +---- ^ + 25 SET NO-DISP TO TRUE + 26 *> minimal side-test for performance comparisons +>> Hint: Missing TIMES . + +run_fundamental.at-6013-prog.cob:24.24-24.26: + 21 + 22 *> Test with DISPLAY on error + 23 PERFORM DO-CHECK + 24 > >> IF CHECK-PERF IS DEFINED +---- ^^ + 25 SET NO-DISP TO TRUE + 26 *> minimal side-test for performance comparisons +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:24.34: + 21 + 22 *> Test with DISPLAY on error + 23 PERFORM DO-CHECK + 24 > >> IF CHECK-PERF IS DEFINED +---- ^ + 25 SET NO-DISP TO TRUE + 26 *> minimal side-test for performance comparisons +>> Hint: Missing . + +run_fundamental.at-6013-prog.cob:25.11-25.14: + 22 *> Test with DISPLAY on error + 23 PERFORM DO-CHECK + 24 >> IF CHECK-PERF IS DEFINED + 25 > SET NO-DISP TO TRUE +---- ^^^ + 26 *> minimal side-test for performance comparisons + 27 PERFORM DO-CHECK 20000 TIMES +>> Warning: Invalid syntax + +run_fundamental.at-6013-prog.cob:28.7-28.16: + 25 SET NO-DISP TO TRUE + 26 *> minimal side-test for performance comparisons + 27 PERFORM DO-CHECK 20000 TIMES + 28 > >> END-IF +---- ^^^^^^^^^ + 29 GOBACK. + 30 +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:76.29-76.33: + 73 ELSE DISPLAY '! LOW-VALUE <= "X"'. + 74 IF LOW-VALUE >= FLDX DISPLAY ' LOW-VALUE >= "X"!'. + 75 + 76 > IF FLDX > x"00" CONTINUE +---- ^^^^ + 77 ELSE DISPLAY '! "X" > x"00"'. + 78 IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:78.29-78.33: + 75 + 76 IF FLDX > x"00" CONTINUE + 77 ELSE DISPLAY '! "X" > x"00"'. + 78 > IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. +---- ^^^^ + 79 IF FLDX >= x"00" CONTINUE + 80 ELSE DISPLAY '! "X" >= x"00"'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:79.29-79.33: + 76 IF FLDX > x"00" CONTINUE + 77 ELSE DISPLAY '! "X" > x"00"'. + 78 IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. + 79 > IF FLDX >= x"00" CONTINUE +---- ^^^^ + 80 ELSE DISPLAY '! "X" >= x"00"'. + 81 IF FLDX <= x"00" DISPLAY ' "X" <= x"00"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:81.29-81.33: + 78 IF FLDX < x"00" DISPLAY ' "X" < x"00"!'. + 79 IF FLDX >= x"00" CONTINUE + 80 ELSE DISPLAY '! "X" >= x"00"'. + 81 > IF FLDX <= x"00" DISPLAY ' "X" <= x"00"!'. +---- ^^^^ + 82 + 83 IF x"00" < FLDX CONTINUE +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:83.15-83.19: + 80 ELSE DISPLAY '! "X" >= x"00"'. + 81 IF FLDX <= x"00" DISPLAY ' "X" <= x"00"!'. + 82 + 83 > IF x"00" < FLDX CONTINUE +---- ^^^^ + 84 ELSE DISPLAY '! x"00" < "X"'. + 85 IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:85.15-85.19: + 82 + 83 IF x"00" < FLDX CONTINUE + 84 ELSE DISPLAY '! x"00" < "X"'. + 85 > IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. +---- ^^^^ + 86 IF x"00" <= FLDX CONTINUE + 87 ELSE DISPLAY '! x"00" <= "X"'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:86.15-86.19: + 83 IF x"00" < FLDX CONTINUE + 84 ELSE DISPLAY '! x"00" < "X"'. + 85 IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. + 86 > IF x"00" <= FLDX CONTINUE +---- ^^^^ + 87 ELSE DISPLAY '! x"00" <= "X"'. + 88 IF x"00" >= FLDX DISPLAY ' x"00" >= "X"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:88.15-88.19: + 85 IF x"00" > FLDX DISPLAY ' x"00" > "X"!'. + 86 IF x"00" <= FLDX CONTINUE + 87 ELSE DISPLAY '! x"00" <= "X"'. + 88 > IF x"00" >= FLDX DISPLAY ' x"00" >= "X"!'. +---- ^^^^ + 89 + 90 +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:105.29-105.33: + 102 ELSE DISPLAY '! HIGH-VALUE >= "X"'. + 103 IF HIGH-VALUE <= FLDX DISPLAY ' HIGH-VALUE <= "X"!'. + 104 + 105 > IF FLDX < x"FF" CONTINUE +---- ^^^^ + 106 ELSE DISPLAY '! "X" < x"FF"'. + 107 IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:107.29-107.33: + 104 + 105 IF FLDX < x"FF" CONTINUE + 106 ELSE DISPLAY '! "X" < x"FF"'. + 107 > IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. +---- ^^^^ + 108 IF FLDX <= x"FF" CONTINUE + 109 ELSE DISPLAY '! "X" <= x"FF"'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:108.29-108.33: + 105 IF FLDX < x"FF" CONTINUE + 106 ELSE DISPLAY '! "X" < x"FF"'. + 107 IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. + 108 > IF FLDX <= x"FF" CONTINUE +---- ^^^^ + 109 ELSE DISPLAY '! "X" <= x"FF"'. + 110 IF FLDX >= x"FF" DISPLAY ' "X" >= x"FF"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:110.29-110.33: + 107 IF FLDX > x"FF" DISPLAY ' "X" > x"FF"!'. + 108 IF FLDX <= x"FF" CONTINUE + 109 ELSE DISPLAY '! "X" <= x"FF"'. + 110 > IF FLDX >= x"FF" DISPLAY ' "X" >= x"FF"!'. +---- ^^^^ + 111 + 112 IF x"FF" > FLDX CONTINUE +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:112.15-112.19: + 109 ELSE DISPLAY '! "X" <= x"FF"'. + 110 IF FLDX >= x"FF" DISPLAY ' "X" >= x"FF"!'. + 111 + 112 > IF x"FF" > FLDX CONTINUE +---- ^^^^ + 113 ELSE DISPLAY '! x"FF" > "X"'. + 114 IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:114.15-114.19: + 111 + 112 IF x"FF" > FLDX CONTINUE + 113 ELSE DISPLAY '! x"FF" > "X"'. + 114 > IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. +---- ^^^^ + 115 IF x"FF" >= FLDX CONTINUE + 116 ELSE DISPLAY '! x"FF" >= "X"'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:115.15-115.19: + 112 IF x"FF" > FLDX CONTINUE + 113 ELSE DISPLAY '! x"FF" > "X"'. + 114 IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. + 115 > IF x"FF" >= FLDX CONTINUE +---- ^^^^ + 116 ELSE DISPLAY '! x"FF" >= "X"'. + 117 IF x"FF" <= FLDX DISPLAY ' x"FF" <= "X"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:117.15-117.19: + 114 IF x"FF" < FLDX DISPLAY ' x"FF" < "X"!'. + 115 IF x"FF" >= FLDX CONTINUE + 116 ELSE DISPLAY '! x"FF" >= "X"'. + 117 > IF x"FF" <= FLDX DISPLAY ' x"FF" <= "X"!'. +---- ^^^^ + 118 + 119 +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:192.29-192.33: + 189 ELSE DISPLAY '! LOW-VALUE <= "X"'. + 190 IF LOW-VALUE >= FLDX32K DISPLAY ' LOW-VALUE >= "X"!'. + 191 + 192 > IF FLDX32K > x"00" CONTINUE +---- ^^^^ + 193 ELSE DISPLAY '! "X " > x"00"'. + 194 IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:194.29-194.33: + 191 + 192 IF FLDX32K > x"00" CONTINUE + 193 ELSE DISPLAY '! "X " > x"00"'. + 194 > IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. +---- ^^^^ + 195 IF FLDX32K >= x"00" CONTINUE + 196 ELSE DISPLAY '! "X " >= x"00"'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:195.29-195.33: + 192 IF FLDX32K > x"00" CONTINUE + 193 ELSE DISPLAY '! "X " > x"00"'. + 194 IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. + 195 > IF FLDX32K >= x"00" CONTINUE +---- ^^^^ + 196 ELSE DISPLAY '! "X " >= x"00"'. + 197 IF FLDX32K <= x"00" DISPLAY ' "X " <= x"00"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:197.29-197.33: + 194 IF FLDX32K < x"00" DISPLAY ' "X " < x"00"!'. + 195 IF FLDX32K >= x"00" CONTINUE + 196 ELSE DISPLAY '! "X " >= x"00"'. + 197 > IF FLDX32K <= x"00" DISPLAY ' "X " <= x"00"!'. +---- ^^^^ + 198 + 199 IF x"00" < FLDX32K CONTINUE +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:199.15-199.19: + 196 ELSE DISPLAY '! "X " >= x"00"'. + 197 IF FLDX32K <= x"00" DISPLAY ' "X " <= x"00"!'. + 198 + 199 > IF x"00" < FLDX32K CONTINUE +---- ^^^^ + 200 ELSE DISPLAY '! x"00" < "X "'. + 201 IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:201.15-201.19: + 198 + 199 IF x"00" < FLDX32K CONTINUE + 200 ELSE DISPLAY '! x"00" < "X "'. + 201 > IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. +---- ^^^^ + 202 IF x"00" <= FLDX32K CONTINUE + 203 ELSE DISPLAY '! x"00" <= "X "'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:202.15-202.19: + 199 IF x"00" < FLDX32K CONTINUE + 200 ELSE DISPLAY '! x"00" < "X "'. + 201 IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. + 202 > IF x"00" <= FLDX32K CONTINUE +---- ^^^^ + 203 ELSE DISPLAY '! x"00" <= "X "'. + 204 IF x"00" >= FLDX32K DISPLAY ' x"00" >= "X "!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:204.15-204.19: + 201 IF x"00" > FLDX32K DISPLAY ' x"00" > "X "!'. + 202 IF x"00" <= FLDX32K CONTINUE + 203 ELSE DISPLAY '! x"00" <= "X "'. + 204 > IF x"00" >= FLDX32K DISPLAY ' x"00" >= "X "!'. +---- ^^^^ + 205 + 206 +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:221.29-221.33: + 218 ELSE DISPLAY '! HIGH-VALUE >= "X "'. + 219 IF HIGH-VALUE <= FLDX32K DISPLAY ' HIGH-VALUE <= "X "!'. + 220 + 221 > IF FLDX32K < x"FF" CONTINUE +---- ^^^^ + 222 ELSE DISPLAY '! "X " < x"FF"'. + 223 IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:223.29-223.33: + 220 + 221 IF FLDX32K < x"FF" CONTINUE + 222 ELSE DISPLAY '! "X " < x"FF"'. + 223 > IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. +---- ^^^^ + 224 IF FLDX32K <= x"FF" CONTINUE + 225 ELSE DISPLAY '! "X " <= x"FF"'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:224.29-224.33: + 221 IF FLDX32K < x"FF" CONTINUE + 222 ELSE DISPLAY '! "X " < x"FF"'. + 223 IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. + 224 > IF FLDX32K <= x"FF" CONTINUE +---- ^^^^ + 225 ELSE DISPLAY '! "X " <= x"FF"'. + 226 IF FLDX32K >= x"FF" DISPLAY ' "X " >= x"FF"!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:226.29-226.33: + 223 IF FLDX32K > x"FF" DISPLAY ' "X " > x"FF"!'. + 224 IF FLDX32K <= x"FF" CONTINUE + 225 ELSE DISPLAY '! "X " <= x"FF"'. + 226 > IF FLDX32K >= x"FF" DISPLAY ' "X " >= x"FF"!'. +---- ^^^^ + 227 + 228 IF x"FF" > FLDX32K CONTINUE +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:228.15-228.19: + 225 ELSE DISPLAY '! "X " <= x"FF"'. + 226 IF FLDX32K >= x"FF" DISPLAY ' "X " >= x"FF"!'. + 227 + 228 > IF x"FF" > FLDX32K CONTINUE +---- ^^^^ + 229 ELSE DISPLAY '! x"FF" > "X "'. + 230 IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:230.15-230.19: + 227 + 228 IF x"FF" > FLDX32K CONTINUE + 229 ELSE DISPLAY '! x"FF" > "X "'. + 230 > IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. +---- ^^^^ + 231 IF x"FF" >= FLDX32K CONTINUE + 232 ELSE DISPLAY '! x"FF" >= "X "'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:231.15-231.19: + 228 IF x"FF" > FLDX32K CONTINUE + 229 ELSE DISPLAY '! x"FF" > "X "'. + 230 IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. + 231 > IF x"FF" >= FLDX32K CONTINUE +---- ^^^^ + 232 ELSE DISPLAY '! x"FF" >= "X "'. + 233 IF x"FF" <= FLDX32K DISPLAY ' x"FF" <= "X "!'. +>> Error: Invalid syntax + +run_fundamental.at-6013-prog.cob:233.15-233.19: + 230 IF x"FF" < FLDX32K DISPLAY ' x"FF" < "X "!'. + 231 IF x"FF" >= FLDX32K CONTINUE + 232 ELSE DISPLAY '! x"FF" >= "X "'. + 233 > IF x"FF" <= FLDX32K DISPLAY ' x"FF" <= "X "!'. +---- ^^^^ + 234 + 235 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6072:0 +run_fundamental.at-6072-prog.cob:22.7-22.12: + 19 + 20 *> Test with DISPLAY on error + 21 PERFORM DO-CHECK + 22 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^ + 23 SET NO-DISP TO TRUE + 24 *> minimal side-test for performance comparisons +>> Error: Invalid syntax + +run_fundamental.at-6072-prog.cob:22.23: + 19 + 20 *> Test with DISPLAY on error + 21 PERFORM DO-CHECK + 22 > >> IF CHECK-PERF IS DEFINED +---- ^ + 23 SET NO-DISP TO TRUE + 24 *> minimal side-test for performance comparisons +>> Hint: Missing TIMES . + +run_fundamental.at-6072-prog.cob:22.24-22.26: + 19 + 20 *> Test with DISPLAY on error + 21 PERFORM DO-CHECK + 22 > >> IF CHECK-PERF IS DEFINED +---- ^^ + 23 SET NO-DISP TO TRUE + 24 *> minimal side-test for performance comparisons +>> Error: Invalid syntax + +run_fundamental.at-6072-prog.cob:22.34: + 19 + 20 *> Test with DISPLAY on error + 21 PERFORM DO-CHECK + 22 > >> IF CHECK-PERF IS DEFINED +---- ^ + 23 SET NO-DISP TO TRUE + 24 *> minimal side-test for performance comparisons +>> Hint: Missing . + +run_fundamental.at-6072-prog.cob:23.11-23.14: + 20 *> Test with DISPLAY on error + 21 PERFORM DO-CHECK + 22 >> IF CHECK-PERF IS DEFINED + 23 > SET NO-DISP TO TRUE +---- ^^^ + 24 *> minimal side-test for performance comparisons + 25 PERFORM DO-CHECK 20000 TIMES +>> Warning: Invalid syntax + +run_fundamental.at-6072-prog.cob:26.7-26.16: + 23 SET NO-DISP TO TRUE + 24 *> minimal side-test for performance comparisons + 25 PERFORM DO-CHECK 20000 TIMES + 26 > >> END-IF +---- ^^^^^^^^^ + 27 GOBACK. + 28 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6161:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6229:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6281:0 +run_fundamental.at-6281-callee.cob:8.28: + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 77 EXT-INT IS TYPEDEF BINARY-LONG EXTERNAL. + 8 > 77 SOMEEXT USAGE EXT-INT. +---- ^ + 9 + 10 PROCEDURE DIVISION. +>> Hint: Missing BINARY + +run_fundamental.at-6281-callee.cob:8.29-8.36: + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 77 EXT-INT IS TYPEDEF BINARY-LONG EXTERNAL. + 8 > 77 SOMEEXT USAGE EXT-INT. +---- ^^^^^^^ + 9 + 10 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6280:0 +run_fundamental.at-6280-caller.cob:12.28: + 9 *> should this be possible? + 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. + 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. + 12 > 77 SOMEVAR USAGE INT VALUE 10. +---- ^ + 13 77 SOMEVAL USAGE INT-VAL. + 14 77 SOMEEXT USAGE EXT-INT. +>> Hint: Missing BINARY + +run_fundamental.at-6280-caller.cob:12.29-12.32: + 9 *> should this be possible? + 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. + 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. + 12 > 77 SOMEVAR USAGE INT VALUE 10. +---- ^^^ + 13 77 SOMEVAL USAGE INT-VAL. + 14 77 SOMEEXT USAGE EXT-INT. +>> Error: Invalid syntax + +run_fundamental.at-6280-caller.cob:13.28: + 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. + 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. + 12 77 SOMEVAR USAGE INT VALUE 10. + 13 > 77 SOMEVAL USAGE INT-VAL. +---- ^ + 14 77 SOMEEXT USAGE EXT-INT. + 15 +>> Hint: Missing BINARY + +run_fundamental.at-6280-caller.cob:13.29-13.36: + 10 *>77 INT-VAL IS TYPEDEF USAGE INT VALUE 12. + 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. + 12 77 SOMEVAR USAGE INT VALUE 10. + 13 > 77 SOMEVAL USAGE INT-VAL. +---- ^^^^^^^ + 14 77 SOMEEXT USAGE EXT-INT. + 15 +>> Error: Invalid syntax + +run_fundamental.at-6280-caller.cob:14.28: + 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. + 12 77 SOMEVAR USAGE INT VALUE 10. + 13 77 SOMEVAL USAGE INT-VAL. + 14 > 77 SOMEEXT USAGE EXT-INT. +---- ^ + 15 + 16 PROCEDURE DIVISION. +>> Hint: Missing BINARY + +run_fundamental.at-6280-caller.cob:14.29-14.36: + 11 77 INT-VAL IS TYPEDEF BINARY-LONG VALUE 12. + 12 77 SOMEVAR USAGE INT VALUE 10. + 13 77 SOMEVAL USAGE INT-VAL. + 14 > 77 SOMEEXT USAGE EXT-INT. +---- ^^^^^^^ + 15 + 16 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6308:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6385:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6348:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6440:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6484:0 +run_fundamental.at-6484-prog.cob:13.26: + 10 PROCEDURE DIVISION. + 11 MAIN-PROGRAM SECTION. + 12 INIZIO. + 13 > IF VAR1 = (VAR2 AND VAR3 AND VAR4) +---- ^ + 14 DISPLAY "TRUE 1" + 15 END-IF +>> Hint: Missing ) + +run_fundamental.at-6484-prog.cob:13.27-13.30: + 10 PROCEDURE DIVISION. + 11 MAIN-PROGRAM SECTION. + 12 INIZIO. + 13 > IF VAR1 = (VAR2 AND VAR3 AND VAR4) +---- ^^^ + 14 DISPLAY "TRUE 1" + 15 END-IF +>> Error: Invalid syntax + +run_fundamental.at-6484-prog.cob:13.44-13.45: + 10 PROCEDURE DIVISION. + 11 MAIN-PROGRAM SECTION. + 12 INIZIO. + 13 > IF VAR1 = (VAR2 AND VAR3 AND VAR4) +---- ^ + 14 DISPLAY "TRUE 1" + 15 END-IF +>> Error: Invalid syntax + +run_fundamental.at-6484-prog.cob:16.30: + 13 IF VAR1 = (VAR2 AND VAR3 AND VAR4) + 14 DISPLAY "TRUE 1" + 15 END-IF + 16 > IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) +---- ^ + 17 DISPLAY "TRUE 2" + 18 END-IF +>> Hint: Missing ) + +run_fundamental.at-6484-prog.cob:16.31-16.34: + 13 IF VAR1 = (VAR2 AND VAR3 AND VAR4) + 14 DISPLAY "TRUE 1" + 15 END-IF + 16 > IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) +---- ^^^ + 17 DISPLAY "TRUE 2" + 18 END-IF +>> Error: Invalid syntax + +run_fundamental.at-6484-prog.cob:16.48-16.49: + 13 IF VAR1 = (VAR2 AND VAR3 AND VAR4) + 14 DISPLAY "TRUE 1" + 15 END-IF + 16 > IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) +---- ^ + 17 DISPLAY "TRUE 2" + 18 END-IF +>> Error: Invalid syntax + +run_fundamental.at-6484-prog.cob:19.30: + 16 IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) + 17 DISPLAY "TRUE 2" + 18 END-IF + 19 > IF VAR1 NOT > (VAR2 AND VAR3 AND VAR4) +---- ^ + 20 DISPLAY "TRUE 3" + 21 END-IF +>> Hint: Missing ) + +run_fundamental.at-6484-prog.cob:19.31-19.34: + 16 IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) + 17 DISPLAY "TRUE 2" + 18 END-IF + 19 > IF VAR1 NOT > (VAR2 AND VAR3 AND VAR4) +---- ^^^ + 20 DISPLAY "TRUE 3" + 21 END-IF +>> Error: Invalid syntax + +run_fundamental.at-6484-prog.cob:19.48-19.49: + 16 IF VAR1 NOT = (VAR2 AND VAR3 AND VAR4) + 17 DISPLAY "TRUE 2" + 18 END-IF + 19 > IF VAR1 NOT > (VAR2 AND VAR3 AND VAR4) +---- ^ + 20 DISPLAY "TRUE 3" + 21 END-IF +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6560:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6764:0 +run_fundamental.at-6764-prog.cob:174.16-174.22: + 171 CHECK-LENGTH. + 172 *>----------- + 173 *> + 174 > MOVE LENGTH OF P-PIC-1 TO W01-I . +---- ^^^^^^ + 175 IF W01-I NOT = 2 + 176 THEN +>> Error: Invalid syntax + +run_fundamental.at-6764-prog.cob:179.16-179.22: + 176 THEN + 177 DISPLAY 'Error 1 size <' W01-I '> !=2' . + 178 *> + 179 > MOVE LENGTH OF P-PIC-2 TO W01-I . +---- ^^^^^^ + 180 IF W01-I NOT = 2 + 181 THEN +>> Error: Invalid syntax + +run_fundamental.at-6764-prog.cob:184.16-184.22: + 181 THEN + 182 DISPLAY 'Error 2 size <' W01-I '> !=2' . + 183 *> + 184 > MOVE LENGTH OF P-PIC-3 TO W01-I . +---- ^^^^^^ + 185 IF W01-I NOT = 1 + 186 THEN +>> Error: Invalid syntax + +run_fundamental.at-6764-prog.cob:190.16-190.22: + 187 DISPLAY 'Error 3 size <' W01-I '> !=1' . + 188 *> + 189 + 190 > MOVE LENGTH OF P-PIC-4 TO W01-I . +---- ^^^^^^ + 191 IF W01-I NOT = 1 + 192 THEN +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6816:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6874:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6925:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:6977:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:7029:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:7158:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:7232:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:9015:0 +run_fundamental.at-9015-prog.cob:14.21: + 11 WORKING-STORAGE SECTION. + 12 + 13 01 ALL-SRC . + 14 > 05 FIELD-02 BINARY-C-LONG SIGNED . +---- ^ + 15 05 FIELD-03 BINARY-C-LONG UNSIGNED . + 16 05 FIELD-04 BINARY-CHAR SIGNED . +>> Hint: Missing RENAMES + +run_fundamental.at-9015-prog.cob:14.22-14.35: + 11 WORKING-STORAGE SECTION. + 12 + 13 01 ALL-SRC . + 14 > 05 FIELD-02 BINARY-C-LONG SIGNED . +---- ^^^^^^^^^^^^^ + 15 05 FIELD-03 BINARY-C-LONG UNSIGNED . + 16 05 FIELD-04 BINARY-CHAR SIGNED . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:15.21: + 12 + 13 01 ALL-SRC . + 14 05 FIELD-02 BINARY-C-LONG SIGNED . + 15 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . +---- ^ + 16 05 FIELD-04 BINARY-CHAR SIGNED . + 17 05 FIELD-05 BINARY-CHAR UNSIGNED . +>> Hint: Missing RENAMES + +run_fundamental.at-9015-prog.cob:15.22-15.35: + 12 + 13 01 ALL-SRC . + 14 05 FIELD-02 BINARY-C-LONG SIGNED . + 15 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . +---- ^^^^^^^^^^^^^ + 16 05 FIELD-04 BINARY-CHAR SIGNED . + 17 05 FIELD-05 BINARY-CHAR UNSIGNED . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:30.22-30.32: + 27 05 FIELD-15 FLOAT-DECIMAL-34 . + 28 05 FIELD-16 FLOAT-LONG . + 29 05 FIELD-17 FLOAT-SHORT . + 30 > 05 FIELD-18 SIGNED-INT . +---- ^^^^^^^^^^ + 31 05 FIELD-19 SIGNED-LONG . + 32 05 FIELD-20 SIGNED-SHORT . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:31.22-31.33: + 28 05 FIELD-16 FLOAT-LONG . + 29 05 FIELD-17 FLOAT-SHORT . + 30 05 FIELD-18 SIGNED-INT . + 31 > 05 FIELD-19 SIGNED-LONG . +---- ^^^^^^^^^^^ + 32 05 FIELD-20 SIGNED-SHORT . + 33 05 FIELD-21 UNSIGNED-INT . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:32.22-32.34: + 29 05 FIELD-17 FLOAT-SHORT . + 30 05 FIELD-18 SIGNED-INT . + 31 05 FIELD-19 SIGNED-LONG . + 32 > 05 FIELD-20 SIGNED-SHORT . +---- ^^^^^^^^^^^^ + 33 05 FIELD-21 UNSIGNED-INT . + 34 05 FIELD-22 UNSIGNED-LONG . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:33.22-33.34: + 30 05 FIELD-18 SIGNED-INT . + 31 05 FIELD-19 SIGNED-LONG . + 32 05 FIELD-20 SIGNED-SHORT . + 33 > 05 FIELD-21 UNSIGNED-INT . +---- ^^^^^^^^^^^^ + 34 05 FIELD-22 UNSIGNED-LONG . + 35 05 FIELD-23 UNSIGNED-SHORT . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:34.22-34.35: + 31 05 FIELD-19 SIGNED-LONG . + 32 05 FIELD-20 SIGNED-SHORT . + 33 05 FIELD-21 UNSIGNED-INT . + 34 > 05 FIELD-22 UNSIGNED-LONG . +---- ^^^^^^^^^^^^^ + 35 05 FIELD-23 UNSIGNED-SHORT . + 36 05 FIELD-24 COMP-1 . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:35.22-35.36: + 32 05 FIELD-20 SIGNED-SHORT . + 33 05 FIELD-21 UNSIGNED-INT . + 34 05 FIELD-22 UNSIGNED-LONG . + 35 > 05 FIELD-23 UNSIGNED-SHORT . +---- ^^^^^^^^^^^^^^ + 36 05 FIELD-24 COMP-1 . + 37 05 FIELD-25 COMP-2 . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:50.21: + 47 01 EXPTD-RESULT PIC 9(09) . + 48 *> + 49 01 ALL-DST . + 50 > 05 FIELD-02 BINARY-C-LONG SIGNED . +---- ^ + 51 05 FIELD-03 BINARY-C-LONG UNSIGNED . + 52 05 FIELD-04 BINARY-CHAR SIGNED . +>> Hint: Missing RENAMES + +run_fundamental.at-9015-prog.cob:50.22-50.35: + 47 01 EXPTD-RESULT PIC 9(09) . + 48 *> + 49 01 ALL-DST . + 50 > 05 FIELD-02 BINARY-C-LONG SIGNED . +---- ^^^^^^^^^^^^^ + 51 05 FIELD-03 BINARY-C-LONG UNSIGNED . + 52 05 FIELD-04 BINARY-CHAR SIGNED . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:51.21: + 48 *> + 49 01 ALL-DST . + 50 05 FIELD-02 BINARY-C-LONG SIGNED . + 51 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . +---- ^ + 52 05 FIELD-04 BINARY-CHAR SIGNED . + 53 05 FIELD-05 BINARY-CHAR UNSIGNED . +>> Hint: Missing RENAMES + +run_fundamental.at-9015-prog.cob:51.22-51.35: + 48 *> + 49 01 ALL-DST . + 50 05 FIELD-02 BINARY-C-LONG SIGNED . + 51 > 05 FIELD-03 BINARY-C-LONG UNSIGNED . +---- ^^^^^^^^^^^^^ + 52 05 FIELD-04 BINARY-CHAR SIGNED . + 53 05 FIELD-05 BINARY-CHAR UNSIGNED . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:66.22-66.32: + 63 05 FIELD-15 FLOAT-DECIMAL-34 . + 64 05 FIELD-16 FLOAT-LONG . + 65 05 FIELD-17 FLOAT-SHORT . + 66 > 05 FIELD-18 SIGNED-INT . +---- ^^^^^^^^^^ + 67 05 FIELD-19 SIGNED-LONG . + 68 05 FIELD-20 SIGNED-SHORT . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:67.22-67.33: + 64 05 FIELD-16 FLOAT-LONG . + 65 05 FIELD-17 FLOAT-SHORT . + 66 05 FIELD-18 SIGNED-INT . + 67 > 05 FIELD-19 SIGNED-LONG . +---- ^^^^^^^^^^^ + 68 05 FIELD-20 SIGNED-SHORT . + 69 05 FIELD-21 UNSIGNED-INT . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:68.22-68.34: + 65 05 FIELD-17 FLOAT-SHORT . + 66 05 FIELD-18 SIGNED-INT . + 67 05 FIELD-19 SIGNED-LONG . + 68 > 05 FIELD-20 SIGNED-SHORT . +---- ^^^^^^^^^^^^ + 69 05 FIELD-21 UNSIGNED-INT . + 70 05 FIELD-22 UNSIGNED-LONG . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:69.22-69.34: + 66 05 FIELD-18 SIGNED-INT . + 67 05 FIELD-19 SIGNED-LONG . + 68 05 FIELD-20 SIGNED-SHORT . + 69 > 05 FIELD-21 UNSIGNED-INT . +---- ^^^^^^^^^^^^ + 70 05 FIELD-22 UNSIGNED-LONG . + 71 05 FIELD-23 UNSIGNED-SHORT . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:70.22-70.35: + 67 05 FIELD-19 SIGNED-LONG . + 68 05 FIELD-20 SIGNED-SHORT . + 69 05 FIELD-21 UNSIGNED-INT . + 70 > 05 FIELD-22 UNSIGNED-LONG . +---- ^^^^^^^^^^^^^ + 71 05 FIELD-23 UNSIGNED-SHORT . + 72 05 FIELD-24 COMP-1 . +>> Error: Invalid syntax + +run_fundamental.at-9015-prog.cob:71.22-71.36: + 68 05 FIELD-20 SIGNED-SHORT . + 69 05 FIELD-21 UNSIGNED-INT . + 70 05 FIELD-22 UNSIGNED-LONG . + 71 > 05 FIELD-23 UNSIGNED-SHORT . +---- ^^^^^^^^^^^^^^ + 72 05 FIELD-24 COMP-1 . + 73 05 FIELD-25 COMP-2 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:9060:0 +Considering: import/gnucobol/tests/testsuite.src/run_fundamental.at:9123:0 +run_fundamental.at-9123-prog.cob:10.7-10.12: + 7 SPECIAL-NAMES . + 8 CLASS HEXA IS '0' THRU '9' + 9 'A' THRU 'F' . + 10 > CLASS ODD IS '1' '3' '5' '7' '9' . +---- ^^^^^ + 11 + 12 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +>> Error: Invalid syntax + diff --git a/test/output-tests/run_initialize.expected b/test/output-tests/run_initialize.expected new file mode 100644 index 000000000..95a1ce64c --- /dev/null +++ b/test/output-tests/run_initialize.expected @@ -0,0 +1,115 @@ +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:51:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:84:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:152:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:183:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:211:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:243:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:292:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:405:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:407:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:436:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:503:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:554:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:590:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:647:0 +Considering: import/gnucobol/tests/testsuite.src/run_initialize.at:777:0 +run_initialize.at-777-prog.cob:41.54: + 38 05 MONTH-IN-YEAR OCCURS 13 TIMES PICTURE X(3) + 39 VALUES "jan" "feb" "mar" "apr" + 40 "may" "jun" "jul" "aug" + 41 > "sep" "oct" "nov" "dec". +---- ^ + 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY + 43 VALUES 31 28 31 30 31 30 31 31 30 31 30 31. +>> Hint: Missing FROM + +run_initialize.at-777-prog.cob:41.54-41.55: + 38 05 MONTH-IN-YEAR OCCURS 13 TIMES PICTURE X(3) + 39 VALUES "jan" "feb" "mar" "apr" + 40 "may" "jun" "jul" "aug" + 41 > "sep" "oct" "nov" "dec". +---- ^ + 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY + 43 VALUES 31 28 31 30 31 30 31 31 30 31 30 31. +>> Error: Invalid syntax + +run_initialize.at-777-prog.cob:43.67: + 40 "may" "jun" "jul" "aug" + 41 "sep" "oct" "nov" "dec". + 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY + 43 > VALUES 31 28 31 30 31 30 31 31 30 31 30 31. +---- ^ + 44 05 DAYS-MONTHS OCCURS 2 TIMES. + 45 06 DAYX-MONTHX OCCURS 4 TIMES. +>> Hint: Missing FROM + +run_initialize.at-777-prog.cob:43.67-43.68: + 40 "may" "jun" "jul" "aug" + 41 "sep" "oct" "nov" "dec". + 42 05 DAYS-IN-MONTH OCCURS 13 TIMES PICTURE 9(2) BINARY + 43 > VALUES 31 28 31 30 31 30 31 31 30 31 30 31. +---- ^ + 44 05 DAYS-MONTHS OCCURS 2 TIMES. + 45 06 DAYX-MONTHX OCCURS 4 TIMES. +>> Error: Invalid syntax + +run_initialize.at-777-prog.cob:54.54: + 51 "Sep" "Oct" "Nov" "Dec" + 52 "JAN" "FEB" "MAR" "APR" + 53 "MAY" "JUN" "JUL" "AUG" + 54 > "SEP" "OCT" "NOV" "DEC". +---- ^ + 55 10 SEPX PICTURE XX VALUE ", ". + 56 10 DAYS PICTURE 99 +>> Hint: Missing FROM + +run_initialize.at-777-prog.cob:54.54-54.55: + 51 "Sep" "Oct" "Nov" "Dec" + 52 "JAN" "FEB" "MAR" "APR" + 53 "MAY" "JUN" "JUL" "AUG" + 54 > "SEP" "OCT" "NOV" "DEC". +---- ^ + 55 10 SEPX PICTURE XX VALUE ", ". + 56 10 DAYS PICTURE 99 +>> Error: Invalid syntax + +run_initialize.at-777-prog.cob:58.66: + 55 10 SEPX PICTURE XX VALUE ", ". + 56 10 DAYS PICTURE 99 + 57 VALUES 31 28 31 30 31 30 31 31 30 31 30 31 + 58 > 91 28 91 90 91 90 91 91 90 91 90 91. +---- ^ + 59 10 PER PICTURE X VALUE ".". + 60 07 FLR PICTURE X(4) VALUES " " " " " " " " +>> Hint: Missing FROM + +run_initialize.at-777-prog.cob:58.66-58.67: + 55 10 SEPX PICTURE XX VALUE ", ". + 56 10 DAYS PICTURE 99 + 57 VALUES 31 28 31 30 31 30 31 31 30 31 30 31 + 58 > 91 28 91 90 91 90 91 91 90 91 90 91. +---- ^ + 59 10 PER PICTURE X VALUE ".". + 60 07 FLR PICTURE X(4) VALUES " " " " " " " " +>> Error: Invalid syntax + +run_initialize.at-777-prog.cob:61.69: + 58 91 28 91 90 91 90 91 91 90 91 90 91. + 59 10 PER PICTURE X VALUE ".". + 60 07 FLR PICTURE X(4) VALUES " " " " " " " " + 61 > " " " " " " " <*>". +---- ^ + 62 + 63 PROCEDURE DIVISION. +>> Hint: Missing FROM + +run_initialize.at-777-prog.cob:61.69-61.70: + 58 91 28 91 90 91 90 91 91 90 91 90 91. + 59 10 PER PICTURE X VALUE ".". + 60 07 FLR PICTURE X(4) VALUES " " " " " " " " + 61 > " " " " " " " <*>". +---- ^ + 62 + 63 PROCEDURE DIVISION. +>> Error: Invalid syntax + diff --git a/test/output-tests/run_misc.expected b/test/output-tests/run_misc.expected new file mode 100644 index 000000000..fd1486f87 --- /dev/null +++ b/test/output-tests/run_misc.expected @@ -0,0 +1,10162 @@ +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:35:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:64:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:92:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:120:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:148:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:181:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:214:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:258:0 +run_misc.at-258-prog.cob:8.59: + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 *> note the space after EUR / before ct. + 8 > CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", +---- ^ + 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", + 10 Currency Sign is "$US" with Picture Symbol "$". +>> Hint: Missing SYMBOL + +run_misc.at-258-prog.cob:8.60-8.63: + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 *> note the space after EUR / before ct. + 8 > CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", +---- ^^^ + 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", + 10 Currency Sign is "$US" with Picture Symbol "$". +>> Error: Invalid syntax + +run_misc.at-258-prog.cob:9.59: + 6 SPECIAL-NAMES. + 7 *> note the space after EUR / before ct. + 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", + 9 > CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", +---- ^ + 10 Currency Sign is "$US" with Picture Symbol "$". + 11 +>> Hint: Missing SYMBOL + +run_misc.at-258-prog.cob:9.60-9.63: + 6 SPECIAL-NAMES. + 7 *> note the space after EUR / before ct. + 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", + 9 > CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", +---- ^^^ + 10 Currency Sign is "$US" with Picture Symbol "$". + 11 +>> Error: Invalid syntax + +run_misc.at-258-prog.cob:10.53: + 7 *> note the space after EUR / before ct. + 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", + 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", + 10 > Currency Sign is "$US" with Picture Symbol "$". +---- ^ + 11 + 12 DATA DIVISION. +>> Hint: Missing SYMBOL + +run_misc.at-258-prog.cob:10.54-10.57: + 7 *> note the space after EUR / before ct. + 8 CURRENCY SIGN IS "EUR " WITH PICTURE SYMBOL "U", + 9 CURRENCY SIGN IS " ct (EUR)" WITH PICTURE SYMBOL "c", + 10 > Currency Sign is "$US" with Picture Symbol "$". +---- ^^^ + 11 + 12 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:297:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:298:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:341:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:340:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:342:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:394:0 +run_misc.at-394-callee.cob:15.42: + 12 01 LCL-X. + 13 05 LCL-VAR PIC 9 VALUE 0 OCCURS 1 INDEXED BY LCL-IDX. + 14 PROCEDURE DIVISION. + 15 > DISPLAY SPACE WITH NO ADVANCING UPON SYSOUT. +---- ^ + 16 ADD 1 TO WRK-VAR(1) LCL-VAR(1) + 17 SET WRK-IDX, LCL-IDX UP BY 1 +>> Hint: Missing . + +run_misc.at-394-callee.cob:15.43-15.47: + 12 01 LCL-X. + 13 05 LCL-VAR PIC 9 VALUE 0 OCCURS 1 INDEXED BY LCL-IDX. + 14 PROCEDURE DIVISION. + 15 > DISPLAY SPACE WITH NO ADVANCING UPON SYSOUT. +---- ^^^^ + 16 ADD 1 TO WRK-VAR(1) LCL-VAR(1) + 17 SET WRK-IDX, LCL-IDX UP BY 1 +>> Warning: Invalid syntax + +run_misc.at-394-callee.cob:20.46: + 17 SET WRK-IDX, LCL-IDX UP BY 1 + 18 SET DISP-IDX TO WRK-IDX. + 19 MOVE WRK-VAR(1) TO DISP-VAL. + 20 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. +---- ^ + 21 SET DISP-IDX TO LCL-IDX. + 22 MOVE LCL-VAR(1) TO DISP-VAL. +>> Hint: Missing . + +run_misc.at-394-callee.cob:20.47-20.51: + 17 SET WRK-IDX, LCL-IDX UP BY 1 + 18 SET DISP-IDX TO WRK-IDX. + 19 MOVE WRK-VAR(1) TO DISP-VAL. + 20 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. +---- ^^^^ + 21 SET DISP-IDX TO LCL-IDX. + 22 MOVE LCL-VAR(1) TO DISP-VAL. +>> Warning: Invalid syntax + +run_misc.at-394-callee.cob:23.46: + 20 DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. + 21 SET DISP-IDX TO LCL-IDX. + 22 MOVE LCL-VAR(1) TO DISP-VAL. + 23 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. +---- ^ + 24 GOBACK. +>> Hint: Missing . + +run_misc.at-394-callee.cob:23.47-23.51: + 20 DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. + 21 SET DISP-IDX TO LCL-IDX. + 22 MOVE LCL-VAR(1) TO DISP-VAL. + 23 > DISPLAY DISP-VALS WITH NO ADVANCING UPON SYSOUT. +---- ^^^^ + 24 GOBACK. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:395:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:463:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:464:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:506:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:507:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:570:0 +run_misc.at-570-bigger.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. error. +---- ^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Hint: Missing + +run_misc.at-570-bigger.cob:3.24-3.29: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. error. +---- ^^^^^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:569:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:573:0 +run_misc.at-573-smaller.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. error. +---- ^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Hint: Missing + +run_misc.at-573-smaller.cob:3.24-3.29: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. error. +---- ^^^^^ + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:610:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:634:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:658:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:681:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:705:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:739:0 +run_misc.at-739-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data) + 7 { +>> Error: Unexpected indicator: `T' + +run_misc.at-739-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data) +---- ^ + 7 { + 8 printf ("%02x%02x%02x", data[0], data[1], data[2]); +>> Error: Unexpected indicator: `u' + +run_misc.at-739-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data) + 7 { + 8 > printf ("%02x%02x%02x", data[0], data[1], data[2]); +---- ^ + 9 return 0; + 10 } +>> Error: Unexpected indicator: `t' + +run_misc.at-739-dump.c:9.6-9.7: + 6 dump (unsigned char *data) + 7 { + 8 printf ("%02x%02x%02x", data[0], data[1], data[2]); + 9 > return 0; +---- ^ + 10 } +>> Error: Unexpected indicator: `r' + +run_misc.at-739-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:740:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:782:0 +run_misc.at-782-prog.cob:13.15: + 10 03 XBYTE3 PIC X. + 11 03 XBYTE4 PIC X. + 12 PROCEDURE DIVISION. + 13 > MOVE Z"012" TO X. +---- ^ + 14 IF XBYTE1 = "0" AND + 15 XBYTE2 = "1" AND +>> Hint: Missing + +run_misc.at-782-prog.cob:13.16-13.22: + 10 03 XBYTE3 PIC X. + 11 03 XBYTE4 PIC X. + 12 PROCEDURE DIVISION. + 13 > MOVE Z"012" TO X. +---- ^^^^^^ + 14 IF XBYTE1 = "0" AND + 15 XBYTE2 = "1" AND +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:804:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:844:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:870:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:905:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:942:0 +run_misc.at-942-prog.cob:2.7-2.44: + 1 + 2 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. +>> Error: Malformed or unknown compiler directive + +run_misc.at-942-prog.cob:14.7-14.45: + 11 01 idx PIC 99 VALUE 6. + 12 + 13 PROCEDURE DIVISION. + 14 > >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION +>> Error: Malformed or unknown compiler directive + +run_misc.at-942-prog.cob:15.44: + 12 + 13 PROCEDURE DIVISION. + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 > DISPLAY y (idx) WITH NO ADVANCING +---- ^ + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF +>> Hint: Missing . + +run_misc.at-942-prog.cob:16.7-16.13: + 13 PROCEDURE DIVISION. + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION +---- ^^^^^^ + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING +>> Warning: Invalid syntax + +run_misc.at-942-prog.cob:16.32: + 13 PROCEDURE DIVISION. + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION +---- ^ + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING +>> Hint: Missing . + +run_misc.at-942-prog.cob:16.33-16.41: + 13 PROCEDURE DIVISION. + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION +---- ^^^^^^^^ + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING +>> Warning: Invalid syntax + +run_misc.at-942-prog.cob:16.41: + 13 PROCEDURE DIVISION. + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION +---- ^ + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING +>> Hint: Missing . + +run_misc.at-942-prog.cob:16.42-16.44: + 13 PROCEDURE DIVISION. + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION +---- ^^ + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING +>> Warning: Invalid syntax + +run_misc.at-942-prog.cob:17.7-17.47: + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 > >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 18 DISPLAY y (idx) WITH NO ADVANCING + 19 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON +>> Error: Malformed or unknown compiler directive + +run_misc.at-942-prog.cob:16.58: + 13 PROCEDURE DIVISION. + 14 >>TURN EC-BOUND-SUBSCRIPT CHECKING OFF + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION +---- ^ + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING +>> Hint: Missing . + +run_misc.at-942-prog.cob:18.11-18.18: + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 > DISPLAY y (idx) WITH NO ADVANCING +---- ^^^^^^^ + 19 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON + 20 DISPLAY y (idx) WITH NO ADVANCING +>> Warning: Invalid syntax + +run_misc.at-942-prog.cob:18.44: + 15 DISPLAY y (idx) WITH NO ADVANCING + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 > DISPLAY y (idx) WITH NO ADVANCING +---- ^ + 19 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON + 20 DISPLAY y (idx) WITH NO ADVANCING +>> Hint: Missing . + +run_misc.at-942-prog.cob:19.7-19.13: + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING + 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON +---- ^^^^^^ + 20 DISPLAY y (idx) WITH NO ADVANCING + 21 . +>> Warning: Invalid syntax + +run_misc.at-942-prog.cob:19.32: + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING + 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON +---- ^ + 20 DISPLAY y (idx) WITH NO ADVANCING + 21 . +>> Hint: Missing . + +run_misc.at-942-prog.cob:19.33-19.41: + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING + 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON +---- ^^^^^^^^ + 20 DISPLAY y (idx) WITH NO ADVANCING + 21 . +>> Warning: Invalid syntax + +run_misc.at-942-prog.cob:19.41: + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING + 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON +---- ^ + 20 DISPLAY y (idx) WITH NO ADVANCING + 21 . +>> Hint: Missing . + +run_misc.at-942-prog.cob:19.42-19.44: + 16 >>TURN EC-BOUND-SUBSCRIPT CHECKING ON WITH LOCATION + 17 >>TURN EC-BOUND, EC-PROGRAM CHECKING OFF + 18 DISPLAY y (idx) WITH NO ADVANCING + 19 > >>TURN EC-BOUND-SUBSCRIPT CHECKING ON +---- ^^ + 20 DISPLAY y (idx) WITH NO ADVANCING + 21 . +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:974:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:996:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1024:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1054:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1076:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1100:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1150:0 +run_misc.at-1150-prog.cob:10.17-10.23: + 7 03 X-NUM PIC 9(06) VALUE 123. + 8 77 NUM PIC 9(06). + 9 PROCEDURE DIVISION. + 10 > MOVE x"0000" TO X (2:2) +---- ^^^^^^ + 11 IF X-NUM NUMERIC + 12 DISPLAY "low-value is numeric" UPON SYSERR. +>> Error: Invalid syntax + +run_misc.at-1150-prog.cob:13.17-13.21: + 10 MOVE x"0000" TO X (2:2) + 11 IF X-NUM NUMERIC + 12 DISPLAY "low-value is numeric" UPON SYSERR. + 13 > MOVE x"01" TO X (3:1) +---- ^^^^ + 14 IF X-NUM NUMERIC + 15 DISPLAY "SOH is numeric" UPON SYSERR. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1158:0 +run_misc.at-1158-prog2.cob:10.17-10.21: + 7 03 X-NUM PIC 9(06) PACKED-DECIMAL VALUE 123. + 8 77 NUM PIC 9(06). + 9 PROCEDURE DIVISION. + 10 > MOVE x"0A" TO X (2:1) +---- ^^^^ + 11 IF X-NUM NUMERIC + 12 DISPLAY "bad prog". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1191:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1192:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1220:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1221:0 +run_misc.at-1221-caller.cob:5.23-5.31: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. caller. + 4 PROCEDURE DIVISION. + 5 > CALL STATIC "callee" +---- ^^^^^^^^ + 6 END-CALL. + 7 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1257:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1256:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1289:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1290:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1348:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1346:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1347:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1406:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1407:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1405:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1455:0 +run_misc.at-1455-callee.cob:11.22: + 8 IF STOPPER = 1 + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 > STOP RUN RETURNING 1 +---- ^ + 12 ELSE + 13 MOVE 1 TO STOPPER +>> Hint: Missing . + +run_misc.at-1455-callee.cob:11.23-11.32: + 8 IF STOPPER = 1 + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 > STOP RUN RETURNING 1 +---- ^^^^^^^^^ + 12 ELSE + 13 MOVE 1 TO STOPPER +>> Error: Invalid syntax + +run_misc.at-1455-callee.cob:11.34: + 8 IF STOPPER = 1 + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 > STOP RUN RETURNING 1 +---- ^ + 12 ELSE + 13 MOVE 1 TO STOPPER +>> Hint: Missing . + +run_misc.at-1455-callee.cob:12.11-12.15: + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 STOP RUN RETURNING 1 + 12 > ELSE +---- ^^^^ + 13 MOVE 1 TO STOPPER + 14 CALL "callee2" END-CALL +>> Warning: Invalid syntax + +run_misc.at-1455-callee.cob:15.11-15.17: + 12 ELSE + 13 MOVE 1 TO STOPPER + 14 CALL "callee2" END-CALL + 15 > END-IF. +---- ^^^^^^ + 16 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1456:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1454:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1503:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1504:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1502:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1558:0 +run_misc.at-1558-callee.cob:11.22: + 8 IF STOPPER = 1 + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 > STOP RUN RETURNING 1 +---- ^ + 12 ELSE + 13 MOVE 1 TO STOPPER +>> Hint: Missing . + +run_misc.at-1558-callee.cob:11.23-11.32: + 8 IF STOPPER = 1 + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 > STOP RUN RETURNING 1 +---- ^^^^^^^^^ + 12 ELSE + 13 MOVE 1 TO STOPPER +>> Error: Invalid syntax + +run_misc.at-1558-callee.cob:11.34: + 8 IF STOPPER = 1 + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 > STOP RUN RETURNING 1 +---- ^ + 12 ELSE + 13 MOVE 1 TO STOPPER +>> Hint: Missing . + +run_misc.at-1558-callee.cob:12.11-12.15: + 9 DISPLAY 'INITIAL prog was called RECURSIVE' + 10 END-DISPLAY + 11 STOP RUN RETURNING 1 + 12 > ELSE +---- ^^^^ + 13 MOVE 1 TO STOPPER + 14 CALL "callee2" END-CALL +>> Warning: Invalid syntax + +run_misc.at-1558-callee.cob:15.11-15.17: + 12 ELSE + 13 MOVE 1 TO STOPPER + 14 CALL "callee2" END-CALL + 15 > END-IF. +---- ^^^^^^ + 16 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1559:0 +run_misc.at-1559-callee2.cob:9.22: + 6 ON EXCEPTION + 7 DISPLAY "Exception " FUNCTION EXCEPTION-STATUS ";" + 8 UPON SYSERR + 9 > STOP RUN RETURNING 1 +---- ^ + 10 END-CALL. + 11 GOBACK. +>> Hint: Missing . + +run_misc.at-1559-callee2.cob:9.23-9.32: + 6 ON EXCEPTION + 7 DISPLAY "Exception " FUNCTION EXCEPTION-STATUS ";" + 8 UPON SYSERR + 9 > STOP RUN RETURNING 1 +---- ^^^^^^^^^ + 10 END-CALL. + 11 GOBACK. +>> Error: Invalid syntax + +run_misc.at-1559-callee2.cob:10.11-10.19: + 7 DISPLAY "Exception " FUNCTION EXCEPTION-STATUS ";" + 8 UPON SYSERR + 9 STOP RUN RETURNING 1 + 10 > END-CALL. +---- ^^^^^^^^ + 11 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1557:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1607:0 +run_misc.at-1607-callee.cob:13.38-13.44: + 10 01 PARAM2 PIC 9999 COMP. + 11 PROCEDURE DIVISION USING PARAM1 PARAM2. + 12 ADD 1 TO COUNTER END-ADD + 13 > CALL 'C$PARAMSIZE' USING 1 GIVING LPARAM END-CALL +---- ^^^^^^ + 14 DISPLAY 'COUNTER = ' COUNTER ' LPARAM1 = ' LPARAM + 15 ' PARAM1 = ' PARAM1 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1606:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1659:0 +run_misc.at-1659-dump.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (int *p) + 7 { +>> Error: Unexpected indicator: `T' + +run_misc.at-1659-dump.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (int *p) +---- ^ + 7 { + 8 printf ("%8.8d\n", *p); +>> Error: Unexpected indicator: `i' + +run_misc.at-1659-dump.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (int *p) + 7 { + 8 > printf ("%8.8d\n", *p); +---- ^ + 9 return 0; + 10 } +>> Error: Unexpected indicator: `t' + +run_misc.at-1659-dump.c:9.6-9.7: + 6 dump (int *p) + 7 { + 8 printf ("%8.8d\n", *p); + 9 > return 0; +---- ^ + 10 } +>> Error: Unexpected indicator: `r' + +run_misc.at-1659-dump.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (int *p) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1660:0 +run_misc.at-1660-prog.cob:14.40-14.46: + 11 MOVE 9 TO MYOCC. + 12 CALL "dump" USING BY CONTENT 1 + 13 END-CALL. + 14 > CALL "dump" USING BY CONTENT LENGTH OF MYTAB +---- ^^^^^^ + 15 END-CALL. + 16 CALL "dump" USING BY CONTENT LENGTH OF MYOCC +>> Error: Invalid syntax + +run_misc.at-1660-prog.cob:16.40-16.46: + 13 END-CALL. + 14 CALL "dump" USING BY CONTENT LENGTH OF MYTAB + 15 END-CALL. + 16 > CALL "dump" USING BY CONTENT LENGTH OF MYOCC +---- ^^^^^^ + 17 END-CALL. + 18 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1694:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1720:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1753:0 +run_misc.at-1753-prog.cob:9.11-9.19: + 6 CONFIGURATION SECTION. + 7 SPECIAL-NAMES. + 8 ALPHABET MY-ASCII IS STANDARD-1. + 9 > ALPHABET MY-EBCDIC IS EBCDIC. +---- ^^^^^^^^ + 10 + 11 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1787:0 +run_misc.at-1787-prog.cob:8.29-8.34: + 5 ENVIRONMENT DIVISION. + 6 CONFIGURATION SECTION. + 7 SPECIAL-NAMES. + 8 > ALPHABET ALPHA IS ASCII. +---- ^^^^^ + 9 ALPHABET BETA IS EBCDIC. + 10 +>> Error: Invalid syntax + +run_misc.at-1787-prog.cob:8.34: + 5 ENVIRONMENT DIVISION. + 6 CONFIGURATION SECTION. + 7 SPECIAL-NAMES. + 8 > ALPHABET ALPHA IS ASCII. +---- ^ + 9 ALPHABET BETA IS EBCDIC. + 10 +>> Hint: Missing IS + +run_misc.at-1787-prog.cob:8.34-8.35: + 5 ENVIRONMENT DIVISION. + 6 CONFIGURATION SECTION. + 7 SPECIAL-NAMES. + 8 > ALPHABET ALPHA IS ASCII. +---- ^ + 9 ALPHABET BETA IS EBCDIC. + 10 +>> Error: Invalid syntax + +run_misc.at-1787-prog.cob:9.11-9.19: + 6 CONFIGURATION SECTION. + 7 SPECIAL-NAMES. + 8 ALPHABET ALPHA IS ASCII. + 9 > ALPHABET BETA IS EBCDIC. +---- ^^^^^^^^ + 10 + 11 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1824:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1846:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1868:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:1898:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2039:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2071:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2104:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2140:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2177:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2199:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2279:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2305:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2331:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2365:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2399:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2422:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2445:0 +run_misc.at-2445-prog.cob:7.25: + 4 PROCEDURE DIVISION. + 5 PERFORM 2 TIMES + 6 DISPLAY "OK" NO ADVANCING + 7 > EXIT PERFORM CYCLE +---- ^ + 8 DISPLAY "NOT OK" + 9 END-PERFORM +>> Hint: Missing END_PERFORM . + +run_misc.at-2445-prog.cob:7.26-7.31: + 4 PROCEDURE DIVISION. + 5 PERFORM 2 TIMES + 6 DISPLAY "OK" NO ADVANCING + 7 > EXIT PERFORM CYCLE +---- ^^^^^ + 8 DISPLAY "NOT OK" + 9 END-PERFORM +>> Error: Invalid syntax + +run_misc.at-2445-prog.cob:7.31: + 4 PROCEDURE DIVISION. + 5 PERFORM 2 TIMES + 6 DISPLAY "OK" NO ADVANCING + 7 > EXIT PERFORM CYCLE +---- ^ + 8 DISPLAY "NOT OK" + 9 END-PERFORM +>> Hint: Missing . + +run_misc.at-2445-prog.cob:8.13-8.20: + 5 PERFORM 2 TIMES + 6 DISPLAY "OK" NO ADVANCING + 7 EXIT PERFORM CYCLE + 8 > DISPLAY "NOT OK" +---- ^^^^^^^ + 9 END-PERFORM + 10 STOP RUN. +>> Warning: Invalid syntax + +run_misc.at-2445-prog.cob:9.11-9.22: + 6 DISPLAY "OK" NO ADVANCING + 7 EXIT PERFORM CYCLE + 8 DISPLAY "NOT OK" + 9 > END-PERFORM +---- ^^^^^^^^^^^ + 10 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2479:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2517:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2543:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2586:0 +run_misc.at-2586-prog.cob:10.24: + 7 PROCEDURE DIVISION. + 8 A01. + 9 MOVE 0 TO INDVAL + 10 > PERFORM UNTIL EXIT +---- ^ + 11 ADD 1 TO INDVAL + 12 IF INDVAL > 2 +>> Hint: Missing + +run_misc.at-2586-prog.cob:10.25-10.29: + 7 PROCEDURE DIVISION. + 8 A01. + 9 MOVE 0 TO INDVAL + 10 > PERFORM UNTIL EXIT +---- ^^^^ + 11 ADD 1 TO INDVAL + 12 IF INDVAL > 2 +>> Error: Invalid syntax + +run_misc.at-2586-prog.cob:25.11-25.22: + 22 IF INDVAL > 4 + 23 EXIT PERFORM + 24 END-IF + 25 > END-PERFORM +---- ^^^^^^^^^^^ + 26 IF INDVAL NOT = 5 + 27 DISPLAY "2: " INDVAL +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2612:0 +run_misc.at-2612-prog.cob:10.11-10.22: + 7 PROCEDURE DIVISION. + 8 PERFORM VARYING INDVAL FROM 1 + 9 BY 1 UNTIL INDVAL > 2 + 10 > END-PERFORM +---- ^^^^^^^^^^^ + 11 IF INDVAL NOT = 3 + 12 DISPLAY INDVAL +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2636:0 +run_misc.at-2636-prog.cob:9.33: + 6 01 INDVAL PIC 9(4). + 7 PROCEDURE DIVISION. + 8 PERFORM VARYING INDVAL FROM 1 + 9 > BY 1 UNTIL INDVAL > 2. +---- ^ + 10 IF INDVAL NOT = 3 + 11 DISPLAY INDVAL +>> Hint: Missing END_PERFORM + +run_misc.at-2636-prog.cob:9.33-9.34: + 6 01 INDVAL PIC 9(4). + 7 PROCEDURE DIVISION. + 8 PERFORM VARYING INDVAL FROM 1 + 9 > BY 1 UNTIL INDVAL > 2. +---- ^ + 10 IF INDVAL NOT = 3 + 11 DISPLAY INDVAL +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2661:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2681:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2706:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2790:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2902:0 +run_misc.at-2902-prog.cob:59.19: + 56 * + 57 * UNSTRING test + 58 move spaces to simple-str + 59 > unstring 'data' +---- ^ + 60 into simple-str + 61 on overflow +>> Hint: Missing + +run_misc.at-2902-prog.cob:59.20-59.26: + 56 * + 57 * UNSTRING test + 58 move spaces to simple-str + 59 > unstring 'data' +---- ^^^^^^ + 60 into simple-str + 61 on overflow +>> Error: Invalid syntax + +run_misc.at-2902-prog.cob:63.23: + 60 into simple-str + 61 on overflow + 62 move spaces to err-str + 63 > unstring 'UNSTRING OVERFLOW' +---- ^ + 64 into err-str + 65 end-unstring +>> Hint: Missing + +run_misc.at-2902-prog.cob:63.24-63.43: + 60 into simple-str + 61 on overflow + 62 move spaces to err-str + 63 > unstring 'UNSTRING OVERFLOW' +---- ^^^^^^^^^^^^^^^^^^^ + 64 into err-str + 65 end-unstring +>> Error: Invalid syntax + +run_misc.at-2902-prog.cob:80.19: + 77 end-if + 78 * + 79 move spaces to simple-str + 80 > unstring 'data is too big here...' +---- ^ + 81 into simple-str + 82 on overflow +>> Hint: Missing + +run_misc.at-2902-prog.cob:80.20-80.45: + 77 end-if + 78 * + 79 move spaces to simple-str + 80 > unstring 'data is too big here...' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 81 into simple-str + 82 on overflow +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2938:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:2991:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3039:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3081:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3195:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3245:0 +run_misc.at-3245-prog.cob:24.19: + 21 DISPLAY "PRM(2) is " PRM(2) ":". + 22 DISPLAY "PRM(3) is " PRM(3) ":". + 23 DISPLAY "PRM(4) is " PRM(4) ":". + 24 > UNSTRING "Daddy,was,a,Rolling stone" DELIMITED BY ',' +---- ^ + 25 INTO PRM(1), PRM(2), PRM(3), PRM(4). + 26 DISPLAY "Now using Literal" +>> Hint: Missing + +run_misc.at-3245-prog.cob:24.20-24.47: + 21 DISPLAY "PRM(2) is " PRM(2) ":". + 22 DISPLAY "PRM(3) is " PRM(3) ":". + 23 DISPLAY "PRM(4) is " PRM(4) ":". + 24 > UNSTRING "Daddy,was,a,Rolling stone" DELIMITED BY ',' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 25 INTO PRM(1), PRM(2), PRM(3), PRM(4). + 26 DISPLAY "Now using Literal" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3299:0 +run_misc.at-3299-prog.cob:20.34-20.35: + 17 SORT TBL ASCENDING KEY TBL. + 18 IF G NOT = "a3b2c5d4e1" + 19 DISPLAY G. + 20 > SORT TBL DESCENDING KEY. +---- ^ + 21 IF G NOT = "e1d4c5b2a3" + 22 DISPLAY G. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3403:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3513:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3516:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3538:0 +run_misc.at-3538-prog.cob:10.11-10.13: + 7 01 TBL REDEFINES VAL PIC X OCCURS 5. + 8 PROCEDURE DIVISION. + 9 SORT TBL ASCENDING + 10 > IF VAL NOT = "12345" DISPLAY VAL. +---- ^^ + 11 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3601:0 +run_misc.at-3601-prog.cob:7.29-7.35: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 > ALPHABET ALPHA IS EBCDIC. +---- ^^^^^^ + 8 DATA DIVISION. + 9 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +run_misc.at-3601-prog.cob:7.35: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 > ALPHABET ALPHA IS EBCDIC. +---- ^ + 8 DATA DIVISION. + 9 WORKING-STORAGE SECTION. +>> Hint: Missing IS + +run_misc.at-3601-prog.cob:7.35-7.36: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 > ALPHABET ALPHA IS EBCDIC. +---- ^ + 8 DATA DIVISION. + 9 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3603:0 +run_misc.at-3603-prog2.cob:9.35-9.41: + 6 OBJECT-COMPUTER. + 7 x86 PROGRAM COLLATING SEQUENCE IS EBCDIC-CODE. + 8 SPECIAL-NAMES. + 9 > ALPHABET EBCDIC-CODE IS EBCDIC. +---- ^^^^^^ + 10 DATA DIVISION. + 11 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +run_misc.at-3603-prog2.cob:9.41: + 6 OBJECT-COMPUTER. + 7 x86 PROGRAM COLLATING SEQUENCE IS EBCDIC-CODE. + 8 SPECIAL-NAMES. + 9 > ALPHABET EBCDIC-CODE IS EBCDIC. +---- ^ + 10 DATA DIVISION. + 11 WORKING-STORAGE SECTION. +>> Hint: Missing IS + +run_misc.at-3603-prog2.cob:9.41-9.42: + 6 OBJECT-COMPUTER. + 7 x86 PROGRAM COLLATING SEQUENCE IS EBCDIC-CODE. + 8 SPECIAL-NAMES. + 9 > ALPHABET EBCDIC-CODE IS EBCDIC. +---- ^ + 10 DATA DIVISION. + 11 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3626:0 +run_misc.at-3626-prog.cob:5.6-5.7: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >>IF EXPECT-ORDER = 'ASCII' +---- ^ + 6 IF "1" NOT < "a" + 7 >>ELIF EXPECT-ORDER = 'EBCDIC' +>> Error: Unexpected indicator: `>' + +run_misc.at-3626-prog.cob:7.6-7.7: + 4 PROCEDURE DIVISION. + 5 >>IF EXPECT-ORDER = 'ASCII' + 6 IF "1" NOT < "a" + 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 8 IF "a" NOT < "1" + 9 >>END-IF +>> Error: Unexpected indicator: `>' + +run_misc.at-3626-prog.cob:9.6-9.7: + 6 IF "1" NOT < "a" + 7 >>ELIF EXPECT-ORDER = 'EBCDIC' + 8 IF "a" NOT < "1" + 9 > >>END-IF +---- ^ + 10 DISPLAY "ERROR" END-DISPLAY + 11 END-IF. +>> Error: Unexpected indicator: `>' + +run_misc.at-3626-prog.cob:5.7-5.8: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >>IF EXPECT-ORDER = 'ASCII' +---- ^ + 6 IF "1" NOT < "a" + 7 >>ELIF EXPECT-ORDER = 'EBCDIC' +>> Error: Invalid syntax + +run_misc.at-3626-prog.cob:6.27: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 >>IF EXPECT-ORDER = 'ASCII' + 6 > IF "1" NOT < "a" +---- ^ + 7 >>ELIF EXPECT-ORDER = 'EBCDIC' + 8 IF "a" NOT < "1" +>> Hint: Missing . + +run_misc.at-3626-prog.cob:7.7-7.8: + 4 PROCEDURE DIVISION. + 5 >>IF EXPECT-ORDER = 'ASCII' + 6 IF "1" NOT < "a" + 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 8 IF "a" NOT < "1" + 9 >>END-IF +>> Error: Invalid syntax + +run_misc.at-3626-prog.cob:7.12: + 4 PROCEDURE DIVISION. + 5 >>IF EXPECT-ORDER = 'ASCII' + 6 IF "1" NOT < "a" + 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 8 IF "a" NOT < "1" + 9 >>END-IF +>> Hint: Missing . + +run_misc.at-3626-prog.cob:7.13-7.25: + 4 PROCEDURE DIVISION. + 5 >>IF EXPECT-ORDER = 'ASCII' + 6 IF "1" NOT < "a" + 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^^^^^^^^^^^^ + 8 IF "a" NOT < "1" + 9 >>END-IF +>> Warning: Invalid syntax + +run_misc.at-3626-prog.cob:7.25: + 4 PROCEDURE DIVISION. + 5 >>IF EXPECT-ORDER = 'ASCII' + 6 IF "1" NOT < "a" + 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 8 IF "a" NOT < "1" + 9 >>END-IF +>> Hint: Missing . + +run_misc.at-3626-prog.cob:7.27-7.28: + 4 PROCEDURE DIVISION. + 5 >>IF EXPECT-ORDER = 'ASCII' + 6 IF "1" NOT < "a" + 7 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 8 IF "a" NOT < "1" + 9 >>END-IF +>> Warning: Invalid syntax + +run_misc.at-3626-prog.cob:9.7-9.8: + 6 IF "1" NOT < "a" + 7 >>ELIF EXPECT-ORDER = 'EBCDIC' + 8 IF "a" NOT < "1" + 9 > >>END-IF +---- ^ + 10 DISPLAY "ERROR" END-DISPLAY + 11 END-IF. +>> Error: Invalid syntax + +run_misc.at-3626-prog.cob:11.11-11.17: + 8 IF "a" NOT < "1" + 9 >>END-IF + 10 DISPLAY "ERROR" END-DISPLAY + 11 > END-IF. +---- ^^^^^^ + 12 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3663:0 +run_misc.at-3663-prog.cob:12.6-12.7: + 9 03 X PIC X. + 10 PROCEDURE DIVISION. + 11 SORT TBL ASCENDING KEY X. + 12 > >>IF EXPECT-ORDER = 'ASCII' +---- ^ + 13 IF G NOT = "12345abcde" + 14 >>ELIF EXPECT-ORDER = 'EBCDIC' +>> Error: Unexpected indicator: `>' + +run_misc.at-3663-prog.cob:14.6-14.7: + 11 SORT TBL ASCENDING KEY X. + 12 >>IF EXPECT-ORDER = 'ASCII' + 13 IF G NOT = "12345abcde" + 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' +>> Error: Unexpected indicator: `>' + +run_misc.at-3663-prog.cob:16.6-16.7: + 13 IF G NOT = "12345abcde" + 14 >>ELIF EXPECT-ORDER = 'EBCDIC' + 15 IF G NOT = "abcde12345" + 16 > >>ELSE *> = 'NATIVE' +---- ^ + 17 IF NOT G = "12345abcde" OR "abcde12345" + 18 >>END-IF +>> Error: Unexpected indicator: `>' + +run_misc.at-3663-prog.cob:18.6-18.7: + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' + 17 IF NOT G = "12345abcde" OR "abcde12345" + 18 > >>END-IF +---- ^ + 19 DISPLAY G END-DISPLAY + 20 END-IF. +>> Error: Unexpected indicator: `>' + +run_misc.at-3663-prog.cob:12.7-12.8: + 9 03 X PIC X. + 10 PROCEDURE DIVISION. + 11 SORT TBL ASCENDING KEY X. + 12 > >>IF EXPECT-ORDER = 'ASCII' +---- ^ + 13 IF G NOT = "12345abcde" + 14 >>ELIF EXPECT-ORDER = 'EBCDIC' +>> Error: Invalid syntax + +run_misc.at-3663-prog.cob:13.34: + 10 PROCEDURE DIVISION. + 11 SORT TBL ASCENDING KEY X. + 12 >>IF EXPECT-ORDER = 'ASCII' + 13 > IF G NOT = "12345abcde" +---- ^ + 14 >>ELIF EXPECT-ORDER = 'EBCDIC' + 15 IF G NOT = "abcde12345" +>> Hint: Missing . + +run_misc.at-3663-prog.cob:14.7-14.8: + 11 SORT TBL ASCENDING KEY X. + 12 >>IF EXPECT-ORDER = 'ASCII' + 13 IF G NOT = "12345abcde" + 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' +>> Error: Invalid syntax + +run_misc.at-3663-prog.cob:14.12: + 11 SORT TBL ASCENDING KEY X. + 12 >>IF EXPECT-ORDER = 'ASCII' + 13 IF G NOT = "12345abcde" + 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' +>> Hint: Missing . + +run_misc.at-3663-prog.cob:14.13-14.25: + 11 SORT TBL ASCENDING KEY X. + 12 >>IF EXPECT-ORDER = 'ASCII' + 13 IF G NOT = "12345abcde" + 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^^^^^^^^^^^^ + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' +>> Warning: Invalid syntax + +run_misc.at-3663-prog.cob:14.25: + 11 SORT TBL ASCENDING KEY X. + 12 >>IF EXPECT-ORDER = 'ASCII' + 13 IF G NOT = "12345abcde" + 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' +>> Hint: Missing . + +run_misc.at-3663-prog.cob:14.27-14.28: + 11 SORT TBL ASCENDING KEY X. + 12 >>IF EXPECT-ORDER = 'ASCII' + 13 IF G NOT = "12345abcde" + 14 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' +>> Warning: Invalid syntax + +run_misc.at-3663-prog.cob:16.7-16.8: + 13 IF G NOT = "12345abcde" + 14 >>ELIF EXPECT-ORDER = 'EBCDIC' + 15 IF G NOT = "abcde12345" + 16 > >>ELSE *> = 'NATIVE' +---- ^ + 17 IF NOT G = "12345abcde" OR "abcde12345" + 18 >>END-IF +>> Error: Invalid syntax + +run_misc.at-3663-prog.cob:18.8: + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' + 17 IF NOT G = "12345abcde" OR "abcde12345" + 18 > >>END-IF +---- ^ + 19 DISPLAY G END-DISPLAY + 20 END-IF. +>> Hint: Missing + +run_misc.at-3663-prog.cob:18.8-18.14: + 15 IF G NOT = "abcde12345" + 16 >>ELSE *> = 'NATIVE' + 17 IF NOT G = "12345abcde" OR "abcde12345" + 18 > >>END-IF +---- ^^^^^^ + 19 DISPLAY G END-DISPLAY + 20 END-IF. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3919:0 +run_misc.at-3919-prog.cob:35.11-35.39: + 32 + 33 PROCEDURE DIVISION. + 34 + 35 > >>IF JUSTIFY EQUAL 'JUSTIFY' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 36 PERFORM 1000-JUSTIFY-IS-RIGHT THRU 1000-EXIT. + 37 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_misc.at-3919-prog.cob:37.11-37.17: + 34 + 35 >>IF JUSTIFY EQUAL 'JUSTIFY' + 36 PERFORM 1000-JUSTIFY-IS-RIGHT THRU 1000-EXIT. + 37 > >>ELSE +---- ^^^^^^ + 38 PERFORM 2000-JUSTIFY-IS-OFF THRU 2000-EXIT. + 39 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-3919-prog.cob:39.11-39.19: + 36 PERFORM 1000-JUSTIFY-IS-RIGHT THRU 1000-EXIT. + 37 >>ELSE + 38 PERFORM 2000-JUSTIFY-IS-OFF THRU 2000-EXIT. + 39 > >>END-IF +---- ^^^^^^^^ + 40 + 41 IF ELE4 NOT EQUAL 'RRRRRRRRRR' +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:3961:0 +run_misc.at-3961-prog.cob:20.6-20.7: + 17 WHEN K (I) = KK + 18 CONTINUE + 19 END-SEARCH + 20 > >>IF EXPECT-ORDER = 'ASCII' +---- ^ + 21 IF I NOT = 3 + 22 >>ELIF EXPECT-ORDER = 'EBCDIC' +>> Error: Unexpected indicator: `>' + +run_misc.at-3961-prog.cob:22.6-22.7: + 19 END-SEARCH + 20 >>IF EXPECT-ORDER = 'ASCII' + 21 IF I NOT = 3 + 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 23 IF I NOT = 8 + 24 >>END-IF +>> Error: Unexpected indicator: `>' + +run_misc.at-3961-prog.cob:24.6-24.7: + 21 IF I NOT = 3 + 22 >>ELIF EXPECT-ORDER = 'EBCDIC' + 23 IF I NOT = 8 + 24 > >>END-IF +---- ^ + 25 DISPLAY "ERROR" END-DISPLAY + 26 STOP RUN. +>> Error: Unexpected indicator: `>' + +run_misc.at-3961-prog.cob:20.7-20.8: + 17 WHEN K (I) = KK + 18 CONTINUE + 19 END-SEARCH + 20 > >>IF EXPECT-ORDER = 'ASCII' +---- ^ + 21 IF I NOT = 3 + 22 >>ELIF EXPECT-ORDER = 'EBCDIC' +>> Error: Invalid syntax + +run_misc.at-3961-prog.cob:21.23: + 18 CONTINUE + 19 END-SEARCH + 20 >>IF EXPECT-ORDER = 'ASCII' + 21 > IF I NOT = 3 +---- ^ + 22 >>ELIF EXPECT-ORDER = 'EBCDIC' + 23 IF I NOT = 8 +>> Hint: Missing . + +run_misc.at-3961-prog.cob:22.7-22.8: + 19 END-SEARCH + 20 >>IF EXPECT-ORDER = 'ASCII' + 21 IF I NOT = 3 + 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 23 IF I NOT = 8 + 24 >>END-IF +>> Error: Invalid syntax + +run_misc.at-3961-prog.cob:22.12: + 19 END-SEARCH + 20 >>IF EXPECT-ORDER = 'ASCII' + 21 IF I NOT = 3 + 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 23 IF I NOT = 8 + 24 >>END-IF +>> Hint: Missing . + +run_misc.at-3961-prog.cob:22.13-22.25: + 19 END-SEARCH + 20 >>IF EXPECT-ORDER = 'ASCII' + 21 IF I NOT = 3 + 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^^^^^^^^^^^^ + 23 IF I NOT = 8 + 24 >>END-IF +>> Warning: Invalid syntax + +run_misc.at-3961-prog.cob:22.25: + 19 END-SEARCH + 20 >>IF EXPECT-ORDER = 'ASCII' + 21 IF I NOT = 3 + 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 23 IF I NOT = 8 + 24 >>END-IF +>> Hint: Missing . + +run_misc.at-3961-prog.cob:22.27-22.28: + 19 END-SEARCH + 20 >>IF EXPECT-ORDER = 'ASCII' + 21 IF I NOT = 3 + 22 > >>ELIF EXPECT-ORDER = 'EBCDIC' +---- ^ + 23 IF I NOT = 8 + 24 >>END-IF +>> Warning: Invalid syntax + +run_misc.at-3961-prog.cob:24.7-24.8: + 21 IF I NOT = 3 + 22 >>ELIF EXPECT-ORDER = 'EBCDIC' + 23 IF I NOT = 8 + 24 > >>END-IF +---- ^ + 25 DISPLAY "ERROR" END-DISPLAY + 26 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4002:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4037:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4078:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4079:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4104:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4105:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4172:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4170:0 +run_misc.at-4170-prog.cob:13.8-13.13: + 10 + 11 PROCEDURE DIVISION. + 12 + 13 > ENTRY 'ent1'. +---- ^^^^^ + 14 DISPLAY VAR1 END-DISPLAY + 15 GOBACK. +>> Error: Invalid syntax + +run_misc.at-4170-prog.cob:17.8-17.13: + 14 DISPLAY VAR1 END-DISPLAY + 15 GOBACK. + 16 + 17 > ENTRY 'ent2'. +---- ^^^^^ + 18 DISPLAY VAR2 END-DISPLAY + 19 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4171:0 +run_misc.at-4171-prog1.cob:13.8-13.13: + 10 + 11 PROCEDURE DIVISION. + 12 + 13 > ENTRY 'ent2'. +---- ^^^^^ + 14 DISPLAY VAR2 END-DISPLAY + 15 GOBACK. +>> Error: Invalid syntax + +run_misc.at-4171-prog1.cob:17.8-17.13: + 14 DISPLAY VAR2 END-DISPLAY + 15 GOBACK. + 16 + 17 > ENTRY 'ent3'. +---- ^^^^^ + 18 DISPLAY VAR3 END-DISPLAY + 19 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4217:0 +run_misc.at-4217-prog.cob:10.27-10.32: + 7 01 PROGRAM-LINK USAGE PROGRAM-POINTER. + 8 + 9 PROCEDURE DIVISION. + 10 > SET PROGRAM-LINK TO ENTRY "subprogram" +---- ^^^^^ + 11 IF PROGRAM-LINK EQUAL NULL THEN + 12 DISPLAY "error: no subprogram linkage" UPON SYSERR +>> Error: Invalid syntax + +run_misc.at-4217-prog.cob:26.7-26.12: + 23 END-IF + 24 GOBACK. + 25 + 26 > ENTRY "subprogram". +---- ^^^^^ + 27 DISPLAY "subprogram" WITH NO ADVANCING + 28 END-DISPLAY +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4242:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4243:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4269:0 +run_misc.at-4269-prog.cob:14.16-14.23: + 11 IF MYFLD NOT = "ABCDEF" + 12 DISPLAY MYFLD + 13 END-IF + 14 > FREE ADDRESS OF MYFLD +---- ^^^^^^^ + 15 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4310:0 +run_misc.at-4310-prog.cob:26.16-26.23: + 23 DISPLAY MYFLD + 24 END-IF + 25 + 26 > FREE ADDRESS OF MYFLD +---- ^^^^^^^ + 27 IF ADDRESS OF MYFLD NOT = NULL + 28 DISPLAY "BASED ITEM WITH ADDRESS AFTER FREE" +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4360:0 +run_misc.at-4360-prog.cob:13.32-13.34: + 10 ASTART SECTION. + 11 A01. + 12 ALLOCATE 4 CHARACTERS + 13 > INITIALIZED TO "ABCD" +---- ^^ + 14 RETURNING MYPTR + 15 SET ADDRESS OF MYFLD TO MYPTR +>> Error: Invalid syntax + +run_misc.at-4360-prog.cob:21.32-21.34: + 18 END-IF + 19 FREE MYPTR + 20 ALLOCATE 4 CHARACTERS + 21 > INITIALIZED TO ALL "Z" +---- ^^ + 22 RETURNING MYPTR + 23 SET ADDRESS OF MYFLD TO MYPTR +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4384:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4419:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4420:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4495:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4495:0 +run_misc.at-4495-callee2.cob:9.19: + 6 01 P PIC 99. + 7 PROCEDURE DIVISION USING P. + 8 DISPLAY 'P: ' P WITH NO ADVANCING. + 9 > STOP RUN RETURNING P. +---- ^ +>> Hint: Missing . + +run_misc.at-4495-callee2.cob:9.20-9.29: + 6 01 P PIC 99. + 7 PROCEDURE DIVISION USING P. + 8 DISPLAY 'P: ' P WITH NO ADVANCING. + 9 > STOP RUN RETURNING P. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4494:0 +run_misc.at-4494-caller.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > #ifndef NULL +---- ^ + 6 #define NULL (void*)0 + 7 #endif +>> Error: Unexpected indicator: `f' + +run_misc.at-4494-caller.c:6.6-6.7: + 3 #include + 4 + 5 #ifndef NULL + 6 > #define NULL (void*)0 +---- ^ + 7 #endif + 8 +>> Error: Unexpected indicator: `e' + +run_misc.at-4494-caller.c:10.6-10.7: + 7 #endif + 8 + 9 int + 10 > main (int argc, char **argv) +---- ^ + 11 { + 12 /* for storing COBOL return code */ +>> Error: Unexpected indicator: `i' + +run_misc.at-4494-caller.c:12.6-12.7: + 9 int + 10 main (int argc, char **argv) + 11 { + 12 > /* for storing COBOL return code */ +---- ^ + 13 int cob_ret; + 14 +>> Error: Unexpected indicator: `f' + +run_misc.at-4494-caller.c:15.6-15.7: + 12 /* for storing COBOL return code */ + 13 int cob_ret; + 14 + 15 > /* initialize parameters */ +---- ^ + 16 void *cob_argv[2]; + 17 +>> Error: Unexpected indicator: `i' + +run_misc.at-4494-caller.c:18.6-18.7: + 15 /* initialize parameters */ + 16 void *cob_argv[2]; + 17 + 18 > cob_argv[0] = argv[2]; +---- ^ + 19 cob_argv[1] = NULL; + 20 +>> Error: Unexpected indicator: `_' + +run_misc.at-4494-caller.c:19.6-19.7: + 16 void *cob_argv[2]; + 17 + 18 cob_argv[0] = argv[2]; + 19 > cob_argv[1] = NULL; +---- ^ + 20 + 21 /* initialize the COBOL run-time library */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4494-caller.c:21.6-21.7: + 18 cob_argv[0] = argv[2]; + 19 cob_argv[1] = NULL; + 20 + 21 > /* initialize the COBOL run-time library */ +---- ^ + 22 cob_init(argc, argv); + 23 +>> Error: Unexpected indicator: `i' + +run_misc.at-4494-caller.c:22.6-22.7: + 19 cob_argv[1] = NULL; + 20 + 21 /* initialize the COBOL run-time library */ + 22 > cob_init(argc, argv); +---- ^ + 23 + 24 /* call COBOL program */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4494-caller.c:24.6-24.7: + 21 /* initialize the COBOL run-time library */ + 22 cob_init(argc, argv); + 23 + 24 > /* call COBOL program */ +---- ^ + 25 cob_ret = cob_call (argv[1], 2, cob_argv); + 26 +>> Error: Unexpected indicator: `c' + +run_misc.at-4494-caller.c:25.6-25.7: + 22 cob_init(argc, argv); + 23 + 24 /* call COBOL program */ + 25 > cob_ret = cob_call (argv[1], 2, cob_argv); +---- ^ + 26 + 27 cob_runtime_hint("program exited normally, " +>> Error: Unexpected indicator: `_' + +run_misc.at-4494-caller.c:27.6-27.7: + 24 /* call COBOL program */ + 25 cob_ret = cob_call (argv[1], 2, cob_argv); + 26 + 27 > cob_runtime_hint("program exited normally, " +---- ^ + 28 "without STOP RUN with status %d", cob_ret); + 29 +>> Error: Unexpected indicator: `_' + +run_misc.at-4494-caller.c:30.6-30.7: + 27 cob_runtime_hint("program exited normally, " + 28 "without STOP RUN with status %d", cob_ret); + 29 + 30 > /* Clean up and terminate - This does not return */ +---- ^ + 31 cob_stop_run (cob_ret); + 32 } +>> Error: Unexpected indicator: `C' + +run_misc.at-4494-caller.c:31.6-31.7: + 28 "without STOP RUN with status %d", cob_ret); + 29 + 30 /* Clean up and terminate - This does not return */ + 31 > cob_stop_run (cob_ret); +---- ^ + 32 } +>> Error: Unexpected indicator: `_' + +run_misc.at-4494-caller.c:5.8-5.12: + 2 #include + 3 #include + 4 + 5 > #ifndef NULL +---- ^^^^ + 6 #define NULL (void*)0 + 7 #endif +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4619:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4619:0 +run_misc.at-4619-callee.cob:13.17: + 10 IF P2 NOT OMITTED + 11 DISPLAY 'UNEXPECTED P2: ' P2. + 12 DISPLAY 'P1: ' P1 WITH NO ADVANCING + 13 > GOBACK RETURNING RC. +---- ^ +>> Hint: Missing . + +run_misc.at-4619-callee.cob:13.18-13.27: + 10 IF P2 NOT OMITTED + 11 DISPLAY 'UNEXPECTED P2: ' P2. + 12 DISPLAY 'P1: ' P1 WITH NO ADVANCING + 13 > GOBACK RETURNING RC. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4619:0 +run_misc.at-4619-callee2.cob:6.19: + 3 PROGRAM-ID. callee2. + 4 PROCEDURE DIVISION. + 5 DISPLAY 'STOP WITH 2' WITH NO ADVANCING + 6 > STOP RUN RETURNING 2. +---- ^ +>> Hint: Missing . + +run_misc.at-4619-callee2.cob:6.20-6.29: + 3 PROGRAM-ID. callee2. + 4 PROCEDURE DIVISION. + 5 DISPLAY 'STOP WITH 2' WITH NO ADVANCING + 6 > STOP RUN RETURNING 2. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4618:0 +run_misc.at-4618-caller.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > #ifndef NULL +---- ^ + 6 #define NULL (void*)0 + 7 #endif +>> Error: Unexpected indicator: `f' + +run_misc.at-4618-caller.c:6.6-6.7: + 3 #include + 4 + 5 #ifndef NULL + 6 > #define NULL (void*)0 +---- ^ + 7 #endif + 8 +>> Error: Unexpected indicator: `e' + +run_misc.at-4618-caller.c:10.6-10.7: + 7 #endif + 8 + 9 int + 10 > main (int argc, char **argv) +---- ^ + 11 { + 12 /* for storing libcob return state */ +>> Error: Unexpected indicator: `i' + +run_misc.at-4618-caller.c:12.6-12.7: + 9 int + 10 main (int argc, char **argv) + 11 { + 12 > /* for storing libcob return state */ +---- ^ + 13 int cob_ret; + 14 +>> Error: Unexpected indicator: `f' + +run_misc.at-4618-caller.c:15.6-15.7: + 12 /* for storing libcob return state */ + 13 int cob_ret; + 14 + 15 > /* initialize parameters */ +---- ^ + 16 void *cob_argv[3]; + 17 +>> Error: Unexpected indicator: `i' + +run_misc.at-4618-caller.c:18.6-18.7: + 15 /* initialize parameters */ + 16 void *cob_argv[3]; + 17 + 18 > char *p1 = "A"; +---- ^ + 19 cob_argv[0] = p1; + 20 cob_argv[1] = argv[2]; +>> Error: Unexpected indicator: `r' + +run_misc.at-4618-caller.c:19.6-19.7: + 16 void *cob_argv[3]; + 17 + 18 char *p1 = "A"; + 19 > cob_argv[0] = p1; +---- ^ + 20 cob_argv[1] = argv[2]; + 21 cob_argv[2] = NULL; +>> Error: Unexpected indicator: `_' + +run_misc.at-4618-caller.c:20.6-20.7: + 17 + 18 char *p1 = "A"; + 19 cob_argv[0] = p1; + 20 > cob_argv[1] = argv[2]; +---- ^ + 21 cob_argv[2] = NULL; + 22 +>> Error: Unexpected indicator: `_' + +run_misc.at-4618-caller.c:21.6-21.7: + 18 char *p1 = "A"; + 19 cob_argv[0] = p1; + 20 cob_argv[1] = argv[2]; + 21 > cob_argv[2] = NULL; +---- ^ + 22 + 23 /* initialize the COBOL run-time library */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4618-caller.c:23.6-23.7: + 20 cob_argv[1] = argv[2]; + 21 cob_argv[2] = NULL; + 22 + 23 > /* initialize the COBOL run-time library */ +---- ^ + 24 cob_init (argc, argv); + 25 +>> Error: Unexpected indicator: `i' + +run_misc.at-4618-caller.c:24.6-24.7: + 21 cob_argv[2] = NULL; + 22 + 23 /* initialize the COBOL run-time library */ + 24 > cob_init (argc, argv); +---- ^ + 25 + 26 /* call COBOL program */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4618-caller.c:26.6-26.7: + 23 /* initialize the COBOL run-time library */ + 24 cob_init (argc, argv); + 25 + 26 > /* call COBOL program */ +---- ^ + 27 cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); + 28 +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:27.6-27.7: + 24 cob_init (argc, argv); + 25 + 26 /* call COBOL program */ + 27 > cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); +---- ^ + 28 + 29 switch (cob_ret) { +>> Error: Unexpected indicator: `_' + +run_misc.at-4618-caller.c:29.6-29.7: + 26 /* call COBOL program */ + 27 cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); + 28 + 29 > switch (cob_ret) { +---- ^ + 30 case 0: /* program coming back */ + 31 +>> Error: Unexpected indicator: `t' + +run_misc.at-4618-caller.c:30.6-30.7: + 27 cob_ret = cob_call_with_exception_check (argv[1], 2, cob_argv); + 28 + 29 switch (cob_ret) { + 30 > case 0: /* program coming back */ +---- ^ + 31 + 32 /* Clean up and terminate runtime */ +>> Error: Unexpected indicator: `e' + +run_misc.at-4618-caller.c:33.6-33.7: + 30 case 0: /* program coming back */ + 31 + 32 /* Clean up and terminate runtime */ + 33 > cob_runtime_hint ("program exited with return code %d", +---- ^ + 34 cob_last_exit_code ()); + 35 cob_tidy (); +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:35.6-35.7: + 32 /* Clean up and terminate runtime */ + 33 cob_runtime_hint ("program exited with return code %d", + 34 cob_last_exit_code ()); + 35 > cob_tidy (); +---- ^ + 36 break; + 37 +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:36.6-36.7: + 33 cob_runtime_hint ("program exited with return code %d", + 34 cob_last_exit_code ()); + 35 cob_tidy (); + 36 > break; +---- ^ + 37 + 38 case 1: /* normal exit */ +>> Error: Unexpected indicator: `b' + +run_misc.at-4618-caller.c:38.6-38.7: + 35 cob_tidy (); + 36 break; + 37 + 38 > case 1: /* normal exit */ +---- ^ + 39 cob_runtime_hint ("STOP RUN with return code %d", + 40 cob_last_exit_code ()); +>> Error: Unexpected indicator: `e' + +run_misc.at-4618-caller.c:39.6-39.7: + 36 break; + 37 + 38 case 1: /* normal exit */ + 39 > cob_runtime_hint ("STOP RUN with return code %d", +---- ^ + 40 cob_last_exit_code ()); + 41 break; +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:41.6-41.7: + 38 case 1: /* normal exit */ + 39 cob_runtime_hint ("STOP RUN with return code %d", + 40 cob_last_exit_code ()); + 41 > break; +---- ^ + 42 + 43 case -1: /* error exit */ +>> Error: Unexpected indicator: `b' + +run_misc.at-4618-caller.c:43.6-43.7: + 40 cob_last_exit_code ()); + 41 break; + 42 + 43 > case -1: /* error exit */ +---- ^ + 44 cob_runtime_hint ("error exit with return code %d and error \"%s\"", + 45 cob_last_exit_code (), cob_last_runtime_error ()); +>> Error: Unexpected indicator: `e' + +run_misc.at-4618-caller.c:44.6-44.7: + 41 break; + 42 + 43 case -1: /* error exit */ + 44 > cob_runtime_hint ("error exit with return code %d and error \"%s\"", +---- ^ + 45 cob_last_exit_code (), cob_last_runtime_error ()); + 46 break; +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:46.6-46.7: + 43 case -1: /* error exit */ + 44 cob_runtime_hint ("error exit with return code %d and error \"%s\"", + 45 cob_last_exit_code (), cob_last_runtime_error ()); + 46 > break; +---- ^ + 47 + 48 case -2: /* hard error exit */ +>> Error: Unexpected indicator: `b' + +run_misc.at-4618-caller.c:48.6-48.7: + 45 cob_last_exit_code (), cob_last_runtime_error ()); + 46 break; + 47 + 48 > case -2: /* hard error exit */ +---- ^ + 49 cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", + 50 cob_last_exit_code (), cob_last_runtime_error ()); +>> Error: Unexpected indicator: `e' + +run_misc.at-4618-caller.c:49.6-49.7: + 46 break; + 47 + 48 case -2: /* hard error exit */ + 49 > cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", +---- ^ + 50 cob_last_exit_code (), cob_last_runtime_error ()); + 51 break; +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:51.6-51.7: + 48 case -2: /* hard error exit */ + 49 cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", + 50 cob_last_exit_code (), cob_last_runtime_error ()); + 51 > break; +---- ^ + 52 + 53 case -3: /* signal handler exit */ +>> Error: Unexpected indicator: `b' + +run_misc.at-4618-caller.c:53.6-53.7: + 50 cob_last_exit_code (), cob_last_runtime_error ()); + 51 break; + 52 + 53 > case -3: /* signal handler exit */ +---- ^ + 54 cob_runtime_hint ("signal handler exit with signal %d and error \"%s\"", + 55 cob_last_exit_code (), cob_last_runtime_error ()); +>> Error: Unexpected indicator: `e' + +run_misc.at-4618-caller.c:54.6-54.7: + 51 break; + 52 + 53 case -3: /* signal handler exit */ + 54 > cob_runtime_hint ("signal handler exit with signal %d and error \"%s\"", +---- ^ + 55 cob_last_exit_code (), cob_last_runtime_error ()); + 56 break; +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:56.6-56.7: + 53 case -3: /* signal handler exit */ + 54 cob_runtime_hint ("signal handler exit with signal %d and error \"%s\"", + 55 cob_last_exit_code (), cob_last_runtime_error ()); + 56 > break; +---- ^ + 57 + 58 default: +>> Error: Unexpected indicator: `b' + +run_misc.at-4618-caller.c:58.6-58.7: + 55 cob_last_exit_code (), cob_last_runtime_error ()); + 56 break; + 57 + 58 > default: +---- ^ + 59 cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " + 60 "last exit code %d, last error \"%s\"", +>> Error: Unexpected indicator: `a' + +run_misc.at-4618-caller.c:59.6-59.7: + 56 break; + 57 + 58 default: + 59 > cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " +---- ^ + 60 "last exit code %d, last error \"%s\"", + 61 cob_last_exit_code (), cob_last_runtime_error ()); +>> Error: Unexpected indicator: `c' + +run_misc.at-4618-caller.c:62.6-62.7: + 59 cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " + 60 "last exit code %d, last error \"%s\"", + 61 cob_last_exit_code (), cob_last_runtime_error ()); + 62 > break; +---- ^ + 63 } + 64 return 0; +>> Error: Unexpected indicator: `b' + +run_misc.at-4618-caller.c:64.6-64.7: + 61 cob_last_exit_code (), cob_last_runtime_error ()); + 62 break; + 63 } + 64 > return 0; +---- ^ + 65 } +>> Error: Unexpected indicator: `u' + +run_misc.at-4618-caller.c:44.71-44.72: + 41 break; + 42 + 43 case -1: /* error exit */ + 44 > cob_runtime_hint ("error exit with return code %d and error \"%s\"", +---- ^ + 45 cob_last_exit_code (), cob_last_runtime_error ()); + 46 break; +>> Error: Missing continuation of `' + +run_misc.at-4618-caller.c:49.24-49.72: + 46 break; + 47 + 48 case -2: /* hard error exit */ + 49 > cob_runtime_hint ("hard error exit with return code %d and error \"%s\"", +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 50 cob_last_exit_code (), cob_last_runtime_error ()); + 51 break; +>> Error: Missing continuation of `hard error exit with return code %d and error \' + +run_misc.at-4618-caller.c:59.24-59.72: + 56 break; + 57 + 58 default: + 59 > cob_runtime_hint ("unexpected return from cob_call_with_exception_check, " +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 60 "last exit code %d, last error \"%s\"", + 61 cob_last_exit_code (), cob_last_runtime_error ()); +>> Error: Missing continuation of `unexpected return from cob_call_with_exception_' + +run_misc.at-4618-caller.c:5.8-5.12: + 2 #include + 3 #include + 4 + 5 > #ifndef NULL +---- ^^^^ + 6 #define NULL (void*)0 + 7 #endif +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4694:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4694:0 +run_misc.at-4694-caller.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > int callee (char *, char *); +---- ^ + 6 + 7 #ifndef NULL +>> Error: Unexpected indicator: `l' + +run_misc.at-4694-caller.c:7.6-7.7: + 4 + 5 int callee (char *, char *); + 6 + 7 > #ifndef NULL +---- ^ + 8 #define NULL (void*)0 + 9 #endif +>> Error: Unexpected indicator: `f' + +run_misc.at-4694-caller.c:8.6-8.7: + 5 int callee (char *, char *); + 6 + 7 #ifndef NULL + 8 > #define NULL (void*)0 +---- ^ + 9 #endif + 10 +>> Error: Unexpected indicator: `e' + +run_misc.at-4694-caller.c:12.6-12.7: + 9 #endif + 10 + 11 int + 12 > main (int argc, char **argv) +---- ^ + 13 { + 14 cob_global *cobol_global; +>> Error: Unexpected indicator: `i' + +run_misc.at-4694-caller.c:14.6-14.7: + 11 int + 12 main (int argc, char **argv) + 13 { + 14 > cob_global *cobol_global; +---- ^ + 15 /* for storing COBOL return code */ + 16 int cob_ret; +>> Error: Unexpected indicator: `_' + +run_misc.at-4694-caller.c:15.6-15.7: + 12 main (int argc, char **argv) + 13 { + 14 cob_global *cobol_global; + 15 > /* for storing COBOL return code */ +---- ^ + 16 int cob_ret; + 17 +>> Error: Unexpected indicator: `f' + +run_misc.at-4694-caller.c:18.6-18.7: + 15 /* for storing COBOL return code */ + 16 int cob_ret; + 17 + 18 > /* initialize parameters */ +---- ^ + 19 char *p1 = "A"; + 20 +>> Error: Unexpected indicator: `i' + +run_misc.at-4694-caller.c:19.6-19.7: + 16 int cob_ret; + 17 + 18 /* initialize parameters */ + 19 > char *p1 = "A"; +---- ^ + 20 + 21 /* initialize the COBOL run-time library */ +>> Error: Unexpected indicator: `r' + +run_misc.at-4694-caller.c:21.6-21.7: + 18 /* initialize parameters */ + 19 char *p1 = "A"; + 20 + 21 > /* initialize the COBOL run-time library */ +---- ^ + 22 cob_init(argc, argv); + 23 +>> Error: Unexpected indicator: `i' + +run_misc.at-4694-caller.c:22.6-22.7: + 19 char *p1 = "A"; + 20 + 21 /* initialize the COBOL run-time library */ + 22 > cob_init(argc, argv); +---- ^ + 23 + 24 /* setup for COBOL parameter handling */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4694-caller.c:24.6-24.7: + 21 /* initialize the COBOL run-time library */ + 22 cob_init(argc, argv); + 23 + 24 > /* setup for COBOL parameter handling */ +---- ^ + 25 cobol_global = cob_get_global_ptr (); + 26 cobol_global->cob_call_params = 1; +>> Error: Unexpected indicator: `s' + +run_misc.at-4694-caller.c:25.6-25.7: + 22 cob_init(argc, argv); + 23 + 24 /* setup for COBOL parameter handling */ + 25 > cobol_global = cob_get_global_ptr (); +---- ^ + 26 cobol_global->cob_call_params = 1; + 27 +>> Error: Unexpected indicator: `o' + +run_misc.at-4694-caller.c:26.6-26.7: + 23 + 24 /* setup for COBOL parameter handling */ + 25 cobol_global = cob_get_global_ptr (); + 26 > cobol_global->cob_call_params = 1; +---- ^ + 27 + 28 /* call COBOL program */ +>> Error: Unexpected indicator: `o' + +run_misc.at-4694-caller.c:28.6-28.7: + 25 cobol_global = cob_get_global_ptr (); + 26 cobol_global->cob_call_params = 1; + 27 + 28 > /* call COBOL program */ +---- ^ + 29 cob_ret = callee (p1, NULL); + 30 +>> Error: Unexpected indicator: `c' + +run_misc.at-4694-caller.c:29.6-29.7: + 26 cobol_global->cob_call_params = 1; + 27 + 28 /* call COBOL program */ + 29 > cob_ret = callee (p1, NULL); +---- ^ + 30 + 31 /* Clean up and terminate - This does not return */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4694-caller.c:31.6-31.7: + 28 /* call COBOL program */ + 29 cob_ret = callee (p1, NULL); + 30 + 31 > /* Clean up and terminate - This does not return */ +---- ^ + 32 cob_stop_run (cob_ret); + 33 } +>> Error: Unexpected indicator: `C' + +run_misc.at-4694-caller.c:32.6-32.7: + 29 cob_ret = callee (p1, NULL); + 30 + 31 /* Clean up and terminate - This does not return */ + 32 > cob_stop_run (cob_ret); +---- ^ + 33 } +>> Error: Unexpected indicator: `_' + +run_misc.at-4694-caller.c:5.7-5.10: + 2 #include + 3 #include + 4 + 5 > int callee (char *, char *); +---- ^^^ + 6 + 7 #ifndef NULL +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4747:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4747:0 +run_misc.at-4747-caller.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > int callee (char *, char *); +---- ^ + 6 + 7 int +>> Error: Unexpected indicator: `l' + +run_misc.at-4747-caller.c:8.6-8.7: + 5 int callee (char *, char *); + 6 + 7 int + 8 > main (int argc, char **argv) +---- ^ + 9 { + 10 /* for storing COBOL return code */ +>> Error: Unexpected indicator: `i' + +run_misc.at-4747-caller.c:10.6-10.7: + 7 int + 8 main (int argc, char **argv) + 9 { + 10 > /* for storing COBOL return code */ +---- ^ + 11 int cob_ret; + 12 +>> Error: Unexpected indicator: `f' + +run_misc.at-4747-caller.c:13.6-13.7: + 10 /* for storing COBOL return code */ + 11 int cob_ret; + 12 + 13 > /* initialize parameters */ +---- ^ + 14 char *p1 = "A"; + 15 char *p2 = "FROM C"; +>> Error: Unexpected indicator: `i' + +run_misc.at-4747-caller.c:14.6-14.7: + 11 int cob_ret; + 12 + 13 /* initialize parameters */ + 14 > char *p1 = "A"; +---- ^ + 15 char *p2 = "FROM C"; + 16 +>> Error: Unexpected indicator: `r' + +run_misc.at-4747-caller.c:15.6-15.7: + 12 + 13 /* initialize parameters */ + 14 char *p1 = "A"; + 15 > char *p2 = "FROM C"; +---- ^ + 16 + 17 /* initialize the COBOL run-time library */ +>> Error: Unexpected indicator: `r' + +run_misc.at-4747-caller.c:17.6-17.7: + 14 char *p1 = "A"; + 15 char *p2 = "FROM C"; + 16 + 17 > /* initialize the COBOL run-time library */ +---- ^ + 18 cob_init (argc, argv); + 19 +>> Error: Unexpected indicator: `i' + +run_misc.at-4747-caller.c:18.6-18.7: + 15 char *p2 = "FROM C"; + 16 + 17 /* initialize the COBOL run-time library */ + 18 > cob_init (argc, argv); +---- ^ + 19 + 20 /* call COBOL program */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4747-caller.c:20.6-20.7: + 17 /* initialize the COBOL run-time library */ + 18 cob_init (argc, argv); + 19 + 20 > /* call COBOL program */ +---- ^ + 21 cob_ret = callee (p1, p2); + 22 +>> Error: Unexpected indicator: `c' + +run_misc.at-4747-caller.c:21.6-21.7: + 18 cob_init (argc, argv); + 19 + 20 /* call COBOL program */ + 21 > cob_ret = callee (p1, p2); +---- ^ + 22 + 23 /* Clean up and terminate - This does not return */ +>> Error: Unexpected indicator: `_' + +run_misc.at-4747-caller.c:23.6-23.7: + 20 /* call COBOL program */ + 21 cob_ret = callee (p1, p2); + 22 + 23 > /* Clean up and terminate - This does not return */ +---- ^ + 24 cob_stop_run (cob_ret); + 25 } +>> Error: Unexpected indicator: `C' + +run_misc.at-4747-caller.c:24.6-24.7: + 21 cob_ret = callee (p1, p2); + 22 + 23 /* Clean up and terminate - This does not return */ + 24 > cob_stop_run (cob_ret); +---- ^ + 25 } +>> Error: Unexpected indicator: `_' + +run_misc.at-4747-caller.c:5.7-5.10: + 2 #include + 3 #include + 4 + 5 > int callee (char *, char *); +---- ^^^ + 6 + 7 int +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4808:0 +run_misc.at-4808-cprog.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 cprog (void *cb) + 7 { +>> Error: Unexpected indicator: `T' + +run_misc.at-4808-cprog.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > cprog (void *cb) +---- ^ + 7 { + 8 char *p1; +>> Error: Unexpected indicator: `(' + +run_misc.at-4808-cprog.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 cprog (void *cb) + 7 { + 8 > char *p1; +---- ^ + 9 int p2 = 42; + 10 char *p3 = "CALLBACK"; +>> Error: Unexpected indicator: `r' + +run_misc.at-4808-cprog.c:10.6-10.7: + 7 { + 8 char *p1; + 9 int p2 = 42; + 10 > char *p3 = "CALLBACK"; +---- ^ + 11 + 12 p1 = p3; +>> Error: Unexpected indicator: `r' + +run_misc.at-4808-cprog.c:12.6-12.7: + 9 int p2 = 42; + 10 char *p3 = "CALLBACK"; + 11 + 12 > p1 = p3; +---- ^ + 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); + 14 return 0; +>> Error: Unexpected indicator: `=' + +run_misc.at-4808-cprog.c:13.6-13.7: + 10 char *p3 = "CALLBACK"; + 11 + 12 p1 = p3; + 13 > ((int (*)(char *, int, char *))cb)(p1, p2, p3); +---- ^ + 14 return 0; + 15 } +>> Error: Unexpected indicator: `n' + +run_misc.at-4808-cprog.c:14.6-14.7: + 11 + 12 p1 = p3; + 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); + 14 > return 0; +---- ^ + 15 } +>> Error: Unexpected indicator: `u' + +run_misc.at-4808-cprog.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 cprog (void *cb) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4808:0 +run_misc.at-4808-prog.cob:8.21-8.26: + 5 WORKING-STORAGE SECTION. + 6 01 CB USAGE PROGRAM-POINTER. + 7 PROCEDURE DIVISION. + 8 > SET CB TO ENTRY "callback" +---- ^^^^^ + 9 CALL STATIC "cprog" USING BY VALUE CB + 10 END-CALL +>> Error: Invalid syntax + +run_misc.at-4808-prog.cob:9.23-9.30: + 6 01 CB USAGE PROGRAM-POINTER. + 7 PROCEDURE DIVISION. + 8 SET CB TO ENTRY "callback" + 9 > CALL STATIC "cprog" USING BY VALUE CB +---- ^^^^^^^ + 10 END-CALL + 11 EXIT PROGRAM. +>> Error: Invalid syntax + +run_misc.at-4808-prog.cob:19.27-19.28: + 16 ENVIRONMENT DIVISION. + 17 CONFIGURATION SECTION. + 18 SPECIAL-NAMES. + 19 > CALL-CONVENTION 0 IS EXTERN. +---- ^ + 20 DATA DIVISION. + 21 LINKAGE SECTION. +>> Error: Invalid syntax + +run_misc.at-4808-prog.cob:25.32: + 22 01 P1 USAGE POINTER. + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 > PROCEDURE DIVISION EXTERN USING +---- ^ + 26 BY VALUE P1 P2 BY REFERENCE P3. + 27 IF P1 NOT EQUAL ADDRESS OF P3 +>> Hint: Missing . + +run_misc.at-4808-prog.cob:25.33-25.39: + 22 01 P1 USAGE POINTER. + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 > PROCEDURE DIVISION EXTERN USING +---- ^^^^^^ + 26 BY VALUE P1 P2 BY REFERENCE P3. + 27 IF P1 NOT EQUAL ADDRESS OF P3 +>> Error: Invalid syntax + +run_misc.at-4808-prog.cob:25.39: + 22 01 P1 USAGE POINTER. + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 > PROCEDURE DIVISION EXTERN USING +---- ^ + 26 BY VALUE P1 P2 BY REFERENCE P3. + 27 IF P1 NOT EQUAL ADDRESS OF P3 +>> Hint: Missing . + +run_misc.at-4808-prog.cob:25.40-25.45: + 22 01 P1 USAGE POINTER. + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 > PROCEDURE DIVISION EXTERN USING +---- ^^^^^ + 26 BY VALUE P1 P2 BY REFERENCE P3. + 27 IF P1 NOT EQUAL ADDRESS OF P3 +>> Warning: Invalid syntax + +run_misc.at-4808-prog.cob:26.35: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN USING + 26 > BY VALUE P1 P2 BY REFERENCE P3. +---- ^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY "P1 != ADDRESS OF P3: " P1. +>> Hint: Missing . + +run_misc.at-4808-prog.cob:26.36-26.38: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN USING + 26 > BY VALUE P1 P2 BY REFERENCE P3. +---- ^^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY "P1 != ADDRESS OF P3: " P1. +>> Warning: Invalid syntax + +run_misc.at-4808-prog.cob:26.38: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN USING + 26 > BY VALUE P1 P2 BY REFERENCE P3. +---- ^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY "P1 != ADDRESS OF P3: " P1. +>> Hint: Missing . + +run_misc.at-4808-prog.cob:26.39-26.41: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN USING + 26 > BY VALUE P1 P2 BY REFERENCE P3. +---- ^^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY "P1 != ADDRESS OF P3: " P1. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4884:0 +run_misc.at-4884-cprog.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 cprog (void *cb) + 7 { +>> Error: Unexpected indicator: `T' + +run_misc.at-4884-cprog.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > cprog (void *cb) +---- ^ + 7 { + 8 char *p1; +>> Error: Unexpected indicator: `(' + +run_misc.at-4884-cprog.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 cprog (void *cb) + 7 { + 8 > char *p1; +---- ^ + 9 int p2 = 42; + 10 char *p3 = "CALLBACK"; +>> Error: Unexpected indicator: `r' + +run_misc.at-4884-cprog.c:10.6-10.7: + 7 { + 8 char *p1; + 9 int p2 = 42; + 10 > char *p3 = "CALLBACK"; +---- ^ + 11 + 12 p1 = p3; +>> Error: Unexpected indicator: `r' + +run_misc.at-4884-cprog.c:12.6-12.7: + 9 int p2 = 42; + 10 char *p3 = "CALLBACK"; + 11 + 12 > p1 = p3; +---- ^ + 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); + 14 return 0; +>> Error: Unexpected indicator: `=' + +run_misc.at-4884-cprog.c:13.6-13.7: + 10 char *p3 = "CALLBACK"; + 11 + 12 p1 = p3; + 13 > ((int (*)(char *, int, char *))cb)(p1, p2, p3); +---- ^ + 14 return 0; + 15 } +>> Error: Unexpected indicator: `n' + +run_misc.at-4884-cprog.c:14.6-14.7: + 11 + 12 p1 = p3; + 13 ((int (*)(char *, int, char *))cb)(p1, p2, p3); + 14 > return 0; +---- ^ + 15 } +>> Error: Unexpected indicator: `u' + +run_misc.at-4884-cprog.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 cprog (void *cb) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4884:0 +run_misc.at-4884-prog.cob:10.21-10.26: + 7 WORKING-STORAGE SECTION. + 8 01 CB USAGE PROGRAM-POINTER. + 9 PROCEDURE DIVISION. + 10 > SET CB TO ENTRY "callback" +---- ^^^^^ + 11 CALL STATIC "cprog" USING BY VALUE CB + 12 END-CALL +>> Error: Invalid syntax + +run_misc.at-4884-prog.cob:11.23-11.30: + 8 01 CB USAGE PROGRAM-POINTER. + 9 PROCEDURE DIVISION. + 10 SET CB TO ENTRY "callback" + 11 > CALL STATIC "cprog" USING BY VALUE CB +---- ^^^^^^^ + 12 END-CALL + 13 EXIT PROGRAM. +>> Error: Invalid syntax + +run_misc.at-4884-prog.cob:19.27: + 16 IDENTIFICATION DIVISION. + 17 PROGRAM-ID. callback. + 18 OPTIONS. + 19 > ENTRY-CONVENTION EXTERN. +---- ^ + 20 DATA DIVISION. + 21 LINKAGE SECTION. +>> Hint: Missing COBOL + +run_misc.at-4884-prog.cob:19.28-19.34: + 16 IDENTIFICATION DIVISION. + 17 PROGRAM-ID. callback. + 18 OPTIONS. + 19 > ENTRY-CONVENTION EXTERN. +---- ^^^^^^ + 20 DATA DIVISION. + 21 LINKAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4965:0 +run_misc.at-4965-prog2.cob:8.21-8.26: + 5 WORKING-STORAGE SECTION. + 6 01 CB USAGE PROGRAM-POINTER. + 7 PROCEDURE DIVISION. + 8 > SET CB TO ENTRY "callback" +---- ^^^^^ + 9 CALL STATIC "cprog" USING BY VALUE CB + 10 END-CALL +>> Error: Invalid syntax + +run_misc.at-4965-prog2.cob:9.23-9.30: + 6 01 CB USAGE PROGRAM-POINTER. + 7 PROCEDURE DIVISION. + 8 SET CB TO ENTRY "callback" + 9 > CALL STATIC "cprog" USING BY VALUE CB +---- ^^^^^^^ + 10 END-CALL + 11 EXIT PROGRAM. +>> Error: Invalid syntax + +run_misc.at-4965-prog2.cob:21.32: + 18 01 P1 USAGE POINTER. + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 > PROCEDURE DIVISION WITH C LINKAGE +---- ^ + 22 USING BY VALUE P1 P2 BY REFERENCE P3. + 23 IF P1 NOT EQUAL ADDRESS OF P3 +>> Hint: Missing . + +run_misc.at-4965-prog2.cob:21.33-21.37: + 18 01 P1 USAGE POINTER. + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 > PROCEDURE DIVISION WITH C LINKAGE +---- ^^^^ + 22 USING BY VALUE P1 P2 BY REFERENCE P3. + 23 IF P1 NOT EQUAL ADDRESS OF P3 +>> Error: Invalid syntax + +run_misc.at-4965-prog2.cob:21.39: + 18 01 P1 USAGE POINTER. + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 > PROCEDURE DIVISION WITH C LINKAGE +---- ^ + 22 USING BY VALUE P1 P2 BY REFERENCE P3. + 23 IF P1 NOT EQUAL ADDRESS OF P3 +>> Hint: Missing . + +run_misc.at-4965-prog2.cob:21.40-21.47: + 18 01 P1 USAGE POINTER. + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 > PROCEDURE DIVISION WITH C LINKAGE +---- ^^^^^^^ + 22 USING BY VALUE P1 P2 BY REFERENCE P3. + 23 IF P1 NOT EQUAL ADDRESS OF P3 +>> Warning: Invalid syntax + +run_misc.at-4965-prog2.cob:22.41: + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 PROCEDURE DIVISION WITH C LINKAGE + 22 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^ + 23 IF P1 NOT EQUAL ADDRESS OF P3 + 24 DISPLAY P1 +>> Hint: Missing . + +run_misc.at-4965-prog2.cob:22.42-22.44: + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 PROCEDURE DIVISION WITH C LINKAGE + 22 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^^ + 23 IF P1 NOT EQUAL ADDRESS OF P3 + 24 DISPLAY P1 +>> Warning: Invalid syntax + +run_misc.at-4965-prog2.cob:22.44: + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 PROCEDURE DIVISION WITH C LINKAGE + 22 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^ + 23 IF P1 NOT EQUAL ADDRESS OF P3 + 24 DISPLAY P1 +>> Hint: Missing . + +run_misc.at-4965-prog2.cob:22.45-22.47: + 19 01 P2 USAGE BINARY-LONG. + 20 01 P3 PIC X(8). + 21 PROCEDURE DIVISION WITH C LINKAGE + 22 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^^ + 23 IF P1 NOT EQUAL ADDRESS OF P3 + 24 DISPLAY P1 +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:4968:0 +run_misc.at-4968-prog3.cob:8.21-8.26: + 5 WORKING-STORAGE SECTION. + 6 01 CB USAGE PROGRAM-POINTER. + 7 PROCEDURE DIVISION. + 8 > SET CB TO ENTRY "callback" +---- ^^^^^ + 9 CALL STATIC "cprog" USING BY VALUE CB + 10 END-CALL +>> Error: Invalid syntax + +run_misc.at-4968-prog3.cob:9.23-9.30: + 6 01 CB USAGE PROGRAM-POINTER. + 7 PROCEDURE DIVISION. + 8 SET CB TO ENTRY "callback" + 9 > CALL STATIC "cprog" USING BY VALUE CB +---- ^^^^^^^ + 10 END-CALL + 11 EXIT PROGRAM. +>> Error: Invalid syntax + +run_misc.at-4968-prog3.cob:19.27-19.28: + 16 ENVIRONMENT DIVISION. + 17 CONFIGURATION SECTION. + 18 SPECIAL-NAMES. + 19 > CALL-CONVENTION 0 IS EXTERN. +---- ^ + 20 DATA DIVISION. + 21 LINKAGE SECTION. +>> Error: Invalid syntax + +run_misc.at-4968-prog3.cob:25.32: + 22 01 P1 USAGE POINTER. + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 > PROCEDURE DIVISION EXTERN +---- ^ + 26 USING BY VALUE P1 P2 BY REFERENCE P3. + 27 IF P1 NOT EQUAL ADDRESS OF P3 +>> Hint: Missing . + +run_misc.at-4968-prog3.cob:25.33-25.39: + 22 01 P1 USAGE POINTER. + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 > PROCEDURE DIVISION EXTERN +---- ^^^^^^ + 26 USING BY VALUE P1 P2 BY REFERENCE P3. + 27 IF P1 NOT EQUAL ADDRESS OF P3 +>> Error: Invalid syntax + +run_misc.at-4968-prog3.cob:25.39: + 22 01 P1 USAGE POINTER. + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 > PROCEDURE DIVISION EXTERN +---- ^ + 26 USING BY VALUE P1 P2 BY REFERENCE P3. + 27 IF P1 NOT EQUAL ADDRESS OF P3 +>> Hint: Missing . + +run_misc.at-4968-prog3.cob:26.24-26.29: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN + 26 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^^^^^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY P1 +>> Warning: Invalid syntax + +run_misc.at-4968-prog3.cob:26.41: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN + 26 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY P1 +>> Hint: Missing . + +run_misc.at-4968-prog3.cob:26.42-26.44: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN + 26 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY P1 +>> Warning: Invalid syntax + +run_misc.at-4968-prog3.cob:26.44: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN + 26 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY P1 +>> Hint: Missing . + +run_misc.at-4968-prog3.cob:26.45-26.47: + 23 01 P2 USAGE BINARY-LONG. + 24 01 P3 PIC X(8). + 25 PROCEDURE DIVISION EXTERN + 26 > USING BY VALUE P1 P2 BY REFERENCE P3. +---- ^^ + 27 IF P1 NOT EQUAL ADDRESS OF P3 + 28 DISPLAY P1 +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5011:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5011:0 +run_misc.at-5011-caller.c:2.6-2.7: + 1 + 2 > int callee (char *, char *); +---- ^ + 3 + 4 int +>> Error: Unexpected indicator: `l' + +run_misc.at-5011-caller.c:5.6-5.7: + 2 int callee (char *, char *); + 3 + 4 int + 5 > main (int argc, char **argv) +---- ^ + 6 { + 7 /* initialize parameters */ +>> Error: Unexpected indicator: `i' + +run_misc.at-5011-caller.c:7.6-7.7: + 4 int + 5 main (int argc, char **argv) + 6 { + 7 > /* initialize parameters */ +---- ^ + 8 char *p1 = "A"; + 9 char *p2 = "FROM C"; +>> Error: Unexpected indicator: `i' + +run_misc.at-5011-caller.c:8.6-8.7: + 5 main (int argc, char **argv) + 6 { + 7 /* initialize parameters */ + 8 > char *p1 = "A"; +---- ^ + 9 char *p2 = "FROM C"; + 10 +>> Error: Unexpected indicator: `r' + +run_misc.at-5011-caller.c:9.6-9.7: + 6 { + 7 /* initialize parameters */ + 8 char *p1 = "A"; + 9 > char *p2 = "FROM C"; +---- ^ + 10 + 11 /* call COBOL program (initialization missing) +>> Error: Unexpected indicator: `r' + +run_misc.at-5011-caller.c:11.6-11.7: + 8 char *p1 = "A"; + 9 char *p2 = "FROM C"; + 10 + 11 > /* call COBOL program (initialization missing) +---- ^ + 12 note: COBOL program terminates the program by STOP RUN */ + 13 (void)callee (p1, p2); +>> Error: Unexpected indicator: `c' + +run_misc.at-5011-caller.c:12.6-12.7: + 9 char *p2 = "FROM C"; + 10 + 11 /* call COBOL program (initialization missing) + 12 > note: COBOL program terminates the program by STOP RUN */ +---- ^ + 13 (void)callee (p1, p2); + 14 } +>> Error: Unexpected indicator: `n' + +run_misc.at-5011-caller.c:13.6-13.7: + 10 + 11 /* call COBOL program (initialization missing) + 12 note: COBOL program terminates the program by STOP RUN */ + 13 > (void)callee (p1, p2); +---- ^ + 14 } +>> Error: Unexpected indicator: `i' + +run_misc.at-5011-caller.c:2.7-2.10: + 1 + 2 > int callee (char *, char *); +---- ^^^ + 3 + 4 int +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5072:0 +run_misc.at-5072-callee.c:7.6-7.7: + 4 int + 5 callee (char *p1, char *p2) + 6 { + 7 > if (p1[0] == 'A') { +---- ^ + 8 p1[0] = 'B'; + 9 } +>> Error: Unexpected indicator: `(' + +run_misc.at-5072-callee.c:8.6-8.7: + 5 callee (char *p1, char *p2) + 6 { + 7 if (p1[0] == 'A') { + 8 > p1[0] = 'B'; +---- ^ + 9 } + 10 memcpy (p2, "FROM C", 6); +>> Error: Unexpected indicator: `p' + +run_misc.at-5072-callee.c:10.6-10.7: + 7 if (p1[0] == 'A') { + 8 p1[0] = 'B'; + 9 } + 10 > memcpy (p2, "FROM C", 6); +---- ^ + 11 + 12 return 3; +>> Error: Unexpected indicator: `c' + +run_misc.at-5072-callee.c:12.6-12.7: + 9 } + 10 memcpy (p2, "FROM C", 6); + 11 + 12 > return 3; +---- ^ + 13 } +>> Error: Unexpected indicator: `u' + +run_misc.at-5072-callee.c:7.13-14.0: + 4 int + 5 callee (char *p1, char *p2) + 6 { + 7 > if (p1[0] == 'A') { +---- + 8 > p1[0] = 'B'; +---- ^^^^^^^^^^^^^^^^^^^ + 9 > } +---- ^^^^^ + 10 > memcpy (p2, "FROM C", 6); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > +---- ^ + 12 > return 3; +---- ^^^^^^^^^^^^^ + 13 > } +---- ^^ +>> Error: Unterminated pseudotext + +run_misc.at-5072-callee.c:5.7-5.12: + 2 #include + 3 + 4 int + 5 > callee (char *p1, char *p2) +---- ^^^^^ + 6 { + 7 if (p1[0] == 'A') { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5072:0 +run_misc.at-5072-caller.cob:10.23-10.31: + 7 01 P2 PIC X(7). + 8 77 P2-COB PIC X(7). + 9 PROCEDURE DIVISION. + 10 > CALL STATIC 'callee' USING P1 P2 +---- ^^^^^^^^ + 11 IF P1 NOT EQUAL "B" + 12 DISPLAY 'NOT A: ' P1 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5110:0 +run_misc.at-5110-callee.cob:10.16-10.22: + 7 LINKAGE SECTION. + 8 01 P1 PIC X ANY LENGTH. + 9 PROCEDURE DIVISION USING P1. + 10 > MOVE LENGTH OF P1 TO P2. +---- ^^^^^^ + 11 IF P2 NOT = 6 + 12 DISPLAY P2. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5111:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5150:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5151:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5191:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5238:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5263:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5294:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5295:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5336:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5335:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5357:0 +run_misc.at-5357-prog.cob:7.38: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Hint: Missing + +run_misc.at-5357-prog.cob:7.38-7.39: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5375:0 +run_misc.at-5375-prog.cob:7.37: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > STOP RUN WITH ERROR STATUS. +---- ^ +>> Hint: Missing + +run_misc.at-5375-prog.cob:7.37-7.38: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > STOP RUN WITH ERROR STATUS. +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5398:0 +run_misc.at-5398-prog.cob:12.15: + 9 IDENTIFICATION DIVISION. + 10 PROGRAM-ID. prog2. + 11 PROCEDURE DIVISION. + 12 > STOP ERROR. +---- ^ +>> Hint: Missing + +run_misc.at-5398-prog.cob:12.16-12.21: + 9 IDENTIFICATION DIVISION. + 10 PROGRAM-ID. prog2. + 11 PROCEDURE DIVISION. + 12 > STOP ERROR. +---- ^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5433:0 +run_misc.at-5433-prog.cob:7.29-7.35: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 > ALPHABET A-EBC IS EBCDIC +---- ^^^^^^ + 8 ALPHABET A-ASC IS ASCII + 9 SYMBOLIC Z-EBC IS 241 IN A-EBC +>> Error: Invalid syntax + +run_misc.at-5433-prog.cob:7.35: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 > ALPHABET A-EBC IS EBCDIC +---- ^ + 8 ALPHABET A-ASC IS ASCII + 9 SYMBOLIC Z-EBC IS 241 IN A-EBC +>> Hint: Missing IS + +run_misc.at-5433-prog.cob:8.11-8.19: + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 ALPHABET A-EBC IS EBCDIC + 8 > ALPHABET A-ASC IS ASCII +---- ^^^^^^^^ + 9 SYMBOLIC Z-EBC IS 241 IN A-EBC + 10 SYMBOLIC Z-ASC IS 49 IN A-ASC +>> Error: Invalid syntax + +run_misc.at-5433-prog.cob:8.29-8.34: + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 ALPHABET A-EBC IS EBCDIC + 8 > ALPHABET A-ASC IS ASCII +---- ^^^^^ + 9 SYMBOLIC Z-EBC IS 241 IN A-EBC + 10 SYMBOLIC Z-ASC IS 49 IN A-ASC +>> Error: Invalid syntax + +run_misc.at-5433-prog.cob:8.34: + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 ALPHABET A-EBC IS EBCDIC + 8 > ALPHABET A-ASC IS ASCII +---- ^ + 9 SYMBOLIC Z-EBC IS 241 IN A-EBC + 10 SYMBOLIC Z-ASC IS 49 IN A-ASC +>> Hint: Missing IS + +run_misc.at-5433-prog.cob:9.11-9.19: + 6 SPECIAL-NAMES. + 7 ALPHABET A-EBC IS EBCDIC + 8 ALPHABET A-ASC IS ASCII + 9 > SYMBOLIC Z-EBC IS 241 IN A-EBC +---- ^^^^^^^^ + 10 SYMBOLIC Z-ASC IS 49 IN A-ASC + 11 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5474:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:5990:0 +run_misc.at-5990-prog.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. 'prog'. +---- ^ + 4 ENVIRONMENT DIVISION. + 5 DATA DIVISION. +>> Hint: Missing + +run_misc.at-5990-prog.cob:3.19-3.25: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. 'prog'. +---- ^^^^^^ + 4 ENVIRONMENT DIVISION. + 5 DATA DIVISION. +>> Error: Invalid syntax + +run_misc.at-5990-prog.cob:8.27-8.40: + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 * + 8 > 77 BCL-A BINARY-C-LONG VALUE 1. +---- ^^^^^^^^^^^^^ + 9 77 BCL-B BINARY-C-LONG VALUE 10. + 10 77 BCL-RES BINARY-C-LONG. +>> Error: Invalid syntax + +run_misc.at-5990-prog.cob:9.27-9.40: + 6 WORKING-STORAGE SECTION. + 7 * + 8 77 BCL-A BINARY-C-LONG VALUE 1. + 9 > 77 BCL-B BINARY-C-LONG VALUE 10. +---- ^^^^^^^^^^^^^ + 10 77 BCL-RES BINARY-C-LONG. + 11 * +>> Error: Invalid syntax + +run_misc.at-5990-prog.cob:10.27-10.40: + 7 * + 8 77 BCL-A BINARY-C-LONG VALUE 1. + 9 77 BCL-B BINARY-C-LONG VALUE 10. + 10 > 77 BCL-RES BINARY-C-LONG. +---- ^^^^^^^^^^^^^ + 11 * + 12 77 BC-A BINARY-CHAR VALUE 1. +>> Error: Invalid syntax + +run_misc.at-5990-prog.cob:93.7-93.34: + 90 MAIN. + 91 * Test with DISPLAY on error + 92 PERFORM DO-CHECK. + 93 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 94 SET NO-DISP TO TRUE + 95 * some performance checks on the way... +>> Error: Malformed or unknown compiler directive + +run_misc.at-5990-prog.cob:97.7-97.16: + 94 SET NO-DISP TO TRUE + 95 * some performance checks on the way... + 96 PERFORM DO-CHECK 20000 TIMES. + 97 > >> END-IF +---- ^^^^^^^^^ + 98 GOBACK. + 99 +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6479:0 +run_misc.at-6479-prog.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. 'prog'. +---- ^ + 4 ENVIRONMENT DIVISION. + 5 DATA DIVISION. +>> Hint: Missing + +run_misc.at-6479-prog.cob:3.19-3.25: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. 'prog'. +---- ^^^^^^ + 4 ENVIRONMENT DIVISION. + 5 DATA DIVISION. +>> Error: Invalid syntax + +run_misc.at-6479-prog.cob:8.27-8.40: + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 * + 8 > 77 BCL-A BINARY-C-LONG VALUE 1.0. +---- ^^^^^^^^^^^^^ + 9 77 BCL-B BINARY-C-LONG VALUE 10.0. + 10 77 BCL-RES BINARY-C-LONG. +>> Error: Invalid syntax + +run_misc.at-6479-prog.cob:9.27-9.40: + 6 WORKING-STORAGE SECTION. + 7 * + 8 77 BCL-A BINARY-C-LONG VALUE 1.0. + 9 > 77 BCL-B BINARY-C-LONG VALUE 10.0. +---- ^^^^^^^^^^^^^ + 10 77 BCL-RES BINARY-C-LONG. + 11 * +>> Error: Invalid syntax + +run_misc.at-6479-prog.cob:10.27-10.40: + 7 * + 8 77 BCL-A BINARY-C-LONG VALUE 1.0. + 9 77 BCL-B BINARY-C-LONG VALUE 10.0. + 10 > 77 BCL-RES BINARY-C-LONG. +---- ^^^^^^^^^^^^^ + 11 * + 12 77 BC-A BINARY-CHAR VALUE 1.0. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6528:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6982:0 +run_misc.at-6982-callee.cob:11.11-11.17: + 8 * var names MUST BE IN LOWER CASE (!) + 9 * + 10 77 const PIC X. + 11 > 77 double PIC X. +---- ^^^^^^ + 12 77 float PIC X. + 13 77 int PIC X. +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:12.11-12.16: + 9 * + 10 77 const PIC X. + 11 77 double PIC X. + 12 > 77 float PIC X. +---- ^^^^^ + 13 77 int PIC X. + 14 77 short PIC X. +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:25.11-25.19: + 22 77 goto PIC X. + 23 77 register PIC X. + 24 77 sizeof PIC X. + 25 > 77 volatile PIC X. +---- ^^^^^^^^ + 26 77 char PIC X. + 27 77 do PIC X. +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:34.33-34.39: + 31 77 while PIC X. + 32 PROCEDURE DIVISION USING + 33 const + 34 > double +---- ^^^^^^ + 35 float + 36 int +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:48.33-48.41: + 45 goto + 46 register + 47 sizeof + 48 > volatile +---- ^^^^^^^^ + 49 char + 50 do +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:57.15-57.21: + 54 while + 55 . + 56 IF (const NOT = "A") OR + 57 > (double NOT = "B") OR +---- ^^^^^^ + 58 (float NOT = "C") OR + 59 (int NOT = "D") OR +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:57.46: + 54 while + 55 . + 56 IF (const NOT = "A") OR + 57 > (double NOT = "B") OR +---- ^ + 58 (float NOT = "C") OR + 59 (int NOT = "D") OR +>> Hint: Missing + +run_misc.at-6982-callee.cob:57.47-57.48: + 54 while + 55 . + 56 IF (const NOT = "A") OR + 57 > (double NOT = "B") OR +---- ^ + 58 (float NOT = "C") OR + 59 (int NOT = "D") OR +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:58.15-58.20: + 55 . + 56 IF (const NOT = "A") OR + 57 (double NOT = "B") OR + 58 > (float NOT = "C") OR +---- ^^^^^ + 59 (int NOT = "D") OR + 60 (short NOT = "E") OR +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:58.46: + 55 . + 56 IF (const NOT = "A") OR + 57 (double NOT = "B") OR + 58 > (float NOT = "C") OR +---- ^ + 59 (int NOT = "D") OR + 60 (short NOT = "E") OR +>> Hint: Missing + +run_misc.at-6982-callee.cob:58.47-58.48: + 55 . + 56 IF (const NOT = "A") OR + 57 (double NOT = "B") OR + 58 > (float NOT = "C") OR +---- ^ + 59 (int NOT = "D") OR + 60 (short NOT = "E") OR +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:71.15-71.23: + 68 (goto NOT = "M") OR + 69 (register NOT = "N") OR + 70 (sizeof NOT = "O") OR + 71 > (volatile NOT = "P") OR +---- ^^^^^^^^ + 72 (char NOT = "Q") OR + 73 (do NOT = "R") OR +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:71.46: + 68 (goto NOT = "M") OR + 69 (register NOT = "N") OR + 70 (sizeof NOT = "O") OR + 71 > (volatile NOT = "P") OR +---- ^ + 72 (char NOT = "Q") OR + 73 (do NOT = "R") OR +>> Hint: Missing + +run_misc.at-6982-callee.cob:71.47-71.48: + 68 (goto NOT = "M") OR + 69 (register NOT = "N") OR + 70 (sizeof NOT = "O") OR + 71 > (volatile NOT = "P") OR +---- ^ + 72 (char NOT = "Q") OR + 73 (do NOT = "R") OR +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:79.17-79.21: + 76 (union NOT = "U") OR + 77 (while NOT = "V") + 78 DISPLAY "At least one var has wrong content!". + 79 > MOVE x'FF' TO const +---- ^^^^ + 80 double + 81 float +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:80.33-80.39: + 77 (while NOT = "V") + 78 DISPLAY "At least one var has wrong content!". + 79 MOVE x'FF' TO const + 80 > double +---- ^^^^^^ + 81 float + 82 int +>> Error: Invalid syntax + +run_misc.at-6982-callee.cob:94.33-94.41: + 91 goto + 92 register + 93 sizeof + 94 > volatile +---- ^^^^^^^^ + 95 char + 96 do +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6983:0 +run_misc.at-6983-callee2.cob:17.11-17.14: + 14 77 try PIC X. + 15 77 bool PIC X. + 16 77 explicit PIC X. + 17 > 77 new PIC X. +---- ^^^ + 18 77 static_cast PIC X. + 19 77 typeid PIC X. +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:45.11-45.14: + 42 77 xor_eq PIC X. + 43 77 and_eq PIC X. + 44 77 bitor PIC X. + 45 > 77 xor PIC X. +---- ^^^ + 46 PROCEDURE DIVISION USING + 47 asm +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:54.33-54.36: + 51 try + 52 bool + 53 explicit + 54 > new +---- ^^^ + 55 static_cast + 56 typeid +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:79.33-79.36: + 76 xor_eq + 77 and_eq + 78 bitor + 79 > xor +---- ^^^ + 80 . + 81 IF (asm NOT = "W") OR +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:88.15-88.18: + 85 (try NOT = "a") OR + 86 (bool NOT = "b") OR + 87 (explicit NOT = "c") OR + 88 > (new NOT = "d") OR +---- ^^^ + 89 (static_cast NOT = "e") OR + 90 (typeid NOT = "f") OR +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:88.46: + 85 (try NOT = "a") OR + 86 (bool NOT = "b") OR + 87 (explicit NOT = "c") OR + 88 > (new NOT = "d") OR +---- ^ + 89 (static_cast NOT = "e") OR + 90 (typeid NOT = "f") OR +>> Hint: Missing + +run_misc.at-6983-callee2.cob:88.47-88.48: + 85 (try NOT = "a") OR + 86 (bool NOT = "b") OR + 87 (explicit NOT = "c") OR + 88 > (new NOT = "d") OR +---- ^ + 89 (static_cast NOT = "e") OR + 90 (typeid NOT = "f") OR +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:113.15-113.18: + 110 (xor_eq NOT = "z") OR + 111 (and_eq NOT = "0") OR + 112 (bitor NOT = "1") OR + 113 > (xor NOT = "2") +---- ^^^ + 114 DISPLAY "At least one var has wrong content!". + 115 MOVE x'FF' TO asm +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:113.46: + 110 (xor_eq NOT = "z") OR + 111 (and_eq NOT = "0") OR + 112 (bitor NOT = "1") OR + 113 > (xor NOT = "2") +---- ^ + 114 DISPLAY "At least one var has wrong content!". + 115 MOVE x'FF' TO asm +>> Hint: Missing + +run_misc.at-6983-callee2.cob:113.47-113.48: + 110 (xor_eq NOT = "z") OR + 111 (and_eq NOT = "0") OR + 112 (bitor NOT = "1") OR + 113 > (xor NOT = "2") +---- ^ + 114 DISPLAY "At least one var has wrong content!". + 115 MOVE x'FF' TO asm +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:115.17-115.21: + 112 (bitor NOT = "1") OR + 113 (xor NOT = "2") + 114 DISPLAY "At least one var has wrong content!". + 115 > MOVE x'FF' TO asm +---- ^^^^ + 116 dynamic_cast + 117 namespace +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:122.33-122.36: + 119 try + 120 bool + 121 explicit + 122 > new +---- ^^^ + 123 static_cast + 124 typeid +>> Error: Invalid syntax + +run_misc.at-6983-callee2.cob:147.33-147.36: + 144 xor_eq + 145 and_eq + 146 bitor + 147 > xor +---- ^^^ + 148 . + 149 EXIT PROGRAM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:6984:0 +run_misc.at-6984-caller.cob:11.11-11.17: + 8 * var names MUST BE IN LOWER CASE (!) + 9 * + 10 77 const PIC X VALUE "A". + 11 > 77 double PIC X VALUE "B". +---- ^^^^^^ + 12 77 float PIC X VALUE "C". + 13 77 int PIC X VALUE "D". +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:12.11-12.16: + 9 * + 10 77 const PIC X VALUE "A". + 11 77 double PIC X VALUE "B". + 12 > 77 float PIC X VALUE "C". +---- ^^^^^ + 13 77 int PIC X VALUE "D". + 14 77 short PIC X VALUE "E". +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:25.11-25.19: + 22 77 goto PIC X VALUE "M". + 23 77 register PIC X VALUE "N". + 24 77 sizeof PIC X VALUE "O". + 25 > 77 volatile PIC X VALUE "P". +---- ^^^^^^^^ + 26 77 char PIC X VALUE "Q". + 27 77 do PIC X VALUE "R". +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:43.11-43.14: + 40 77 try PIC X VALUE "a". + 41 77 bool PIC X VALUE "b". + 42 77 explicit PIC X VALUE "c". + 43 > 77 new PIC X VALUE "d". +---- ^^^ + 44 77 static_cast PIC X VALUE "e". + 45 77 typeid PIC X VALUE "f". +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:72.11-72.14: + 69 77 xor_eq PIC X VALUE "z". + 70 77 and_eq PIC X VALUE "0". + 71 77 bitor PIC X VALUE "1". + 72 > 77 xor PIC X VALUE "2". +---- ^^^ + 73 * + 74 PROCEDURE DIVISION. +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:76.33-76.39: + 73 * + 74 PROCEDURE DIVISION. + 75 CALL "callee" USING const + 76 > double +---- ^^^^^^ + 77 float + 78 int +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:90.33-90.41: + 87 goto + 88 register + 89 sizeof + 90 > volatile +---- ^^^^^^^^ + 91 char + 92 do +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:105.33-105.36: + 102 try + 103 bool + 104 explicit + 105 > new +---- ^^^ + 106 static_cast + 107 typeid +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:130.33-130.36: + 127 xor_eq + 128 and_eq + 129 bitor + 130 > xor +---- ^^^ + 131 END-CALL. + 132 MOVE x'00' TO const +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:132.17-132.21: + 129 bitor + 130 xor + 131 END-CALL. + 132 > MOVE x'00' TO const +---- ^^^^ + 133 double + 134 float +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:133.33-133.39: + 130 xor + 131 END-CALL. + 132 MOVE x'00' TO const + 133 > double +---- ^^^^^^ + 134 float + 135 int +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:147.33-147.41: + 144 goto + 145 register + 146 sizeof + 147 > volatile +---- ^^^^^^^^ + 148 char + 149 do +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:161.33-161.36: + 158 try + 159 bool + 160 explicit + 161 > new +---- ^^^ + 162 static_cast + 163 typeid +>> Error: Invalid syntax + +run_misc.at-6984-caller.cob:186.33-186.36: + 183 xor_eq + 184 and_eq + 185 bitor + 186 > xor +---- ^^^ + 187 . + 188 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7012:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7093:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7162:0 +run_misc.at-7162-calldyn.c:4.6-4.7: + 1 + 2 #include + 3 + 4 > /* wrapper function as C functions are not +---- ^ + 5 accessible without explicit loading on all systems */ + 6 COB_EXT_EXPORT char * +>> Error: Unexpected indicator: `p' + +run_misc.at-7162-calldyn.c:5.6-5.7: + 2 #include + 3 + 4 /* wrapper function as C functions are not + 5 > accessible without explicit loading on all systems */ +---- ^ + 6 COB_EXT_EXPORT char * + 7 calldyn (unsigned char *env_name) +>> Error: Unexpected indicator: `e' + +run_misc.at-7162-calldyn.c:6.6-6.7: + 3 + 4 /* wrapper function as C functions are not + 5 accessible without explicit loading on all systems */ + 6 > COB_EXT_EXPORT char * +---- ^ + 7 calldyn (unsigned char *env_name) + 8 { +>> Error: Unexpected indicator: `T' + +run_misc.at-7162-calldyn.c:7.6-7.7: + 4 /* wrapper function as C functions are not + 5 accessible without explicit loading on all systems */ + 6 COB_EXT_EXPORT char * + 7 > calldyn (unsigned char *env_name) +---- ^ + 8 { + 9 return cob_getenv (env_name); +>> Error: Unexpected indicator: `n' + +run_misc.at-7162-calldyn.c:9.6-9.7: + 6 COB_EXT_EXPORT char * + 7 calldyn (unsigned char *env_name) + 8 { + 9 > return cob_getenv (env_name); +---- ^ + 10 } +>> Error: Unexpected indicator: `r' + +run_misc.at-7162-calldyn.c:4.7-4.10: + 1 + 2 #include + 3 + 4 > /* wrapper function as C functions are not +---- ^^^ + 5 accessible without explicit loading on all systems */ + 6 COB_EXT_EXPORT char * +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7160:0 +run_misc.at-7160-prog.cob:12.23-12.35: + 9 + 10 procedure division. + 11 + 12 > call static "cob_getenv" +---- ^^^^^^^^^^^^ + 13 using "COB_UNIX_LF" + 14 returning c-text-pointer +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7163:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7188:0 +run_misc.at-7188-prog.cob:6.27-6.29: + 3 PROGRAM-ID. prog. + 4 + 5 PROCEDURE DIVISION. + 6 > DISPLAY "hello" AT COLUMN 500 +---- ^^ + 7 ON EXCEPTION + 8 GOBACK RETURNING 0 +>> Error: Invalid syntax + +run_misc.at-7188-prog.cob:7.15-7.27: + 4 + 5 PROCEDURE DIVISION. + 6 DISPLAY "hello" AT COLUMN 500 + 7 > ON EXCEPTION +---- ^^^^^^^^^^^^ + 8 GOBACK RETURNING 0 + 9 NOT ON EXCEPTION +>> Error: Invalid syntax + +run_misc.at-7188-prog.cob:8.25: + 5 PROCEDURE DIVISION. + 6 DISPLAY "hello" AT COLUMN 500 + 7 ON EXCEPTION + 8 > GOBACK RETURNING 0 +---- ^ + 9 NOT ON EXCEPTION + 10 GOBACK RETURNING 1 +>> Hint: Missing . + +run_misc.at-7188-prog.cob:8.26-8.35: + 5 PROCEDURE DIVISION. + 6 DISPLAY "hello" AT COLUMN 500 + 7 ON EXCEPTION + 8 > GOBACK RETURNING 0 +---- ^^^^^^^^^ + 9 NOT ON EXCEPTION + 10 GOBACK RETURNING 1 +>> Error: Invalid syntax + +run_misc.at-7188-prog.cob:8.37: + 5 PROCEDURE DIVISION. + 6 DISPLAY "hello" AT COLUMN 500 + 7 ON EXCEPTION + 8 > GOBACK RETURNING 0 +---- ^ + 9 NOT ON EXCEPTION + 10 GOBACK RETURNING 1 +>> Hint: Missing . + +run_misc.at-7188-prog.cob:9.15-9.31: + 6 DISPLAY "hello" AT COLUMN 500 + 7 ON EXCEPTION + 8 GOBACK RETURNING 0 + 9 > NOT ON EXCEPTION +---- ^^^^^^^^^^^^^^^^ + 10 GOBACK RETURNING 1 + 11 END-DISPLAY +>> Warning: Invalid syntax + +run_misc.at-7188-prog.cob:10.25: + 7 ON EXCEPTION + 8 GOBACK RETURNING 0 + 9 NOT ON EXCEPTION + 10 > GOBACK RETURNING 1 +---- ^ + 11 END-DISPLAY + 12 . +>> Hint: Missing . + +run_misc.at-7188-prog.cob:10.26-10.35: + 7 ON EXCEPTION + 8 GOBACK RETURNING 0 + 9 NOT ON EXCEPTION + 10 > GOBACK RETURNING 1 +---- ^^^^^^^^^ + 11 END-DISPLAY + 12 . +>> Error: Invalid syntax + +run_misc.at-7188-prog.cob:11.11-11.22: + 8 GOBACK RETURNING 0 + 9 NOT ON EXCEPTION + 10 GOBACK RETURNING 1 + 11 > END-DISPLAY +---- ^^^^^^^^^^^ + 12 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7229:0 +run_misc.at-7229-prog.cob:17.21: + 14 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-LINE-NUMBER" + 15 CONTINUE + 16 ELSE + 17 > GOBACK RETURNING 1 +---- ^ + 18 END-IF + 19 +>> Hint: Missing . + +run_misc.at-7229-prog.cob:17.22-17.31: + 14 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-LINE-NUMBER" + 15 CONTINUE + 16 ELSE + 17 > GOBACK RETURNING 1 +---- ^^^^^^^^^ + 18 END-IF + 19 +>> Error: Invalid syntax + +run_misc.at-7229-prog.cob:17.33: + 14 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-LINE-NUMBER" + 15 CONTINUE + 16 ELSE + 17 > GOBACK RETURNING 1 +---- ^ + 18 END-IF + 19 +>> Hint: Missing . + +run_misc.at-7229-prog.cob:18.11-18.17: + 15 CONTINUE + 16 ELSE + 17 GOBACK RETURNING 1 + 18 > END-IF +---- ^^^^^^ + 19 + 20 DISPLAY invalid-col END-DISPLAY +>> Warning: Invalid syntax + +run_misc.at-7229-prog.cob:24.21: + 21 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-STARTING-COLUMN" + 22 CONTINUE + 23 ELSE + 24 > GOBACK RETURNING 2 +---- ^ + 25 END-IF + 26 +>> Hint: Missing . + +run_misc.at-7229-prog.cob:24.22-24.31: + 21 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-STARTING-COLUMN" + 22 CONTINUE + 23 ELSE + 24 > GOBACK RETURNING 2 +---- ^^^^^^^^^ + 25 END-IF + 26 +>> Error: Invalid syntax + +run_misc.at-7229-prog.cob:24.33: + 21 IF FUNCTION EXCEPTION-STATUS = "EC-SCREEN-STARTING-COLUMN" + 22 CONTINUE + 23 ELSE + 24 > GOBACK RETURNING 2 +---- ^ + 25 END-IF + 26 +>> Hint: Missing . + +run_misc.at-7229-prog.cob:25.11-25.17: + 22 CONTINUE + 23 ELSE + 24 GOBACK RETURNING 2 + 25 > END-IF +---- ^^^^^^ + 26 + 27 GOBACK RETURNING 0 +>> Warning: Invalid syntax + +run_misc.at-7229-prog.cob:27.17: + 24 GOBACK RETURNING 2 + 25 END-IF + 26 + 27 > GOBACK RETURNING 0 +---- ^ + 28 . +>> Hint: Missing . + +run_misc.at-7229-prog.cob:27.18-27.27: + 24 GOBACK RETURNING 2 + 25 END-IF + 26 + 27 > GOBACK RETURNING 0 +---- ^^^^^^^^^ + 28 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7267:0 +run_misc.at-7267-prog.cob:16.21: + 13 PROCEDURE DIVISION. + 14 DISPLAY scr AT LINE zero-var + 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" + 16 > GOBACK RETURNING 1 +---- ^ + 17 END-IF + 18 +>> Hint: Missing . + +run_misc.at-7267-prog.cob:16.22-16.31: + 13 PROCEDURE DIVISION. + 14 DISPLAY scr AT LINE zero-var + 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" + 16 > GOBACK RETURNING 1 +---- ^^^^^^^^^ + 17 END-IF + 18 +>> Error: Invalid syntax + +run_misc.at-7267-prog.cob:16.33: + 13 PROCEDURE DIVISION. + 14 DISPLAY scr AT LINE zero-var + 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" + 16 > GOBACK RETURNING 1 +---- ^ + 17 END-IF + 18 +>> Hint: Missing . + +run_misc.at-7267-prog.cob:17.11-17.17: + 14 DISPLAY scr AT LINE zero-var + 15 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-LINE-NUMBER" + 16 GOBACK RETURNING 1 + 17 > END-IF +---- ^^^^^^ + 18 + 19 DISPLAY scr AT COLUMN zero-var +>> Warning: Invalid syntax + +run_misc.at-7267-prog.cob:21.21: + 18 + 19 DISPLAY scr AT COLUMN zero-var + 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" + 21 > GOBACK RETURNING 2 +---- ^ + 22 END-IF + 23 +>> Hint: Missing . + +run_misc.at-7267-prog.cob:21.22-21.31: + 18 + 19 DISPLAY scr AT COLUMN zero-var + 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" + 21 > GOBACK RETURNING 2 +---- ^^^^^^^^^ + 22 END-IF + 23 +>> Error: Invalid syntax + +run_misc.at-7267-prog.cob:21.33: + 18 + 19 DISPLAY scr AT COLUMN zero-var + 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" + 21 > GOBACK RETURNING 2 +---- ^ + 22 END-IF + 23 +>> Hint: Missing . + +run_misc.at-7267-prog.cob:22.11-22.17: + 19 DISPLAY scr AT COLUMN zero-var + 20 IF FUNCTION EXCEPTION-STATUS <> "EC-SCREEN-STARTING-COLUMN" + 21 GOBACK RETURNING 2 + 22 > END-IF +---- ^^^^^^ + 23 + 24 GOBACK RETURNING 0 +>> Warning: Invalid syntax + +run_misc.at-7267-prog.cob:24.17: + 21 GOBACK RETURNING 2 + 22 END-IF + 23 + 24 > GOBACK RETURNING 0 +---- ^ + 25 . +>> Hint: Missing . + +run_misc.at-7267-prog.cob:24.18-24.27: + 21 GOBACK RETURNING 2 + 22 END-IF + 23 + 24 > GOBACK RETURNING 0 +---- ^^^^^^^^^ + 25 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7296:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7331:0 +run_misc.at-7331-callee.cob:5.42: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. callee. + 4 DATA DIVISION. + 5 > PROCEDURE DIVISION RETURNING OMITTED. +---- ^ + 6 MOVE 42 TO RETURN-CODE + 7 EXIT PROGRAM. +>> Hint: Missing + +run_misc.at-7331-callee.cob:5.43-5.50: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. callee. + 4 DATA DIVISION. + 5 > PROCEDURE DIVISION RETURNING OMITTED. +---- ^^^^^^^ + 6 MOVE 42 TO RETURN-CODE + 7 EXIT PROGRAM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7332:0 +run_misc.at-7332-caller.cob:5.34: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. caller. + 4 PROCEDURE DIVISION. + 5 > CALL "callee" RETURNING OMITTED +---- ^ + 6 END-CALL. + 7 DISPLAY RETURN-CODE WITH NO ADVANCING +>> Hint: Missing + +run_misc.at-7332-caller.cob:5.35-5.42: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. caller. + 4 PROCEDURE DIVISION. + 5 > CALL "callee" RETURNING OMITTED +---- ^^^^^^^ + 6 END-CALL. + 7 DISPLAY RETURN-CODE WITH NO ADVANCING +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7389:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7487:0 +run_misc.at-7487-cmod.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^ + 6 dump (unsigned char *data) + 7 { +>> Error: Unexpected indicator: `T' + +run_misc.at-7487-cmod.c:6.6-6.7: + 3 #include + 4 + 5 COB_EXT_EXPORT int + 6 > dump (unsigned char *data) +---- ^ + 7 { + 8 int i; +>> Error: Unexpected indicator: `u' + +run_misc.at-7487-cmod.c:8.6-8.7: + 5 COB_EXT_EXPORT int + 6 dump (unsigned char *data) + 7 { + 8 > int i; +---- ^ + 9 for (i = 0; i < 4; i++) + 10 printf ("%02X", data[i]); +>> Error: Unexpected indicator: `i' + +run_misc.at-7487-cmod.c:9.6-9.7: + 6 dump (unsigned char *data) + 7 { + 8 int i; + 9 > for (i = 0; i < 4; i++) +---- ^ + 10 printf ("%02X", data[i]); + 11 puts (" ."); +>> Error: Unexpected indicator: `(' + +run_misc.at-7487-cmod.c:10.6-10.7: + 7 { + 8 int i; + 9 for (i = 0; i < 4; i++) + 10 > printf ("%02X", data[i]); +---- ^ + 11 puts (" ."); + 12 return 0; +>> Error: Unexpected indicator: `i' + +run_misc.at-7487-cmod.c:12.6-12.7: + 9 for (i = 0; i < 4; i++) + 10 printf ("%02X", data[i]); + 11 puts (" ."); + 12 > return 0; +---- ^ + 13 } +>> Error: Unexpected indicator: `r' + +run_misc.at-7487-cmod.c:5.7-5.14: + 2 #include + 3 #include + 4 + 5 > COB_EXT_EXPORT int +---- ^^^^^^^ + 6 dump (unsigned char *data) + 7 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7487:0 +run_misc.at-7487-prog.cob:7.46-7.49: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 MYFLD PIC 9(4) VALUE 96. + 7 > 01 BIGFLT COMP-1 VALUE 543.12345E10. +---- ^^^ + 8 PROCEDURE DIVISION. + 9 MAIN-1. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7564:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7564:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7598:0 +run_misc.at-7598-callee.cob:5.42: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. callee. + 4 DATA DIVISION. + 5 > PROCEDURE DIVISION RETURNING OMITTED. +---- ^ + 6 MOVE 43 TO RETURN-CODE + 7 EXIT PROGRAM. +>> Hint: Missing + +run_misc.at-7598-callee.cob:5.43-5.50: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. callee. + 4 DATA DIVISION. + 5 > PROCEDURE DIVISION RETURNING OMITTED. +---- ^^^^^^^ + 6 MOVE 43 TO RETURN-CODE + 7 EXIT PROGRAM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7598:0 +run_misc.at-7598-caller.cob:6.34: + 3 PROGRAM-ID. caller. + 4 PROCEDURE DIVISION. + 5 MOVE 42 TO RETURN-CODE + 6 > CALL "callee" RETURNING NOTHING +---- ^ + 7 END-CALL. + 8 IF RETURN-CODE NOT = 42 +>> Hint: Missing + +run_misc.at-7598-caller.cob:6.35-6.42: + 3 PROGRAM-ID. caller. + 4 PROCEDURE DIVISION. + 5 MOVE 42 TO RETURN-CODE + 6 > CALL "callee" RETURNING NOTHING +---- ^^^^^^^ + 7 END-CALL. + 8 IF RETURN-CODE NOT = 42 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7790:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7792:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7798:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7800:0 +run_misc.at-7800-caller.cob:14.16: + 11 78 ZER VALUE ZERO. + 12 *> + 13 PROCEDURE DIVISION. + 14 > READY TRACE +---- ^ + 15 MOVE 1 TO RETURN-CODE + 16 RESET TRACE +>> Hint: Missing . + +run_misc.at-7800-caller.cob:14.17-14.22: + 11 78 ZER VALUE ZERO. + 12 *> + 13 PROCEDURE DIVISION. + 14 > READY TRACE +---- ^^^^^ + 15 MOVE 1 TO RETURN-CODE + 16 RESET TRACE +>> Warning: Invalid syntax + +run_misc.at-7800-caller.cob:14.22: + 11 78 ZER VALUE ZERO. + 12 *> + 13 PROCEDURE DIVISION. + 14 > READY TRACE +---- ^ + 15 MOVE 1 TO RETURN-CODE + 16 RESET TRACE +>> Hint: Missing . + +run_misc.at-7800-caller.cob:15.11-15.15: + 12 *> + 13 PROCEDURE DIVISION. + 14 READY TRACE + 15 > MOVE 1 TO RETURN-CODE +---- ^^^^ + 16 RESET TRACE + 17 CALL "callee1" +>> Warning: Invalid syntax + +run_misc.at-7800-caller.cob:16.11-16.16: + 13 PROCEDURE DIVISION. + 14 READY TRACE + 15 MOVE 1 TO RETURN-CODE + 16 > RESET TRACE +---- ^^^^^ + 17 CALL "callee1" + 18 END-CALL +>> Error: Invalid syntax + +run_misc.at-7800-caller.cob:18.19: + 15 MOVE 1 TO RETURN-CODE + 16 RESET TRACE + 17 CALL "callee1" + 18 > END-CALL +---- ^ + 19 READY TRACE + 20 MOVE 2 TO RETURN-CODE +>> Hint: Missing . + +run_misc.at-7800-caller.cob:19.11-19.16: + 16 RESET TRACE + 17 CALL "callee1" + 18 END-CALL + 19 > READY TRACE +---- ^^^^^ + 20 MOVE 2 TO RETURN-CODE + 21 CALL "callee1" +>> Warning: Invalid syntax + +run_misc.at-7800-caller.cob:19.16: + 16 RESET TRACE + 17 CALL "callee1" + 18 END-CALL + 19 > READY TRACE +---- ^ + 20 MOVE 2 TO RETURN-CODE + 21 CALL "callee1" +>> Hint: Missing . + +run_misc.at-7800-caller.cob:19.17-19.22: + 16 RESET TRACE + 17 CALL "callee1" + 18 END-CALL + 19 > READY TRACE +---- ^^^^^ + 20 MOVE 2 TO RETURN-CODE + 21 CALL "callee1" +>> Warning: Invalid syntax + +run_misc.at-7800-caller.cob:19.22: + 16 RESET TRACE + 17 CALL "callee1" + 18 END-CALL + 19 > READY TRACE +---- ^ + 20 MOVE 2 TO RETURN-CODE + 21 CALL "callee1" +>> Hint: Missing . + +run_misc.at-7800-caller.cob:20.11-20.15: + 17 CALL "callee1" + 18 END-CALL + 19 READY TRACE + 20 > MOVE 2 TO RETURN-CODE +---- ^^^^ + 21 CALL "callee1" + 22 END-CALL +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7794:0 +run_misc.at-7794-preload.cob:13.7-13.12: + 10 SOME-PAR. + 11 PERFORM OTHER-SEC + 12 MOVE 0 TO RETURN-CODE. + 13 > ENTRY "LEAVE-ME". +---- ^^^^^ + 14 END-PAR. + 15 EXIT PROGRAM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:7796:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:8103:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:8708:0 +run_misc.at-8708-prog.cob:27.18-27.26: + 24 FILE STATUS IS CUST-STAT. + 25 + 26 SELECT FLATFILE + 27 > ASSIGN EXTERNAL RELFIX +---- ^^^^^^^^ + 28 ORGANIZATION RELATIVE + 29 ACCESS IS RANDOM RELATIVE KEY IS REC-NUM +>> Warning: Ignored EXTERNAL (implementation pending) + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10054:0 +run_misc.at-10054-reference:1.6-1.7: + 1 > Source: 'prog.cob' +---- ^ + 2 Program-Id: prog + 3 Line: 292 Entry: prog +>> Error: Unexpected indicator: `:' + +run_misc.at-10054-reference:2.6-2.7: + 1 Source: 'prog.cob' + 2 > Program-Id: prog +---- ^ + 3 Line: 292 Entry: prog + 4 Line: 292 Paragraph: MAINFILE +>> Error: Unexpected indicator: `m' + +run_misc.at-10054-reference:1.8-1.18: + 1 > Source: 'prog.cob' +---- ^^^^^^^^^^ + 2 Program-Id: prog + 3 Line: 292 Entry: prog +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10194:0 +run_misc.at-10194-reference_append:1.6-1.7: + 1 > Source: 'prog.cob' +---- ^ + 2 Program-Id: prog + 3 Entry: prog and now ... 292 +>> Error: Unexpected indicator: `:' + +run_misc.at-10194-reference_append:2.6-2.7: + 1 Source: 'prog.cob' + 2 > Program-Id: prog +---- ^ + 3 Entry: prog and now ... 292 + 4 Paragraph: MAINFILE and now ... 292 +>> Error: Unexpected indicator: `m' + +run_misc.at-10194-reference_append:3.6-3.7: + 1 Source: 'prog.cob' + 2 Program-Id: prog + 3 > Entry: prog and now ... 292 +---- ^ + 4 Paragraph: MAINFILE and now ... 292 + 5 Paragraph: LOADFILE and now ... 335 +>> Error: Unexpected indicator: `t' + +run_misc.at-10194-reference_append:4.6-4.7: + 1 Source: 'prog.cob' + 2 Program-Id: prog + 3 Entry: prog and now ... 292 + 4 > Paragraph: MAINFILE and now ... 292 +---- ^ + 5 Paragraph: LOADFILE and now ... 335 + 6 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:5.6-5.7: + 2 Program-Id: prog + 3 Entry: prog and now ... 292 + 4 Paragraph: MAINFILE and now ... 292 + 5 > Paragraph: LOADFILE and now ... 335 +---- ^ + 6 Paragraph: 1000-LOAD-RECORD and now ... 358 + 7 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:6.6-6.7: + 3 Entry: prog and now ... 292 + 4 Paragraph: MAINFILE and now ... 292 + 5 Paragraph: LOADFILE and now ... 335 + 6 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 7 Paragraph: 1000-LOAD-RECORD and now ... 358 + 8 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:7.6-7.7: + 4 Paragraph: MAINFILE and now ... 292 + 5 Paragraph: LOADFILE and now ... 335 + 6 Paragraph: 1000-LOAD-RECORD and now ... 358 + 7 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 8 Paragraph: 1000-LOAD-RECORD and now ... 358 + 9 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:8.6-8.7: + 5 Paragraph: LOADFILE and now ... 335 + 6 Paragraph: 1000-LOAD-RECORD and now ... 358 + 7 Paragraph: 1000-LOAD-RECORD and now ... 358 + 8 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 9 Paragraph: 1000-LOAD-RECORD and now ... 358 + 10 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:9.6-9.7: + 6 Paragraph: 1000-LOAD-RECORD and now ... 358 + 7 Paragraph: 1000-LOAD-RECORD and now ... 358 + 8 Paragraph: 1000-LOAD-RECORD and now ... 358 + 9 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 10 Paragraph: 1000-LOAD-RECORD and now ... 358 + 11 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:10.6-10.7: + 7 Paragraph: 1000-LOAD-RECORD and now ... 358 + 8 Paragraph: 1000-LOAD-RECORD and now ... 358 + 9 Paragraph: 1000-LOAD-RECORD and now ... 358 + 10 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 11 Paragraph: 1000-LOAD-RECORD and now ... 358 + 12 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:11.6-11.7: + 8 Paragraph: 1000-LOAD-RECORD and now ... 358 + 9 Paragraph: 1000-LOAD-RECORD and now ... 358 + 10 Paragraph: 1000-LOAD-RECORD and now ... 358 + 11 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 12 Paragraph: 1000-LOAD-RECORD and now ... 358 + 13 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:12.6-12.7: + 9 Paragraph: 1000-LOAD-RECORD and now ... 358 + 10 Paragraph: 1000-LOAD-RECORD and now ... 358 + 11 Paragraph: 1000-LOAD-RECORD and now ... 358 + 12 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 13 Paragraph: 1000-LOAD-RECORD and now ... 358 + 14 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:13.6-13.7: + 10 Paragraph: 1000-LOAD-RECORD and now ... 358 + 11 Paragraph: 1000-LOAD-RECORD and now ... 358 + 12 Paragraph: 1000-LOAD-RECORD and now ... 358 + 13 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 14 Paragraph: 1000-LOAD-RECORD and now ... 358 + 15 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:14.6-14.7: + 11 Paragraph: 1000-LOAD-RECORD and now ... 358 + 12 Paragraph: 1000-LOAD-RECORD and now ... 358 + 13 Paragraph: 1000-LOAD-RECORD and now ... 358 + 14 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 15 Paragraph: 1000-LOAD-RECORD and now ... 358 + 16 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:15.6-15.7: + 12 Paragraph: 1000-LOAD-RECORD and now ... 358 + 13 Paragraph: 1000-LOAD-RECORD and now ... 358 + 14 Paragraph: 1000-LOAD-RECORD and now ... 358 + 15 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 16 Paragraph: 1000-LOAD-RECORD and now ... 358 + 17 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:16.6-16.7: + 13 Paragraph: 1000-LOAD-RECORD and now ... 358 + 14 Paragraph: 1000-LOAD-RECORD and now ... 358 + 15 Paragraph: 1000-LOAD-RECORD and now ... 358 + 16 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 17 Paragraph: 1000-LOAD-RECORD and now ... 358 + 18 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:17.6-17.7: + 14 Paragraph: 1000-LOAD-RECORD and now ... 358 + 15 Paragraph: 1000-LOAD-RECORD and now ... 358 + 16 Paragraph: 1000-LOAD-RECORD and now ... 358 + 17 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 18 Paragraph: 1000-LOAD-RECORD and now ... 358 + 19 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:18.6-18.7: + 15 Paragraph: 1000-LOAD-RECORD and now ... 358 + 16 Paragraph: 1000-LOAD-RECORD and now ... 358 + 17 Paragraph: 1000-LOAD-RECORD and now ... 358 + 18 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 19 Paragraph: 1000-LOAD-RECORD and now ... 358 + 20 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:19.6-19.7: + 16 Paragraph: 1000-LOAD-RECORD and now ... 358 + 17 Paragraph: 1000-LOAD-RECORD and now ... 358 + 18 Paragraph: 1000-LOAD-RECORD and now ... 358 + 19 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 20 Paragraph: 1000-LOAD-RECORD and now ... 358 + 21 Paragraph: 1000-LOAD-RECORD and now ... 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:20.6-20.7: + 17 Paragraph: 1000-LOAD-RECORD and now ... 358 + 18 Paragraph: 1000-LOAD-RECORD and now ... 358 + 19 Paragraph: 1000-LOAD-RECORD and now ... 358 + 20 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 21 Paragraph: 1000-LOAD-RECORD and now ... 358 + 22 Paragraph: LISTFILE and now ... 387 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:21.6-21.7: + 18 Paragraph: 1000-LOAD-RECORD and now ... 358 + 19 Paragraph: 1000-LOAD-RECORD and now ... 358 + 20 Paragraph: 1000-LOAD-RECORD and now ... 358 + 21 > Paragraph: 1000-LOAD-RECORD and now ... 358 +---- ^ + 22 Paragraph: LISTFILE and now ... 387 + 23 Source: 'prog.cob' +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:22.6-22.7: + 19 Paragraph: 1000-LOAD-RECORD and now ... 358 + 20 Paragraph: 1000-LOAD-RECORD and now ... 358 + 21 Paragraph: 1000-LOAD-RECORD and now ... 358 + 22 > Paragraph: LISTFILE and now ... 387 +---- ^ + 23 Source: 'prog.cob' + 24 Program-Id: prog +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:23.6-23.7: + 20 Paragraph: 1000-LOAD-RECORD and now ... 358 + 21 Paragraph: 1000-LOAD-RECORD and now ... 358 + 22 Paragraph: LISTFILE and now ... 387 + 23 > Source: 'prog.cob' +---- ^ + 24 Program-Id: prog + 25 Entry: prog - 292 +>> Error: Unexpected indicator: `:' + +run_misc.at-10194-reference_append:24.6-24.7: + 21 Paragraph: 1000-LOAD-RECORD and now ... 358 + 22 Paragraph: LISTFILE and now ... 387 + 23 Source: 'prog.cob' + 24 > Program-Id: prog +---- ^ + 25 Entry: prog - 292 + 26 Paragraph: MAINFILE - 292 +>> Error: Unexpected indicator: `m' + +run_misc.at-10194-reference_append:25.6-25.7: + 22 Paragraph: LISTFILE and now ... 387 + 23 Source: 'prog.cob' + 24 Program-Id: prog + 25 > Entry: prog - 292 +---- ^ + 26 Paragraph: MAINFILE - 292 + 27 Paragraph: LOADFILE - 335 +>> Error: Unexpected indicator: `t' + +run_misc.at-10194-reference_append:26.6-26.7: + 23 Source: 'prog.cob' + 24 Program-Id: prog + 25 Entry: prog - 292 + 26 > Paragraph: MAINFILE - 292 +---- ^ + 27 Paragraph: LOADFILE - 335 + 28 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:27.6-27.7: + 24 Program-Id: prog + 25 Entry: prog - 292 + 26 Paragraph: MAINFILE - 292 + 27 > Paragraph: LOADFILE - 335 +---- ^ + 28 Paragraph: 1000-LOAD-RECORD - 358 + 29 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:28.6-28.7: + 25 Entry: prog - 292 + 26 Paragraph: MAINFILE - 292 + 27 Paragraph: LOADFILE - 335 + 28 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 29 Paragraph: 1000-LOAD-RECORD - 358 + 30 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:29.6-29.7: + 26 Paragraph: MAINFILE - 292 + 27 Paragraph: LOADFILE - 335 + 28 Paragraph: 1000-LOAD-RECORD - 358 + 29 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 30 Paragraph: 1000-LOAD-RECORD - 358 + 31 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:30.6-30.7: + 27 Paragraph: LOADFILE - 335 + 28 Paragraph: 1000-LOAD-RECORD - 358 + 29 Paragraph: 1000-LOAD-RECORD - 358 + 30 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 31 Paragraph: 1000-LOAD-RECORD - 358 + 32 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:31.6-31.7: + 28 Paragraph: 1000-LOAD-RECORD - 358 + 29 Paragraph: 1000-LOAD-RECORD - 358 + 30 Paragraph: 1000-LOAD-RECORD - 358 + 31 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 32 Paragraph: 1000-LOAD-RECORD - 358 + 33 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:32.6-32.7: + 29 Paragraph: 1000-LOAD-RECORD - 358 + 30 Paragraph: 1000-LOAD-RECORD - 358 + 31 Paragraph: 1000-LOAD-RECORD - 358 + 32 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 33 Paragraph: 1000-LOAD-RECORD - 358 + 34 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:33.6-33.7: + 30 Paragraph: 1000-LOAD-RECORD - 358 + 31 Paragraph: 1000-LOAD-RECORD - 358 + 32 Paragraph: 1000-LOAD-RECORD - 358 + 33 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 34 Paragraph: 1000-LOAD-RECORD - 358 + 35 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:34.6-34.7: + 31 Paragraph: 1000-LOAD-RECORD - 358 + 32 Paragraph: 1000-LOAD-RECORD - 358 + 33 Paragraph: 1000-LOAD-RECORD - 358 + 34 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 35 Paragraph: 1000-LOAD-RECORD - 358 + 36 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:35.6-35.7: + 32 Paragraph: 1000-LOAD-RECORD - 358 + 33 Paragraph: 1000-LOAD-RECORD - 358 + 34 Paragraph: 1000-LOAD-RECORD - 358 + 35 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 36 Paragraph: 1000-LOAD-RECORD - 358 + 37 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:36.6-36.7: + 33 Paragraph: 1000-LOAD-RECORD - 358 + 34 Paragraph: 1000-LOAD-RECORD - 358 + 35 Paragraph: 1000-LOAD-RECORD - 358 + 36 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 37 Paragraph: 1000-LOAD-RECORD - 358 + 38 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:37.6-37.7: + 34 Paragraph: 1000-LOAD-RECORD - 358 + 35 Paragraph: 1000-LOAD-RECORD - 358 + 36 Paragraph: 1000-LOAD-RECORD - 358 + 37 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 38 Paragraph: 1000-LOAD-RECORD - 358 + 39 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:38.6-38.7: + 35 Paragraph: 1000-LOAD-RECORD - 358 + 36 Paragraph: 1000-LOAD-RECORD - 358 + 37 Paragraph: 1000-LOAD-RECORD - 358 + 38 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 39 Paragraph: 1000-LOAD-RECORD - 358 + 40 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:39.6-39.7: + 36 Paragraph: 1000-LOAD-RECORD - 358 + 37 Paragraph: 1000-LOAD-RECORD - 358 + 38 Paragraph: 1000-LOAD-RECORD - 358 + 39 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 40 Paragraph: 1000-LOAD-RECORD - 358 + 41 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:40.6-40.7: + 37 Paragraph: 1000-LOAD-RECORD - 358 + 38 Paragraph: 1000-LOAD-RECORD - 358 + 39 Paragraph: 1000-LOAD-RECORD - 358 + 40 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 41 Paragraph: 1000-LOAD-RECORD - 358 + 42 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:41.6-41.7: + 38 Paragraph: 1000-LOAD-RECORD - 358 + 39 Paragraph: 1000-LOAD-RECORD - 358 + 40 Paragraph: 1000-LOAD-RECORD - 358 + 41 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 42 Paragraph: 1000-LOAD-RECORD - 358 + 43 Paragraph: 1000-LOAD-RECORD - 358 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:42.6-42.7: + 39 Paragraph: 1000-LOAD-RECORD - 358 + 40 Paragraph: 1000-LOAD-RECORD - 358 + 41 Paragraph: 1000-LOAD-RECORD - 358 + 42 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 43 Paragraph: 1000-LOAD-RECORD - 358 + 44 Paragraph: LISTFILE - 387 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:43.6-43.7: + 40 Paragraph: 1000-LOAD-RECORD - 358 + 41 Paragraph: 1000-LOAD-RECORD - 358 + 42 Paragraph: 1000-LOAD-RECORD - 358 + 43 > Paragraph: 1000-LOAD-RECORD - 358 +---- ^ + 44 Paragraph: LISTFILE - 387 +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:44.6-44.7: + 41 Paragraph: 1000-LOAD-RECORD - 358 + 42 Paragraph: 1000-LOAD-RECORD - 358 + 43 Paragraph: 1000-LOAD-RECORD - 358 + 44 > Paragraph: LISTFILE - 387 +---- ^ +>> Error: Unexpected indicator: `a' + +run_misc.at-10194-reference_append:1.8-1.18: + 1 > Source: 'prog.cob' +---- ^^^^^^^^^^ + 2 Program-Id: prog + 3 Entry: prog and now ... 292 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10503:0 +run_misc.at-10503-prog.cob:9.34-9.42: + 6 + 7 INPUT-OUTPUT SECTION. + 8 FILE-CONTROL. + 9 > SELECT FLATFILE ASSIGN EXTERNAL RELFIX +---- ^^^^^^^^ + 10 ORGANIZATION RELATIVE + 11 ACCESS IS SEQUENTIAL RELATIVE KEY IS REC-NUM +>> Warning: Ignored EXTERNAL (implementation pending) + +run_misc.at-10503-prog.cob:198.12-198.25: + 195 ADD 1 TO X. + 196 DISPLAY "X is " X. + 197 ALLOCATE TEST-ALLOCED INITIALIZED. + 198 > COPY cpyabrt. +---- ^^^^^^^^^^^^^ + 199 IF ADDRESS OF TEST-BASED NOT = NULL + 200 DISPLAY TEST-BASED-SUB +>> Error: Library `CPYABRT' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10923:0 +run_misc.at-10923-reference_fdls_tmpl:4.6-4.7: + 1 + 2 Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller + 3 + 4 > Last statement of "sub1" was MOVE +---- ^ + 5 MAIN-2 OF MAIN-1 at cpyabrt:4 + 6 MAIN-1 at prog.cob:177 +>> Error: Unexpected indicator: `s' + +run_misc.at-10923-reference_fdls_tmpl:8.6-8.7: + 5 MAIN-2 OF MAIN-1 at cpyabrt:4 + 6 MAIN-1 at prog.cob:177 + 7 ENTRY sub1 at prog.cob:159 + 8 > Last statement of "sub2" was CALL +---- ^ + 9 DO-CALL OF SubwaY at sub2.cob:48 + 10 ENTRY sub2 at sub2.cob:39 +>> Error: Unexpected indicator: `s' + +run_misc.at-10923-reference_fdls_tmpl:11.6-11.7: + 8 Last statement of "sub2" was CALL + 9 DO-CALL OF SubwaY at sub2.cob:48 + 10 ENTRY sub2 at sub2.cob:39 + 11 > Last statement of "prog" was CALL +---- ^ + 12 CALL-IT-OMIT at prog.cob:118 + 13 MAIN-100 at prog.cob:85 +>> Error: Unexpected indicator: `s' + +run_misc.at-10923-reference_fdls_tmpl:15.6-15.7: + 12 CALL-IT-OMIT at prog.cob:118 + 13 MAIN-100 at prog.cob:85 + 14 ENTRY prog at prog.cob:77 + 15 > Started by ./prog_fdls +---- ^ + 16 + 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS +>> Error: Unexpected indicator: `e' + +run_misc.at-10923-reference_fdls_tmpl:17.6-17.7: + 14 ENTRY prog at prog.cob:77 + 15 Started by ./prog_fdls + 16 + 17 > Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS +---- ^ + 18 + 19 LINKAGE +>> Error: Unexpected indicator: `r' + +run_misc.at-10923-reference_fdls_tmpl:19.6-19.7: + 16 + 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS + 18 + 19 > LINKAGE +---- ^ + 20 ********************** + 21 01 X 000005441 +>> Error: Unexpected indicator: `E' + +run_misc.at-10923-reference_fdls_tmpl:27.6-27.7: + 24 END OF DUMP - sub1 + 25 ********************** + 26 + 27 > Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS +---- ^ + 28 + 29 LINKAGE +>> Error: Unexpected indicator: `r' + +run_misc.at-10923-reference_fdls_tmpl:29.6-29.7: + 26 + 27 Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS + 28 + 29 > LINKAGE +---- ^ + 30 ********************** + 31 01 X 000005441 +>> Error: Unexpected indicator: `E' + +run_misc.at-10923-reference_fdls_tmpl:33.6-33.7: + 30 ********************** + 31 01 X 000005441 + 32 01 TSPFL-RECORD. + 33 > 10 CM-CUST-NUM 'ALP00000' +---- ^ + 34 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 35 10 CM-DISK '8417' +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:34.6-34.7: + 31 01 X 000005441 + 32 01 TSPFL-RECORD. + 33 10 CM-CUST-NUM 'ALP00000' + 34 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' +---- ^ + 35 10 CM-DISK '8417' + 36 10 CM-NO-TERMINALS 0010 +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:35.6-35.7: + 32 01 TSPFL-RECORD. + 33 10 CM-CUST-NUM 'ALP00000' + 34 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 35 > 10 CM-DISK '8417' +---- ^ + 36 10 CM-NO-TERMINALS 0010 + 37 77 DYNAMIC-NUM 0124 +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:36.6-36.7: + 33 10 CM-CUST-NUM 'ALP00000' + 34 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 35 10 CM-DISK '8417' + 36 > 10 CM-NO-TERMINALS 0010 +---- ^ + 37 77 DYNAMIC-NUM 0124 + 38 +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:42.6-42.7: + 39 END OF DUMP - sub2 + 40 ********************** + 41 + 42 > Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS +---- ^ + 43 + 44 FD FLATFILE +>> Error: Unexpected indicator: `r' + +run_misc.at-10923-reference_fdls_tmpl:44.6-44.7: + 41 + 42 Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS + 43 + 44 > FD FLATFILE +---- ^ + 45 ********************** + 46 File is OPEN +>> Error: Unexpected indicator: `T' + +run_misc.at-10923-reference_fdls_tmpl:46.6-46.7: + 43 + 44 FD FLATFILE + 45 ********************** + 46 > File is OPEN +---- ^ + 47 FILE STATUS '00' + 48 01 TSPFL-RECORD. +>> Error: Unexpected indicator: `e' + +run_misc.at-10923-reference_fdls_tmpl:47.6-47.7: + 44 FD FLATFILE + 45 ********************** + 46 File is OPEN + 47 > FILE STATUS '00' +---- ^ + 48 01 TSPFL-RECORD. + 49 10 CM-CUST-NUM 'ALP00000' +>> Error: Unexpected indicator: `E' + +run_misc.at-10923-reference_fdls_tmpl:49.6-49.7: + 46 File is OPEN + 47 FILE STATUS '00' + 48 01 TSPFL-RECORD. + 49 > 10 CM-CUST-NUM 'ALP00000' +---- ^ + 50 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 51 10 CM-DISK '8417' +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:50.6-50.7: + 47 FILE STATUS '00' + 48 01 TSPFL-RECORD. + 49 10 CM-CUST-NUM 'ALP00000' + 50 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' +---- ^ + 51 10 CM-DISK '8417' + 52 10 CM-NO-TERMINALS 0010 +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:51.6-51.7: + 48 01 TSPFL-RECORD. + 49 10 CM-CUST-NUM 'ALP00000' + 50 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 51 > 10 CM-DISK '8417' +---- ^ + 52 10 CM-NO-TERMINALS 0010 + 53 +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:52.6-52.7: + 49 10 CM-CUST-NUM 'ALP00000' + 50 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 51 10 CM-DISK '8417' + 52 > 10 CM-NO-TERMINALS 0010 +---- ^ + 53 + 54 END OF DUMP - prog +>> Error: Unexpected indicator: `0' + +run_misc.at-10923-reference_fdls_tmpl:2.7-2.11: + 1 + 2 > Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +---- ^^^^ + 3 + 4 Last statement of "sub1" was MOVE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10739:0 +run_misc.at-10739-reference_tmpl:4.6-4.7: + 1 + 2 Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller + 3 + 4 > Last statement of "sub1" was MOVE +---- ^ + 5 MAIN-2 OF MAIN-1 at cpyabrt:4 + 6 MAIN-1 at prog.cob:177 +>> Error: Unexpected indicator: `s' + +run_misc.at-10739-reference_tmpl:8.6-8.7: + 5 MAIN-2 OF MAIN-1 at cpyabrt:4 + 6 MAIN-1 at prog.cob:177 + 7 ENTRY sub1 at prog.cob:159 + 8 > Last statement of "sub2" was CALL +---- ^ + 9 DO-CALL OF SubwaY at sub2.cob:48 + 10 ENTRY sub2 at sub2.cob:39 +>> Error: Unexpected indicator: `s' + +run_misc.at-10739-reference_tmpl:11.6-11.7: + 8 Last statement of "sub2" was CALL + 9 DO-CALL OF SubwaY at sub2.cob:48 + 10 ENTRY sub2 at sub2.cob:39 + 11 > Last statement of "prog" was CALL +---- ^ + 12 CALL-IT-OMIT at prog.cob:118 + 13 MAIN-100 at prog.cob:85 +>> Error: Unexpected indicator: `s' + +run_misc.at-10739-reference_tmpl:15.6-15.7: + 12 CALL-IT-OMIT at prog.cob:118 + 13 MAIN-100 at prog.cob:85 + 14 ENTRY prog at prog.cob:77 + 15 > Started by prog +---- ^ + 16 + 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS +>> Error: Unexpected indicator: `e' + +run_misc.at-10739-reference_tmpl:17.6-17.7: + 14 ENTRY prog at prog.cob:77 + 15 Started by prog + 16 + 17 > Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS +---- ^ + 18 + 19 WORKING-STORAGE +>> Error: Unexpected indicator: `r' + +run_misc.at-10739-reference_tmpl:19.6-19.7: + 16 + 17 Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS + 18 + 19 > WORKING-STORAGE +---- ^ + 20 ********************** + 21 77 RETURN-CODE +000000000 +>> Error: Unexpected indicator: `G' + +run_misc.at-10739-reference_tmpl:73.6-73.7: + 70 05 TSTTAILX 'Quick brown fox jumped over the dog ' + 71 trailing LOW-VALUES + 72 + 73 > LINKAGE +---- ^ + 74 ********************** + 75 01 X 000005441 +>> Error: Unexpected indicator: `E' + +run_misc.at-10739-reference_tmpl:81.6-81.7: + 78 END OF DUMP - sub1 + 79 ********************** + 80 + 81 > Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS +---- ^ + 82 + 83 WORKING-STORAGE +>> Error: Unexpected indicator: `r' + +run_misc.at-10739-reference_tmpl:83.6-83.7: + 80 + 81 Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS + 82 + 83 > WORKING-STORAGE +---- ^ + 84 ********************** + 85 77 RETURN-CODE +000000000 +>> Error: Unexpected indicator: `G' + +run_misc.at-10739-reference_tmpl:56.41-56.72: + 53 05 TSTTAIL1 X _ + 54 1 x 5811 + 55 05 TSTCOMP3 58585 + 56 > 05 TSTLONG 'Quick brown fox jumped over the dog Quick br' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 57 57:'own fox jumped over the dog' + 58 05 TSTHEX Q u i c k e r g r e y f o x j u m p e d _ +>> Error: Missing continuation of `Quick brown fox jumped over th' + +run_misc.at-10739-reference_tmpl:70.41-70.72: + 67 97 x 58585858 + 68 05 TSTHEX2 XXXXXXXXX\0XXXXXXXXXXXXXXXXXXXXX\\XXXXXX\0XXXXXXX\tXXXXXX + 69 54 : AXXXX\rX + 70 > 05 TSTTAILX 'Quick brown fox jumped over the dog ' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 71 trailing LOW-VALUES + 72 +>> Error: Missing continuation of `Quick brown fox jumped over th' + +run_misc.at-10739-reference_tmpl:116.41-116.72: + 113 05 TSTTAIL1 X _ + 114 1 x 5811 + 115 05 TSTCOMP3 58585 + 116 > 05 TSTLONG 'Quick brown fox jumped over the dog Quick br' +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 117 57:'own fox jumped over the dog' + 118 05 TSTHEX Q u i c k e r g r e y f o x j u m p e d _ +>> Error: Missing continuation of `Quick brown fox jumped over th' + +run_misc.at-10739-reference_tmpl:133.6-133.7: + 130 05 TSTTAILX Quick brown fox jumped over the dog \0ALPHA ELECTRICA + 131 57 : L CO.\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 + 132 01 BASED-RECORD. + 133 > 10 B-NUM 0124 +---- ^ + 134 10 B-DISK 'marvdisc' + 135 10 B-NO-TERMINALS 0000 +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:134.6-134.7: + 131 57 : L CO.\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 + 132 01 BASED-RECORD. + 133 10 B-NUM 0124 + 134 > 10 B-DISK 'marvdisc' +---- ^ + 135 10 B-NO-TERMINALS 0000 + 136 77 BASED-NEVER-SET address +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:135.6-135.7: + 132 01 BASED-RECORD. + 133 10 B-NUM 0124 + 134 10 B-DISK 'marvdisc' + 135 > 10 B-NO-TERMINALS 0000 +---- ^ + 136 77 BASED-NEVER-SET address + 137 +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:138.6-138.7: + 135 10 B-NO-TERMINALS 0000 + 136 77 BASED-NEVER-SET address + 137 + 138 > LINKAGE +---- ^ + 139 ********************** + 140 01 X 000005441 +>> Error: Unexpected indicator: `E' + +run_misc.at-10739-reference_tmpl:142.6-142.7: + 139 ********************** + 140 01 X 000005441 + 141 01 TSPFL-RECORD. + 142 > 10 CM-CUST-NUM 'ALP00000' +---- ^ + 143 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 144 10 CM-DISK '8417' +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:143.6-143.7: + 140 01 X 000005441 + 141 01 TSPFL-RECORD. + 142 10 CM-CUST-NUM 'ALP00000' + 143 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' +---- ^ + 144 10 CM-DISK '8417' + 145 10 CM-NO-TERMINALS 0010 +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:144.6-144.7: + 141 01 TSPFL-RECORD. + 142 10 CM-CUST-NUM 'ALP00000' + 143 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 144 > 10 CM-DISK '8417' +---- ^ + 145 10 CM-NO-TERMINALS 0010 + 146 77 DYNAMIC-NUM 0124 +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:145.6-145.7: + 142 10 CM-CUST-NUM 'ALP00000' + 143 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 144 10 CM-DISK '8417' + 145 > 10 CM-NO-TERMINALS 0010 +---- ^ + 146 77 DYNAMIC-NUM 0124 + 147 +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:151.6-151.7: + 148 END OF DUMP - sub2 + 149 ********************** + 150 + 151 > Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS +---- ^ + 152 + 153 FD FLATFILE +>> Error: Unexpected indicator: `r' + +run_misc.at-10739-reference_tmpl:153.6-153.7: + 150 + 151 Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS + 152 + 153 > FD FLATFILE +---- ^ + 154 ********************** + 155 File is OPEN +>> Error: Unexpected indicator: `T' + +run_misc.at-10739-reference_tmpl:155.6-155.7: + 152 + 153 FD FLATFILE + 154 ********************** + 155 > File is OPEN +---- ^ + 156 FILE STATUS '00' + 157 01 TSPFL-RECORD. +>> Error: Unexpected indicator: `e' + +run_misc.at-10739-reference_tmpl:156.6-156.7: + 153 FD FLATFILE + 154 ********************** + 155 File is OPEN + 156 > FILE STATUS '00' +---- ^ + 157 01 TSPFL-RECORD. + 158 10 CM-CUST-NUM 'ALP00000' +>> Error: Unexpected indicator: `E' + +run_misc.at-10739-reference_tmpl:158.6-158.7: + 155 File is OPEN + 156 FILE STATUS '00' + 157 01 TSPFL-RECORD. + 158 > 10 CM-CUST-NUM 'ALP00000' +---- ^ + 159 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 160 10 CM-DISK '8417' +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:159.6-159.7: + 156 FILE STATUS '00' + 157 01 TSPFL-RECORD. + 158 10 CM-CUST-NUM 'ALP00000' + 159 > 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' +---- ^ + 160 10 CM-DISK '8417' + 161 10 CM-NO-TERMINALS 0010 +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:160.6-160.7: + 157 01 TSPFL-RECORD. + 158 10 CM-CUST-NUM 'ALP00000' + 159 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 160 > 10 CM-DISK '8417' +---- ^ + 161 10 CM-NO-TERMINALS 0010 + 162 +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:161.6-161.7: + 158 10 CM-CUST-NUM 'ALP00000' + 159 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' + 160 10 CM-DISK '8417' + 161 > 10 CM-NO-TERMINALS 0010 +---- ^ + 162 + 163 WORKING-STORAGE +>> Error: Unexpected indicator: `0' + +run_misc.at-10739-reference_tmpl:163.6-163.7: + 160 10 CM-DISK '8417' + 161 10 CM-NO-TERMINALS 0010 + 162 + 163 > WORKING-STORAGE +---- ^ + 164 ********************** + 165 77 RETURN-CODE +000000000 +>> Error: Unexpected indicator: `G' + +run_misc.at-10739-reference_tmpl:2.7-2.11: + 1 + 2 > Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +---- ^^^^ + 3 + 4 Last statement of "sub1" was MOVE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:10503:0 +run_misc.at-10503-sub2.cob:84.11-84.24: + 81 MOVE 'A' TO TSTHEX2 (54:1). + 82 MOVE LOW-VALUES TO TSTTAILX. + 83 * + 84 > COPY cpyabrt. +---- ^^^^^^^^^^^^^ + 85 END PROGRAM sub2. +>> Error: Library `CPYABRT' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11129:0 +run_misc.at-11129-prog.cob:69.35: + 66 03 prefix. + 67 05 n PIC 9(03) VALUE 123. + 68 03 table-data value all "ABCDE". + 69 > 04 rows OCCURS 0 TO UNBOUNDED TIMES +---- ^ + 70 DEPENDING ON n. + 71 05 col1 PIC X. +>> Hint: Missing + +run_misc.at-11129-prog.cob:69.36-69.45: + 66 03 prefix. + 67 05 n PIC 9(03) VALUE 123. + 68 03 table-data value all "ABCDE". + 69 > 04 rows OCCURS 0 TO UNBOUNDED TIMES +---- ^^^^^^^^^ + 70 DEPENDING ON n. + 71 05 col1 PIC X. +>> Error: Invalid syntax + +run_misc.at-11129-prog.cob:106.43-106.49: + 103 * + 104 SET P2 TO NULL + 105 SET ADDRESS OF A-TABLE TO NULL + 106 > MOVE ALL ZEROES TO A-TABLE (1: (LENGTH OF A-TABLE)). +---- ^^^^^^ + 107 * + 108 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11365:0 +run_misc.at-11365-caller.cob:9.7-9.12: + 6 MAIN-LINE. + 7 + 8 PERFORM DO-CHECK + 9 > >> IF CHECK-PERF IS DEFINED +---- ^^^^^ + 10 *> minimal side-test for performance comparisons + 11 PERFORM DO-CHECK 10000 TIMES +>> Error: Invalid syntax + +run_misc.at-11365-caller.cob:9.23: + 6 MAIN-LINE. + 7 + 8 PERFORM DO-CHECK + 9 > >> IF CHECK-PERF IS DEFINED +---- ^ + 10 *> minimal side-test for performance comparisons + 11 PERFORM DO-CHECK 10000 TIMES +>> Hint: Missing TIMES . + +run_misc.at-11365-caller.cob:9.24-9.26: + 6 MAIN-LINE. + 7 + 8 PERFORM DO-CHECK + 9 > >> IF CHECK-PERF IS DEFINED +---- ^^ + 10 *> minimal side-test for performance comparisons + 11 PERFORM DO-CHECK 10000 TIMES +>> Error: Invalid syntax + +run_misc.at-11365-caller.cob:9.34: + 6 MAIN-LINE. + 7 + 8 PERFORM DO-CHECK + 9 > >> IF CHECK-PERF IS DEFINED +---- ^ + 10 *> minimal side-test for performance comparisons + 11 PERFORM DO-CHECK 10000 TIMES +>> Hint: Missing . + +run_misc.at-11365-caller.cob:11.11-11.18: + 8 PERFORM DO-CHECK + 9 >> IF CHECK-PERF IS DEFINED + 10 *> minimal side-test for performance comparisons + 11 > PERFORM DO-CHECK 10000 TIMES +---- ^^^^^^^ + 12 >> END-IF + 13 DISPLAY 'DONE' UPON SYSERR WITH NO ADVANCING +>> Warning: Invalid syntax + +run_misc.at-11365-caller.cob:12.7-12.16: + 9 >> IF CHECK-PERF IS DEFINED + 10 *> minimal side-test for performance comparisons + 11 PERFORM DO-CHECK 10000 TIMES + 12 > >> END-IF +---- ^^^^^^^^^ + 13 DISPLAY 'DONE' UPON SYSERR WITH NO ADVANCING + 14 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11339:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11409:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11445:0 +run_misc.at-11445-prog.cob:7.31: + 4 + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > 01 foo-bar CONSTANT 8. +---- ^ + 8 01 x PIC 9(foo-bar)9(foo-bar). + 9 +>> Hint: Missing RECORD . + +run_misc.at-11445-prog.cob:7.32-7.33: + 4 + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > 01 foo-bar CONSTANT 8. +---- ^ + 8 01 x PIC 9(foo-bar)9(foo-bar). + 9 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11467:0 +run_misc.at-11467-prog.cob:4.7-4.72: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > DATE-written. hello'". +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 5 *> Written is intentionally lowercase. + 6 *> extra " to fix syntax highlighting +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11532:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11595:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11647:0 +run_misc.at-11647-prog.cob:11.17-11.21: + 8 + 9 PROCEDURE DIVISION. + 10 CALL " SUB " USING 'X'. + 11 > MOVE x'00' TO MYRTN (6:1). +---- ^^^^ + 12 CALL MYRTN USING 'Y'. + 13 CALL "SUB" USING 'Z'. +>> Error: Invalid syntax + +run_misc.at-11647-prog.cob:21.18: + 18 END PROGRAM prog. + 19 + 20 IDENTIFICATION DIVISION. + 21 > PROGRAM-ID. "SUB ". +---- ^ + 22 + 23 DATA DIVISION. +>> Hint: Missing + +run_misc.at-11647-prog.cob:21.19-21.25: + 18 END PROGRAM prog. + 19 + 20 IDENTIFICATION DIVISION. + 21 > PROGRAM-ID. "SUB ". +---- ^^^^^^ + 22 + 23 DATA DIVISION. +>> Error: Invalid syntax + +run_misc.at-11647-prog.cob:30.18: + 27 PROCEDURE DIVISION USING x. + 28 DISPLAY "SUB GOT " X + 29 END-DISPLAY. + 30 > END PROGRAM " SUB". +---- ^ + 31 + 32 IDENTIFICATION DIVISION. +>> Hint: Missing + +run_misc.at-11647-prog.cob:30.19-30.25: + 27 PROCEDURE DIVISION USING x. + 28 DISPLAY "SUB GOT " X + 29 END-DISPLAY. + 30 > END PROGRAM " SUB". +---- ^^^^^^ + 31 + 32 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +run_misc.at-11647-prog.cob:33.18: + 30 END PROGRAM " SUB". + 31 + 32 IDENTIFICATION DIVISION. + 33 > PROGRAM-ID. "S U B". +---- ^ + 34 + 35 DATA DIVISION. +>> Hint: Missing + +run_misc.at-11647-prog.cob:33.19-33.26: + 30 END PROGRAM " SUB". + 31 + 32 IDENTIFICATION DIVISION. + 33 > PROGRAM-ID. "S U B". +---- ^^^^^^^ + 34 + 35 DATA DIVISION. +>> Error: Invalid syntax + +run_misc.at-11647-prog.cob:42.18: + 39 PROCEDURE DIVISION USING x. + 40 DISPLAY "S U B GOT " X + 41 END-DISPLAY. + 42 > END PROGRAM "S U B". +---- ^ +>> Hint: Missing + +run_misc.at-11647-prog.cob:42.19-42.26: + 39 PROCEDURE DIVISION USING x. + 40 DISPLAY "S U B GOT " X + 41 END-DISPLAY. + 42 > END PROGRAM "S U B". +---- ^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11696:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11695:0 +run_misc.at-11695-sub.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "_SUB-PROG_NOW". +---- ^ + 4 + 5 DATA DIVISION. +>> Hint: Missing + +run_misc.at-11695-sub.cob:3.19-3.34: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "_SUB-PROG_NOW". +---- ^^^^^^^^^^^^^^^ + 4 + 5 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11745:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11747:0 +run_misc.at-11747-sub.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "SUB". +---- ^ + 4 + 5 DATA DIVISION. +>> Hint: Missing + +run_misc.at-11747-sub.cob:3.19-3.24: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "SUB". +---- ^^^^^ + 4 + 5 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11928:0 +run_misc.at-11928-cmod.c:7.6-7.7: + 4 #include + 5 + 6 static char * + 7 > getType (int type, int byvalue) +---- ^ + 8 { + 9 static char wrk[24]; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:9.6-9.7: + 6 static char * + 7 getType (int type, int byvalue) + 8 { + 9 > static char wrk[24]; +---- ^ + 10 switch (type) { + 11 #if 1 +>> Error: Unexpected indicator: `t' + +run_misc.at-11928-cmod.c:10.6-10.7: + 7 getType (int type, int byvalue) + 8 { + 9 static char wrk[24]; + 10 > switch (type) { +---- ^ + 11 #if 1 + 12 case COB_TYPE_GROUP: return "Group"; +>> Error: Unexpected indicator: `t' + +run_misc.at-11928-cmod.c:12.6-12.7: + 9 static char wrk[24]; + 10 switch (type) { + 11 #if 1 + 12 > case COB_TYPE_GROUP: return "Group"; +---- ^ + 13 case COB_TYPE_NUMERIC_COMP5: + 14 /* fall through as the test will have different results +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:13.6-13.7: + 10 switch (type) { + 11 #if 1 + 12 case COB_TYPE_GROUP: return "Group"; + 13 > case COB_TYPE_NUMERIC_COMP5: +---- ^ + 14 /* fall through as the test will have different results + 15 on big endian systems otherwise +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:18.6-18.7: + 15 on big endian systems otherwise + 16 return "COMP-5"; */ + 17 COB_UNUSED (byvalue); + 18 > case COB_TYPE_NUMERIC_BINARY: return "BINARY"; +---- ^ + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:19.6-19.7: + 16 return "COMP-5"; */ + 17 COB_UNUSED (byvalue); + 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; + 19 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; +---- ^ + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:20.6-20.7: + 17 COB_UNUSED (byvalue); + 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +---- ^ + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:21.6-21.7: + 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +---- ^ + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 case COB_TYPE_ALPHANUMERIC: return "X"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:22.6-22.7: + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +---- ^ + 23 case COB_TYPE_ALPHANUMERIC: return "X"; + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:23.6-23.7: + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 > case COB_TYPE_ALPHANUMERIC: return "X"; +---- ^ + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 25 case COB_TYPE_NATIONAL: return "N"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:24.6-24.7: + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 case COB_TYPE_ALPHANUMERIC: return "X"; + 24 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +---- ^ + 25 case COB_TYPE_NATIONAL: return "N"; + 26 #else +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:25.6-25.7: + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 case COB_TYPE_ALPHANUMERIC: return "X"; + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 25 > case COB_TYPE_NATIONAL: return "N"; +---- ^ + 26 #else + 27 case COB_TYPE_GROUP: return "Group"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:27.6-27.7: + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 25 case COB_TYPE_NATIONAL: return "N"; + 26 #else + 27 > case COB_TYPE_GROUP: return "Group"; +---- ^ + 28 case COB_TYPE_NUMERIC_COMP5: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:28.6-28.7: + 25 case COB_TYPE_NATIONAL: return "N"; + 26 #else + 27 case COB_TYPE_GROUP: return "Group"; + 28 > case COB_TYPE_NUMERIC_COMP5: +---- ^ + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:30.6-30.7: + 27 case COB_TYPE_GROUP: return "Group"; + 28 case COB_TYPE_NUMERIC_COMP5: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; +---- ^ + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:31.6-31.7: + 28 case COB_TYPE_NUMERIC_COMP5: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; + 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; +---- ^ + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:32.6-32.7: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +---- ^ + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:33.6-33.7: + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +---- ^ + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 case COB_TYPE_ALPHANUMERIC: return "X"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:34.6-34.7: + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +---- ^ + 35 case COB_TYPE_ALPHANUMERIC: return "X"; + 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:35.6-35.7: + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 > case COB_TYPE_ALPHANUMERIC: return "X"; +---- ^ + 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 37 case COB_TYPE_NATIONAL: return "N"; +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:36.6-36.7: + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 case COB_TYPE_ALPHANUMERIC: return "X"; + 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +---- ^ + 37 case COB_TYPE_NATIONAL: return "N"; + 38 #endif +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:37.6-37.7: + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 case COB_TYPE_ALPHANUMERIC: return "X"; + 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 37 > case COB_TYPE_NATIONAL: return "N"; +---- ^ + 38 #endif + 39 } +>> Error: Unexpected indicator: `e' + +run_misc.at-11928-cmod.c:40.6-40.7: + 37 case COB_TYPE_NATIONAL: return "N"; + 38 #endif + 39 } + 40 > sprintf (wrk,"Type %04X",type); +---- ^ + 41 return wrk; + 42 } +>> Error: Unexpected indicator: `i' + +run_misc.at-11928-cmod.c:41.6-41.7: + 38 #endif + 39 } + 40 sprintf (wrk,"Type %04X",type); + 41 > return wrk; +---- ^ + 42 } + 43 +>> Error: Unexpected indicator: `u' + +run_misc.at-11928-cmod.c:44.6-44.7: + 41 return wrk; + 42 } + 43 + 44 > COB_EXT_EXPORT int +---- ^ + 45 CAPI (void *p1, ...) + 46 { +>> Error: Unexpected indicator: `T' + +run_misc.at-11928-cmod.c:45.6-45.7: + 42 } + 43 + 44 COB_EXT_EXPORT int + 45 > CAPI (void *p1, ...) +---- ^ + 46 { + 47 int k,nargs,type,digits,scale,size,sign,byvalue; +>> Error: Unexpected indicator: `v' + +run_misc.at-11928-cmod.c:48.6-48.7: + 45 CAPI (void *p1, ...) + 46 { + 47 int k,nargs,type,digits,scale,size,sign,byvalue; + 48 > cob_s64_t val = 0; +---- ^ + 49 char *str; + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ +>> Error: Unexpected indicator: `_' + +run_misc.at-11928-cmod.c:49.6-49.7: + 46 { + 47 int k,nargs,type,digits,scale,size,sign,byvalue; + 48 cob_s64_t val = 0; + 49 > char *str; +---- ^ + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ + 51 +>> Error: Unexpected indicator: `r' + +run_misc.at-11928-cmod.c:50.6-50.7: + 47 int k,nargs,type,digits,scale,size,sign,byvalue; + 48 cob_s64_t val = 0; + 49 char *str; + 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ +---- ^ + 51 + 52 nargs = cob_get_num_params(); +>> Error: Unexpected indicator: `r' + +run_misc.at-11928-cmod.c:52.6-52.7: + 49 char *str; + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ + 51 + 52 > nargs = cob_get_num_params(); +---- ^ + 53 printf ("CAPI called with %d parameters\n",nargs); + 54 for (k=1; k <= nargs; k++) { +>> Error: Unexpected indicator: `g' + +run_misc.at-11928-cmod.c:53.6-53.7: + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ + 51 + 52 nargs = cob_get_num_params(); + 53 > printf ("CAPI called with %d parameters\n",nargs); +---- ^ + 54 for (k=1; k <= nargs; k++) { + 55 type = cob_get_param_type (k); +>> Error: Unexpected indicator: `n' + +run_misc.at-11928-cmod.c:55.6-55.7: + 52 nargs = cob_get_num_params(); + 53 printf ("CAPI called with %d parameters\n",nargs); + 54 for (k=1; k <= nargs; k++) { + 55 > type = cob_get_param_type (k); +---- ^ + 56 digits = cob_get_param_digits (k); + 57 scale = cob_get_param_scale (k); +>> Error: Unexpected indicator: `t' + +run_misc.at-11928-cmod.c:57.6-57.7: + 54 for (k=1; k <= nargs; k++) { + 55 type = cob_get_param_type (k); + 56 digits = cob_get_param_digits (k); + 57 > scale = cob_get_param_scale (k); +---- ^ + 58 size = cob_get_param_size (k); + 59 sign = cob_get_param_sign (k); +>> Error: Unexpected indicator: `s' + +run_misc.at-11928-cmod.c:58.6-58.7: + 55 type = cob_get_param_type (k); + 56 digits = cob_get_param_digits (k); + 57 scale = cob_get_param_scale (k); + 58 > size = cob_get_param_size (k); +---- ^ + 59 sign = cob_get_param_sign (k); + 60 byvalue = cob_get_param_constant(k); +>> Error: Unexpected indicator: `s' + +run_misc.at-11928-cmod.c:59.6-59.7: + 56 digits = cob_get_param_digits (k); + 57 scale = cob_get_param_scale (k); + 58 size = cob_get_param_size (k); + 59 > sign = cob_get_param_sign (k); +---- ^ + 60 byvalue = cob_get_param_constant(k); + 61 printf (" %d: %-8s ", k, getType (type, byvalue)); +>> Error: Unexpected indicator: `s' + +run_misc.at-11928-cmod.c:60.6-60.7: + 57 scale = cob_get_param_scale (k); + 58 size = cob_get_param_size (k); + 59 sign = cob_get_param_sign (k); + 60 > byvalue = cob_get_param_constant(k); +---- ^ + 61 printf (" %d: %-8s ", k, getType (type, byvalue)); + 62 if (byvalue) { +>> Error: Unexpected indicator: `b' + +run_misc.at-11928-cmod.c:61.6-61.7: + 58 size = cob_get_param_size (k); + 59 sign = cob_get_param_sign (k); + 60 byvalue = cob_get_param_constant(k); + 61 > printf (" %d: %-8s ", k, getType (type, byvalue)); +---- ^ + 62 if (byvalue) { + 63 printf ("BY VALUE "); +>> Error: Unexpected indicator: `p' + +run_misc.at-11928-cmod.c:62.6-62.7: + 59 sign = cob_get_param_sign (k); + 60 byvalue = cob_get_param_constant(k); + 61 printf (" %d: %-8s ", k, getType (type, byvalue)); + 62 > if (byvalue) { +---- ^ + 63 printf ("BY VALUE "); + 64 } else { +>> Error: Unexpected indicator: `i' + +run_misc.at-11928-cmod.c:64.6-64.7: + 61 printf (" %d: %-8s ", k, getType (type, byvalue)); + 62 if (byvalue) { + 63 printf ("BY VALUE "); + 64 > } else { +---- ^ + 65 printf ("BY REFERENCE "); + 66 } +>> Error: Unexpected indicator: `}' + +run_misc.at-11928-cmod.c:66.6-66.7: + 63 printf ("BY VALUE "); + 64 } else { + 65 printf ("BY REFERENCE "); + 66 > } +---- ^ + 67 if (type == COB_TYPE_ALPHANUMERIC) { + 68 sprintf (pic, "X(%d)", size); +>> Error: Unexpected indicator: `}' + +run_misc.at-11928-cmod.c:67.6-67.7: + 64 } else { + 65 printf ("BY REFERENCE "); + 66 } + 67 > if (type == COB_TYPE_ALPHANUMERIC) { +---- ^ + 68 sprintf (pic, "X(%d)", size); + 69 str = cob_get_picx_param (k, NULL, 0); +>> Error: Unexpected indicator: `i' + +run_misc.at-11928-cmod.c:73.6-73.7: + 70 printf ("%-11s '%s'", pic, str); + 71 cob_free ((void*)str); + 72 cob_put_picx_param (k, "Bye!"); + 73 > } else if (type == COB_TYPE_NATIONAL) { +---- ^ + 74 sprintf (pic, "N(%d)", size); /* FIXME */ + 75 printf ("exchange of national data is not supported yet"); +>> Error: Unexpected indicator: `}' + +run_misc.at-11928-cmod.c:76.6-76.7: + 73 } else if (type == COB_TYPE_NATIONAL) { + 74 sprintf (pic, "N(%d)", size); /* FIXME */ + 75 printf ("exchange of national data is not supported yet"); + 76 > } else if (type == COB_TYPE_GROUP) { +---- ^ + 77 sprintf (pic, "(%d)", size); + 78 str = cob_get_grp_param (k, NULL, 0); +>> Error: Unexpected indicator: `}' + +run_misc.at-11928-cmod.c:84.6-84.7: + 81 memset (wrk,' ',sizeof(wrk)); + 82 memcpy (wrk,"Bye-Bye Birdie!",15); + 83 cob_put_grp_param (k, wrk, sizeof(wrk)); + 84 > } else if (type == COB_TYPE_NUMERIC_EDITED) { +---- ^ + 85 if (scale > 0) { + 86 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +>> Error: Unexpected indicator: `}' + +run_misc.at-11928-cmod.c:97.6-97.7: + 94 cob_put_s64_param (k, val); + 95 cob_get_grp_param (k, wrk, sizeof(wrk)); + 96 printf (" to %.*s",size,wrk); + 97 > } else { +---- ^ + 98 if(scale > 0) { + 99 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +>> Error: Unexpected indicator: `}' + +run_misc.at-11928-cmod.c:106.6-106.7: + 103 val = cob_get_s64_param (k); + 104 printf ("%-11s %lld", pic, val); + 105 cob_put_s64_param (k, val + 3); + 106 > } +---- ^ + 107 printf (";\n"); + 108 fflush (stdout); +>> Error: Unexpected indicator: `}' + +run_misc.at-11928-cmod.c:107.6-107.7: + 104 printf ("%-11s %lld", pic, val); + 105 cob_put_s64_param (k, val + 3); + 106 } + 107 > printf (";\n"); +---- ^ + 108 fflush (stdout); + 109 } +>> Error: Unexpected indicator: `p' + +run_misc.at-11928-cmod.c:108.6-108.7: + 105 cob_put_s64_param (k, val + 3); + 106 } + 107 printf (";\n"); + 108 > fflush (stdout); +---- ^ + 109 } + 110 if (nargs > 2) { +>> Error: Unexpected indicator: `f' + +run_misc.at-11928-cmod.c:110.6-110.7: + 107 printf (";\n"); + 108 fflush (stdout); + 109 } + 110 > if (nargs > 2) { +---- ^ + 111 cob_put_s64_param (7, val + 3); + 112 } +>> Error: Unexpected indicator: `(' + +run_misc.at-11928-cmod.c:111.6-111.7: + 108 fflush (stdout); + 109 } + 110 if (nargs > 2) { + 111 > cob_put_s64_param (7, val + 3); +---- ^ + 112 } + 113 return 0; +>> Error: Unexpected indicator: `c' + +run_misc.at-11928-cmod.c:113.6-113.7: + 110 if (nargs > 2) { + 111 cob_put_s64_param (7, val + 3); + 112 } + 113 > return 0; +---- ^ + 114 } +>> Error: Unexpected indicator: `u' + +run_misc.at-11928-cmod.c:84.22-115.0: + 81 memset (wrk,' ',sizeof(wrk)); + 82 memcpy (wrk,"Bye-Bye Birdie!",15); + 83 cob_put_grp_param (k, wrk, sizeof(wrk)); + 84 > } else if (type == COB_TYPE_NUMERIC_EDITED) { +---- + 85 > if (scale > 0) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 86 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 87 > } else { +---- ^^^^^^^^^^^^^^^^^^ + 88 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 89 > } +---- ^^^^^^^^^^^ + 90 > val = cob_get_s64_param (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 91 > printf ("%-11s %lld ",pic,val); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 92 > val = val + 130; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 93 > val = -val; +---- ^^^^^^^^^^^^^^^^^^^^^ + 94 > cob_put_s64_param (k, val); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 95 > cob_get_grp_param (k, wrk, sizeof(wrk)); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 96 > printf (" to %.*s",size,wrk); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 97 > } else { +---- ^^^^^^^^^^^^^^^ + 98 > if(scale > 0) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 99 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 100 > } else { +---- ^^^^^^^^^^^^^^^^^^ + 101 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 102 > } +---- ^^^^^^^^^^^ + 103 > val = cob_get_s64_param (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 104 > printf ("%-11s %lld", pic, val); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 105 > cob_put_s64_param (k, val + 3); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 106 > } +---- ^^^^^^^^ + 107 > printf (";\n"); +---- ^^^^^^^^^^^^^^^^^^^^^^ + 108 > fflush (stdout); +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 109 > } +---- ^^^^^ + 110 > if (nargs > 2) { +---- ^^^^^^^^^^^^^^^^^^^^ + 111 > cob_put_s64_param (7, val + 3); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 112 > } +---- ^^^^^ + 113 > return 0; +---- ^^^^^^^^^^^^^ + 114 > } +---- ^^ +>> Error: Unterminated pseudotext + +run_misc.at-11928-cmod.c:29.23-67.17: + 26 #else + 27 case COB_TYPE_GROUP: return "Group"; + 28 case COB_TYPE_NUMERIC_COMP5: + 29 > return byvalue == 2 ? "COMP-4" : "COMP-5"; +---- + 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 35 > case COB_TYPE_ALPHANUMERIC: return "X"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 37 > case COB_TYPE_NATIONAL: return "N"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 38 > #endif +---- ^^^^^^^ + 39 > } +---- ^^^^^ + 40 > sprintf (wrk,"Type %04X",type); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 41 > return wrk; +---- ^^^^^^^^^^^^^^^ + 42 > } +---- ^^ + 43 > +---- ^ + 44 > COB_EXT_EXPORT int +---- ^^^^^^^^^^^^^^^^^^^ + 45 > CAPI (void *p1, ...) +---- ^^^^^^^^^^^^^^^^^^^^^ + 46 > { +---- ^^ + 47 > int k,nargs,type,digits,scale,size,sign,byvalue; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 48 > cob_s64_t val = 0; +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 49 > char *str; +---- ^^^^^^^^^^^^^^^^^^ + 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 51 > +---- ^ + 52 > nargs = cob_get_num_params(); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 53 > printf ("CAPI called with %d parameters\n",nargs); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 54 > for (k=1; k <= nargs; k++) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 55 > type = cob_get_param_type (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 56 > digits = cob_get_param_digits (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 57 > scale = cob_get_param_scale (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 58 > size = cob_get_param_size (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 59 > sign = cob_get_param_sign (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 60 > byvalue = cob_get_param_constant(k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 61 > printf (" %d: %-8s ", k, getType (type, byvalue)); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 62 > if (byvalue) { +---- ^^^^^^^^^^^^^^^^^^^^^ + 63 > printf ("BY VALUE "); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 64 > } else { +---- ^^^^^^^^^^^^^^^ + 65 > printf ("BY REFERENCE "); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 66 > } +---- ^^^^^^^^ + 67 > if (type == COB_TYPE_ALPHANUMERIC) { +---- ^^^^^^^^^^^^^^^^^^ + 68 sprintf (pic, "X(%d)", size); + 69 str = cob_get_picx_param (k, NULL, 0); +>> Error: Unexpected pseudotext + +run_misc.at-11928-cmod.c:68.23-68.30: + 65 printf ("BY REFERENCE "); + 66 } + 67 if (type == COB_TYPE_ALPHANUMERIC) { + 68 > sprintf (pic, "X(%d)", size); +---- ^^^^^^^ + 69 str = cob_get_picx_param (k, NULL, 0); + 70 printf ("%-11s '%s'", pic, str); +>> Error: Missing PICTURE string (got `"X(%d)"' instead) + +run_misc.at-11928-cmod.c:73.22-76.24: + 70 printf ("%-11s '%s'", pic, str); + 71 cob_free ((void*)str); + 72 cob_put_picx_param (k, "Bye!"); + 73 > } else if (type == COB_TYPE_NATIONAL) { +---- ^^ + 74 > sprintf (pic, "N(%d)", size); /* FIXME */ +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 75 > printf ("exchange of national data is not supported yet"); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 76 > } else if (type == COB_TYPE_GROUP) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 77 sprintf (pic, "(%d)", size); + 78 str = cob_get_grp_param (k, NULL, 0); +>> Error: Unexpected pseudotext + +run_misc.at-11928-cmod.c:77.23-77.29: + 74 sprintf (pic, "N(%d)", size); /* FIXME */ + 75 printf ("exchange of national data is not supported yet"); + 76 } else if (type == COB_TYPE_GROUP) { + 77 > sprintf (pic, "(%d)", size); +---- ^^^^^^ + 78 str = cob_get_grp_param (k, NULL, 0); + 79 printf ("%-11s '%.*s'", pic, size, str); +>> Error: Missing PICTURE string (got `"(%d)"' instead) + +run_misc.at-11928-cmod.c:6.7-6.11: + 3 #include + 4 #include + 5 + 6 > static char * +---- ^^^^ + 7 getType (int type, int byvalue) + 8 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:11928:0 +run_misc.at-11928-prog.cob:33.29-33.35: + 30 MOVE "Hello!" TO CHRX. + 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 33 > CALL "CAPI" USING LENGTH OF GRPX. +---- ^^^^^^ + 34 CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. + 35 CALL "CAPI" USING "Fred Fish", COMP3. +>> Error: Invalid syntax + +run_misc.at-11928-prog.cob:34.43-34.49: + 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 33 CALL "CAPI" USING LENGTH OF GRPX. + 34 > CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. +---- ^^^^^^ + 35 CALL "CAPI" USING "Fred Fish", COMP3. + 36 CALL "CAPI" USING COMP3V99. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12158:0 +run_misc.at-12158-cmod.c:7.6-7.7: + 4 #include + 5 + 6 static char * + 7 > getType (int type, int byvalue) +---- ^ + 8 { + 9 static char wrk[24]; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:9.6-9.7: + 6 static char * + 7 getType (int type, int byvalue) + 8 { + 9 > static char wrk[24]; +---- ^ + 10 switch (type) { + 11 #if 1 +>> Error: Unexpected indicator: `t' + +run_misc.at-12158-cmod.c:10.6-10.7: + 7 getType (int type, int byvalue) + 8 { + 9 static char wrk[24]; + 10 > switch (type) { +---- ^ + 11 #if 1 + 12 case COB_TYPE_GROUP: return "Group"; +>> Error: Unexpected indicator: `t' + +run_misc.at-12158-cmod.c:12.6-12.7: + 9 static char wrk[24]; + 10 switch (type) { + 11 #if 1 + 12 > case COB_TYPE_GROUP: return "Group"; +---- ^ + 13 case COB_TYPE_NUMERIC_COMP5: + 14 /* fall through as the test will have different results +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:13.6-13.7: + 10 switch (type) { + 11 #if 1 + 12 case COB_TYPE_GROUP: return "Group"; + 13 > case COB_TYPE_NUMERIC_COMP5: +---- ^ + 14 /* fall through as the test will have different results + 15 on big endian systems otherwise +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:18.6-18.7: + 15 on big endian systems otherwise + 16 return "COMP-5"; */ + 17 COB_UNUSED (byvalue); + 18 > case COB_TYPE_NUMERIC_BINARY: return "BINARY"; +---- ^ + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:19.6-19.7: + 16 return "COMP-5"; */ + 17 COB_UNUSED (byvalue); + 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; + 19 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; +---- ^ + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:20.6-20.7: + 17 COB_UNUSED (byvalue); + 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +---- ^ + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:21.6-21.7: + 18 case COB_TYPE_NUMERIC_BINARY: return "BINARY"; + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +---- ^ + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 case COB_TYPE_ALPHANUMERIC: return "X"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:22.6-22.7: + 19 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +---- ^ + 23 case COB_TYPE_ALPHANUMERIC: return "X"; + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:23.6-23.7: + 20 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 > case COB_TYPE_ALPHANUMERIC: return "X"; +---- ^ + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 25 case COB_TYPE_NATIONAL: return "N"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:24.6-24.7: + 21 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 case COB_TYPE_ALPHANUMERIC: return "X"; + 24 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +---- ^ + 25 case COB_TYPE_NATIONAL: return "N"; + 26 #else +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:25.6-25.7: + 22 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 23 case COB_TYPE_ALPHANUMERIC: return "X"; + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 25 > case COB_TYPE_NATIONAL: return "N"; +---- ^ + 26 #else + 27 case COB_TYPE_GROUP: return "Group"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:27.6-27.7: + 24 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 25 case COB_TYPE_NATIONAL: return "N"; + 26 #else + 27 > case COB_TYPE_GROUP: return "Group"; +---- ^ + 28 case COB_TYPE_NUMERIC_COMP5: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:28.6-28.7: + 25 case COB_TYPE_NATIONAL: return "N"; + 26 #else + 27 case COB_TYPE_GROUP: return "Group"; + 28 > case COB_TYPE_NUMERIC_COMP5: +---- ^ + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:30.6-30.7: + 27 case COB_TYPE_GROUP: return "Group"; + 28 case COB_TYPE_NUMERIC_COMP5: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; +---- ^ + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:31.6-31.7: + 28 case COB_TYPE_NUMERIC_COMP5: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; + 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; +---- ^ + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:32.6-32.7: + 29 return byvalue == 2 ? "COMP-4" : "COMP-5"; + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +---- ^ + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:33.6-33.7: + 30 case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +---- ^ + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 case COB_TYPE_ALPHANUMERIC: return "X"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:34.6-34.7: + 31 case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +---- ^ + 35 case COB_TYPE_ALPHANUMERIC: return "X"; + 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:35.6-35.7: + 32 case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 > case COB_TYPE_ALPHANUMERIC: return "X"; +---- ^ + 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 37 case COB_TYPE_NATIONAL: return "N"; +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:36.6-36.7: + 33 case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 case COB_TYPE_ALPHANUMERIC: return "X"; + 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +---- ^ + 37 case COB_TYPE_NATIONAL: return "N"; + 38 #endif +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:37.6-37.7: + 34 case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; + 35 case COB_TYPE_ALPHANUMERIC: return "X"; + 36 case COB_TYPE_NUMERIC_EDITED: return "EDITED"; + 37 > case COB_TYPE_NATIONAL: return "N"; +---- ^ + 38 #endif + 39 } +>> Error: Unexpected indicator: `e' + +run_misc.at-12158-cmod.c:40.6-40.7: + 37 case COB_TYPE_NATIONAL: return "N"; + 38 #endif + 39 } + 40 > sprintf (wrk,"Type %04X",type); +---- ^ + 41 return wrk; + 42 } +>> Error: Unexpected indicator: `i' + +run_misc.at-12158-cmod.c:41.6-41.7: + 38 #endif + 39 } + 40 sprintf (wrk,"Type %04X",type); + 41 > return wrk; +---- ^ + 42 } + 43 +>> Error: Unexpected indicator: `u' + +run_misc.at-12158-cmod.c:44.6-44.7: + 41 return wrk; + 42 } + 43 + 44 > COB_EXT_EXPORT int +---- ^ + 45 CAPI (void *p1, ...) + 46 { +>> Error: Unexpected indicator: `T' + +run_misc.at-12158-cmod.c:45.6-45.7: + 42 } + 43 + 44 COB_EXT_EXPORT int + 45 > CAPI (void *p1, ...) +---- ^ + 46 { + 47 int k,nargs,type,digits,scale,size,sign,byvalue; +>> Error: Unexpected indicator: `v' + +run_misc.at-12158-cmod.c:48.6-48.7: + 45 CAPI (void *p1, ...) + 46 { + 47 int k,nargs,type,digits,scale,size,sign,byvalue; + 48 > cob_s64_t val; +---- ^ + 49 char *str; + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ +>> Error: Unexpected indicator: `_' + +run_misc.at-12158-cmod.c:49.6-49.7: + 46 { + 47 int k,nargs,type,digits,scale,size,sign,byvalue; + 48 cob_s64_t val; + 49 > char *str; +---- ^ + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ + 51 +>> Error: Unexpected indicator: `r' + +run_misc.at-12158-cmod.c:50.6-50.7: + 47 int k,nargs,type,digits,scale,size,sign,byvalue; + 48 cob_s64_t val; + 49 char *str; + 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ +---- ^ + 51 + 52 nargs = cob_get_num_params(); +>> Error: Unexpected indicator: `r' + +run_misc.at-12158-cmod.c:52.6-52.7: + 49 char *str; + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ + 51 + 52 > nargs = cob_get_num_params(); +---- ^ + 53 printf ("CAPI called with %d parameters\n",nargs); + 54 for (k=1; k <= nargs; k++) { +>> Error: Unexpected indicator: `g' + +run_misc.at-12158-cmod.c:53.6-53.7: + 50 char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ + 51 + 52 nargs = cob_get_num_params(); + 53 > printf ("CAPI called with %d parameters\n",nargs); +---- ^ + 54 for (k=1; k <= nargs; k++) { + 55 cob_field *fld = cob_get_param_field (k, "CAPI"); +>> Error: Unexpected indicator: `n' + +run_misc.at-12158-cmod.c:55.6-55.7: + 52 nargs = cob_get_num_params(); + 53 printf ("CAPI called with %d parameters\n",nargs); + 54 for (k=1; k <= nargs; k++) { + 55 > cob_field *fld = cob_get_param_field (k, "CAPI"); +---- ^ + 56 type = cob_get_field_type (fld); + 57 digits = cob_get_field_digits (fld); +>> Error: Unexpected indicator: `c' + +run_misc.at-12158-cmod.c:56.6-56.7: + 53 printf ("CAPI called with %d parameters\n",nargs); + 54 for (k=1; k <= nargs; k++) { + 55 cob_field *fld = cob_get_param_field (k, "CAPI"); + 56 > type = cob_get_field_type (fld); +---- ^ + 57 digits = cob_get_field_digits (fld); + 58 scale = cob_get_field_scale (fld); +>> Error: Unexpected indicator: `t' + +run_misc.at-12158-cmod.c:58.6-58.7: + 55 cob_field *fld = cob_get_param_field (k, "CAPI"); + 56 type = cob_get_field_type (fld); + 57 digits = cob_get_field_digits (fld); + 58 > scale = cob_get_field_scale (fld); +---- ^ + 59 size = cob_get_field_size (fld); + 60 sign = cob_get_field_sign (fld); +>> Error: Unexpected indicator: `s' + +run_misc.at-12158-cmod.c:59.6-59.7: + 56 type = cob_get_field_type (fld); + 57 digits = cob_get_field_digits (fld); + 58 scale = cob_get_field_scale (fld); + 59 > size = cob_get_field_size (fld); +---- ^ + 60 sign = cob_get_field_sign (fld); + 61 byvalue = cob_get_field_constant (fld); +>> Error: Unexpected indicator: `s' + +run_misc.at-12158-cmod.c:60.6-60.7: + 57 digits = cob_get_field_digits (fld); + 58 scale = cob_get_field_scale (fld); + 59 size = cob_get_field_size (fld); + 60 > sign = cob_get_field_sign (fld); +---- ^ + 61 byvalue = cob_get_field_constant (fld); + 62 printf (" %d: %-8s ", k, getType (type, byvalue)); +>> Error: Unexpected indicator: `s' + +run_misc.at-12158-cmod.c:61.6-61.7: + 58 scale = cob_get_field_scale (fld); + 59 size = cob_get_field_size (fld); + 60 sign = cob_get_field_sign (fld); + 61 > byvalue = cob_get_field_constant (fld); +---- ^ + 62 printf (" %d: %-8s ", k, getType (type, byvalue)); + 63 if (byvalue) { +>> Error: Unexpected indicator: `b' + +run_misc.at-12158-cmod.c:62.6-62.7: + 59 size = cob_get_field_size (fld); + 60 sign = cob_get_field_sign (fld); + 61 byvalue = cob_get_field_constant (fld); + 62 > printf (" %d: %-8s ", k, getType (type, byvalue)); +---- ^ + 63 if (byvalue) { + 64 printf ("BY VALUE "); +>> Error: Unexpected indicator: `p' + +run_misc.at-12158-cmod.c:63.6-63.7: + 60 sign = cob_get_field_sign (fld); + 61 byvalue = cob_get_field_constant (fld); + 62 printf (" %d: %-8s ", k, getType (type, byvalue)); + 63 > if (byvalue) { +---- ^ + 64 printf ("BY VALUE "); + 65 } else { +>> Error: Unexpected indicator: `i' + +run_misc.at-12158-cmod.c:65.6-65.7: + 62 printf (" %d: %-8s ", k, getType (type, byvalue)); + 63 if (byvalue) { + 64 printf ("BY VALUE "); + 65 > } else { +---- ^ + 66 printf ("BY REFERENCE "); + 67 } +>> Error: Unexpected indicator: `}' + +run_misc.at-12158-cmod.c:67.6-67.7: + 64 printf ("BY VALUE "); + 65 } else { + 66 printf ("BY REFERENCE "); + 67 > } +---- ^ + 68 str = (char *) cob_get_field_str_buffered (fld); + 69 if (type == COB_TYPE_ALPHANUMERIC) { +>> Error: Unexpected indicator: `}' + +run_misc.at-12158-cmod.c:68.6-68.7: + 65 } else { + 66 printf ("BY REFERENCE "); + 67 } + 68 > str = (char *) cob_get_field_str_buffered (fld); +---- ^ + 69 if (type == COB_TYPE_ALPHANUMERIC) { + 70 sprintf (pic, "X(%d)", size); +>> Error: Unexpected indicator: `s' + +run_misc.at-12158-cmod.c:69.6-69.7: + 66 printf ("BY REFERENCE "); + 67 } + 68 str = (char *) cob_get_field_str_buffered (fld); + 69 > if (type == COB_TYPE_ALPHANUMERIC) { +---- ^ + 70 sprintf (pic, "X(%d)", size); + 71 printf ("%-11s '%s'", pic, str); +>> Error: Unexpected indicator: `i' + +run_misc.at-12158-cmod.c:73.6-73.7: + 70 sprintf (pic, "X(%d)", size); + 71 printf ("%-11s '%s'", pic, str); + 72 cob_put_field_str (fld, "Bye!"); + 73 > } else if (type == COB_TYPE_NATIONAL) { +---- ^ + 74 sprintf (pic,"N(%d)",size); /* FIXME */ + 75 printf ("exchange of national data is not supported yet"); +>> Error: Unexpected indicator: `}' + +run_misc.at-12158-cmod.c:76.6-76.7: + 73 } else if (type == COB_TYPE_NATIONAL) { + 74 sprintf (pic,"N(%d)",size); /* FIXME */ + 75 printf ("exchange of national data is not supported yet"); + 76 > } else if (type == COB_TYPE_GROUP) { +---- ^ + 77 sprintf (pic,"(%d)",size); + 78 printf ("%-11s '%.*s'",pic,size,str); +>> Error: Unexpected indicator: `}' + +run_misc.at-12158-cmod.c:80.6-80.7: + 77 sprintf (pic,"(%d)",size); + 78 printf ("%-11s '%.*s'",pic,size,str); + 79 cob_put_field_str (fld, "Bye-Bye Birdie!"); + 80 > } else if (type == COB_TYPE_NUMERIC_EDITED) { +---- ^ + 81 if (scale > 0) { + 82 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +>> Error: Unexpected indicator: `}' + +run_misc.at-12158-cmod.c:93.6-93.7: + 90 cob_put_s64_param (k, val); + 91 str = (char *) cob_get_field_str (fld, wrk, 78); + 92 printf (" to %.*s",size,wrk); + 93 > } else { +---- ^ + 94 if(scale > 0) { + 95 sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +>> Error: Unexpected indicator: `}' + +run_misc.at-12158-cmod.c:103.6-103.7: + 100 val = cob_get_s64_param (k); + 101 sprintf (wrk, "%lld", val + 3); + 102 cob_put_field_str (fld, wrk); + 103 > } +---- ^ + 104 printf (";\n"); + 105 fflush(stdout); +>> Error: Unexpected indicator: `}' + +run_misc.at-12158-cmod.c:104.6-104.7: + 101 sprintf (wrk, "%lld", val + 3); + 102 cob_put_field_str (fld, wrk); + 103 } + 104 > printf (";\n"); +---- ^ + 105 fflush(stdout); + 106 } +>> Error: Unexpected indicator: `p' + +run_misc.at-12158-cmod.c:105.6-105.7: + 102 cob_put_field_str (fld, wrk); + 103 } + 104 printf (";\n"); + 105 > fflush(stdout); +---- ^ + 106 } + 107 return 0; +>> Error: Unexpected indicator: `f' + +run_misc.at-12158-cmod.c:107.6-107.7: + 104 printf (";\n"); + 105 fflush(stdout); + 106 } + 107 > return 0; +---- ^ + 108 } +>> Error: Unexpected indicator: `u' + +run_misc.at-12158-cmod.c:80.22-109.0: + 77 sprintf (pic,"(%d)",size); + 78 printf ("%-11s '%.*s'",pic,size,str); + 79 cob_put_field_str (fld, "Bye-Bye Birdie!"); + 80 > } else if (type == COB_TYPE_NUMERIC_EDITED) { +---- + 81 > if (scale > 0) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 82 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 83 > } else { +---- ^^^^^^^^^^^^^^^^^^ + 84 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 85 > } +---- ^^^^^^^^^^^ + 86 > printf ("%-11s %s ",pic,str); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 87 > val = cob_get_s64_param (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 88 > val = val + 130; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 89 > val = -val; +---- ^^^^^^^^^^^^^^^^^^^^^ + 90 > cob_put_s64_param (k, val); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 91 > str = (char *) cob_get_field_str (fld, wrk, 78); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 92 > printf (" to %.*s",size,wrk); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 93 > } else { +---- ^^^^^^^^^^^^^^^ + 94 > if(scale > 0) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 95 > sprintf (pic,"%s9(%d)V9(%d)",sign?"S":"",digits-scale,scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 96 > } else { +---- ^^^^^^^^^^^^^^^^^^ + 97 > sprintf (pic,"%s9(%d)",sign?"S":"",digits-scale); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 98 > } +---- ^^^^^^^^^^^ + 99 > printf ("%-11s %s", pic, str); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 100 > val = cob_get_s64_param (k); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 101 > sprintf (wrk, "%lld", val + 3); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 102 > cob_put_field_str (fld, wrk); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 103 > } +---- ^^^^^^^^ + 104 > printf (";\n"); +---- ^^^^^^^^^^^^^^^^^^^^^^ + 105 > fflush(stdout); +---- ^^^^^^^^^^^^^^^^^^^^^^ + 106 > } +---- ^^^^^ + 107 > return 0; +---- ^^^^^^^^^^^^^ + 108 > } +---- ^^ +>> Error: Unterminated pseudotext + +run_misc.at-12158-cmod.c:29.23-69.17: + 26 #else + 27 case COB_TYPE_GROUP: return "Group"; + 28 case COB_TYPE_NUMERIC_COMP5: + 29 > return byvalue == 2 ? "COMP-4" : "COMP-5"; +---- + 30 > case COB_TYPE_NUMERIC_BINARY: return "COMP-4"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 31 > case COB_TYPE_NUMERIC_PACKED: return "COMP-3"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 32 > case COB_TYPE_NUMERIC_FLOAT: return "COMP-1"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 33 > case COB_TYPE_NUMERIC_DOUBLE: return "COMP-2"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 34 > case COB_TYPE_NUMERIC_DISPLAY: return "DISPLAY"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 35 > case COB_TYPE_ALPHANUMERIC: return "X"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 36 > case COB_TYPE_NUMERIC_EDITED: return "EDITED"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 37 > case COB_TYPE_NATIONAL: return "N"; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 38 > #endif +---- ^^^^^^^ + 39 > } +---- ^^^^^ + 40 > sprintf (wrk,"Type %04X",type); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 41 > return wrk; +---- ^^^^^^^^^^^^^^^ + 42 > } +---- ^^ + 43 > +---- ^ + 44 > COB_EXT_EXPORT int +---- ^^^^^^^^^^^^^^^^^^^ + 45 > CAPI (void *p1, ...) +---- ^^^^^^^^^^^^^^^^^^^^^ + 46 > { +---- ^^ + 47 > int k,nargs,type,digits,scale,size,sign,byvalue; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 48 > cob_s64_t val; +---- ^^^^^^^^^^^^^^^^^^^^ + 49 > char *str; +---- ^^^^^^^^^^^^^^^^^^ + 50 > char wrk[80],pic[30]; /* note: maximum _theoretical_ size */ +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 51 > +---- ^ + 52 > nargs = cob_get_num_params(); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 53 > printf ("CAPI called with %d parameters\n",nargs); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 54 > for (k=1; k <= nargs; k++) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 55 > cob_field *fld = cob_get_param_field (k, "CAPI"); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 56 > type = cob_get_field_type (fld); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 57 > digits = cob_get_field_digits (fld); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 58 > scale = cob_get_field_scale (fld); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 59 > size = cob_get_field_size (fld); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 60 > sign = cob_get_field_sign (fld); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 61 > byvalue = cob_get_field_constant (fld); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 62 > printf (" %d: %-8s ", k, getType (type, byvalue)); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 63 > if (byvalue) { +---- ^^^^^^^^^^^^^^^^^^^^^ + 64 > printf ("BY VALUE "); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 65 > } else { +---- ^^^^^^^^^^^^^^^ + 66 > printf ("BY REFERENCE "); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 67 > } +---- ^^^^^^^^ + 68 > str = (char *) cob_get_field_str_buffered (fld); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 69 > if (type == COB_TYPE_ALPHANUMERIC) { +---- ^^^^^^^^^^^^^^^^^^ + 70 sprintf (pic, "X(%d)", size); + 71 printf ("%-11s '%s'", pic, str); +>> Error: Unexpected pseudotext + +run_misc.at-12158-cmod.c:70.23-70.30: + 67 } + 68 str = (char *) cob_get_field_str_buffered (fld); + 69 if (type == COB_TYPE_ALPHANUMERIC) { + 70 > sprintf (pic, "X(%d)", size); +---- ^^^^^^^ + 71 printf ("%-11s '%s'", pic, str); + 72 cob_put_field_str (fld, "Bye!"); +>> Error: Missing PICTURE string (got `"X(%d)"' instead) + +run_misc.at-12158-cmod.c:73.22-76.24: + 70 sprintf (pic, "X(%d)", size); + 71 printf ("%-11s '%s'", pic, str); + 72 cob_put_field_str (fld, "Bye!"); + 73 > } else if (type == COB_TYPE_NATIONAL) { +---- ^^ + 74 > sprintf (pic,"N(%d)",size); /* FIXME */ +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 75 > printf ("exchange of national data is not supported yet"); +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 76 > } else if (type == COB_TYPE_GROUP) { +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 77 sprintf (pic,"(%d)",size); + 78 printf ("%-11s '%.*s'",pic,size,str); +>> Error: Unexpected pseudotext + +run_misc.at-12158-cmod.c:77.22-77.28: + 74 sprintf (pic,"N(%d)",size); /* FIXME */ + 75 printf ("exchange of national data is not supported yet"); + 76 } else if (type == COB_TYPE_GROUP) { + 77 > sprintf (pic,"(%d)",size); +---- ^^^^^^ + 78 printf ("%-11s '%.*s'",pic,size,str); + 79 cob_put_field_str (fld, "Bye-Bye Birdie!"); +>> Error: Missing PICTURE string (got `"(%d)"' instead) + +run_misc.at-12158-cmod.c:6.7-6.11: + 3 #include + 4 #include + 5 + 6 > static char * +---- ^^^^ + 7 getType (int type, int byvalue) + 8 { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12158:0 +run_misc.at-12158-prog.cob:33.29-33.35: + 30 MOVE "Hello!" TO CHRX. + 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 33 > CALL "CAPI" USING LENGTH OF GRPX. +---- ^^^^^^ + 34 CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. + 35 CALL "CAPI" USING "Fred Fish", COMP3. +>> Error: Invalid syntax + +run_misc.at-12158-prog.cob:34.43-34.49: + 31 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 32 CALL "CAPI" USING BY VALUE BINFLD5, CHRX. + 33 CALL "CAPI" USING LENGTH OF GRPX. + 34 > CALL "CAPI" USING BY VALUE GRPX LENGTH OF GRPX. +---- ^^^^^^ + 35 CALL "CAPI" USING "Fred Fish", COMP3. + 36 CALL "CAPI" USING COMP3V99. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12247:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12343:0 +run_misc.at-12343-prog.cob:26.18-26.27: + 23 05 DBI-RECORD-NAMES + 24 OCCURS 7 TIMES + 25 INDEXED BY REC-NAME-IDX + 26 > ASCENDING KEY IS DBI-RECORD-NAME +---- ^^^^^^^^^ + 27 . + 28 10 DBI-RECORD-NAME PIC X(30). +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12411:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12510:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12574:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12666:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12742:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12832:0 +run_misc.at-12832-prog.cob:2.7-2.11: + 1 + 2 > $SET CONSTANT DOGGY "Barky" +---- ^^^^ + 3 $SET CONSTANT PONY "Blacky" + 4 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +run_misc.at-12832-prog.cob:8.35: + 5 PROGRAM-ID. prog. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 $SET CONSTANT PONY "White" +>> Hint: Missing + +run_misc.at-12832-prog.cob:8.36-8.41: + 5 PROGRAM-ID. prog. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 $SET CONSTANT PONY "White" +>> Error: Invalid syntax + +run_misc.at-12832-prog.cob:9.35: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^ + 10 $SET CONSTANT PONY "White" + 11 * +>> Hint: Missing + +run_misc.at-12832-prog.cob:9.36-9.40: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^^^^ + 10 $SET CONSTANT PONY "White" + 11 * +>> Error: Invalid syntax + +run_misc.at-12832-prog.cob:10.7-10.11: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 > $SET CONSTANT PONY "White" +---- ^^^^ + 11 * + 12 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12843:0 +run_misc.at-12843-prog2.cob:2.7-2.35: + 1 + 2 > >>SET CONSTANT DOGGY "Barky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 >>SET CONSTANT PONY "Blacky" + 4 IDENTIFICATION DIVISION. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12843-prog2.cob:3.7-3.35: + 1 + 2 >>SET CONSTANT DOGGY "Barky" + 3 > >>SET CONSTANT PONY "Blacky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog2. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12843-prog2.cob:8.35: + 5 PROGRAM-ID. prog2. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>SET CONSTANT PONY "White" +>> Hint: Missing + +run_misc.at-12843-prog2.cob:8.36-8.41: + 5 PROGRAM-ID. prog2. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>SET CONSTANT PONY "White" +>> Error: Invalid syntax + +run_misc.at-12843-prog2.cob:9.35: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^ + 10 >>SET CONSTANT PONY "White" + 11 * +>> Hint: Missing + +run_misc.at-12843-prog2.cob:9.36-9.40: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^^^^ + 10 >>SET CONSTANT PONY "White" + 11 * +>> Error: Invalid syntax + +run_misc.at-12843-prog2.cob:10.7-10.34: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 > >>SET CONSTANT PONY "White" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 * + 12 PROCEDURE DIVISION. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12854:0 +run_misc.at-12854-prog3.cob:2.7-2.38: + 1 + 2 > >>DEFINE CONSTANT DOGGY "Barky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 >>DEFINE CONSTANT PONY "Blacky" + 4 IDENTIFICATION DIVISION. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12854-prog3.cob:3.7-3.38: + 1 + 2 >>DEFINE CONSTANT DOGGY "Barky" + 3 > >>DEFINE CONSTANT PONY "Blacky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog3. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12854-prog3.cob:8.35: + 5 PROGRAM-ID. prog3. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE +>> Hint: Missing + +run_misc.at-12854-prog3.cob:8.36-8.41: + 5 PROGRAM-ID. prog3. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE +>> Error: Invalid syntax + +run_misc.at-12854-prog3.cob:9.35: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^ + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE + 11 * +>> Hint: Missing + +run_misc.at-12854-prog3.cob:9.36-9.40: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^^^^ + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE + 11 * +>> Error: Invalid syntax + +run_misc.at-12854-prog3.cob:10.7-10.46: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 > >>DEFINE CONSTANT PONY "White" OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 * + 12 PROCEDURE DIVISION. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12917:0 +run_misc.at-12917-prog.cob:5.7-5.35: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 > >>SET CONSTANT DOGGY "Pluto" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 6 >>SET CONSTANT PONY "Piper" + 7 WORKING-STORAGE SECTION. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:6.7-6.34: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 >>SET CONSTANT DOGGY "Pluto" + 6 > >>SET CONSTANT PONY "Piper" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:8.35: + 5 >>SET CONSTANT DOGGY "Pluto" + 6 >>SET CONSTANT PONY "Piper" + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE +>> Hint: Missing + +run_misc.at-12917-prog.cob:8.36-8.41: + 5 >>SET CONSTANT DOGGY "Pluto" + 6 >>SET CONSTANT PONY "Piper" + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE +>> Error: Invalid syntax + +run_misc.at-12917-prog.cob:10.7-10.44: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 + 10 > >>DEFINE DPONY AS PARAMETER OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 >>IF DPONY IS NOT DEFINED + 12 >>DEFINE DPONY AS "No Dpony" +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:11.7-11.32: + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE + 11 > >>IF DPONY IS NOT DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 >>DEFINE DPONY AS "No Dpony" + 13 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:12.7-12.35: + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE + 11 >>IF DPONY IS NOT DEFINED + 12 > >>DEFINE DPONY AS "No Dpony" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 >>END-IF + 14 01 CNSPONY CONSTANT FROM DPONY. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:13.7-13.15: + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE + 11 >>IF DPONY IS NOT DEFINED + 12 >>DEFINE DPONY AS "No Dpony" + 13 > >>END-IF +---- ^^^^^^^^ + 14 01 CNSPONY CONSTANT FROM DPONY. + 15 +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:16.7-16.45: + 13 >>END-IF + 14 01 CNSPONY CONSTANT FROM DPONY. + 15 + 16 > >>DEFINE ENVPONY AS PARAMETER OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 17 >>IF ENVPONY IS NOT DEFINED + 18 >>DEFINE ENVPONY AS "No EnvPony" +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:17.7-17.34: + 14 01 CNSPONY CONSTANT FROM DPONY. + 15 + 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE + 17 > >>IF ENVPONY IS NOT DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:18.7-18.39: + 15 + 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE + 17 >>IF ENVPONY IS NOT DEFINED + 18 > >>DEFINE ENVPONY AS "No EnvPony" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 19 >>END-IF + 20 01 HORSE CONSTANT FROM ENVPONY. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:19.7-19.15: + 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE + 17 >>IF ENVPONY IS NOT DEFINED + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 > >>END-IF +---- ^^^^^^^^ + 20 01 HORSE CONSTANT FROM ENVPONY. + 21 77 MYHORSE PIC X(12) VALUE HORSE . +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:21.37: + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 >>END-IF + 20 01 HORSE CONSTANT FROM ENVPONY. + 21 > 77 MYHORSE PIC X(12) VALUE HORSE . +---- ^ + 22 77 MYPONYENV PIC X(12). + 23 * +>> Hint: Missing + +run_misc.at-12917-prog.cob:21.38-21.43: + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 >>END-IF + 20 01 HORSE CONSTANT FROM ENVPONY. + 21 > 77 MYHORSE PIC X(12) VALUE HORSE . +---- ^^^^^ + 22 77 MYPONYENV PIC X(12). + 23 * +>> Error: Invalid syntax + +run_misc.at-12917-prog.cob:27.33: + 24 PROCEDURE DIVISION. + 25 MAIN. + 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME + 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. +---- ^ + 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". + 29 DISPLAY "1st Dog's name is " DOGGY ";". +>> Hint: Missing + +run_misc.at-12917-prog.cob:27.34-27.51: + 24 PROCEDURE DIVISION. + 25 MAIN. + 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME + 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. +---- ^^^^^^^^^^^^^^^^^ + 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". + 29 DISPLAY "1st Dog's name is " DOGGY ";". +>> Error: Invalid syntax + +run_misc.at-12917-prog.cob:31.7-31.30: + 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". + 29 DISPLAY "1st Dog's name is " DOGGY ";". + 30 DISPLAY "2nd Dog's name is " PONY ";". + 31 > >>IF ENVPONY IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". + 33 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:33.7-33.13: + 30 DISPLAY "2nd Dog's name is " PONY ";". + 31 >>IF ENVPONY IS DEFINED + 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". + 33 > >>ELSE +---- ^^^^^^ + 34 DISPLAY "ENVPONY was NOT DEFINED;". + 35 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:35.7-35.15: + 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". + 33 >>ELSE + 34 DISPLAY "ENVPONY was NOT DEFINED;". + 35 > >>END-IF +---- ^^^^^^^^ + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 >>IF ENVPONY = "WHITE" +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:37.7-37.29: + 34 DISPLAY "ENVPONY was NOT DEFINED;". + 35 >>END-IF + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 > >>IF ENVPONY = "WHITE" +---- ^^^^^^^^^^^^^^^^^^^^^^ + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:38.7-38.55: + 35 >>END-IF + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 >>IF ENVPONY = "WHITE" + 38 > >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 39 >>ELSE + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:39.7-39.13: + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 >>IF ENVPONY = "WHITE" + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 > >>ELSE +---- ^^^^^^ + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE + 41 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:40.7-40.57: + 37 >>IF ENVPONY = "WHITE" + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 >>ELSE + 40 > >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 41 >>END-IF + 42 DISPLAY "My pony is " PONY ";". +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:41.7-41.15: + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 >>ELSE + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE + 41 > >>END-IF +---- ^^^^^^^^ + 42 DISPLAY "My pony is " PONY ";". + 43 >>IF DPONY IS DEFINED +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:43.7-43.28: + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE + 41 >>END-IF + 42 DISPLAY "My pony is " PONY ";". + 43 > >>IF DPONY IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^ + 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". + 45 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12917-prog.cob:45.7-45.15: + 42 DISPLAY "My pony is " PONY ";". + 43 >>IF DPONY IS DEFINED + 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". + 45 > >>END-IF +---- ^^^^^^^^ + 46 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:12983:0 +run_misc.at-12983-prog.cob:5.7-5.35: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 > >>SET CONSTANT DOGGY "Pluto" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 6 >>SET CONSTANT PONY "Piper" + 7 WORKING-STORAGE SECTION. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:6.7-6.34: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 >>SET CONSTANT DOGGY "Pluto" + 6 > >>SET CONSTANT PONY "Piper" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:8.35: + 5 >>SET CONSTANT DOGGY "Pluto" + 6 >>SET CONSTANT PONY "Piper" + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE +>> Hint: Missing + +run_misc.at-12983-prog.cob:8.36-8.41: + 5 >>SET CONSTANT DOGGY "Pluto" + 6 >>SET CONSTANT PONY "Piper" + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE +>> Error: Invalid syntax + +run_misc.at-12983-prog.cob:10.7-10.44: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 + 10 > >>DEFINE DPONY AS PARAMETER OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 >>IF DPONY IS NOT DEFINED + 12 >>DEFINE DPONY AS "No Dpony" +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:11.7-11.32: + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE + 11 > >>IF DPONY IS NOT DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 >>DEFINE DPONY AS "No Dpony" + 13 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:12.7-12.35: + 9 + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE + 11 >>IF DPONY IS NOT DEFINED + 12 > >>DEFINE DPONY AS "No Dpony" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 >>END-IF + 14 01 CNSPONY CONSTANT FROM DPONY. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:13.7-13.15: + 10 >>DEFINE DPONY AS PARAMETER OVERRIDE + 11 >>IF DPONY IS NOT DEFINED + 12 >>DEFINE DPONY AS "No Dpony" + 13 > >>END-IF +---- ^^^^^^^^ + 14 01 CNSPONY CONSTANT FROM DPONY. + 15 +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:16.7-16.45: + 13 >>END-IF + 14 01 CNSPONY CONSTANT FROM DPONY. + 15 + 16 > >>DEFINE ENVPONY AS PARAMETER OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 17 >>IF ENVPONY IS NOT DEFINED + 18 >>DEFINE ENVPONY AS "No EnvPony" +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:17.7-17.34: + 14 01 CNSPONY CONSTANT FROM DPONY. + 15 + 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE + 17 > >>IF ENVPONY IS NOT DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:18.7-18.39: + 15 + 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE + 17 >>IF ENVPONY IS NOT DEFINED + 18 > >>DEFINE ENVPONY AS "No EnvPony" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 19 >>END-IF + 20 01 HORSE CONSTANT FROM ENVPONY. +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:19.7-19.15: + 16 >>DEFINE ENVPONY AS PARAMETER OVERRIDE + 17 >>IF ENVPONY IS NOT DEFINED + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 > >>END-IF +---- ^^^^^^^^ + 20 01 HORSE CONSTANT FROM ENVPONY. + 21 77 MYHORSE PIC X(12) VALUE HORSE . +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:21.37: + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 >>END-IF + 20 01 HORSE CONSTANT FROM ENVPONY. + 21 > 77 MYHORSE PIC X(12) VALUE HORSE . +---- ^ + 22 77 MYPONYENV PIC X(12). + 23 * +>> Hint: Missing + +run_misc.at-12983-prog.cob:21.38-21.43: + 18 >>DEFINE ENVPONY AS "No EnvPony" + 19 >>END-IF + 20 01 HORSE CONSTANT FROM ENVPONY. + 21 > 77 MYHORSE PIC X(12) VALUE HORSE . +---- ^^^^^ + 22 77 MYPONYENV PIC X(12). + 23 * +>> Error: Invalid syntax + +run_misc.at-12983-prog.cob:27.33: + 24 PROCEDURE DIVISION. + 25 MAIN. + 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME + 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. +---- ^ + 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". + 29 DISPLAY "1st Dog's name is " DOGGY ";". +>> Hint: Missing + +run_misc.at-12983-prog.cob:27.34-27.51: + 24 PROCEDURE DIVISION. + 25 MAIN. + 26 DISPLAY "ENVPONY" UPON ENVIRONMENT-NAME + 27 > ACCEPT MYPONYENV FROM ENVIRONMENT-VALUE. +---- ^^^^^^^^^^^^^^^^^ + 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". + 29 DISPLAY "1st Dog's name is " DOGGY ";". +>> Error: Invalid syntax + +run_misc.at-12983-prog.cob:31.7-31.30: + 28 DISPLAY "ENVPONY env var set to " MYPONYENV ";". + 29 DISPLAY "1st Dog's name is " DOGGY ";". + 30 DISPLAY "2nd Dog's name is " PONY ";". + 31 > >>IF ENVPONY IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". + 33 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:33.7-33.13: + 30 DISPLAY "2nd Dog's name is " PONY ";". + 31 >>IF ENVPONY IS DEFINED + 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". + 33 > >>ELSE +---- ^^^^^^ + 34 DISPLAY "ENVPONY was NOT DEFINED;". + 35 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:35.7-35.15: + 32 DISPLAY "ENVPONY is DEFINED as " HORSE ";". + 33 >>ELSE + 34 DISPLAY "ENVPONY was NOT DEFINED;". + 35 > >>END-IF +---- ^^^^^^^^ + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 >>IF ENVPONY = "WHITE" +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:37.7-37.29: + 34 DISPLAY "ENVPONY was NOT DEFINED;". + 35 >>END-IF + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 > >>IF ENVPONY = "WHITE" +---- ^^^^^^^^^^^^^^^^^^^^^^ + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 >>ELSE +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:38.7-38.55: + 35 >>END-IF + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 >>IF ENVPONY = "WHITE" + 38 > >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 39 >>ELSE + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:39.7-39.13: + 36 DISPLAY "DPONY set to " CNSPONY ";". + 37 >>IF ENVPONY = "WHITE" + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 > >>ELSE +---- ^^^^^^ + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE + 41 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:40.7-40.57: + 37 >>IF ENVPONY = "WHITE" + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 >>ELSE + 40 > >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 41 >>END-IF + 42 DISPLAY "My pony is " PONY ";". +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:41.7-41.15: + 38 >>DEFINE CONSTANT PONY AS "White Horse" OVERRIDE + 39 >>ELSE + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE + 41 > >>END-IF +---- ^^^^^^^^ + 42 DISPLAY "My pony is " PONY ";". + 43 >>IF DPONY IS DEFINED +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:43.7-43.28: + 40 >>DEFINE CONSTANT PONY AS "default Dirty" OVERRIDE + 41 >>END-IF + 42 DISPLAY "My pony is " PONY ";". + 43 > >>IF DPONY IS DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^ + 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". + 45 >>END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-12983-prog.cob:45.7-45.15: + 42 DISPLAY "My pony is " PONY ";". + 43 >>IF DPONY IS DEFINED + 44 DISPLAY "DPONY is DEFINED as " CNSPONY ";". + 45 > >>END-IF +---- ^^^^^^^^ + 46 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13049:0 +run_misc.at-13049-prog.cob:14.30-14.31: + 11 05 FLD4 PIC X(4). + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:14.36-14.37: + 11 05 FLD4 PIC X(4). + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:14.65: + 11 05 FLD4 PIC X(4). + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. +>> Hint: Missing FROM + +run_misc.at-13049-prog.cob:14.65-14.66: + 11 05 FLD4 PIC X(4). + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:15.27-15.30: + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^^^ + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:15.37-15.38: + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^ + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:15.57: + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^ + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. +>> Hint: Missing FROM + +run_misc.at-13049-prog.cob:15.57-15.58: + 12 05 FLD5 PIC X(4). + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^ + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:16.35: + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 17 78 DIV1 VALUE 100 / 3. + 18 78 NUM2 VALUE 1 + 2 * 3. +>> Hint: Missing + +run_misc.at-13049-prog.cob:16.36-16.41: + 13 01 PICX PIC XXX VALUE 'Abc'. + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 17 78 DIV1 VALUE 100 / 3. + 18 78 NUM2 VALUE 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:17.31-17.32: + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 > 78 DIV1 VALUE 100 / 3. +---- ^ + 18 78 NUM2 VALUE 1 + 2 * 3. + 19 LINKAGE SECTION. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:17.34: + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 > 78 DIV1 VALUE 100 / 3. +---- ^ + 18 78 NUM2 VALUE 1 + 2 * 3. + 19 LINKAGE SECTION. +>> Hint: Missing FROM + +run_misc.at-13049-prog.cob:17.34-17.35: + 14 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 > 78 DIV1 VALUE 100 / 3. +---- ^ + 18 78 NUM2 VALUE 1 + 2 * 3. + 19 LINKAGE SECTION. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:18.29-18.30: + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. + 18 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 19 LINKAGE SECTION. + 20 01 XMYREC. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:18.33-18.34: + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. + 18 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 19 LINKAGE SECTION. + 20 01 XMYREC. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:18.36: + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. + 18 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 19 LINKAGE SECTION. + 20 01 XMYREC. +>> Hint: Missing FROM + +run_misc.at-13049-prog.cob:18.36-18.37: + 15 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 16 01 THEDOG PIC X(6) VALUE DOGGY. + 17 78 DIV1 VALUE 100 / 3. + 18 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 19 LINKAGE SECTION. + 20 01 XMYREC. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:23.31: + 20 01 XMYREC. + 21 05 XFLD1 PIC 9(2). + 22 05 XFLD2 PIC X(7). + 23 > 78 XPOS3 VALUE NEXT. +---- ^ + 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. + 25 78 XPOS4 VALUE NEXT. +>> Hint: Missing + +run_misc.at-13049-prog.cob:23.32-23.36: + 20 01 XMYREC. + 21 05 XFLD1 PIC 9(2). + 22 05 XFLD2 PIC X(7). + 23 > 78 XPOS3 VALUE NEXT. +---- ^^^^ + 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. + 25 78 XPOS4 VALUE NEXT. +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:25.31: + 22 05 XFLD2 PIC X(7). + 23 78 XPOS3 VALUE NEXT. + 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. + 25 > 78 XPOS4 VALUE NEXT. +---- ^ + 26 05 XFLD4 PIC X(4). + 27 05 XFLD5 PIC X(4). +>> Hint: Missing + +run_misc.at-13049-prog.cob:25.32-25.36: + 22 05 XFLD2 PIC X(7). + 23 78 XPOS3 VALUE NEXT. + 24 05 XFLD3 PIC X(2) OCCURS 5 TIMES. + 25 > 78 XPOS4 VALUE NEXT. +---- ^^^^ + 26 05 XFLD4 PIC X(4). + 27 05 XFLD5 PIC X(4). +>> Error: Invalid syntax + +run_misc.at-13049-prog.cob:28.27: + 25 78 XPOS4 VALUE NEXT. + 26 05 XFLD4 PIC X(4). + 27 05 XFLD5 PIC X(4). + 28 > 78 XSTRT4 VALUE START OF XFLD4. +---- ^ + 29 * + 30 PROCEDURE DIVISION. +>> Hint: Missing + +run_misc.at-13049-prog.cob:28.28-28.33: + 25 78 XPOS4 VALUE NEXT. + 26 05 XFLD4 PIC X(4). + 27 05 XFLD5 PIC X(4). + 28 > 78 XSTRT4 VALUE START OF XFLD4. +---- ^^^^^ + 29 * + 30 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13127:0 +run_misc.at-13127-prog.cob:2.7-2.32: + 1 + 2 > >>DEFINE MYDOG AS "Piper" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 >>DEFINE MYNUM1 AS 11 + 4 IDENTIFICATION DIVISION. +>> Error: Malformed or unknown compiler directive + +run_misc.at-13127-prog.cob:3.7-3.28: + 1 + 2 >>DEFINE MYDOG AS "Piper" + 3 > >>DEFINE MYNUM1 AS 11 +---- ^^^^^^^^^^^^^^^^^^^^^ + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog. +>> Error: Malformed or unknown compiler directive + +run_misc.at-13127-prog.cob:15.29: + 12 05 FLD4 PIC X(4). + 13 05 FLD5 PIC X(4). + 14 01 PICX PIC XXX VALUE 'Abc'. + 15 > 01 CAT CONSTANT 'Cat '. +---- ^ + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. +>> Hint: Missing RECORD + +run_misc.at-13127-prog.cob:15.31-15.37: + 12 05 FLD4 PIC X(4). + 13 05 FLD5 PIC X(4). + 14 01 PICX PIC XXX VALUE 'Abc'. + 15 > 01 CAT CONSTANT 'Cat '. +---- ^^^^^^ + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:16.29: + 13 05 FLD5 PIC X(4). + 14 01 PICX PIC XXX VALUE 'Abc'. + 15 01 CAT CONSTANT 'Cat '. + 16 > 01 DOG CONSTANT 'Dog '. +---- ^ + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +>> Hint: Missing RECORD + +run_misc.at-13127-prog.cob:16.31-16.37: + 13 05 FLD5 PIC X(4). + 14 01 PICX PIC XXX VALUE 'Abc'. + 15 01 CAT CONSTANT 'Cat '. + 16 > 01 DOG CONSTANT 'Dog '. +---- ^^^^^^ + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:17.29: + 14 01 PICX PIC XXX VALUE 'Abc'. + 15 01 CAT CONSTANT 'Cat '. + 16 01 DOG CONSTANT 'Dog '. + 17 > 01 YARD CONSTANT CAT & "& " & DOG. +---- ^ + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +>> Hint: Missing RECORD + +run_misc.at-13127-prog.cob:17.31-17.34: + 14 01 PICX PIC XXX VALUE 'Abc'. + 15 01 CAT CONSTANT 'Cat '. + 16 01 DOG CONSTANT 'Dog '. + 17 > 01 YARD CONSTANT CAT & "& " & DOG. +---- ^^^ + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:18.30-18.31: + 15 01 CAT CONSTANT 'Cat '. + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:18.36-18.37: + 15 01 CAT CONSTANT 'Cat '. + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:18.65: + 15 01 CAT CONSTANT 'Cat '. + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. +>> Hint: Missing FROM + +run_misc.at-13127-prog.cob:18.65-18.66: + 15 01 CAT CONSTANT 'Cat '. + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 > 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. +---- ^ + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:19.27-19.30: + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^^^ + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:19.37-19.38: + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^ + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:19.57: + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^ + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. +>> Hint: Missing FROM + +run_misc.at-13127-prog.cob:19.57-19.58: + 16 01 DOG CONSTANT 'Dog '. + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 > 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. +---- ^ + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:20.31-20.32: + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 > 78 DIV1 VALUE 100 / 3. +---- ^ + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:20.34: + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 > 78 DIV1 VALUE 100 / 3. +---- ^ + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +>> Hint: Missing FROM + +run_misc.at-13127-prog.cob:20.34-20.35: + 17 01 YARD CONSTANT CAT & "& " & DOG. + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 > 78 DIV1 VALUE 100 / 3. +---- ^ + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:21.29-21.30: + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:21.33-21.34: + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:21.36: + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. +>> Hint: Missing FROM + +run_misc.at-13127-prog.cob:21.36-21.37: + 18 78 HUN VALUE 10 * (10 + LENGTH OF PICX) + 12.35-2+3. + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 > 78 NUM2 VALUE 1 + 2 * 3. +---- ^ + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:22.29: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Hint: Missing RECORD . + +run_misc.at-13127-prog.cob:22.30-22.34: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^^^^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:22.34: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Hint: Missing . + +run_misc.at-13127-prog.cob:22.35-22.36: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:22.38-22.39: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:22.47: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Hint: Missing RENAMES . + +run_misc.at-13127-prog.cob:22.46-22.47: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:22.51-22.52: + 19 78 HUN2 VALUE HUN * (10 + LENGTH OF PICX) -4. + 20 78 DIV1 VALUE 100 / 3. + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 > 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). +---- ^ + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 01 CON5 CONSTANT 1 + 2 * 3. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:24.29: + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 > 01 CON5 CONSTANT 1 + 2 * 3. +---- ^ + 25 01 DOGNAME CONSTANT FROM MYDOG. + 26 01 NUM1 CONSTANT FROM MYNUM1. +>> Hint: Missing RECORD . + +run_misc.at-13127-prog.cob:24.30-24.31: + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 > 01 CON5 CONSTANT 1 + 2 * 3. +---- ^ + 25 01 DOGNAME CONSTANT FROM MYDOG. + 26 01 NUM1 CONSTANT FROM MYNUM1. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:24.31: + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 > 01 CON5 CONSTANT 1 + 2 * 3. +---- ^ + 25 01 DOGNAME CONSTANT FROM MYDOG. + 26 01 NUM1 CONSTANT FROM MYNUM1. +>> Hint: Missing . + +run_misc.at-13127-prog.cob:24.32-24.33: + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 > 01 CON5 CONSTANT 1 + 2 * 3. +---- ^ + 25 01 DOGNAME CONSTANT FROM MYDOG. + 26 01 NUM1 CONSTANT FROM MYNUM1. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:24.35: + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 > 01 CON5 CONSTANT 1 + 2 * 3. +---- ^ + 25 01 DOGNAME CONSTANT FROM MYDOG. + 26 01 NUM1 CONSTANT FROM MYNUM1. +>> Hint: Missing . + +run_misc.at-13127-prog.cob:24.36-24.37: + 21 78 NUM2 VALUE 1 + 2 * 3. + 22 01 CON3 CONSTANT (((1 + 2) * NUM2) - 4). + 23 01 CON4 CONSTANT AS 3.1416 + CON3. + 24 > 01 CON5 CONSTANT 1 + 2 * 3. +---- ^ + 25 01 DOGNAME CONSTANT FROM MYDOG. + 26 01 NUM1 CONSTANT FROM MYNUM1. +>> Error: Invalid syntax + +run_misc.at-13127-prog.cob:28.7-28.25: + 25 01 DOGNAME CONSTANT FROM MYDOG. + 26 01 NUM1 CONSTANT FROM MYNUM1. + 27 01 CON6 CONSTANT AS CON5 + NUM1. + 28 > >> IF NUM2 DEFINED *> optional passed from command line +---- ^^^^^^^^^^^^^^^^^^ + 29 01 NUM2 CONSTANT FROM MYNUM2. + 30 >> END-IF +>> Error: Malformed or unknown compiler directive + +run_misc.at-13127-prog.cob:30.7-30.16: + 27 01 CON6 CONSTANT AS CON5 + NUM1. + 28 >> IF NUM2 DEFINED *> optional passed from command line + 29 01 NUM2 CONSTANT FROM MYNUM2. + 30 > >> END-IF +---- ^^^^^^^^^ + 31 * + 32 PROCEDURE DIVISION. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13174:0 +run_misc.at-13174-prog.cob:11.25: + 8 DATA DIVISION. + 9 WORKING-STORAGE SECTION. + 10 77 note PIC X(05). + 11 > PROCEDURE DIVISION CHAINING note. +---- ^ + 12 DISPLAY "This is sent to CONSOLE " note UPON CONSOLE. + 13 DISPLAY "This is sent to SYSERR " note UPON SYSERR. +>> Hint: Missing . + +run_misc.at-13174-prog.cob:11.26-11.34: + 8 DATA DIVISION. + 9 WORKING-STORAGE SECTION. + 10 77 note PIC X(05). + 11 > PROCEDURE DIVISION CHAINING note. +---- ^^^^^^^^ + 12 DISPLAY "This is sent to CONSOLE " note UPON CONSOLE. + 13 DISPLAY "This is sent to SYSERR " note UPON SYSERR. +>> Error: Invalid syntax + +run_misc.at-13174-prog.cob:19.12-19.24: + 16 DISPLAY "This is also sent to SYSERR " note UPON SYSERR. + 17 DISPLAY "This is also sent to PRINTER " note UPON PRINTER. + 18 DISPLAY "This is sent to SYSPUNCH " note UPON SYSPUNCH + 19 > ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. +---- ^^^^^^^^^^^^ + 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH + 21 ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. +>> Error: Invalid syntax + +run_misc.at-13174-prog.cob:21.12-21.24: + 18 DISPLAY "This is sent to SYSPUNCH " note UPON SYSPUNCH + 19 ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. + 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH + 21 > ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. +---- ^^^^^^^^^^^^ + 22 STOP RUN RETURNING 0. +>> Error: Invalid syntax + +run_misc.at-13174-prog.cob:22.15: + 19 ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. + 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH + 21 ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. + 22 > STOP RUN RETURNING 0. +---- ^ +>> Hint: Missing . + +run_misc.at-13174-prog.cob:22.16-22.25: + 19 ON EXCEPTION DISPLAY 'NO ...' UPON SYSERR. + 20 DISPLAY "This is also sent to SYSPUNCH " note UPON SYSPCH + 21 ON EXCEPTION DISPLAY ' ... SYSPUNCH' UPON SYSERR. + 22 > STOP RUN RETURNING 0. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13228:0 +run_misc.at-13228-reference:1.6-1.7: + 1 > This is sent to PRINTER PIPE. +---- ^ + 2 This is also sent to PRINTER PIPE. + 3 This is sent to PRINTER PRINT +>> Error: Unexpected indicator: `s' + +run_misc.at-13228-reference:2.6-2.7: + 1 This is sent to PRINTER PIPE. + 2 > This is also sent to PRINTER PIPE. +---- ^ + 3 This is sent to PRINTER PRINT + 4 This is also sent to PRINTER PRINT +>> Error: Unexpected indicator: `s' + +run_misc.at-13228-reference:3.6-3.7: + 1 This is sent to PRINTER PIPE. + 2 This is also sent to PRINTER PIPE. + 3 > This is sent to PRINTER PRINT +---- ^ + 4 This is also sent to PRINTER PRINT +>> Error: Unexpected indicator: `s' + +run_misc.at-13228-reference:4.6-4.7: + 1 This is sent to PRINTER PIPE. + 2 This is also sent to PRINTER PIPE. + 3 This is sent to PRINTER PRINT + 4 > This is also sent to PRINTER PRINT +---- ^ +>> Error: Unexpected indicator: `s' + +run_misc.at-13228-reference:1.8-1.12: + 1 > This is sent to PRINTER PIPE. +---- ^^^^ + 2 This is also sent to PRINTER PIPE. + 3 This is sent to PRINTER PRINT +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13389:0 +run_misc.at-13389-prog.cob:15.34: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Hint: Missing ) ) ) . + +run_misc.at-13389-prog.cob:15.32-15.34: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^^ + 16 DISPLAY "A: " FD34 + 17 +>> Error: Invalid syntax + +run_misc.at-13389-prog.cob:15.34: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:15.35-15.36: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:15.43: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:15.42-15.43: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:15.52: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:15.51-15.52: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:15.70: + 12 PROCEDURE DIVISION. + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 > COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 16 DISPLAY "A: " FD34 + 17 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:16.11-16.18: + 13 CND-000. + 14 DISPLAY "--- FLOAT-DECIMAL-34 ---" + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 > DISPLAY "A: " FD34 +---- ^^^^^^^ + 17 + 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:18.34: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Hint: Missing ) ) ) . + +run_misc.at-13389-prog.cob:18.32-18.34: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Error: Invalid syntax + +run_misc.at-13389-prog.cob:18.34: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:18.35-18.36: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:18.43: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:18.42-18.43: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:18.52: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:18.51-18.52: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:18.70: + 15 COMPUTE FD34 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 16 DISPLAY "A: " FD34 + 17 + 18 > COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:19.11-19.18: + 16 DISPLAY "A: " FD34 + 17 + 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 > DISPLAY "B: " FD34 +---- ^^^^^^^ + 20 MOVE ZERO TO FD34. + 21 COMPUTE FD34 = 1.0E3 / 2.1E0 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:21.31: + 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. + 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" +>> Hint: Missing . + +run_misc.at-13389-prog.cob:21.29-21.31: + 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. + 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 +---- ^^ + 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:21.31: + 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. + 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" +>> Hint: Missing . + +run_misc.at-13389-prog.cob:21.32-21.33: + 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. + 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:21.39: + 18 COMPUTE FD34 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. + 21 > COMPUTE FD34 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" +>> Hint: Missing . + +run_misc.at-13389-prog.cob:22.19-22.32: + 19 DISPLAY "B: " FD34 + 20 MOVE ZERO TO FD34. + 21 COMPUTE FD34 = 1.0E3 / 2.1E0 + 22 > ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" +---- ^^^^^^^^^^^^^ + 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" + 24 END-COMPUTE. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:23.15-23.32: + 20 MOVE ZERO TO FD34. + 21 COMPUTE FD34 = 1.0E3 / 2.1E0 + 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" + 23 > NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" +---- ^^^^^^^^^^^^^^^^^ + 24 END-COMPUTE. + 25 +>> Error: Invalid syntax + +run_misc.at-13389-prog.cob:24.11-24.22: + 21 COMPUTE FD34 = 1.0E3 / 2.1E0 + 22 ON SIZE ERROR DISPLAY "Z: " FD34 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " FD34 " IS OK" + 24 > END-COMPUTE. +---- ^^^^^^^^^^^ + 25 + 26 DISPLAY " ..." +>> Error: Invalid syntax + +run_misc.at-13389-prog.cob:28.34: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Hint: Missing ) ) ) . + +run_misc.at-13389-prog.cob:28.32-28.34: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^^ + 29 DISPLAY "A: " FD16 + 30 +>> Error: Invalid syntax + +run_misc.at-13389-prog.cob:28.34: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:28.35-28.36: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:28.43: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:28.42-28.43: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:28.52: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:28.51-28.52: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:28.70: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 > COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 DISPLAY "A: " FD16 + 30 +>> Hint: Missing . + +run_misc.at-13389-prog.cob:29.11-29.18: + 26 DISPLAY " ..." + 27 DISPLAY "--- FLOAT-DECIMAL-16 ---" + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 > DISPLAY "A: " FD16 +---- ^^^^^^^ + 30 + 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:31.34: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Hint: Missing ) ) ) . + +run_misc.at-13389-prog.cob:31.32-31.34: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Error: Invalid syntax + +run_misc.at-13389-prog.cob:31.34: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:31.35-31.36: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:31.43: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:31.42-31.43: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:31.52: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:31.51-31.52: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:31.70: + 28 COMPUTE FD16 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 DISPLAY "A: " FD16 + 30 + 31 > COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. +>> Hint: Missing . + +run_misc.at-13389-prog.cob:32.11-32.18: + 29 DISPLAY "A: " FD16 + 30 + 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 32 > DISPLAY "B: " FD16 +---- ^^^^^^^ + 33 MOVE ZERO TO FD16. + 34 COMPUTE FD16 = 1.0E3 / 2.1E0 +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:34.31: + 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. + 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 +---- ^ + 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" + 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" +>> Hint: Missing . + +run_misc.at-13389-prog.cob:34.29-34.31: + 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. + 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 +---- ^^ + 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" + 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:34.31: + 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. + 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 +---- ^ + 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" + 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" +>> Hint: Missing . + +run_misc.at-13389-prog.cob:34.32-34.33: + 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. + 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 +---- ^ + 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" + 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:34.39: + 31 COMPUTE FD16 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. + 34 > COMPUTE FD16 = 1.0E3 / 2.1E0 +---- ^ + 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" + 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" +>> Hint: Missing . + +run_misc.at-13389-prog.cob:35.19-35.32: + 32 DISPLAY "B: " FD16 + 33 MOVE ZERO TO FD16. + 34 COMPUTE FD16 = 1.0E3 / 2.1E0 + 35 > ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" +---- ^^^^^^^^^^^^^ + 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" + 37 END-COMPUTE. +>> Warning: Invalid syntax + +run_misc.at-13389-prog.cob:36.15-36.32: + 33 MOVE ZERO TO FD16. + 34 COMPUTE FD16 = 1.0E3 / 2.1E0 + 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" + 36 > NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" +---- ^^^^^^^^^^^^^^^^^ + 37 END-COMPUTE. + 38 +>> Error: Invalid syntax + +run_misc.at-13389-prog.cob:37.11-37.22: + 34 COMPUTE FD16 = 1.0E3 / 2.1E0 + 35 ON SIZE ERROR DISPLAY "Z: " FD16 " SIZE ERROR" + 36 NOT ON SIZE ERROR DISPLAY "Z: " FD16 " IS OK" + 37 > END-COMPUTE. +---- ^^^^^^^^^^^ + 38 + 39 DISPLAY " ..." +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13590:0 +run_misc.at-13590-prog.cob:16.34: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Hint: Missing ) ) ) . + +run_misc.at-13590-prog.cob:16.32-16.34: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Error: Invalid syntax + +run_misc.at-13590-prog.cob:16.34: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Hint: Missing . + +run_misc.at-13590-prog.cob:16.35-16.36: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:16.43: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Hint: Missing . + +run_misc.at-13590-prog.cob:16.42-16.43: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:16.52: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Hint: Missing . + +run_misc.at-13590-prog.cob:16.51-16.52: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:16.70: + 13 CND-000. + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 > COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +>> Hint: Missing . + +run_misc.at-13590-prog.cob:17.11-17.18: + 14 + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 > DISPLAY "A: " CMP1 +---- ^^^^^^^ + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " CMP1 +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:18.34: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Hint: Missing ) ) ) . + +run_misc.at-13590-prog.cob:18.32-18.34: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Error: Invalid syntax + +run_misc.at-13590-prog.cob:18.34: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Hint: Missing . + +run_misc.at-13590-prog.cob:18.35-18.36: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:18.43: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Hint: Missing . + +run_misc.at-13590-prog.cob:18.42-18.43: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:18.52: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Hint: Missing . + +run_misc.at-13590-prog.cob:18.51-18.52: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:18.70: + 15 DISPLAY "--- COMP-1 ---" + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 > COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. +>> Hint: Missing . + +run_misc.at-13590-prog.cob:19.11-19.18: + 16 COMPUTE CMP1 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 17 DISPLAY "A: " CMP1 + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 > DISPLAY "B: " CMP1 +---- ^^^^^^^ + 20 MOVE ZERO TO CMP1. + 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:21.31: + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. + 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" +>> Hint: Missing . + +run_misc.at-13590-prog.cob:21.29-21.31: + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. + 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 +---- ^^ + 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:21.31: + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. + 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" +>> Hint: Missing . + +run_misc.at-13590-prog.cob:21.32-21.33: + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. + 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:21.39: + 18 COMPUTE CMP1 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. + 21 > COMPUTE CMP1 = 1.0E3 / 2.1E0 +---- ^ + 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" +>> Hint: Missing . + +run_misc.at-13590-prog.cob:22.19-22.32: + 19 DISPLAY "B: " CMP1 + 20 MOVE ZERO TO CMP1. + 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 + 22 > ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" +---- ^^^^^^^^^^^^^ + 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" + 24 END-COMPUTE. +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:23.15-23.32: + 20 MOVE ZERO TO CMP1. + 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 + 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" + 23 > NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" +---- ^^^^^^^^^^^^^^^^^ + 24 END-COMPUTE. + 25 +>> Error: Invalid syntax + +run_misc.at-13590-prog.cob:24.11-24.22: + 21 COMPUTE CMP1 = 1.0E3 / 2.1E0 + 22 ON SIZE ERROR DISPLAY "Z: " CMP1 " SIZE ERROR" + 23 NOT ON SIZE ERROR DISPLAY "Z: " CMP1 " IS OK" + 24 > END-COMPUTE. +---- ^^^^^^^^^^^ + 25 + 26 DISPLAY " ..." +>> Error: Invalid syntax + +run_misc.at-13590-prog.cob:28.34: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Hint: Missing ) ) ) . + +run_misc.at-13590-prog.cob:28.32-28.34: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Error: Invalid syntax + +run_misc.at-13590-prog.cob:28.34: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Hint: Missing . + +run_misc.at-13590-prog.cob:28.35-28.36: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:28.43: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Hint: Missing . + +run_misc.at-13590-prog.cob:28.42-28.43: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:28.52: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Hint: Missing . + +run_misc.at-13590-prog.cob:28.51-28.52: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:28.70: + 25 + 26 DISPLAY " ..." + 27 DISPLAY "--- COMP-2 ---" + 28 > COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 +---- ^ + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY +>> Hint: Missing . + +run_misc.at-13590-prog.cob:31.11-31.13: + 28 COMPUTE CMP2 = (((1.0E7 / 2.1E0) / 3.1E0) - 5.0E-1) * 6.0E0 + 29 *> because of possible rounding of intermediates and different + 30 *> precision depending on math library / version: plain DISPLAY + 31 > IF CMP2 >= 9216586.86175114 AND <= 9216586.86175116 +---- ^^ + 32 DISPLAY "A ~ 9216586.86175115" + 33 ELSE +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:36.34: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Hint: Missing ) ) ) . + +run_misc.at-13590-prog.cob:36.32-36.34: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Error: Invalid syntax + +run_misc.at-13590-prog.cob:36.34: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Hint: Missing . + +run_misc.at-13590-prog.cob:36.35-36.36: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:36.43: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Hint: Missing . + +run_misc.at-13590-prog.cob:36.42-36.43: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:36.52: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Hint: Missing . + +run_misc.at-13590-prog.cob:36.51-36.52: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:36.70: + 33 ELSE + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 > COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 +---- ^ + 37 IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 + 38 DISPLAY "B ~ 5305036.787798408" +>> Hint: Missing . + +run_misc.at-13590-prog.cob:37.11-37.13: + 34 DISPLAY "A: " CMP2 + 35 END-IF + 36 COMPUTE CMP2 = (((1.0E7 / 2.9E0) / 3.9E0) - 5.0E-1) * 6.0E0 + 37 > IF CMP2 >= 5305036.7877983 AND <= 5305036.7877985 +---- ^^ + 38 DISPLAY "B ~ 5305036.787798408" + 39 ELSE +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:43.31: + 40 DISPLAY "B: " CMP2 + 41 END-IF + 42 MOVE ZERO TO CMP2. + 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 +---- ^ + 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" + 45 NOT ON SIZE ERROR +>> Hint: Missing . + +run_misc.at-13590-prog.cob:43.29-43.31: + 40 DISPLAY "B: " CMP2 + 41 END-IF + 42 MOVE ZERO TO CMP2. + 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 +---- ^^ + 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" + 45 NOT ON SIZE ERROR +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:43.31: + 40 DISPLAY "B: " CMP2 + 41 END-IF + 42 MOVE ZERO TO CMP2. + 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 +---- ^ + 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" + 45 NOT ON SIZE ERROR +>> Hint: Missing . + +run_misc.at-13590-prog.cob:43.32-43.33: + 40 DISPLAY "B: " CMP2 + 41 END-IF + 42 MOVE ZERO TO CMP2. + 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 +---- ^ + 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" + 45 NOT ON SIZE ERROR +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:43.39: + 40 DISPLAY "B: " CMP2 + 41 END-IF + 42 MOVE ZERO TO CMP2. + 43 > COMPUTE CMP2 = 1.0E3 / 2.1E0 +---- ^ + 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" + 45 NOT ON SIZE ERROR +>> Hint: Missing . + +run_misc.at-13590-prog.cob:44.19-44.32: + 41 END-IF + 42 MOVE ZERO TO CMP2. + 43 COMPUTE CMP2 = 1.0E3 / 2.1E0 + 44 > ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" +---- ^^^^^^^^^^^^^ + 45 NOT ON SIZE ERROR + 46 *> see note above +>> Warning: Invalid syntax + +run_misc.at-13590-prog.cob:45.15-45.32: + 42 MOVE ZERO TO CMP2. + 43 COMPUTE CMP2 = 1.0E3 / 2.1E0 + 44 ON SIZE ERROR DISPLAY "Z: " CMP2 " SIZE ERROR" + 45 > NOT ON SIZE ERROR +---- ^^^^^^^^^^^^^^^^^ + 46 *> see note above + 47 IF CMP2 >= 476.1904761904760 AND <= 476.1904761904763 +>> Error: Invalid syntax + +run_misc.at-13590-prog.cob:52.11-52.22: + 49 ELSE + 50 DISPLAY "Z: " CMP2 " IS OK" + 51 END-IF + 52 > END-COMPUTE. +---- ^^^^^^^^^^^ + 53 + 54 DISPLAY " ..." +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13663:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13722:0 +run_misc.at-13722-prog.cob:22.47: + 19 compute doubleValue = doubleValue * 2 + 20 ON SIZE ERROR + 21 display 'SIZE ERROR raised' + 22 > with no advancing upon syserr +---- ^ + 23 end-display + 24 display 'SIZE ERROR, last value = ' doubleValue +>> Hint: Missing END_PERFORM . + +run_misc.at-13722-prog.cob:22.48-22.52: + 19 compute doubleValue = doubleValue * 2 + 20 ON SIZE ERROR + 21 display 'SIZE ERROR raised' + 22 > with no advancing upon syserr +---- ^^^^ + 23 end-display + 24 display 'SIZE ERROR, last value = ' doubleValue +>> Error: Invalid syntax + +run_misc.at-13722-prog.cob:22.59: + 19 compute doubleValue = doubleValue * 2 + 20 ON SIZE ERROR + 21 display 'SIZE ERROR raised' + 22 > with no advancing upon syserr +---- ^ + 23 end-display + 24 display 'SIZE ERROR, last value = ' doubleValue +>> Hint: Missing . + +run_misc.at-13722-prog.cob:23.22-23.33: + 20 ON SIZE ERROR + 21 display 'SIZE ERROR raised' + 22 with no advancing upon syserr + 23 > end-display +---- ^^^^^^^^^^^ + 24 display 'SIZE ERROR, last value = ' doubleValue + 25 upon sysout +>> Warning: Invalid syntax + +run_misc.at-13722-prog.cob:28.15-28.32: + 25 upon sysout + 26 end-display + 27 exit perform + 28 > not ON SIZE ERROR +---- ^^^^^^^^^^^^^^^^^ + 29 if doubleValue > lastdoubleValue + 30 move doubleValue to lastdoubleValue +>> Error: Invalid syntax + +run_misc.at-13722-prog.cob:38.14-38.25: + 35 end-display + 36 exit perform + 37 end-if + 38 > end-compute +---- ^^^^^^^^^^^ + 39 end-perform + 40 if not (counter >= 1023 and <=1025) +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13768:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13799:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13880:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:13943:0 +run_misc.at-13943-prog.cob:10.17-10.22: + 7 88 EXT-MODUS VALUES 3, 4. + 8 LINKAGE SECTION. + 9 PROCEDURE DIVISION. + 10 > GO TO ENTRY 'STMT05'. +---- ^^^^^ + 11 MAIN. + 12 GO TO ENTRY 'STMT01' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:12.17-12.22: + 9 PROCEDURE DIVISION. + 10 GO TO ENTRY 'STMT05'. + 11 MAIN. + 12 > GO TO ENTRY 'STMT01' +---- ^^^^^ + 13 'STMT02' + 14 'STMT03' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:20.7-20.12: + 17 DEPENDING ON JUMP-ENTRY + 18 DISPLAY 'NOT JUMPED' + 19 GOBACK. + 20 > ENTRY FOR GO TO 'STMT01' +---- ^^^^^ + 21 DISPLAY 'STMT01' + 22 ENTRY FOR GO TO 'STMT02' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:20.23-20.31: + 17 DEPENDING ON JUMP-ENTRY + 18 DISPLAY 'NOT JUMPED' + 19 GOBACK. + 20 > ENTRY FOR GO TO 'STMT01' +---- ^^^^^^^^ + 21 DISPLAY 'STMT01' + 22 ENTRY FOR GO TO 'STMT02' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:22.7-22.12: + 19 GOBACK. + 20 ENTRY FOR GO TO 'STMT01' + 21 DISPLAY 'STMT01' + 22 > ENTRY FOR GO TO 'STMT02' +---- ^^^^^ + 23 PERFORM 3 TIMES + 24 ENTRY FOR GO TO 'STMT03' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:22.23-22.31: + 19 GOBACK. + 20 ENTRY FOR GO TO 'STMT01' + 21 DISPLAY 'STMT01' + 22 > ENTRY FOR GO TO 'STMT02' +---- ^^^^^^^^ + 23 PERFORM 3 TIMES + 24 ENTRY FOR GO TO 'STMT03' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:24.7-24.12: + 21 DISPLAY 'STMT01' + 22 ENTRY FOR GO TO 'STMT02' + 23 PERFORM 3 TIMES + 24 > ENTRY FOR GO TO 'STMT03' +---- ^^^^^ + 25 DISPLAY 'STMT03' + 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:24.23-24.31: + 21 DISPLAY 'STMT01' + 22 ENTRY FOR GO TO 'STMT02' + 23 PERFORM 3 TIMES + 24 > ENTRY FOR GO TO 'STMT03' +---- ^^^^^^^^ + 25 DISPLAY 'STMT03' + 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:26.7-26.12: + 23 PERFORM 3 TIMES + 24 ENTRY FOR GO TO 'STMT03' + 25 DISPLAY 'STMT03' + 26 > ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' +---- ^^^^^ + 27 IF EXT-MODUS EXIT PERFORM END-IF + 28 END-PERFORM +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:26.23-26.31: + 23 PERFORM 3 TIMES + 24 ENTRY FOR GO TO 'STMT03' + 25 DISPLAY 'STMT03' + 26 > ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' +---- ^^^^^^^^ + 27 IF EXT-MODUS EXIT PERFORM END-IF + 28 END-PERFORM +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:29.7-29.12: + 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' + 27 IF EXT-MODUS EXIT PERFORM END-IF + 28 END-PERFORM + 29 > ENTRY FOR GO TO 'STMT05' +---- ^^^^^ + 30 DISPLAY 'STMT05' + 31 SUBTRACT 1 FROM JUMP-ENTRY +>> Error: Invalid syntax + +run_misc.at-13943-prog.cob:29.23-29.31: + 26 ENTRY FOR GO TO 'STMT04' DISPLAY 'STMT04' + 27 IF EXT-MODUS EXIT PERFORM END-IF + 28 END-PERFORM + 29 > ENTRY FOR GO TO 'STMT05' +---- ^^^^^^^^ + 30 DISPLAY 'STMT05' + 31 SUBTRACT 1 FROM JUMP-ENTRY +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14022:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14053:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14089:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14174:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14173:0 +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14278:0 +run_misc.at-14278-prog.cob:16.23-16.30: + 13 + 14 * We use a simple wrapper to make it _less_ likely that the + 15 * following "real test" SIGSEGVs during MOVE + 16 > CALL STATIC "progt". +---- ^^^^^^^ + 17 + 18 * we don't expect to ever get here - but this creates more +>> Error: Invalid syntax + +run_misc.at-14278-prog.cob:20.23-20.30: + 17 + 18 * we don't expect to ever get here - but this creates more + 19 * memory space to decrease the likelyness of a SIGSEGV more + 20 > CALL STATIC "dummy". +---- ^^^^^^^ + 21 + 22 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14347:0 +run_misc.at-14347-prog.c:5.6-5.7: + 2 #include + 3 #include + 4 + 5 > #define COUNT_OF(x) (sizeof(x)/sizeof(x[0])) +---- ^ + 6 + 7 struct verify_t { +>> Error: Unexpected indicator: `e' + +run_misc.at-14347-prog.c:9.6-9.7: + 6 + 7 struct verify_t { + 8 char *prog, *packver_prog; + 9 > int patchlev_prog; +---- ^ + 10 } verify[] = { + 11 #include "testdata.h" +>> Error: Unexpected indicator: `p' + +run_misc.at-14347-prog.c:10.6-10.7: + 7 struct verify_t { + 8 char *prog, *packver_prog; + 9 int patchlev_prog; + 10 > } verify[] = { +---- ^ + 11 #include "testdata.h" + 12 }; +>> Error: Unexpected indicator: `f' + +run_misc.at-14347-prog.c:15.6-15.7: + 12 }; + 13 + 14 int + 15 > main(int argc, char *argv[]) +---- ^ + 16 { + 17 struct verify_t *p; +>> Error: Unexpected indicator: `n' + +run_misc.at-14347-prog.c:17.6-17.7: + 14 int + 15 main(int argc, char *argv[]) + 16 { + 17 > struct verify_t *p; +---- ^ + 18 for( p=verify; p < verify + COUNT_OF(verify); p++ ) { + 19 cob_check_version(p->prog, p->packver_prog, p->patchlev_prog); +>> Error: Unexpected indicator: `c' + +run_misc.at-14347-prog.c:19.6-19.7: + 16 { + 17 struct verify_t *p; + 18 for( p=verify; p < verify + COUNT_OF(verify); p++ ) { + 19 > cob_check_version(p->prog, p->packver_prog, p->patchlev_prog); +---- ^ + 20 } + 21 return 0; +>> Error: Unexpected indicator: `b' + +run_misc.at-14347-prog.c:21.6-21.7: + 18 for( p=verify; p < verify + COUNT_OF(verify); p++ ) { + 19 cob_check_version(p->prog, p->packver_prog, p->patchlev_prog); + 20 } + 21 > return 0; +---- ^ + 22 } +>> Error: Unexpected indicator: `r' + +run_misc.at-14347-prog.c:5.8-5.19: + 2 #include + 3 #include + 4 + 5 > #define COUNT_OF(x) (sizeof(x)/sizeof(x[0])) +---- ^^^^^^^^^^^ + 6 + 7 struct verify_t { +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14426:0 +run_misc.at-14426-prog.cob:8.24: + 5 WORKING-STORAGE SECTION. + 6 01 n pic 99 value 89. + 7 01 m pic 99 value 0. + 8 > 01 variable usage signed-int value 0. +---- ^ + 9 88 a-one value 1. + 10 88 a-two value 2. +>> Hint: Missing BINARY + +run_misc.at-14426-prog.cob:8.25-8.35: + 5 WORKING-STORAGE SECTION. + 6 01 n pic 99 value 89. + 7 01 m pic 99 value 0. + 8 > 01 variable usage signed-int value 0. +---- ^^^^^^^^^^ + 9 88 a-one value 1. + 10 88 a-two value 2. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_misc.at:14543:0 diff --git a/test/output-tests/run_ml.expected b/test/output-tests/run_ml.expected new file mode 100644 index 000000000..bcdc0a491 --- /dev/null +++ b/test/output-tests/run_ml.expected @@ -0,0 +1,4404 @@ +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:122:0 +run_ml.at-122-prog.cob:21.14-21.16: + 18 01 0SpecialTAGName PIC X(3) VALUE "abc". + 19 + 20 01 employee. + 21 > 05 id PIC 9(1) value 1. +---- ^^ + 22 05 name PIC X(10) value "Someone". + 23 05 dept PIC X(10) value "Marketing". +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:26.11-26.14: + 23 05 dept PIC X(10) value "Marketing". + 24 + 25 PROCEDURE DIVISION. + 26 > XML GENERATE out +---- ^^^ + 27 FROM rec + 28 WITH XML-DECLARATION +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:26.27: + 23 05 dept PIC X(10) value "Marketing". + 24 + 25 PROCEDURE DIVISION. + 26 > XML GENERATE out +---- ^ + 27 FROM rec + 28 WITH XML-DECLARATION +>> Hint: Missing . + +run_ml.at-122-prog.cob:27.15-27.19: + 24 + 25 PROCEDURE DIVISION. + 26 XML GENERATE out + 27 > FROM rec +---- ^^^^ + 28 WITH XML-DECLARATION + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:27.23: + 24 + 25 PROCEDURE DIVISION. + 26 XML GENERATE out + 27 > FROM rec +---- ^ + 28 WITH XML-DECLARATION + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; +>> Hint: Missing . + +run_ml.at-122-prog.cob:28.15-28.19: + 25 PROCEDURE DIVISION. + 26 XML GENERATE out + 27 FROM rec + 28 > WITH XML-DECLARATION +---- ^^^^ + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 TYPE OF a IS ATTRIBUTE +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:28.35: + 25 PROCEDURE DIVISION. + 26 XML GENERATE out + 27 FROM rec + 28 > WITH XML-DECLARATION +---- ^ + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 TYPE OF a IS ATTRIBUTE +>> Hint: Missing . + +run_ml.at-122-prog.cob:29.15-29.19: + 26 XML GENERATE out + 27 FROM rec + 28 WITH XML-DECLARATION + 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; +---- ^^^^ + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:29.19: + 26 XML GENERATE out + 27 FROM rec + 28 WITH XML-DECLARATION + 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; +---- ^ + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES +>> Hint: Missing . + +run_ml.at-122-prog.cob:29.20-29.22: + 26 XML GENERATE out + 27 FROM rec + 28 WITH XML-DECLARATION + 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; +---- ^^ + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:29.24: + 26 XML GENERATE out + 27 FROM rec + 28 WITH XML-DECLARATION + 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; +---- ^ + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES +>> Hint: Missing . + +run_ml.at-122-prog.cob:29.25-29.27: + 26 XML GENERATE out + 27 FROM rec + 28 WITH XML-DECLARATION + 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; +---- ^^ + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:29.38: + 26 XML GENERATE out + 27 FROM rec + 28 WITH XML-DECLARATION + 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; +---- ^ + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES +>> Hint: Missing . + +run_ml.at-122-prog.cob:29.39-29.41: + 26 XML GENERATE out + 27 FROM rec + 28 WITH XML-DECLARATION + 29 > NAME OF a IS 'alpha', d IS 'ABCDEF'; +---- ^^ + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:30.24: + 27 FROM rec + 28 WITH XML-DECLARATION + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 > TYPE OF a IS ATTRIBUTE +---- ^ + 31 SUPPRESS WHEN SPACES + 32 IF out <> '' & X'0A' +>> Hint: Missing . + +run_ml.at-122-prog.cob:30.25-30.27: + 27 FROM rec + 28 WITH XML-DECLARATION + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 > TYPE OF a IS ATTRIBUTE +---- ^^ + 31 SUPPRESS WHEN SPACES + 32 IF out <> '' & X'0A' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:30.37: + 27 FROM rec + 28 WITH XML-DECLARATION + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 > TYPE OF a IS ATTRIBUTE +---- ^ + 31 SUPPRESS WHEN SPACES + 32 IF out <> '' & X'0A' +>> Hint: Missing . + +run_ml.at-122-prog.cob:31.15-31.23: + 28 WITH XML-DECLARATION + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 TYPE OF a IS ATTRIBUTE + 31 > SUPPRESS WHEN SPACES +---- ^^^^^^^^ + 32 IF out <> '' & X'0A' + 33 & 'BBB' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:31.24-31.28: + 28 WITH XML-DECLARATION + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 TYPE OF a IS ATTRIBUTE + 31 > SUPPRESS WHEN SPACES +---- ^^^^ + 32 IF out <> '' & X'0A' + 33 & 'BBB' +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:32.45-32.46: + 29 NAME OF a IS 'alpha', d IS 'ABCDEF'; + 30 TYPE OF a IS ATTRIBUTE + 31 SUPPRESS WHEN SPACES + 32 > IF out <> '' & X'0A' +---- ^ + 33 & 'BBB' + 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:37.11-37.14: + 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 35 END-IF + 36 + 37 > XML GENERATE out FROM d +---- ^^^ + 38 IF out <> ' ' + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:37.27: + 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 35 END-IF + 36 + 37 > XML GENERATE out FROM d +---- ^ + 38 IF out <> ' ' + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:37.28-37.32: + 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 35 END-IF + 36 + 37 > XML GENERATE out FROM d +---- ^^^^ + 38 IF out <> ' ' + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:37.34: + 34 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 35 END-IF + 36 + 37 > XML GENERATE out FROM d +---- ^ + 38 IF out <> ' ' + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:38.11-38.13: + 35 END-IF + 36 + 37 XML GENERATE out FROM d + 38 > IF out <> ' ' +---- ^^ + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 40 END-IF +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:42.11-42.14: + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 40 END-IF + 41 + 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. +---- ^^^ + 43 IF out <> '' + 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:42.27: + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 40 END-IF + 41 + 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. +---- ^ + 43 IF out <> '' + 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:42.28-42.32: + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 40 END-IF + 41 + 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. +---- ^^^^ + 43 IF out <> '' + 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:42.34: + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 40 END-IF + 41 + 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. +---- ^ + 43 IF out <> '' + 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:42.36-42.40: + 39 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 40 END-IF + 41 + 42 > XML GENERATE out FROM c, WITH ATTRIBUTES. +---- ^^^^ + 43 IF out <> '' + 44 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:49.11-49.14: + 46 + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, +---- ^^^ + 50 b IS CONTENT, d IS CONTENT + 51 IF out <> 'AAABBBCCC' +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:49.27: + 46 + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, +---- ^ + 50 b IS CONTENT, d IS CONTENT + 51 IF out <> 'AAABBBCCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:49.28-49.32: + 46 + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, +---- ^^^^ + 50 b IS CONTENT, d IS CONTENT + 51 IF out <> 'AAABBBCCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:49.36: + 46 + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, +---- ^ + 50 b IS CONTENT, d IS CONTENT + 51 IF out <> 'AAABBBCCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:49.38-49.42: + 46 + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, +---- ^^^^ + 50 b IS CONTENT, d IS CONTENT + 51 IF out <> 'AAABBBCCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:49.47: + 46 + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, +---- ^ + 50 b IS CONTENT, d IS CONTENT + 51 IF out <> 'AAABBBCCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:49.48-49.50: + 46 + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, +---- ^^ + 50 b IS CONTENT, d IS CONTENT + 51 IF out <> 'AAABBBCCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:50.16: + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, + 50 > b IS CONTENT, d IS CONTENT +---- ^ + 51 IF out <> 'AAABBBCCC' + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:50.17-50.19: + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, + 50 > b IS CONTENT, d IS CONTENT +---- ^^ + 51 IF out <> 'AAABBBCCC' + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:50.30: + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, + 50 > b IS CONTENT, d IS CONTENT +---- ^ + 51 IF out <> 'AAABBBCCC' + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:50.31-50.33: + 47 MOVE ALL 'A' TO a + 48 MOVE ALL 'C' TO c + 49 XML GENERATE out FROM rec, TYPE OF a IS CONTENT, + 50 > b IS CONTENT, d IS CONTENT +---- ^^ + 51 IF out <> 'AAABBBCCC' + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:55.11-55.14: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^^^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:55.27: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:55.28-55.32: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^^^^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:55.36: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:55.38-55.42: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^^^^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:55.47: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:55.48-55.50: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:55.61: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:55.62-55.64: + 52 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 53 END-IF + 54 + 55 > XML GENERATE out FROM rec, TYPE OF a IS CONTENT, d IS CONTENT +---- ^^ + 56 IF out <> 'AAABBBCCC' + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:60.11-60.14: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:60.27: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Hint: Missing . + +run_ml.at-122-prog.cob:60.28-60.32: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:60.34: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Hint: Missing . + +run_ml.at-122-prog.cob:60.36-60.45: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^^^^^^^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:60.45: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Hint: Missing . + +run_ml.at-122-prog.cob:60.46-60.59: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^^^^^^^^^^^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:60.59: + 57 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 58 END-IF + 59 + 60 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 61 NAMESPACE-PREFIX prefix-str + 62 IF out <> ''- +>> Hint: Missing . + +run_ml.at-122-prog.cob:61.15-61.31: + 58 END-IF + 59 + 60 XML GENERATE out FROM c, NAMESPACE namespace-str, + 61 > NAMESPACE-PREFIX prefix-str +---- ^^^^^^^^^^^^^^^^ + 62 IF out <> ''- + 63 'CCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:61.31: + 58 END-IF + 59 + 60 XML GENERATE out FROM c, NAMESPACE namespace-str, + 61 > NAMESPACE-PREFIX prefix-str +---- ^ + 62 IF out <> ''- + 63 'CCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:61.32-61.42: + 58 END-IF + 59 + 60 XML GENERATE out FROM c, NAMESPACE namespace-str, + 61 > NAMESPACE-PREFIX prefix-str +---- ^^^^^^^^^^ + 62 IF out <> ''- + 63 'CCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:61.42: + 58 END-IF + 59 + 60 XML GENERATE out FROM c, NAMESPACE namespace-str, + 61 > NAMESPACE-PREFIX prefix-str +---- ^ + 62 IF out <> ''- + 63 'CCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:62.11-62.13: + 59 + 60 XML GENERATE out FROM c, NAMESPACE namespace-str, + 61 NAMESPACE-PREFIX prefix-str + 62 > IF out <> ''- +---- ^^ + 63 'CCC' + 64 DISPLAY 'Test 6 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:69.11-69.14: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:69.27: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:69.28-69.32: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:69.34: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:69.36-69.45: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^^^^^^^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:69.45: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:69.46-69.59: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^^^^^^^^^^^^^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:69.59: + 66 END-IF + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 > XML GENERATE out FROM c, NAMESPACE namespace-str, +---- ^ + 70 NAMESPACE-PREFIX prefix-str + 71 IF out <> 'CCC' +>> Hint: Missing . + +run_ml.at-122-prog.cob:70.15-70.31: + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 XML GENERATE out FROM c, NAMESPACE namespace-str, + 70 > NAMESPACE-PREFIX prefix-str +---- ^^^^^^^^^^^^^^^^ + 71 IF out <> 'CCC' + 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:70.31: + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 XML GENERATE out FROM c, NAMESPACE namespace-str, + 70 > NAMESPACE-PREFIX prefix-str +---- ^ + 71 IF out <> 'CCC' + 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:70.32-70.42: + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 XML GENERATE out FROM c, NAMESPACE namespace-str, + 70 > NAMESPACE-PREFIX prefix-str +---- ^^^^^^^^^^ + 71 IF out <> 'CCC' + 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:70.42: + 67 + 68 MOVE SPACES TO namespace-str, prefix-str + 69 XML GENERATE out FROM c, NAMESPACE namespace-str, + 70 > NAMESPACE-PREFIX prefix-str +---- ^ + 71 IF out <> 'CCC' + 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:71.11-71.13: + 68 MOVE SPACES TO namespace-str, prefix-str + 69 XML GENERATE out FROM c, NAMESPACE namespace-str, + 70 NAMESPACE-PREFIX prefix-str + 71 > IF out <> 'CCC' +---- ^^ + 72 DISPLAY 'Test 7 failed: ' FUNCTION TRIM (out) + 73 END-IF +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:76.11-76.14: + 73 END-IF + 74 + 75 MOVE ALL "&" TO d + 76 > XML GENERATE out FROM d +---- ^^^ + 77 IF out <> '&&&' + 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:76.27: + 73 END-IF + 74 + 75 MOVE ALL "&" TO d + 76 > XML GENERATE out FROM d +---- ^ + 77 IF out <> '&&&' + 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:76.28-76.32: + 73 END-IF + 74 + 75 MOVE ALL "&" TO d + 76 > XML GENERATE out FROM d +---- ^^^^ + 77 IF out <> '&&&' + 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:76.34: + 73 END-IF + 74 + 75 MOVE ALL "&" TO d + 76 > XML GENERATE out FROM d +---- ^ + 77 IF out <> '&&&' + 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:77.11-77.13: + 74 + 75 MOVE ALL "&" TO d + 76 XML GENERATE out FROM d + 77 > IF out <> '&&&' +---- ^^ + 78 DISPLAY 'Test 8 failed: ' FUNCTION TRIM (out) + 79 END-IF +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:82.11-82.14: + 79 END-IF + 80 + 81 *> Test the case of the id in the DATA DIVISION is preserved. + 82 > XML GENERATE out FROM 0specialtagname +---- ^^^ + 83 IF out <> '<_0SpecialTAGName>abc' + 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:82.27: + 79 END-IF + 80 + 81 *> Test the case of the id in the DATA DIVISION is preserved. + 82 > XML GENERATE out FROM 0specialtagname +---- ^ + 83 IF out <> '<_0SpecialTAGName>abc' + 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:82.28-82.32: + 79 END-IF + 80 + 81 *> Test the case of the id in the DATA DIVISION is preserved. + 82 > XML GENERATE out FROM 0specialtagname +---- ^^^^ + 83 IF out <> '<_0SpecialTAGName>abc' + 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:82.48: + 79 END-IF + 80 + 81 *> Test the case of the id in the DATA DIVISION is preserved. + 82 > XML GENERATE out FROM 0specialtagname +---- ^ + 83 IF out <> '<_0SpecialTAGName>abc' + 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-122-prog.cob:83.11-83.13: + 80 + 81 *> Test the case of the id in the DATA DIVISION is preserved. + 82 XML GENERATE out FROM 0specialtagname + 83 > IF out <> '<_0SpecialTAGName>abc' +---- ^^ + 84 DISPLAY 'Test 9 failed: ' FUNCTION TRIM (out) + 85 END-IF +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:89.11-89.14: + 86 . + 87 + 88 *> Another test with mixed attributes and values + 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE +---- ^^^ + 90 IF out <> ''- + 91 'Someone'- +>> Error: Invalid syntax + +run_ml.at-122-prog.cob:89.27: + 86 . + 87 + 88 *> Another test with mixed attributes and values + 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE +---- ^ + 90 IF out <> ''- + 91 'Someone'- +>> Hint: Missing . + +run_ml.at-122-prog.cob:89.28-89.32: + 86 . + 87 + 88 *> Another test with mixed attributes and values + 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE +---- ^^^^ + 90 IF out <> ''- + 91 'Someone'- +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:89.41: + 86 . + 87 + 88 *> Another test with mixed attributes and values + 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE +---- ^ + 90 IF out <> ''- + 91 'Someone'- +>> Hint: Missing . + +run_ml.at-122-prog.cob:89.42-89.46: + 86 . + 87 + 88 *> Another test with mixed attributes and values + 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE +---- ^^^^ + 90 IF out <> ''- + 91 'Someone'- +>> Warning: Invalid syntax + +run_ml.at-122-prog.cob:89.65: + 86 . + 87 + 88 *> Another test with mixed attributes and values + 89 > XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE +---- ^ + 90 IF out <> ''- + 91 'Someone'- +>> Hint: Missing . + +run_ml.at-122-prog.cob:90.11-90.13: + 87 + 88 *> Another test with mixed attributes and values + 89 XML GENERATE out FROM EMPLOYEE TYPE OF ID IS ATTRIBUTE + 90 > IF out <> ''- +---- ^^ + 91 'Someone'- + 92 'Marketing'- +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:199:0 +run_ml.at-199-prog.cob:22.11-22.14: + 19 01 out PIC X(100). + 20 + 21 PROCEDURE DIVISION. + 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES +---- ^^^ + 23 IF out <> '' + 24 DISPLAY 'Test 1 failed: ' out +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:22.27: + 19 01 out PIC X(100). + 20 + 21 PROCEDURE DIVISION. + 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES +---- ^ + 23 IF out <> '' + 24 DISPLAY 'Test 1 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:22.28-22.32: + 19 01 out PIC X(100). + 20 + 21 PROCEDURE DIVISION. + 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES +---- ^^^^ + 23 IF out <> '' + 24 DISPLAY 'Test 1 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:22.34: + 19 01 out PIC X(100). + 20 + 21 PROCEDURE DIVISION. + 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES +---- ^ + 23 IF out <> '' + 24 DISPLAY 'Test 1 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:22.35-22.43: + 19 01 out PIC X(100). + 20 + 21 PROCEDURE DIVISION. + 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES +---- ^^^^^^^^ + 23 IF out <> '' + 24 DISPLAY 'Test 1 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:22.44-22.48: + 19 01 out PIC X(100). + 20 + 21 PROCEDURE DIVISION. + 22 > XML GENERATE out FROM a SUPPRESS WHEN SPACES +---- ^^^^ + 23 IF out <> '' + 24 DISPLAY 'Test 1 failed: ' out +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:27.11-27.14: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^^^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:27.27: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:27.28-27.32: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^^^^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:27.34: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:27.35-27.43: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^^^^^^^^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:27.43: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:27.44-27.45: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:27.45: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:27.46-27.50: + 24 DISPLAY 'Test 1 failed: ' out + 25 END-IF + 26 + 27 > XML GENERATE out FROM a SUPPRESS b WHEN SPACES +---- ^^^^ + 28 IF out <> ' ' + 29 DISPLAY 'Test 2 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:32.11-32.14: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^^^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:32.27: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:32.28-32.32: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^^^^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:32.34: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:32.35-32.43: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^^^^^^^^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:32.43: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:32.44-32.49: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^^^^^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:32.49: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:32.50-32.60: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^^^^^^^^^^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:32.60: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:32.61-32.65: + 29 DISPLAY 'Test 2 failed: ' out + 30 END-IF + 31 + 32 > XML GENERATE out FROM a SUPPRESS EVERY NONNUMERIC WHEN SPACES +---- ^^^^ + 33 IF out <> '' + 34 DISPLAY 'Test 3 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:37.11-37.14: + 34 DISPLAY 'Test 3 failed: ' out + 35 END-IF + 36 + 37 > XML GENERATE out FROM p +---- ^^^ + 38 WITH ATTRIBUTES + 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:37.27: + 34 DISPLAY 'Test 3 failed: ' out + 35 END-IF + 36 + 37 > XML GENERATE out FROM p +---- ^ + 38 WITH ATTRIBUTES + 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO +>> Hint: Missing . + +run_ml.at-199-prog.cob:37.28-37.32: + 34 DISPLAY 'Test 3 failed: ' out + 35 END-IF + 36 + 37 > XML GENERATE out FROM p +---- ^^^^ + 38 WITH ATTRIBUTES + 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:37.34: + 34 DISPLAY 'Test 3 failed: ' out + 35 END-IF + 36 + 37 > XML GENERATE out FROM p +---- ^ + 38 WITH ATTRIBUTES + 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO +>> Hint: Missing . + +run_ml.at-199-prog.cob:38.15-38.19: + 35 END-IF + 36 + 37 XML GENERATE out FROM p + 38 > WITH ATTRIBUTES +---- ^^^^ + 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO + 40 IF out <> '

' +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:38.30: + 35 END-IF + 36 + 37 XML GENERATE out FROM p + 38 > WITH ATTRIBUTES +---- ^ + 39 SUPPRESS EVERY ATTRIBUTE WHEN ZERO + 40 IF out <> '

' +>> Hint: Missing . + +run_ml.at-199-prog.cob:39.15-39.23: + 36 + 37 XML GENERATE out FROM p + 38 WITH ATTRIBUTES + 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO +---- ^^^^^^^^ + 40 IF out <> '

' + 41 DISPLAY 'Test 4 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:39.23: + 36 + 37 XML GENERATE out FROM p + 38 WITH ATTRIBUTES + 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO +---- ^ + 40 IF out <> '

' + 41 DISPLAY 'Test 4 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:39.24-39.29: + 36 + 37 XML GENERATE out FROM p + 38 WITH ATTRIBUTES + 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO +---- ^^^^^ + 40 IF out <> '

' + 41 DISPLAY 'Test 4 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:39.29: + 36 + 37 XML GENERATE out FROM p + 38 WITH ATTRIBUTES + 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO +---- ^ + 40 IF out <> '

' + 41 DISPLAY 'Test 4 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:39.30-39.39: + 36 + 37 XML GENERATE out FROM p + 38 WITH ATTRIBUTES + 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO +---- ^^^^^^^^^ + 40 IF out <> '

' + 41 DISPLAY 'Test 4 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:39.39: + 36 + 37 XML GENERATE out FROM p + 38 WITH ATTRIBUTES + 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO +---- ^ + 40 IF out <> '

' + 41 DISPLAY 'Test 4 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:39.40-39.44: + 36 + 37 XML GENERATE out FROM p + 38 WITH ATTRIBUTES + 39 > SUPPRESS EVERY ATTRIBUTE WHEN ZERO +---- ^^^^ + 40 IF out <> '

' + 41 DISPLAY 'Test 4 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:44.11-44.14: + 41 DISPLAY 'Test 4 failed: ' out + 42 END-IF + 43 + 44 > XML GENERATE out FROM a +---- ^^^ + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:44.27: + 41 DISPLAY 'Test 4 failed: ' out + 42 END-IF + 43 + 44 > XML GENERATE out FROM a +---- ^ + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, +>> Hint: Missing . + +run_ml.at-199-prog.cob:44.28-44.32: + 41 DISPLAY 'Test 4 failed: ' out + 42 END-IF + 43 + 44 > XML GENERATE out FROM a +---- ^^^^ + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:44.34: + 41 DISPLAY 'Test 4 failed: ' out + 42 END-IF + 43 + 44 > XML GENERATE out FROM a +---- ^ + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, +>> Hint: Missing . + +run_ml.at-199-prog.cob:45.15-45.23: + 42 END-IF + 43 + 44 XML GENERATE out FROM a + 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, +---- ^^^^^^^^ + 46 c WHEN LOW-VALUES, + 47 EVERY ELEMENT WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:45.23: + 42 END-IF + 43 + 44 XML GENERATE out FROM a + 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, +---- ^ + 46 c WHEN LOW-VALUES, + 47 EVERY ELEMENT WHEN SPACES +>> Hint: Missing . + +run_ml.at-199-prog.cob:45.24-45.25: + 42 END-IF + 43 + 44 XML GENERATE out FROM a + 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, +---- ^ + 46 c WHEN LOW-VALUES, + 47 EVERY ELEMENT WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:45.25: + 42 END-IF + 43 + 44 XML GENERATE out FROM a + 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, +---- ^ + 46 c WHEN LOW-VALUES, + 47 EVERY ELEMENT WHEN SPACES +>> Hint: Missing . + +run_ml.at-199-prog.cob:45.26-45.30: + 42 END-IF + 43 + 44 XML GENERATE out FROM a + 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, +---- ^^^^ + 46 c WHEN LOW-VALUES, + 47 EVERY ELEMENT WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:45.44: + 42 END-IF + 43 + 44 XML GENERATE out FROM a + 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, +---- ^ + 46 c WHEN LOW-VALUES, + 47 EVERY ELEMENT WHEN SPACES +>> Hint: Missing . + +run_ml.at-199-prog.cob:45.45-45.49: + 42 END-IF + 43 + 44 XML GENERATE out FROM a + 45 > SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, +---- ^^^^ + 46 c WHEN LOW-VALUES, + 47 EVERY ELEMENT WHEN SPACES +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:46.21: + 43 + 44 XML GENERATE out FROM a + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 > c WHEN LOW-VALUES, +---- ^ + 47 EVERY ELEMENT WHEN SPACES + 48 IF out <> ' ' +>> Hint: Missing . + +run_ml.at-199-prog.cob:46.22-46.26: + 43 + 44 XML GENERATE out FROM a + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 > c WHEN LOW-VALUES, +---- ^^^^ + 47 EVERY ELEMENT WHEN SPACES + 48 IF out <> ' ' +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:47.25: + 44 XML GENERATE out FROM a + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, + 47 > EVERY ELEMENT WHEN SPACES +---- ^ + 48 IF out <> ' ' + 49 DISPLAY 'Test 5 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:47.26-47.33: + 44 XML GENERATE out FROM a + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, + 47 > EVERY ELEMENT WHEN SPACES +---- ^^^^^^^ + 48 IF out <> ' ' + 49 DISPLAY 'Test 5 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:47.33: + 44 XML GENERATE out FROM a + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, + 47 > EVERY ELEMENT WHEN SPACES +---- ^ + 48 IF out <> ' ' + 49 DISPLAY 'Test 5 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:47.34-47.38: + 44 XML GENERATE out FROM a + 45 SUPPRESS c WHEN LOW-VALUES, c WHEN SPACES, + 46 c WHEN LOW-VALUES, + 47 > EVERY ELEMENT WHEN SPACES +---- ^^^^ + 48 IF out <> ' ' + 49 DISPLAY 'Test 5 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:54.11-54.14: + 51 + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 > XML GENERATE out FROM a +---- ^^^ + 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES + 56 OR ZEROES OR SPACES +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:54.27: + 51 + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 > XML GENERATE out FROM a +---- ^ + 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES + 56 OR ZEROES OR SPACES +>> Hint: Missing . + +run_ml.at-199-prog.cob:54.28-54.32: + 51 + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 > XML GENERATE out FROM a +---- ^^^^ + 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES + 56 OR ZEROES OR SPACES +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:54.34: + 51 + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 > XML GENERATE out FROM a +---- ^ + 55 SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES + 56 OR ZEROES OR SPACES +>> Hint: Missing . + +run_ml.at-199-prog.cob:55.15-55.23: + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 XML GENERATE out FROM a + 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES +---- ^^^^^^^^ + 56 OR ZEROES OR SPACES + 57 IF out <> '' +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:55.23: + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 XML GENERATE out FROM a + 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES +---- ^ + 56 OR ZEROES OR SPACES + 57 IF out <> '' +>> Hint: Missing . + +run_ml.at-199-prog.cob:55.24-55.29: + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 XML GENERATE out FROM a + 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES +---- ^^^^^ + 56 OR ZEROES OR SPACES + 57 IF out <> '' +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:55.29: + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 XML GENERATE out FROM a + 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES +---- ^ + 56 OR ZEROES OR SPACES + 57 IF out <> '' +>> Hint: Missing . + +run_ml.at-199-prog.cob:55.30-55.37: + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 XML GENERATE out FROM a + 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES +---- ^^^^^^^ + 56 OR ZEROES OR SPACES + 57 IF out <> '' +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:55.37: + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 XML GENERATE out FROM a + 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES +---- ^ + 56 OR ZEROES OR SPACES + 57 IF out <> '' +>> Hint: Missing . + +run_ml.at-199-prog.cob:55.38-55.42: + 52 MOVE HIGH-VALUES TO b + 53 MOVE LOW-VALUES TO c + 54 XML GENERATE out FROM a + 55 > SUPPRESS EVERY ELEMENT WHEN HIGH-VALUES OR LOW-VALUES +---- ^^^^ + 56 OR ZEROES OR SPACES + 57 IF out <> '' +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:61.11-61.14: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^^^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Error: Invalid syntax + +run_ml.at-199-prog.cob:61.27: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:61.28-61.32: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^^^^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:61.34: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:61.35-61.43: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^^^^^^^^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:61.43: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:61.44-61.45: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-199-prog.cob:61.45: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Hint: Missing . + +run_ml.at-199-prog.cob:61.46-61.50: + 58 DISPLAY 'Test 6 failed: ' out + 59 END-IF + 60 + 61 > XML GENERATE out FROM x SUPPRESS z WHEN SPACE +---- ^^^^ + 62 IF out <> '' + 63 DISPLAY 'Test 7 failed: ' out +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:311:0 +run_ml.at-311-prog.cob:16.38: + 13 01 short-str2 PIC X(22). + 14 01 xml-len PIC 99. + 15 + 16 > 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". +---- ^ + 17 01 invalid-namespace CONSTANT X"00". + 18 01 invalid-prefix PIC XXX VALUE "#<>". +>> Hint: Missing RECORD + +run_ml.at-311-prog.cob:16.39-16.69: + 13 01 short-str2 PIC X(22). + 14 01 xml-len PIC 99. + 15 + 16 > 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 17 01 invalid-namespace CONSTANT X"00". + 18 01 invalid-prefix PIC XXX VALUE "#<>". +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:17.38: + 14 01 xml-len PIC 99. + 15 + 16 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". + 17 > 01 invalid-namespace CONSTANT X"00". +---- ^ + 18 01 invalid-prefix PIC XXX VALUE "#<>". + 19 01 invalid-content PIC X(3) VALUE X"8AFF00". +>> Hint: Missing RECORD + +run_ml.at-311-prog.cob:17.39-17.44: + 14 01 xml-len PIC 99. + 15 + 16 01 valid-namespace CONSTANT "http://www.w3.org/1999/xhtml". + 17 > 01 invalid-namespace CONSTANT X"00". +---- ^^^^^ + 18 01 invalid-prefix PIC XXX VALUE "#<>". + 19 01 invalid-content PIC X(3) VALUE X"8AFF00". +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:24.11-24.14: + 21 + 22 PROCEDURE DIVISION. + 23 MOVE ALL 'A' TO short-str + 24 > XML GENERATE short-str FROM valid-rec +---- ^^^ + 25 COUNT IN xml-len + 26 IF XML-CODE <> 400 +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:24.33: + 21 + 22 PROCEDURE DIVISION. + 23 MOVE ALL 'A' TO short-str + 24 > XML GENERATE short-str FROM valid-rec +---- ^ + 25 COUNT IN xml-len + 26 IF XML-CODE <> 400 +>> Hint: Missing . + +run_ml.at-311-prog.cob:24.34-24.38: + 21 + 22 PROCEDURE DIVISION. + 23 MOVE ALL 'A' TO short-str + 24 > XML GENERATE short-str FROM valid-rec +---- ^^^^ + 25 COUNT IN xml-len + 26 IF XML-CODE <> 400 +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:24.48: + 21 + 22 PROCEDURE DIVISION. + 23 MOVE ALL 'A' TO short-str + 24 > XML GENERATE short-str FROM valid-rec +---- ^ + 25 COUNT IN xml-len + 26 IF XML-CODE <> 400 +>> Hint: Missing . + +run_ml.at-311-prog.cob:25.15-25.20: + 22 PROCEDURE DIVISION. + 23 MOVE ALL 'A' TO short-str + 24 XML GENERATE short-str FROM valid-rec + 25 > COUNT IN xml-len +---- ^^^^^ + 26 IF XML-CODE <> 400 + 27 OR short-str <> "> Warning: Invalid syntax + +run_ml.at-311-prog.cob:25.31: + 22 PROCEDURE DIVISION. + 23 MOVE ALL 'A' TO short-str + 24 XML GENERATE short-str FROM valid-rec + 25 > COUNT IN xml-len +---- ^ + 26 IF XML-CODE <> 400 + 27 OR short-str <> "> Hint: Missing . + +run_ml.at-311-prog.cob:26.11-26.13: + 23 MOVE ALL 'A' TO short-str + 24 XML GENERATE short-str FROM valid-rec + 25 COUNT IN xml-len + 26 > IF XML-CODE <> 400 +---- ^^ + 27 OR short-str <> " 42 +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:35.11-35.14: + 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE + 33 END-IF + 34 MOVE ALL 'B' TO short-str2 + 35 > XML GENERATE short-str2 FROM valid-rec +---- ^^^ + 36 COUNT IN xml-len + 37 IF XML-CODE <> 400 +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:35.34: + 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE + 33 END-IF + 34 MOVE ALL 'B' TO short-str2 + 35 > XML GENERATE short-str2 FROM valid-rec +---- ^ + 36 COUNT IN xml-len + 37 IF XML-CODE <> 400 +>> Hint: Missing . + +run_ml.at-311-prog.cob:35.35-35.39: + 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE + 33 END-IF + 34 MOVE ALL 'B' TO short-str2 + 35 > XML GENERATE short-str2 FROM valid-rec +---- ^^^^ + 36 COUNT IN xml-len + 37 IF XML-CODE <> 400 +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:35.49: + 32 DISPLAY "Failed 1a: " short-str " " xml-len " " XML-CODE + 33 END-IF + 34 MOVE ALL 'B' TO short-str2 + 35 > XML GENERATE short-str2 FROM valid-rec +---- ^ + 36 COUNT IN xml-len + 37 IF XML-CODE <> 400 +>> Hint: Missing . + +run_ml.at-311-prog.cob:36.15-36.20: + 33 END-IF + 34 MOVE ALL 'B' TO short-str2 + 35 XML GENERATE short-str2 FROM valid-rec + 36 > COUNT IN xml-len +---- ^^^^^ + 37 IF XML-CODE <> 400 + 38 OR short-str2 <> "aa> Warning: Invalid syntax + +run_ml.at-311-prog.cob:36.31: + 33 END-IF + 34 MOVE ALL 'B' TO short-str2 + 35 XML GENERATE short-str2 FROM valid-rec + 36 > COUNT IN xml-len +---- ^ + 37 IF XML-CODE <> 400 + 38 OR short-str2 <> "aa> Hint: Missing . + +run_ml.at-311-prog.cob:37.11-37.13: + 34 MOVE ALL 'B' TO short-str2 + 35 XML GENERATE short-str2 FROM valid-rec + 36 COUNT IN xml-len + 37 > IF XML-CODE <> 400 +---- ^^ + 38 OR short-str2 <> "aa 42 +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:46.11-46.14: + 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE + 44 END-IF + 45 + 46 > XML GENERATE normal-str FROM valid-rec +---- ^^^ + 47 NAMESPACE invalid-namespace + 48 IF XML-CODE <> 416 +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:46.34: + 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE + 44 END-IF + 45 + 46 > XML GENERATE normal-str FROM valid-rec +---- ^ + 47 NAMESPACE invalid-namespace + 48 IF XML-CODE <> 416 +>> Hint: Missing . + +run_ml.at-311-prog.cob:46.35-46.39: + 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE + 44 END-IF + 45 + 46 > XML GENERATE normal-str FROM valid-rec +---- ^^^^ + 47 NAMESPACE invalid-namespace + 48 IF XML-CODE <> 416 +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:46.49: + 43 DISPLAY "Failed 1b: " short-str2 " " xml-len " " XML-CODE + 44 END-IF + 45 + 46 > XML GENERATE normal-str FROM valid-rec +---- ^ + 47 NAMESPACE invalid-namespace + 48 IF XML-CODE <> 416 +>> Hint: Missing . + +run_ml.at-311-prog.cob:47.15-47.24: + 44 END-IF + 45 + 46 XML GENERATE normal-str FROM valid-rec + 47 > NAMESPACE invalid-namespace +---- ^^^^^^^^^ + 48 IF XML-CODE <> 416 + 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:47.24: + 44 END-IF + 45 + 46 XML GENERATE normal-str FROM valid-rec + 47 > NAMESPACE invalid-namespace +---- ^ + 48 IF XML-CODE <> 416 + 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) +>> Hint: Missing . + +run_ml.at-311-prog.cob:47.25-47.42: + 44 END-IF + 45 + 46 XML GENERATE normal-str FROM valid-rec + 47 > NAMESPACE invalid-namespace +---- ^^^^^^^^^^^^^^^^^ + 48 IF XML-CODE <> 416 + 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:47.42: + 44 END-IF + 45 + 46 XML GENERATE normal-str FROM valid-rec + 47 > NAMESPACE invalid-namespace +---- ^ + 48 IF XML-CODE <> 416 + 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) +>> Hint: Missing . + +run_ml.at-311-prog.cob:48.11-48.13: + 45 + 46 XML GENERATE normal-str FROM valid-rec + 47 NAMESPACE invalid-namespace + 48 > IF XML-CODE <> 416 +---- ^^ + 49 DISPLAY "Failed 2: " FUNCTION TRIM (normal-str) + 50 " " XML-CODE +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:53.11-53.14: + 50 " " XML-CODE + 51 END-IF + 52 + 53 > XML GENERATE normal-str FROM invalid-content +---- ^^^ + 54 IF XML-CODE <> 417 + 55 OR normal-str <> '8aff00> Error: Invalid syntax + +run_ml.at-311-prog.cob:53.34: + 50 " " XML-CODE + 51 END-IF + 52 + 53 > XML GENERATE normal-str FROM invalid-content +---- ^ + 54 IF XML-CODE <> 417 + 55 OR normal-str <> '8aff00> Hint: Missing . + +run_ml.at-311-prog.cob:53.35-53.39: + 50 " " XML-CODE + 51 END-IF + 52 + 53 > XML GENERATE normal-str FROM invalid-content +---- ^^^^ + 54 IF XML-CODE <> 417 + 55 OR normal-str <> '8aff00> Warning: Invalid syntax + +run_ml.at-311-prog.cob:53.55: + 50 " " XML-CODE + 51 END-IF + 52 + 53 > XML GENERATE normal-str FROM invalid-content +---- ^ + 54 IF XML-CODE <> 417 + 55 OR normal-str <> '8aff00> Hint: Missing . + +run_ml.at-311-prog.cob:54.11-54.13: + 51 END-IF + 52 + 53 XML GENERATE normal-str FROM invalid-content + 54 > IF XML-CODE <> 417 +---- ^^ + 55 OR normal-str <> '8aff00' +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:61.11-61.14: + 58 " " XML-CODE + 59 END-IF + 60 + 61 > XML GENERATE normal-str FROM valid-rec +---- ^^^ + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 NAMESPACE-PREFIX invalid-prefix +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:61.34: + 58 " " XML-CODE + 59 END-IF + 60 + 61 > XML GENERATE normal-str FROM valid-rec +---- ^ + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 NAMESPACE-PREFIX invalid-prefix +>> Hint: Missing . + +run_ml.at-311-prog.cob:61.35-61.39: + 58 " " XML-CODE + 59 END-IF + 60 + 61 > XML GENERATE normal-str FROM valid-rec +---- ^^^^ + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 NAMESPACE-PREFIX invalid-prefix +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:61.49: + 58 " " XML-CODE + 59 END-IF + 60 + 61 > XML GENERATE normal-str FROM valid-rec +---- ^ + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 NAMESPACE-PREFIX invalid-prefix +>> Hint: Missing . + +run_ml.at-311-prog.cob:62.15-62.24: + 59 END-IF + 60 + 61 XML GENERATE normal-str FROM valid-rec + 62 > NAMESPACE "http://www.w3.org/1999/xhtml" +---- ^^^^^^^^^ + 63 NAMESPACE-PREFIX invalid-prefix + 64 IF XML-CODE <> 419 +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:62.24: + 59 END-IF + 60 + 61 XML GENERATE normal-str FROM valid-rec + 62 > NAMESPACE "http://www.w3.org/1999/xhtml" +---- ^ + 63 NAMESPACE-PREFIX invalid-prefix + 64 IF XML-CODE <> 419 +>> Hint: Missing . + +run_ml.at-311-prog.cob:62.25-62.55: + 59 END-IF + 60 + 61 XML GENERATE normal-str FROM valid-rec + 62 > NAMESPACE "http://www.w3.org/1999/xhtml" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 63 NAMESPACE-PREFIX invalid-prefix + 64 IF XML-CODE <> 419 +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:63.31: + 60 + 61 XML GENERATE normal-str FROM valid-rec + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 > NAMESPACE-PREFIX invalid-prefix +---- ^ + 64 IF XML-CODE <> 419 + 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) +>> Hint: Missing . + +run_ml.at-311-prog.cob:63.32-63.46: + 60 + 61 XML GENERATE normal-str FROM valid-rec + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 > NAMESPACE-PREFIX invalid-prefix +---- ^^^^^^^^^^^^^^ + 64 IF XML-CODE <> 419 + 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:63.46: + 60 + 61 XML GENERATE normal-str FROM valid-rec + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 > NAMESPACE-PREFIX invalid-prefix +---- ^ + 64 IF XML-CODE <> 419 + 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) +>> Hint: Missing . + +run_ml.at-311-prog.cob:64.11-64.13: + 61 XML GENERATE normal-str FROM valid-rec + 62 NAMESPACE "http://www.w3.org/1999/xhtml" + 63 NAMESPACE-PREFIX invalid-prefix + 64 > IF XML-CODE <> 419 +---- ^^ + 65 DISPLAY "Failed 4: " FUNCTION TRIM (normal-str) + 66 " " XML-CODE +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:69.11-69.14: + 66 " " XML-CODE + 67 END-IF + 68 + 69 > XML GENERATE normal-str FROM valid-rec +---- ^^^ + 70 ON EXCEPTION + 71 DISPLAY "Failed 5: EXCEPTION " +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:69.34: + 66 " " XML-CODE + 67 END-IF + 68 + 69 > XML GENERATE normal-str FROM valid-rec +---- ^ + 70 ON EXCEPTION + 71 DISPLAY "Failed 5: EXCEPTION " +>> Hint: Missing . + +run_ml.at-311-prog.cob:69.35-69.39: + 66 " " XML-CODE + 67 END-IF + 68 + 69 > XML GENERATE normal-str FROM valid-rec +---- ^^^^ + 70 ON EXCEPTION + 71 DISPLAY "Failed 5: EXCEPTION " +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:69.49: + 66 " " XML-CODE + 67 END-IF + 68 + 69 > XML GENERATE normal-str FROM valid-rec +---- ^ + 70 ON EXCEPTION + 71 DISPLAY "Failed 5: EXCEPTION " +>> Hint: Missing . + +run_ml.at-311-prog.cob:70.16-70.28: + 67 END-IF + 68 + 69 XML GENERATE normal-str FROM valid-rec + 70 > ON EXCEPTION +---- ^^^^^^^^^^^^ + 71 DISPLAY "Failed 5: EXCEPTION " + 72 FUNCTION TRIM (normal-str) +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:78.16-78.32: + 75 *> The END-DISPLAY is important! Otherwise the DISPLAY will + 76 *> take the NOT ON EXCEPTION. + 77 + 78 > NOT ON EXCEPTION +---- ^^^^^^^^^^^^^^^^ + 79 IF XML-CODE <> 0 + 80 DISPLAY "Failed 5: NOT EXCEPTION " +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:84.11-84.18: + 81 FUNCTION TRIM (normal-str) + 82 " " XML-CODE + 83 END-IF + 84 > END-XML +---- ^^^^^^^ + 85 + 86 XML GENERATE short-str FROM valid-rec +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:86.33: + 83 END-IF + 84 END-XML + 85 + 86 > XML GENERATE short-str FROM valid-rec +---- ^ + 87 NOT EXCEPTION + 88 DISPLAY "Failed 6: NOT EXCEPTION " +>> Hint: Missing . + +run_ml.at-311-prog.cob:86.34-86.38: + 83 END-IF + 84 END-XML + 85 + 86 > XML GENERATE short-str FROM valid-rec +---- ^^^^ + 87 NOT EXCEPTION + 88 DISPLAY "Failed 6: NOT EXCEPTION " +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:86.48: + 83 END-IF + 84 END-XML + 85 + 86 > XML GENERATE short-str FROM valid-rec +---- ^ + 87 NOT EXCEPTION + 88 DISPLAY "Failed 6: NOT EXCEPTION " +>> Hint: Missing . + +run_ml.at-311-prog.cob:87.16-87.29: + 84 END-XML + 85 + 86 XML GENERATE short-str FROM valid-rec + 87 > NOT EXCEPTION +---- ^^^^^^^^^^^^^ + 88 DISPLAY "Failed 6: NOT EXCEPTION " + 89 FUNCTION TRIM (normal-str) +>> Warning: Invalid syntax + +run_ml.at-311-prog.cob:93.16-93.25: + 90 " " XML-CODE + 91 END-DISPLAY + 92 + 93 > EXCEPTION +---- ^^^^^^^^^ + 94 IF XML-CODE <> 400 + 95 DISPLAY "Failed 6: ON EXCEPTION " +>> Error: Invalid syntax + +run_ml.at-311-prog.cob:99.11-99.18: + 96 FUNCTION TRIM (normal-str) + 97 " " XML-CODE + 98 END-IF + 99 > END-XML +---- ^^^^^^^ + 100 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:355:0 +run_ml.at-355-prog.cob:26.11-26.14: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > XML GENERATE out FROM d +---- ^^^ + 27 IF out <> 'abc000' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-355-prog.cob:26.27: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > XML GENERATE out FROM d +---- ^ + 27 IF out <> 'abc000' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-355-prog.cob:26.28-26.32: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > XML GENERATE out FROM d +---- ^^^^ + 27 IF out <> 'abc000' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-355-prog.cob:26.34: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > XML GENERATE out FROM d +---- ^ + 27 IF out <> 'abc000' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-355-prog.cob:27.11-27.13: + 24 *> END-IF + 25 + 26 XML GENERATE out FROM d + 27 > IF out <> 'abc000' +---- ^^ + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 29 END-IF +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:452:0 +run_ml.at-452-prog.cob:23.11-23.14: + 20 01 out PIC X(300). + 21 + 22 PROCEDURE DIVISION. + 23 > XML GENERATE out FROM str +---- ^^^ + 24 IF out <> 'ab' + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:23.27: + 20 01 out PIC X(300). + 21 + 22 PROCEDURE DIVISION. + 23 > XML GENERATE out FROM str +---- ^ + 24 IF out <> 'ab' + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:23.28-23.32: + 20 01 out PIC X(300). + 21 + 22 PROCEDURE DIVISION. + 23 > XML GENERATE out FROM str +---- ^^^^ + 24 IF out <> 'ab' + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:23.36: + 20 01 out PIC X(300). + 21 + 22 PROCEDURE DIVISION. + 23 > XML GENERATE out FROM str +---- ^ + 24 IF out <> 'ab' + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:24.11-24.13: + 21 + 22 PROCEDURE DIVISION. + 23 XML GENERATE out FROM str + 24 > IF out <> 'ab' +---- ^^ + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 26 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:28.11-28.14: + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 26 END-IF + 27 + 28 > XML GENERATE out FROM num-edited +---- ^^^ + 29 IF out <> '01.00' + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:28.27: + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 26 END-IF + 27 + 28 > XML GENERATE out FROM num-edited +---- ^ + 29 IF out <> '01.00' + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:28.28-28.32: + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 26 END-IF + 27 + 28 > XML GENERATE out FROM num-edited +---- ^^^^ + 29 IF out <> '01.00' + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:28.43: + 25 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 26 END-IF + 27 + 28 > XML GENERATE out FROM num-edited +---- ^ + 29 IF out <> '01.00' + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:29.11-29.13: + 26 END-IF + 27 + 28 XML GENERATE out FROM num-edited + 29 > IF out <> '01.00' +---- ^^ + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 31 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:33.11-33.14: + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 31 END-IF + 32 + 33 > XML GENERATE out FROM leading-zeroes +---- ^^^ + 34 IF out <> '5' + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:33.27: + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 31 END-IF + 32 + 33 > XML GENERATE out FROM leading-zeroes +---- ^ + 34 IF out <> '5' + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:33.28-33.32: + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 31 END-IF + 32 + 33 > XML GENERATE out FROM leading-zeroes +---- ^^^^ + 34 IF out <> '5' + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:33.47: + 30 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 31 END-IF + 32 + 33 > XML GENERATE out FROM leading-zeroes +---- ^ + 34 IF out <> '5' + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:34.11-34.13: + 31 END-IF + 32 + 33 XML GENERATE out FROM leading-zeroes + 34 > IF out <> '5' +---- ^^ + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 36 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:38.11-38.14: + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 36 END-IF + 37 + 38 > XML GENERATE out FROM decimal-num +---- ^^^ + 39 IF out <> '0.120' + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:38.27: + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 36 END-IF + 37 + 38 > XML GENERATE out FROM decimal-num +---- ^ + 39 IF out <> '0.120' + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:38.28-38.32: + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 36 END-IF + 37 + 38 > XML GENERATE out FROM decimal-num +---- ^^^^ + 39 IF out <> '0.120' + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:38.44: + 35 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 36 END-IF + 37 + 38 > XML GENERATE out FROM decimal-num +---- ^ + 39 IF out <> '0.120' + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:39.11-39.13: + 36 END-IF + 37 + 38 XML GENERATE out FROM decimal-num + 39 > IF out <> '0.120' +---- ^^ + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 41 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:43.11-43.14: + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 41 END-IF + 42 + 43 > XML GENERATE out FROM signed-decimal-num +---- ^^^ + 44 IF out <> '-1' + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:43.27: + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 41 END-IF + 42 + 43 > XML GENERATE out FROM signed-decimal-num +---- ^ + 44 IF out <> '-1' + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:43.28-43.32: + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 41 END-IF + 42 + 43 > XML GENERATE out FROM signed-decimal-num +---- ^^^^ + 44 IF out <> '-1' + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:43.51: + 40 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 41 END-IF + 42 + 43 > XML GENERATE out FROM signed-decimal-num +---- ^ + 44 IF out <> '-1' + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:44.11-44.13: + 41 END-IF + 42 + 43 XML GENERATE out FROM signed-decimal-num + 44 > IF out <> '-1' +---- ^^ + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 46 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:48.11-48.14: + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 46 END-IF + 47 + 48 > XML GENERATE out FROM comp-5-item +---- ^^^ + 49 IF out <> '5' + 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:48.27: + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 46 END-IF + 47 + 48 > XML GENERATE out FROM comp-5-item +---- ^ + 49 IF out <> '5' + 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:48.28-48.32: + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 46 END-IF + 47 + 48 > XML GENERATE out FROM comp-5-item +---- ^^^^ + 49 IF out <> '5' + 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:48.44: + 45 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 46 END-IF + 47 + 48 > XML GENERATE out FROM comp-5-item +---- ^ + 49 IF out <> '5' + 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:49.11-49.13: + 46 END-IF + 47 + 48 XML GENERATE out FROM comp-5-item + 49 > IF out <> '5' +---- ^^ + 50 DISPLAY "Failed 6: " FUNCTION TRIM (out) + 51 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:54.11-54.14: + 51 END-IF + 52 + 53 SET index-item TO 500 + 54 > XML GENERATE out FROM index-item +---- ^^^ + 55 IF out <> '500' + 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:54.27: + 51 END-IF + 52 + 53 SET index-item TO 500 + 54 > XML GENERATE out FROM index-item +---- ^ + 55 IF out <> '500' + 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:54.28-54.32: + 51 END-IF + 52 + 53 SET index-item TO 500 + 54 > XML GENERATE out FROM index-item +---- ^^^^ + 55 IF out <> '500' + 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:54.43: + 51 END-IF + 52 + 53 SET index-item TO 500 + 54 > XML GENERATE out FROM index-item +---- ^ + 55 IF out <> '500' + 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:55.11-55.13: + 52 + 53 SET index-item TO 500 + 54 XML GENERATE out FROM index-item + 55 > IF out <> '500' +---- ^^ + 56 DISPLAY "Failed 7: " FUNCTION TRIM (out) + 57 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:70.11-70.14: + 67 *> END-IF + 68 + 69 MOVE "blah " TO just-item + 70 > XML GENERATE out FROM just-item +---- ^^^ + 71 IF out <> 'blah ' + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:70.27: + 67 *> END-IF + 68 + 69 MOVE "blah " TO just-item + 70 > XML GENERATE out FROM just-item +---- ^ + 71 IF out <> 'blah ' + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:70.28-70.32: + 67 *> END-IF + 68 + 69 MOVE "blah " TO just-item + 70 > XML GENERATE out FROM just-item +---- ^^^^ + 71 IF out <> 'blah ' + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:70.42: + 67 *> END-IF + 68 + 69 MOVE "blah " TO just-item + 70 > XML GENERATE out FROM just-item +---- ^ + 71 IF out <> 'blah ' + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:71.11-71.13: + 68 + 69 MOVE "blah " TO just-item + 70 XML GENERATE out FROM just-item + 71 > IF out <> 'blah ' +---- ^^ + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 73 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:75.11-75.14: + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 73 END-IF + 74 + 75 > XML GENERATE out FROM integer-with-p +---- ^^^ + 76 IF out <> '10000' + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:75.27: + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 73 END-IF + 74 + 75 > XML GENERATE out FROM integer-with-p +---- ^ + 76 IF out <> '10000' + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:75.28-75.32: + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 73 END-IF + 74 + 75 > XML GENERATE out FROM integer-with-p +---- ^^^^ + 76 IF out <> '10000' + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:75.47: + 72 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 73 END-IF + 74 + 75 > XML GENERATE out FROM integer-with-p +---- ^ + 76 IF out <> '10000' + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:76.11-76.13: + 73 END-IF + 74 + 75 XML GENERATE out FROM integer-with-p + 76 > IF out <> '10000' +---- ^^ + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 78 END-IF +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:80.11-80.14: + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 78 END-IF + 79 + 80 > XML GENERATE out FROM decimal-with-p +---- ^^^ + 81 IF out <> '0.0004' + 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-452-prog.cob:80.27: + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 78 END-IF + 79 + 80 > XML GENERATE out FROM decimal-with-p +---- ^ + 81 IF out <> '0.0004' + 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:80.28-80.32: + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 78 END-IF + 79 + 80 > XML GENERATE out FROM decimal-with-p +---- ^^^^ + 81 IF out <> '0.0004' + 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-452-prog.cob:80.47: + 77 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 78 END-IF + 79 + 80 > XML GENERATE out FROM decimal-with-p +---- ^ + 81 IF out <> '0.0004' + 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-452-prog.cob:81.11-81.13: + 78 END-IF + 79 + 80 XML GENERATE out FROM decimal-with-p + 81 > IF out <> '0.0004' +---- ^^ + 82 DISPLAY "Failed 12: " FUNCTION TRIM (out) + 83 END-IF +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:483:0 +run_ml.at-483-prog.cob:2.7-2.29: + 1 + 2 > $SET DPC-IN-DATA "JSON" +---- ^^^^^^^^^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. +>> Error: Unexpected characters + +run_ml.at-483-prog.cob:17.11-17.14: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > XML GENERATE out FROM num +---- ^^^ + 18 IF out <> '1.1' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Error: Invalid syntax + +run_ml.at-483-prog.cob:17.27: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > XML GENERATE out FROM num +---- ^ + 18 IF out <> '1.1' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Hint: Missing . + +run_ml.at-483-prog.cob:17.28-17.32: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > XML GENERATE out FROM num +---- ^^^^ + 18 IF out <> '1.1' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Warning: Invalid syntax + +run_ml.at-483-prog.cob:17.36: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > XML GENERATE out FROM num +---- ^ + 18 IF out <> '1.1' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Hint: Missing . + +run_ml.at-483-prog.cob:18.11-18.13: + 15 + 16 PROCEDURE DIVISION. + 17 XML GENERATE out FROM num + 18 > IF out <> '1.1' +---- ^^ + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:513:0 +run_ml.at-513-prog.cob:16.11-16.14: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > XML GENERATE out FROM num +---- ^^^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Error: Invalid syntax + +run_ml.at-513-prog.cob:16.27: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > XML GENERATE out FROM num +---- ^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Hint: Missing . + +run_ml.at-513-prog.cob:16.28-16.32: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > XML GENERATE out FROM num +---- ^^^^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Warning: Invalid syntax + +run_ml.at-513-prog.cob:16.36: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > XML GENERATE out FROM num +---- ^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Hint: Missing . + +run_ml.at-513-prog.cob:17.11-17.18: + 14 + 15 PROCEDURE DIVISION. + 16 XML GENERATE out FROM num + 17 > DISPLAY FUNCTION TRIM(out) +---- ^^^^^^^ + 18 . +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:584:0 +run_ml.at-584-prog.cob:15.11-15.15: + 12 05 d PIC X(3) VALUE SPACES. + 13 + 14 PROCEDURE DIVISION. + 15 > JSON GENERATE out +---- ^^^^ + 16 FROM rec + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' +>> Error: Invalid syntax + +run_ml.at-584-prog.cob:15.28: + 12 05 d PIC X(3) VALUE SPACES. + 13 + 14 PROCEDURE DIVISION. + 15 > JSON GENERATE out +---- ^ + 16 FROM rec + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' +>> Hint: Missing . + +run_ml.at-584-prog.cob:16.15-16.19: + 13 + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 > FROM rec +---- ^^^^ + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' + 18 SUPPRESS c +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:16.23: + 13 + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 > FROM rec +---- ^ + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' + 18 SUPPRESS c +>> Hint: Missing . + +run_ml.at-584-prog.cob:17.15-17.19: + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 FROM rec + 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' +---- ^^^^ + 18 SUPPRESS c + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:17.19: + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 FROM rec + 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' +---- ^ + 18 SUPPRESS c + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +>> Hint: Missing . + +run_ml.at-584-prog.cob:17.20-17.22: + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 FROM rec + 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' +---- ^^ + 18 SUPPRESS c + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:17.24: + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 FROM rec + 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' +---- ^ + 18 SUPPRESS c + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +>> Hint: Missing . + +run_ml.at-584-prog.cob:17.25-17.27: + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 FROM rec + 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' +---- ^^ + 18 SUPPRESS c + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:17.38: + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 FROM rec + 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' +---- ^ + 18 SUPPRESS c + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +>> Hint: Missing . + +run_ml.at-584-prog.cob:17.39-17.41: + 14 PROCEDURE DIVISION. + 15 JSON GENERATE out + 16 FROM rec + 17 > NAME OF a IS 'alpha', d IS 'ABCDEF' +---- ^^ + 18 SUPPRESS c + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:18.23: + 15 JSON GENERATE out + 16 FROM rec + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' + 18 > SUPPRESS c +---- ^ + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:18.24-18.25: + 15 JSON GENERATE out + 16 FROM rec + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' + 18 > SUPPRESS c +---- ^ + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:18.25: + 15 JSON GENERATE out + 16 FROM rec + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' + 18 > SUPPRESS c +---- ^ + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:19.11-19.13: + 16 FROM rec + 17 NAME OF a IS 'alpha', d IS 'ABCDEF' + 18 SUPPRESS c + 19 > IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' +---- ^^ + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 21 END-IF +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:22.11-22.15: + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 21 END-IF + 22 > JSON GENERATE out +---- ^^^^ + 23 FROM rec + 24 NAME OF a IS 'alpha', rec IS OMITTED +>> Error: Invalid syntax + +run_ml.at-584-prog.cob:22.28: + 19 IF out <> '{"rec":{"alpha":"A","b":"BBB"}}' + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 21 END-IF + 22 > JSON GENERATE out +---- ^ + 23 FROM rec + 24 NAME OF a IS 'alpha', rec IS OMITTED +>> Hint: Missing . + +run_ml.at-584-prog.cob:23.15-23.19: + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 21 END-IF + 22 JSON GENERATE out + 23 > FROM rec +---- ^^^^ + 24 NAME OF a IS 'alpha', rec IS OMITTED + 25 SUPPRESS c +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:23.23: + 20 DISPLAY 'Test 1 failed: ' FUNCTION TRIM (out) + 21 END-IF + 22 JSON GENERATE out + 23 > FROM rec +---- ^ + 24 NAME OF a IS 'alpha', rec IS OMITTED + 25 SUPPRESS c +>> Hint: Missing . + +run_ml.at-584-prog.cob:24.15-24.19: + 21 END-IF + 22 JSON GENERATE out + 23 FROM rec + 24 > NAME OF a IS 'alpha', rec IS OMITTED +---- ^^^^ + 25 SUPPRESS c + 26 IF out <> '{"alpha":"A","b":"BBB"}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:24.19: + 21 END-IF + 22 JSON GENERATE out + 23 FROM rec + 24 > NAME OF a IS 'alpha', rec IS OMITTED +---- ^ + 25 SUPPRESS c + 26 IF out <> '{"alpha":"A","b":"BBB"}' +>> Hint: Missing . + +run_ml.at-584-prog.cob:24.20-24.22: + 21 END-IF + 22 JSON GENERATE out + 23 FROM rec + 24 > NAME OF a IS 'alpha', rec IS OMITTED +---- ^^ + 25 SUPPRESS c + 26 IF out <> '{"alpha":"A","b":"BBB"}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:24.24: + 21 END-IF + 22 JSON GENERATE out + 23 FROM rec + 24 > NAME OF a IS 'alpha', rec IS OMITTED +---- ^ + 25 SUPPRESS c + 26 IF out <> '{"alpha":"A","b":"BBB"}' +>> Hint: Missing . + +run_ml.at-584-prog.cob:24.25-24.27: + 21 END-IF + 22 JSON GENERATE out + 23 FROM rec + 24 > NAME OF a IS 'alpha', rec IS OMITTED +---- ^^ + 25 SUPPRESS c + 26 IF out <> '{"alpha":"A","b":"BBB"}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:24.40: + 21 END-IF + 22 JSON GENERATE out + 23 FROM rec + 24 > NAME OF a IS 'alpha', rec IS OMITTED +---- ^ + 25 SUPPRESS c + 26 IF out <> '{"alpha":"A","b":"BBB"}' +>> Hint: Missing . + +run_ml.at-584-prog.cob:24.41-24.43: + 21 END-IF + 22 JSON GENERATE out + 23 FROM rec + 24 > NAME OF a IS 'alpha', rec IS OMITTED +---- ^^ + 25 SUPPRESS c + 26 IF out <> '{"alpha":"A","b":"BBB"}' +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:25.23: + 22 JSON GENERATE out + 23 FROM rec + 24 NAME OF a IS 'alpha', rec IS OMITTED + 25 > SUPPRESS c +---- ^ + 26 IF out <> '{"alpha":"A","b":"BBB"}' + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:25.24-25.25: + 22 JSON GENERATE out + 23 FROM rec + 24 NAME OF a IS 'alpha', rec IS OMITTED + 25 > SUPPRESS c +---- ^ + 26 IF out <> '{"alpha":"A","b":"BBB"}' + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:25.25: + 22 JSON GENERATE out + 23 FROM rec + 24 NAME OF a IS 'alpha', rec IS OMITTED + 25 > SUPPRESS c +---- ^ + 26 IF out <> '{"alpha":"A","b":"BBB"}' + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:26.11-26.13: + 23 FROM rec + 24 NAME OF a IS 'alpha', rec IS OMITTED + 25 SUPPRESS c + 26 > IF out <> '{"alpha":"A","b":"BBB"}' +---- ^^ + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 28 END-IF +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:30.11-30.15: + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM d +---- ^^^^ + 31 IF out <> '{"d":" "}' + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-584-prog.cob:30.28: + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM d +---- ^ + 31 IF out <> '{"d":" "}' + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:30.29-30.33: + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM d +---- ^^^^ + 31 IF out <> '{"d":" "}' + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:30.35: + 27 DISPLAY 'Test 2 failed: ' FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM d +---- ^ + 31 IF out <> '{"d":" "}' + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:31.11-31.13: + 28 END-IF + 29 + 30 JSON GENERATE out FROM d + 31 > IF out <> '{"d":" "}' +---- ^^ + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) + 33 END-IF +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:35.11-35.15: + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM c +---- ^^^^ + 36 IF out <> '{"c":{"d":" "}}' + 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-584-prog.cob:35.28: + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM c +---- ^ + 36 IF out <> '{"c":{"d":" "}}' + 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:35.29-35.33: + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM c +---- ^^^^ + 36 IF out <> '{"c":{"d":" "}}' + 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:35.35: + 32 DISPLAY 'Test 3 failed: ' FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM c +---- ^ + 36 IF out <> '{"c":{"d":" "}}' + 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:36.11-36.13: + 33 END-IF + 34 + 35 JSON GENERATE out FROM c + 36 > IF out <> '{"c":{"d":" "}}' +---- ^^ + 37 DISPLAY 'Test 4 failed: ' FUNCTION TRIM (out) + 38 END-IF +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:41.11-41.15: + 38 END-IF + 39 + 40 MOVE ALL QUOTES TO d + 41 > JSON GENERATE out FROM d +---- ^^^^ + 42 IF out <> '{"d":"\"\"\""}' + 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-584-prog.cob:41.28: + 38 END-IF + 39 + 40 MOVE ALL QUOTES TO d + 41 > JSON GENERATE out FROM d +---- ^ + 42 IF out <> '{"d":"\"\"\""}' + 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:41.29-41.33: + 38 END-IF + 39 + 40 MOVE ALL QUOTES TO d + 41 > JSON GENERATE out FROM d +---- ^^^^ + 42 IF out <> '{"d":"\"\"\""}' + 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-584-prog.cob:41.35: + 38 END-IF + 39 + 40 MOVE ALL QUOTES TO d + 41 > JSON GENERATE out FROM d +---- ^ + 42 IF out <> '{"d":"\"\"\""}' + 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-584-prog.cob:42.11-42.13: + 39 + 40 MOVE ALL QUOTES TO d + 41 JSON GENERATE out FROM d + 42 > IF out <> '{"d":"\"\"\""}' +---- ^^ + 43 DISPLAY 'Test 5 failed: ' FUNCTION TRIM (out) + 44 END-IF +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:623:0 +run_ml.at-623-prog.cob:18.11-18.15: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^^^^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Error: Invalid syntax + +run_ml.at-623-prog.cob:18.28: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:18.29-18.33: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^^^^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-623-prog.cob:18.35: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:18.36-18.44: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^^^^^^^^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-623-prog.cob:18.44: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:18.45-18.46: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-623-prog.cob:18.46: + 15 01 out PIC X(100). + 16 + 17 PROCEDURE DIVISION. + 18 > JSON GENERATE out FROM a SUPPRESS b +---- ^ + 19 IF out <> '{"a":{"c":" "}}' + 20 DISPLAY 'Test 1 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:19.11-19.13: + 16 + 17 PROCEDURE DIVISION. + 18 JSON GENERATE out FROM a SUPPRESS b + 19 > IF out <> '{"a":{"c":" "}}' +---- ^^ + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF +>> Warning: Invalid syntax + +run_ml.at-623-prog.cob:23.11-23.15: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^^^^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Error: Invalid syntax + +run_ml.at-623-prog.cob:23.28: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:23.29-23.33: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^^^^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-623-prog.cob:23.35: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:23.36-23.44: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^^^^^^^^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-623-prog.cob:23.44: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:23.45-23.46: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Warning: Invalid syntax + +run_ml.at-623-prog.cob:23.46: + 20 DISPLAY 'Test 1 failed: ' out + 21 END-IF + 22 + 23 > JSON GENERATE out FROM x SUPPRESS z +---- ^ + 24 IF out <> '{"x":{}}' + 25 DISPLAY 'Test 2 failed: ' out +>> Hint: Missing . + +run_ml.at-623-prog.cob:24.11-24.13: + 21 END-IF + 22 + 23 JSON GENERATE out FROM x SUPPRESS z + 24 > IF out <> '{"x":{}}' +---- ^^ + 25 DISPLAY 'Test 2 failed: ' out + 26 END-IF +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:688:0 +run_ml.at-688-prog.cob:16.11-16.15: + 13 01 json-len PIC 99. + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE short-str FROM valid-rec +---- ^^^^ + 17 COUNT IN json-len + 18 IF short-str <> '{"val' +>> Error: Invalid syntax + +run_ml.at-688-prog.cob:16.34: + 13 01 json-len PIC 99. + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE short-str FROM valid-rec +---- ^ + 17 COUNT IN json-len + 18 IF short-str <> '{"val' +>> Hint: Missing . + +run_ml.at-688-prog.cob:16.35-16.39: + 13 01 json-len PIC 99. + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE short-str FROM valid-rec +---- ^^^^ + 17 COUNT IN json-len + 18 IF short-str <> '{"val' +>> Warning: Invalid syntax + +run_ml.at-688-prog.cob:16.49: + 13 01 json-len PIC 99. + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE short-str FROM valid-rec +---- ^ + 17 COUNT IN json-len + 18 IF short-str <> '{"val' +>> Hint: Missing . + +run_ml.at-688-prog.cob:17.15-17.20: + 14 + 15 PROCEDURE DIVISION. + 16 JSON GENERATE short-str FROM valid-rec + 17 > COUNT IN json-len +---- ^^^^^ + 18 IF short-str <> '{"val' + 19 OR json-len <> 33 +>> Warning: Invalid syntax + +run_ml.at-688-prog.cob:17.32: + 14 + 15 PROCEDURE DIVISION. + 16 JSON GENERATE short-str FROM valid-rec + 17 > COUNT IN json-len +---- ^ + 18 IF short-str <> '{"val' + 19 OR json-len <> 33 +>> Hint: Missing . + +run_ml.at-688-prog.cob:18.11-18.13: + 15 PROCEDURE DIVISION. + 16 JSON GENERATE short-str FROM valid-rec + 17 COUNT IN json-len + 18 > IF short-str <> '{"val' +---- ^^ + 19 OR json-len <> 33 + 20 OR JSON-CODE <> 1 +>> Warning: Invalid syntax + +run_ml.at-688-prog.cob:24.11-24.15: + 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE + 22 END-IF + 23 + 24 > JSON GENERATE normal-str FROM valid-rec +---- ^^^^ + 25 ON EXCEPTION + 26 DISPLAY "Failed 2: EXCEPTION " +>> Error: Invalid syntax + +run_ml.at-688-prog.cob:24.35: + 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE + 22 END-IF + 23 + 24 > JSON GENERATE normal-str FROM valid-rec +---- ^ + 25 ON EXCEPTION + 26 DISPLAY "Failed 2: EXCEPTION " +>> Hint: Missing . + +run_ml.at-688-prog.cob:24.36-24.40: + 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE + 22 END-IF + 23 + 24 > JSON GENERATE normal-str FROM valid-rec +---- ^^^^ + 25 ON EXCEPTION + 26 DISPLAY "Failed 2: EXCEPTION " +>> Warning: Invalid syntax + +run_ml.at-688-prog.cob:24.50: + 21 DISPLAY "Failed 1: " short-str " " json-len " " JSON-CODE + 22 END-IF + 23 + 24 > JSON GENERATE normal-str FROM valid-rec +---- ^ + 25 ON EXCEPTION + 26 DISPLAY "Failed 2: EXCEPTION " +>> Hint: Missing . + +run_ml.at-688-prog.cob:25.16-25.28: + 22 END-IF + 23 + 24 JSON GENERATE normal-str FROM valid-rec + 25 > ON EXCEPTION +---- ^^^^^^^^^^^^ + 26 DISPLAY "Failed 2: EXCEPTION " + 27 FUNCTION TRIM (normal-str) +>> Warning: Invalid syntax + +run_ml.at-688-prog.cob:31.16-31.32: + 28 " " JSON-CODE + 29 END-DISPLAY + 30 + 31 > NOT ON EXCEPTION +---- ^^^^^^^^^^^^^^^^ + 32 IF JSON-CODE <> 0 + 33 DISPLAY "Failed 2: NOT EXCEPTION " +>> Error: Invalid syntax + +run_ml.at-688-prog.cob:37.11-37.19: + 34 FUNCTION TRIM (normal-str) + 35 " " JSON-CODE + 36 END-IF + 37 > END-JSON +---- ^^^^^^^^ + 38 + 39 JSON GENERATE short-str FROM valid-rec +>> Error: Invalid syntax + +run_ml.at-688-prog.cob:39.34: + 36 END-IF + 37 END-JSON + 38 + 39 > JSON GENERATE short-str FROM valid-rec +---- ^ + 40 NOT EXCEPTION + 41 DISPLAY "Failed 3: NOT EXCEPTION " +>> Hint: Missing . + +run_ml.at-688-prog.cob:39.35-39.39: + 36 END-IF + 37 END-JSON + 38 + 39 > JSON GENERATE short-str FROM valid-rec +---- ^^^^ + 40 NOT EXCEPTION + 41 DISPLAY "Failed 3: NOT EXCEPTION " +>> Warning: Invalid syntax + +run_ml.at-688-prog.cob:39.49: + 36 END-IF + 37 END-JSON + 38 + 39 > JSON GENERATE short-str FROM valid-rec +---- ^ + 40 NOT EXCEPTION + 41 DISPLAY "Failed 3: NOT EXCEPTION " +>> Hint: Missing . + +run_ml.at-688-prog.cob:40.16-40.29: + 37 END-JSON + 38 + 39 JSON GENERATE short-str FROM valid-rec + 40 > NOT EXCEPTION +---- ^^^^^^^^^^^^^ + 41 DISPLAY "Failed 3: NOT EXCEPTION " + 42 FUNCTION TRIM (normal-str) +>> Warning: Invalid syntax + +run_ml.at-688-prog.cob:46.16-46.25: + 43 " " JSON-CODE + 44 END-DISPLAY + 45 + 46 > EXCEPTION +---- ^^^^^^^^^ + 47 IF JSON-CODE <> 1 + 48 DISPLAY "Failed 3: ON EXCEPTION " +>> Error: Invalid syntax + +run_ml.at-688-prog.cob:52.11-52.19: + 49 FUNCTION TRIM (normal-str) + 50 " " JSON-CODE + 51 END-IF + 52 > END-JSON +---- ^^^^^^^^ + 53 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:732:0 +run_ml.at-732-prog.cob:26.11-26.15: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > JSON GENERATE out FROM d +---- ^^^^ + 27 IF out <> '{"d":{"e":"abc000"}}' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-732-prog.cob:26.28: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > JSON GENERATE out FROM d +---- ^ + 27 IF out <> '{"d":{"e":"abc000"}}' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-732-prog.cob:26.29-26.33: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > JSON GENERATE out FROM d +---- ^^^^ + 27 IF out <> '{"d":{"e":"abc000"}}' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-732-prog.cob:26.35: + 23 *> DISPLAY "Failed 1: " FUNCTION TRIM (out) + 24 *> END-IF + 25 + 26 > JSON GENERATE out FROM d +---- ^ + 27 IF out <> '{"d":{"e":"abc000"}}' + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-732-prog.cob:27.11-27.13: + 24 *> END-IF + 25 + 26 JSON GENERATE out FROM d + 27 > IF out <> '{"d":{"e":"abc000"}}' +---- ^^ + 28 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 29 END-IF +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:832:0 +run_ml.at-832-prog.cob:25.11-25.15: + 22 01 out PIC X(300). + 23 + 24 PROCEDURE DIVISION. + 25 > JSON GENERATE out FROM str +---- ^^^^ + 26 IF out <> '{"str":"ab"}' + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:25.28: + 22 01 out PIC X(300). + 23 + 24 PROCEDURE DIVISION. + 25 > JSON GENERATE out FROM str +---- ^ + 26 IF out <> '{"str":"ab"}' + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:25.29-25.33: + 22 01 out PIC X(300). + 23 + 24 PROCEDURE DIVISION. + 25 > JSON GENERATE out FROM str +---- ^^^^ + 26 IF out <> '{"str":"ab"}' + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:25.37: + 22 01 out PIC X(300). + 23 + 24 PROCEDURE DIVISION. + 25 > JSON GENERATE out FROM str +---- ^ + 26 IF out <> '{"str":"ab"}' + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:26.11-26.13: + 23 + 24 PROCEDURE DIVISION. + 25 JSON GENERATE out FROM str + 26 > IF out <> '{"str":"ab"}' +---- ^^ + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 28 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:30.11-30.15: + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM num-edited +---- ^^^^ + 31 IF out <> '{"num-edited":"01.00"}' + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:30.28: + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM num-edited +---- ^ + 31 IF out <> '{"num-edited":"01.00"}' + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:30.29-30.33: + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM num-edited +---- ^^^^ + 31 IF out <> '{"num-edited":"01.00"}' + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:30.44: + 27 DISPLAY "Failed 1: " FUNCTION TRIM (out) + 28 END-IF + 29 + 30 > JSON GENERATE out FROM num-edited +---- ^ + 31 IF out <> '{"num-edited":"01.00"}' + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:31.11-31.13: + 28 END-IF + 29 + 30 JSON GENERATE out FROM num-edited + 31 > IF out <> '{"num-edited":"01.00"}' +---- ^^ + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 33 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:35.11-35.15: + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM leading-zeroes +---- ^^^^ + 36 IF out <> '{"leading-zeroes":5}' + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:35.28: + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM leading-zeroes +---- ^ + 36 IF out <> '{"leading-zeroes":5}' + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:35.29-35.33: + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM leading-zeroes +---- ^^^^ + 36 IF out <> '{"leading-zeroes":5}' + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:35.48: + 32 DISPLAY "Failed 2: " FUNCTION TRIM (out) + 33 END-IF + 34 + 35 > JSON GENERATE out FROM leading-zeroes +---- ^ + 36 IF out <> '{"leading-zeroes":5}' + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:36.11-36.13: + 33 END-IF + 34 + 35 JSON GENERATE out FROM leading-zeroes + 36 > IF out <> '{"leading-zeroes":5}' +---- ^^ + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 38 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:40.11-40.15: + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 38 END-IF + 39 + 40 > JSON GENERATE out FROM decimal-nums +---- ^^^^ + 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- + 42 '"decimal-num-2":0.1}}' +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:40.28: + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 38 END-IF + 39 + 40 > JSON GENERATE out FROM decimal-nums +---- ^ + 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- + 42 '"decimal-num-2":0.1}}' +>> Hint: Missing . + +run_ml.at-832-prog.cob:40.29-40.33: + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 38 END-IF + 39 + 40 > JSON GENERATE out FROM decimal-nums +---- ^^^^ + 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- + 42 '"decimal-num-2":0.1}}' +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:40.46: + 37 DISPLAY "Failed 3: " FUNCTION TRIM (out) + 38 END-IF + 39 + 40 > JSON GENERATE out FROM decimal-nums +---- ^ + 41 IF out <> '{"decimal-nums":{"decimal-num":0.120,'- + 42 '"decimal-num-2":0.1}}' +>> Hint: Missing . + +run_ml.at-832-prog.cob:41.11-41.13: + 38 END-IF + 39 + 40 JSON GENERATE out FROM decimal-nums + 41 > IF out <> '{"decimal-nums":{"decimal-num":0.120,'- +---- ^^ + 42 '"decimal-num-2":0.1}}' + 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:46.11-46.15: + 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 44 END-IF + 45 + 46 > JSON GENERATE out FROM signed-decimal-num +---- ^^^^ + 47 IF out <> '{"signed-decimal-num":-1}' + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:46.28: + 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 44 END-IF + 45 + 46 > JSON GENERATE out FROM signed-decimal-num +---- ^ + 47 IF out <> '{"signed-decimal-num":-1}' + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:46.29-46.33: + 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 44 END-IF + 45 + 46 > JSON GENERATE out FROM signed-decimal-num +---- ^^^^ + 47 IF out <> '{"signed-decimal-num":-1}' + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:46.52: + 43 DISPLAY "Failed 4: " FUNCTION TRIM (out) + 44 END-IF + 45 + 46 > JSON GENERATE out FROM signed-decimal-num +---- ^ + 47 IF out <> '{"signed-decimal-num":-1}' + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:47.11-47.13: + 44 END-IF + 45 + 46 JSON GENERATE out FROM signed-decimal-num + 47 > IF out <> '{"signed-decimal-num":-1}' +---- ^^ + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 49 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:51.11-51.15: + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 49 END-IF + 50 + 51 > JSON GENERATE out FROM comp-5-item +---- ^^^^ + 52 IF out <> '{"comp-5-item":5}' + 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:51.28: + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 49 END-IF + 50 + 51 > JSON GENERATE out FROM comp-5-item +---- ^ + 52 IF out <> '{"comp-5-item":5}' + 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:51.29-51.33: + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 49 END-IF + 50 + 51 > JSON GENERATE out FROM comp-5-item +---- ^^^^ + 52 IF out <> '{"comp-5-item":5}' + 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:51.45: + 48 DISPLAY "Failed 5: " FUNCTION TRIM (out) + 49 END-IF + 50 + 51 > JSON GENERATE out FROM comp-5-item +---- ^ + 52 IF out <> '{"comp-5-item":5}' + 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:52.11-52.13: + 49 END-IF + 50 + 51 JSON GENERATE out FROM comp-5-item + 52 > IF out <> '{"comp-5-item":5}' +---- ^^ + 53 DISPLAY "Failed 6: " FUNCTION TRIM (out) + 54 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:57.11-57.15: + 54 END-IF + 55 + 56 SET index-item TO 500 + 57 > JSON GENERATE out FROM index-item +---- ^^^^ + 58 IF out <> '{"index-item":500}' + 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:57.28: + 54 END-IF + 55 + 56 SET index-item TO 500 + 57 > JSON GENERATE out FROM index-item +---- ^ + 58 IF out <> '{"index-item":500}' + 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:57.29-57.33: + 54 END-IF + 55 + 56 SET index-item TO 500 + 57 > JSON GENERATE out FROM index-item +---- ^^^^ + 58 IF out <> '{"index-item":500}' + 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:57.44: + 54 END-IF + 55 + 56 SET index-item TO 500 + 57 > JSON GENERATE out FROM index-item +---- ^ + 58 IF out <> '{"index-item":500}' + 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:58.11-58.13: + 55 + 56 SET index-item TO 500 + 57 JSON GENERATE out FROM index-item + 58 > IF out <> '{"index-item":500}' +---- ^^ + 59 DISPLAY "Failed 7: " FUNCTION TRIM (out) + 60 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:73.11-73.15: + 70 *> END-IF + 71 + 72 MOVE "blah " TO just-item + 73 > JSON GENERATE out FROM just-item +---- ^^^^ + 74 IF out <> '{"just-item":"blah "}' + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:73.28: + 70 *> END-IF + 71 + 72 MOVE "blah " TO just-item + 73 > JSON GENERATE out FROM just-item +---- ^ + 74 IF out <> '{"just-item":"blah "}' + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:73.29-73.33: + 70 *> END-IF + 71 + 72 MOVE "blah " TO just-item + 73 > JSON GENERATE out FROM just-item +---- ^^^^ + 74 IF out <> '{"just-item":"blah "}' + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:73.43: + 70 *> END-IF + 71 + 72 MOVE "blah " TO just-item + 73 > JSON GENERATE out FROM just-item +---- ^ + 74 IF out <> '{"just-item":"blah "}' + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:74.11-74.13: + 71 + 72 MOVE "blah " TO just-item + 73 JSON GENERATE out FROM just-item + 74 > IF out <> '{"just-item":"blah "}' +---- ^^ + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 76 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:78.11-78.15: + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 76 END-IF + 77 + 78 > JSON GENERATE out FROM integer-with-p +---- ^^^^ + 79 IF out <> '{"integer-with-p":10000}' + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:78.28: + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 76 END-IF + 77 + 78 > JSON GENERATE out FROM integer-with-p +---- ^ + 79 IF out <> '{"integer-with-p":10000}' + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:78.29-78.33: + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 76 END-IF + 77 + 78 > JSON GENERATE out FROM integer-with-p +---- ^^^^ + 79 IF out <> '{"integer-with-p":10000}' + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:78.48: + 75 DISPLAY "Failed 10: " FUNCTION TRIM (out) + 76 END-IF + 77 + 78 > JSON GENERATE out FROM integer-with-p +---- ^ + 79 IF out <> '{"integer-with-p":10000}' + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:79.11-79.13: + 76 END-IF + 77 + 78 JSON GENERATE out FROM integer-with-p + 79 > IF out <> '{"integer-with-p":10000}' +---- ^^ + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 81 END-IF +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:83.11-83.15: + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 81 END-IF + 82 + 83 > JSON GENERATE out FROM decimal-with-p +---- ^^^^ + 84 IF out <> '{"decimal-with-p":0.0004}' + 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Error: Invalid syntax + +run_ml.at-832-prog.cob:83.28: + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 81 END-IF + 82 + 83 > JSON GENERATE out FROM decimal-with-p +---- ^ + 84 IF out <> '{"decimal-with-p":0.0004}' + 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:83.29-83.33: + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 81 END-IF + 82 + 83 > JSON GENERATE out FROM decimal-with-p +---- ^^^^ + 84 IF out <> '{"decimal-with-p":0.0004}' + 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Warning: Invalid syntax + +run_ml.at-832-prog.cob:83.48: + 80 DISPLAY "Failed 11: " FUNCTION TRIM (out) + 81 END-IF + 82 + 83 > JSON GENERATE out FROM decimal-with-p +---- ^ + 84 IF out <> '{"decimal-with-p":0.0004}' + 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) +>> Hint: Missing . + +run_ml.at-832-prog.cob:84.11-84.13: + 81 END-IF + 82 + 83 JSON GENERATE out FROM decimal-with-p + 84 > IF out <> '{"decimal-with-p":0.0004}' +---- ^^ + 85 DISPLAY "Failed 12: " FUNCTION TRIM (out) + 86 END-IF +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:863:0 +run_ml.at-863-prog.cob:2.7-2.29: + 1 + 2 > $SET DPC-IN-DATA "JSON" +---- ^^^^^^^^^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. +>> Error: Unexpected characters + +run_ml.at-863-prog.cob:17.11-17.15: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > JSON GENERATE out FROM num +---- ^^^^ + 18 IF out <> '{"num":1,1}' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Error: Invalid syntax + +run_ml.at-863-prog.cob:17.28: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > JSON GENERATE out FROM num +---- ^ + 18 IF out <> '{"num":1,1}' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Hint: Missing . + +run_ml.at-863-prog.cob:17.29-17.33: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > JSON GENERATE out FROM num +---- ^^^^ + 18 IF out <> '{"num":1,1}' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Warning: Invalid syntax + +run_ml.at-863-prog.cob:17.37: + 14 01 out PIC X(100). + 15 + 16 PROCEDURE DIVISION. + 17 > JSON GENERATE out FROM num +---- ^ + 18 IF out <> '{"num":1,1}' + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Hint: Missing . + +run_ml.at-863-prog.cob:18.11-18.13: + 15 + 16 PROCEDURE DIVISION. + 17 JSON GENERATE out FROM num + 18 > IF out <> '{"num":1,1}' +---- ^^ + 19 DISPLAY "Failed: " FUNCTION TRIM (out). +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_ml.at:893:0 +run_ml.at-893-prog.cob:16.11-16.15: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE out FROM num +---- ^^^^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Error: Invalid syntax + +run_ml.at-893-prog.cob:16.28: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE out FROM num +---- ^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Hint: Missing . + +run_ml.at-893-prog.cob:16.29-16.33: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE out FROM num +---- ^^^^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Warning: Invalid syntax + +run_ml.at-893-prog.cob:16.37: + 13 01 out PIC X(100). + 14 + 15 PROCEDURE DIVISION. + 16 > JSON GENERATE out FROM num +---- ^ + 17 DISPLAY FUNCTION TRIM(out) + 18 . +>> Hint: Missing . + +run_ml.at-893-prog.cob:17.11-17.18: + 14 + 15 PROCEDURE DIVISION. + 16 JSON GENERATE out FROM num + 17 > DISPLAY FUNCTION TRIM(out) +---- ^^^^^^^ + 18 . +>> Warning: Invalid syntax + diff --git a/test/output-tests/run_refmod.expected b/test/output-tests/run_refmod.expected new file mode 100644 index 000000000..fd3dfe209 --- /dev/null +++ b/test/output-tests/run_refmod.expected @@ -0,0 +1,89 @@ +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:46:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:83:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:110:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:134:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:161:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:181:0 +run_refmod.at-181-prog2.cob:9.7-9.29: + 6 01 X PIC X(4) VALUE "abcd". + 7 01 I PIC 9 VALUE 0. + 8 PROCEDURE DIVISION. + 9 > >> REF-MOD-ZERO-LENGTH +---- ^^^^^^^^^^^^^^^^^^^^^^ + 10 DISPLAY X(1:I) NO ADVANCING. + 11 >> REF-MOD-ZERO-LENGTH OFF +>> Error: Malformed or unknown compiler directive + +run_refmod.at-181-prog2.cob:11.7-11.33: + 8 PROCEDURE DIVISION. + 9 >> REF-MOD-ZERO-LENGTH + 10 DISPLAY X(1:I) NO ADVANCING. + 11 > >> REF-MOD-ZERO-LENGTH OFF +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 DISPLAY X(1:I) NO ADVANCING. + 13 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:205:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:223:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:246:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:272:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:305:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:337:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:374:0 +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:413:0 +run_refmod.at-413-prog.cob:2.7-2.20: + 1 + 2 > $SET NOSSRANGE +---- ^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:435:0 +run_refmod.at-435-prog1.cob:2.7-2.21: + 1 + 2 > $SET SSRANGE"1" +---- ^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. progb. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:466:0 +run_refmod.at-466-prog2.cob:2.7-2.21: + 1 + 2 > $SET SSRANGE"2" +---- ^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog2. +>> Error: Unexpected characters + +run_refmod.at-466-prog2.cob:15.7-15.39: + 12 01 m PIC 9 VALUE 2. + 13 + 14 PROCEDURE DIVISION. + 15 > $IF TEST-ZERO-LEN-REF-MOD DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 16 DISPLAY y (1:n) + 17 $END +>> Error: Unexpected characters + +run_refmod.at-466-prog2.cob:17.7-17.10: + 14 PROCEDURE DIVISION. + 15 $IF TEST-ZERO-LEN-REF-MOD DEFINED + 16 DISPLAY y (1:n) + 17 > $END +---- ^^^ + 18 DISPLAY y (1:m) + 19 GOBACK. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_refmod.at:490:0 +run_refmod.at-490-prog3.cob:2.7-2.21: + 1 + 2 > $SET SSRANGE"3" +---- ^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog3. +>> Error: Unexpected characters + diff --git a/test/output-tests/run_reportwriter.expected b/test/output-tests/run_reportwriter.expected new file mode 100644 index 000000000..15694122f --- /dev/null +++ b/test/output-tests/run_reportwriter.expected @@ -0,0 +1,15100 @@ +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:82:0 +run_reportwriter.at-82-prog.cob:11.44-11.52: + 8 ENVIRONMENT DIVISION. + 9 INPUT-OUTPUT SECTION. + 10 FILE-CONTROL. + 11 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT +---- ^^^^^^^^ + 12 LINE SEQUENTIAL. + 13 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-82-prog.cob:19.22: + 16 REPORT IS RWCS-Report. + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 > RD RWCS-Report +---- ^ + 20 PAGE LIMIT 12 + 21 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-82-prog.cob:20.11-20.15: + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 > PAGE LIMIT 12 +---- ^^^^ + 21 HEADING 1 + 22 FIRST DETAIL 4 +>> Error: Invalid syntax + +run_reportwriter.at-82-prog.cob:20.24: + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 > PAGE LIMIT 12 +---- ^ + 21 HEADING 1 + 22 FIRST DETAIL 4 +>> Hint: Missing . + +run_reportwriter.at-82-prog.cob:21.15-21.22: + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 > HEADING 1 +---- ^^^^^^^ + 22 FIRST DETAIL 4 + 23 LAST DETAIL 7. +>> Error: Invalid syntax + +run_reportwriter.at-82-prog.cob:21.24: + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 > HEADING 1 +---- ^ + 22 FIRST DETAIL 4 + 23 LAST DETAIL 7. +>> Hint: Missing . + +run_reportwriter.at-82-prog.cob:22.15-22.20: + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 > FIRST DETAIL 4 +---- ^^^^^ + 23 LAST DETAIL 7. + 24 +>> Error: Invalid syntax + +run_reportwriter.at-82-prog.cob:22.29: + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 > FIRST DETAIL 4 +---- ^ + 23 LAST DETAIL 7. + 24 +>> Hint: Missing . + +run_reportwriter.at-82-prog.cob:23.15-23.19: + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 FIRST DETAIL 4 + 23 > LAST DETAIL 7. +---- ^^^^ + 24 + 25 01 TYPE REPORT HEADING LINE 1. +>> Error: Invalid syntax + +run_reportwriter.at-82-prog.cob:28.15: + 25 01 TYPE REPORT HEADING LINE 1. + 26 05 COL 1 VALUE 'RH'. + 27 + 28 > 01 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 29 05 COL 1 VALUE 'PH'. + 30 +>> Hint: Missing DETAIL + +run_reportwriter.at-82-prog.cob:28.16-28.20: + 25 01 TYPE REPORT HEADING LINE 1. + 26 05 COL 1 VALUE 'RH'. + 27 + 28 > 01 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 29 05 COL 1 VALUE 'PH'. + 30 +>> Error: Invalid syntax + +run_reportwriter.at-82-prog.cob:34.15: + 31 01 Detail-Line TYPE DETAIL LINE PLUS 1. + 32 05 COL 1 VALUE 'DE'. + 33 + 34 > 01 TYPE PAGE FOOTING LINE NUMBER 10. +---- ^ + 35 05 COL 1 VALUE 'PF'. + 36 +>> Hint: Missing DETAIL + +run_reportwriter.at-82-prog.cob:34.16-34.20: + 31 01 Detail-Line TYPE DETAIL LINE PLUS 1. + 32 05 COL 1 VALUE 'DE'. + 33 + 34 > 01 TYPE PAGE FOOTING LINE NUMBER 10. +---- ^^^^ + 35 05 COL 1 VALUE 'PF'. + 36 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:115:0 +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:163:0 +run_reportwriter.at-163-prog.cob:11.49-11.57: + 8 ENVIRONMENT DIVISION. + 9 INPUT-OUTPUT SECTION. + 10 FILE-CONTROL. + 11 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT +---- ^^^^^^^^ + 12 LINE SEQUENTIAL. + 13 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-163-prog.cob:19.22: + 16 REPORT IS RWCS-Report. + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 > RD RWCS-Report +---- ^ + 20 PAGE LIMIT 12 + 21 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-163-prog.cob:20.11-20.15: + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 > PAGE LIMIT 12 +---- ^^^^ + 21 HEADING 1 + 22 FIRST DETAIL 4 +>> Error: Invalid syntax + +run_reportwriter.at-163-prog.cob:20.24: + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 > PAGE LIMIT 12 +---- ^ + 21 HEADING 1 + 22 FIRST DETAIL 4 +>> Hint: Missing . + +run_reportwriter.at-163-prog.cob:21.15-21.22: + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 > HEADING 1 +---- ^^^^^^^ + 22 FIRST DETAIL 4 + 23 LAST DETAIL 7. +>> Error: Invalid syntax + +run_reportwriter.at-163-prog.cob:21.24: + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 > HEADING 1 +---- ^ + 22 FIRST DETAIL 4 + 23 LAST DETAIL 7. +>> Hint: Missing . + +run_reportwriter.at-163-prog.cob:22.15-22.20: + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 > FIRST DETAIL 4 +---- ^^^^^ + 23 LAST DETAIL 7. + 24 +>> Error: Invalid syntax + +run_reportwriter.at-163-prog.cob:22.29: + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 > FIRST DETAIL 4 +---- ^ + 23 LAST DETAIL 7. + 24 +>> Hint: Missing . + +run_reportwriter.at-163-prog.cob:23.15-23.19: + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 FIRST DETAIL 4 + 23 > LAST DETAIL 7. +---- ^^^^ + 24 + 25 01 Detail-Line TYPE DETAIL. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:184:0 +run_reportwriter.at-184-reference:4.6-4.7: + 1 + 2 + 3 + 4 > 12345678901234567890 ABCD ! +---- ^ + 5 + 6 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-184-reference:4.7-4.20: + 1 + 2 + 3 + 4 > 12345678901234567890 ABCD ! +---- ^^^^^^^^^^^^^ + 5 + 6 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:232:0 +run_reportwriter.at-232-prog.cob:12.49-12.57: + 9 ENVIRONMENT DIVISION. + 10 INPUT-OUTPUT SECTION. + 11 FILE-CONTROL. + 12 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT +---- ^^^^^^^^ + 13 LINE SEQUENTIAL. + 14 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-232-prog.cob:20.22: + 17 REPORT IS RWCS-Report. + 18 WORKING-STORAGE SECTION. + 19 REPORT SECTION. + 20 > RD RWCS-Report +---- ^ + 21 PAGE LIMIT 12 + 22 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-232-prog.cob:21.11-21.15: + 18 WORKING-STORAGE SECTION. + 19 REPORT SECTION. + 20 RD RWCS-Report + 21 > PAGE LIMIT 12 +---- ^^^^ + 22 HEADING 1 + 23 FIRST DETAIL 4 +>> Error: Invalid syntax + +run_reportwriter.at-232-prog.cob:21.24: + 18 WORKING-STORAGE SECTION. + 19 REPORT SECTION. + 20 RD RWCS-Report + 21 > PAGE LIMIT 12 +---- ^ + 22 HEADING 1 + 23 FIRST DETAIL 4 +>> Hint: Missing . + +run_reportwriter.at-232-prog.cob:22.15-22.22: + 19 REPORT SECTION. + 20 RD RWCS-Report + 21 PAGE LIMIT 12 + 22 > HEADING 1 +---- ^^^^^^^ + 23 FIRST DETAIL 4 + 24 LAST DETAIL 7. +>> Error: Invalid syntax + +run_reportwriter.at-232-prog.cob:22.24: + 19 REPORT SECTION. + 20 RD RWCS-Report + 21 PAGE LIMIT 12 + 22 > HEADING 1 +---- ^ + 23 FIRST DETAIL 4 + 24 LAST DETAIL 7. +>> Hint: Missing . + +run_reportwriter.at-232-prog.cob:23.15-23.20: + 20 RD RWCS-Report + 21 PAGE LIMIT 12 + 22 HEADING 1 + 23 > FIRST DETAIL 4 +---- ^^^^^ + 24 LAST DETAIL 7. + 25 +>> Error: Invalid syntax + +run_reportwriter.at-232-prog.cob:23.29: + 20 RD RWCS-Report + 21 PAGE LIMIT 12 + 22 HEADING 1 + 23 > FIRST DETAIL 4 +---- ^ + 24 LAST DETAIL 7. + 25 +>> Hint: Missing . + +run_reportwriter.at-232-prog.cob:24.15-24.19: + 21 PAGE LIMIT 12 + 22 HEADING 1 + 23 FIRST DETAIL 4 + 24 > LAST DETAIL 7. +---- ^^^^ + 25 + 26 01 Detail-Line TYPE DETAIL. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:253:0 +run_reportwriter.at-253-reference:4.6-4.7: + 1 + 2 + 3 + 4 > 123456789ABCD4567890 +---- ^ + 5 + 6 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-253-reference:4.7-4.20: + 1 + 2 + 3 + 4 > 123456789ABCD4567890 +---- ^^^^^^^^^^^^^ + 5 + 6 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:313:0 +run_reportwriter.at-313-prog.cob:11.49-11.57: + 8 ENVIRONMENT DIVISION. + 9 INPUT-OUTPUT SECTION. + 10 FILE-CONTROL. + 11 > SELECT REPORT-FILE ASSIGN TO EXTERNAL PRINTOUT +---- ^^^^^^^^ + 12 LINE SEQUENTIAL. + 13 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-313-prog.cob:19.22: + 16 REPORT IS RWCS-Report. + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 > RD RWCS-Report +---- ^ + 20 PAGE LIMIT 12 + 21 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-313-prog.cob:20.11-20.15: + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 > PAGE LIMIT 12 +---- ^^^^ + 21 HEADING 1 + 22 FIRST DETAIL 4 +>> Error: Invalid syntax + +run_reportwriter.at-313-prog.cob:20.24: + 17 WORKING-STORAGE SECTION. + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 > PAGE LIMIT 12 +---- ^ + 21 HEADING 1 + 22 FIRST DETAIL 4 +>> Hint: Missing . + +run_reportwriter.at-313-prog.cob:21.15-21.22: + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 > HEADING 1 +---- ^^^^^^^ + 22 FIRST DETAIL 4 + 23 LAST DETAIL 7 +>> Error: Invalid syntax + +run_reportwriter.at-313-prog.cob:21.24: + 18 REPORT SECTION. + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 > HEADING 1 +---- ^ + 22 FIRST DETAIL 4 + 23 LAST DETAIL 7 +>> Hint: Missing . + +run_reportwriter.at-313-prog.cob:22.15-22.20: + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 > FIRST DETAIL 4 +---- ^^^^^ + 23 LAST DETAIL 7 + 24 CONTROL IS FINAL. +>> Error: Invalid syntax + +run_reportwriter.at-313-prog.cob:22.29: + 19 RD RWCS-Report + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 > FIRST DETAIL 4 +---- ^ + 23 LAST DETAIL 7 + 24 CONTROL IS FINAL. +>> Hint: Missing . + +run_reportwriter.at-313-prog.cob:23.15-23.19: + 20 PAGE LIMIT 12 + 21 HEADING 1 + 22 FIRST DETAIL 4 + 23 > LAST DETAIL 7 +---- ^^^^ + 24 CONTROL IS FINAL. + 25 +>> Error: Invalid syntax + +run_reportwriter.at-313-prog.cob:24.11-24.18: + 21 HEADING 1 + 22 FIRST DETAIL 4 + 23 LAST DETAIL 7 + 24 > CONTROL IS FINAL. +---- ^^^^^^^ + 25 + 26 01 TYPE REPORT HEADING LINE 1. +>> Error: Invalid syntax + +run_reportwriter.at-313-prog.cob:29.15: + 26 01 TYPE REPORT HEADING LINE 1. + 27 05 COL 1 VALUE 'RH'. + 28 + 29 > 01 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 30 05 COL 1 VALUE 'PH'. + 31 +>> Hint: Missing DETAIL + +run_reportwriter.at-313-prog.cob:29.16-29.20: + 26 01 TYPE REPORT HEADING LINE 1. + 27 05 COL 1 VALUE 'RH'. + 28 + 29 > 01 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 30 05 COL 1 VALUE 'PH'. + 31 +>> Error: Invalid syntax + +run_reportwriter.at-313-prog.cob:38.15: + 35 01 TYPE CONTROL FOOTING FINAL. + 36 05 COL 1 VALUE 'CFF'. + 37 + 38 > 01 TYPE PAGE FOOTING LINE NUMBER 10. +---- ^ + 39 05 COL 1 VALUE 'PF'. + 40 +>> Hint: Missing DETAIL + +run_reportwriter.at-313-prog.cob:38.16-38.20: + 35 01 TYPE CONTROL FOOTING FINAL. + 36 05 COL 1 VALUE 'CFF'. + 37 + 38 > 01 TYPE PAGE FOOTING LINE NUMBER 10. +---- ^^^^ + 39 05 COL 1 VALUE 'PF'. + 40 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:322:0 +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:371:0 +run_reportwriter.at-371-prog.cob:8.33-8.41: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-371-prog.cob:20.13: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^ + 21 + 22 01 rp-detail TYPE DE. +>> Hint: Missing . + +run_reportwriter.at-371-prog.cob:20.14-20.18: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^^^^ + 21 + 22 01 rp-detail TYPE DE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:383:0 +run_reportwriter.at-383-reference:2.6-2.7: + 1 hello <---> + 2 > goodbye <---> +---- ^ + 3 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-383-reference:1.31-1.32: + 1 > hello <---> +---- ^ + 2 goodbye <---> + 3 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:440:0 +run_reportwriter.at-440-prog.cob:7.33-7.41: + 4 ENVIRONMENT DIVISION. + 5 INPUT-OUTPUT SECTION. + 6 FILE-CONTROL. + 7 > SELECT report-file ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 8 ORGANIZATION LINE SEQUENTIAL. + 9 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-440-prog.cob:18.13: + 15 01 foo PIC X(20). + 16 + 17 REPORT SECTION. + 18 > RD rp PAGE LIMIT 3 LINES. +---- ^ + 19 + 20 01 rp-detail TYPE DE. +>> Hint: Missing . + +run_reportwriter.at-440-prog.cob:18.14-18.18: + 15 01 foo PIC X(20). + 16 + 17 REPORT SECTION. + 18 > RD rp PAGE LIMIT 3 LINES. +---- ^^^^ + 19 + 20 01 rp-detail TYPE DE. +>> Error: Invalid syntax + +run_reportwriter.at-440-prog.cob:18.32: + 15 01 foo PIC X(20). + 16 + 17 REPORT SECTION. + 18 > RD rp PAGE LIMIT 3 LINES. +---- ^ + 19 + 20 01 rp-detail TYPE DE. +>> Hint: Missing ARE + +run_reportwriter.at-440-prog.cob:18.32-18.33: + 15 01 foo PIC X(20). + 16 + 17 REPORT SECTION. + 18 > RD rp PAGE LIMIT 3 LINES. +---- ^ + 19 + 20 01 rp-detail TYPE DE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:455:0 +run_reportwriter.at-455-reference:5.6-5.7: + 2 world <---> + 3 from <---> + 4 REPORT WRITER <---> + 5 > goodbye <---> +---- ^ + 6 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-455-reference:1.31-1.32: + 1 > hello <---> +---- ^ + 2 world <---> + 3 from <---> +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:632:0 +run_reportwriter.at-632-inp_data:1.6-1.7: + 1 > 0152 J. LANGDON 87653 02475 +---- ^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:2.6-2.7: + 1 0152 J. LANGDON 87653 02475 + 2 > 0152 J. LANGDON 64025 00945 +---- ^ + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:3.6-3.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 > 0152 J. LANGDON 41915 01370 +---- ^ + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:4.6-4.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 > 0152 J. LANGDON 17410 00251 +---- ^ + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:5.6-5.7: + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 > 2468 L. MORRISEY 18520 00375 +---- ^ + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:6.6-6.7: + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 > 2468 L. MORRISEY 20012 00420 +---- ^ + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:7.6-7.7: + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 > 2468 L. MORRISEY 31572 01015 +---- ^ + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:8.6-8.7: + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 > 2468 L. MORRISEY 48792 03750 +---- ^ + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:9.6-9.7: + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 > 2468 L. MORRISEY 50407 01515 +---- ^ + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:10.6-10.7: + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 > 2468 L. MORRISEY 61575 02010 +---- ^ + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:11.6-11.7: + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 > 2468 L. MORRISEY 79204 05170 +---- ^ + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:12.6-12.7: + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 > 2468 L. MORRISEY 85075 03784 +---- ^ + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:13.6-13.7: + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 > 2468 L. MORRISEY 98476 08794 +---- ^ + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:14.6-14.7: + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 > 3451 M. JACKSON 37847 02790 +---- ^ + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:15.6-15.7: + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 > 3451 M. JACKSON 58492 06850 +---- ^ + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:16.6-16.7: + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 > 3451 M. JACKSON 60010 02040 +---- ^ + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:17.6-17.7: + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 > 3451 M. JACKSON 85260 07852 +---- ^ + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:18.6-18.7: + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 > 3451 M. JACKSON 90520 02752 +---- ^ + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:19.6-19.7: + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 > 4512 S. LEVITT 24680 03050 +---- ^ + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:20.6-20.7: + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 > 4512 S. LEVITT 56784 05253 +---- ^ + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:21.6-21.7: + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 > 4512 S. LEVITT 60410 01215 +---- ^ + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:22.6-22.7: + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 > 4512 S. LEVITT 78952 08925 +---- ^ + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:23.6-23.7: + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 > 4512 S. LEVITT 85278 04975 +---- ^ + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:24.6-24.7: + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 > 4512 S. LEVITT 87492 06425 +---- ^ + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:25.6-25.7: + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 > 4512 S. LEVITT 97204 08475 +---- ^ + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:26.6-26.7: + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 > 5417 K. CONKLIN 13579 03572 +---- ^ + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:27.6-27.7: + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 > 5417 K. CONKLIN 24615 01875 +---- ^ + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:28.6-28.7: + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 > 5417 K. CONKLIN 34928 03745 +---- ^ + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:29.6-29.7: + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 > 5417 K. CONKLIN 48527 08750 +---- ^ + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:30.6-30.7: + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 > 5417 K. CONKLIN 50150 01895 +---- ^ + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:31.6-31.7: + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 > 5417 K. CONKLIN 54652 03892 +---- ^ + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:32.6-32.7: + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 > 5417 K. CONKLIN 59765 09895 +---- ^ + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:33.6-33.7: + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 > 5417 K. CONKLIN 71572 01895 +---- ^ + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:34.6-34.7: + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 > 5417 K. CONKLIN 85175 08010 +---- ^ + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:35.6-35.7: + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 > 5417 K. CONKLIN 90275 00460 +---- ^ + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:36.6-36.7: + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 > 5417 K. CONKLIN 91572 01857 +---- ^ + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:37.6-37.7: + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 > 5417 K. CONKLIN 97576 08495 +---- ^ + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:38.6-38.7: + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 > 6213 Z. HAMPTON 15792 06425 +---- ^ + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:39.6-39.7: + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 > 6213 Z. HAMPTON 19975 09875 +---- ^ + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:40.6-40.7: + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 > 6213 Z. HAMPTON 34576 05115 +---- ^ + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:41.6-41.7: + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 > 6213 Z. HAMPTON 49512 08520 +---- ^ + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:42.6-42.7: + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 > 7545 M. LARSON 14676 03845 +---- ^ + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:43.6-43.7: + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 > 7545 M. LARSON 18592 08251 +---- ^ + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:44.6-44.7: + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 > 7545 M. LARSON 19994 09898 +---- ^ + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:45.6-45.7: + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 > 7545 M. LARSON 21214 01515 +---- ^ + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:46.6-46.7: + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 > 7545 M. LARSON 37515 08212 +---- ^ + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:47.6-47.7: + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 > 7545 M. LARSON 38592 09615 +---- ^ + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:48.6-48.7: + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 > 7545 M. LARSON 48485 08714 +---- ^ + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:49.6-49.7: + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 > 7545 M. LARSON 52762 03792 +---- ^ + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:50.6-50.7: + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 > 7545 M. LARSON 57684 08015 +---- ^ + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:51.6-51.7: + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 > 7545 M. LARSON 79015 09625 +---- ^ + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:52.6-52.7: + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 > 7545 M. LARSON 80123 00560 +---- ^ + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:53.6-53.7: + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 > 7545 M. LARSON 82462 02015 +---- ^ + 54 7545 M. LARSON 91520 01815 + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:54.6-54.7: + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 > 7545 M. LARSON 91520 01815 +---- ^ + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:55.6-55.7: + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 + 55 > 7545 M. LARSON 93715 04015 +---- ^ +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-632-inp_data:1.8-1.15: + 1 > 0152 J. LANGDON 87653 02475 +---- ^^^^^^^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:630:0 +run_reportwriter.at-630-prog.cob:16.25-16.33: + 13 FILE-CONTROL. + 14 + 15 SELECT TRANSACTION-DATA + 16 > ASSIGN TO EXTERNAL DATAIN +---- ^^^^^^^^ + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-630-prog.cob:20.25-20.33: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^ + 21 + 22 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-630-prog.cob:20.34-20.38: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^ + 21 + 22 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-630-prog.cob:20.38: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^ + 21 + 22 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-630-prog.cob:20.39-20.48: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^^ + 21 + 22 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-630-prog.cob:48.26: + 45 88 END-OF-FILE VALUE 'Y'. + 46 + 47 REPORT SECTION. + 48 > RD CUSTOMER-REPORT +---- ^ + 49 PAGE LIMIT IS 66 LINES + 50 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-630-prog.cob:49.11-49.15: + 46 + 47 REPORT SECTION. + 48 RD CUSTOMER-REPORT + 49 > PAGE LIMIT IS 66 LINES +---- ^^^^ + 50 HEADING 1 + 51 FIRST DETAIL 5 +>> Error: Invalid syntax + +run_reportwriter.at-630-prog.cob:49.33: + 46 + 47 REPORT SECTION. + 48 RD CUSTOMER-REPORT + 49 > PAGE LIMIT IS 66 LINES +---- ^ + 50 HEADING 1 + 51 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-630-prog.cob:50.11-50.18: + 47 REPORT SECTION. + 48 RD CUSTOMER-REPORT + 49 PAGE LIMIT IS 66 LINES + 50 > HEADING 1 +---- ^^^^^^^ + 51 FIRST DETAIL 5 + 52 LAST DETAIL 58. +>> Error: Invalid syntax + +run_reportwriter.at-630-prog.cob:51.11-51.16: + 48 RD CUSTOMER-REPORT + 49 PAGE LIMIT IS 66 LINES + 50 HEADING 1 + 51 > FIRST DETAIL 5 +---- ^^^^^ + 52 LAST DETAIL 58. + 53 +>> Error: Invalid syntax + +run_reportwriter.at-630-prog.cob:52.11-52.15: + 49 PAGE LIMIT IS 66 LINES + 50 HEADING 1 + 51 FIRST DETAIL 5 + 52 > LAST DETAIL 58. +---- ^^^^ + 53 + 54 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-630-prog.cob:54.31: + 51 FIRST DETAIL 5 + 52 LAST DETAIL 58. + 53 + 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^ + 55 02 LINE 1. + 56 03 COLUMN 27 PIC X(41) VALUE +>> Hint: Missing DETAIL + +run_reportwriter.at-630-prog.cob:54.32-54.36: + 51 FIRST DETAIL 5 + 52 LAST DETAIL 58. + 53 + 54 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^^^^ + 55 02 LINE 1. + 56 03 COLUMN 27 PIC X(41) VALUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:770:0 +run_reportwriter.at-770-reference:3.6-3.7: + 1 C U S T O M E R C H A R G E R E P O R T + 2 + 3 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST +---- ^ + 4 + 5 152 J. LANGDON 8 87653 $24.75 +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-770-reference:68.6-68.7: + 65 + 66 C U S T O M E R C H A R G E R E P O R T + 67 + 68 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST +---- ^ + 69 + 70 7545 M. LARSON 9 93715 $40.15 +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-770-reference:1.26-1.27: + 1 > C U S T O M E R C H A R G E R E P O R T +---- ^ + 2 + 3 CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:985:0 +run_reportwriter.at-985-inp_data:1.6-1.7: + 1 > 0152 J. LANGDON 87653 02475 +---- ^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:2.6-2.7: + 1 0152 J. LANGDON 87653 02475 + 2 > 0152 J. LANGDON 64025 00945 +---- ^ + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:3.6-3.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 > 0152 J. LANGDON 41915 01370 +---- ^ + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:4.6-4.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 > 0152 J. LANGDON 17410 00251 +---- ^ + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:5.6-5.7: + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 > 2468 L. MORRISEY 18520 00375 +---- ^ + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:6.6-6.7: + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 > 2468 L. MORRISEY 20012 00420 +---- ^ + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:7.6-7.7: + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 > 2468 L. MORRISEY 31572 01015 +---- ^ + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:8.6-8.7: + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 > 2468 L. MORRISEY 48792 03750 +---- ^ + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:9.6-9.7: + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 > 2468 L. MORRISEY 50407 01515 +---- ^ + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:10.6-10.7: + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 > 2468 L. MORRISEY 61575 02010 +---- ^ + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:11.6-11.7: + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 > 2468 L. MORRISEY 79204 05170 +---- ^ + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:12.6-12.7: + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 > 2468 L. MORRISEY 85075 03784 +---- ^ + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:13.6-13.7: + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 > 2468 L. MORRISEY 98476 08794 +---- ^ + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:14.6-14.7: + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 > 3451 M. JACKSON 37847 02790 +---- ^ + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:15.6-15.7: + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 > 3451 M. JACKSON 58492 06850 +---- ^ + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:16.6-16.7: + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 > 3451 M. JACKSON 60010 02040 +---- ^ + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:17.6-17.7: + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 > 3451 M. JACKSON 85260 07852 +---- ^ + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:18.6-18.7: + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 > 3451 M. JACKSON 90520 02752 +---- ^ + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:19.6-19.7: + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 > 4512 S. LEVITT 24680 03050 +---- ^ + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:20.6-20.7: + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 > 4512 S. LEVITT 56784 05253 +---- ^ + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:21.6-21.7: + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 > 4512 S. LEVITT 60410 01215 +---- ^ + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:22.6-22.7: + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 > 4512 S. LEVITT 78952 08925 +---- ^ + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:23.6-23.7: + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 > 4512 S. LEVITT 85278 04975 +---- ^ + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:24.6-24.7: + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 > 4512 S. LEVITT 87492 06425 +---- ^ + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:25.6-25.7: + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 > 4512 S. LEVITT 97204 08475 +---- ^ + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:26.6-26.7: + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 > 5417 K. CONKLIN 13579 03572 +---- ^ + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:27.6-27.7: + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 > 5417 K. CONKLIN 24615 01875 +---- ^ + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:28.6-28.7: + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 > 5417 K. CONKLIN 34928 03745 +---- ^ + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:29.6-29.7: + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 > 5417 K. CONKLIN 48527 08750 +---- ^ + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:30.6-30.7: + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 > 5417 K. CONKLIN 50150 01895 +---- ^ + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:31.6-31.7: + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 > 5417 K. CONKLIN 54652 03892 +---- ^ + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:32.6-32.7: + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 > 5417 K. CONKLIN 59765 09895 +---- ^ + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:33.6-33.7: + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 > 5417 K. CONKLIN 71572 01895 +---- ^ + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:34.6-34.7: + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 > 5417 K. CONKLIN 85175 08010 +---- ^ + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:35.6-35.7: + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 > 5417 K. CONKLIN 90275 00460 +---- ^ + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:36.6-36.7: + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 > 5417 K. CONKLIN 91572 01857 +---- ^ + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:37.6-37.7: + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 > 5417 K. CONKLIN 97576 08495 +---- ^ + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:38.6-38.7: + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 > 6213 Z. HAMPTON 15792 06425 +---- ^ + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:39.6-39.7: + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 > 6213 Z. HAMPTON 19975 09875 +---- ^ + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:40.6-40.7: + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 > 6213 Z. HAMPTON 34576 05115 +---- ^ + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:41.6-41.7: + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 > 6213 Z. HAMPTON 49512 08520 +---- ^ + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:42.6-42.7: + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 > 7545 M. LARSON 14676 03845 +---- ^ + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:43.6-43.7: + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 > 7545 M. LARSON 18592 08251 +---- ^ + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:44.6-44.7: + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 > 7545 M. LARSON 19994 09898 +---- ^ + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:45.6-45.7: + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 > 7545 M. LARSON 21214 01515 +---- ^ + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:46.6-46.7: + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 > 7545 M. LARSON 37515 08212 +---- ^ + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:47.6-47.7: + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 > 7545 M. LARSON 38592 09615 +---- ^ + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:48.6-48.7: + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 > 7545 M. LARSON 48485 08714 +---- ^ + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:49.6-49.7: + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 > 7545 M. LARSON 52762 03792 +---- ^ + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:50.6-50.7: + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 > 7545 M. LARSON 57684 08015 +---- ^ + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:51.6-51.7: + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 > 7545 M. LARSON 79015 09625 +---- ^ + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:52.6-52.7: + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 > 7545 M. LARSON 80123 00560 +---- ^ + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:53.6-53.7: + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 > 7545 M. LARSON 82462 02015 +---- ^ + 54 7545 M. LARSON 91520 01815 + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:54.6-54.7: + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 > 7545 M. LARSON 91520 01815 +---- ^ + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:55.6-55.7: + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 + 55 > 7545 M. LARSON 93715 04015 +---- ^ +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-985-inp_data:1.8-1.15: + 1 > 0152 J. LANGDON 87653 02475 +---- ^^^^^^^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:983:0 +run_reportwriter.at-983-prog.cob:15.25-15.33: + 12 FILE-CONTROL. + 13 + 14 SELECT TRANSACTION-DATA + 15 > ASSIGN TO EXTERNAL DATAIN +---- ^^^^^^^^ + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-983-prog.cob:19.25-19.33: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^ + 20 + 21 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-983-prog.cob:19.34-19.38: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^ + 20 + 21 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-983-prog.cob:19.38: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^ + 20 + 21 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-983-prog.cob:19.39-19.48: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^^ + 20 + 21 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-983-prog.cob:68.15: + 65 REPORT SECTION. + 66 RD CUSTOMER-REPORT + 67 CONTROL IS TR-CUSTOMER-NUMBER + 68 > PAGE LIMIT IS 66 LINES +---- ^ + 69 HEADING 1 + 70 FIRST DETAIL 5 +>> Hint: Missing . + +run_reportwriter.at-983-prog.cob:68.16-68.21: + 65 REPORT SECTION. + 66 RD CUSTOMER-REPORT + 67 CONTROL IS TR-CUSTOMER-NUMBER + 68 > PAGE LIMIT IS 66 LINES +---- ^^^^^ + 69 HEADING 1 + 70 FIRST DETAIL 5 +>> Warning: Invalid syntax + +run_reportwriter.at-983-prog.cob:68.33: + 65 REPORT SECTION. + 66 RD CUSTOMER-REPORT + 67 CONTROL IS TR-CUSTOMER-NUMBER + 68 > PAGE LIMIT IS 66 LINES +---- ^ + 69 HEADING 1 + 70 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-983-prog.cob:69.11-69.18: + 66 RD CUSTOMER-REPORT + 67 CONTROL IS TR-CUSTOMER-NUMBER + 68 PAGE LIMIT IS 66 LINES + 69 > HEADING 1 +---- ^^^^^^^ + 70 FIRST DETAIL 5 + 71 LAST DETAIL 58. +>> Error: Invalid syntax + +run_reportwriter.at-983-prog.cob:70.11-70.16: + 67 CONTROL IS TR-CUSTOMER-NUMBER + 68 PAGE LIMIT IS 66 LINES + 69 HEADING 1 + 70 > FIRST DETAIL 5 +---- ^^^^^ + 71 LAST DETAIL 58. + 72 +>> Error: Invalid syntax + +run_reportwriter.at-983-prog.cob:71.11-71.15: + 68 PAGE LIMIT IS 66 LINES + 69 HEADING 1 + 70 FIRST DETAIL 5 + 71 > LAST DETAIL 58. +---- ^^^^ + 72 + 73 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-983-prog.cob:73.31: + 70 FIRST DETAIL 5 + 71 LAST DETAIL 58. + 72 + 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^ + 74 02 LINE 1. + 75 03 COLUMN 27 PIC X(41) VALUE +>> Hint: Missing DETAIL + +run_reportwriter.at-983-prog.cob:73.32-73.36: + 70 FIRST DETAIL 5 + 71 LAST DETAIL 58. + 72 + 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^^^^ + 74 02 LINE 1. + 75 03 COLUMN 27 PIC X(41) VALUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1123:0 +run_reportwriter.at-1123-reference:3.6-3.7: + 1 C U S T O M E R C H A R G E R E P O R T PAGE 1 + 2 + 3 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE +---- ^ + 4 + 5 152 J. LANGDON 8 87653 $24.75 09% $2.23 $22.52 +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-1123-reference:68.6-68.7: + 65 + 66 C U S T O M E R C H A R G E R E P O R T PAGE 2 + 67 + 68 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE +---- ^ + 69 + 70 6213 Z. HAMPTON 3 34576 $51.15 10% $5.12 $46.03 +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-1123-reference:1.26-1.27: + 1 > C U S T O M E R C H A R G E R E P O R T PAGE 1 +---- ^ + 2 + 3 CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1355:0 +run_reportwriter.at-1355-inp_data:1.6-1.7: + 1 > 0152 J. LANGDON 87653 02475 +---- ^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:2.6-2.7: + 1 0152 J. LANGDON 87653 02475 + 2 > 0152 J. LANGDON 64025 00945 +---- ^ + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:3.6-3.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 > 0152 J. LANGDON 41915 01370 +---- ^ + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:4.6-4.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 > 0152 J. LANGDON 17410 00251 +---- ^ + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:5.6-5.7: + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 > 2468 L. MORRISEY 18520 00375 +---- ^ + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:6.6-6.7: + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 > 2468 L. MORRISEY 20012 00420 +---- ^ + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:7.6-7.7: + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 > 2468 L. MORRISEY 31572 01015 +---- ^ + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:8.6-8.7: + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 > 2468 L. MORRISEY 48792 03750 +---- ^ + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:9.6-9.7: + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 > 2468 L. MORRISEY 50407 01515 +---- ^ + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:10.6-10.7: + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 > 2468 L. MORRISEY 61575 02010 +---- ^ + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:11.6-11.7: + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 > 2468 L. MORRISEY 79204 05170 +---- ^ + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:12.6-12.7: + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 > 2468 L. MORRISEY 85075 03784 +---- ^ + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:13.6-13.7: + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 > 2468 L. MORRISEY 98476 08794 +---- ^ + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:14.6-14.7: + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 > 3451 M. JACKSON 37847 02790 +---- ^ + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:15.6-15.7: + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 > 3451 M. JACKSON 58492 06850 +---- ^ + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:16.6-16.7: + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 > 3451 M. JACKSON 60010 02040 +---- ^ + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:17.6-17.7: + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 > 3451 M. JACKSON 85260 07852 +---- ^ + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:18.6-18.7: + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 > 3451 M. JACKSON 90520 02752 +---- ^ + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:19.6-19.7: + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 > 4512 S. LEVITT 24680 03050 +---- ^ + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:20.6-20.7: + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 > 4512 S. LEVITT 56784 05253 +---- ^ + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:21.6-21.7: + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 > 4512 S. LEVITT 60410 01215 +---- ^ + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:22.6-22.7: + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 > 4512 S. LEVITT 78952 08925 +---- ^ + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:23.6-23.7: + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 > 4512 S. LEVITT 85278 04975 +---- ^ + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:24.6-24.7: + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 > 4512 S. LEVITT 87492 06425 +---- ^ + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:25.6-25.7: + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 > 4512 S. LEVITT 97204 08475 +---- ^ + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:26.6-26.7: + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 > 5417 K. CONKLIN 13579 03572 +---- ^ + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:27.6-27.7: + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 > 5417 K. CONKLIN 24615 01875 +---- ^ + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:28.6-28.7: + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 > 5417 K. CONKLIN 34928 03745 +---- ^ + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:29.6-29.7: + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 > 5417 K. CONKLIN 48527 08750 +---- ^ + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:30.6-30.7: + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 > 5417 K. CONKLIN 50150 01895 +---- ^ + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:31.6-31.7: + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 > 5417 K. CONKLIN 54652 03892 +---- ^ + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:32.6-32.7: + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 > 5417 K. CONKLIN 59765 09895 +---- ^ + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:33.6-33.7: + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 > 5417 K. CONKLIN 71572 01895 +---- ^ + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:34.6-34.7: + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 > 5417 K. CONKLIN 85175 08010 +---- ^ + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:35.6-35.7: + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 > 5417 K. CONKLIN 90275 00460 +---- ^ + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:36.6-36.7: + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 > 5417 K. CONKLIN 91572 01857 +---- ^ + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:37.6-37.7: + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 > 5417 K. CONKLIN 97576 08495 +---- ^ + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:38.6-38.7: + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 > 6213 Z. HAMPTON 15792 06425 +---- ^ + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:39.6-39.7: + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 > 6213 Z. HAMPTON 19975 09875 +---- ^ + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:40.6-40.7: + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 > 6213 Z. HAMPTON 34576 05115 +---- ^ + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:41.6-41.7: + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 > 6213 Z. HAMPTON 49512 08520 +---- ^ + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:42.6-42.7: + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 > 7545 M. LARSON 14676 03845 +---- ^ + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:43.6-43.7: + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 > 7545 M. LARSON 18592 08251 +---- ^ + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:44.6-44.7: + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 > 7545 M. LARSON 19994 09898 +---- ^ + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:45.6-45.7: + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 > 7545 M. LARSON 21214 01515 +---- ^ + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:46.6-46.7: + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 > 7545 M. LARSON 37515 08212 +---- ^ + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:47.6-47.7: + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 > 7545 M. LARSON 38592 09615 +---- ^ + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:48.6-48.7: + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 > 7545 M. LARSON 48485 08714 +---- ^ + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:49.6-49.7: + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 > 7545 M. LARSON 52762 03792 +---- ^ + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:50.6-50.7: + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 > 7545 M. LARSON 57684 08015 +---- ^ + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:51.6-51.7: + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 > 7545 M. LARSON 79015 09625 +---- ^ + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:52.6-52.7: + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 > 7545 M. LARSON 80123 00560 +---- ^ + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:53.6-53.7: + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 > 7545 M. LARSON 82462 02015 +---- ^ + 54 7545 M. LARSON 91520 01815 + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:54.6-54.7: + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 > 7545 M. LARSON 91520 01815 +---- ^ + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:55.6-55.7: + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 + 55 > 7545 M. LARSON 93715 04015 +---- ^ +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1355-inp_data:1.8-1.15: + 1 > 0152 J. LANGDON 87653 02475 +---- ^^^^^^^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1353:0 +run_reportwriter.at-1353-prog.cob:15.25-15.33: + 12 FILE-CONTROL. + 13 + 14 SELECT TRANSACTION-DATA + 15 > ASSIGN TO EXTERNAL DATAIN +---- ^^^^^^^^ + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-1353-prog.cob:19.25-19.33: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^ + 20 + 21 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-1353-prog.cob:19.34-19.38: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^ + 20 + 21 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-1353-prog.cob:19.38: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^ + 20 + 21 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-1353-prog.cob:19.39-19.48: + 16 ORGANIZATION IS LINE SEQUENTIAL. + 17 + 18 SELECT REPORT-FILE + 19 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^^ + 20 + 21 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-1353-prog.cob:68.15: + 65 REPORT SECTION. + 66 RD CUSTOMER-REPORT + 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER + 68 > PAGE LIMIT IS 66 LINES +---- ^ + 69 HEADING 1 + 70 FIRST DETAIL 5 +>> Hint: Missing . + +run_reportwriter.at-1353-prog.cob:68.16-68.21: + 65 REPORT SECTION. + 66 RD CUSTOMER-REPORT + 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER + 68 > PAGE LIMIT IS 66 LINES +---- ^^^^^ + 69 HEADING 1 + 70 FIRST DETAIL 5 +>> Warning: Invalid syntax + +run_reportwriter.at-1353-prog.cob:68.33: + 65 REPORT SECTION. + 66 RD CUSTOMER-REPORT + 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER + 68 > PAGE LIMIT IS 66 LINES +---- ^ + 69 HEADING 1 + 70 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-1353-prog.cob:69.11-69.18: + 66 RD CUSTOMER-REPORT + 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER + 68 PAGE LIMIT IS 66 LINES + 69 > HEADING 1 +---- ^^^^^^^ + 70 FIRST DETAIL 5 + 71 LAST DETAIL 58. +>> Error: Invalid syntax + +run_reportwriter.at-1353-prog.cob:70.11-70.16: + 67 CONTROLS ARE FINAL, TR-CUSTOMER-NUMBER + 68 PAGE LIMIT IS 66 LINES + 69 HEADING 1 + 70 > FIRST DETAIL 5 +---- ^^^^^ + 71 LAST DETAIL 58. + 72 +>> Error: Invalid syntax + +run_reportwriter.at-1353-prog.cob:71.11-71.15: + 68 PAGE LIMIT IS 66 LINES + 69 HEADING 1 + 70 FIRST DETAIL 5 + 71 > LAST DETAIL 58. +---- ^^^^ + 72 + 73 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-1353-prog.cob:73.31: + 70 FIRST DETAIL 5 + 71 LAST DETAIL 58. + 72 + 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^ + 74 02 LINE 1. + 75 03 COLUMN 27 PIC X(41) VALUE +>> Hint: Missing DETAIL + +run_reportwriter.at-1353-prog.cob:73.32-73.36: + 70 FIRST DETAIL 5 + 71 LAST DETAIL 58. + 72 + 73 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^^^^ + 74 02 LINE 1. + 75 03 COLUMN 27 PIC X(41) VALUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1493:0 +run_reportwriter.at-1493-reference:3.6-3.7: + 1 C U S T O M E R C H A R G E R E P O R T PAGE 1 + 2 + 3 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE +---- ^ + 4 + 5 152 J. LANGDON 8 87653 $24.75 09% $2.23 $22.52 +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-1493-reference:68.6-68.7: + 65 + 66 C U S T O M E R C H A R G E R E P O R T PAGE 2 + 67 + 68 > CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE +---- ^ + 69 + 70 6213 Z. HAMPTON 3 34576 $51.15 10% $5.12 $46.03 +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-1493-reference:1.26-1.27: + 1 > C U S T O M E R C H A R G E R E P O R T PAGE 1 +---- ^ + 2 + 3 CUST. NO. CUST. NAME DEPT. ITEM NO. ITEM COST DISCT. % DISCT. AMT. CHARGE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1720:0 +run_reportwriter.at-1720-inp_data:1.6-1.7: + 1 > 0152 J. LANGDON 87653 02475 +---- ^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:2.6-2.7: + 1 0152 J. LANGDON 87653 02475 + 2 > 0152 J. LANGDON 64025 00945 +---- ^ + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:3.6-3.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 > 0152 J. LANGDON 41915 01370 +---- ^ + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:4.6-4.7: + 1 0152 J. LANGDON 87653 02475 + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 > 0152 J. LANGDON 17410 00251 +---- ^ + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:5.6-5.7: + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 > 2468 L. MORRISEY 18520 00375 +---- ^ + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:6.6-6.7: + 3 0152 J. LANGDON 41915 01370 + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 > 2468 L. MORRISEY 20012 00420 +---- ^ + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:7.6-7.7: + 4 0152 J. LANGDON 17410 00251 + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 > 2468 L. MORRISEY 31572 01015 +---- ^ + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:8.6-8.7: + 5 2468 L. MORRISEY 18520 00375 + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 > 2468 L. MORRISEY 48792 03750 +---- ^ + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:9.6-9.7: + 6 2468 L. MORRISEY 20012 00420 + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 > 2468 L. MORRISEY 50407 01515 +---- ^ + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:10.6-10.7: + 7 2468 L. MORRISEY 31572 01015 + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 > 2468 L. MORRISEY 61575 02010 +---- ^ + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:11.6-11.7: + 8 2468 L. MORRISEY 48792 03750 + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 > 2468 L. MORRISEY 79204 05170 +---- ^ + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:12.6-12.7: + 9 2468 L. MORRISEY 50407 01515 + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 > 2468 L. MORRISEY 85075 03784 +---- ^ + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:13.6-13.7: + 10 2468 L. MORRISEY 61575 02010 + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 > 2468 L. MORRISEY 98476 08794 +---- ^ + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:14.6-14.7: + 11 2468 L. MORRISEY 79204 05170 + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 > 3451 M. JACKSON 37847 02790 +---- ^ + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:15.6-15.7: + 12 2468 L. MORRISEY 85075 03784 + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 > 3451 M. JACKSON 58492 06850 +---- ^ + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:16.6-16.7: + 13 2468 L. MORRISEY 98476 08794 + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 > 3451 M. JACKSON 60010 02040 +---- ^ + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:17.6-17.7: + 14 3451 M. JACKSON 37847 02790 + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 > 3451 M. JACKSON 85260 07852 +---- ^ + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:18.6-18.7: + 15 3451 M. JACKSON 58492 06850 + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 > 3451 M. JACKSON 90520 02752 +---- ^ + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:19.6-19.7: + 16 3451 M. JACKSON 60010 02040 + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 > 4512 S. LEVITT 24680 03050 +---- ^ + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:20.6-20.7: + 17 3451 M. JACKSON 85260 07852 + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 > 4512 S. LEVITT 56784 05253 +---- ^ + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:21.6-21.7: + 18 3451 M. JACKSON 90520 02752 + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 > 4512 S. LEVITT 60410 01215 +---- ^ + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:22.6-22.7: + 19 4512 S. LEVITT 24680 03050 + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 > 4512 S. LEVITT 78952 08925 +---- ^ + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:23.6-23.7: + 20 4512 S. LEVITT 56784 05253 + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 > 4512 S. LEVITT 85278 04975 +---- ^ + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:24.6-24.7: + 21 4512 S. LEVITT 60410 01215 + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 > 4512 S. LEVITT 87492 06425 +---- ^ + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:25.6-25.7: + 22 4512 S. LEVITT 78952 08925 + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 > 4512 S. LEVITT 97204 08475 +---- ^ + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:26.6-26.7: + 23 4512 S. LEVITT 85278 04975 + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 > 5417 K. CONKLIN 13579 03572 +---- ^ + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:27.6-27.7: + 24 4512 S. LEVITT 87492 06425 + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 > 5417 K. CONKLIN 24615 01875 +---- ^ + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:28.6-28.7: + 25 4512 S. LEVITT 97204 08475 + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 > 5417 K. CONKLIN 34928 03745 +---- ^ + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:29.6-29.7: + 26 5417 K. CONKLIN 13579 03572 + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 > 5417 K. CONKLIN 48527 08750 +---- ^ + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:30.6-30.7: + 27 5417 K. CONKLIN 24615 01875 + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 > 5417 K. CONKLIN 50150 01895 +---- ^ + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:31.6-31.7: + 28 5417 K. CONKLIN 34928 03745 + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 > 5417 K. CONKLIN 54652 03892 +---- ^ + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:32.6-32.7: + 29 5417 K. CONKLIN 48527 08750 + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 > 5417 K. CONKLIN 59765 09895 +---- ^ + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:33.6-33.7: + 30 5417 K. CONKLIN 50150 01895 + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 > 5417 K. CONKLIN 71572 01895 +---- ^ + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:34.6-34.7: + 31 5417 K. CONKLIN 54652 03892 + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 > 5417 K. CONKLIN 85175 08010 +---- ^ + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:35.6-35.7: + 32 5417 K. CONKLIN 59765 09895 + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 > 5417 K. CONKLIN 90275 00460 +---- ^ + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:36.6-36.7: + 33 5417 K. CONKLIN 71572 01895 + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 > 5417 K. CONKLIN 91572 01857 +---- ^ + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:37.6-37.7: + 34 5417 K. CONKLIN 85175 08010 + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 > 5417 K. CONKLIN 97576 08495 +---- ^ + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:38.6-38.7: + 35 5417 K. CONKLIN 90275 00460 + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 > 6213 Z. HAMPTON 15792 06425 +---- ^ + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:39.6-39.7: + 36 5417 K. CONKLIN 91572 01857 + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 > 6213 Z. HAMPTON 19975 09875 +---- ^ + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:40.6-40.7: + 37 5417 K. CONKLIN 97576 08495 + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 > 6213 Z. HAMPTON 34576 05115 +---- ^ + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:41.6-41.7: + 38 6213 Z. HAMPTON 15792 06425 + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 > 6213 Z. HAMPTON 49512 08520 +---- ^ + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:42.6-42.7: + 39 6213 Z. HAMPTON 19975 09875 + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 > 7545 M. LARSON 14676 03845 +---- ^ + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:43.6-43.7: + 40 6213 Z. HAMPTON 34576 05115 + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 > 7545 M. LARSON 18592 08251 +---- ^ + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:44.6-44.7: + 41 6213 Z. HAMPTON 49512 08520 + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 > 7545 M. LARSON 19994 09898 +---- ^ + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:45.6-45.7: + 42 7545 M. LARSON 14676 03845 + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 > 7545 M. LARSON 21214 01515 +---- ^ + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:46.6-46.7: + 43 7545 M. LARSON 18592 08251 + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 > 7545 M. LARSON 37515 08212 +---- ^ + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:47.6-47.7: + 44 7545 M. LARSON 19994 09898 + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 > 7545 M. LARSON 38592 09615 +---- ^ + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:48.6-48.7: + 45 7545 M. LARSON 21214 01515 + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 > 7545 M. LARSON 48485 08714 +---- ^ + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:49.6-49.7: + 46 7545 M. LARSON 37515 08212 + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 > 7545 M. LARSON 52762 03792 +---- ^ + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:50.6-50.7: + 47 7545 M. LARSON 38592 09615 + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 > 7545 M. LARSON 57684 08015 +---- ^ + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:51.6-51.7: + 48 7545 M. LARSON 48485 08714 + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 > 7545 M. LARSON 79015 09625 +---- ^ + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:52.6-52.7: + 49 7545 M. LARSON 52762 03792 + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 > 7545 M. LARSON 80123 00560 +---- ^ + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:53.6-53.7: + 50 7545 M. LARSON 57684 08015 + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 > 7545 M. LARSON 82462 02015 +---- ^ + 54 7545 M. LARSON 91520 01815 + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:54.6-54.7: + 51 7545 M. LARSON 79015 09625 + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 > 7545 M. LARSON 91520 01815 +---- ^ + 55 7545 M. LARSON 93715 04015 +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:55.6-55.7: + 52 7545 M. LARSON 80123 00560 + 53 7545 M. LARSON 82462 02015 + 54 7545 M. LARSON 91520 01815 + 55 > 7545 M. LARSON 93715 04015 +---- ^ +>> Error: Unexpected indicator: `.' + +run_reportwriter.at-1720-inp_data:1.8-1.15: + 1 > 0152 J. LANGDON 87653 02475 +---- ^^^^^^^ + 2 0152 J. LANGDON 64025 00945 + 3 0152 J. LANGDON 41915 01370 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1718:0 +run_reportwriter.at-1718-prog.cob:22.25-22.33: + 19 FILE-CONTROL. + 20 + 21 SELECT TRANSACTION-DATA + 22 > ASSIGN TO EXTERNAL DATAIN +---- ^^^^^^^^ + 23 ORGANIZATION IS LINE SEQUENTIAL. + 24 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-1718-prog.cob:26.25-26.33: + 23 ORGANIZATION IS LINE SEQUENTIAL. + 24 + 25 SELECT REPORT-FILE + 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^ + 27 + 28 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-1718-prog.cob:26.34-26.38: + 23 ORGANIZATION IS LINE SEQUENTIAL. + 24 + 25 SELECT REPORT-FILE + 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^ + 27 + 28 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-1718-prog.cob:26.38: + 23 ORGANIZATION IS LINE SEQUENTIAL. + 24 + 25 SELECT REPORT-FILE + 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^ + 27 + 28 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-1718-prog.cob:26.39-26.48: + 23 ORGANIZATION IS LINE SEQUENTIAL. + 24 + 25 SELECT REPORT-FILE + 26 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^^ + 27 + 28 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-1718-prog.cob:76.15: + 73 REPORT SECTION. + 74 RD CUSTOMER-REPORT + 75 CONTROLS ARE FINAL, TR-CUSTOMER + 76 > PAGE LIMIT IS 66 LINES +---- ^ + 77 HEADING 1 + 78 FIRST DETAIL 5 +>> Hint: Missing . + +run_reportwriter.at-1718-prog.cob:76.16-76.21: + 73 REPORT SECTION. + 74 RD CUSTOMER-REPORT + 75 CONTROLS ARE FINAL, TR-CUSTOMER + 76 > PAGE LIMIT IS 66 LINES +---- ^^^^^ + 77 HEADING 1 + 78 FIRST DETAIL 5 +>> Warning: Invalid syntax + +run_reportwriter.at-1718-prog.cob:76.33: + 73 REPORT SECTION. + 74 RD CUSTOMER-REPORT + 75 CONTROLS ARE FINAL, TR-CUSTOMER + 76 > PAGE LIMIT IS 66 LINES +---- ^ + 77 HEADING 1 + 78 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-1718-prog.cob:77.11-77.18: + 74 RD CUSTOMER-REPORT + 75 CONTROLS ARE FINAL, TR-CUSTOMER + 76 PAGE LIMIT IS 66 LINES + 77 > HEADING 1 +---- ^^^^^^^ + 78 FIRST DETAIL 5 + 79 LAST DETAIL 58. +>> Error: Invalid syntax + +run_reportwriter.at-1718-prog.cob:78.11-78.16: + 75 CONTROLS ARE FINAL, TR-CUSTOMER + 76 PAGE LIMIT IS 66 LINES + 77 HEADING 1 + 78 > FIRST DETAIL 5 +---- ^^^^^ + 79 LAST DETAIL 58. + 80 +>> Error: Invalid syntax + +run_reportwriter.at-1718-prog.cob:79.11-79.15: + 76 PAGE LIMIT IS 66 LINES + 77 HEADING 1 + 78 FIRST DETAIL 5 + 79 > LAST DETAIL 58. +---- ^^^^ + 80 + 81 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-1718-prog.cob:81.31: + 78 FIRST DETAIL 5 + 79 LAST DETAIL 58. + 80 + 81 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^ + 82 02 LINE 1. + 83 03 COLUMN 27 PIC X(41) VALUE +>> Hint: Missing DETAIL + +run_reportwriter.at-1718-prog.cob:81.32-81.36: + 78 FIRST DETAIL 5 + 79 LAST DETAIL 58. + 80 + 81 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^^^^ + 82 02 LINE 1. + 83 03 COLUMN 27 PIC X(41) VALUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:1793:0 +run_reportwriter.at-1793-reference:3.6-3.7: + 1 C U S T O M E R C H A R G E R E P O R T PAGE 1 + 2 + 3 > CUST. NO. CUST. NAME ITEM COST DISCT. AMT. CHARGE +---- ^ + 4 + 5 152 J. LANGDON $50.41 $6.50 $43.91 +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-1793-reference:1.26-1.27: + 1 > C U S T O M E R C H A R G E R E P O R T PAGE 1 +---- ^ + 2 + 3 CUST. NO. CUST. NAME ITEM COST DISCT. AMT. CHARGE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2071:0 +run_reportwriter.at-2071-inp_data:1.6-1.7: + 1 > 05 A 007328 +---- ^ + 2 05 A 090620 + 3 05 A 034602 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:2.6-2.7: + 1 05 A 007328 + 2 > 05 A 090620 +---- ^ + 3 05 A 034602 + 4 05 A 017837 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:3.6-3.7: + 1 05 A 007328 + 2 05 A 090620 + 3 > 05 A 034602 +---- ^ + 4 05 A 017837 + 5 13 A 005035 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:4.6-4.7: + 1 05 A 007328 + 2 05 A 090620 + 3 05 A 034602 + 4 > 05 A 017837 +---- ^ + 5 13 A 005035 + 6 13 A 049851 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:5.6-5.7: + 2 05 A 090620 + 3 05 A 034602 + 4 05 A 017837 + 5 > 13 A 005035 +---- ^ + 6 13 A 049851 + 7 13 A 012139 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:6.6-6.7: + 3 05 A 034602 + 4 05 A 017837 + 5 13 A 005035 + 6 > 13 A 049851 +---- ^ + 7 13 A 012139 + 8 22 A 077572 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:7.6-7.7: + 4 05 A 017837 + 5 13 A 005035 + 6 13 A 049851 + 7 > 13 A 012139 +---- ^ + 8 22 A 077572 + 9 29 A 013491 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:8.6-8.7: + 5 13 A 005035 + 6 13 A 049851 + 7 13 A 012139 + 8 > 22 A 077572 +---- ^ + 9 29 A 013491 + 10 33 A 050628 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:9.6-9.7: + 6 13 A 049851 + 7 13 A 012139 + 8 22 A 077572 + 9 > 29 A 013491 +---- ^ + 10 33 A 050628 + 11 33 A 044987 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:10.6-10.7: + 7 13 A 012139 + 8 22 A 077572 + 9 29 A 013491 + 10 > 33 A 050628 +---- ^ + 11 33 A 044987 + 12 33 A 050162 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:11.6-11.7: + 8 22 A 077572 + 9 29 A 013491 + 10 33 A 050628 + 11 > 33 A 044987 +---- ^ + 12 33 A 050162 + 13 39 A 068745 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:12.6-12.7: + 9 29 A 013491 + 10 33 A 050628 + 11 33 A 044987 + 12 > 33 A 050162 +---- ^ + 13 39 A 068745 + 14 39 A 058384 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:13.6-13.7: + 10 33 A 050628 + 11 33 A 044987 + 12 33 A 050162 + 13 > 39 A 068745 +---- ^ + 14 39 A 058384 + 15 39 A 053005 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:14.6-14.7: + 11 33 A 044987 + 12 33 A 050162 + 13 39 A 068745 + 14 > 39 A 058384 +---- ^ + 15 39 A 053005 + 16 44 A 085669 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:15.6-15.7: + 12 33 A 050162 + 13 39 A 068745 + 14 39 A 058384 + 15 > 39 A 053005 +---- ^ + 16 44 A 085669 + 17 44 A 057891 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:16.6-16.7: + 13 39 A 068745 + 14 39 A 058384 + 15 39 A 053005 + 16 > 44 A 085669 +---- ^ + 17 44 A 057891 + 18 49 A 065134 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:17.6-17.7: + 14 39 A 058384 + 15 39 A 053005 + 16 44 A 085669 + 17 > 44 A 057891 +---- ^ + 18 49 A 065134 + 19 03 B 032035 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:18.6-18.7: + 15 39 A 053005 + 16 44 A 085669 + 17 44 A 057891 + 18 > 49 A 065134 +---- ^ + 19 03 B 032035 + 20 03 B 054694 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:19.6-19.7: + 16 44 A 085669 + 17 44 A 057891 + 18 49 A 065134 + 19 > 03 B 032035 +---- ^ + 20 03 B 054694 + 21 03 B 069591 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:20.6-20.7: + 17 44 A 057891 + 18 49 A 065134 + 19 03 B 032035 + 20 > 03 B 054694 +---- ^ + 21 03 B 069591 + 22 03 B 046023 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:21.6-21.7: + 18 49 A 065134 + 19 03 B 032035 + 20 03 B 054694 + 21 > 03 B 069591 +---- ^ + 22 03 B 046023 + 23 03 B 025725 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:22.6-22.7: + 19 03 B 032035 + 20 03 B 054694 + 21 03 B 069591 + 22 > 03 B 046023 +---- ^ + 23 03 B 025725 + 24 19 B 045550 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:23.6-23.7: + 20 03 B 054694 + 21 03 B 069591 + 22 03 B 046023 + 23 > 03 B 025725 +---- ^ + 24 19 B 045550 + 25 19 B 099371 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:24.6-24.7: + 21 03 B 069591 + 22 03 B 046023 + 23 03 B 025725 + 24 > 19 B 045550 +---- ^ + 25 19 B 099371 + 26 19 B 049703 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:25.6-25.7: + 22 03 B 046023 + 23 03 B 025725 + 24 19 B 045550 + 25 > 19 B 099371 +---- ^ + 26 19 B 049703 + 27 25 B 047000 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:26.6-26.7: + 23 03 B 025725 + 24 19 B 045550 + 25 19 B 099371 + 26 > 19 B 049703 +---- ^ + 27 25 B 047000 + 28 25 B 087106 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:27.6-27.7: + 24 19 B 045550 + 25 19 B 099371 + 26 19 B 049703 + 27 > 25 B 047000 +---- ^ + 28 25 B 087106 + 29 31 B 049157 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:28.6-28.7: + 25 19 B 099371 + 26 19 B 049703 + 27 25 B 047000 + 28 > 25 B 087106 +---- ^ + 29 31 B 049157 + 30 34 B 005994 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:29.6-29.7: + 26 19 B 049703 + 27 25 B 047000 + 28 25 B 087106 + 29 > 31 B 049157 +---- ^ + 30 34 B 005994 + 31 09 C 007980 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:30.6-30.7: + 27 25 B 047000 + 28 25 B 087106 + 29 31 B 049157 + 30 > 34 B 005994 +---- ^ + 31 09 C 007980 + 32 14 C 092224 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:31.6-31.7: + 28 25 B 087106 + 29 31 B 049157 + 30 34 B 005994 + 31 > 09 C 007980 +---- ^ + 32 14 C 092224 + 33 14 C 062942 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:32.6-32.7: + 29 31 B 049157 + 30 34 B 005994 + 31 09 C 007980 + 32 > 14 C 092224 +---- ^ + 33 14 C 062942 + 34 23 C 002974 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:33.6-33.7: + 30 34 B 005994 + 31 09 C 007980 + 32 14 C 092224 + 33 > 14 C 062942 +---- ^ + 34 23 C 002974 + 35 28 C 042394 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:34.6-34.7: + 31 09 C 007980 + 32 14 C 092224 + 33 14 C 062942 + 34 > 23 C 002974 +---- ^ + 35 28 C 042394 + 36 28 C 014745 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:35.6-35.7: + 32 14 C 092224 + 33 14 C 062942 + 34 23 C 002974 + 35 > 28 C 042394 +---- ^ + 36 28 C 014745 + 37 34 C 053467 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:36.6-36.7: + 33 14 C 062942 + 34 23 C 002974 + 35 28 C 042394 + 36 > 28 C 014745 +---- ^ + 37 34 C 053467 + 38 34 C 054332 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:37.6-37.7: + 34 23 C 002974 + 35 28 C 042394 + 36 28 C 014745 + 37 > 34 C 053467 +---- ^ + 38 34 C 054332 + 39 42 C 089295 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:38.6-38.7: + 35 28 C 042394 + 36 28 C 014745 + 37 34 C 053467 + 38 > 34 C 054332 +---- ^ + 39 42 C 089295 + 40 42 C 073826 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:39.6-39.7: + 36 28 C 014745 + 37 34 C 053467 + 38 34 C 054332 + 39 > 42 C 089295 +---- ^ + 40 42 C 073826 + 41 04 D 029685 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:40.6-40.7: + 37 34 C 053467 + 38 34 C 054332 + 39 42 C 089295 + 40 > 42 C 073826 +---- ^ + 41 04 D 029685 + 42 04 D 060676 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:41.6-41.7: + 38 34 C 054332 + 39 42 C 089295 + 40 42 C 073826 + 41 > 04 D 029685 +---- ^ + 42 04 D 060676 + 43 06 D 013230 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:42.6-42.7: + 39 42 C 089295 + 40 42 C 073826 + 41 04 D 029685 + 42 > 04 D 060676 +---- ^ + 43 06 D 013230 + 44 06 D 042290 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:43.6-43.7: + 40 42 C 073826 + 41 04 D 029685 + 42 04 D 060676 + 43 > 06 D 013230 +---- ^ + 44 06 D 042290 + 45 15 D 013076 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:44.6-44.7: + 41 04 D 029685 + 42 04 D 060676 + 43 06 D 013230 + 44 > 06 D 042290 +---- ^ + 45 15 D 013076 + 46 15 D 024104 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:45.6-45.7: + 42 04 D 060676 + 43 06 D 013230 + 44 06 D 042290 + 45 > 15 D 013076 +---- ^ + 46 15 D 024104 + 47 15 D 013078 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:46.6-46.7: + 43 06 D 013230 + 44 06 D 042290 + 45 15 D 013076 + 46 > 15 D 024104 +---- ^ + 47 15 D 013078 + 48 38 D 078771 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:47.6-47.7: + 44 06 D 042290 + 45 15 D 013076 + 46 15 D 024104 + 47 > 15 D 013078 +---- ^ + 48 38 D 078771 + 49 38 D 085871 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:48.6-48.7: + 45 15 D 013076 + 46 15 D 024104 + 47 15 D 013078 + 48 > 38 D 078771 +---- ^ + 49 38 D 085871 + 50 11 E 099350 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:49.6-49.7: + 46 15 D 024104 + 47 15 D 013078 + 48 38 D 078771 + 49 > 38 D 085871 +---- ^ + 50 11 E 099350 + 51 17 E 066301 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:50.6-50.7: + 47 15 D 013078 + 48 38 D 078771 + 49 38 D 085871 + 50 > 11 E 099350 +---- ^ + 51 17 E 066301 + 52 27 E 038144 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:51.6-51.7: + 48 38 D 078771 + 49 38 D 085871 + 50 11 E 099350 + 51 > 17 E 066301 +---- ^ + 52 27 E 038144 + 53 27 E 097807 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:52.6-52.7: + 49 38 D 085871 + 50 11 E 099350 + 51 17 E 066301 + 52 > 27 E 038144 +---- ^ + 53 27 E 097807 + 54 27 E 008055 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:53.6-53.7: + 50 11 E 099350 + 51 17 E 066301 + 52 27 E 038144 + 53 > 27 E 097807 +---- ^ + 54 27 E 008055 + 55 08 F 073201 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:54.6-54.7: + 51 17 E 066301 + 52 27 E 038144 + 53 27 E 097807 + 54 > 27 E 008055 +---- ^ + 55 08 F 073201 + 56 09 F 008278 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:55.6-55.7: + 52 27 E 038144 + 53 27 E 097807 + 54 27 E 008055 + 55 > 08 F 073201 +---- ^ + 56 09 F 008278 + 57 09 F 040898 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:56.6-56.7: + 53 27 E 097807 + 54 27 E 008055 + 55 08 F 073201 + 56 > 09 F 008278 +---- ^ + 57 09 F 040898 + 58 09 F 039688 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:57.6-57.7: + 54 27 E 008055 + 55 08 F 073201 + 56 09 F 008278 + 57 > 09 F 040898 +---- ^ + 58 09 F 039688 + 59 16 F 019308 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:58.6-58.7: + 55 08 F 073201 + 56 09 F 008278 + 57 09 F 040898 + 58 > 09 F 039688 +---- ^ + 59 16 F 019308 + 60 16 F 015173 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:59.6-59.7: + 56 09 F 008278 + 57 09 F 040898 + 58 09 F 039688 + 59 > 16 F 019308 +---- ^ + 60 16 F 015173 + 61 16 F 022865 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:60.6-60.7: + 57 09 F 040898 + 58 09 F 039688 + 59 16 F 019308 + 60 > 16 F 015173 +---- ^ + 61 16 F 022865 + 62 16 F 003568 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:61.6-61.7: + 58 09 F 039688 + 59 16 F 019308 + 60 16 F 015173 + 61 > 16 F 022865 +---- ^ + 62 16 F 003568 + 63 36 F 029276 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:62.6-62.7: + 59 16 F 019308 + 60 16 F 015173 + 61 16 F 022865 + 62 > 16 F 003568 +---- ^ + 63 36 F 029276 + 64 40 F 078631 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:63.6-63.7: + 60 16 F 015173 + 61 16 F 022865 + 62 16 F 003568 + 63 > 36 F 029276 +---- ^ + 64 40 F 078631 + 65 40 F 010249 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:64.6-64.7: + 61 16 F 022865 + 62 16 F 003568 + 63 36 F 029276 + 64 > 40 F 078631 +---- ^ + 65 40 F 010249 + 66 40 F 059583 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:65.6-65.7: + 62 16 F 003568 + 63 36 F 029276 + 64 40 F 078631 + 65 > 40 F 010249 +---- ^ + 66 40 F 059583 + 67 48 F 043877 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:66.6-66.7: + 63 36 F 029276 + 64 40 F 078631 + 65 40 F 010249 + 66 > 40 F 059583 +---- ^ + 67 48 F 043877 + 68 48 F 006755 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2071-inp_data:67.6-67.7: + 64 40 F 078631 + 65 40 F 010249 + 66 40 F 059583 + 67 > 48 F 043877 +---- ^ + 68 48 F 006755 + 69 01 G 018347 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:68.6-68.7: + 65 40 F 010249 + 66 40 F 059583 + 67 48 F 043877 + 68 > 48 F 006755 +---- ^ + 69 01 G 018347 + 70 20 G 098123 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:69.6-69.7: + 66 40 F 059583 + 67 48 F 043877 + 68 48 F 006755 + 69 > 01 G 018347 +---- ^ + 70 20 G 098123 + 71 21 G 077346 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:70.6-70.7: + 67 48 F 043877 + 68 48 F 006755 + 69 01 G 018347 + 70 > 20 G 098123 +---- ^ + 71 21 G 077346 + 72 22 G 025953 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:71.6-71.7: + 68 48 F 006755 + 69 01 G 018347 + 70 20 G 098123 + 71 > 21 G 077346 +---- ^ + 72 22 G 025953 + 73 26 G 009587 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:72.6-72.7: + 69 01 G 018347 + 70 20 G 098123 + 71 21 G 077346 + 72 > 22 G 025953 +---- ^ + 73 26 G 009587 + 74 41 G 083126 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:73.6-73.7: + 70 20 G 098123 + 71 21 G 077346 + 72 22 G 025953 + 73 > 26 G 009587 +---- ^ + 74 41 G 083126 + 75 41 G 073046 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:74.6-74.7: + 71 21 G 077346 + 72 22 G 025953 + 73 26 G 009587 + 74 > 41 G 083126 +---- ^ + 75 41 G 073046 + 76 32 H 038823 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:75.6-75.7: + 72 22 G 025953 + 73 26 G 009587 + 74 41 G 083126 + 75 > 41 G 073046 +---- ^ + 76 32 H 038823 + 77 32 H 009989 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:76.6-76.7: + 73 26 G 009587 + 74 41 G 083126 + 75 41 G 073046 + 76 > 32 H 038823 +---- ^ + 77 32 H 009989 + 78 32 H 065838 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:77.6-77.7: + 74 41 G 083126 + 75 41 G 073046 + 76 32 H 038823 + 77 > 32 H 009989 +---- ^ + 78 32 H 065838 + 79 32 H 024994 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:78.6-78.7: + 75 41 G 073046 + 76 32 H 038823 + 77 32 H 009989 + 78 > 32 H 065838 +---- ^ + 79 32 H 024994 + 80 32 H 016065 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:79.6-79.7: + 76 32 H 038823 + 77 32 H 009989 + 78 32 H 065838 + 79 > 32 H 024994 +---- ^ + 80 32 H 016065 + 81 32 H 097042 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:80.6-80.7: + 77 32 H 009989 + 78 32 H 065838 + 79 32 H 024994 + 80 > 32 H 016065 +---- ^ + 81 32 H 097042 + 82 43 H 077895 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:81.6-81.7: + 78 32 H 065838 + 79 32 H 024994 + 80 32 H 016065 + 81 > 32 H 097042 +---- ^ + 82 43 H 077895 + 83 45 H 038692 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:82.6-82.7: + 79 32 H 024994 + 80 32 H 016065 + 81 32 H 097042 + 82 > 43 H 077895 +---- ^ + 83 45 H 038692 + 84 46 H 088151 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:83.6-83.7: + 80 32 H 016065 + 81 32 H 097042 + 82 43 H 077895 + 83 > 45 H 038692 +---- ^ + 84 46 H 088151 + 85 46 H 069538 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:84.6-84.7: + 81 32 H 097042 + 82 43 H 077895 + 83 45 H 038692 + 84 > 46 H 088151 +---- ^ + 85 46 H 069538 + 86 09 J 039764 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:85.6-85.7: + 82 43 H 077895 + 83 45 H 038692 + 84 46 H 088151 + 85 > 46 H 069538 +---- ^ + 86 09 J 039764 + 87 18 J 088890 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:86.6-86.7: + 83 45 H 038692 + 84 46 H 088151 + 85 46 H 069538 + 86 > 09 J 039764 +---- ^ + 87 18 J 088890 + 88 18 J 039421 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:87.6-87.7: + 84 46 H 088151 + 85 46 H 069538 + 86 09 J 039764 + 87 > 18 J 088890 +---- ^ + 88 18 J 039421 + 89 37 J 044560 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:88.6-88.7: + 85 46 H 069538 + 86 09 J 039764 + 87 18 J 088890 + 88 > 18 J 039421 +---- ^ + 89 37 J 044560 + 90 45 J 018770 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:89.6-89.7: + 86 09 J 039764 + 87 18 J 088890 + 88 18 J 039421 + 89 > 37 J 044560 +---- ^ + 90 45 J 018770 + 91 45 J 032993 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:90.6-90.7: + 87 18 J 088890 + 88 18 J 039421 + 89 37 J 044560 + 90 > 45 J 018770 +---- ^ + 91 45 J 032993 + 92 45 J 089631 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2071-inp_data:91.6-91.7: + 88 18 J 039421 + 89 37 J 044560 + 90 45 J 018770 + 91 > 45 J 032993 +---- ^ + 92 45 J 089631 + 93 45 J 072659 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2071-inp_data:92.6-92.7: + 89 37 J 044560 + 90 45 J 018770 + 91 45 J 032993 + 92 > 45 J 089631 +---- ^ + 93 45 J 072659 + 94 02 K 075925 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2071-inp_data:93.6-93.7: + 90 45 J 018770 + 91 45 J 032993 + 92 45 J 089631 + 93 > 45 J 072659 +---- ^ + 94 02 K 075925 + 95 02 K 072909 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:94.6-94.7: + 91 45 J 032993 + 92 45 J 089631 + 93 45 J 072659 + 94 > 02 K 075925 +---- ^ + 95 02 K 072909 + 96 02 K 040544 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:95.6-95.7: + 92 45 J 089631 + 93 45 J 072659 + 94 02 K 075925 + 95 > 02 K 072909 +---- ^ + 96 02 K 040544 + 97 12 K 002138 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2071-inp_data:96.6-96.7: + 93 45 J 072659 + 94 02 K 075925 + 95 02 K 072909 + 96 > 02 K 040544 +---- ^ + 97 12 K 002138 + 98 12 K 029239 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2071-inp_data:97.6-97.7: + 94 02 K 075925 + 95 02 K 072909 + 96 02 K 040544 + 97 > 12 K 002138 +---- ^ + 98 12 K 029239 + 99 35 K 065936 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2071-inp_data:98.6-98.7: + 95 02 K 072909 + 96 02 K 040544 + 97 12 K 002138 + 98 > 12 K 029239 +---- ^ + 99 35 K 065936 + 100 35 K 093046 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2071-inp_data:99.6-99.7: + 96 02 K 040544 + 97 12 K 002138 + 98 12 K 029239 + 99 > 35 K 065936 +---- ^ + 100 35 K 093046 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2071-inp_data:100.6-100.7: + 97 12 K 002138 + 98 12 K 029239 + 99 35 K 065936 + 100 > 35 K 093046 +---- ^ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2071-inp_data:1.7-1.11: + 1 > 05 A 007328 +---- ^^^^ + 2 05 A 090620 + 3 05 A 034602 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2069:0 +run_reportwriter.at-2069-prog.cob:16.25-16.33: + 13 FILE-CONTROL. + 14 + 15 SELECT SALES-DATA + 16 > ASSIGN TO EXTERNAL DATAIN +---- ^^^^^^^^ + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-2069-prog.cob:20.25-20.33: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^ + 21 + 22 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-2069-prog.cob:20.34-20.38: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^ + 21 + 22 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-2069-prog.cob:20.38: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^ + 21 + 22 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-2069-prog.cob:20.39-20.48: + 17 ORGANIZATION IS LINE SEQUENTIAL. + 18 + 19 SELECT REPORT-FILE + 20 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^^ + 21 + 22 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-2069-prog.cob:65.15: + 62 REPORT SECTION. + 63 RD DISTRICT-SALES-REPORT + 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER + 65 > PAGE LIMIT IS 66 LINES +---- ^ + 66 HEADING 1 + 67 FIRST DETAIL 5 +>> Hint: Missing . + +run_reportwriter.at-2069-prog.cob:65.16-65.21: + 62 REPORT SECTION. + 63 RD DISTRICT-SALES-REPORT + 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER + 65 > PAGE LIMIT IS 66 LINES +---- ^^^^^ + 66 HEADING 1 + 67 FIRST DETAIL 5 +>> Warning: Invalid syntax + +run_reportwriter.at-2069-prog.cob:65.33: + 62 REPORT SECTION. + 63 RD DISTRICT-SALES-REPORT + 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER + 65 > PAGE LIMIT IS 66 LINES +---- ^ + 66 HEADING 1 + 67 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-2069-prog.cob:66.11-66.18: + 63 RD DISTRICT-SALES-REPORT + 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER + 65 PAGE LIMIT IS 66 LINES + 66 > HEADING 1 +---- ^^^^^^^ + 67 FIRST DETAIL 5 + 68 LAST DETAIL 58. +>> Error: Invalid syntax + +run_reportwriter.at-2069-prog.cob:67.11-67.16: + 64 CONTROLS ARE FINAL, SR-DISTRICT-CODE, SR-SALESMAN-NUMBER + 65 PAGE LIMIT IS 66 LINES + 66 HEADING 1 + 67 > FIRST DETAIL 5 +---- ^^^^^ + 68 LAST DETAIL 58. + 69 +>> Error: Invalid syntax + +run_reportwriter.at-2069-prog.cob:68.11-68.15: + 65 PAGE LIMIT IS 66 LINES + 66 HEADING 1 + 67 FIRST DETAIL 5 + 68 > LAST DETAIL 58. +---- ^^^^ + 69 + 70 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-2069-prog.cob:70.31: + 67 FIRST DETAIL 5 + 68 LAST DETAIL 58. + 69 + 70 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^ + 71 02 LINE 1. + 72 03 COLUMN 27 PIC X(41) VALUE +>> Hint: Missing DETAIL + +run_reportwriter.at-2069-prog.cob:70.32-70.36: + 67 FIRST DETAIL 5 + 68 LAST DETAIL 58. + 69 + 70 > 01 PAGE-HEAD-GROUP TYPE PAGE HEADING. +---- ^^^^ + 71 02 LINE 1. + 72 03 COLUMN 27 PIC X(41) VALUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2209:0 +run_reportwriter.at-2209-reference:1.26-1.27: + 1 > D I S T R I C T S A L E S R E P O R T PAGE 1 +---- ^ + 2 + 3 -------- SALESMAN -------- -- DISTRICT -- +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2796:0 +run_reportwriter.at-2796-inp_data:1.6-1.7: + 1 > 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 +---- ^ + 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 + 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2796-inp_data:2.6-2.7: + 1 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 + 2 > 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 +---- ^ + 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 + 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2796-inp_data:3.6-3.7: + 1 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 + 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 + 3 > 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 +---- ^ + 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 + 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2796-inp_data:4.6-4.7: + 1 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 + 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 + 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 + 4 > 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 +---- ^ + 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 + 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-2796-inp_data:5.6-5.7: + 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 + 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 + 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 + 5 > 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 +---- ^ + 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 + 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:6.6-6.7: + 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 + 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 + 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 + 6 > 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 +---- ^ + 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 + 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:7.6-7.7: + 4 01 6622 M GAVIN SHAFER 19740315 026000 01521 03362 00050 021067 + 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 + 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 + 7 > 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 +---- ^ + 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 + 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:8.6-8.7: + 5 01 7078 F VERA ALSTON 19740101 030000 01755 02304 00050 025891 + 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 + 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 + 8 > 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 +---- ^ + 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 + 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:9.6-9.7: + 6 01 7078 F VERA ALSTON 19740115 030000 01755 02304 00100 025841 + 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 + 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 + 9 > 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 +---- ^ + 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 + 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:10.6-10.7: + 7 01 7078 F VERA ALSTON 19740201 030000 01755 02304 00050 025891 + 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 + 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 + 10 > 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 +---- ^ + 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 + 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:11.6-11.7: + 8 01 7078 F VERA ALSTON 19740215 030000 01755 02304 00000 025941 + 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 + 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 + 11 > 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 +---- ^ + 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 + 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:12.6-12.7: + 9 01 7078 F VERA ALSTON 19740301 030000 01755 02304 00075 025866 + 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 + 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 + 12 > 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 +---- ^ + 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 + 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:13.6-13.7: + 10 01 7078 F VERA ALSTON 19740315 030000 01755 02304 00100 025841 + 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 + 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 + 13 > 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 +---- ^ + 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 + 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:14.6-14.7: + 11 01 8093 M GRADY KAISER 19740101 045000 02633 05819 00175 036374 + 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 + 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 + 14 > 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 +---- ^ + 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 + 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:15.6-15.7: + 12 01 8093 M GRADY KAISER 19740115 045000 02633 05819 00100 036449 + 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 + 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 + 15 > 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 +---- ^ + 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 + 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:16.6-16.7: + 13 01 8093 M GRADY KAISER 19740201 045000 02633 05819 00100 036449 + 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 + 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 + 16 > 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 +---- ^ + 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 + 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:17.6-17.7: + 14 01 8093 M GRADY KAISER 19740215 047500 02779 03648 00100 040973 + 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 + 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 + 17 > 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 +---- ^ + 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 + 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:18.6-18.7: + 15 01 8093 M GRADY KAISER 19740301 047500 02779 03648 00175 040898 + 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 + 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 + 18 > 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 +---- ^ + 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 + 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:19.6-19.7: + 16 05 1720 F PAULINE WINSTON 19740101 013000 00761 20110 00050 010080 + 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 + 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 + 19 > 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 +---- ^ + 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 + 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:20.6-20.7: + 17 05 1720 F PAULINE WINSTON 19740115 013000 00761 02110 00000 010130 + 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 + 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 + 20 > 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 +---- ^ + 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 + 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:21.6-21.7: + 18 05 1720 F PAULINE WINSTON 19740201 014000 00819 02272 00075 010834 + 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 + 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 + 21 > 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 +---- ^ + 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 + 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:22.6-22.7: + 19 05 1720 F PAULINE WINSTON 19740215 014000 00819 02272 00175 010734 + 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 + 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 + 22 > 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 +---- ^ + 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 + 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:23.6-23.7: + 20 05 1720 F PAULINE WINSTON 19740301 014000 00819 02272 00050 010859 + 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 + 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 + 23 > 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 +---- ^ + 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 + 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:24.6-24.7: + 21 05 2116 M HERMAN COX 19740101 010000 00585 01293 00175 007947 + 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 + 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 + 24 > 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 +---- ^ + 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 + 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:25.6-25.7: + 22 05 2116 M HERMAN COX 19740115 010000 00585 01293 00175 007947 + 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 + 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 + 25 > 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 +---- ^ + 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 + 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:26.6-26.7: + 23 05 2116 M HERMAN COX 19740201 010000 00585 01293 00100 008022 + 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 + 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 + 26 > 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 +---- ^ + 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 + 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:27.6-27.7: + 24 05 2116 M HERMAN COX 19740215 010000 00585 01293 00100 008022 + 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 + 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 + 27 > 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 +---- ^ + 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 + 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:28.6-28.7: + 25 05 2116 M HERMAN COX 19740301 010000 00585 01293 00075 008047 + 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 + 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 + 28 > 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 +---- ^ + 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 + 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:29.6-29.7: + 26 05 2116 M HERMAN COX 19740315 011000 00644 01187 00100 009070 + 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 + 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 + 29 > 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 +---- ^ + 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 + 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:30.6-30.7: + 27 05 6925 M ADOLF TRUJILLO 19740115 012500 00731 02379 00050 009340 + 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 + 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 + 30 > 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 +---- ^ + 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 + 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:31.6-31.7: + 28 05 6925 M ADOLF TRUJILLO 19740201 012500 00731 02379 00100 009290 + 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 + 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 + 31 > 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 +---- ^ + 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 + 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:32.6-32.7: + 29 05 6925 M ADOLF TRUJILLO 19740215 012500 00731 02379 00175 009215 + 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 + 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 + 32 > 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 +---- ^ + 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 + 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2796-inp_data:33.6-33.7: + 30 05 6925 M ADOLF TRUJILLO 19740301 012500 00731 02379 00075 009315 + 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 + 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 + 33 > 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 +---- ^ + 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 + 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2796-inp_data:34.6-34.7: + 31 05 6925 M ADOLF TRUJILLO 19740315 012500 00731 02379 00000 009390 + 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 + 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 + 34 > 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 +---- ^ + 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 + 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2796-inp_data:35.6-35.7: + 32 10 1504 F TIFFANY KEIR 19740101 029000 01697 03129 00050 024124 + 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 + 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 + 35 > 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 +---- ^ + 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 + 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2796-inp_data:36.6-36.7: + 33 10 1504 F TIFFANY KEIR 19740115 029000 01697 03129 00000 024174 + 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 + 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 + 36 > 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 +---- ^ + 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 + 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2796-inp_data:37.6-37.7: + 34 10 1504 F TIFFANY KEIR 19740201 029000 01697 03129 00075 024099 + 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 + 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 + 37 > 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 +---- ^ + 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 + 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2796-inp_data:38.6-38.7: + 35 10 1504 F TIFFANY KEIR 19740215 029000 01697 03129 00000 024174 + 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 + 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 + 38 > 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 +---- ^ + 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 + 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:39.6-39.7: + 36 10 1504 F TIFFANY KEIR 19740301 029000 01697 03129 00000 024174 + 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 + 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 + 39 > 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 +---- ^ + 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 + 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:40.6-40.7: + 37 10 1504 F TIFFANY KEIR 19740315 029000 01697 03129 00050 024124 + 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 + 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 + 40 > 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 +---- ^ + 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 + 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:41.6-41.7: + 38 10 6640 M ALEXANDER CATHEY 19740101 032500 01901 06185 00000 024414 + 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 + 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 + 41 > 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 +---- ^ + 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 + 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:42.6-42.7: + 39 10 6640 M ALEXANDER CATHEY 19740115 032500 01901 06185 00175 024239 + 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 + 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 + 42 > 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 +---- ^ + 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 + 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:43.6-43.7: + 40 10 6640 M ALEXANDER CATHEY 19740201 032500 01901 06185 00175 024239 + 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 + 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 + 43 > 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 +---- ^ + 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 + 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:44.6-44.7: + 41 10 6640 M ALEXANDER CATHEY 19740215 032500 01901 06185 00175 024239 + 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 + 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 + 44 > 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 +---- ^ + 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 + 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:45.6-45.7: + 42 10 6640 M ALEXANDER CATHEY 19740301 032500 01901 06185 00100 024314 + 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 + 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 + 45 > 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 +---- ^ + 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 + 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:46.6-46.7: + 43 10 6640 M ALEXANDER CATHEY 19740315 032500 01901 06185 00100 024314 + 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 + 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 + 46 > 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 +---- ^ + 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 + 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:47.6-47.7: + 44 10 9465 M STEVE HUGHES 19740101 029500 01726 04788 00175 022811 + 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 + 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 + 47 > 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 +---- ^ + 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 + 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:48.6-48.7: + 45 10 9465 M STEVE HUGHES 19740115 029500 01726 04788 00000 022986 + 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 + 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 + 48 > 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 +---- ^ + 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 + 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2796-inp_data:49.6-49.7: + 46 10 9465 M STEVE HUGHES 19740201 029500 01726 04788 00000 022986 + 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 + 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 + 49 > 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 +---- ^ + 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 + 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:50.6-50.7: + 47 10 9465 M STEVE HUGHES 19740215 029500 01726 04788 00050 022936 + 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 + 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 + 50 > 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 +---- ^ + 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 + 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:51.6-51.7: + 48 10 9465 M STEVE HUGHES 19740301 029500 01726 04788 00075 022911 + 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 + 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 + 51 > 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 +---- ^ + 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 + 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:52.6-52.7: + 49 15 2903 F KAYLA VERBECK 19740101 014000 00819 02272 00050 010859 + 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 + 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 + 52 > 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 +---- ^ + 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 + 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:53.6-53.7: + 50 15 2903 F KAYLA VERBECK 19740115 014000 00819 02272 00175 010734 + 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 + 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 + 53 > 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 +---- ^ + 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 + 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:54.6-54.7: + 51 15 2903 F KAYLA VERBECK 19740201 014000 00819 02272 00050 010859 + 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 + 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 + 54 > 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 +---- ^ + 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 + 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:55.6-55.7: + 52 15 2903 F KAYLA VERBECK 19740215 014000 00819 02272 00175 010734 + 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 + 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 + 55 > 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 +---- ^ + 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 + 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:56.6-56.7: + 53 15 2903 F KAYLA VERBECK 19740301 014000 00819 02272 00000 010909 + 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 + 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 + 56 > 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 +---- ^ + 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 + 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:57.6-57.7: + 54 15 2903 F KAYLA VERBECK 19740315 014000 00819 02272 00075 010834 + 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 + 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 + 57 > 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 +---- ^ + 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 + 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:58.6-58.7: + 55 15 5196 F CLAIRE KELLAR 19740101 014500 00848 01114 00075 012463 + 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 + 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 + 58 > 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 +---- ^ + 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 + 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:59.6-59.7: + 56 15 5196 F CLAIRE KELLAR 19740115 014500 00848 01114 00100 012438 + 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 + 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 + 59 > 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 +---- ^ + 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 + 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:60.6-60.7: + 57 15 5196 F CLAIRE KELLAR 19740201 014500 00848 01114 00175 012363 + 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 + 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 + 60 > 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 +---- ^ + 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 + 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2796-inp_data:61.6-61.7: + 58 15 5196 F CLAIRE KELLAR 19740215 014500 00848 01114 00050 012488 + 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 + 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 + 61 > 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 +---- ^ + 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 + 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:62.6-62.7: + 59 15 5196 F CLAIRE KELLAR 19740301 015300 00895 02912 00175 011318 + 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 + 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 + 62 > 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 +---- ^ + 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 + 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:63.6-63.7: + 60 15 5196 F CLAIRE KELLAR 19740315 015300 00895 02912 00100 011393 + 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 + 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 + 63 > 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 +---- ^ + 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 + 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:64.6-64.7: + 61 20 5190 F MARYANN GLAZENER 19740101 009000 00527 01164 00050 007260 + 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 + 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 + 64 > 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 +---- ^ + 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 + 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:65.6-65.7: + 62 20 5190 F MARYANN GLAZENER 19740115 009000 00527 01164 00075 007235 + 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 + 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 + 65 > 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 +---- ^ + 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 + 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:66.6-66.7: + 63 20 5190 F MARYANN GLAZENER 19740201 009000 00527 01164 00000 007310 + 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 + 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 + 66 > 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 +---- ^ + 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 + 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:67.6-67.7: + 64 20 5190 F MARYANN GLAZENER 19740215 009000 00527 01164 00075 007235 + 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 + 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 + 67 > 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 +---- ^ + 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 + 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:68.6-68.7: + 65 20 5190 F MARYANN GLAZENER 19740301 009000 00527 01164 00050 007260 + 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 + 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 + 68 > 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 +---- ^ + 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 + 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:69.6-69.7: + 66 20 5190 F MARYANN GLAZENER 19740315 009000 00527 01164 00100 007210 + 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 + 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 + 69 > 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 +---- ^ + 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 + 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:70.6-70.7: + 67 20 6580 F CAROLINE TROMBETTA 19740101 008000 00468 00863 00000 006669 + 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 + 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 + 70 > 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 +---- ^ + 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 + 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:71.6-71.7: + 68 20 6580 F CAROLINE TROMBETTA 19740115 008000 00468 00863 00075 006594 + 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 + 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 + 71 > 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 +---- ^ + 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 + 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:72.6-72.7: + 69 20 6580 F CAROLINE TROMBETTA 19740201 008000 00468 00863 00000 006569 + 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 + 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 + 72 > 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 +---- ^ + 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 + 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2796-inp_data:73.6-73.7: + 70 20 6580 F CAROLINE TROMBETTA 19740215 008000 00468 00863 00075 006594 + 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 + 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 + 73 > 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 +---- ^ + 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 + 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2796-inp_data:74.6-74.7: + 71 20 6580 F CAROLINE TROMBETTA 19740301 008000 00468 00863 00050 006619 + 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 + 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 + 74 > 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 +---- ^ + 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 + 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2796-inp_data:75.6-75.7: + 72 20 6580 F CAROLINE TROMBETTA 19740315 008000 00468 00863 00075 006594 + 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 + 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 + 75 > 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 +---- ^ + 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 + 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2796-inp_data:76.6-76.7: + 73 20 9507 F ADRIANA CHANGAZI 19740101 008300 00486 01347 00075 006392 + 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 + 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 + 76 > 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 +---- ^ + 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 + 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2796-inp_data:77.6-77.7: + 74 20 9507 F ADRIANA CHANGAZI 19740115 008300 00486 01347 00175 006292 + 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 + 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 + 77 > 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 +---- ^ + 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 + 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2796-inp_data:78.6-78.7: + 75 20 9507 F ADRIANA CHANGAZI 19740201 008300 00486 01347 00075 006392 + 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 + 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 + 78 > 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 +---- ^ + 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 + 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2796-inp_data:79.6-79.7: + 76 20 9507 F ADRIANA CHANGAZI 19740215 008300 00486 01347 00175 006292 + 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 + 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 + 79 > 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 +---- ^ + 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 + 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:80.6-80.7: + 77 20 9507 F ADRIANA CHANGAZI 19740301 008300 00486 01347 00000 006467 + 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 + 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 + 80 > 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 +---- ^ + 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 + 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:81.6-81.7: + 78 20 9507 F ADRIANA CHANGAZI 19740315 008300 00486 01347 00175 006292 + 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 + 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 + 81 > 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 +---- ^ + 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 + 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:82.6-82.7: + 79 25 0428 M MELVIN BEHRENS 19740101 007800 00456 00842 00000 006502 + 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 + 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 + 82 > 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 +---- ^ + 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 + 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:83.6-83.7: + 80 25 0428 M MELVIN BEHRENS 19740115 007800 00456 00842 00175 006327 + 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 + 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 + 83 > 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 +---- ^ + 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 + 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:84.6-84.7: + 81 25 0428 M MELVIN BEHRENS 19740201 007800 00456 00842 00175 006327 + 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 + 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 + 84 > 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 +---- ^ + 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 + 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-2796-inp_data:85.6-85.7: + 82 25 0428 M MELVIN BEHRENS 19740215 007800 00456 00842 00075 006427 + 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 + 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 + 85 > 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 +---- ^ + 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 + 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:86.6-86.7: + 83 25 0428 M MELVIN BEHRENS 19740301 007800 00456 00842 00000 006502 + 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 + 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 + 86 > 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 +---- ^ + 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 + 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:87.6-87.7: + 84 25 0428 M MELVIN BEHRENS 19740315 007800 00456 00842 00075 006427 + 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 + 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 + 87 > 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 +---- ^ + 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 + 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:88.6-88.7: + 85 25 2003 M BALDWIN SIMONSEN 19740101 011000 00644 02093 00050 008213 + 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 + 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 + 88 > 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 +---- ^ + 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 + 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:89.6-89.7: + 86 25 2003 M BALDWIN SIMONSEN 19740115 011000 00644 02093 00075 008188 + 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 + 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 + 89 > 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 +---- ^ + 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 + 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:90.6-90.7: + 87 25 2003 M BALDWIN SIMONSEN 19740201 011000 00644 02093 00000 008263 + 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 + 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 + 90 > 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 +---- ^ + 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 + 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-2796-inp_data:91.6-91.7: + 88 25 2003 M BALDWIN SIMONSEN 19740215 011000 00644 02093 00100 008163 + 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 + 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 + 91 > 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 +---- ^ + 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 + 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2796-inp_data:92.6-92.7: + 89 25 2003 M BALDWIN SIMONSEN 19740301 011500 00673 01487 00075 009265 + 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 + 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 + 92 > 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 +---- ^ + 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 + 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2796-inp_data:93.6-93.7: + 90 25 2003 M BALDWIN SIMONSEN 19740315 011500 00673 01487 00175 009165 + 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 + 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 + 93 > 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 +---- ^ + 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 + 95 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2796-inp_data:94.6-94.7: + 91 25 6491 M LEO TILLEY 19740101 010100 00591 00776 00050 008683 + 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 + 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 + 94 > 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 +---- ^ + 95 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 + 96 25 6491 M LEO TILLEY 19740315 010100 00591 00776 00000 008733 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2796-inp_data:95.6-95.7: + 92 25 6491 M LEO TILLEY 19740115 010100 00591 00776 00075 008658 + 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 + 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 + 95 > 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 +---- ^ + 96 25 6491 M LEO TILLEY 19740315 010100 00591 00776 00000 008733 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2796-inp_data:96.6-96.7: + 93 25 6491 M LEO TILLEY 19740201 010100 00591 00776 00050 008683 + 94 25 6491 M LEO TILLEY 19740215 010100 00591 00776 00075 008658 + 95 25 6491 M LEO TILLEY 19740301 010100 00591 00776 00100 008633 + 96 > 25 6491 M LEO TILLEY 19740315 010100 00591 00776 00000 008733 +---- ^ +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2796-inp_data:1.8-1.9: + 1 > 01 6622 M GAVIN SHAFER 19740201 026000 01521 03362 00075 021042 +---- ^ + 2 01 6622 M GAVIN SHAFER 19740215 026000 01521 03362 00175 020942 + 3 01 6622 M GAVIN SHAFER 19740301 026000 01521 03362 00175 020942 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2794:0 +run_reportwriter.at-2794-prog.cob:20.25-20.33: + 17 FILE-CONTROL. + 18 + 19 SELECT PAYROLL-REGISTER-DATA + 20 > ASSIGN TO EXTERNAL DATAIN +---- ^^^^^^^^ + 21 ORGANIZATION IS LINE SEQUENTIAL. + 22 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-2794-prog.cob:24.25-24.33: + 21 ORGANIZATION IS LINE SEQUENTIAL. + 22 + 23 SELECT REPORT-FILE + 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^ + 25 + 26 DATA DIVISION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-2794-prog.cob:24.34-24.38: + 21 ORGANIZATION IS LINE SEQUENTIAL. + 22 + 23 SELECT REPORT-FILE + 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^ + 25 + 26 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-2794-prog.cob:24.38: + 21 ORGANIZATION IS LINE SEQUENTIAL. + 22 + 23 SELECT REPORT-FILE + 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^ + 25 + 26 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-2794-prog.cob:24.39-24.48: + 21 ORGANIZATION IS LINE SEQUENTIAL. + 22 + 23 SELECT REPORT-FILE + 24 > ASSIGN TO EXTERNAL LINE ADVANCING SYSPRINT. +---- ^^^^^^^^^ + 25 + 26 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-2794-prog.cob:108.15: + 105 RD QUARTERLY-PAY-REGISTER + 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, + 107 PRR-EMPLOYEE-KEY + 108 > PAGE LIMIT IS 66 LINES +---- ^ + 109 HEADING 1 + 110 FIRST DETAIL 7 +>> Hint: Missing . + +run_reportwriter.at-2794-prog.cob:108.16-108.21: + 105 RD QUARTERLY-PAY-REGISTER + 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, + 107 PRR-EMPLOYEE-KEY + 108 > PAGE LIMIT IS 66 LINES +---- ^^^^^ + 109 HEADING 1 + 110 FIRST DETAIL 7 +>> Warning: Invalid syntax + +run_reportwriter.at-2794-prog.cob:108.33: + 105 RD QUARTERLY-PAY-REGISTER + 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, + 107 PRR-EMPLOYEE-KEY + 108 > PAGE LIMIT IS 66 LINES +---- ^ + 109 HEADING 1 + 110 FIRST DETAIL 7 +>> Hint: Missing ARE + +run_reportwriter.at-2794-prog.cob:109.11-109.18: + 106 CONTROLS ARE FINAL, PRR-DEPARTMENT-NUMBER, + 107 PRR-EMPLOYEE-KEY + 108 PAGE LIMIT IS 66 LINES + 109 > HEADING 1 +---- ^^^^^^^ + 110 FIRST DETAIL 7 + 111 LAST DETAIL 60. +>> Error: Invalid syntax + +run_reportwriter.at-2794-prog.cob:110.11-110.16: + 107 PRR-EMPLOYEE-KEY + 108 PAGE LIMIT IS 66 LINES + 109 HEADING 1 + 110 > FIRST DETAIL 7 +---- ^^^^^ + 111 LAST DETAIL 60. + 112 +>> Error: Invalid syntax + +run_reportwriter.at-2794-prog.cob:111.11-111.15: + 108 PAGE LIMIT IS 66 LINES + 109 HEADING 1 + 110 FIRST DETAIL 7 + 111 > LAST DETAIL 60. +---- ^^^^ + 112 + 113 01 TYPE PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-2794-prog.cob:113.15: + 110 FIRST DETAIL 7 + 111 LAST DETAIL 60. + 112 + 113 > 01 TYPE PAGE HEADING. +---- ^ + 114 02 LINE 1. + 115 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'. +>> Hint: Missing DETAIL + +run_reportwriter.at-2794-prog.cob:113.16-113.20: + 110 FIRST DETAIL 7 + 111 LAST DETAIL 60. + 112 + 113 > 01 TYPE PAGE HEADING. +---- ^^^^ + 114 02 LINE 1. + 115 03 COLUMN 39 PIC X(13) VALUE 'C E N T U R Y'. +>> Error: Invalid syntax + +run_reportwriter.at-2794-prog.cob:154.38: + 151 02 LINE + 1. + 152 03 COLUMN 01 PIC X(27) SOURCE PRR-EMPLOYEE-KEY. + 153 03 COLUMN 30 PIC X(5) VALUE "Hello" + 154 > PRESENT AFTER NEW PRR-EMPLOYEE-KEY +---- ^ + 155 OR PAGE. + 156 03 COLUMN 30 PIC X(5) VALUE " '' " +>> Hint: Missing WHEN + +run_reportwriter.at-2794-prog.cob:154.39-154.44: + 151 02 LINE + 1. + 152 03 COLUMN 01 PIC X(27) SOURCE PRR-EMPLOYEE-KEY. + 153 03 COLUMN 30 PIC X(5) VALUE "Hello" + 154 > PRESENT AFTER NEW PRR-EMPLOYEE-KEY +---- ^^^^^ + 155 OR PAGE. + 156 03 COLUMN 30 PIC X(5) VALUE " '' " +>> Error: Invalid syntax + +run_reportwriter.at-2794-prog.cob:157.31-157.37: + 154 PRESENT AFTER NEW PRR-EMPLOYEE-KEY + 155 OR PAGE. + 156 03 COLUMN 30 PIC X(5) VALUE " '' " + 157 > ABSENT AFTER NEW PRR-EMPLOYEE-KEY +---- ^^^^^^ + 158 OR PAGE. + 159 03 COLUMN 50 PIC 9(04).99 SOURCE PRR-GROSS-PAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:2890:0 +run_reportwriter.at-2890-reference:4.7-4.11: + 1 C E N T U R Y M E D I C A L C E N T E R + 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 + 3 + 4 > --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET +---- ^^^^ + 5 NO NAME PAY TAX TAX DEDUCT. PAY + 6 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-2890-reference:5.6-5.7: + 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 + 3 + 4 --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET + 5 > NO NAME PAY TAX TAX DEDUCT. PAY +---- ^ + 6 + 7 DEPARTMENT NUMBER: 01 MANAGEMENT +>> Error: Unexpected indicator: `N' + +run_reportwriter.at-2890-reference:7.6-7.7: + 4 --------- EMPLOYEE --------- GROSS FICA FED W/H MISC. NET + 5 NO NAME PAY TAX TAX DEDUCT. PAY + 6 + 7 > DEPARTMENT NUMBER: 01 MANAGEMENT +---- ^ + 8 + 9 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-2890-reference:9.6-9.7: + 6 + 7 DEPARTMENT NUMBER: 01 MANAGEMENT + 8 + 9 > 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 +---- ^ + 10 7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71 + 11 8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2890-reference:10.6-10.7: + 7 DEPARTMENT NUMBER: 01 MANAGEMENT + 8 + 9 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 + 10 > 7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71 +---- ^ + 11 8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43 + 12 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2890-reference:11.6-11.7: + 8 + 9 6622 GAVIN SHAFER $1,040.00 $60.84 $134.48 $4.75 $839.93 + 10 7078 VERA ALSTON $1,800.00 $105.30 $138.24 $3.75 $1,552.71 + 11 > 8093 GRADY KAISER $2,300.00 $134.57 $247.53 $6.50 $1,911.43 +---- ^ + 12 + 13 DEPARTMENT TOTALS $5,140.00 * $300.71 * $520.25 * $15.00 * $4,304.07 * +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2890-reference:16.6-16.7: + 13 DEPARTMENT TOTALS $5,140.00 * $300.71 * $520.25 * $15.00 * $4,304.07 * + 14 + 15 + 16 > DEPARTMENT NUMBER: 05 ADMINISTRATIVE +---- ^ + 17 + 18 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-2890-reference:18.6-18.7: + 15 + 16 DEPARTMENT NUMBER: 05 ADMINISTRATIVE + 17 + 18 > 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 +---- ^ + 19 2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55 + 20 6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-2890-reference:19.6-19.7: + 16 DEPARTMENT NUMBER: 05 ADMINISTRATIVE + 17 + 18 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 + 19 > 2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55 +---- ^ + 20 6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50 + 21 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2890-reference:20.6-20.7: + 17 + 18 1720 PAULINE WINSTON $680.00 $39.79 $290.36 $3.50 $526.37 + 19 2116 HERMAN COX $610.00 $35.69 $76.52 $7.25 $490.55 + 20 > 6925 ADOLF TRUJILLO $625.00 $36.55 $118.95 $4.00 $465.50 +---- ^ + 21 + 22 DEPARTMENT TOTALS $1,915.00 * $112.03 * $485.83 * $14.75 * $1,482.42 * +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2890-reference:25.6-25.7: + 22 DEPARTMENT TOTALS $1,915.00 * $112.03 * $485.83 * $14.75 * $1,482.42 * + 23 + 24 + 25 > DEPARTMENT NUMBER: 10 SKILLED NURSING +---- ^ + 26 + 27 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-2890-reference:27.6-27.7: + 24 + 25 DEPARTMENT NUMBER: 10 SKILLED NURSING + 26 + 27 > 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 +---- ^ + 28 6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59 + 29 9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30 +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-2890-reference:28.6-28.7: + 25 DEPARTMENT NUMBER: 10 SKILLED NURSING + 26 + 27 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 + 28 > 6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59 +---- ^ + 29 9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30 + 30 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-2890-reference:29.6-29.7: + 26 + 27 1504 TIFFANY KEIR $1,740.00 $101.82 $187.74 $1.75 $1,448.69 + 28 6640 ALEXANDER CATHEY $1,950.00 $114.06 $371.10 $7.25 $1,457.59 + 29 > 9465 STEVE HUGHES $1,475.00 $86.30 $239.40 $3.00 $1,146.30 +---- ^ + 30 + 31 DEPARTMENT TOTALS $5,165.00 * $302.18 * $798.24 * $12.00 * $4,052.58 * +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-2890-reference:34.6-34.7: + 31 DEPARTMENT TOTALS $5,165.00 * $302.18 * $798.24 * $12.00 * $4,052.58 * + 32 + 33 + 34 > DEPARTMENT NUMBER: 15 PATIENT SUPPORT +---- ^ + 35 + 36 2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-2890-reference:36.6-36.7: + 33 + 34 DEPARTMENT NUMBER: 15 PATIENT SUPPORT + 35 + 36 > 2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29 +---- ^ + 37 5196 CLAIRE KELLAR $886.00 $51.82 $102.80 $6.75 $724.63 + 38 +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-2890-reference:37.6-37.7: + 34 DEPARTMENT NUMBER: 15 PATIENT SUPPORT + 35 + 36 2903 KAYLA VERBECK $840.00 $49.14 $136.32 $5.25 $649.29 + 37 > 5196 CLAIRE KELLAR $886.00 $51.82 $102.80 $6.75 $724.63 +---- ^ + 38 + 39 DEPARTMENT TOTALS $1,726.00 * $100.96 * $239.12 * $12.00 * $1,373.92 * +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-2890-reference:42.6-42.7: + 39 DEPARTMENT TOTALS $1,726.00 * $100.96 * $239.12 * $12.00 * $1,373.92 * + 40 + 41 + 42 > DEPARTMENT NUMBER: 20 HOUSEKEEPING +---- ^ + 43 + 44 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-2890-reference:48.6-48.7: + 45 DEPARTMENT TOTALS $1,518.00 * $88.86 * $202.44 * $13.00 * $1,212.76 * + 46 + 47 + 48 > DEPARTMENT NUMBER: 25 MAINTENANCE +---- ^ + 49 + 50 2003 BALDWIN SIMONSEN $670.00 $39.22 $113.46 $4.75 $512.57 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-2890-reference:50.6-50.7: + 47 + 48 DEPARTMENT NUMBER: 25 MAINTENANCE + 49 + 50 > 2003 BALDWIN SIMONSEN $670.00 $39.22 $113.46 $4.75 $512.57 +---- ^ + 51 + 52 DEPARTMENT TOTALS $1,744.00 * $102.04 * $210.54 * $13.25 * $1,418.17 * +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-2890-reference:1.38-1.39: + 1 > C E N T U R Y M E D I C A L C E N T E R +---- ^ + 2 Q U A R T E R L Y P A Y R O L L R E G I S T E R PAGE 1 + 3 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3019:0 +run_reportwriter.at-3019-inp_data:1.6-1.7: + 1 > 00099Dorken, Keith CS 000008 +---- ^ + 2 00007Allinson, Sandy MA 000118 + 3 00125Allinson, Nina MA 012308 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3019-inp_data:2.6-2.7: + 1 00099Dorken, Keith CS 000008 + 2 > 00007Allinson, Sandy MA 000118 +---- ^ + 3 00125Allinson, Nina MA 012308 + 4 00126Allinson, Natalia MA 000008 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3019-inp_data:3.6-3.7: + 1 00099Dorken, Keith CS 000008 + 2 00007Allinson, Sandy MA 000118 + 3 > 00125Allinson, Nina MA 012308 +---- ^ + 4 00126Allinson, Natalia MA 000008 + 5 00127Allinson, Kristina MBA000008 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3019-inp_data:4.6-4.7: + 1 00099Dorken, Keith CS 000008 + 2 00007Allinson, Sandy MA 000118 + 3 00125Allinson, Nina MA 012308 + 4 > 00126Allinson, Natalia MA 000008 +---- ^ + 5 00127Allinson, Kristina MBA000008 + 6 00131Norman, Nancy SC 000006 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3019-inp_data:5.6-5.7: + 2 00007Allinson, Sandy MA 000118 + 3 00125Allinson, Nina MA 012308 + 4 00126Allinson, Natalia MA 000008 + 5 > 00127Allinson, Kristina MBA000008 +---- ^ + 6 00131Norman, Nancy SC 000006 + 7 00132Norman, Becky SC 000116 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3019-inp_data:6.6-6.7: + 3 00125Allinson, Nina MA 012308 + 4 00126Allinson, Natalia MA 000008 + 5 00127Allinson, Kristina MBA000008 + 6 > 00131Norman, Nancy SC 000006 +---- ^ + 7 00132Norman, Becky SC 000116 + 8 00133Norman, Michelle SC 112306 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3019-inp_data:7.6-7.7: + 4 00126Allinson, Natalia MA 000008 + 5 00127Allinson, Kristina MBA000008 + 6 00131Norman, Nancy SC 000006 + 7 > 00132Norman, Becky SC 000116 +---- ^ + 8 00133Norman, Michelle SC 112306 + 9 00134Norman, James AM 000006 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3019-inp_data:8.6-8.7: + 5 00127Allinson, Kristina MBA000008 + 6 00131Norman, Nancy SC 000006 + 7 00132Norman, Becky SC 000116 + 8 > 00133Norman, Michelle SC 112306 +---- ^ + 9 00134Norman, James AM 000006 + 10 12345Norman, Ron CS 000008 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3019-inp_data:9.6-9.7: + 6 00131Norman, Nancy SC 000006 + 7 00132Norman, Becky SC 000116 + 8 00133Norman, Michelle SC 112306 + 9 > 00134Norman, James AM 000006 +---- ^ + 10 12345Norman, Ron CS 000008 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3019-inp_data:10.6-10.7: + 7 00132Norman, Becky SC 000116 + 8 00133Norman, Michelle SC 112306 + 9 00134Norman, James AM 000006 + 10 > 12345Norman, Ron CS 000008 +---- ^ +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3019-inp_data:1.7-1.11: + 1 > 00099Dorken, Keith CS 000008 +---- ^^^^ + 2 00007Allinson, Sandy MA 000118 + 3 00125Allinson, Nina MA 012308 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3014:0 +run_reportwriter.at-3014-prog.cob:9.43-9.51: + 6 INPUT-OUTPUT SECTION. + 7 + 8 FILE-CONTROL. + 9 > SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT +---- ^^^^^^^^ + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3014-prog.cob:11.43-11.51: + 8 FILE-CONTROL. + 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 > SELECT PRINT-FILE ASSIGN TO EXTERNAL +---- ^^^^^^^^ + 12 LINE ADVANCING REPORT1. + 13 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3014-prog.cob:12.30-12.34: + 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 12 > LINE ADVANCING REPORT1. +---- ^^^^ + 13 + 14 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:12.34: + 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 12 > LINE ADVANCING REPORT1. +---- ^ + 13 + 14 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-3014-prog.cob:12.35-12.44: + 9 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 10 ORGANIZATION IS LINE SEQUENTIAL. + 11 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 12 > LINE ADVANCING REPORT1. +---- ^^^^^^^^^ + 13 + 14 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:25.13-25.22: + 22 + 23 FD PRINT-FILE + 24 BLOCK CONTAINS 0 RECORDS + 25 > RECORDING MODE IS F +---- ^^^^^^^^^ + 26 RECORD CONTAINS 132 CHARACTERS + 27 REPORT IS STUDENT-REPORT. +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:34.26: + 31 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES". + 32 + 33 REPORT SECTION. + 34 > RD STUDENT-REPORT +---- ^ + 35 PAGE LIMIT 30 + 36 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-3014-prog.cob:35.11-35.15: + 32 + 33 REPORT SECTION. + 34 RD STUDENT-REPORT + 35 > PAGE LIMIT 30 +---- ^^^^ + 36 HEADING 1 + 37 FIRST DETAIL 5 +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:35.24: + 32 + 33 REPORT SECTION. + 34 RD STUDENT-REPORT + 35 > PAGE LIMIT 30 +---- ^ + 36 HEADING 1 + 37 FIRST DETAIL 5 +>> Hint: Missing . + +run_reportwriter.at-3014-prog.cob:36.11-36.18: + 33 REPORT SECTION. + 34 RD STUDENT-REPORT + 35 PAGE LIMIT 30 + 36 > HEADING 1 +---- ^^^^^^^ + 37 FIRST DETAIL 5 + 38 LAST DETAIL 25 +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:36.20: + 33 REPORT SECTION. + 34 RD STUDENT-REPORT + 35 PAGE LIMIT 30 + 36 > HEADING 1 +---- ^ + 37 FIRST DETAIL 5 + 38 LAST DETAIL 25 +>> Hint: Missing . + +run_reportwriter.at-3014-prog.cob:37.11-37.16: + 34 RD STUDENT-REPORT + 35 PAGE LIMIT 30 + 36 HEADING 1 + 37 > FIRST DETAIL 5 +---- ^^^^^ + 38 LAST DETAIL 25 + 39 FOOTING 28 +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:37.26: + 34 RD STUDENT-REPORT + 35 PAGE LIMIT 30 + 36 HEADING 1 + 37 > FIRST DETAIL 5 +---- ^ + 38 LAST DETAIL 25 + 39 FOOTING 28 +>> Hint: Missing . + +run_reportwriter.at-3014-prog.cob:38.11-38.15: + 35 PAGE LIMIT 30 + 36 HEADING 1 + 37 FIRST DETAIL 5 + 38 > LAST DETAIL 25 +---- ^^^^ + 39 FOOTING 28 + 40 LINE LIMIT 90 +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:38.26: + 35 PAGE LIMIT 30 + 36 HEADING 1 + 37 FIRST DETAIL 5 + 38 > LAST DETAIL 25 +---- ^ + 39 FOOTING 28 + 40 LINE LIMIT 90 +>> Hint: Missing . + +run_reportwriter.at-3014-prog.cob:39.11-39.18: + 36 HEADING 1 + 37 FIRST DETAIL 5 + 38 LAST DETAIL 25 + 39 > FOOTING 28 +---- ^^^^^^^ + 40 LINE LIMIT 90 + 41 . +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:40.16-40.21: + 37 FIRST DETAIL 5 + 38 LAST DETAIL 25 + 39 FOOTING 28 + 40 > LINE LIMIT 90 +---- ^^^^^ + 41 . + 42 01 HEADING-LINE. +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:43.17: + 40 LINE LIMIT 90 + 41 . + 42 01 HEADING-LINE. + 43 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 44 05 COLUMN 1 PIC X(50) VALUE + 45 " 1 2 3 4 5". +>> Hint: Missing DETAIL + +run_reportwriter.at-3014-prog.cob:43.18-43.22: + 40 LINE LIMIT 90 + 41 . + 42 01 HEADING-LINE. + 43 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 44 05 COLUMN 1 PIC X(50) VALUE + 45 " 1 2 3 4 5". +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:47.17: + 44 05 COLUMN 1 PIC X(50) VALUE + 45 " 1 2 3 4 5". + 46 05 COLUMN 51 PIC X(20) VALUE " 6 7". + 47 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 48 05 COLUMN 1 PIC X(50) VALUE + 49 "12345678901234567890123456789012345678901234567890". +>> Hint: Missing DETAIL + +run_reportwriter.at-3014-prog.cob:47.18-47.22: + 44 05 COLUMN 1 PIC X(50) VALUE + 45 " 1 2 3 4 5". + 46 05 COLUMN 51 PIC X(20) VALUE " 6 7". + 47 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 48 05 COLUMN 1 PIC X(50) VALUE + 49 "12345678901234567890123456789012345678901234567890". +>> Error: Invalid syntax + +run_reportwriter.at-3014-prog.cob:51.17: + 48 05 COLUMN 1 PIC X(50) VALUE + 49 "12345678901234567890123456789012345678901234567890". + 50 05 COLUMN 51 PIC X(20) VALUE "12345678901234567890". + 51 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 52 05 COLUMN 1 PIC X(2) VALUE "Ln". + 53 05 COLUMN 5 PIC X(6) VALUE "--ID--". +>> Hint: Missing DETAIL + +run_reportwriter.at-3014-prog.cob:51.18-51.22: + 48 05 COLUMN 1 PIC X(50) VALUE + 49 "12345678901234567890123456789012345678901234567890". + 50 05 COLUMN 51 PIC X(20) VALUE "12345678901234567890". + 51 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 52 05 COLUMN 1 PIC X(2) VALUE "Ln". + 53 05 COLUMN 5 PIC X(6) VALUE "--ID--". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3058:0 +run_reportwriter.at-3058-reference:2.6-2.7: + 1 1 2 3 4 5 6 7 + 2 > 1234567890123456789012345678901234567890123456789012345678901234567890 +---- ^ + 3 Ln --ID-- --------Name-------- Major *-* +Odd+ +Even+ + 4 +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-3058-reference:3.6-3.7: + 1 1 2 3 4 5 6 7 + 2 1234567890123456789012345678901234567890123456789012345678901234567890 + 3 > Ln --ID-- --------Name-------- Major *-* +Odd+ +Even+ +---- ^ + 4 + 5 5 99 Dorken, Keith CS :-: 8 8 : +>> Error: Unexpected indicator: `I' + +run_reportwriter.at-3058-reference:7.6-7.7: + 4 + 5 5 99 Dorken, Keith CS :-: 8 8 : + 6 6 7 Allinson, Sandy MA :-: 118 118 : + 7 > 7 125 Allinson, Nina MA :-: 12308 12308 : +---- ^ + 8 8 126 Allinson, Natalia MA :-: 8 8 : + 9 9 127 Allinson, Kristina MBA :-: 8 8 : +>> Error: Unexpected indicator: `5' + +run_reportwriter.at-3058-reference:8.6-8.7: + 5 5 99 Dorken, Keith CS :-: 8 8 : + 6 6 7 Allinson, Sandy MA :-: 118 118 : + 7 7 125 Allinson, Nina MA :-: 12308 12308 : + 8 > 8 126 Allinson, Natalia MA :-: 8 8 : +---- ^ + 9 9 127 Allinson, Kristina MBA :-: 8 8 : + 10 10 131 Norman, Nancy SC :-: 6 6 : +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-3058-reference:9.6-9.7: + 6 6 7 Allinson, Sandy MA :-: 118 118 : + 7 7 125 Allinson, Nina MA :-: 12308 12308 : + 8 8 126 Allinson, Natalia MA :-: 8 8 : + 9 > 9 127 Allinson, Kristina MBA :-: 8 8 : +---- ^ + 10 10 131 Norman, Nancy SC :-: 6 6 : + 11 11 132 Norman, Becky SC :-: 116 116 : +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-3058-reference:10.6-10.7: + 7 7 125 Allinson, Nina MA :-: 12308 12308 : + 8 8 126 Allinson, Natalia MA :-: 8 8 : + 9 9 127 Allinson, Kristina MBA :-: 8 8 : + 10 > 10 131 Norman, Nancy SC :-: 6 6 : +---- ^ + 11 11 132 Norman, Becky SC :-: 116 116 : + 12 12 133 Norman, Michelle SC :-: 12306 112306 : +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3058-reference:11.6-11.7: + 8 8 126 Allinson, Natalia MA :-: 8 8 : + 9 9 127 Allinson, Kristina MBA :-: 8 8 : + 10 10 131 Norman, Nancy SC :-: 6 6 : + 11 > 11 132 Norman, Becky SC :-: 116 116 : +---- ^ + 12 12 133 Norman, Michelle SC :-: 12306 112306 : + 13 13 134 Norman, James AM :-: 6 6 : +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-3058-reference:12.6-12.7: + 9 9 127 Allinson, Kristina MBA :-: 8 8 : + 10 10 131 Norman, Nancy SC :-: 6 6 : + 11 11 132 Norman, Becky SC :-: 116 116 : + 12 > 12 133 Norman, Michelle SC :-: 12306 112306 : +---- ^ + 13 13 134 Norman, James AM :-: 6 6 : + 14 14 12345 Norman, Ron CS :-: 8 8 : +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-3058-reference:13.6-13.7: + 10 10 131 Norman, Nancy SC :-: 6 6 : + 11 11 132 Norman, Becky SC :-: 116 116 : + 12 12 133 Norman, Michelle SC :-: 12306 112306 : + 13 > 13 134 Norman, James AM :-: 6 6 : +---- ^ + 14 14 12345 Norman, Ron CS :-: 8 8 : + 15 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-3058-reference:14.6-14.7: + 11 11 132 Norman, Becky SC :-: 116 116 : + 12 12 133 Norman, Michelle SC :-: 12306 112306 : + 13 13 134 Norman, James AM :-: 6 6 : + 14 > 14 12345 Norman, Ron CS :-: 8 8 : +---- ^ + 15 + 16 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-3058-reference:1.9-1.10: + 1 > 1 2 3 4 5 6 7 +---- ^ + 2 1234567890123456789012345678901234567890123456789012345678901234567890 + 3 Ln --ID-- --------Name-------- Major *-* +Odd+ +Even+ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3173:0 +run_reportwriter.at-3173-inp_data:1.6-1.7: + 1 > 00123Dorken, Keith CS 08 +---- ^ + 2 00124Allinson, Sandy MA 08 + 3 00125Allinson, Nina MA 08 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3173-inp_data:2.6-2.7: + 1 00123Dorken, Keith CS 08 + 2 > 00124Allinson, Sandy MA 08 +---- ^ + 3 00125Allinson, Nina MA 08 + 4 00126Allinson, Natalia MA 08 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3173-inp_data:3.6-3.7: + 1 00123Dorken, Keith CS 08 + 2 00124Allinson, Sandy MA 08 + 3 > 00125Allinson, Nina MA 08 +---- ^ + 4 00126Allinson, Natalia MA 08 + 5 00127Allinson, Kristina MBA08 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3173-inp_data:4.6-4.7: + 1 00123Dorken, Keith CS 08 + 2 00124Allinson, Sandy MA 08 + 3 00125Allinson, Nina MA 08 + 4 > 00126Allinson, Natalia MA 08 +---- ^ + 5 00127Allinson, Kristina MBA08 + 6 00131Norman, Nancy SC 06 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3173-inp_data:5.6-5.7: + 2 00124Allinson, Sandy MA 08 + 3 00125Allinson, Nina MA 08 + 4 00126Allinson, Natalia MA 08 + 5 > 00127Allinson, Kristina MBA08 +---- ^ + 6 00131Norman, Nancy SC 06 + 7 00132Norman, Becky SC 06 +>> Error: Unexpected indicator: `l' + +run_reportwriter.at-3173-inp_data:6.6-6.7: + 3 00125Allinson, Nina MA 08 + 4 00126Allinson, Natalia MA 08 + 5 00127Allinson, Kristina MBA08 + 6 > 00131Norman, Nancy SC 06 +---- ^ + 7 00132Norman, Becky SC 06 + 8 00133Norman, Michelle SC 06 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3173-inp_data:7.6-7.7: + 4 00126Allinson, Natalia MA 08 + 5 00127Allinson, Kristina MBA08 + 6 00131Norman, Nancy SC 06 + 7 > 00132Norman, Becky SC 06 +---- ^ + 8 00133Norman, Michelle SC 06 + 9 00134Norman, James AM 06 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3173-inp_data:8.6-8.7: + 5 00127Allinson, Kristina MBA08 + 6 00131Norman, Nancy SC 06 + 7 00132Norman, Becky SC 06 + 8 > 00133Norman, Michelle SC 06 +---- ^ + 9 00134Norman, James AM 06 + 10 12345Norman, Ron CS 08 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3173-inp_data:9.6-9.7: + 6 00131Norman, Nancy SC 06 + 7 00132Norman, Becky SC 06 + 8 00133Norman, Michelle SC 06 + 9 > 00134Norman, James AM 06 +---- ^ + 10 12345Norman, Ron CS 08 +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3173-inp_data:10.6-10.7: + 7 00132Norman, Becky SC 06 + 8 00133Norman, Michelle SC 06 + 9 00134Norman, James AM 06 + 10 > 12345Norman, Ron CS 08 +---- ^ +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3173-inp_data:1.7-1.11: + 1 > 00123Dorken, Keith CS 08 +---- ^^^^ + 2 00124Allinson, Sandy MA 08 + 3 00125Allinson, Nina MA 08 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3171:0 +run_reportwriter.at-3171-prog.cob:8.43-8.51: + 5 CONFIGURATION SECTION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT +---- ^^^^^^^^ + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3171-prog.cob:10.43-10.51: + 7 FILE-CONTROL. + 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 > SELECT PRINT-FILE ASSIGN TO EXTERNAL +---- ^^^^^^^^ + 11 LINE ADVANCING REPORT1. + 12 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3171-prog.cob:11.30-11.34: + 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT1. +---- ^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:11.34: + 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT1. +---- ^ + 12 + 13 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-3171-prog.cob:11.35-11.44: + 8 SELECT INPUT-FILE ASSIGN TO EXTERNAL STUDENT + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT1. +---- ^^^^^^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:29.26: + 26 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES". + 27 + 28 REPORT SECTION. + 29 > RD STUDENT-REPORT +---- ^ + 30 PAGE LIMIT 30 LINES + 31 HEADING 2 +>> Hint: Missing . + +run_reportwriter.at-3171-prog.cob:30.11-30.15: + 27 + 28 REPORT SECTION. + 29 RD STUDENT-REPORT + 30 > PAGE LIMIT 30 LINES +---- ^^^^ + 31 HEADING 2 + 32 FIRST DETAIL 3 +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:30.30: + 27 + 28 REPORT SECTION. + 29 RD STUDENT-REPORT + 30 > PAGE LIMIT 30 LINES +---- ^ + 31 HEADING 2 + 32 FIRST DETAIL 3 +>> Hint: Missing ARE + +run_reportwriter.at-3171-prog.cob:31.11-31.18: + 28 REPORT SECTION. + 29 RD STUDENT-REPORT + 30 PAGE LIMIT 30 LINES + 31 > HEADING 2 +---- ^^^^^^^ + 32 FIRST DETAIL 3 + 33 LAST DETAIL 25 +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:32.11-32.16: + 29 RD STUDENT-REPORT + 30 PAGE LIMIT 30 LINES + 31 HEADING 2 + 32 > FIRST DETAIL 3 +---- ^^^^^ + 33 LAST DETAIL 25 + 34 FOOTING 28. +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:33.11-33.15: + 30 PAGE LIMIT 30 LINES + 31 HEADING 2 + 32 FIRST DETAIL 3 + 33 > LAST DETAIL 25 +---- ^^^^ + 34 FOOTING 28. + 35 01 REPORT-LINE +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:34.11-34.18: + 31 HEADING 2 + 32 FIRST DETAIL 3 + 33 LAST DETAIL 25 + 34 > FOOTING 28. +---- ^^^^^^^ + 35 01 REPORT-LINE + 36 TYPE DETAIL +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:46.26: + 43 05 COLUMN 45 PIC XXX VALUE "-*-". + 44 05 COLUMN 52 PIC 99 SOURCE NUM-COURSES. + 45 + 46 > RD STUDENT-REPORT2 +---- ^ + 47 PAGE LIMIT 60 LINES + 48 HEADING 2 +>> Hint: Missing . + +run_reportwriter.at-3171-prog.cob:47.11-47.15: + 44 05 COLUMN 52 PIC 99 SOURCE NUM-COURSES. + 45 + 46 RD STUDENT-REPORT2 + 47 > PAGE LIMIT 60 LINES +---- ^^^^ + 48 HEADING 2 + 49 FIRST DETAIL 5 +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:47.30: + 44 05 COLUMN 52 PIC 99 SOURCE NUM-COURSES. + 45 + 46 RD STUDENT-REPORT2 + 47 > PAGE LIMIT 60 LINES +---- ^ + 48 HEADING 2 + 49 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-3171-prog.cob:48.11-48.18: + 45 + 46 RD STUDENT-REPORT2 + 47 PAGE LIMIT 60 LINES + 48 > HEADING 2 +---- ^^^^^^^ + 49 FIRST DETAIL 5 + 50 LAST DETAIL 55 +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:49.11-49.16: + 46 RD STUDENT-REPORT2 + 47 PAGE LIMIT 60 LINES + 48 HEADING 2 + 49 > FIRST DETAIL 5 +---- ^^^^^ + 50 LAST DETAIL 55 + 51 FOOTING 58. +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:50.11-50.15: + 47 PAGE LIMIT 60 LINES + 48 HEADING 2 + 49 FIRST DETAIL 5 + 50 > LAST DETAIL 55 +---- ^^^^ + 51 FOOTING 58. + 52 01 REPORT-LINE2 +>> Error: Invalid syntax + +run_reportwriter.at-3171-prog.cob:51.11-51.18: + 48 HEADING 2 + 49 FIRST DETAIL 5 + 50 LAST DETAIL 55 + 51 > FOOTING 58. +---- ^^^^^^^ + 52 01 REPORT-LINE2 + 53 TYPE DETAIL +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3210:0 +run_reportwriter.at-3210-reference:3.6-3.7: + 1 + 2 + 3 > 03 000123 Dorken, Keith CS -*- 08 +---- ^ + 4 04 000124 Allinson, Sandy MA -*- 08 + 5 05 000125 Allinson, Nina MA -*- 08 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:4.6-4.7: + 1 + 2 + 3 03 000123 Dorken, Keith CS -*- 08 + 4 > 04 000124 Allinson, Sandy MA -*- 08 +---- ^ + 5 05 000125 Allinson, Nina MA -*- 08 + 6 06 000126 Allinson, Natalia MA -*- 08 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:5.6-5.7: + 2 + 3 03 000123 Dorken, Keith CS -*- 08 + 4 04 000124 Allinson, Sandy MA -*- 08 + 5 > 05 000125 Allinson, Nina MA -*- 08 +---- ^ + 6 06 000126 Allinson, Natalia MA -*- 08 + 7 07 000127 Allinson, Kristina MBA -*- 08 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:6.6-6.7: + 3 03 000123 Dorken, Keith CS -*- 08 + 4 04 000124 Allinson, Sandy MA -*- 08 + 5 05 000125 Allinson, Nina MA -*- 08 + 6 > 06 000126 Allinson, Natalia MA -*- 08 +---- ^ + 7 07 000127 Allinson, Kristina MBA -*- 08 + 8 08 000131 Norman, Nancy SC -*- 06 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:7.6-7.7: + 4 04 000124 Allinson, Sandy MA -*- 08 + 5 05 000125 Allinson, Nina MA -*- 08 + 6 06 000126 Allinson, Natalia MA -*- 08 + 7 > 07 000127 Allinson, Kristina MBA -*- 08 +---- ^ + 8 08 000131 Norman, Nancy SC -*- 06 + 9 09 000132 Norman, Becky SC -*- 06 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:8.6-8.7: + 5 05 000125 Allinson, Nina MA -*- 08 + 6 06 000126 Allinson, Natalia MA -*- 08 + 7 07 000127 Allinson, Kristina MBA -*- 08 + 8 > 08 000131 Norman, Nancy SC -*- 06 +---- ^ + 9 09 000132 Norman, Becky SC -*- 06 + 10 10 000133 Norman, Michelle SC -*- 06 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:9.6-9.7: + 6 06 000126 Allinson, Natalia MA -*- 08 + 7 07 000127 Allinson, Kristina MBA -*- 08 + 8 08 000131 Norman, Nancy SC -*- 06 + 9 > 09 000132 Norman, Becky SC -*- 06 +---- ^ + 10 10 000133 Norman, Michelle SC -*- 06 + 11 11 000134 Norman, James AM -*- 06 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:10.6-10.7: + 7 07 000127 Allinson, Kristina MBA -*- 08 + 8 08 000131 Norman, Nancy SC -*- 06 + 9 09 000132 Norman, Becky SC -*- 06 + 10 > 10 000133 Norman, Michelle SC -*- 06 +---- ^ + 11 11 000134 Norman, James AM -*- 06 + 12 12 012345 Norman, Ron CS -*- 08 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:11.6-11.7: + 8 08 000131 Norman, Nancy SC -*- 06 + 9 09 000132 Norman, Becky SC -*- 06 + 10 10 000133 Norman, Michelle SC -*- 06 + 11 > 11 000134 Norman, James AM -*- 06 +---- ^ + 12 12 012345 Norman, Ron CS -*- 08 + 13 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-3210-reference:12.6-12.7: + 9 09 000132 Norman, Becky SC -*- 06 + 10 10 000133 Norman, Michelle SC -*- 06 + 11 11 000134 Norman, James AM -*- 06 + 12 > 12 012345 Norman, Ron CS -*- 08 +---- ^ + 13 + 14 +>> Error: Unexpected indicator: `3' + +run_reportwriter.at-3210-reference:3.7-3.9: + 1 + 2 + 3 > 03 000123 Dorken, Keith CS -*- 08 +---- ^^ + 4 04 000124 Allinson, Sandy MA -*- 08 + 5 05 000125 Allinson, Nina MA -*- 08 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3441:0 +run_reportwriter.at-3441-inp_data:1.6-1.7: + 1 > 10001090001012010590416 $ +---- ^ + 2 10001090002013016950416 $ + 3 10002090002023016950416 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:2.6-2.7: + 1 10001090001012010590416 $ + 2 > 10001090002013016950416 $ +---- ^ + 3 10002090002023016950416 $ + 4 10002090001022010590416 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:3.6-3.7: + 1 10001090001012010590416 $ + 2 10001090002013016950416 $ + 3 > 10002090002023016950416 $ +---- ^ + 4 10002090001022010590416 $ + 5 10003090007023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:4.6-4.7: + 1 10001090001012010590416 $ + 2 10001090002013016950416 $ + 3 10002090002023016950416 $ + 4 > 10002090001022010590416 $ +---- ^ + 5 10003090007023016950417 $ + 6 10003090008032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:5.6-5.7: + 2 10001090002013016950416 $ + 3 10002090002023016950416 $ + 4 10002090001022010590416 $ + 5 > 10003090007023016950417 $ +---- ^ + 6 10003090008032010590417 $ + 7 10003090009023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:6.6-6.7: + 3 10002090002023016950416 $ + 4 10002090001022010590416 $ + 5 10003090007023016950417 $ + 6 > 10003090008032010590417 $ +---- ^ + 7 10003090009023016950417 $ + 8 10003090010032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:7.6-7.7: + 4 10002090001022010590416 $ + 5 10003090007023016950417 $ + 6 10003090008032010590417 $ + 7 > 10003090009023016950417 $ +---- ^ + 8 10003090010032010590417 $ + 9 10004090007023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:8.6-8.7: + 5 10003090007023016950417 $ + 6 10003090008032010590417 $ + 7 10003090009023016950417 $ + 8 > 10003090010032010590417 $ +---- ^ + 9 10004090007023016950417 $ + 10 10004090008032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:9.6-9.7: + 6 10003090008032010590417 $ + 7 10003090009023016950417 $ + 8 10003090010032010590417 $ + 9 > 10004090007023016950417 $ +---- ^ + 10 10004090008032010590417 $ + 11 10004090009023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:10.6-10.7: + 7 10003090009023016950417 $ + 8 10003090010032010590417 $ + 9 10004090007023016950417 $ + 10 > 10004090008032010590417 $ +---- ^ + 11 10004090009023016950417 $ + 12 10004090010032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:11.6-11.7: + 8 10003090010032010590417 $ + 9 10004090007023016950417 $ + 10 10004090008032010590417 $ + 11 > 10004090009023016950417 $ +---- ^ + 12 10004090010032010590417 $ + 13 10004090011032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:12.6-12.7: + 9 10004090007023016950417 $ + 10 10004090008032010590417 $ + 11 10004090009023016950417 $ + 12 > 10004090010032010590417 $ +---- ^ + 13 10004090011032010590417 $ + 14 10004090012032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:13.6-13.7: + 10 10004090008032010590417 $ + 11 10004090009023016950417 $ + 12 10004090010032010590417 $ + 13 > 10004090011032010590417 $ +---- ^ + 14 10004090012032010590417 $ + 15 10004090013032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:14.6-14.7: + 11 10004090009023016950417 $ + 12 10004090010032010590417 $ + 13 10004090011032010590417 $ + 14 > 10004090012032010590417 $ +---- ^ + 15 10004090013032010590417 $ + 16 10004090014032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:15.6-15.7: + 12 10004090010032010590417 $ + 13 10004090011032010590417 $ + 14 10004090012032010590417 $ + 15 > 10004090013032010590417 $ +---- ^ + 16 10004090014032010590417 $ + 17 10004090015032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:16.6-16.7: + 13 10004090011032010590417 $ + 14 10004090012032010590417 $ + 15 10004090013032010590417 $ + 16 > 10004090014032010590417 $ +---- ^ + 17 10004090015032010590417 $ + 18 10005090007023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:17.6-17.7: + 14 10004090012032010590417 $ + 15 10004090013032010590417 $ + 16 10004090014032010590417 $ + 17 > 10004090015032010590417 $ +---- ^ + 18 10005090007023016950417 $ + 19 10005090008032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:18.6-18.7: + 15 10004090013032010590417 $ + 16 10004090014032010590417 $ + 17 10004090015032010590417 $ + 18 > 10005090007023016950417 $ +---- ^ + 19 10005090008032010590417 $ + 20 10005090009023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:19.6-19.7: + 16 10004090014032010590417 $ + 17 10004090015032010590417 $ + 18 10005090007023016950417 $ + 19 > 10005090008032010590417 $ +---- ^ + 20 10005090009023016950417 $ + 21 10005090010032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:20.6-20.7: + 17 10004090015032010590417 $ + 18 10005090007023016950417 $ + 19 10005090008032010590417 $ + 20 > 10005090009023016950417 $ +---- ^ + 21 10005090010032010590417 $ + 22 10005090011032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:21.6-21.7: + 18 10005090007023016950417 $ + 19 10005090008032010590417 $ + 20 10005090009023016950417 $ + 21 > 10005090010032010590417 $ +---- ^ + 22 10005090011032010590417 $ + 23 10005090012032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:22.6-22.7: + 19 10005090008032010590417 $ + 20 10005090009023016950417 $ + 21 10005090010032010590417 $ + 22 > 10005090011032010590417 $ +---- ^ + 23 10005090012032010590417 $ + 24 10005090013032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:23.6-23.7: + 20 10005090009023016950417 $ + 21 10005090010032010590417 $ + 22 10005090011032010590417 $ + 23 > 10005090012032010590417 $ +---- ^ + 24 10005090013032010590417 $ + 25 10005090014032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:24.6-24.7: + 21 10005090010032010590417 $ + 22 10005090011032010590417 $ + 23 10005090012032010590417 $ + 24 > 10005090013032010590417 $ +---- ^ + 25 10005090014032010590417 $ + 26 10005090015032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:25.6-25.7: + 22 10005090011032010590417 $ + 23 10005090012032010590417 $ + 24 10005090013032010590417 $ + 25 > 10005090014032010590417 $ +---- ^ + 26 10005090015032010590417 $ + 27 10005090016032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:26.6-26.7: + 23 10005090012032010590417 $ + 24 10005090013032010590417 $ + 25 10005090014032010590417 $ + 26 > 10005090015032010590417 $ +---- ^ + 27 10005090016032010590417 $ + 28 10005090017032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:27.6-27.7: + 24 10005090013032010590417 $ + 25 10005090014032010590417 $ + 26 10005090015032010590417 $ + 27 > 10005090016032010590417 $ +---- ^ + 28 10005090017032010590417 $ + 29 10005090018032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:28.6-28.7: + 25 10005090014032010590417 $ + 26 10005090015032010590417 $ + 27 10005090016032010590417 $ + 28 > 10005090017032010590417 $ +---- ^ + 29 10005090018032010590417 $ + 30 10006090007023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:29.6-29.7: + 26 10005090015032010590417 $ + 27 10005090016032010590417 $ + 28 10005090017032010590417 $ + 29 > 10005090018032010590417 $ +---- ^ + 30 10006090007023016950417 $ + 31 10006090008032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:30.6-30.7: + 27 10005090016032010590417 $ + 28 10005090017032010590417 $ + 29 10005090018032010590417 $ + 30 > 10006090007023016950417 $ +---- ^ + 31 10006090008032010590417 $ + 32 10006090009023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:31.6-31.7: + 28 10005090017032010590417 $ + 29 10005090018032010590417 $ + 30 10006090007023016950417 $ + 31 > 10006090008032010590417 $ +---- ^ + 32 10006090009023016950417 $ + 33 10006090010032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:32.6-32.7: + 29 10005090018032010590417 $ + 30 10006090007023016950417 $ + 31 10006090008032010590417 $ + 32 > 10006090009023016950417 $ +---- ^ + 33 10006090010032010590417 $ + 34 10006090011032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:33.6-33.7: + 30 10006090007023016950417 $ + 31 10006090008032010590417 $ + 32 10006090009023016950417 $ + 33 > 10006090010032010590417 $ +---- ^ + 34 10006090011032010590417 $ + 35 10006090012032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:34.6-34.7: + 31 10006090008032010590417 $ + 32 10006090009023016950417 $ + 33 10006090010032010590417 $ + 34 > 10006090011032010590417 $ +---- ^ + 35 10006090012032010590417 $ + 36 10006090013032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:35.6-35.7: + 32 10006090009023016950417 $ + 33 10006090010032010590417 $ + 34 10006090011032010590417 $ + 35 > 10006090012032010590417 $ +---- ^ + 36 10006090013032010590417 $ + 37 10006090014032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:36.6-36.7: + 33 10006090010032010590417 $ + 34 10006090011032010590417 $ + 35 10006090012032010590417 $ + 36 > 10006090013032010590417 $ +---- ^ + 37 10006090014032010590417 $ + 38 10006090015032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:37.6-37.7: + 34 10006090011032010590417 $ + 35 10006090012032010590417 $ + 36 10006090013032010590417 $ + 37 > 10006090014032010590417 $ +---- ^ + 38 10006090015032010590417 $ + 39 10006090016032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:38.6-38.7: + 35 10006090012032010590417 $ + 36 10006090013032010590417 $ + 37 10006090014032010590417 $ + 38 > 10006090015032010590417 $ +---- ^ + 39 10006090016032010590417 $ + 40 10006090017032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:39.6-39.7: + 36 10006090013032010590417 $ + 37 10006090014032010590417 $ + 38 10006090015032010590417 $ + 39 > 10006090016032010590417 $ +---- ^ + 40 10006090017032010590417 $ + 41 10006090018032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:40.6-40.7: + 37 10006090014032010590417 $ + 38 10006090015032010590417 $ + 39 10006090016032010590417 $ + 40 > 10006090017032010590417 $ +---- ^ + 41 10006090018032010590417 $ + 42 10006090019032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:41.6-41.7: + 38 10006090015032010590417 $ + 39 10006090016032010590417 $ + 40 10006090017032010590417 $ + 41 > 10006090018032010590417 $ +---- ^ + 42 10006090019032010590417 $ + 43 10006090020032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:42.6-42.7: + 39 10006090016032010590417 $ + 40 10006090017032010590417 $ + 41 10006090018032010590417 $ + 42 > 10006090019032010590417 $ +---- ^ + 43 10006090020032010590417 $ + 44 10007090007023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:43.6-43.7: + 40 10006090017032010590417 $ + 41 10006090018032010590417 $ + 42 10006090019032010590417 $ + 43 > 10006090020032010590417 $ +---- ^ + 44 10007090007023016950417 $ + 45 10007090008032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:44.6-44.7: + 41 10006090018032010590417 $ + 42 10006090019032010590417 $ + 43 10006090020032010590417 $ + 44 > 10007090007023016950417 $ +---- ^ + 45 10007090008032010590417 $ + 46 10007090009023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:45.6-45.7: + 42 10006090019032010590417 $ + 43 10006090020032010590417 $ + 44 10007090007023016950417 $ + 45 > 10007090008032010590417 $ +---- ^ + 46 10007090009023016950417 $ + 47 10007090010032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:46.6-46.7: + 43 10006090020032010590417 $ + 44 10007090007023016950417 $ + 45 10007090008032010590417 $ + 46 > 10007090009023016950417 $ +---- ^ + 47 10007090010032010590417 $ + 48 10007090011032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:47.6-47.7: + 44 10007090007023016950417 $ + 45 10007090008032010590417 $ + 46 10007090009023016950417 $ + 47 > 10007090010032010590417 $ +---- ^ + 48 10007090011032010590417 $ + 49 10007090012032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:48.6-48.7: + 45 10007090008032010590417 $ + 46 10007090009023016950417 $ + 47 10007090010032010590417 $ + 48 > 10007090011032010590417 $ +---- ^ + 49 10007090012032010590417 $ + 50 10007090013032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:49.6-49.7: + 46 10007090009023016950417 $ + 47 10007090010032010590417 $ + 48 10007090011032010590417 $ + 49 > 10007090012032010590417 $ +---- ^ + 50 10007090013032010590417 $ + 51 10007090014032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:50.6-50.7: + 47 10007090010032010590417 $ + 48 10007090011032010590417 $ + 49 10007090012032010590417 $ + 50 > 10007090013032010590417 $ +---- ^ + 51 10007090014032010590417 $ + 52 10007090015032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:51.6-51.7: + 48 10007090011032010590417 $ + 49 10007090012032010590417 $ + 50 10007090013032010590417 $ + 51 > 10007090014032010590417 $ +---- ^ + 52 10007090015032010590417 $ + 53 10007090016032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:52.6-52.7: + 49 10007090012032010590417 $ + 50 10007090013032010590417 $ + 51 10007090014032010590417 $ + 52 > 10007090015032010590417 $ +---- ^ + 53 10007090016032010590417 $ + 54 10007090017032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:53.6-53.7: + 50 10007090013032010590417 $ + 51 10007090014032010590417 $ + 52 10007090015032010590417 $ + 53 > 10007090016032010590417 $ +---- ^ + 54 10007090017032010590417 $ + 55 10007090018032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:54.6-54.7: + 51 10007090014032010590417 $ + 52 10007090015032010590417 $ + 53 10007090016032010590417 $ + 54 > 10007090017032010590417 $ +---- ^ + 55 10007090018032010590417 $ + 56 10007090019032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:55.6-55.7: + 52 10007090015032010590417 $ + 53 10007090016032010590417 $ + 54 10007090017032010590417 $ + 55 > 10007090018032010590417 $ +---- ^ + 56 10007090019032010590417 $ + 57 10007090020032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:56.6-56.7: + 53 10007090016032010590417 $ + 54 10007090017032010590417 $ + 55 10007090018032010590417 $ + 56 > 10007090019032010590417 $ +---- ^ + 57 10007090020032010590417 $ + 58 10007090021032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:57.6-57.7: + 54 10007090017032010590417 $ + 55 10007090018032010590417 $ + 56 10007090019032010590417 $ + 57 > 10007090020032010590417 $ +---- ^ + 58 10007090021032010590417 $ + 59 10007090022032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:58.6-58.7: + 55 10007090018032010590417 $ + 56 10007090019032010590417 $ + 57 10007090020032010590417 $ + 58 > 10007090021032010590417 $ +---- ^ + 59 10007090022032010590417 $ + 60 10008090007023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:59.6-59.7: + 56 10007090019032010590417 $ + 57 10007090020032010590417 $ + 58 10007090021032010590417 $ + 59 > 10007090022032010590417 $ +---- ^ + 60 10008090007023016950417 $ + 61 10008090008032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:60.6-60.7: + 57 10007090020032010590417 $ + 58 10007090021032010590417 $ + 59 10007090022032010590417 $ + 60 > 10008090007023016950417 $ +---- ^ + 61 10008090008032010590417 $ + 62 10008090009023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:61.6-61.7: + 58 10007090021032010590417 $ + 59 10007090022032010590417 $ + 60 10008090007023016950417 $ + 61 > 10008090008032010590417 $ +---- ^ + 62 10008090009023016950417 $ + 63 10008090010032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:62.6-62.7: + 59 10007090022032010590417 $ + 60 10008090007023016950417 $ + 61 10008090008032010590417 $ + 62 > 10008090009023016950417 $ +---- ^ + 63 10008090010032010590417 $ + 64 10008090011032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:63.6-63.7: + 60 10008090007023016950417 $ + 61 10008090008032010590417 $ + 62 10008090009023016950417 $ + 63 > 10008090010032010590417 $ +---- ^ + 64 10008090011032010590417 $ + 65 10008090012032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:64.6-64.7: + 61 10008090008032010590417 $ + 62 10008090009023016950417 $ + 63 10008090010032010590417 $ + 64 > 10008090011032010590417 $ +---- ^ + 65 10008090012032010590417 $ + 66 10008090013032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:65.6-65.7: + 62 10008090009023016950417 $ + 63 10008090010032010590417 $ + 64 10008090011032010590417 $ + 65 > 10008090012032010590417 $ +---- ^ + 66 10008090013032010590417 $ + 67 10008090014032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:66.6-66.7: + 63 10008090010032010590417 $ + 64 10008090011032010590417 $ + 65 10008090012032010590417 $ + 66 > 10008090013032010590417 $ +---- ^ + 67 10008090014032010590417 $ + 68 10008090015032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:67.6-67.7: + 64 10008090011032010590417 $ + 65 10008090012032010590417 $ + 66 10008090013032010590417 $ + 67 > 10008090014032010590417 $ +---- ^ + 68 10008090015032010590417 $ + 69 10008090016032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:68.6-68.7: + 65 10008090012032010590417 $ + 66 10008090013032010590417 $ + 67 10008090014032010590417 $ + 68 > 10008090015032010590417 $ +---- ^ + 69 10008090016032010590417 $ + 70 10008090017032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:69.6-69.7: + 66 10008090013032010590417 $ + 67 10008090014032010590417 $ + 68 10008090015032010590417 $ + 69 > 10008090016032010590417 $ +---- ^ + 70 10008090017032010590417 $ + 71 10008090018032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:70.6-70.7: + 67 10008090014032010590417 $ + 68 10008090015032010590417 $ + 69 10008090016032010590417 $ + 70 > 10008090017032010590417 $ +---- ^ + 71 10008090018032010590417 $ + 72 10008090019032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:71.6-71.7: + 68 10008090015032010590417 $ + 69 10008090016032010590417 $ + 70 10008090017032010590417 $ + 71 > 10008090018032010590417 $ +---- ^ + 72 10008090019032010590417 $ + 73 10008090020032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:72.6-72.7: + 69 10008090016032010590417 $ + 70 10008090017032010590417 $ + 71 10008090018032010590417 $ + 72 > 10008090019032010590417 $ +---- ^ + 73 10008090020032010590417 $ + 74 10008090021032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:73.6-73.7: + 70 10008090017032010590417 $ + 71 10008090018032010590417 $ + 72 10008090019032010590417 $ + 73 > 10008090020032010590417 $ +---- ^ + 74 10008090021032010590417 $ + 75 10008090022032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:74.6-74.7: + 71 10008090018032010590417 $ + 72 10008090019032010590417 $ + 73 10008090020032010590417 $ + 74 > 10008090021032010590417 $ +---- ^ + 75 10008090022032010590417 $ + 76 10009090007023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:75.6-75.7: + 72 10008090019032010590417 $ + 73 10008090020032010590417 $ + 74 10008090021032010590417 $ + 75 > 10008090022032010590417 $ +---- ^ + 76 10009090007023016950417 $ + 77 10009090008032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:76.6-76.7: + 73 10008090020032010590417 $ + 74 10008090021032010590417 $ + 75 10008090022032010590417 $ + 76 > 10009090007023016950417 $ +---- ^ + 77 10009090008032010590417 $ + 78 10009090009023016950417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:77.6-77.7: + 74 10008090021032010590417 $ + 75 10008090022032010590417 $ + 76 10009090007023016950417 $ + 77 > 10009090008032010590417 $ +---- ^ + 78 10009090009023016950417 $ + 79 10009090010032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:78.6-78.7: + 75 10008090022032010590417 $ + 76 10009090007023016950417 $ + 77 10009090008032010590417 $ + 78 > 10009090009023016950417 $ +---- ^ + 79 10009090010032010590417 $ + 80 10009090011032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:79.6-79.7: + 76 10009090007023016950417 $ + 77 10009090008032010590417 $ + 78 10009090009023016950417 $ + 79 > 10009090010032010590417 $ +---- ^ + 80 10009090011032010590417 $ + 81 10009090012032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:80.6-80.7: + 77 10009090008032010590417 $ + 78 10009090009023016950417 $ + 79 10009090010032010590417 $ + 80 > 10009090011032010590417 $ +---- ^ + 81 10009090012032010590417 $ + 82 10009090013032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:81.6-81.7: + 78 10009090009023016950417 $ + 79 10009090010032010590417 $ + 80 10009090011032010590417 $ + 81 > 10009090012032010590417 $ +---- ^ + 82 10009090013032010590417 $ + 83 10009090014032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:82.6-82.7: + 79 10009090010032010590417 $ + 80 10009090011032010590417 $ + 81 10009090012032010590417 $ + 82 > 10009090013032010590417 $ +---- ^ + 83 10009090014032010590417 $ + 84 10009090015032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:83.6-83.7: + 80 10009090011032010590417 $ + 81 10009090012032010590417 $ + 82 10009090013032010590417 $ + 83 > 10009090014032010590417 $ +---- ^ + 84 10009090015032010590417 $ + 85 10009090016032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:84.6-84.7: + 81 10009090012032010590417 $ + 82 10009090013032010590417 $ + 83 10009090014032010590417 $ + 84 > 10009090015032010590417 $ +---- ^ + 85 10009090016032010590417 $ + 86 10009090017032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:85.6-85.7: + 82 10009090013032010590417 $ + 83 10009090014032010590417 $ + 84 10009090015032010590417 $ + 85 > 10009090016032010590417 $ +---- ^ + 86 10009090017032010590417 $ + 87 10009090018032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:86.6-86.7: + 83 10009090014032010590417 $ + 84 10009090015032010590417 $ + 85 10009090016032010590417 $ + 86 > 10009090017032010590417 $ +---- ^ + 87 10009090018032010590417 $ + 88 10009090019032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:87.6-87.7: + 84 10009090015032010590417 $ + 85 10009090016032010590417 $ + 86 10009090017032010590417 $ + 87 > 10009090018032010590417 $ +---- ^ + 88 10009090019032010590417 $ + 89 10009090020032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:88.6-88.7: + 85 10009090016032010590417 $ + 86 10009090017032010590417 $ + 87 10009090018032010590417 $ + 88 > 10009090019032010590417 $ +---- ^ + 89 10009090020032010590417 $ + 90 10009090021032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:89.6-89.7: + 86 10009090017032010590417 $ + 87 10009090018032010590417 $ + 88 10009090019032010590417 $ + 89 > 10009090020032010590417 $ +---- ^ + 90 10009090021032010590417 $ + 91 10009090022032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:90.6-90.7: + 87 10009090018032010590417 $ + 88 10009090019032010590417 $ + 89 10009090020032010590417 $ + 90 > 10009090021032010590417 $ +---- ^ + 91 10009090022032010590417 $ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:91.6-91.7: + 88 10009090019032010590417 $ + 89 10009090020032010590417 $ + 90 10009090021032010590417 $ + 91 > 10009090022032010590417 $ +---- ^ +>> Error: Unexpected indicator: `9' + +run_reportwriter.at-3441-inp_data:1.7-1.23: + 1 > 10001090001012010590416 $ +---- ^^^^^^^^^^^^^^^^ + 2 10001090002013016950416 $ + 3 10002090002023016950416 $ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3439:0 +run_reportwriter.at-3439-prog.cob:8.44-8.52: + 5 CONFIGURATION SECTION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD +---- ^^^^^^^^ + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3439-prog.cob:10.44-10.52: + 7 FILE-CONTROL. + 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 > SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL +---- ^^^^^^^^ + 11 LINE ADVANCING REPORT2. + 12 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3439-prog.cob:11.26-11.30: + 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT2. +---- ^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3439-prog.cob:11.30: + 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT2. +---- ^ + 12 + 13 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-3439-prog.cob:11.31-11.40: + 8 SELECT CUST-ORDER-FILE ASSIGN TO EXTERNAL CUSTORD + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT CUST-PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT2. +---- ^^^^^^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3439-prog.cob:42.15: + 39 REPORT SECTION. + 40 RD ORDER-REPORT + 41 CONTROLS ARE FINAL + 42 > PAGE 55 LINES +---- ^ + 43 FIRST DETAIL 6. + 44 01 TYPE REPORT HEADING +>> Hint: Missing . + +run_reportwriter.at-3439-prog.cob:42.16-42.18: + 39 REPORT SECTION. + 40 RD ORDER-REPORT + 41 CONTROLS ARE FINAL + 42 > PAGE 55 LINES +---- ^^ + 43 FIRST DETAIL 6. + 44 01 TYPE REPORT HEADING +>> Warning: Invalid syntax + +run_reportwriter.at-3439-prog.cob:42.24: + 39 REPORT SECTION. + 40 RD ORDER-REPORT + 41 CONTROLS ARE FINAL + 42 > PAGE 55 LINES +---- ^ + 43 FIRST DETAIL 6. + 44 01 TYPE REPORT HEADING +>> Hint: Missing ARE + +run_reportwriter.at-3439-prog.cob:43.11-43.16: + 40 RD ORDER-REPORT + 41 CONTROLS ARE FINAL + 42 PAGE 55 LINES + 43 > FIRST DETAIL 6. +---- ^^^^^ + 44 01 TYPE REPORT HEADING + 45 LINE 1. +>> Error: Invalid syntax + +run_reportwriter.at-3439-prog.cob:48.15: + 45 LINE 1. + 46 10 COLUMN 44 PIC X(21) + 47 VALUE 'CUSTOMER ORDER REPORT'. + 48 > 01 TYPE PAGE HEADING. +---- ^ + 49 05 LINE 2. + 50 10 COLUMN 10 PIC X(8) VALUE " Time:". +>> Hint: Missing DETAIL + +run_reportwriter.at-3439-prog.cob:48.16-48.20: + 45 LINE 1. + 46 10 COLUMN 44 PIC X(21) + 47 VALUE 'CUSTOMER ORDER REPORT'. + 48 > 01 TYPE PAGE HEADING. +---- ^^^^ + 49 05 LINE 2. + 50 10 COLUMN 10 PIC X(8) VALUE " Time:". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3558:0 +run_reportwriter.at-3558-reference:1.43-1.51: + 1 > CUSTOMER ORDER REPORT +---- ^^^^^^^^ + 2 Time: 14:30:12 Page 1 + 3 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3706:0 +run_reportwriter.at-3706-inp_data:1.6-1.7: + 1 > Norman, Ronald J 25CS Malcolm, Mike Waterloo +---- ^ + 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo + 3 Norman, James J 25CS Manning, Eric Waterloo +>> Error: Unexpected indicator: `,' + +run_reportwriter.at-3706-inp_data:2.6-2.7: + 1 Norman, Ronald J 25CS Malcolm, Mike Waterloo + 2 > Dorken, Keith A 35CS Malcolm, Mike Waterloo +---- ^ + 3 Norman, James J 25CS Manning, Eric Waterloo + 4 Dorken, Kevin 35CS Manning, Eric Waterloo +>> Error: Unexpected indicator: `,' + +run_reportwriter.at-3706-inp_data:3.6-3.7: + 1 Norman, Ronald J 25CS Malcolm, Mike Waterloo + 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo + 3 > Norman, James J 25CS Manning, Eric Waterloo +---- ^ + 4 Dorken, Kevin 35CS Manning, Eric Waterloo + 5 Allinson, A R 25EC Manning, Eric Whistler +>> Error: Unexpected indicator: `,' + +run_reportwriter.at-3706-inp_data:4.6-4.7: + 1 Norman, Ronald J 25CS Malcolm, Mike Waterloo + 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo + 3 Norman, James J 25CS Manning, Eric Waterloo + 4 > Dorken, Kevin 35CS Manning, Eric Waterloo +---- ^ + 5 Allinson, A R 25EC Manning, Eric Whistler + 6 Norman, Michelle 27EC Manning, Donna Toronto +>> Error: Unexpected indicator: `,' + +run_reportwriter.at-3706-inp_data:5.6-5.7: + 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo + 3 Norman, James J 25CS Manning, Eric Waterloo + 4 Dorken, Kevin 35CS Manning, Eric Waterloo + 5 > Allinson, A R 25EC Manning, Eric Whistler +---- ^ + 6 Norman, Michelle 27EC Manning, Donna Toronto + 7 Dorken, Melissa 37EC Manning, Donna Toronto +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-3706-inp_data:6.6-6.7: + 3 Norman, James J 25CS Manning, Eric Waterloo + 4 Dorken, Kevin 35CS Manning, Eric Waterloo + 5 Allinson, A R 25EC Manning, Eric Whistler + 6 > Norman, Michelle 27EC Manning, Donna Toronto +---- ^ + 7 Dorken, Melissa 37EC Manning, Donna Toronto + 8 Norseman, Ben01 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `,' + +run_reportwriter.at-3706-inp_data:7.6-7.7: + 4 Dorken, Kevin 35CS Manning, Eric Waterloo + 5 Allinson, A R 25EC Manning, Eric Whistler + 6 Norman, Michelle 27EC Manning, Donna Toronto + 7 > Dorken, Melissa 37EC Manning, Donna Toronto +---- ^ + 8 Norseman, Ben01 27EC DiMetri, Gary Toronto + 9 Norseman, Ben02 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `,' + +run_reportwriter.at-3706-inp_data:8.6-8.7: + 5 Allinson, A R 25EC Manning, Eric Whistler + 6 Norman, Michelle 27EC Manning, Donna Toronto + 7 Dorken, Melissa 37EC Manning, Donna Toronto + 8 > Norseman, Ben01 27EC DiMetri, Gary Toronto +---- ^ + 9 Norseman, Ben02 27EC DiMetri, Gary Toronto + 10 Norseman, Ben03 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:9.6-9.7: + 6 Norman, Michelle 27EC Manning, Donna Toronto + 7 Dorken, Melissa 37EC Manning, Donna Toronto + 8 Norseman, Ben01 27EC DiMetri, Gary Toronto + 9 > Norseman, Ben02 27EC DiMetri, Gary Toronto +---- ^ + 10 Norseman, Ben03 27EC DiMetri, Gary Toronto + 11 Norseman, Ben04 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:10.6-10.7: + 7 Dorken, Melissa 37EC Manning, Donna Toronto + 8 Norseman, Ben01 27EC DiMetri, Gary Toronto + 9 Norseman, Ben02 27EC DiMetri, Gary Toronto + 10 > Norseman, Ben03 27EC DiMetri, Gary Toronto +---- ^ + 11 Norseman, Ben04 27EC DiMetri, Gary Toronto + 12 Norseman, Ben05 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:11.6-11.7: + 8 Norseman, Ben01 27EC DiMetri, Gary Toronto + 9 Norseman, Ben02 27EC DiMetri, Gary Toronto + 10 Norseman, Ben03 27EC DiMetri, Gary Toronto + 11 > Norseman, Ben04 27EC DiMetri, Gary Toronto +---- ^ + 12 Norseman, Ben05 27EC DiMetri, Gary Toronto + 13 Norseman, Ben06 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:12.6-12.7: + 9 Norseman, Ben02 27EC DiMetri, Gary Toronto + 10 Norseman, Ben03 27EC DiMetri, Gary Toronto + 11 Norseman, Ben04 27EC DiMetri, Gary Toronto + 12 > Norseman, Ben05 27EC DiMetri, Gary Toronto +---- ^ + 13 Norseman, Ben06 27EC DiMetri, Gary Toronto + 14 Norseman, Ben07 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:13.6-13.7: + 10 Norseman, Ben03 27EC DiMetri, Gary Toronto + 11 Norseman, Ben04 27EC DiMetri, Gary Toronto + 12 Norseman, Ben05 27EC DiMetri, Gary Toronto + 13 > Norseman, Ben06 27EC DiMetri, Gary Toronto +---- ^ + 14 Norseman, Ben07 27EC DiMetri, Gary Toronto + 15 Norseman, Ben08 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:14.6-14.7: + 11 Norseman, Ben04 27EC DiMetri, Gary Toronto + 12 Norseman, Ben05 27EC DiMetri, Gary Toronto + 13 Norseman, Ben06 27EC DiMetri, Gary Toronto + 14 > Norseman, Ben07 27EC DiMetri, Gary Toronto +---- ^ + 15 Norseman, Ben08 27EC DiMetri, Gary Toronto + 16 Norseman, Ben09 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:15.6-15.7: + 12 Norseman, Ben05 27EC DiMetri, Gary Toronto + 13 Norseman, Ben06 27EC DiMetri, Gary Toronto + 14 Norseman, Ben07 27EC DiMetri, Gary Toronto + 15 > Norseman, Ben08 27EC DiMetri, Gary Toronto +---- ^ + 16 Norseman, Ben09 27EC DiMetri, Gary Toronto + 17 Norseman, Ben10 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:16.6-16.7: + 13 Norseman, Ben06 27EC DiMetri, Gary Toronto + 14 Norseman, Ben07 27EC DiMetri, Gary Toronto + 15 Norseman, Ben08 27EC DiMetri, Gary Toronto + 16 > Norseman, Ben09 27EC DiMetri, Gary Toronto +---- ^ + 17 Norseman, Ben10 27EC DiMetri, Gary Toronto +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:17.6-17.7: + 14 Norseman, Ben07 27EC DiMetri, Gary Toronto + 15 Norseman, Ben08 27EC DiMetri, Gary Toronto + 16 Norseman, Ben09 27EC DiMetri, Gary Toronto + 17 > Norseman, Ben10 27EC DiMetri, Gary Toronto +---- ^ +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3706-inp_data:1.8-1.14: + 1 > Norman, Ronald J 25CS Malcolm, Mike Waterloo +---- ^^^^^^ + 2 Dorken, Keith A 35CS Malcolm, Mike Waterloo + 3 Norman, James J 25CS Manning, Eric Waterloo +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3704:0 +run_reportwriter.at-3704-prog.cob:8.41-8.49: + 5 CONFIGURATION SECTION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC +---- ^^^^^^^^ + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3704-prog.cob:10.39-10.47: + 7 FILE-CONTROL. + 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 > SELECT PRINT-FILE ASSIGN TO EXTERNAL +---- ^^^^^^^^ + 11 LINE ADVANCING REPORT3. + 12 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3704-prog.cob:11.26-11.30: + 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT3. +---- ^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:11.30: + 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT3. +---- ^ + 12 + 13 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-3704-prog.cob:11.31-11.40: + 8 SELECT STUDENT-FILE ASSIGN TO EXTERNAL STUDREC + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT PRINT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT3. +---- ^^^^^^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:39.15: + 36 REPORT SECTION. + 37 RD CONTROL-BREAK + 38 CONTROLS ARE MAJOR ADVISOR + 39 > PAGE LIMIT 25 LINES +---- ^ + 40 HEADING 1 + 41 FIRST DETAIL 5 +>> Hint: Missing . + +run_reportwriter.at-3704-prog.cob:39.16-39.21: + 36 REPORT SECTION. + 37 RD CONTROL-BREAK + 38 CONTROLS ARE MAJOR ADVISOR + 39 > PAGE LIMIT 25 LINES +---- ^^^^^ + 40 HEADING 1 + 41 FIRST DETAIL 5 +>> Warning: Invalid syntax + +run_reportwriter.at-3704-prog.cob:39.30: + 36 REPORT SECTION. + 37 RD CONTROL-BREAK + 38 CONTROLS ARE MAJOR ADVISOR + 39 > PAGE LIMIT 25 LINES +---- ^ + 40 HEADING 1 + 41 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-3704-prog.cob:40.11-40.18: + 37 RD CONTROL-BREAK + 38 CONTROLS ARE MAJOR ADVISOR + 39 PAGE LIMIT 25 LINES + 40 > HEADING 1 +---- ^^^^^^^ + 41 FIRST DETAIL 5 + 42 FOOTING 23. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:41.11-41.16: + 38 CONTROLS ARE MAJOR ADVISOR + 39 PAGE LIMIT 25 LINES + 40 HEADING 1 + 41 > FIRST DETAIL 5 +---- ^^^^^ + 42 FOOTING 23. + 43 01 TYPE IS PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:42.11-42.18: + 39 PAGE LIMIT 25 LINES + 40 HEADING 1 + 41 FIRST DETAIL 5 + 42 > FOOTING 23. +---- ^^^^^^^ + 43 01 TYPE IS PAGE HEADING. + 44 05 LINE 1. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:43.18: + 40 HEADING 1 + 41 FIRST DETAIL 5 + 42 FOOTING 23. + 43 > 01 TYPE IS PAGE HEADING. +---- ^ + 44 05 LINE 1. + 45 10 COLUMN 61 PIC X(4) VALUE 'PAGE'. +>> Hint: Missing DETAIL + +run_reportwriter.at-3704-prog.cob:43.19-43.23: + 40 HEADING 1 + 41 FIRST DETAIL 5 + 42 FOOTING 23. + 43 > 01 TYPE IS PAGE HEADING. +---- ^^^^ + 44 05 LINE 1. + 45 10 COLUMN 61 PIC X(4) VALUE 'PAGE'. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:52.27: + 49 VALUE 'STUDENT ADVISEMENT LIST'. + 50 + 51 01 TYPE IS CONTROL HEADING MAJOR. + 52 > 05 LINE 5 ON NEXT PAGE . +---- ^ + 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. + 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. +>> Hint: Missing NEXT_PAGE + +run_reportwriter.at-3704-prog.cob:52.28-52.32: + 49 VALUE 'STUDENT ADVISEMENT LIST'. + 50 + 51 01 TYPE IS CONTROL HEADING MAJOR. + 52 > 05 LINE 5 ON NEXT PAGE . +---- ^^^^ + 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. + 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:52.32: + 49 VALUE 'STUDENT ADVISEMENT LIST'. + 50 + 51 01 TYPE IS CONTROL HEADING MAJOR. + 52 > 05 LINE 5 ON NEXT PAGE . +---- ^ + 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. + 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. +>> Hint: Missing GROUP + +run_reportwriter.at-3704-prog.cob:52.33-52.37: + 49 VALUE 'STUDENT ADVISEMENT LIST'. + 50 + 51 01 TYPE IS CONTROL HEADING MAJOR. + 52 > 05 LINE 5 ON NEXT PAGE . +---- ^^^^ + 53 10 COLUMN 37 PIC X(5) VALUE 'MAJOR'. + 54 10 COLUMN 44 PIC X(20) SOURCE MAJOR. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:70.37: + 67 10 COLUMN 26 PIC 99 SOURCE COURSE-PTS. + 68 10 COLUMN 34 PIC X(15) SOURCE CAMPUS. + 69 10 COLUMN 51 PIC X(5) VALUE "Hello" + 70 > PRESENT AFTER PAGE OR ADVISOR. +---- ^ + 71 10 COLUMN 51 PIC X(5) VALUE ' " ' + 72 ABSENT AFTER PAGE OR ADVISOR. +>> Hint: Missing WHEN + +run_reportwriter.at-3704-prog.cob:70.38-70.43: + 67 10 COLUMN 26 PIC 99 SOURCE COURSE-PTS. + 68 10 COLUMN 34 PIC X(15) SOURCE CAMPUS. + 69 10 COLUMN 51 PIC X(5) VALUE "Hello" + 70 > PRESENT AFTER PAGE OR ADVISOR. +---- ^^^^^ + 71 10 COLUMN 51 PIC X(5) VALUE ' " ' + 72 ABSENT AFTER PAGE OR ADVISOR. +>> Error: Invalid syntax + +run_reportwriter.at-3704-prog.cob:72.30-72.36: + 69 10 COLUMN 51 PIC X(5) VALUE "Hello" + 70 PRESENT AFTER PAGE OR ADVISOR. + 71 10 COLUMN 51 PIC X(5) VALUE ' " ' + 72 > ABSENT AFTER PAGE OR ADVISOR. +---- ^^^^^^ + 73 10 COLUMN 60 PIC X(20) SOURCE ADVISOR + 74 GROUP INDICATE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3787:0 +run_reportwriter.at-3787-reference:8.7-8.11: + 5 MAJOR CS + 6 + 7 STUDENT NAME PTS CAMPUS ADVISOR + 8 > -------------------------------------------------------------------- +---- ^^^^ + 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike + 10 Dorken, Keith A 35 Waterloo " +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-3787-reference:9.6-9.7: + 6 + 7 STUDENT NAME PTS CAMPUS ADVISOR + 8 -------------------------------------------------------------------- + 9 > Norman, Ronald J 25 Waterloo Hello Malcolm, Mike +---- ^ + 10 Dorken, Keith A 35 Waterloo " + 11 +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3787-reference:10.6-10.7: + 7 STUDENT NAME PTS CAMPUS ADVISOR + 8 -------------------------------------------------------------------- + 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike + 10 > Dorken, Keith A 35 Waterloo " +---- ^ + 11 + 12 ADVISOR Malcolm, Mike TOTAL 2 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:12.6-12.7: + 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike + 10 Dorken, Keith A 35 Waterloo " + 11 + 12 > ADVISOR Malcolm, Mike TOTAL 2 +---- ^ + 13 + 14 Norman, James J 25 Waterloo Hello Manning, Eric +>> Error: Unexpected indicator: `V' + +run_reportwriter.at-3787-reference:14.6-14.7: + 11 + 12 ADVISOR Malcolm, Mike TOTAL 2 + 13 + 14 > Norman, James J 25 Waterloo Hello Manning, Eric +---- ^ + 15 Dorken, Kevin 35 Waterloo " + 16 +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3787-reference:15.6-15.7: + 12 ADVISOR Malcolm, Mike TOTAL 2 + 13 + 14 Norman, James J 25 Waterloo Hello Manning, Eric + 15 > Dorken, Kevin 35 Waterloo " +---- ^ + 16 + 17 ADVISOR Manning, Eric TOTAL 2 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:17.6-17.7: + 14 Norman, James J 25 Waterloo Hello Manning, Eric + 15 Dorken, Kevin 35 Waterloo " + 16 + 17 > ADVISOR Manning, Eric TOTAL 2 +---- ^ + 18 + 19 +>> Error: Unexpected indicator: `V' + +run_reportwriter.at-3787-reference:20.6-20.7: + 17 ADVISOR Manning, Eric TOTAL 2 + 18 + 19 + 20 > MAJOR TOTAL 4 +---- ^ + 21 + 22 +>> Error: Unexpected indicator: `J' + +run_reportwriter.at-3787-reference:33.7-33.11: + 30 MAJOR EC + 31 + 32 STUDENT NAME PTS CAMPUS ADVISOR + 33 > -------------------------------------------------------------------- +---- ^^^^ + 34 Allinson, A R 25 Whistler Hello Manning, Eric + 35 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-3787-reference:34.6-34.7: + 31 + 32 STUDENT NAME PTS CAMPUS ADVISOR + 33 -------------------------------------------------------------------- + 34 > Allinson, A R 25 Whistler Hello Manning, Eric +---- ^ + 35 + 36 ADVISOR Manning, Eric TOTAL 1 +>> Error: Unexpected indicator: `n' + +run_reportwriter.at-3787-reference:36.6-36.7: + 33 -------------------------------------------------------------------- + 34 Allinson, A R 25 Whistler Hello Manning, Eric + 35 + 36 > ADVISOR Manning, Eric TOTAL 1 +---- ^ + 37 + 38 Norman, Michelle 27 Toronto Hello Manning, Donna +>> Error: Unexpected indicator: `V' + +run_reportwriter.at-3787-reference:38.6-38.7: + 35 + 36 ADVISOR Manning, Eric TOTAL 1 + 37 + 38 > Norman, Michelle 27 Toronto Hello Manning, Donna +---- ^ + 39 Dorken, Melissa 37 Toronto " + 40 +>> Error: Unexpected indicator: `a' + +run_reportwriter.at-3787-reference:39.6-39.7: + 36 ADVISOR Manning, Eric TOTAL 1 + 37 + 38 Norman, Michelle 27 Toronto Hello Manning, Donna + 39 > Dorken, Melissa 37 Toronto " +---- ^ + 40 + 41 ADVISOR Manning, Donna TOTAL 2 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:41.6-41.7: + 38 Norman, Michelle 27 Toronto Hello Manning, Donna + 39 Dorken, Melissa 37 Toronto " + 40 + 41 > ADVISOR Manning, Donna TOTAL 2 +---- ^ + 42 + 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary +>> Error: Unexpected indicator: `V' + +run_reportwriter.at-3787-reference:43.6-43.7: + 40 + 41 ADVISOR Manning, Donna TOTAL 2 + 42 + 43 > Norseman, Ben01 27 Toronto Hello DiMetri, Gary +---- ^ + 44 Norseman, Ben02 27 Toronto " + 45 Norseman, Ben03 27 Toronto " +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:44.6-44.7: + 41 ADVISOR Manning, Donna TOTAL 2 + 42 + 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary + 44 > Norseman, Ben02 27 Toronto " +---- ^ + 45 Norseman, Ben03 27 Toronto " + 46 Norseman, Ben04 27 Toronto " +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:45.6-45.7: + 42 + 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary + 44 Norseman, Ben02 27 Toronto " + 45 > Norseman, Ben03 27 Toronto " +---- ^ + 46 Norseman, Ben04 27 Toronto " + 47 Norseman, Ben05 27 Toronto " +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:46.6-46.7: + 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary + 44 Norseman, Ben02 27 Toronto " + 45 Norseman, Ben03 27 Toronto " + 46 > Norseman, Ben04 27 Toronto " +---- ^ + 47 Norseman, Ben05 27 Toronto " + 48 Norseman, Ben06 27 Toronto " +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:47.6-47.7: + 44 Norseman, Ben02 27 Toronto " + 45 Norseman, Ben03 27 Toronto " + 46 Norseman, Ben04 27 Toronto " + 47 > Norseman, Ben05 27 Toronto " +---- ^ + 48 Norseman, Ben06 27 Toronto " + 49 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:48.6-48.7: + 45 Norseman, Ben03 27 Toronto " + 46 Norseman, Ben04 27 Toronto " + 47 Norseman, Ben05 27 Toronto " + 48 > Norseman, Ben06 27 Toronto " +---- ^ + 49 + 50 PAGE 3 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:54.6-54.7: + 51 + 52 STUDENT ADVISEMENT LIST + 53 + 54 > Norseman, Ben07 27 Toronto Hello DiMetri, Gary +---- ^ + 55 Norseman, Ben08 27 Toronto " + 56 Norseman, Ben09 27 Toronto " +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:55.6-55.7: + 52 STUDENT ADVISEMENT LIST + 53 + 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary + 55 > Norseman, Ben08 27 Toronto " +---- ^ + 56 Norseman, Ben09 27 Toronto " + 57 Norseman, Ben10 27 Toronto " +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:56.6-56.7: + 53 + 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary + 55 Norseman, Ben08 27 Toronto " + 56 > Norseman, Ben09 27 Toronto " +---- ^ + 57 Norseman, Ben10 27 Toronto " + 58 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:57.6-57.7: + 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary + 55 Norseman, Ben08 27 Toronto " + 56 Norseman, Ben09 27 Toronto " + 57 > Norseman, Ben10 27 Toronto " +---- ^ + 58 + 59 ADVISOR DiMetri, Gary TOTAL 10 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-3787-reference:59.6-59.7: + 56 Norseman, Ben09 27 Toronto " + 57 Norseman, Ben10 27 Toronto " + 58 + 59 > ADVISOR DiMetri, Gary TOTAL 10 +---- ^ + 60 + 61 +>> Error: Unexpected indicator: `V' + +run_reportwriter.at-3787-reference:62.6-62.7: + 59 ADVISOR DiMetri, Gary TOTAL 10 + 60 + 61 + 62 > MAJOR TOTAL 13 +---- ^ + 63 + 64 +>> Error: Unexpected indicator: `J' + +run_reportwriter.at-3787-reference:10.52-10.72: + 7 STUDENT NAME PTS CAMPUS ADVISOR + 8 -------------------------------------------------------------------- + 9 Norman, Ronald J 25 Waterloo Hello Malcolm, Mike + 10 > Dorken, Keith A 35 Waterloo " +---- ^ + 11 + 12 ADVISOR Malcolm, Mike TOTAL 2 +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:15.52-15.72: + 12 ADVISOR Malcolm, Mike TOTAL 2 + 13 + 14 Norman, James J 25 Waterloo Hello Manning, Eric + 15 > Dorken, Kevin 35 Waterloo " +---- ^ + 16 + 17 ADVISOR Manning, Eric TOTAL 2 +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:39.52-39.72: + 36 ADVISOR Manning, Eric TOTAL 1 + 37 + 38 Norman, Michelle 27 Toronto Hello Manning, Donna + 39 > Dorken, Melissa 37 Toronto " +---- ^ + 40 + 41 ADVISOR Manning, Donna TOTAL 2 +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:44.52-44.72: + 41 ADVISOR Manning, Donna TOTAL 2 + 42 + 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary + 44 > Norseman, Ben02 27 Toronto " +---- ^ + 45 Norseman, Ben03 27 Toronto " + 46 Norseman, Ben04 27 Toronto " +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:45.52-45.72: + 42 + 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary + 44 Norseman, Ben02 27 Toronto " + 45 > Norseman, Ben03 27 Toronto " +---- ^ + 46 Norseman, Ben04 27 Toronto " + 47 Norseman, Ben05 27 Toronto " +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:46.52-46.72: + 43 Norseman, Ben01 27 Toronto Hello DiMetri, Gary + 44 Norseman, Ben02 27 Toronto " + 45 Norseman, Ben03 27 Toronto " + 46 > Norseman, Ben04 27 Toronto " +---- ^ + 47 Norseman, Ben05 27 Toronto " + 48 Norseman, Ben06 27 Toronto " +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:47.52-47.72: + 44 Norseman, Ben02 27 Toronto " + 45 Norseman, Ben03 27 Toronto " + 46 Norseman, Ben04 27 Toronto " + 47 > Norseman, Ben05 27 Toronto " +---- ^ + 48 Norseman, Ben06 27 Toronto " + 49 +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:48.52-48.72: + 45 Norseman, Ben03 27 Toronto " + 46 Norseman, Ben04 27 Toronto " + 47 Norseman, Ben05 27 Toronto " + 48 > Norseman, Ben06 27 Toronto " +---- ^ + 49 + 50 PAGE 3 +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:55.52-55.72: + 52 STUDENT ADVISEMENT LIST + 53 + 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary + 55 > Norseman, Ben08 27 Toronto " +---- ^ + 56 Norseman, Ben09 27 Toronto " + 57 Norseman, Ben10 27 Toronto " +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:56.52-56.72: + 53 + 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary + 55 Norseman, Ben08 27 Toronto " + 56 > Norseman, Ben09 27 Toronto " +---- ^ + 57 Norseman, Ben10 27 Toronto " + 58 +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:57.52-57.72: + 54 Norseman, Ben07 27 Toronto Hello DiMetri, Gary + 55 Norseman, Ben08 27 Toronto " + 56 Norseman, Ben09 27 Toronto " + 57 > Norseman, Ben10 27 Toronto " +---- ^ + 58 + 59 ADVISOR DiMetri, Gary TOTAL 10 +>> Error: Missing continuation of ` ' + +run_reportwriter.at-3787-reference:1.60-1.64: + 1 > PAGE 1 +---- ^^^^ + 2 + 3 STUDENT ADVISEMENT LIST +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3900:0 +run_reportwriter.at-3900-inp_data:2.6-2.7: + 1 01Data Processing 02000500012388 + 2 > 02Cow Milking 02000600054398 +---- ^ + 3 03Grass Cutting 03000600054397 + 4 03Lawn mowing 03000600054397 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-3900-inp_data:3.6-3.7: + 1 01Data Processing 02000500012388 + 2 02Cow Milking 02000600054398 + 3 > 03Grass Cutting 03000600054397 +---- ^ + 4 03Lawn mowing 03000600054397 +>> Error: Unexpected indicator: `s' + +run_reportwriter.at-3900-inp_data:1.7-1.17: + 1 > 01Data Processing 02000500012388 +---- ^^^^^^^^^^ + 2 02Cow Milking 02000600054398 + 3 03Grass Cutting 03000600054397 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3896:0 +run_reportwriter.at-3896-prog.cob:8.37-8.45: + 5 CONFIGURATION SECTION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE +---- ^^^^^^^^ + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3896-prog.cob:10.40-10.48: + 7 FILE-CONTROL. + 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 > SELECT REPORT-FILE ASSIGN TO EXTERNAL +---- ^^^^^^^^ + 11 LINE ADVANCING REPORT4. + 12 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-3896-prog.cob:11.30-11.34: + 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT4. +---- ^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3896-prog.cob:11.34: + 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT4. +---- ^ + 12 + 13 DATA DIVISION. +>> Hint: Missing SEQUENTIAL + +run_reportwriter.at-3896-prog.cob:11.35-11.44: + 8 SELECT INV-FILE ASSIGN TO EXTERNAL INVFILE + 9 ORGANIZATION IS LINE SEQUENTIAL. + 10 SELECT REPORT-FILE ASSIGN TO EXTERNAL + 11 > LINE ADVANCING REPORT4. +---- ^^^^^^^^^ + 12 + 13 DATA DIVISION. +>> Error: Invalid syntax + +run_reportwriter.at-3896-prog.cob:33.15: + 30 REPORT SECTION. + 31 RD INV-REPORT + 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN + 33 > PAGE LIMIT 25 LINES +---- ^ + 34 HEADING 2 + 35 FIRST DETAIL 5 +>> Hint: Missing . + +run_reportwriter.at-3896-prog.cob:33.16-33.21: + 30 REPORT SECTION. + 31 RD INV-REPORT + 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN + 33 > PAGE LIMIT 25 LINES +---- ^^^^^ + 34 HEADING 2 + 35 FIRST DETAIL 5 +>> Warning: Invalid syntax + +run_reportwriter.at-3896-prog.cob:33.30: + 30 REPORT SECTION. + 31 RD INV-REPORT + 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN + 33 > PAGE LIMIT 25 LINES +---- ^ + 34 HEADING 2 + 35 FIRST DETAIL 5 +>> Hint: Missing ARE + +run_reportwriter.at-3896-prog.cob:34.11-34.18: + 31 RD INV-REPORT + 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN + 33 PAGE LIMIT 25 LINES + 34 > HEADING 2 +---- ^^^^^^^ + 35 FIRST DETAIL 5 + 36 LAST DETAIL 18 +>> Error: Invalid syntax + +run_reportwriter.at-3896-prog.cob:35.11-35.16: + 32 CONTROLS ARE FINAL DEPT-IN MONTH-IN + 33 PAGE LIMIT 25 LINES + 34 HEADING 2 + 35 > FIRST DETAIL 5 +---- ^^^^^ + 36 LAST DETAIL 18 + 37 FOOTING 20. +>> Error: Invalid syntax + +run_reportwriter.at-3896-prog.cob:36.11-36.15: + 33 PAGE LIMIT 25 LINES + 34 HEADING 2 + 35 FIRST DETAIL 5 + 36 > LAST DETAIL 18 +---- ^^^^ + 37 FOOTING 20. + 38 01 TYPE IS REPORT HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-3896-prog.cob:37.11-37.18: + 34 HEADING 2 + 35 FIRST DETAIL 5 + 36 LAST DETAIL 18 + 37 > FOOTING 20. +---- ^^^^^^^ + 38 01 TYPE IS REPORT HEADING. + 39 05 LINE 2 COLUMN 50 PIC X(16) VALUE 'INVENTORY REPORT'. +>> Error: Invalid syntax + +run_reportwriter.at-3896-prog.cob:68.18: + 65 LINE PLUS 2. + 66 05 FINAL-TOTAL COLUMN 95 PIC ZZZ,ZZZ,ZZZ.99 SUM DEPT-TOTAL. + 67 + 68 > 01 TYPE IS PAGE FOOTING LINE 24. +---- ^ + 69 05 COLUMN 30 PIC X(30) VALUE "-+* End of Page *+-". + 70 05 COLUMN 55 PIC X(12) VALUE "************". +>> Hint: Missing DETAIL + +run_reportwriter.at-3896-prog.cob:68.19-68.23: + 65 LINE PLUS 2. + 66 05 FINAL-TOTAL COLUMN 95 PIC ZZZ,ZZZ,ZZZ.99 SUM DEPT-TOTAL. + 67 + 68 > 01 TYPE IS PAGE FOOTING LINE 24. +---- ^^^^ + 69 05 COLUMN 30 PIC X(30) VALUE "-+* End of Page *+-". + 70 05 COLUMN 55 PIC X(12) VALUE "************". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:3980:0 +run_reportwriter.at-3980-reference:5.6-5.7: + 2 INVENTORY REPORT + 3 + 4 + 5 > DEPARTMENT #: 01 DEPARTMENT NAME: Data Processing +---- ^ + 6 + 7 +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-3980-reference:15.6-15.7: + 12 + 13 1,238.80 + 14 + 15 > DEPARTMENT #: 02 DEPARTMENT NAME: Cow Milking +---- ^ + 16 + 17 +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-3980-reference:35.6-35.7: + 32 + 33 5,439.80 + 34 + 35 > DEPARTMENT #: 03 DEPARTMENT NAME: Grass Cutting +---- ^ + 36 + 37 +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-3980-reference:2.49-2.58: + 1 + 2 > INVENTORY REPORT +---- ^^^^^^^^^ + 3 + 4 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4054:0 +run_reportwriter.at-4054-prog.cob:10.21-10.29: + 7 FILE-CONTROL. + 8 SELECT REPORT-FILE + 9 LINE SEQUENTIAL + 10 > ASSIGN TO EXTERNAL DUPDTL. +---- ^^^^^^^^ + 11 DATA DIVISION. + 12 FILE SECTION. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4054-prog.cob:21.15: + 18 REPORT SECTION. + 19 RD MYREPORT + 20 CONTROLS ARE SAVE-ITEM + 21 > PAGE LIMIT IS 15 LINES +---- ^ + 22 FIRST DETAIL 1 + 23 LAST DETAIL 12. +>> Hint: Missing . + +run_reportwriter.at-4054-prog.cob:21.16-21.21: + 18 REPORT SECTION. + 19 RD MYREPORT + 20 CONTROLS ARE SAVE-ITEM + 21 > PAGE LIMIT IS 15 LINES +---- ^^^^^ + 22 FIRST DETAIL 1 + 23 LAST DETAIL 12. +>> Warning: Invalid syntax + +run_reportwriter.at-4054-prog.cob:21.33: + 18 REPORT SECTION. + 19 RD MYREPORT + 20 CONTROLS ARE SAVE-ITEM + 21 > PAGE LIMIT IS 15 LINES +---- ^ + 22 FIRST DETAIL 1 + 23 LAST DETAIL 12. +>> Hint: Missing ARE + +run_reportwriter.at-4054-prog.cob:22.11-22.16: + 19 RD MYREPORT + 20 CONTROLS ARE SAVE-ITEM + 21 PAGE LIMIT IS 15 LINES + 22 > FIRST DETAIL 1 +---- ^^^^^ + 23 LAST DETAIL 12. + 24 +>> Error: Invalid syntax + +run_reportwriter.at-4054-prog.cob:23.11-23.15: + 20 CONTROLS ARE SAVE-ITEM + 21 PAGE LIMIT IS 15 LINES + 22 FIRST DETAIL 1 + 23 > LAST DETAIL 12. +---- ^^^^ + 24 + 25 01 TYPE IS CONTROL HEADING SAVE-ITEM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4108:0 +run_reportwriter.at-4108-reference:1.6-1.7: + 1 > HEADING SAVE-ITEM +---- ^ + 2 A 1st Detail + 3 FOOTING SAVE-ITEM +>> Error: Unexpected indicator: `G' + +run_reportwriter.at-4108-reference:3.6-3.7: + 1 HEADING SAVE-ITEM + 2 A 1st Detail + 3 > FOOTING SAVE-ITEM +---- ^ + 4 + 5 +>> Error: Unexpected indicator: `F' + +run_reportwriter.at-4108-reference:16.6-16.7: + 13 + 14 + 15 + 16 > HEADING SAVE-ITEM +---- ^ + 17 B 1st Detail + 18 B 2nd Detail +>> Error: Unexpected indicator: `G' + +run_reportwriter.at-4108-reference:21.6-21.7: + 18 B 2nd Detail + 19 B 3rd Detail 1 + 20 B 3rd Detail 2 + 21 > FOOTING SAVE-ITEM +---- ^ + 22 + 23 +>> Error: Unexpected indicator: `F' + +run_reportwriter.at-4108-reference:31.6-31.7: + 28 + 29 + 30 + 31 > HEADING SAVE-ITEM +---- ^ + 32 C 3rd Detail 1 + 33 C 3rd Detail 2 +>> Error: Unexpected indicator: `G' + +run_reportwriter.at-4108-reference:34.6-34.7: + 31 HEADING SAVE-ITEM + 32 C 3rd Detail 1 + 33 C 3rd Detail 2 + 34 > FOOTING SAVE-ITEM +---- ^ + 35 + 36 +>> Error: Unexpected indicator: `F' + +run_reportwriter.at-4108-reference:1.8-1.17: + 1 > HEADING SAVE-ITEM +---- ^^^^^^^^^ + 2 A 1st Detail + 3 FOOTING SAVE-ITEM +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4193:0 +run_reportwriter.at-4193-prog.cob:8.34-8.42: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT rp-file ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4193-prog.cob:16.13: + 13 FD rp-file REPORT rp. + 14 + 15 REPORT SECTION. + 16 > RD RP +---- ^ + 17 PAGE LIMIT 10 LINES + 18 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-4193-prog.cob:17.11-17.15: + 14 + 15 REPORT SECTION. + 16 RD RP + 17 > PAGE LIMIT 10 LINES +---- ^^^^ + 18 HEADING 1 + 19 FIRST DETAIL 4. +>> Error: Invalid syntax + +run_reportwriter.at-4193-prog.cob:17.30: + 14 + 15 REPORT SECTION. + 16 RD RP + 17 > PAGE LIMIT 10 LINES +---- ^ + 18 HEADING 1 + 19 FIRST DETAIL 4. +>> Hint: Missing ARE + +run_reportwriter.at-4193-prog.cob:18.11-18.18: + 15 REPORT SECTION. + 16 RD RP + 17 PAGE LIMIT 10 LINES + 18 > HEADING 1 +---- ^^^^^^^ + 19 FIRST DETAIL 4. + 20 01 HEADING-LINE. +>> Error: Invalid syntax + +run_reportwriter.at-4193-prog.cob:19.11-19.16: + 16 RD RP + 17 PAGE LIMIT 10 LINES + 18 HEADING 1 + 19 > FIRST DETAIL 4. +---- ^^^^^ + 20 01 HEADING-LINE. + 21 02 TYPE PAGE HEADING LINE PLUS 1. +>> Error: Invalid syntax + +run_reportwriter.at-4193-prog.cob:21.17: + 18 HEADING 1 + 19 FIRST DETAIL 4. + 20 01 HEADING-LINE. + 21 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 22 05 COLUMN 1 PIC X(50) VALUE + 23 " 1 2 3 4 5". +>> Hint: Missing DETAIL + +run_reportwriter.at-4193-prog.cob:21.18-21.22: + 18 HEADING 1 + 19 FIRST DETAIL 4. + 20 01 HEADING-LINE. + 21 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 22 05 COLUMN 1 PIC X(50) VALUE + 23 " 1 2 3 4 5". +>> Error: Invalid syntax + +run_reportwriter.at-4193-prog.cob:24.17: + 21 02 TYPE PAGE HEADING LINE PLUS 1. + 22 05 COLUMN 1 PIC X(50) VALUE + 23 " 1 2 3 4 5". + 24 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 25 05 COLUMN 1 PIC X(50) VALUE + 26 "12345678901234567890123456789012345678901234567890". +>> Hint: Missing DETAIL + +run_reportwriter.at-4193-prog.cob:24.18-24.22: + 21 02 TYPE PAGE HEADING LINE PLUS 1. + 22 05 COLUMN 1 PIC X(50) VALUE + 23 " 1 2 3 4 5". + 24 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 25 05 COLUMN 1 PIC X(50) VALUE + 26 "12345678901234567890123456789012345678901234567890". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4212:0 +run_reportwriter.at-4212-reference:2.6-2.7: + 1 1 2 3 4 5 + 2 > 12345678901234567890123456789012345678901234567890 +---- ^ + 3 + 4 100 100 100 <1> +>> Error: Unexpected indicator: `7' + +run_reportwriter.at-4212-reference:5.6-5.7: + 2 12345678901234567890123456789012345678901234567890 + 3 + 4 100 100 100 <1> + 5 > Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** +---- ^ + 6 200 200 200 200 <3> + 7 400 401 402 403 <4> +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-4212-reference:1.9-1.10: + 1 > 1 2 3 4 5 +---- ^ + 2 12345678901234567890123456789012345678901234567890 + 3 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4405:0 +run_reportwriter.at-4405-progl.cob:8.34-8.42: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4405-progl.cob:23.19-23.27: + 20 + 21 REPORT SECTION. + 22 RD RP + 23 > CODE IS "Hi-Q: " *> literal +---- ^^^^^^^^ + 24 PAGE LIMIT 10 LINES + 25 50 COLUMNS *> literal +>> Error: Invalid syntax + +run_reportwriter.at-4405-progl.cob:24.15: + 21 REPORT SECTION. + 22 RD RP + 23 CODE IS "Hi-Q: " *> literal + 24 > PAGE LIMIT 10 LINES +---- ^ + 25 50 COLUMNS *> literal + 26 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-4405-progl.cob:24.16-24.21: + 21 REPORT SECTION. + 22 RD RP + 23 CODE IS "Hi-Q: " *> literal + 24 > PAGE LIMIT 10 LINES +---- ^^^^^ + 25 50 COLUMNS *> literal + 26 HEADING 1 +>> Warning: Invalid syntax + +run_reportwriter.at-4405-progl.cob:24.30: + 21 REPORT SECTION. + 22 RD RP + 23 CODE IS "Hi-Q: " *> literal + 24 > PAGE LIMIT 10 LINES +---- ^ + 25 50 COLUMNS *> literal + 26 HEADING 1 +>> Hint: Missing ARE + +run_reportwriter.at-4405-progl.cob:25.22-25.24: + 22 RD RP + 23 CODE IS "Hi-Q: " *> literal + 24 PAGE LIMIT 10 LINES + 25 > 50 COLUMNS *> literal +---- ^^ + 26 HEADING 1 + 27 FIRST DETAIL 4. +>> Error: Invalid syntax + +run_reportwriter.at-4405-progl.cob:26.11-26.18: + 23 CODE IS "Hi-Q: " *> literal + 24 PAGE LIMIT 10 LINES + 25 50 COLUMNS *> literal + 26 > HEADING 1 +---- ^^^^^^^ + 27 FIRST DETAIL 4. + 28 01 HEADING-LINE. +>> Error: Invalid syntax + +run_reportwriter.at-4405-progl.cob:27.11-27.16: + 24 PAGE LIMIT 10 LINES + 25 50 COLUMNS *> literal + 26 HEADING 1 + 27 > FIRST DETAIL 4. +---- ^^^^^ + 28 01 HEADING-LINE. + 29 02 TYPE PAGE HEADING LINE PLUS 1. +>> Error: Invalid syntax + +run_reportwriter.at-4405-progl.cob:29.17: + 26 HEADING 1 + 27 FIRST DETAIL 4. + 28 01 HEADING-LINE. + 29 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 30 05 COLUMN 1 PIC X(50) VALUE + 31 " 1 2 3 4 5". +>> Hint: Missing DETAIL + +run_reportwriter.at-4405-progl.cob:29.18-29.22: + 26 HEADING 1 + 27 FIRST DETAIL 4. + 28 01 HEADING-LINE. + 29 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 30 05 COLUMN 1 PIC X(50) VALUE + 31 " 1 2 3 4 5". +>> Error: Invalid syntax + +run_reportwriter.at-4405-progl.cob:32.17: + 29 02 TYPE PAGE HEADING LINE PLUS 1. + 30 05 COLUMN 1 PIC X(50) VALUE + 31 " 1 2 3 4 5". + 32 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 33 * 05 COLUMN 1 PIC X(50) VALUE + 34 * "12345678901234567890123456789012345678901234567890". +>> Hint: Missing DETAIL + +run_reportwriter.at-4405-progl.cob:32.18-32.22: + 29 02 TYPE PAGE HEADING LINE PLUS 1. + 30 05 COLUMN 1 PIC X(50) VALUE + 31 " 1 2 3 4 5". + 32 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 33 * 05 COLUMN 1 PIC X(50) VALUE + 34 * "12345678901234567890123456789012345678901234567890". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4310:0 +run_reportwriter.at-4310-progv.cob:8.34-8.42: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4310-progv.cob:25.25: + 22 + 23 REPORT SECTION. + 24 RD RP + 25 > CODE IS MYCODE *> variable +---- ^ + 26 PAGE LIMIT 10 LINES + 27 MAXCOL COLUMNS *> variable +>> Hint: Missing . + +run_reportwriter.at-4310-progv.cob:26.11-26.15: + 23 REPORT SECTION. + 24 RD RP + 25 CODE IS MYCODE *> variable + 26 > PAGE LIMIT 10 LINES +---- ^^^^ + 27 MAXCOL COLUMNS *> variable + 28 HEADING 1 +>> Warning: Invalid syntax + +run_reportwriter.at-4310-progv.cob:26.30: + 23 REPORT SECTION. + 24 RD RP + 25 CODE IS MYCODE *> variable + 26 > PAGE LIMIT 10 LINES +---- ^ + 27 MAXCOL COLUMNS *> variable + 28 HEADING 1 +>> Hint: Missing ARE + +run_reportwriter.at-4310-progv.cob:27.22-27.28: + 24 RD RP + 25 CODE IS MYCODE *> variable + 26 PAGE LIMIT 10 LINES + 27 > MAXCOL COLUMNS *> variable +---- ^^^^^^ + 28 HEADING 1 + 29 FIRST DETAIL 4. +>> Error: Invalid syntax + +run_reportwriter.at-4310-progv.cob:28.11-28.18: + 25 CODE IS MYCODE *> variable + 26 PAGE LIMIT 10 LINES + 27 MAXCOL COLUMNS *> variable + 28 > HEADING 1 +---- ^^^^^^^ + 29 FIRST DETAIL 4. + 30 01 HEADING-LINE. +>> Error: Invalid syntax + +run_reportwriter.at-4310-progv.cob:29.11-29.16: + 26 PAGE LIMIT 10 LINES + 27 MAXCOL COLUMNS *> variable + 28 HEADING 1 + 29 > FIRST DETAIL 4. +---- ^^^^^ + 30 01 HEADING-LINE. + 31 02 TYPE PAGE HEADING LINE PLUS 1. +>> Error: Invalid syntax + +run_reportwriter.at-4310-progv.cob:31.17: + 28 HEADING 1 + 29 FIRST DETAIL 4. + 30 01 HEADING-LINE. + 31 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 32 05 COLUMN 1 PIC X(50) VALUE + 33 " 1 2 3 4 5". +>> Hint: Missing DETAIL + +run_reportwriter.at-4310-progv.cob:31.18-31.22: + 28 HEADING 1 + 29 FIRST DETAIL 4. + 30 01 HEADING-LINE. + 31 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 32 05 COLUMN 1 PIC X(50) VALUE + 33 " 1 2 3 4 5". +>> Error: Invalid syntax + +run_reportwriter.at-4310-progv.cob:34.17: + 31 02 TYPE PAGE HEADING LINE PLUS 1. + 32 05 COLUMN 1 PIC X(50) VALUE + 33 " 1 2 3 4 5". + 34 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 35 * 05 COLUMN 1 PIC X(50) VALUE + 36 * "12345678901234567890123456789012345678901234567890". +>> Hint: Missing DETAIL + +run_reportwriter.at-4310-progv.cob:34.18-34.22: + 31 02 TYPE PAGE HEADING LINE PLUS 1. + 32 05 COLUMN 1 PIC X(50) VALUE + 33 " 1 2 3 4 5". + 34 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 35 * 05 COLUMN 1 PIC X(50) VALUE + 36 * "12345678901234567890123456789012345678901234567890". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4429:0 +run_reportwriter.at-4429-reference:4.6-4.7: + 1 Hi-Q: 1 2 3 4 5 + 2 Hi-Q: 1 2 3 4 5 + 3 Hi-Q: + 4 > Hi-Q: 100 100 100 <1> +---- ^ + 5 Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** + 6 Hi-Q: 200 200 200 200 <3> +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-4429-reference:5.6-5.7: + 2 Hi-Q: 1 2 3 4 5 + 3 Hi-Q: + 4 Hi-Q: 100 100 100 <1> + 5 > Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** +---- ^ + 6 Hi-Q: 200 200 200 200 <3> + 7 Hi-Q: 400 401 402 403 <4> +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-4429-reference:6.6-6.7: + 3 Hi-Q: + 4 Hi-Q: 100 100 100 <1> + 5 Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** + 6 > Hi-Q: 200 200 200 200 <3> +---- ^ + 7 Hi-Q: 400 401 402 403 <4> + 8 Hi-Q: +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-4429-reference:7.6-7.7: + 4 Hi-Q: 100 100 100 <1> + 5 Hi-Q: Tag1 *Tag2 **Tag1 *Tag2 **Tag1 *Tag2 ** + 6 Hi-Q: 200 200 200 200 <3> + 7 > Hi-Q: 400 401 402 403 <4> +---- ^ + 8 Hi-Q: + 9 Hi-Q: +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-4429-reference:1.15-1.16: + 1 > Hi-Q: 1 2 3 4 5 +---- ^ + 2 Hi-Q: 1 2 3 4 5 + 3 Hi-Q: +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4553:0 +run_reportwriter.at-4553-prog.cob:8.34-8.42: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT RP-FILE ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4553-prog.cob:35.19-35.27: + 32 + 33 REPORT SECTION. + 34 RD RP + 35 > CODE IS "Hi-Q: " +---- ^^^^^^^^ + 36 PAGE LIMIT 10 LINES + 37 50 COLUMNS +>> Error: Invalid syntax + +run_reportwriter.at-4553-prog.cob:36.15: + 33 REPORT SECTION. + 34 RD RP + 35 CODE IS "Hi-Q: " + 36 > PAGE LIMIT 10 LINES +---- ^ + 37 50 COLUMNS + 38 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-4553-prog.cob:36.16-36.21: + 33 REPORT SECTION. + 34 RD RP + 35 CODE IS "Hi-Q: " + 36 > PAGE LIMIT 10 LINES +---- ^^^^^ + 37 50 COLUMNS + 38 HEADING 1 +>> Warning: Invalid syntax + +run_reportwriter.at-4553-prog.cob:36.30: + 33 REPORT SECTION. + 34 RD RP + 35 CODE IS "Hi-Q: " + 36 > PAGE LIMIT 10 LINES +---- ^ + 37 50 COLUMNS + 38 HEADING 1 +>> Hint: Missing ARE + +run_reportwriter.at-4553-prog.cob:37.22-37.24: + 34 RD RP + 35 CODE IS "Hi-Q: " + 36 PAGE LIMIT 10 LINES + 37 > 50 COLUMNS +---- ^^ + 38 HEADING 1 + 39 FIRST DETAIL 4. +>> Error: Invalid syntax + +run_reportwriter.at-4553-prog.cob:38.11-38.18: + 35 CODE IS "Hi-Q: " + 36 PAGE LIMIT 10 LINES + 37 50 COLUMNS + 38 > HEADING 1 +---- ^^^^^^^ + 39 FIRST DETAIL 4. + 40 01 HEADING-LINE. +>> Error: Invalid syntax + +run_reportwriter.at-4553-prog.cob:39.11-39.16: + 36 PAGE LIMIT 10 LINES + 37 50 COLUMNS + 38 HEADING 1 + 39 > FIRST DETAIL 4. +---- ^^^^^ + 40 01 HEADING-LINE. + 41 02 TYPE PAGE HEADING LINE PLUS 1. +>> Error: Invalid syntax + +run_reportwriter.at-4553-prog.cob:41.17: + 38 HEADING 1 + 39 FIRST DETAIL 4. + 40 01 HEADING-LINE. + 41 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 42 05 COLUMN 1 PIC X(50) VALUE + 43 " 1 2 3 4 5". +>> Hint: Missing DETAIL + +run_reportwriter.at-4553-prog.cob:41.18-41.22: + 38 HEADING 1 + 39 FIRST DETAIL 4. + 40 01 HEADING-LINE. + 41 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 42 05 COLUMN 1 PIC X(50) VALUE + 43 " 1 2 3 4 5". +>> Error: Invalid syntax + +run_reportwriter.at-4553-prog.cob:44.17: + 41 02 TYPE PAGE HEADING LINE PLUS 1. + 42 05 COLUMN 1 PIC X(50) VALUE + 43 " 1 2 3 4 5". + 44 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 45 05 COLUMN 1 PIC X(50) VALUE + 46 "12345678901234567890123456789012345678901234567890". +>> Hint: Missing DETAIL + +run_reportwriter.at-4553-prog.cob:44.18-44.22: + 41 02 TYPE PAGE HEADING LINE PLUS 1. + 42 05 COLUMN 1 PIC X(50) VALUE + 43 " 1 2 3 4 5". + 44 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 45 05 COLUMN 1 PIC X(50) VALUE + 46 "12345678901234567890123456789012345678901234567890". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4575:0 +run_reportwriter.at-4575-reference:2.6-2.7: + 1 Hi-Q: 1 2 3 4 5 + 2 > Hi-Q: 12345678901234567890123456789012345678901234567890 +---- ^ + 3 Hi-Q: + 4 Hi-Q: 100 100 100 <1> +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-4575-reference:4.6-4.7: + 1 Hi-Q: 1 2 3 4 5 + 2 Hi-Q: 12345678901234567890123456789012345678901234567890 + 3 Hi-Q: + 4 > Hi-Q: 100 100 100 <1> +---- ^ + 5 Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> + 6 Hi-Q: 200 200 200 200 <3> +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-4575-reference:5.6-5.7: + 2 Hi-Q: 12345678901234567890123456789012345678901234567890 + 3 Hi-Q: + 4 Hi-Q: 100 100 100 <1> + 5 > Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> +---- ^ + 6 Hi-Q: 200 200 200 200 <3> + 7 Hi-Q: 400 401402403 <4> +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-4575-reference:6.6-6.7: + 3 Hi-Q: + 4 Hi-Q: 100 100 100 <1> + 5 Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> + 6 > Hi-Q: 200 200 200 200 <3> +---- ^ + 7 Hi-Q: 400 401402403 <4> + 8 Hi-Q: +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-4575-reference:7.6-7.7: + 4 Hi-Q: 100 100 100 <1> + 5 Hi-Q: Tag1 *Tag2 **Tag1 _Tag2 **Tag1 *Tag2 ** <2> + 6 Hi-Q: 200 200 200 200 <3> + 7 > Hi-Q: 400 401402403 <4> +---- ^ + 8 Hi-Q: + 9 Hi-Q: +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-4575-reference:1.15-1.16: + 1 > Hi-Q: 1 2 3 4 5 +---- ^ + 2 Hi-Q: 12345678901234567890123456789012345678901234567890 + 3 Hi-Q: +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4626:0 +run_reportwriter.at-4626-prog.cob:8.33-8.41: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4626-prog.cob:20.13: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^ + 21 + 22 01 rp-detail TYPE DE. +>> Hint: Missing . + +run_reportwriter.at-4626-prog.cob:20.14-20.18: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^^^^ + 21 + 22 01 rp-detail TYPE DE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4641:0 +run_reportwriter.at-4641-reference:2.6-2.7: + 1 hello <---> + 2 > goodbye <---> +---- ^ + 3 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-4641-reference:1.30-1.31: + 1 > hello <---> +---- ^ + 2 goodbye <---> + 3 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4689:0 +run_reportwriter.at-4689-prog.cob:8.33-8.41: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4689-prog.cob:20.13: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^ + 21 + 22 01 rp-detail TYPE DE. +>> Hint: Missing . + +run_reportwriter.at-4689-prog.cob:20.14-20.18: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^^^^ + 21 + 22 01 rp-detail TYPE DE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4701:0 +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4743:0 +run_reportwriter.at-4743-prog.cob:8.33-8.41: + 5 ENVIRONMENT DIVISION. + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 > SELECT report-file ASSIGN EXTERNAL PRINTOUT +---- ^^^^^^^^ + 9 ORGANIZATION LINE SEQUENTIAL. + 10 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-4743-prog.cob:20.13: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^ + 21 + 22 01 rp-detail TYPE DE. +>> Hint: Missing . + +run_reportwriter.at-4743-prog.cob:20.14-20.18: + 17 01 hedpos PIC 99 VALUE 10. + 18 + 19 REPORT SECTION. + 20 > RD rp PAGE LIMIT 3. +---- ^^^^ + 21 + 22 01 rp-detail TYPE DE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:4755:0 +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:5051:0 +run_reportwriter.at-5051-inp_data:1.6-1.7: + 1 > MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 +---- ^ + 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 + 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:2.6-2.7: + 1 MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 + 2 > MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 +---- ^ + 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 + 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:3.6-3.7: + 1 MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 + 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 + 3 > MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 +---- ^ + 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 + 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:4.6-4.7: + 1 MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 + 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 + 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 + 4 > MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 +---- ^ + 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 + 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:5.6-5.7: + 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 + 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 + 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 + 5 > MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 +---- ^ + 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 + 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:6.6-6.7: + 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 + 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 + 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 + 6 > MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 +---- ^ + 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 + 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:7.6-7.7: + 4 MW1000071IN15022820150228OR150225098ITEM_NUMBER_92 0000001400009999 + 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 + 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 + 7 > MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 +---- ^ + 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 + 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:8.6-8.7: + 5 MW1000201IN15020920150209OR150216083ITEM_NUMBER_77 0000007700007999 + 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 + 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 + 8 > MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 +---- ^ + 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 + 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:9.6-9.7: + 6 MW1000201IN15022720150227OR150223079ITEM_NUMBER_20 0000009600002999 + 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 + 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 + 9 > MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 +---- ^ + 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 + 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:10.6-10.7: + 7 MW1000291IN15021720150217OR150218088ITEM_NUMBER_86 0000001900008999 + 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 + 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 + 10 > MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 +---- ^ + 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 + 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:11.6-11.7: + 8 MW1000411IN15022320150223OR150210063ITEM_NUMBER_66 0000008800006999 + 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 + 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 + 11 > MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 +---- ^ + 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 + 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:12.6-12.7: + 9 MW1000451IN15021720150217OR150202053ITEM_NUMBER_60 0000005100006999 + 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 + 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 + 12 > MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 +---- ^ + 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 + 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:13.6-13.7: + 10 MW1000471IN15022420150224OR150201036ITEM_NUMBER_45 0000003800004999 + 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 + 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 + 13 > MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 +---- ^ + 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 + 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:14.6-14.7: + 11 MW1000831IN15021020150210OR150227042ITEM_NUMBER_70 0000007200007999 + 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 + 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 + 14 > MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 +---- ^ + 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 + 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:15.6-15.7: + 12 MW1000831IN15021420150214OR150228090ITEM_NUMBER_07 0000002300000999 + 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 + 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 + 15 > MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 +---- ^ + 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 + 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:16.6-16.7: + 13 MW1000831IN15022020150220OR150226048ITEM_NUMBER_61 0000005900006999 + 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 + 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 + 16 > NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 +---- ^ + 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 + 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:17.6-17.7: + 14 MW1000891IN15022120150221OR150219018ITEM_NUMBER_72 0000007300007999 + 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 + 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 + 17 > NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 +---- ^ + 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 + 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:18.6-18.7: + 15 MW1000891IN15022320150223OR150227069ITEM_NUMBER_73 0000007400007999 + 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 + 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 + 18 > NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 +---- ^ + 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 + 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:19.6-19.7: + 16 NE1000001IN15021020150210OR150217060ITEM_NUMBER_38 0000009800003999 + 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 + 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 + 19 > NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 +---- ^ + 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 + 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:20.6-20.7: + 17 NE1000201IN15021920150219OR150209035ITEM_NUMBER_94 0000009600009999 + 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 + 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 + 20 > NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 +---- ^ + 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 + 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:21.6-21.7: + 18 NE1000431IN15021520150215OR150227047ITEM_NUMBER_64 0000008700006999 + 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 + 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 + 21 > NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 +---- ^ + 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 + 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:22.6-22.7: + 19 NE1000431IN15022220150222OR150213062ITEM_NUMBER_97 0000007300009999 + 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 + 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 + 22 > NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 +---- ^ + 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 + 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:23.6-23.7: + 20 NE1000451IN15020320150203OR150213087ITEM_NUMBER_85 0000005300008999 + 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 + 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 + 23 > NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 +---- ^ + 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 + 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:24.6-24.7: + 21 NE1000471IN15022120150221OR150222034ITEM_NUMBER_74 0000008400007999 + 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 + 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 + 24 > NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 +---- ^ + 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 + 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:25.6-25.7: + 22 NE1000471IN15022120150221OR150225077ITEM_NUMBER_78 0000002400007999 + 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 + 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 + 25 > NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 +---- ^ + 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 + 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:26.6-26.7: + 23 NE1000491IN15021720150217OR150210037ITEM_NUMBER_17 0000000700001999 + 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 + 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 + 26 > NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 +---- ^ + 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 + 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:27.6-27.7: + 24 NE1000601IN15021520150215OR150211070ITEM_NUMBER_06 0000004400000999 + 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 + 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 + 27 > NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 +---- ^ + 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 + 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:28.6-28.7: + 25 NE1000631IN15022720150227OR150209051ITEM_NUMBER_09 0000005400000999 + 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 + 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 + 28 > NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 +---- ^ + 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 + 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:29.6-29.7: + 26 NE1000671IN15020620150206OR150220045ITEM_NUMBER_56 0000006600005999 + 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 + 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 + 29 > NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 +---- ^ + 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 + 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:30.6-30.7: + 27 NE1000811IN15022020150220OR150212086ITEM_NUMBER_27 0000001700002999 + 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 + 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 + 30 > NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 +---- ^ + 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 + 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:31.6-31.7: + 28 NE1000811IN15022820150228OR150222075ITEM_NUMBER_66 0000008600006999 + 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 + 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 + 31 > NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 +---- ^ + 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 + 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:32.6-32.7: + 29 NE1000831IN15021620150216OR150224004ITEM_NUMBER_52 0000004200005999 + 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 + 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 + 32 > NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 +---- ^ + 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 + 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:33.6-33.7: + 30 NW1000001IN15022420150224OR150215029ITEM_NUMBER_79 0000003500007999 + 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 + 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 + 33 > NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 +---- ^ + 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 + 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:34.6-34.7: + 31 NW1000011IN15022820150228OR150209023ITEM_NUMBER_62 0000009800006999 + 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 + 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 + 34 > NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 +---- ^ + 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 + 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:35.6-35.7: + 32 NW1000051IN15021020150210OR150225076ITEM_NUMBER_50 0000003900005999 + 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 + 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 + 35 > NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 +---- ^ + 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 + 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:36.6-36.7: + 33 NW1000051IN15021820150218OR150229093ITEM_NUMBER_94 0000003700009999 + 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 + 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 + 36 > NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 +---- ^ + 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 + 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:37.6-37.7: + 34 NW1000051IN15022020150220OR150221050ITEM_NUMBER_89 0000003800008999 + 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 + 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 + 37 > NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 +---- ^ + 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 + 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:38.6-38.7: + 35 NW1000071IN15020220150202OR150223014ITEM_NUMBER_54 0000004800005999 + 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 + 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 + 38 > NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 +---- ^ + 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 + 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:39.6-39.7: + 36 NW1000091IN15020820150208OR150229094ITEM_NUMBER_17 0000007200001999 + 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 + 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 + 39 > NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 +---- ^ + 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 + 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:40.6-40.7: + 37 NW1000091IN15021220150212OR150222096ITEM_NUMBER_89 0000004900008999 + 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 + 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 + 40 > NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 +---- ^ + 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 + 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:41.6-41.7: + 38 NW1000091IN15022420150224OR150211074ITEM_NUMBER_90 0000004300009999 + 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 + 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 + 41 > NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 +---- ^ + 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 + 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:42.6-42.7: + 39 NW1000091IN15022720150227OR150219030ITEM_NUMBER_12 0000001900001999 + 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 + 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 + 42 > NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 +---- ^ + 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 + 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:43.6-43.7: + 40 NW1000201IN15020820150208OR150210061ITEM_NUMBER_34 0000001200003999 + 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 + 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 + 43 > NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 +---- ^ + 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 + 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:44.6-44.7: + 41 NW1000231IN15021420150214OR150210044ITEM_NUMBER_89 0000005400008999 + 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 + 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 + 44 > NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 +---- ^ + 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 + 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:45.6-45.7: + 42 NW1000251IN15021220150212OR150204059ITEM_NUMBER_39 0000006000003999 + 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 + 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 + 45 > NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 +---- ^ + 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 + 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:46.6-46.7: + 43 NW1000401IN15021520150215OR150222049ITEM_NUMBER_40 0000008100004999 + 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 + 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 + 46 > NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 +---- ^ + 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 + 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:47.6-47.7: + 44 NW1000401IN15021720150217OR150203085ITEM_NUMBER_77 0000003700007999 + 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 + 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 + 47 > NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 +---- ^ + 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 + 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:48.6-48.7: + 45 NW1000411IN15020720150207OR150224056ITEM_NUMBER_99 0000005400009999 + 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 + 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 + 48 > NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 +---- ^ + 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 + 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:49.6-49.7: + 46 NW1000411IN15022820150228OR150221008ITEM_NUMBER_68 0000009000006999 + 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 + 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 + 49 > NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 +---- ^ + 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 + 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:50.6-50.7: + 47 NW1000491IN15022820150228OR150201002ITEM_NUMBER_47 0000008600004999 + 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 + 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 + 50 > NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 +---- ^ + 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 + 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:51.6-51.7: + 48 NW1000611IN15022720150227OR150224097ITEM_NUMBER_11 0000008000001999 + 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 + 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 + 51 > NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 +---- ^ + 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 + 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:52.6-52.7: + 49 NW1000631IN15020720150207OR150206031ITEM_NUMBER_49 0000001500004999 + 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 + 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 + 52 > NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 +---- ^ + 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 + 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:53.6-53.7: + 50 NW1000631IN15021420150214OR150210054ITEM_NUMBER_40 0000004200004999 + 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 + 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 + 53 > NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 +---- ^ + 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 + 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:54.6-54.7: + 51 NW1000631IN15022420150224OR150218024ITEM_NUMBER_84 0000003300008999 + 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 + 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 + 54 > NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 +---- ^ + 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 + 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:55.6-55.7: + 52 NW1000651IN15020620150206OR150225099ITEM_NUMBER_57 0000004300005999 + 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 + 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 + 55 > NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 +---- ^ + 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 + 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:56.6-56.7: + 53 NW1000671IN15021320150213OR150224041ITEM_NUMBER_22 0000000200002999 + 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 + 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 + 56 > NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 +---- ^ + 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 + 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:57.6-57.7: + 54 NW1000691IN15020420150204OR150211092ITEM_NUMBER_13 0000009400001999 + 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 + 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 + 57 > NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 +---- ^ + 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 + 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:58.6-58.7: + 55 NW1000811IN15022720150227OR150217081ITEM_NUMBER_45 0000001600004999 + 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 + 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 + 58 > NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 +---- ^ + 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 + 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:59.6-59.7: + 56 NW1000851IN15020820150208OR150203091ITEM_NUMBER_63 0000006600006999 + 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 + 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 + 59 > NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 +---- ^ + 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 + 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:60.6-60.7: + 57 NW1000871IN15021820150218OR150209082ITEM_NUMBER_30 0000005500003999 + 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 + 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 + 60 > SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 +---- ^ + 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 + 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:61.6-61.7: + 58 NW1000871IN15022820150228OR150222015ITEM_NUMBER_73 0000005100007999 + 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 + 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 + 61 > SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 +---- ^ + 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 + 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:62.6-62.7: + 59 NW1000891IN15022520150225OR150201026ITEM_NUMBER_80 0000004700008999 + 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 + 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 + 62 > SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 +---- ^ + 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 + 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:63.6-63.7: + 60 SE1000001IN15022320150223OR150203064ITEM_NUMBER_03 0000007100000999 + 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 + 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 + 63 > SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 +---- ^ + 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 + 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:64.6-64.7: + 61 SE1000011IN15020120150201OR150213017ITEM_NUMBER_09 0000000600000999 + 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 + 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 + 64 > SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 +---- ^ + 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 + 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:65.6-65.7: + 62 SE1000011IN15021220150212OR150209066ITEM_NUMBER_06 0000004000000999 + 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 + 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 + 65 > SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 +---- ^ + 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 + 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:66.6-66.7: + 63 SE1000091IN15020420150204OR150201001ITEM_NUMBER_68 0000001900006999 + 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 + 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 + 66 > SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 +---- ^ + 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 + 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:67.6-67.7: + 64 SE1000091IN15021020150210OR150223084ITEM_NUMBER_11 0000009300001999 + 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 + 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 + 67 > SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 +---- ^ + 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 + 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:68.6-68.7: + 65 SE1000091IN15022620150226OR150219038ITEM_NUMBER_97 0000003700009999 + 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 + 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 + 68 > SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 +---- ^ + 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 + 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:69.6-69.7: + 66 SE1000211IN15020620150206OR150221089ITEM_NUMBER_05 0000004500000999 + 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 + 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 + 69 > SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 +---- ^ + 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 + 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:70.6-70.7: + 67 SE1000411IN15021220150212OR150208012ITEM_NUMBER_46 0000002300004999 + 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 + 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 + 70 > SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 +---- ^ + 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 + 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:71.6-71.7: + 68 SE1000431IN15020720150207OR150214072ITEM_NUMBER_25 0000004600002999 + 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 + 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 + 71 > SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 +---- ^ + 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 + 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:72.6-72.7: + 69 SE1000431IN15022520150225OR150220040ITEM_NUMBER_01 0000006100000999 + 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 + 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 + 72 > SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 +---- ^ + 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 + 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:73.6-73.7: + 70 SE1000451IN15021420150214OR150204022ITEM_NUMBER_34 0000004700003999 + 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 + 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 + 73 > SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 +---- ^ + 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 + 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:74.6-74.7: + 71 SE1000471IN15020320150203OR150217010ITEM_NUMBER_25 0000003400002999 + 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 + 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 + 74 > SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 +---- ^ + 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 + 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:75.6-75.7: + 72 SE1000471IN15021120150211OR150213025ITEM_NUMBER_54 0000009200005999 + 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 + 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 + 75 > SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 +---- ^ + 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 + 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:76.6-76.7: + 73 SE1000491IN15020220150202OR150202013ITEM_NUMBER_19 0000007800001999 + 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 + 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 + 76 > SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 +---- ^ + 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 + 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:77.6-77.7: + 74 SE1000601IN15022420150224OR150210039ITEM_NUMBER_19 0000005600001999 + 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 + 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 + 77 > SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 +---- ^ + 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 + 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:78.6-78.7: + 75 SE1000631IN15020120150201OR150216003ITEM_NUMBER_65 0000001100006999 + 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 + 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 + 78 > SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 +---- ^ + 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 + 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:79.6-79.7: + 76 SE1000671IN15020320150203OR150205071ITEM_NUMBER_64 0000009400006999 + 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 + 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 + 79 > SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 +---- ^ + 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 + 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:80.6-80.7: + 77 SE1000671IN15022020150220OR150214032ITEM_NUMBER_53 0000005900005999 + 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 + 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 + 80 > SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 +---- ^ + 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 + 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:81.6-81.7: + 78 SE1000891IN15022620150226OR150229068ITEM_NUMBER_75 0000008400007999 + 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 + 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 + 81 > SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 +---- ^ + 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 + 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:82.6-82.7: + 79 SW1000011IN15020220150202OR150206000ITEM_NUMBER_30 0000005900003999 + 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 + 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 + 82 > SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 +---- ^ + 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 + 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-5051-inp_data:83.6-83.7: + 80 SW1000031IN15020320150203OR150214033ITEM_NUMBER_09 0000006000000999 + 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 + 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 + 83 > SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 +---- ^ + 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 + 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:84.6-84.7: + 81 SW1000031IN15020620150206OR150206021ITEM_NUMBER_91 0000005400009999 + 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 + 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 + 84 > SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 +---- ^ + 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 + 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:85.6-85.7: + 82 SW1000091IN15022320150223OR150221028ITEM_NUMBER_67 0000003900006999 + 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 + 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 + 85 > SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 +---- ^ + 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 + 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:86.6-86.7: + 83 SW1000201IN15020920150209OR150205065ITEM_NUMBER_21 0000007000002999 + 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 + 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 + 86 > SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 +---- ^ + 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 + 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:87.6-87.7: + 84 SW1000201IN15022520150225OR150203052ITEM_NUMBER_55 0000007500005999 + 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 + 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 + 87 > SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 +---- ^ + 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 + 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:88.6-88.7: + 85 SW1000201IN15022520150225OR150210067ITEM_NUMBER_83 0000001500008999 + 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 + 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 + 88 > SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 +---- ^ + 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 + 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:89.6-89.7: + 86 SW1000211IN15020220150202OR150221055ITEM_NUMBER_16 0000001300001999 + 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 + 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 + 89 > SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 +---- ^ + 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 + 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-5051-inp_data:90.6-90.7: + 87 SW1000211IN15020820150208OR150215007ITEM_NUMBER_97 0000008900009999 + 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 + 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 + 90 > SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 +---- ^ + 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 + 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:91.6-91.7: + 88 SW1000271IN15021120150211OR150228080ITEM_NUMBER_45 0000005200004999 + 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 + 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 + 91 > SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 +---- ^ + 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 + 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:92.6-92.7: + 89 SW1000271IN15021320150213OR150207095ITEM_NUMBER_09 0000005400000999 + 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 + 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 + 92 > SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 +---- ^ + 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 + 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:93.6-93.7: + 90 SW1000401IN15022820150228OR150202027ITEM_NUMBER_83 0000000100008999 + 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 + 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 + 93 > SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 +---- ^ + 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 + 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-5051-inp_data:94.6-94.7: + 91 SW1000411IN15021020150210OR150220073ITEM_NUMBER_63 0000001400006999 + 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 + 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 + 94 > SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 +---- ^ + 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 + 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:95.6-95.7: + 92 SW1000431IN15020820150208OR150227078ITEM_NUMBER_23 0000005200002999 + 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 + 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 + 95 > SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 +---- ^ + 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 + 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:96.6-96.7: + 93 SW1000431IN15022020150220OR150227006ITEM_NUMBER_50 0000008500005999 + 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 + 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 + 96 > SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 +---- ^ + 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 + 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 +>> Error: Unexpected indicator: `6' + +run_reportwriter.at-5051-inp_data:97.6-97.7: + 94 SW1000601IN15020620150206OR150201011ITEM_NUMBER_73 0000008400007999 + 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 + 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 + 97 > SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 +---- ^ + 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 + 99 SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:98.6-98.7: + 95 SW1000611IN15020620150206OR150218019ITEM_NUMBER_67 0000006100006999 + 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 + 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 + 98 > SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 +---- ^ + 99 SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 + 100 SW1000871IN15020220150202OR150216016ITEM_NUMBER_62 0000008300006999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:99.6-99.7: + 96 SW1000651IN15020920150209OR150224009ITEM_NUMBER_23 0000001800002999 + 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 + 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 + 99 > SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 +---- ^ + 100 SW1000871IN15020220150202OR150216016ITEM_NUMBER_62 0000008300006999 +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:100.6-100.7: + 97 SW1000831IN15020120150201OR150221046ITEM_NUMBER_44 0000006900004999 + 98 SW1000831IN15022020150220OR150213005ITEM_NUMBER_44 0000003700004999 + 99 SW1000831IN15022220150222OR150213058ITEM_NUMBER_86 0000008300008999 + 100 > SW1000871IN15020220150202OR150216016ITEM_NUMBER_62 0000008300006999 +---- ^ +>> Error: Unexpected indicator: `8' + +run_reportwriter.at-5051-inp_data:1.7-1.50: + 1 > MW1000051IN15021220150212OR150212043ITEM_NUMBER_22 0000002800002999 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 2 MW1000051IN15022220150222OR150226020ITEM_NUMBER_06 0000004300000999 + 3 MW1000071IN15021420150214OR150212057ITEM_NUMBER_51 0000007000005999 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:5049:0 +run_reportwriter.at-5049-prog.cob:14.24-14.32: + 11 FILE-CONTROL. + 12 + 13 SELECT REPORT-FILE + 14 > ASSIGN TO EXTERNAL REPORTFILE +---- ^^^^^^^^ + 15 ORGANIZATION IS LINE SEQUENTIAL. + 16 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-5049-prog.cob:18.24-18.32: + 15 ORGANIZATION IS LINE SEQUENTIAL. + 16 + 17 SELECT TEMP-FILE + 18 > ASSIGN TO EXTERNAL TEMPFILE +---- ^^^^^^^^ + 19 ORGANIZATION IS LINE SEQUENTIAL. + 20 +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-5049-prog.cob:63.15: + 60 TEMP-BRANCH, + 61 TEMP-INVOICE + 62 + 63 > PAGE LIMIT IS 60 LINES +---- ^ + 64 HEADING 1 + 65 FIRST DETAIL 8 +>> Hint: Missing . + +run_reportwriter.at-5049-prog.cob:63.16-63.21: + 60 TEMP-BRANCH, + 61 TEMP-INVOICE + 62 + 63 > PAGE LIMIT IS 60 LINES +---- ^^^^^ + 64 HEADING 1 + 65 FIRST DETAIL 8 +>> Warning: Invalid syntax + +run_reportwriter.at-5049-prog.cob:63.33: + 60 TEMP-BRANCH, + 61 TEMP-INVOICE + 62 + 63 > PAGE LIMIT IS 60 LINES +---- ^ + 64 HEADING 1 + 65 FIRST DETAIL 8 +>> Hint: Missing ARE + +run_reportwriter.at-5049-prog.cob:64.11-64.18: + 61 TEMP-INVOICE + 62 + 63 PAGE LIMIT IS 60 LINES + 64 > HEADING 1 +---- ^^^^^^^ + 65 FIRST DETAIL 8 + 66 LAST DETAIL 48. +>> Error: Invalid syntax + +run_reportwriter.at-5049-prog.cob:65.11-65.16: + 62 + 63 PAGE LIMIT IS 60 LINES + 64 HEADING 1 + 65 > FIRST DETAIL 8 +---- ^^^^^ + 66 LAST DETAIL 48. + 67 +>> Error: Invalid syntax + +run_reportwriter.at-5049-prog.cob:66.11-66.15: + 63 PAGE LIMIT IS 60 LINES + 64 HEADING 1 + 65 FIRST DETAIL 8 + 66 > LAST DETAIL 48. +---- ^^^^ + 67 + 68 01 RPTA-PAGE-HEADING TYPE PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-5049-prog.cob:68.32: + 65 FIRST DETAIL 8 + 66 LAST DETAIL 48. + 67 + 68 > 01 RPTA-PAGE-HEADING TYPE PAGE HEADING. +---- ^ + 69 03 LINE NUMBER IS 1. + 70 05 COLUMN 1 PIC X(4) VALUE "Run:". +>> Hint: Missing DETAIL + +run_reportwriter.at-5049-prog.cob:68.33-68.37: + 65 FIRST DETAIL 8 + 66 LAST DETAIL 48. + 67 + 68 > 01 RPTA-PAGE-HEADING TYPE PAGE HEADING. +---- ^^^^ + 69 03 LINE NUMBER IS 1. + 70 05 COLUMN 1 PIC X(4) VALUE "Run:". +>> Error: Invalid syntax + +run_reportwriter.at-5049-prog.cob:122.48: + 119 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. + 120 + 121 01 RPTA-BRANCH-FOOTING TYPE CONTROL FOOTING TEMP-BRANCH + 122 > NEXT GROUP NEXT PAGE. +---- ^ + 123 03 LINE NUMBER IS PLUS 2. + 124 05 COLUMN 69 PIC X(15) VALUE "Branch Total: ". +>> Hint: Missing PAGE + +run_reportwriter.at-5049-prog.cob:122.49-122.53: + 119 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. + 120 + 121 01 RPTA-BRANCH-FOOTING TYPE CONTROL FOOTING TEMP-BRANCH + 122 > NEXT GROUP NEXT PAGE. +---- ^^^^ + 123 03 LINE NUMBER IS PLUS 2. + 124 05 COLUMN 69 PIC X(15) VALUE "Branch Total: ". +>> Error: Invalid syntax + +run_reportwriter.at-5049-prog.cob:129.48: + 126 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. + 127 + 128 01 RPTA-REGION-FOOTING TYPE CONTROL FOOTING TEMP-REGION + 129 > NEXT GROUP NEXT PAGE. +---- ^ + 130 03 LINE NUMBER IS PLUS 2. + 131 05 COLUMN 69 PIC X(15) VALUE "Region Total: ". +>> Hint: Missing PAGE + +run_reportwriter.at-5049-prog.cob:129.49-129.53: + 126 05 COLUMN 113 PIC ZZZZZZZ9.99 SUM TEMP-COST. + 127 + 128 01 RPTA-REGION-FOOTING TYPE CONTROL FOOTING TEMP-REGION + 129 > NEXT GROUP NEXT PAGE. +---- ^^^^ + 130 03 LINE NUMBER IS PLUS 2. + 131 05 COLUMN 69 PIC X(15) VALUE "Region Total: ". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9078:0 +run_reportwriter.at-9078-reference:2.6-2.7: + 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 + 2 > Region: MW +---- ^ + 3 Location: 1000051 + 4 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3.6-3.7: + 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 + 2 Region: MW + 3 > Location: 1000051 +---- ^ + 4 Invoice# Date Order# Line# Item# TX Qty Cost + 5 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:4.6-4.7: + 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 + 2 Region: MW + 3 Location: 1000051 + 4 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 5 -------------------------------------------------------------------------------------------------------------------------------- + 6 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:5.7-5.11: + 2 Region: MW + 3 Location: 1000051 + 4 Invoice# Date Order# Line# Item# TX Qty Cost + 5 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 6 + 7 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:8.6-8.7: + 5 -------------------------------------------------------------------------------------------------------------------------------- + 6 + 7 + 8 > IN150212 20150212 OR150212 043 ITEM_NUMBER_22 00000028 29.99 +---- ^ + 9 Invoice Total: 000000028 29.99 + 10 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:11.6-11.7: + 8 IN150212 20150212 OR150212 043 ITEM_NUMBER_22 00000028 29.99 + 9 Invoice Total: 000000028 29.99 + 10 + 11 > IN150222 20150222 OR150226 020 ITEM_NUMBER_06 00000043 9.99 +---- ^ + 12 Invoice Total: 000000043 9.99 + 13 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:62.6-62.7: + 59 + 60 + 61 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 2 + 62 > Region: MW +---- ^ + 63 Location: 1000071 + 64 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:63.6-63.7: + 60 + 61 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 2 + 62 Region: MW + 63 > Location: 1000071 +---- ^ + 64 Invoice# Date Order# Line# Item# TX Qty Cost + 65 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:64.6-64.7: + 61 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 2 + 62 Region: MW + 63 Location: 1000071 + 64 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 65 -------------------------------------------------------------------------------------------------------------------------------- + 66 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:65.7-65.11: + 62 Region: MW + 63 Location: 1000071 + 64 Invoice# Date Order# Line# Item# TX Qty Cost + 65 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 66 + 67 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:68.6-68.7: + 65 -------------------------------------------------------------------------------------------------------------------------------- + 66 + 67 + 68 > IN150214 20150214 OR150212 057 ITEM_NUMBER_51 00000070 59.99 +---- ^ + 69 Invoice Total: 000000070 59.99 + 70 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:71.6-71.7: + 68 IN150214 20150214 OR150212 057 ITEM_NUMBER_51 00000070 59.99 + 69 Invoice Total: 000000070 59.99 + 70 + 71 > IN150228 20150228 OR150225 098 ITEM_NUMBER_92 00000014 99.99 +---- ^ + 72 Invoice Total: 000000014 99.99 + 73 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:122.6-122.7: + 119 + 120 + 121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 3 + 122 > Region: MW +---- ^ + 123 Location: 1000201 + 124 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:123.6-123.7: + 120 + 121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 3 + 122 Region: MW + 123 > Location: 1000201 +---- ^ + 124 Invoice# Date Order# Line# Item# TX Qty Cost + 125 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:124.6-124.7: + 121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 3 + 122 Region: MW + 123 Location: 1000201 + 124 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 125 -------------------------------------------------------------------------------------------------------------------------------- + 126 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:125.7-125.11: + 122 Region: MW + 123 Location: 1000201 + 124 Invoice# Date Order# Line# Item# TX Qty Cost + 125 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 126 + 127 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:128.6-128.7: + 125 -------------------------------------------------------------------------------------------------------------------------------- + 126 + 127 + 128 > IN150209 20150209 OR150216 083 ITEM_NUMBER_77 00000077 79.99 +---- ^ + 129 Invoice Total: 000000077 79.99 + 130 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:131.6-131.7: + 128 IN150209 20150209 OR150216 083 ITEM_NUMBER_77 00000077 79.99 + 129 Invoice Total: 000000077 79.99 + 130 + 131 > IN150227 20150227 OR150223 079 ITEM_NUMBER_20 00000096 29.99 +---- ^ + 132 Invoice Total: 000000096 29.99 + 133 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:182.6-182.7: + 179 + 180 + 181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 4 + 182 > Region: MW +---- ^ + 183 Location: 1000291 + 184 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:183.6-183.7: + 180 + 181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 4 + 182 Region: MW + 183 > Location: 1000291 +---- ^ + 184 Invoice# Date Order# Line# Item# TX Qty Cost + 185 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:184.6-184.7: + 181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 4 + 182 Region: MW + 183 Location: 1000291 + 184 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 185 -------------------------------------------------------------------------------------------------------------------------------- + 186 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:185.7-185.11: + 182 Region: MW + 183 Location: 1000291 + 184 Invoice# Date Order# Line# Item# TX Qty Cost + 185 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 186 + 187 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:188.6-188.7: + 185 -------------------------------------------------------------------------------------------------------------------------------- + 186 + 187 + 188 > IN150217 20150217 OR150218 088 ITEM_NUMBER_86 00000019 89.99 +---- ^ + 189 Invoice Total: 000000019 89.99 + 190 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:242.6-242.7: + 239 + 240 + 241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 5 + 242 > Region: MW +---- ^ + 243 Location: 1000411 + 244 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:243.6-243.7: + 240 + 241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 5 + 242 Region: MW + 243 > Location: 1000411 +---- ^ + 244 Invoice# Date Order# Line# Item# TX Qty Cost + 245 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:244.6-244.7: + 241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 5 + 242 Region: MW + 243 Location: 1000411 + 244 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 245 -------------------------------------------------------------------------------------------------------------------------------- + 246 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:245.7-245.11: + 242 Region: MW + 243 Location: 1000411 + 244 Invoice# Date Order# Line# Item# TX Qty Cost + 245 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 246 + 247 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:248.6-248.7: + 245 -------------------------------------------------------------------------------------------------------------------------------- + 246 + 247 + 248 > IN150223 20150223 OR150210 063 ITEM_NUMBER_66 00000088 69.99 +---- ^ + 249 Invoice Total: 000000088 69.99 + 250 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:302.6-302.7: + 299 + 300 + 301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 6 + 302 > Region: MW +---- ^ + 303 Location: 1000451 + 304 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:303.6-303.7: + 300 + 301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 6 + 302 Region: MW + 303 > Location: 1000451 +---- ^ + 304 Invoice# Date Order# Line# Item# TX Qty Cost + 305 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:304.6-304.7: + 301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 6 + 302 Region: MW + 303 Location: 1000451 + 304 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 305 -------------------------------------------------------------------------------------------------------------------------------- + 306 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:305.7-305.11: + 302 Region: MW + 303 Location: 1000451 + 304 Invoice# Date Order# Line# Item# TX Qty Cost + 305 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 306 + 307 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:308.6-308.7: + 305 -------------------------------------------------------------------------------------------------------------------------------- + 306 + 307 + 308 > IN150217 20150217 OR150202 053 ITEM_NUMBER_60 00000051 69.99 +---- ^ + 309 Invoice Total: 000000051 69.99 + 310 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:362.6-362.7: + 359 + 360 + 361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 7 + 362 > Region: MW +---- ^ + 363 Location: 1000471 + 364 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:363.6-363.7: + 360 + 361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 7 + 362 Region: MW + 363 > Location: 1000471 +---- ^ + 364 Invoice# Date Order# Line# Item# TX Qty Cost + 365 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:364.6-364.7: + 361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 7 + 362 Region: MW + 363 Location: 1000471 + 364 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 365 -------------------------------------------------------------------------------------------------------------------------------- + 366 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:365.7-365.11: + 362 Region: MW + 363 Location: 1000471 + 364 Invoice# Date Order# Line# Item# TX Qty Cost + 365 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 366 + 367 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:368.6-368.7: + 365 -------------------------------------------------------------------------------------------------------------------------------- + 366 + 367 + 368 > IN150224 20150224 OR150201 036 ITEM_NUMBER_45 00000038 49.99 +---- ^ + 369 Invoice Total: 000000038 49.99 + 370 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:422.6-422.7: + 419 + 420 + 421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 8 + 422 > Region: MW +---- ^ + 423 Location: 1000831 + 424 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:423.6-423.7: + 420 + 421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 8 + 422 Region: MW + 423 > Location: 1000831 +---- ^ + 424 Invoice# Date Order# Line# Item# TX Qty Cost + 425 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:424.6-424.7: + 421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 8 + 422 Region: MW + 423 Location: 1000831 + 424 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 425 -------------------------------------------------------------------------------------------------------------------------------- + 426 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:425.7-425.11: + 422 Region: MW + 423 Location: 1000831 + 424 Invoice# Date Order# Line# Item# TX Qty Cost + 425 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 426 + 427 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:428.6-428.7: + 425 -------------------------------------------------------------------------------------------------------------------------------- + 426 + 427 + 428 > IN150210 20150210 OR150227 042 ITEM_NUMBER_70 00000072 79.99 +---- ^ + 429 Invoice Total: 000000072 79.99 + 430 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:431.6-431.7: + 428 IN150210 20150210 OR150227 042 ITEM_NUMBER_70 00000072 79.99 + 429 Invoice Total: 000000072 79.99 + 430 + 431 > IN150214 20150214 OR150228 090 ITEM_NUMBER_07 00000023 9.99 +---- ^ + 432 Invoice Total: 000000023 9.99 + 433 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:434.6-434.7: + 431 IN150214 20150214 OR150228 090 ITEM_NUMBER_07 00000023 9.99 + 432 Invoice Total: 000000023 9.99 + 433 + 434 > IN150220 20150220 OR150226 048 ITEM_NUMBER_61 00000059 69.99 +---- ^ + 435 Invoice Total: 000000059 69.99 + 436 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:482.6-482.7: + 479 + 480 + 481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 9 + 482 > Region: MW +---- ^ + 483 Location: 1000891 + 484 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:483.6-483.7: + 480 + 481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 9 + 482 Region: MW + 483 > Location: 1000891 +---- ^ + 484 Invoice# Date Order# Line# Item# TX Qty Cost + 485 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:484.6-484.7: + 481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 9 + 482 Region: MW + 483 Location: 1000891 + 484 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 485 -------------------------------------------------------------------------------------------------------------------------------- + 486 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:485.7-485.11: + 482 Region: MW + 483 Location: 1000891 + 484 Invoice# Date Order# Line# Item# TX Qty Cost + 485 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 486 + 487 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:488.6-488.7: + 485 -------------------------------------------------------------------------------------------------------------------------------- + 486 + 487 + 488 > IN150221 20150221 OR150219 018 ITEM_NUMBER_72 00000073 79.99 +---- ^ + 489 Invoice Total: 000000073 79.99 + 490 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:491.6-491.7: + 488 IN150221 20150221 OR150219 018 ITEM_NUMBER_72 00000073 79.99 + 489 Invoice Total: 000000073 79.99 + 490 + 491 > IN150223 20150223 OR150227 069 ITEM_NUMBER_73 00000074 79.99 +---- ^ + 492 Invoice Total: 000000074 79.99 + 493 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:542.6-542.7: + 539 + 540 + 541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 10 + 542 > Region: NE +---- ^ + 543 Location: 1000001 + 544 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:543.6-543.7: + 540 + 541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 10 + 542 Region: NE + 543 > Location: 1000001 +---- ^ + 544 Invoice# Date Order# Line# Item# TX Qty Cost + 545 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:544.6-544.7: + 541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 10 + 542 Region: NE + 543 Location: 1000001 + 544 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 545 -------------------------------------------------------------------------------------------------------------------------------- + 546 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:545.7-545.11: + 542 Region: NE + 543 Location: 1000001 + 544 Invoice# Date Order# Line# Item# TX Qty Cost + 545 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 546 + 547 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:548.6-548.7: + 545 -------------------------------------------------------------------------------------------------------------------------------- + 546 + 547 + 548 > IN150210 20150210 OR150217 060 ITEM_NUMBER_38 00000098 39.99 +---- ^ + 549 Invoice Total: 000000098 39.99 + 550 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:602.6-602.7: + 599 + 600 + 601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 11 + 602 > Region: NE +---- ^ + 603 Location: 1000201 + 604 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:603.6-603.7: + 600 + 601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 11 + 602 Region: NE + 603 > Location: 1000201 +---- ^ + 604 Invoice# Date Order# Line# Item# TX Qty Cost + 605 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:604.6-604.7: + 601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 11 + 602 Region: NE + 603 Location: 1000201 + 604 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 605 -------------------------------------------------------------------------------------------------------------------------------- + 606 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:605.7-605.11: + 602 Region: NE + 603 Location: 1000201 + 604 Invoice# Date Order# Line# Item# TX Qty Cost + 605 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 606 + 607 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:608.6-608.7: + 605 -------------------------------------------------------------------------------------------------------------------------------- + 606 + 607 + 608 > IN150219 20150219 OR150209 035 ITEM_NUMBER_94 00000096 99.99 +---- ^ + 609 Invoice Total: 000000096 99.99 + 610 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:662.6-662.7: + 659 + 660 + 661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 12 + 662 > Region: NE +---- ^ + 663 Location: 1000431 + 664 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:663.6-663.7: + 660 + 661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 12 + 662 Region: NE + 663 > Location: 1000431 +---- ^ + 664 Invoice# Date Order# Line# Item# TX Qty Cost + 665 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:664.6-664.7: + 661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 12 + 662 Region: NE + 663 Location: 1000431 + 664 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 665 -------------------------------------------------------------------------------------------------------------------------------- + 666 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:665.7-665.11: + 662 Region: NE + 663 Location: 1000431 + 664 Invoice# Date Order# Line# Item# TX Qty Cost + 665 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 666 + 667 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:668.6-668.7: + 665 -------------------------------------------------------------------------------------------------------------------------------- + 666 + 667 + 668 > IN150215 20150215 OR150227 047 ITEM_NUMBER_64 00000087 69.99 +---- ^ + 669 Invoice Total: 000000087 69.99 + 670 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:671.6-671.7: + 668 IN150215 20150215 OR150227 047 ITEM_NUMBER_64 00000087 69.99 + 669 Invoice Total: 000000087 69.99 + 670 + 671 > IN150222 20150222 OR150213 062 ITEM_NUMBER_97 00000073 99.99 +---- ^ + 672 Invoice Total: 000000073 99.99 + 673 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:722.6-722.7: + 719 + 720 + 721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 13 + 722 > Region: NE +---- ^ + 723 Location: 1000451 + 724 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:723.6-723.7: + 720 + 721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 13 + 722 Region: NE + 723 > Location: 1000451 +---- ^ + 724 Invoice# Date Order# Line# Item# TX Qty Cost + 725 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:724.6-724.7: + 721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 13 + 722 Region: NE + 723 Location: 1000451 + 724 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 725 -------------------------------------------------------------------------------------------------------------------------------- + 726 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:725.7-725.11: + 722 Region: NE + 723 Location: 1000451 + 724 Invoice# Date Order# Line# Item# TX Qty Cost + 725 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 726 + 727 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:728.6-728.7: + 725 -------------------------------------------------------------------------------------------------------------------------------- + 726 + 727 + 728 > IN150203 20150203 OR150213 087 ITEM_NUMBER_85 00000053 89.99 +---- ^ + 729 Invoice Total: 000000053 89.99 + 730 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:782.6-782.7: + 779 + 780 + 781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 14 + 782 > Region: NE +---- ^ + 783 Location: 1000471 + 784 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:783.6-783.7: + 780 + 781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 14 + 782 Region: NE + 783 > Location: 1000471 +---- ^ + 784 Invoice# Date Order# Line# Item# TX Qty Cost + 785 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:784.6-784.7: + 781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 14 + 782 Region: NE + 783 Location: 1000471 + 784 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 785 -------------------------------------------------------------------------------------------------------------------------------- + 786 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:785.7-785.11: + 782 Region: NE + 783 Location: 1000471 + 784 Invoice# Date Order# Line# Item# TX Qty Cost + 785 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 786 + 787 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:788.6-788.7: + 785 -------------------------------------------------------------------------------------------------------------------------------- + 786 + 787 + 788 > IN150221 20150221 OR150222 034 ITEM_NUMBER_74 00000084 79.99 +---- ^ + 789 077 ITEM_NUMBER_78 00000024 79.99 + 790 Invoice Total: 000000108 159.98 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:842.6-842.7: + 839 + 840 + 841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 15 + 842 > Region: NE +---- ^ + 843 Location: 1000491 + 844 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:843.6-843.7: + 840 + 841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 15 + 842 Region: NE + 843 > Location: 1000491 +---- ^ + 844 Invoice# Date Order# Line# Item# TX Qty Cost + 845 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:844.6-844.7: + 841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 15 + 842 Region: NE + 843 Location: 1000491 + 844 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 845 -------------------------------------------------------------------------------------------------------------------------------- + 846 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:845.7-845.11: + 842 Region: NE + 843 Location: 1000491 + 844 Invoice# Date Order# Line# Item# TX Qty Cost + 845 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 846 + 847 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:848.6-848.7: + 845 -------------------------------------------------------------------------------------------------------------------------------- + 846 + 847 + 848 > IN150217 20150217 OR150210 037 ITEM_NUMBER_17 00000007 19.99 +---- ^ + 849 Invoice Total: 000000007 19.99 + 850 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:902.6-902.7: + 899 + 900 + 901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 16 + 902 > Region: NE +---- ^ + 903 Location: 1000601 + 904 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:903.6-903.7: + 900 + 901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 16 + 902 Region: NE + 903 > Location: 1000601 +---- ^ + 904 Invoice# Date Order# Line# Item# TX Qty Cost + 905 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:904.6-904.7: + 901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 16 + 902 Region: NE + 903 Location: 1000601 + 904 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 905 -------------------------------------------------------------------------------------------------------------------------------- + 906 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:905.7-905.11: + 902 Region: NE + 903 Location: 1000601 + 904 Invoice# Date Order# Line# Item# TX Qty Cost + 905 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 906 + 907 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:908.6-908.7: + 905 -------------------------------------------------------------------------------------------------------------------------------- + 906 + 907 + 908 > IN150215 20150215 OR150211 070 ITEM_NUMBER_06 00000044 9.99 +---- ^ + 909 Invoice Total: 000000044 9.99 + 910 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:962.6-962.7: + 959 + 960 + 961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 17 + 962 > Region: NE +---- ^ + 963 Location: 1000631 + 964 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:963.6-963.7: + 960 + 961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 17 + 962 Region: NE + 963 > Location: 1000631 +---- ^ + 964 Invoice# Date Order# Line# Item# TX Qty Cost + 965 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:964.6-964.7: + 961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 17 + 962 Region: NE + 963 Location: 1000631 + 964 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ + 965 -------------------------------------------------------------------------------------------------------------------------------- + 966 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:965.7-965.11: + 962 Region: NE + 963 Location: 1000631 + 964 Invoice# Date Order# Line# Item# TX Qty Cost + 965 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ + 966 + 967 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:968.6-968.7: + 965 -------------------------------------------------------------------------------------------------------------------------------- + 966 + 967 + 968 > IN150227 20150227 OR150209 051 ITEM_NUMBER_09 00000054 9.99 +---- ^ + 969 Invoice Total: 000000054 9.99 + 970 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1022.6-1022.7: +1019 +1020 +1021 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 18 +1022 > Region: NE +---- ^ +1023 Location: 1000671 +1024 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1023.6-1023.7: +1020 +1021 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 18 +1022 Region: NE +1023 > Location: 1000671 +---- ^ +1024 Invoice# Date Order# Line# Item# TX Qty Cost +1025 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1024.6-1024.7: +1021 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 18 +1022 Region: NE +1023 Location: 1000671 +1024 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1025 -------------------------------------------------------------------------------------------------------------------------------- +1026 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1025.7-1025.11: +1022 Region: NE +1023 Location: 1000671 +1024 Invoice# Date Order# Line# Item# TX Qty Cost +1025 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1026 +1027 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1028.6-1028.7: +1025 -------------------------------------------------------------------------------------------------------------------------------- +1026 +1027 +1028 > IN150206 20150206 OR150220 045 ITEM_NUMBER_56 00000066 59.99 +---- ^ +1029 Invoice Total: 000000066 59.99 +1030 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:1082.6-1082.7: +1079 +1080 +1081 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 19 +1082 > Region: NE +---- ^ +1083 Location: 1000811 +1084 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1083.6-1083.7: +1080 +1081 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 19 +1082 Region: NE +1083 > Location: 1000811 +---- ^ +1084 Invoice# Date Order# Line# Item# TX Qty Cost +1085 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1084.6-1084.7: +1081 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 19 +1082 Region: NE +1083 Location: 1000811 +1084 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1085 -------------------------------------------------------------------------------------------------------------------------------- +1086 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1085.7-1085.11: +1082 Region: NE +1083 Location: 1000811 +1084 Invoice# Date Order# Line# Item# TX Qty Cost +1085 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1086 +1087 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1088.6-1088.7: +1085 -------------------------------------------------------------------------------------------------------------------------------- +1086 +1087 +1088 > IN150220 20150220 OR150212 086 ITEM_NUMBER_27 00000017 29.99 +---- ^ +1089 Invoice Total: 000000017 29.99 +1090 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1091.6-1091.7: +1088 IN150220 20150220 OR150212 086 ITEM_NUMBER_27 00000017 29.99 +1089 Invoice Total: 000000017 29.99 +1090 +1091 > IN150228 20150228 OR150222 075 ITEM_NUMBER_66 00000086 69.99 +---- ^ +1092 Invoice Total: 000000086 69.99 +1093 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1142.6-1142.7: +1139 +1140 +1141 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 20 +1142 > Region: NE +---- ^ +1143 Location: 1000831 +1144 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1143.6-1143.7: +1140 +1141 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 20 +1142 Region: NE +1143 > Location: 1000831 +---- ^ +1144 Invoice# Date Order# Line# Item# TX Qty Cost +1145 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1144.6-1144.7: +1141 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 20 +1142 Region: NE +1143 Location: 1000831 +1144 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1145 -------------------------------------------------------------------------------------------------------------------------------- +1146 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1145.7-1145.11: +1142 Region: NE +1143 Location: 1000831 +1144 Invoice# Date Order# Line# Item# TX Qty Cost +1145 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1146 +1147 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1148.6-1148.7: +1145 -------------------------------------------------------------------------------------------------------------------------------- +1146 +1147 +1148 > IN150216 20150216 OR150224 004 ITEM_NUMBER_52 00000042 59.99 +---- ^ +1149 Invoice Total: 000000042 59.99 +1150 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1202.6-1202.7: +1199 +1200 +1201 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 21 +1202 > Region: NW +---- ^ +1203 Location: 1000001 +1204 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1203.6-1203.7: +1200 +1201 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 21 +1202 Region: NW +1203 > Location: 1000001 +---- ^ +1204 Invoice# Date Order# Line# Item# TX Qty Cost +1205 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1204.6-1204.7: +1201 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 21 +1202 Region: NW +1203 Location: 1000001 +1204 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1205 -------------------------------------------------------------------------------------------------------------------------------- +1206 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1205.7-1205.11: +1202 Region: NW +1203 Location: 1000001 +1204 Invoice# Date Order# Line# Item# TX Qty Cost +1205 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1206 +1207 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1208.6-1208.7: +1205 -------------------------------------------------------------------------------------------------------------------------------- +1206 +1207 +1208 > IN150224 20150224 OR150215 029 ITEM_NUMBER_79 00000035 79.99 +---- ^ +1209 Invoice Total: 000000035 79.99 +1210 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1262.6-1262.7: +1259 +1260 +1261 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 22 +1262 > Region: NW +---- ^ +1263 Location: 1000011 +1264 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1263.6-1263.7: +1260 +1261 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 22 +1262 Region: NW +1263 > Location: 1000011 +---- ^ +1264 Invoice# Date Order# Line# Item# TX Qty Cost +1265 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1264.6-1264.7: +1261 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 22 +1262 Region: NW +1263 Location: 1000011 +1264 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1265 -------------------------------------------------------------------------------------------------------------------------------- +1266 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1265.7-1265.11: +1262 Region: NW +1263 Location: 1000011 +1264 Invoice# Date Order# Line# Item# TX Qty Cost +1265 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1266 +1267 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1268.6-1268.7: +1265 -------------------------------------------------------------------------------------------------------------------------------- +1266 +1267 +1268 > IN150228 20150228 OR150209 023 ITEM_NUMBER_62 00000098 69.99 +---- ^ +1269 Invoice Total: 000000098 69.99 +1270 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1322.6-1322.7: +1319 +1320 +1321 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 23 +1322 > Region: NW +---- ^ +1323 Location: 1000051 +1324 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1323.6-1323.7: +1320 +1321 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 23 +1322 Region: NW +1323 > Location: 1000051 +---- ^ +1324 Invoice# Date Order# Line# Item# TX Qty Cost +1325 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1324.6-1324.7: +1321 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 23 +1322 Region: NW +1323 Location: 1000051 +1324 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1325 -------------------------------------------------------------------------------------------------------------------------------- +1326 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1325.7-1325.11: +1322 Region: NW +1323 Location: 1000051 +1324 Invoice# Date Order# Line# Item# TX Qty Cost +1325 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1326 +1327 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1328.6-1328.7: +1325 -------------------------------------------------------------------------------------------------------------------------------- +1326 +1327 +1328 > IN150210 20150210 OR150225 076 ITEM_NUMBER_50 00000039 59.99 +---- ^ +1329 Invoice Total: 000000039 59.99 +1330 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1331.6-1331.7: +1328 IN150210 20150210 OR150225 076 ITEM_NUMBER_50 00000039 59.99 +1329 Invoice Total: 000000039 59.99 +1330 +1331 > IN150218 20150218 OR150229 093 ITEM_NUMBER_94 00000037 99.99 +---- ^ +1332 Invoice Total: 000000037 99.99 +1333 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1334.6-1334.7: +1331 IN150218 20150218 OR150229 093 ITEM_NUMBER_94 00000037 99.99 +1332 Invoice Total: 000000037 99.99 +1333 +1334 > IN150220 20150220 OR150221 050 ITEM_NUMBER_89 00000038 89.99 +---- ^ +1335 Invoice Total: 000000038 89.99 +1336 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1382.6-1382.7: +1379 +1380 +1381 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 24 +1382 > Region: NW +---- ^ +1383 Location: 1000071 +1384 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1383.6-1383.7: +1380 +1381 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 24 +1382 Region: NW +1383 > Location: 1000071 +---- ^ +1384 Invoice# Date Order# Line# Item# TX Qty Cost +1385 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1384.6-1384.7: +1381 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 24 +1382 Region: NW +1383 Location: 1000071 +1384 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1385 -------------------------------------------------------------------------------------------------------------------------------- +1386 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1385.7-1385.11: +1382 Region: NW +1383 Location: 1000071 +1384 Invoice# Date Order# Line# Item# TX Qty Cost +1385 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1386 +1387 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1388.6-1388.7: +1385 -------------------------------------------------------------------------------------------------------------------------------- +1386 +1387 +1388 > IN150202 20150202 OR150223 014 ITEM_NUMBER_54 00000048 59.99 +---- ^ +1389 Invoice Total: 000000048 59.99 +1390 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:1442.6-1442.7: +1439 +1440 +1441 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 25 +1442 > Region: NW +---- ^ +1443 Location: 1000091 +1444 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1443.6-1443.7: +1440 +1441 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 25 +1442 Region: NW +1443 > Location: 1000091 +---- ^ +1444 Invoice# Date Order# Line# Item# TX Qty Cost +1445 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1444.6-1444.7: +1441 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 25 +1442 Region: NW +1443 Location: 1000091 +1444 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1445 -------------------------------------------------------------------------------------------------------------------------------- +1446 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1445.7-1445.11: +1442 Region: NW +1443 Location: 1000091 +1444 Invoice# Date Order# Line# Item# TX Qty Cost +1445 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1446 +1447 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1448.6-1448.7: +1445 -------------------------------------------------------------------------------------------------------------------------------- +1446 +1447 +1448 > IN150208 20150208 OR150229 094 ITEM_NUMBER_17 00000072 19.99 +---- ^ +1449 Invoice Total: 000000072 19.99 +1450 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:1451.6-1451.7: +1448 IN150208 20150208 OR150229 094 ITEM_NUMBER_17 00000072 19.99 +1449 Invoice Total: 000000072 19.99 +1450 +1451 > IN150212 20150212 OR150222 096 ITEM_NUMBER_89 00000049 89.99 +---- ^ +1452 Invoice Total: 000000049 89.99 +1453 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1454.6-1454.7: +1451 IN150212 20150212 OR150222 096 ITEM_NUMBER_89 00000049 89.99 +1452 Invoice Total: 000000049 89.99 +1453 +1454 > IN150224 20150224 OR150211 074 ITEM_NUMBER_90 00000043 99.99 +---- ^ +1455 Invoice Total: 000000043 99.99 +1456 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1457.6-1457.7: +1454 IN150224 20150224 OR150211 074 ITEM_NUMBER_90 00000043 99.99 +1455 Invoice Total: 000000043 99.99 +1456 +1457 > IN150227 20150227 OR150219 030 ITEM_NUMBER_12 00000019 19.99 +---- ^ +1458 Invoice Total: 000000019 19.99 +1459 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1502.6-1502.7: +1499 +1500 +1501 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 26 +1502 > Region: NW +---- ^ +1503 Location: 1000201 +1504 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1503.6-1503.7: +1500 +1501 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 26 +1502 Region: NW +1503 > Location: 1000201 +---- ^ +1504 Invoice# Date Order# Line# Item# TX Qty Cost +1505 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1504.6-1504.7: +1501 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 26 +1502 Region: NW +1503 Location: 1000201 +1504 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1505 -------------------------------------------------------------------------------------------------------------------------------- +1506 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1505.7-1505.11: +1502 Region: NW +1503 Location: 1000201 +1504 Invoice# Date Order# Line# Item# TX Qty Cost +1505 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1506 +1507 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1508.6-1508.7: +1505 -------------------------------------------------------------------------------------------------------------------------------- +1506 +1507 +1508 > IN150208 20150208 OR150210 061 ITEM_NUMBER_34 00000012 39.99 +---- ^ +1509 Invoice Total: 000000012 39.99 +1510 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:1562.6-1562.7: +1559 +1560 +1561 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 27 +1562 > Region: NW +---- ^ +1563 Location: 1000231 +1564 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1563.6-1563.7: +1560 +1561 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 27 +1562 Region: NW +1563 > Location: 1000231 +---- ^ +1564 Invoice# Date Order# Line# Item# TX Qty Cost +1565 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1564.6-1564.7: +1561 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 27 +1562 Region: NW +1563 Location: 1000231 +1564 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1565 -------------------------------------------------------------------------------------------------------------------------------- +1566 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1565.7-1565.11: +1562 Region: NW +1563 Location: 1000231 +1564 Invoice# Date Order# Line# Item# TX Qty Cost +1565 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1566 +1567 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1568.6-1568.7: +1565 -------------------------------------------------------------------------------------------------------------------------------- +1566 +1567 +1568 > IN150214 20150214 OR150210 044 ITEM_NUMBER_89 00000054 89.99 +---- ^ +1569 Invoice Total: 000000054 89.99 +1570 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1622.6-1622.7: +1619 +1620 +1621 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 28 +1622 > Region: NW +---- ^ +1623 Location: 1000251 +1624 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1623.6-1623.7: +1620 +1621 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 28 +1622 Region: NW +1623 > Location: 1000251 +---- ^ +1624 Invoice# Date Order# Line# Item# TX Qty Cost +1625 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1624.6-1624.7: +1621 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 28 +1622 Region: NW +1623 Location: 1000251 +1624 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1625 -------------------------------------------------------------------------------------------------------------------------------- +1626 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1625.7-1625.11: +1622 Region: NW +1623 Location: 1000251 +1624 Invoice# Date Order# Line# Item# TX Qty Cost +1625 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1626 +1627 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1628.6-1628.7: +1625 -------------------------------------------------------------------------------------------------------------------------------- +1626 +1627 +1628 > IN150212 20150212 OR150204 059 ITEM_NUMBER_39 00000060 39.99 +---- ^ +1629 Invoice Total: 000000060 39.99 +1630 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1682.6-1682.7: +1679 +1680 +1681 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 29 +1682 > Region: NW +---- ^ +1683 Location: 1000401 +1684 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1683.6-1683.7: +1680 +1681 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 29 +1682 Region: NW +1683 > Location: 1000401 +---- ^ +1684 Invoice# Date Order# Line# Item# TX Qty Cost +1685 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1684.6-1684.7: +1681 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 29 +1682 Region: NW +1683 Location: 1000401 +1684 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1685 -------------------------------------------------------------------------------------------------------------------------------- +1686 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1685.7-1685.11: +1682 Region: NW +1683 Location: 1000401 +1684 Invoice# Date Order# Line# Item# TX Qty Cost +1685 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1686 +1687 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1688.6-1688.7: +1685 -------------------------------------------------------------------------------------------------------------------------------- +1686 +1687 +1688 > IN150215 20150215 OR150222 049 ITEM_NUMBER_40 00000081 49.99 +---- ^ +1689 Invoice Total: 000000081 49.99 +1690 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1691.6-1691.7: +1688 IN150215 20150215 OR150222 049 ITEM_NUMBER_40 00000081 49.99 +1689 Invoice Total: 000000081 49.99 +1690 +1691 > IN150217 20150217 OR150203 085 ITEM_NUMBER_77 00000037 79.99 +---- ^ +1692 Invoice Total: 000000037 79.99 +1693 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1742.6-1742.7: +1739 +1740 +1741 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 30 +1742 > Region: NW +---- ^ +1743 Location: 1000411 +1744 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1743.6-1743.7: +1740 +1741 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 30 +1742 Region: NW +1743 > Location: 1000411 +---- ^ +1744 Invoice# Date Order# Line# Item# TX Qty Cost +1745 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1744.6-1744.7: +1741 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 30 +1742 Region: NW +1743 Location: 1000411 +1744 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1745 -------------------------------------------------------------------------------------------------------------------------------- +1746 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1745.7-1745.11: +1742 Region: NW +1743 Location: 1000411 +1744 Invoice# Date Order# Line# Item# TX Qty Cost +1745 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1746 +1747 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1748.6-1748.7: +1745 -------------------------------------------------------------------------------------------------------------------------------- +1746 +1747 +1748 > IN150207 20150207 OR150224 056 ITEM_NUMBER_99 00000054 99.99 +---- ^ +1749 Invoice Total: 000000054 99.99 +1750 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:1751.6-1751.7: +1748 IN150207 20150207 OR150224 056 ITEM_NUMBER_99 00000054 99.99 +1749 Invoice Total: 000000054 99.99 +1750 +1751 > IN150228 20150228 OR150221 008 ITEM_NUMBER_68 00000090 69.99 +---- ^ +1752 Invoice Total: 000000090 69.99 +1753 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1802.6-1802.7: +1799 +1800 +1801 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 31 +1802 > Region: NW +---- ^ +1803 Location: 1000491 +1804 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1803.6-1803.7: +1800 +1801 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 31 +1802 Region: NW +1803 > Location: 1000491 +---- ^ +1804 Invoice# Date Order# Line# Item# TX Qty Cost +1805 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1804.6-1804.7: +1801 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 31 +1802 Region: NW +1803 Location: 1000491 +1804 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1805 -------------------------------------------------------------------------------------------------------------------------------- +1806 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1805.7-1805.11: +1802 Region: NW +1803 Location: 1000491 +1804 Invoice# Date Order# Line# Item# TX Qty Cost +1805 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1806 +1807 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1808.6-1808.7: +1805 -------------------------------------------------------------------------------------------------------------------------------- +1806 +1807 +1808 > IN150228 20150228 OR150201 002 ITEM_NUMBER_47 00000086 49.99 +---- ^ +1809 Invoice Total: 000000086 49.99 +1810 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1862.6-1862.7: +1859 +1860 +1861 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 32 +1862 > Region: NW +---- ^ +1863 Location: 1000611 +1864 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1863.6-1863.7: +1860 +1861 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 32 +1862 Region: NW +1863 > Location: 1000611 +---- ^ +1864 Invoice# Date Order# Line# Item# TX Qty Cost +1865 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1864.6-1864.7: +1861 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 32 +1862 Region: NW +1863 Location: 1000611 +1864 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1865 -------------------------------------------------------------------------------------------------------------------------------- +1866 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1865.7-1865.11: +1862 Region: NW +1863 Location: 1000611 +1864 Invoice# Date Order# Line# Item# TX Qty Cost +1865 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1866 +1867 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1868.6-1868.7: +1865 -------------------------------------------------------------------------------------------------------------------------------- +1866 +1867 +1868 > IN150227 20150227 OR150224 097 ITEM_NUMBER_11 00000080 19.99 +---- ^ +1869 Invoice Total: 000000080 19.99 +1870 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1922.6-1922.7: +1919 +1920 +1921 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 33 +1922 > Region: NW +---- ^ +1923 Location: 1000631 +1924 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1923.6-1923.7: +1920 +1921 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 33 +1922 Region: NW +1923 > Location: 1000631 +---- ^ +1924 Invoice# Date Order# Line# Item# TX Qty Cost +1925 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1924.6-1924.7: +1921 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 33 +1922 Region: NW +1923 Location: 1000631 +1924 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1925 -------------------------------------------------------------------------------------------------------------------------------- +1926 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1925.7-1925.11: +1922 Region: NW +1923 Location: 1000631 +1924 Invoice# Date Order# Line# Item# TX Qty Cost +1925 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1926 +1927 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1928.6-1928.7: +1925 -------------------------------------------------------------------------------------------------------------------------------- +1926 +1927 +1928 > IN150207 20150207 OR150206 031 ITEM_NUMBER_49 00000015 49.99 +---- ^ +1929 Invoice Total: 000000015 49.99 +1930 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:1931.6-1931.7: +1928 IN150207 20150207 OR150206 031 ITEM_NUMBER_49 00000015 49.99 +1929 Invoice Total: 000000015 49.99 +1930 +1931 > IN150214 20150214 OR150210 054 ITEM_NUMBER_40 00000042 49.99 +---- ^ +1932 Invoice Total: 000000042 49.99 +1933 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:1934.6-1934.7: +1931 IN150214 20150214 OR150210 054 ITEM_NUMBER_40 00000042 49.99 +1932 Invoice Total: 000000042 49.99 +1933 +1934 > IN150224 20150224 OR150218 024 ITEM_NUMBER_84 00000033 89.99 +---- ^ +1935 Invoice Total: 000000033 89.99 +1936 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:1982.6-1982.7: +1979 +1980 +1981 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 34 +1982 > Region: NW +---- ^ +1983 Location: 1000651 +1984 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:1983.6-1983.7: +1980 +1981 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 34 +1982 Region: NW +1983 > Location: 1000651 +---- ^ +1984 Invoice# Date Order# Line# Item# TX Qty Cost +1985 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:1984.6-1984.7: +1981 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 34 +1982 Region: NW +1983 Location: 1000651 +1984 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +1985 -------------------------------------------------------------------------------------------------------------------------------- +1986 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:1985.7-1985.11: +1982 Region: NW +1983 Location: 1000651 +1984 Invoice# Date Order# Line# Item# TX Qty Cost +1985 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +1986 +1987 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:1988.6-1988.7: +1985 -------------------------------------------------------------------------------------------------------------------------------- +1986 +1987 +1988 > IN150206 20150206 OR150225 099 ITEM_NUMBER_57 00000043 59.99 +---- ^ +1989 Invoice Total: 000000043 59.99 +1990 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2042.6-2042.7: +2039 +2040 +2041 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 35 +2042 > Region: NW +---- ^ +2043 Location: 1000671 +2044 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2043.6-2043.7: +2040 +2041 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 35 +2042 Region: NW +2043 > Location: 1000671 +---- ^ +2044 Invoice# Date Order# Line# Item# TX Qty Cost +2045 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2044.6-2044.7: +2041 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 35 +2042 Region: NW +2043 Location: 1000671 +2044 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2045 -------------------------------------------------------------------------------------------------------------------------------- +2046 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2045.7-2045.11: +2042 Region: NW +2043 Location: 1000671 +2044 Invoice# Date Order# Line# Item# TX Qty Cost +2045 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2046 +2047 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2048.6-2048.7: +2045 -------------------------------------------------------------------------------------------------------------------------------- +2046 +2047 +2048 > IN150213 20150213 OR150224 041 ITEM_NUMBER_22 00000002 29.99 +---- ^ +2049 Invoice Total: 000000002 29.99 +2050 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:2102.6-2102.7: +2099 +2100 +2101 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 36 +2102 > Region: NW +---- ^ +2103 Location: 1000691 +2104 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2103.6-2103.7: +2100 +2101 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 36 +2102 Region: NW +2103 > Location: 1000691 +---- ^ +2104 Invoice# Date Order# Line# Item# TX Qty Cost +2105 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2104.6-2104.7: +2101 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 36 +2102 Region: NW +2103 Location: 1000691 +2104 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2105 -------------------------------------------------------------------------------------------------------------------------------- +2106 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2105.7-2105.11: +2102 Region: NW +2103 Location: 1000691 +2104 Invoice# Date Order# Line# Item# TX Qty Cost +2105 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2106 +2107 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2108.6-2108.7: +2105 -------------------------------------------------------------------------------------------------------------------------------- +2106 +2107 +2108 > IN150204 20150204 OR150211 092 ITEM_NUMBER_13 00000094 19.99 +---- ^ +2109 Invoice Total: 000000094 19.99 +2110 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2162.6-2162.7: +2159 +2160 +2161 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 37 +2162 > Region: NW +---- ^ +2163 Location: 1000811 +2164 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2163.6-2163.7: +2160 +2161 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 37 +2162 Region: NW +2163 > Location: 1000811 +---- ^ +2164 Invoice# Date Order# Line# Item# TX Qty Cost +2165 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2164.6-2164.7: +2161 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 37 +2162 Region: NW +2163 Location: 1000811 +2164 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2165 -------------------------------------------------------------------------------------------------------------------------------- +2166 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2165.7-2165.11: +2162 Region: NW +2163 Location: 1000811 +2164 Invoice# Date Order# Line# Item# TX Qty Cost +2165 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2166 +2167 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2168.6-2168.7: +2165 -------------------------------------------------------------------------------------------------------------------------------- +2166 +2167 +2168 > IN150227 20150227 OR150217 081 ITEM_NUMBER_45 00000016 49.99 +---- ^ +2169 Invoice Total: 000000016 49.99 +2170 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:2222.6-2222.7: +2219 +2220 +2221 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 38 +2222 > Region: NW +---- ^ +2223 Location: 1000851 +2224 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2223.6-2223.7: +2220 +2221 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 38 +2222 Region: NW +2223 > Location: 1000851 +---- ^ +2224 Invoice# Date Order# Line# Item# TX Qty Cost +2225 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2224.6-2224.7: +2221 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 38 +2222 Region: NW +2223 Location: 1000851 +2224 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2225 -------------------------------------------------------------------------------------------------------------------------------- +2226 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2225.7-2225.11: +2222 Region: NW +2223 Location: 1000851 +2224 Invoice# Date Order# Line# Item# TX Qty Cost +2225 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2226 +2227 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2228.6-2228.7: +2225 -------------------------------------------------------------------------------------------------------------------------------- +2226 +2227 +2228 > IN150208 20150208 OR150203 091 ITEM_NUMBER_63 00000066 69.99 +---- ^ +2229 Invoice Total: 000000066 69.99 +2230 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2282.6-2282.7: +2279 +2280 +2281 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 39 +2282 > Region: NW +---- ^ +2283 Location: 1000871 +2284 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2283.6-2283.7: +2280 +2281 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 39 +2282 Region: NW +2283 > Location: 1000871 +---- ^ +2284 Invoice# Date Order# Line# Item# TX Qty Cost +2285 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2284.6-2284.7: +2281 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 39 +2282 Region: NW +2283 Location: 1000871 +2284 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2285 -------------------------------------------------------------------------------------------------------------------------------- +2286 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2285.7-2285.11: +2282 Region: NW +2283 Location: 1000871 +2284 Invoice# Date Order# Line# Item# TX Qty Cost +2285 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2286 +2287 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2288.6-2288.7: +2285 -------------------------------------------------------------------------------------------------------------------------------- +2286 +2287 +2288 > IN150218 20150218 OR150209 082 ITEM_NUMBER_30 00000055 39.99 +---- ^ +2289 Invoice Total: 000000055 39.99 +2290 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:2291.6-2291.7: +2288 IN150218 20150218 OR150209 082 ITEM_NUMBER_30 00000055 39.99 +2289 Invoice Total: 000000055 39.99 +2290 +2291 > IN150228 20150228 OR150222 015 ITEM_NUMBER_73 00000051 79.99 +---- ^ +2292 Invoice Total: 000000051 79.99 +2293 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:2342.6-2342.7: +2339 +2340 +2341 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 40 +2342 > Region: NW +---- ^ +2343 Location: 1000891 +2344 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2343.6-2343.7: +2340 +2341 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 40 +2342 Region: NW +2343 > Location: 1000891 +---- ^ +2344 Invoice# Date Order# Line# Item# TX Qty Cost +2345 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2344.6-2344.7: +2341 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 40 +2342 Region: NW +2343 Location: 1000891 +2344 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2345 -------------------------------------------------------------------------------------------------------------------------------- +2346 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2345.7-2345.11: +2342 Region: NW +2343 Location: 1000891 +2344 Invoice# Date Order# Line# Item# TX Qty Cost +2345 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2346 +2347 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2348.6-2348.7: +2345 -------------------------------------------------------------------------------------------------------------------------------- +2346 +2347 +2348 > IN150225 20150225 OR150201 026 ITEM_NUMBER_80 00000047 89.99 +---- ^ +2349 Invoice Total: 000000047 89.99 +2350 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:2402.6-2402.7: +2399 +2400 +2401 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 41 +2402 > Region: SE +---- ^ +2403 Location: 1000001 +2404 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2403.6-2403.7: +2400 +2401 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 41 +2402 Region: SE +2403 > Location: 1000001 +---- ^ +2404 Invoice# Date Order# Line# Item# TX Qty Cost +2405 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2404.6-2404.7: +2401 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 41 +2402 Region: SE +2403 Location: 1000001 +2404 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2405 -------------------------------------------------------------------------------------------------------------------------------- +2406 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2405.7-2405.11: +2402 Region: SE +2403 Location: 1000001 +2404 Invoice# Date Order# Line# Item# TX Qty Cost +2405 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2406 +2407 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2408.6-2408.7: +2405 -------------------------------------------------------------------------------------------------------------------------------- +2406 +2407 +2408 > IN150223 20150223 OR150203 064 ITEM_NUMBER_03 00000071 9.99 +---- ^ +2409 Invoice Total: 000000071 9.99 +2410 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:2462.6-2462.7: +2459 +2460 +2461 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 42 +2462 > Region: SE +---- ^ +2463 Location: 1000011 +2464 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2463.6-2463.7: +2460 +2461 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 42 +2462 Region: SE +2463 > Location: 1000011 +---- ^ +2464 Invoice# Date Order# Line# Item# TX Qty Cost +2465 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2464.6-2464.7: +2461 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 42 +2462 Region: SE +2463 Location: 1000011 +2464 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2465 -------------------------------------------------------------------------------------------------------------------------------- +2466 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2465.7-2465.11: +2462 Region: SE +2463 Location: 1000011 +2464 Invoice# Date Order# Line# Item# TX Qty Cost +2465 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2466 +2467 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2468.6-2468.7: +2465 -------------------------------------------------------------------------------------------------------------------------------- +2466 +2467 +2468 > IN150201 20150201 OR150213 017 ITEM_NUMBER_09 00000006 9.99 +---- ^ +2469 Invoice Total: 000000006 9.99 +2470 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2471.6-2471.7: +2468 IN150201 20150201 OR150213 017 ITEM_NUMBER_09 00000006 9.99 +2469 Invoice Total: 000000006 9.99 +2470 +2471 > IN150212 20150212 OR150209 066 ITEM_NUMBER_06 00000040 9.99 +---- ^ +2472 Invoice Total: 000000040 9.99 +2473 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:2522.6-2522.7: +2519 +2520 +2521 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 43 +2522 > Region: SE +---- ^ +2523 Location: 1000091 +2524 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2523.6-2523.7: +2520 +2521 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 43 +2522 Region: SE +2523 > Location: 1000091 +---- ^ +2524 Invoice# Date Order# Line# Item# TX Qty Cost +2525 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2524.6-2524.7: +2521 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 43 +2522 Region: SE +2523 Location: 1000091 +2524 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2525 -------------------------------------------------------------------------------------------------------------------------------- +2526 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2525.7-2525.11: +2522 Region: SE +2523 Location: 1000091 +2524 Invoice# Date Order# Line# Item# TX Qty Cost +2525 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2526 +2527 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2528.6-2528.7: +2525 -------------------------------------------------------------------------------------------------------------------------------- +2526 +2527 +2528 > IN150204 20150204 OR150201 001 ITEM_NUMBER_68 00000019 69.99 +---- ^ +2529 Invoice Total: 000000019 69.99 +2530 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2531.6-2531.7: +2528 IN150204 20150204 OR150201 001 ITEM_NUMBER_68 00000019 69.99 +2529 Invoice Total: 000000019 69.99 +2530 +2531 > IN150210 20150210 OR150223 084 ITEM_NUMBER_11 00000093 19.99 +---- ^ +2532 Invoice Total: 000000093 19.99 +2533 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:2534.6-2534.7: +2531 IN150210 20150210 OR150223 084 ITEM_NUMBER_11 00000093 19.99 +2532 Invoice Total: 000000093 19.99 +2533 +2534 > IN150226 20150226 OR150219 038 ITEM_NUMBER_97 00000037 99.99 +---- ^ +2535 Invoice Total: 000000037 99.99 +2536 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:2582.6-2582.7: +2579 +2580 +2581 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 44 +2582 > Region: SE +---- ^ +2583 Location: 1000211 +2584 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2583.6-2583.7: +2580 +2581 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 44 +2582 Region: SE +2583 > Location: 1000211 +---- ^ +2584 Invoice# Date Order# Line# Item# TX Qty Cost +2585 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2584.6-2584.7: +2581 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 44 +2582 Region: SE +2583 Location: 1000211 +2584 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2585 -------------------------------------------------------------------------------------------------------------------------------- +2586 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2585.7-2585.11: +2582 Region: SE +2583 Location: 1000211 +2584 Invoice# Date Order# Line# Item# TX Qty Cost +2585 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2586 +2587 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2588.6-2588.7: +2585 -------------------------------------------------------------------------------------------------------------------------------- +2586 +2587 +2588 > IN150206 20150206 OR150221 089 ITEM_NUMBER_05 00000045 9.99 +---- ^ +2589 Invoice Total: 000000045 9.99 +2590 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2642.6-2642.7: +2639 +2640 +2641 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 45 +2642 > Region: SE +---- ^ +2643 Location: 1000411 +2644 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2643.6-2643.7: +2640 +2641 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 45 +2642 Region: SE +2643 > Location: 1000411 +---- ^ +2644 Invoice# Date Order# Line# Item# TX Qty Cost +2645 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2644.6-2644.7: +2641 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 45 +2642 Region: SE +2643 Location: 1000411 +2644 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2645 -------------------------------------------------------------------------------------------------------------------------------- +2646 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2645.7-2645.11: +2642 Region: SE +2643 Location: 1000411 +2644 Invoice# Date Order# Line# Item# TX Qty Cost +2645 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2646 +2647 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2648.6-2648.7: +2645 -------------------------------------------------------------------------------------------------------------------------------- +2646 +2647 +2648 > IN150212 20150212 OR150208 012 ITEM_NUMBER_46 00000023 49.99 +---- ^ +2649 Invoice Total: 000000023 49.99 +2650 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:2702.6-2702.7: +2699 +2700 +2701 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 46 +2702 > Region: SE +---- ^ +2703 Location: 1000431 +2704 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2703.6-2703.7: +2700 +2701 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 46 +2702 Region: SE +2703 > Location: 1000431 +---- ^ +2704 Invoice# Date Order# Line# Item# TX Qty Cost +2705 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2704.6-2704.7: +2701 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 46 +2702 Region: SE +2703 Location: 1000431 +2704 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2705 -------------------------------------------------------------------------------------------------------------------------------- +2706 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2705.7-2705.11: +2702 Region: SE +2703 Location: 1000431 +2704 Invoice# Date Order# Line# Item# TX Qty Cost +2705 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2706 +2707 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2708.6-2708.7: +2705 -------------------------------------------------------------------------------------------------------------------------------- +2706 +2707 +2708 > IN150207 20150207 OR150214 072 ITEM_NUMBER_25 00000046 29.99 +---- ^ +2709 Invoice Total: 000000046 29.99 +2710 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2711.6-2711.7: +2708 IN150207 20150207 OR150214 072 ITEM_NUMBER_25 00000046 29.99 +2709 Invoice Total: 000000046 29.99 +2710 +2711 > IN150225 20150225 OR150220 040 ITEM_NUMBER_01 00000061 9.99 +---- ^ +2712 Invoice Total: 000000061 9.99 +2713 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:2762.6-2762.7: +2759 +2760 +2761 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 47 +2762 > Region: SE +---- ^ +2763 Location: 1000451 +2764 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2763.6-2763.7: +2760 +2761 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 47 +2762 Region: SE +2763 > Location: 1000451 +---- ^ +2764 Invoice# Date Order# Line# Item# TX Qty Cost +2765 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2764.6-2764.7: +2761 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 47 +2762 Region: SE +2763 Location: 1000451 +2764 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2765 -------------------------------------------------------------------------------------------------------------------------------- +2766 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2765.7-2765.11: +2762 Region: SE +2763 Location: 1000451 +2764 Invoice# Date Order# Line# Item# TX Qty Cost +2765 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2766 +2767 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2768.6-2768.7: +2765 -------------------------------------------------------------------------------------------------------------------------------- +2766 +2767 +2768 > IN150214 20150214 OR150204 022 ITEM_NUMBER_34 00000047 39.99 +---- ^ +2769 Invoice Total: 000000047 39.99 +2770 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:2822.6-2822.7: +2819 +2820 +2821 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 48 +2822 > Region: SE +---- ^ +2823 Location: 1000471 +2824 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2823.6-2823.7: +2820 +2821 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 48 +2822 Region: SE +2823 > Location: 1000471 +---- ^ +2824 Invoice# Date Order# Line# Item# TX Qty Cost +2825 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2824.6-2824.7: +2821 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 48 +2822 Region: SE +2823 Location: 1000471 +2824 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2825 -------------------------------------------------------------------------------------------------------------------------------- +2826 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2825.7-2825.11: +2822 Region: SE +2823 Location: 1000471 +2824 Invoice# Date Order# Line# Item# TX Qty Cost +2825 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2826 +2827 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2828.6-2828.7: +2825 -------------------------------------------------------------------------------------------------------------------------------- +2826 +2827 +2828 > IN150203 20150203 OR150217 010 ITEM_NUMBER_25 00000034 29.99 +---- ^ +2829 Invoice Total: 000000034 29.99 +2830 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2831.6-2831.7: +2828 IN150203 20150203 OR150217 010 ITEM_NUMBER_25 00000034 29.99 +2829 Invoice Total: 000000034 29.99 +2830 +2831 > IN150211 20150211 OR150213 025 ITEM_NUMBER_54 00000092 59.99 +---- ^ +2832 Invoice Total: 000000092 59.99 +2833 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:2882.6-2882.7: +2879 +2880 +2881 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 49 +2882 > Region: SE +---- ^ +2883 Location: 1000491 +2884 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2883.6-2883.7: +2880 +2881 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 49 +2882 Region: SE +2883 > Location: 1000491 +---- ^ +2884 Invoice# Date Order# Line# Item# TX Qty Cost +2885 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2884.6-2884.7: +2881 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 49 +2882 Region: SE +2883 Location: 1000491 +2884 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2885 -------------------------------------------------------------------------------------------------------------------------------- +2886 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2885.7-2885.11: +2882 Region: SE +2883 Location: 1000491 +2884 Invoice# Date Order# Line# Item# TX Qty Cost +2885 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2886 +2887 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2888.6-2888.7: +2885 -------------------------------------------------------------------------------------------------------------------------------- +2886 +2887 +2888 > IN150202 20150202 OR150202 013 ITEM_NUMBER_19 00000078 19.99 +---- ^ +2889 Invoice Total: 000000078 19.99 +2890 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2942.6-2942.7: +2939 +2940 +2941 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 50 +2942 > Region: SE +---- ^ +2943 Location: 1000601 +2944 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:2943.6-2943.7: +2940 +2941 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 50 +2942 Region: SE +2943 > Location: 1000601 +---- ^ +2944 Invoice# Date Order# Line# Item# TX Qty Cost +2945 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:2944.6-2944.7: +2941 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 50 +2942 Region: SE +2943 Location: 1000601 +2944 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +2945 -------------------------------------------------------------------------------------------------------------------------------- +2946 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:2945.7-2945.11: +2942 Region: SE +2943 Location: 1000601 +2944 Invoice# Date Order# Line# Item# TX Qty Cost +2945 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +2946 +2947 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:2948.6-2948.7: +2945 -------------------------------------------------------------------------------------------------------------------------------- +2946 +2947 +2948 > IN150224 20150224 OR150210 039 ITEM_NUMBER_19 00000056 19.99 +---- ^ +2949 Invoice Total: 000000056 19.99 +2950 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3002.6-3002.7: +2999 +3000 +3001 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 51 +3002 > Region: SE +---- ^ +3003 Location: 1000631 +3004 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3003.6-3003.7: +3000 +3001 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 51 +3002 Region: SE +3003 > Location: 1000631 +---- ^ +3004 Invoice# Date Order# Line# Item# TX Qty Cost +3005 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3004.6-3004.7: +3001 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 51 +3002 Region: SE +3003 Location: 1000631 +3004 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3005 -------------------------------------------------------------------------------------------------------------------------------- +3006 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3005.7-3005.11: +3002 Region: SE +3003 Location: 1000631 +3004 Invoice# Date Order# Line# Item# TX Qty Cost +3005 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3006 +3007 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3008.6-3008.7: +3005 -------------------------------------------------------------------------------------------------------------------------------- +3006 +3007 +3008 > IN150201 20150201 OR150216 003 ITEM_NUMBER_65 00000011 69.99 +---- ^ +3009 Invoice Total: 000000011 69.99 +3010 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3062.6-3062.7: +3059 +3060 +3061 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 52 +3062 > Region: SE +---- ^ +3063 Location: 1000671 +3064 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3063.6-3063.7: +3060 +3061 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 52 +3062 Region: SE +3063 > Location: 1000671 +---- ^ +3064 Invoice# Date Order# Line# Item# TX Qty Cost +3065 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3064.6-3064.7: +3061 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 52 +3062 Region: SE +3063 Location: 1000671 +3064 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3065 -------------------------------------------------------------------------------------------------------------------------------- +3066 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3065.7-3065.11: +3062 Region: SE +3063 Location: 1000671 +3064 Invoice# Date Order# Line# Item# TX Qty Cost +3065 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3066 +3067 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3068.6-3068.7: +3065 -------------------------------------------------------------------------------------------------------------------------------- +3066 +3067 +3068 > IN150203 20150203 OR150205 071 ITEM_NUMBER_64 00000094 69.99 +---- ^ +3069 Invoice Total: 000000094 69.99 +3070 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3071.6-3071.7: +3068 IN150203 20150203 OR150205 071 ITEM_NUMBER_64 00000094 69.99 +3069 Invoice Total: 000000094 69.99 +3070 +3071 > IN150220 20150220 OR150214 032 ITEM_NUMBER_53 00000059 59.99 +---- ^ +3072 Invoice Total: 000000059 59.99 +3073 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3122.6-3122.7: +3119 +3120 +3121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 53 +3122 > Region: SE +---- ^ +3123 Location: 1000891 +3124 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3123.6-3123.7: +3120 +3121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 53 +3122 Region: SE +3123 > Location: 1000891 +---- ^ +3124 Invoice# Date Order# Line# Item# TX Qty Cost +3125 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3124.6-3124.7: +3121 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 53 +3122 Region: SE +3123 Location: 1000891 +3124 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3125 -------------------------------------------------------------------------------------------------------------------------------- +3126 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3125.7-3125.11: +3122 Region: SE +3123 Location: 1000891 +3124 Invoice# Date Order# Line# Item# TX Qty Cost +3125 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3126 +3127 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3128.6-3128.7: +3125 -------------------------------------------------------------------------------------------------------------------------------- +3126 +3127 +3128 > IN150226 20150226 OR150229 068 ITEM_NUMBER_75 00000084 79.99 +---- ^ +3129 Invoice Total: 000000084 79.99 +3130 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3182.6-3182.7: +3179 +3180 +3181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 54 +3182 > Region: SW +---- ^ +3183 Location: 1000011 +3184 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3183.6-3183.7: +3180 +3181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 54 +3182 Region: SW +3183 > Location: 1000011 +---- ^ +3184 Invoice# Date Order# Line# Item# TX Qty Cost +3185 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3184.6-3184.7: +3181 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 54 +3182 Region: SW +3183 Location: 1000011 +3184 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3185 -------------------------------------------------------------------------------------------------------------------------------- +3186 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3185.7-3185.11: +3182 Region: SW +3183 Location: 1000011 +3184 Invoice# Date Order# Line# Item# TX Qty Cost +3185 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3186 +3187 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3188.6-3188.7: +3185 -------------------------------------------------------------------------------------------------------------------------------- +3186 +3187 +3188 > IN150202 20150202 OR150206 000 ITEM_NUMBER_30 00000059 39.99 +---- ^ +3189 Invoice Total: 000000059 39.99 +3190 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3242.6-3242.7: +3239 +3240 +3241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 55 +3242 > Region: SW +---- ^ +3243 Location: 1000031 +3244 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3243.6-3243.7: +3240 +3241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 55 +3242 Region: SW +3243 > Location: 1000031 +---- ^ +3244 Invoice# Date Order# Line# Item# TX Qty Cost +3245 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3244.6-3244.7: +3241 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 55 +3242 Region: SW +3243 Location: 1000031 +3244 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3245 -------------------------------------------------------------------------------------------------------------------------------- +3246 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3245.7-3245.11: +3242 Region: SW +3243 Location: 1000031 +3244 Invoice# Date Order# Line# Item# TX Qty Cost +3245 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3246 +3247 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3248.6-3248.7: +3245 -------------------------------------------------------------------------------------------------------------------------------- +3246 +3247 +3248 > IN150203 20150203 OR150214 033 ITEM_NUMBER_09 00000060 9.99 +---- ^ +3249 Invoice Total: 000000060 9.99 +3250 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3251.6-3251.7: +3248 IN150203 20150203 OR150214 033 ITEM_NUMBER_09 00000060 9.99 +3249 Invoice Total: 000000060 9.99 +3250 +3251 > IN150206 20150206 OR150206 021 ITEM_NUMBER_91 00000054 99.99 +---- ^ +3252 Invoice Total: 000000054 99.99 +3253 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3302.6-3302.7: +3299 +3300 +3301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 56 +3302 > Region: SW +---- ^ +3303 Location: 1000091 +3304 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3303.6-3303.7: +3300 +3301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 56 +3302 Region: SW +3303 > Location: 1000091 +---- ^ +3304 Invoice# Date Order# Line# Item# TX Qty Cost +3305 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3304.6-3304.7: +3301 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 56 +3302 Region: SW +3303 Location: 1000091 +3304 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3305 -------------------------------------------------------------------------------------------------------------------------------- +3306 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3305.7-3305.11: +3302 Region: SW +3303 Location: 1000091 +3304 Invoice# Date Order# Line# Item# TX Qty Cost +3305 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3306 +3307 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3308.6-3308.7: +3305 -------------------------------------------------------------------------------------------------------------------------------- +3306 +3307 +3308 > IN150223 20150223 OR150221 028 ITEM_NUMBER_67 00000039 69.99 +---- ^ +3309 Invoice Total: 000000039 69.99 +3310 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3362.6-3362.7: +3359 +3360 +3361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 57 +3362 > Region: SW +---- ^ +3363 Location: 1000201 +3364 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3363.6-3363.7: +3360 +3361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 57 +3362 Region: SW +3363 > Location: 1000201 +---- ^ +3364 Invoice# Date Order# Line# Item# TX Qty Cost +3365 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3364.6-3364.7: +3361 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 57 +3362 Region: SW +3363 Location: 1000201 +3364 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3365 -------------------------------------------------------------------------------------------------------------------------------- +3366 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3365.7-3365.11: +3362 Region: SW +3363 Location: 1000201 +3364 Invoice# Date Order# Line# Item# TX Qty Cost +3365 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3366 +3367 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3368.6-3368.7: +3365 -------------------------------------------------------------------------------------------------------------------------------- +3366 +3367 +3368 > IN150209 20150209 OR150205 065 ITEM_NUMBER_21 00000070 29.99 +---- ^ +3369 Invoice Total: 000000070 29.99 +3370 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3371.6-3371.7: +3368 IN150209 20150209 OR150205 065 ITEM_NUMBER_21 00000070 29.99 +3369 Invoice Total: 000000070 29.99 +3370 +3371 > IN150225 20150225 OR150203 052 ITEM_NUMBER_55 00000075 59.99 +---- ^ +3372 067 ITEM_NUMBER_83 00000015 89.99 +3373 Invoice Total: 000000090 149.98 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3422.6-3422.7: +3419 +3420 +3421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 58 +3422 > Region: SW +---- ^ +3423 Location: 1000211 +3424 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3423.6-3423.7: +3420 +3421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 58 +3422 Region: SW +3423 > Location: 1000211 +---- ^ +3424 Invoice# Date Order# Line# Item# TX Qty Cost +3425 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3424.6-3424.7: +3421 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 58 +3422 Region: SW +3423 Location: 1000211 +3424 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3425 -------------------------------------------------------------------------------------------------------------------------------- +3426 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3425.7-3425.11: +3422 Region: SW +3423 Location: 1000211 +3424 Invoice# Date Order# Line# Item# TX Qty Cost +3425 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3426 +3427 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3428.6-3428.7: +3425 -------------------------------------------------------------------------------------------------------------------------------- +3426 +3427 +3428 > IN150202 20150202 OR150221 055 ITEM_NUMBER_16 00000013 19.99 +---- ^ +3429 Invoice Total: 000000013 19.99 +3430 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3431.6-3431.7: +3428 IN150202 20150202 OR150221 055 ITEM_NUMBER_16 00000013 19.99 +3429 Invoice Total: 000000013 19.99 +3430 +3431 > IN150208 20150208 OR150215 007 ITEM_NUMBER_97 00000089 99.99 +---- ^ +3432 Invoice Total: 000000089 99.99 +3433 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3482.6-3482.7: +3479 +3480 +3481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 59 +3482 > Region: SW +---- ^ +3483 Location: 1000271 +3484 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3483.6-3483.7: +3480 +3481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 59 +3482 Region: SW +3483 > Location: 1000271 +---- ^ +3484 Invoice# Date Order# Line# Item# TX Qty Cost +3485 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3484.6-3484.7: +3481 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 59 +3482 Region: SW +3483 Location: 1000271 +3484 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3485 -------------------------------------------------------------------------------------------------------------------------------- +3486 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3485.7-3485.11: +3482 Region: SW +3483 Location: 1000271 +3484 Invoice# Date Order# Line# Item# TX Qty Cost +3485 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3486 +3487 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3488.6-3488.7: +3485 -------------------------------------------------------------------------------------------------------------------------------- +3486 +3487 +3488 > IN150211 20150211 OR150228 080 ITEM_NUMBER_45 00000052 49.99 +---- ^ +3489 Invoice Total: 000000052 49.99 +3490 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:3491.6-3491.7: +3488 IN150211 20150211 OR150228 080 ITEM_NUMBER_45 00000052 49.99 +3489 Invoice Total: 000000052 49.99 +3490 +3491 > IN150213 20150213 OR150207 095 ITEM_NUMBER_09 00000054 9.99 +---- ^ +3492 Invoice Total: 000000054 9.99 +3493 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:3542.6-3542.7: +3539 +3540 +3541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 60 +3542 > Region: SW +---- ^ +3543 Location: 1000401 +3544 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3543.6-3543.7: +3540 +3541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 60 +3542 Region: SW +3543 > Location: 1000401 +---- ^ +3544 Invoice# Date Order# Line# Item# TX Qty Cost +3545 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3544.6-3544.7: +3541 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 60 +3542 Region: SW +3543 Location: 1000401 +3544 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3545 -------------------------------------------------------------------------------------------------------------------------------- +3546 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3545.7-3545.11: +3542 Region: SW +3543 Location: 1000401 +3544 Invoice# Date Order# Line# Item# TX Qty Cost +3545 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3546 +3547 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3548.6-3548.7: +3545 -------------------------------------------------------------------------------------------------------------------------------- +3546 +3547 +3548 > IN150228 20150228 OR150202 027 ITEM_NUMBER_83 00000001 89.99 +---- ^ +3549 Invoice Total: 000000001 89.99 +3550 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3602.6-3602.7: +3599 +3600 +3601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 61 +3602 > Region: SW +---- ^ +3603 Location: 1000411 +3604 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3603.6-3603.7: +3600 +3601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 61 +3602 Region: SW +3603 > Location: 1000411 +---- ^ +3604 Invoice# Date Order# Line# Item# TX Qty Cost +3605 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3604.6-3604.7: +3601 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 61 +3602 Region: SW +3603 Location: 1000411 +3604 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3605 -------------------------------------------------------------------------------------------------------------------------------- +3606 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3605.7-3605.11: +3602 Region: SW +3603 Location: 1000411 +3604 Invoice# Date Order# Line# Item# TX Qty Cost +3605 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3606 +3607 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3608.6-3608.7: +3605 -------------------------------------------------------------------------------------------------------------------------------- +3606 +3607 +3608 > IN150210 20150210 OR150220 073 ITEM_NUMBER_63 00000014 69.99 +---- ^ +3609 Invoice Total: 000000014 69.99 +3610 +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9078-reference:3662.6-3662.7: +3659 +3660 +3661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 62 +3662 > Region: SW +---- ^ +3663 Location: 1000431 +3664 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3663.6-3663.7: +3660 +3661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 62 +3662 Region: SW +3663 > Location: 1000431 +---- ^ +3664 Invoice# Date Order# Line# Item# TX Qty Cost +3665 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3664.6-3664.7: +3661 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 62 +3662 Region: SW +3663 Location: 1000431 +3664 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3665 -------------------------------------------------------------------------------------------------------------------------------- +3666 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3665.7-3665.11: +3662 Region: SW +3663 Location: 1000431 +3664 Invoice# Date Order# Line# Item# TX Qty Cost +3665 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3666 +3667 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3668.6-3668.7: +3665 -------------------------------------------------------------------------------------------------------------------------------- +3666 +3667 +3668 > IN150208 20150208 OR150227 078 ITEM_NUMBER_23 00000052 29.99 +---- ^ +3669 Invoice Total: 000000052 29.99 +3670 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3671.6-3671.7: +3668 IN150208 20150208 OR150227 078 ITEM_NUMBER_23 00000052 29.99 +3669 Invoice Total: 000000052 29.99 +3670 +3671 > IN150220 20150220 OR150227 006 ITEM_NUMBER_50 00000085 59.99 +---- ^ +3672 Invoice Total: 000000085 59.99 +3673 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3722.6-3722.7: +3719 +3720 +3721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 63 +3722 > Region: SW +---- ^ +3723 Location: 1000601 +3724 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3723.6-3723.7: +3720 +3721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 63 +3722 Region: SW +3723 > Location: 1000601 +---- ^ +3724 Invoice# Date Order# Line# Item# TX Qty Cost +3725 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3724.6-3724.7: +3721 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 63 +3722 Region: SW +3723 Location: 1000601 +3724 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3725 -------------------------------------------------------------------------------------------------------------------------------- +3726 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3725.7-3725.11: +3722 Region: SW +3723 Location: 1000601 +3724 Invoice# Date Order# Line# Item# TX Qty Cost +3725 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3726 +3727 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3728.6-3728.7: +3725 -------------------------------------------------------------------------------------------------------------------------------- +3726 +3727 +3728 > IN150206 20150206 OR150201 011 ITEM_NUMBER_73 00000084 79.99 +---- ^ +3729 Invoice Total: 000000084 79.99 +3730 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3782.6-3782.7: +3779 +3780 +3781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 64 +3782 > Region: SW +---- ^ +3783 Location: 1000611 +3784 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3783.6-3783.7: +3780 +3781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 64 +3782 Region: SW +3783 > Location: 1000611 +---- ^ +3784 Invoice# Date Order# Line# Item# TX Qty Cost +3785 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3784.6-3784.7: +3781 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 64 +3782 Region: SW +3783 Location: 1000611 +3784 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3785 -------------------------------------------------------------------------------------------------------------------------------- +3786 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3785.7-3785.11: +3782 Region: SW +3783 Location: 1000611 +3784 Invoice# Date Order# Line# Item# TX Qty Cost +3785 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3786 +3787 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3788.6-3788.7: +3785 -------------------------------------------------------------------------------------------------------------------------------- +3786 +3787 +3788 > IN150206 20150206 OR150218 019 ITEM_NUMBER_67 00000061 69.99 +---- ^ +3789 Invoice Total: 000000061 69.99 +3790 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3842.6-3842.7: +3839 +3840 +3841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 65 +3842 > Region: SW +---- ^ +3843 Location: 1000651 +3844 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3843.6-3843.7: +3840 +3841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 65 +3842 Region: SW +3843 > Location: 1000651 +---- ^ +3844 Invoice# Date Order# Line# Item# TX Qty Cost +3845 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3844.6-3844.7: +3841 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 65 +3842 Region: SW +3843 Location: 1000651 +3844 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3845 -------------------------------------------------------------------------------------------------------------------------------- +3846 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3845.7-3845.11: +3842 Region: SW +3843 Location: 1000651 +3844 Invoice# Date Order# Line# Item# TX Qty Cost +3845 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3846 +3847 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3848.6-3848.7: +3845 -------------------------------------------------------------------------------------------------------------------------------- +3846 +3847 +3848 > IN150209 20150209 OR150224 009 ITEM_NUMBER_23 00000018 29.99 +---- ^ +3849 Invoice Total: 000000018 29.99 +3850 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3902.6-3902.7: +3899 +3900 +3901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 66 +3902 > Region: SW +---- ^ +3903 Location: 1000831 +3904 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3903.6-3903.7: +3900 +3901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 66 +3902 Region: SW +3903 > Location: 1000831 +---- ^ +3904 Invoice# Date Order# Line# Item# TX Qty Cost +3905 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3904.6-3904.7: +3901 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 66 +3902 Region: SW +3903 Location: 1000831 +3904 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3905 -------------------------------------------------------------------------------------------------------------------------------- +3906 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3905.7-3905.11: +3902 Region: SW +3903 Location: 1000831 +3904 Invoice# Date Order# Line# Item# TX Qty Cost +3905 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3906 +3907 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3908.6-3908.7: +3905 -------------------------------------------------------------------------------------------------------------------------------- +3906 +3907 +3908 > IN150201 20150201 OR150221 046 ITEM_NUMBER_44 00000069 49.99 +---- ^ +3909 Invoice Total: 000000069 49.99 +3910 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:3911.6-3911.7: +3908 IN150201 20150201 OR150221 046 ITEM_NUMBER_44 00000069 49.99 +3909 Invoice Total: 000000069 49.99 +3910 +3911 > IN150220 20150220 OR150213 005 ITEM_NUMBER_44 00000037 49.99 +---- ^ +3912 Invoice Total: 000000037 49.99 +3913 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3914.6-3914.7: +3911 IN150220 20150220 OR150213 005 ITEM_NUMBER_44 00000037 49.99 +3912 Invoice Total: 000000037 49.99 +3913 +3914 > IN150222 20150222 OR150213 058 ITEM_NUMBER_86 00000083 89.99 +---- ^ +3915 Invoice Total: 000000083 89.99 +3916 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9078-reference:3962.6-3962.7: +3959 +3960 +3961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 67 +3962 > Region: SW +---- ^ +3963 Location: 1000871 +3964 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Unexpected indicator: `:' + +run_reportwriter.at-9078-reference:3963.6-3963.7: +3960 +3961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 67 +3962 Region: SW +3963 > Location: 1000871 +---- ^ +3964 Invoice# Date Order# Line# Item# TX Qty Cost +3965 -------------------------------------------------------------------------------------------------------------------------------- +>> Error: Unexpected indicator: `o' + +run_reportwriter.at-9078-reference:3964.6-3964.7: +3961 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 67 +3962 Region: SW +3963 Location: 1000871 +3964 > Invoice# Date Order# Line# Item# TX Qty Cost +---- ^ +3965 -------------------------------------------------------------------------------------------------------------------------------- +3966 +>> Error: Unexpected indicator: `e' + +run_reportwriter.at-9078-reference:3965.7-3965.11: +3962 Region: SW +3963 Location: 1000871 +3964 Invoice# Date Order# Line# Item# TX Qty Cost +3965 > -------------------------------------------------------------------------------------------------------------------------------- +---- ^^^^ +3966 +3967 +>> Warning: Unexpected non-blank area A on continuation line + +run_reportwriter.at-9078-reference:3968.6-3968.7: +3965 -------------------------------------------------------------------------------------------------------------------------------- +3966 +3967 +3968 > IN150202 20150202 OR150216 016 ITEM_NUMBER_62 00000083 69.99 +---- ^ +3969 Invoice Total: 000000083 69.99 +3970 +>> Error: Unexpected indicator: `0' + +run_reportwriter.at-9078-reference:2.11-2.13: + 1 Run:02/25/2015 153000 NEXT PAGE ISSUE Page 1 + 2 > Region: MW +---- ^^ + 3 Location: 1000051 + 4 Invoice# Date Order# Line# Item# TX Qty Cost +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9267:0 +run_reportwriter.at-9267-inp_data:1.6-1.7: + 1 > SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 +---- ^ + 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 + 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 +>> Error: Unexpected indicator: `H' + +run_reportwriter.at-9267-inp_data:2.6-2.7: + 1 SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 + 2 > UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 +---- ^ + 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 + 4 AJIT PATIL 30/03/201610503086 20 00000500 00000400 +>> Error: Unexpected indicator: `R' + +run_reportwriter.at-9267-inp_data:4.6-4.7: + 1 SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 + 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 + 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 + 4 > AJIT PATIL 30/03/201610503086 20 00000500 00000400 +---- ^ + 5 VINOD KAMBLE 30/03/201615487558 20 00100000 00000500 + 6 SACHIN TENDUNLKAR 30/03/201614645425 20 00500000 00000600 +>> Error: Unexpected indicator: `A' + +run_reportwriter.at-9267-inp_data:5.6-5.7: + 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 + 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 + 4 AJIT PATIL 30/03/201610503086 20 00000500 00000400 + 5 > VINOD KAMBLE 30/03/201615487558 20 00100000 00000500 +---- ^ + 6 SACHIN TENDUNLKAR 30/03/201614645425 20 00500000 00000600 +>> Error: Unexpected indicator: `K' + +run_reportwriter.at-9267-inp_data:1.8-1.15: + 1 > SAINATH KOTGIRE 30/03/201611029473 20 00100000 00000100 +---- ^^^^^^^ + 2 UDAY PRATIVADI 30/03/201604547552 20 00100000 00000200 + 3 MILIND PARDESHI 30/03/201611256856 20 00100000 00000300 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9265:0 +run_reportwriter.at-9265-prog.cob:8.38-8.46: + 5 INPUT-OUTPUT SECTION. + 6 FILE-CONTROL. + 7 + 8 > SELECT IN-FILE ASSIGN TO EXTERNAL INFILE +---- ^^^^^^^^ + 9 LINE SEQUENTIAL + 10 FILE STATUS IS WS-INPUT-STATUS. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-9265-prog.cob:12.38-12.46: + 9 LINE SEQUENTIAL + 10 FILE STATUS IS WS-INPUT-STATUS. + 11 + 12 > SELECT OUT-FILE ASSIGN TO EXTERNAL OREPORT +---- ^^^^^^^^ + 13 LINE SEQUENTIAL + 14 FILE STATUS IS WS-OUTPUT-STATUS. +>> Warning: Ignored EXTERNAL (implementation pending) + +run_reportwriter.at-9265-prog.cob:21.11-21.20: + 18 FILE SECTION. + 19 + 20 FD IN-FILE + 21 > RECORDING MODE IS F +---- ^^^^^^^^^ + 22 BLOCK 0. + 23 +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:33.11-33.20: + 30 05 FILLER PIC X(34). + 31 + 32 FD OUT-FILE + 33 > RECORDING MODE IS F +---- ^^^^^^^^^ + 34 REPORT IS REPORT1. + 35 +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:66.17: + 63 + 64 REPORT SECTION. + 65 + 66 > RD REPORT1 +---- ^ + 67 PAGE LIMIT IS 65 LINES + 68 LINE LIMIT 132 +>> Hint: Missing . + +run_reportwriter.at-9265-prog.cob:67.10-67.14: + 64 REPORT SECTION. + 65 + 66 RD REPORT1 + 67 > PAGE LIMIT IS 65 LINES +---- ^^^^ + 68 LINE LIMIT 132 + 69 HEADING 1 +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:67.32: + 64 REPORT SECTION. + 65 + 66 RD REPORT1 + 67 > PAGE LIMIT IS 65 LINES +---- ^ + 68 LINE LIMIT 132 + 69 HEADING 1 +>> Hint: Missing ARE + +run_reportwriter.at-9265-prog.cob:68.10-68.14: + 65 + 66 RD REPORT1 + 67 PAGE LIMIT IS 65 LINES + 68 > LINE LIMIT 132 +---- ^^^^ + 69 HEADING 1 + 70 CONTROL ARE WS-SALARY. +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:68.15-68.20: + 65 + 66 RD REPORT1 + 67 PAGE LIMIT IS 65 LINES + 68 > LINE LIMIT 132 +---- ^^^^^ + 69 HEADING 1 + 70 CONTROL ARE WS-SALARY. +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:69.10-69.17: + 66 RD REPORT1 + 67 PAGE LIMIT IS 65 LINES + 68 LINE LIMIT 132 + 69 > HEADING 1 +---- ^^^^^^^ + 70 CONTROL ARE WS-SALARY. + 71 +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:70.10-70.17: + 67 PAGE LIMIT IS 65 LINES + 68 LINE LIMIT 132 + 69 HEADING 1 + 70 > CONTROL ARE WS-SALARY. +---- ^^^^^^^ + 71 + 72 01 MAIN-HEADER TYPE IS PAGE HEADING. +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:72.30: + 69 HEADING 1 + 70 CONTROL ARE WS-SALARY. + 71 + 72 > 01 MAIN-HEADER TYPE IS PAGE HEADING. +---- ^ + 73 05 LINE 1. + 74 10 COLUMN CENTER 45 PIC X(35) VALUE +>> Hint: Missing DETAIL + +run_reportwriter.at-9265-prog.cob:72.31-72.35: + 69 HEADING 1 + 70 CONTROL ARE WS-SALARY. + 71 + 72 > 01 MAIN-HEADER TYPE IS PAGE HEADING. +---- ^^^^ + 73 05 LINE 1. + 74 10 COLUMN CENTER 45 PIC X(35) VALUE +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:88.32: + 85 10 COLUMN 35 PIC 99 SOURCE WS-MI. + 86 + 87 01 TYPE IS CONTROL HEADING + 88 > FOR WS-SALARY OR PAGE. +---- ^ + 89 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. + 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. +>> Hint: Missing PAGE + +run_reportwriter.at-9265-prog.cob:88.33-88.37: + 85 10 COLUMN 35 PIC 99 SOURCE WS-MI. + 86 + 87 01 TYPE IS CONTROL HEADING + 88 > FOR WS-SALARY OR PAGE. +---- ^^^^ + 89 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. + 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:89.33: + 86 + 87 01 TYPE IS CONTROL HEADING + 88 FOR WS-SALARY OR PAGE. + 89 > 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. +---- ^ + 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. + 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. +>> Hint: Missing WHEN + +run_reportwriter.at-9265-prog.cob:89.34-89.39: + 86 + 87 01 TYPE IS CONTROL HEADING + 88 FOR WS-SALARY OR PAGE. + 89 > 05 LINE PLUS 2 PRESENT AFTER NEW WS-SALARY. +---- ^^^^^ + 90 10 COLUMN 6 PIC X(9) VALUE 'EMP NAME:'. + 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. +>> Error: Invalid syntax + +run_reportwriter.at-9265-prog.cob:94.33: + 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. + 92 10 COLUMN 60 PIC X(13) VALUE 'BILLING DAYS'. + 93 10 COLUMN 80 PIC X(15) VALUE 'SALARY CREDITED'. + 94 > 05 LINE PLUS 1 PRESENT AFTER NEW WS-SALARY. +---- ^ + 95 10 COLUMN 2 PIC X(100) VALUE ALL '+'. + 96 +>> Hint: Missing WHEN + +run_reportwriter.at-9265-prog.cob:94.34-94.39: + 91 10 COLUMN 30 PIC X(13) VALUE 'EMP USERID:'. + 92 10 COLUMN 60 PIC X(13) VALUE 'BILLING DAYS'. + 93 10 COLUMN 80 PIC X(15) VALUE 'SALARY CREDITED'. + 94 > 05 LINE PLUS 1 PRESENT AFTER NEW WS-SALARY. +---- ^^^^^ + 95 10 COLUMN 2 PIC X(100) VALUE ALL '+'. + 96 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9340:0 +run_reportwriter.at-9340-reference:3.6-3.7: + 1 STARK TECHNOLOGIES MONTHLY REPORT + 2 -------------------------------------------------- + 3 > REPORT PERIOD: 2016/04/22 10:55 +---- ^ + 4 + 5 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-9340-reference:5.6-5.7: + 2 -------------------------------------------------- + 3 REPORT PERIOD: 2016/04/22 10:55 + 4 + 5 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +---- ^ + 6 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 7 SAINATH KOTGIRE 11029473 20 100000 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-9340-reference:6.6-6.7: + 3 REPORT PERIOD: 2016/04/22 10:55 + 4 + 5 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 6 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +---- ^ + 7 SAINATH KOTGIRE 11029473 20 100000 + 8 UDAY PRATIVADI 04547552 20 100000 +>> Error: Unexpected indicator: `+' + +run_reportwriter.at-9340-reference:7.6-7.7: + 4 + 5 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 6 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 7 > SAINATH KOTGIRE 11029473 20 100000 +---- ^ + 8 UDAY PRATIVADI 04547552 20 100000 + 9 MILIND PARDESHI 11256856 20 100000 +>> Error: Unexpected indicator: `A' + +run_reportwriter.at-9340-reference:9.6-9.7: + 6 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 7 SAINATH KOTGIRE 11029473 20 100000 + 8 UDAY PRATIVADI 04547552 20 100000 + 9 > MILIND PARDESHI 11256856 20 100000 +---- ^ + 10 + 11 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +>> Error: Unexpected indicator: `I' + +run_reportwriter.at-9340-reference:11.6-11.7: + 8 UDAY PRATIVADI 04547552 20 100000 + 9 MILIND PARDESHI 11256856 20 100000 + 10 + 11 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +---- ^ + 12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 13 AJIT PATIL 10503086 20 500 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-9340-reference:12.6-12.7: + 9 MILIND PARDESHI 11256856 20 100000 + 10 + 11 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 12 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +---- ^ + 13 AJIT PATIL 10503086 20 500 + 14 +>> Error: Unexpected indicator: `+' + +run_reportwriter.at-9340-reference:13.6-13.7: + 10 + 11 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 13 > AJIT PATIL 10503086 20 500 +---- ^ + 14 + 15 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +>> Error: Unexpected indicator: `J' + +run_reportwriter.at-9340-reference:15.6-15.7: + 12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 13 AJIT PATIL 10503086 20 500 + 14 + 15 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +---- ^ + 16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 17 VINOD KAMBLE 15487558 20 100000 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-9340-reference:16.6-16.7: + 13 AJIT PATIL 10503086 20 500 + 14 + 15 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 16 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +---- ^ + 17 VINOD KAMBLE 15487558 20 100000 + 18 +>> Error: Unexpected indicator: `+' + +run_reportwriter.at-9340-reference:17.6-17.7: + 14 + 15 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 17 > VINOD KAMBLE 15487558 20 100000 +---- ^ + 18 + 19 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +>> Error: Unexpected indicator: `I' + +run_reportwriter.at-9340-reference:19.6-19.7: + 16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 17 VINOD KAMBLE 15487558 20 100000 + 18 + 19 > EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED +---- ^ + 20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 21 SACHIN TENDUNLKAR 14645425 20 500000 +>> Error: Unexpected indicator: `M' + +run_reportwriter.at-9340-reference:20.6-20.7: + 17 VINOD KAMBLE 15487558 20 100000 + 18 + 19 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 20 > ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +---- ^ + 21 SACHIN TENDUNLKAR 14645425 20 500000 + 22 +>> Error: Unexpected indicator: `+' + +run_reportwriter.at-9340-reference:21.6-21.7: + 18 + 19 EMP NAME: EMP USERID: BILLING DAYS SALARY CREDITED + 20 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 21 > SACHIN TENDUNLKAR 14645425 20 500000 +---- ^ + 22 + 23 **************************************************************************************************** +>> Error: Unexpected indicator: `A' + +run_reportwriter.at-9340-reference:1.27-1.32: + 1 > STARK TECHNOLOGIES MONTHLY REPORT +---- ^^^^^ + 2 -------------------------------------------------- + 3 REPORT PERIOD: 2016/04/22 10:55 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9469:0 +run_reportwriter.at-9469-prog.cob:32.19-32.27: + 29 + 30 REPORT SECTION. + 31 RD RP + 32 > CODE IS "VarQ: " +---- ^^^^^^^^ + 33 PAGE LIMIT 10 LINES + 34 60 COLUMNS +>> Error: Invalid syntax + +run_reportwriter.at-9469-prog.cob:33.15: + 30 REPORT SECTION. + 31 RD RP + 32 CODE IS "VarQ: " + 33 > PAGE LIMIT 10 LINES +---- ^ + 34 60 COLUMNS + 35 HEADING 1 +>> Hint: Missing . + +run_reportwriter.at-9469-prog.cob:33.16-33.21: + 30 REPORT SECTION. + 31 RD RP + 32 CODE IS "VarQ: " + 33 > PAGE LIMIT 10 LINES +---- ^^^^^ + 34 60 COLUMNS + 35 HEADING 1 +>> Warning: Invalid syntax + +run_reportwriter.at-9469-prog.cob:33.30: + 30 REPORT SECTION. + 31 RD RP + 32 CODE IS "VarQ: " + 33 > PAGE LIMIT 10 LINES +---- ^ + 34 60 COLUMNS + 35 HEADING 1 +>> Hint: Missing ARE + +run_reportwriter.at-9469-prog.cob:34.22-34.24: + 31 RD RP + 32 CODE IS "VarQ: " + 33 PAGE LIMIT 10 LINES + 34 > 60 COLUMNS +---- ^^ + 35 HEADING 1 + 36 FIRST DETAIL 4. +>> Error: Invalid syntax + +run_reportwriter.at-9469-prog.cob:35.11-35.18: + 32 CODE IS "VarQ: " + 33 PAGE LIMIT 10 LINES + 34 60 COLUMNS + 35 > HEADING 1 +---- ^^^^^^^ + 36 FIRST DETAIL 4. + 37 01 HEADING-LINE. +>> Error: Invalid syntax + +run_reportwriter.at-9469-prog.cob:36.11-36.16: + 33 PAGE LIMIT 10 LINES + 34 60 COLUMNS + 35 HEADING 1 + 36 > FIRST DETAIL 4. +---- ^^^^^ + 37 01 HEADING-LINE. + 38 02 TYPE PAGE HEADING LINE PLUS 1. +>> Error: Invalid syntax + +run_reportwriter.at-9469-prog.cob:38.18: + 35 HEADING 1 + 36 FIRST DETAIL 4. + 37 01 HEADING-LINE. + 38 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 39 05 COLUMN 1 PIC X(50) VALUE + 40 "H 1 2 3 4 5". +>> Hint: Missing DETAIL + +run_reportwriter.at-9469-prog.cob:38.19-38.23: + 35 HEADING 1 + 36 FIRST DETAIL 4. + 37 01 HEADING-LINE. + 38 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 39 05 COLUMN 1 PIC X(50) VALUE + 40 "H 1 2 3 4 5". +>> Error: Invalid syntax + +run_reportwriter.at-9469-prog.cob:43.18: + 40 "H 1 2 3 4 5". + 41 05 PIC X(7) VALUE " Page". + 42 05 PIC ZZ9 SOURCE PAGE-COUNTER. + 43 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^ + 44 * 05 COLUMN 1 PIC X(50) VALUE + 45 * "12345678901234567890123456789012345678901234567890". +>> Hint: Missing DETAIL + +run_reportwriter.at-9469-prog.cob:43.19-43.23: + 40 "H 1 2 3 4 5". + 41 05 PIC X(7) VALUE " Page". + 42 05 PIC ZZ9 SOURCE PAGE-COUNTER. + 43 > 02 TYPE PAGE HEADING LINE PLUS 1. +---- ^^^^ + 44 * 05 COLUMN 1 PIC X(50) VALUE + 45 * "12345678901234567890123456789012345678901234567890". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9514:0 +run_reportwriter.at-9514-reference:1.6-1.7: + 1 > VarQ: H 1 2 3 4 5 Page 1 +---- ^ + 2 VarQ: 123456789b123456789c123456789d123456789e123456789f + 3 VarQ: +>> Error: Unexpected indicator: `H' + +run_reportwriter.at-9514-reference:2.6-2.7: + 1 VarQ: H 1 2 3 4 5 Page 1 + 2 > VarQ: 123456789b123456789c123456789d123456789e123456789f +---- ^ + 3 VarQ: + 4 VarQ: 100 100 100 <1> +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9514-reference:4.6-4.7: + 1 VarQ: H 1 2 3 4 5 Page 1 + 2 VarQ: 123456789b123456789c123456789d123456789e123456789f + 3 VarQ: + 4 > VarQ: 100 100 100 <1> +---- ^ + 5 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 6 VarQ: 200 200 200 200 <3> +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9514-reference:5.6-5.7: + 2 VarQ: 123456789b123456789c123456789d123456789e123456789f + 3 VarQ: + 4 VarQ: 100 100 100 <1> + 5 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> +---- ^ + 6 VarQ: 200 200 200 200 <3> + 7 VarQ: 400 401 402 403 <4> +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-9514-reference:6.6-6.7: + 3 VarQ: + 4 VarQ: 100 100 100 <1> + 5 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 6 > VarQ: 200 200 200 200 <3> +---- ^ + 7 VarQ: 400 401 402 403 <4> + 8 VarQ: +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9514-reference:7.6-7.7: + 4 VarQ: 100 100 100 <1> + 5 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 6 VarQ: 200 200 200 200 <3> + 7 > VarQ: 400 401 402 403 <4> +---- ^ + 8 VarQ: + 9 VarQ: <1> +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-9514-reference:10.6-10.7: + 7 VarQ: 400 401 402 403 <4> + 8 VarQ: + 9 VarQ: <1> + 10 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> +---- ^ + 11 VarQ: H 1 2 3 4 5 Page 2 + 12 VarQ: 123456789b123456789c123456789d123456789e123456789f +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-9514-reference:11.6-11.7: + 8 VarQ: + 9 VarQ: <1> + 10 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 11 > VarQ: H 1 2 3 4 5 Page 2 +---- ^ + 12 VarQ: 123456789b123456789c123456789d123456789e123456789f + 13 VarQ: +>> Error: Unexpected indicator: `H' + +run_reportwriter.at-9514-reference:12.6-12.7: + 9 VarQ: <1> + 10 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 11 VarQ: H 1 2 3 4 5 Page 2 + 12 > VarQ: 123456789b123456789c123456789d123456789e123456789f +---- ^ + 13 VarQ: + 14 VarQ: 200 200 200 200 <3> +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9514-reference:14.6-14.7: + 11 VarQ: H 1 2 3 4 5 Page 2 + 12 VarQ: 123456789b123456789c123456789d123456789e123456789f + 13 VarQ: + 14 > VarQ: 200 200 200 200 <3> +---- ^ + 15 VarQ: 400 401 402 403 <4> + 16 VarQ: +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9514-reference:15.6-15.7: + 12 VarQ: 123456789b123456789c123456789d123456789e123456789f + 13 VarQ: + 14 VarQ: 200 200 200 200 <3> + 15 > VarQ: 400 401 402 403 <4> +---- ^ + 16 VarQ: + 17 VarQ: <1> +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-9514-reference:18.6-18.7: + 15 VarQ: 400 401 402 403 <4> + 16 VarQ: + 17 VarQ: <1> + 18 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> +---- ^ + 19 VarQ: 200 200 200 200 <3> + 20 VarQ: 400 401 402 403 <4> +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-9514-reference:19.6-19.7: + 16 VarQ: + 17 VarQ: <1> + 18 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 19 > VarQ: 200 200 200 200 <3> +---- ^ + 20 VarQ: 400 401 402 403 <4> + 21 VarQ: H 1 2 3 4 5 Page 3 +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9514-reference:20.6-20.7: + 17 VarQ: <1> + 18 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 19 VarQ: 200 200 200 200 <3> + 20 > VarQ: 400 401 402 403 <4> +---- ^ + 21 VarQ: H 1 2 3 4 5 Page 3 + 22 VarQ: 123456789b123456789c123456789d123456789e123456789f +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-9514-reference:21.6-21.7: + 18 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 19 VarQ: 200 200 200 200 <3> + 20 VarQ: 400 401 402 403 <4> + 21 > VarQ: H 1 2 3 4 5 Page 3 +---- ^ + 22 VarQ: 123456789b123456789c123456789d123456789e123456789f + 23 VarQ: +>> Error: Unexpected indicator: `H' + +run_reportwriter.at-9514-reference:22.6-22.7: + 19 VarQ: 200 200 200 200 <3> + 20 VarQ: 400 401 402 403 <4> + 21 VarQ: H 1 2 3 4 5 Page 3 + 22 > VarQ: 123456789b123456789c123456789d123456789e123456789f +---- ^ + 23 VarQ: + 24 VarQ: <1> +>> Error: Unexpected indicator: `1' + +run_reportwriter.at-9514-reference:25.6-25.7: + 22 VarQ: 123456789b123456789c123456789d123456789e123456789f + 23 VarQ: + 24 VarQ: <1> + 25 > VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> +---- ^ + 26 VarQ: 200 200 200 200 <3> + 27 VarQ: 400 401 402 403 <4> +>> Error: Unexpected indicator: `T' + +run_reportwriter.at-9514-reference:26.6-26.7: + 23 VarQ: + 24 VarQ: <1> + 25 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 26 > VarQ: 200 200 200 200 <3> +---- ^ + 27 VarQ: 400 401 402 403 <4> + 28 VarQ: +>> Error: Unexpected indicator: `2' + +run_reportwriter.at-9514-reference:27.6-27.7: + 24 VarQ: <1> + 25 VarQ: Tag1 *123*Tag2 *Tag1 *123*Tag2 *Tag1 *123*Tag2 * <2> + 26 VarQ: 200 200 200 200 <3> + 27 > VarQ: 400 401 402 403 <4> +---- ^ + 28 VarQ: + 29 VarQ: +>> Error: Unexpected indicator: `4' + +run_reportwriter.at-9514-reference:1.15-1.16: + 1 > VarQ: H 1 2 3 4 5 Page 1 +---- ^ + 2 VarQ: 123456789b123456789c123456789d123456789e123456789f + 3 VarQ: +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/run_reportwriter.at:9617:0 +run_reportwriter.at-9617-prog.cob:32.19: + 29 + 30 RD REPORT-1 + 31 CONTROLS ARE FINAL + 32 > PAGE LIMIT IS 21 +---- ^ + 33 LINE LIMIT IS 71 + 34 FIRST DETAIL IS 08 +>> Hint: Missing . + +run_reportwriter.at-9617-prog.cob:32.24-32.29: + 29 + 30 RD REPORT-1 + 31 CONTROLS ARE FINAL + 32 > PAGE LIMIT IS 21 +---- ^^^^^ + 33 LINE LIMIT IS 71 + 34 FIRST DETAIL IS 08 +>> Warning: Invalid syntax + +run_reportwriter.at-9617-prog.cob:33.24-33.29: + 30 RD REPORT-1 + 31 CONTROLS ARE FINAL + 32 PAGE LIMIT IS 21 + 33 > LINE LIMIT IS 71 +---- ^^^^^ + 34 FIRST DETAIL IS 08 + 35 LAST DETAIL IS 18 +>> Error: Invalid syntax + +run_reportwriter.at-9617-prog.cob:34.15-34.20: + 31 CONTROLS ARE FINAL + 32 PAGE LIMIT IS 21 + 33 LINE LIMIT IS 71 + 34 > FIRST DETAIL IS 08 +---- ^^^^^ + 35 LAST DETAIL IS 18 + 36 FOOTING IS 20 +>> Error: Invalid syntax + +run_reportwriter.at-9617-prog.cob:35.15-35.19: + 32 PAGE LIMIT IS 21 + 33 LINE LIMIT IS 71 + 34 FIRST DETAIL IS 08 + 35 > LAST DETAIL IS 18 +---- ^^^^ + 36 FOOTING IS 20 + 37 . +>> Error: Invalid syntax + +run_reportwriter.at-9617-prog.cob:36.15-36.22: + 33 LINE LIMIT IS 71 + 34 FIRST DETAIL IS 08 + 35 LAST DETAIL IS 18 + 36 > FOOTING IS 20 +---- ^^^^^^^ + 37 . + 38 *>--------------------------------------------------------------- +>> Error: Invalid syntax + +run_reportwriter.at-9617-prog.cob:40.19: + 37 . + 38 *>--------------------------------------------------------------- + 39 01 PAGE-HEADING + 40 > TYPE PAGE HEADING. +---- ^ + 41 02 LINE 01. + 42 03 COLUMN 1 VALUE "PAGE HEADING". +>> Hint: Missing DETAIL + +run_reportwriter.at-9617-prog.cob:40.20-40.24: + 37 . + 38 *>--------------------------------------------------------------- + 39 01 PAGE-HEADING + 40 > TYPE PAGE HEADING. +---- ^^^^ + 41 02 LINE 01. + 42 03 COLUMN 1 VALUE "PAGE HEADING". +>> Error: Invalid syntax + diff --git a/test/output-tests/run_returncode.expected b/test/output-tests/run_returncode.expected new file mode 100644 index 000000000..46745f2b7 --- /dev/null +++ b/test/output-tests/run_returncode.expected @@ -0,0 +1,5 @@ +Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:44:0 +Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:94:0 +Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:95:0 +Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:96:0 +Considering: import/gnucobol/tests/testsuite.src/run_returncode.at:133:0 diff --git a/test/output-tests/run_subscripts.expected b/test/output-tests/run_subscripts.expected new file mode 100644 index 000000000..3febddb36 --- /dev/null +++ b/test/output-tests/run_subscripts.expected @@ -0,0 +1,61 @@ +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:43:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:62:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:93:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:113:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:139:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:167:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:202:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:236:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:292:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:342:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:374:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:422:0 +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:493:0 +run_subscripts.at-493-prog.cob:2.7-2.16: + 1 + 2 > $SET BOUND +---- ^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:494:0 +run_subscripts.at-494-progn.cob:2.7-2.18: + 1 + 2 > $SET NOBOUND +---- ^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. progn. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:495:0 +run_subscripts.at-495-progn2.cob:2.7-2.19: + 1 + 2 > $SET NO-BOUND +---- ^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. progn2. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:532:0 +run_subscripts.at-532-prog.cob:13.7-13.20: + 10 01 idx PIC 99 VALUE 6. + 11 + 12 PROCEDURE DIVISION. + 13 > $SET NOSSRANGE +---- ^^^^^^^^^^^^^ + 14 DISPLAY y (idx) + 15 *> Note: MF says "sets BOUND" +>> Error: Unexpected characters + +run_subscripts.at-532-prog.cob:16.7-16.18: + 13 $SET NOSSRANGE + 14 DISPLAY y (idx) + 15 *> Note: MF says "sets BOUND" + 16 > $SET SSRANGE +---- ^^^^^^^^^^^ + 17 DISPLAY y (idx) + 18 . +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/run_subscripts.at:581:0 diff --git a/test/output-tests/syn_copy.expected b/test/output-tests/syn_copy.expected new file mode 100644 index 000000000..5adfd2e20 --- /dev/null +++ b/test/output-tests/syn_copy.expected @@ -0,0 +1,424 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:112:0 +syn_copy.at-112-prog.cob:6.7-6.30: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" IN SUB. +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `copy.inc' not found in search path (search path: SUB) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:113:0 +syn_copy.at-113-prog2.cob:6.7-6.30: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" OF SUB. +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `copy.inc' not found in search path (search path: SUB) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:114:0 +syn_copy.at-114-prog3.cob:6.7-6.31: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" IN sub2. +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `copy.inc' not found in search path (search path: SUB2) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:115:0 +syn_copy.at-115-prog4.cob:6.7-6.23: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc". +---- ^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:116:0 +syn_copy.at-116-prog5.cob:6.7-6.30: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" IN CBD. +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `copy.inc' not found in search path (search path: CBD) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:163:0 +Fatal: syn_copy.at-163-SUB/prog.cob: No such file or directory +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:247:0 +syn_copy.at-247-prog.cob:6.7-6.23: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc". +---- ^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:248:0 +syn_copy.at-248-prog2.cob:6.7-6.19: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy". +---- ^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `copy' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:249:0 +syn_copy.at-249-prog3.cob:6.7-6.29: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "sub.inc" OF SUB. +---- ^^^^^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `sub.inc' not found in search path (search path: SUB) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:250:0 +syn_copy.at-250-prog4.cob:6.7-6.25: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "sub" OF SUB. +---- ^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `sub' not found in search path (search path: SUB) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:251:0 +syn_copy.at-251-prog5.cob:6.7-6.26: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "sub" OF "..". +---- ^^^^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `sub' not found in search path (search path: ..) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:252:0 +syn_copy.at-252-prog6.cob:6.7-6.18: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "sub". +---- ^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR. +>> Error: Library `sub' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:280:0 +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:281:0 +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:403:0 +syn_copy.at-403-prog.cob:6.7-8.53: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING ==TEST-VAR== BY ==FIRST-MATCH== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > ==TEST-VAR== BY ==SECOND-MATCH==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY FIRST-MATCH NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:432:0 +syn_copy.at-432-prog.cob:6.7-10.55: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING ==TEST-VAR==, BY ==FIRST-MATCH==, +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > , ==TEST-VAR==; BY ==SECOND-MATCH==; +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > ; ==TEST-VAR== , BY ==THIRD-MATCH== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > ==TEST-VAR== ; BY ==FOURTH-MATCH==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 PROCEDURE DIVISION. + 12 DISPLAY FIRST-MATCH NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:462:0 +syn_copy.at-462-prog.cob:6.7-8.44: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING ==:TEST:== BY ==COLON== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > ==(TEST)== BY ==PAREN==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY COLON-VAR NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:492:0 +syn_copy.at-492-prog.cob:6.7-8.53: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING LEADING ==TEST== BY ==FIRST== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > LEADING ==NORM== BY ==SECOND==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY FIRST-VAR NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:522:0 +syn_copy.at-522-prog.cob:6.7-8.54: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING TRAILING ==FIRST== BY ==VAR1== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > TRAILING ==SECOND== BY ==VAR2==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY TEST-VAR1 NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:569:0 +syn_copy.at-569-prog.cob:9.37-9.39: + 6 COPY "copy.inc" + 7 REPLACING LEADING "TEST" BY "FIRST" + 8 LEADING "NORM" BY "SECOND" + 9 > LEADING "X" BY "". +---- ^^ + 10 COPY "copy2.inc" + 11 REPLACING TRAILING "FIRST" BY "VAR1" +>> Warning: partial replacing with literal source operands is obsolete in default + +syn_copy.at-569-prog.cob:6.7-9.40: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 7 > REPLACING LEADING "TEST" BY "FIRST" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > LEADING "NORM" BY "SECOND" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > LEADING "X" BY "". +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 COPY "copy2.inc" + 11 REPLACING TRAILING "FIRST" BY "VAR1" +>> Error: Library `copy.inc' not found in search path (search path: ) + +syn_copy.at-569-prog.cob:13.38-13.40: + 10 COPY "copy2.inc" + 11 REPLACING TRAILING "FIRST" BY "VAR1" + 12 TRAILING "SECND" BY "VAR2" + 13 > TRAILING "Y" BY "". +---- ^^ + 14 PROCEDURE DIVISION. + 15 DISPLAY FIRST-VAR NO ADVANCING END-DISPLAY. +>> Warning: partial replacing with literal source operands is obsolete in default + +syn_copy.at-569-prog.cob:10.7-13.41: + 7 REPLACING LEADING "TEST" BY "FIRST" + 8 LEADING "NORM" BY "SECOND" + 9 LEADING "X" BY "". + 10 > COPY "copy2.inc" +---- ^^^^^^^^^^^^^^^^ + 11 > REPLACING TRAILING "FIRST" BY "VAR1" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > TRAILING "SECND" BY "VAR2" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 > TRAILING "Y" BY "". +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 14 PROCEDURE DIVISION. + 15 DISPLAY FIRST-VAR NO ADVANCING END-DISPLAY. +>> Error: Library `copy2.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:654:0 +syn_copy.at-654-prog.cob:6.7-7.50: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy-1.inc" +---- ^^^^^^^^^^^^^^^^^ + 7 > REPLACING ==TEST-VAR== BY ==COPY-VAR==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 PROCEDURE DIVISION. + 9 DISPLAY COPY-VAR NO ADVANCING +>> Error: Library `copy-1.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:680:0 +syn_copy.at-680-prog.cob:6.2-6.18: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > COPY "copy.inc". +---- ^^^^^^^^^^^^^^^^ + 7 PROCEDURE DIVISION. + 8 DISPLAY TEST-VAR NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:703:0 +syn_copy.at-703-prog.cob:4.36-4.42: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > REPLACE LEADING "PREFIX-" BY SPACES +---- ^^^^^^ + 5 TRAILING "-SUFFIX" BY SPACE. + 6 DATA DIVISION. +>> Error: Malformed REPLACE statement + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:709:0 +syn_copy.at-709-prog2.cob:2.45-2.51: + 1 + 2 > COPY prog REPLACING LEADING "VAR1" BY SPACES. +---- ^^^^^^ +>> Error: Malformed COPY statement + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:761:0 +syn_copy.at-761-prog.cob:7.7-8.46: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy.inc" REPLACING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > == 02 TEST-EE == BY == 02 TEST-FF ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 main. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:799:0 +syn_copy.at-799-prog.cob:7.7-12.57: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > == 02 TEST-OK == BY == 02 TEST-KO == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > ==TEST-CC== BY ==TEST-DD== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > == 02 TEST-EE == BY == 02 TEST-FF == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > == PIC == BY == pic ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 PROCEDURE DIVISION. + 14 main. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:879:0 +syn_copy.at-879-prog.cob:7.7-13.62: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^^ + 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > == 02 TEST-OK == BY == 02 TEST-KO == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > == TEST-CC == BY == TEST-DD == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > == 02 TEST-EE == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > BY == 02 TEST-FF == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 > == PIC == BY == pic ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 14 PROCEDURE DIVISION. + 15 main. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:918:0 +syn_copy.at-918-prog.cob:7.7-12.55: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 GET-VALUE. + 7 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 8 > REPLACING LEADING ==TEST-VAR== BY ==TEST-AVR== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > == 02 TEST-OK == BY == 02 TEST-KO == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > ==TEST-CC== BY ==TEST-DD== +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > == 02 TEST-EE == BY == 02 TEST-FF == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 > == PIC == BY == pic ==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 13 PROCEDURE DIVISION. + 14 main. +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:968:0 +syn_copy.at-968-prog.cob:7.7-8.44: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 REPLACE ==VAR-COLON== BY ==VAR-COMMA==. + 7 > COPY "copy.inc" +---- ^^^^^^^^^^^^^^^ + 8 > REPLACING ==:TEST:== BY ==COLON==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY VAR-COLON NO ADVANCING +>> Error: Library `copy.inc' not found in search path (search path: ) + +Considering: import/gnucobol/tests/testsuite.src/syn_copy.at:1072:0 +syn_copy.at-1072-prog.cob:8.30-8.32: + 5 WORKING-STORAGE SECTION. + 6 01 INPUT-REC. + 7 COPY "copy.inc" + 8 > REPLACING 'POST' BY IN. +---- ^^ + 9 PROCEDURE DIVISION. + 10 DISPLAY WS-IN IN-A IN-WS NO ADVANCING. +>> Error: Malformed COPY statement + +syn_copy.at-1072-prog.cob:12.7-14.49: + 9 PROCEDURE DIVISION. + 10 DISPLAY WS-IN IN-A IN-WS NO ADVANCING. + 11 IF WS-IN EQUALS IN-A + 12 > COPY "proc.inc" +---- ^^^^^^^^^^^^^^^ + 13 > REPLACING VAR BY IN-A IN INPUT-REC +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 14 > ==VAR-2== BY ==IN-WS (1:1)==. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 15 END-IF. + 16 STOP RUN. +>> Error: Library `proc.inc' not found in search path (search path: ) + +syn_copy.at-1072-prog.cob:15.11-15.17: + 12 COPY "proc.inc" + 13 REPLACING VAR BY IN-A IN INPUT-REC + 14 ==VAR-2== BY ==IN-WS (1:1)==. + 15 > END-IF. +---- ^^^^^^ + 16 STOP RUN. +>> Error: Invalid syntax + diff --git a/test/output-tests/syn_definition.expected b/test/output-tests/syn_definition.expected new file mode 100644 index 000000000..d58a086ae --- /dev/null +++ b/test/output-tests/syn_definition.expected @@ -0,0 +1,1201 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:60:0 +syn_definition.at-60-SHORT2.cob:3.18: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "_short". +---- ^ + 4 PROCEDURE DIVISION. + 5 STOP RUN. +>> Hint: Missing + +syn_definition.at-60-SHORT2.cob:3.24-3.32: + 1 + 2 IDENTIFICATION DIVISION. + 3 > PROGRAM-ID. "_short". +---- ^^^^^^^^ + 4 PROCEDURE DIVISION. + 5 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:145:0 +syn_definition.at-145-containing-prog.cob:8.42-8.48: + 5 PROCEDURE DIVISION. + 6 + 7 IDENTIFICATION DIVISION. + 8 > PROGRAM-ID. prog-1 IS INITIAL COMMON. +---- ^^^^^^ + 9 PROCEDURE DIVISION. + 10 STOP RUN. +>> Error: Invalid syntax + +syn_definition.at-145-containing-prog.cob:14.44-14.50: + 11 END PROGRAM prog-1. + 12 + 13 IDENTIFICATION DIVISION. + 14 > PROGRAM-ID. prog-2 IS RECURSIVE COMMON. +---- ^^^^^^ + 15 PROCEDURE DIVISION. + 16 STOP RUN. +>> Error: Invalid syntax + +syn_definition.at-145-containing-prog.cob:17.31: + 14 PROGRAM-ID. prog-2 IS RECURSIVE COMMON. + 15 PROCEDURE DIVISION. + 16 STOP RUN. + 17 > END PROGRAM prog-2. +---- ^ +>> Hint: Missing END PROGRAM . + +syn_definition.at-145-containing-prog.cob:18.0: + 15 PROCEDURE DIVISION. + 16 STOP RUN. + 17 END PROGRAM prog-2. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:366:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:397:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:425:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:454:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:487:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:507:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:527:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:548:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:703:0 +syn_definition.at-703-prog.cob:4.42: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > PROCEDURE DIVISION RETURNING OMITTED. +---- ^ + 5 MOVE 42 TO RETURN-CODE + 6 GOBACK. +>> Hint: Missing + +syn_definition.at-703-prog.cob:4.43-4.50: + 1 + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 > PROCEDURE DIVISION RETURNING OMITTED. +---- ^^^^^^^ + 5 MOVE 42 TO RETURN-CODE + 6 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:806:0 +syn_definition.at-806-prog.cob:8.11-8.15: + 5 LINKAGE SECTION. + 6 01 PAR-OUT PIC 9. + 7 PROCEDURE DIVISION RETURNING PAR-OUT. + 8 > MOVE 4 TO PAR-OUT +---- ^^^^ + 9 GOBACK. + 10 END FUNCTION func. +>> Error: Invalid syntax + +syn_definition.at-806-prog.cob:8.17: + 5 LINKAGE SECTION. + 6 01 PAR-OUT PIC 9. + 7 PROCEDURE DIVISION RETURNING PAR-OUT. + 8 > MOVE 4 TO PAR-OUT +---- ^ + 9 GOBACK. + 10 END FUNCTION func. +>> Hint: Missing . + +syn_definition.at-806-prog.cob:8.18-8.20: + 5 LINKAGE SECTION. + 6 01 PAR-OUT PIC 9. + 7 PROCEDURE DIVISION RETURNING PAR-OUT. + 8 > MOVE 4 TO PAR-OUT +---- ^^ + 9 GOBACK. + 10 END FUNCTION func. +>> Warning: Invalid syntax + +syn_definition.at-806-prog.cob:8.28: + 5 LINKAGE SECTION. + 6 01 PAR-OUT PIC 9. + 7 PROCEDURE DIVISION RETURNING PAR-OUT. + 8 > MOVE 4 TO PAR-OUT +---- ^ + 9 GOBACK. + 10 END FUNCTION func. +>> Hint: Missing . + +syn_definition.at-806-prog.cob:9.11-9.17: + 6 01 PAR-OUT PIC 9. + 7 PROCEDURE DIVISION RETURNING PAR-OUT. + 8 MOVE 4 TO PAR-OUT + 9 > GOBACK. +---- ^^^^^^ + 10 END FUNCTION func. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:847:0 +syn_definition.at-847-prog.cob:7.46: + 4 DATA DIVISION. + 5 LINKAGE SECTION. + 6 01 ret PIC 99. + 7 > PROCEDURE DIVISION RETURNING ret. +---- ^ + 8 CONTINUE + 9 . +>> Hint: Missing END FUNCTION + +syn_definition.at-847-prog.cob:8.11-8.19: + 5 LINKAGE SECTION. + 6 01 ret PIC 99. + 7 PROCEDURE DIVISION RETURNING ret. + 8 > CONTINUE +---- ^^^^^^^^ + 9 . + 10 END FUNCTION x. +>> Error: Invalid syntax + +syn_definition.at-847-prog.cob:10.7-10.10: + 7 PROCEDURE DIVISION RETURNING ret. + 8 CONTINUE + 9 . + 10 > END FUNCTION x. +---- ^^^ + 11 + 12 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:950:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:975:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1101:0 +syn_definition.at-1101-prog.cob:15.19: + 12 move 0 to word + 13 perform word + 14 * + 15 > stop run returning word. +---- ^ + 16 *----------------------------------------------------------------- + 17 word section. +>> Hint: Missing . + +syn_definition.at-1101-prog.cob:15.20-15.29: + 12 move 0 to word + 13 perform word + 14 * + 15 > stop run returning word. +---- ^^^^^^^^^ + 16 *----------------------------------------------------------------- + 17 word section. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1118:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1180:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1205:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1227:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1264:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 +syn_definition.at-1323-prog1.cob:5.24-5.33: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog1. + 4 PROCEDURE DIVISION. + 5 > EXIT PROGRAM RETURNING -1. +---- ^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 +syn_definition.at-1323-prog2.cob:5.17: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog2. + 4 PROCEDURE DIVISION. + 5 > GOBACK GIVING 2. +---- ^ +>> Hint: Missing . + +syn_definition.at-1323-prog2.cob:5.18-5.24: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog2. + 4 PROCEDURE DIVISION. + 5 > GOBACK GIVING 2. +---- ^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 +syn_definition.at-1323-prog3.cob:5.19: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog3. + 4 PROCEDURE DIVISION. + 5 > STOP RUN GIVING 0. +---- ^ +>> Hint: Missing . + +syn_definition.at-1323-prog3.cob:5.20-5.26: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog3. + 4 PROCEDURE DIVISION. + 5 > STOP RUN GIVING 0. +---- ^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1323:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1462:0 +syn_definition.at-1462-prog.cob:13.24: + 10 IDENTIFICATION DIVISION. + 11 PROGRAM-ID. prog-3. + 12 + 13 > END PROGRAM prog. +---- ^ +>> Hint: Missing END PROGRAM . END PROGRAM . + +syn_definition.at-1462-prog.cob:14.0: + 11 PROGRAM-ID. prog-3. + 12 + 13 END PROGRAM prog. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1497:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:1845:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2043:0 +syn_definition.at-2043-prog3.cob:12.38: + 9 ALPHABET-2. + 10 SPECIAL-NAMES. + 11 ALPHABET ALPHABET-1 IS + 12 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^ + 13 ALPHABET ALPHABET-2 + 14 n'A' also n'B' ALSO n'f', +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:12.38-12.42: + 9 ALPHABET-2. + 10 SPECIAL-NAMES. + 11 ALPHABET ALPHABET-1 IS + 12 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^^^^ + 13 ALPHABET ALPHABET-2 + 14 n'A' also n'B' ALSO n'f', +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:12.49: + 9 ALPHABET-2. + 10 SPECIAL-NAMES. + 11 ALPHABET ALPHABET-1 IS + 12 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^ + 13 ALPHABET ALPHABET-2 + 14 n'A' also n'B' ALSO n'f', +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:12.49-12.53: + 9 ALPHABET-2. + 10 SPECIAL-NAMES. + 11 ALPHABET ALPHABET-1 IS + 12 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^^^^ + 13 ALPHABET ALPHABET-2 + 14 n'A' also n'B' ALSO n'f', +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:13.11-13.19: + 10 SPECIAL-NAMES. + 11 ALPHABET ALPHABET-1 IS + 12 'A' THROUGH 'Z', x'00' thru x'05'. + 13 > ALPHABET ALPHABET-2 +---- ^^^^^^^^ + 14 n'A' also n'B' ALSO n'f', + 15 n'g' also n'G', n'1' thru n'9'. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:28.38: + 25 ALPHABET-2. + 26 SPECIAL-NAMES. + 27 ALPHABET ALPHABET-1 IS + 28 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^ + 29 ALPHABET ALPHABET-2 IS + 30 n'A' ALSO n'f', +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:28.38-28.42: + 25 ALPHABET-2. + 26 SPECIAL-NAMES. + 27 ALPHABET ALPHABET-1 IS + 28 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^^^^ + 29 ALPHABET ALPHABET-2 IS + 30 n'A' ALSO n'f', +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:28.49: + 25 ALPHABET-2. + 26 SPECIAL-NAMES. + 27 ALPHABET ALPHABET-1 IS + 28 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^ + 29 ALPHABET ALPHABET-2 IS + 30 n'A' ALSO n'f', +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:28.49-28.53: + 25 ALPHABET-2. + 26 SPECIAL-NAMES. + 27 ALPHABET ALPHABET-1 IS + 28 > 'A' THROUGH 'Z', x'00' thru x'05'. +---- ^^^^ + 29 ALPHABET ALPHABET-2 IS + 30 n'A' ALSO n'f', +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:29.11-29.19: + 26 SPECIAL-NAMES. + 27 ALPHABET ALPHABET-1 IS + 28 'A' THROUGH 'Z', x'00' thru x'05'. + 29 > ALPHABET ALPHABET-2 IS +---- ^^^^^^^^ + 30 n'A' ALSO n'f', + 31 n'g' also n'G'. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:41.30: + 38 SOURCE-COMPUTER. GNU-LINUX. + 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 40 SPECIAL-NAMES. + 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. +---- ^ + 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. + 43 END PROGRAM prog3c. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:41.34-41.35: + 38 SOURCE-COMPUTER. GNU-LINUX. + 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 40 SPECIAL-NAMES. + 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. +---- ^ + 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. + 43 END PROGRAM prog3c. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:41.35: + 38 SOURCE-COMPUTER. GNU-LINUX. + 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 40 SPECIAL-NAMES. + 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. +---- ^ + 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. + 43 END PROGRAM prog3c. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:41.35-41.39: + 38 SOURCE-COMPUTER. GNU-LINUX. + 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 40 SPECIAL-NAMES. + 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. +---- ^^^^ + 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. + 43 END PROGRAM prog3c. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:41.46: + 38 SOURCE-COMPUTER. GNU-LINUX. + 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 40 SPECIAL-NAMES. + 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. +---- ^ + 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. + 43 END PROGRAM prog3c. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:41.46-41.50: + 38 SOURCE-COMPUTER. GNU-LINUX. + 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 40 SPECIAL-NAMES. + 41 > ALPHABET ALPHABET-1 x'00' thru x'05'. +---- ^^^^ + 42 ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. + 43 END PROGRAM prog3c. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:42.11-42.19: + 39 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 40 SPECIAL-NAMES. + 41 ALPHABET ALPHABET-1 x'00' thru x'05'. + 42 > ALPHABET ALPHABET-2 IS n'g' also n'G', n'1' thru n'9'. +---- ^^^^^^^^ + 43 END PROGRAM prog3c. + 44 +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:53.11-53.19: + 50 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1, ALPHABET-2. + 51 SPECIAL-NAMES. + 52 ALPHABET ALPHABET-1 IS 'A' THROUGH 'Z'. + 53 > ALPHABET ALPHABET-2 n'A' also n'B', n'1' thru n'9'. +---- ^^^^^^^^ + 54 END PROGRAM prog3d. + 55 +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:63.40: + 60 SOURCE-COMPUTER. GNU-LINUX. + 61 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1. + 62 SPECIAL-NAMES. + 63 > ALPHABET ALPHABET-1 IS 'Z', x'00'. +---- ^ + 64 END PROGRAM prog3e. + 65 +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:63.40-63.44: + 60 SOURCE-COMPUTER. GNU-LINUX. + 61 OBJECT-COMPUTER. GC-MACHINE, SEQUENCE ALPHABET-1. + 62 SPECIAL-NAMES. + 63 > ALPHABET ALPHABET-1 IS 'Z', x'00'. +---- ^^^^ + 64 END PROGRAM prog3e. + 65 +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:76.38: + 73 FOR ALPHANUMERIC IS ALPHABET-1. + 74 SPECIAL-NAMES. + 75 ALPHABET ALPHABET-1 IS + 76 > 'A' THROUGH 'Z', x'00', x'05'. +---- ^ + 77 END PROGRAM prog3f. + 78 +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:76.38-76.42: + 73 FOR ALPHANUMERIC IS ALPHABET-1. + 74 SPECIAL-NAMES. + 75 ALPHABET ALPHABET-1 IS + 76 > 'A' THROUGH 'Z', x'00', x'05'. +---- ^^^^ + 77 END PROGRAM prog3f. + 78 +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:76.45: + 73 FOR ALPHANUMERIC IS ALPHABET-1. + 74 SPECIAL-NAMES. + 75 ALPHABET ALPHABET-1 IS + 76 > 'A' THROUGH 'Z', x'00', x'05'. +---- ^ + 77 END PROGRAM prog3f. + 78 +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:76.45-76.49: + 73 FOR ALPHANUMERIC IS ALPHABET-1. + 74 SPECIAL-NAMES. + 75 ALPHABET ALPHABET-1 IS + 76 > 'A' THROUGH 'Z', x'00', x'05'. +---- ^^^^ + 77 END PROGRAM prog3f. + 78 +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:85.33-85.45: + 82 CONFIGURATION SECTION. + 83 SOURCE-COMPUTER. GNU-LINUX. + 84 OBJECT-COMPUTER. GC-MACHINE, + 85 > SEQUENCE ALPHANUMERIC ALPHABET-1. +---- ^^^^^^^^^^^^ + 86 SPECIAL-NAMES. + 87 ALPHABET ALPHABET-1 IS +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:99.30-99.38: + 96 OBJECT-COMPUTER. GC-MACHINE, + 97 COLLATING SEQUENCE + 98 FOR ALPHANUMERIC IS ALPHABET-1 + 99 > NATIONAL IS ALPHABET-2. +---- ^^^^^^^^ + 100 SPECIAL-NAMES. + 101 ALPHABET ALPHABET-1 IS +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:102.31: + 99 NATIONAL IS ALPHABET-2. + 100 SPECIAL-NAMES. + 101 ALPHABET ALPHABET-1 IS + 102 > 'A', 'C', x'05'. +---- ^ + 103 ALPHABET ALPHABET-2 + 104 n'A', n'1' thru n'9'. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:102.31-102.35: + 99 NATIONAL IS ALPHABET-2. + 100 SPECIAL-NAMES. + 101 ALPHABET ALPHABET-1 IS + 102 > 'A', 'C', x'05'. +---- ^^^^ + 103 ALPHABET ALPHABET-2 + 104 n'A', n'1' thru n'9'. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:103.11-103.19: + 100 SPECIAL-NAMES. + 101 ALPHABET ALPHABET-1 IS + 102 'A', 'C', x'05'. + 103 > ALPHABET ALPHABET-2 +---- ^^^^^^^^ + 104 n'A', n'1' thru n'9'. + 105 END PROGRAM prog3h. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:114.26-114.34: + 111 SOURCE-COMPUTER. GNU-LINUX. + 112 OBJECT-COMPUTER. GC-MACHINE, + 113 COLLATING SEQUENCE + 114 > NATIONAL ALPHABET-2 +---- ^^^^^^^^ + 115 ALPHANUMERIC ALPHABET-1. + 116 SPECIAL-NAMES. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:115.26-115.38: + 112 OBJECT-COMPUTER. GC-MACHINE, + 113 COLLATING SEQUENCE + 114 NATIONAL ALPHABET-2 + 115 > ALPHANUMERIC ALPHABET-1. +---- ^^^^^^^^^^^^ + 116 SPECIAL-NAMES. + 117 ALPHABET ALPHABET-1 IS +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:119.11-119.19: + 116 SPECIAL-NAMES. + 117 ALPHABET ALPHABET-1 IS + 118 'a' THROUGH 'z'. + 119 > ALPHABET ALPHABET-2 +---- ^^^^^^^^ + 120 n'B', n'C'; n'g' also n'G'. + 121 END PROGRAM prog3i. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:130.26-130.34: + 127 SOURCE-COMPUTER. GNU-LINUX. + 128 OBJECT-COMPUTER. GC-MACHINE, + 129 COLLATING SEQUENCE + 130 > NATIONAL ALPHABET-2. +---- ^^^^^^^^ + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:132.30: + 129 COLLATING SEQUENCE + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 > ALPHABET ALPHABET-2 +---- ^ + 133 n'B', n'C'; n'g' also n'G'. + 134 END PROGRAM prog3j. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:133.20-133.21: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^ + 134 END PROGRAM prog3j. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:133.21: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^ + 134 END PROGRAM prog3j. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:133.21-133.24: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^^^ + 134 END PROGRAM prog3j. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:133.27: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^ + 134 END PROGRAM prog3j. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:133.27-133.30: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^^^ + 134 END PROGRAM prog3j. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:133.33: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^ + 134 END PROGRAM prog3j. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:133.33-133.36: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^^^ + 134 END PROGRAM prog3j. +>> Error: Invalid syntax + +syn_definition.at-2043-prog3.cob:133.43: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^ + 134 END PROGRAM prog3j. +>> Hint: Missing IS + +syn_definition.at-2043-prog3.cob:133.43-133.46: + 130 NATIONAL ALPHABET-2. + 131 SPECIAL-NAMES. + 132 ALPHABET ALPHABET-2 + 133 > n'B', n'C'; n'g' also n'G'. +---- ^^^ + 134 END PROGRAM prog3j. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2150:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2201:0 +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2357:0 +syn_definition.at-2357-prog.cob:10.28: + 7 01 SOME-VERY-LONG-TYPEDEF-NAME PIC 9999 IS TYPEDEF. + 8 01 AUSGABE-FILE-NAME-2T IS TYPEDEF. + 9 05 FILLER PIC 9999. + 10 > 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. +---- ^ + 11 * + 12 01 MESSAGE-TEXT-2T IS TYPEDEF. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:10.29-10.56: + 7 01 SOME-VERY-LONG-TYPEDEF-NAME PIC 9999 IS TYPEDEF. + 8 01 AUSGABE-FILE-NAME-2T IS TYPEDEF. + 9 05 FILLER PIC 9999. + 10 > 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 * + 12 01 MESSAGE-TEXT-2T IS TYPEDEF. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:13.39: + 10 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. + 11 * + 12 01 MESSAGE-TEXT-2T IS TYPEDEF. + 13 > 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. +---- ^ + 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. + 15 05 FILLER PIC 9999. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:13.40-13.59: + 10 05 DETAIL-NO USAGE SOME-VERY-LONG-TYPEDEF-NAME. + 11 * + 12 01 MESSAGE-TEXT-2T IS TYPEDEF. + 13 > 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. +---- ^^^^^^^^^^^^^^^^^^^ + 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. + 15 05 FILLER PIC 9999. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:16.39: + 13 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. + 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. + 15 05 FILLER PIC 9999. + 16 > 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. +---- ^ + 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. + 18 * +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:16.40-16.60: + 13 02 AUSGABE-FILE-NAME USAGE AUSGABE-FILE-NAME-T. + 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. + 15 05 FILLER PIC 9999. + 16 > 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. +---- ^^^^^^^^^^^^^^^^^^^^ + 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. + 18 * +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:17.39: + 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. + 15 05 FILLER PIC 9999. + 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. + 17 > 02 FILLER USAGE AUSGABE-FILE-NAME-T. +---- ^ + 18 * + 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:17.40-17.59: + 14 02 FILLER REDEFINES AUSGABE-FILE-NAME. + 15 05 FILLER PIC 9999. + 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. + 17 > 02 FILLER USAGE AUSGABE-FILE-NAME-T. +---- ^^^^^^^^^^^^^^^^^^^ + 18 * + 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:19.40: + 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. + 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. + 18 * + 19 > 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. +---- ^ + 20 + 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:19.41-19.56: + 16 02 AUSGABE-FILE-NAME-2 USAGE AUSGABE-FILE-NAME-2T. + 17 02 FILLER USAGE AUSGABE-FILE-NAME-T. + 18 * + 19 > 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. +---- ^^^^^^^^^^^^^^^ + 20 + 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:21.27: + 18 * + 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. + 20 + 21 > 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. +---- ^ + 22 + 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:21.28-21.55: + 18 * + 19 01 MESSAGE-TEXT-2 EXTERNAL USAGE MESSAGE-TEXT-2T. + 20 + 21 > 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 22 + 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:23.28: + 20 + 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. + 22 + 23 > 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. +---- ^ + 24 01 Z-MESSAGE-T3. + 25 49 MT3 USAGE MESSAGE-TEXT-2T. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:23.29-23.49: + 20 + 21 77 OUTPUT-NAME USAGE SOME-VERY-LONG-TYPEDEF-NAME GLOBAL. + 22 + 23 > 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. +---- ^^^^^^^^^^^^^^^^^^^^ + 24 01 Z-MESSAGE-T3. + 25 49 MT3 USAGE MESSAGE-TEXT-2T. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:25.41: + 22 + 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. + 24 01 Z-MESSAGE-T3. + 25 > 49 MT3 USAGE MESSAGE-TEXT-2T. +---- ^ + 26 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. + 27 +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:25.42-25.57: + 22 + 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. + 24 01 Z-MESSAGE-T3. + 25 > 49 MT3 USAGE MESSAGE-TEXT-2T. +---- ^^^^^^^^^^^^^^^ + 26 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. + 27 +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:26.41: + 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. + 24 01 Z-MESSAGE-T3. + 25 49 MT3 USAGE MESSAGE-TEXT-2T. + 26 > 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. +---- ^ + 27 + 28 01 CALCULUS PIC S9(15)V9(03) IS TYPEDEF. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:26.42-26.57: + 23 01 Z-MESSAGE-T2 USAGE AUSGABE-FILE-NAME-2T. + 24 01 Z-MESSAGE-T3. + 25 49 MT3 USAGE MESSAGE-TEXT-2T. + 26 > 49 MT3-REN REDEFINES MT3 USAGE MESSAGE-TEXT-2T. +---- ^^^^^^^^^^^^^^^ + 27 + 28 01 CALCULUS PIC S9(15)V9(03) IS TYPEDEF. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:32.36: + 29 88 NO-DETAIL VALUE ZERO. + 30 88 MIN-DETAIL VALUE 0.001. + 31 01 USER-TYPE IS TYPEDEF. + 32 > 02 AMOUNT USAGE CALCULUS. +---- ^ + 33 02 FILLER OCCURS 100. + 34 05 GRP-AMOUNT USAGE CALCULUS. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:32.37-32.45: + 29 88 NO-DETAIL VALUE ZERO. + 30 88 MIN-DETAIL VALUE 0.001. + 31 01 USER-TYPE IS TYPEDEF. + 32 > 02 AMOUNT USAGE CALCULUS. +---- ^^^^^^^^ + 33 02 FILLER OCCURS 100. + 34 05 GRP-AMOUNT USAGE CALCULUS. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:34.36: + 31 01 USER-TYPE IS TYPEDEF. + 32 02 AMOUNT USAGE CALCULUS. + 33 02 FILLER OCCURS 100. + 34 > 05 GRP-AMOUNT USAGE CALCULUS. +---- ^ + 35 01 USER-VAR USAGE USER-TYPE. + 36 +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:34.37-34.45: + 31 01 USER-TYPE IS TYPEDEF. + 32 02 AMOUNT USAGE CALCULUS. + 33 02 FILLER OCCURS 100. + 34 > 05 GRP-AMOUNT USAGE CALCULUS. +---- ^^^^^^^^ + 35 01 USER-VAR USAGE USER-TYPE. + 36 +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:35.36: + 32 02 AMOUNT USAGE CALCULUS. + 33 02 FILLER OCCURS 100. + 34 05 GRP-AMOUNT USAGE CALCULUS. + 35 > 01 USER-VAR USAGE USER-TYPE. +---- ^ + 36 + 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:35.37-35.46: + 32 02 AMOUNT USAGE CALCULUS. + 33 02 FILLER OCCURS 100. + 34 05 GRP-AMOUNT USAGE CALCULUS. + 35 > 01 USER-VAR USAGE USER-TYPE. +---- ^^^^^^^^^ + 36 + 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:38.37-38.41: + 35 01 USER-VAR USAGE USER-TYPE. + 36 + 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. + 38 > 88 PROC-UNSET VALUE NULL. +---- ^^^^ + 39 77 MY-PROC USAGE PROC VALUE NULL. + 40 +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:39.36: + 36 + 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. + 38 88 PROC-UNSET VALUE NULL. + 39 > 77 MY-PROC USAGE PROC VALUE NULL. +---- ^ + 40 + 41 PROCEDURE DIVISION. +>> Hint: Missing BINARY + +syn_definition.at-2357-prog.cob:39.37-39.41: + 36 + 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. + 38 88 PROC-UNSET VALUE NULL. + 39 > 77 MY-PROC USAGE PROC VALUE NULL. +---- ^^^^ + 40 + 41 PROCEDURE DIVISION. +>> Error: Invalid syntax + +syn_definition.at-2357-prog.cob:39.47: + 36 + 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. + 38 88 PROC-UNSET VALUE NULL. + 39 > 77 MY-PROC USAGE PROC VALUE NULL. +---- ^ + 40 + 41 PROCEDURE DIVISION. +>> Hint: Missing + +syn_definition.at-2357-prog.cob:39.48-39.52: + 36 + 37 01 PROC USAGE PROGRAM-POINTER IS TYPEDEF. + 38 88 PROC-UNSET VALUE NULL. + 39 > 77 MY-PROC USAGE PROC VALUE NULL. +---- ^^^^ + 40 + 41 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2374:0 +syn_definition.at-2374-progstd.cob:41.43-41.44: + 38 02 SOME2-VALUES OCCURS 1 TO 6 DEPENDING ON SOME2-DATA + 39 DESCENDING KEY SB SA + 40 INDEXED BY SOME2-INDEX. + 41 > 05 SA PIC X VALUE x'12'. +---- ^ + 42 05 SB PIC 9 VALUE 0. + 43 05 SDATA PIC X(12). +>> Error: Invalid syntax + +syn_definition.at-2374-progstd.cob:65.61-65.65: + 62 INITIALIZE OTHER-VALUES (2, 3, 2) + 63 SEARCH ALL SOME2-VALUES OF MY-NAME2 + 64 *> WHEN SA(SOME2-INDEX) = x'12' CHECKME: Should work + 65 > WHEN SA OF MY-NAME2(SOME2-INDEX OF MY-NAME2) = x'12' +---- ^^^^ + 66 CONTINUE. + 67 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_definition.at:2617:0 +syn_definition.at-2617-prog.cob:13.19-13.23: + 10 02 AUSGABE-FILE-NAME-2. + 11 05 FILLER PIC 9999. + 12 05 DETAIL-NO PIC 9999. + 13 > 02 FILLER LIKE AUSGABE-FILE-NAME. +---- ^^^^ + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:15.20: + 12 05 DETAIL-NO PIC 9999. + 13 02 FILLER LIKE AUSGABE-FILE-NAME. + 14 + 15 > 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. +---- ^ + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +>> Hint: Missing RENAMES + +syn_definition.at-2617-prog.cob:15.25-15.29: + 12 05 DETAIL-NO PIC 9999. + 13 02 FILLER LIKE AUSGABE-FILE-NAME. + 14 + 15 > 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. +---- ^^^^ + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:15.40-15.46: + 12 05 DETAIL-NO PIC 9999. + 13 02 FILLER LIKE AUSGABE-FILE-NAME. + 14 + 15 > 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. +---- ^^^^^^ + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:16.23: + 13 02 FILLER LIKE AUSGABE-FILE-NAME. + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 > 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). +---- ^ + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). +>> Hint: Missing RENAMES + +syn_definition.at-2617-prog.cob:16.25-16.29: + 13 02 FILLER LIKE AUSGABE-FILE-NAME. + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 > 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). +---- ^^^^ + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:16.40-16.44: + 13 02 FILLER LIKE AUSGABE-FILE-NAME. + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 > 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). +---- ^^^^ + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:17.24: + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +---- ^ + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). + 19 +>> Hint: Missing RENAMES + +syn_definition.at-2617-prog.cob:17.25-17.29: + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +---- ^^^^ + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). + 19 +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:17.39: + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +---- ^ + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). + 19 +>> Hint: Missing . + +syn_definition.at-2617-prog.cob:17.40-17.43: + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +---- ^^^ + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). + 19 +>> Warning: Invalid syntax + +syn_definition.at-2617-prog.cob:17.42-17.43: + 14 + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 > 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). +---- ^ + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). + 19 +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:18.23: + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 > 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). +---- ^ + 19 + 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. +>> Hint: Missing RENAMES + +syn_definition.at-2617-prog.cob:18.25-18.29: + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 > 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). +---- ^^^^ + 19 + 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:18.40-18.44: + 15 77 OUTPUT-VAL LIKE DETAIL-NO GLOBAL. + 16 77 OUTPUT-VAL-P1 LIKE DETAIL-NO (+1). + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 > 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). +---- ^^^^ + 19 + 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:20.22: + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). + 19 + 20 > 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. +---- ^ + 21 01 Z-MESSAGE-T3. + 22 49 MT3 LIKE MESSAGE-TEXT-2. +>> Hint: Missing RENAMES + +syn_definition.at-2617-prog.cob:20.23-20.27: + 17 77 OUTPUT-VAL-P1b LIKE DETAIL-NO (1). + 18 77 OUTPUT-VAL-M2 LIKE DETAIL-NO (-2). + 19 + 20 > 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. +---- ^^^^ + 21 01 Z-MESSAGE-T3. + 22 49 MT3 LIKE MESSAGE-TEXT-2. +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:22.16: + 19 + 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. + 21 01 Z-MESSAGE-T3. + 22 > 49 MT3 LIKE MESSAGE-TEXT-2. +---- ^ + 23 + 24 PROCEDURE DIVISION. +>> Hint: Missing RENAMES + +syn_definition.at-2617-prog.cob:22.22-22.26: + 19 + 20 01 Z-MESSAGE-T2 LIKE AUSGABE-FILE-NAME-2. + 21 01 Z-MESSAGE-T3. + 22 > 49 MT3 LIKE MESSAGE-TEXT-2. +---- ^^^^ + 23 + 24 PROCEDURE DIVISION. +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:26.36-26.42: + 23 + 24 PROCEDURE DIVISION. + 25 DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2 + 26 > DISPLAY Z-MESSAGE-T2 (55:LENGTH OF DETAIL-NO) +---- ^^^^^^ + 27 DISPLAY MT3 (1:LENGTH OF AUSGABE-FILE-NAME) + 28 ADD OUTPUT-VAL TO DETAIL-NO +>> Error: Invalid syntax + +syn_definition.at-2617-prog.cob:27.26-27.32: + 24 PROCEDURE DIVISION. + 25 DISPLAY AUSGABE-FILE-NAME OF MESSAGE-TEXT-2 + 26 DISPLAY Z-MESSAGE-T2 (55:LENGTH OF DETAIL-NO) + 27 > DISPLAY MT3 (1:LENGTH OF AUSGABE-FILE-NAME) +---- ^^^^^^ + 28 ADD OUTPUT-VAL TO DETAIL-NO + 29 GOBACK. +>> Error: Invalid syntax + diff --git a/test/output-tests/syn_file.expected b/test/output-tests/syn_file.expected new file mode 100644 index 000000000..055b6f76c --- /dev/null +++ b/test/output-tests/syn_file.expected @@ -0,0 +1,485 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:197:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:198:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:199:0 +syn_file.at-199-prog3.cob:7.51-7.53: + 4 ENVIRONMENT DIVISION. + 5 INPUT-OUTPUT SECTION. + 6 FILE-CONTROL. + 7 > SELECT TEST-FILE ASSIGN TO DISK FNAME OF F1 +---- ^^ + 8 ORGANIZATION IS SEQUENTIAL. + 9 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:264:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:265:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:266:0 +syn_file.at-266-prog3.cob:7.56-7.58: + 4 ENVIRONMENT DIVISION. + 5 INPUT-OUTPUT SECTION. + 6 FILE-CONTROL. + 7 > SELECT TEST-FILE ASSIGN TO PRINTER-1 FNAME OF F1 +---- ^^ + 8 ORGANIZATION IS SEQUENTIAL. + 9 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:321:0 +syn_file.at-321-prog.cob:10.40-10.45: + 7 SELECT TST-FILE1 ASSIGN TO CARD-PUNCH "F1". + 8 SELECT TST-FILE2 ASSIGN TO CARD-READER "F2". + 9 SELECT TST-FILE3 ASSIGN TO CASSETTE "F3". + 10 > SELECT TST-FILE4 ASSIGN TO INPUT "F4". +---- ^^^^^ + 11 SELECT TST-FILE5 ASSIGN TO INPUT-OUTPUT. + 12 SELECT TST-FILE6 ASSIGN TO MAGNETIC-TAPE. +>> Error: Invalid syntax + +syn_file.at-321-prog.cob:11.40-11.52: + 8 SELECT TST-FILE2 ASSIGN TO CARD-READER "F2". + 9 SELECT TST-FILE3 ASSIGN TO CASSETTE "F3". + 10 SELECT TST-FILE4 ASSIGN TO INPUT "F4". + 11 > SELECT TST-FILE5 ASSIGN TO INPUT-OUTPUT. +---- ^^^^^^^^^^^^ + 12 SELECT TST-FILE6 ASSIGN TO MAGNETIC-TAPE. + 13 SELECT TST-FILE7 ASSIGN TO OUTPUT "F7". +>> Error: Invalid syntax + +syn_file.at-321-prog.cob:13.40-13.46: + 10 SELECT TST-FILE4 ASSIGN TO INPUT "F4". + 11 SELECT TST-FILE5 ASSIGN TO INPUT-OUTPUT. + 12 SELECT TST-FILE6 ASSIGN TO MAGNETIC-TAPE. + 13 > SELECT TST-FILE7 ASSIGN TO OUTPUT "F7". +---- ^^^^^^ + 14 DATA DIVISION. + 15 FILE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:416:0 +syn_file.at-416-prog.cob:11.40-11.47: + 8 ORGANIZATION IS SEQUENTIAL. + 9 SELECT test-file-2 ASSIGN USING var-2 + 10 ORGANIZATION IS SEQUENTIAL. + 11 > SELECT test-file-3 ASSIGN TO VARYING var-3 +---- ^^^^^^^ + 12 ORGANIZATION IS SEQUENTIAL. + 13 SELECT test-file-4 ASSIGN DISK USING var-4 +>> Error: Invalid syntax + +syn_file.at-416-prog.cob:15.37-15.44: + 12 ORGANIZATION IS SEQUENTIAL. + 13 SELECT test-file-4 ASSIGN DISK USING var-4 + 14 ORGANIZATION IS SEQUENTIAL. + 15 > SELECT test-file-5 ASSIGN DYNAMIC DISK var-5 +---- ^^^^^^^ + 16 ORGANIZATION IS SEQUENTIAL. + 17 SELECT test-file-6 ASSIGN DISK FROM var-6 +>> Error: Invalid syntax + +syn_file.at-416-prog.cob:17.42-17.46: + 14 ORGANIZATION IS SEQUENTIAL. + 15 SELECT test-file-5 ASSIGN DYNAMIC DISK var-5 + 16 ORGANIZATION IS SEQUENTIAL. + 17 > SELECT test-file-6 ASSIGN DISK FROM var-6 +---- ^^^^ + 18 ORGANIZATION IS SEQUENTIAL. + 19 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:530:0 +syn_file.at-530-prog.cob:22.37: + 19 READ TEST-FILE NEXT + 20 END-READ + 21 CLOSE TEST-FILE + 22 > OPEN INPUT TEST-FILE WITH LOCK REVERSED +---- ^ + 23 READ TEST-FILE NEXT + 24 END-READ +>> Hint: Missing NO REWIND + +syn_file.at-530-prog.cob:22.38-22.42: + 19 READ TEST-FILE NEXT + 20 END-READ + 21 CLOSE TEST-FILE + 22 > OPEN INPUT TEST-FILE WITH LOCK REVERSED +---- ^^^^ + 23 READ TEST-FILE NEXT + 24 END-READ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:575:0 +syn_file.at-575-prog.cob:20.38-20.42: + 17 WRITE TEST-REC FROM "TeSt" + 18 END-WRITE + 19 CLOSE TEST-FILE WITH NO REWIND + 20 > OPEN INPUT TEST-FILE WITH LOCK WITH NO REWIND +---- ^^^^ + 21 READ TEST-FILE NEXT *> should get EOF + 22 END-READ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:628:0 +syn_file.at-628-prog.cob:11.33: + 8 ORGANIZATION IS INDEXED + 9 ACCESS MODE IS DYNAMIC + 10 RECORD KEY IS TEST-P2 IN TEST-SOME + 11 > ALTERNATE KEY IS TEST-P3 IN TEST-SOME. +---- ^ + 12 SELECT TEST-FILE ASSIGN TO 'FILE-TEST2' + 13 ORGANIZATION IS INDEXED +>> Hint: Missing RECORD + +syn_file.at-628-prog.cob:11.34-11.37: + 8 ORGANIZATION IS INDEXED + 9 ACCESS MODE IS DYNAMIC + 10 RECORD KEY IS TEST-P2 IN TEST-SOME + 11 > ALTERNATE KEY IS TEST-P3 IN TEST-SOME. +---- ^^^ + 12 SELECT TEST-FILE ASSIGN TO 'FILE-TEST2' + 13 ORGANIZATION IS INDEXED +>> Error: Invalid syntax + +syn_file.at-628-prog.cob:16.33: + 13 ORGANIZATION IS INDEXED + 14 ACCESS MODE IS DYNAMIC + 15 RECORD KEY IS TEST-P1 + 16 > ALTERNATE KEY IS TEST-P4. +---- ^ + 17 DATA DIVISION. + 18 FILE SECTION. +>> Hint: Missing RECORD + +syn_file.at-628-prog.cob:16.34-16.37: + 13 ORGANIZATION IS INDEXED + 14 ACCESS MODE IS DYNAMIC + 15 RECORD KEY IS TEST-P1 + 16 > ALTERNATE KEY IS TEST-P4. +---- ^^^ + 17 DATA DIVISION. + 18 FILE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:783:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:798:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:962:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1064:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1592:0 +syn_file.at-1592-prog.cob:16.50-16.58: + 13 ORGANIZATION IS INDEXED + 14 ACCESS MODE IS DYNAMIC + 15 RECORD KEY IS file2-key + 16 > STATUS IS STATUS-1, STATUS-2. +---- ^^^^^^^^ + 17 DATA DIVISION. + 18 FILE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1738:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1829:0 +syn_file.at-1829-prog.cob:10.26-10.33: + 7 SELECT file1 ASSIGN DISK. + 8 DATA DIVISION. + 9 FILE SECTION. + 10 > FD file1 VALUE OF FILE-ID fid-file1. +---- ^^^^^^^ + 11 01 file1-rec PIC X. + 12 PROCEDURE DIVISION. +>> Error: Invalid syntax + +syn_file.at-1829-prog.cob:10.43: + 7 SELECT file1 ASSIGN DISK. + 8 DATA DIVISION. + 9 FILE SECTION. + 10 > FD file1 VALUE OF FILE-ID fid-file1. +---- ^ + 11 01 file1-rec PIC X. + 12 PROCEDURE DIVISION. +>> Hint: Missing + +syn_file.at-1829-prog.cob:10.43-10.44: + 7 SELECT file1 ASSIGN DISK. + 8 DATA DIVISION. + 9 FILE SECTION. + 10 > FD file1 VALUE OF FILE-ID fid-file1. +---- ^ + 11 01 file1-rec PIC X. + 12 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1856:0 +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:1937:0 +syn_file.at-1937-prog.cob:16.37: + 13 01 TEST-REC PIC X(4). + 14 WORKING-STORAGE SECTION. + 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". + 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". +---- ^ + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". +>> Hint: Missing AS + +syn_file.at-1937-prog.cob:16.44-16.52: + 13 01 TEST-REC PIC X(4). + 14 WORKING-STORAGE SECTION. + 15 78 GLOB-PATH GLOBAL VALUE "GLOBP1". + 16 > 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". +---- ^^^^^^^^ + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". +>> Error: Invalid syntax + +syn_file.at-1937-prog.cob:19.37: + 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". + 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". +---- ^ + 20 PROCEDURE DIVISION. + 21 DISPLAY GLOB-PATH GLOB-VAR +>> Hint: Missing AS + +syn_file.at-1937-prog.cob:19.44-19.52: + 16 01 GLOB-PATH2 CONSTANT GLOBAL "GLOBP2". + 17 * Test global vars because of implicitly defined ASSIGN var, too. + 18 78 GLOB-VAR GLOBAL VALUE "GLOBV1". + 19 > 01 GLOB-VAR2 CONSTANT GLOBAL "GLOBV2". +---- ^^^^^^^^ + 20 PROCEDURE DIVISION. + 21 DISPLAY GLOB-PATH GLOB-VAR +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2011:0 +syn_file.at-2011-prog.cob:14.17-14.25: + 11 RECORD KEY TESTKEY-P1 + 12 ALTERNATE RECORD KEY TESTKEY-P2 + 13 WITH DUPLICATES + 14 > SUPPRESS WHEN ZEROES +---- ^^^^^^^^ + 15 ALTERNATE RECORD KEY TESTKEY-P3 + 16 WITH DUPLICATES +>> Error: Invalid syntax + +syn_file.at-2011-prog.cob:17.17-17.25: + 14 SUPPRESS WHEN ZEROES + 15 ALTERNATE RECORD KEY TESTKEY-P3 + 16 WITH DUPLICATES + 17 > SUPPRESS WHEN SPACES +---- ^^^^^^^^ + 18 ALTERNATE RECORD KEY TESTKEY-P4 + 19 WITH DUPLICATES +>> Error: Invalid syntax + +syn_file.at-2011-prog.cob:20.17-20.25: + 17 SUPPRESS WHEN SPACES + 18 ALTERNATE RECORD KEY TESTKEY-P4 + 19 WITH DUPLICATES + 20 > SUPPRESS WHEN ALL "A" +---- ^^^^^^^^ + 21 ALTERNATE RECORD KEY TESTKEY-P5 + 22 WITH DUPLICATES +>> Error: Invalid syntax + +syn_file.at-2011-prog.cob:23.17-23.25: + 20 SUPPRESS WHEN ALL "A" + 21 ALTERNATE RECORD KEY TESTKEY-P5 + 22 WITH DUPLICATES + 23 > SUPPRESS WHEN ALL SPACES +---- ^^^^^^^^ + 24 . + 25 DATA DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2062:0 +syn_file.at-2062-prog.cob:13.27-13.28: + 10 ORGANIZATION INDEXED + 11 RECORD KEY TESTKEY-P1 OF TEST-REC1 + 12 ALTERNATE RECORD KEY + 13 > TEST1KEY2 = TESTKEY-P2 OF TEST-REC1, +---- ^ + 14 TESTKEY-P3 OF TEST-REC1 + 15 WITH DUPLICATES +>> Error: Invalid syntax + +syn_file.at-2062-prog.cob:23.48-23.50: + 20 ORGANIZATION INDEXED + 21 RECORD KEY TESTKEY-P1 OF TEST-REC2 + 22 ALTERNATE RECORD KEY + 23 > TEST2KEY2 SOURCE IS TESTKEY-P2 OF TEST-REC2, +---- ^^ + 24 TESTKEY-P3 OF TEST-REC2 + 25 WITH DUPLICATES +>> Error: Invalid syntax + +syn_file.at-2062-prog.cob:24.48-24.50: + 21 RECORD KEY TESTKEY-P1 OF TEST-REC2 + 22 ALTERNATE RECORD KEY + 23 TEST2KEY2 SOURCE IS TESTKEY-P2 OF TEST-REC2, + 24 > TESTKEY-P3 OF TEST-REC2 +---- ^^ + 25 WITH DUPLICATES + 26 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2092:0 +syn_file.at-2092-prog.cob:15.36-15.38: + 12 ALTERNATE RECORD KEY TESTKEY2 + 13 WITH DUPLICATES + 14 ALTERNATE RECORD KEY TESTKEY3 + 15 > WITH NO DUPLICATES +---- ^^ + 16 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2121:0 +syn_file.at-2121-prog.cob:12.23: + 9 ACCESS DYNAMIC + 10 ORGANIZATION INDEXED + 11 RECORD KEY TESTKEY1 + 12 > ALTERNATE KEY TESTKEY2 +---- ^ + 13 . + 14 PROCEDURE DIVISION. +>> Hint: Missing RECORD + +syn_file.at-2121-prog.cob:12.25-12.28: + 9 ACCESS DYNAMIC + 10 ORGANIZATION INDEXED + 11 RECORD KEY TESTKEY1 + 12 > ALTERNATE KEY TESTKEY2 +---- ^^^ + 13 . + 14 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2203:0 +syn_file.at-2203-prog.cob:13.17-13.21: + 10 ORGANIZATION INDEXED + 11 ACCESS DYNAMIC + 12 RECORD KEY TESTKEY-1P1 + 13 > WITH DUPLICATES +---- ^^^^ + 14 ALTERNATE RECORD KEY TESTKEY-1P2 + 15 WITH NO DUPLICATES +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:15.22-15.24: + 12 RECORD KEY TESTKEY-1P1 + 13 WITH DUPLICATES + 14 ALTERNATE RECORD KEY TESTKEY-1P2 + 15 > WITH NO DUPLICATES +---- ^^ + 16 LOCK EXCLUSIVE MASS-UPDATE + 17 . +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:16.18: + 13 WITH DUPLICATES + 14 ALTERNATE RECORD KEY TESTKEY-1P2 + 15 WITH NO DUPLICATES + 16 > LOCK EXCLUSIVE MASS-UPDATE +---- ^ + 17 . + 18 SELECT TEST-FILE2 +>> Hint: Missing AUTOMATIC + +syn_file.at-2203-prog.cob:16.19-16.28: + 13 WITH DUPLICATES + 14 ALTERNATE RECORD KEY TESTKEY-1P2 + 15 WITH NO DUPLICATES + 16 > LOCK EXCLUSIVE MASS-UPDATE +---- ^^^^^^^^^ + 17 . + 18 SELECT TEST-FILE2 +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:24.17-24.21: + 21 ORGANIZATION INDEXED + 22 ACCESS DYNAMIC + 23 RECORD KEY TESTKEY-2P1 + 24 > WITH NO DUPLICATES +---- ^^^^ + 25 ALTERNATE RECORD KEY TESTKEY-2P2 + 26 WITH DUPLICATES +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:41.16-41.25: + 38 03 ALLOWING PIC X(4). + 39 03 TESTKEY-2P2 PIC 9(4). + 40 PROCEDURE DIVISION. + 41 > OPEN EXCLUSIVE INPUT TEST-FILE2 +---- ^^^^^^^^^ + 42 CLOSE TEST-FILE2 + 43 OPEN I-O TEST-FILE1 TEST-FILE2 ALLOWING UPDATERS +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:54.40-54.43: + 51 OPEN I-O TEST-FILE1 ALLOWING WRITERS + 52 CLOSE TEST-FILE1 + 53 CLOSE TEST-FILE1 + 54 > OPEN I-O TEST-FILE1 ALLOWING ALL +---- ^^^ + 55 CLOSE TEST-FILE1 + 56 CLOSE TEST-FILE1 +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:57.42: + 54 OPEN I-O TEST-FILE1 ALLOWING ALL + 55 CLOSE TEST-FILE1 + 56 CLOSE TEST-FILE1 + 57 > OPEN I-O TEST-FILE1 ALLOWING NO +---- ^ + 58 CLOSE TEST-FILE1 + 59 OPEN I-O TEST-FILE1 ALLOWING NO OTHERS +>> Hint: Missing REWIND + +syn_file.at-2203-prog.cob:58.11-58.16: + 55 CLOSE TEST-FILE1 + 56 CLOSE TEST-FILE1 + 57 OPEN I-O TEST-FILE1 ALLOWING NO + 58 > CLOSE TEST-FILE1 +---- ^^^^^ + 59 OPEN I-O TEST-FILE1 ALLOWING NO OTHERS + 60 CLOSE TEST-FILE1 +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:59.42: + 56 CLOSE TEST-FILE1 + 57 OPEN I-O TEST-FILE1 ALLOWING NO + 58 CLOSE TEST-FILE1 + 59 > OPEN I-O TEST-FILE1 ALLOWING NO OTHERS +---- ^ + 60 CLOSE TEST-FILE1 + 61 OPEN I-O TEST-FILE1 FOR LOCK +>> Hint: Missing REWIND + +syn_file.at-2203-prog.cob:59.43-59.49: + 56 CLOSE TEST-FILE1 + 57 OPEN I-O TEST-FILE1 ALLOWING NO + 58 CLOSE TEST-FILE1 + 59 > OPEN I-O TEST-FILE1 ALLOWING NO OTHERS +---- ^^^^^^ + 60 CLOSE TEST-FILE1 + 61 OPEN I-O TEST-FILE1 FOR LOCK +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:61.31-61.34: + 58 CLOSE TEST-FILE1 + 59 OPEN I-O TEST-FILE1 ALLOWING NO OTHERS + 60 CLOSE TEST-FILE1 + 61 > OPEN I-O TEST-FILE1 FOR LOCK +---- ^^^ + 62 CLOSE TEST-FILE1 + 63 OPEN I-O TEST-FILE1 LOCK +>> Error: Invalid syntax + +syn_file.at-2203-prog.cob:63.31-63.35: + 60 CLOSE TEST-FILE1 + 61 OPEN I-O TEST-FILE1 FOR LOCK + 62 CLOSE TEST-FILE1 + 63 > OPEN I-O TEST-FILE1 LOCK +---- ^^^^ + 64 CLOSE TEST-FILE1 + 65 OPEN I-O TEST-FILE1 BULK-ADDITION +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_file.at:2253:0 diff --git a/test/output-tests/syn_functions.expected b/test/output-tests/syn_functions.expected new file mode 100644 index 000000000..3882d0b07 --- /dev/null +++ b/test/output-tests/syn_functions.expected @@ -0,0 +1,153 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:83:0 +Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:131:0 +syn_functions.at-131-prog.cob:10.11-10.15: + 7 01 ret PIC 9(4). + 8 + 9 PROCEDURE DIVISION RETURNING ret. + 10 > MOVE 100 TO ret +---- ^^^^ + 11 . + 12 END FUNCTION x. +>> Error: Invalid syntax + +syn_functions.at-131-prog.cob:10.19: + 7 01 ret PIC 9(4). + 8 + 9 PROCEDURE DIVISION RETURNING ret. + 10 > MOVE 100 TO ret +---- ^ + 11 . + 12 END FUNCTION x. +>> Hint: Missing . + +syn_functions.at-131-prog.cob:10.20-10.22: + 7 01 ret PIC 9(4). + 8 + 9 PROCEDURE DIVISION RETURNING ret. + 10 > MOVE 100 TO ret +---- ^^ + 11 . + 12 END FUNCTION x. +>> Warning: Invalid syntax + +syn_functions.at-131-prog.cob:22.11-22.15: + 19 01 ret PIC 9(5). + 20 + 21 PROCEDURE DIVISION RETURNING ret. + 22 > MOVE 1 TO ret +---- ^^^^ + 23 . + 24 END FUNCTION z. +>> Error: Invalid syntax + +syn_functions.at-131-prog.cob:22.17: + 19 01 ret PIC 9(5). + 20 + 21 PROCEDURE DIVISION RETURNING ret. + 22 > MOVE 1 TO ret +---- ^ + 23 . + 24 END FUNCTION z. +>> Hint: Missing . + +syn_functions.at-131-prog.cob:22.18-22.20: + 19 01 ret PIC 9(5). + 20 + 21 PROCEDURE DIVISION RETURNING ret. + 22 > MOVE 1 TO ret +---- ^^ + 23 . + 24 END FUNCTION z. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:198:0 +syn_functions.at-198-prog.cob:15.40: + 12 LINKAGE SECTION. + 13 01 ret PIC X. + 14 + 15 > PROCEDURE DIVISION RETURNING ret. +---- ^ + 16 MOVE FUNCTION x TO ret + 17 MOVE FUNCTION x TO ret +>> Hint: Missing END + +syn_functions.at-198-prog.cob:16.11-16.15: + 13 01 ret PIC X. + 14 + 15 PROCEDURE DIVISION RETURNING ret. + 16 > MOVE FUNCTION x TO ret +---- ^^^^ + 17 MOVE FUNCTION x TO ret + 18 . +>> Error: Invalid syntax + +syn_functions.at-198-prog.cob:16.27-16.29: + 13 01 ret PIC X. + 14 + 15 PROCEDURE DIVISION RETURNING ret. + 16 > MOVE FUNCTION x TO ret +---- ^^ + 17 MOVE FUNCTION x TO ret + 18 . +>> Error: Invalid syntax + +syn_functions.at-198-prog.cob:19.7-19.10: + 16 MOVE FUNCTION x TO ret + 17 MOVE FUNCTION x TO ret + 18 . + 19 > END FUNCTION blah. +---- ^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:271:0 +Considering: import/gnucobol/tests/testsuite.src/syn_functions.at:314:0 +syn_functions.at-314-prog.cob:12.11-12.15: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^^^^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Error: Invalid syntax + +syn_functions.at-314-prog.cob:12.23: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Hint: Missing . + +syn_functions.at-314-prog.cob:12.24-12.26: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Warning: Invalid syntax + +syn_functions.at-314-prog.cob:12.35: + 9 01 func-out PIC X(15). + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 > MOVE func-in TO func-out +---- ^ + 13 INSPECT func-out REPLACING ALL '%' BY func-sub + 14 . +>> Hint: Missing . + +syn_functions.at-314-prog.cob:13.11-13.18: + 10 + 11 PROCEDURE DIVISION USING func-in, func-sub RETURNING func-out. + 12 MOVE func-in TO func-out + 13 > INSPECT func-out REPLACING ALL '%' BY func-sub +---- ^^^^^^^ + 14 . + 15 END FUNCTION SUBSTITUTE. +>> Warning: Invalid syntax + diff --git a/test/output-tests/syn_literals.expected b/test/output-tests/syn_literals.expected new file mode 100644 index 000000000..54a46c336 --- /dev/null +++ b/test/output-tests/syn_literals.expected @@ -0,0 +1,20 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_literals.at:924:0 +Considering: import/gnucobol/tests/testsuite.src/syn_literals.at:1155:0 +syn_literals.at-1155-prog.cob:9.21-9.40: + 6 DISPLAY N'0123456789ABCDEF'. + 7 DISPLAY N"0123456789ABCDEF"- + 8 N"0123456789ABCDEF". + 9 > DISPLAY NC"0123456789ABCDEF"- +---- ^^^^^^^^^^^^^^^^^^^ + 10 NC'0123456789ABCDEF'. +>> Error: Missing continuation of `0123456789ABCDEF' + +syn_literals.at-1155-prog.cob:10.19-10.21: + 7 DISPLAY N"0123456789ABCDEF"- + 8 N"0123456789ABCDEF". + 9 DISPLAY NC"0123456789ABCDEF"- + 10 > NC'0123456789ABCDEF'. +---- ^^ +>> Error: Unexpected text word + +Considering: import/gnucobol/tests/testsuite.src/syn_literals.at:1553:0 diff --git a/test/output-tests/syn_misc.expected b/test/output-tests/syn_misc.expected new file mode 100644 index 000000000..1d25add74 --- /dev/null +++ b/test/output-tests/syn_misc.expected @@ -0,0 +1,4685 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:46:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:84:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:292:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:420:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:711:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:753:0 +syn_misc.at-753-prog.cob:2.7-2.22: + 1 + 2 > SOURCE-COMPUTER. GNU-LINUX. +---- ^^^^^^^^^^^^^^^ + 3 SPECIAL-NAMES. + 4 SYMBOLIC NL IS 101 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:784:0 +syn_misc.at-784-prog.cob:1.11-1.18: + 1 > DISPLAY "minimal". +---- ^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:809:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:821:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:830:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:895:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1192:0 +syn_misc.at-1192-prog.cob:33.19: + 30 CONTINUE. *> explicit no unreachable warning + 31 P03. + 32 GO TO P04 + 33 > CONTINUE AFTER 2 SECONDS. *> that's one again +---- ^ + 34 P04. + 35 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1192-prog.cob:33.20-33.25: + 30 CONTINUE. *> explicit no unreachable warning + 31 P03. + 32 GO TO P04 + 33 > CONTINUE AFTER 2 SECONDS. *> that's one again +---- ^^^^^ + 34 P04. + 35 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-1192-prog.cob:33.27: + 30 CONTINUE. *> explicit no unreachable warning + 31 P03. + 32 GO TO P04 + 33 > CONTINUE AFTER 2 SECONDS. *> that's one again +---- ^ + 34 P04. + 35 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1192-prog.cob:33.28-33.35: + 30 CONTINUE. *> explicit no unreachable warning + 31 P03. + 32 GO TO P04 + 33 > CONTINUE AFTER 2 SECONDS. *> that's one again +---- ^^^^^^^ + 34 P04. + 35 STOP RUN. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1239:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1335:0 +syn_misc.at-1335-prog3.cob:6.27-6.29: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. +---- ^^ + 7 03 CURSOR-ROW PIC 999. + 8 03 CURSOR-COL PIC 999. +>> Error: Invalid syntax + +syn_misc.at-1335-prog3.cob:9.37-9.39: + 6 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. + 7 03 CURSOR-ROW PIC 999. + 8 03 CURSOR-COL PIC 999. + 9 > 77 CRT-STATUS PIC X(4) IS SPECIAL-NAMES CRT STATUS. +---- ^^ + 10 PROCEDURE DIVISION. + 11 ACCEPT OMITTED END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1335-prog3.cob:11.17: + 8 03 CURSOR-COL PIC 999. + 9 77 CRT-STATUS PIC X(4) IS SPECIAL-NAMES CRT STATUS. + 10 PROCEDURE DIVISION. + 11 > ACCEPT OMITTED END-ACCEPT. +---- ^ + 12 STOP RUN. +>> Hint: Missing + +syn_misc.at-1335-prog3.cob:11.18-11.25: + 8 03 CURSOR-COL PIC 999. + 9 77 CRT-STATUS PIC X(4) IS SPECIAL-NAMES CRT STATUS. + 10 PROCEDURE DIVISION. + 11 > ACCEPT OMITTED END-ACCEPT. +---- ^^^^^^^ + 12 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1336:0 +syn_misc.at-1336-prog4.cob:6.27-6.29: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. +---- ^^ + 7 03 CURSOR-ROW PIC 999. + 8 03 CURSOR-COL PIC 999. +>> Error: Invalid syntax + +syn_misc.at-1336-prog4.cob:9.37-9.39: + 6 01 CURSOR-POSITION IS SPECIAL-NAMES CURSOR. + 7 03 CURSOR-ROW PIC 999. + 8 03 CURSOR-COL PIC 999. + 9 > 77 CRT-STATUS PIC 9(5) IS SPECIAL-NAMES CRT STATUS. +---- ^^ + 10 PROCEDURE DIVISION. + 11 ACCEPT OMITTED END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1336-prog4.cob:11.17: + 8 03 CURSOR-COL PIC 999. + 9 77 CRT-STATUS PIC 9(5) IS SPECIAL-NAMES CRT STATUS. + 10 PROCEDURE DIVISION. + 11 > ACCEPT OMITTED END-ACCEPT. +---- ^ + 12 STOP RUN. +>> Hint: Missing + +syn_misc.at-1336-prog4.cob:11.18-11.25: + 8 03 CURSOR-COL PIC 999. + 9 77 CRT-STATUS PIC 9(5) IS SPECIAL-NAMES CRT STATUS. + 10 PROCEDURE DIVISION. + 11 > ACCEPT OMITTED END-ACCEPT. +---- ^^^^^^^ + 12 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1340:0 +syn_misc.at-1340-prog6.cob:6.33-6.35: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 77 CRT-STATUS PIC X(3) IS SPECIAL-NAMES CRT STATUS. +---- ^^ + 7 PROCEDURE DIVISION. + 8 ACCEPT OMITTED END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1340-prog6.cob:8.17: + 5 WORKING-STORAGE SECTION. + 6 77 CRT-STATUS PIC X(3) IS SPECIAL-NAMES CRT STATUS. + 7 PROCEDURE DIVISION. + 8 > ACCEPT OMITTED END-ACCEPT. +---- ^ + 9 STOP RUN. +>> Hint: Missing + +syn_misc.at-1340-prog6.cob:8.18-8.25: + 5 WORKING-STORAGE SECTION. + 6 77 CRT-STATUS PIC X(3) IS SPECIAL-NAMES CRT STATUS. + 7 PROCEDURE DIVISION. + 8 > ACCEPT OMITTED END-ACCEPT. +---- ^^^^^^^ + 9 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1435:0 +syn_misc.at-1435-prog3.cob:8.30: + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 CURRENCY 'DOLLAR' + 8 > WITH PICTURE SYMBOL '$'. +---- ^ + 9 DATA DIVISION. + 10 WORKING-STORAGE SECTION. +>> Hint: Missing SYMBOL + +syn_misc.at-1435-prog3.cob:8.31-8.34: + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 CURRENCY 'DOLLAR' + 8 > WITH PICTURE SYMBOL '$'. +---- ^^^ + 9 DATA DIVISION. + 10 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1452:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1671:0 +syn_misc.at-1671-prog.cob:8.27: + 5 WORKING-STORAGE SECTION. + 6 77 var PIC x. + 7 PROCEDURE DIVISION. + 8 > ACCEPT var FROM COMMAND-LINE +---- ^ + 9 DISPLAY var UPON COMMAND-LINE + 10 . +>> Hint: Missing + +syn_misc.at-1671-prog.cob:8.28-8.40: + 5 WORKING-STORAGE SECTION. + 6 77 var PIC x. + 7 PROCEDURE DIVISION. + 8 > ACCEPT var FROM COMMAND-LINE +---- ^^^^^^^^^^^^ + 9 DISPLAY var UPON COMMAND-LINE + 10 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1706:0 +syn_misc.at-1706-prog.cob:11.20-11.24: + 8 01 X PIC X. + 9 PROCEDURE DIVISION. + 10 ACCEPT X END-ACCEPT. + 11 > ACCEPT X WITH UPDATE END-ACCEPT. +---- ^^^^ + 12 ACCEPT X WITH DEFAULT END-ACCEPT. + 13 ACCEPT X WITH NO UPDATE END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1706-prog.cob:12.20-12.24: + 9 PROCEDURE DIVISION. + 10 ACCEPT X END-ACCEPT. + 11 ACCEPT X WITH UPDATE END-ACCEPT. + 12 > ACCEPT X WITH DEFAULT END-ACCEPT. +---- ^^^^ + 13 ACCEPT X WITH NO UPDATE END-ACCEPT. + 14 ACCEPT X WITH NO DEFAULT END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1706-prog.cob:13.20-13.24: + 10 ACCEPT X END-ACCEPT. + 11 ACCEPT X WITH UPDATE END-ACCEPT. + 12 ACCEPT X WITH DEFAULT END-ACCEPT. + 13 > ACCEPT X WITH NO UPDATE END-ACCEPT. +---- ^^^^ + 14 ACCEPT X WITH NO DEFAULT END-ACCEPT. + 15 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1706-prog.cob:14.20-14.24: + 11 ACCEPT X WITH UPDATE END-ACCEPT. + 12 ACCEPT X WITH DEFAULT END-ACCEPT. + 13 ACCEPT X WITH NO UPDATE END-ACCEPT. + 14 > ACCEPT X WITH NO DEFAULT END-ACCEPT. +---- ^^^^ + 15 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1731:0 +syn_misc.at-1731-prog.cob:11.19: + 8 01 X PIC X. + 9 PROCEDURE DIVISION. + 10 ACCEPT X END-ACCEPT. + 11 > ACCEPT X WITH AUTO END-ACCEPT. +---- ^ + 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. + 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. +>> Hint: Missing COUNT . + +syn_misc.at-1731-prog.cob:11.20-11.24: + 8 01 X PIC X. + 9 PROCEDURE DIVISION. + 10 ACCEPT X END-ACCEPT. + 11 > ACCEPT X WITH AUTO END-ACCEPT. +---- ^^^^ + 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. + 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1731-prog.cob:11.42-11.52: + 8 01 X PIC X. + 9 PROCEDURE DIVISION. + 10 ACCEPT X END-ACCEPT. + 11 > ACCEPT X WITH AUTO END-ACCEPT. +---- ^^^^^^^^^^ + 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. + 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1731-prog.cob:12.20-12.24: + 9 PROCEDURE DIVISION. + 10 ACCEPT X END-ACCEPT. + 11 ACCEPT X WITH AUTO END-ACCEPT. + 12 > ACCEPT X WITH AUTO-SKIP END-ACCEPT. +---- ^^^^ + 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. + 14 ACCEPT X WITH TAB END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1731-prog.cob:13.20-13.24: + 10 ACCEPT X END-ACCEPT. + 11 ACCEPT X WITH AUTO END-ACCEPT. + 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. + 13 > ACCEPT X WITH AUTOTERMINATE END-ACCEPT. +---- ^^^^ + 14 ACCEPT X WITH TAB END-ACCEPT. + 15 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1731-prog.cob:14.19: + 11 ACCEPT X WITH AUTO END-ACCEPT. + 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. + 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. + 14 > ACCEPT X WITH TAB END-ACCEPT. +---- ^ + 15 STOP RUN. +>> Hint: Missing COUNT . + +syn_misc.at-1731-prog.cob:14.20-14.24: + 11 ACCEPT X WITH AUTO END-ACCEPT. + 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. + 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. + 14 > ACCEPT X WITH TAB END-ACCEPT. +---- ^^^^ + 15 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1731-prog.cob:14.42-14.52: + 11 ACCEPT X WITH AUTO END-ACCEPT. + 12 ACCEPT X WITH AUTO-SKIP END-ACCEPT. + 13 ACCEPT X WITH AUTOTERMINATE END-ACCEPT. + 14 > ACCEPT X WITH TAB END-ACCEPT. +---- ^^^^^^^^^^ + 15 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1753:0 +syn_misc.at-1753-prog.cob:8.19: + 5 WORKING-STORAGE SECTION. + 6 01 X PIC X(05). + 7 PROCEDURE DIVISION. + 8 > ACCEPT X WITH LOWER END-ACCEPT. +---- ^ + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER +>> Hint: Missing COUNT . + +syn_misc.at-1753-prog.cob:8.20-8.24: + 5 WORKING-STORAGE SECTION. + 6 01 X PIC X(05). + 7 PROCEDURE DIVISION. + 8 > ACCEPT X WITH LOWER END-ACCEPT. +---- ^^^^ + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER +>> Error: Invalid syntax + +syn_misc.at-1753-prog.cob:8.35-8.45: + 5 WORKING-STORAGE SECTION. + 6 01 X PIC X(05). + 7 PROCEDURE DIVISION. + 8 > ACCEPT X WITH LOWER END-ACCEPT. +---- ^^^^^^^^^^ + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER +>> Error: Invalid syntax + +syn_misc.at-1753-prog.cob:9.19: + 6 01 X PIC X(05). + 7 PROCEDURE DIVISION. + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 > ACCEPT X WITH UPPER END-ACCEPT. +---- ^ + 10 ACCEPT X LOWER + 11 ACCEPT X UPPER +>> Hint: Missing COUNT . + +syn_misc.at-1753-prog.cob:9.20-9.24: + 6 01 X PIC X(05). + 7 PROCEDURE DIVISION. + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 > ACCEPT X WITH UPPER END-ACCEPT. +---- ^^^^ + 10 ACCEPT X LOWER + 11 ACCEPT X UPPER +>> Error: Invalid syntax + +syn_misc.at-1753-prog.cob:9.35-9.45: + 6 01 X PIC X(05). + 7 PROCEDURE DIVISION. + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 > ACCEPT X WITH UPPER END-ACCEPT. +---- ^^^^^^^^^^ + 10 ACCEPT X LOWER + 11 ACCEPT X UPPER +>> Error: Invalid syntax + +syn_misc.at-1753-prog.cob:10.19: + 7 PROCEDURE DIVISION. + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 > ACCEPT X LOWER +---- ^ + 11 ACCEPT X UPPER + 12 STOP RUN. +>> Hint: Missing COUNT . + +syn_misc.at-1753-prog.cob:10.25-10.30: + 7 PROCEDURE DIVISION. + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 > ACCEPT X LOWER +---- ^^^^^ + 11 ACCEPT X UPPER + 12 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1753-prog.cob:10.30: + 7 PROCEDURE DIVISION. + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 > ACCEPT X LOWER +---- ^ + 11 ACCEPT X UPPER + 12 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1753-prog.cob:11.11-11.17: + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER + 11 > ACCEPT X UPPER +---- ^^^^^^ + 12 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-1753-prog.cob:11.19: + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER + 11 > ACCEPT X UPPER +---- ^ + 12 STOP RUN. +>> Hint: Missing COUNT . + +syn_misc.at-1753-prog.cob:11.25-11.30: + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER + 11 > ACCEPT X UPPER +---- ^^^^^ + 12 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1753-prog.cob:11.30: + 8 ACCEPT X WITH LOWER END-ACCEPT. + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER + 11 > ACCEPT X UPPER +---- ^ + 12 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1753-prog.cob:12.11-12.15: + 9 ACCEPT X WITH UPPER END-ACCEPT. + 10 ACCEPT X LOWER + 11 ACCEPT X UPPER + 12 > STOP RUN. +---- ^^^^ +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1782:0 +syn_misc.at-1782-prog.cob:9.19: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 4. + 8 PROCEDURE DIVISION. + 9 > ACCEPT X WITH SIZE 0 END-ACCEPT. +---- ^ + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:9.20-9.24: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 4. + 8 PROCEDURE DIVISION. + 9 > ACCEPT X WITH SIZE 0 END-ACCEPT. +---- ^^^^ + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:9.45-9.55: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 4. + 8 PROCEDURE DIVISION. + 9 > ACCEPT X WITH SIZE 0 END-ACCEPT. +---- ^^^^^^^^^^ + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:10.19: + 7 01 Y PIC 9(04) BINARY VALUE 4. + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 > ACCEPT X WITH SIZE IS 1 END-ACCEPT. +---- ^ + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:10.20-10.24: + 7 01 Y PIC 9(04) BINARY VALUE 4. + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 > ACCEPT X WITH SIZE IS 1 END-ACCEPT. +---- ^^^^ + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:10.45-10.55: + 7 01 Y PIC 9(04) BINARY VALUE 4. + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 > ACCEPT X WITH SIZE IS 1 END-ACCEPT. +---- ^^^^^^^^^^ + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:11.19: + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +---- ^ + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:11.20-11.24: + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +---- ^^^^ + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:11.34: + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +---- ^ + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:11.35-11.39: + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +---- ^^^^ + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:11.45-11.55: + 8 PROCEDURE DIVISION. + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 > ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. +---- ^^^^^^^^^^ + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:12.19: + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +---- ^ + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:12.20-12.24: + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +---- ^^^^ + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:12.34: + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +---- ^ + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:12.35-12.39: + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +---- ^^^^ + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:12.45-12.55: + 9 ACCEPT X WITH SIZE 0 END-ACCEPT. + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 > ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. +---- ^^^^^^^^^^ + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:13.19: + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 > ACCEPT X SIZE Y END-ACCEPT. +---- ^ + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:13.35-13.39: + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 > ACCEPT X SIZE Y END-ACCEPT. +---- ^^^^ + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:13.45-13.55: + 10 ACCEPT X WITH SIZE IS 1 END-ACCEPT. + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 > ACCEPT X SIZE Y END-ACCEPT. +---- ^^^^^^^^^^ + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:14.19: + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 > ACCEPT X SIZE 0 +---- ^ + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:14.35-14.39: + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 > ACCEPT X SIZE 0 +---- ^^^^ + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:14.44: + 11 ACCEPT X WITH PROTECTED SIZE 2 END-ACCEPT. + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 > ACCEPT X SIZE 0 +---- ^ + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:15.11-15.17: + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 > ACCEPT X SIZE IS 1 +---- ^^^^^^ + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:15.19: + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 > ACCEPT X SIZE IS 1 +---- ^ + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:15.35-15.39: + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 > ACCEPT X SIZE IS 1 +---- ^^^^ + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:15.44: + 12 ACCEPT X WITH PROTECTED SIZE IS 3 END-ACCEPT. + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 > ACCEPT X SIZE IS 1 +---- ^ + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:16.11-16.17: + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 > ACCEPT X PROTECTED SIZE 2 +---- ^^^^^^ + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 ACCEPT X SIZE Y +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:16.19: + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 > ACCEPT X PROTECTED SIZE 2 +---- ^ + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 ACCEPT X SIZE Y +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:16.25-16.34: + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 > ACCEPT X PROTECTED SIZE 2 +---- ^^^^^^^^^ + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 ACCEPT X SIZE Y +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:16.34: + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 > ACCEPT X PROTECTED SIZE 2 +---- ^ + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 ACCEPT X SIZE Y +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:16.35-16.39: + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 > ACCEPT X PROTECTED SIZE 2 +---- ^^^^ + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 ACCEPT X SIZE Y +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:16.44: + 13 ACCEPT X SIZE Y END-ACCEPT. + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 > ACCEPT X PROTECTED SIZE 2 +---- ^ + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 ACCEPT X SIZE Y +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:17.11-17.17: + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 > ACCEPT X PROTECTED SIZE IS 3 +---- ^^^^^^ + 18 ACCEPT X SIZE Y + 19 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:17.19: + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 > ACCEPT X PROTECTED SIZE IS 3 +---- ^ + 18 ACCEPT X SIZE Y + 19 STOP RUN. +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:17.25-17.34: + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 > ACCEPT X PROTECTED SIZE IS 3 +---- ^^^^^^^^^ + 18 ACCEPT X SIZE Y + 19 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:17.34: + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 > ACCEPT X PROTECTED SIZE IS 3 +---- ^ + 18 ACCEPT X SIZE Y + 19 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:17.35-17.39: + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 > ACCEPT X PROTECTED SIZE IS 3 +---- ^^^^ + 18 ACCEPT X SIZE Y + 19 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:17.44: + 14 ACCEPT X SIZE 0 + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 > ACCEPT X PROTECTED SIZE IS 3 +---- ^ + 18 ACCEPT X SIZE Y + 19 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:18.11-18.17: + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 > ACCEPT X SIZE Y +---- ^^^^^^ + 19 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-1782-prog.cob:18.19: + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 > ACCEPT X SIZE Y +---- ^ + 19 STOP RUN. +>> Hint: Missing COUNT . + +syn_misc.at-1782-prog.cob:18.35-18.39: + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 > ACCEPT X SIZE Y +---- ^^^^ + 19 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1782-prog.cob:18.44: + 15 ACCEPT X SIZE IS 1 + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 > ACCEPT X SIZE Y +---- ^ + 19 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1782-prog.cob:19.11-19.15: + 16 ACCEPT X PROTECTED SIZE 2 + 17 ACCEPT X PROTECTED SIZE IS 3 + 18 ACCEPT X SIZE Y + 19 > STOP RUN. +---- ^^^^ +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1807:0 +syn_misc.at-1807-prog.cob:9.23: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. +---- ^ + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +>> Hint: Missing COL . + +syn_misc.at-1807-prog.cob:9.24-9.28: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. +---- ^^^^ + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:9.28: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. +---- ^ + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +>> Hint: Missing . + +syn_misc.at-1807-prog.cob:9.29-9.33: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. +---- ^^^^ + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +>> Warning: Invalid syntax + +syn_misc.at-1807-prog.cob:9.44-9.55: + 6 01 X PIC X(05). + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 > DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. +---- ^^^^^^^^^^^ + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:10.23: + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. +---- ^ + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +>> Hint: Missing COL . + +syn_misc.at-1807-prog.cob:10.24-10.28: + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. +---- ^^^^ + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:10.28: + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. +---- ^ + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +>> Hint: Missing . + +syn_misc.at-1807-prog.cob:10.29-10.33: + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. +---- ^^^^ + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +>> Warning: Invalid syntax + +syn_misc.at-1807-prog.cob:10.44-10.55: + 7 01 Y PIC 9(04) BINARY VALUE 7. + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 > DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. +---- ^^^^^^^^^^^ + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:11.23: + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +---- ^ + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +>> Hint: Missing COL . + +syn_misc.at-1807-prog.cob:11.24-11.28: + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +---- ^^^^ + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:11.28: + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +---- ^ + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +>> Hint: Missing . + +syn_misc.at-1807-prog.cob:11.29-11.33: + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +---- ^^^^ + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +>> Warning: Invalid syntax + +syn_misc.at-1807-prog.cob:11.44-11.55: + 8 PROCEDURE DIVISION. + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 > DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. +---- ^^^^^^^^^^^ + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:12.23: + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +---- ^ + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +>> Hint: Missing COL . + +syn_misc.at-1807-prog.cob:12.24-12.28: + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +---- ^^^^ + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:12.28: + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +---- ^ + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +>> Hint: Missing . + +syn_misc.at-1807-prog.cob:12.34-12.38: + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +---- ^^^^ + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +>> Warning: Invalid syntax + +syn_misc.at-1807-prog.cob:12.44-12.55: + 9 DISPLAY X AT 0101 WITH SIZE 5 END-DISPLAY. + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 > DISPLAY X AT 0101 SIZE 5 END-DISPLAY. +---- ^^^^^^^^^^^ + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:13.23: + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +---- ^ + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. + 15 STOP RUN. +>> Hint: Missing COL . + +syn_misc.at-1807-prog.cob:13.24-13.28: + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +---- ^^^^ + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. + 15 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:13.28: + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +---- ^ + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. + 15 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1807-prog.cob:13.34-13.38: + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +---- ^^^^ + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. + 15 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-1807-prog.cob:13.44-13.55: + 10 DISPLAY X AT 0101 WITH SIZE IS 6 END-DISPLAY. + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 > DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. +---- ^^^^^^^^^^^ + 14 DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. + 15 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:14.23: + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +---- ^ + 15 STOP RUN. +>> Hint: Missing COL . + +syn_misc.at-1807-prog.cob:14.24-14.28: + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +---- ^^^^ + 15 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-1807-prog.cob:14.28: + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +---- ^ + 15 STOP RUN. +>> Hint: Missing . + +syn_misc.at-1807-prog.cob:14.34-14.38: + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +---- ^^^^ + 15 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-1807-prog.cob:14.44-14.55: + 11 DISPLAY X AT 0101 WITH SIZE IS Y END-DISPLAY. + 12 DISPLAY X AT 0101 SIZE 5 END-DISPLAY. + 13 DISPLAY X AT 0101 SIZE IS 6 END-DISPLAY. + 14 > DISPLAY X AT 0101 SIZE IS Y END-DISPLAY. +---- ^^^^^^^^^^^ + 15 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1826:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1858:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1903:0 +syn_misc.at-1903-prog.cob:7.19: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 PROCEDURE DIVISION. + 7 > CONTINUE +---- ^ +>> Hint: Missing . + +syn_misc.at-1903-prog.cob:8.0: + 5 CONFIGURATION SECTION. + 6 PROCEDURE DIVISION. + 7 CONTINUE +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:1936:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2005:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2045:0 +syn_misc.at-2045-prog2.cob:11.7-11.46: + 8 PROCEDURE DIVISION. + 9 * DISPLAY 'COMMENT' END-DISPLAY + 10 / DISPLAY 'COMMENTSLASH' END-DISPLAY + 11 > $ DISPLAY 'COMMENTDOLLAR' END-DISPLAY +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 * DISPLAY 'MFCOMMENT' END-DISPLAY + 13 * DISPLAY 'NOMFCOMMENT' END-DISPLAY +>> Error: Unexpected characters + +syn_misc.at-2045-prog2.cob:15.8-15.9: + 12 * DISPLAY 'MFCOMMENT' END-DISPLAY + 13 * DISPLAY 'NOMFCOMMENT' END-DISPLAY + 14 *> DISPLAY 'FLOATING' END-DISPLAY + 15 > | DISPLAY 'ACUFLOATING' END-DISPLAY +---- ^ + 16 | DISPLAY 'NOACUFLOATING' END-DISPLAY + 17 *> DISPLAY 'NOFLOATING' END-DISPLAY +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2232:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2377:0 +syn_misc.at-2377-prog.cob:9.29: + 6 77 KEYNUM PIC 9(04). + 7 PROCEDURE DIVISION. + 8 + 9 > ACCEPT KEYNUM FROM ESCAPE KEY +---- ^ + 10 DISPLAY "Key pressed: " KEYNUM + 11 ACCEPT KEYNUM FROM ESCAPE +>> Hint: Missing + +syn_misc.at-2377-prog.cob:9.30-9.36: + 6 77 KEYNUM PIC 9(04). + 7 PROCEDURE DIVISION. + 8 + 9 > ACCEPT KEYNUM FROM ESCAPE KEY +---- ^^^^^^ + 10 DISPLAY "Key pressed: " KEYNUM + 11 ACCEPT KEYNUM FROM ESCAPE +>> Error: Invalid syntax + +syn_misc.at-2377-prog.cob:11.29: + 8 + 9 ACCEPT KEYNUM FROM ESCAPE KEY + 10 DISPLAY "Key pressed: " KEYNUM + 11 > ACCEPT KEYNUM FROM ESCAPE +---- ^ + 12 DISPLAY "Key pressed: " KEYNUM + 13 ACCEPT OMITTED +>> Hint: Missing + +syn_misc.at-2377-prog.cob:11.30-11.36: + 8 + 9 ACCEPT KEYNUM FROM ESCAPE KEY + 10 DISPLAY "Key pressed: " KEYNUM + 11 > ACCEPT KEYNUM FROM ESCAPE +---- ^^^^^^ + 12 DISPLAY "Key pressed: " KEYNUM + 13 ACCEPT OMITTED +>> Error: Invalid syntax + +syn_misc.at-2377-prog.cob:13.17: + 10 DISPLAY "Key pressed: " KEYNUM + 11 ACCEPT KEYNUM FROM ESCAPE + 12 DISPLAY "Key pressed: " KEYNUM + 13 > ACCEPT OMITTED +---- ^ + 14 + 15 STOP RUN. +>> Hint: Missing + +syn_misc.at-2377-prog.cob:13.18-13.25: + 10 DISPLAY "Key pressed: " KEYNUM + 11 ACCEPT KEYNUM FROM ESCAPE + 12 DISPLAY "Key pressed: " KEYNUM + 13 > ACCEPT OMITTED +---- ^^^^^^^ + 14 + 15 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2400:0 +syn_misc.at-2400-prog.cob:6.30: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 77 myfloat usage float +---- ^ + 7 value is 3.97E+24. + 8 77 mydouble usage double +>> Hint: Missing BINARY + +syn_misc.at-2400-prog.cob:6.31-6.36: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 77 myfloat usage float +---- ^^^^^ + 7 value is 3.97E+24. + 8 77 mydouble usage double +>> Error: Invalid syntax + +syn_misc.at-2400-prog.cob:8.30: + 5 WORKING-STORAGE SECTION. + 6 77 myfloat usage float + 7 value is 3.97E+24. + 8 > 77 mydouble usage double +---- ^ + 9 value is 3.97E+44. + 10 PROCEDURE DIVISION. +>> Hint: Missing BINARY + +syn_misc.at-2400-prog.cob:8.31-8.37: + 5 WORKING-STORAGE SECTION. + 6 77 myfloat usage float + 7 value is 3.97E+24. + 8 > 77 mydouble usage double +---- ^^^^^^ + 9 value is 3.97E+44. + 10 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2668:0 +syn_misc.at-2668-prog.cob:6.30: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 77 window-handle USAGE HANDLE OF WINDOW. +---- ^ + 7 77 lb-row PIC X(10). + 8 77 lb-color PIC 9(05) VALUE 8192. +>> Hint: Missing BINARY + +syn_misc.at-2668-prog.cob:6.31-6.37: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 77 window-handle USAGE HANDLE OF WINDOW. +---- ^^^^^^ + 7 77 lb-row PIC X(10). + 8 77 lb-color PIC 9(05) VALUE 8192. +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:16.20: + 13 77 selection-idx PIC S9(02). + 14 SCREEN SECTION. + 15 01 lb-screen. + 16 > 03 lb-frm LIST-BOX 3-D +---- ^ + 17 * FIXME: the following should be possible in any order + 18 UNSORTED +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:16.21-16.29: + 13 77 selection-idx PIC S9(02). + 14 SCREEN SECTION. + 15 01 lb-screen. + 16 > 03 lb-frm LIST-BOX 3-D +---- ^^^^^^^^ + 17 * FIXME: the following should be possible in any order + 18 UNSORTED +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:20.20-20.25: + 17 * FIXME: the following should be possible in any order + 18 UNSORTED + 19 EXCEPTION-VALUE = 13 + 20 > COLOR lb-color +---- ^^^^^ + 21 CLINE 1 CCOL 1 + 22 LINES = lb-num-lines +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:20.34: + 17 * FIXME: the following should be possible in any order + 18 UNSORTED + 19 EXCEPTION-VALUE = 13 + 20 > COLOR lb-color +---- ^ + 21 CLINE 1 CCOL 1 + 22 LINES = lb-num-lines +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:21.20-21.25: + 18 UNSORTED + 19 EXCEPTION-VALUE = 13 + 20 COLOR lb-color + 21 > CLINE 1 CCOL 1 +---- ^^^^^ + 22 LINES = lb-num-lines + 23 SIZE IS lb-num-rows +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:21.32: + 18 UNSORTED + 19 EXCEPTION-VALUE = 13 + 20 COLOR lb-color + 21 > CLINE 1 CCOL 1 +---- ^ + 22 LINES = lb-num-lines + 23 SIZE IS lb-num-rows +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:21.33-21.34: + 18 UNSORTED + 19 EXCEPTION-VALUE = 13 + 20 COLOR lb-color + 21 > CLINE 1 CCOL 1 +---- ^ + 22 LINES = lb-num-lines + 23 SIZE IS lb-num-rows +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:22.20-22.25: + 19 EXCEPTION-VALUE = 13 + 20 COLOR lb-color + 21 CLINE 1 CCOL 1 + 22 > LINES = lb-num-lines +---- ^^^^^ + 23 SIZE IS lb-num-rows + 24 * VALUE lb-row raises error as no identifer according +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:23.20-23.24: + 20 COLOR lb-color + 21 CLINE 1 CCOL 1 + 22 LINES = lb-num-lines + 23 > SIZE IS lb-num-rows +---- ^^^^ + 24 * VALUE lb-row raises error as no identifer according + 25 * to cobol2002, but here it is fine +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:29.11-29.17: + 26 . + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' +---- ^^^^^^ + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:29.24: + 26 . + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' +---- ^ + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:29.25-29.36: + 26 . + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' +---- ^^^^^^^^^^^ + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:29.36: + 26 . + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' +---- ^ + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:29.37-29.38: + 26 . + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 > MODIFY lb-frm ITEM-TO-ADD = 'Row 1' +---- ^ + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:30.24: + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' +---- ^ + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:30.25-30.36: + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' +---- ^^^^^^^^^^^ + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:30.36: + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' +---- ^ + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:30.37-30.38: + 27 PROCEDURE DIVISION. + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 > MODIFY lb-frm ITEM-TO-ADD = 'Row 2' +---- ^ + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:31.24: + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +---- ^ + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:31.25-31.36: + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +---- ^^^^^^^^^^^ + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:31.36: + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +---- ^ + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:31.37-31.38: + 28 MAIN. + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 > MODIFY lb-frm ITEM-TO-ADD = 'Row 3' +---- ^ + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:32.24: + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +---- ^ + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:32.25-32.36: + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +---- ^^^^^^^^^^^ + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:32.36: + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +---- ^ + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:32.37-32.38: + 29 MODIFY lb-frm ITEM-TO-ADD = 'Row 1' + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 > MODIFY lb-frm ITEM-TO-ADD = 'Row 4' +---- ^ + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:33.24: + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +---- ^ + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:33.25-33.36: + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +---- ^^^^^^^^^^^ + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:33.36: + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +---- ^ + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:33.37-33.38: + 30 MODIFY lb-frm ITEM-TO-ADD = 'Row 2' + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 > MODIFY lb-frm ITEM-TO-ADD = 'Row 5' +---- ^ + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:34.24: + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +---- ^ + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' + 36 DISPLAY FLOATING WINDOW +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:34.25-34.36: + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +---- ^^^^^^^^^^^ + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' + 36 DISPLAY FLOATING WINDOW +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:34.36: + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +---- ^ + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' + 36 DISPLAY FLOATING WINDOW +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:34.37-34.38: + 31 MODIFY lb-frm ITEM-TO-ADD = 'Row 3' + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 > MODIFY lb-frm ITEM-TO-ADD = 'Row 6' +---- ^ + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' + 36 DISPLAY FLOATING WINDOW +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:35.24: + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +---- ^ + 36 DISPLAY FLOATING WINDOW + 37 LINE 5 COL 5 +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:35.25-35.36: + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +---- ^^^^^^^^^^^ + 36 DISPLAY FLOATING WINDOW + 37 LINE 5 COL 5 +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:35.36: + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +---- ^ + 36 DISPLAY FLOATING WINDOW + 37 LINE 5 COL 5 +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:35.37-35.38: + 32 MODIFY lb-frm ITEM-TO-ADD = 'Row 4' + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 > MODIFY lb-frm ITEM-TO-ADD = 'Row 7' +---- ^ + 36 DISPLAY FLOATING WINDOW + 37 LINE 5 COL 5 +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:36.19-36.27: + 33 MODIFY lb-frm ITEM-TO-ADD = 'Row 5' + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' + 36 > DISPLAY FLOATING WINDOW +---- ^^^^^^^^ + 37 LINE 5 COL 5 + 38 LINES window-lines +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:37.22-37.25: + 34 MODIFY lb-frm ITEM-TO-ADD = 'Row 6' + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' + 36 DISPLAY FLOATING WINDOW + 37 > LINE 5 COL 5 +---- ^^^ + 38 LINES window-lines + 39 SIZE window-rows +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:38.15-38.20: + 35 MODIFY lb-frm ITEM-TO-ADD = 'Row 7' + 36 DISPLAY FLOATING WINDOW + 37 LINE 5 COL 5 + 38 > LINES window-lines +---- ^^^^^ + 39 SIZE window-rows + 40 BOXED +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:39.15-39.19: + 36 DISPLAY FLOATING WINDOW + 37 LINE 5 COL 5 + 38 LINES window-lines + 39 > SIZE window-rows +---- ^^^^ + 40 BOXED + 41 COLOR lb-color +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:41.15-41.20: + 38 LINES window-lines + 39 SIZE window-rows + 40 BOXED + 41 > COLOR lb-color +---- ^^^^^ + 42 HANDLE IS window-handle + 43 END-DISPLAY +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:42.15-42.21: + 39 SIZE window-rows + 40 BOXED + 41 COLOR lb-color + 42 > HANDLE IS window-handle +---- ^^^^^^ + 43 END-DISPLAY + 44 DISPLAY lb-screen +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:46.29: + 43 END-DISPLAY + 44 DISPLAY lb-screen + 45 ACCEPT lb-screen + 46 > IF lb-row = SPACES +---- ^ + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:47.14-47.21: + 44 DISPLAY lb-screen + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx +---- ^^^^^^^ + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:47.28: + 44 DISPLAY lb-screen + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx +---- ^ + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:47.29-47.44: + 44 DISPLAY lb-screen + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx +---- ^^^^^^^^^^^^^^^ + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:47.44: + 44 DISPLAY lb-screen + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx +---- ^ + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:47.45-47.47: + 44 DISPLAY lb-screen + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx +---- ^^ + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:47.61: + 44 DISPLAY lb-screen + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 > INQUIRE lb-frm SELECTION-INDEX IN selection-idx +---- ^ + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:48.14-48.16: + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 > IF selection-idx > ZERO +---- ^^ + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:48.37: + 45 ACCEPT lb-screen + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 > IF selection-idx > ZERO +---- ^ + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:49.17-49.23: + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 > MODIFY lb-frm QUERY-INDEX = selection-idx +---- ^^^^^^ + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 END-IF +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:49.31: + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 > MODIFY lb-frm QUERY-INDEX = selection-idx +---- ^ + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 END-IF +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:49.32-49.43: + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 > MODIFY lb-frm QUERY-INDEX = selection-idx +---- ^^^^^^^^^^^ + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 END-IF +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:49.43: + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 > MODIFY lb-frm QUERY-INDEX = selection-idx +---- ^ + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 END-IF +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:49.44-49.45: + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 > MODIFY lb-frm QUERY-INDEX = selection-idx +---- ^ + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 END-IF +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:49.59: + 46 IF lb-row = SPACES + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 > MODIFY lb-frm QUERY-INDEX = selection-idx +---- ^ + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 END-IF +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:50.17-50.24: + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row +---- ^^^^^^^ + 51 END-IF + 52 END-IF +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:50.31: + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row +---- ^ + 51 END-IF + 52 END-IF +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:50.32-50.42: + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row +---- ^^^^^^^^^^ + 51 END-IF + 52 END-IF +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:50.42: + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row +---- ^ + 51 END-IF + 52 END-IF +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:50.43-50.45: + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row +---- ^^ + 51 END-IF + 52 END-IF +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:50.52: + 47 INQUIRE lb-frm SELECTION-INDEX IN selection-idx + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 > INQUIRE lb-frm ITEM-VALUE IN lb-row +---- ^ + 51 END-IF + 52 END-IF +>> Hint: Missing . + +syn_misc.at-2668-prog.cob:51.14-51.20: + 48 IF selection-idx > ZERO + 49 MODIFY lb-frm QUERY-INDEX = selection-idx + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 > END-IF +---- ^^^^^^ + 52 END-IF + 53 CLOSE WINDOW window-handle +>> Warning: Invalid syntax + +syn_misc.at-2668-prog.cob:53.17-53.23: + 50 INQUIRE lb-frm ITEM-VALUE IN lb-row + 51 END-IF + 52 END-IF + 53 > CLOSE WINDOW window-handle +---- ^^^^^^ + 54 DISPLAY "chosen row value was '" lb-row "'" + 55 ACCEPT OMITTED +>> Error: Invalid syntax + +syn_misc.at-2668-prog.cob:55.17: + 52 END-IF + 53 CLOSE WINDOW window-handle + 54 DISPLAY "chosen row value was '" lb-row "'" + 55 > ACCEPT OMITTED +---- ^ + 56 * + 57 STOP RUN. +>> Hint: Missing + +syn_misc.at-2668-prog.cob:55.18-55.25: + 52 END-IF + 53 CLOSE WINDOW window-handle + 54 DISPLAY "chosen row value was '" lb-row "'" + 55 > ACCEPT OMITTED +---- ^^^^^^^ + 56 * + 57 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2715:0 +syn_misc.at-2715-prog.cob:18.19-18.26: + 15 78 MB-WARNING-ICON VALUE 2. + 16 78 MB-ERROR-ICON VALUE 3. + 17 PROCEDURE DIVISION. + 18 > DISPLAY MESSAGE "Important" +---- ^^^^^^^ + 19 TITLE "Very important" + 20 TYPE = MB-OK +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:20.19-20.23: + 17 PROCEDURE DIVISION. + 18 DISPLAY MESSAGE "Important" + 19 TITLE "Very important" + 20 > TYPE = MB-OK +---- ^^^^ + 21 ICON IS MB-WARNING-ICON + 22 DISPLAY MESSAGE "This is" space "my" space my-text +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:21.24-21.26: + 18 DISPLAY MESSAGE "Important" + 19 TITLE "Very important" + 20 TYPE = MB-OK + 21 > ICON IS MB-WARNING-ICON +---- ^^ + 22 DISPLAY MESSAGE "This is" space "my" space my-text + 23 DISPLAY MESSAGE BOX "More messages?" +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:22.19-22.26: + 19 TITLE "Very important" + 20 TYPE = MB-OK + 21 ICON IS MB-WARNING-ICON + 22 > DISPLAY MESSAGE "This is" space "my" space my-text +---- ^^^^^^^ + 23 DISPLAY MESSAGE BOX "More messages?" + 24 TYPE MB-YES-NO +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:23.19-23.26: + 20 TYPE = MB-OK + 21 ICON IS MB-WARNING-ICON + 22 DISPLAY MESSAGE "This is" space "my" space my-text + 23 > DISPLAY MESSAGE BOX "More messages?" +---- ^^^^^^^ + 24 TYPE MB-YES-NO + 25 TITLE = "box title" +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:24.19-24.23: + 21 ICON IS MB-WARNING-ICON + 22 DISPLAY MESSAGE "This is" space "my" space my-text + 23 DISPLAY MESSAGE BOX "More messages?" + 24 > TYPE MB-YES-NO +---- ^^^^ + 25 TITLE = "box title" + 26 DEFAULT IS MB-YES +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:25.25-25.26: + 22 DISPLAY MESSAGE "This is" space "my" space my-text + 23 DISPLAY MESSAGE BOX "More messages?" + 24 TYPE MB-YES-NO + 25 > TITLE = "box title" +---- ^ + 26 DEFAULT IS MB-YES + 27 RETURNING RETURN-CODE +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:26.19-26.26: + 23 DISPLAY MESSAGE BOX "More messages?" + 24 TYPE MB-YES-NO + 25 TITLE = "box title" + 26 > DEFAULT IS MB-YES +---- ^^^^^^^ + 27 RETURNING RETURN-CODE + 28 * +>> Error: Invalid syntax + +syn_misc.at-2715-prog.cob:27.19-27.28: + 24 TYPE MB-YES-NO + 25 TITLE = "box title" + 26 DEFAULT IS MB-YES + 27 > RETURNING RETURN-CODE +---- ^^^^^^^^^ + 28 * + 29 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2737:0 +syn_misc.at-2737-prog.cob:5.18: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > DISPLAY OMITTED WITH BELL +---- ^ + 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL + 7 * +>> Hint: Missing + +syn_misc.at-2737-prog.cob:5.19-5.26: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > DISPLAY OMITTED WITH BELL +---- ^^^^^^^ + 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL + 7 * +>> Error: Invalid syntax + +syn_misc.at-2737-prog.cob:5.31: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > DISPLAY OMITTED WITH BELL +---- ^ + 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL + 7 * +>> Hint: Missing NO ADVANCING . + +syn_misc.at-2737-prog.cob:5.32-5.36: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > DISPLAY OMITTED WITH BELL +---- ^^^^ + 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL + 7 * +>> Error: Invalid syntax + +syn_misc.at-2737-prog.cob:5.36: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > DISPLAY OMITTED WITH BELL +---- ^ + 6 DISPLAY OMITTED LINE 10 COL 15 ERASE EOL + 7 * +>> Hint: Missing . + +syn_misc.at-2737-prog.cob:6.11-6.18: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY OMITTED WITH BELL + 6 > DISPLAY OMITTED LINE 10 COL 15 ERASE EOL +---- ^^^^^^^ + 7 * + 8 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-2737-prog.cob:6.19-6.26: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY OMITTED WITH BELL + 6 > DISPLAY OMITTED LINE 10 COL 15 ERASE EOL +---- ^^^^^^^ + 7 * + 8 STOP RUN. +>> Error: Invalid syntax + +syn_misc.at-2737-prog.cob:6.35-6.38: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY OMITTED WITH BELL + 6 > DISPLAY OMITTED LINE 10 COL 15 ERASE EOL +---- ^^^ + 7 * + 8 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2788:0 +syn_misc.at-2788-prog.cob:6.24-6.26: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 > 01 GNUCOBOL-URL IS EXTERNAL-FORM +---- ^^ + 7 IDENTIFIED BY "http://www.gnu.org/software/gnucobol/". + 8 01 WEB-PAGE-1 EXTERNAL-FORM, +>> Error: Invalid syntax + +syn_misc.at-2788-prog.cob:8.22-8.35: + 5 WORKING-STORAGE SECTION. + 6 01 GNUCOBOL-URL IS EXTERNAL-FORM + 7 IDENTIFIED BY "http://www.gnu.org/software/gnucobol/". + 8 > 01 WEB-PAGE-1 EXTERNAL-FORM, +---- ^^^^^^^^^^^^^ + 9 IDENTIFIED "cgipage1". + 10 01 SIMPLE-FORM IS EXTERNAL-FORM. +>> Error: Invalid syntax + +syn_misc.at-2788-prog.cob:10.23-10.25: + 7 IDENTIFIED BY "http://www.gnu.org/software/gnucobol/". + 8 01 WEB-PAGE-1 EXTERNAL-FORM, + 9 IDENTIFIED "cgipage1". + 10 > 01 SIMPLE-FORM IS EXTERNAL-FORM. +---- ^^ + 11 03 SIMPLE-FORM-VAR1 PIC X(10). + 12 03 SIMPLE-FORM-VAR2 PIC 9(5). +>> Error: Invalid syntax + +syn_misc.at-2788-prog.cob:13.19-13.32: + 10 01 SIMPLE-FORM IS EXTERNAL-FORM. + 11 03 SIMPLE-FORM-VAR1 PIC X(10). + 12 03 SIMPLE-FORM-VAR2 PIC 9(5). + 13 > 01 MY-FORM EXTERNAL-FORM. +---- ^^^^^^^^^^^^^ + 14 03 CGI-VAR1 PIC X(20) IDENTIFIED "Name". + 15 03 CGI-VAR2 PIC X(50) IDENTIFIED BY CGI-VAR1. +>> Error: Invalid syntax + +syn_misc.at-2788-prog.cob:14.34-14.44: + 11 03 SIMPLE-FORM-VAR1 PIC X(10). + 12 03 SIMPLE-FORM-VAR2 PIC 9(5). + 13 01 MY-FORM EXTERNAL-FORM. + 14 > 03 CGI-VAR1 PIC X(20) IDENTIFIED "Name". +---- ^^^^^^^^^^ + 15 03 CGI-VAR2 PIC X(50) IDENTIFIED BY CGI-VAR1. + 16 +>> Error: Invalid syntax + +syn_misc.at-2788-prog.cob:15.34-15.44: + 12 03 SIMPLE-FORM-VAR2 PIC 9(5). + 13 01 MY-FORM EXTERNAL-FORM. + 14 03 CGI-VAR1 PIC X(20) IDENTIFIED "Name". + 15 > 03 CGI-VAR2 PIC X(50) IDENTIFIED BY CGI-VAR1. +---- ^^^^^^^^^^ + 16 + 17 PROCEDURE DIVISION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2826:0 +syn_misc.at-2826-prog.cob:10.11-10.15: + 7 01 hello PIC X. + 8 01 foo PIC X. + 9 01 bars PIC X. + 10 > 01 file PIC X. +---- ^^^^ + 11 01 background-color PIC X. + 12 +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2858:0 +syn_misc.at-2858-prog.cob:6.15-6.30: + 3 PROGRAM-ID. prog. + 4 + 5 PROCEDURE DIVISION. + 6 > FOO "Hello, world!" +---- ^^^^^^^^^^^^^^^ + 7 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2876:0 +syn_misc.at-2876-prog.cob:6.11-6.17: + 3 PROGRAM-ID. prog. + 4 + 5 PROCEDURE DIVISION. + 6 > COMP-1 "Hello, world!" +---- ^^^^^^ + 7 DISPLAY "Hello, world!". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2910:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2943:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:2987:0 +syn_misc.at-2987-prog.cob:8.7-8.22: + 5 ENVIRONMENT DIVISION. + 6 CONFIGURATION SECTION. + 7 OBJECT-COMPUTER. a. + 8 > SOURCE-COMPUTER. b. +---- ^^^^^^^^^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3048:0 +syn_misc.at-3048-prog.cob:8.7-8.22: + 5 ENVIRONMENT DIVISION. + 6 CONFIGURATION SECTION. + 7 REPOSITORY. + 8 > SOURCE-COMPUTER. b. +---- ^^^^^^^^^^^^^^^ + 9 OBJECT-COMPUTER. a. + 10 SPECIAL-NAMES. +>> Error: Invalid syntax + +syn_misc.at-3048-prog.cob:22.7-22.20: + 19 SOURCE-COMPUTER. b. + 20 OBJECT-COMPUTER. a. + 21 REPOSITORY. + 22 > SPECIAL-NAMES. +---- ^^^^^^^^^^^^^ + 23 + 24 END PROGRAM prog2. +>> Error: Invalid syntax + +syn_misc.at-3048-prog.cob:32.7-32.22: + 29 ENVIRONMENT DIVISION. + 30 CONFIGURATION SECTION. + 31 REPOSITORY. + 32 > SOURCE-COMPUTER. b. +---- ^^^^^^^^^^^^^^^ + 33 OBJECT-COMPUTER. a. + 34 +>> Error: Invalid syntax + +syn_misc.at-3048-prog.cob:43.7-43.20: + 40 ENVIRONMENT DIVISION. + 41 CONFIGURATION SECTION. + 42 REPOSITORY. + 43 > SPECIAL-NAMES. +---- ^^^^^^^^^^^^^ + 44 SOURCE-COMPUTER. b. + 45 OBJECT-COMPUTER. a. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3104:0 +syn_misc.at-3104-prog.cob:5.23-5.30: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > CALL STATIC "stuff" +---- ^^^^^^^ + 6 ON EXCEPTION + 7 CONTINUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3107:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3109:0 +syn_misc.at-3109-prog3.cob:2.7-2.32: + 1 + 2 > >> CALL-CONVENTION STATIC +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog3. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3175:0 +syn_misc.at-3175-prog.cob:39.15-39.27: + 36 END-WRITE + 37 + 38 DISPLAY "blah" + 39 > ON EXCEPTION +---- ^^^^^^^^^^^^ + 40 CALL "err" + 41 NOT ON EXCEPTION +>> Error: Invalid syntax + +syn_misc.at-3175-prog.cob:46.15-46.31: + 43 ON EXCEPTION + 44 CONTINUE. + 45 DISPLAY "blah" + 46 > NOT ON EXCEPTION +---- ^^^^^^^^^^^^^^^^ + 47 CALL "err" + 48 ON EXCEPTION +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3227:0 +syn_misc.at-3227-prog.cob:10.7-10.15: + 7 REPLACE ==a== BY ==b==.. *> blah blah + 8 . + 9 + 10 > COPY a.. +---- ^^^^^^^^ + 11 + 12 78 var VALUE "hello". +>> Error: Library `A.' not found in search path (search path: ) + +syn_misc.at-3227-prog.cob:7.30-7.31: + 4 + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > REPLACE ==a== BY ==b==.. *> blah blah +---- ^ + 8 . + 9 +>> Error: Invalid syntax + +syn_misc.at-3227-prog.cob:14.10-14.11: + 11 + 12 78 var VALUE "hello". + 13 * blah blah + 14 > . +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3266:0 +syn_misc.at-3266-prog.cob:14.19: + 11 IF NOT DONE = 1 + 12 DISPLAY "SEC-1 NOT EXECUTED" + 13 END-IF + 14 > STOP RUN +---- ^ + 15 SEC-1 SECTION. + 16 MOVE 1 TO DONE +>> Hint: Missing . + +syn_misc.at-3266-prog.cob:15.7-15.12: + 12 DISPLAY "SEC-1 NOT EXECUTED" + 13 END-IF + 14 STOP RUN + 15 > SEC-1 SECTION. +---- ^^^^^ + 16 MOVE 1 TO DONE + 17 GOBACK. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3321:0 +syn_misc.at-3321-prog.cob:7.7-7.21: + 4 + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > COPY "ok.inc". +---- ^^^^^^^^^^^^^^ + 8 + 9 PROCEDURE DIVISION. +>> Error: Library `ok.inc' not found in search path (search path: ) + +syn_misc.at-3321-prog.cob:16.11-16.28: + 13 * Directive purposefully in Area A + 14 REPLACE ==RUNNN== BY ==RUN==. + 15 STOP RUNNN + 16 > COPY "sec-1.inc". +---- ^^^^^^^^^^^^^^^^^ + 17 * Also purposefully in Area A + 18 COPY "sec-2.inc". +>> Error: Library `sec-1.inc' not found in search path (search path: ) + +syn_misc.at-3321-prog.cob:18.8-18.25: + 15 STOP RUNNN + 16 COPY "sec-1.inc". + 17 * Also purposefully in Area A + 18 > COPY "sec-2.inc". +---- ^^^^^^^^^^^^^^^^^ +>> Error: Library `sec-2.inc' not found in search path (search path: ) + +syn_misc.at-3321-prog.cob:19.0: + 16 COPY "sec-1.inc". + 17 * Also purposefully in Area A + 18 COPY "sec-2.inc". +>> Hint: Missing . + +syn_misc.at-3321-prog.cob:19.0: + 16 COPY "sec-1.inc". + 17 * Also purposefully in Area A + 18 COPY "sec-2.inc". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3386:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3436:0 +syn_misc.at-3436-prog.cob:7.11-9.12: + 4 + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 > COPY "ok.inc" REPLACING == 01 REPLACE-ME == BY == +---- ^ + 8 > 01 OK PIC XX VALUE "OK". == +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > . +---- ^^^^^^^^^^^^^ + 10 + 11 PERFORM SEC-2 +>> Error: Library `ok.inc' not found in search path (search path: ) + +syn_misc.at-3436-prog.cob:11.11-11.18: + 8 01 OK PIC XX VALUE "OK". == + 9 . + 10 + 11 > PERFORM SEC-2 +---- ^^^^^^^ + 12 STOP RUN + 13 CONTINUE +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:3969:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4209:0 +syn_misc.at-4209-prog.cob:9.27-9.28: + 6 ENVIRONMENT DIVISION. + 7 CONFIGURATION SECTION. + 8 SPECIAL-NAMES. + 9 > CALL-CONVENTION 0 IS EXTERN. +---- ^ + 10 + 11 PROCEDURE DIVISION EXTERN. +>> Error: Invalid syntax + +syn_misc.at-4209-prog.cob:11.29: + 8 SPECIAL-NAMES. + 9 CALL-CONVENTION 0 IS EXTERN. + 10 + 11 > PROCEDURE DIVISION EXTERN. +---- ^ + 12 CONTINUE + 13 . +>> Hint: Missing . + +syn_misc.at-4209-prog.cob:11.30-11.36: + 8 SPECIAL-NAMES. + 9 CALL-CONVENTION 0 IS EXTERN. + 10 + 11 > PROCEDURE DIVISION EXTERN. +---- ^^^^^^ + 12 CONTINUE + 13 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4225:0 +syn_misc.at-4225-prog2.cob:9.29: + 6 ENVIRONMENT DIVISION. + 7 CONFIGURATION SECTION. + 8 + 9 > PROCEDURE DIVISION WITH C LINKAGE. +---- ^ + 10 CONTINUE + 11 . +>> Hint: Missing . + +syn_misc.at-4225-prog2.cob:9.30-9.34: + 6 ENVIRONMENT DIVISION. + 7 CONFIGURATION SECTION. + 8 + 9 > PROCEDURE DIVISION WITH C LINKAGE. +---- ^^^^ + 10 CONTINUE + 11 . +>> Error: Invalid syntax + +syn_misc.at-4225-prog2.cob:9.37-9.44: + 6 ENVIRONMENT DIVISION. + 7 CONFIGURATION SECTION. + 8 + 9 > PROCEDURE DIVISION WITH C LINKAGE. +---- ^^^^^^^ + 10 CONTINUE + 11 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4337:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4385:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4578:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4614:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4771:0 +syn_misc.at-4771-prog.cob:17.11-17.22: + 14 PROCEDURE DIVISION. + 15 PERFORM VARYING i FROM 1 BY 1 + 16 UNTIL i = 5 + 17 > END-PERFORM +---- ^^^^^^^^^^^ + 18 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4859:0 +syn_misc.at-4859-prog1.cob:5.11-6.18: + 2 IDENTIFICATION + 3 DIVISION + 4 . + 5 > author. +---- ^^^^^^^ + 6 > tester. +---- ^^^^^^^^^^^^^^^^^^^ + 7 PROGRAM-ID + 8 . +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +syn_misc.at-4859-prog1.cob:11.11-11.34: + 8 . + 9 prog1 + 10 . + 11 > REMARKS;. Should work.,, +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 12 + 13 ENVIRONMENT +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +syn_misc.at-4859-prog1.cob:30.7-30.22: + 27 DDATA + 28 D DIVISION + 29 D . + 30 > WORKING-STORAGE +---- ^^^^^^^^^^^^^^^ + 31 SECTION + 32 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4860:0 +syn_misc.at-4860-prog2.cob:2.7-2.9: + 1 + 2 > ID,;DIVISION;,.,; +---- ^^ + 3 author,.;tester. + 4 PROGRAM-ID,;.;,prog2;,.;, +>> Error: Invalid syntax + +syn_misc.at-4860-prog2.cob:5.11-5.34: + 2 ID,;DIVISION;,.,; + 3 author,.;tester. + 4 PROGRAM-ID,;.;,prog2;,.;, + 5 > REMARKS;. Should work.,, +---- ^^^^^^^^^^^^^^^^^^^^^^^ + 6 ENVIRONMENT,;DIVISION;,.,; + 7 CONFIGURATION;;,,SECTION;;,,. +>> Warning: comment paragraph in IDENTIFICATION DIVISION is obsolete in default + +syn_misc.at-4860-prog2.cob:12.7-12.9: + 9 + 10 DDATA;DIVISION,. + 11 DWORKING-STORAGE,SECTION;. + 12 > 01;i,PIC;9;. +---- ^^ + 13 + 14 PROCEDURE;DIVISION,.; +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:4882:0 +syn_misc.at-4882-prog.cob:8.31: + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 01 x PIC 9(5) VALUE 1. + 8 > 01 y CONSTANT "ab". +---- ^ + 9 + 10 PROCEDURE DIVISION. +>> Hint: Missing RECORD + +syn_misc.at-4882-prog.cob:8.32-8.36: + 5 DATA DIVISION. + 6 WORKING-STORAGE SECTION. + 7 01 x PIC 9(5) VALUE 1. + 8 > 01 y CONSTANT "ab". +---- ^^^^ + 9 + 10 PROCEDURE DIVISION. +>> Error: Invalid syntax + +syn_misc.at-4882-prog.cob:11.15: + 8 01 y CONSTANT "ab". + 9 + 10 PROCEDURE DIVISION. + 11 > STOP x +---- ^ + 12 STOP y + 13 . +>> Hint: Missing . + +syn_misc.at-4882-prog.cob:11.16-11.17: + 8 01 y CONSTANT "ab". + 9 + 10 PROCEDURE DIVISION. + 11 > STOP x +---- ^ + 12 STOP y + 13 . +>> Error: Invalid syntax + +syn_misc.at-4882-prog.cob:11.17: + 8 01 y CONSTANT "ab". + 9 + 10 PROCEDURE DIVISION. + 11 > STOP x +---- ^ + 12 STOP y + 13 . +>> Hint: Missing . + +syn_misc.at-4882-prog.cob:12.11-12.15: + 9 + 10 PROCEDURE DIVISION. + 11 STOP x + 12 > STOP y +---- ^^^^ + 13 . +>> Warning: Invalid syntax + +syn_misc.at-4882-prog.cob:12.15: + 9 + 10 PROCEDURE DIVISION. + 11 STOP x + 12 > STOP y +---- ^ + 13 . +>> Hint: Missing . + +syn_misc.at-4882-prog.cob:12.16-12.17: + 9 + 10 PROCEDURE DIVISION. + 11 STOP x + 12 > STOP y +---- ^ + 13 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5068:0 +syn_misc.at-5068-prog.cob:7.16-7.24: + 4 ENVIRONMENT DIVISION. + 5 CONFIGURATION SECTION. + 6 SPECIAL-NAMES. + 7 > SYMBOLIC CONSTANT +---- ^^^^^^^^ + 8 con-1 IS 1 + 9 25156c "25156c". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5260:0 +syn_misc.at-5260-prog.cob:7.29: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 78 const1 value 115. + 7 > 01 const2 CONSTANT 200. +---- ^ + 8 78 const3 value const2. + 9 78 const4 value const2 + const1. +>> Hint: Missing RECORD . + +syn_misc.at-5260-prog.cob:7.30-7.33: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 78 const1 value 115. + 7 > 01 const2 CONSTANT 200. +---- ^^^ + 8 78 const3 value const2. + 9 78 const4 value const2 + const1. +>> Error: Invalid syntax + +syn_misc.at-5260-prog.cob:8.26: + 5 WORKING-STORAGE SECTION. + 6 78 const1 value 115. + 7 01 const2 CONSTANT 200. + 8 > 78 const3 value const2. +---- ^ + 9 78 const4 value const2 + const1. + 10 77 othervar PIC X(const1). +>> Hint: Missing + +syn_misc.at-5260-prog.cob:8.27-8.33: + 5 WORKING-STORAGE SECTION. + 6 78 const1 value 115. + 7 01 const2 CONSTANT 200. + 8 > 78 const3 value const2. +---- ^^^^^^ + 9 78 const4 value const2 + const1. + 10 77 othervar PIC X(const1). +>> Error: Invalid syntax + +syn_misc.at-5260-prog.cob:9.26: + 6 78 const1 value 115. + 7 01 const2 CONSTANT 200. + 8 78 const3 value const2. + 9 > 78 const4 value const2 + const1. +---- ^ + 10 77 othervar PIC X(const1). + 11 01 var PIC X(const2). +>> Hint: Missing + +syn_misc.at-5260-prog.cob:9.27-9.33: + 6 78 const1 value 115. + 7 01 const2 CONSTANT 200. + 8 78 const3 value const2. + 9 > 78 const4 value const2 + const1. +---- ^^^^^^ + 10 77 othervar PIC X(const1). + 11 01 var PIC X(const2). +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5309:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5485:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5576:0 +syn_misc.at-5576-prog.cob:16.11-16.15: + 13 PROCEDURE DIVISION. + 14 + 15 IF var-len < 16 + 16 > ELSE +---- ^^^^ + 17 move othervar to var + 18 END-IF +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:21.11-21.15: + 18 END-IF + 19 + 20 IF var-len > 16 + 21 > ELSE +---- ^^^^ + 22 move othervar to var + 23 END-IF +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:26.11-26.15: + 23 END-IF + 24 + 25 IF (2 = 3) + 26 > ELSE +---- ^^^^ + 27 IF 1 = 1 + 28 ELSE +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:28.14-28.18: + 25 IF (2 = 3) + 26 ELSE + 27 IF 1 = 1 + 28 > ELSE +---- ^^^^ + 29 IF 1 = 1 + 30 move var to othervar +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:39.11-39.23: + 36 WHEN A = B + 37 move var to othervar + 38 WHEN OTHER + 39 > END-EVALUATE +---- ^^^^^^^^^^^^ + 40 + 41 PERFORM WITH TEST BEFORE UNTIL 1 <> 3 +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:42.11-42.22: + 39 END-EVALUATE + 40 + 41 PERFORM WITH TEST BEFORE UNTIL 1 <> 3 + 42 > END-PERFORM +---- ^^^^^^^^^^^ + 43 + 44 EVALUATE FALSE +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:47.11-47.23: + 44 EVALUATE FALSE + 45 WHEN A = B + 46 WHEN B = A + 47 > END-EVALUATE. +---- ^^^^^^^^^^^^ + 48 + 49 EVALUATE TRUE +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:53.11-53.12: + 50 WHEN A = B + 51 move var to othervar + 52 WHEN OTHER + 53 > . +---- ^ + 54 + 55 EVALUATE TRUE +>> Error: Invalid syntax + +syn_misc.at-5576-prog.cob:58.11-58.12: + 55 EVALUATE TRUE + 56 WHEN A = B + 57 WHEN B = A + 58 > . +---- ^ + 59 + 60 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5649:0 +syn_misc.at-5649-prog.cob:12.53: + 9 05 item-05-b pic x(01). + 10 01 myk-01 constant as length of item-01. + 11 01 myk-02 constant is global as length item-05-a. + 12 > 01 myk-03 constant global as length of pointer. *> extension +---- ^ + 13 01 myk-04 constant global as byte-length of item-01. + 14 01 myk-05 constant is global as byte-length item-05-a. +>> Hint: Missing + +syn_misc.at-5649-prog.cob:12.54-12.61: + 9 05 item-05-b pic x(01). + 10 01 myk-01 constant as length of item-01. + 11 01 myk-02 constant is global as length item-05-a. + 12 > 01 myk-03 constant global as length of pointer. *> extension +---- ^^^^^^^ + 13 01 myk-04 constant global as byte-length of item-01. + 14 01 myk-05 constant is global as byte-length item-05-a. +>> Error: Invalid syntax + +syn_misc.at-5649-prog.cob:15.53: + 12 01 myk-03 constant global as length of pointer. *> extension + 13 01 myk-04 constant global as byte-length of item-01. + 14 01 myk-05 constant is global as byte-length item-05-a. + 15 > 01 myk-06 constant as byte-length of pointer. *> extension +---- ^ +>> Hint: Missing + +syn_misc.at-5649-prog.cob:15.54-15.61: + 12 01 myk-03 constant global as length of pointer. *> extension + 13 01 myk-04 constant global as byte-length of item-01. + 14 01 myk-05 constant is global as byte-length item-05-a. + 15 > 01 myk-06 constant as byte-length of pointer. *> extension +---- ^^^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5735:0 +syn_misc.at-5735-prog.cob:7.26-7.34: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 01 DATA-COLLECTION. + 7 > 03 DATA-ITEMS-A VOLATILE. +---- ^^^^^^^^ + 8 05 DATA-A1 PIC S9(9) BINARY. + 9 05 DATA-A2 PIC S9(9) BINARY. +>> Error: Invalid syntax + +syn_misc.at-5735-prog.cob:10.13-10.21: + 7 03 DATA-ITEMS-A VOLATILE. + 8 05 DATA-A1 PIC S9(9) BINARY. + 9 05 DATA-A2 PIC S9(9) BINARY. + 10 > 03 VOLATILE. +---- ^^^^^^^^ + 11 05 DATA-FILLER PIC S9(9) BINARY. + 12 03 DATA-ITEMS-B. +>> Error: Invalid syntax + +syn_misc.at-5735-prog.cob:14.34-14.42: + 11 05 DATA-FILLER PIC S9(9) BINARY. + 12 03 DATA-ITEMS-B. + 13 05 DATA-B1 PIC S9(9). + 14 > 05 DATA-B2 PIC S9(9) VOLATILE. +---- ^^^^^^^^ + 15 03 DATA-ITEMS-C. + 16 05 DATA-C1 PIC S9(9). +>> Error: Invalid syntax + +syn_misc.at-5735-prog.cob:18.52-18.60: + 15 03 DATA-ITEMS-C. + 16 05 DATA-C1 PIC S9(9). + 17 05 DATA-C2 PIC S9(9). + 18 > 01 STEP PIC 9(8) BINARY VALUE 0 EXTERNAL VOLATILE. +---- ^^^^^^^^ + 19 *01 WRONGY PIC X. + 20 * 88 TESTVAL-A VALUE 'A' VOLATILE. +>> Error: Invalid syntax + +syn_misc.at-5735-prog.cob:24.31-24.39: + 21 * 88 TESTVAL-B VOLATILE VALUE 'B'. + 22 LINKAGE SECTION. + 23 01 XMYREC. + 24 > 05 XFLD1 PIC 9(2) VOLATILE. +---- ^^^^^^^^ + 25 *SCREEN SECTION. + 26 *01 WRONG-SCREEN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5791:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5830:0 +syn_misc.at-5830-prog.cob:6.26-6.29: + 3 PROGRAM-ID. prog. + 4 + 5 PROCEDURE DIVISION. + 6 > MOVE 1 TO LIN, COL +---- ^^^ + 7 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5857:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5874:0 +syn_misc.at-5874-valid.cob:2.7-2.15: + 1 + 2 > 000100 @OPTIONS NOMAIN,APOST +---- ^^^^^^^^ + 3 000200 @OPTIONS APOST + 4 000300 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +syn_misc.at-5874-valid.cob:5.18: + 2 000100 @OPTIONS NOMAIN,APOST + 3 000200 @OPTIONS APOST + 4 000300 IDENTIFICATION DIVISION. + 5 > 000400 PROGRAM-ID. VALID. +---- ^ +>> Hint: Missing + +syn_misc.at-5874-valid.cob:5.19-5.24: + 2 000100 @OPTIONS NOMAIN,APOST + 3 000200 @OPTIONS APOST + 4 000300 IDENTIFICATION DIVISION. + 5 > 000400 PROGRAM-ID. VALID. +---- ^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5963:0 +syn_misc.at-5963-valid.cob:2.7-2.14: + 1 + 2 > 000100 Process codepage(1047) +---- ^^^^^^^ + 3 000200 CBL CODEPAGE(1208) + 4 000300 CBL +>> Error: Invalid syntax + +syn_misc.at-5963-valid.cob:6.18: + 3 000200 CBL CODEPAGE(1208) + 4 000300 CBL + 5 000400 IDENTIFICATION DIVISION. + 6 > 000500 PROGRAM-ID. VALID. +---- ^ +>> Hint: Missing + +syn_misc.at-5963-valid.cob:6.19-6.24: + 3 000200 CBL CODEPAGE(1208) + 4 000300 CBL + 5 000400 IDENTIFICATION DIVISION. + 6 > 000500 PROGRAM-ID. VALID. +---- ^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:5999:0 +syn_misc.at-5999-valid.cob:3.8-3.16: + 1 + 2 *CONTROL LIST + 3 > *CONTROL SOURCE +---- ^^^^^^^^ + 4 *CBL MAP LIST + 5 000100 *CBL NOMAP NOSOURCE NOLIST +>> Error: Invalid syntax + +syn_misc.at-5999-valid.cob:3.16: + 1 + 2 *CONTROL LIST + 3 > *CONTROL SOURCE +---- ^ + 4 *CBL MAP LIST + 5 000100 *CBL NOMAP NOSOURCE NOLIST +>> Hint: Missing DIVISION . + +syn_misc.at-5999-valid.cob:3.17-3.23: + 1 + 2 *CONTROL LIST + 3 > *CONTROL SOURCE +---- ^^^^^^ + 4 *CBL MAP LIST + 5 000100 *CBL NOMAP NOSOURCE NOLIST +>> Error: Invalid syntax + +syn_misc.at-5999-valid.cob:7.18: + 4 *CBL MAP LIST + 5 000100 *CBL NOMAP NOSOURCE NOLIST + 6 000200 IDENTIFICATION DIVISION. + 7 > 000300 PROGRAM-ID. VALID. +---- ^ +>> Hint: Missing + +syn_misc.at-5999-valid.cob:7.19-7.24: + 4 *CBL MAP LIST + 5 000100 *CBL NOMAP NOSOURCE NOLIST + 6 000200 IDENTIFICATION DIVISION. + 7 > 000300 PROGRAM-ID. VALID. +---- ^^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6601:0 +syn_misc.at-6601-prog.cob:9.15-9.26: + 6 INPUT-OUTPUT SECTION. + 7 FILE-CONTROL. + 8 SELECT f ASSIGN "f.dat" SEQUENTIAL + 9 > FILE-LIMITS ARE 1 THRU 10, 100 THRU f-max +---- ^^^^^^^^^^^ + 10 TRACK-AREA 100 CHARACTERS + 11 TRACK-LIMIT 5 TRACKS. +>> Error: Invalid syntax + +syn_misc.at-6601-prog.cob:14.15-14.21: + 11 TRACK-LIMIT 5 TRACKS. + 12 SELECT g ASSIGN "g.dat" RELATIVE + 13 RELATIVE KEY g-key + 14 > ACTUAL KEY g-actual-key. +---- ^^^^^^ + 15 + 16 I-O-CONTROL. +>> Error: Invalid syntax + +syn_misc.at-6601-prog.cob:17.11-17.16: + 14 ACTUAL KEY g-actual-key. + 15 + 16 I-O-CONTROL. + 17 > APPLY RECORD-OVERFLOW f, g +---- ^^^^^ + 18 APPLY CORE-INDEX core-idx ON f + 19 APPLY CYL-INDEX TO 5 ON f +>> Error: Invalid syntax + +syn_misc.at-6601-prog.cob:25.38: + 22 APPLY MASTER-INDEX TO 5 on g + 23 APPLY WRITE-VERIFY f, g + 24 APPLY REORG-CRITERIA f-rec, f + 25 > RERUN ON "g2.dat" EVERY END REEL g +---- ^ + 26 . + 27 DATA DIVISION. +>> Hint: Missing PROGRAM + +syn_misc.at-6601-prog.cob:25.39-25.43: + 22 APPLY MASTER-INDEX TO 5 on g + 23 APPLY WRITE-VERIFY f, g + 24 APPLY REORG-CRITERIA f-rec, f + 25 > RERUN ON "g2.dat" EVERY END REEL g +---- ^^^^ + 26 . + 27 DATA DIVISION. +>> Error: Invalid syntax + +syn_misc.at-6601-prog.cob:27.7-27.11: + 24 APPLY REORG-CRITERIA f-rec, f + 25 RERUN ON "g2.dat" EVERY END REEL g + 26 . + 27 > DATA DIVISION. +---- ^^^^ + 28 FILE SECTION. + 29 FD f. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6642:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6806:0 +syn_misc.at-6806-prog.cob:5.7-5.21: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >>DISPLAY "OK" +---- ^^^^^^^^^^^^^^ + 6 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6826:0 +syn_misc.at-6826-prog.cob:5.7-5.19: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >>DISPLAY OK +---- ^^^^^^^^^^^^ + 6 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6845:0 +syn_misc.at-6845-prog.cob:5.7-5.17: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > $DISPLAY OK +---- ^^^^^^^^^^ + 6 STOP RUN. +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6924:0 +syn_misc.at-6924-prog.cob:2.7-2.11: + 1 + 2 > $SET CONSTANT DOGGY "Barky" +---- ^^^^ + 3 $SET CONSTANT PONY "Blacky" + 4 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +syn_misc.at-6924-prog.cob:8.35: + 5 PROGRAM-ID. prog. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 $SET CONSTANT PONY "White" +>> Hint: Missing + +syn_misc.at-6924-prog.cob:8.36-8.41: + 5 PROGRAM-ID. prog. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 $SET CONSTANT PONY "White" +>> Error: Invalid syntax + +syn_misc.at-6924-prog.cob:9.35: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^ + 10 $SET CONSTANT PONY "White" + 11 * +>> Hint: Missing + +syn_misc.at-6924-prog.cob:9.36-9.40: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^^^^ + 10 $SET CONSTANT PONY "White" + 11 * +>> Error: Invalid syntax + +syn_misc.at-6924-prog.cob:10.7-10.11: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 > $SET CONSTANT PONY "White" +---- ^^^^ + 11 * + 12 * ensure to test a numeric, too (not actually used): +>> Error: Invalid syntax + +syn_misc.at-6924-prog.cob:13.35: + 10 $SET CONSTANT PONY "White" + 11 * + 12 * ensure to test a numeric, too (not actually used): + 13 > $SET CONSTANT C-UNUSED-NUM 0 +---- ^ + 14 PROCEDURE DIVISION. + 15 MAIN. +>> Hint: Missing . + +syn_misc.at-6924-prog.cob:14.7-14.16: + 11 * + 12 * ensure to test a numeric, too (not actually used): + 13 $SET CONSTANT C-UNUSED-NUM 0 + 14 > PROCEDURE DIVISION. +---- ^^^^^^^^^ + 15 MAIN. + 16 DISPLAY "Your Dog's name is " DOGGY ";". +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6930:0 +syn_misc.at-6930-prog2.cob:2.7-2.35: + 1 + 2 > >>SET CONSTANT DOGGY "Barky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 >>SET CONSTANT PONY "Blacky" + 4 IDENTIFICATION DIVISION. +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6930-prog2.cob:3.7-3.35: + 1 + 2 >>SET CONSTANT DOGGY "Barky" + 3 > >>SET CONSTANT PONY "Blacky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog2. +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6930-prog2.cob:8.35: + 5 PROGRAM-ID. prog2. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>SET CONSTANT PONY "White" +>> Hint: Missing + +syn_misc.at-6930-prog2.cob:8.36-8.41: + 5 PROGRAM-ID. prog2. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>SET CONSTANT PONY "White" +>> Error: Invalid syntax + +syn_misc.at-6930-prog2.cob:9.35: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^ + 10 >>SET CONSTANT PONY "White" + 11 * +>> Hint: Missing + +syn_misc.at-6930-prog2.cob:9.36-9.40: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^^^^ + 10 >>SET CONSTANT PONY "White" + 11 * +>> Error: Invalid syntax + +syn_misc.at-6930-prog2.cob:10.7-10.34: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 > >>SET CONSTANT PONY "White" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 * + 12 PROCEDURE DIVISION. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6934:0 +syn_misc.at-6934-prog3.cob:2.7-2.38: + 1 + 2 > >>DEFINE CONSTANT DOGGY "Barky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 >>DEFINE CONSTANT PONY "Blacky" + 4 IDENTIFICATION DIVISION. +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6934-prog3.cob:3.7-3.38: + 1 + 2 >>DEFINE CONSTANT DOGGY "Barky" + 3 > >>DEFINE CONSTANT PONY "Blacky" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog3. +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6934-prog3.cob:8.35: + 5 PROGRAM-ID. prog3. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE +>> Hint: Missing + +syn_misc.at-6934-prog3.cob:8.36-8.41: + 5 PROGRAM-ID. prog3. + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 > 01 THEDOG PIC X(6) VALUE DOGGY. +---- ^^^^^ + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE +>> Error: Invalid syntax + +syn_misc.at-6934-prog3.cob:9.35: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^ + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE + 11 * +>> Hint: Missing + +syn_misc.at-6934-prog3.cob:9.36-9.40: + 6 DATA DIVISION. + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 > 77 MYHORSE PIC X(7) VALUE PONY. +---- ^^^^ + 10 >>DEFINE CONSTANT PONY "White" OVERRIDE + 11 * +>> Error: Invalid syntax + +syn_misc.at-6934-prog3.cob:10.7-10.46: + 7 WORKING-STORAGE SECTION. + 8 01 THEDOG PIC X(6) VALUE DOGGY. + 9 77 MYHORSE PIC X(7) VALUE PONY. + 10 > >>DEFINE CONSTANT PONY "White" OVERRIDE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 * + 12 PROCEDURE DIVISION. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6969:0 +syn_misc.at-6969-prog.cob:7.7-7.28: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > >>IF ACTIVATE DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^ + 8 >>DISPLAY "NOTOK" + 9 >>ELIF ACTIVATE2 DEFINED +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6969-prog.cob:8.7-8.24: + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 >>IF ACTIVATE DEFINED + 8 > >>DISPLAY "NOTOK" +---- ^^^^^^^^^^^^^^^^^ + 9 >>ELIF ACTIVATE2 DEFINED + 10 >>DISPLAY "OK" +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6969-prog.cob:9.7-9.31: + 6 PROCEDURE DIVISION. + 7 >>IF ACTIVATE DEFINED + 8 >>DISPLAY "NOTOK" + 9 > >>ELIF ACTIVATE2 DEFINED +---- ^^^^^^^^^^^^^^^^^^^^^^^^ + 10 >>DISPLAY "OK" + 11 >>ELSE +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6969-prog.cob:10.7-10.21: + 7 >>IF ACTIVATE DEFINED + 8 >>DISPLAY "NOTOK" + 9 >>ELIF ACTIVATE2 DEFINED + 10 > >>DISPLAY "OK" +---- ^^^^^^^^^^^^^^ + 11 >>ELSE + 12 >>DISPLAY "NOTOK" +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6969-prog.cob:11.7-11.13: + 8 >>DISPLAY "NOTOK" + 9 >>ELIF ACTIVATE2 DEFINED + 10 >>DISPLAY "OK" + 11 > >>ELSE +---- ^^^^^^ + 12 >>DISPLAY "NOTOK" + 13 >>END-IF +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6969-prog.cob:12.7-12.24: + 9 >>ELIF ACTIVATE2 DEFINED + 10 >>DISPLAY "OK" + 11 >>ELSE + 12 > >>DISPLAY "NOTOK" +---- ^^^^^^^^^^^^^^^^^ + 13 >>END-IF + 14 STOP RUN. +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6969-prog.cob:13.7-13.15: + 10 >>DISPLAY "OK" + 11 >>ELSE + 12 >>DISPLAY "NOTOK" + 13 > >>END-IF +---- ^^^^^^^^ + 14 STOP RUN. +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:6994:0 +syn_misc.at-6994-prog.cob:5.7-5.22: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >> IF X DEFINED +---- ^^^^^^^^^^^^^^^ + 6 >>DISPLAY "X defined" + 7 >> ELSE +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6994-prog.cob:6.9-6.30: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 >> IF X DEFINED + 6 > >>DISPLAY "X defined" +---- ^^^^^^^^^^^^^^^^^^^^^ + 7 >> ELSE + 8 >> DISPLAY "X not defined" +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6994-prog.cob:7.7-7.14: + 4 PROCEDURE DIVISION. + 5 >> IF X DEFINED + 6 >>DISPLAY "X defined" + 7 > >> ELSE +---- ^^^^^^^ + 8 >> DISPLAY "X not defined" + 9 >> DEFINE X 1 +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6994-prog.cob:8.9-8.35: + 5 >> IF X DEFINED + 6 >>DISPLAY "X defined" + 7 >> ELSE + 8 > >> DISPLAY "X not defined" +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 >> DEFINE X 1 + 10 >> END-IF +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6994-prog.cob:9.9-9.22: + 6 >>DISPLAY "X defined" + 7 >> ELSE + 8 >> DISPLAY "X not defined" + 9 > >> DEFINE X 1 +---- ^^^^^^^^^^^^^ + 10 >> END-IF + 11 CONTINUE +>> Error: Malformed or unknown compiler directive + +syn_misc.at-6994-prog.cob:10.7-10.16: + 7 >> ELSE + 8 >> DISPLAY "X not defined" + 9 >> DEFINE X 1 + 10 > >> END-IF +---- ^^^^^^^^^ + 11 CONTINUE + 12 . +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7027:0 +syn_misc.at-7027-prog.cob:5.7-5.24: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >>IF A IS DEFINED +---- ^^^^^^^^^^^^^^^^^ + 6 >>IF B IS DEFINED + 7 CONTINUE +>> Error: Malformed or unknown compiler directive + +syn_misc.at-7027-prog.cob:6.7-6.24: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 >>IF A IS DEFINED + 6 > >>IF B IS DEFINED +---- ^^^^^^^^^^^^^^^^^ + 7 CONTINUE + 8 >> DISPLAY "NOT OK (not both definitions)" +>> Error: Malformed or unknown compiler directive + +syn_misc.at-7027-prog.cob:8.7-8.17: + 5 >>IF A IS DEFINED + 6 >>IF B IS DEFINED + 7 CONTINUE + 8 > >> DISPLAY "NOT OK (not both definitions)" +---- ^^^^^^^^^^ + 9 . + 10 >>ELSE +>> Error: Invalid syntax + +syn_misc.at-7027-prog.cob:10.7-10.13: + 7 CONTINUE + 8 >> DISPLAY "NOT OK (not both definitions)" + 9 . + 10 > >>ELSE +---- ^^^^^^ + 11 CONTINUE + 12 >> DISPLAY "NOT OK (no definitions)" +>> Error: Malformed or unknown compiler directive + +syn_misc.at-7027-prog.cob:12.7-12.17: + 9 . + 10 >>ELSE + 11 CONTINUE + 12 > >> DISPLAY "NOT OK (no definitions)" +---- ^^^^^^^^^^ + 13 . + 14 >>END-IF +>> Error: Invalid syntax + +syn_misc.at-7027-prog.cob:14.7-14.15: + 11 CONTINUE + 12 >> DISPLAY "NOT OK (no definitions)" + 13 . + 14 > >>END-IF +---- ^^^^^^^^ + 15 >>ELSE + 16 CONTINUE +>> Error: Malformed or unknown compiler directive + +syn_misc.at-7027-prog.cob:15.7-15.13: + 12 >> DISPLAY "NOT OK (no definitions)" + 13 . + 14 >>END-IF + 15 > >>ELSE +---- ^^^^^^ + 16 CONTINUE + 17 >> DISPLAY "OK" +>> Error: Malformed or unknown compiler directive + +syn_misc.at-7027-prog.cob:17.7-17.17: + 14 >>END-IF + 15 >>ELSE + 16 CONTINUE + 17 > >> DISPLAY "OK" +---- ^^^^^^^^^^ + 18 . + 19 >>END-IF +>> Error: Invalid syntax + +syn_misc.at-7027-prog.cob:19.7-19.15: + 16 CONTINUE + 17 >> DISPLAY "OK" + 18 . + 19 > >>END-IF +---- ^^^^^^^^ +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7051:0 +syn_misc.at-7051-prog.cob:5.7-5.24: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 > >>IF A IS DEFINED +---- ^^^^^^^^^^^^^^^^^ + 6 CONTINUE + 7 . +>> Error: Malformed or unknown compiler directive + +syn_misc.at-7051-prog.cob:8.7-8.13: + 5 >>IF A IS DEFINED + 6 CONTINUE + 7 . + 8 > >>else +---- ^^^^^^ + 9 CONTINUE + 10 . +>> Error: Malformed or unknown compiler directive + +syn_misc.at-7051-prog.cob:11.7-11.15: + 8 >>else + 9 CONTINUE + 10 . + 11 > >>eNd-If +---- ^^^^^^^^ +>> Error: Malformed or unknown compiler directive + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7109:0 +syn_misc.at-7109-prog.cob:8.7-8.19: + 5 WORKING-STORAGE SECTION. + 6 78 Y VALUE 'a'. + 7 PROCEDURE DIVISION. + 8 > $IF X DEFINED +---- ^^^^^^^^^^^^ + 9 $DISPLAY X defined + 10 $ELIF Y DEFINED +>> Error: Unexpected characters + +syn_misc.at-7109-prog.cob:9.7-9.24: + 6 78 Y VALUE 'a'. + 7 PROCEDURE DIVISION. + 8 $IF X DEFINED + 9 > $DISPLAY X defined +---- ^^^^^^^^^^^^^^^^^ + 10 $ELIF Y DEFINED + 11 $DISPLAY X not defined, but Y via lvl 78 +>> Error: Unexpected characters + +syn_misc.at-7109-prog.cob:10.7-10.21: + 7 PROCEDURE DIVISION. + 8 $IF X DEFINED + 9 $DISPLAY X defined + 10 > $ELIF Y DEFINED +---- ^^^^^^^^^^^^^^ + 11 $DISPLAY X not defined, but Y via lvl 78 + 12 $ELSE +>> Error: Unexpected characters + +syn_misc.at-7109-prog.cob:11.7-11.46: + 8 $IF X DEFINED + 9 $DISPLAY X defined + 10 $ELIF Y DEFINED + 11 > $DISPLAY X not defined, but Y via lvl 78 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 12 $ELSE + 13 $DISPLAY X not defined +>> Error: Unexpected characters + +syn_misc.at-7109-prog.cob:12.7-12.11: + 9 $DISPLAY X defined + 10 $ELIF Y DEFINED + 11 $DISPLAY X not defined, but Y via lvl 78 + 12 > $ELSE +---- ^^^^ + 13 $DISPLAY X not defined + 14 $END +>> Error: Unexpected characters + +syn_misc.at-7109-prog.cob:13.7-13.28: + 10 $ELIF Y DEFINED + 11 $DISPLAY X not defined, but Y via lvl 78 + 12 $ELSE + 13 > $DISPLAY X not defined +---- ^^^^^^^^^^^^^^^^^^^^^ + 14 $END + 15 CONTINUE +>> Error: Unexpected characters + +syn_misc.at-7109-prog.cob:14.7-14.10: + 11 $DISPLAY X not defined, but Y via lvl 78 + 12 $ELSE + 13 $DISPLAY X not defined + 14 > $END +---- ^^^ + 15 CONTINUE + 16 . +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7160:0 +syn_misc.at-7160-prog.cob:11.7-11.17: + 8 78 X VALUE 2. + 9 78 Z VALUE 354. + 10 PROCEDURE DIVISION. + 11 > $IF Y = Y2X +---- ^^^^^^^^^^ + 12 $DISPLAY correct Y = Y2 + 13 $ELSE +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:12.7-12.29: + 9 78 Z VALUE 354. + 10 PROCEDURE DIVISION. + 11 $IF Y = Y2X + 12 > $DISPLAY correct Y = Y2 +---- ^^^^^^^^^^^^^^^^^^^^^^ + 13 $ELSE + 14 $DISPLAY bad: Y should be = Y2 +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:13.7-13.11: + 10 PROCEDURE DIVISION. + 11 $IF Y = Y2X + 12 $DISPLAY correct Y = Y2 + 13 > $ELSE +---- ^^^^ + 14 $DISPLAY bad: Y should be = Y2 + 15 $END +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:14.7-14.36: + 11 $IF Y = Y2X + 12 $DISPLAY correct Y = Y2 + 13 $ELSE + 14 > $DISPLAY bad: Y should be = Y2 +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 15 $END + 16 $IF Y > X +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:15.7-15.10: + 12 $DISPLAY correct Y = Y2 + 13 $ELSE + 14 $DISPLAY bad: Y should be = Y2 + 15 > $END +---- ^^^ + 16 $IF Y > X + 17 $DISPLAY BAD - Y is not > X +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:16.7-16.15: + 13 $ELSE + 14 $DISPLAY bad: Y should be = Y2 + 15 $END + 16 > $IF Y > X +---- ^^^^^^^^ + 17 $DISPLAY BAD - Y is not > X + 18 $ELIF Y < X +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:17.7-17.33: + 14 $DISPLAY bad: Y should be = Y2 + 15 $END + 16 $IF Y > X + 17 > $DISPLAY BAD - Y is not > X +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 18 $ELIF Y < X + 19 $DISPLAY correct Y < X +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:18.7-18.17: + 15 $END + 16 $IF Y > X + 17 $DISPLAY BAD - Y is not > X + 18 > $ELIF Y < X +---- ^^^^^^^^^^ + 19 $DISPLAY correct Y < X + 20 $ELSE +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:19.7-19.28: + 16 $IF Y > X + 17 $DISPLAY BAD - Y is not > X + 18 $ELIF Y < X + 19 > $DISPLAY correct Y < X +---- ^^^^^^^^^^^^^^^^^^^^^ + 20 $ELSE + 21 $DISPLAY BROKEN +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:20.7-20.11: + 17 $DISPLAY BAD - Y is not > X + 18 $ELIF Y < X + 19 $DISPLAY correct Y < X + 20 > $ELSE +---- ^^^^ + 21 $DISPLAY BROKEN + 22 $END +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:21.7-21.21: + 18 $ELIF Y < X + 19 $DISPLAY correct Y < X + 20 $ELSE + 21 > $DISPLAY BROKEN +---- ^^^^^^^^^^^^^^ + 22 $END + 23 +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:22.7-22.10: + 19 $DISPLAY correct Y < X + 20 $ELSE + 21 $DISPLAY BROKEN + 22 > $END +---- ^^^ + 23 + 24 $IF X > Y +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:24.7-24.15: + 21 $DISPLAY BROKEN + 22 $END + 23 + 24 > $IF X > Y +---- ^^^^^^^^ + 25 $DISPLAY correct X > Y + 26 $ELIF X < Y +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:25.7-25.28: + 22 $END + 23 + 24 $IF X > Y + 25 > $DISPLAY correct X > Y +---- ^^^^^^^^^^^^^^^^^^^^^ + 26 $ELIF X < Y + 27 $DISPLAY BAD - X is not < Y +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:26.7-26.17: + 23 + 24 $IF X > Y + 25 $DISPLAY correct X > Y + 26 > $ELIF X < Y +---- ^^^^^^^^^^ + 27 $DISPLAY BAD - X is not < Y + 28 $ELSE +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:27.7-27.33: + 24 $IF X > Y + 25 $DISPLAY correct X > Y + 26 $ELIF X < Y + 27 > $DISPLAY BAD - X is not < Y +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 28 $ELSE + 29 $DISPLAY BROKEN +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:28.7-28.11: + 25 $DISPLAY correct X > Y + 26 $ELIF X < Y + 27 $DISPLAY BAD - X is not < Y + 28 > $ELSE +---- ^^^^ + 29 $DISPLAY BROKEN + 30 $END +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:29.7-29.21: + 26 $ELIF X < Y + 27 $DISPLAY BAD - X is not < Y + 28 $ELSE + 29 > $DISPLAY BROKEN +---- ^^^^^^^^^^^^^^ + 30 $END + 31 CONTINUE +>> Error: Unexpected characters + +syn_misc.at-7160-prog.cob:30.7-30.10: + 27 $DISPLAY BAD - X is not < Y + 28 $ELSE + 29 $DISPLAY BROKEN + 30 > $END +---- ^^^ + 31 CONTINUE + 32 . +>> Error: Unexpected characters + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7193:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7264:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7417:0 +syn_misc.at-7417-prog.cob:41.18: + 38 05 FILLER REDEFINES IN-NAME PIC X(20) *> should PIC be optional? + 39 PRESENT WHEN IN-TYPE = 2 + 40 DESTINATION OUT-NAME. + 41 > 88 VALUE SPACES IS VALID. +---- ^ + 42 *>The values of IN-WEEK are checked to be in non-descending order. + 43 05 IN-WEEK PIC 99 OCCURS 5 +>> Hint: Missing + +syn_misc.at-7417-prog.cob:41.33-41.38: + 38 05 FILLER REDEFINES IN-NAME PIC X(20) *> should PIC be optional? + 39 PRESENT WHEN IN-TYPE = 2 + 40 DESTINATION OUT-NAME. + 41 > 88 VALUE SPACES IS VALID. +---- ^^^^^ + 42 *>The values of IN-WEEK are checked to be in non-descending order. + 43 05 IN-WEEK PIC 99 OCCURS 5 +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:41.46-41.48: + 38 05 FILLER REDEFINES IN-NAME PIC X(20) *> should PIC be optional? + 39 PRESENT WHEN IN-TYPE = 2 + 40 DESTINATION OUT-NAME. + 41 > 88 VALUE SPACES IS VALID. +---- ^^ + 42 *>The values of IN-WEEK are checked to be in non-descending order. + 43 05 IN-WEEK PIC 99 OCCURS 5 +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:45.16-45.23: + 42 *>The values of IN-WEEK are checked to be in non-descending order. + 43 05 IN-WEEK PIC 99 OCCURS 5 + 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 + 45 > INVALID WHEN IN-WEEK-NO < 5 +---- ^^^^^^^ + 46 AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) + 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:45.39: + 42 *>The values of IN-WEEK are checked to be in non-descending order. + 43 05 IN-WEEK PIC 99 OCCURS 5 + 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 + 45 > INVALID WHEN IN-WEEK-NO < 5 +---- ^ + 46 AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) + 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), +>> Hint: Missing . + +syn_misc.at-7417-prog.cob:45.40-45.41: + 42 *>The values of IN-WEEK are checked to be in non-descending order. + 43 05 IN-WEEK PIC 99 OCCURS 5 + 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 + 45 > INVALID WHEN IN-WEEK-NO < 5 +---- ^ + 46 AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) + 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:46.16-46.19: + 43 05 IN-WEEK PIC 99 OCCURS 5 + 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 + 45 INVALID WHEN IN-WEEK-NO < 5 + 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) +---- ^^^ + 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), + 48 *>or zero for any one that failed the format (PICTURE) test. +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:46.27: + 43 05 IN-WEEK PIC 99 OCCURS 5 + 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 + 45 INVALID WHEN IN-WEEK-NO < 5 + 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) +---- ^ + 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), + 48 *>or zero for any one that failed the format (PICTURE) test. +>> Hint: Missing RENAMES + +syn_misc.at-7417-prog.cob:46.28-46.40: + 43 05 IN-WEEK PIC 99 OCCURS 5 + 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 + 45 INVALID WHEN IN-WEEK-NO < 5 + 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) +---- ^^^^^^^^^^^^ + 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), + 48 *>or zero for any one that failed the format (PICTURE) test. +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:46.39-46.40: + 43 05 IN-WEEK PIC 99 OCCURS 5 + 44 VARYING IN-WEEK-NO FROM 1, IN-NEXT-WEEK-NO FROM 2 + 45 INVALID WHEN IN-WEEK-NO < 5 + 46 > AND IN-WEEK (IN-WEEK-NO) > IN-WEEK (IN-NEXT-WEEK-NO) +---- ^ + 47 *>OUT-WEEK (1) to (5) will hold the values of IN-WEEK (1) to (5), + 48 *>or zero for any one that failed the format (PICTURE) test. +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:51.17: + 48 *>or zero for any one that failed the format (PICTURE) test. + 49 DESTINATION OUT-WEEK (IN-WEEK-NO). + 50 *>The 88-level INVALID entries check for invalid ranges of values. + 51 > 88 VALUES 0, 53 THRU 99 ARE INVALID. +---- ^ + 52 *>REDEFINES and another PRESENT WHEN define an alternate format. + 53 03 IN-REC-FORMAT-2 REDEFINES IN-REC-FORMAT-1 +>> Hint: Missing + +syn_misc.at-7417-prog.cob:51.19-51.25: + 48 *>or zero for any one that failed the format (PICTURE) test. + 49 DESTINATION OUT-WEEK (IN-WEEK-NO). + 50 *>The 88-level INVALID entries check for invalid ranges of values. + 51 > 88 VALUES 0, 53 THRU 99 ARE INVALID. +---- ^^^^^^ + 52 *>REDEFINES and another PRESENT WHEN define an alternate format. + 53 03 IN-REC-FORMAT-2 REDEFINES IN-REC-FORMAT-1 +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:51.40-51.43: + 48 *>or zero for any one that failed the format (PICTURE) test. + 49 DESTINATION OUT-WEEK (IN-WEEK-NO). + 50 *>The 88-level INVALID entries check for invalid ranges of values. + 51 > 88 VALUES 0, 53 THRU 99 ARE INVALID. +---- ^^^ + 52 *>REDEFINES and another PRESENT WHEN define an alternate format. + 53 03 IN-REC-FORMAT-2 REDEFINES IN-REC-FORMAT-1 +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:60.68-60.71: + 57 *>The 88-level VALID entries check for valid ranges of values; + 58 *>the condition-name, if present, may be used in the usual way. + 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. + 60 > 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. +---- ^^^ + 61 *>88-level entries may also have a condition attached. + 62 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:62.19: + 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. + 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. + 61 *>88-level entries may also have a condition attached. + 62 > 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID +---- ^ + 63 WHEN IN-TYPE = 8. + 64 *>exceptional cases can be specified using PRESENT WHEN +>> Hint: Missing + +syn_misc.at-7417-prog.cob:62.39-62.45: + 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. + 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. + 61 *>88-level entries may also have a condition attached. + 62 > 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID +---- ^^^^^^ + 63 WHEN IN-TYPE = 8. + 64 *>exceptional cases can be specified using PRESENT WHEN +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:62.75-62.78: + 59 *>The following assume that DECIMAL POINT IS COMMA is not specified. + 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. + 61 *>88-level entries may also have a condition attached. + 62 > 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID +---- ^^^ + 63 WHEN IN-TYPE = 8. + 64 *>exceptional cases can be specified using PRESENT WHEN +>> Error: Invalid syntax + +syn_misc.at-7417-prog.cob:63.43: + 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. + 61 *>88-level entries may also have a condition attached. + 62 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID + 63 > WHEN IN-TYPE = 8. +---- ^ + 64 *>exceptional cases can be specified using PRESENT WHEN + 65 05 IN-CODE PIC AX(3)9(4) +>> Hint: Missing FALSE + +syn_misc.at-7417-prog.cob:63.44-63.51: + 60 88 IN-PAY-OK VALUES "10,000.00" THRU "20,000.00" ARE VALID. + 61 *>88-level entries may also have a condition attached. + 62 88 VALUES "20,000.01" THRU "30,000.00" ARE VALID + 63 > WHEN IN-TYPE = 8. +---- ^^^^^^^ + 64 *>exceptional cases can be specified using PRESENT WHEN + 65 05 IN-CODE PIC AX(3)9(4) +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7524:0 +syn_misc.at-7524-prog.cob:48.49-48.50: + 45 77 x36 pic x(36) is typedef. + 46 * In the following block, "sync" prevents SIGBUS errors on SOLARIS systems. + 47 01 special-data. + 48 > 05 r2d2 usage bit pic 111 value b'110'. +---- ^ + 49 *> disabled for now because of varying size + 50 *> 05 point usage pointer sync. +>> Error: Invalid syntax + +syn_misc.at-7524-prog.cob:55.30: + 52 *> 05 idx usage index sync. + 53 *> 05 hnd usage handle sync. + 54 01 alphanumeric-data. + 55 > 05 alpnum usage x36 value "some numb3rs 4 n00bs l1k3 m3". +---- ^ + 56 05 alpha pic a(36) value "thats some text". + 57 05 edit-num1 pic --9.999. +>> Hint: Missing BINARY + +syn_misc.at-7524-prog.cob:55.31-55.34: + 52 *> 05 idx usage index sync. + 53 *> 05 hnd usage handle sync. + 54 01 alphanumeric-data. + 55 > 05 alpnum usage x36 value "some numb3rs 4 n00bs l1k3 m3". +---- ^^^ + 56 05 alpha pic a(36) value "thats some text". + 57 05 edit-num1 pic --9.999. +>> Error: Invalid syntax + +syn_misc.at-7524-prog.cob:79.45-79.47: + 76 01 x-rms. + 77 05 x-rms-a pic x(01) value space. + 78 01 filler redefines x-rms pic x(01). + 79 > 88 sw-x-rms-full value "X" or "A" thru "C" or QUOTE. +---- ^^ + 80 + 81 local-storage section. +>> Error: Invalid syntax + +syn_misc.at-7524-prog.cob:79.61-79.63: + 76 01 x-rms. + 77 05 x-rms-a pic x(01) value space. + 78 01 filler redefines x-rms pic x(01). + 79 > 88 sw-x-rms-full value "X" or "A" thru "C" or QUOTE. +---- ^^ + 80 + 81 local-storage section. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7712:0 +syn_misc.at-7712-empty.cob:2.7-2.33: + 1 + 2 > CONTROL DIVISION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. empty. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7729:0 +syn_misc.at-7729-replace.cob:2.7-2.33: + 1 + 2 > CONTROL DIVISION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 3 SUBSTITUTION SECTION. + 4 REPLACE ==TEST-VAR== BY ==VAR==. +>> Error: CONTROL DIVISION does not conform to default + +syn_misc.at-7729-replace.cob:6.18: + 3 SUBSTITUTION SECTION. + 4 REPLACE ==TEST-VAR== BY ==VAR==. + 5 IDENTIFICATION DIVISION. + 6 > PROGRAM-ID. replace. +---- ^ + 7 DATA DIVISION. + 8 WORKING-STORAGE SECTION. +>> Hint: Missing + +syn_misc.at-7729-replace.cob:6.24-6.31: + 3 SUBSTITUTION SECTION. + 4 REPLACE ==TEST-VAR== BY ==VAR==. + 5 IDENTIFICATION DIVISION. + 6 > PROGRAM-ID. replace. +---- ^^^^^^^ + 7 DATA DIVISION. + 8 WORKING-STORAGE SECTION. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7772:0 +syn_misc.at-7772-prog.cob:2.7-3.24: + 1 + 2 > CONTROL DIVISION. +---- ^^^^^^^^^^^^^^^^^ + 3 > DEFAULT SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 IDENTIFICATION DIVISION. + 5 PROGRAM-ID. prog. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7801:0 +syn_misc.at-7801-prog.cob:4.18-4.27: + 1 + 2 CONTROL DIVISION. + 3 DEFAULT SECTION. + 4 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^ + 5 DISPLAY IS TERMINAL + 6 . +>> Error: Invalid syntax + +syn_misc.at-7801-prog.cob:2.7-6.5: + 1 + 2 > CONTROL DIVISION. +---- + 3 > DEFAULT SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 5 > DISPLAY IS TERMINAL +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 6 > . +---- ^^^^^^ + 7 IDENTIFICATION DIVISION. + 8 PROGRAM-ID. prog. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7828:0 +syn_misc.at-7828-empties.cob:2.7-4.24: + 1 + 2 > CONTROL DIVISION. +---- ^^^^^^^^^^^^^^^^^ + 3 > SUBSTITUTION SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 > DEFAULT SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 5 IDENTIFICATION DIVISION. + 6 PROGRAM-ID. empties. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7842:0 +syn_misc.at-7842-empty0.cob:5.18-5.27: + 2 CONTROL DIVISION. + 3 SUBSTITUTION SECTION. + 4 DEFAULT SECTION. + 5 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^ + 6 . + 7 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +syn_misc.at-7842-empty0.cob:2.7-6.5: + 1 + 2 > CONTROL DIVISION. +---- + 3 > SUBSTITUTION SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 > DEFAULT SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 5 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 6 > . +---- ^^^^^^ + 7 IDENTIFICATION DIVISION. + 8 PROGRAM-ID. empty0. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7861:0 +syn_misc.at-7861-empty1.cob:2.7-5.24: + 1 + 2 > CONTROL DIVISION. +---- ^^^^^^^^^^^^^^^^^ + 3 > SUBSTITUTION SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 > REPLACE "KO" BY "OK". +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 5 > DEFAULT SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 6 IDENTIFICATION DIVISION. + 7 PROGRAM-ID. empty1. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7885:0 +syn_misc.at-7885-prog.cob:4.27-4.29: + 1 + 2 CONTROL DIVISION. + 3 SUBSTITUTION SECTION. + 4 > REPLACE IISS BY IS +---- ^^ + 5 TERM BY TERMINAL + 6 "KO" BY "OK". +>> Error: Malformed REPLACE statement + +syn_misc.at-7885-prog.cob:8.18-8.27: + 5 TERM BY TERMINAL + 6 "KO" BY "OK". + 7 DEFAULT SECTION. + 8 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^ + 9 DISPLAY IISS TERM + 10 . +>> Error: Invalid syntax + +syn_misc.at-7885-prog.cob:9.24-9.28: + 6 "KO" BY "OK". + 7 DEFAULT SECTION. + 8 ACCEPT ALTERNATE CONSOLE + 9 > DISPLAY IISS TERM +---- ^^^^ + 10 . + 11 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +syn_misc.at-7885-prog.cob:2.7-10.5: + 1 + 2 > CONTROL DIVISION. +---- + 3 > SUBSTITUTION SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 > REPLACE IISS BY IS +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 5 > TERM BY TERMINAL +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 6 > "KO" BY "OK". +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^ + 7 > DEFAULT SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > DISPLAY IISS TERM +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > . +---- ^^^^^^ + 11 IDENTIFICATION DIVISION. + 12 PROGRAM-ID. prog. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:7918:0 +syn_misc.at-7918-prog.cob:5.26-5.28: + 2 CONTROL DIVISION. + 3 SUBSTITUTION SECTION. + 4 *> This REPLACE in Area A is ignored for now: + 5 > REPLACE IISS BY IS +---- ^^ + 6 TERM BY TERMINAL + 7 "KO" BY "OK". +>> Error: Malformed REPLACE statement + +syn_misc.at-7918-prog.cob:9.17-9.26: + 6 TERM BY TERMINAL + 7 "KO" BY "OK". + 8 DEFAULT SECTION. + 9 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^ + 10 DISPLAY IISS TERM + 11 . +>> Error: Invalid syntax + +syn_misc.at-7918-prog.cob:10.23-10.27: + 7 "KO" BY "OK". + 8 DEFAULT SECTION. + 9 ACCEPT ALTERNATE CONSOLE + 10 > DISPLAY IISS TERM +---- ^^^^ + 11 . + 12 IDENTIFICATION DIVISION. +>> Error: Invalid syntax + +syn_misc.at-7918-prog.cob:2.7-11.8: + 1 + 2 > CONTROL DIVISION. +---- ^ + 3 > SUBSTITUTION SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 4 > *> This REPLACE in Area A is ignored for now: +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 5 > REPLACE IISS BY IS +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 6 > TERM BY TERMINAL +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 7 > "KO" BY "OK". +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 8 > DEFAULT SECTION. +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 9 > ACCEPT ALTERNATE CONSOLE +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 10 > DISPLAY IISS TERM +---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ + 11 > . +---- ^^^^^^^^^ + 12 IDENTIFICATION DIVISION. + 13 PROGRAM-ID. prog. +>> Error: CONTROL DIVISION does not conform to default + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8018:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8056:0 +syn_misc.at-8056-prog.cob:2.7-2.11: + 1 + 2 > $SET NO-AREA-CHECK +---- ^^^^ + 3 IDENTIFICATION DIVISION. + 4 PROGRAM-ID. prog. +>> Error: Invalid syntax + +syn_misc.at-8056-prog.cob:10.7-10.11: + 7 PROCEDURE DIVISION. + 8 MAIN-1 SECTION. + 9 DISPLAY "SOMETHING". + 10 > $SET AREA-CHECK +---- ^^^^ + 11 MAIN-2 SECTION. + 12 CONTINUE. +>> Error: Invalid syntax + +syn_misc.at-8056-prog.cob:10.22: + 7 PROCEDURE DIVISION. + 8 MAIN-1 SECTION. + 9 DISPLAY "SOMETHING". + 10 > $SET AREA-CHECK +---- ^ + 11 MAIN-2 SECTION. + 12 CONTINUE. +>> Hint: Missing ATTRIBUTE . + +syn_misc.at-8056-prog.cob:11.7-11.13: + 8 MAIN-1 SECTION. + 9 DISPLAY "SOMETHING". + 10 $SET AREA-CHECK + 11 > MAIN-2 SECTION. +---- ^^^^^^ + 12 CONTINUE. + 13 CONTINUE. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8158:0 +syn_misc.at-8158-cobol85.cob:2.31: + 1 + 2 > IDENTIFICATION DIVISION +---- ^ + 3 PROGRAM-ID. cobol85. + 4 DATA DIVISION +>> Hint: Missing . + +syn_misc.at-8158-cobol85.cob:3.7-3.17: + 1 + 2 IDENTIFICATION DIVISION + 3 > PROGRAM-ID. cobol85. +---- ^^^^^^^^^^ + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +syn_misc.at-8158-cobol85.cob:4.31: + 1 + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. cobol85. + 4 > DATA DIVISION +---- ^ + 5 WORKING-STORAGE SECTION + 6 01 X PIC X *> dot optional here because of cobol85 format +>> Hint: Missing . + +syn_misc.at-8158-cobol85.cob:5.7-5.22: + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. cobol85. + 4 DATA DIVISION + 5 > WORKING-STORAGE SECTION +---- ^^^^^^^^^^^^^^^ + 6 01 X PIC X *> dot optional here because of cobol85 format + 7 01 Y PIC X. +>> Warning: Invalid syntax + +syn_misc.at-8158-cobol85.cob:5.30: + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. cobol85. + 4 DATA DIVISION + 5 > WORKING-STORAGE SECTION +---- ^ + 6 01 X PIC X *> dot optional here because of cobol85 format + 7 01 Y PIC X. +>> Hint: Missing . + +syn_misc.at-8158-cobol85.cob:6.7-6.9: + 3 PROGRAM-ID. cobol85. + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION + 6 > 01 X PIC X *> dot optional here because of cobol85 format +---- ^^ + 7 01 Y PIC X. + 8 PROCEDURE DIVISION. +>> Warning: Invalid syntax + +syn_misc.at-8158-cobol85.cob:6.17: + 3 PROGRAM-ID. cobol85. + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION + 6 > 01 X PIC X *> dot optional here because of cobol85 format +---- ^ + 7 01 Y PIC X. + 8 PROCEDURE DIVISION. +>> Hint: Missing . + +syn_misc.at-8158-cobol85.cob:7.7-7.9: + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION + 6 01 X PIC X *> dot optional here because of cobol85 format + 7 > 01 Y PIC X. +---- ^^ + 8 PROCEDURE DIVISION. + 9 MAIN SECTION. +>> Error: Invalid syntax + +syn_misc.at-8158-cobol85.cob:11.19: + 8 PROCEDURE DIVISION. + 9 MAIN SECTION. + 10 PERFORM P + 11 > STOP RUN *> dot optional here because of cobol85 format +---- ^ + 12 P. + 13 GOBACK +>> Hint: Missing . + +syn_misc.at-8158-cobol85.cob:12.7-12.8: + 9 MAIN SECTION. + 10 PERFORM P + 11 STOP RUN *> dot optional here because of cobol85 format + 12 > P. +---- ^ + 13 GOBACK +>> Error: Invalid syntax + +syn_misc.at-8158-cobol85.cob:13.17: + 10 PERFORM P + 11 STOP RUN *> dot optional here because of cobol85 format + 12 P. + 13 > GOBACK +---- ^ +>> Hint: Missing . + +syn_misc.at-8158-cobol85.cob:14.0: + 11 STOP RUN *> dot optional here because of cobol85 format + 12 P. + 13 GOBACK +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8135:0 +syn_misc.at-8135-prog.cob:2.31: + 1 + 2 > IDENTIFICATION DIVISION +---- ^ + 3 PROGRAM-ID. prog. + 4 DATA DIVISION +>> Hint: Missing . + +syn_misc.at-8135-prog.cob:3.7-3.17: + 1 + 2 IDENTIFICATION DIVISION + 3 > PROGRAM-ID. prog. +---- ^^^^^^^^^^ + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION. +>> Warning: Invalid syntax + +syn_misc.at-8135-prog.cob:4.31: + 1 + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. prog. + 4 > DATA DIVISION +---- ^ + 5 WORKING-STORAGE SECTION. + 6 01 X PIC X. +>> Hint: Missing . + +syn_misc.at-8135-prog.cob:5.7-5.22: + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. prog. + 4 DATA DIVISION + 5 > WORKING-STORAGE SECTION. +---- ^^^^^^^^^^^^^^^ + 6 01 X PIC X. + 7 01 Y PIC X. +>> Warning: Invalid syntax + +syn_misc.at-8135-prog.cob:13.17: + 10 PERFORM P + 11 STOP RUN. + 12 P. + 13 > GOBACK +---- ^ +>> Hint: Missing . + +syn_misc.at-8135-prog.cob:14.0: + 11 STOP RUN. + 12 P. + 13 GOBACK +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8199:0 +syn_misc.at-8199-prog.cob:2.30: + 1 + 2 > IDENTIFICATION DIVISION +---- ^ + 3 PROGRAM-ID. prog. + 4 DATA DIVISION +>> Hint: Missing . + +syn_misc.at-8199-prog.cob:3.7-3.17: + 1 + 2 IDENTIFICATION DIVISION + 3 > PROGRAM-ID. prog. +---- ^^^^^^^^^^ + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION +>> Warning: Invalid syntax + +syn_misc.at-8199-prog.cob:4.20: + 1 + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. prog. + 4 > DATA DIVISION +---- ^ + 5 WORKING-STORAGE SECTION + 6 77 PMODE PIC X +>> Hint: Missing . + +syn_misc.at-8199-prog.cob:5.7-5.22: + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. prog. + 4 DATA DIVISION + 5 > WORKING-STORAGE SECTION +---- ^^^^^^^^^^^^^^^ + 6 77 PMODE PIC X + 7 PROCEDURE DIVISION. +>> Warning: Invalid syntax + +syn_misc.at-8199-prog.cob:5.30: + 2 IDENTIFICATION DIVISION + 3 PROGRAM-ID. prog. + 4 DATA DIVISION + 5 > WORKING-STORAGE SECTION +---- ^ + 6 77 PMODE PIC X + 7 PROCEDURE DIVISION. +>> Hint: Missing . + +syn_misc.at-8199-prog.cob:6.7-6.9: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION + 6 > 77 PMODE PIC X +---- ^^ + 7 PROCEDURE DIVISION. + 8 STOP RUN. +>> Warning: Invalid syntax + +syn_misc.at-8199-prog.cob:6.23: + 3 PROGRAM-ID. prog. + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION + 6 > 77 PMODE PIC X +---- ^ + 7 PROCEDURE DIVISION. + 8 STOP RUN. +>> Hint: Missing . + +syn_misc.at-8199-prog.cob:7.7-7.16: + 4 DATA DIVISION + 5 WORKING-STORAGE SECTION + 6 77 PMODE PIC X + 7 > PROCEDURE DIVISION. +---- ^^^^^^^^^ + 8 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8235:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8284:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8286:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8283:0 +Considering: import/gnucobol/tests/testsuite.src/syn_misc.at:8340:0 diff --git a/test/output-tests/syn_move.expected b/test/output-tests/syn_move.expected new file mode 100644 index 000000000..fda41aedd --- /dev/null +++ b/test/output-tests/syn_move.expected @@ -0,0 +1,3 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_move.at:150:0 +Considering: import/gnucobol/tests/testsuite.src/syn_move.at:421:0 +Considering: import/gnucobol/tests/testsuite.src/syn_move.at:510:0 diff --git a/test/output-tests/syn_occurs.expected b/test/output-tests/syn_occurs.expected new file mode 100644 index 000000000..b46de3f05 --- /dev/null +++ b/test/output-tests/syn_occurs.expected @@ -0,0 +1,89 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:51:0 +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:219:0 +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:225:0 +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:331:0 +syn_occurs.at-331-prog.cob:9.18: + 6 01 G-1. + 7 07 G-2-ELEMENTS PIC 9(08). + 8 07 G-2 + 9 > OCCURS UNBOUNDED +---- ^ + 10 DEPENDING ON G-2-ELEMENTS. + 11 10 X PIC X. +>> Hint: Missing + +syn_occurs.at-331-prog.cob:9.19-9.28: + 6 01 G-1. + 7 07 G-2-ELEMENTS PIC 9(08). + 8 07 G-2 + 9 > OCCURS UNBOUNDED +---- ^^^^^^^^^ + 10 DEPENDING ON G-2-ELEMENTS. + 11 10 X PIC X. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:339:0 +syn_occurs.at-339-prog2.cob:12.18: + 9 05 G-2. + 10 07 G-3-ELEMENTS PIC 9(08). + 11 07 G-3 + 12 > OCCURS UNBOUNDED +---- ^ + 13 DEPENDING ON G-3-ELEMENTS. + 14 10 G-4. +>> Hint: Missing + +syn_occurs.at-339-prog2.cob:12.19-12.28: + 9 05 G-2. + 10 07 G-3-ELEMENTS PIC 9(08). + 11 07 G-3 + 12 > OCCURS UNBOUNDED +---- ^^^^^^^^^ + 13 DEPENDING ON G-3-ELEMENTS. + 14 10 G-4. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:418:0 +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:503:0 +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:590:0 +syn_occurs.at-590-prog.cob:10.18-10.27: + 7 05 TAB-ENTRY1 + 8 OCCURS 5 TIMES + 9 INDEXED BY IDX1 + 10 > ASCENDING KEY IS X1 +---- ^^^^^^^^^ + 11 DESCENDING Y1. + 12 10 X1 PIC 9(4). +>> Error: Invalid syntax + +syn_occurs.at-590-prog.cob:11.18-11.28: + 8 OCCURS 5 TIMES + 9 INDEXED BY IDX1 + 10 ASCENDING KEY IS X1 + 11 > DESCENDING Y1. +---- ^^^^^^^^^^ + 12 10 X1 PIC 9(4). + 13 10 Y1 PIC X. +>> Error: Invalid syntax + +syn_occurs.at-590-prog.cob:17.18-17.28: + 14 05 TAB-ENTRY + 15 OCCURS 2 TIMES + 16 INDEXED BY IDX2 + 17 > DESCENDING KEY IS X2 +---- ^^^^^^^^^^ + 18 ASCENDING Y2. + 19 10 X2 PIC 9(4). +>> Error: Invalid syntax + +syn_occurs.at-590-prog.cob:18.18-18.27: + 15 OCCURS 2 TIMES + 16 INDEXED BY IDX2 + 17 DESCENDING KEY IS X2 + 18 > ASCENDING Y2. +---- ^^^^^^^^^ + 19 10 X2 PIC 9(4). + 20 10 Y2 PIC X. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_occurs.at:617:0 diff --git a/test/output-tests/syn_redefines.expected b/test/output-tests/syn_redefines.expected new file mode 100644 index 000000000..acb64c6ab --- /dev/null +++ b/test/output-tests/syn_redefines.expected @@ -0,0 +1,7 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:44:0 +Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:189:0 +Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:301:0 +Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:344:0 +Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:381:0 +Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:440:0 +Considering: import/gnucobol/tests/testsuite.src/syn_redefines.at:519:0 diff --git a/test/output-tests/syn_refmod.expected b/test/output-tests/syn_refmod.expected new file mode 100644 index 000000000..5feb92357 --- /dev/null +++ b/test/output-tests/syn_refmod.expected @@ -0,0 +1,3 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_refmod.at:48:0 +Considering: import/gnucobol/tests/testsuite.src/syn_refmod.at:147:0 +Considering: import/gnucobol/tests/testsuite.src/syn_refmod.at:181:0 diff --git a/test/output-tests/syn_reportwriter.expected b/test/output-tests/syn_reportwriter.expected new file mode 100644 index 000000000..4aa9e4d13 --- /dev/null +++ b/test/output-tests/syn_reportwriter.expected @@ -0,0 +1,38 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_reportwriter.at:303:0 +syn_reportwriter.at-303-prog.cob:23.23: + 20 02 LINE PLUS 0. + 21 03 COLUMN 1 PIC X(09) VALUE 'CUST. No.'. + 22 03 COLUMN PLUS 0 PIC X(09) VALUE 'ITEM'. + 23 > 02 LINE PLUS ZERO. +---- ^ + 24 03 COLUMN 1 PIC X(09) VALUE 'Cust. No.'. + 25 03 COLUMN + 10 PIC X(09) VALUE 'Item'. +>> Hint: Missing + +syn_reportwriter.at-303-prog.cob:23.24-23.28: + 20 02 LINE PLUS 0. + 21 03 COLUMN 1 PIC X(09) VALUE 'CUST. No.'. + 22 03 COLUMN PLUS 0 PIC X(09) VALUE 'ITEM'. + 23 > 02 LINE PLUS ZERO. +---- ^^^^ + 24 03 COLUMN 1 PIC X(09) VALUE 'Cust. No.'. + 25 03 COLUMN + 10 PIC X(09) VALUE 'Item'. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_reportwriter.at:621:0 +syn_reportwriter.at-621-prog.cob:17.43: + 14 + 15 REPORT SECTION. + 16 RD r. + 17 > 01 r0 TYPE DETAIL, PRESENT AFTER NEW f-rec. +---- ^ +>> Hint: Missing WHEN + +syn_reportwriter.at-621-prog.cob:17.44-17.49: + 14 + 15 REPORT SECTION. + 16 RD r. + 17 > 01 r0 TYPE DETAIL, PRESENT AFTER NEW f-rec. +---- ^^^^^ +>> Error: Invalid syntax + diff --git a/test/output-tests/syn_screen.expected b/test/output-tests/syn_screen.expected new file mode 100644 index 000000000..cd61c60b1 --- /dev/null +++ b/test/output-tests/syn_screen.expected @@ -0,0 +1,564 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:243:0 +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:334:0 +syn_screen.at-334-prog.cob:9.37-9.41: + 6 01 foo PIC X. + 7 SCREEN SECTION. + 8 01 scr. + 9 > 03 a PIC X TO foo FULL, REQUIRED, +---- ^^^^ + 10 LEFTLINE, RIGHTLINE, OVERLINE, UNDERLINE, + 11 GRID. +>> Error: Invalid syntax + +syn_screen.at-334-prog.cob:10.24-10.32: + 7 SCREEN SECTION. + 8 01 scr. + 9 03 a PIC X TO foo FULL, REQUIRED, + 10 > LEFTLINE, RIGHTLINE, OVERLINE, UNDERLINE, +---- ^^^^^^^^ + 11 GRID. + 12 PROCEDURE DIVISION. +>> Error: Invalid syntax + +syn_screen.at-334-prog.cob:11.24-11.28: + 8 01 scr. + 9 03 a PIC X TO foo FULL, REQUIRED, + 10 LEFTLINE, RIGHTLINE, OVERLINE, UNDERLINE, + 11 > GRID. +---- ^^^^ + 12 PROCEDURE DIVISION. + 13 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:367:0 +syn_screen.at-367-prog.cob:16.15-16.21: + 13 END-ACCEPT + 14 + 15 ACCEPT foo + 16 > ESCAPE +---- ^^^^^^ + 17 CONTINUE + 18 NOT ON ESCAPE +>> Error: Invalid syntax + +syn_screen.at-367-prog.cob:18.15-18.18: + 15 ACCEPT foo + 16 ESCAPE + 17 CONTINUE + 18 > NOT ON ESCAPE +---- ^^^ + 19 CONTINUE + 20 END-ACCEPT +>> Error: Invalid syntax + +syn_screen.at-367-prog.cob:20.11-20.21: + 17 CONTINUE + 18 NOT ON ESCAPE + 19 CONTINUE + 20 > END-ACCEPT +---- ^^^^^^^^^^ + 21 . +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:556:0 +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:587:0 +syn_screen.at-587-prog.cob:9.13-9.31: + 6 SCREEN SECTION. + 7 01 SG. + 8 05 LINE 21 COL 1 VALUE "TESTING". + 9 > 05 " IMPLICIT VALUE " HIGHLIGHT. +---- ^^^^^^^^^^^^^^^^^^ + 10 PROCEDURE DIVISION. + 11 DISPLAY SG END-DISPLAY. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:609:0 +syn_screen.at-609-prog.cob:11.45-11.49: + 8 + 9 SCREEN SECTION. + 10 01 scr. + 11 > 03 full-pointless PIC 999 TO num FULL. +---- ^^^^ + 12 03 full-useful PIC ZZZ TO num FULL. +>> Error: Invalid syntax + +syn_screen.at-609-prog.cob:12.42-12.46: + 9 SCREEN SECTION. + 10 01 scr. + 11 03 full-pointless PIC 999 TO num FULL. + 12 > 03 full-useful PIC ZZZ TO num FULL. +---- ^^^^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:758:0 +syn_screen.at-758-prog.cob:19.50-19.54: + 16 03 only-pic PIC 9. + 17 03 from-to-using-without-pic FROM x. + 18 03 auto-without-from-to-using PIC 9 AUTO. + 19 > 03 full-without-to-using PIC X FROM x FULL. +---- ^^^^ + 20 03 full-and-justified PIC X USING x, FULL, JUST. + 21 03 secure-with-from PIC X FROM x SECURE. +>> Error: Invalid syntax + +syn_screen.at-758-prog.cob:20.49-20.53: + 17 03 from-to-using-without-pic FROM x. + 18 03 auto-without-from-to-using PIC 9 AUTO. + 19 03 full-without-to-using PIC X FROM x FULL. + 20 > 03 full-and-justified PIC X USING x, FULL, JUST. +---- ^^^^ + 21 03 secure-with-from PIC X FROM x SECURE. + 22 03 secure-justified-no-clauses VALUE "Hello" SECURE, JUST. +>> Error: Invalid syntax + +syn_screen.at-758-prog.cob:33.39-33.43: + 30 03 numeric-value-no-pic VALUE 1. + 31 + 32 01 always-ok-scr. + 33 > 03 my-group LINE 1, COL 1, FULL. +---- ^^^^ + 34 05 PIC X FROM "x" TO x. + 35 05 PIC Z USING num. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:817:0 +syn_screen.at-817-prog.cob:10.37: + 7 01 A PIC X. + 8 PROCEDURE DIVISION. + 9 DISPLAY ERASE + 10 > MOVE 10 TO LIN. MOVE 15 TO COL. +---- ^ + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. +>> Hint: Missing + +syn_screen.at-817-prog.cob:10.38-10.41: + 7 01 A PIC X. + 8 PROCEDURE DIVISION. + 9 DISPLAY ERASE + 10 > MOVE 10 TO LIN. MOVE 15 TO COL. +---- ^^^ + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:11.19-11.23: + 8 PROCEDURE DIVISION. + 9 DISPLAY ERASE + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 > DISPLAY (LIN , COL - 3) FIELD-A. +---- ^^^^ + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:11.26-11.29: + 8 PROCEDURE DIVISION. + 9 DISPLAY ERASE + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 > DISPLAY (LIN , COL - 3) FIELD-A. +---- ^^^ + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:11.33-11.34: + 8 PROCEDURE DIVISION. + 9 DISPLAY ERASE + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 > DISPLAY (LIN , COL - 3) FIELD-A. +---- ^ + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:12.19-12.23: + 9 DISPLAY ERASE + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 > DISPLAY (LIN + 1 , COL) FIELD-A. +---- ^^^^ + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:12.24-12.25: + 9 DISPLAY ERASE + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 > DISPLAY (LIN + 1 , COL) FIELD-A. +---- ^ + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:12.30-12.34: + 9 DISPLAY ERASE + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 > DISPLAY (LIN + 1 , COL) FIELD-A. +---- ^^^^ + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:13.17: + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 > ACCEPT ( , 10) A. +---- ^ + 14 DISPLAY (08 , 12) FIELD-A. + 15 ACCEPT ( , 08) A WITH NO-ECHO. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:13.19-13.20: + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 > ACCEPT ( , 10) A. +---- ^ + 14 DISPLAY (08 , 12) FIELD-A. + 15 ACCEPT ( , 08) A WITH NO-ECHO. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:13.28: + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 > ACCEPT ( , 10) A. +---- ^ + 14 DISPLAY (08 , 12) FIELD-A. + 15 ACCEPT ( , 08) A WITH NO-ECHO. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:13.27-13.28: + 10 MOVE 10 TO LIN. MOVE 15 TO COL. + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 > ACCEPT ( , 10) A. +---- ^ + 14 DISPLAY (08 , 12) FIELD-A. + 15 ACCEPT ( , 08) A WITH NO-ECHO. +>> Warning: Invalid syntax + +syn_screen.at-817-prog.cob:14.19-14.22: + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. + 14 > DISPLAY (08 , 12) FIELD-A. +---- ^^^ + 15 ACCEPT ( , 08) A WITH NO-ECHO. + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:14.27-14.28: + 11 DISPLAY (LIN , COL - 3) FIELD-A. + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. + 14 > DISPLAY (08 , 12) FIELD-A. +---- ^ + 15 ACCEPT ( , 08) A WITH NO-ECHO. + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:15.17: + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. + 15 > ACCEPT ( , 08) A WITH NO-ECHO. +---- ^ + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. + 17 ACCEPT A AT COLUMN 8. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:15.19-15.20: + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. + 15 > ACCEPT ( , 08) A WITH NO-ECHO. +---- ^ + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. + 17 ACCEPT A AT COLUMN 8. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:15.28: + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. + 15 > ACCEPT ( , 08) A WITH NO-ECHO. +---- ^ + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. + 17 ACCEPT A AT COLUMN 8. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:15.27-15.28: + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. + 15 > ACCEPT ( , 08) A WITH NO-ECHO. +---- ^ + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. + 17 ACCEPT A AT COLUMN 8. +>> Warning: Invalid syntax + +syn_screen.at-817-prog.cob:15.31-15.35: + 12 DISPLAY (LIN + 1 , COL) FIELD-A. + 13 ACCEPT ( , 10) A. + 14 DISPLAY (08 , 12) FIELD-A. + 15 > ACCEPT ( , 08) A WITH NO-ECHO. +---- ^^^^ + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. + 17 ACCEPT A AT COLUMN 8. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:19.27-19.30: + 16 DISPLAY FIELD-A AT LINE 06 COLUMN 12. + 17 ACCEPT A AT COLUMN 8. + 18 SUBTRACT 2 FROM LIN. + 19 > SUBTRACT 3 FROM COL. +---- ^^^ + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 ACCEPT ( , 10) A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:20.45: + 17 ACCEPT A AT COLUMN 8. + 18 SUBTRACT 2 FROM LIN. + 19 SUBTRACT 3 FROM COL. + 20 > DISPLAY FIELD-A AT LINE LIN COLUMN COL. +---- ^ + 21 ACCEPT ( , 10) A. + 22 DISPLAY ( 1 , 1 ) ERASE. +>> Hint: Missing + +syn_screen.at-817-prog.cob:20.46-20.49: + 17 ACCEPT A AT COLUMN 8. + 18 SUBTRACT 2 FROM LIN. + 19 SUBTRACT 3 FROM COL. + 20 > DISPLAY FIELD-A AT LINE LIN COLUMN COL. +---- ^^^ + 21 ACCEPT ( , 10) A. + 22 DISPLAY ( 1 , 1 ) ERASE. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:21.17: + 18 SUBTRACT 2 FROM LIN. + 19 SUBTRACT 3 FROM COL. + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 > ACCEPT ( , 10) A. +---- ^ + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:21.19-21.20: + 18 SUBTRACT 2 FROM LIN. + 19 SUBTRACT 3 FROM COL. + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 > ACCEPT ( , 10) A. +---- ^ + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:21.28: + 18 SUBTRACT 2 FROM LIN. + 19 SUBTRACT 3 FROM COL. + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 > ACCEPT ( , 10) A. +---- ^ + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:21.27-21.28: + 18 SUBTRACT 2 FROM LIN. + 19 SUBTRACT 3 FROM COL. + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 > ACCEPT ( , 10) A. +---- ^ + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. +>> Warning: Invalid syntax + +syn_screen.at-817-prog.cob:22.19-22.20: + 19 SUBTRACT 3 FROM COL. + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 ACCEPT ( , 10) A. + 22 > DISPLAY ( 1 , 1 ) ERASE. +---- ^ + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:22.27-22.28: + 19 SUBTRACT 3 FROM COL. + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 ACCEPT ( , 10) A. + 22 > DISPLAY ( 1 , 1 ) ERASE. +---- ^ + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:23.19-23.20: + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 ACCEPT ( , 10) A. + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 > DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. +---- ^ + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:23.27-23.28: + 20 DISPLAY FIELD-A AT LINE LIN COLUMN COL. + 21 ACCEPT ( , 10) A. + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 > DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. +---- ^ + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:24.19-24.20: + 21 ACCEPT ( , 10) A. + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 > DISPLAY ( 3 , 1 ) A " --> A value" +---- ^ + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 ACCEPT (11 , 1 ) A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:24.27-24.28: + 21 ACCEPT ( , 10) A. + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 > DISPLAY ( 3 , 1 ) A " --> A value" +---- ^ + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 ACCEPT (11 , 1 ) A. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:25.19-25.20: + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 > DISPLAY ( 5 , 1 ) "Press ENTER to exit". +---- ^ + 26 ACCEPT (11 , 1 ) A. + 27 STOP RUN. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:25.27-25.28: + 22 DISPLAY ( 1 , 1 ) ERASE. + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 > DISPLAY ( 5 , 1 ) "Press ENTER to exit". +---- ^ + 26 ACCEPT (11 , 1 ) A. + 27 STOP RUN. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:26.17: + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 > ACCEPT (11 , 1 ) A. +---- ^ + 27 STOP RUN. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:26.18-26.21: + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 > ACCEPT (11 , 1 ) A. +---- ^^^ + 27 STOP RUN. +>> Error: Invalid syntax + +syn_screen.at-817-prog.cob:26.21: + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 > ACCEPT (11 , 1 ) A. +---- ^ + 27 STOP RUN. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:26.24-26.25: + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 > ACCEPT (11 , 1 ) A. +---- ^ + 27 STOP RUN. +>> Warning: Invalid syntax + +syn_screen.at-817-prog.cob:26.25: + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 > ACCEPT (11 , 1 ) A. +---- ^ + 27 STOP RUN. +>> Hint: Missing . + +syn_screen.at-817-prog.cob:26.26-26.27: + 23 DISPLAY ( 2 , 1 ) "Field value : ", FIELD-A. + 24 DISPLAY ( 3 , 1 ) A " --> A value" + 25 DISPLAY ( 5 , 1 ) "Press ENTER to exit". + 26 > ACCEPT (11 , 1 ) A. +---- ^ + 27 STOP RUN. +>> Warning: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/syn_screen.at:880:0 +syn_screen.at-880-prog.cob:7.18: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > DISPLAY WITH CONVERSION "Whatever". +---- ^ + 8 STOP RUN. +>> Hint: Missing + +syn_screen.at-880-prog.cob:7.19-7.23: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > DISPLAY WITH CONVERSION "Whatever". +---- ^^^^ + 8 STOP RUN. +>> Error: Invalid syntax + +syn_screen.at-880-prog.cob:7.23: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > DISPLAY WITH CONVERSION "Whatever". +---- ^ + 8 STOP RUN. +>> Hint: Missing NO ADVANCING . + +syn_screen.at-880-prog.cob:7.24-7.34: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > DISPLAY WITH CONVERSION "Whatever". +---- ^^^^^^^^^^ + 8 STOP RUN. +>> Error: Invalid syntax + +syn_screen.at-880-prog.cob:7.35-7.45: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. + 6 PROCEDURE DIVISION. + 7 > DISPLAY WITH CONVERSION "Whatever". +---- ^^^^^^^^^^ + 8 STOP RUN. +>> Error: Invalid syntax + diff --git a/test/output-tests/syn_subscripts.expected b/test/output-tests/syn_subscripts.expected new file mode 100644 index 000000000..43b4eefe9 --- /dev/null +++ b/test/output-tests/syn_subscripts.expected @@ -0,0 +1 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_subscripts.at:88:0 diff --git a/test/output-tests/syn_value.expected b/test/output-tests/syn_value.expected new file mode 100644 index 000000000..e1dec91a3 --- /dev/null +++ b/test/output-tests/syn_value.expected @@ -0,0 +1,8 @@ +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:205:0 +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:233:0 +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:315:0 +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:343:0 +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:369:0 +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:407:0 +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:441:0 +Considering: import/gnucobol/tests/testsuite.src/syn_value.at:514:0 diff --git a/test/output-tests/used_binaries.expected b/test/output-tests/used_binaries.expected new file mode 100644 index 000000000..1a72c8bc4 --- /dev/null +++ b/test/output-tests/used_binaries.expected @@ -0,0 +1,227 @@ +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:71:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:193:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:254:0 +used_binaries.at-254-prog.cob:10.8-10.18: + 7 PROCEDURE DIVISION. + 8 MAIN-PROC SECTION. + 9 00. + 10 > COPY PROC. +---- ^^^^^^^^^^ + 11 END-PROC SECTION. + 12 COPY PROCE in "sub". +>> Error: Library `PROC' not found in search path (search path: ) + +used_binaries.at-254-prog.cob:12.8-12.28: + 9 00. + 10 COPY PROC. + 11 END-PROC SECTION. + 12 > COPY PROCE in "sub". +---- ^^^^^^^^^^^^^^^^^^^^ + 13 EX. + 14 STOP RUN. +>> Error: Library `PROCE' not found in search path (search path: sub) + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:277:0 +Fatal: used_binaries.at-277-sub/copy/PROC.cpy: No such file or directory +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:315:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:343:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:390:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:421:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:439:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:533:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:534:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:602:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:603:0 +used_binaries.at-603-caller.cob:24.30: + 21 MOVE "Aloha" TO EXT-VAR. + 22 CALL "callee" END-CALL. + 23 DISPLAY EXT-VAR END-DISPLAY. + 24 > ACCEPT CLA-VAR FROM COMMAND-LINE END-ACCEPT. +---- ^ + 25 DISPLAY CLA-VAR END-DISPLAY. + 26 STOP RUN. +>> Hint: Missing + +used_binaries.at-603-caller.cob:24.31-24.43: + 21 MOVE "Aloha" TO EXT-VAR. + 22 CALL "callee" END-CALL. + 23 DISPLAY EXT-VAR END-DISPLAY. + 24 > ACCEPT CLA-VAR FROM COMMAND-LINE END-ACCEPT. +---- ^^^^^^^^^^^^ + 25 DISPLAY CLA-VAR END-DISPLAY. + 26 STOP RUN. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:610:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:654:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:655:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:706:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:707:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:743:0 +used_binaries.at-743-called.cob:9.31: + 6 01 CLI-ARGS PIC X(27). + 7 01 ARG-TWO PIC X(6). + 8 PROCEDURE DIVISION. + 9 > ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. +---- ^ + 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. + 11 ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. +>> Hint: Missing + +used_binaries.at-743-called.cob:9.32-9.44: + 6 01 CLI-ARGS PIC X(27). + 7 01 ARG-TWO PIC X(6). + 8 PROCEDURE DIVISION. + 9 > ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. +---- ^^^^^^^^^^^^ + 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. + 11 ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. +>> Error: Invalid syntax + +used_binaries.at-743-called.cob:11.30: + 8 PROCEDURE DIVISION. + 9 ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. + 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. + 11 > ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. +---- ^ + 12 DISPLAY CLI-ARGS ":" ARG-TWO END-DISPLAY. + 13 EXIT PROGRAM. +>> Hint: Missing + +used_binaries.at-743-called.cob:11.31-11.45: + 8 PROCEDURE DIVISION. + 9 ACCEPT CLI-ARGS FROM COMMAND-LINE END-ACCEPT. + 10 DISPLAY 2 UPON ARGUMENT-NUMBER END-DISPLAY. + 11 > ACCEPT ARG-TWO FROM ARGUMENT-VALUE END-ACCEPT. +---- ^^^^^^^^^^^^^^ + 12 DISPLAY CLI-ARGS ":" ARG-TWO END-DISPLAY. + 13 EXIT PROGRAM. +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:743:0 +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:826:0 +used_binaries.at-826-prog.cob:6.38: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY + 6 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Hint: Missing + +used_binaries.at-826-prog.cob:6.38-6.39: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY + 6 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:844:0 +used_binaries.at-844-prog.cob:6.38: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY + 6 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Hint: Missing + +used_binaries.at-844-prog.cob:6.38-6.39: + 3 PROGRAM-ID. prog. + 4 PROCEDURE DIVISION. + 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY + 6 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:865:0 +used_binaries.at-865-prog.cob:8.26: + 5 WORKING-STORAGE SECTION. + 6 01 CLI PIC X(8). + 7 PROCEDURE DIVISION. + 8 > ACCEPT CLI FROM COMMAND-LINE +---- ^ + 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY + 10 STOP RUN WITH NORMAL STATUS. +>> Hint: Missing + +used_binaries.at-865-prog.cob:8.27-8.39: + 5 WORKING-STORAGE SECTION. + 6 01 CLI PIC X(8). + 7 PROCEDURE DIVISION. + 8 > ACCEPT CLI FROM COMMAND-LINE +---- ^^^^^^^^^^^^ + 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY + 10 STOP RUN WITH NORMAL STATUS. +>> Error: Invalid syntax + +used_binaries.at-865-prog.cob:10.38: + 7 PROCEDURE DIVISION. + 8 ACCEPT CLI FROM COMMAND-LINE + 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY + 10 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Hint: Missing + +used_binaries.at-865-prog.cob:10.38-10.39: + 7 PROCEDURE DIVISION. + 8 ACCEPT CLI FROM COMMAND-LINE + 9 DISPLAY CLI WITH NO ADVANCING END-DISPLAY + 10 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:882:0 +used_binaries.at-882-prog.cob:5.38: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. a. + 4 PROCEDURE DIVISION. + 5 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Hint: Missing + +used_binaries.at-882-prog.cob:5.38-5.39: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. a. + 4 PROCEDURE DIVISION. + 5 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:911:0 +used_binaries.at-911-prog.cob:6.38: + 3 PROGRAM-ID. a. + 4 PROCEDURE DIVISION. + 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY + 6 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Hint: Missing + +used_binaries.at-911-prog.cob:6.38-6.39: + 3 PROGRAM-ID. a. + 4 PROCEDURE DIVISION. + 5 DISPLAY "job" WITH NO ADVANCING END-DISPLAY + 6 > STOP RUN WITH NORMAL STATUS. +---- ^ +>> Error: Invalid syntax + +Considering: import/gnucobol/tests/testsuite.src/used_binaries.at:944:0 +used_binaries.at-944-progprep.cob:5.36-5.37: + 2 IDENTIFICATION DIVISION. + 3 PROGRAM-ID. prog. + 4 DATA DIVISION. + 5 > WORKING-STORAGE SECTION. # +---- ^ + 6 01 TEST-VAR PIC 9(2) VALUE 'A'. + 7 COPY 'CRUD.CPY'. +>> Error: Invalid syntax + +used_binaries.at-944-progprep.cob:7.7-7.23: + 4 DATA DIVISION. + 5 WORKING-STORAGE SECTION. # + 6 01 TEST-VAR PIC 9(2) VALUE 'A'. + 7 > COPY 'CRUD.CPY'. +---- ^^^^^^^^^^^^^^^^ + 8 PROCEDURE DIVISION. + 9 DISPLAY TEST-VAR NO ADVANCING +>> Error: Library `CRUD.CPY' not found in search path (search path: ) +